 
/
/   SUBROUTINE TO INITIALIZE AND START CLOCK.
CLKSET 0
       DAC CLKBUF   /STORE CLOCK INCREMENT
       705322      /STOP CLOCK
       705222      /LOAD AC BUFFER
       705324      /LOAD CLOCK
       705342      /CLEAR CLOCK FLAG
       DZM CLKFLG
       705321      /START CLOCK
       JMP* CLKSET
CLKBUF 0
/
/   REAL TIME SAMPLE SUBROUTINE.
SAMPLE 0
       LAC ADCFLG
       SNA
       JMP .-2     /ADC NOT READY
       DZM ADCFLG
       701532      /READ ADC BUFFER IN 2'S COMPLEMENT
       701502      /INITIATE ADC FOR NEXT SAMPLE
       CMA!IAC     /NEGATE TO MATCH DAC
       DAC* SAMBUF /STORE
       ISZ SAMBUF
       ISZ SAMCNT
                   /CHECK IF TIME TO STOP.
       LAC SAMCNT
       CMA!IAC
       TAD NSAM
       SMA!SZA
       JMP* SAMPLE /CONTINUE
       DZM SAMFLG  /END OF SAMPLE
       LAC MESS2
       JMS ASPRT
       LAC BELL
       JMS TYPE
       LAC EOL
       JMS STRING
       LAC DISFLG    /IS DISPLAY IN ACTION?
       SZA
       JMS COMND5    /YES, UPDATE DISPLAY PARAMETERS
       LAC ARROW
       JMS STRING
       JMP* SAMPLE
MESS2  MESS2+1
       .SIXBT "   END OF SAMPLE.@"
SAMCNT 0
SAMBUF BUFFER
SAMFLG 0