Racal Instruments 7064 Instruction Manual page 75

GOSUB pauseroutine
END IF
NEXT readports
CLS
LOCATE 2, 26: PRINT "OUTPUT B I T TEST"
LOCATE 20, 10: PRINT "Running Walking One patern"
RETURN
rdportl:
IF port = 11 T H E N RETURN
FOR readports = port + I T O 1 1
wrt$ = "inportb(" + STR$(readports) + ");"
C A L L ibwrt(bd%, wrt$)
C A L L ibrd(bd%, t$)
IF LEFT$(t$, ibcnt%) <> "#B11111111" THEN
noerror = 1
LOCATE 12, 10: PRINT "Walking Zero Bit Test ERROR"
LOCATE 14, 10: PRINT "Sent Port "; port; " Value "; LEFT$(t$, ibcnt%)
LOCATE 15, 10: PRINT "Failure in Port "; readports; " S/B #B0"
GOSUB pauseroutine
END IF
CLS
LOCATE 2, 26: PRINT "OUTPUT B I T TEST"
LOCATE 20, 10: PRINT "Running Walking Zero patern"
NEXT readports
RETURN
rderror:
IF E = 0 THEN sb$ = "#B1111111"
IF E = 1 T H E N sb$ = "#BO"
IF E = 2 THEN sb$ = "#B10101010"
IF E = 3 T H E N sb$ = "#B1010101"
CLS
LOCATE 10, 10: PRINT "ERROR FOUND: I S : PORT"; port; LEFT$(t$, ibent%), "S/B: s b $
noerror = 1
GOSUB pauseroutine
RETURN
crderror:
LOCATE 10, 10: PRINT "Card Address S/B: "; digits, "Card Address is: " ; STR$(card)
noerror = 1
GOSUB pauseroutine
RETURN
highbit:
D ATA #B1
D ATA #B1 1
D ATA #B I I I
6-10