Tolik-Trek/Estex-DSS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Estex-DSS.git synced 2026-06-15 01:11:48 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2024-06-08 01:39:30 +10:00
parent d653425a7f
commit cac616722c
7 changed files with 58 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
SHELL/Commands/DATE.ASM
View File

@ -52,7 +52,7 @@ cmd_date:
push ix
push de
ld a,d ; ç¨áŤŽ
ld hl,PRM1 ; ªã¤ 
ld hl,Buffers.bat_params.PRM1; ªã¤ 
call PUTB ; ¤Ľáďâ. ˘ë˘Ž¤ ˘ ĄăäĽŕ
ld a,"."
ld (hl),a
@ -78,7 +78,7 @@ cmd_date:
LD BC,.days.size
CALL LCPIR
;
LD DE,PRM2
LD DE,Buffers.bat_params.PRM2
CALL ncopy_string
;
ld de,MAIN_MSG.DATE ; ¨­¤ĽŞá "Current date: %1"
@ -156,7 +156,7 @@ cmd_tm1:ld c,Dss.SysTime
push bc
push hl
ld a,h ; ç¨áŤŽ
ld hl,PRM1 ; ªã¤ 
ld hl,Buffers.bat_params.PRM1; ªã¤ 
call PUTB ; ¤Ľáďâ. ˘ë˘Ž¤ ˘ ĄăäĽŕ
ld a,":"
ld (hl),a

50
SHELL/Commands/DIR.ASM
View File

