2580 Sub Write_Reg(Reg,Cp_Data); 2590 Write_Reg: !Subprogram Which Writes Data To Command And Parameter !Registers Com Base_Addr; Check_Ready; Writeio -9826,Base_Addr+Reg;Cp_Data - HP E1340A User Manual

282 HP E1340A Register-Based Programming
390 SUB Parm4(Byte1,Byte2,Byte3,Byte4)
400 Parm4: !Subprogram which queries four byte parameters
410 COM Base_addr
420 Write_reg(8,13)
430 Write_reg(10,Byte1)
440 Queryrdy
450 Byte1=READIO(-9826,Base_addr+8)
460 Byte1=BINAND(Byte1,255)*2^24
470 !
480 Write_reg(8,13)
490 Write_reg(10,Byte2)
500 Queryrdy
510 Byte2=READIO(-9826,Base_addr+8)
520 Byte2=BINAND(Byte2,255)*2^16
530 !
540 Write_reg(8,13)
550 Write_reg(10,Byte3)
560 Queryrdy
570 Byte3=READIO(-9826,Base_addr+8)
580 Byte3=BINAND(Byte3,255)*2^8
590 !
600 Write_reg(8,13)
610 Write_reg(10,Byte4)
620 Queryrdy
630 Byte4=READIO(-9826,Base_addr+8)
640 Byte4=BINAND(Byte4,255)
650 !
660 Value=(Byte1+Byte2+Byte3+Byte4)/100
670 PRInt Value
680 SUBEND
690 !
700 SUB Write_reg(Reg,Cp_data)
710 Write_reg: !Subprogram which writes data to command and parameter
720 !registers
730 COM Base_addr
740

Check_ready

750

WRITEIO -9826,Base_addr+Reg;Cp_data

760 SUBEND
770 !
780 SUB Check_ready
790 Check_ready: !Monitors command and parameter execution
800 REPEAT
Appendix C