%QCRLT JMS CTECH LAC ROOT DAC OPTION SKP %CRLT JMS CTECH TLS+10 LAW 1 DAC CFLAG LAC XLOWS TAD (3 DAC CVEC# LAC XLIM TCA TAD (3 DAC SPCNT# LAC XLOW DAC ADCNT# JMS SETTER ROOTS JMS TERRIER ISZ ADCNT ISZ RTADDR ISZ RTCNT JMP ROOTS JMS SETTER CRST DZM AREG# DZM BREG# LAC RTADDR DAC MSTAD# TAD (3 DAC FSTAD# LAW -2 DAC FCNT# LAW -10 DAC MCNT# LAC RTCNT DAC TEMRT# NEG LAC* MSTAD TAD BREG DAC BREG LAC MSTAD SAD FSTAD JMP POS COMMON ISZ MCNT JMP MCHEK LAW -3 DAC RMIN# LAC BREG CLL RCR ISZ RMIN JMP .-2 TCA TAD AREG DAC* CVEC ISZ ADCNT JMS TERRIER ISZ RTCNT JMP AFGHAN LAW -10 DAC RTCNT AFGHAN LAC RTCNT TAD (70 DAC RTADDR ISZ CVEC ISZ SPCNT JMP CRST LAC (740000 DAC OPTION LAC (207 JMS WRITE JMP DPY SETTER 0 LAW -10 DAC RTCNT# LAC (60 DAC RTADDR# JMP* SETTER TERRIER 0 LAC* ADCNT OPTION NOP DAC* RTADDR JMP* TERRIER MCHEK ISZ TEMRT JMP TCHEK LAW -10 DAC TEMRT LAC (60 DAC MSTAD LAW -10 TAD FSTAD DAC FSTAD JMP NEG TCHEK ISZ MSTAD JMP NEG POS LAC* FSTAD TAD AREG DAC AREG ISZ FCNT JMP FCHEK LAC AREG CLL RAR DAC AREG JMP COMMON FCHEK ISZ FSTAD JMP COMMON ROOT JMS SQRT .EOT DAC #CHN#