Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2025-02-18 22:30:54 +00:00
Code Issues Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
4am 2018-04-18 16:48:20 -04:00
parent 2759460897
commit 453ee52849
4 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/constants.a
View File

@ -17,7 +17,7 @@
;~7400...... - program data (approximate) ;~7400...... - program data (approximate)
; ;
kPitchDarkBinaryAddress = $3F4D kPitchDarkBinaryAddress = $3F41
kGameInfoBuffer = $0800 ; used by LoadGameInfo kGameInfoBuffer = $0800 ; used by LoadGameInfo
kProDOSFileBuffer = $1C00 ; 1K buffer for ProDOS MLI calls kProDOSFileBuffer = $1C00 ; 1K buffer for ProDOS MLI calls

2
src/pitchdark.a
View File

@ -14,8 +14,8 @@
*=kPitchDarkBinaryAddress *=kPitchDarkBinaryAddress
jsr QuitUnless128KAnd65C02; check minimum hardware requirements
!source "src/pitchdark.init.a" !source "src/pitchdark.init.a"
jsr LoadGameInfo ; get current game description and game-specific options jsr LoadGameInfo ; get current game description and game-specific options
jsr WGInit ; initialize WeeGUI jsr WGInit ; initialize WeeGUI
ldx #WGEnableMouse ; enable mouse support ldx #WGEnableMouse ; enable mouse support

11
src/pitchdark.init.a
View File

@ -1,3 +1,14 @@
;------------------------------------------------------------------------------
; check machine requirements (128K with 65C02) and quit to ProDOS if not met
;------------------------------------------------------------------------------
lda MACHID
and #$30
cmp #$30 ; 128K?
beq + ; yes, continue
- jmp QuitToProDOS
+ inc ; 65C02-only INC instruction will clear Z flag
beq - ; if Z flag is still set, this is not a 65C02
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; disconnect ProDOS /RAM disk in S3,D2 ; disconnect ProDOS /RAM disk in S3,D2
; (does not affect other RAM disks like RAMWorks or RAMFactor) ; (does not affect other RAM disks like RAMWorks or RAMFactor)

9
src/prodos.mli.a
View File

@ -9,7 +9,6 @@
; - SaveFile ; - SaveFile
; - SetPrefix ; - SetPrefix
; - GetFileInfo ; - GetFileInfo
; - QuitToProDOS
; ;
; MLI command codes ; MLI command codes
@ -390,14 +389,6 @@ _setprefix
ldy #PC_SETPREFIX ldy #PC_SETPREFIX
jmp mli jmp mli
QuitUnless128KAnd65C02
lda MACHID
and #$30
cmp #$30 ; 128K?
bne QuitToProDOS
+ inc ; 65C02-only INC instruction will clear Z flag
bne mliexit ; if Z flag is clear, this is a 65C02 (good)
; if Z flag is set, this is not a 65C02 (bad) and execution falls through here
QuitToProDOS QuitToProDOS
lda #CMD_QUIT lda #CMD_QUIT
ldy #PC_QUIT ldy #PC_QUIT