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-04-26 02:32:08 +10:00
parent 6ddb8e2890
commit c64bb6b285
5 changed files with 3197 additions and 3171 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

818
DIALOG.ASM
View File

File diff suppressed because it is too large Load Diff

38
FMAIN.ASM
View File

@ -118,7 +118,7 @@ SBuff2: db 0 ; 䠩
Begin: ; á®åà. íªà ­ Begin: ; á®åà. íªà ­
call SaveScreen call SaveScreen
; á®åà. ¯®«®¦. ªãàá®à  á¨áâ. íªà ­  ; á®åà. ¯®«®¦. ªãàá®à  á¨áâ. íªà ­ 
ld c,8Eh ld c,BIOS.LP_GET_PLACE
RST ToBIOS RST ToBIOS
ld (sys_cursor_coords),de ld (sys_cursor_coords),de
; ¨­¨æ. ¤à ©¢¥à ¬ë誨 ; ¨­¨æ. ¤à ©¢¥à ¬ë誨
@ -148,23 +148,23 @@ continue: call ReadInit ;
; ¢¥ªâ®à ¤«ï ®â®¡à ¦¥­¨ï ªãàá®à  ; ¢¥ªâ®à ¤«ï ®â®¡à ¦¥­¨ï ªãàá®à 
rst38: di ; rst38: di
push iy ; push iy
push ix ; push ix
push hl ; push hl
push de ; push de
push bc ; push bc
push af ; push af
ld a,(CurILFl) ; ld a,(CurILFl)
or a ; or a
call nz,PrnILCr ; call nz,PrnILCr
pop af ; pop af
pop bc ; pop bc
pop de ; pop de
pop hl ; pop hl
pop ix ; pop ix
pop iy ; pop iy
vect: jp 0x0000 ;  ¤à¥á á¨áâ. ¢¥ªâ®à  ; vect+1: jp 0x0000 ;  ¤à¥á á¨áâ. ¢¥ªâ®à 
@ -188,7 +188,7 @@ NoMouse: db "Driver mouse not installed",0Dh,0Ah,0
Title: db " Floppy disk formatting utility Version " Title: db " Floppy disk formatting utility Version "
db major_version + "0","." db major_version + "0","."
db (minor_version / 10) + "0",(minor_version % 10) + "0" db (minor_version / 10) + "0",(minor_version % 10) + "0"
db " (c) 2005-2007 " db " (c) 2005-2025 "
; ;
ds 562 ; 565 + start2 = 672 (_2 -_1) ds 562 ; 565 + start2 = 672 (_2 -_1)

476
RADIO.ASM
View File

