; 2752 Teleprinter diagnostic (DSN 104003, 24396-13601_Rev-2326)

echo
echo
echo ------------------------
echo DSN 104003 - Teleprinter
echo ------------------------
echo
echo Loading the diagnostic.
echo Expect halt 102077 if successful.

deposit A 104003
deposit B 000000
reset
go 120

assert T=102077


; Verify the DSN.

echo
echo Verifying DSN 104003.

deposit M 126
assert T=104003


; Configure the diagnostic.

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

deposit S 000011
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 000373


; Start the diagnostic.

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

deposit S 000000
go

assert T=102024


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

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

reset
go

assert T=102030


; Respond to "H030 TURN TTY PUNCH ON
;             PRESS RUN"

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

attach -N TTY2 scratch.2752.punch
go

assert T=102045


; Respond to "H045 TURN TTY PUNCH OFF
;             PRESS RUN"

echo
echo [Punch off, RUN pressed]

detach TTY2
go until ":    -    \r\n"


; Respond to "1    2    3    4    5    6    7    8    9    0    :    -    "

reply "1234567890:-"
go until "O    P    \r\n"


; Respond to "Q    W    E    R    T    Y    U    I    O    P    "

reply "QWERTYUIOP"
go until "L    ;    \r\n"


; Respond to "A    S    D    F    G    H    J    K    L    ;    "

reply "ASDFGHJKL;"
go until ".    /    \r\n"


; Respond to "Z    X    C    V    B    N    M    ,    .    /    "

reply "ZXCVBNM,./"
go until "*    =    \r\n"


; Respond to "!    "    #    $    %    &    '    (    )    *    =    "

reply "!\"#$%%&'()*="
go until ">    ?    \r\n"


; Respond to "_    @    +    ^    <    >    ?    "

reply "_@+^<>?"
go until "VT   FORM \r\n"


; Respond to "WRU  TAPE NTAP XOFF EOT  RU   BELL TAB  VT   FORM "

reply "\005\022\024\023\004\006\007\011\013\014"
go until "CR   LF    \r\n"


; Respond to "RBOT CR   LF    "

reply "\177\r\n"
go until "KEY \r\n"


; Respond to "INPUT ANY KEY "

reply "INPUT TEST"
go until "S    T    "


; Respond to the end of the line by toggling switch bit 1 on and off.

echo
echo [Switch bit 1 set]

deposit S 000002
go until 500 milliseconds

echo
echo [Switch bit 1 cleared]
echo

deposit S 000000
go until "ECHOED \r\n"


; Respond to H044 INPUT TERMINATED
;
;            ECHO MODE ANY INPUT IS ECHOED

reply "INPUT TEST\r\n"
go until "TEST\r\n"


; Respond to the end of the line by toggling switch bit 1 on and off.

echo
echo [Switch bit 1 set]

deposit S 000002
go until 500 milliseconds

echo
echo [Switch bit 1 cleared]
echo Expect message "H044 INPUT TERMINATED" and halt 102077 for successful completion.
echo

set TTY REALTIME

deposit S 000000
go


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

assert T=102077


; Restore the hardware configuration.

delete scratch.2752.punch

set TTY FASTTIME