BDOS2.MAC

;
; îï÷ùå äéóëï÷ùå æõîëãéé
;
;F29 - ÷ íáóóé÷ ó áäòåóïí ÷ DE ÷ ôåëõýåí âáîëå ÷ïú÷òáý.16 óéí÷.íåôëá äéóëá
;F2A - éú íáóóé÷á (ðï DE) îá äéóë úáðéó. 16-é óéí÷ïìøîáñ íåôëá äéóëá
;F2B - ÷ íáóóé÷ (ðï DE) ÷ïú÷òáý. 16 óéí÷. éíñ ôåëõýåçï àúåòá
;F2C - ôåëõýåíõ àúåòõ õóôáîá÷ì. îï÷ïå éíñ éú íáóóé÷á (ðï DE) - 16 óéí÷.
;F2D - õóôáîï÷ëá àúåòá ðï éíåîé éú íáóé÷á (ðï DE)
;F2E - ðïìõþéôø éú âõæåòá ôéíðìåôá óôòïëõ ÷ íáóóé÷ (ðï DE).
;F2F - äïâá÷éôø óôòïëõ ÷ âõæåò ôéíðìåôá éú íáóóé÷á (ÐÏ DE).
;F30 - ðïìõþéôø éú âõæåòá ðïäíåî óôòïëõ ÷ íáóóé÷ (ðï DE).
;F31 - äïâá÷éôø óôòïëõ ÷ âõæåò ðïäíåî éú íáóóé÷á (ÐÏ DE).
;F32 - ðïìõþéôø óôòïëõ éú BAT-âõæåòá ÷ íáóóé÷ (ðï DE).íáóCé÷ óïëòáýáåôóñ
;F33 - äïâá÷éôø óôòïëõ ÷ BAT-âõæåò éú íáóóé÷á (ðï DE).
;F34 - ðïìõþéôø äáôõ é ÷òåíñ óïúäáîéñ æáêìá. ÷èïä: DE=ADDR(FCB).
;F35 - õóôáîï÷éôø äáôõ óïúäáîéñ æáêìá. ÷èïä: DE=ADDR(FCB).
;F36 - ðïìõþéôø óôòïëõ õóôáîï÷ëé äéóëï÷
;F37 - õóôîï÷éôø/ðïìõþéôø PATH-USER . ÷èïä: E=(0..0FH)/0FFH
;F38 - ðïìõþéôø äáôõ óïúäáîéñ ðïóìåäîåçï éóðïìøúï÷á÷ûåçïóñ æáêìá.
;
XORSUM  EQU     DRVCODE
NBUFF   EQU     NEWBUFF+80H
;
FN29:   PUSH    DE
	CALL    LOADATE
	POP     HL
	LD      A,(RG_B)
	EXX
	EX      AF,AF'
	CALL    LABPRES
	JP      NZ,BADRET
	LD      HL,LABEL
	LD      BC,16
	call	BLDIRF1		; set A to WORKPAGE
LABPRES:LD      HL,LABEL
	LD      DE,KSS
	LD      B,16
ANYPRES:XOR     A
LABXOR: XOR     (HL)
	INC     HL
	DJNZ    LABXOR
	LD      (XORSUM),A
	EX      DE,HL
	XOR     (HL)
	RET
;
USRPRES:LD      HL,USERS
	LD      DE,KSS+1
	LD      B,0
	JR      ANYPRES
;
FN2A:   CALL    LOADATE
	CALL    LABPRES
	JP      NZ,BADRET
	CALL    TRACK0FLUSH	; set track 0, force flush
	LD      BC,1
	CALL    @SELSEC
	CALL    RDSEC
	LD      A,WORKPAGE
	LD      HL,NBUFF+20H
	EXX
	EX      AF,AF'
	LD      A,(RG_B)
	LD      HL,(RG_DE)
	LD      BC,16
	CALL    BLDIR
	LD      HL,NBUFF+20H
	LD      DE,LABEL
	LD      C, 16		; BC,16   ;(BLDIR)->BC=0
	LDIR
	CALL    WRSEC
	LD      BC,2
	CALL    @SELSEC
	CALL    RDSEC
	CALL    LABPRES
	LD      A,(XORSUM)
	LD      (NBUFF+07DH),A
	LD      (KSS),A
	CALL    WRSEC
	JP      TRACK1
