commit eba16a9

zzo38  ·  2025-09-19 21:50:49 +0000 UTC
parent 0dd5291 
Make a correction in prg/timer.tal so that clicking the adjust arrows on the timer screen works correctly.
1 files changed,  +5, -3
M prg/timer.tal
M prg/timer.tal
+5, -3 
 1@@ -340,8 +340,8 @@
 2   ( B ) :kToggle24 :kAlarmOff :kStop :kSave
 3   ( SELECT ) :kMode :kMode :kMode :kMode
 4   ( START ) :kNoSound :kNoSound :kNoSound :kNoSound
 5-  ( UP ) :kBrk :kAlUp :kTimerAdj :kHighVolume
 6-  ( DOWN ) :kBrk :kAlDown :kTimerAdj :kLowVolume
 7+  ( UP ) :kBrk :kAlUp :kTimerUp :kHighVolume
 8+  ( DOWN ) :kBrk :kAlDown :kTimerDown :kLowVolume
 9   ( LEFT ) :kBrk :kCursorL :kCursorL :kPrevChime
10   ( RIGHT ) :kBrk :kCursorR :kCursorR :kNextChime
11 
12@@ -369,11 +369,13 @@
13 
14 @alarmAdjAmount .Alarm/m LDZk LIT2 09 -Cursor LDZ MUL #1c SUB JMP2r
15 
16+@kTimerUp LIT2 ff _kTimerAdj/x STR !kTimerAdj
17+@kTimerDown LIT2 00 _kTimerAdj/x STR ( fall through )
18 @kTimerAdj
19   .TimerOn LDZ ?kBrk
20   LIT2 -Timer -Cursor LDZ #01 STH2k SFT ADD LDZk
21   STH2r AND #09 MUL #f6 ADD
22-  #1082 DEI AND [? ADD #3c GTHk MUL ADD ][ SUB #3c DIVk MUL SUB ]@
23+  LIT &x 00 [? ADD #3c GTHk MUL ADD ][ SUB #3c DIVk MUL SUB ]@
24   SWP STZ redraw-timer BRK
25 
26 @kNoD POP2 BRK