@ -81,18 +81,20 @@ cmd_dir: push de
inc hl
ld (hl),0
inc hl
ld de,PRM1
ld de,Buffers.bat_params.PRM1
call ncopy_string ; á®å࠭塞 ¬ áªã ä ©« 
;
ld hl,Buffers.work.buffer1
ld c,Dss.ChDir
rst ToDSS
;
ld hl,PRM1
;ld a,DSS_Error.sys.NOT_READY
jp c,print_err_message
.no_error: ;
ld hl,Buffers.bat_params.PRM1
ld de,Buffers.work.free
call ncopy_string ; ¢®ááâ ­ ¢«¨¢ ¥¬ ¬ áªã ä ©« 
;
ld a,(PRM1)
ld a,(Buffers.bat_params.PRM1)
or a
jr nz,.SkipMask
;
@ -197,7 +199,7 @@ cmd_dir: push de
pop af ; ¡ « ­á á⥪ 
; „¥áïâ¨ç­ë© ¢ë¢®¤
.print: ld hl,(FILES)
ld ix,PRM3 ; ª®«¨ç¥á⢮ ä ©«®¢
ld ix,Buffers.bat_params.PRM3; ª®«¨ç¥á⢮ ä ©«®¢
call PDIGIT
;
ld a,(S_HIGH)
@ -212,13 +214,13 @@ cmd_dir: push de
; [x] ¢ë¢®¤ ª®«¨ç¥á⢠ ¯ ¯®ª
; [x] ¢ë¢®¤ ®¡é¥£® ª®«¨ç¥á⢠ ᢮¡®¤­®£® ¬¥áâ 
ld hl,SIZE_BUFFER.high ; "000 000 000 000"
ld de,PRM1; + PRM2 ; à §¬¥à ä ©«®¢ ¢ ª â «®£¥
ld de,Buffers.bat_params.PRM1; + PRM2. à §¬¥à ä ©«®¢ ¢ ª â «®£¥
ld bc,SIZE_BUFFER.bytes
call ncopy_string.start ; ᪮¯¨à. áâபã (á ­ã«¥¬), ¬ ªá. SIZE_BUFFER.bytes ᨬ¢.
;
; „¥áïâ¨ç­ë© ¢ë¢®¤
ld hl,(dir_number)
ld ix,PRM4 ; ª®«-¢® ª â «®£®¢ ¢ ª â «®£¥
ld ix,Buffers.bat_params.PRM4; ª®«-¢® ª â «®£®¢ ¢ ª â «®£¥
call PDIGIT
; full capacity
ld a,(full_space_high)
@ -258,12 +260,12 @@ cmd_dir: push de
PRN_DISK_SIZE: call PRINT_5BYTES
ld hl,SIZE_BUFFER.high ; "000 000 000 000"
ld de,PRM5 ; and PRM6 ; ªã¤ 
ld de,Buffers.bat_params.PRM5; and PRM6. ªã¤ 
ld bc,SIZE_BUFFER.bytes
jp ncopy_string.start ; ᪮¯¨à. áâபã (á ­ã«¥¬), ¬ ªá. SIZE_BUFFER.bytes ᨬ¢.
;
Print_Header: ; %1
ld hl,PRM1
ld hl,Buffers.bat_params.PRM1
ld a,'"'
ld (hl),a
inc hl
@ -283,27 +285,27 @@ Print_Header: ; %1
ld (hl),0
; %2
ld hl,serial_string ; áâப  á¥à¨©­®£® ­®¬¥à  ¤¨áª 
ld de,PRM2 ; ªã¤ 
ld de,Buffers.bat_params.PRM2; ªã¤ 
call ncopy_string ; ᪮¯¨à. áâபã (á ­ã«¥¬)
; %3..5
;push hl
ld hl,Buffers.work.free + 256 + 128 ; 128 - ­  ¢á直© á«ãç ©
ld c,Dss.CurDir
rst ToDSS
ld hl,PRM3
ld a,(PRM1 + 1)
ld hl,Buffers.bat_params.PRM3
ld a,(Buffers.bat_params.PRM1 + 1)
ld (hl),a
inc hl
ld (hl),':'
;
ld hl,PRM3+2
ld de,PRM3+2+1
ld hl,Buffers.bat_params.PRM3 +2
ld de,Buffers.bat_params.PRM3 +2 + 1
ld (hl),0
ld bc,16+16+16-1-2
ldir
;
ld hl,Buffers.work.free + 256 + 128 ; á¨áâ. ¯ãâì
ld de,PRM3 + 2 ;+PRM4..5 ; 2 + 48 ¡ ©â®¢ ¡ãä¥à
ld de,Buffers.bat_params.PRM3 + 2 ;+PRM4..5. 2 + 48 ¡ ©â®¢ ¡ãä¥à
call make_short_path
;pop hl
@ -323,11 +325,11 @@ PRNNAME: dec hl
inc hl
;
ld bc,8
ld de,PRM1 ; ¡ãä¥à
ld de,Buffers.bat_params.PRM1
ldir
xor a
ld (de),a
ld de,PRM2 ; ªã¤ 
ld de,Buffers.bat_params.PRM2; ªã¤ 
ldi
ldi
ldi
@ -395,7 +397,7 @@ PRNSIZE: ld a,(ix+32)
ldi
ld hl,SIZE_BUFFER.low ; "0 000 000 000"
pop ix
.PRZ: ld de,PRM3 ; 16 ¡ãä¥à
.PRZ: ld de,Buffers.bat_params.PRM3; 16 ¡ãä¥à
jp ncopy_string ; ᪮¯¨à. áâபã (á ­ã«¥¬), ¬ ªá.15 ᨬ¢.
; ‘ª®¯¨à®¢ âì ¢ ¡ãä¥à ¤ âã ä ©« /¯ ¯ª¨
@ -405,7 +407,7 @@ PRNDATE: ld c,(ix+FAT_DIRECTORY_RECORD.DATE)
call MAKE_DATE ; ¢ë¢®¤ ¢ ¡ãä¥à ¤ âë
ld (hl),0
ld hl,SIZE_BUFFER.low ; "0 000 000 000"
ld de,PRM4 ; 16 ªã¤ 
ld de,Buffers.bat_params.PRM4; 16 ªã¤ 
jp ncopy_string ; ᪮¯¨à. áâபã (á ­ã«¥¬), ¬ ªá.15 ᨬ¢.
; ‘ª®¯¨à®¢ âì ¢ ¡ãä¥à ¢à¥¬ï ä ©« /¯ ¯ª¨
@ -415,7 +417,7 @@ PRNTIME: ld b,(ix+22)
call MAKE_TIME ; ᪮¯¨à. ¢ ¡ãä¥à ¢à¥¬ï ä ©« /¯ ¯ª¨
ld (hl),0
ld hl,SIZE_BUFFER.low ; "0 000 000 000"
ld de,PRM5 ; 80 ¡ãä¥à áâப¨
ld de,Buffers.bat_params.PRM5; 80 ¡ãä¥à áâப¨
jp ncopy_string ; ᪮¯¨à. áâபã (á ­ã«¥¬), ¬ ªá.15 ᨬ¢.
; ¢ ¡ãä¥à ¢à¥¬ï ä ©« /¯ ¯ª¨
@ -738,24 +740,24 @@ read_disk_info: OR #80
; ­¥â ¬¥âª¨
.no_volume_label:; %6
ld hl,volume_string_no ; áâப 
ld de,PRM6 ; ªã¤ 
ld de,Buffers.bat_params.PRM6; ªã¤ 
call ncopy_string ; ᪮¯¨à. áâபã (á ­ã«¥¬)
XOR A
LD (PRM7),A
LD (Buffers.bat_params.PRM7),A
ret
.good_label: POP HL
PUSH HL ; ⮫ª ¥¬ «¨è­¥¥
; ¥áâì ¬¥âª 
volume_label: POP DE ; á­¨¬ ¥¬ «¨è­¥¥
; %7
ld de,PRM7
ld de,Buffers.bat_params.PRM7
ld bc,11 ;!HARDCODE ¤«¨­  ¬¥âª¨
ldir
xor a
ld (de),a
; %6
ld hl,volume_string_yes ; áâப 
ld de,PRM6 ; ªã¤ 
ld de,Buffers.bat_params.PRM6; ªã¤ 
call ncopy_string ; ᪮¯¨à. áâபã (á ­ã«¥¬)
ret
;

2
SHELL/Commands/ECHO.ASM
View File

