Tolik-Trek/FFORMAT
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/FFORMAT.git synced 2026-06-15 09:21:43 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Tolik 2025-05-23 23:09:43 +10:00
parent 6d775da44b
commit dc587dda99
10 changed files with 564 additions and 489 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
DIALOG.ASM
View File

@ -346,10 +346,10 @@ PutDialWn:
PUSH IY PUSH IY
LD IY,DialTab LD IY,DialTab
LD IX,DialData LD IX,DialData
IN A,(Page3) IN A,(SLOT3)
PUSH AF PUSH AF
kk4: LD A,(hPages.Win2) ;Page buffer kk4: LD A,(hPages.Win2) ;Page buffer
OUT (Page3),A OUT (SLOT3),A
LD A,(HL) ;X position LD A,(HL) ;X position
LD (IX+0),A ;Xpos LD (IX+0),A ;Xpos
INC HL INC HL
@ -414,7 +414,7 @@ DialCyc: LD A,(HL) ;Next get includes objects
POP DE POP DE
DialExt: LD (IY+0),80h ;+5 End dialog table DialExt: LD (IY+0),80h ;+5 End dialog table
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
CALL PutDial ;Put dialog window CALL PutDial ;Put dialog window
POP IY POP IY
; Select last element ; Select last element
@ -826,10 +826,10 @@ BTexit: LD HL,what
RET RET
; <20> ¦ âì/®â¦ âì ¡ãâ®­ ; <20> ¦ âì/®â¦ âì ¡ãâ®­
PushBut: IN A,(Page3) PushBut: IN A,(SLOT3)
PUSH AF PUSH AF
kk5: LD A,(hPages.Win2) kk5: LD A,(hPages.Win2)
OUT (Page3),A OUT (SLOT3),A
PUSH IX PUSH IX
LD E,(IX+2) ;Xo LD E,(IX+2) ;Xo
LD D,(IX+4) ;Y LD D,(IX+4) ;Y
@ -897,7 +897,7 @@ BTpos: LD DE,0
CALL testbut CALL testbut
JR NC,bt1 JR NC,bt1
DI DI
IN A,(Page1) IN A,(SLOT1)
LD B,A LD B,A
XOR A XOR A
LD C,BIOS.WIN_RESTORE LD C,BIOS.WIN_RESTORE
@ -916,7 +916,7 @@ BTpos: LD DE,0
CALL testbut CALL testbut
JR NC,bt1 JR NC,bt1
DI DI
IN A,(Page1) IN A,(SLOT1)
LD B,A LD B,A
XOR A XOR A
LD C,BIOS.WIN_RESTORE LD C,BIOS.WIN_RESTORE
@ -958,7 +958,7 @@ PushEx: PUSH IX
CALL testbut CALL testbut
JR NC,bt2 JR NC,bt2
DI DI
IN A,(Page1) IN A,(SLOT1)
LD B,A LD B,A
XOR A XOR A
LD C,BIOS.WIN_RESTORE LD C,BIOS.WIN_RESTORE
@ -976,7 +976,7 @@ PushEx: PUSH IX
INC XH INC XH
CALL testbut CALL testbut
JR NC,bt2 JR NC,bt2
IN A,(Page1) IN A,(SLOT1)
LD B,A LD B,A
XOR A XOR A
LD C,BIOS.WIN_RESTORE ; ¨§ ¡ãä¥à  ¢ ®ª­® LD C,BIOS.WIN_RESTORE ; ¨§ ¡ãä¥à  ¢ ®ª­®
@ -986,7 +986,7 @@ PushEx: PUSH IX
bt2: POP HL bt2: POP HL
POP IX POP IX
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
LD A,(Kbutt+1) LD A,(Kbutt+1)
OR A OR A
RET NZ RET NZ
@ -1101,10 +1101,10 @@ MoveOlp: BIT 6,(HL) ;Test on mark object
SetDialInv: SetDialInv:
PUSH IX PUSH IX
LD IX,DialData LD IX,DialData
IN A,(Page3) IN A,(SLOT3)
PUSH AF ;á®åà.page4 PUSH AF ;á®åà.page4
kk6: LD A,(hPages.Win2) kk6: LD A,(hPages.Win2)
OUT (Page3),A ;¢ª«.¡ãä¥à OUT (SLOT3),A ;¢ª«.¡ãä¥à
LD L,C LD L,C
LD H,1 LD H,1
LD (RDlIlen+1),HL ;Save len LD (RDlIlen+1),HL ;Save len
@ -1140,7 +1140,7 @@ setdn2: INC HL
LD DE,(RDlIpos+1) LD DE,(RDlIpos+1)
CALL PutDialLn CALL PutDialLn
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
POP IX POP IX
RET RET
@ -1151,10 +1151,10 @@ setdn2: INC HL
; Input: None ; Input: None
ResDialInv: ResDialInv:
PUSH IX PUSH IX
IN A,(Page3) IN A,(SLOT3)
PUSH AF ;á®åà.page4 PUSH AF ;á®åà.page4
kk7: LD A,(hPages.Win2) kk7: LD A,(hPages.Win2)
OUT (Page3),A ;¢ª«.¡ãä¥à OUT (SLOT3),A ;¢ª«.¡ãä¥à
LD HL,(RDlIbuf+2) LD HL,(RDlIbuf+2)
LD A,(RDlIlen+1) LD A,(RDlIlen+1)
LD B,A LD B,A
@ -1185,7 +1185,7 @@ CIflag: LD A,0 ;1-Was claster invert
CALL NZ,ResClasInv CALL NZ,ResClasInv
CALL ResILCr ; á¡à®á¨âì ªãàá®à ¢ inp.line CALL ResILCr ; á¡à®á¨âì ªãàá®à ¢ inp.line
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
POP IX POP IX
LD HL,what LD HL,what
LD (HL),evMessage LD (HL),evMessage
@ -1198,10 +1198,10 @@ CIflag: LD A,0 ;1-Was claster invert
; Input: None ; Input: None
ResClasInv: ResClasInv:
PUSH IX PUSH IX
IN A,(Page3) IN A,(SLOT3)
PUSH AF ;á®åà.page4 PUSH AF ;á®åà.page4
kk8: LD A,(hPages.Win2) kk8: LD A,(hPages.Win2)
OUT (Page3),A ;¢ª«.¡ãä¥à OUT (SLOT3),A ;¢ª«.¡ãä¥à
PUSH HL PUSH HL
LD HL,(RClIbuf+2) LD HL,(RClIbuf+2)
LD A,(RClIlen+1) LD A,(RClIlen+1)
@ -1231,7 +1231,7 @@ RClIpos: LD DE,0
LD (CIflag+1),A LD (CIflag+1),A
POP HL POP HL
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
POP IX POP IX
RET RET

414
ESTEX.ASM
View File

