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