;
TSTINS: XOR     A
	LD      HL,USERS
	OR      (HL)            ;ëïòîå÷ïê ÷ìïöåî óáí ÷ óåâñ
	RET     NZ
	LD      B,15
TSTINS0:INC     HL
	LD      A,(HL)          ; îå âïìåå 15 àúåòï÷
	AND     0F0H
	RET     NZ
	PUSH    BC              ; ðòï÷åòëá ëï÷áòîïê ÷ìïöåî.
	PUSH    HL
	LD      B,15            ; MAX çìõâéîá ÷ìïöåîîïóôé
TSTINS1:LD      A,(HL)
	OR      A
	JR      Z,TSTINS2       ; åóìé äïûìé äï ëïòîå÷ïçï
	LD      E,A
	LD      D,0
	LD      HL,USERS
	ADD     HL,DE
	DJNZ    TSTINS1
	POP     HL
	POP     BC
	OR      A               ; NZ - BAD INSERTING
	RET                     ; ÷ìïöåîîïóôø "óáí ÷ óåâñ"
TSTINS2:POP     HL
	POP     BC
	DJNZ    TSTINS0
	XOR     A               ; Z - GOOD INSERTING
	RET
;
FN2B:   PUSH    DE
	CALL    LOADATE
	POP     HL
	LD      A,(RG_B)
	EXX
	EX      AF,AF'
	LD      A,(ACTUSER)
	ADD     A,A
	ADD     A,A
	ADD     A,A
	ADD     A,A
	LD      C,A
	LD      B,0
	LD      HL,USERS
	ADD     HL,BC
	LD      C,16
	call	BLDIRF1		; set A to WORKPAGE
	CALL    USRPRES
	JR      NZ,XBADRET
	CALL    TSTINS
	RET     Z
XBADRET:JP      BADRET
;
FN2C:   CALL    LOADATE
	CALL    USRPRES
	JR      NZ,XBADRET
	LD      HL,USERS
	LD      DE,NBUFF
	LD      BC,16
	LDIR
	LD      A,(ACTUSER)
	ADD     A,A
	ADD     A,A
	ADD     A,A
	ADD     A,A
	LD      C,A
;	LD      B,0		; (LDIR)->BC=0
	LD      HL,USERS
	ADD     HL,BC           ; ËÕÄÁ
	LD      A,WORKPAGE
	EXX
	EX      AF,AF'
	LD      HL,(RG_DE)
	LD      A,(RG_B)
	LD      BC,16
	CALL    BLDIR
	LD      HL,USERS
	PUSH    HL
	LD      (HL),B		;(HL),0	;(BLDIR)->BC=0
	LD      B,15
FN2C0:  INC     HL
	LD      A,0FH
	AND     (HL)
	LD      (HL),A
	DJNZ    FN2C0
	CALL    TSTINS
	POP     DE
	JR      Z,IFROOT
	LD      HL,NBUFF
	LD      BC,16
	LDIR
	JR      XBADRET		; ÷ìïöåîîïóôø "óáí ÷ óåâñ"
IFROOT: CALL    USRPRES
	CALL    TRACK0FLUSH	; set track 0, force flush
	LD      BC,2
	CALL    @SELSEC
	CALL    RDSEC
	LD      A,(XORSUM)
	LD      (NBUFF+7EH),A
	LD      (KSS+1),A
	CALL    WRSEC
	LD      BC,USERS
	LD      E,3
	CALL    WRDMA
	LD      BC,USERS+80H
	LD      E,4
	CALL    WRDMA
;
TRACK1: LD      BC,1
	CALL    @SELTRK
	LD      BC,NBUFF
	LD      E,1
