image of READY prompt

Wang2200.org

Listing of file='I50D010A' on disk='vmedia/702-0079.wvd.zip'

# Sector 417, program filename = 'I50D010A'
0010 GOSUB 9000
0020 PRINT
   : PRINT "SF'00 FOR TEST 1 (USE CONNECTOR #1) OBS TEST"
   : PRINT "SF'01 FOR TEST 2 (USE CONNECTOR #2) CBS TEST"
   : STOP
0030 DEFFN'00
   : DIM B$10,C$1
   : B$=HEX(00000400)
   : GOSUB 9000
   : A=0
0040 PRINT "BYTE SENT = HEX(";
   : HEXPRINT STR(B$,1,1);
   : PRINT ")";
   : $GIO/03B(12324210713AC670,B$)B$<2,1>
   : IF STR(B$,8,1)<>HEX(40)THEN 60
   : PRINT "  RECIEVED = HEX(";
   : HEXPRINT STR(B$,1,1);
   : PRINT ")";HEX(0C)
0050 ADD(STR(B$,1,1),01)
   : IF STR(B$,1,1)<>HEX(00)THEN 40
   : A=A+1
   : IF A<10THEN 40
   : PRINT
   : PRINT "PASSED 256 BYTES 10 TIMES"
   : GOTO 20
0060 C$=STR(B$,8,1)
   : AND (C$,80)
   : IF C$=HEX(80)THEN 80
   : C$=STR(B$,8,1)
   : AND (C$,10)
   : IF C$=HEX(10)THEN 70
   : C$=STR(B$,8,1)
   : AND (C$,20)
   : IF C$<>HEX(20)THEN 90
   : PRINT
   : PRINT "IB9 (ENDI) STUCK ON (LOW)"
   : STOP
0070 PRINT
   : PRINT "TIME OUT ERROR ; MAKE SURE THAT THE CONNECTOR IS PLUGGED IN"
   : PRINT " AND THAT THE ADDRESS SWITCHES ARE CORRECT"
   : STOP
0080 PRINT "  RECIEVED = HEX(";
   : HEXPRINT STR(B$,2,1);
   : PRINT ") ERROR ";
   : XOR (STR(B$,2,1),STR(B$,1,1))
   : HEXPRINT STR(B$,2,1);
   : PRINT " BIT IS BAD"
   : GOTO 50
0090 STOP "THIS SHOULDN'T HAPPEN"
0100 DEFFN'1
   : B$=HEX(00000400)
   : GOSUB 9000
   : A=0
0110 PRINT "COB SENT = HEX(";
   : HEXPRINT STR(B$,1,1);
   : PRINT ")";
   : OR (STR(B$,1,1),D0)
   : $GIO/03B(12324610713AC6701416,B$)B$<2,1>
   : IF STR(B$,8,1)<>HEX(20)THEN 120
   : AND (STR(B$,1,1),0F)
   : PRINT "  RECIEVED = HEX(";
   : HEXPRINT STR(B$,1,1);
   : PRINT ")";HEX(0C)
0115 ADD(STR(B$,1,1),01)
   : IF STR(B$,1,1)<HEX(10)THEN 110
   : STR(B$,1,1)=HEX(00)
   : A=A+1
   : IF A<10THEN 110
   : PRINT
   : PRINT "PASSED 16 BYTES 10 TIMES"
   : GOTO 20
0120 C$=STR(B$,8,1)
   : AND (C$,08)
   : IF C$=HEX(08)THEN 140
   : C$=STR(B$,8,1)
   : AND (C$,10)
   : IF C$=HEX(10)THEN 70
   : C$=STR(B$,8,1)
   : AND (C$,20)
   : IF C$<>HEX(00)THEN 90
   : PRINT
   : PRINT "IB9 (ENDI) STUCK OFF (HI)"
   : STOP
0140 IF STR(B$,6,1)>HEX(0F)THEN 150
   : PRINT "  RECIEVED = HEX(";
   : C$=STR(B$,6,1)
   : AND (C$,0F)
   : HEXPRINT C$;
   : PRINT ") ERROR COB BIT ";
   : OR (C$,D0)
   : XOR (C$,STR(B$,1,1))
   : HEXPRINT C$;
   : PRINT " IS BAD"
   : GOTO 110
0150 AND (STR(B$,6,1),F0)
   : C$=STR(B$,6,1)
   : AND (C$,10)
   : IF C$<>HEX(10)THEN 160
   : C$=STR(B$,6,1)
   : AND (C$,20)
   : IF C$<>HEX(00)THEN 170
   : C$=STR(B$,6,1)
   : AND (C$,40)
   : IF C$<>HEX(40)THEN 180
   : C$=STR(B$,6,1)
   : AND (C$,80)
   : IF C$<>HEX(80)THEN 190
   : GOTO 90
0160 PRINT
   : PRINT "CPB STUCK HI"
   : STOP
0170 PRINT
   : PRINT "PRMS STUCK LOW"
   : STOP
0180 PRINT
   : PRINT "IRB STUCK HI"
   : STOP
0190 PRINT
   : PRINT "DORB STUCK HI"
   : STOP
8999 DEFFN'31
   : LOAD DC T"START"
9000 SELECT PRINT 005(64)
   : PRINT HEX(03);"2200 HARDWARE DIGNOSTICS - 2250 OR OPT 67 ----------------
     ------"
   : PRINT "SET ADDRESS SWITCHES TO X3A "
   : PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A);"FOR SYSTEM MENU ; KEY 'RESET' AND
     SF'31";HEX(010A)
   : RETURN