noerror = 0
LOCATE 2, 26: PRINT "CARD ADDRESS TEST"
FOR bits = 0 TO 4
IF bits = 0 THEN bit$ = "all bits OFF": digits = 0
IF bits = 1 THEN bit$ = "bit 1 ON, all others OFF": digits = 8
IF bits = 2 THEN bit$ = "bit 2 ON, all others OFF": digits = 4
IF bits = 3 THEN bit$ = "bit 3 ON, all others OFF": digits = 2
IF bits = 4 THEN bit$ = "bit 4 ON, all others OFF": digits = 1
LOCATE 12, 10: PRINT "Verify Card Address switch SW1 is set to "; bit$
GOSUB pauseroutine
CLS
LOCATE 2, 26: PRINT "CARD ADDRESS TEST"
GOSUB findit
FOR card = 0 TO 15
wrt$ = "coutportb(" + STR$(card) + ",0,#H22);"
wrtl$ = "cinportb(" + STR$(card) + ",0);"
CALL ibwrt(bd%, wrt$)
CALL ibwrt(bd%, wrtl$)
CALL ibrd(bd%, t$)
CLS
LOCATE 2, 26: PRINT "CARD ADDRESS TEST"
IF LEFT$(t$, ibcnt%) <> "255" THEN
IF STR$(digits) <> STR$(card) THEN GOSUB crderror
END IF
NEXT card
NEXT bits
CLS
LOCATE 2, 26: PRINT "CARD ADDRESS TEST"
LOCATE 10, 10: PRINT "Set all bits to OFF. "
IF noerror = 0 THEN LOCATE 20, 10: PRINT "Card Address Test Passed"
IF noerror = 1 THEN LOCATE 20, 10: PRINT "Card Address Test Failed"
GOSUB pauseroutine
t = 0
RETURN
RESETTEST:
KEY OFF
CLS
LOCATE 2, 26: PRINT "MODULE RESET TEST"
LOCATE 12, 10: PRINT "With power off, verify JP1 is between pins 1 and 2"
LOCATE 13, 10: PRINT "Turn power on"
GOSUB pauseroutine
CLS
6-4
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...