home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_12_1986_Transactor_Publishing.d64
/
make
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
495b
|
33 lines
0 rem make (aug 25/84) :
1 :
2 rem 1 statement, 0 functions
3 :
4 rem keyword characters: 4
5 :
6 rem keyword routine line ser #
7 rem make mak 4106 048
8 :
9 rem ================================
10 :
111 .asc "mak[197]"
1111 .word mak-1
4106 mak jsr $b79e
4108 txa
4110 pha
4112 jsr $aefd
4114 jsr $ad9e
4116 jsr $b6a3
4118 tay
4120 pla
4122 sta t3
4124 tya
4126 mak1 ldx t3
4128 beq mak2
4130 dec t3
4132 pha
4134 jsr $ab24
4136 pla
4138 jmp mak1
4140 mak2 rts
4142 ;