diff --git a/src/main.asm b/src/main.asm index 7c60f54..bc2bb2a 100644 --- a/src/main.asm +++ b/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 $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