; 2748/2895 Paper Tape Reader/Punch diagnostic (DSN 146200, 24396-13601_Rev-2326)

echo
echo
echo ------------------------------------
echo DSN 146200 - Paper Tape Reader/Punch
echo ------------------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 146200
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 146200.

deposit M 126
assert T=146200


; Configure the diagnostic.

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

deposit S 001012
reset
go 100

assert T=102074


; Select the test set.

echo
echo Selecting the test set.
echo Expect halt 102075 if successful.

deposit S 001000
reset
go

assert T=102075

deposit A 000200


; Start the diagnostic.

echo
echo Punching the loop tape needed for tests 3, 4, and 11.
echo Expect halt 102060 for user intervention.
echo

deposit S 000000
reset
go

assert T=102060


; Respond to "H060 TO MAKE LOOP, PUNCH ON AND RUN"

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

attach -N PTP loop.2895.punch
go

assert T=102077


; Respond to "PASS 000001"

detach PTP


; Select the test set.

echo
echo
echo Selecting the test set.
echo Expect halt 102075 if successful.

deposit S 001000
reset
go 2000

assert T=102075

deposit A 003177


; Start the diagnostic.

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

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 102024 for user intervention.
echo

reset
go

assert T=102024


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

echo
echo [PRESET pressed, RUN pressed]
echo Expect halt 102051 for user intervention.
echo

reset
go

assert T=102051


; Respond to "H051 ALL CHARTR COMBINATIONS, PUNCH ONLY
;                TURN PUNCH ON, PRESS RUN"

echo
echo [Punch on, RUN pressed]
echo Expect halt 102052 for user intervention.
echo

attach -N PTP scratch.2895.punch
go

assert T=102052


; Respond to "H052 ALL CHARTR COMBINATIONS, VERIFY
;                TEAR TAPE AT PUNCH, PLACE IN READER, PRESS RUN"

echo
echo [Tape in reader, RUN pressed]
echo Expect halt 102054 for user intervention.
echo

detach PTP
attach -E PTR scratch.2895.punch
go

assert T=102054


; Respond to "H054 PLACE LOOP IN READER-PRESS RUN
;                TO START READ, SET BIT0 TO 1
;                TO EXIT TEST, SET BIT0 TO 0"

echo
echo [Loop in reader, Bit 0 set, RUN pressed]

set PTR DIAGNOSTIC

attach -E PTR loop.2895.punch

deposit S 000001
go until 3 seconds


; Respond to timed expiration.

echo
echo [Bit 0 cleared]
echo Expect halt 102054 for user intervention.
echo

deposit S 000000
go

assert T=102054


; Respond to "H054 PLACE LOOP IN READER-PRESS RUN
;                TO START READ, SET BIT0 TO 1
;                TO EXIT TEST, SET BIT0 TO 0"

echo
echo [Loop in reader, Bit 0 set, RUN pressed]

deposit S 000001
go until 3 seconds


; Respond to timed expiration.

echo
echo [Bit 0 cleared]
echo Expect halt 102056 for user intervention.
echo

deposit S 000000
go

assert T=102056


; Respond to "H056 TURN PUNCH ON, PRESS RUN. PUNCH ROUTINE
;                WILL START. LOAD THE TAPE BEING PUNCHED
;                INTO THE READER.
;                TO START READ, SET BIT0 TO 1
;                TO EXIT, SET BIT0 TO 0"

echo
echo [Punch on, Bit 0 cleared, RUN pressed]

set PTR READER

attach -N PTP scratch.2895.punch
attach -E PTR scratch.2895.punch

go until 3 seconds


; Respond to timed expiration.

echo
echo [Tape in reader, Bit 0 set]

deposit S 000001
go until 3 seconds


; Respond to timed expiration.

echo
echo [Bit 0 cleared]
echo Expect halt 102057 for user intervention.
echo

deposit S 000000
go

assert T=102057


; Respond to "H057 TO COMPLETE, TEAR TAPE, PRESS RUN"

echo
echo [Tape torn, RUN pressed]
echo Expect halt 102063 for user intervention.
echo

go

assert T=102063


; Respond to "H063 READER SPEED TEST. PLACE LOOP IN READER
;                BIT 5=0 FOR 2748-58, BIT 5=1 FOR 2737. PRESS RUN."

echo
echo [Loop in reader, Bit 5 cleared, RUN pressed]
echo Expect halt 106000 for user intervention.
echo

set PTR DIAGNOSTIC,REALTIME
attach -E PTR loop.2895.punch
go

assert T=106000


; Respond to "H100 PUNCH SPEED TEST.
;                  BIT 6=0 FOR 2895 OR BIT 6=1 FOR 2753-PRESS RUN".

echo
echo [Punch ready, Bit 6 cleared, RUN pressed]
echo Expect halt 102077 for successful completion.
echo

set PTP REALTIME
go

assert T=102077


; Diagnostic complete.  Restore hardware configuration.

detach PTR
detach PTP

delete loop.2895.punch
delete scratch.2895.punch

set PTR READER,FASTTIME
set PTP FASTTIME