mirror of
https://github.com/a2-4am/pitch-dark.git
synced 2025-04-27 21:53:56 +00:00
commit
0dd1f8f563
@ -5,6 +5,13 @@
|
||||
*=$2000
|
||||
!to "build/GRUE.SYSTEM",plain
|
||||
|
||||
lda $BF98 ; machine identification byte
|
||||
and #$30
|
||||
cmp #$30 ; 128K?
|
||||
bne QuitToProDOS ; no, quit to ProDOS
|
||||
!byte $1a ; 65C02 INC, clear Z flag if supported
|
||||
beq QuitToProDOS ; not a 65C02
|
||||
|
||||
- jsr $bf00
|
||||
op_c7
|
||||
!byte $c7
|
||||
@ -39,6 +46,13 @@ op_c7
|
||||
bne -
|
||||
jmp $1000
|
||||
|
||||
QuitToProDOS
|
||||
jsr $bf00
|
||||
!byte $65
|
||||
!word quit_parms
|
||||
quit_parms
|
||||
!byte 4
|
||||
|
||||
c5_parms
|
||||
!byte 2
|
||||
!byte 0
|
||||
|
@ -27,8 +27,10 @@ Start
|
||||
and #$30
|
||||
cmp #$30 ; 128K?
|
||||
beq + ; yes, continue
|
||||
jmp QuitToProDOS
|
||||
+ jsr DisconnectRAM32 ; disconnect /RAM in S3,D2 so we can use DHGR
|
||||
- jmp QuitToProDOS
|
||||
+ !byte $1a ; 65C02 INC, clear Z flag if supported
|
||||
beq - ; not a 65C02
|
||||
jsr DisconnectRAM32 ; disconnect /RAM in S3,D2 so we can use DHGR
|
||||
bit $C010
|
||||
jsr LoadFile ; load WEEGUI binary at $4000
|
||||
!word .weeguiFilename
|
||||
|
Loading…
x
Reference in New Issue
Block a user