@ -8,113 +8,113 @@
;--- Š®¯¨à®¢ ­¨¥ á¨áâ. ä ©«®¢ ¢ ¡ãä¥àë ;--- Š®¯¨à®¢ ­¨¥ á¨áâ. ä ©«®¢ ¢ ¡ãä¥àë
; ¢ëå: "CY" ¯à¨ ®è¨¡ª¥ ; ¢ëå: "CY" ¯à¨ ®è¨¡ª¥
; ;
CopySysFiles: xor a ; CopySysFiles: xor a
ld (sFlag),a ; ld (sFlag),a
ld (bigFile),a ; ld (bigFile),a
ld a,(ColDialWn) ; á®åà. 梥⠮ª­  ; ld a,(ColDialWn) ; á®åà. 梥⠮ª­ 
ld (TmpColor),a ; ld (TmpColor),a
; <20>®¬¥à § £à㧮筮£® ¤¨áª  ; ; <20>®¬¥à § £à㧮筮£® ¤¨áª 
ld bc,0009h ; ld bc,0009h
RST ToDSS ; RST ToDSS
ld (SysDisk),a ; ld (SysDisk),a
; “áâ ­®¢¨âì ⥪ã騬 § £à㧮ç­ë© ¤¨áª ; ; “áâ ­®¢¨âì ⥪ã騬 § £à㧮ç­ë© ¤¨áª
ld a,(SysDisk) ; ld a,(SysDisk)
ld c,1 ; ld c,1
RST ToDSS ; RST ToDSS
; “áâ ­®¢¨âì "ª®à¥­ì" boot-¤¨áª  ; ; “áâ ­®¢¨âì "ª®à¥­ì" boot-¤¨áª 
ld hl,RootDir ; ld hl,RootDir
ld c,1Dh ; ld c,1Dh
RST ToDSS ; RST ToDSS
;<3B> ©â¨ ä ©« "SYSTEM.EXE" ; ;<3B> ©â¨ ä ©« "SYSTEM.EXE"
; ;ld hl,Name1
; ;call FirstFile
; ;jp c,NoFound ; ä ©« ­¥ ­ ©¤¥­
; ; ®âªàëâì ä ©«
; ld hl,Name1 ; ld hl,Name1
;call FirstFile ; call OpenFile
;jp c,NoFound ; ä ©« ­¥ ­ ©¤¥­ ; jp c,error1 ; ®è¨¡ª  ®âªàëâ¨ï ä ©« 
; ®âªàëâì ä ©« ; ld (hFile1),a
ld hl,Name1 ; ; ¯à®ç¨â âì ä ©«
call OpenFile ; in a,(SLOT3)
jp c,error1 ; ®è¨¡ª  ®âªàëâ¨ï ä ©«  ; push af
ld (hFile1),a ; ld a,(hPages.SBuff0)
; ¯à®ç¨â âì ä ©« ; out (SLOT3),a ; ¯®¤ª«. ¡ãä¥à
in a,(Page3) ; ld a,(hFile1)
push af ; call ReadFile
ld a,(hPages.SBuff0) ; jp c,err1 ; ®è¨¡ª  ç⥭¨ï ä ©« 
out (Page3),a ; ¯®¤ª«. ¡ãä¥à ; pop af
ld a,(hFile1) ; out (SLOT3),a ; ¢®ááâ. áâà ­¨æã
call ReadFile ; ld (Number1),de ; ç¨á«® ¯à®ç¨â ­­ëå ¡ ©â
jp c,err1 ; ®è¨¡ª  ç⥭¨ï ä ©«  ; ; § ªàëâì ä ©«
pop af ; ld a,(hFile1)
out (Page3),a ; ¢®ááâ. áâà ­¨æã ; call CloseFile
ld (Number1),de ; ç¨á«® ¯à®ç¨â ­­ëå ¡ ©â ; jp c,error1 ; ®è¨¡ª  § ªàëâ¨ï ä ©« 
; § ªàëâì ä ©«
ld a,(hFile1)
call CloseFile
jp c,error1 ; ®è¨¡ª  § ªàëâ¨ï ä ©« 
;<3B> ©â¨ ä ©« "SYSTEM.DOS" ; ;<3B> ©â¨ ä ©« "SYSTEM.DOS"
; ;ld hl,Name2
; ;call FirstFile
; ;jp c,error1 ; ä ©« ­¥ ­ ©¤¥­
; ; ®âªàëâì ä ©«
; ld hl,Name2 ; ld hl,Name2
;call FirstFile ; call OpenFile
;jp c,error1 ; ä ©« ­¥ ­ ©¤¥­ ; jp c,error1 ; ®è¨¡ª  ®âªàëâ¨ï ä ©« 
; ®âªàëâì ä ©« ; ld (hFile2),a
ld hl,Name2 ; ; 㧭 âì à §¬¥à ä ©« 
call OpenFile ; ld hl,0
jp c,error1 ; ®è¨¡ª  ®âªàëâ¨ï ä ©«  ; ld ix,0 ; ¬«.á«®¢®
ld (hFile2),a ; ld bc,0215h ; 㪠§ â¥«ì ®â ª®­æ  ä ©« 
; 㧭 âì à §¬¥à ä ©«  ; RST ToDSS
ld hl,0 ; jp c,error1
ld ix,0 ; ¬«.á«®¢® ; push ix
ld bc,0215h ; 㪠§ â¥«ì ®â ª®­æ  ä ©«  ; pop hl
RST ToDSS ; ld de,4001h
jp c,error1 ; ; hl >= de
push ix ; ld a,l
pop hl ; sub e
ld de,4001h ; ld l,a
; hl >= de ; ld a,h
ld a,l ; sbc a,d
sub e ; ld h,a
ld l,a ; inc hl
ld a,h ; ld (ost+1),hl ; á®åà. à §¬¥à ®áâ âª  ä ©« 
sbc a,d ; jr c,tinRead ; ä ©« < 1-© áâà ­¨æë
ld h,a ; ld a,1
inc hl ; ld (bigFile),a ; ä ©« > 1-© áâà ­¨æë
ld (ost+1),hl ; á®åà. à §¬¥à ®áâ âª  ä ©«  ; tinRead: ld (Number2),ix ; á®åà. à §¬¥à ä ©« 
jr c,tinRead ; ä ©« < 1-© áâà ­¨æë ; ; 㪠§ â¥«ì ­  ­ ç «® ä ©« 
ld a,1 ; ld hl,0
ld (bigFile),a ; ä ©« > 1-© áâà ­¨æë ; ld ix,0 ; ¬«.á«®¢®
tinRead: ld (Number2),ix ; á®åà. à §¬¥à ä ©«  ; ld a,(hFile2)
; 㪠§ â¥«ì ­  ­ ç «® ä ©«  ; ld bc,0015h ; 㪠§ â¥«ì ®â ­ ç «  ä ©« 
ld hl,0 ; RST ToDSS
ld ix,0 ; ¬«.á«®¢® ; jp c,error1
ld a,(hFile2) ; ; ¯à®ç¨â âì ä ©«
ld bc,0015h ; 㪠§ â¥«ì ®â ­ ç «  ä ©«  ; in a,(SLOT3)
RST ToDSS ; push af
jp c,error1 ; ld a,(hPages.SBuff1)
; ¯à®ç¨â âì ä ©« ; out (SLOT3),a ; ¯®¤ª«. 1-î áâà ­¨æã
in a,(Page3) ; ld a,(hFile2)
push af ; call ReadFile
ld a,(hPages.SBuff1) ; jp c,err1 ; ®è¨¡ª  ç⥭¨ï ä ©« 
out (Page3),a ; ¯®¤ª«. 1-î áâà ­¨æã ; ld a,(bigFile)
ld a,(hFile2) ; or a
call ReadFile ; jr z,endRead ; ¯à®ç¨â ­ ¢¥áì ä ©«
jp c,err1 ; ®è¨¡ª  ç⥭¨ï ä ©«  ; ; ç¨â ¥¬ ®áâ â®ª ä ©« 
ld a,(bigFile) ; ost: ld de,0
or a ; ld a,(hPages.SBuff2)
jr z,endRead ; ¯à®ç¨â ­ ¢¥áì ä ©« ; out (SLOT3),a ; ¯®¤ª«. 2-î áâà ­¨æã
; ç¨â ¥¬ ®áâ â®ª ä ©«  ; ld hl,WinBoxBuff ; ¡ãä¥à ¯®¤ ¤ ­­ë¥
ost: ld de,0 ; ld a,(hFile2)
ld a,(hPages.SBuff2) ; ld c,13h
out (Page3),a ; ¯®¤ª«. 2-î áâà ­¨æã ; RST ToDSS
ld hl,WinBoxBuff ; ¡ãä¥à ¯®¤ ¤ ­­ë¥ ; jp c,err1 ; ®è¨¡ª  ç⥭¨ï ä ©« 
ld a,(hFile2) ; endRead: pop af
ld c,13h ; out (SLOT3),a ; ¢®ááâ. áâà ­¨æã
RST ToDSS ; ; § ªàëâì ä ©«
jp c,err1 ; ®è¨¡ª  ç⥭¨ï ä ©«  ; ld a,(hFile2)
endRead: pop af ; call CloseFile
out (Page3),a ; ¢®ááâ. áâà ­¨æã ; jp c,error1 ; ®è¨¡ª  § ªàëâ¨ï ä ©« 
; § ªàëâì ä ©« ; ret
ld a,(hFile2)
call CloseFile
jp c,error1 ; ®è¨¡ª  § ªàëâ¨ï ä ©« 
ret
@ -125,7 +125,7 @@ sFlag: db 0
sFlag1: db 0 sFlag1: db 0
; ä« £, 0/1 - "system.dos" ¬¥­ìè¥/¡®«ìè¥ 1-© áâà ­¨æë ; ä« £, 0/1 - "system.dos" ¬¥­ìè¥/¡®«ìè¥ 1-© áâà ­¨æë
bigFile: db 0 ;bigFile: db 0
@ -145,64 +145,76 @@ WriteSysFiles: ld a,(sFlag)
; áªàëâì ¬ëèªã ; áªàëâì ¬ëèªã
call HiddenMouse call HiddenMouse
; “áâ. ⥪ã騩 ¤¨áª ¨ ¯ãâì ­  ¤¨áª¥âã ; “áâ. ⥪ã騩 ¤¨áª ¨ ¯ãâì ­  ¤¨áª¥âã
call SetDisketa ;call SetDisketa
; ‘®§¤ âì ä ©« "SYSTEM.EXE" ; ‘®§¤ âì ä ©« "SYSTEM.EXE"
ld hl,Name1 ; ¨¬ï ä ©«  ;ld hl,Name1 ; ¨¬ï ä ©« 
call CreateFile ;call CreateFile
jp c,error1 ; ®è¨¡ª  ᮧ¤ ­¨ï ä ©«  ;jp c,error1 ; ®è¨¡ª  ᮧ¤ ­¨ï ä ©« 
ld (hFile1),a ;ld (hFile1),a
; § ¯¨á âì ä ©« ;; § ¯¨á âì ä ©«
in a,(Page3) ;in a,(SLOT3)
push af ;push af
ld a,(hPages.SBuff0) ;ld a,(hPages.SBuff0)
out (Page3),a ; ¯®¤ª«. ¡ãä¥à ;out (SLOT3),a ; ¯®¤ª«. ¡ãä¥à
ld de,(Number1) ; ç¨á«® § ¯¨á. ¡ ©â ;ld de,(Number1) ; ç¨á«® § ¯¨á. ¡ ©â
ld a,(hFile1) ; åí­¤« ;ld a,(hFile1) ; åí­¤«
call WriteFile ;call WriteFile
ex af,af' ;ex af,af'
pop af ;pop af
out (Page3),a ; ¢®ááâ. áâà ­¨æã ;out (SLOT3),a ; ¢®ááâ. áâà ­¨æã
ex af,af' ;ex af,af'
jr c,error1 ; ®è¨¡ª  § ¯¨á¨ ä ©«  ;jr c,error1 ; ®è¨¡ª  § ¯¨á¨ ä ©« 
; § ªàëâì ä ©« ;; § ªàëâì ä ©«
ld a,(hFile1) ; åí­¤« ;ld a,(hFile1) ; åí­¤«
call CloseFile ;call CloseFile
jr c,error1 ; ®è¨¡ª  § ªàëâ¨ï ä ©«  ;jr c,error1 ; ®è¨¡ª  § ªàëâ¨ï ä ©« 
; ‘®§¤ âì ä ©« "SYSTEM.DOS" ; ‘®§¤ âì ä ©« "SYSTEM.DOS"
ld hl,Name2 ; ¨¬ï ä ©«  ;ld hl,Name2 ; ¨¬ï ä ©« 
call CreateFile ;call CreateFile
jr c,error1 ; ®è¨¡ª  ᮧ¤ ­¨ï ä ©«  ;jr c,error1 ; ®è¨¡ª  ᮧ¤ ­¨ï ä ©« 
ld (hFile2),a ;ld (hFile2),a
; § ¯¨á âì ä ©« ;; § ¯¨á âì ä ©«
in a,(Page3) ;in a,(SLOT3)
push af ;push af
ld a,(hPages.SBuff1) ;ld a,(hPages.SBuff1)
out (Page3),a ; ¯®¤ª«. 1-î áâà ­¨æã ;out (SLOT3),a ; ¯®¤ª«. 1-î áâà ­¨æã
ld de,(Number2) ; à §¬¥à "system.dos" ;ld de,(Number2) ; à §¬¥à "system.dos"
ld hl,4000h ; 1-­  áâà ­¨æ  ;ld hl,4000h ; 1-­  áâà ­¨æ 
ld a,(bigFile) ;ld a,(bigFile)
or a ;or a
jr z,tinFile ; ä ©« <= 1-© áâà ­¨æë ;jr z,tinFile ; ä ©« <= 1-© áâà ­¨æë
ex de,hl ;ex de,hl
sbc hl,de ;sbc hl,de
push hl ;push hl
ld a,(hFile2) ; åí­¤« ;ld a,(hFile2) ; åí­¤«
call WriteFile ;call WriteFile
pop de ;pop de
jr c,err1 ; ®è¨¡ª  § ¯¨á¨ ä ©«  ;jr c,err1 ; ®è¨¡ª  § ¯¨á¨ ä ©« 
ld a,(hPages.SBuff2) ;ld a,(hPages.SBuff2)
out (Page3),a ; ¯®¤ª«. 2-î áâà ­¨æã ;out (SLOT3),a ; ¯®¤ª«. 2-î áâà ­¨æã
;
; tinFile: ld a,(hFile2) ; åí­¤«
; call WriteFile
; jr c,err1 ; ®è¨¡ª  § ¯¨á¨ ä ©« 
; pop af
; out (SLOT3),a ; ¢®ááâ. áâà ­¨æã
; ; § ªàëâì ä ©«
; ld a,(hFile2) ; åí­¤«
; call CloseFile
; jr c,error1 ; ®è¨¡ª  § ªàëâ¨ï ä ©« 
;
;
; § ¯¨áì § £àã§ç¨ª  ç¥à¥§ sys
ld hl,.sys_name
ld a,(DskName)
ld (.sys_prm_disk),a
ld bc,Dss.Exec
rst ToDSS
;
jr c,.error1
and a
jr nz,.error1
; ;
tinFile: ld a,(hFile2) ; åí­¤«
call WriteFile
jr c,err1 ; ®è¨¡ª  § ¯¨á¨ ä ©« 
pop af
out (Page3),a ; ¢®ááâ. áâà ­¨æã
; § ªàëâì ä ©«
ld a,(hFile2) ; åí­¤«
call CloseFile
jr c,error1 ; ®è¨¡ª  § ªàëâ¨ï ä ©« 
; ¢®ááâ. ¤¨áª ¨ ¯ãâì ; ¢®ááâ. ¤¨áª ¨ ¯ãâì
call RestPath call RestPath
; § ªàëâì ®ª­® "‡ ¯¨áì á¨áâ. ä ©«®¢" ; § ªàëâì ®ª­® "‡ ¯¨áì á¨áâ. ä ©«®¢"
@ -226,10 +238,10 @@ tinFile: ld a,(hFile2) ;
ld (ColDialWn),a ; ¢®ááâ. ¯à¥¦­îî ãáâ ­®¢ªã æ¢¥â  ®ª­  ld (ColDialWn),a ; ¢®ááâ. ¯à¥¦­îî ãáâ ­®¢ªã æ¢¥â  ®ª­ 
ret ret
; ;
err1: pop af ; err1: pop af
out (Page3),a ; ¢®ááâ. áâà ­¨æã ; out (SLOT3),a ; ¢®ááâ. áâà ­¨æã
; ;
error1: call RestPath ; ¢®ááâ. ¤¨áª ¨ ¯ãâì .error1: call RestPath ; ¢®ááâ. ¤¨áª ¨ ¯ãâì
ld a,40h ld a,40h
ld (ColDialWn),a ld (ColDialWn),a
ld hl,ErrSysFiles ld hl,ErrSysFiles
@ -239,18 +251,19 @@ error1: call RestPath ;
ld a,1 ld a,1
ld (sFlag),a ld (sFlag),a
ret ret
.sys_name: db "SYS.EXE "
.sys_prm_disk: db "A: 1"
; SetDisketa: ; “áâ. ⥪ã騩 ¤¨áª ­  ä®à¬ â. ¤¨áª¥âã
SetDisketa: ; “áâ. ⥪ã騩 ¤¨áª ­  ä®à¬ â. ¤¨áª¥âã ; ld a,(DISK)
ld a,(DISK) ; ld c,1
ld c,1 ; RST ToDSS
RST ToDSS ; ; “áâ. "ª®à¥­ì" ¤¨áª¥âë
; “áâ. "ª®à¥­ì" ¤¨áª¥âë ; ld hl,RootDir
ld hl,RootDir ; ld c,1Dh
ld c,1Dh ; RST ToDSS
RST ToDSS ; ret
ret
RestPath: ; ‚®ááâ. ⥪ã騩 ¤¨áª RestPath: ; ‚®ááâ. ⥪ã騩 ¤¨áª
; ld a,(CurDisk) ; ld a,(CurDisk)
@ -274,10 +287,10 @@ FirstFile: ld bc,0019h ;
; ‘®§¤ âì ä ©« ; ‘®§¤ âì ä ©«
CreateFile: ld c,0Ah ; CreateFile: ld c,0Ah
ld a,20h ;  âਡãâ " à娢­ë©" ; ld a,20h ;  âਡãâ " à娢­ë©"
RST ToDSS ; RST ToDSS
ret ; ret
; Žâªàëâì ä ©« ; Žâªàëâì ä ©«
@ -288,18 +301,18 @@ OpenFile: ld c,11h
; <20>à®ç¨â âì ä ©« ; <20>à®ç¨â âì ä ©«
ReadFile: ld hl,WinBoxBuff ;L4000 ¡ãä¥à ¯®¤ ¤ ­­ë¥ ; ReadFile: ld hl,WinBoxBuff ;L4000 ¡ãä¥à ¯®¤ ¤ ­­ë¥
ld de,4000h ; ç¨á«® ç¨â ¥¬ëå ¡ ©â (1 áâà ­¨æ ) ; ld de,4000h ; ç¨á«® ç¨â ¥¬ëå ¡ ©â (1 áâà ­¨æ )
ld c,13h ; ld c,13h
RST ToDSS ; RST ToDSS
ret ; ret
; ‡ ¯¨áì ä ©«  ; ‡ ¯¨áì ä ©« 
WriteFile: ld hl,WinBoxBuff ;L4000 ¡ãä¥à ¤ ­­ëå ; WriteFile: ld hl,WinBoxBuff ;L4000 ¡ãä¥à ¤ ­­ëå
ld c,14h ; ld c,14h
RST ToDSS ; RST ToDSS
ret ; ret
; ‡ ªàëâì ä ©« ; ‡ ªàëâì ä ©«
@ -312,16 +325,15 @@ CloseFile: ld c,12h
SysDisk: db 0 ; ­®¬¥à § £à. ¤¨áª  SysDisk: db 0 ; ­®¬¥à § £à. ¤¨áª 
Name1: db "SYSTEM.EXE",0 ;Name1: db "SYSTEM.EXE",0
Name2: db "SYSTEM.DOS",0 ;Name2: db "SYSTEM.DOS",0
;Name2: db "DIAL.TXT",0 ;Name2: db "DIAL.TXT",0
hFile1: db 0 ; åí­¤« ä ©«  "system.exe" ;hFile1: db 0 ; åí­¤« ä ©«  "system.exe"
hFile2: db 0 ; åí­¤« ä ©«  "system.dos" ;hFile2: db 0 ; åí­¤« ä ©«  "system.dos"
Number1: dw 0 ; à §¬¥à ä ©«  "system.exe" ;Number1: dw 0 ; à §¬¥à ä ©«  "system.exe"
Number2: dw 0 ; à §¬¥à ä ©«  "system.dos" ;Number2: dw 0 ; à §¬¥à ä ©«  "system.dos"
RootDir: db '\',0 ; ;RootDir: db '\',0 ;
; ;
CurPath:
CurDisk: db 0,':\' ; á®åà. ⥪. ¤¨áª CurDisk: db 0,':\' ; á®åà. ⥪. ¤¨áª
; ;
@ -347,9 +359,9 @@ compare_page: ld c,0C6h ;
ld a,1 ;¯ à ¬¥âàë 1-£® ®ª­  ld a,1 ;¯ à ¬¥âàë 1-£® ®ª­ 
RST ToBIOS RST ToBIOS
ld a,c ;¢®â §¤¥áì ¨¤¥â áp ¢­¥­¨¥ áç¨â ­­®£® ld a,c ;¢®â §¤¥áì ¨¤¥â áp ¢­¥­¨¥ áç¨â ­­®£®
cp Page1 ;­®¬¥p  ¯®pâ  á ⥬, ª®â®pë© ï î cp SLOT1 ;­®¬¥p  ¯®pâ  á ⥬, ª®â®pë© ï î
jr z,.loc1 jr z,.loc1
; ãáâ. ­®¢ë© ­®¬¥à Page1 ; ãáâ. ­®¢ë© ­®¬¥à SLOT1
ld (port1+1),a ld (port1+1),a
ld (port2+1),a ld (port2+1),a
ld (port3+1),a ld (port3+1),a
@ -358,9 +370,9 @@ compare_page: ld c,0C6h ;
ld a,3 ;¯ à ¬¥âàë 3-£® ®ª­  ld a,3 ;¯ à ¬¥âàë 3-£® ®ª­ 
RST ToBIOS RST ToBIOS
ld a,c ld a,c
cp Page3 cp SLOT3
ret z ret z
; ãáâ. ­®¢ë© ­®¬¥à Page3 ; ãáâ. ­®¢ë© ­®¬¥à SLOT3
ld (port5+1),a ld (port5+1),a
ld (port6+1),a ld (port6+1),a
ld (port7+1),a ld (port7+1),a
@ -567,10 +579,10 @@ CopyBootTRD: xor a
jr c,trd_err ; ®è¨¡ª  ®âªàëâ¨ï jr c,trd_err ; ®è¨¡ª  ®âªàëâ¨ï
ld (hFile4),a ld (hFile4),a
; ¯à®ç¨â âì ä ©« ; ¯à®ç¨â âì ä ©«
in a,(Page3) in a,(SLOT3)
push af push af
ld a,(hPages.TRBoot) ld a,(hPages.TRBoot)
out (Page3),a ; ¯®¤ª«. ¡ãä¥à out (SLOT3),a ; ¯®¤ª«. ¡ãä¥à
; ç¨â ¥¬ § £®«®¢®ª ¡ãâ  ; ç¨â ¥¬ § £®«®¢®ª ¡ãâ 
ld hl,NameBt ; ¡ãä¥à ¯®¤ ¤ ­­ë¥ ld hl,NameBt ; ¡ãä¥à ¯®¤ ¤ ­­ë¥
ld de,17 ; ç¨á«® ç¨â ¥¬ëå ¡ ©â ld de,17 ; ç¨á«® ç¨â ¥¬ëå ¡ ©â
@ -590,7 +602,7 @@ CopyBootTRD: xor a
ld c,13h ld c,13h
RST ToDSS RST ToDSS
pop af pop af
out (Page3),a ; ¢®ááâ. áâà ­¨æã out (SLOT3),a ; ¢®ááâ. áâà ­¨æã
; § ªàëâì ä ©« ; § ªàëâì ä ©«
ld a,(hFile4) ld a,(hFile4)
jp CloseFile jp CloseFile

