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

ref

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-08-05 20:46:44 +10:00
parent 0c22fe031e
commit c8240c6c6b
2 changed files with 36 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shared_Includes

@ -1 +1 @@
Subproject commit b325c3281f76e83037cb0019450ae6e36689db65 Subproject commit ccb7691e3e36560b42832ea558ff038388a4598e

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

@ -87,13 +87,13 @@
LD A,C LD A,C
LD (SYS_PAGE.COPY_SLOT3),A LD (SYS_PAGE.COPY_SLOT3),A
IN A,(RGADR) IN A,(PORT_Y)
LD (SYS_PAGE.COPY_RGADR),A LD (SYS_PAGE.COPY_RGADR),A
ENDM ENDM
MACRO LP_CLOSE_PG MACRO LP_CLOSE_PG
LD A,(SYS_PAGE.COPY_RGADR) LD A,(SYS_PAGE.COPY_RGADR)
OUT (RGADR),A OUT (PORT_Y),A
LD A,(SYS_PAGE.COPY_SLOT3) LD A,(SYS_PAGE.COPY_SLOT3)
OUT (SLOT3),A OUT (SLOT3),A
ENDM ENDM
@ -104,7 +104,7 @@
EXX EXX
IN A,(SLOT3) IN A,(SLOT3)
LD C,A LD C,A
IN A,(RGADR) IN A,(PORT_Y)
LD B,A LD B,A
LD A,SYS_PAGE LD A,SYS_PAGE
@ -120,7 +120,7 @@
LD A,E LD A,E
AND A AND A
RRA RRA
OUT (RGADR),A OUT (PORT_Y),A
EXX EXX
EX AF,AF' EX AF,AF'
ENDM ENDM
@ -136,7 +136,7 @@
POP BC POP BC
LD A,B LD A,B
OUT (RGADR),A OUT (PORT_Y),A
LD A,C LD A,C
OUT (SLOT3),A OUT (SLOT3),A
@ -158,7 +158,7 @@ LP_PRINT_AL1:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
INC D INC D
LD (HL),C LD (HL),C
EXX EXX
@ -193,7 +193,7 @@ LP_PRINT_SYM:
LP_PRINT_SY1: LP_PRINT_SY1:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
LD (HL),C LD (HL),C
INC D INC D
@ -222,7 +222,7 @@ LP_PRINT_ATR:
LP_PRINT_AT1: LP_PRINT_AT1:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
INC D INC D
INC L INC L
@ -250,7 +250,7 @@ LP_PRINT_LINE:
; LD C,A ; LD C,A
LD A,#50 LD A,#50
OUT (SLOT3),A OUT (SLOT3),A
LD C,RGADR LD C,PORT_Y
EXX EXX
LP_PRINT_LN1: LP_PRINT_LN1:
@ -291,7 +291,7 @@ LP_PRINT_LINE2:
LD A,#50 LD A,#50
OUT (SLOT3),A OUT (SLOT3),A
EXX EXX
LD C,RGADR LD C,PORT_Y
EXX EXX
LP_PRINT_LN2: LP_PRINT_LN2:
@ -326,7 +326,7 @@ LP_PRINT_LINE3:
LP_PRINT_LN3: LP_PRINT_LN3:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
INC D INC D
EXX EXX
@ -374,7 +374,7 @@ LP_PRINT_LINE4:
LP_PRINT_LN4: LP_PRINT_LN4:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EXX EXX
LD A,(HL) LD A,(HL)
@ -417,7 +417,7 @@ LP_PRINT_LINE5:
LP_PRINT_LN5: LP_PRINT_LN5:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EXX EXX
LD A,(HL) LD A,(HL)
@ -463,7 +463,7 @@ LP_PRINT_LINE6:
LP_PRINT_LN6: LP_PRINT_LN6:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EXX EXX
LD A,(HL) LD A,(HL)
@ -503,7 +503,7 @@ LP_PRINT_LINE_DIR:
LP_PRINT_LN_D: LP_PRINT_LN_D:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EXX EXX
LD A,(HL) LD A,(HL)
@ -699,7 +699,7 @@ LP_CLS_L1:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
LD (HL),C LD (HL),C
INC L INC L
@ -824,7 +824,7 @@ LP_NEXT_HL:
LD A,(SYS_PAGE.WIN_MAP_IX+WIN_V_BEG) LD A,(SYS_PAGE.WIN_MAP_IX+WIN_V_BEG)
LD L,A LD L,A
INC L INC L
LD H,#C3 LD H,#C3 ;!HARDCODE
LP_NEXT_HL1: LP_NEXT_HL1:
LD A,(SYS_PAGE.WIN_MAP_IX+WIN_H_BEG) LD A,(SYS_PAGE.WIN_MAP_IX+WIN_H_BEG)
@ -850,7 +850,7 @@ LP_BEG_P:
LD A,E LD A,E
AND A AND A
RRA RRA
OUT (RGADR),A OUT (PORT_Y),A
EXX EXX
EX AF,AF' EX AF,AF'
RET RET
@ -898,7 +898,7 @@ LP_SET_ZG1:
LD B,A LD B,A
AND #0F AND #0F
ADD A,A ADD A,A
OUT (RGADR),A OUT (PORT_Y),A
LD A,B LD A,B
RRCA RRCA
RRCA RRCA
@ -1307,13 +1307,13 @@ LP_MODE_LR:
LP_MD_LL1: LP_MD_LL1:
EX AF,AF' EX AF,AF'
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EX AF,AF' EX AF,AF'
LD (HL),A ; ०¨¬ LD (HL),A ; ०¨¬
INC D INC D
EX AF,AF' EX AF,AF'
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EX AF,AF' EX AF,AF'
LD (HL),A ; ०¨¬ LD (HL),A ; ०¨¬
INC D INC D
@ -1380,7 +1380,7 @@ LP_MODE_LR2:
LP_MD_LL2: LP_MD_LL2:
EX AF,AF' EX AF,AF'
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EX AF,AF' EX AF,AF'
LD (HL),A ; ०¨¬ LD (HL),A ; ०¨¬
INC L INC L
@ -1397,7 +1397,7 @@ LP_MD_LL2:
lp_md_ll3x: lp_md_ll3x:
EX AF,AF' EX AF,AF'
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EX AF,AF' EX AF,AF'
LD (HL),A ; ०¨¬ LD (HL),A ; ०¨¬
INC L INC L
@ -1485,7 +1485,7 @@ LP_MD_LL3:
EX AF,AF' EX AF,AF'
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EX AF,AF' EX AF,AF'
LD (HL),B ; ०¨¬ LD (HL),B ; ०¨¬
INC L INC L
@ -1499,7 +1499,7 @@ LP_MD_LL3:
; EX AF,AF' ; EX AF,AF'
; LD A,D ; LD A,D
; OUT (RGADR),A ; OUT (PORT_Y),A
; EX AF,AF' ; EX AF,AF'
; LD (HL),B ; ०¨¬ ; LD (HL),B ; ०¨¬
; INC L ; INC L
@ -1536,10 +1536,9 @@ LP_EXIT_MODE3:
RET RET
LP_GR_640: LP_GR_640:
EX AF,AF' EX AF,AF'
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EX AF,AF' EX AF,AF'
LD (HL),B ; ०¨¬ 1 LD (HL),B ; ०¨¬ 1
INC L INC L
@ -1551,7 +1550,7 @@ LP_GR_640:
EX AF,AF' EX AF,AF'
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EX AF,AF' EX AF,AF'
LD (HL),0 ; ०¨¬ 3 LD (HL),0 ; ०¨¬ 3
DEC L DEC L
@ -1636,11 +1635,11 @@ LP_SCROLL_UP:
EXX EXX
LD A,D ; ¯®«ãç¨âì ¯®àâ ­ ç «  áâப¨ LD A,D ; ¯®«ãç¨âì ¯®àâ ­ ç «  áâப¨
EXX EXX
.loop1: OUT (RGADR),A .loop1: OUT (PORT_Y),A
INC A ; á«¥¤ãî饥 §­ ç¥­¨¥ ¯®àâ  INC A ; á«¥¤ãî饥 §­ ç¥­¨¥ ¯®àâ 
LDI LDI
LDD LDD
OUT (RGADR),A OUT (PORT_Y),A
INC A ; á«¥¤ãî饥 §­ ç¥­¨¥ ¯®àâ  INC A ; á«¥¤ãî饥 §­ ç¥­¨¥ ¯®àâ 
LDI LDI
LDD LDD
@ -1707,11 +1706,11 @@ LP_SCROLL_DN:
EXX EXX
LD A,D LD A,D
EXX EXX
.loop1: OUT (RGADR),A .loop1: OUT (PORT_Y),A
INC A INC A
LDI LDI
LDD LDD
OUT (RGADR),A OUT (PORT_Y),A
INC A INC A
LDI LDI
LDD LDD
@ -1745,7 +1744,7 @@ WIN_GET_SYM:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
LD A,(HL) LD A,(HL)
EXX EXX
@ -1791,7 +1790,7 @@ WIN_PUT_SYM:
EXX EXX
LD A,D LD A,D
OUT (RGADR),A OUT (PORT_Y),A
EXX EXX
LD A,L LD A,L
@ -1892,7 +1891,7 @@ WIN_COPY_WIN1:
.COPY_loop: .COPY_loop:
DEC A DEC A
OUT (RGADR),A OUT (PORT_Y),A
LD E,(HL) LD E,(HL)
INC L INC L
LD D,(HL) LD D,(HL)
@ -1952,7 +1951,6 @@ WIN_REST_WIN1:
EXX EXX
LP_REST_L2: LP_REST_L2:
LD A,L LD A,L
EXX EXX
LD B,A LD B,A
@ -1960,8 +1958,7 @@ LP_REST_L2:
LD A,C LD A,C
LP_REST_L1: LP_REST_L1:
OUT (PORT_Y),A
OUT (RGADR),A
INC A INC A
POP DE POP DE
LD (HL),E LD (HL),E