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