' GOSUB pauseroutine
CLS
GOSUB resetbit
LOCATE 2, 26: PRINT "OUTPUT BIT TEST"
LOCATE 20, 10: PRINT "Running Walking One patern"
FOR port = 0 TO 11
RESTORE highbit
IF port >= 1 T H E N
wrt3$ = "outportb(" + STR$(port - 1) + ",0);"
C A L L ibwrt(bd%, wrt3$)
END IF
FOR bit = 0 TO 7
GOSUB wrtbit
GOSUB rdbit
GOSUB rdports
NEXT bit
NEXT port
CLS
GOSUB setbit
LOCATE 2, 26: PRINT "OUTPUT BIT TEST"
LOCATE 20, 10: PRINT "Running Walking Zero patern"
FOR port = 0 TO 11
RESTORE lowbit
IF port >= 1 T H E N
wrt3$ = "outportb(" + STR$(port - 1) + ",0);"
CALL ibwrt(bd%, wrt3$)
END IF
FOR bit = 0 TO 7
GOSUB w r t b i t l
GOSUB rdbitl
GOSUB rdportl
NEXT bit
NEXT port
CLS
LOCATE 2, 26: PRINT "OUTPUT B I T TEST"
IF noerror = 0 THEN PRINT "OUTPUT B I T TEST PASSED"
IF noerror = 1 T H E N PRINT "OUT[UT BIT TEST FAILED"
GOSUB pauseroutine
CLS
t = 0
RETURN
pauseroutine:
' pause routine for subroutines
6-7
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...