; Test reading from the HP-IB 7970E.

; Load DUS from the tape.  Give any parameter to trace execution.


; Set up the log(s).

set -N console log=TAPEREAD.log
if "%1" != "" set -N console debug=TAPEREAD-debug.log


; Establish the initial environment.

echo
echo Configuring the simulation environment.

set CPU S58,4096K,REALTIME
set CPU STOP=COLDLOAD;UNIMPL

set CPP FILTER=1

set DC DISABLED

set GIC COUNT=2
set GICA CHANNEL=9

set MA COUNT=2
set MAB CHANNEL=11

set ATCD DISABLED
set ATCC DISABLED
set CLK  DISABLED

set console DEL=177

break delay 30 milliseconds


echo
echo
echo -------------------------
echo Diagnostic Utility System
echo -------------------------
echo
echo Loading DUS.


; Cold load the DUS tape from channel 9 device 0.

attach -e -r MAA0 \engineering\hpdxx\3000\DUS_Rev-2913.tape

load


; Load and start the diagnostic.

echo
echo Starting the diagnostic.


set MAB0 REEL=600

attach -e MAB0 TAPEWRITE.tape

break delay 30 milliseconds

go until "\r\n:" ; reply "AID\r"


; Do a burst-mode read and a record-mode read on tape unit 0
;
; CC(0) = 01--H (Select Unit 0 opcode)
; CC(1) = 08--H (Read Record opcode)
; CC(2) = 01--H (End / Clear Poll)

; Line 10
go until "\r\n> " ; reply "DB CC,10,0\r"
go until "\r\n> " ; reply "DB DD,256,0\r"
go until "\r\n> " ; reply "DB SS,6,0\r"
go until "\r\n> " ; reply "ASSIGN CC(0),!100,!800,!100\r"
go until "\r\n> " ; reply "ASSIGN DD(0),!2222\r"
go until "\r\n> " ; reply "ASSIGN DD(32),!3333\r"
go until "\r\n> " ; reply "ASSIGN DD(64),!4444\r"
go until "\r\n> " ; reply "ASSIGN DD(96),!5555\r"
go until "\r\n> " ; reply "ASSIGN DD(128),!6666\r"
go until "\r\n> " ; reply "LET CHANNEL:=11,DEVICE:=0\r"
go until "\r\n> " ; reply "BSIO ZZ\r"
go until "\r\n> " ; reply "CHP !94\r            . DEVICE CLEAR\r"
go until "\r\n> " ; reply "WAIT\r"
go until "\r\n> " ; reply "WR 1,CC(0),1         . SELECT UNIT 0\r"
go until "\r\n> " ; reply "WAIT\r"
go until "\r\n> " ; reply "DSJ 170\r"
; Line 170
go until "\r\n> " ; reply "RR 1,SS(0),3         . READ STATUS\r"
;
; Burst-Mode Write Record
;
go until "\r\n> " ; reply "WR 1,CC(1),1         . READ RECORD\r"
; Line 190
go until "\r\n> " ; reply "WAIT\r"
go until "\r\n> " ; reply "DSJ 210\r"
; Line 210
go until "\r\n> " ; reply "RB 0,DD(0),150,64    . READ DATA BURST\r"
go until "\r\n> " ; reply "JUMP 240             . TRANSFER COMPLETE\r"
go until "\r\n> " ; reply "JUMP 190             . TRANSFER CONTINUES\r"
; Line 240
go until "\r\n> " ; reply "WR 7,CC(2),1         . END / CLEAR POLL\r"
go until "\r\n> " ; reply "WAIT                 . READ COMPLETE\r"
go until "\r\n> " ; reply "DSJ 270\r"
; Line 270
go until "\r\n> " ; reply "RR 1,SS(2),3         . READ STATUS\r"
;
; Record-Mode Write Record
;
; Line 280
go until "\r\n> " ; reply "WR 1,CC(1),1         . READ RECORD\r"
go until "\r\n> " ; reply "WAIT\r"
go until "\r\n> " ; reply "DSJ 310\r"
; Line 310
go until "\r\n> " ; reply "RR 0,DD(80),150      . READ DATA RECORD\r"
go until "\r\n> " ; reply "WR 7,CC(2),1         . END / CLEAR POLL\r"
go until "\r\n> " ; reply "WAIT                 . READ COMPLETE\r"
go until "\r\n> " ; reply "DSJ 350\r"
; Line 350
go until "\r\n> " ; reply "RR 1,SS(4),3         . READ STATUS\r"
;
go until "\r\n> " ; reply "IN H\r"
go until "\r\n> " ; reply "RSIO\r"
go until "\r\n> " ; reply "END\r"
go until "\r\n> "

set mab debug
set gicb debug
set cpp debug

reply "RUN\r"

go until "\r\n> " ; reply "LIST !B,SS\r"
go until "\r\n> " ; reply "LIST !B,DD,0/159\r"


; Exit

go until "\r\n> " ; reply "EXIT\r"
go until "?"      ; reply "YES\r"

go until "\r\n:"

exit