6502/kickc
1
0
Fork 0
mirror of https://gitlab.com/camelot/kickc.git synced 2025-08-15 13:27:36 +00:00
Code Issues Projects Releases Wiki Activity

Working on MEGA65 platform target. #507

Browse Source
This commit is contained in:
jespergravgaard
2020-08-09 23:01:57 +02:00
parent 2cec5191e1
commit bd1c4bcd13
5 changed files with 40 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/test/kc/examples/mega65/32bit-addressing-mega65.c
View File

@@ -4,9 +4,12 @@
// Absolute 32-bit address to use for storing/loading data // Absolute 32-bit address to use for storing/loading data
volatile __zp unsigned long ADDR32; volatile __zp unsigned long ADDR32;
// The address of the coloir RAM in MEGA65 main memory
const unsigned long MEGA65_MEM_COLOR_RAM = 0xff80000;
void main() { void main() {
// Modify Color Ram using 32-bit addressing // Modify Color Ram using 32-bit addressing
ADDR32 = 0xff80000; ADDR32 = MEGA65_MEM_COLOR_RAM;
asm { asm {
ldz #0 ldz #0
!: !:

12
src/test/ref/examples/mega65/32bit-addressing-mega65.asm
View File

@@ -10,6 +10,8 @@
.byte $15, $20, $14, $00, $9e, $20 // 20 SYS .byte $15, $20, $14, $00, $9e, $20 // 20 SYS
.text toIntString(__start) // NNNN .text toIntString(__start) // NNNN
.byte $00, $00, $00 // .byte $00, $00, $00 //
// The address of the coloir RAM in MEGA65 main memory
.const MEGA65_MEM_COLOR_RAM = $ff80000
// Absolute 32-bit address to use for storing/loading data // Absolute 32-bit address to use for storing/loading data
.label ADDR32 = 2 .label ADDR32 = 2
.segment Code .segment Code
@@ -26,15 +28,15 @@ __start: {
rts rts
} }
main: { main: {
// ADDR32 = 0xff80000 // ADDR32 = MEGA65_MEM_COLOR_RAM
// Modify Color Ram using 32-bit addressing // Modify Color Ram using 32-bit addressing
lda #<$ff80000 lda #<MEGA65_MEM_COLOR_RAM
sta.z ADDR32 sta.z ADDR32
lda #>$ff80000 lda #>MEGA65_MEM_COLOR_RAM
sta.z ADDR32+1 sta.z ADDR32+1
lda #<$ff80000>>$10 lda #<MEGA65_MEM_COLOR_RAM>>$10
sta.z ADDR32+2 sta.z ADDR32+2
lda #>$ff80000>>$10 lda #>MEGA65_MEM_COLOR_RAM>>$10
sta.z ADDR32+3 sta.z ADDR32+3
// asm // asm
ldz #0 ldz #0

2
src/test/ref/examples/mega65/32bit-addressing-mega65.cfg
View File

@@ -16,7 +16,7 @@ __start::@return: scope:[__start] from __start::@1
(void()) main() (void()) main()
main: scope:[main] from __start::@1 main: scope:[main] from __start::@1
[5] (volatile dword) ADDR32 ← (dword) $ff80000 [5] (volatile dword) ADDR32 ← (const nomodify dword) MEGA65_MEM_COLOR_RAM
asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- } asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- }
[7] (volatile dword) ADDR32 ← (word) $800 [7] (volatile dword) ADDR32 ← (word) $800
asm { lda#'*' ldz#79 !: sta((ADDR32)),z dez bpl!- } asm { lda#'*' ldz#79 !: sta((ADDR32)),z dez bpl!- }

50
src/test/ref/examples/mega65/32bit-addressing-mega65.log
View File

@@ -4,7 +4,7 @@ CONTROL FLOW GRAPH SSA
(void()) main() (void()) main()
main: scope:[main] from __start::@1 main: scope:[main] from __start::@1
(volatile dword) ADDR32 ← (number) $ff80000 (volatile dword) ADDR32 ← (const nomodify dword) MEGA65_MEM_COLOR_RAM
asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- } asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- }
(volatile dword) ADDR32 ← (number) $800 (volatile dword) ADDR32 ← (number) $800
asm { lda#'*' ldz#79 !: sta((ADDR32)),z dez bpl!- } asm { lda#'*' ldz#79 !: sta((ADDR32)),z dez bpl!- }
@@ -30,6 +30,7 @@ __start::@return: scope:[__start] from __start::@2
SYMBOL TABLE SSA SYMBOL TABLE SSA
(volatile dword) ADDR32 loadstore (volatile dword) ADDR32 loadstore
(const nomodify dword) MEGA65_MEM_COLOR_RAM = (dword) $ff80000
(void()) __start() (void()) __start()
(label) __start::@1 (label) __start::@1
(label) __start::@2 (label) __start::@2
@@ -38,16 +39,12 @@ SYMBOL TABLE SSA
(void()) main() (void()) main()
(label) main::@return (label) main::@return
Adding number conversion cast (unumber) $ff80000 in (volatile dword) ADDR32 ← (number) $ff80000
Adding number conversion cast (unumber) $800 in (volatile dword) ADDR32 ← (number) $800 Adding number conversion cast (unumber) $800 in (volatile dword) ADDR32 ← (number) $800
Successful SSA optimization PassNAddNumberTypeConversions Successful SSA optimization PassNAddNumberTypeConversions
Inlining cast (volatile dword) ADDR32 ← (unumber)(number) $ff80000
Inlining cast (volatile dword) ADDR32 ← (unumber)(number) $800 Inlining cast (volatile dword) ADDR32 ← (unumber)(number) $800
Successful SSA optimization Pass2InlineCast Successful SSA optimization Pass2InlineCast
Simplifying constant integer cast $ff80000
Simplifying constant integer cast $800 Simplifying constant integer cast $800
Successful SSA optimization PassNCastSimplification Successful SSA optimization PassNCastSimplification
Finalized unsigned number type (dword) $ff80000
Finalized unsigned number type (word) $800 Finalized unsigned number type (word) $800
Successful SSA optimization PassNFinalizeNumberTypeConversions Successful SSA optimization PassNFinalizeNumberTypeConversions
Adding NOP phi() at start of __start Adding NOP phi() at start of __start
@@ -81,7 +78,7 @@ __start::@return: scope:[__start] from __start::@1
(void()) main() (void()) main()
main: scope:[main] from __start::@1 main: scope:[main] from __start::@1
[5] (volatile dword) ADDR32 ← (dword) $ff80000 [5] (volatile dword) ADDR32 ← (const nomodify dword) MEGA65_MEM_COLOR_RAM
asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- } asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- }
[7] (volatile dword) ADDR32 ← (word) $800 [7] (volatile dword) ADDR32 ← (word) $800
asm { lda#'*' ldz#79 !: sta((ADDR32)),z dez bpl!- } asm { lda#'*' ldz#79 !: sta((ADDR32)),z dez bpl!- }
@@ -119,6 +116,8 @@ Target platform is mega65 / MEGA45GS02
.text toIntString(__start) // NNNN .text toIntString(__start) // NNNN
.byte $00, $00, $00 // .byte $00, $00, $00 //
// Global Constants & labels // Global Constants & labels
// The address of the coloir RAM in MEGA65 main memory
.const MEGA65_MEM_COLOR_RAM = $ff80000
// Absolute 32-bit address to use for storing/loading data // Absolute 32-bit address to use for storing/loading data
.label ADDR32 = 2 .label ADDR32 = 2
.segment Code .segment Code
@@ -151,15 +150,15 @@ __start: {
} }
// main // main
main: { main: {
// [5] (volatile dword) ADDR32 ← (dword) $ff80000 -- vduz1=vduc1 // [5] (volatile dword) ADDR32 ← (const nomodify dword) MEGA65_MEM_COLOR_RAM -- vduz1=vduc1
// Modify Color Ram using 32-bit addressing // Modify Color Ram using 32-bit addressing
lda #<$ff80000 lda #<MEGA65_MEM_COLOR_RAM
sta.z ADDR32 sta.z ADDR32
lda #>$ff80000 lda #>MEGA65_MEM_COLOR_RAM
sta.z ADDR32+1 sta.z ADDR32+1
lda #<$ff80000>>$10 lda #<MEGA65_MEM_COLOR_RAM>>$10
sta.z ADDR32+2 sta.z ADDR32+2
lda #>$ff80000>>$10 lda #>MEGA65_MEM_COLOR_RAM>>$10
sta.z ADDR32+3 sta.z ADDR32+3
// asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- } // asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- }
ldz #0 ldz #0
@@ -196,7 +195,7 @@ main: {
REGISTER UPLIFT POTENTIAL REGISTERS REGISTER UPLIFT POTENTIAL REGISTERS
Statement [1] (volatile dword) ADDR32 ← (dword) 0 [ ] ( [ ] { } ) always clobbers reg byte a Statement [1] (volatile dword) ADDR32 ← (dword) 0 [ ] ( [ ] { } ) always clobbers reg byte a
Statement [5] (volatile dword) ADDR32 ← (dword) $ff80000 [ ADDR32 ] ( main:3 [ ADDR32 ] { } ) always clobbers reg byte a Statement [5] (volatile dword) ADDR32 ← (const nomodify dword) MEGA65_MEM_COLOR_RAM [ ADDR32 ] ( main:3 [ ADDR32 ] { } ) always clobbers reg byte a
Statement asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- } always clobbers reg byte a reg byte z Statement asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- } always clobbers reg byte a reg byte z
Statement [7] (volatile dword) ADDR32 ← (word) $800 [ ADDR32 ] ( main:3 [ ADDR32 ] { } ) always clobbers reg byte a Statement [7] (volatile dword) ADDR32 ← (word) $800 [ ADDR32 ] ( main:3 [ ADDR32 ] { } ) always clobbers reg byte a
Statement asm { lda#'*' ldz#79 !: sta((ADDR32)),z dez bpl!- } always clobbers reg byte a reg byte z Statement asm { lda#'*' ldz#79 !: sta((ADDR32)),z dez bpl!- } always clobbers reg byte a reg byte z
@@ -227,6 +226,8 @@ ASSEMBLER BEFORE OPTIMIZATION
.text toIntString(__start) // NNNN .text toIntString(__start) // NNNN
.byte $00, $00, $00 // .byte $00, $00, $00 //
// Global Constants & labels // Global Constants & labels
// The address of the coloir RAM in MEGA65 main memory
.const MEGA65_MEM_COLOR_RAM = $ff80000
// Absolute 32-bit address to use for storing/loading data // Absolute 32-bit address to use for storing/loading data
.label ADDR32 = 2 .label ADDR32 = 2
.segment Code .segment Code
@@ -259,15 +260,15 @@ __start: {
} }
// main // main
main: { main: {
// [5] (volatile dword) ADDR32 ← (dword) $ff80000 -- vduz1=vduc1 // [5] (volatile dword) ADDR32 ← (const nomodify dword) MEGA65_MEM_COLOR_RAM -- vduz1=vduc1
// Modify Color Ram using 32-bit addressing // Modify Color Ram using 32-bit addressing
lda #<$ff80000 lda #<MEGA65_MEM_COLOR_RAM
sta.z ADDR32 sta.z ADDR32
lda #>$ff80000 lda #>MEGA65_MEM_COLOR_RAM
sta.z ADDR32+1 sta.z ADDR32+1
lda #<$ff80000>>$10 lda #<MEGA65_MEM_COLOR_RAM>>$10
sta.z ADDR32+2 sta.z ADDR32+2
lda #>$ff80000>>$10 lda #>MEGA65_MEM_COLOR_RAM>>$10
sta.z ADDR32+3 sta.z ADDR32+3
// asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- } // asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- }
ldz #0 ldz #0
@@ -320,6 +321,7 @@ Succesful ASM optimization Pass5UnusedLabelElimination
FINAL SYMBOL TABLE FINAL SYMBOL TABLE
(volatile dword) ADDR32 loadstore zp[4]:2 12.0 (volatile dword) ADDR32 loadstore zp[4]:2 12.0
(const nomodify dword) MEGA65_MEM_COLOR_RAM = (dword) $ff80000
(void()) __start() (void()) __start()
(label) __start::@1 (label) __start::@1
(label) __start::@return (label) __start::@return
@@ -348,6 +350,8 @@ Score: 107
.text toIntString(__start) // NNNN .text toIntString(__start) // NNNN
.byte $00, $00, $00 // .byte $00, $00, $00 //
// Global Constants & labels // Global Constants & labels
// The address of the coloir RAM in MEGA65 main memory
.const MEGA65_MEM_COLOR_RAM = $ff80000
// Absolute 32-bit address to use for storing/loading data // Absolute 32-bit address to use for storing/loading data
.label ADDR32 = 2 .label ADDR32 = 2
.segment Code .segment Code
@@ -373,16 +377,16 @@ __start: {
} }
// main // main
main: { main: {
// ADDR32 = 0xff80000 // ADDR32 = MEGA65_MEM_COLOR_RAM
// [5] (volatile dword) ADDR32 ← (dword) $ff80000 -- vduz1=vduc1 // [5] (volatile dword) ADDR32 ← (const nomodify dword) MEGA65_MEM_COLOR_RAM -- vduz1=vduc1
// Modify Color Ram using 32-bit addressing // Modify Color Ram using 32-bit addressing
lda #<$ff80000 lda #<MEGA65_MEM_COLOR_RAM
sta.z ADDR32 sta.z ADDR32
lda #>$ff80000 lda #>MEGA65_MEM_COLOR_RAM
sta.z ADDR32+1 sta.z ADDR32+1
lda #<$ff80000>>$10 lda #<MEGA65_MEM_COLOR_RAM>>$10
sta.z ADDR32+2 sta.z ADDR32+2
lda #>$ff80000>>$10 lda #>MEGA65_MEM_COLOR_RAM>>$10
sta.z ADDR32+3 sta.z ADDR32+3
// asm // asm
// asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- } // asm { ldz#0 !: tza sta((ADDR32)),z inz cpz#80 bne!- }

1
src/test/ref/examples/mega65/32bit-addressing-mega65.sym
View File

@@ -1,4 +1,5 @@
(volatile dword) ADDR32 loadstore zp[4]:2 12.0 (volatile dword) ADDR32 loadstore zp[4]:2 12.0
(const nomodify dword) MEGA65_MEM_COLOR_RAM = (dword) $ff80000
(void()) __start() (void()) __start()
(label) __start::@1 (label) __start::@1
(label) __start::@return (label) __start::@return