![background image](http://html2.mh-extra.com/html/racal-instruments/7064/7064_instruction-manual_3127022074.webp)
wrt$ = "rstbit(" + STR$(port) + "," + STR$(bit) + ");"
CALL ibwrt(bd%, wrt$)
RETURN
rdbit:
wrt$ = "inportb(" + STR$(port) + ");"
CALL ibwrt(bd%, wrt$)
CALL ibrd(bd%, t$)
READ A$
IF LEFT$(t$, ibcnt%) <> A$ THEN
noerror = 1
LOCATE 12, 10: PRINT "Walking One Bit Test ERROR"
LOCATE 14, 10: PRINT "Port"; port, "IS: "; LEFT$(t$, ibcnt%), "S/B: ''; A$
GOSUB pauseroutine
END IF
CLS
LOCATE 2, 26: PRINT "OUTPUT BIT TEST"
LOCATE 20, 10: PRINT "Running Walking One patern"
RETURN
rdbitl:
wrt$ = "inportb(" + STR$(port) + ");"
CALL ibwrt(bd%, wrt$)
CALL ibrd(bd%, t$)
READ A$
IF LEFT$(t$, ibcnt%) <> A$ THEN
noerror = 1
LOCATE 12, 10: PRINT "Walking Zero Bit Test ERROR"
LOCATE 14, 10: PRINT "Port"; port, "IS: "; LEFT$(t$, ibcnt%), "S/B: "; A$
GOSUB pauseroutine
END IF
CLS
LOCATE 2, 26: PRINT "OUTPUT BIT TEST"
LOCATE 20, 10: PRINT "Running Walking Zero patern"
RETURN
rdports:
IF port = 11 THEN RETURN
FOR readports = port + 1 TO 11
wrt$ = "inportb(" + STR$(readports) + ");"
CALL ibwrt(bd%, wrt$)
CALL ibrd(bd%,
IF LEFT$(t$, ibcnt%) <> "#B0" THEN
noerror = 1
LOCATE 12, 10: PRINT "Walking One 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"
6-9
Summary of Contents for 7064
Page 2: ...Racal Instruments...
Page 6: ...I 1 1 1 1 1...
Page 21: ...I 1 I I I I I I I I I 1 1 I I I I I I...
Page 29: ...I I I I I I I I I I I I I I I I I I I...
Page 57: ...1 I I I I I I I I I I I I I I I I I I...
Page 77: ...1...
Page 111: ...0 00 0 00 tI I 4 0 0 I7 r i 6 4 7 4 7 0 T 6 0 0 7 28...
Page 112: ......
Page 113: ...7 30 I I I 1 I I I I I I I I I I I I I I I...
Page 115: ...7 32...
Page 148: ......
Page 164: ...I I I I I I I I I I 1 I I I I I I I I...
Page 176: ...extern char error_msg_lookup unsigned errdes endif ERROR_INCLUDE C 8...