Skip to content

Instantly share code, notes, and snippets.

@xk

xk/count_2_1e40.asm

Created October 31, 2017 11:26
Show Gist options
  • Save xk/4634a78d1493233030e4a6ba9a12460e to your computer and use it in GitHub Desktop.
Save xk/4634a78d1493233030e4a6ba9a12460e to your computer and use it in GitHub Desktop.
Download ZIP
6502 COUNT TO 1e40 (Apple II)
Raw
count_2_1e40.asm
;see "Counting from 1 to 1,000,000 on the FASTChip" @ c.s.a2
;https://groups.google.com/forum/#!topic/comp.sys.apple2/ibI06hDLiaY
* = $1000
uno = 177
dos = 178
zero = 176
dospuntos = 186
base = 1024
digitos = 39
decenas = 1062 ;unidades-1
unidades = 1063 ;base+digitos
cls = $fc58
jsr cls
lda #zero
ldx #digitos
fill
sta base,x
dex
bpl fill
ldy #dos
loop
ldx #uno
lda #zero
stx unidades
sty unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
sta unidades
stx decenas
stx unidades
sty unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
sta unidades
sty decenas
stx unidades
sty unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
sta unidades
inc decenas
stx unidades
sty unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
sta unidades
inc decenas
stx unidades
sty unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
sta unidades
inc decenas
stx unidades
sty unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
sta unidades
inc decenas
stx unidades
sty unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
sta unidades
inc decenas
stx unidades
sty unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
sta unidades
inc decenas
stx unidades
sty unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
sta unidades
inc decenas
stx unidades
sty unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
inc unidades
sta unidades
sta decenas
ldx #37 ;digitos-2
carry
lda base,x
clc
adc #1
cmp #dospuntos
beq st_z
sta base,x
jmp loop
st_z
lda #zero
sta base,x
dex
bpl carry
jmp loop
1000:20 58 FC A2 27 A9 B0 9D
:00 04 CA 10 FA A0 B2 A9
:B0 A2 B1 8E 27 04 8C 27
:04 EE 27 04 EE 27 04 EE
:27 04 EE 27 04 EE 27 04
:EE 27 04 EE 27 04 8D 27
:04 8E 26 04 8E 27 04 8C
:27 04 EE 27 04 EE 27 04
:EE 27 04 EE 27 04 EE 27
:04 EE 27 04 EE 27 04 8D
:27 04 8C 26 04 8E 27 04
:8C 27 04 EE 27 04 EE 27
:04 EE 27 04 EE 27 04 EE
:27 04 EE 27 04 EE 27 04
:8D 27 04 EE 26 04 8E 27
:04 8C 27 04 EE 27 04 EE
:27 04 EE 27 04 EE 27 04
:EE 27 04 EE 27 04 EE 27
:04 8D 27 04 EE 26 04 8E
:27 04 8C 27 04 EE 27 04
:EE 27 04 EE 27 04 EE 27
:04 EE 27 04 EE 27 04 EE
:27 04 8D 27 04 EE 26 04
:8E 27 04 8C 27 04 EE 27
:04 EE 27 04 EE 27 04 EE
:27 04 EE 27 04 EE 27 04
:EE 27 04 8D 27 04 EE 26
:04 8E 27 04 8C 27 04 EE
:27 04 EE 27 04 EE 27 04
:EE 27 04 EE 27 04 EE 27
:04 EE 27 04 8D 27 04 EE
:26 04 8E 27 04 8C 27 04
:EE 27 04 EE 27 04 EE 27
:04 EE 27 04 EE 27 04 EE
:27 04 EE 27 04 8D 27 04
:EE 26 04 8E 27 04 8C 27
:04 EE 27 04 EE 27 04 EE
:27 04 EE 27 04 EE 27 04
:EE 27 04 EE 27 04 8D 27
:04 EE 26 04 8E 27 04 8C
:27 04 EE 27 04 EE 27 04
:EE 27 04 EE 27 04 EE 27
:04 EE 27 04 EE 27 04 8D
:27 04 8D 26 04 A2 25 BD
:00 04 18 69 01 C9 BA F0
:06 9D 00 04 4C 0F 10 A9
:B0 9D 00 04 CA 10 E8 4C
:0F 10
1000G
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment