; General Purpose Register diagnostic (DSN 143300, 24396-13601_Rev-2326)

echo
echo
echo -------------------------------------------
echo DSN 143300 - General Purpose Register (PTR)
echo -------------------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 143300
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 143300.

deposit M 126
assert T=143300


; Configure the diagnostic.
;
; Switch Register options:
;
;   bit 15 = test interface is 12849A Controller Microcircuit Interface
;   bit 14 = set if jumper W10 is is position B
;   bit 13 = set if 12849A is positive-true (option 001)
;   bit 12 = set if jumper W5 of 12849A is removed
;   bit 11 = test interface is 12597A 8-Bit Duplex Register Interface
;   bit 10 = test interface is 12551B Relay Register Interface
;   bit  9 = Relay Register has read-back capability (option 01)
;   bit  8 = test interface is 12589A Automatic Dialer Interface
;   bit  7 = test interface is 12930A Universal Interface
;   bit  6 = reserved
;   bit  5 = \
;   bit  4 =  \
;   bit  3 =   \ select code of
;   bit  2 =   / test interface
;   bit  1 =  /
;   bit  0 = /

echo
echo Configuring the diagnostic.
echo Expect halt 102074 if successful.

set PTR DIAGNOSTIC

deposit S 004010
reset
go 100

assert T=102074


; Start the diagnostic.

echo
echo Executing the diagnostic.
echo Expect halt 102024 for user intervention.

deposit S 000000
reset
go

assert T=102024


; Respond to "H024 PRESS PRESET (EXT&INT),RUN".

echo
echo [PRESET pressed, RUN pressed]
echo Expect halt 102077 for successful completion.
echo

reset
go


; End of the diagnostic.
;
; Verify HLT 77B for a successful pass.

assert T=102077


; Restore the hardware configuration.

set PTR READER