diff options
| author | Simon Rettberg | 2024-09-06 14:42:37 +0200 |
|---|---|---|
| committer | Simon Rettberg | 2024-09-06 14:42:37 +0200 |
| commit | badef32037f52f79abc1f1440b786cd71afdf270 (patch) | |
| tree | 412b792d4cab4a7a110db82fcf74fe8a1ac55ec1 /hacks/images/m6502/keftal.asm | |
| parent | Delete pre-6.00 files (diff) | |
| download | xscreensaver-master.tar.gz xscreensaver-master.tar.xz xscreensaver-master.zip | |
Diffstat (limited to 'hacks/images/m6502/keftal.asm')
| -rw-r--r-- | hacks/images/m6502/keftal.asm | 82 |
1 files changed, 0 insertions, 82 deletions
diff --git a/hacks/images/m6502/keftal.asm b/hacks/images/m6502/keftal.asm deleted file mode 100644 index efb2982..0000000 --- a/hacks/images/m6502/keftal.asm +++ /dev/null @@ -1,82 +0,0 @@ -; awfully slow.. be patient - -init: - ldx #0 - stx $0 - inx - stx $2 - stx $3 - inx - stx $1 - -loop: - lda $2 - cmp #$20 - bne notIncF2 - inc $3 - lda #0 - sta $2 -notIncF2: - inc $2 - -; CALCULATE START - - lda $2 - sta $f1 - lda $2 - sta $f2 - jsr multiply - - lda $f4 - sta $f8 - - lda $3 - sta $f1 - lda $3 - sta $f2 - jsr multiply - -; CALCULATE STOP - - lda $f4 - clc - adc $f8 - - lsr - lsr - lsr - lsr - lsr - ldx #0 - sta ($0,x) - inc $0 - lda $0 - cmp #$00 - bne notNextY - inc $1 - lda $1 - cmp #6 - beq exit -notNextY: - jmp loop -exit: - rts - -multiply: - lda #0 - sta $f4 - sta $f5 - ldx #8 -a:asl $f4 - rol $f5 - asl $f2 - bcc b - clc - lda $f4 - adc $f1 - sta $f4 - bcc b - inc $f5 -b:dex - bne a - rts
\ No newline at end of file |