IEEE-488 on the PDP-11

[Jonathan Chapman]

Excellent, now I don't have to dig into that particular project tomorrow :P

Thanks,
Jonathan

‐‐‐‐‐‐‐ Original Message ‐‐‐‐‐‐‐

On Tuesday, November 16th, 2021 at 13:25, Glen Slick via cctalk <cctalk at classiccmp.org> wrote:

> On Tue, Nov 16, 2021 at 9:23 AM Douglas Taylor via cctalk
>
> cctalk at classiccmp.org wrote:
>
> > I'm going by the 'Instrument Bus Subroutines Programmer's Reference
> >
> > Manual' that is on bitsavers. [/pdf/dec/pdp11/minc] In section 4, page
> >
> > 4-1 it seems to imply that there are 6 files:
> >
> > IBLIB.OBJ
> >
> > IBSVER.FOR
> >
> > IBMNC.SYS
> >
> > IBNMNC.SYS
> >
> > IBXMNC.SYS
> >
> > IBXNMC.SYS
> >
> > I think that's it. *.OBJ is a library to link to, *.FOR is a test
> >
> > program, *.SYS are device drivers for MINC and ordinary PDP-11 SJ, FB
> >
> > and XM monitors. It probably is on it's own disk (RX01 RX02?)
> >
> > Doug
>
> 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