23
FMAIN.ASM
View File

@ -13,11 +13,10 @@
include './shared_includes/constants/dss_equ.inc' include './shared_includes/constants/dss_equ.inc'
include './shared_includes/constants/bios_equ.inc' include './shared_includes/constants/bios_equ.inc'
include './shared_includes/constants/sp2000.inc'
include './shared_includes/structures/FileSystem.inc'
include 'version.inc' include 'version.inc'
SysPort equ 0x3C ; á¨áâ. ¯®àâ (¡¥§ ¯®¤ª«. <20>‡“ ¡¨®á )
Page1 equ 0xA2 ; ¯®àâ 1-© áâà ­¨æë
Page3 equ 0xE2 ; ¯®àâ 3-© áâà ­¨æë
WinBoxBuff equ 0xC000 ; ­ ç «® ¡ãä¥à  WinBoxBuff equ 0xC000 ; ­ ç «® ¡ãä¥à 
@ -58,9 +57,9 @@ Start: ld sp,Stack
ld hl,hPages ld hl,hPages
ld c,0C5h ld c,0C5h
RST ToBIOS RST ToBIOS
; ¢ª«. à ¡®çãî áâà ­¨æã ¢ Page3 (¨á¯. ¤«ï ¡ãä¥à  á¨áâ. ®¡« á⨠¤¨áª¥âë) ; ¢ª«. à ¡®çãî áâà ­¨æã ¢ SLOT3 (¨á¯. ¤«ï ¡ãä¥à  á¨áâ. ®¡« á⨠¤¨áª¥âë)
ld a,(hPages.BuffSys2) ld a,(hPages.BuffSys2)
out (Page3),a out (SLOT3),a
; ®ç¨áâ¨âì ¡ãä¥à ª« ¢ë ; ®ç¨áâ¨âì ¡ãä¥à ª« ¢ë
ld bc,Dss.ScanKey*256 + Dss.K_CLEAR ld bc,Dss.ScanKey*256 + Dss.K_CLEAR
RST ToDSS RST ToDSS
@ -116,7 +115,7 @@ Begin: ;
RST ToDSS RST ToDSS
continue: call ReadInit ; ç⥭¨¥ "fformat.ini" ¨ ­ áâனª  continue: call ReadInit ; ç⥭¨¥ "fformat.ini" ¨ ­ áâனª 
call CopyBootTRD ; ᪮¯¨à. ¡ãâ ¨§ "boot.$b" (¥á«¨ ¥áâì) call CopyBootTRD ; ᪮¯¨à. ¡ãâ ¨§ "boot.$b" (¥á«¨ ¥áâì)
call CopySysFiles ; ᪮¯¨à. á¨áâ. ä ©«ë ¢ ¡ãä¥àë ;call CopySysFiles ; ᪮¯¨à. á¨áâ. ä ©«ë ¢ ¡ãä¥àë
;[]==============================================================[] ;[]==============================================================[]
include "dialog.asm" include "dialog.asm"
include "listbox.asm" include "listbox.asm"
@ -154,9 +153,9 @@ hPages:
.Win1: db #FF ; åí­¤« áâà. á®åà. íªà ­  .Win1: db #FF ; åí­¤« áâà. á®åà. íªà ­ 
.Win2: db #FF ; åí­¤« áâà. á®åà. £«. ®ª®­ ä®à¬ â¨«ª¨ .Win2: db #FF ; åí­¤« áâà. á®åà. £«. ®ª®­ ä®à¬ â¨«ª¨
.TRBoot: db #FF ; åí­¤« ¡ãä¥à  § £àã§ç¨ª  TR-DOS .TRBoot: db #FF ; åí­¤« ¡ãä¥à  § £àã§ç¨ª  TR-DOS
.SBuff0: db #FF ; åí­¤« ¡ãä¥à  "system.exe" ;.SBuff0: db #FF ; åí­¤« ¡ãä¥à  "system.exe"
.SBuff1: db #FF ; åí­¤«ë ¡ãä¥à  ¯®¤ ;.SBuff1: db #FF ; åí­¤«ë ¡ãä¥à  ¯®¤
.SBuff2: db #FF ; ä ©« "system.dos" ;.SBuff2: db #FF ; ä ©« "system.dos"
.Size equ $-hPages .Size equ $-hPages
db 0xFF ; á⮯-¡ ©â ᯨ᪠ db 0xFF ; á⮯-¡ ©â ᯨ᪠
@ -190,12 +189,12 @@ Stack: db 0 ;
;[]==============================================================[] ;[]==============================================================[]
ES_BPB equ $ ES_BPB equ $
ES_Boot equ ES_BPB + 512 ;ES_Boot equ ES_BPB + 512
; incbin "estex.bs" ; § £àã§ç¨ª Estex ; incbin "estex.bs" ; § £àã§ç¨ª Estex
;[]==============================================================[] ;[]==============================================================[]
CurPath equ ES_BPB + 512 ;!TEST
;[]==============================================================[] ;[]==============================================================[]
; <20>ãä¥à á¨á⥬­®© ®¡« á⨠¤¨áª¥âë ; <20>ãä¥à á¨á⥬­®© ®¡« á⨠¤¨áª¥âë
L2400 equ ES_BPB+512*4 ;!HARDCODE 4 - bootloader size L2400 equ CurPath + 257
;[]==============================================================[] ;[]==============================================================[]

