mirror of
https://gitlab.com/camelot/kickc.git
synced 2024-10-21 17:24:39 +00:00
20 lines
415 B
NASM
20 lines
415 B
NASM
// Support for pointer to struct member
|
|
.pc = $801 "Basic"
|
|
:BasicUpstart(main)
|
|
.pc = $80d "Program"
|
|
.const OFFSET_STRUCT_SCREEN_COLORS_BG0 = 1
|
|
// Commodore 64 processor port
|
|
.label COLORS = $d020
|
|
// The background color
|
|
.label BG_COLOR = COLORS+OFFSET_STRUCT_SCREEN_COLORS_BG0
|
|
main: {
|
|
// COLORS->BORDER = 0
|
|
lda #0
|
|
sta COLORS
|
|
// *BG_COLOR = 6
|
|
lda #6
|
|
sta BG_COLOR
|
|
// }
|
|
rts
|
|
}
|