;
RDDMA:  PUSH    DE
	CALL    @SETDMA
	POP     BC
	LD	B,0
	CALL    @SELSEC
	JP      RDSEC
;
WRDMA:  PUSH    DE
	CALL    @SETDMA
	POP     BC
	LD	B,0
	CALL    @SELSEC
	JP      WRSEC
;
FN2D:   CALL    LOADATE
	CALL    USRPRES
	JP      NZ,BADRET
	LD      A,WORKPAGE
	LD      HL,NBUFF
	EXX
	EX      AF,AF'
	LD      A,(RG_B)
	LD      HL,(RG_DE)
	LD      BC,16
	CALL    BLDIR
	LD      DE,USERS+10H
	LD      C,0FH
COMP0:  LD      B,10H
	LD      HL,NBUFF
COMP:   LD      A,(DE)
	CP      (HL)
	JR      NZ,NOFOUND
	INC     HL
	INC     DE
	DJNZ    COMP
	LD      A,10H
	SUB     C
	LD      (RG_E),A
	CALL    F20
	XOR     A
	RET
NOFOUND:INC     DE
	DJNZ    NOFOUND
	DEC     C
	JR      NZ,COMP0
	LD      A,0FFH
	RET
;
GETSTRING:
	PUSH    DE
	LD      A,WORKPAGE             ; ëõäá
	LD      HL,NEWBUFF
	EX      AF,AF'
	EXX
	POP     HL
	LD      A,(RG_B)        ; éú ëáëïê óôòáîéãù ÷ùúï÷
	CALL    BLDB
	LD      C,B
	LD      B,0
	INC     C
	INC     C
	RET     Z
	LD      (FALEN),BC
	LD      A,(RG_B)
	CALL    BLDIR
	LD      HL,NEWBUFF+1
	RET
;
; ðïìõþéôø óôòïëõ éú âõæåòá ôéíðìåôá
; ðáòáíåôòù: HL- õëáúáôåìø îá áäòåó âõæåòá+1 (STRING SIZE)
; ÷ùèïä:     A - îïíåò óôòïëé ôéíðìåôá (1..9) éìé 0
;
FN2E:   LD      HL,TIMBUF
	LD      (BEGBUF),HL
	CALL    GETSTRING
	CALL    GETTIM0
	CALL    EXITFA
	LD      A,(IX)
	RET

@GETTIM:LD      BC,TIMBUF
	LD      (BEGBUF),BC
GETTIM0:LD      IX,FL0
	LD      IY,FL1
;
GETTIM: PUSH    AF
	LD      BC,(BEGBUF)
	LD      A,(BC)
	OR      A
	JR      Z,FA_NL2    ; ÷ùèïä, âõæåò ôéíðìåôá ðõóôïê

	PUSH    HL
	DEC     HL
	LD      B,(HL)      ; ÷ REG.B íáëó. òáúíåò âõæåòá

	LD      A,(IX)
	CP      (IY)
	JR      C,FA_DL12       ; IF FL0<FL1
	XOR	A
FA_DL12:INC     A           ; õóô. ÷ òåç. á îïíåò óôòïëé
	LD      (IX),A      ; é úáîåóôé åçï ÷ FL0

	LD      HL,(BEGBUF)
	DEC     A
	JR      Z,ADDROK
	LD      D,0
GSTR1:  LD      E,(HL)
	INC     E
	ADD     HL,DE       ; ÷ HL áäòåó îõöîïê óôòïëé ÷
	DEC     A           ; âõæåòå ôéíðìåôá
	JR      NZ,GSTR1
ADDROK:
	POP     DE          ; DE - áäòåó STRING SIZE
	PUSH    DE

	LD      C,(HL)      ; äìéîá ôéíðìåôîïê óôòïëé
	PUSH    BC
FA_L17: INC     HL
	INC	DE
	LD      A,(HL)      ; ðåòåóùìëá éú âõæåòá ôéíðìåôá ÷
	LD      (DE),A      ; âõæåò óôòïëé îõöîïçï óôòéîçá
	DEC	C
	JR      Z,FA_NL1
	DJNZ    FA_L17
