home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / printat (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  633b  |  31 lines
  1. 0 rem printat (s. erickson 3/85)      :
  2. 1 :
  3. 2 rem  1 statements, 0 functions
  4. 3 :
  5. 4 rem keyword characters:  6
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem s/print@    prinat   6704    084
  9. 8 :
  10. 9 rem ================================
  11. 10 :
  12. 122 .asc "print" : .byte $c0
  13. 1122 .word prinat-1
  14. 6704 prinat jsr $b79e 
  15. 6708 stx $14          
  16. 6710 cpx #$28         
  17. 6712 bcs prin1
  18. 6714 jsr $aefd        
  19. 6720 jsr $b79e        
  20. 6722 cpx #$19         
  21. 6724 bcs prin1
  22. 6726 ldy $14          
  23. 6728 jsr $fff0        
  24. 6730 jsr $79          
  25. 6732 beq prin2        
  26. 6734 jsr $aefd        
  27. 6736 jmp $aaa0        
  28. 6738 prin1 jmp $b248  
  29. 6742 prin2 rts
  30. 6744 ;
  31.