home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / instring (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  108 lines
  1. 0 rem instring (c. kluepfel, apr/85)  :
  2. 1 :
  3. 2 rem 0 statements,  1 function
  4. 3 :
  5. 4 rem keyword characters:  6
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem f/instr(    instr    6210    080
  9. 8 :
  10. 9 rem ================================
  11. 10 :
  12. 613 .asc "instr": .byte $a8
  13. 1613 .word instr-1
  14. 6210 instr lda #2    
  15. 6212 jsr $a3fb
  16. 6214 jsr $ad9e       
  17. 6216 jsr $b6a3       
  18. 6218 sta t3
  19. 6220 pha             
  20. 6222 txa
  21. 6224 pha             
  22. 6226 tya
  23. 6228 pha             
  24. 6230 lda t3
  25. 6232 jsr $b47d       
  26. 6234 jsr $aefd       
  27. 6236 jsr $ad9e       
  28. 6238 jsr $b6a3       
  29. 6240 stx $22         
  30. 6242 sty $23
  31. 6244 sta t3          
  32. 6246 pla
  33. 6248 sta $25         
  34. 6250 pla             
  35. 6252 sta $24
  36. 6254 pla
  37. 6256 sta t2          
  38. 6258 sta t4          
  39. 6260 dec t4
  40. 6262 ldx #$af        
  41. 6264 jsr $79
  42. 6266 cmp #")"        
  43. 6268 beq ins1        
  44. 6270 jsr $aefd       
  45. 6272 tax             
  46. 6274 jsr $73         
  47. 6276 ins1 jsr $aef7  
  48. 6278 sec
  49. 6280 lda t2          
  50. 6282 beq ins6
  51. 6284 sbc t3          
  52. 6286 ror t6          
  53. 6288 tay             
  54. 6290 lda t3
  55. 6292 beq ins6        
  56. 6294 lda #0
  57. 6296 sta insctr      
  58. 6298 cpx #$af 
  59. 6300 beq ins2
  60. 6302 cpx #$b0 
  61. 6304 beq ins3
  62. 6306 cpx #$a8 
  63. 6308 beq ins3
  64. 6310 jmp $af08       
  65. 6312 ins2 bit t6     
  66. 6314 bpl ins6        
  67. 6316 sty t4          
  68. 6318 ins3 ldy #0     
  69. 6320 ins4 lda ($24),y 
  70. 6322 cpx #$af        
  71. 6324 bne ins9
  72. 6326 cmp ($22),y     
  73. 6328 bne ins7        
  74. 6330 iny             
  75. 6332 cpy t3          
  76. 6334 bne ins4        
  77. 6336 ins5 ldy insctr 
  78. 6338 .byte $2c       
  79. 6340 ins6 ldy #$ff   
  80. 6342 iny
  81. 6344 jmp $b3a2       
  82. 6346 ins7 inc insctr 
  83. 6348 lda t4          
  84. 6350 cmp insctr      
  85. 6352 bcc ins6
  86. 6354 inc $24         
  87. 6356 bne ins8        
  88. 6358 inc $25
  89. 6360 ins8 bne ins3   
  90. 6362 ins9 ldy t3     
  91. 6364 cpx #$a8        
  92. 6366 beq ins11
  93. 6368 ins10 dey       
  94. 6370 cpy #$ff        
  95. 6372 beq ins7        
  96. 6374 cmp ($22),y
  97. 6376 bne ins10       
  98. 6378 beq ins5        
  99. 6380 ins11 dey       
  100. 6382 cpy #$ff        
  101. 6384 beq ins5        
  102. 6386 cmp ($22),y
  103. 6388 bne ins11       
  104. 6390 beq ins7        
  105. 6392 ;
  106. 6394 insctr .byte 0  
  107. 6396 ;
  108.