FlexNavigator 1.16.02
- переделано отображение даты/времени, в режиме 1 (формат 02.08.2025) неправильно конвертило год. - обновлено описание Flex Navigator API до версии 0.5. - удален один джамп из таблицы за ненадобностью. - большое перименование меток, пересборка всего для проверки.
This commit is contained in:
1 parent
ec227157b0
commit
e4977b4a6f
52 files changed
+1397
-1369
No files matched your search
+20
-25
@@ -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
|
||||
|
||||
Reference in new issue
Block a user