HP E1340A User Manual page 276

276 HP E1340A Register-Based Programming
1550 SUBEND
1560 !
1570 SUB Burst(Coun)
1580 Burst: !Subprogram which sets the burst (cycle) count
1590 COM Base_addr
1600 C$=DVAL$(Coun,16)
1610 !
1620 !Load burst count
1630 Write_reg(8,8)
1640 Write_reg(10,IVAL(C$[5;2],16)) !burst count
1650 Write_reg(10,IVAL(C$[7;2],16)) !burst count
1660 Check_done
1670 SUBEND
1680 !
1690 SUB Mode(Out_lvl,In_lvl,Clock_source,Aux_out,Ram_bank,Freq_reg,Mode)
1700 Mode: !Subprogram which sets the output mode
1710 COM Base_addr
1720 Clock=0
1730 Out_mode=0
1740 SELECT Out_lvl
1750 CASE 1
1760 Clock=Clock+128
1770 END SELECT
1780 !
1790 SELECT In_lvl
1800 CASE 1
1810 Clock=Clock+64
1820 END SELECT
1830 !
1840 SELECT Clock_source
1850 CASE 0
1860 Clock=Clock+1
1870 CASE 1
1880 Clock=Clock+9
1890 CASE 2
1900 Clock=Clock+16
1910 CASE 3
1920 Clock=Clock+24
1930 CASE 4
1940 Clock=Clock+32
1950 END SELECT
!Aux out signal inverted
!Invert signal in to Aux In
!External
!Gated
!Burst
!Internal (default)
!Input Data Register
Appendix C