10 SYS36864 20 .OPT OO 30 *= 52000 100 CG =115 102 RB =820 800 LDA ONOFF:EOR #128:STA ONOFF:BMI EIN:JMP 58451 900 EIN LDA #NEUEVL:STA $30A:STY $30B 902 LDA #NEUBEF:STA $308:STY $309 904 LDA #HI:JMP $AB1E 1000 HI .BYT 13:.ASC "NUMERIC CONVERTER 1.0":.BYT 13 1002 .ASC "BY N. HEUSLER 04.91":.BYT 13,0 1100 ERR1 .ASC "BAS[197] 1200 ROTAB .[198] "MDCLXVI 1202 WERT .WOR 1000,500,100,50,10,5,1 1204 FLPK .BYT $70,$27,$C5,$AC,$48 1206 FLP1000 .BYT $8A,$7A,0,0,0 1208 WETAB .WOR 900,800,700,600,500,400,300,200,100 1210 .WOR 90,80,70,60,50,40,30,20,10 1212 .WOR 9,8,7,6,5,4,3,2,1 1220 ROTXT .ASC "C[205]DCC[195]DC[195]D[195][196]C[196]CC[195]C[195][195]X[195]LXX[216]LX[216]L[216][204] 1222 .[198] "X(null)XX(null)X(null)(null)I(null)VIIRIGHT$VIRIGHT$VRIGHT$(null)I(null)IIRIGHT$IRIGHT$RIGHT$ 1900 BASE BRK:BRK:BRK:BRK:BRK 1902 TMP BRK 1904 LAST .WOR 0 1906 FLP BRK:BRK:BRK:BRK:BRK 1908 PTR BRK 1910 ONOFF BRK 1912 HELP BRK:BRK:BRK:BRK:BRK 2000 NEUEVL LDA #0:STA $D 2010 JSR CG:CMP #"[":BEQ BELIN 2012 CMP #"$":BNE NO16:LDX #16:BNE SB 2014 NO16 CMP #"%":BNE NO2:LDX #2:BNE SB 2016 NO2 CMP #"&":BNE NO8:LDX #8:BNE SB 2018 NO8 CMP #"!":BEQ ROM 2090 JSR 121:JMP $AE8D 2092 SB JSR CG:JMP SB2 2100 BELIN JSR $B79B:LDA #"]":JSR $AEFF 2102 SB2 CPX #1:BEQ RO1:TXA:BNE BE1 2104 BE2 LDA #ERR1:JMP 42053 2106 BE1 CPX #37:BCS BE2:JSR SETBASE 2108 JSR FAC0 2120 BE3 JSR 121:BCC BE4:CMP #"A":BCC BE5:CMP #"Z"+1:BCS BE5:SBC #6 2122 BE4 SEC:SBC #48:CMP TMP:BCS BE5:PHA 2124 LDA $61:BEQ BE6:LDA #BASE:JSR $BA28 2126 BE6 JSR CG:PLA:BEQ BE3:JSR $BD7E:JMP BE3 2130 BE5 JMP 121 2200 ROM JSR CG 2202 RO1 LDX #0:STX LAST:STX LAST+1 2204 RO2 JSR 121:LDY #0 2206 RO3 CMP ROTAB,Y:BEQ RO4:INY:CPY #7:BCC RO3:BCS RO5 2208 RO4 TYA:ASL:STA RB,X:JSR CG:INX:BNE RO2 2210 RO5 STX TMP:JSR FAC0 2220 RO7 LDA TMP:BEQ RO6:DEC TMP:LDX #BASE:JSR $BBD4 2222 LDX TMP:LDY RB,X:TYA:PHA:PHA:LDX WERT,Y:LDA WERT+1,Y:JSR XAFAC:PLA:TAY 2232 LDA WERT+1,Y:CMP LAST+1:BCC RO8:BNE RO9:LDA WERT,Y:CMP LAST:BCS RO9 2234 RO8 JSR $BFB4 2236 RO9 LDA #BASE:JSR $B867 2238 PLA:TAY:LDA WERT,Y:STA LAST:LDA WERT+1,Y:STA LAST+1 2240 JMP RO7 2290 RO6 JMP 121 3002 XAFAC STX $63:STA $62:LDX #$90:SEC:JMP $BC49 3010 FAC0 LDA #0:LDX #10 3012 F0 STA $5D,X:DEX:BPL F0:RTS 3020 SETBASE STX TMP:LDA #0:JSR XAFAC:LDX #BASE:JMP $BBD4 4000 NEUBEF JSR CG:CMP #$99:BEQ DPRINT:JSR 121:JMP $A7E7 4001 DPRINT JSR CG:JSR PRINT:JMP $A7AE 4002 PRINT CMP #$91:BEQ ON:JSR 121:JMP $AAA0 4004 ON JSR CG:LDA #"[":JSR $AEFF:JSR $B79E:TXA:BNE ON1 4006 ON2 JMP BE2 4008 ON1 CPX #37:BCS ON2 4009 JSR SETBASE:LDA #"]":JSR $AEFF:LDA #3:JSR $A3FB:LDX #5 4010 RE1 LDA BASE,X:PHA:DEX:BPL RE1 4014 JSR $AD8A:LDX #0 4015 RE2 PLA:STA BASE,X:INX:CPX #6:BCC RE2 4016 LDA $66:BPL ON3:JSR $BFB4:LDA #"-":.BYT $2C 4018 ON3 LDA #32:JSR $FFD2:JSR $B849:JSR $BCCC:LDA #0:STA PTR 4019 LDX TMP:CPX #1:BEQ ROMAN 4020 ON4 LDA #BASE:JSR $BC5B:BMI ON6 4022 LDX #HELP:JSR $BBD4:LDA #BASE:JSR $BBA2 4023 LDA #HELP:JSR $BB0F 4024 LDX #FLP:JSR $BBD4 4026 JSR $BCCC:LDA #FLP:JSR $B850 4028 LDA #BASE:JSR $BA28:JSR ZIFF 4030 LDA #FLP:JSR $BBA2:JSR $BCCC:JMP ON4 4040 ON6 JSR ZIFF:LDX PTR:DEX 4042 ON7 LDA RB,X:JSR $FFD2:DEX:BPL ON7 4044 EOP JSR 121:JMP PRINT 4100 ROMAN =* 4110 RM1 LDA #FLP1000:JSR $BC5B:BEQ RM3:BMI RM2 4112 RM3 LDA #"M":JSR $FFD2:LDA #FLP1000:JSR $B850 4114 JSR $BFB4:JMP RM1 4116 RM2 LDX #0 4118 RM4 STX PTR:JSR $BC9B 4120 LDA PTR:ASL:TAX:LDA $64:CMP WETAB+1,X:BCC RM5:BNE RM6 4122 LDA $65:CMP WETAB,X:BCC RM5 4124 RM6 LDX PTR:STX FLP:LDY #-1 4126 RM7 DEC FLP:BMI RM8 4128 RM9 INY:LDA ROTXT,Y:BPL RM9:BMI RM7 4130 RM8 INY:LDA ROTXT,Y:PHA:AND #127:JSR $FFD2:PLA:BPL RM8 4132 LDA PTR:ASL:TAX:LDA $65:SEC:SBC WETAB,X:STA $65:LDA $64:SBC WETAB+1,X 4134 STA $64:BCC RMA 4136 RM5 LDA $64:ORA $65:BEQ RMA:LDX $65:LDA $64:JSR XAFAC 4138 LDX PTR:INX:CPX #27:BCC RM4 4140 RMA JMP EOP 4200 ZIFF LDA #FLPK:JSR $B867 4202 JSR $BC9B:LDA $65:CMP #10:BCC ZI1:ADC #6 4204 ZI1 CLC:ADC #48:LDX PTR:INC PTR:STA RB,X:RTS 4300 C LDX #F:JSR $BBD4 4302 LDY #0:JSR $BDD7:JSR $AAD7:LDA #F:JMP $BBA2 4304 F =*