1
0
mirror of https://gitlab.com/camelot/kickc.git synced 2024-11-30 09:50:13 +00:00

a few more fragments

This commit is contained in:
Janne Johansson 2019-08-06 13:44:06 +02:00
parent e167f8dce8
commit 6502c0dbc3
10 changed files with 83 additions and 0 deletions

View File

@ -0,0 +1,9 @@
cpx #0
beq !e+
ldy #0
lda ({z1}),y
!:
ror
dex
bne !-
!e:

View File

@ -0,0 +1,7 @@
ldx {z1}
beq !e+
!:
ror
dex
bne !-
!e:

View File

@ -0,0 +1,10 @@
cpy #0
beq !e+
!l:
cmp #$80
ror
dey
bne !l-
!e:
sty $ff
ldx $ff

View File

@ -0,0 +1,11 @@
cpx #0
beq !e+
ldy #0
lda ({z1}),y
!:
ror
dex
bne !-
tay
!e:

View File

@ -0,0 +1,10 @@
cpx #0
beq !e+
ldy #0
lda ({z2}),y
!:
ror
dex
bne !-
sta {z1}
!e:

View File

@ -0,0 +1,12 @@
lda #<{c1}
sta {z1}
lda #>{c1}
sta {z1}+1
bmi !m+
lda #0
beq !p+
!m:
lda #$ff
!p:
sta {z1}+2
sta {z1}+3

View File

@ -0,0 +1,6 @@
sta $ff
lda {z2}
ora $ff
sta {z1}
lda {z2}+1
sta {z1}+1

View File

@ -0,0 +1,6 @@
lda {z2}
eor {z1}
sta {z1}
lda {z2}+1
eor {z1}+1
sta {z1}+1

View File

@ -0,0 +1,6 @@
lda #<{c1}
eor {z1}
sta {z1}
lda #>{c1}
eor {z1}
sta {z1}

View File

@ -0,0 +1,6 @@
lda #<{c1}
eor {z1}
sta {z1}
lda #>{c1}
eor {z1}+1
sta {z1}+1