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