"HPIB control words" $PRINT CRLF ; patch label mods 6/13/05
"Setting to slot 17 (conflicts w/ stock 7900 slot)" $PRINT CRLF
OCTAL 276 17 PUT
"CBUS ?BUS >BUS <BUS *BUS +REN -REN +ATN -ATN !HPIB" $PRINT CRLF
"CLRBUS LISTEN TALK $>BUS $<BUS .BUS     Loading..." $PRINT CRLF
; 59310B HPIB BUS CONTROL FUNCTIONS
; CONFIGURED FOR HP59310B IN SLOT 17
; TESTED 7-25-04
;
; CBUS - SENDS A CONTROL WORD TO THE 59310B INTERFACE
CREATE CBUS
 JSB ZSPOP,I
PB01 STF 17
PB02 OTA 17
 JMP END
END
;
;
; ?BUS - GETS A STATUS WORD FROM THE 59310B INTERFACE
CREATE ?BUS /K
PB03 STF 17
PB04 LIA 17
 JSB ZSPSH,I
 JMP END
END
;
;
; >BUS - TRANSMITS A BYTE OVER THE HPIB BUS
CREATE >BUS /K
PB05 STF 17
PB06 LIA 17
 AND M60
 CPA M60
 JMP DOWR
 LDA CW2
PB07 STF 17
PB08 OTA 17
 LDA ATNV
PB09 STF 17
PB10 OTA 17
DOWR NOP
 JSB ZSPOP,I
 AND M377
PB11 OTA 17,C
PB12 SFS 17
 JMP *-1
 JMP END
CW2 OCT 020315
M60 OCT 000060
M377 OCT 000377
ATNV OCT 000040
END
;
;
; <BUS - RECEIVES A BYTE OVER THE HPIB BUS
CREATE <BUS /K
PB13 STF 17
PB14 LIA 17
 AND M120
 CPA M120
 JMP DORD
 LDA CW3
PB15 STF 17
PB16 OTA 17
PB17 LIA 17,C
DORD NOP
PB18 STF 17
PB19 LIA 17
 AND MIRL
 SZA,RSS 
 JMP DORD
PB20 LIA 17,C
 AND M377
 JSB ZSPSH,I
 JMP END
CW3 OCT 040327
M120 OCT 000120
MIRL OCT 040000
END
;
;
; *BUS - CLEARS THE BUS VIA HPIB IFC SIGNAL
DEFINE *BUS
0 7 +DO 1 CBUS +LOOP END
;
;
; +REN - SETS REMOTE ENABLE FOR TRANSMISSIONS
CREATE +REN /K
 LDA CON2
PB21 STF 17
PB22 OTA 17
 JMP END
CON2 OCT 000003
END
;
;
; -REN - CLEARS REMOTE ENABLE FOR TRANSMISSIONS
CREATE -REN /K
 LDA CON3
PB23 STF 17
PB24 OTA 17
 JMP END
CON3 OCT 000002
END
;
;
; +ATN - SETS ATTENTION FOR TRANSMISSIONS
CREATE +ATN /K
 LDA CON4
 STA ATNV
PB25 STF 17
PB26 OTA 17
 JMP END
CON4 OCT 000060
END
;
;
; -ATN CLEARS ATTENTION FOR TRANSMISSIONS
CREATE -ATN /K
 LDA CON5
 STA ATNV
PB27 STF 17
PB28 OTA 17
 JMP END
CON5 OCT 000040
END
;
; autostart word that patches HPIB slot
;
CREATE !HPIB /K
HPSL EQU 276                      where HPIB slot# is stored
 LDA HPPLA                        patch list in A
 LDB HPSL                         slot number in B
 JSB PSUBA,I                      call patch sub
 JMP END
HPPLA DEF *+1                     address of patch list
 DEF PB01                         list of locations to patch
 DEF PB02
 DEF PB03
 DEF PB04
 DEF PB05
 DEF PB06
 DEF PB07
 DEF PB08
 DEF PB09
 DEF PB10
 DEF PB11
 DEF PB12
 DEF PB13
 DEF PB14
 DEF PB15
 DEF PB16
 DEF PB17
 DEF PB18
 DEF PB19
 DEF PB20
 DEF PB21
 DEF PB22
 DEF PB23
 DEF PB24
 DEF PB25
 DEF PB26
 DEF PB27
 DEF PB28
 OCT 0                            end of patch list
END
;
;
; CLRBUS - UNTALKS AND UNLISTENS ALL DEVICES
DEFINE CLRBUS
+ATN 137 >BUS 77 >BUS -ATN END
;
;
; LISTEN - ADDRESSES A DEVICE TO RECEIVE TRANSMISSIONS
DEFINE LISTEN
+ATN 77 >BUS 37 AND 40 OR >BUS -ATN END
;
;
; TALK - ADDRESSES A DEVICE TO TRANSMITS TO THE BUS
DEFINE TALK 
+ATN 137 >BUS 37 AND 100 OR >BUS -ATN END
;
;
; $>BUS - TRANSMITS A STRING TO THE BUS
DEFINE $>BUS
1 $LEN +DO $HEAD >BUS +LOOP $DROP END
;
;
; $<BUS - RECEIVES A STRING FROM THE BUS
DEFINE $<BUS
"" DO
<BUS DUP 000012 SUB
IFZ
 DROP #1
ELSE
 $APPEND #0
ENDIF
UNTIL END
;
; CW = 000057 SETS EOI SIGNAL ON BUS
; THE FOLLOWING SEQUENCE WILL SEND LF WITH EOI SET, THEN
; UNLISTEN ALL WITH ATN SET, THEN CLEAR ATN.  ENDS A BUS
; TRANSMISSION AND UNLISTENS ALL DEVICES
OCTAL DEFINE .BUS
000057 CBUS 12 >BUS +ATN 77 >BUS -ATN END
;

"Done." $PRINT CONSOLE