home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / underkern (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  969b  |  43 lines
  1. 100 sys999
  2. 110 ;
  3. 120 *= $f000
  4. 130 .obj "underkern"
  5. 140 ;
  6. 150 ;
  7. 160 border = $d020
  8. 170 farjsr = $c803
  9. 180 ;
  10. 190 begin  inc border
  11. 200 :      lda #$ff
  12. 210 :      ldy #$f0   ;want to call plot
  13. 220 :      sty $14
  14. 230 :      sta $15
  15. 240 :      clc        ;will set cursor
  16. 250 :      php        ;irqs not needed
  17. 260 :      pla
  18. 270 :      sta $030f  ;status reg.
  19. 280 :      ldx #$0a   ;row 10
  20. 290 :      ldy #$11   ;col 17
  21. 300 ;
  22. 310 :      jsr regfar ;acc. not needed
  23. 320 ;
  24. 330 :      lda #$bd
  25. 340 :      ldy #$cd   ;basic linprt @ $bdcd
  26. 350 :      sty $14
  27. 360 :      sta $15
  28. 370 :      php        ;no change in status reg.
  29. 380 :      pla
  30. 390 :      sta $030f
  31. 400 :      lda #$ff   ;two-byte interger in x/a
  32. 410 :      tax        ;will print 65535
  33. 420 ;
  34. 430 :      jsr regfar ;.y not needed
  35. 440 ;
  36. 450 :      rts        ;back to far-sys
  37. 460 ;
  38. 470 regfar sta $030c  ;prepare registers
  39. 480 :      stx $030d  ;since we jsr'd here
  40. 490 :      sty $030e  ;we can safely...
  41. 500 :      jmp farjsr
  42. 510 .end
  43.