image of READY prompt

Wang2200.org

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"