aboutsummaryrefslogtreecommitdiff
path: root/newtitle.s
diff options
context:
space:
mode:
Diffstat (limited to 'newtitle.s')
-rw-r--r--newtitle.s36
1 files changed, 36 insertions, 0 deletions
diff --git a/newtitle.s b/newtitle.s
index 32f72a3..d9a96cb 100644
--- a/newtitle.s
+++ b/newtitle.s
@@ -4,6 +4,11 @@
.include "atari.inc"
+ ; location sound code will look at to see whether sound
+ ; is disabled (0 = enabled, !0 = disabled). If you
+ ; change this here, change it in sounds.h also!
+sound_disabled = $06ff
+
; where our screen was loaded (see newtitle.pl)
screendata = $9000
@@ -27,6 +32,7 @@ helphitbl:
.byte >help
.byte >(help+32)
.byte >(help+64)
+ .byte >(help+96)
.byte 0
helplotbl:
@@ -34,10 +40,14 @@ helplotbl:
.byte <help
.byte <(help+32)
.byte <(help+64)
+ .byte <(help+96)
.byte 0
helpshowing = FR1
+; N<space> or FF (inverse)
+sounddisp = help + 78
+
colorchoices:
.byte $c0,$10,$00
@@ -101,6 +111,7 @@ wait4key:
bne not_esc
; show next line of help
+showhelp:
stx FR1+1
ldx helpshowing
inx
@@ -119,6 +130,13 @@ helpok:
bcc x_ok
not_esc:
+ cmp #62 ; S key
+ bne not_s
+ jsr enable_disable_sound
+ clc
+ bcc showhelp
+
+not_s:
cmp #21 ; B key
bne not_b
dex
@@ -151,6 +169,24 @@ wait:
beq wait
rts
+enable_disable_sound:
+ lda #2
+ sta helpshowing
+ lda sound_disabled
+ eor #$01
+ sta sound_disabled
+ beq now_on
+ lda #166 ; inverse F screen code
+ sta sounddisp
+ sta sounddisp+1
+ rts
+now_on:
+ lda #174 ; inverse N screen code
+ sta sounddisp
+ lda #128 ; inverse space screen code
+ sta sounddisp+1
+ rts
+
; display list here
dlist:
.byte $70 ; 24 scanlines of blanks