FlexNavigator 1.16.02

- переделано отображение даты/времени, в режиме 1 (формат 02.08.2025)
  неправильно конвертило год.
- обновлено описание Flex Navigator API до версии 0.5.
- удален один джамп из таблицы за ненадобностью.
- большое перименование меток, пересборка всего для проверки.
This commit is contained in:
savelij13 committed 2025-08-02 23:49:42 +03:00
1 parent ec227157b0
commit e4977b4a6f
52 files changed
+1397 -1369

No files matched your search

+20 -25
View File
@@ -1,5 +1,5 @@
; LAST UPDATE: 15.07.2025 savelij
; LAST UPDATE: 01.08.2025 savelij
include macros.a80
include fn_const.a80
@@ -52,17 +52,17 @@ aYear: EQU $ - STRLEN("Year") - 2
ld de,202
ld bc,149
ld a,COLORP.HIGHGRAY;80h
call JUMPS.PrnRangPathC
call JUMPS.PrintPathCentr
ld hl,aReset ; "Reset"
ld de,270
ld bc,149
ld a,COLORP.HIGHGRAY;80h
call JUMPS.PrnRangPathC
call JUMPS.PrintPathCentr
ld hl,aQuit ; "Quit"
ld de,438
ld bc,149
ld a,COLORP.HIGHGRAY;80h
call JUMPS.PrnRangPathC
call JUMPS.PrintPathCentr
call GetSysTime
call InitDate
ld ix,320
@@ -70,13 +70,13 @@ aYear: EQU $ - STRLEN("Year") - 2
ld de,320
ld bc,114
ld a,COLORP.HIGHGRAY;80h
call JUMPS.PrnRangPathC
call JUMPS.PrintPathCentr
call sub_C2B7
call PrintMonth
call PrintYear
call JUMPS.ResFire
call JUMPS.WaitUnpressMouse
_plugin_loop: ld ix,PluginMouseTab
call JUMPS.TestCoords
call JUMPS.CheckCoordsMouse
halt
SPDSS DSSF.SCANKEY
jr z,_plugin_loop
@@ -109,9 +109,8 @@ PrintDay: ld a,(Day)
ld ix,14h
ld de,0C3h
ld bc,82h
ld a,80h
call JUMPS.PrnRangPathL
ret
ld a,COLORP.HIGHGRAY + COLORI.BLACK
JP JUMPS.PrintPathLeft
DecDay: ld a,(max_date)
ld b,a
@@ -149,8 +148,7 @@ sub_C1F3: ld ix,40h ; '@'
ld de,13Ah
ld bc,82h
ld a,80h
call JUMPS.PrnRangPathC
ret
JP JUMPS.PrintPathCentr
DecMonth: ld a,(Month)
cp 0Bh
@@ -186,10 +184,9 @@ PrintYear: ld ix,1Ah
ld de,1A7h
ld bc,82h
ld a,80h
call JUMPS.PrnRangPathC
call JUMPS.PrintPathCentr
call sub_C268
call sub_C2B7
ret
JP sub_C2B7
DecYear: ld hl, a0+4 ; " "
ld c,'9'
@@ -230,25 +227,25 @@ loc_C281: ld (max_date),a
ret
loc_C285: ld de, a0+1 ; " "
call JUMPS.ConvTxtNum16
call JUMPS.atoi_16b
push hl
pop bc
ld de,190h
push bc
call JUMPS.Divis16X16
call JUMPS.Div_16X16_16b_16b
pop bc
ld a,h
or l
jr z,loc_C2AF
ld de,4
push bc
call JUMPS.Divis16X16
call JUMPS.Div_16X16_16b_16b
pop bc
ld a,h
or l
jr nz,loc_C2B3
ld de,64h ; 'd'
call JUMPS.Divis16X16
call JUMPS.Div_16X16_16b_16b
ld a,h
or l
jr z,loc_C2B3
@@ -264,11 +261,10 @@ sub_C2B7: ld a,(Day)
cp b
jr nc,loc_C2C4
ld (Day),a
loc_C2C4: call PrintDay
ret
loc_C2C4: JP PrintDay
SetDate: ld de, a0+1 ; " "
call JUMPS.ConvTxtNum16
call JUMPS.atoi_16b
push hl
SPDSS DSSF.GETTIME,0
ld a,(Day)
@@ -284,8 +280,7 @@ SetDate: ld de, a0+1 ; " "
ReadDate: call GetSysTime
loc_C2E9: call PrintDay
call PrintMonth
call PrintYear
ret
JP PrintYear
GetSysTime:
SPDSS DSSF.GETTIME,0
@@ -302,7 +297,7 @@ loc_C307: ld (hl),30h ; '0'
djnz loc_C307
pop hl
ld de, a0+1 ; " "
call JUMPS.ConvNumTxt16
call JUMPS.ConvertNumbers_16b
InitDate: ld hl, aToday+6 ; ""
ld b,' '
loc_C318: ld (hl),0