home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #12
/
Commodore_Disk_User_Vol.4_12_1991_-.d64
/
primm.src
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
448b
|
34 lines
1000 *=$c100
1010 ;
1020 primm sta xprastore
1030 stx xprxstore
1040 sty xprystore
1050 pla
1060 sta $fb
1070 pla
1080 sta $fc
1090 inc $fb
1100 bne xpr3
1110 inc $fc
1120 xpr3 ldy #0
1130 xpr1 lda ($fb),y
1140 beq xpr4
1150 jsr $ffd2
1160 inc $fb
1170 bne xpr2
1180 inc $fc
1190 xpr2 jmp xpr1
1200 xpr4 lda $fc
1210 pha
1220 lda $fb
1230 pha
1240 lda xprastore
1250 ldx xprxstore
1260 ldy xprystore
1270 rts
1280 ;
1290 xprastore byt 0
1300 xprxstore byt 0
1310 xprystore byt 0
1320 ;