home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_12_1986_Transactor_Publishing.d64 / centre (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  631b  |  43 lines
  1. 0 rem centre (sept 4/84)              :
  2. 1 :
  3. 2 rem  1 statement, 0 functions
  4. 3 :
  5. 4 rem keyword characters:  6
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem centre      cntr     4144    049
  9. 8 :
  10. 9 rem ================================
  11. 10 :
  12. 112 .asc "centr[197]"
  13. 1112 .word cntr-1
  14. 4144 cntr jsr $ad9e
  15. 4146 jsr $b6a3
  16. 4148 tay
  17. 4150 pha
  18. 4152 ldx #0
  19. 4154 ce1 dey
  20. 4156 cpy #$ff
  21. 4158 beq ce2
  22. 4160 lda ($22),y
  23. 4162 and #$7f
  24. 4164 cmp #$20
  25. 4166 bcc ce1
  26. 4168 inx
  27. 4170 bne ce1
  28. 4172 ce2 txa
  29. 4174 sec
  30. 4176 sbc #$29
  31. 4178 bcs ce4
  32. 4180 eor #$ff
  33. 4182 lsr
  34. 4183 ldx $d3
  35. 4184 cpx #$28
  36. 4185 bcc ce3
  37. 4186 adc #$27
  38. 4187 ce3 sta $d3
  39. 4188 pla
  40. 4189 jmp $ab24
  41. 4190 ce4 jmp $a571
  42. 4192 ;
  43.