LOCATE 2, 26: PRINT "MODULE RESET TEST"
GOSUB findit
GOSUB basevalue
E = 0
FOR port = 0 TO 11
wrt$ = "inportb(" + STR$(port) + ");"
CALL ibwrt(bd%, wrt$)
CALL ibrd(bd%, t$)
' PRINT "PORT"; port, t$
IF LEFT$(t$, ibcnt%) <> "#B11111111" THEN GOSUB rderror
NEXT port
'LOCATE 20, 10: PRINT "Verify all PORTS and BITS HIGH"
'GOSUB pauseroutine
' CLS
E = 1
FOR port = 0 TO 11
wrt$ = "outportb(" + STR$(port) + ",0);"
wrtl$ = "inportb(" + STR$(port) + ");"
CALL ibwrt(bd%, wrt$)
CALL ibwrt(bd%, wrtl$)
CALL ibrd(bd%, t$)
'PRINT "PORT"; port, t$
IF LEFT$(t$, ibcnt%) <> "#BO" THEN GOSUB rderror
NEXT port
' LOCATE 20, 10: PRINT "Verify all PORTS and BITS LOW"
' GOSUB pauseroutine
' CLS
' LOCATE 13, 10: PRINT "Turn power OFF and then ON"
' GOSUB pauseroutine
' CLS
GOSUB finditl
wrt$ = "SysReset"
CALL ibwrt(bd%, wrt$)
' GOSUB basevalue
SLEEP 7
GOSUB findit
GOSUB basevalue
E = 0
FOR port = 0 TO 11
wrt$ = "inportb(" + STR$(port) + '');"
CALL ibwrt(bd%, wrt$)
CALL ibrd(bd%, t$)
'PRINT "PORT"; port, t$
IF LEFT$(t$, ibcnt%) <> "#B11111111" THEN GOSUB rderror
6-5
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...