User`s manual

CHAPTER 3 PROGRAMMING REFERENCE 19
Example:
10 DEF SEG=&HD000 ‘ Define location of firmware :
20 ENTERA%=51 : STATUS%=42 ‘ Define routine offset
.
.
40 ADDR%=8 ‘ GP-IB Device 8 as data source
50 DATASEG%=&u3000 ‘ Put data to this segment
60 LENGTH%=&RFFFF ‘ Set buffer length 65535 byte
70 CALL ENTERA%(ADDR%,DATASEG%,LENGTu%) ‘Enter data
80 CONDITION%=9 : COUNT%=0
90 CALL STATUS%(CONDITION%,COUNT%) ‘Read data length
100 DEF SEG=&u3000 ‘ Define location of data
110 IF COUNT%<0 THEN CNT=655361+COUNT% ELSE CNT=COUNT%
120 FOR I= 1 TO CNT
130 PRINT CER$(PEEK(I-1)); ‘Print the data string
140 NEXT I
150 DEF SEG=&HD000
.
.