
/
/   MAIN PROGRAM
START  CLA!IAC
       DAC TTYFLG
       705322       /STOP CLOCK
       LAC P10000   /SET 1 SECOND VALUE
       DAC P1SEC
       CMA!IAC
       DAC N1SEC
       DZM INFLAG
       DZM DISFLG
       DZM SAMFLG
       DZM SCHECK
       DZM CLKFLG
       DZM TIMFLG
       DZM BELFLG
       CAF
       ION
       LAC MESS8
       JMS ASPRT
       LAC ARROW
       JMS STRING
START1 LAC INFLAG
       SNA
       JMP .+3
       DZM INFLAG
       JMS CONTRL
       LAC DISFLG
       SZA
       JMS DISPLY
       LAC CLKFLG
       SNA
       JMP START1
       DZM CLKFLG
       LAC TIMFLG
       SZA
       JMS TIMER
       LAC BELFLG
       SNA
       JMP .+3
       LAC BELL
       JMS TYPE
       LAC SAMFLG
       SZA
       JMS SAMPLE
       JMP START1
BELL   207
/
/
/CHARACTER COMMAND TABLES.
TABAD1 TABLE1+1
TABLE1 TABLE1+1
       301   /A
       323   /S
       325   /U
       324   /T
       304   /D
LAST1  LAST1
MESS8  MESS8+1
       .SIXBT "   DIGITAL SIGNAL PROCESSOR.@"
/
/ARGUMENT TABLES FOR ALL PROCESSES.
ARGLOC ARGLOC+1
       ARGTAB+1   /SHOULD NEVER BE NEEDED.
       ARG1
       ARG2
       ARG3
       ARG4
       ARG5
/
ARG1   ARGSTP
ARG2   FSAM
       TSAM
       ARGSTP
ARG3   CLKINC
       TIMFLG
       BELFLG
       ARGSTP
ARG4   HRS
       MINS
       SECS
       ARGSTP
ARG5   TDISP0
       RDISP
       DMODE
       ARGSTP
BUFFER 0
       .BLOCK 1000