141
FORMAT.ASM
View File

@ -38,15 +38,15 @@ FFORM1: call ClearMap ;
call HiddenMouse ; áªàëâì ¬ëèªã call HiddenMouse ; áªàëâì ¬ëèªã
call set_1440 call set_1440
; Žâªàëâì ¯®àâë ‚ƒ93 ; Žâªàëâì ¯®àâë ‚ƒ93
ld a,1Ch ld a,SYS_PORT.CNF_3
out (SysPort),a out (SYS_PORT.RAM),a
call A0626 ; á¡à®á¨âì ª®­â஫«¥à call A0626 ; á¡à®á¨âì ª®­â஫«¥à
; ¤¥à­ãâì £®«®¢ª®© ; ¤¥à­ãâì £®«®¢ª®©
ld a,70 ld a,70
out (REGDATA),a out (REGDATA),a
ld a,18h ; ¯¥à¥©â¨ ­  § ¤ ­. ¤®à®¦ªã ld a,18h ; ¯¥à¥©â¨ ­  § ¤ ­. ¤®à®¦ªã
call A092C ; § ­¥á⨠ª®¬ ­¤ã call FDC_CMD ; § ­¥á⨠ª®¬ ­¤ã
call A092A ; ­  0-î ¤®à®¦ªã call FDC_CMD.zeroTrk ; ­  0-î ¤®à®¦ªã
; ;
; ¯à®¢¥à¨âì ­ «¨ç¨¥ ¤¨áª¥âë ; ¯à®¢¥à¨âì ­ «¨ç¨¥ ¤¨áª¥âë
call L0C65 ; â¥áâ ­  ç⥭¨¥ ᥪâ®à  call L0C65 ; â¥áâ ­  ç⥭¨¥ ᥪâ®à 
@ -82,7 +82,7 @@ FFORM1: call ClearMap ;
ld hl,SystemArea ; "Writing system area..." ld hl,SystemArea ; "Writing system area..."
call PutDialWn call PutDialWn
call HiddenMouse ; áªàëâì ¬ëèªã call HiddenMouse ; áªàëâì ¬ëèªã
call L09D9 ; § ¯¨áì á¨áâ. ®¡« á⨠call SysWR ; § ¯¨áì á¨áâ. ®¡« áâ¨
call ClsDial ; § ªàëâì ®ª­® ¤¨ «®£  call ClsDial ; § ªàëâì ®ª­® ¤¨ «®£ 
pop af pop af
ld (ColDialWn),a ld (ColDialWn),a
@ -90,7 +90,7 @@ FFORM1: call ClearMap ;
ld a,(RetCode) ld a,(RetCode)
or a or a
jr nz,Parsing ; ¡ë«¨ ®è¨¡ª¨ ¯à¨ § ¯¨á¨ á¨áâ. ®¡« á⨠jr nz,Parsing ; ¡ë«¨ ®è¨¡ª¨ ¯à¨ § ¯¨á¨ á¨áâ. ®¡« áâ¨
call A092A ; ­  0-î ¤®à®¦ªã call FDC_CMD.zeroTrk ; ­  0-î ¤®à®¦ªã
; ‡ ªàëâì ¯®àâë ‚ƒ93 ; ‡ ªàëâì ¯®àâë ‚ƒ93
call Abort call Abort
ld a,(_OS) ld a,(_OS)
@ -100,14 +100,14 @@ FFORM1: call ClearMap ;
ld a,(cSystem) ; ä« £ ª®¯¨à. á¨á⥬­ëå ä ©«®¢ ld a,(cSystem) ; ä« £ ª®¯¨à. á¨á⥬­ëå ä ©«®¢
or a or a
call nz,WriteSysFiles ; § ¯¨áì á¨áâ. ä ©«®¢ ­  ¤¨áª¥âã call nz,WriteSysFiles ; § ¯¨áì á¨áâ. ä ©«®¢ ­  ¤¨áª¥âã
call CreateLabel ; ᮧ¤ âì ¬¥âªã ¤¨áª¥âë, ¥á«¨ § ¤ ­  ;call CreateLabel ; ᮧ¤ âì ¬¥âªã ¤¨áª¥âë, ¥á«¨ § ¤ ­ 
jp okno1 ; "”®à¬. § ¢¥à襭®", ¢ë室 ¨§ ä㭪樨 fformat jp okno1 ; "”®à¬. § ¢¥à襭®", ¢ë室 ¨§ ä㭪樨 fformat
Abort: call A0626 ; á¡à®á¨âì ª®­â஫«¥à Abort: call A0626 ; á¡à®á¨âì ª®­â஫«¥à
; § ªàëâì ¯®àâë ‚ƒ93 ; § ªàëâì ¯®àâë ‚ƒ93
ld a,4 ld a,SYS_PORT.CNF_0
out (SysPort),a out (SYS_PORT.RAM),a
ld c,1 ; ¯®ª § âì ¬ëèªã ld c,1 ; ¯®ª § âì ¬ëèªã
RST ToDSS.Mouse RST ToDSS.Mouse
ret ret
@ -248,9 +248,10 @@ L0870: ld a,(side)
A0626: ex af,af' A0626: ex af,af'
ld a,(DISK) ; ¤¨áª ld a,(DISK) ; ¤¨áª
and 3 and 3
ld c,a ;ld c,a
ld a,00011000b ; á¡à®á ‚ƒ93 ­ã«¥¬ 2-£® ¡¨â  ;ld a,00011000b ; á¡à®á ‚ƒ93 ­ã«¥¬ 2-£® ¡¨â 
or c ;or c
or %0001'1000
out (REGCTRL),a out (REGCTRL),a
set 2,a ; 1Ch set 2,a ; 1Ch
out (REGCTRL),a out (REGCTRL),a
@ -285,9 +286,10 @@ delay: ; >=16. usec delay
;A0929: ld a,0D0h ;A0929: ld a,0D0h
; jr A092C ; jr A092C
; £®«®¢ªã ­  0-î ¤®à®¦ªã ; £®«®¢ªã ­  0-î ¤®à®¦ªã
A092A: ld a,8 FDC_CMD.zeroTrk:
ld a,8
; ¯®á« âì ª®¬ ­¤ã ; ¯®á« âì ª®¬ ­¤ã
A092C: out (REGCOM),a FDC_CMD: out (REGCOM),a
exx exx
ld b,3+3; ; 3 áç¥â稪 ld b,3+3; ; 3 áç¥â稪
call delay ; ¬¨ªà®-¯ ã§  call delay ; ¬¨ªà®-¯ ã§ 
@ -338,12 +340,12 @@ L07B3: call L0870 ;
; ‡ ¯¨áì á¨áâ. ®¡« á⨠ms-dos ¨«¨ trd-¡ãâ  ; ‡ ¯¨áì á¨áâ. ®¡« á⨠ms-dos ¨«¨ trd-¡ãâ 
L09D9: ld a,(density) SysWR: ld a,(density)
ld c,8Fh ; turbo on/off ld c,8Fh ; turbo on/off
RST ToBIOS RST ToBIOS
xor a xor a
ld (tracks),a ld (tracks),a
call A092A ; ¯¥à¥©â¨ ­  0-î ¤®à®¦ªã call FDC_CMD.zeroTrk ; ¯¥à¥©â¨ ­  0-î ¤®à®¦ªã
ld hl,L2400 ; ¡ãä¥à á¨áâ. ®¡« á⨠ld hl,L2400 ; ¡ãä¥à á¨áâ. ®¡« áâ¨
ld (L0AC8),hl ld (L0AC8),hl
ld a,(_OS) ld a,(_OS)
@ -355,8 +357,6 @@ L09D9: ld a,(density)
;jp _cpm80 ;jp _cpm80
; Š®¯¨àã¥â 2-î FAT ¨ § ¯¨á뢠¥â á¨áâ. ®¡« áâì ¤¨áª¥âë, ; Š®¯¨àã¥â 2-î FAT ¨ § ¯¨á뢠¥â á¨áâ. ®¡« áâì ¤¨áª¥âë,
; ¯à¨ ¢ª«. ®¯æ¨¨ ª®¯¨àã¥â § £àã§ç¨ª Estex ¢ ᥪâ®àë 2..4. ; ¯à¨ ¢ª«. ®¯æ¨¨ ª®¯¨àã¥â § £àã§ç¨ª Estex ¢ ᥪâ®àë 2..4.
_msdos: ld a,(MS_Boot.media5) ; ç¨á«® ᥪâ®à®¢ ­  FAT _msdos: ld a,(MS_Boot.media5) ; ç¨á«® ᥪâ®à®¢ ­  FAT
ld e,a ld e,a
ld hl,0 ld hl,0
@ -377,20 +377,20 @@ _msdos: ld a,(MS_Boot.media5) ;
ldir ldir
; ;
; bpb boot loader ; bpb boot loader
ld a,(cSystem) ; ä« £ ᮧ¤ ­¨ï á¨áâ. ¤¨áª¥âë ;ld a,(cSystem) ; ä« £ ᮧ¤ ­¨ï á¨áâ. ¤¨áª¥âë
or a ;or a
jr z,.loc2 ;jr z,.loc2
; ª®¯¨à. § £àã§ç¨ª  Estex ¢ á¨áâ. ®¡« áâì ; ª®¯¨à. § £àã§ç¨ª  Estex ¢ á¨áâ. ®¡« áâì
ld hl,ES_Boot ; ª®¤ § £àã§ç¨ª  ;ld hl,ES_Boot ; ª®¤ § £àã§ç¨ª 
ld de,L2400+512 ; ­ ç «® 1-© FAT ;ld de,L2400+512 ; ­ ç «® 1-© FAT
ld bc,1536 ; 512*3 ᥪâ. = à §¬¥à § £àã§ç¨ª  ;ld bc,1536 ; 512*3 ᥪâ. = à §¬¥à § £àã§ç¨ª 
ldir ;ldir
; ᪮à४â. BPB ¢ ¡ãä¥à¥ ; ᪮à४â. BPB ¢ ¡ãä¥à¥
ld a,(MS_Boot.media5) ;ld a,(MS_Boot.media5)
inc a ;inc a
ld (L2400+14),a ;ld (L2400+14),a
ld a,1 ; ç¨á«® ª®¯¨© FAT ;ld a,1 ; ç¨á«® ª®¯¨© FAT
ld (L2400+16),a ; ᬥé. ­  ç¨á«® ª®¯¨© ;ld (L2400+16),a ; ᬥé. ­  ç¨á«® ª®¯¨©
; ;
; ;
.loc2: call L07AF ; ®¦¨¤ ­¨¥ £®â®¢­®á⨠­£¬¤ .loc2: call L07AF ; ®¦¨¤ ­¨¥ £®â®¢­®á⨠­£¬¤
@ -398,34 +398,28 @@ _msdos: ld a,(MS_Boot.media5) ;
ld a,1 ld a,1
ld (sect),a ; 1-© ᥪâ®à (boot) ld (sect),a ; 1-© ᥪâ®à (boot)
call L0870 ; áâ®à®­ã ¨ ¤¨áª ¢ ª®­â஫«¥à call L0870 ; áâ®à®­ã ¨ ¤¨áª ¢ ª®­â஫«¥à
L08F0: call L0906 ; § ¯¨áì ᥪâ®à  .loopWr0: call L0906 ; § ¯¨áì ᥪâ®à 
ret nz ; ®è¨¡ª¨ § ¯¨á¨ ret nz ; ®è¨¡ª¨ § ¯¨á¨
ld a,(sect) ; ⥪. ᥪâ®à ld a,(sect) ; ⥪. ᥪâ®à
inc a inc a
ld (sect),a ld (sect),a
loc02: cp 18+1 ; § ¯à¥¤¥«ì­ë© ᥪâ®à .maxSector0+1: cp 18+1 ; § ¯à¥¤¥«ì­ë© ᥪâ®à
jr nz,L08F0 jr nz,.loopWr0
; § ¯¨áì 1-© áâ®à®­ë ; § ¯¨áì 1-© áâ®à®­ë
ld a,1 ld a,1
ld (side),a ; ⥪. áâ®à®­  ld (side),a ; ⥪. áâ®à®­ 
ld (sect),a ; ⥪. ᥪâ®à ld (sect),a ; ⥪. ᥪâ®à
call L0870 ; áâ®à®­ã ¨ ¤¨áª ¢ ª®­â஫«¥à call L0870 ; áâ®à®­ã ¨ ¤¨áª ¢ ª®­â஫«¥à
L08F6: call L0906 ; § ¯¨áì ᥪâ®à  .loopWr1: call L0906 ; § ¯¨áì ᥪâ®à 
ret nz ; ®è¨¡ª¨ § ¯¨á¨ ret nz ; ®è¨¡ª¨ § ¯¨á¨
ld a,(sect) ; ⥪. ᥪâ®à ld a,(sect) ; ⥪. ᥪâ®à
inc a inc a
ld (sect),a ld (sect),a
loc03: cp 18+1 ; § ¯à¥¤. ᥪâ®à ? .maxSector1+1: cp 18+1 ; § ¯à¥¤. ᥪâ®à ?
jr nz,L08F6 jr nz,.loopWr1
; § ¯¨áì § £àã§ç¨ª  ç¥à¥§ sys
ld a,(cSystem) ; ä« £ ᮧ¤ ­¨ï á¨áâ. ¤¨áª¥âë
or a
ret z
;
;
ret ret
; ‡ ¯¨áì á¨áâ. ®¡« á⨠TR-DOS. ; ‡ ¯¨áì á¨áâ. ®¡« á⨠TR-DOS.
; <20>ਠboot-¤¨áª¥ ª®à४â¨àã¥â ­ ç «® ᢮¡. ¬¥áâ , ; <20>ਠboot-¤¨áª¥ ª®à४â¨àã¥â ­ ç «® ᢮¡. ¬¥áâ ,
; ç¨á«® ᢮¡. ᥪâ®à®¢ ¨ ç¨á«® § ¯¨á. ä ©«®¢ ; ç¨á«® ᢮¡. ᥪâ®à®¢ ¨ ç¨á«® § ¯¨á. ä ©«®¢
@ -517,16 +511,16 @@ _trdos: xor a ;
; ‘ª®¯¨à®¢ âì ⥫® ¡ãâ  ¨§ ¡ãä¥à  TRBoot ¢ ¡ãä¥à L2400+1000h ; ‘ª®¯¨à®¢ âì ⥫® ¡ãâ  ¨§ ¡ãä¥à  TRBoot ¢ ¡ãä¥à L2400+1000h
copy1: exx copy1: exx
in a,(Page1) in a,(SLOT1)
ex af,af' ex af,af'
ld a,(hPages.TRBoot) ld a,(hPages.TRBoot)
out (Page1),a ; ¯®¤ª«. ¡ãä¥à out (SLOT1),a ; ¯®¤ª«. ¡ãä¥à
ld hl,4000h ; ­ ç «® Page1 ld hl,4000h ; ­ ç «® SLOT1
ld de,L2400+1000h ld de,L2400+1000h
SizeBt: ld bc,4000h SizeBt: ld bc,4000h
ldir ldir
ex af,af' ex af,af'
out (Page1),a ; ¯®¤ª«. ¡ãä¥à out (SLOT1),a ; ¯®¤ª«. ¡ãä¥à
exx exx
ret ret
@ -586,10 +580,10 @@ A0875: push de
; ‡ ¯¨áì ¤®à®¦ª¨ ; ‡ ¯¨áì ¤®à®¦ª¨
L091B: in a,(Page3) L091B: in a,(SLOT3)
push af push af
ld a,(hPages.BuffTrk) ld a,(hPages.BuffTrk)
out (Page3),a ; ¯®¤ª«. ¡ãä¥à áâàãªâãàë ¤®à®¦ª¨ out (SLOT3),a ; ¯®¤ª«. ¡ãä¥à áâàãªâãàë ¤®à®¦ª¨
ld hl,L4000 ; ­ ç «® ¤ ­­ëå ld hl,L4000 ; ­ ç «® ¤ ­­ëå
ld (L0AC8),hl ld (L0AC8),hl
call L0870 ; ¢ ª®­â஫«¥à áâ®à®­ã ¨ ¤¨áª call L0870 ; ¢ ª®­â஫«¥à áâ®à®­ã ¨ ¤¨áª
@ -598,7 +592,7 @@ L091B: in a,(Page3)
ld a,0xF4 ; § ¯¨áì ¤®à®¦ª¨ ld a,0xF4 ; § ¯¨áì ¤®à®¦ª¨
call A0875 call A0875
pop af pop af
out (Page3),a out (SLOT3),a
ret ret
@ -611,7 +605,7 @@ NxtTrack:
L0759: ld a,(tracks) ; ⥪. ¤®à®¦ª  L0759: ld a,(tracks) ; ⥪. ¤®à®¦ª 
out (REGDATA),a ; ॣ¨áâà ¤ ­­ëå out (REGDATA),a ; ॣ¨áâà ¤ ­­ëå
ld a,18h ; ¯¥à¥©â¨ ­  § ¤ ­. ¤®à®¦ªã ld a,18h ; ¯¥à¥©â¨ ­  § ¤ ­. ¤®à®¦ªã
jp A092C ; § ­¥á⨠ª®¬ ­¤ã jp FDC_CMD ; § ­¥á⨠ª®¬ ­¤ã
@ -634,7 +628,7 @@ L0C65: ld a,(sect) ; ⥪. ᥪ
or 0x80 or 0x80
; 0-ï áâ®à®­ : 80h ; 0-ï áâ®à®­ : 80h
; 1-ï áâ®à®­ : 88h ; 1-ï áâ®à®­ : 88h
call A092C ; § ­¥á⨠ª®¬ ­¤ã call FDC_CMD ; § ­¥á⨠ª®¬ ­¤ã
di di
ld c,REGCOM ld c,REGCOM
ld b,3 ; áç¥â稪 ¯®¯ë⮪ ld b,3 ; áç¥â稪 ¯®¯ë⮪
@ -934,10 +928,10 @@ GAP1 equ 50
GAP3 dw 108 ; ¯®-㬮«ç ­¨î ¤«ï 1.44Mb GAP3 dw 108 ; ¯®-㬮«ç ­¨î ¤«ï 1.44Mb
; <20>®¤£®â®¢¨âì § £®«®¢ª¨ ᥪâ®à®¢ ¤®à®¦ª¨ (®¤­®© áâ®à®­ë) ; <20>®¤£®â®¢¨âì § £®«®¢ª¨ ᥪâ®à®¢ ¤®à®¦ª¨ (®¤­®© áâ®à®­ë)
L0BAA: in a,(Page3) L0BAA: in a,(SLOT3)
push af push af
ld a,(hPages.BuffTrk) ld a,(hPages.BuffTrk)
out (Page3),a ; ¯®¤ª«. ¡ãä¥à ¤®à®¦ª¨ out (SLOT3),a ; ¯®¤ª«. ¡ãä¥à ¤®à®¦ª¨
xor a xor a
ld (L0BA9),a ; ®¡­ã«¨âì áç¥â稪 ᥪâ®à®¢ ld (L0BA9),a ; ®¡­ã«¨âì áç¥â稪 ᥪâ®à®¢
; ;
@ -982,17 +976,17 @@ L0BB6: ld bc,553 ;
loc05: cp 18 ; ¯®á«. ᥪâ®à ? loc05: cp 18 ; ¯®á«. ᥪâ®à ?
jr nz,L0BB2 jr nz,L0BB2
pop af pop af
out (Page3),a ; ¢®ááâ. à ¡. áâà ­¨æã out (SLOT3),a ; ¢®ááâ. à ¡. áâà ­¨æã
ret ret
; ‘®§¤ ¥â ¢ ¡ãä¥à¥ áâàãªâãàã ¤®à®¦ª¨ ; ‘®§¤ ¥â ¢ ¡ãä¥à¥ áâàãªâãàã ¤®à®¦ª¨
; <20>ãä¥à: 0xC000..0xFFFF ; <20>ãä¥à: 0xC000..0xFFFF
L0B21: in a,(Page3) L0B21: in a,(SLOT3)
push af push af
ld a,(hPages.BuffTrk) ld a,(hPages.BuffTrk)
out (Page3),a ; ¯®¤ª«. ¡ãä¥à ¤®à®¦ª¨ out (SLOT3),a ; ¯®¤ª«. ¡ãä¥à ¤®à®¦ª¨
call CLEAR ; § ¯®«­¨âì ¡ãä¥à ª®¤®¬ 0x4E call CLEAR ; § ¯®«­¨âì ¡ãä¥à ª®¤®¬ 0x4E
ld hl,L4000 ; ­ ç «® ¡ãä¥à  ¤ ­­ëå ¤®à®¦ª¨ ld hl,L4000 ; ­ ç «® ¡ãä¥à  ¤ ­­ëå ¤®à®¦ª¨
xor a xor a
@ -1064,7 +1058,7 @@ loc08: cp 18 ;
jr nz,L0B3E jr nz,L0B3E
; GAP4B, ®áâ â®ª ¤®à®¦ª¨ (¡ãä¥à 㦥 § ¯®«­¥­ 0x4E) ; GAP4B, ®áâ â®ª ¤®à®¦ª¨ (¡ãä¥à 㦥 § ¯®«­¥­ 0x4E)
pop af pop af
out (Page3),a ; ¢ª«. à ¡®çãî áâà ­¨æã 0xC000 out (SLOT3),a ; ¢ª«. à ¡®çãî áâà ­¨æã 0xC000
ret ret
FILL: ld (hl),c FILL: ld (hl),c
@ -1097,8 +1091,15 @@ CLEAR: ld (L0ACD),sp
; ¬ ªá. ¤«¨­  ®¡« áâ¨: 0x4C00 ¤«ï 1.74Mb ; ¬ ªá. ¤«¨­  ®¡« áâ¨: 0x4C00 ¤«ï 1.74Mb
L09A8: ld de,L2400 ; ¡ãä¥à Boot-ᥪâ®à  L09A8: ld de,L2400 ; ¡ãä¥à Boot-ᥪâ®à 
ld hl,MS_Boot ; ms-dos boot-ᥪâ®à ld hl,MS_Boot ; ms-dos boot-ᥪâ®à
ld bc,512 ; ¤«¨­  boot-  ld bc,MS_Boot.SIZE ; ¤«¨­  boot- 
ldir ;!TEST
assert MS_Boot.SIZE < 512,"DEL ME!!!"
ld bc,512-MS_Boot.SIZE
ld h,d
ld l,e
dec hl
ldir ldir
;
ex de,hl ; hl = ­ ç «® FAT ¢ ¡ãä¥à¥ ex de,hl ; hl = ­ ç «® FAT ¢ ¡ãä¥à¥
loc07: ld bc,16896 ; 6656/16896 ¤«¨­  FAT-®¢ + Root dir loc07: ld bc,16896 ; 6656/16896 ¤«¨­  FAT-®¢ + Root dir
ld e,0 ; ¡ ©â § ¯®«­¥­¨ï ld e,0 ; ¡ ©â § ¯®«­¥­¨ï
@ -1110,6 +1111,8 @@ loc07: ld bc,16896 ; 6656/16896
ld (hl),0FFh ; 2 ¨ 3-© ¡ ©âë FAT ld (hl),0FFh ; 2 ¨ 3-© ¡ ©âë FAT
inc hl inc hl
ld (hl),0FFh ld (hl),0FFh
call CreateLabel ; ᮧ¤ âì ¬¥âªã ¤¨áª¥âë, ¥á«¨ § ¤ ­ 
call CreateSerialNumber
ret ret
L0994: ld (hl),e L0994: ld (hl),e
@ -1127,18 +1130,19 @@ L0994: ld (hl),e
FSETUP: ld a,(_OS) FSETUP: ld a,(_OS)
or a or a
jr nz,noMSDOS jr nz,noMSDOS
frm1: ld a,18 ; ç¨á«® ᥪâ®à®¢ .sectorsAll+1: ld a,18 ; ç¨á«® ᥪâ®à®¢
ld (loc05+1),a ld (loc05+1),a
ld (loc08+1),a ld (loc08+1),a
SSect: ld hl,18 ; ᥪâ®à®¢ ­  áâ®à®­ã .sectorsSide+1: ld hl,18 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (MS_Boot.media6),hl ld (MS_Boot.media6),hl
inc a ; § ¯à¥¤. ᥪâ®à inc a ; § ¯à¥¤. ᥪâ®à
ld (loc02+1),a ld (_msdos.maxSector0),a
ld (loc03+1),a ld (_msdos.maxSector1),a
ld (loc06+1),a ld (loc06+1),a
frm2: ld a,34 ; ¯®á«. á«ã¦. ᥪâ®à ¤¨áª¥âë .lastSector+1: ld a,34 ; ¯®á«. á«ã¦. ᥪâ®à ¤¨áª¥âë
ld (LastSect),a ld (LastSect),a
frm3: ld a,1 ; ᥪâ®à®¢ ­  ª« áâ¥à .sectorsPerCluster+1:
ld a,1 ; ᥪâ®à®¢ ­  ª« áâ¥à
ld (MS_Boot.media1),a ld (MS_Boot.media1),a
frm4: ld a,0xF0 ; ¡ ©â ä®à¬ â  frm4: ld a,0xF0 ; ¡ ©â ä®à¬ â 
ld (MS_Boot.media4),a ld (MS_Boot.media4),a
@ -1502,7 +1506,7 @@ CalcTime:
; ¤«ï 720kB á¬. ¬¥âªã '#' | ; ¤«ï 720kB á¬. ¬¥âªã '#' |
;-------------------------------------------------+ ;-------------------------------------------------+
MS_Boot: MS_Boot:
.pc_code: db 0xEB,0x3C,0x90 ; 3 ¡ ©â , ª®¤ ¯¥à¥å®¤  ­  § £àã§ç¨ª .pc_code: db 0xEB,0xFE,0x00 ; 3 ¡ ©â , ª®¤ ¯¥à¥å®¤  ­  § £àã§ç¨ª
; 8 ¡ ©â, OEM ID ; 8 ¡ ©â, OEM ID
db "DSS " db "DSS "
.dss_major_ver: db "1." .dss_major_ver: db "1."
@ -1587,7 +1591,8 @@ MS_Boot:
db 0x00,0x19,0x00 db 0x00,0x19,0x00
dw 0xAA55 dw 0xAA55
*/ */
DB 0
.SIZE EQU $-MS_Boot
@ -1620,7 +1625,7 @@ L0D25: ld c,31h
ld a,(tracks) ld a,(tracks)
out (REGDATA),a out (REGDATA),a
ld a,18h ; ¯¥à¥©â¨ ­  § ¤ ­. ¤®à®¦ªã ld a,18h ; ¯¥à¥©â¨ ­  § ¤ ­. ¤®à®¦ªã
call A092C ; § ­¥á⨠ª®¬ ­¤ã call FDC_CMD ; § ­¥á⨠ª®¬ ­¤ã
call L07B3 ; ®¦¨¤ ­¨¥ £®â®¢­®á⨠<20>ƒŒ„ call L07B3 ; ®¦¨¤ ­¨¥ £®â®¢­®á⨠<20>ƒŒ„
ret z ; ­¥â ®è¨¡®ª ret z ; ­¥â ®è¨¡®ª
call okno3 ; "‚áâ ¢ì⥠¤¨áª¥âã" call okno3 ; "‚áâ ¢ì⥠¤¨áª¥âã"

