Tolik-Trek/Sprinter-Core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-08-03 02:10:00 +10:00
parent 811da31399
commit 99baba0efc
1 changed files with 17 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
src/bios/exp/FUNC_LOW_PRINT.ASM
View File

@ -1585,10 +1585,6 @@ LP_SCROLL_UD:
JR Z,LP_SCROLL_UP JR Z,LP_SCROLL_UP
DEC B DEC B
JR Z,LP_SCROLL_DN JR Z,LP_SCROLL_DN
; DEC B
; JR Z,LP_SCROLL_UP2
; DEC B
; JR Z,LP_SCROLL_DN2
SCF SCF
RET RET
@ -1596,7 +1592,7 @@ LP_SCROLL_UD:
; D - ¢¥àå­ïï áâப  ( ®â 0 ) ; D - ¢¥àå­ïï áâப  ( ®â 0 )
; E - ç¨á«® áªà®««¨à㥬ëå áâப ; E - ç¨á«® áªà®««¨à㥬ëå áâப
LP_SCROLL_UP: LP_SCROLL_UP:
DEC E DEC E ;!FIXIT ¯à ¢¨«ì­®?
RET Z RET Z
LP_OPEN_PG LP_OPEN_PG
@ -1606,9 +1602,7 @@ LP_SCROLL_UP:
CALL LP_AT_D CALL LP_AT_D
CALL LP_TAB_E ; ¢ëç¨á«¨âì ¯¥à¥¬¥­­ë¥ ¤«ï áâப¨ CALL LP_TAB_E ; ¢ëç¨á«¨âì ¯¥à¥¬¥­­ë¥ ¤«ï áâப¨
POP BC POP BC
.loop2: EXX
LP_SCROLL_L2:
EXX
PUSH HL PUSH HL
EXX EXX
POP HL POP HL
@ -1622,8 +1616,7 @@ LP_SCROLL_L2:
LD A,(SYS_PAGE.WIN_MAP_IX+WIN_V_END) LD A,(SYS_PAGE.WIN_MAP_IX+WIN_V_END)
CP L CP L
JR C,LP_SCROLL_U_EXIT ; ¥á«¨ ª®­¥æ, â® ¢ë室 JR C,.EXIT ; ¥á«¨ ª®­¥æ, â® ¢ë室
PUSH BC PUSH BC
LD A,L LD A,L
@ -1632,7 +1625,6 @@ LP_SCROLL_L2:
EXX EXX
LD A,(SYS_PAGE.WIN_MAP_IX+WIN_SIZE_H) LD A,(SYS_PAGE.WIN_MAP_IX+WIN_SIZE_H)
ADD A,A ; ç¨á«® ¡ ©â ¢ áâப¥ ¤«ï ¯¥à¥­®á  ADD A,A ; ç¨á«® ¡ ©â ¢ áâப¥ ¤«ï ¯¥à¥­®á 
ADD A,A ADD A,A
@ -1644,10 +1636,7 @@ LP_SCROLL_L2:
EXX EXX
LD A,D ; ¯®«ãç¨âì ¯®àâ ­ ç «  áâப¨ LD A,D ; ¯®«ãç¨âì ¯®àâ ­ ç «  áâப¨
EXX EXX
.loop1: OUT (RGADR),A
LP_SCROLL_L1:
OUT (RGADR),A
INC A ; á«¥¤ãî饥 §­ ç¥­¨¥ ¯®àâ  INC A ; á«¥¤ãî饥 §­ ç¥­¨¥ ¯®àâ 
LDI LDI
LDD LDD
@ -1655,25 +1644,21 @@ LP_SCROLL_L1:
INC A ; á«¥¤ãî饥 §­ ç¥­¨¥ ¯®àâ  INC A ; á«¥¤ãî饥 §­ ç¥­¨¥ ¯®àâ 
LDI LDI
LDD LDD
JP PE,LP_SCROLL_L1 JP PE,.loop1
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
POP BC POP BC
DJNZ .loop2
DJNZ LP_SCROLL_L2 .EXIT: LP_CLOSE_PG
LP_SCROLL_U_EXIT:
LP_CLOSE_PG
RET RET
; ‚室 : ; ‚室 :
; D - ¢¥àå­ïï áâப  ( ®â 0 ) ; D - ¢¥àå­ïï áâப  ( ®â 0 )
; E - ç¨á«® áªà®««¨à㥬ëå áâப ; E - ç¨á«® áªà®««¨à㥬ëå áâப
LP_SCROLL_DN: LP_SCROLL_DN:
DEC E DEC E ;!FIXIT ¯à ¢¨«ì­®?
RET Z RET Z
LP_OPEN_PG LP_OPEN_PG
@ -1688,11 +1673,7 @@ LP_SCROLL_DN:
CALL LP_TAB_E CALL LP_TAB_E
POP BC POP BC
.loop2: EXX
LP_SCROLL_D2:
EXX
PUSH HL PUSH HL
EXX EXX
POP HL POP HL
@ -1705,13 +1686,10 @@ LP_SCROLL_D2:
DEC L DEC L
LD A,(SYS_PAGE.WIN_MAP_IX+WIN_V_BEG) LD A,(SYS_PAGE.WIN_MAP_IX+WIN_V_BEG)
CP L CP L ; .CONT: L >= A
JR Z,LP_SCROLL_U_CONT JR Z,.CONT
JR NC,LP_SCROLL_U_EXIT ; ¥á«¨ ª®­¥æ, â® ¢ë室 JR NC,.EXIT ; ¥á«¨ ª®­¥æ, â® ¢ë室
.CONT: PUSH BC
LP_SCROLL_U_CONT:
PUSH BC
LD A,L LD A,L
EXX EXX
@ -1729,10 +1707,7 @@ LP_SCROLL_U_CONT:
EXX EXX
LD A,D LD A,D
EXX EXX
.loop1: OUT (RGADR),A
LP_SCROLL_D1:
OUT (RGADR),A
INC A INC A
LDI LDI
LDD LDD
@ -1740,17 +1715,14 @@ LP_SCROLL_D1:
INC A INC A
LDI LDI
LDD LDD
JP PE,LP_SCROLL_D1 JP PE,.loop1
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
POP BC POP BC
DJNZ LP_SCROLL_D2 DJNZ .loop2
.EXIT: LP_CLOSE_PG
LP_SCROLL_D_EXIT:
LP_CLOSE_PG
RET RET