home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_88-08_1988_-_de_Side_A.d64
/
7.20
< prev
next >
Wrap
Text File
|
2023-02-26
|
762b
|
10 lines
X v-p
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCokay lda #J(data) <l-a {$60} sta $fb < v {$60} lda{$60}#G(data) <
{$60}{$60}{$60}{$60}{$60}{$60}sta $fc <h {$60} lda #J(ende) <l-e {$60} sta $f9 < {$60}{$60}{$60}{$60}{$60}{$60}lda #G(ende) <
{$60}{$60}{$60}{$60}{$60}{$60}sta $fa <h {$60}{$60}{$60}{$60}{$60}{$60}ldy #$00 <z; : loop lda ($fb),y <z {$60}{$60}{$60}{$60}{$60}{$60}jsr $eddd < {$60}{$60}{$60}{$60}{$60}{$60}jsr inccount <z;
1 : {$60}{$60}{$60}{$60}{$60}{$60}bcc loop <w, {$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60} e {$60} jsr savecont <w , {$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}p