This commit is contained in:
Anatoliy Belyanskiy 2023-08-05 22:09:29 +10:00
parent c8240c6c6b
commit d0fa061800
2 changed files with 71 additions and 61 deletions

View File

@ -6,7 +6,7 @@
;--------------------------------------------------------------- ;---------------------------------------------------------------
;======================================================== ;========================================================
SIZESEC EQU #0800 SIZESEC EQU #0800
PKTSIZE EQU 13 PKTSIZE EQU 12
RAM_ATAPI_PK EQU SYS_PAGE.SHARED_BUFFER_32b RAM_ATAPI_PK EQU SYS_PAGE.SHARED_BUFFER_32b
RAM_ATAPI_READ EQU SYS_PAGE.SHARED_BUFFER_32b+16 RAM_ATAPI_READ EQU SYS_PAGE.SHARED_BUFFER_32b+16

View File

@ -180,8 +180,9 @@ LP_PRINT_AL1:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_PRINT_SYM: LP_PRINT_SYM:
CALL LP_BEG_P CALL LP_BEG_P
@ -207,8 +208,9 @@ LP_PRINT_SY1:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_PRINT_ATR: LP_PRINT_ATR:
CALL LP_BEG_P CALL LP_BEG_P
@ -240,9 +242,9 @@ LP_PRINT_AT1:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_PRINT_LINE: LP_PRINT_LINE:
CALL LP_BEG_P CALL LP_BEG_P
@ -281,8 +283,9 @@ LP_PRINT_LN1:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_PRINT_LINE2: LP_PRINT_LINE2:
@ -312,8 +315,9 @@ LP_PRINT_LN2:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_PRINT_LINE3: LP_PRINT_LINE3:
CALL LP_BEG_P CALL LP_BEG_P
@ -359,8 +363,9 @@ LP_PR_L31:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_PRINT_LINE4: LP_PRINT_LINE4:
@ -402,8 +407,9 @@ LP_PR_L41:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_PRINT_LINE5: LP_PRINT_LINE5:
@ -449,8 +455,9 @@ LP_PRINT_LN5:
LP_PR_L51: LP_PR_L51:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_PRINT_LINE6: LP_PRINT_LINE6:
CALL LP_BEG_P CALL LP_BEG_P
@ -488,8 +495,9 @@ LP_PRINT_LN6:
LP_PR_L61: LP_PR_L61:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_PRINT_LINE_DIR: LP_PRINT_LINE_DIR:
@ -546,8 +554,9 @@ LP_PRINT_LN_D1:
LP_LN_DD1: LP_LN_DD1:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_PRINT_LN_D11: LP_PRINT_LN_D11:
LD A,#50 LD A,#50
@ -641,8 +650,9 @@ LP_SET_PLACE: ; !!!!!
CALL LP_BEG_P CALL LP_BEG_P
CALL LP_AT_D CALL LP_AT_D
CALL LP_TAB_E CALL LP_TAB_E
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
LP_GET_PLACE: LP_GET_PLACE:
CALL LP_BEG_P CALL LP_BEG_P
@ -650,23 +660,26 @@ LP_GET_PLACE:
LD A,(SYS_PAGE.WIN_MAP_IX+WIN_H_BEG) LD A,(SYS_PAGE.WIN_MAP_IX+WIN_H_BEG)
NEG NEG
EXX EXX
ADD A,D ADD A,D
EXX EXX
LD E,A LD E,A
LD A,(SYS_PAGE.WIN_MAP_IX+WIN_V_BEG) LD A,(SYS_PAGE.WIN_MAP_IX+WIN_V_BEG)
NEG NEG
EXX EXX
ADD A,L ADD A,L
DEC A DEC A
EXX EXX
RRCA RRCA
RRCA RRCA
AND #3F AND #3F
LD D,A LD D,A
;!TEST cursor
CALL LP_END_P JP LP_END_P2
RET ;CALL LP_END_P2
;AND A
;RET
;
;********************************************* ;*********************************************
@ -722,8 +735,9 @@ LP_CLS_L1:
CALL LP_AT_D CALL LP_AT_D
CALL LP_TAB_E CALL LP_TAB_E
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
;******************************************************* ;*******************************************************
; ;
@ -732,7 +746,6 @@ LP_CLS_L1:
; 1 - ver size ; 1 - ver size
; 2 - hor place ; 2 - hor place
; 3 - ver place ; 3 - ver place
LP_SIZE: ; ®¯à¥¤¥«¥­¨¥ size LP_SIZE: ; ®¯à¥¤¥«¥­¨¥ size
LP_OPEN_PG LP_OPEN_PG
LD DE,(SYS_PAGE.WIN_MAP_IX+WIN_SIZE_H) LD DE,(SYS_PAGE.WIN_MAP_IX+WIN_SIZE_H)
@ -843,14 +856,14 @@ LP_NEXT_HL1:
LP_BEG_P: LP_BEG_P:
EX AF,AF' EX AF,AF'
EXX EXX
LP_OPEN_PG LP_OPEN_PG
LD HL,(SYS_PAGE.WIN_MAP_IX+WIN_HL) LD HL,(SYS_PAGE.WIN_MAP_IX+WIN_HL)
LD DE,(SYS_PAGE.WIN_MAP_IX+WIN_DE) LD DE,(SYS_PAGE.WIN_MAP_IX+WIN_DE)
LD BC,(SYS_PAGE.WIN_MAP_IX+WIN_BC) LD BC,(SYS_PAGE.WIN_MAP_IX+WIN_BC)
LD A,E LD A,E
AND A AND A
RRA RRA
OUT (PORT_Y),A OUT (PORT_Y),A
EXX EXX
EX AF,AF' EX AF,AF'
RET RET
@ -935,7 +948,6 @@ LP_INI_L1:
EX AF,AF' EX AF,AF'
LD A,(SYS_PAGE.COPY_SLOT1) LD A,(SYS_PAGE.COPY_SLOT1)
OUT (SLOT1),A OUT (SLOT1),A
RET RET
LP_INI_P: LP_INI_P:
@ -996,13 +1008,12 @@ LP_INI_40:
LP_END_P: ; !!!!! ®¦¨¤ ¥âáï, çâ® ¯®àâïâáï ⮫쪮  «ìâ¥à­ â¨¢­ë¥ ॣ¨áâàë ¨ â¥, çâ® ª ª ¯ à ¬¥âàë ­  ¢å®¤¥ LP_END_P: ; !!!!! ®¦¨¤ ¥âáï, çâ® ¯®àâïâáï ⮫쪮  «ìâ¥à­ â¨¢­ë¥ ॣ¨áâàë ¨ â¥, çâ® ª ª ¯ à ¬¥âàë ­  ¢å®¤¥
EX AF,AF' EX AF,AF'
EXX EXX
RLA RLA
LD E,A LD E,A
LD (SYS_PAGE.WIN_MAP_IX+WIN_HL),HL ; ¬¥áâ® ¯¥ç â¨ LD (SYS_PAGE.WIN_MAP_IX+WIN_HL),HL ; ¬¥áâ® ¯¥ç â¨
LD (SYS_PAGE.WIN_MAP_IX+WIN_DE),DE LD (SYS_PAGE.WIN_MAP_IX+WIN_DE),DE
LD (SYS_PAGE.WIN_MAP_IX+WIN_BC),BC LD (SYS_PAGE.WIN_MAP_IX+WIN_BC),BC
LP_CLOSE_PG
LP_CLOSE_PG
EXX EXX
EX AF,AF' EX AF,AF'
AND A AND A
@ -1014,6 +1025,7 @@ LP_END_P2:
LP_CLOSE_PG LP_CLOSE_PG
EXX EXX
EX AF,AF' EX AF,AF'
AND A
RET RET
;******************************************************** ;********************************************************
@ -1325,7 +1337,6 @@ LP_EXIT_MODE:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
EX AF,AF' EX AF,AF'
RET RET
; “áâ ­®¢ª  ०¨¬  ­  «¨­¨¨ ; “áâ ­®¢ª  ०¨¬  ­  «¨­¨¨
@ -1425,7 +1436,6 @@ LP_EXIT_MODE2:
LD (IX+WIN_WORK_1),B LD (IX+WIN_WORK_1),B
LD (IX+WIN_WORK_2),A LD (IX+WIN_WORK_2),A
RET RET
@ -1532,7 +1542,6 @@ LP_EXIT_MODE3:
LD A,(IX+WIN_WORK_1) LD A,(IX+WIN_WORK_1)
ADD A,8 ADD A,8
LD (IX+WIN_WORK_1),A LD (IX+WIN_WORK_1),A
RET RET
LP_GR_640: LP_GR_640:
@ -1819,8 +1828,9 @@ WIN_PUT_SYM:
LD A,SYS_PAGE LD A,SYS_PAGE
OUT (SLOT3),A OUT (SLOT3),A
CALL LP_END_P JP LP_END_P
RET ;CALL LP_END_P
;RET
; HL - à §¬¥à ®ª­  ; HL - à §¬¥à ®ª­ 
; DE - ¯®«®¦¥­¨¥ ®ª­  ; DE - ¯®«®¦¥­¨¥ ®ª­ 
@ -1916,9 +1926,9 @@ WIN_COPY_WIN1:
POP AF POP AF
OUT (SLOT1),A OUT (SLOT1),A
CALL LP_END_P2 JP LP_END_P2
AND A ;AND A
RET ;RET
; HL - à §¬¥à á®å࠭塞®£® ®ª­  ; HL - à §¬¥à á®å࠭塞®£® ®ª­ 
@ -1985,10 +1995,10 @@ LP_REST_L1:
POP AF POP AF
OUT (SLOT1),A OUT (SLOT1),A
JP LP_END_P2
CALL LP_END_P2 ;CALL LP_END_P2
AND A ;AND A
RET ;RET