mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 17:31:47 +03:00
...
This commit is contained in:
parent
663016bd16
commit
c1bad465f8
@ -43,11 +43,11 @@ minor_version equ 5 ;
|
|||||||
org_addr EQU #8000 + CLP_Buffer
|
org_addr EQU #8000 + CLP_Buffer
|
||||||
code_addr EQU BEGIN
|
code_addr EQU BEGIN
|
||||||
program_start EQU BEGIN
|
program_start EQU BEGIN
|
||||||
stack_point EQU #C000
|
stack_point EQU #BFFE
|
||||||
Loader_length EQU 0
|
Loader_length EQU 0
|
||||||
|
|
||||||
;
|
;
|
||||||
page_buffer equ 0C000h ; ¡ãä¥à ä ©«®¢
|
page_buffer equ #C000 ; ¡ãä¥à ä ©«®¢
|
||||||
;;
|
;;
|
||||||
|
|
||||||
include 'Shared_Includes/constants/EXE_Header.z80'
|
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
|
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 HL
|
||||||
; PUSH IX
|
; PUSH IX
|
||||||
; CALL TESTDSK
|
; CALL TESTDSK
|
||||||
@ -1083,16 +1081,19 @@ BANKTBL: BLOCK USING_MEMPAGES+1,#FF
|
|||||||
; POP DE
|
; POP DE
|
||||||
; LD HL,DIR
|
; LD HL,DIR
|
||||||
; LD BC,#0020
|
; LD BC,#0020
|
||||||
;G_HAND2 LD A,D
|
;G_HAND2:
|
||||||
|
; LD A,D
|
||||||
; OR E
|
; OR E
|
||||||
; JP Z,G_HAND3
|
; JP Z,G_HAND3
|
||||||
; ADD HL,BC
|
; ADD HL,BC
|
||||||
; DEC DE
|
; DEC DE
|
||||||
; JP G_HAND2
|
; JP G_HAND2
|
||||||
;G_HAND3 EXX
|
;G_HAND3:
|
||||||
|
; EXX
|
||||||
; POP DE
|
; POP DE
|
||||||
; EXX
|
; EXX
|
||||||
;G_HAND4 EX DE,HL
|
;G_HAND4:
|
||||||
|
; EX DE,HL
|
||||||
; LD A,DIRPAGE
|
; LD A,DIRPAGE
|
||||||
; CALL BANK
|
; CALL BANK
|
||||||
; EX DE,HL
|
; EX DE,HL
|
||||||
@ -1109,7 +1110,7 @@ BANKTBL: BLOCK USING_MEMPAGES+1,#FF
|
|||||||
; DUP 32
|
; DUP 32
|
||||||
; LDI
|
; LDI
|
||||||
; EDUP
|
; EDUP
|
||||||
|
;
|
||||||
; EXX
|
; EXX
|
||||||
; POP BC
|
; POP BC
|
||||||
; DEC BC
|
; DEC BC
|
||||||
@ -1118,7 +1119,10 @@ BANKTBL: BLOCK USING_MEMPAGES+1,#FF
|
|||||||
; RET Z
|
; RET Z
|
||||||
; PUSH BC
|
; PUSH BC
|
||||||
; JP G_HAND4
|
; JP G_HAND4
|
||||||
|
;G_HAND1 POP IX
|
||||||
|
; POP HL
|
||||||
|
; POP DE
|
||||||
|
; RET
|
||||||
;HANDTA BLOCK 32,0
|
;HANDTA BLOCK 32,0
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -188,11 +188,12 @@ TCOUNT: DW #0000
|
|||||||
;R04H_SEC_X DW 0
|
;R04H_SEC_X DW 0
|
||||||
|
|
||||||
; !FIXIT çñâ ¥ ¨á¯®«ì§ã¥âáï
|
; !FIXIT çñâ ¥ ¨á¯®«ì§ã¥âáï
|
||||||
TESTDSK LD A,(FatBuffer.DRIVE)
|
TESTDSK:
|
||||||
LD C,Dss.DRV.MediaCheck
|
; LD A,(FatBuffer.DRIVE)
|
||||||
RST ToDSS.DRV
|
; LD C,Dss.DRV.MediaCheck
|
||||||
OR A
|
; RST ToDSS.DRV
|
||||||
RET Z
|
; OR A
|
||||||
|
; RET Z
|
||||||
RD_BPB: LD C,SLOT3
|
RD_BPB: LD C,SLOT3
|
||||||
IN B,(C)
|
IN B,(C)
|
||||||
PUSH BC
|
PUSH BC
|
||||||
@ -621,7 +622,6 @@ SCANDRV:
|
|||||||
LD A,(LDRIVE)
|
LD A,(LDRIVE)
|
||||||
RET PO
|
RET PO
|
||||||
EI
|
EI
|
||||||
|
|
||||||
RET
|
RET
|
||||||
.ERROR_BOOTDRV_DIES:
|
.ERROR_BOOTDRV_DIES:
|
||||||
LD BC,256*COLORS.PAPER.BLUE + BIOS.LP_OPEN_S
|
LD BC,256*COLORS.PAPER.BLUE + BIOS.LP_OPEN_S
|
||||||
|
|||||||
@ -561,7 +561,7 @@ DEPLOY:
|
|||||||
; ; SCF
|
; ; SCF
|
||||||
; RET
|
; RET
|
||||||
|
|
||||||
; defb 0
|
; defb 0
|
||||||
|
|
||||||
IF ENVVALUE != BUFFER
|
IF ENVVALUE != BUFFER
|
||||||
ASSERT "Warning! 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
|
MACRO _CALC_DEVICE_ENTRY tbl_addr
|
||||||
|
|||||||
@ -1 +1 @@
|
|||||||
242
|
254
|
||||||
@ -23,14 +23,21 @@
|
|||||||
;---------------------------------------------------------------------[]
|
;---------------------------------------------------------------------[]
|
||||||
CR EQU 13
|
CR EQU 13
|
||||||
LF EQU 10
|
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 0,0,0 ; १¥à¢
|
||||||
dw entry ; ¤à¥á § £à㧪¨ ª®¤
|
dw entry ; ¤à¥á § £à㧪¨ ª®¤
|
||||||
dw shell ; ¤à¥á ¯¥à¥¤ ç¨ ã¯à ¢«¥¨ï
|
dw shell ; ¤à¥á ¯¥à¥¤ ç¨ ã¯à ¢«¥¨ï
|
||||||
dw 0C000h ; ¤à¥á á⥪
|
dw #BFFE ; ¤à¥á á⥪
|
||||||
ds 490 ; १¥à¢
|
ds 490 ; १¥à¢
|
||||||
|
|
||||||
|
|
||||||
; ‚¥àá¨ï/Œ®¤¨ä¨ª æ¨ï/<2F>¨«¤ 襫«
|
; ‚¥àá¨ï/Œ®¤¨ä¨ª æ¨ï/<2F>¨«¤ 襫«
|
||||||
entry: db "0.01.003" ;!FIXIT ¯¥à¥¥á⨠¢ ª®¥æ
|
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/set.asm" ; § ¤ âì ¯¥à¥¬¥ãî ®ªà㦥¨ï
|
||||||
include "Commands/reboot.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