FA_NL1: POP     DE          ; D=MAX SIZE  E=REAL SIZE
	POP     HL          ; HL- áäòåó STRING SIZE
	LD      (HL), e
	LD      A,B
	OR      A
	JR      NZ,FA_NL2
	LD      (HL),D
FA_NL2: POP     AF
	LD      B,A
	RET
;
; úáîåóôé óôòïëõ ÷ âõæåò ðïäíåî
; ðáòáíåôòù: HL  - áäòåó âõæåòá ÷÷ïäá+1 (BUFFER SIZE)
;
FN31:   LD      HL,REPLBUF
	LD      (BEGBUF),HL
	LD      HL,REPLBUF+TIMSIZE
	LD      (ENDBUF),HL
	CALL    GETSTRING
	LD      IY,FL3
	JR      SAVETM2

@SAVETIM:
	PUSH    HL
	LD      HL,TIMBUF
	LD      (BEGBUF),HL
	LD      HL,TIMBUF+TIMSIZE
	LD      (ENDBUF),HL
	POP     HL
	JR      SAVETIM
;
; úáîåóôé óôòïëõ ÷ âõæåò ôéíðìåôá
; ðáòáíåôòù: HL  - áäòåó âõæåòá ÷÷ïäá+1 (BUFFER SIZE)
;
FN2F:   LD      HL,TIMBUF
	LD      (BEGBUF),HL
	LD      HL,TIMBUF+TIMSIZE
	LD      (ENDBUF),HL
	CALL    GETSTRING

SAVETIM:LD      IY,FL1
SAVETM2:
	PUSH    HL          ; TO STACK - STRING SIZE

	LD      DE,(BEGBUF)
	LD      A,(DE)  ; FL1 - ëïì-÷ï óôòéîçï÷ ÷ âõæåòå
	OR	A
	JR      Z,FA_L5 ; ðåòåèïä, åóìé âõæåò ôéíðìåôá
			; ðõóôïê
; ðòï÷åòëá îá ðï÷ôïòîùê óôòéîç
;
	INC     A
	LD      B,A
RPSTR1: LD      A,(DE)
	CP      (HL)
	JR      NZ,FA_L5
	INC     HL
	INC     DE
	DJNZ    RPSTR1
	POP     HL
	RET

FA_L5:  POP     HL      ; APPEND
	PUSH    HL
	LD      C,(HL)  ; C - REAL LENGTH
	LD      B,0
	INC     BC      ; BC=LENGTH(LENGTH+STR)
	PUSH    BC
	LD      HL,(ENDBUF)
	LD      D,H
	LD      E,L
	OR      A
	SBC     HL,BC
	LD      A,TIMSIZE
	SUB     C
	LD      C,A
	INC     BC
	LDDR                    ; òáúä÷éîõôø
	POP     BC
	POP     HL
	LD      DE,(BEGBUF)
	PUSH    DE
	LDIR                    ; ÷óôá÷éôø

	POP     HL              ; HL=TIMBUF
	LD      (IY),B          ; BC=0
FLL_1:  LD      A,(HL)
	OR      A               ; ðïäóþåô óôòïë ÷ TIMBUF
	RET     Z
	ADD     A,C
	JR      C,FLL_3         ; ëïîôòïìø ÷ùèïäá úá âõæåò
	CP      TIMSIZE
	JR      NC,FLL_3        ; --"--"--"--"--"--"--"--
	LD      C,A
	INC     BC
	LD      HL,(BEGBUF)
	ADD     HL,BC
	INC     (IY)         ; õ÷åìéþéôø óþåôþéë óôòéîçï÷
	JR      FLL_1
FLL_3:  LD      (HL),B
	RET
