Skip to content

Instantly share code, notes, and snippets.

@xk xk/count_2_1e40.asm
Created Oct 31, 2017

Embed
What would you like to do?
6502 COUNT TO 1e40 (Apple II)
;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
You can’t perform that action at this time.