
       .ABS
       .LOC 0
KSF=700301
KRB=700312
TSF=700401
TCF=700402
TLS=700406
INTRUP 0
       DAC SAVE3
       GLK    /SAVE LINK
       DAC LINK
       JMS SERVIS
       LAC LINK
       RAR
       LAC SAVE3
       ION
       JMP* INTRUP
/
       .LOC 20
SERVIS 0
       KSF
       JMP .+2
       JMS KEYIN
       TSF
       JMP .+2
       JMS TTY
       705341  /CLOCK FLAG
       JMP .+2
       JMS CLOCK
       701501     /ADC FLAG
       JMP .+2
       JMS ADC
       JMP* SERVIS
/
TTY    0
       TCF
       CLA!IAC
       DAC TTYFLG
       JMP* TTY
/
TYPE   0
       DAC SAVE7
       LAC TTYFLG
       SPA!SNA
       JMP .-2
       LAC SAVE7
       TLS
       DZM TTYFLG
       JMP* TYPE
SAVE7  0
TTYFLG 0
/
CLOCK  0
       705342   /CLEAR FLAG
       CLA!IAC
       DAC CLKFLG
       JMP* CLOCK
CLKFLG 0
SAVE3  0
LINK   0
/
ADC    0       /ADC SERVICE ROUTINE
       701532  /CLEAR ADC FLAG
       CLA!IAC
       DAC ADCFLG
       JMP* ADC
ADCFLG 0
