mirror of
https://github.com/a2-4am/4cade.git
synced 2024-06-27 03:29:30 +00:00
24 lines
751 B
Plaintext
24 lines
751 B
Plaintext
|
LaunchInternal
|
||
|
jsr SaveOrRestoreScreenHoles ; save screen hole contents
|
||
|
ldy #$F1
|
||
|
- lda $100,y
|
||
|
sta STACKBASE - $F0,y ; back up stack
|
||
|
iny
|
||
|
bne -
|
||
|
tsx ; back up stack pointer
|
||
|
stx STACKBASE
|
||
|
sty RestoreStackNextTime + 1
|
||
|
; tell |Reenter| to restore the stack and stack pointer
|
||
|
|
||
|
ldx #(end_promote-promote-1)
|
||
|
- lda promote,x ; copy ProDOS shim to main memory
|
||
|
sta $bf00,x
|
||
|
dex
|
||
|
bpl -
|
||
|
tya
|
||
|
ldy #$18
|
||
|
- sta $bf57,y
|
||
|
dey
|
||
|
bne -
|
||
|
jmp $106 ; jump to pre-launch code
|