;
; ðïìõþéôø óôòïëõ éú âõæåòá ðïäíåî
; ðáòáíåôòù: HL- õëáúáôåìø îá áäòåó âõæåòá+1 (STRING SIZE)
; ÷ùèïä:     A - îïíåò óôòïëé ôéíðìåôá (1..9) éìé 0
;
FN30:   LD      HL,REPLBUF
	LD      (BEGBUF),HL
	CALL    GETSTRING
	LD      IX,FL2
	LD      IY,FL3
	CALL    GETTIM
	CALL    EXITFA
	LD      A,(IX)
	RET
;
; äïâá÷éôø óôòïëõ ÷ âáô-âõæåò
;
FN33:   CALL    GETSTRING       ; óþéôáôø óôòïëõ ÷ âõæåò
	LD      A,(HL)
	OR      A
	JR      Z,TOBDRET
	RLA
	JR      C,TOBDRET
	PUSH    HL              ; HL=âõæåò+1
	CALL    GETBATSEGM      ; ÷ïú÷ò. òåç.á=îïíåò óåçí.
	CALL    GETLASTSTR      ; DE=BEGSTR-1, HL=ADDR(0)
	LD      A,(DRVCODE)     ; BANK
	PUSH    AF
	LD      B,1
	CALL    BSTB
	POP     AF
	LD      C,A             ; C=BANK
	POP     IX
	LD      B,(IX)          ; IX=INP_STRING_BUFFER+1
	LD      E,B
	LD      D,0             ; DE=APPEND STRING LENGTH
	PUSH    HL
	LD      A,H
	AND     0FH
	LD      H,A
	ADD     HL,DE
	INC     HL
	INC     HL
	INC     HL
	LD      A,H
	AND     0F0H
	POP     HL
	JR      NZ,TOBDRET       ; ÷ âõæåòå îåô íåóôá
	ld	d,h
	ld	e,l
APPEND: PUSH    BC
	INC     IX
	INC     HL
	LD      B,(IX)
	ld	a,b
	call	CPSPTB		; cp ' ', cp 9
	jr	z, spx1
	ld	d,h
	ld	e,l		; (a,de)=last nonspace symbol
spx1:	LD      A,C
	push	de
	CALL    BSTB
	pop	de
	POP     BC
	DJNZ    APPEND		; b=0 at exit from djnz
	ex	de,hl
	INC     HL
;	LD      B,0
	LD      A,C
	CALL    BSTB
	XOR     A
	RET
;
BDRETFA:CALL    EXITFA
TOBDRET:JP      BADRET
TFBDRET:CALL    FREESEG
	JR      TOBDRET
;
GETBATSEGM:
	LD      A,(BATSEGM)
	CP      0FFH
	RET     NZ
	ld	a, (VMEM1)
	or	a
	jr	nz, GBS0
	LD      E,3EH
	LD      A,(ETRACK0)
	CP      E
	JR      Z,GBS0
	CALL    GETSEGM
	CP      0EH
	LD      A,3EH
	JR      Z,LDBAT
GBS0:   LD      DE,1FFH       ; òåúåò÷. 1 ìàâïê óåçíåîô
	CALL    F103
LDBAT:  LD      (BATSEGM),A
	CP      0FFH
	JR      Z,TOBDRET
SETNULL:PUSH    AF
	LD      E,A
	CALL    F112            ; B=0  ; SEGMENT -> ADDRESS
	LD      A,L             ; BANK
	LD      L,B		; B=0
	CALL    BSTB
	POP     AF
	RET
;
CLRBAT: LD      A,(BATSEGM)
	CP      0FFH
	RET     Z
	JR      SETNULL

FREESEG:LD      HL,BATSEGM
	LD      A,(HL)
	CP      3EH
	RET     Z
	LD      C,A
	LD      (HL),0FFH
	XOR     A
	JP      SETSEG1         ; üôï ÷ BDOS0
