Autostart.

This commit is contained in:
giomba 2022-12-04 20:12:19 +01:00
parent 1b6283102c
commit 16c3c4dc49
1 changed files with 25 additions and 9 deletions

View File

@ -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