CHAPTER 4 PROGRAMMING TECBNIQUES
41
4. PROGRAMMING TECBNIQUES
4.1. Interactive Data Transfer
10
'FILE NAME : EXAMPLE.1
20
'Program Example : INTERACTIVE DATA TRANSFER
40
'Purpose : This program outputs data strings entered by
50
users and enters data from the IEEE-488 bus.
70
'
80
'Initialization
90'
100
LIN.Y=1 : KEY OFF : CLS
110
DEF SEG=&BD000
120
ABORT%=9 : OUTPUTi=3 : ENTER%=6 : STATUS%=42
130
CALL ABORT’
140
'
150
'Command entry point
160
170
KEY(1) ON : KEY(2) ON : KEY(3) ON : KEY(4) ON : KEY(5) OFF
180
KEY(6) OFF: KEY(7) OFF: KEY(8) OFF: KEY(9) OFF: KEY(10) OFF
190
KEY 1 CLS .KEY 2 0UTPUT ¥KEY
200
KEY 5 .KEY 6.KEY 73 ENTER KEY 4 EXIT
210
KEY 9,” “:KEY 10,”
220
ON KEY(1) GOSUB 390
230
ON REY(2) GOSUB 440
240
ON KEY(3) GOSUB 560
250
ON KEY(4) GOSUB 810
260
'
270
GOSUB 330
280
KEY ON
290
GOTO 290 ‘Loop here waiting function key
310
'Display message
320
'
330
COLOR 15,7:LOCATE 22,1,0:PRINT “ “;SPACE$(79):LOCATE 22,1
340
PRINT “Select function key l”:COLOR 7,0:LOCATE 1,1
350
RETURN
360
'
370
'Clear Screen
380
'
390
CLS:GOSUB 330
400
RETURN
410
'
Содержание PCL-848A/B
Страница 1: ...PCL 848A B MULTIFUNCTION IEEE 488 INTERFACE CARD ...
Страница 5: ...10 ASCII TABLE 74 11 NEC7210 RBAD WRITE REGISTSR 76 12 SUMMARY OF TBE IEEE 488 LIBRARY FUNCTIONS 77 ...
Страница 6: ...Figures Fig 2 2 Location of switches and jumpers 4 Fig 7 1 PCL 848A B Block Diagram 59 ...
Страница 65: ...CHAPTER 7 TBEORY OP OPERATION 59 Fig 7 1 PCL 848A B Block Diagram ...
Страница 76: ...70 PCL 848AB User s Manual ...
Страница 78: ...72 PCL 848AB User s Manual Handshake Timing Sequence ...