6502/kickc
1
0
Fork 0
mirror of https://gitlab.com/camelot/kickc.git synced 2025-04-03 23:31:52 +00:00
Code Issues Projects Releases Wiki Activity

Added fragments from @Majikeyric

Browse Source
This commit is contained in:
jespergravgaard 2021-10-12 08:26:15 +02:00
parent 929ecd9cc0
commit fbb15ea4a3
31 changed files with 370 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/main/fragment/mos6502-common/_stackidxbool_vbuc1=vbom1.asm Normal file
View File

@ -0,0 +1,3 @@
tsx
lda {m1}
sta STACK_BASE+{c1},x

9
src/main/fragment/mos6502-common/_stackidxsdword_vbuc1=vdsc2.asm Normal file
View File

@ -0,0 +1,9 @@
tsx
lda #<{c2}
sta STACK_BASE+{c1},x
lda #>{c2}
sta STACK_BASE+{c1}+1,x
lda #<{c2}>>$10
sta STACK_BASE+{c1}+2,x
lda #>{c2}>>$10
sta STACK_BASE+{c1}+3,x

9
src/main/fragment/mos6502-common/_stackpullbyte_9.asm Normal file
View File

@ -0,0 +1,9 @@
pla
pla
pla
pla
pla
pla
pla
pla
pla

8
src/main/fragment/mos6502-common/_stackpushsdword_=vdsm1.asm Normal file
View File

@ -0,0 +1,8 @@
lda {m1}+3
pha
lda {m1}+2
pha
lda {m1}+1
pha
lda {m1}
pha

6
src/main/fragment/mos6502-common/pbom1_derefidx_vbuyy=vboc1.asm Normal file
View File

@ -0,0 +1,6 @@
lda {m1}
sta $fe
lda {m1}+1
sta $ff
lda #{c1}
sta ($fe),y

6
src/main/fragment/mos6502-common/pbsm1_derefidx_vbuyy=vbsc1.asm Normal file
View File

@ -0,0 +1,6 @@
lda {m1}
sta $fe
lda {m1}+1
sta $ff
lda #{c1}
sta ($fe),y

8
src/main/fragment/mos6502-common/pbum1_derefidx_vbuyy=pbum1_derefidx_vbuyy_plus_1.asm Normal file
View File

@ -0,0 +1,8 @@
lda {m1}
sta $fe
lda {m1}+1
sta $ff
lda ($fe),y
clc
adc #1
sta ($fe),y

8
src/main/fragment/mos6502-common/pdsc1_derefidx_vbuxx=vdsc2.asm Normal file
View File

@ -0,0 +1,8 @@
lda #<{c2}
sta {c1},x
lda #>{c2}
sta {c1}+1,x
lda #<{c2}>>16
sta {c1}+2,x
lda #>{c2}>>16
sta {c1}+3,x

8
src/main/fragment/mos6502-common/pdsc1_derefidx_vbuxx=vdsm1.asm Normal file
View File

@ -0,0 +1,8 @@
lda m1}
sta {c1},x
lda {m1}+1
sta {c1}+1,x
lda {m1}+2
sta {c1}+2,x
lda {m1}+3
sta {c1}+3,x

8
src/main/fragment/mos6502-common/pdsc1_derefidx_vbuyy=vdsc2.asm Normal file
View File

@ -0,0 +1,8 @@
lda #<{c2}
sta {c1},y
lda #>{c2}
sta {c1}+1,y
lda #<{c2}>>16
sta {c1}+2,y
lda #>{c2}>>16
sta {c1}+3,y

8
src/main/fragment/mos6502-common/pdsc1_derefidx_vbuyy=vdsm1.asm Normal file
View File

@ -0,0 +1,8 @@
lda m1}
sta {c1},y
lda {m1}+1
sta {c1}+1,y
lda {m1}+2
sta {c1}+2,y
lda {m1}+3
sta {c1}+3,y

20
src/main/fragment/mos6502-common/pdsm1_derefidx_vbuc1=pdsm1_derefidx_vbuc2.asm Normal file
View File

@ -0,0 +1,20 @@
lda {m1}
sta $fe
lda {m1}+1
sta $ff
ldy #{c2}
lda ($fe),y
ldy #{c1}
sta ($fe),y
ldy #{c2}+1
lda ($fe),y
ldy #{c1}+1
sta ($fe),y
ldy #{c2}+2
lda ($fe),y
ldy #{c1}+2
sta ($fe),y
ldy #{c2}+3
lda ($fe),y
ldy #{c1}+3
sta ($fe),y

24
src/main/fragment/mos6502-common/pdsm1_derefidx_vbuc1=pdsm2_derefidx_vbuc2.asm Normal file
View File