24
LISTBOX.ASM
View File

@ -814,10 +814,10 @@ LstBoxInv:
LD B,A LD B,A
CALL GetPutA CALL GetPutA
PUSH DE PUSH DE
IN A,(Page3) IN A,(SLOT3)
PUSH AF PUSH AF
LD A,(hPages.Win2) LD A,(hPages.Win2)
OUT (Page3),A OUT (SLOT3),A
LD A,(IY+3) LD A,(IY+3)
SUB (IY+2) SUB (IY+2)
SUB 3 SUB 3
@ -843,7 +843,7 @@ lbclr1: INC DE ; 横
ex af,af' ex af,af'
ld (de),a ld (de),a
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
POP IX POP IX
LD E,(IY+2) LD E,(IY+2)
INC E INC E
@ -860,10 +860,10 @@ lbclr1: INC DE ; 横
PrnLstBox: PrnLstBox:
PUSH IY PUSH IY
PUSH IX PUSH IX
IN A,(Page3) IN A,(SLOT3)
PUSH AF PUSH AF
LD A,(hPages.Win2) LD A,(hPages.Win2)
OUT (Page3),A OUT (SLOT3),A
PUSH IX PUSH IX
POP IY POP IY
LD IX,DialData LD IX,DialData
@ -937,7 +937,7 @@ PrLsBx5:PUSH AF
JR NZ,PrLsBx5 JR NZ,PrLsBx5
PrLsBx6:CALL PutDial PrLsBx6:CALL PutDial
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
POP IX POP IX
POP IY POP IY
RET RET
@ -1005,14 +1005,14 @@ LBB1: ld a,l
SUB (IX+1) SUB (IX+1)
LD B,A LD B,A
CALL GetPutA CALL GetPutA
IN A,(Page3) IN A,(SLOT3)
PUSH AF PUSH AF
LD A,(hPages.Win2) LD A,(hPages.Win2)
OUT (Page3),A OUT (SLOT3),A
LD A,"±" LD A,"±"
LD (DE),A LD (DE),A
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
LD A,(IY+3) LD A,(IY+3)
SUB 2 SUB 2
LD E,A LD E,A
@ -1046,14 +1046,14 @@ LBe1: POP DE
SUB (IX+1) SUB (IX+1)
LD B,A LD B,A
CALL GetPutA CALL GetPutA
IN A,(Page3) IN A,(SLOT3)
PUSH AF PUSH AF
LD A,(hPages.Win2) LD A,(hPages.Win2)
OUT (Page3),A OUT (SLOT3),A
LD A,"þ" LD A,"þ"
LD (DE),A LD (DE),A
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
POP IX POP IX
POP IY POP IY
RET RET

