6502/kickc
1
0
Fork 0
mirror of https://gitlab.com/camelot/kickc.git synced 2024-12-26 03:32:23 +00:00
Code Issues Projects Releases Wiki Activity

Added missing fragments. Handling inlined procedures.

Browse Source
This commit is contained in:
jespergravgaard 2020-02-28 00:11:33 +01:00
parent 378798d6ba
commit ce7e6d29cb
28 changed files with 135 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/main/fragment/mos6502-common/_stackidxdword_vbuc1=vdum1.asm Normal file
View File

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

5
src/main/fragment/mos6502-common/_stackidxptr_vbuc1=pwum1.asm Normal file
View File

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

2
src/main/fragment/mos6502-common/_stackidxsbyte_vbuc1=vbsaa.asm Normal file
View File

@ -0,0 +1,2 @@
tsx
sta STACK_BASE+{c1},x

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

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

3
src/main/fragment/mos6502-common/_stackpushbyte_3.asm Normal file
View File

@ -0,0 +1,3 @@
pha
pha
pha

4
src/main/fragment/mos6502-common/_stackpushbyte_4.asm Normal file
View File

@ -0,0 +1,4 @@
pha
pha
pha
pha

8
src/main/fragment/mos6502-common/_stackpushdword_=vduc1.asm Normal file
View File

@ -0,0 +1,8 @@
lda #>{c1}>>$10
pha
lda #<{c1}>>$10
pha
lda #>{c1}
pha
lda #<{c1}
pha

8
src/main/fragment/mos6502-common/_stackpushdword_=vdum1.asm Normal file
View File

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

1
src/main/fragment/mos6502-common/_stackpushsbyte_=vbsaa.asm Normal file
View File

@ -0,0 +1 @@
pha

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

@ -0,0 +1,8 @@
lda #>{c1}>>$10
pha
lda #<{c1}>>$10
pha
lda #>{c1}
pha
lda #<{c1}
pha

5
src/main/fragment/mos6502-common/_stackpushword_=vbuaa.asm Normal file
View File

@ -0,0 +1,5 @@
tax
lda #0
pha
txa
pha

4
src/main/fragment/mos6502-common/pbum1=_stackpullptr_.asm Normal file
View File

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

5
src/main/fragment/mos6502-common/pprm1=_stackidxptr_vbuc1.asm Normal file
View File

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

5
src/main/fragment/mos6502-common/pptm1=_stackidxptr_vbuc1.asm Normal file
View File

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

5
src/main/fragment/mos6502-common/pssm1=_stackidxptr_vbuc1.asm Normal file
View File

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

4
src/main/fragment/mos6502-common/pvom1=_stackpullptr_.asm Normal file
View File

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

5
src/main/fragment/mos6502-common/pwsm1=_stackidxptr_vbuc1.asm Normal file
View File

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

5
src/main/fragment/mos6502-common/pwum1=_stackidxptr_vbuc1.asm Normal file
View File

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

4
src/main/fragment/mos6502-common/pwum1=_stackpullptr_.asm Normal file
View File

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

2
src/main/fragment/mos6502-common/vbsaa=_stackidxsbyte_vbuc1.asm Normal file
View File

@ -0,0 +1,2 @@
tsx
lda STACK_BASE+{c1},x

1
src/main/fragment/mos6502-common/vbsaa=_stackpullsbyte_.asm Normal file
View File

@ -0,0 +1 @@
pla

2
src/main/fragment/mos6502-common/vbsyy=_stackidxsbyte_vbuc1.asm Normal file
View File

@ -0,0 +1,2 @@
tsx
ldy STACK_BASE+{c1},x

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

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

9
src/main/fragment/mos6502-common/vdum1=_stackidxdword_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

8
src/main/fragment/mos6502-common/vdum1=_stackpulldword_.asm Normal file
View File

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

4
src/main/fragment/mos6502-common/vwum1=_stackpullbyte_.asm Normal file
View File

@ -0,0 +1,4 @@
pla
sta {m1}
lda #0
sta {m1}+1

1
src/main/java/dk/camelot64/kickc/passes/Pass0GenerateStatementSequence.java
View File

@ -678,6 +678,7 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
for(Directive directive : directives) {
if(directive instanceof Directive.Inline) {
procedure.setDeclaredInline(true);
procedure.setCallingConvention(Procedure.CallingConvention.PHI_CALL);
} else if(directive instanceof Directive.CallingConvention) {
procedure.setCallingConvention(((Directive.CallingConvention) directive).callingConvention);
} else if(directive instanceof Directive.Interrupt) {

1
src/main/java/dk/camelot64/kickc/passes/Pass1ProcedureInline.java
View File

@ -39,6 +39,7 @@ public class Pass1ProcedureInline extends Pass1Base {
ProcedureRef procedureRef = call.getProcedure();
Procedure procedure = getScope().getProcedure(procedureRef);
if(procedure.isDeclaredInline()) {
procedure.setCallingConvention(Procedure.CallingConvention.PHI_CALL);
if(procedure.getInterruptType()!=null) {
throw new CompileError("Error! Interrupts cannot be inlined. "+procedure.getRef().toString());
}