2019-10-09 17:15:33 +00:00
|
|
|
;license:MIT
|
|
|
|
|
;(c) 2018-9 by 4am & qkumba
|
|
|
|
|
;
|
2019-10-09 17:16:29 +00:00
|
|
|
; Functions to launch games and self-running demos
|
2019-10-09 17:15:33 +00:00
|
|
|
;
|
|
|
|
|
; /!\ These live in LC RAM 2 and rely on the ProRWTS code which is also in LC RAM 2. /!\
|
|
|
|
|
; Code in LC RAM 1 (which is most program code) should call the functions in glue.launch
|
|
|
|
|
; which handle bank switching for you.
|
|
|
|
|
|
2019-10-09 17:04:39 +00:00
|
|
|
LaunchInternal
|
|
|
|
|
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
|