;
; ðïìõþéôø óôòïëõ. âõæåò óïëòáýáåôóñ.
;
FN32:   CALL    GETSTRING       ; C=0
	LD      (HL),C		; 0
	LD      A,(BATSEGM)
	CP      0FFH
	JR      Z,BDRETFA
	PUSH    HL
	CALL    GETLASTSTR
	JR      Z,TFBDRET
	LD      A,0FH
	AND     D
	OR      E
	PUSH    DE
	CALL    Z,FREESEG       ; åóìé îáþáìï óåçíåîôá
	POP     HL
	LD      A,(DRVCODE)     ; õóôáîá÷ìé÷áåôóñ GETLASTSTR
	LD      B,0
	CALL    BSTB            ; õäáìñåí óôòïëõ
	LD      HL,MOVEBUF-1
	POP     DE              ; DE=NEWBUFF+1
	DEC     DE
	LD      A,(DE)
	LD      B,A             ; B=MAX STRING SIZE
	INC     DE
	PUSH    DE
	LD      C,A
FN321:  INC     HL
	INC     DE
	LD      A,(HL)
	LD      (DE),A
	OR      A
	JR      Z,IFEOST
	DJNZ    FN321
IFEOST: LD      A,C
	SUB     B
	POP     DE
	LD      (DE),A
	CALL    EXITFA
	XOR     A
	RET
;
; ðïìõþéôø ðïóìåäîàà óôòïëõ éú ÷áô-óåçíåîôá ó îïíåòïí ÷ ò.á
; ÷ùèïä: á=0+æìáçé - âõæåò ðõóô, á=0FFH+æìáçé- îå ðõóô
;        DE=ADDR(óôòïëé ÷ ÷áô-âõæ)-1, HL=áäò. 0 (EOSTR)
;        îá MOVEBUF ëìáäåôóñ óôòïëá, ëïîåã óôòïëé - 0
;
GETLASTSTR:
	LD      E,A
	CALL    F112	; B=0
	LD      A,L     ; A=BANK OF BAT-SEGMENT
	LD      L,B	; L,0 ; HL=ADDRESS OF BAT-SEGMENT
	LD      (DRVCODE),A
	CALL    BLDB
	LD      A,B
	OR      A
	LD      D,H
	LD      E,L
	RET     Z       ; âõæåò ðõóô
GETLS1: LD      D,H
	LD      E,L
	LD      IX,MOVEBUF
GETLS2: INC     HL
	PUSH    DE
	LD      A,(DRVCODE)
	CALL    BLDB
	POP     DE
	LD      (IX),B
	INC     IX
	LD      A,B
	OR      A
	JR      Z,RETGLS
	DEC     A
	JR      NZ,GETLS2
	JR      GETLS1
RETGLS: DEC     A
	RET
;
DATAPRES:
	LD      HL,DATES        ; DATAPRES
	LD      BC,3H
	XOR     A
DATAPR1:XOR     (HL)
	INC     HL
	DJNZ    DATAPR1
	DEC     C
	JR      NZ,DATAPR1
	LD      (XORSUM),A
	LD      HL,KSS+2
	XOR     (HL)
	RET
;
OOPEN:  LD      A,(COPYEXRGA)
	CP      4
	JR      C,OOOPEN
	CALL    GETFCB    ; ðÌÁÇÉÁÔ æ-ÉÉ 0Fh - ÏÔËÒÙÔØ ÆÁÊÌ
	PUSH    DE
	LD      HL,NEWBUFF+16
	LD      DE,NEWBUFF+35
	LD      BC,5
	LDIR              ; 5 âáêô: yy+mm+dd+hh+min
	POP     DE
	CALL    AD172
	CALL    SETDSKUSR
	CALL    AD451     ; SET CNTREC=0..XX, EXITRG_A=0..3
	LD      A,(EXITRG_A)
	CP      4
	JR      NC,EXDATE1
OOOPEN: PUSH    AF
	CALL    LOADATE
	CALL    DATAPRES
	POP     BC
	JR      NZ,NODATES
	LD      A,(CNTREC)
	ADD     A,A
	ADD     A,A       ; A=A*4
	ADD     A,B       ; A=ïôîïóéô. îïíåò ÷ íáóóé÷å äáô
	LD      HL,DATES
	LD      C,A
	LD      B,0
	ADD     HL,BC
	ADD     HL,BC     ; B=0, C=îïíåò üìåíåîôá
	ADD     HL,BC     ; HL=áäòåó üì-ôá ÷ íáóóé÷å äáô
	RET