@ -6,45 +6,44 @@
; <20>ãä¥à ¨¬¥­¨ ¬¥âª¨ ¤¨áª¥âë ; <20>ãä¥à ¨¬¥­¨ ¬¥âª¨ ¤¨áª¥âë
LabelBuff: LabelBuff: DB 11 ; Max input symbols
db 11 ; Max input symbols DB 0 ; ReadyString
db 0 ; ReadyString 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
cSystem:db 0 ; 01/00 - ᮧ¤./­¥ ᮧ¤. á¨áâ. ¤¨áª¥âã cSystem: DB 0 ; 01/00 - ᮧ¤./­¥ ᮧ¤. á¨áâ. ¤¨áª¥âã
Mode0: db 0 ; "Standart mode" Mode0: DB 0 ; "Standart mode"
Mode2: db 1 ; "Optimize sectors" Mode2: DB 1 ; "Optimize sectors"
Mode1: db 0 ; "Quick format" Mode1: DB 0 ; "Quick format"
CurElem0:dw 0 ; ⥪. ¯®«®¦. ªãàá®à  ListBox1-  CurElem0: DW 0 ; ⥪. ¯®«®¦. ªãàá®à  ListBox1- 
CurElem1:dw 0 ; ⥪. ¯®«®¦. ªãàá®à  ListBox2-  CurElem1: DW 0 ; ⥪. ¯®«®¦. ªãàá®à  ListBox2- 
CurILFl:db 0 ; ä« £ ªãàá®à  00-¢ëª«/01-¢ª« CurILFl: DB 0 ; ä« £ ªãàá®à  00-¢ëª«/01-¢ª«
Flag: db 0 ; ä« £ ªãàá®à  00-­¥â/01-¥áâì ;Flag: DB 0 ; ä« £ ªãàá®à  00-­¥â/01-¥áâì
Timer: db 1 ; â ©¬¥à Timer: DB 1 ; â ©¬¥à
CursPos:dw 0 ; ¯®§¨æ¨ï ªãàá®à  CursPos: DW 0 ; ¯®§¨æ¨ï ªãàá®à 
_OS: db 0 ; 00/01/02 ⨯ Ž‘ (ms-dos/tr-dos/cpm) _OS: DB 0 ; 00/01/02 ⨯ Ž‘ (ms-dos/tr-dos/cpm)
; Ž¯æ¨¨ ¢ë¡®à  ä®à¬ â  FDD ; Ž¯æ¨¨ ¢ë¡®à  ä®à¬ â  FDD
; ¤¨áª "A" ; ¤¨áª "A"
DriveA: DriveA:
SetDriveA0:db 1 ; 1.44Mb 3.5" SetDriveA0: DB 1 ; 1.44Mb 3.5"
SetDriveA1:db 0 ; 720kB 5.25" SetDriveA1: DB 0 ; 720kB 5.25"
SetDriveA2:db 0 ; None (ï祩ª  ­¥ ®âá«¥¦¨¢ ¥âáï) SetDriveA2: DB 0 ; None (ï祩ª  ­¥ ®âá«¥¦¨¢ ¥âáï)
; ¤¨áª "B" ; ¤¨áª "B"
DriveB: DriveB:
SetDriveB0:db 0 ; 1.44Mb 3.5" SetDriveB0: DB 0 ; 1.44Mb 3.5"
SetDriveB1:db 1 ; 720kB 5.25" SetDriveB1: DB 1 ; 720kB 5.25"
SetDriveB2:db 0 ; None SetDriveB2: DB 0 ; None
@ -86,13 +85,13 @@ PInpLine:
LD (IY+3),A ;+3 Yo LD (IY+3),A ;+3 Yo
CALL GetPutA CALL GetPutA
EX DE,HL EX DE,HL
ld a,(ColDialWn) LD A,(ColDialWn)
LD C,A LD C,A
LD A,(DE) LD A,(DE)
PInpLp1: INC DE PInpLp1: INC DE
CP '~' CP '~'
JR NZ,PInpN0 JR NZ,PInpN0
ld c,ColDhotkey LD C,ColDhotkey
;LD C,A ;LD C,A
LD A,(DE) LD A,(DE)
INC DE INC DE
@ -107,7 +106,7 @@ PInpLp1:INC DE
INC HL INC HL
INC DE INC DE
INC (IX+4) INC (IX+4)
ld a,(ColDialWn) LD A,(ColDialWn)
LD C,A LD C,A
LD A,(DE) LD A,(DE)
INC DE INC DE
@ -151,7 +150,7 @@ PInpN0: LD (HL),A
INC DE INC DE
PUSH HL PUSH HL
next1: LD HL,0 next1: LD HL,0
ld c,ColInpLine ; 梥â áâப¨ ¢¢®¤  LD C,ColInpLine ; 梥â áâப¨ ¢¢®¤ 
;LD C,A ;LD C,A
PInpLp2: LD A,(DE) PInpLp2: LD A,(DE)
INC DE INC DE
@ -231,8 +230,8 @@ PClRadioB:
LD A,"Ú" LD A,"Ú"
LD (DE),A LD (DE),A
INC DE INC DE
ld a,ColLstBxFr ; 梥â à ¬ª¨ LD A,ColLstBxFr ; 梥â à ¬ª¨
ld (de),a LD (DE),A
INC DE INC DE
LD A," " LD A," "
LD (DE),A LD (DE),A
@ -260,15 +259,15 @@ PClRadioB:
clrd1: LD A,"Ä" clrd1: LD A,"Ä"
LD (DE),A LD (DE),A
INC DE INC DE
ld a,ColLstBxFr ; LD A,ColLstBxFr ;
ld (de),a LD (DE),A
INC DE INC DE
DJNZ clrd1 DJNZ clrd1
ClRadN1: LD A,"¿" ClRadN1: LD A,"¿"
LD (DE),A LD (DE),A
inc de INC DE
ld a,ColLstBxFr ; LD A,ColLstBxFr ;
ld (de),a LD (DE),A
INC (IX+5) INC (IX+5)
LD BC,6 ;Next element claster LD BC,6 ;Next element claster
ADD IY,BC ADD IY,BC
@ -280,16 +279,16 @@ ClRadN1:LD A,"
LD (HL),"³" LD (HL),"³"
INC HL INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
INC HL INC HL
LD C,(IX+6) LD C,(IX+6)
LD B,0 LD B,0
ADD HL,BC ADD HL,BC
ADD HL,BC ADD HL,BC
LD (HL),"³" LD (HL),"³"
inc hl INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
INC (IX+5) INC (IX+5)
EX DE,HL EX DE,HL
; ;
@ -302,7 +301,7 @@ ClRadLp:LD C,(IX+4) ;pos element
LD (HL),"³" LD (HL),"³"
INC HL INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
INC HL INC HL
INC HL INC HL
INC HL INC HL
@ -323,13 +322,13 @@ ClRadLp:LD C,(IX+4) ;pos element
INC HL INC HL
INC B INC B
; ;
ld a,(ColDialWn) ;Put name element LD A,(ColDialWn) ;Put name element
LD C,A LD C,A
LD A,(DE) LD A,(DE)
ClRadL1: INC DE ClRadL1: INC DE
CP '~' CP '~'
JR NZ,ClRadN0 JR NZ,ClRadN0
ld c,ColDhotkey LD C,ColDhotkey
;LD C,A ;LD C,A
LD A,(DE) LD A,(DE)
INC DE INC DE
@ -343,7 +342,7 @@ ClRadL1:INC DE
LD (HL),A LD (HL),A
INC HL INC HL
INC DE INC DE
ld a,(ColDialWn) LD A,(ColDialWn)
LD C,A LD C,A
INC B INC B
LD A,(DE) LD A,(DE)
@ -364,9 +363,9 @@ ClRadN0:LD (HL),A
ADD HL,BC ADD HL,BC
ADD HL,BC ADD HL,BC
LD (HL),"³" LD (HL),"³"
inc hl INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
LD A,(IX+5) ;Current Y pos LD A,(IX+5) ;Current Y pos
ADD A,(IX+1) ;from begin screen ADD A,(IX+1) ;from begin screen
LD (IY+0),A LD (IY+0),A
@ -409,20 +408,20 @@ ClRadN0:LD (HL),A
LD (HL),"À" LD (HL),"À"
INC HL INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
INC HL INC HL
LD B,(IX+6) LD B,(IX+6)
clrd2: LD A,"Ä" clrd2: LD A,"Ä"
LD (HL),A LD (HL),A
INC HL INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
INC HL INC HL
DJNZ clrd2 DJNZ clrd2
LD (HL),"Ù" LD (HL),"Ù"
inc hl INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
EX DE,HL EX DE,HL
PUSH IY PUSH IY
EXX EXX
@ -486,8 +485,8 @@ PClCheckB:
LD A,"Ú" LD A,"Ú"
LD (DE),A LD (DE),A
INC DE INC DE
ld a,ColLstBxFr ; LD A,ColLstBxFr ;
ld (de),a LD (DE),A
INC DE INC DE
LD A," " LD A," "
LD (DE),A LD (DE),A
@ -515,15 +514,15 @@ PClCheckB:
clch1: LD A,"Ä" clch1: LD A,"Ä"
LD (DE),A LD (DE),A
INC DE INC DE
ld a,ColLstBxFr ; LD A,ColLstBxFr ;
ld (de),a LD (DE),A
INC DE INC DE
DJNZ clch1 DJNZ clch1
ClChkN1: LD A,"¿" ClChkN1: LD A,"¿"
LD (DE),A LD (DE),A
inc de INC DE
ld a,ColLstBxFr ; LD A,ColLstBxFr ;
ld (de),a LD (DE),A
INC (IX+5) INC (IX+5)
LD BC,6 ;Next element claster LD BC,6 ;Next element claster
ADD IY,BC ADD IY,BC
@ -535,16 +534,16 @@ ClChkN1:LD A,"
LD (HL),"³" LD (HL),"³"
INC HL INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
INC HL INC HL
LD C,(IX+6) LD C,(IX+6)
LD B,0 LD B,0
ADD HL,BC ADD HL,BC
ADD HL,BC ADD HL,BC
LD (HL),"³" LD (HL),"³"
inc hl INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
INC (IX+5) INC (IX+5)
EX DE,HL EX DE,HL
; Next element ; Next element
@ -556,7 +555,7 @@ ClChkLp:LD C,(IX+4) ;pos element
LD (HL),"³" LD (HL),"³"
INC HL INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
INC HL INC HL
INC HL INC HL
INC HL INC HL
@ -577,13 +576,13 @@ ClChkLp:LD C,(IX+4) ;pos element
INC HL INC HL
INC B INC B
; ;
ld a,(ColDialWn) ;Put name element LD A,(ColDialWn) ;Put name element
LD C,A LD C,A
LD A,(DE) LD A,(DE)
ClChkL1: INC DE ClChkL1: INC DE
CP '~' CP '~'
JR NZ,ClChkN0 JR NZ,ClChkN0
ld c,ColDhotkey LD C,ColDhotkey
;LD C,A ;LD C,A
LD A,(DE) LD A,(DE)
INC DE INC DE
@ -597,7 +596,7 @@ ClChkL1:INC DE
LD (HL),A LD (HL),A
INC HL INC HL
INC DE INC DE
ld a,(ColDialWn) LD A,(ColDialWn)
LD C,A LD C,A
INC B INC B
LD A,(DE) LD A,(DE)
@ -618,9 +617,9 @@ ClChkN0:LD (HL),A
ADD HL,BC ADD HL,BC
ADD HL,BC ADD HL,BC
LD (HL),"³" LD (HL),"³"
inc hl INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
; ;
LD A,(IX+5) ;Current Y pos LD A,(IX+5) ;Current Y pos
ADD A,(IX+1) ;from begin screen ADD A,(IX+1) ;from begin screen
@ -664,20 +663,20 @@ ClChkN0:LD (HL),A
LD (HL),"À" LD (HL),"À"
INC HL INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
INC HL INC HL
LD B,(IX+6) LD B,(IX+6)
clch2: LD A,"Ä" clch2: LD A,"Ä"
LD (HL),A LD (HL),A
INC HL INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
INC HL INC HL
DJNZ clch2 DJNZ clch2
LD (HL),"Ù" LD (HL),"Ù"
inc hl INC HL
;ld a,(ColLstBxFr) ; ;ld a,(ColLstBxFr) ;
ld (hl),ColLstBxFr LD (HL),ColLstBxFr
EX DE,HL EX DE,HL
PUSH IY PUSH IY
EXX EXX
@ -697,90 +696,90 @@ clch2: LD A,"
; Input: HL-label ; Input: HL-label
; Format mouse table: None ; Format mouse table: None
; ;
PFrame: ld c,(hl) ; X pos PFrame: LD C,(HL) ; X pos
inc hl INC HL
ld b,(hl) ; Y pos LD B,(HL) ; Y pos
inc hl ; X len INC HL ; X len
inc hl ; Y len INC HL ; Y len
ld a,(hl) LD A,(HL)
push af ; á®åà. Y len PUSH AF ; á®åà. Y len
push bc PUSH BC
call GetPutA CALL GetPutA
ld a,"Ú" LD A,"Ú"
ld (de),a LD (DE),A
inc de INC DE
ld a,ColorFrame LD A,ColorFrame
ld (de),a LD (DE),A
inc de INC DE
dec hl DEC HL
ld b,(hl) ; X len LD B,(HL) ; X len
.loop1: ld a,"Ä" .loop1: LD A,"Ä"
ld (de),a LD (DE),A
inc de INC DE
ld a,ColorFrame LD A,ColorFrame
ld (de),a LD (DE),A
inc de INC DE
djnz .loop1 DJNZ .loop1
ld a,"¿" LD A,"¿"
ld (de),a LD (DE),A
inc de INC DE
ld a,ColorFrame LD A,ColorFrame
ld (de),a LD (DE),A
pop bc POP BC
.loop2: inc b .loop2: INC B
push bc PUSH BC
call GetPutA CALL GetPutA
ex de,hl EX DE,HL
ld (hl),"³" LD (HL),"³"
inc hl INC HL
ld (hl),ColorFrame LD (HL),ColorFrame
inc hl INC HL
ex de,hl EX DE,HL
ld b,(hl) ; X len LD B,(HL) ; X len
.loop3: ld a," " .loop3: LD A," "
ld (de),a LD (DE),A
inc de INC DE
ld a,ColorFrame ; 梥⠢­ãâਠä३¬  LD A,ColorFrame ; 梥⠢­ãâਠä३¬ 
ld (de),a LD (DE),A
inc de INC DE
djnz .loop3 DJNZ .loop3
ld a,"³" LD A,"³"
ld (de),a LD (DE),A
inc de INC DE
ld a,ColorFrame LD A,ColorFrame
ld (de),a LD (DE),A
inc de INC DE
pop bc POP BC
inc hl INC HL
dec (hl) DEC (HL)
dec hl DEC HL
jr nz,.loop2 JR NZ,.loop2
inc b INC B
call GetPutA CALL GetPutA
ld a,"À" LD A,"À"
ld (de),a LD (DE),A
inc de INC DE
ld a,ColorFrame LD A,ColorFrame
ld (de),a LD (DE),A
inc de INC DE
ld b,(hl) ; X len LD B,(HL) ; X len
inc hl INC HL
pop af POP AF
ld (hl),a ; ¢®ááâ. Y len LD (HL),A ; ¢®ááâ. Y len
.loop4: ld a,"Ä" .loop4: LD A,"Ä"
ld (de),a LD (DE),A
inc de INC DE
ld a,ColorFrame LD A,ColorFrame
ld (de),a LD (DE),A
inc de INC DE
djnz .loop4 DJNZ .loop4
ld a,"Ù" LD A,"Ù"
ld (de),a LD (DE),A
inc de INC DE
ld a,ColorFrame LD A,ColorFrame
ld (de),a LD (DE),A
inc hl INC HL
ret RET
@ -893,7 +892,7 @@ SetInLn:CALL MoveObj ;Select Input line
EI EI
InLnExt: LD HL,what InLnExt: LD HL,what
LD (HL),evNothing LD (HL),evNothing
jp GetFire JP GetFire
; Work select input line ; Work select input line
@ -1029,7 +1028,7 @@ EIcombK:BIT 7,(IX+1)
JP SetInLn ; ¢ë¤¥«¨âì ¯à¥¤. ®¡ê¥ªâ JP SetInLn ; ¢ë¤¥«¨âì ¯à¥¤. ®¡ê¥ªâ
; ;
EIcombn: PUSH IY EIcombn: PUSH IY
ld c,(hl) ; what+1 LD C,(HL) ; what+1
INC HL INC HL
LD A,(HL) ; what+2 LD A,(HL) ; what+2
LD L,(IX+9) ; Address buffer LD L,(IX+9) ; Address buffer
@ -1038,8 +1037,8 @@ EIcombn:PUSH IY
PUSH DE PUSH DE
PUSH HL PUSH HL
POP IY POP IY
bit 7,c ; ªãàá®à­ë¥ ¨«¨ shift+... ? BIT 7,C ; ªãàá®à­ë¥ ¨«¨ shift+... ?
jr nz,eicmb1 ; Shift+... JR NZ,eicmb1 ; Shift+...
CP 54h CP 54h
JR Z,ILleft ; ªãàá®à ¢«¥¢® JR Z,ILleft ; ªãàá®à ¢«¥¢®
CP 56h CP 56h
@ -1050,11 +1049,11 @@ EIcombn:PUSH IY
JP Z,ILHome ; ¢ ­ ç «® áâப¨ JP Z,ILHome ; ¢ ­ ç «® áâப¨
CP 51h CP 51h
JP Z,ILEnd ; ¢ ª®­¥æ áâப¨ JP Z,ILEnd ; ¢ ª®­¥æ áâப¨
jr eicmb2 JR eicmb2
eicmb1: cp " " eicmb1: CP " "
jr c,eicmb2 JR C,eicmb2
cp "~"+1 CP "~"+1
jp c,ILwrk2 ; ­  ¢¢®¤ ᨬ¢®«®¢ JP C,ILwrk2 ; ­  ¢¢®¤ ᨬ¢®«®¢
eicmb2: POP DE eicmb2: POP DE
POP IY POP IY
RET RET
@ -1231,15 +1230,11 @@ PrnInLn:LD A,(CurILFl)
NEG NEG
LD L,A LD L,A
LD E,H LD E,H
;LD A,E
;CP 80
;JR NC,prne
;LD A,D
;CP 31
;JR NC,prne
LD (prnadd+1),HL LD (prnadd+1),HL
LD C,BIOS.LP_SET_PLACE ; ãáâ. ¯®§¨æ¨î ªãàá®à  ;LD C,BIOS.LP_SET_PLACE ; ãáâ. ¯®§¨æ¨î ªãàá®à 
RST ToBIOS ;RST ToBIOS
LD C,Dss.Locate
RST ToDSS
LD L,(IX+9) ;Address buffer LD L,(IX+9) ;Address buffer
LD H,(IX+0Ah) LD H,(IX+0Ah)
LD A,(IY+3) LD A,(IY+3)
@ -1343,71 +1338,100 @@ prne: LD A,(IY+2)
OUT (Page3),A OUT (Page3),A
RET RET
;;;;;;;;;;;;;;;;
;Šãàá®à ®¡ê¥ªâ  InputLine
PrnILCr:LD A,(Timer) ;¯ ã§  ¬¨£ ­¨ï
DEC A
CALL Z,PutILCr
LD (Timer),A
RET
PutILCr:LD A,(Flag)
CPL
LD (Flag),A
PILCurs: LD DE,(CursPos) ; ãáâ. ªãàá®à PILCurs: LD DE,(CursPos) ; ãáâ. ªãàá®à
LD (CrPs+1),DE LD (ResILCr.CrPs),DE
BIT 7,E BIT 7,E
JR NZ,cre JR NZ,.cre
;LD A,E ;
;CP 80 LD C,Dss.Locate
;JR NC,cre RST ToDSS
;LD A,D ;
;CP 31 LD BC,Dss.K_SETUP.ShowCursor
;JR NC,cre RST ToDSS
LD C,0B4h ; ¯®«ãç¨âì ᨬ¢®« ;
SUB A .cre: LD A,1
RST ToBIOS
LD A,(Flag)
OR A
LD B,1Bh
JR Z,NoILC
LD B,5Bh ; ªãàá®à ç¥àâ®çª®©
NoILC: LD C,0B5h ; ᨬ¢®« ­  íªà ­
SUB A
RST ToBIOS
cre: LD A,1
LD (CurILFl),A LD (CurILFl),A
LD A,12 LD A,12 ;!FIXIT ­ ¤® «¨?
RET RET
;;;;;;;;;;;;;;;;
; ‘¡à®á¨âì ªãàá®à ; ‘¡à®á¨âì ªãàá®à
ResILCr: LD A,(CurILFl) ResILCr: LD A,(CurILFl)
OR A OR A
RET Z RET Z
LD A,0FFh ;
LD (Flag),A .CrPs+1: LD DE,0
INC A
LD (CurILFl),A
LD A,12
LD (Timer),A
CrPs: LD DE,0
BIT 7,E BIT 7,E
RET NZ RET NZ
;LD A,E ;
;CP 80 LD BC,Dss.K_SETUP.HideCursor
;RET NC RST ToDSS
;LD A,D XOR A
;CP 31 LD (CurILFl),A
;RET NC
LD C,0B4h ; ¯®«ãç¨âì ᨬ¢®«
SUB A
RST ToBIOS
LD BC,1BB5h ; ᨬ¢®« ­  íªà ­
SUB A
RST ToBIOS
RET RET
;;;;;;;;;;;;;;;;
;!FIXIT CURSOR ¯¥à¥¤¥« âì ªãàá®à ­  ¤®á ¨ ã¡à âì ¯¥à¥å¢ âì ¯à¥à뢠­¨©
;Šãàá®à ®¡ê¥ªâ  InputLine
; PrnILCr: LD A,(Timer) ;¯ ã§  ¬¨£ ­¨ï
; DEC A
; CALL Z,.PutILCr
; LD (Timer),A
; RET
; ;
; .PutILCr: LD A,(Flag)
; CPL
; LD (Flag),A
; PILCurs: LD DE,(CursPos) ; ãáâ. ªãàá®à
; LD (ResILCr.CrPs),DE
; BIT 7,E
; JR NZ,.cre
; ;
; LD C,0B4h ; ¯®«ãç¨âì ᨬ¢®«
; SUB A
; RST ToBIOS
; LD A,(Flag)
; OR A
; LD B,1Bh
; JR Z,.NoILC
; LD B,5Bh ; ªãàá®à ç¥àâ®çª®©
; .NoILC: LD C,0B5h ; ᨬ¢®« ­  íªà ­
; SUB A
; RST ToBIOS
; .cre: LD A,1
; LD (CurILFl),A
; LD A,12
; RET
;;;;;;;;;;;;;;;;
; ‘¡à®á¨âì ªãàá®à
; ResILCr: LD A,(CurILFl)
; OR A
; RET Z
; LD A,#FF
; LD (Flag),A
; INC A
; LD (CurILFl),A
; LD A,12
; LD (Timer),A
; .CrPs+1: LD DE,0
; BIT 7,E
; RET NZ
; ;
; LD C,#B4 ; ¯®«ãç¨âì ᨬ¢®«
; SUB A
; RST ToBIOS
; LD BC,1BB5h ; ᨬ¢®« ­  íªà ­
; SUB A
; RST ToBIOS
; RET
;;;;;;;
; ;
InpLineI: InpLineI:
LD E,(IX+2) ;Xo LD E,(IX+2) ;Xo
@ -1435,7 +1459,7 @@ ClastI: LD E,(IX+2) ;Xo
SUB E SUB E
DEC A DEC A
LD C,A ;Len X LD C,A ;Len X
jp SetClasInv JP SetClasInv
@ -1466,9 +1490,9 @@ SetClasInv:
EX DE,HL EX DE,HL
LD (RClIbuf+2),HL LD (RClIbuf+2),HL
LD B,E LD B,E
ld e,ColDialInv LD E,ColDialInv
;LD E,A ;LD E,A
ld d,ColDhotkey LD D,ColDhotkey
;LD D,A ;LD D,A
SetDin2: INC HL SetDin2: INC HL
LD A,(HL) LD A,(HL)
@ -1477,8 +1501,8 @@ SetDin2:INC HL
JR Z,.loc2 ;$+5 JR Z,.loc2 ;$+5
LD A,(HL) LD A,(HL)
;XOR E ;XOR E
and 0xF0 ; AND 0xF0 ;
or e ; OR E ;
LD (HL),A LD (HL),A
.loc2: INC HL .loc2: INC HL
DJNZ SetDin2 DJNZ SetDin2
@ -1775,7 +1799,7 @@ ECnext: LD A,0
CALL NZ,ChangeB CALL NZ,ChangeB
EClexit: LD HL,what ;Event claster exit EClexit: LD HL,what ;Event claster exit
LD (HL),evNothing LD (HL),evNothing
jp GetFire JP GetFire

2
Shared_Includes

@ -1 +1 @@
Subproject commit 2b1e30c6108f0a5c271f84558e1e5f804a6d623a Subproject commit a6c50f572424e88f6199d639fa8109d53b71142c

2
Version.inc
View File

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