badell CBRK DFB 51 ASC "Bad Arc" BRK ellcom JSR gtintA LDA #0 STA &600 LDA #&FF STA &6F LDA &2B ORA &2C ORA &2D BNE badell LDA &2A BEQ k0 CMP #1 BNE badell k1 LDA #128 STA &600 LDA #80 k0 CLC ADC #5 STA &601 JSR chkcma JSR getrlB LDX #2 LDY #6 JSR cfout JSR chkcma JSR getrlB LDX #7 LDY #6 JSR cfout tarc JSR chkcma JSR getrlB LDX #12 LDY #6 JSR cfout JSR chkcma JSR getrlB LDX #17 LDY #6 JSR cfout JSR fp0 LDX #72 LDY #6 JSR cfout JSR fp1 LDX #67 LDY #6 JSR cfout LDA #32 STA &56 STA &2A LDA #0 STA &2B STA &2C STA &2D JSR citofp JSR recip LDX #>twoPI LDY #twoPI LDY #twoPI LDY #