IEEE-488 on the PDP-11

On Tue, Nov 16, 2021 at 9:23 AM Douglas Taylor via cctalk <cctalk at classiccmp.org> wrote: I have an original DEC RX01 floppy labeled: AS-H300E-BC INSTMT BUS SUB V2.1 BIN RX1 (c) 1983 Digital Equipment Corporation I have an image I created from that floppy which I can mount using PUTR, and then access the files on the floppy image: C:\PUTR>PUTR PUTR V2.01 Copyright (C) 1995-2001 by John Wilson <wilson at dbit.com>. All rights reserved. See www.dbit.com for other DEC-related software. COPY mode is ASCII, SET COPY BINARY to change (C:\PUTR)>MOUNT RX0: AS-H300E.IMG /RONLY /RX01 (C:\PUTR)>DIR RX0: Volume in drive RX0 is RT11A Directory of RX0:\*.* 16-Nov-2021 IB .MAC 76 27-Mar-1982 IBBASE.MAC 8 27-Mar-1982 IBCBLK.MAC 3 27-Mar-1982 IBCMD .MAC 2 27-Mar-1982 IBDCL .MAC 1 27-Mar-1982 IBDEV .MAC 2 27-Mar-1982 IBERMF.MAC 5 27-Mar-1982 IBERR .MAC 4 27-Mar-1982 IBERRF.MAC 2 27-Mar-1982 IBERSH.MAC 3 27-Mar-1982 IBGET .MAC 1 27-Mar-1982 IBGTL .MAC 1 27-Mar-1982 IBIFC .MAC 1 27-Mar-1982 IBINIT.MAC 6 27-Mar-1982 IBLEGL.MAC 2 27-Mar-1982 IBLLO .MAC 1 27-Mar-1982 IBLNR .MAC 2 27-Mar-1982 IBLSN .MAC 5 27-Mar-1982 IBPPD .MAC 2 27-Mar-1982 IBPPE .MAC 2 27-Mar-1982 IBPPL .MAC 2 27-Mar-1982 IBPPU .MAC 1 27-Mar-1982 IBRCVS.MAC 1 27-Mar-1982 IBRDA .MAC 1 27-Mar-1982 IBRECV.MAC 3 27-Mar-1982 IBREMO.MAC 2 27-Mar-1982 IBREN .MAC 1 27-Mar-1982 IBSDC .MAC 1 27-Mar-1982 IBSEND.MAC 3 27-Mar-1982 IBSPL .MAC 3 27-Mar-1982 IBSRQ .MAC 5 27-Mar-1982 IBSRQF.MAC 1 27-Mar-1982 IBSTER.MAC 2 27-Mar-1982 IBSTS .MAC 2 27-Mar-1982 IBTERM.MAC 2 27-Mar-1982 IBTIMO.MAC 2 27-Mar-1982 IBTLK .MAC 4 27-Mar-1982 IBUNIT.MAC 2 27-Mar-1982 IBUNL .MAC 2 27-Mar-1982 IBUNT .MAC 2 27-Mar-1982 IBWAIT.MAC 1 27-Mar-1982 IBXFER.MAC 3 27-Mar-1982 IB .ASM 9 27-Mar-1982 IBLOC .ASM 1 27-Mar-1982 IBMNC .SYS 10 27-Mar-1982 IBXMNC.SYS 11 27-Mar-1982 IBNMNC.SYS 10 27-Mar-1982 IBXNMC.SYS 11 27-Mar-1982 IBDBLD.COM 1 27-Mar-1982 IBLIB .OBJ 45 27-May-1982 IBSVER.FOR 7 27-Mar-1982 IBXBLD.COM 1 08-Mar-1983 IBSBLD.COM 2 08-Mar-1983 IBLBLD.COM 10 27-Mar-1982 < UNUSED > 193 54 Files, 293 Blocks 193 Free blocks (C:\PUTR)>COPY RX0:IBSVER.FOR C: IBSVER.FOR C**************************************************************************** C C THIS PROGRAM IS THE INSTALLATION/VERIFICATION PROGRAM FOR THE IBS IEEE BUS C INTERFACE ROUTINES. C C***************************************************************************** C EXTERNAL SERVE !ADDRESS OF USER'S SRQ HANDLING ROUTINE. BYTE ASCII(26) !ASCII ARRAY CONTAINING THE ALPHABET. INTEGER TALK,STAT IBZERO=' ' !ASCII CODE FOR ZERO INSTRUMENT ADDRESS LISTEN=5 !OUR LISTENER'S PRIMARY IEEE BUS ADDRESS. TALK=6 !OUR TALKER'S PRIMARY IEEE BUS ADDRESS. MAXL=15 !OUR MAXIMUM TRANSMIT/RECEIVE LENGTH. LINE=6 C TYPE 1000 1000 FORMAT('1 IBS-11 V2.1 Verification Program'/// 1' This procedure assumes that IB.SYS (or IBX.SYS) has been INSTALLED 2 and LOADED'/' in this system. Also, this procedure assumes 3 that no devices'/' are connected to your IBV11-A/IB11 4 instrument bus.') TYPE 1001 1001 FORMAT(//' The first part of this test calls routines that do 1 not depend'/' on any device and thus should produce no 2 error messages.'//) C CALL IBSTER(16,20) !ALLOW ERROR NUMBER 16 (TIME-OUT) TO OCCUR 20 X CALL IBSTER(5,5) !ALLOW THE NO DEFAULT LISTENER ERROR 5 TIMES CALL IBSTER(7,2) !ALLOW THE BAD UNIT ERROR TO OCCUR TWICE CALL IBSTER(15,25) !ALLOW THE NO VALID LISTENER ERROR TO OCCUR 25 X CALL IBSRQ(SERVE,,,STAT) !SET-UP TO HANDLE SRQ'S CALL IBSRQF(IFLG) !GET STATUS OF SRQ IEEE INTERFACE CONTROL LINE CALL IBTERM() !CLEARS INTERNAL TERMINATOR'S LIST CALL IBPPL !CONDUCT A PARALLEL POLL CALL IBIFC !ISSUE THE IEEE INTERFACE-CLEAR STAT=IBERRF() !GET ERROR INFORMATION CALL IBRDA !DISABLE (TURN-OFF) THE IEEE REMOTE LINE CALL IBREN !ENABLE (TURN-ON) THE IEEE REMOTE LINE TYPE 1002,IBREMO() !READ AND TYPE THE REMOTE LINE STATUS 1002 FORMAT(' IBREMO should return minus one at this point. IBREMO =' 1I6) C TYPE 1003 1003 FORMAT(//' At this point non-fatal error messages should begin to 1 appear.'//' ****EXPECTED ERROR MESSAGES****' 2/' -------------------------------') CALL IBTIMO(120) !SET TIME-OUT VALUE TO 2 SECONDS CALL IBDEV(TALK,IBZERO) !SET-UP SRQ-CAPABLE DEVICE ADDRESS LIST CALL IBLNR() !CHECK FOR VALID LISTENERS CALL IBSEND(ASCII,MAXL,LISTEN) CALL IBSEOI(ASCII,MAXL,LISTEN) CALL IBRECV(ASCII,MAXL,TALK) CALL IBRCVS(STAT) !GET OUR RECEIVE STATUS BACK LENGTH=IBXFER(MAXL,TALK,LISTEN) CALL IBASND(ASCII,MAXL,LISTEN) CALL IBARCV(ASCII,MAXL,TALK) CALL IBAXFR(MAXL,TALK,LISTEN) CALL IBWAIT !WAIT FOR PRECEDING ASYNCHRONOUS I/O TO COMPLETE CALL IBFREE(LISTEN,TALK) CALL IBGTL(LISTEN) CALL IBSDC(LISTEN) CALL IBGET(LISTEN) CALL IBCMD(7) STAT=IBSTS(TALK) IFUN=IBSPL(STAT,TALK) CALL IBPPE(ISENSE,LINE) CALL IBPPD() CALL IBPPU CALL IBUNL CALL IBUNT CALL IBLLO CALL IBDCL CALL IBUNIT(2) TYPE 1004 1004 FORMAT(//' IBS-11 VERIFICATION PROCEDURE SUCCESSFUL!'//) STOP 'END IBS VERIFY' END C C***************************************************************************** C C THE USER'S SRQ HANDLING ROUTINE: C C***************************************************************************** SUBROUTINE SERVE RETURN END