home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 April / 64er_Magazin_91-04_1991_Markt__Technik_de_Side_A.d64 / error analyz.src (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  4.3 KB  |  122 lines
  1. 10 poke1,55:sys36864
  2. 20 .opt oo
  3. 30 *= $c000
  4. 100 tmp =2
  5. 102 strout =$ab1e
  6. 104 konf =1
  7. 106 alt =42115
  8. 108 altl =$a71a
  9. 110 syntax =44808
  10. 112 outmem =42037
  11. 114 illquan =$b248
  12. 116 error =42039
  13. 1000 lda konf:and #3:cmp #3:bcc fertig
  14. 1001 ldy #0:sty tmp:lda #160:sta tmp+1:ldx #32
  15. 1002 copyrom lda (tmp),y:sta (tmp),y:iny:bne copyrom:inc tmp+1:dex:bne copyrom
  16. 1004 ldx #0
  17. 1006 copyp lda rompos,x:sta tmp:lda rompos+1,x:sta tmp+1:beq fertig:ldy #0
  18. 1008 lda #76:sta (tmp),y:lda rampos,x:iny:sta (tmp),y
  19. 1010 lda rampos+1,x:iny:sta (tmp),y:inx:inx:bne copyp
  20. 1012 fertig lda konf:and #252:ora #2:sta konf
  21. 1014 lda #5:sta $b78f:lda #144:sta $a740:lda #1:sta $a369
  22. 1016 lda #<hi:ldy #>hi:jmp strout
  23. 1020 hi .asc "[147]   ***  error analyzer v2.0  c64  ***
  24. 1022 .byt 13
  25. 1024 .[198] " by nikolaus heusler  (c) nh-250490-arr":.byt 13,0
  26. 1100 rom[185] .w[176] $a471,$a6d4,$a851,$b0c8,$a3fb
  27. 1102 .w[176] $aeff,$b7a4,$a807,$ad9b,$ab02,$b1c9,$b1bb
  28. 1104 .w[176] $b7f7,$adcb,$b441,$b9f1,$ab5f,$a953,$a97b
  29. 1106 .w[176] $aa24,$b09c,$a80b,$b138,0
  30. 1110 ram[185] .w[176] [155]p,cache,[144]f,prozent,stack
  31. 1112 .w[176] [189]ect,less,further,type,bracket,bereich,[185]i
  32. 1114 .w[176] [181]gr,twice,extra2,nega,[161]err,[145],[155]
  33. 1116 .w[176] tei,[136],[136],rvar
  34. 1200 t1 .[198] "% variables disallowed":brk
  35. 1202 t2 .[198] "stack overflow":brk
  36. 1204 t3 .[198] " expected":brk
  37. 1206 t4 .[198] "must be 255 or less":brk
  38. 1208 t5 .[198] "extra characters":brk
  39. 1210 t6 .[198] "string expected":brk
  40. 1212 t7 .[198] "numeric type expected":brk
  41. 1214 t8 .[198] "missing )":brk
  42. 1216 t9 .[198] "must be -32768 to 32767":brk
  43. 1218 ta .[198] "must be positive":brk
  44. 1220 tb .[198] "must be 0 to 65535":brk
  45. 1222 tc .[198] "operator used twice":brk
  46. 1224 td .[198] "number expected":brk
  47. 1226 te .[198] "goto or gosub expected":brk
  48. 1228 tf .[198] "must be 63999 or less":brk
  49. 1230 tg .[198] "ti$ format wrong":brk
  50. 1232 th .[198] "letter expected":brk
  51. 1234 ti .[198] "reserved variable":brk
  52. 2000 [155]p jsr $bdc2:lda 122:sta mem:lda 123:sta mem[170]1
  53. 2004 lda #[179]neu:sta 770:lda #[177]neu:sta 771:jmp $a474
  54. 2006 mem .w[176] 0
  55. 2007 mm brk
  56. 2008 merk brk
  57. 2009 flag brk
  58. 2010 neu lda #[179]alt:sta 770:lda #[177]alt:sta 771
  59. 2011 lda #"on":jsr $ffd2:jsr $ffd2:lda #0:sta 211
  60. 2012 lda #[179][155]neu:sta 774:lda #[177][155]neu:sta 775:lda #96:sta $a714
  61. 2013 lda 57:sta 20:lda 58:sta 21:jsr $a613:lda #0:sta flag:jsr $a6c9
  62. 2015 jsr $e701:lda merk:sta 211:lda #76:sta $a714
  63. 2016 lda #[179]altl:sta 774:lda #[177]altl:sta 775
  64. 2017 lda #1:sta 198:lda #"":sta 631:lda #"on":jsr $ffd2:jmp (770)
  65. 2020 [155]neu php:pha:tya:clc:adc $5f:pha:lda $60:adc #0:sta mm
  66. 2022 pla:cmp mem:bne aeae:lda mm:cmp mem[170]1:bne aeae
  67. 2024 lda 211:sta merk:inc flag
  68. 2026 aeae pla:plp:jmp altl
  69. 2050 [144]f jsr strout:ldy 58:iny:beq l3:jsr 48578
  70. 2052 l3 jmp 42100
  71. 2100 cache lda flag:bne wars:lda 211:sta merk
  72. 2102 wars jsr $aad7:jmp $a6d7
  73. 2200 init jsr $ffcc:lda #0:sta 19:jsr $aad7:inc 199:rts
  74. 2300 prozent lda 16:bne lab3:jmp 45260
  75. 2302 lab3 jsr init:lda #[179]t1:ldy #[177]t1
  76. 2304 syn jsr strout:jmp syntax
  77. 2350 stack asl:adc #58:bcs l8:sta 34:tsx:cpx 34:bcc l8:rts
  78. 2352 l8 jsr init:lda #[179]t2:ldy #[177]t2:jsr strout:jmp outmem
  79. 2400 [189]ect ldy #0:cmp (122),y:bne la3:jmp 115
  80. 2402 la3 pha:jsr init:pla:cmp #178:beq est:cmp #$a7:beq t[167]:cmp #$a4:beq t[203]
  81. 2403 cmp #165:bne out:lda #"f":jsr $ffd2
  82. 2404 lda #"n":.byt $2c
  83. 2406 est lda #"=
  84. 2408 out jsr $ffd2
  85. 2410 lda #<t3:ldy #>t3
  86. 2411 xsyn bne syn
  87. 2412 tthen lda #"t":jsr $ffd2:lda #"h":jsr $ffd2:lda #"e":jsr $ffd2:lda #"n
  88. 2414 bne out
  89. 2416 t[203] lda #"t":jsr $ffd2:lda #"o":bne out
  90. 2450 less ldx $64:bne wr[145]g:jmp $b7a8
  91. 2452 wr[145]g jsr init:lda #[179]t4:ldy #[177]t4
  92. 2454 ill jsr strout:jmp illquan
  93. 2500 further cmp #58:bne extra:jmp $a7e1
  94. 2502 extra jsr init:lda #[179]t5:ldy #[177]t5
  95. 2504 qsyn bne xsyn
  96. 2510 extra2 jsr $79:bne extra:jmp $b449
  97. 2550 type php:jsr init:plp:bcc numeric
  98. 2552 lda #[179]t6:ldy #[177]t6:bne s[164]ut
  99. 2554 numeric lda #[179]t7:ldy #[177]t7
  100. 2556 s[164]ut jsr strout:ldx #22:jmp err[176]
  101. 2600 bracket cmp #")":bne neinkl:jmp 43782
  102. 2602 neinkl jsr init:lda #[179]t8:ldy #[177]t8
  103. 2604 bne qsyn
  104. 2650 bereich jsr 48219:bne nix:jmp 48283
  105. 2652 nix jsr init:lda #[179]t9:ldy #[177]t9:bne ill
  106. 2700 [185]i lda $66:bmi nega:jmp $b1bf
  107. 2702 nega jsr init:lda #[179]ta:ldy #[177]ta:bne ill
  108. 2750 [181]gr lda $66:bmi fal:lda $61:cmp #$91:bcs fal
  109. 2752 jmp $b801
  110. 2754 fal jsr init:lda #[179]tb:ldy #[177]tb:bne ill
  111. 2800 twice cmp $4d:bcc eheh:jmp $adcf
  112. 2802 eheh jsr init:lda #[179]tc:ldy #[177]tc
  113. 2804 qqsyn bne qsyn
  114. 2850 [161]err jsr init:lda #[179]td:ldy #[177]td:bne qqsyn
  115. 2900 [145] cmp #$89:bne fehlt:jmp $a957
  116. 2902 fehlt jsr init:lda #[179]te:ldy #[177]te:bne qqsyn
  117. 2950 [155] cmp #$19:bcs great:jmp $a97f
  118. 2952 great jsr init:lda #[179]tf:ldy #[177]tf:bne qqsyn
  119. 3000 tei jsr init:lda #[179]tg:ldy #[177]tg:jmp ill
  120. 3050 [136] jsr init:lda #[179]th:ldy #[177]th:bne qqsyn
  121. 3100 rvar jsr init:lda #[179]ti:ldy #[177]ti:bne qqsyn
  122.