;
NODATES:LD      A,(ISCREAT)
	OR      A
	JR      NZ,EXDATE1
	DEC     A		; A=0FFh
EXDATES:LD      (EXITRG_A),A
EXDATE1:XOR     A
	LD      (RETOK),A
	JP      EXIT_ST
;
FN34:   LD      A,0FFH
	LD      (COPYEXRGA),A
FN38:   LD      (FCBADDR),DE
	CALL    OOPEN
	XOR     A
	LD      (NEWBUFF),A
	LD      DE,NEWBUFF+16
	LD      A,(HL)  ; òáóðáëï÷ëá 3-è âáêôï÷ïê äáôù
	RRA             ; ÷ íáóóé÷ NEWBUFF+16..+20
	RRA
	RRA
	RRA
	AND     0FH
	LD      B,96
	CP      4
	JR      C,LESS4
	LD      B,0FCH
LESS4:  ADD     A,B
	LD      (DE),A          ; çïä
	INC     DE
	LD      A,(HL)
	AND     0FH
	LD      (DE),A          ; íåóñã
	INC     HL
	LD      B,(HL)
	INC     HL
	LD      L,(HL)
	LD      H,B             ; HL= 5ÄÄ + 5ÞÞ + 6ÍÍ
	CALL    SDVI            ; äåîø
	CALL    SDVI            ; þáóù
	LD      B,6
	CALL    SDVIG           ; íéîõôù
	LD      BC,22
	CALL    RETFCB
	XOR     A
	JR      EXDATES
;
SDVI:   LD      B,5
SDVIG:  XOR     A
SDVIGG: ADD     HL,HL
	RLA
	DJNZ    SDVIGG
	INC     DE
	LD      (DE),A
	RET
;
FN36:   EX      DE,HL
	LD      A,(RG_B)
	EX      AF,AF'
	EXX
	LD      HL,DRVTAB
	LD      BC,16
BLDIRF2:LD      A, TPAPAGE
	JP      BLDIR
;
FN37:   LD      A,E
	LD      HL,PATHUSR
	INC     A
	LD      A,(HL)
	RET     Z
	LD      (HL),E
	RET
;
;ESC,'Z' - ÒÁÂÏÔÁ Ó ÞÁÓÁÍÉ:
; esc,'Z',0 - ÐÏÌÕÞÅÎÉÅ ÚÎÁÞÅÎÉÑ ÞÁÓÏ× Ó ËÌÁ×ÉÁÔÕÒÙ × h,m,s
; esc,'Z',6 - ÐÏÌ. ÄÁÔÕ × ÆÏÒÍÁÔÅ d,m,y
;
GTIMSTR:DB      27,'Z',0,'$'
GDATSTR:DB      27,'Z',6,'$'
;
SETDATE:LD      A,(EXITRG_A)
	CP      4
	RET     NC
	PUSH    AF
	LD      A,1
	LD      (ISCREAT),A
	ld	hl, IO_BYTE
	call	BLDB2
	ld	a, b
	and	3
	jr	z, skipdate		; if TTY - do not ask for datetime
	LD      DE,GTIMSTR
	CALL    PRINTT
	CALL    @CONIN
	LD      (NEWBUFF+38),A          ; þáóù
	CALL    @CONIN
	LD      (NEWBUFF+39),A          ; íéîõôù
	CALL    @CONIN
	LD      DE,GDATSTR
	CALL    PRINTT
	CALL    @CONIN
	LD      (NEWBUFF+37),A          ; äåîø
	CALL    @CONIN
	LD      (NEWBUFF+36),A          ; Måóñã
	CALL    @CONIN
	LD      (NEWBUFF+35),A          ; çïä
skipdate:
	POP     AF
	CALL    OOOPEN
	JR      FN351
