mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 01:11:48 +03:00
...
This commit is contained in:
Anatoliy Belyanskiy
parent
663016bd16
commit
c1bad465f8
@ -43,11 +43,11 @@ minor_version equ 5 ;
|
||||
org_addr EQU #8000 + CLP_Buffer
|
||||
code_addr EQU BEGIN
|
||||
program_start EQU BEGIN
|
||||
stack_point EQU #C000
|
||||
stack_point EQU #BFFE
|
||||
Loader_length EQU 0
|
||||
|
||||
;
|
||||
page_buffer equ 0C000h ; ¡ãä¥à ä ©«®¢
|
||||
page_buffer equ #C000 ; ¡ãä¥à ä ©«®¢
|
||||
;;
|
||||
|
||||
include 'Shared_Includes/constants/EXE_Header.z80'
|
||||
|
||||
@ -1 +1 @@
|
||||
47
|
||||
48
|
||||
26
DSS/DOS5.ASM
26
DSS/DOS5.ASM
@ -1068,13 +1068,11 @@ DIRSIZE: WORD 0 ; ࠧ
|
||||
; Œ áᨢ «®£. ®¬¥à®¢ ¡ ®ª à áè¨à¥¨ï „Ž‘
|
||||
BANKTBL: BLOCK USING_MEMPAGES+1,#FF
|
||||
|
||||
;!TODO
|
||||
;G_HAND1 POP IX
|
||||
; POP HL
|
||||
; POP DE
|
||||
; RET
|
||||
|
||||
;GHANDLE PUSH DE
|
||||
|
||||
;!TODO
|
||||
GHANDLE:
|
||||
; PUSH DE
|
||||
; PUSH HL
|
||||
; PUSH IX
|
||||
; CALL TESTDSK
|
||||
@ -1083,16 +1081,19 @@ BANKTBL: BLOCK USING_MEMPAGES+1,#FF
|
||||
; POP DE
|
||||
; LD HL,DIR
|
||||
; LD BC,#0020
|
||||
;G_HAND2 LD A,D
|
||||
;G_HAND2:
|
||||
; LD A,D
|
||||
; OR E
|
||||
; JP Z,G_HAND3
|
||||
; ADD HL,BC
|
||||
; DEC DE
|
||||
; JP G_HAND2
|
||||
;G_HAND3 EXX
|
||||
;G_HAND3:
|
||||
; EXX
|
||||
; POP DE
|
||||
; EXX
|
||||
;G_HAND4 EX DE,HL
|
||||
;G_HAND4:
|
||||
; EX DE,HL
|
||||
; LD A,DIRPAGE
|
||||
; CALL BANK
|
||||
; EX DE,HL
|
||||
@ -1109,7 +1110,7 @@ BANKTBL: BLOCK USING_MEMPAGES+1,#FF
|
||||
; DUP 32
|
||||
; LDI
|
||||
; EDUP
|
||||
|
||||
;
|
||||
; EXX
|
||||
; POP BC
|
||||
; DEC BC
|
||||
@ -1118,7 +1119,10 @@ BANKTBL: BLOCK USING_MEMPAGES+1,#FF
|
||||
; RET Z
|
||||
; PUSH BC
|
||||
; JP G_HAND4
|
||||
|
||||
;G_HAND1 POP IX
|
||||
; POP HL
|
||||
; POP DE
|
||||
; RET
|
||||
;HANDTA BLOCK 32,0
|
||||
|
||||
|
||||
|
||||
@ -188,11 +188,12 @@ TCOUNT: DW #0000
|
||||
;R04H_SEC_X DW 0
|
||||
|
||||
; !FIXIT çñâ ¥ ¨á¯®«ì§ã¥âáï
|
||||
TESTDSK LD A,(FatBuffer.DRIVE)
|
||||
LD C,Dss.DRV.MediaCheck
|
||||
RST ToDSS.DRV
|
||||
OR A
|
||||
RET Z
|
||||
TESTDSK:
|
||||
; LD A,(FatBuffer.DRIVE)
|
||||
; LD C,Dss.DRV.MediaCheck
|
||||
; RST ToDSS.DRV
|
||||
; OR A
|
||||
; RET Z
|
||||
RD_BPB: LD C,SLOT3
|
||||
IN B,(C)
|
||||
PUSH BC
|
||||
@ -621,7 +622,6 @@ SCANDRV:
|
||||
LD A,(LDRIVE)
|
||||
RET PO
|
||||
EI
|
||||
|
||||
RET
|
||||
.ERROR_BOOTDRV_DIES:
|
||||
LD BC,256*COLORS.PAPER.BLUE + BIOS.LP_OPEN_S
|
||||
|
||||
@ -561,7 +561,7 @@ DEPLOY:
|
||||
; ; SCF
|
||||
; RET
|
||||
|
||||
; defb 0
|
||||
; defb 0
|
||||
|
||||
IF ENVVALUE != BUFFER
|
||||
ASSERT "Warning! ENVVALUE != BUFFER"
|
||||
|
||||
@ -1,3 +1,102 @@
|
||||
;
|
||||
MACRO BUFFER_KEYINTER
|
||||
_mInfoALIGN 256,0
|
||||
;KEYBOARD BUFFER
|
||||
SBUF: BLOCK 64,0
|
||||
|
||||
|
||||
HEAD DB #00
|
||||
HOST DB #00
|
||||
|
||||
K_LOCK EQU $-KEYFLAG
|
||||
LANG_L EQU 7
|
||||
PAUSE_L EQU 6
|
||||
RES5_L EQU 5
|
||||
RES4_L EQU 4
|
||||
NUM_L EQU 3
|
||||
SCRL_L EQU 2
|
||||
INS_L EQU 1
|
||||
CAPS_L EQU 0
|
||||
KEYFLAG DB #02 ;D0-Key Pressed
|
||||
|
||||
K_SHIFT EQU $-KEYFLAG
|
||||
L_SHIFT EQU 7
|
||||
R_SHIFT EQU 6
|
||||
X_CTRL EQU 5
|
||||
X_ALT EQU 4
|
||||
L_CTRL EQU 3
|
||||
L_ALT EQU 2
|
||||
R_CTRL EQU 1
|
||||
R_ALT EQU 0
|
||||
KEYCTRL DB #00
|
||||
|
||||
KEYFLG EQU $-KEYFLAG
|
||||
FLAG_E0 EQU 7
|
||||
FLAG_F0 EQU 6
|
||||
FLAG_E1 EQU 5
|
||||
FLAG_04 EQU 4
|
||||
FLAG_03 EQU 3
|
||||
FLAG_02 EQU 2
|
||||
FLAG_01 EQU 1
|
||||
FLAG_00 EQU 0
|
||||
DB #00
|
||||
|
||||
SOUND_K EQU $-KEYFLAG
|
||||
FLAG_S7 EQU 7
|
||||
FLAG_S6 EQU 6
|
||||
FLAG_S5 EQU 5
|
||||
FLAG_S4 EQU 4
|
||||
FLAG_S3 EQU 3
|
||||
FLAG_S2 EQU 2
|
||||
SF_ALT EQU 1
|
||||
SF_BUFF EQU 0
|
||||
DB #03
|
||||
;
|
||||
; D15 - LShift
|
||||
; D14 - RShift
|
||||
; D13 - CTRL
|
||||
; D12 - ALT
|
||||
; D11 - LCTRL
|
||||
; D10 - LALT
|
||||
; D9 - RCTRL
|
||||
; D8 - RALT
|
||||
; D7 - Language Lock
|
||||
; D6 - Reserved
|
||||
; D5 - Reserved
|
||||
; D4 - Reserved
|
||||
; D3 - Num Lock
|
||||
; D2 - Scroll Lock
|
||||
; D1 - Insert Lock
|
||||
; D0 - Caps Lock
|
||||
;
|
||||
; D15 - Keystroke
|
||||
; D14
|
||||
; D13 \
|
||||
; D12 \
|
||||
; D11 -- Position code (0...5Ah)
|
||||
; D10 /
|
||||
; D9 /
|
||||
; D8
|
||||
; D7..D0 - ASCII code
|
||||
;
|
||||
ENDM
|
||||
;
|
||||
|
||||
;
|
||||
MACRO TABLE_XLAT_T
|
||||
_mInfoALIGN 256,0
|
||||
; 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
||||
XLAT_T: DB #00,#43,#00,#3F,#3D,#3B,#3C,#46,#00,#44,#42,#40,#3E,#0F,#00,#00 ;00
|
||||
DB #00,#37,#29,#00,#36,#10,#02,#00,#00,#00,#2A,#1E,#1D,#11,#03,#00 ;10
|
||||
DB #00,#2C,#2B,#1F,#12,#05,#04,#00,#00,#38,#2D,#20,#14,#13,#06,#00 ;20
|
||||
DB #00,#2F,#2E,#22,#21,#15,#07,#00,#00,#00,#30,#23,#16,#08,#09,#00 ;30
|
||||
DB #00,#31,#24,#17,#18,#0B,#0A,#00,#00,#32,#33,#25,#26,#19,#0C,#00 ;40
|
||||
DB #00,#00,#27,#00,#1A,#0D,#00,#00,#1C,#34,#28,#1B,#00,#35,#00,#00 ;50
|
||||
DB #00,#00,#00,#00,#00,#00,#0E,#00,#00,#51,#00,#54,#57,#00,#00,#00 ;60
|
||||
DB #50,#4F,#52,#55,#56,#58,#01,#49,#45,#4D,#53,#4C,#4B,#59,#48,#00 ;70
|
||||
DB #00,#00,#00,#41,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 ;80
|
||||
ENDM
|
||||
;
|
||||
|
||||
;
|
||||
MACRO _CALC_DEVICE_ENTRY tbl_addr
|
||||
|
||||
@ -1 +1 @@
|
||||
242
|
||||
254
|
||||
@ -23,14 +23,21 @@
|
||||
;---------------------------------------------------------------------[]
|
||||
CR EQU 13
|
||||
LF EQU 10
|
||||
true EQU 1
|
||||
false EQU 0
|
||||
|
||||
; Loader_length EQU 0
|
||||
; code_addr EQU shell
|
||||
; program_start EQU shell
|
||||
; stack_point EQU #BFFE
|
||||
; org_addr EQU #8000 + CLP_Buffer
|
||||
;---------------------------------------------------------------------[]
|
||||
;
|
||||
|
||||
true equ 1
|
||||
false equ 0
|
||||
|
||||
work_buffer1 equ entry - (256+128) ; 2-© à ¡. ¡ãä¥à ;!FIXIT ¯¥à¥¥á⨠¢ ª®¥æ
|
||||
work_buffer2 equ entry - 256 ; 3-© à ¡. ¡ãä¥à ;!FIXIT ¯¥à¥¥á⨠¢ ª®¥æ
|
||||
|
||||
work_buffer1 equ entry - (256+128) ; 2-© à ¡. ¡ãä¥à ; 128 bytes
|
||||
work_buffer2 equ entry - 256 ; 3-© à ¡. ¡ãä¥à ; 256 bytes
|
||||
|
||||
|
||||
|
||||
@ -46,13 +53,15 @@ work_buffer2 equ entry - 256 ; 3-
|
||||
dw 0,0,0 ; १¥à¢
|
||||
dw entry ; ¤à¥á § £à㧪¨ ª®¤
|
||||
dw shell ; ¤à¥á ¯¥à¥¤ ç¨ ã¯à ¢«¥¨ï
|
||||
dw 0C000h ; ¤à¥á á⥪
|
||||
dw #BFFE ; ¤à¥á á⥪
|
||||
ds 490 ; १¥à¢
|
||||
|
||||
|
||||
; ‚¥àá¨ï/Œ®¤¨ä¨ª æ¨ï/<2F>¨«¤ 襫«
|
||||
entry: db "0.01.003" ;!FIXIT ¯¥à¥¥á⨠¢ ª®¥æ
|
||||
|
||||
; INCLUDE 'Shared_Includes/constants/EXE_Header.z80'
|
||||
; ORG org_addr
|
||||
;==============================================================
|
||||
; ’®çª ¢å®¤ ¢ ˜¥««
|
||||
;==============================================================
|
||||
@ -510,4 +519,7 @@ T8C24: db "OFF",0
|
||||
include "Commands/set.asm" ; § ¤ âì ¯¥à¥¬¥ãî ®ªà㦥¨ï
|
||||
include "Commands/reboot.asm" ; á®äâ à¥á¥â
|
||||
;
|
||||
|
||||
;work_buffer1 equ $ ; 2-© à ¡. ¡ãä¥à ; 128 bytes
|
||||
;work_buffer2 equ work_buffer1+128 ; 3-© à ¡. ¡ãä¥à ; 256 bytes
|
||||
;
|
||||
@ -1 +1 @@
|
||||
56
|
||||
63
|
||||
@ -1 +1 @@
|
||||
Subproject commit 84a92620cab98867eb5b892d1ae17cd206c2b1bd
|
||||
Subproject commit 517e3de074aab733f683abb328a4ffc8e0a2b284
|
||||
Loading…
Reference in New Issue
Block a user