home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / place (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  92 lines
  1. 0 rem place (m. phillips 3/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/place(  nst     6398    081
  9. 8 :
  10. 9 rem ===============================
  11. 10 :
  12. 614 .asc "place" : .byte $a8
  13. 1614 .word nst-1
  14. 6398 nst lda #2     
  15. 6400 jsr $a3fb
  16. 6402 lda #0         
  17. 6404 pha
  18. 6406 jsr $ad9e      
  19. 6408 bit $0d        
  20. 6410 bmi nst2       
  21. 6412 jsr $b7a1      
  22. 6414 jsr $aefd      
  23. 6416 pla            
  24. 6418 txa            
  25. 6420 bne nst1       
  26. 6422 jmp $b248      
  27. 6424 nst1 dex
  28. 6426 txa
  29. 6428 pha
  30. 6430 jsr $ad9e      
  31. 6432 nst2 jsr $b6a3 
  32. 6434 sta t3         
  33. 6436 pha            
  34. 6438 txa            
  35. 6440 pha
  36. 6442 tya
  37. 6444 pha
  38. 6446 lda t3         
  39. 6448 jsr $b47d
  40. 6450 jsr $79        
  41. 6452 jsr $aefd      
  42. 6454 jsr $ad9e      
  43. 6456 jsr $b6a3      
  44. 6457 tax
  45. 6458 beq nst6       
  46. 6459 sta t4
  47. 6460 jsr $79
  48. 6462 jsr $aef7      
  49. 6464 pla            
  50. 6466 sta $25        
  51. 6468 pla
  52. 6470 sta $24
  53. 6472 pla
  54. 6473 beq nst6       
  55. 6474 sta t3         
  56. 6476 pla
  57. 6478 sta t2         
  58. 6480 sta t5         
  59. 6482 lda t3         
  60. 6484 cmp t2         
  61. 6486 beq nst6
  62. 6488 bcc nst6
  63. 6490 sbc t4         
  64. 6492 bcc nst6       
  65. 6494 sta t6         
  66. 6496 nst3 clc       
  67. 6498 lda $24        
  68. 6500 adc t5         
  69. 6502 sta $24
  70. 6504 bcc nst4
  71. 6506 inc $25
  72. 6508 nst4 ldy #1    
  73. 6510 sty t5         
  74. 6512 dey              
  75. 6514 nst5 lda ($24),y 
  76. 6516 cmp ($22),y    
  77. 6518 bne nst7       
  78. 6520 iny            
  79. 6522 cpy t4         
  80. 6524 bne nst5       
  81. 6526 ldy t2         
  82. 6528 iny
  83. 6530 .byte $2c      
  84. 6532 nst6 ldy #0    
  85. 6534 jmp $b3a2      
  86. 6536 nst7 lda t2    
  87. 6538 cmp t6         
  88. 6540 bcs nst6       
  89. 6542 inc t2         
  90. 6544 bne nst3       
  91. 6546 ;
  92.