Autostart.
This commit is contained in:
parent
1b6283102c
commit
16c3c4dc49
34
src/main.asm
34
src/main.asm
@ -59,24 +59,36 @@ coldstart SUBROUTINE
|
||||
ldy #>message
|
||||
jsr $cb1e ; print null terminated string
|
||||
|
||||
; install fake chrin to hijack custom commands
|
||||
sei
|
||||
lda #<fake_chrin
|
||||
sta $324
|
||||
lda #>fake_chrin
|
||||
sta $325
|
||||
cli
|
||||
|
||||
jmp $c483 ; BASIC
|
||||
|
||||
fake_input_line:
|
||||
BYTE "RUN", #$0d
|
||||
BYTE "RUN",#$0d,#0,#0,#0
|
||||
|
||||
fake_chrin SUBROUTINE
|
||||
ldy fake_current_byte
|
||||
lda fake_input_line,y
|
||||
iny
|
||||
sty fake_current_byte
|
||||
cpy #4
|
||||
cpy #5
|
||||
bne .end_fake_chrin
|
||||
sei
|
||||
lda #$f2
|
||||
sta $324
|
||||
lda #$0e
|
||||
sta $325
|
||||
cli
|
||||
dey
|
||||
sty fake_current_byte
|
||||
|
||||
; sei
|
||||
; lda #$f2
|
||||
; sta $324
|
||||
; lda #$0e
|
||||
; sta $325
|
||||
; cli
|
||||
|
||||
.end_fake_chrin:
|
||||
clc
|
||||
rts
|
||||
@ -152,11 +164,15 @@ copyloop:
|
||||
rts
|
||||
|
||||
message:
|
||||
BYTE #$0d,#$0d,"TYPE 'RUN'",#$0d,"THEN WAIT 20 SEC",#$0d,#$0d,#0
|
||||
BYTE #$0d,#$0d,"PLEASE WAIT 20 SEC",#$0d,"I'M JUST",#$0d,"AN OLD COMPUTER",#$0d,#0
|
||||
|
||||
; https://www.commodore.ca/manuals/funet/cbm/vic20/demos.basic/unexpanded/Stillenacht.prg
|
||||
basicdemo:
|
||||
.incbin "res/stillenacht.raw"
|
||||
demoend:
|
||||
|
||||
. = $bffc
|
||||
jmp coldstart
|
||||
|
||||
. = $bfff
|
||||
BYTE #$ff
|
||||
|
Loading…
Reference in New Issue
Block a user