#C64 ASM, 358 bytes (102 bytes compiled with basicstub)
C64 ASM, 358 bytes (102 bytes compiled with basicstub)
This is the closest I could get due to obvious limitations:
[![C64][1]][1]C64
jsr $E544
lda #9
sta $FD
nl1: jsr dl
jsr il
dec $FD
bne nl1
inc $FD
nl2: ldy $FD
cpy #9
bne nt1
bl: jmp bl
nt1: iny
sty $FD
jsr dl
jsr il
jmp nl2
dl: clc
ldx #31ドル
ldy #0
lp: txa
sm: sta 0400,ドル y
inx
cpx #31ドル
bne c1
rts
c1: cpx #3ドルA
bne nt2
ldx #30ドル
clc
nt2: tya
adc $FD
cmp #40
bcc c2
rts
c2: tay
jmp lp
il: lda sm+1
adc #39
bcc nc
inc sm+2
nc: sta sm+1
rts
(Could probably be optimized quite a bit) [1]: https://i.sstatic.net/GxFIX.png
#C64 ASM, 358 bytes (102 bytes compiled with basicstub)
This is the closest I could get due to obvious limitations:
[![C64][1]][1]
jsr $E544
lda #9
sta $FD
nl1: jsr dl
jsr il
dec $FD
bne nl1
inc $FD
nl2: ldy $FD
cpy #9
bne nt1
bl: jmp bl
nt1: iny
sty $FD
jsr dl
jsr il
jmp nl2
dl: clc
ldx #31ドル
ldy #0
lp: txa
sm: sta 0400,ドル y
inx
cpx #31ドル
bne c1
rts
c1: cpx #3ドルA
bne nt2
ldx #30ドル
clc
nt2: tya
adc $FD
cmp #40
bcc c2
rts
c2: tay
jmp lp
il: lda sm+1
adc #39
bcc nc
inc sm+2
nc: sta sm+1
rts
(Could probably be optimized quite a bit) [1]: https://i.sstatic.net/GxFIX.png
C64 ASM, 358 bytes (102 bytes compiled with basicstub)
This is the closest I could get due to obvious limitations:
jsr $E544
lda #9
sta $FD
nl1: jsr dl
jsr il
dec $FD
bne nl1
inc $FD
nl2: ldy $FD
cpy #9
bne nt1
bl: jmp bl
nt1: iny
sty $FD
jsr dl
jsr il
jmp nl2
dl: clc
ldx #31ドル
ldy #0
lp: txa
sm: sta 0400,ドル y
inx
cpx #31ドル
bne c1
rts
c1: cpx #3ドルA
bne nt2
ldx #30ドル
clc
nt2: tya
adc $FD
cmp #40
bcc c2
rts
c2: tay
jmp lp
il: lda sm+1
adc #39
bcc nc
inc sm+2
nc: sta sm+1
rts
(Could probably be optimized quite a bit)
C64 ASM, 358 bytes (102 bytes compiled with basicstub) #C64 ASM, 358 bytes (102 bytes compiled with basicstub)
This is the closest I could get due to obvious limitations:
[![C64][1]][1]
jsr $E544
lda #9
sta $FD
nl1: jsr dl
jsr il
dec $FD
bne nl1
inc $FD
nl2: ldy $FD
cpy #9
bne nt1
bl: jmp bl
nt1: iny
sty $FD
jsr dl
jsr il
jmp nl2
dl: clc
ldx #31ドル
ldy #0
lp: txa
sm: sta 0400,ドル y
inx
cpx #31ドル
bne c1
rts
c1: cpx #3ドルA
bne nt2
ldx #30ドル
clc
nt2: tya
adc $FD
cmp #40
bcc c2
rts
c2: tay
jmp lp
il: lda sm+1
adc #39
bcc nc
inc sm+2
nc: sta sm+1
rts
jsr $E544
lda #9
sta $FD
nl1: jsr dl
jsr il
dec $FD
bne nl1
inc $FD
nl2: ldy $FD
cpy #9
bne nt1
bl: jmp bl
nt1: iny
sty $FD
jsr dl
jsr il
jmp nl2
dl: clc
ldx #31ドル
ldy #0
lp: txa
sm: sta 0400,ドル y
inx
cpx #31ドル
bne c1
rts
c1: cpx #3ドルA
bne nt2
ldx #30ドル
clc
nt2: tya
adc $FD
cmp #40
bcc c2
rts
c2: tay
jmp lp
il: lda sm+1
adc #39
bcc nc
inc sm+2
nc: sta sm+1
rts
(Could probably be optimized quite a bit) [1]: https://i.sstatic.net/GxFIX.png
C64 ASM, 358 bytes (102 bytes compiled with basicstub)
This is the closest I could get due to obvious limitations:
[![C64][1]][1]
jsr $E544
lda #9
sta $FD
nl1: jsr dl
jsr il
dec $FD
bne nl1
inc $FD
nl2: ldy $FD
cpy #9
bne nt1
bl: jmp bl
nt1: iny
sty $FD
jsr dl
jsr il
jmp nl2
dl: clc
ldx #31ドル
ldy #0
lp: txa
sm: sta 0400,ドル y
inx
cpx #31ドル
bne c1
rts
c1: cpx #3ドルA
bne nt2
ldx #30ドル
clc
nt2: tya
adc $FD
cmp #40
bcc c2
rts
c2: tay
jmp lp
il: lda sm+1
adc #39
bcc nc
inc sm+2
nc: sta sm+1
rts
(Could probably be optimized quite a bit) [1]: https://i.sstatic.net/GxFIX.png
#C64 ASM, 358 bytes (102 bytes compiled with basicstub)
This is the closest I could get due to obvious limitations:
[![C64][1]][1]
jsr $E544
lda #9
sta $FD
nl1: jsr dl
jsr il
dec $FD
bne nl1
inc $FD
nl2: ldy $FD
cpy #9
bne nt1
bl: jmp bl
nt1: iny
sty $FD
jsr dl
jsr il
jmp nl2
dl: clc
ldx #31ドル
ldy #0
lp: txa
sm: sta 0400,ドル y
inx
cpx #31ドル
bne c1
rts
c1: cpx #3ドルA
bne nt2
ldx #30ドル
clc
nt2: tya
adc $FD
cmp #40
bcc c2
rts
c2: tay
jmp lp
il: lda sm+1
adc #39
bcc nc
inc sm+2
nc: sta sm+1
rts
(Could probably be optimized quite a bit) [1]: https://i.sstatic.net/GxFIX.png
C64 ASM, 358 bytes (102 bytes compiled with basicstub)
This is the closest I could get due to obvious limitations:
[![C64][1]][1]
jsr $E544
lda #9
sta $FD
nl1: jsr dl
jsr il
dec $FD
bne nl1
inc $FD
nl2: ldy $FD
cpy #9
bne nt1
bl: jmp bl
nt1: iny
sty $FD
jsr dl
jsr il
jmp nl2
dl: clc
ldx #31ドル
ldy #0
lp: txa
sm: sta 0400,ドル y
inx
cpx #31ドル
bne c1
rts
c1: cpx #3ドルA
bne nt2
ldx #30ドル
clc
nt2: tya
adc $FD
cmp #40
bcc c2
rts
c2: tay
jmp lp
il: lda sm+1
adc #39
bcc nc
inc sm+2
nc: sta sm+1
rts
(Could probably be optimized quite a bit) [1]: https://i.sstatic.net/GxFIX.png