![background image](http://html2.mh-extra.com/html/racal-instruments/7064/7064_instruction-manual_3127022073.webp)
LOCATE 22, 1: PRINT "press any key to continue"
C$ = INKEY$: W H I L E C$ = "": C$ = INKEY$: W E N D
RETURN
findit:
Udname$ = " V X I T E C H "
C A L L IBFIND(Udname$, bd%)
IF bd% < 0 THEN
CLS
LOCATE 10, 10: PRINT "Unable to locate or communicat with the V T-1"
LOCATE 1 1, 10: PRINT "Check power and setup"
STOP
END 1F
RETURN
finditl:
Udname$ = "ctr10"
C A L L IBFIND(Udname$, bd%)
IF bd% < 0 THEN
CLS
LOCATE 10, 10: PRINT "Unable to locate or communicat with the Slot 0"
LOCATE 11, 10: PRINT "Check power and setup"
STOP
END IF
RETURN
basevalue:
wrt$ = "base(2);"
C A L L ibwrt(bd%, wrt$)
RETURN
setbit:
FOR V = 0 TO 11
wrt$ = "outportb(" + STR$(V) + ",#hFF);"
C A L L ibwrt(bd%, wrt$)
NEXT V
RETURN
resetbit:
FOR V = 0 TO 11
wrt$ = "outportb(" + STR$(V) + ",0);"
C A L L ibwrt(bd%, wrt$)
NEXT V
RETURN
wrtbit:
wrt$ = "setbit(" + STR$(port) + "," + STR$(bit) + ");"
CALL ibwrt(bd%, wrt$)
RETURN
wrtbit 1:
6-8
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...