Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2024-06-18 05:29:33 +00:00
Code Issues Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
4am 2018-03-26 13:24:42 -04:00
parent c9061c817d
commit a9cc254a74
2 changed files with 37 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/pitchdark.a
View File

@ -10,8 +10,9 @@
!source "src/macros.a"
!source "src/memory.a"
!source "src/gamelist.a"
!source "src/WeeGUI_MLI.s"
!source "src/gamelist.a"
!source "src/okvs.a"
!source "src/prodos.a"
!source "src/ramdisk.a"
@ -22,6 +23,7 @@
!source "src/paintcommon.a"
!source "src/paint.a"
!source "src/paintoptions.a"
!source "src/sound.a"
.weeguiFilename
!byte 10
@ -33,10 +35,12 @@ Start
cmp #$30 ; 128K?
beq + ; yes, continue
- jmp QuitToProDOS
+ !byte $1a ; 65C02 INC, clear Z flag if supported
beq - ; not a 65C02
+ inc ; 65C02-only INC instruction will clear Z flag
beq - ; if Z flag is still set, this is not a 65C02
jsr DisconnectRAM32 ; disconnect /RAM in S3,D2 so we can use DHGR
bit $C010
bit $C010 ; clear keyboard strobe
jsr LoadFile ; load WEEGUI binary at $4000
!word .weeguiFilename
!word WGInit
@ -75,26 +79,5 @@ ExitWeeGUI
ldx #WGExit ; clean up WeeGUI
jmp WeeGUI
WAIT = $FCA8
SPEAKER = $C030
SoftBell
php
phx
pha
ldx #32
- lda #2
jsr WAIT
bit SPEAKER
lda #33
jsr WAIT
bit SPEAKER
dex
bne -
pla
plx
plp
rts
gPrefsStore
!word *+2 ; address of storage space for prefs

29
src/sound.a Normal file
View File

@ -0,0 +1,29 @@
;license:MIT
;(c) 2018 by 4am
;
; Sound routines
;
; Public functions
; - SoftBell
;
WAIT = $FCA8
SPEAKER = $C030
SoftBell
php
phx
pha
ldx #32
- lda #2
jsr WAIT
bit SPEAKER
lda #33
jsr WAIT
bit SPEAKER
dex
bne -
pla
plx
plp
rts