1
MAIN.ASM
View File

@ -9,6 +9,7 @@
include './shared_includes/constants/dss_equ.inc' include './shared_includes/constants/dss_equ.inc'
include './shared_includes/constants/bios_equ.inc' include './shared_includes/constants/bios_equ.inc'
include './shared_includes/constants/sp2000.inc'
org #9200 - exe_begin.size org #9200 - exe_begin.size

160
MAP.ASM
View File

@ -349,11 +349,11 @@ SetMedia:
ld hl,3E00h ld hl,3E00h
ld (Avail),hl ld (Avail),hl
ld a,18 ; ç¨á«® ᥪâ®à®¢ ld a,18 ; ç¨á«® ᥪâ®à®¢
ld (frm1+1),a ld (FSETUP.sectorsAll),a
ld hl,18 ; ᥪâ®à®¢ ­  áâ®à®­ã ld hl,18 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (SSect+1),hl ld (FSETUP.sectorsSide),hl
ld a,34 ; ¯®á«. á«ã¦. ᥪâ®à ld a,34 ; ¯®á«. á«ã¦. ᥪâ®à
ld (frm2+1),a ld (FSETUP.lastSector),a
ld hl,16896 ; à §¬¥à FAT-®¢ + Root dir ld hl,16896 ; à §¬¥à FAT-®¢ + Root dir
ld (frm5+1),hl ld (frm5+1),hl
ld hl,2880 ; ᥪâ®à®¢ ­  ¤¨áª¥ ld hl,2880 ; ᥪâ®à®¢ ­  ¤¨áª¥
@ -363,7 +363,7 @@ SetMedia:
.loc13: ld a,0F0h ; ¡ ©â ä®à¬ â  .loc13: ld a,0F0h ; ¡ ©â ä®à¬ â 
ld (frm4+1),a ld (frm4+1),a
ld a,1 ; ᥪâ®à®¢ ­  ª« áâ¥à ld a,1 ; ᥪâ®à®¢ ­  ª« áâ¥à
ld (frm3+1),a ld (FSETUP.sectorsPerCluster),a
ld hl,224 ; § ¯¨á¥© ¢ ª®à­¥ ld hl,224 ; § ¯¨á¥© ¢ ª®à­¥
ld (frm6+1),hl ld (frm6+1),hl
.loc12: ld hl,Avail .loc12: ld hl,Avail
@ -381,11 +381,11 @@ SetMedia:
ld hl,7E00h ld hl,7E00h
ld (Avail),hl ld (Avail),hl
ld a,19 ; ç¨á«® ᥪâ®à®¢ ld a,19 ; ç¨á«® ᥪâ®à®¢
ld (frm1+1),a ld (FSETUP.sectorsAll),a
ld hl,19 ; ᥪâ®à®¢ ­  áâ®à®­ã ld hl,19 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (SSect+1),hl ld (FSETUP.sectorsSide),hl
ld a,34 ; ¯®á«. á«ã¦. ᥪâ®à ld a,34 ; ¯®á«. á«ã¦. ᥪâ®à
ld (frm2+1),a ld (FSETUP.lastSector),a
ld hl,16896 ; à §¬¥à FAT-®¢ + Root dir ld hl,16896 ; à §¬¥à FAT-®¢ + Root dir
ld (frm5+1),hl ld (frm5+1),hl
ld hl,3040 ; ᥪâ®à®¢ ­  ¤¨áª¥ ld hl,3040 ; ᥪâ®à®¢ ­  ¤¨áª¥
@ -399,11 +399,11 @@ SetMedia:
ld hl,0BA00h ld hl,0BA00h
ld (Avail),hl ld (Avail),hl
ld a,20 ; ç¨á«® ᥪâ®à®¢ ld a,20 ; ç¨á«® ᥪâ®à®¢
ld (frm1+1),a ld (FSETUP.sectorsAll),a
ld hl,20 ; ᥪâ®à®¢ ­  áâ®à®­ã ld hl,20 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (SSect+1),hl ld (FSETUP.sectorsSide),hl
ld a,36 ; ¯®á«. á«ã¦. ᥪâ®à ld a,36 ; ¯®á«. á«ã¦. ᥪâ®à
ld (frm2+1),a ld (FSETUP.lastSector),a
ld hl,17920 ; à §¬¥à FAT-®¢ + Root dir ld hl,17920 ; à §¬¥à FAT-®¢ + Root dir
ld (frm5+1),hl ld (frm5+1),hl
ld hl,3200 ; ᥪâ®à®¢ ­  ¤¨áª¥ ld hl,3200 ; ᥪâ®à®¢ ­  ¤¨áª¥
@ -417,11 +417,11 @@ SetMedia:
ld hl,5A00h ld hl,5A00h
ld (Avail),hl ld (Avail),hl
ld a,20 ; ç¨á«® ᥪâ®à®¢ ld a,20 ; ç¨á«® ᥪâ®à®¢
ld (frm1+1),a ld (FSETUP.sectorsAll),a
ld hl,20 ; ᥪâ®à®¢ ­  áâ®à®­ã ld hl,20 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (SSect+1),hl ld (FSETUP.sectorsSide),hl
ld a,36 ; ¯®á«. á«ã¦. ᥪâ®à ld a,36 ; ¯®á«. á«ã¦. ᥪâ®à
ld (frm2+1),a ld (FSETUP.lastSector),a
ld hl,17920 ; à §¬¥à FAT-®¢ + Root dir ld hl,17920 ; à §¬¥à FAT-®¢ + Root dir
ld (frm5+1),hl ld (frm5+1),hl
ld hl,3280 ; ᥪâ®à®¢ ­  ¤¨áª¥ ld hl,3280 ; ᥪâ®à®¢ ­  ¤¨áª¥
@ -435,11 +435,11 @@ SetMedia:
ld hl,0AA00h ld hl,0AA00h
ld (Avail),hl ld (Avail),hl
ld a,20 ; ç¨á«® ᥪâ®à®¢ ld a,20 ; ç¨á«® ᥪâ®à®¢
ld (frm1+1),a ld (FSETUP.sectorsAll),a
ld hl,20 ; ᥪâ®à®¢ ­  áâ®à®­ã ld hl,20 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (SSect+1),hl ld (FSETUP.sectorsSide),hl
ld a,36 ; ¯®á«. á«ã¦. ᥪâ®à ld a,36 ; ¯®á«. á«ã¦. ᥪâ®à
ld (frm2+1),a ld (FSETUP.lastSector),a
ld hl,17920 ; à §¬¥à FAT-®¢ + Root dir ld hl,17920 ; à §¬¥à FAT-®¢ + Root dir
ld (frm5+1),hl ld (frm5+1),hl
ld hl,3320 ; ᥪâ®à®¢ ­  ¤¨áª¥ ld hl,3320 ; ᥪâ®à®¢ ­  ¤¨áª¥
@ -455,11 +455,11 @@ SetMedia:
ld hl,0FA00h ld hl,0FA00h
ld (Avail),hl ld (Avail),hl
ld a,21 ; ç¨á«® ᥪâ®à®¢ ld a,21 ; ç¨á«® ᥪâ®à®¢
ld (frm1+1),a ld (FSETUP.sectorsAll),a
ld hl,21 ; ᥪâ®à®¢ ­  áâ®à®­ã ld hl,21 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (SSect+1),hl ld (FSETUP.sectorsSide),hl
ld a,36 ; ¯®á«. á«ã¦. ᥪâ®à ld a,36 ; ¯®á«. á«ã¦. ᥪâ®à
ld (frm2+1),a ld (FSETUP.lastSector),a
ld hl,17920 ; à §¬¥à FAT-®¢ + Root dir ld hl,17920 ; à §¬¥à FAT-®¢ + Root dir
ld (frm5+1),hl ld (frm5+1),hl
ld hl,3360 ; ᥪâ®à®¢ ­  ¤¨áª¥ ld hl,3360 ; ᥪâ®à®¢ ­  ¤¨áª¥
@ -473,11 +473,11 @@ SetMedia:
ld hl,0A200h ld hl,0A200h
ld (Avail),hl ld (Avail),hl
ld a,21 ; ç¨á«® ᥪâ®à®¢ ld a,21 ; ç¨á«® ᥪâ®à®¢
ld (frm1+1),a ld (FSETUP.sectorsAll),a
ld hl,21 ; ᥪâ®à®¢ ­  áâ®à®­ã ld hl,21 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (SSect+1),hl ld (FSETUP.sectorsSide),hl
ld a,36 ; ¯®á«. á«ã¦. ᥪâ®à ld a,36 ; ¯®á«. á«ã¦. ᥪâ®à
ld (frm2+1),a ld (FSETUP.lastSector),a
ld hl,17920 ; à §¬¥à FAT-®¢ + Root dir ld hl,17920 ; à §¬¥à FAT-®¢ + Root dir
ld (frm5+1),hl ld (frm5+1),hl
ld hl,3444 ; ᥪâ®à®¢ ­  ¤¨áª¥ ld hl,3444 ; ᥪâ®à®¢ ­  ¤¨áª¥
@ -491,11 +491,11 @@ SetMedia:
ld hl,0F200h ld hl,0F200h
ld (Avail),hl ld (Avail),hl
ld a,21 ; ç¨á«® ᥪâ®à®¢ ld a,21 ; ç¨á«® ᥪâ®à®¢
ld (frm1+1),a ld (FSETUP.sectorsAll),a
ld hl,21 ; ᥪâ®à®¢ ­  áâ®à®­ã ld hl,21 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (SSect+1),hl ld (FSETUP.sectorsSide),hl
ld a,38 ; ¯®á«. á«ã¦. ᥪâ®à ld a,38 ; ¯®á«. á«ã¦. ᥪâ®à
ld (frm2+1),a ld (FSETUP.lastSector),a
ld hl,18944 ; à §¬¥à FAT-®¢ + Root dir ld hl,18944 ; à §¬¥à FAT-®¢ + Root dir
ld (frm5+1),hl ld (frm5+1),hl
ld hl,3486 ; ᥪâ®à®¢ ­  ¤¨áª¥ ld hl,3486 ; ᥪâ®à®¢ ­  ¤¨áª¥
@ -516,21 +516,21 @@ SetMedia:
ld hl,2400h ld hl,2400h
ld (Avail),hl ld (Avail),hl
ld a,9 ; ç¨á«® ᥪâ®à®¢ ld a,9 ; ç¨á«® ᥪâ®à®¢
ld (frm1+1),a ld (FSETUP.sectorsAll),a
ld hl,9 ; ᥪâ®à®¢ ­  áâ®à®­ã ld hl,9 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (SSect+1),hl ld (FSETUP.sectorsSide),hl
ld hl,1440 ; ᥪâ®à®¢ ­  ¤¨áª¥ ld hl,1440 ; ᥪâ®à®¢ ­  ¤¨áª¥
ld (ASect+1),hl ld (ASect+1),hl
.loc15: ld hl,6656 ; à §¬¥à FAT-®¢ + Root dir .loc15: ld hl,6656 ; à §¬¥à FAT-®¢ + Root dir
ld (frm5+1),hl ld (frm5+1),hl
ld a,14 ; ¯®á«. á«ã¦. ᥪâ®à ld a,14 ; ¯®á«. á«ã¦. ᥪâ®à
ld (frm2+1),a ld (FSETUP.lastSector),a
ld hl,3 ; ᥪâ®à®¢ ­  FAT ld hl,3 ; ᥪâ®à®¢ ­  FAT
ld (FSect+1),hl ld (FSect+1),hl
ld a,0F9h ; ¡ ©â ä®à¬ â  ld a,0F9h ; ¡ ©â ä®à¬ â 
ld (frm4+1),a ld (frm4+1),a
ld a,2 ; ᥪâ®à®¢ ­  ª« áâ¥à ld a,2 ; ᥪâ®à®¢ ­  ª« áâ¥à
ld (frm3+1),a ld (FSETUP.sectorsPerCluster),a
ld hl,112 ; § ¯¨á¥© ¢ ª®à­¥ ld hl,112 ; § ¯¨á¥© ¢ ª®à­¥
ld (frm6+1),hl ld (frm6+1),hl
jp .loc12 jp .loc12
@ -558,9 +558,9 @@ SetMedia:
ld hl,1660 ; ᥪâ®à®¢ ­  ¤¨áª¥ ld hl,1660 ; ᥪâ®à®¢ ­  ¤¨áª¥
ld (ASect+1),hl ld (ASect+1),hl
.loc16: ld a,10 ; ç¨á«® ᥪâ®à®¢ .loc16: ld a,10 ; ç¨á«® ᥪâ®à®¢
ld (frm1+1),a ld (FSETUP.sectorsAll),a
ld hl,10 ; ᥪâ®à®¢ ­  áâ®à®­ã ld hl,10 ; ᥪâ®à®¢ ­  áâ®à®­ã
ld (SSect+1),hl ld (FSETUP.sectorsSide),hl
ld hl,36 ; à §¬¥à ¬¥¦á¥ªâ. ¯à®¡¥«  ld hl,36 ; à §¬¥à ¬¥¦á¥ªâ. ¯à®¡¥« 
ld (GAP3),hl ld (GAP3),hl
ld hl,INTERL3 ; ãáâ. ¨­â¥à«¨¢ ¤«ï 21 ᥪâ®à  ld hl,INTERL3 ; ãáâ. ¨­â¥à«¨¢ ¤«ï 21 ᥪâ®à 
@ -825,27 +825,85 @@ SetDrive:
; << ”ã­ªæ¨ï ᮧ¤ ­¨ï  âਡãâ  "¬¥âª  ⮬ " ã¡à ­  ¨§ DSS >>
;
; ‘®§¤ ­¨¥ ¬¥âª¨ ¤¨áª¥âë (MS-DOS) ; ‘®§¤ ­¨¥ ¬¥âª¨ ¤¨áª¥âë (MS-DOS)
; (¡ ©â  âਡãâ  ­ å®¤¨âáï ¯® ᬥé. +11 ®â ­ ç «  § ¯¨á¨)
CreateLabel: CreateLabel:
; ld hl,LABEL ; ¨¬ï ¬¥âª¨
; ld a,(hl)
; or a
; ret z
; call SetDisketa ; ãáâ. ⥪ã騬 ¤¨áª®¬ ¤¨áª¥âã
; ; ᮧ¤ âì ä ©«
; ld hl,LABEL ; ¨¬ï ¬¥âª¨
; ld a,08h ;  âਡãâ "¬¥âª  ⮬ "
; ld c,0Ah
; RST ToDSS
; jr c,.loc1 ; ®è¨¡ª  ᮧ¤ ­¨ï ¬¥âª¨
; ;ret c
; ; § ªàëâì ä ©«
; ld c,12h
; RST ToDSS
; .loc1: jp RestPath ; ¢®ááâ. ¤¨áª ¨ ¯ãâì
ld hl,LABEL
ld de,L2400 + BOOT_SECTOR.FAT.LABEL ;!TEST
ld b,11
;
.loop: ld a,(hl)
and a
jr z,.empty
ld (de),a
inc de
inc hl
djnz .loop
ret
;
.empty: ld a,b
cp 11
jr z,.no_name
;
ex de,hl
.loop2: ld (hl)," "
inc hl
djnz .loop2
ret
.no_name:
ld hl,MS_Boot.label
ld bc,11
ldir
ret ret
ld hl,LABEL ; ¨¬ï ¬¥âª¨
ld a,(hl)
or a
ret z
call SetDisketa ; ãáâ. ⥪ã騬 ¤¨áª®¬ ¤¨áª¥âã
; ᮧ¤ âì ä ©«
ld hl,LABEL ; ¨¬ï ¬¥âª¨
ld a,08h ;  âਡãâ "¬¥âª  ⮬ "
ld c,0Ah
RST ToDSS
jr c,.loc1 ; ®è¨¡ª  ᮧ¤ ­¨ï ¬¥âª¨
;ret c
; § ªàëâì ä ©«
ld c,12h
RST ToDSS
.loc1: jp RestPath ; ¢®ááâ. ¤¨áª ¨ ¯ãâì
; RET
; ‚ë室­ë¥ §­ ç¥­¨ï:
; D - ¤¥­ì
; E - ¬¥áïæ
; IX - £®¤
; H - ç á
; L - ¬¨­ãâë
; B - ᥪ㭤ë
; C - ¤¥­ì ­¥¤¥«¨
;!TEST
CreateSerialNumber:
ld c,Dss.SysTime
rst ToDSS
;
ex de,hl
add ix,de
ld a,xl
ld (L2400 + BOOT_SECTOR.FAT.SERIAL_NUMBER + 3),a
ld (L2400 + BOOT_SECTOR.FAT.SERIAL_NUMBER + 1),ix
;
ld a,d
ld d,b
xor c
.loop: rra
djnz .loop
;
ld e,h
ld h,l
ld l,e
;
ld e,a
add hl,de
ld e,l
ld l,h
ld h,e
ld (L2400 + BOOT_SECTOR.FAT.SERIAL_NUMBER),hl
ret

