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"