Write_Reg; Com Base_Addr - HP E1340A User Manual

HP IBASIC (AFGQUERY)
Appendix C
1 !RE-SAVE"AFGQUERY"
2 !Program which queries the AFG parameters.
3 !
10 !Compute the E1340 base address in E1300 A16 address space
20

COM Base_addr

30 Base_addr=DVAL("1FC000",16)+(80*64) !base address
40 !
50 Parm1(60) !one byte parameter query
60 Parm2(58,59) !two byte parameter query
70 Parm4(48,49,50,51) !four byte parameter query
80 END
90 !
100 SUB Parm1(Byte)
110 Parm1: !Subprogram which queries one byte parameters
120 COM Base_addr
130

Write_reg(8,13)

140 Write_reg(10,Byte)
150 Queryrdy
160 Byte=READIO(-9826,Base_addr+8)
170 Byte=BINAND(Byte,255)
180 PRInt Byte
190 SUBEND
200 !
210 SUB Parm2(Byte1,Byte2)
220 Parm2: !Subprogram which queries two byte parameters
230 COM Base_addr
240 Write_reg(8,13)
250 Write_reg(10,Byte1)
260 Queryrdy
270 Byte1=READIO(-9826,Base_addr+8)
280 Byte1=BINAND(Byte1,255)*2^8
290 !
300 Write_reg(8,13)
310 Write_reg(10,Byte2)
320 Queryrdy
330 Byte2=READIO(-9826,Base_addr+8)
340 Byte2=BINAND(Byte2,255)
350 Value=Byte1+Byte2
360 PRInt Value
370 SUBEND
380 !
HP E1340A Register-Based Programming 281