26
RADIO.ASM
View File

@ -11,7 +11,7 @@ LabelBuff: DB 11 ; Max input symbols
DB 0 ; Pos X DB 0 ; Pos X
DB 0 ; Add X DB 0 ; Add X
DB 0 ; Inp.Symb DB 0 ; Inp.Symb
LABEL: DS 12,0 LABEL: DS 12,0 ;!TEST
cSystem: DB 0 ; 01/00 - ᮧ¤./­¥ ᮧ¤. á¨áâ. ¤¨áª¥âã cSystem: DB 0 ; 01/00 - ᮧ¤./­¥ ᮧ¤. á¨áâ. ¤¨áª¥âã
@ -1327,15 +1327,15 @@ prne: LD A,(IY+2)
SUB (IX+6) SUB (IX+6)
LD C,A LD C,A
LD B,0 LD B,0
IN A,(Page3) IN A,(SLOT3)
PUSH AF PUSH AF
LD A,(hPages.Win2) LD A,(hPages.Win2)
OUT (Page3),A OUT (SLOT3),A
LDI LDI
INC DE INC DE
JP PE,$-3 JP PE,$-3
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
RET RET
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
@ -1471,10 +1471,10 @@ ClastI: LD E,(IX+2) ;Xo
SetClasInv: SetClasInv:
PUSH IX PUSH IX
LD IX,DialData LD IX,DialData
IN A,(Page3) IN A,(SLOT3)
PUSH AF ;á®åà.page4 PUSH AF ;á®åà.page4
LD A,(hPages.Win2) LD A,(hPages.Win2)
OUT (Page3),A ;¢ª«.¡ãä¥à OUT (SLOT3),A ;˘ŞŤ.ĄăäĽŕ
PUSH HL PUSH HL
LD L,C ;Len X LD L,C ;Len X
LD H,1 ;len Y LD H,1 ;len Y
@ -1512,7 +1512,7 @@ SetDin2: INC HL
CALL PutDialLn CALL PutDialLn
POP HL POP HL
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
POP IX POP IX
LD E,(IX+2) ;Xo pos element LD E,(IX+2) ;Xo pos element
INC E INC E
@ -1837,10 +1837,10 @@ ChangL1: INC HL ;Begin elements claster
INC HL INC HL
INC HL INC HL
POP HL ;Reset begin elem table POP HL ;Reset begin elem table
IN A,(Page3) IN A,(SLOT3)
PUSH AF PUSH AF
LD A,(hPages.Win2) LD A,(hPages.Win2)
OUT (Page3),A OUT (SLOT3),A
ChangL2: LD D,(HL) ;Ypos ChangL2: LD D,(HL) ;Ypos
INC HL INC HL
INC HL INC HL
@ -1900,14 +1900,14 @@ cl1: BIT 7,(HL)
CALL PILCurs ; Set cursor CALL PILCurs ; Set cursor
EI EI
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
RET RET
;Change radio button ([x]) ;Change radio button ([x])
ChangeR: IN A,(Page3) ChangeR: IN A,(SLOT3)
PUSH AF PUSH AF
LD A,(hPages.Win2) LD A,(hPages.Win2)
OUT (Page3),A OUT (SLOT3),A
LD D,(HL) ;Ypos LD D,(HL) ;Ypos
INC HL INC HL
INC HL INC HL
@ -1965,6 +1965,6 @@ cl2: CALL ResILCr ;
CALL PILCurs ; ãáâ. ªãàá®à CALL PILCurs ; ãáâ. ªãàá®à
EI EI
POP AF POP AF
OUT (Page3),A OUT (SLOT3),A
RET RET

2
Shared_Includes

@ -1 +1 @@
Subproject commit 68e156a69e848e7b01656cdf67122022999d75ee Subproject commit 1b6a539aea8d46b09a617a90a04a2e45dcb37b3f

2
Version.inc
View File

@ -3,4 +3,4 @@
; ¢¥àá¨ï ¯à®£à ¬¬ë ; ¢¥àá¨ï ¯à®£à ¬¬ë
major_version equ 1 major_version equ 1
minor_version equ 15 minor_version equ 16