@ -0,0 +1,24 @@
lda {m2}
sta $fc
lda {m2}+1
sta $fd
lda {m1}
sta $fe
lda {m1}+1
sta $ff
ldy #{c2}
lda ($fc),y
ldy #{c1}
sta ($fe),y
ldy #{c2}+1
lda ($fc),y
ldy #{c1}+1
sta ($fe),y
ldy #{c2}+2
lda ($fc),y
ldy #{c1}+2
sta ($fe),y
ldy #{c2}+3
lda ($fc),y
ldy #{c1}+3
sta ($fe),y

20
src/main/fragment/mos6502-common/pdsm1_derefidx_vbuyy=pdsm1_derefidx_vbuyy_minus_vdsc1.asm Normal file
View File

@ -0,0 +1,20 @@
lda {m1}
sta $fe
lda {m1}+1
sta $ff
sec
lda ($fe),y
sbc #<{c1}
sta ($fe),y
iny
lda ($fe),y
sbc #>{c1}
sta ($fe),y
iny
lda ($fe),y
sbc #<{c1}>>$10
sta ($fe),y
iny
lda ($fe),y
sbc #>{c1}>>$10
sta ($fe),y

20
src/main/fragment/mos6502-common/pdsm1_derefidx_vbuyy=pdsm1_derefidx_vbuyy_plus_vdsc1.asm Normal file
View File

@ -0,0 +1,20 @@
lda {m1}
sta $fe
lda {m1}+1
sta $ff
clc
lda ($fe),y
adc #<{c1}
sta ($fe),y
iny
lda ($fe),y
adc #>{c1}
sta ($fe),y
iny
lda ($fe),y
adc #<{c1}>>$10
sta ($fe),y
iny
lda ($fe),y
adc #>{c1}>>$10
sta ($fe),y

17
src/main/fragment/mos6502-common/pdsm1_derefidx_vbuyy=vbsaa.asm Normal file
View File

@ -0,0 +1,17 @@
pha
lda {m1}
sta $fe
lda {m1}+1
sta $ff
pla
sta ($fe),y
and #$80
beq !+
lda #$ff
!:
iny
sta ($fe),y
iny
sta ($fe),y
iny
sta ($fe),y

16
src/main/fragment/mos6502-common/pdsm1_derefidx_vbuyy=vbsc1.asm Normal file
View File

@ -0,0 +1,16 @@
lda {m1}
sta $fe
lda {m1}+1
sta $ff
lda #{c1}
sta ($fe),y
and #$80
beq !+
lda #$ff
!:
iny
sta ($fe),y
iny
sta ($fe),y
iny
sta ($fe),y

15
src/main/fragment/mos6502-common/pdsm1_derefidx_vbuyy=vdsc2.asm Normal file
View File

@ -0,0 +1,15 @@
lda {m1}
sta $fe
lda {m1}+1
sta $ff
lda #<{c2}
sta ($fe),y
iny
lda #>{c2}
sta ($fe),y
iny
lda #<{c2}>>16
sta ($fe),y
iny
lda #>{c2}>>16
sta ($fe),y

15
src/main/fragment/mos6502-common/pdsm1_derefidx_vbuyy=vdsm2.asm Normal file
View File

@ -0,0 +1,15 @@
lda {m1}
sta $fe
lda {m1}+1
sta $ff
lda {m2}
sta ($fe),y
iny
lda {m2}+1
sta ($fe),y
iny
lda {m2}+2
sta ($fe),y
iny
lda {m2}+3
sta ($fe),y

20
src/main/fragment/mos6502-common/pdsz1_derefidx_vbuc1=pdsm2_derefidx_vbuc2.asm Normal file
View File

@ -0,0 +1,20 @@
lda {m2}
sta $fe
lda {m2}+1
sta $ff
ldy #{c2}
lda ($fe),y
ldy #{c1}
sta ({z1}),y
ldy #{c2}+1
lda ($fe),y
ldy #{c1}+1
sta ({z1}),y
ldy #{c2}+2
lda ($fe),y
ldy #{c1}+2
sta ({z1}),y
ldy #{c2}+3
lda ($fe),y
ldy #{c1}+3
sta ({z1}),y

16
src/main/fragment/mos6502-common/pdsz1_derefidx_vbuc1=pdsz1_derefidx_vbuc2.asm Normal file
View File

@ -0,0 +1,16 @@
ldy #{c2}
lda ({z1}),y
ldy #{c1}
sta ({z1}),y
ldy #{c2}+1
lda ({z1}),y
ldy #{c1}+1
sta ({z1}),y
ldy #{c2}+2
lda ({z1}),y
ldy #{c1}+2
sta ({z1}),y
ldy #{c2}+3
lda ({z1}),y
ldy #{c1}+3
sta ({z1}),y

