mirror of
https://gitlab.com/camelot/kickc.git
synced 2024-12-27 09:31:18 +00:00
Added missing fragments from @Flight_Control.
This commit is contained in:
parent
799f681991
commit
0174743e94
@ -0,0 +1,7 @@
|
||||
sec
|
||||
lda {c1}
|
||||
sbc {m1}
|
||||
sta {c1}
|
||||
lda {c1}+1
|
||||
sbc {m1}+1
|
||||
sta {c1}+1
|
@ -0,0 +1,6 @@
|
||||
lda {c1}+1
|
||||
cmp #>{c2}
|
||||
bne {la1}
|
||||
lda {c1}
|
||||
cmp #<{c2}
|
||||
bne {la1}
|
@ -0,0 +1,6 @@
|
||||
ldy #0
|
||||
lda {c1}
|
||||
sta ({z1}),y
|
||||
iny
|
||||
lda {c1}+1
|
||||
sta ({z1}),y
|
@ -0,0 +1,9 @@
|
||||
sec
|
||||
ldy #0
|
||||
lda ({z1}),y
|
||||
sbc {z2}
|
||||
sta ({z1}),y
|
||||
iny
|
||||
lda ({z1}),y
|
||||
sbc {z2}+1
|
||||
sta ({z1}),y
|
@ -0,0 +1,9 @@
|
||||
lda ({z2}),y
|
||||
pha
|
||||
iny
|
||||
lda ({z2}),y
|
||||
ldy #1
|
||||
sta ({z1}),y
|
||||
dey
|
||||
pla
|
||||
sta ({z1}),y
|
@ -0,0 +1,11 @@
|
||||
sty $ff
|
||||
lda ({z2}),y
|
||||
ldy #0
|
||||
cmp ({z1}),y
|
||||
bne {la1}
|
||||
iny
|
||||
lda ({z1}),y
|
||||
ldy $ff
|
||||
iny
|
||||
cmp ({z2}),y
|
||||
bne {la1}
|
@ -0,0 +1,8 @@
|
||||
ldy #0
|
||||
lda ({z1}),y
|
||||
cmp #<{c1}
|
||||
bne {la1}
|
||||
iny
|
||||
lda ({z1}),y
|
||||
cmp #>{c1}
|
||||
bne {la1}
|
@ -0,0 +1,11 @@
|
||||
sty $ff
|
||||
ldy #1
|
||||
lda ({z2}),y
|
||||
pha
|
||||
dey
|
||||
lda ({z2}),y
|
||||
ldy $ff
|
||||
sta ({z1}),y
|
||||
iny
|
||||
pla
|
||||
sta ({z1}),y
|
@ -0,0 +1,11 @@
|
||||
sty $ff
|
||||
ldy #1
|
||||
lda ({z2}),y
|
||||
pha
|
||||
dey
|
||||
lda ({z2}),y
|
||||
ldy $ff
|
||||
sta ({z1}),y
|
||||
iny
|
||||
pla
|
||||
sta ({z1}),y
|
@ -0,0 +1,5 @@
|
||||
lda ({z2}),y
|
||||
sta ({z1}),y
|
||||
iny
|
||||
lda ({z2}),y
|
||||
sta ({z1}),y
|
@ -0,0 +1,11 @@
|
||||
clc
|
||||
ldy #0
|
||||
lda ({z1}),y
|
||||
adc #<{c1}
|
||||
pha
|
||||
iny
|
||||
lda ({z1}),y
|
||||
adc #>{c1}
|
||||
sta {z1}+1
|
||||
pla
|
||||
sta {z1}
|
@ -0,0 +1,9 @@
|
||||
clc
|
||||
ldy #0
|
||||
lda ({z2}),y
|
||||
adc #<{c1}
|
||||
sta {z1}
|
||||
iny
|
||||
lda ({z2}),y
|
||||
adc #>{c1}
|
||||
sta {z1}+1
|
@ -0,0 +1,10 @@
|
||||
sec
|
||||
lda ({z1}),y
|
||||
sbc #<{c2}
|
||||
pha
|
||||
iny
|
||||
lda ({z1}),y
|
||||
sbc #>{c2}
|
||||
sta {z1}+1
|
||||
pla
|
||||
sta {z1}
|
@ -0,0 +1,8 @@
|
||||
sec
|
||||
lda ({z2}),y
|
||||
sbc {z1}
|
||||
sta {z1}
|
||||
iny
|
||||
lda ({z2}),y
|
||||
sbc {z1}+1
|
||||
sta {z1}+1
|
Loading…
Reference in New Issue
Block a user