@ -36,7 +36,7 @@ A862E: ld a,(echo_mode) ; 䫠
jr nz,$+5 ; false ;!FIXIT $
ld de,MAIN_MSG.OFF ; ¨­¤¥ªá "off"
call FMESAGE ; ­ ©â¨ áâப㠯® ¨­¤¥ªáã
ld de,PRM1 ; ªã¤  ( à£ã¬¥­â %1)
ld de,Buffers.bat_params.PRM1; ªã¤  ( à£ã¬¥­â %1)
call ncopy_string ; ᪮¯¨à. áâபã (á ­ã«¥¬), ¬ ªá.15 ᨬ¢.
ld de,MAIN_MSG.ECHO ; ¨­¤¥ªá "Echo is %1"
jp ECHO_MESSAGE

4
SHELL/Commands/VER.ASM
View File

@ -8,12 +8,12 @@ cmd_version:
RST ToDSS
LD L,D
LD H,E
LD DE,PRM1
LD DE,Buffers.bat_params.PRM1
CALL .Set_Ver_to_PRM ; set DSS version
;R13
LD HL,256*CONSOLE_MODF + CONSOLE_VERS
LD BC,CONSOLE_BUILD
LD DE,PRM2
LD DE,Buffers.bat_params.PRM2
CALL .Set_Ver_to_PRM ; set Shell version
;R13
LD DE,MAIN_MSG.VERSION

25
SHELL/Procedures/Print.ASM
View File

@ -24,7 +24,7 @@ invalid_param:
;-------------------------------------------------
; ‚뢮¤ á®®¡é¥­¨ï ®è¨¡ª¨ ¯® ¨­¤¥ªáã
; ‚뢮¤ á®®¡é¥­¨ï ¯® ¨­¤¥ªáã
; ¢å®¤: de=¨­¤¥ªá áâப¨
;-------------------------------------------------
ECHO_MESSAGE:
@ -94,7 +94,7 @@ PRINTZ: ld a,(hl)
LD L,A
LD H,0
;
ld bc,PRM1 ; ¡ãä¥à
ld bc,Buffers.bat_params.PRM1
add hl,bc
ld c,Dss.PChars ; ¢ë¢®¤ áâப¨
RST ToDSS
@ -102,17 +102,14 @@ PRINTZ: ld a,(hl)
jp PRINTZ
;!FIXIT ¯¥à¥­¥á⨠ª ®¡é¨¬ ¡ãä¥à ¬ ª ª ã ¬¥­ï
; ¡ãä¥àë  à£ã¬¥­â®¢ ª®¬ ­¤­®© áâப¨
PRM1: BLOCK 16,0 ;  à£ã¬¥­â %1
PRM2: BLOCK 16,0 ;  à£ã¬¥­â %2
PRM3: BLOCK 16,0 ;  à£ã¬¥­â %3
PRM4: BLOCK 16,0 ;  à£ã¬¥­â %4
PRM5: BLOCK 16,0 ;  à£ã¬¥­â %5
PRM6: BLOCK 16,0 ;  à£ã¬¥­â %6
PRM7: BLOCK 16,0 ;  à£ã¬¥­â %7
PRM8: BLOCK 16,0 ;  à£ã¬¥­â %8
PRM9: BLOCK 16,0 ;  à£ã¬¥­â %9
; PRM1: BLOCK 16,0 ;  à£ã¬¥­â %1
; PRM2: BLOCK 16,0 ;  à£ã¬¥­â %2
; PRM3: BLOCK 16,0 ;  à£ã¬¥­â %3
; PRM4: BLOCK 16,0 ;  à£ã¬¥­â %4
; PRM5: BLOCK 16,0 ;  à£ã¬¥­â %5
; PRM6: BLOCK 16,0 ;  à£ã¬¥­â %6
; PRM7: BLOCK 16,0 ;  à£ã¬¥­â %7
; PRM8: BLOCK 16,0 ;  à£ã¬¥­â %8
; PRM9: BLOCK 16,0 ;  à£ã¬¥­â %9
;

2
SHELL/build.txt
View File

@ -1 +1 @@
402
403

14
SHELL/structures.inc
View File

@ -14,7 +14,21 @@
.free BLOCK 3840,0
ENDS
; ¡ãä¥àë  à£ã¬¥­â®¢ ª®¬ ­¤­®© áâப¨
STRUCT BAT_PARAMS
.PRM1: BLOCK 16,0 ;  à£ã¬¥­â %1
.PRM2: BLOCK 16,0 ;  à£ã¬¥­â %2
.PRM3: BLOCK 16,0 ;  à£ã¬¥­â %3
.PRM4: BLOCK 16,0 ;  à£ã¬¥­â %4
.PRM5: BLOCK 16,0 ;  à£ã¬¥­â %5
.PRM6: BLOCK 16,0 ;  à£ã¬¥­â %6
.PRM7: BLOCK 16,0 ;  à£ã¬¥­â %7
.PRM8: BLOCK 16,0 ;  à£ã¬¥­â %8
.PRM9: BLOCK 16,0 ;  à£ã¬¥­â %9 Buffers.bat_params.
ENDS
STRUCT Struc_Buffers
.bat_params BAT_PARAMS
.screen_path BLOCK 2 + max_screen_path + 1, 0 ; db "A:" : BLOCK max_screen_path+1,0
.sys_path BLOCK 256,0
.input_line Input_Line