2023-10-29 02:30:16 +02:00
|
|
|
.include "src/variables.s"
|
2023-10-28 20:47:43 +02:00
|
|
|
|
2023-10-28 23:49:48 +02:00
|
|
|
|
|
|
|
.org $c000 ; $c000 for 16k ROM
|
2023-10-29 02:30:16 +02:00
|
|
|
.include "src/kernel.s"
|
2023-10-24 23:34:20 +02:00
|
|
|
|
2023-10-28 23:49:48 +02:00
|
|
|
|
|
|
|
.org $f700
|
2023-10-30 20:37:11 +01:00
|
|
|
charset: .incbin "assets/UTF-8.bin"
|
2023-10-28 23:49:48 +02:00
|
|
|
|
|
|
|
.org $ff00
|
2023-10-30 20:37:11 +01:00
|
|
|
reset: sei
|
2023-10-28 20:47:43 +02:00
|
|
|
cld
|
2023-10-24 23:34:20 +02:00
|
|
|
|
2023-10-28 20:47:43 +02:00
|
|
|
lda #<irq
|
|
|
|
sta irq_vector
|
|
|
|
lda #>irq
|
|
|
|
sta irq_vector+1
|
2023-10-24 23:34:20 +02:00
|
|
|
|
2023-10-28 20:47:43 +02:00
|
|
|
lda #$E0
|
|
|
|
sta vidm
|
2023-10-24 23:34:20 +02:00
|
|
|
|
2023-10-28 20:47:43 +02:00
|
|
|
lda #$60
|
|
|
|
sta cursor_delay
|
|
|
|
lda #$06
|
|
|
|
sta cursor_delay_interval
|
|
|
|
lda #$20
|
|
|
|
sta color
|
|
|
|
lda #$80
|
|
|
|
sta cursor_speed
|
|
|
|
lda #$ff
|
|
|
|
sta cursor_x_previous
|
|
|
|
sta cursor_y_previous
|
2023-10-24 23:34:20 +02:00
|
|
|
|
2023-10-28 20:47:43 +02:00
|
|
|
stz cursor_x
|
|
|
|
stz cursor_y
|
|
|
|
stz cursor_value
|
|
|
|
stz cursor_speed_count
|
|
|
|
stz cursor_delay_count
|
|
|
|
stz cursor_delay_switch
|
|
|
|
stz typelength
|
|
|
|
stz keyboard_current
|
|
|
|
stz keyboard_previous
|
|
|
|
stz system_register
|
|
|
|
stz soft_system_register
|
2023-10-24 23:34:20 +02:00
|
|
|
|
|
|
|
|
2023-10-28 20:47:43 +02:00
|
|
|
jsr kernel_init
|
|
|
|
|
|
|
|
|
2023-10-30 20:37:11 +01:00
|
|
|
loop: jmp loop
|
2023-10-28 20:47:43 +02:00
|
|
|
|
2023-10-30 20:37:11 +01:00
|
|
|
irq_jump: jmp (irq_vector)
|
2023-10-28 20:47:43 +02:00
|
|
|
|
|
|
|
|
|
|
|
.org $fffa
|
|
|
|
.addr $0f00
|
|
|
|
.addr reset
|
|
|
|
.addr irq_jump
|
2023-10-24 23:34:20 +02:00
|
|
|
|
2023-10-28 20:47:43 +02:00
|
|
|
.end
|