home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9111a.d64 / num.conv.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  111 lines
  1. 10 SYS36864
  2. 20 .OPT OO
  3. 30 *= 52000
  4. 100 CG =115
  5. 102 RB =820
  6. 800 LDA ONOFF:EOR #128:STA ONOFF:BMI EIN:JMP 58451
  7. 900 EIN LDA #<NEUEVL:LDY #>NEUEVL:STA $30A:STY $30B
  8. 902 LDA #<NEUBEF:LDY #>NEUBEF:STA $308:STY $309
  9. 904 LDA #<HI:LDY #>HI:JMP $AB1E
  10. 1000 HI .BYT 13:.ASC "NUMERIC CONVERTER 1.0":.BYT 13
  11. 1002 .ASC "BY N. HEUSLER 04.91":.BYT 13,0
  12. 1100 ERR1 .ASC "BAS[197]
  13. 1200 ROTAB .[198] "MDCLXVI
  14. 1202 WERT .WOR 1000,500,100,50,10,5,1
  15. 1204 FLPK .BYT $70,$27,$C5,$AC,$48
  16. 1206 FLP1000 .BYT $8A,$7A,0,0,0
  17. 1208 WETAB .WOR 900,800,700,600,500,400,300,200,100
  18. 1210 .WOR 90,80,70,60,50,40,30,20,10
  19. 1212 .WOR 9,8,7,6,5,4,3,2,1
  20. 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]
  21. 1222 .[198] "X(null)XX(null)X(null)(null)I(null)VIIRIGHT$VIRIGHT$VRIGHT$(null)I(null)IIRIGHT$IRIGHT$RIGHT$
  22. 1900 BASE BRK:BRK:BRK:BRK:BRK
  23. 1902 TMP BRK
  24. 1904 LAST .WOR 0
  25. 1906 FLP BRK:BRK:BRK:BRK:BRK
  26. 1908 PTR BRK
  27. 1910 ONOFF BRK
  28. 1912 HELP BRK:BRK:BRK:BRK:BRK
  29. 2000 NEUEVL LDA #0:STA $D
  30. 2010 JSR CG:CMP #"[":BEQ BELIN
  31. 2012 CMP #"$":BNE NO16:LDX #16:BNE SB
  32. 2014 NO16 CMP #"%":BNE NO2:LDX #2:BNE SB
  33. 2016 NO2 CMP #"&":BNE NO8:LDX #8:BNE SB
  34. 2018 NO8 CMP #"!":BEQ ROM
  35. 2090 JSR 121:JMP $AE8D
  36. 2092 SB JSR CG:JMP SB2
  37. 2100 BELIN JSR $B79B:LDA #"]":JSR $AEFF
  38. 2102 SB2 CPX #1:BEQ RO1:TXA:BNE BE1
  39. 2104 BE2 LDA #<ERR1:STA 34:LDA #>ERR1:JMP 42053
  40. 2106 BE1 CPX #37:BCS BE2:JSR SETBASE
  41. 2108 JSR FAC0
  42. 2120 BE3 JSR 121:BCC BE4:CMP #"A":BCC BE5:CMP #"Z"+1:BCS BE5:SBC #6
  43. 2122 BE4 SEC:SBC #48:CMP TMP:BCS BE5:PHA
  44. 2124 LDA $61:BEQ BE6:LDA #<BASE:LDY #>BASE:JSR $BA28
  45. 2126 BE6 JSR CG:PLA:BEQ BE3:JSR $BD7E:JMP BE3
  46. 2130 BE5 JMP 121
  47. 2200 ROM JSR CG
  48. 2202 RO1 LDX #0:STX LAST:STX LAST+1
  49. 2204 RO2 JSR 121:LDY #0
  50. 2206 RO3 CMP ROTAB,Y:BEQ RO4:INY:CPY #7:BCC RO3:BCS RO5
  51. 2208 RO4 TYA:ASL:STA RB,X:JSR CG:INX:BNE RO2
  52. 2210 RO5 STX TMP:JSR FAC0
  53. 2220 RO7 LDA TMP:BEQ RO6:DEC TMP:LDX #<BASE:LDY #>BASE:JSR $BBD4
  54. 2222 LDX TMP:LDY RB,X:TYA:PHA:PHA:LDX WERT,Y:LDA WERT+1,Y:JSR XAFAC:PLA:TAY
  55. 2232 LDA WERT+1,Y:CMP LAST+1:BCC RO8:BNE RO9:LDA WERT,Y:CMP LAST:BCS RO9
  56. 2234 RO8 JSR $BFB4
  57. 2236 RO9 LDA #<BASE:LDY #>BASE:JSR $B867
  58. 2238 PLA:TAY:LDA WERT,Y:STA LAST:LDA WERT+1,Y:STA LAST+1
  59. 2240 JMP RO7
  60. 2290 RO6 JMP 121
  61. 3002 XAFAC STX $63:STA $62:LDX #$90:SEC:JMP $BC49
  62. 3010 FAC0 LDA #0:LDX #10
  63. 3012 F0 STA $5D,X:DEX:BPL F0:RTS
  64. 3020 SETBASE STX TMP:LDA #0:JSR XAFAC:LDX #<BASE:LDY #>BASE:JMP $BBD4
  65. 4000 NEUBEF JSR CG:CMP #$99:BEQ DPRINT:JSR 121:JMP $A7E7
  66. 4001 DPRINT JSR CG:JSR PRINT:JMP $A7AE
  67. 4002 PRINT CMP #$91:BEQ ON:JSR 121:JMP $AAA0
  68. 4004 ON JSR CG:LDA #"[":JSR $AEFF:JSR $B79E:TXA:BNE ON1
  69. 4006 ON2 JMP BE2
  70. 4008 ON1 CPX #37:BCS ON2
  71. 4009 JSR SETBASE:LDA #"]":JSR $AEFF:LDA #3:JSR $A3FB:LDX #5
  72. 4010 RE1 LDA BASE,X:PHA:DEX:BPL RE1
  73. 4014 JSR $AD8A:LDX #0
  74. 4015 RE2 PLA:STA BASE,X:INX:CPX #6:BCC RE2
  75. 4016 LDA $66:BPL ON3:JSR $BFB4:LDA #"-":.BYT $2C
  76. 4018 ON3 LDA #32:JSR $FFD2:JSR $B849:JSR $BCCC:LDA #0:STA PTR
  77. 4019 LDX TMP:CPX #1:BEQ ROMAN
  78. 4020 ON4 LDA #<BASE:LDY #>BASE:JSR $BC5B:BMI ON6
  79. 4022 LDX #<HELP:LDY #>HELP:JSR $BBD4:LDA #<BASE:LDY #>BASE:JSR $BBA2
  80. 4023 LDA #<HELP:LDY #>HELP:JSR $BB0F
  81. 4024 LDX #<FLP:LDY #>FLP:JSR $BBD4
  82. 4026 JSR $BCCC:LDA #<FLP:LDY #>FLP:JSR $B850
  83. 4028 LDA #<BASE:LDY #>BASE:JSR $BA28:JSR ZIFF
  84. 4030 LDA #<FLP:LDY #>FLP:JSR $BBA2:JSR $BCCC:JMP ON4
  85. 4040 ON6 JSR ZIFF:LDX PTR:DEX
  86. 4042 ON7 LDA RB,X:JSR $FFD2:DEX:BPL ON7
  87. 4044 EOP JSR 121:JMP PRINT
  88. 4100 ROMAN =*
  89. 4110 RM1 LDA #<FLP1000:LDY #>FLP1000:JSR $BC5B:BEQ RM3:BMI RM2
  90. 4112 RM3 LDA #"M":JSR $FFD2:LDA #<FLP1000:LDY #>FLP1000:JSR $B850
  91. 4114 JSR $BFB4:JMP RM1
  92. 4116 RM2 LDX #0
  93. 4118 RM4 STX PTR:JSR $BC9B
  94. 4120 LDA PTR:ASL:TAX:LDA $64:CMP WETAB+1,X:BCC RM5:BNE RM6
  95. 4122 LDA $65:CMP WETAB,X:BCC RM5
  96. 4124 RM6 LDX PTR:STX FLP:LDY #-1
  97. 4126 RM7 DEC FLP:BMI RM8
  98. 4128 RM9 INY:LDA ROTXT,Y:BPL RM9:BMI RM7
  99. 4130 RM8 INY:LDA ROTXT,Y:PHA:AND #127:JSR $FFD2:PLA:BPL RM8
  100. 4132 LDA PTR:ASL:TAX:LDA $65:SEC:SBC WETAB,X:STA $65:LDA $64:SBC WETAB+1,X
  101. 4134 STA $64:BCC RMA
  102. 4136 RM5 LDA $64:ORA $65:BEQ RMA:LDX $65:LDA $64:JSR XAFAC
  103. 4138 LDX PTR:INX:CPX #27:BCC RM4
  104. 4140 RMA JMP EOP
  105. 4200 ZIFF LDA #<FLPK:LDY #>FLPK:JSR $B867
  106. 4202 JSR $BC9B:LDA $65:CMP #10:BCC ZI1:ADC #6
  107. 4204 ZI1 CLC:ADC #48:LDX PTR:INC PTR:STA RB,X:RTS
  108. 4300 C LDX #<F:LDY #>F:JSR $BBD4
  109. 4302 LDY #0:JSR $BDD7:JSR $AAD7:LDA #<F:LDY #>F:JMP $BBA2
  110. 4304 F =*
  111.