Listing of file='T27D020A' on disk='vmedia/702-0079.wvd.zip'
# Sector 267, program filename = 'T27D020A'
0005 REM . MOD 1/14/80 J. BROOKS
0010 REM . T27D020A, 00-00 (08/19/77), 12002
0015 DIM F$2,G$2
0020 SELECT PRINT 005
: GOSUB 9000
: GOSUB 1500
: SELECT PRINT 005
: GOSUB 9000
: PRINT HEX(0A0A);
: PRINT " PLUG SPECIAL CONNECTOR TO 2227 BOARD"
0140 PRINT " ADDRESS "
0150 PRINT " RCV = ";G$;", XMT = ";F$;", EOM = FF"
: PRINT " ASCII/BINARY SWITCH DOWN FOR 2207 DIAG."
: PRINT
: PRINT " SF.01 - TO START 2227 DIAG."
0200 PRINT " RESET - TO STOP THE PROGRAM"
: STOP
0220 DEFFN'00
: Y$="0"
: GOTO 270
0250 DEFFN'01
: Y$="2"
0270 W=0
0280 DIM A$32,B$32
: DIM C$32,D$32
: DIM E$32
: A$=HEX(5AA55AA55AA55AA55AA55AA55AA55AA55AA55AA55AA55AA55AA55AA55AA55AA5)
0320 B$=HEX(0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D)
: GOSUB 370
: IF Y$="2"THEN 520
: GOSUB 450
: GOTO 520
0370 GOSUB '100
: FOR Z=1TO 32
: PRINT STR(A$,Z,1)
0400 KEYIN STR(C$,Z,1),420,420
: GOTO 400
0420 NEXT Z
: SELECT PRINT 005
: W=W+1
: PRINT HEX(03);" PASS# ";W
: RETURN
0450 GOSUB '100
: FOR Z=1TO 32
: PRINT HEX(FF)
0480 KEYIN STR(E$,Z,1),500,500
: GOTO 480
0500 NEXT Z
: RETURN
0520 IF A$<>C$THEN 560
: IF Y$="2"THEN 550
: IF B$<>E$THEN 560
0550 GOTO 280
0560 SELECT PRINT 005
: SELECT INPUT 001
: PRINT HEX(0A0A0A);" ERROR-------TEST FAILED"
0580 DEFFN'31
: LOAD DC T"START"
1500 PRINT HEX(010A0A0A);"1. RCV=19,XMT=1D"
: PRINT "2. RCV=1A,XMT=1E"
: PRINT "3. RCV=1B,XMT=1F"
: PRINT HEX(0C0C0C0C);
: INPUT "SELECT CONTROLLER ADDRESS",Q
: ON Q GOTO 1520,1530,1540
1520 F$="1D"
: G$="19"
: RETURN
1530 F$="1E"
: G$="1A"
: RETURN
1540 F$="1F"
: G$="1B"
: RETURN
1600 DEFFN '100
: ON Q GOTO 1620,1630,1640
1620 SELECT PRINT 41D
: SELECT INPUT 019
: RETURN
1630 SELECT PRINT 41E
: SELECT INPUT 01A
: RETURN
1640 SELECT PRINT 41F
: SELECT INPUT 01B
: RETURN
9000 PRINT HEX(03);"2200 HARDWARE DIAGNOSTICS - 2227 -------------------------
-------"
: PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIAGNOSTIC MENU ; KEY 'RESET' AN
D SF'31";HEX(01)
: RETURN
9010 DEFFN'31
: SELECT PRINT 005(64)
: LOAD DC T"START"