Racal Instruments 7064 Instruction Manual page 71

NEXT port
' LOCATE 20, 10: PRINT "Verify all PORTS and BITS HIGH"
IF noerror = 0 THEN LOCATE 20, 10: PRINT "RESET TEST PASSED"
IF noerror = 1 THEN LOCATE 20, 10: PRINT "RESET TEST FAILED"
GOSUB pauseroutine
CLS
t = 0
RETURN
OUTPUTBIT:
KEY OFF
CLS
LOCATE 2, 26: PRINT "OUTPUT BIT TEST"
LOCATE 20, 10: PRINT "Running Alernating high low patern"
t$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
GOSUB findit
GOSUB basevalue
noerror = 0
E = 2
FOR port = 0 TO 11
wrt$ = "outportb(" + STR$(port) + ",#B 10101010);"
wrtl$ = "inportb(" + STR$(port) + ");"
CALL ibwrt(bd%, wrt$)
CALL ibwrt(bd%, wrtl$)
CALL ibrd(bd%,
IF LEFT$(t$, ibcnt%) <> "#B10101010" THEN GOSUB rderror
'PRINT "PORT"; port, LEFT$(t$, ibcnt%)
NEXT port
'LOCATE 20, 10: PRINT "Verify all PORTS alternate high low"
'GOSUB pauseroutine
CLS
LOCATE 2, 26: PRINT "OUTPUT BIT TEST"
LOCATE 20, 10: PRINT "Running Alernating low high patern"
E = 3
FOR port = 0 TO 11
wrt$ = "outportb(" + STR$(port) + ",#B01010101);"
wrtl$ = "inportb(" + STR$(count) + ");"
CALL ibwrt(bd%, wrt$)
CALL ibwrt(bd%, wrtl$)
CALL ibrd(bd%,
IF LEFT$(t$, ibcnt%) <> "#B1010101" THEN GOSUB rderror
'PRINT "PORT"; count, LEFT$(t$, ibcnt%)
NEXT port
' LOCATE 20, 10: PRINT "Verify all PORTS alternate high low (7 bits)"
6-6