HP E1340A User Manual page 278

278 HP E1340A Register-Based Programming
2390 END SELECT
2400 !
2410 !Enable waveform output
2420 Write_reg(8,9)
2430 Write_reg(10,Clock)
2440 Write_reg(10,Out_mode)
2450 Check_done
2460 SUBEND
2470 !
2480 SUB Afg_reset
2490 Afg_reset: !Subprogram which resets the AFG
2500 COM Base_addr
2510 WRITEIO -9826,Base_addr+4;2 !inhibit sysfail during reset
2520 WRITEIO -9826,Base_addr+4;3 !reset AFG (sysfail inhibited)
2530 WRITEIO -9826,Base_addr+4;2 !turn reset off (sysfail inhibited)
2540 Check_pass
2550 WRITEIO -9826,Base_addr+4;0 !enable sysfail
2560 SUBEND
2570 !
2580 SUB Write_reg(Reg,Cp_data)
2590 Write_reg: !Subprogram which writes data to command and parameter
2600 !registers
2610 COM Base_addr
2620 Check_ready
2630 WRITEIO -9826,Base_addr+Reg;Cp_data
2640 SUBEND
2650 !
2660 SUB Check_pass
2670 Check_pass: !Monitors completion of reset
2680 REPEAT
2690 CALL Read_status(Pass_fail,Ready,Done)
2700 UNTIL Pass_fail
2710 SUBEND
2720 !
2730 SUB Check_done
2740 Check_done: !Monitors command completion
2750 REPEAT
2760 CALL Read_status(Pass_fail,Ready,Done)
2770 UNTIL Done
2780 SUBEND
2790 !
2800 SUB Check_ready
Appendix C