16
src/main/fragment/mos6502-common/pdsz1_derefidx_vbuc1=pdsz2_derefidx_vbuc2.asm Normal file
View File

@ -0,0 +1,16 @@
ldy #{c2}
lda ({z2}),y
ldy #{c1}
sta ({z1}),y
ldy #{c2}+1
lda ({z2}),y
ldy #{c1}+1
sta ({z1}),y
ldy #{c2}+2
lda ({z2}),y
ldy #{c1}+2
sta ({z1}),y
ldy #{c2}+3
lda ({z2}),y
ldy #{c1}+3
sta ({z1}),y

16
src/main/fragment/mos6502-common/pdsz1_derefidx_vbuyy=pdsz1_derefidx_vbuyy_minus_vdsc1.asm Normal file
View File

@ -0,0 +1,16 @@
sec
lda ({z1}),y
sbc #<{c1}
sta ({z1}),y
iny
lda ({z1}),y
sbc #>{c1}
sta ({z1}),y
iny
lda ({z1}),y
sbc #<{c1}>>$10
sta ({z1}),y
iny
lda ({z1}),y
sbc #>{c1}>>$10
sta ({z1}),y

16
src/main/fragment/mos6502-common/pdsz1_derefidx_vbuyy=pdsz1_derefidx_vbuyy_plus_vdsc1.asm Normal file
View File

@ -0,0 +1,16 @@
clc
lda ({z1}),y
adc #<{c1}
sta ({z1}),y
iny
lda ({z1}),y
adc #>{c1}
sta ({z1}),y
iny
lda ({z1}),y
adc #<{c1}>>$10
sta ({z1}),y
iny
lda ({z1}),y
adc #>{c1}>>$10
sta ({z1}),y

2
src/main/fragment/mos6502-common/vbom1=_stackpullbool_.asm Normal file
View File

@ -0,0 +1,2 @@
pla
sta {m1}

9
src/main/fragment/mos6502-common/vdsm1=_stackidxsdword_vbuc1.asm Normal file
View File

@ -0,0 +1,9 @@
tsx
lda STACK_BASE+{c1},x
sta {m1}
lda STACK_BASE+{c1}+1,x
sta {m1}+1
lda STACK_BASE+{c1}+2,x
sta {m1}+2
lda STACK_BASE+{c1}+3,x
sta {m1}+3

21
src/main/fragment/mos6502-common/vdsm1=pdsz2_derefidx_vbuc1_plus_pdsz2_derefidx_vbuc2.asm Normal file
View File

@ -0,0 +1,21 @@
clc
ldy #{c2}
lda ({z2}),y
ldy #{c1}
adc ({z2}),y
sta {m1}
ldy #{c2}+1
lda ({z2}),y
ldy #{c1}+1
adc ({z2}),y
sta {m1}+1
ldy #{c2}+2
lda ({z2}),y
ldy #{c1}+2
adc ({z2}),y
sta {m1}+2
ldy #{c2}+3
lda ({z2}),y
ldy #{c1}+3
adc ({z2}),y
sta {m1}+3

12
src/main/fragment/mos6502-common/vdum1=vdum2_bxor_vduc1.asm Normal file
View File

@ -0,0 +1,12 @@
lda #<{c1}
eor {m2}
sta {m1}
lda #>{c1}
eor {m2}+1
sta {m1}+1
lda #<{c1}>>$10
eor {m2}+2
sta {m1}+2
lda #>{c1}>>$10
eor {m2}+3
sta {m1}+3

5
src/main/fragment/mos6502-common/vdum1_eq_0_then_la1.asm Normal file
View File

@ -0,0 +1,5 @@
lda {m1}
ora {m1}+1
ora {m1}+2
ora {m1}+3
beq {la1}

5
src/main/fragment/mos6502-common/vdum1_neq_0_then_la1.asm Normal file
View File

@ -0,0 +1,5 @@
lda {m1}
ora {m1}+1
ora {m1}+2
ora {m1}+3
bne {la1}

8
src/test/java/dk/camelot64/kickc/test/TestProgramsThorough.java
View File

@ -9,10 +9,10 @@ import java.io.IOException;
*/
public class TestProgramsThorough extends TestPrograms {
//@Test
//public void testComplexSwinkiblues() throws IOException {
// compileAndCompare("complex/swinkiblues/kielbasa.c", log());
//}
@Test
public void testComplexSwinkiblues() throws IOException {
compileAndCompare("complex/swinkiblues/kielbasa.c", log());
}
@Test
public void testCx16VeralibTilemap8bpp8() throws IOException {