;
FN39:   CALL    GETFCB
	LD      HL,NEWBUFF+16
	LD      DE,NEWBUFF+35
	LD      BC,5
	LDIR              ; 5 âáêô: yy+mm+dd+hh+min
	CALL    OOPEN
	JR      FN351
;
FN35:   LD      A,0FFH
	LD      (COPYEXRGA),A
	CALL    OOPEN   ; B=0, HL=áäòåó üìåíåîôá.
FN351:  LD      DE,NEWBUFF+35   ; õðáëï÷ëá äáô
	LD      A,(DE)  ; A = çïä
	CP      96
	JR      NC,MORE96
	ADD     A,4
MORE96: RLCA
	RLCA
	RLCA
	RLCA
	AND     0F0H
	LD      B,A
	INC     DE
	LD      A,(DE)  ; á = íåóñã
	OR      B
	LD      (HL),A  ; 4ÇÇ + 4 ÍÍ
	INC     HL
	INC     DE
	PUSH    HL
	LD      HL,0
	CALL    SDVIG3  ; äåîø
	CALL    SDVIG3  ; þáó
	LD      A,(DE)  ; A = íéîõôù
	LD      B,6
	CALL    SDVIG2
	EX      DE,HL   ; DE = 5ÄÄ + 5ÞÞ + 6ÍÉÎ
	POP     HL
	LD      (HL),D
	INC     HL
	LD      (HL),E
	LD      HL,(DMAPOINT)
	PUSH    HL
	CALL    TRACK0FLUSH	; set track 0, force flush,  BC=NBUFF
	LD      E,2
	CALL    RDDMA
	CALL    DATAPRES
	LD      A,(XORSUM)
	LD      (HL),A          ; HL=KSS+2
	LD      (NBUFF+07FH),A  ; +0FFh
	CALL    WRSEC
	LD      BC,DATES
	LD      DE,605H
SAVDATE:PUSH    DE
	PUSH    BC
	CALL    WRDMA
	POP     BC
	LD      HL,128
	ADD     HL,BC
	LD      B,H
	LD      C,L
	POP     DE
	INC     E
	DEC     D
	JR      NZ,SAVDATE
	CALL    TRACK1
	POP     HL
	LD      (DMAPOINT),HL
	LD      A,(COPYEXRGA)
	CP      0FFH
	RET     NZ
	XOR     A
	JP      EXDATES
;
SDVIG3: LD      A,(DE)
	INC     DE
	LD      B,5
	RLA
SDVIG2: RLA
	RLA
SDVIG1: RLA
	ADC     HL,HL
	DJNZ    SDVIG1
	RET
;
LOADATE:LD      A,(ACTDISK)
	LD      HL,DATADSK
	CP      (HL)
	RET     Z
	LD      (HL),A
LOADAT1:LD      HL,(DMAPOINT)
	PUSH    HL
	CALL    TRACK0FLUSH	; set track 0, force flush, BC=NBUFF
	LD      DE,201H
	CALL    LDDATE		; load bootsector
	LD      HL,NBUFF+0FDH
	LD      DE,KSS
	LD      BC,3
	LDIR
	LD      HL,NBUFF+20H
	LD      DE,LABEL
	LD      C,16
	LDIR
	LD      BC,USERS
	LD      DE,803H
	CALL    LDDATE		; load usernames & filedates
	POP     HL
	LD      (DMAPOINT),HL
	RET
;
LDDATE: PUSH    DE
	PUSH    BC
	CALL    RDDMA
	POP     BC
	LD      HL,128
	ADD     HL,BC
	LD      B,H
	LD      C,L
	POP     DE
	INC     E
	DEC     D
	JR      NZ,LDDATE
	RET
;
TRACK0FLUSH:
	CALL    TRACK1		; read track 1 sector 1
	CALL    @SETTR00	; set track 0 - force flush ???
	LD      BC,NBUFF
	RET
;
FN3A:   LD      HL,(DMAPOINT)
	RET
;


 SET DMA=NEWBU