296 lines
11 KiB
NASM
296 lines
11 KiB
NASM
// vim: filetype=kickass
|
|
|
|
.const PA = $dc00
|
|
.const PB = $dc01
|
|
.const DDRA = $dc02
|
|
.const DDRB = $dc03
|
|
|
|
* = * "Menu Routines"
|
|
//
|
|
// draw_menu
|
|
//
|
|
draw_menu:
|
|
lda $d018
|
|
and #%11110001
|
|
ora #%00000100
|
|
sta $d018
|
|
|
|
ldy #$fa + 1
|
|
sty $d020
|
|
sty $d021
|
|
!:
|
|
// TODO Compression for the characters
|
|
lda menu_characters + $0000 - 1, y
|
|
sta SCREEN_RAM + $0000 - 1, y
|
|
lda menu_characters + $00fa - 1, y
|
|
sta SCREEN_RAM + $00fa - 1, y
|
|
lda menu_characters + $01f4 - 1, y
|
|
sta SCREEN_RAM + $01f4 - 1, y
|
|
lda menu_characters + $02ee - 1, y
|
|
sta SCREEN_RAM + $02ee - 1, y
|
|
|
|
lda menu_colors + $0000 - 1, y
|
|
sta COLOR_RAM + $0000 - 1, y
|
|
lsr; lsr; lsr; lsr
|
|
sta COLOR_RAM + $00fa - 1, y
|
|
|
|
lda menu_colors + $00fa - 1, y
|
|
sta COLOR_RAM + $01f4 - 1, y
|
|
lsr; lsr; lsr; lsr
|
|
sta COLOR_RAM + $02ee - 1, y
|
|
|
|
dey
|
|
bne !-
|
|
|
|
rts
|
|
|
|
//
|
|
// menu_update
|
|
//
|
|
menu_update:
|
|
lda PA
|
|
lsr
|
|
bcs !not_up+
|
|
lda $07
|
|
sec
|
|
sbc #8
|
|
cmp #49
|
|
bcc !wait+
|
|
sta $07
|
|
jmp !wait+
|
|
!not_up:
|
|
|
|
lsr
|
|
bcs !not_down+
|
|
lda $07
|
|
clc
|
|
adc #08
|
|
cmp #242
|
|
bcs !wait+
|
|
sta $07
|
|
jmp !wait+
|
|
!not_down:
|
|
|
|
lsr
|
|
lsr
|
|
lsr
|
|
bcs !done+
|
|
sei
|
|
jsr clear_screen
|
|
|
|
lda $07
|
|
lsr; lsr; lsr
|
|
sec
|
|
sbc #6
|
|
asl
|
|
tay
|
|
|
|
// Modify JSR instruction to jump to the right day
|
|
lda !days+, y
|
|
sta !jump+ + 1
|
|
lda !days+ + 1, y
|
|
sta !jump+ + 2
|
|
|
|
!jump:
|
|
jsr !done+
|
|
|
|
!wait:
|
|
ldy #80
|
|
ldx #0
|
|
!:
|
|
!:
|
|
dex
|
|
bne !-
|
|
dey
|
|
bne !--
|
|
|
|
!done:
|
|
rts
|
|
|
|
!days:
|
|
.word day01 // 1
|
|
.word 0 // 2
|
|
.word 0 // 3
|
|
.word 0 // 4
|
|
.word day05 // 5
|
|
.word 0 // 6
|
|
.word 0 // 7
|
|
.word 0 // 8
|
|
.word 0
|
|
.word 0 // 9
|
|
.word 0
|
|
.word 0
|
|
.word 0 // 15
|
|
.word 0
|
|
.word 0 // 10
|
|
.word 0 // 14
|
|
.word 0
|
|
.word 0 // 11
|
|
.word 0 // 13
|
|
.word 0
|
|
.word 0 // 12
|
|
.word 0
|
|
.word 0
|
|
.word 0
|
|
.word 0
|
|
|
|
//
|
|
// setup_interrupt
|
|
//
|
|
setup_interrupt:
|
|
sei
|
|
|
|
SetRasterInterrupt(menu_irq)
|
|
move_16_imm($fffa, nmi_nop)
|
|
|
|
lda #$7f
|
|
sta $dc0d
|
|
sta $dd0d
|
|
|
|
lda #$01
|
|
sta $d019
|
|
sta $d01a
|
|
|
|
lda #$35
|
|
sta $01
|
|
|
|
cli
|
|
rts
|
|
|
|
menu_irq:
|
|
pha
|
|
txa
|
|
pha
|
|
tya
|
|
pha
|
|
|
|
StabilizeRaster()
|
|
ldy #11
|
|
sty $d020
|
|
sty $d021
|
|
|
|
ldy #90
|
|
!:
|
|
dey
|
|
bne !-
|
|
|
|
ldy #0
|
|
sty $d021
|
|
sty $d020
|
|
|
|
SetRasterInterrupt(menu_irq)
|
|
|
|
asl $d019
|
|
|
|
pla
|
|
tay
|
|
pla
|
|
tax
|
|
pla
|
|
rti
|
|
|
|
nmi_nop:
|
|
rti
|
|
|
|
.macro SetRasterInterrupt(address) {
|
|
move_16_imm($fffe, address)
|
|
|
|
lda $d011
|
|
and #$7f
|
|
sta $d011
|
|
|
|
lda $07
|
|
sta $d012
|
|
}
|
|
|
|
.macro StabilizeRaster() {
|
|
move_16_imm($fffe, stabilized_irq)
|
|
inc $d012
|
|
|
|
asl $d019
|
|
|
|
tsx
|
|
|
|
cli
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
stabilized_irq:
|
|
txs
|
|
sei
|
|
|
|
ldx #6
|
|
!:
|
|
dex
|
|
bne !-
|
|
bit $00
|
|
|
|
lda $d012
|
|
cmp $d012
|
|
beq *+2
|
|
}
|
|
|
|
.align $0100
|
|
* = * "Menu Data"
|
|
menu_characters:
|
|
.byte ' ',' ',' ',' ',$6f,$6f,$6f,$52,$52,$52,$46,$46,$46,$46,$42,$46,$46,$46,$46,$52,$52,$52,$6f,$6f,$6f,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$31,$2a,$2a
|
|
.byte $45,$45,$77,$77,' ',$2e,$27,' ',' ',$2d,' ',' ',$2d,' ',' ',$4d,$2d,' ',$2e,$27,$27,$68,' ',$68,' ',$77,$77,$45,$45,$44,$43,$40,$46,$52,$6f,' ',' ',$32,' ',' '
|
|
.byte $68,' ',' ',$68,' ',$27,$2e,$27,$2e,' ',$2d,' ',' ',' ',$2d,' ',$4d,' ',$2d,$27,$27,$3a,' ',' ',$68,' ',$68,' ',' ',' ',$68,' ',' ',$68,' ',' ',' ',$33,' ',' '
|
|
.byte ' ',' ',$68,' ',$68,' ',' ',$68,' ',$27,$27,$2e,$2e,$27,$27,$27,$64,$1b,$1d,$2e,$27,' ',' ',$68,' ',' ',' ',' ',$68,' ',' ',' ',$68,' ',$68,' ',' ',$34,' ',' '
|
|
.byte $27,$2e,' ',$68,' ',' ',$68,' ',' ',$68,' ',' ',$64,$64,$6f,$4e,$63,$27,$27,' ',' ',$68,' ',' ',$68,' ',' ',$68,' ',' ',' ',' ',' ',$68,' ',' ',' ',$35,$2a,$2a
|
|
.byte $27,' ',' ',$2e,$2e,$6f,$6f,$6f,$6f,$6f,$4e,$77,$63,$63,' ',' ',$68,' ',' ',$68,' ',' ',$68,' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',' ',' ',' ',' ',$36,' ',' '
|
|
.byte $68,' ',$3a,$1b,$1d,$27,$2e,' ',' ',' ',$68,' ',$68,' ',' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$37,' ',' '
|
|
.byte ' ',' ',' ',$27,$2e,$4d,' ',$68,' ',' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',$68,' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',$38,' ',' '
|
|
.byte ' ',' ',$68,' ',' ',' ',$4d,' ',' ',$68,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
|
|
.byte ' ',' ',' ',' ',' ',$68,' ',$4d,' ',' ',' ',' ',' ',' ',' ',' ',' ',$27,$27,'.','.',' ',' ',' ',' ',$68,' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',$39,' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',$4d,' ',$68,' ',' ',' ',' ',' ',$27,' ','[',']','.',' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',$68,' ',' ',$2e,' ',$31,$36,' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',$4d,' ',' ',' ',' ',' ',$27,' ',',',' ',':',$4d,' ',' ',$68,' ',' ',' ',' ',' ',' ',' ',$3a,$27,$27,' ',' ',' ',' ',' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',$68,$4d,' ',' ',' ',' ',$27,'.','.',$27,' ',' ',$4d,$6f,$6f,$64,$64,$64,' ',' ',$68,' ',$27,$2e,' ',$2c,' ',$31,$35,' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$4d,' ',$68,' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',$63,$63,$63,$77,$77,$4d,' ',' ',$3a,' ',' ',' ',' ',' ',' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',$4d,' ',' ',' ',$68,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$2e,$4d,$27,' ',$2c,' ',' ',$31,$30,' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$4d,' ',' ',' ',$2e,' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',$27,$2e,$1b,$1d,' ',$2c,' ',$31,$34,' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',$4d,$27,$27,$2c,$3a,' ',' ',$68,' ',' ',' ',' ',' ',' ',' ',$64,$4e,$27,$2e,$2e,' ',' ',' ',' ',' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$3a,$1b,$1d,$2e,$2e,$27,' ',' ',' ',' ',' ',' ',' ',' ',' ',$4e,$63,$68,' ',' ',' ',$27,' ',$31,$31,' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$27,$27,$4d,$64,$64,' ',' ',$68,' ',' ',' ',' ',' ',$4e,' ',' ',' ',' ',' ',' ',' ',' ',$31,$33,' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$68,$63,$63,$4d,$64,$64,' ',' ',' ',' ',$4e,$68,' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$63,$63,$4d,$64,$64,$4e,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$31,$32,' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$68,$63,$63,' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',' ',' ',' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$68,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '
|
|
.byte ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',$2e,' ',$2e,$2e,' ',' ',' ',$2e,$27,' ',$2e,$2e,' ',' ',' ',' ',' ',' ',' ',' ',' '
|
|
|
|
menu_colors:
|
|
.byte $6f, $0e, $6e, $0e, $0e, $0e, $0e, $0e, $0e, $0e, $0e, $6e, $0e, $0e, $02, $0e, $0e, $0e, $0e, $0e // 0;00 - 0;20 | 6;10 - 6;30
|
|
.byte $0e, $0e, $0e, $0e, $0e, $00, $00, $f0, $00, $00, $00, $00, $00, $50, $50, $10, $e0, $6f, $07, $07 // 0;20 - 1;00 | 6;30 - 7;10
|
|
.byte $0e, $0e, $0e, $0e, $0e, $01, $61, $0e, $0e, $61, $00, $00, $01, $00, $01, $01, $61, $0e, $01, $01 // 1;00 - 1;20 | 7;10 - 7;30
|
|
.byte $01, $06, $00, $66, $0e, $0e, $0e, $fe, $0e, $0e, $0e, $0e, $6e, $0e, $0e, $00, $10, $0f, $00, $60 // 1;20 - 2;00 | 7;30 - 8;10
|
|
.byte $06, $0e, $0e, $06, $0e, $01, $01, $01, $01, $0e, $01, $00, $b0, $00, $01, $0e, $01, $0e, $01, $61 // 2;00 - 2;20 | 8;10 - 8;30
|
|
.byte $01, $01, $00, $00, $06, $00, $06, $00, $00, $00, $06, $03, $03, $06, $03, $60, $00, $1f, $00, $00 // 2;20 - 3;00 | 8;30 - 9;10
|
|
.byte $0e, $0e, $06, $0e, $06, $0e, $0e, $c6, $ce, $c1, $c1, $01, $01, $01, $01, $61, $01, $01, $01, $01 // 3;00 - 3;20 | 9;10 - 9;30
|
|
.byte $01, $00, $00, $66, $00, $00, $00, $f0, $06, $00, $00, $00, $06, $0e, $06, $00, $00, $0f, $10, $00 // 3;20 - 4;00 | 9;30 - 10;10
|
|
.byte $65, $05, $00, $06, $0e, $0e, $b6, $0e, $1e, $16, $51, $01, $01, $01, $01, $01, $01, $01, $61, $00 // 4;00 - 4;20 | 10;10 - 10;30
|
|
.byte $00, $66, $00, $00, $56, $00, $b0, $b6, $00, $00, $00, $00, $00, $06, $00, $00, $00, $0f, $07, $17 // 4;20 - 5;00 | 10;30 - 11;10
|
|
.byte $05, $00, $00, $05, $05, $b1, $01, $b1, $01, $b1, $11, $01, $01, $61, $01, $00, $06, $00, $00, $06 // 5;00 - 5;20 | 11;10 - 11;30
|
|
.byte $00, $50, $56, $50, $00, $00, $00, $00, $00, $06, $00, $00, $00, $00, $00, $00, $00, $0f, $00, $60 // 5;20 - 6;00 | 11;30 - 12;10
|
|
.byte $16, $00, $05, $01, $01, $c5, $55, $c5, $50, $00 // 6;00 - 6;10 | 12;10 - 12;20
|
|
|
|
.byte $00, $01, $01, $01, $01, $01, $f1, $f1, $01, $06, $00, $05, $05, $0e, $05, $00, $0f, $0f, $00, $00 // 12;20 - 13;00 | 18;30 - 19;10
|
|
.byte $00, $00, $00, $00, $00, $00, $60, $10, $10, $10, $10, $11, $00, $06, $00, $00, $10, $60, $00, $00 // 13;00 - 13;20 | 19;10 - 19;30
|
|
.byte $00, $06, $00, $00, $61, $01, $01, $01, $01, $01, $00, $00, $05, $0e, $0b, $00, $00, $00, $00, $00 // 13;20 - 14;00 | 19;30 - 20;10
|
|
.byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $06, $10, $10, $11, $10, $10, $10, $06, $00, $00, $00 // 14;00 - 14;20 | 20;10 - 20;30
|
|
.byte $00, $00, $00, $01, $00, $00, $f0, $f0, $00, $05, $01, $05, $0e, $05, $00, $00, $0f, $0f, $00, $00 // 14;20 - 15;00 | 20;30 - 21;10
|
|
.byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $60, $11, $10, $00, $00, $05, $00, $00 // 15;00 - 15;20 | 21;10 - 21;30
|
|
.byte $00, $00, $60, $00, $00, $06, $00, $00, $00, $05, $05, $01, $01, $0e, $05, $00, $0f, $0f, $00, $00 // 15;20 - 16;00 | 21;30 - 22;10
|
|
.byte $00, $00, $00, $00, $00, $00, $00, $60, $00, $10, $00, $06, $00, $00, $01, $05, $05, $05, $05, $00 // 16;00 - 16;20 | 22;10 - 22;30
|
|
.byte $00, $06, $00, $00, $00, $00, $00, $00, $00, $01, $01, $05, $05, $05, $00, $00, $00, $00, $00, $00 // 16;20 - 17;00 | 22;30 - 23;10
|
|
.byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $10, $10, $10, $00, $05, $01, $01, $05, $05, $05, $00 // 17;00 - 17;20 | 23;10 - 23;30
|
|
.byte $00, $00, $00, $00, $00, $00, $00, $00, $01, $01, $06, $00, $00, $00, $05, $00, $0f, $0f, $00, $00 // 17;20 - 18;00 | 23;30 - 24;10
|
|
.byte $00, $00, $00, $00, $00, $00, $00, $00, $00, $50, $e0, $50, $50, $00, $05, $05, $51, $51, $01, $50 // 18;00 - 18;20 | 24;10 - 24;30
|
|
.byte $50, $06, $00, $00, $00, $00, $00, $01, $00, $00 // 18;20 - 18;30 | 24;30 - 25;00
|