LENG EQU 020 BUFRCS EQU 080 KODPLN EQU 096 ATRMT: DEFW 0FE09,0BE09,0FE0A,0BE0A CUSR1: DEFB 0 CFCB1: DEFM 0,'SUBOR1 TST' DEFS 018 CUSR2: DEFB 0C CFCB2: DEFM 1,'SUBOR2 TST' DEFS 018 CFCBK: CGXY: DEFW 0 CFLG: DEFB NO VFLG: DEFB NO PWNEEX: CALL WPLX0 DEFW MSBR DEFW 5 DEFW MNA DEFW MDISKU DEFW 1 DEFW MNEE DEFW 0 RET TSTTOT: CALL PUA LD HL,CUSR1 LD DE,CUSR2 LD B,0D TSTTOT1: LD A,(DE) CP (HL) RET NZ INC HL INC DE DJNZ TSTTOT1 PWNNSB: CALL PUAL LD A,(CFLG) LD HL,MPT OR A JR Z,PWNNS1 LD HL,MKT PWNNS1: LD (PWNNS2),HL CALL WPLX0 DEFW MNEM PWNNS2: DEFW MKT DEFW 3 DEFW 5 DEFW MNSB DEFW 0 RET PWSEX: CALL PUA LD HL,0330 XOR A CALL OPENM CALL CPLX0 DEFW MSBR DEFW 6 DEFW MUND DEFW MDISKU DEFW 2 DEFW MEX DEFW 0 LD HL,MNPREP CALL KBDNUL CALL MENU JP CLOSEW CGINIC: CALL PUAL CALL WHEREXY PUSH HL LD B,LENG CALL GETSIZEW LD A,L SUB B RRCA INC A LD L,A LD (CGXY),HL CALL SETXY LD A,KODPLN CGINIC1: CALL FARPAN CGINIC2: CALL PUTCHAR DJNZ CGINIC2 POP HL JP SETXY CGNEXT: CALL PUAL CALL WHEREXY PUSH HL LD HL,(CGXY) CALL SETXY INC L LD A,' ' CGNEXT1: LD (CGXY),HL LD B,1 JR CGINIC1 CGPREV: CALL PUAL CALL WHEREXY PUSH HL CALL FARPAN LD HL,(CGXY) DEC L CALL SETXY LD A,KODPLN JR CGNEXT1 CRWO: CALL PUA CRWO1: CALL CRBL LD B,A JR C,CWBL LD B,BUFRCS CALL CWBL JR NC,CRWO1 RET CWBL: CALL PUA LD A,B OR A RET Z LD HL,CBUF LD C,B CWBL1: PUSH BC PUSH HL EX DE,HL BDOS DSDMA LD A,(CUSR2) CALL STUSER LD DE,CFCB2 BDOS DWSEQ POP HL POP BC OR A SCF JP NZ,PLNYDISK LD B,080 CWBL2: EXX DEC BC BIT 7,B JP Z,CWBL3 LD C,E LD B,D CALL CGNEXT CWBL3: EXX DJNZ CWBL2 LD DE,80 ADD HL,DE DEC C JR NZ,CWBL1 XOR A RET CRBL: CALL PUA LD HL,CBUF LD B,BUFRCS CRBL1: PUSH BC PUSH HL EX DE,HL BDOS DSDMA LD A,(CUSR1) CALL STUSER LD DE,CFCB1 BDOS DRSEQ POP HL POP BC OR A JR NZ,CRBL2 LD DE,080 ADD HL,DE DJNZ CRBL1 XOR A RET CRBL2: LD A,BUFRCS SUB B SCF RET PWCM: CALL PUAL LD HL,(HOPOZMNU) LD (PWCM1),HL CALL CURDIS CALL OPENW0 DEFW 0900 DEFW 0336 PWCM1: DEFW 0 DEFB 0 LD A,(CFLG) OR A LD HL,MPM JR Z,PWCM2 LD HL,MKM PWCM2: LD (PWCM3),HL CALL CPLX0 PWCM3: DEFW MPM DEFW 3 DEFW 5 DEFW MD DEFW 4 DEFW 6 DEFW 0 CALL CGINIC LD L,(IY+XPZAZ) LD H,(IY+XPZAZ+1) ADD HL,HL ADD HL,HL DEC HL PUSH HL EXX POP DE LD C,E LD B,D EXX RET PWCOPN: CALL PUA LD C,A LD HL,0336 XOR A CALL OPENM LD A,0D CALL SETX LD A,(CFLG) LD HL,MREN LD DE,MNREN OR A JR Z,PWCOPN1 LD HL,MCOP LD DE,MNCOP PWCOPN1: CALL TEXT CALL PUTSPC LD A,C CALL PUTMNS CALL PLX0 DEFW MZ DEFW 9 DEFW MD DEFW 0A DEFW 0 EX DE,HL CALL KBDNUL CALL MENU CALL CLOSEW CALL CPESBR RET Z CP 'Z' RET Z TSTCIEL: CALL PUA CALL GETIXIY LD A,(CFLG) OR A JR NZ,TSTCIEL1 LD A,(IX+HODISKL-HOL) CP (IY+HODISKL-HOL) LD A,'P' RET Z TSTCIEL1: PUSH IY POP IX CALL XGETINF PUSH HL LD HL,(INFKV) LD DE,(KAPVYB) OR A SBC HL,DE JR C,TSTCIEL2 POP HL LD A,(CFLG) OR A LD A,'P' RET Z LD A,'K' RET TSTCIEL2: LD HL,0336 XOR A CALL OPENM CALL CPLX0 DEFW MOZNE,MSBYM,MSA,MNA,MCLVY,MDSK,MNVDU,0 POP HL CALL MENU JP CLOSEW PWCOPY: CALL PUA LD HL,0336 XOR A CALL OPENM CALL PUTSPC LD A,(CFLG) OR A LD HL,MREN LD BC,MNREN OR A JR Z,PWCOPY1 LD HL,MCOP LD BC,MNCOP PWCOPY1: CALL TEXT CALL PUTSPC CALL PLX0 DEFW 3 DEFW 5 DEFW MD DEFW 4 DEFW 0 LD L,C LD H,B CALL MENUPR LD HL,CFCB2+1 LD DE,FCNVBUF CALL FCNTOTXT EX DE,HL CALL KBDNUL PWCOPY3: CALL ILND CP KODDOW JR NZ,PWCOPY2 PUSH HL LD L,C LD H,B CALL MENU POP HL CP KODUP JR Z,PWCOPY3 PWCOPY2: LD DE,CFCB2+1 CALL TXTTOFCN JP CLOSEW COPYM: CALL PUA PUSH HL POP IY CALL PWCM LD HL,COPYME PUSH HL CALL TSTTOT RET Z LD HL,CUSR2 CALL FEXIST RET C JR Z,COPYM1 LD A,(VFLG) OR A JR NZ,COPYM4 CALL PWSEX CP 'P' JR Z,COPYM4 CP 'V' RET NZ LD A,0FF LD (VFLG),A COPYM4: CALL FVYMAZ COPYM1: CALL FZALOZ RET C LD HL,CUSR1 CALL FOTVOR JR NC,COPYM5 LD HL,CUSR2 CALL FVYMAZ JP PWNEEX COPYM5: LD HL,CUSR2 CALL CRWO PUSH AF CALL FZAVRI POP AF JP C,FVYMAZ EX DE,HL PUSH IY POP HL INC DE CALL CPYFTR DEC DE EX DE,HL CALL FATRIB XOR A LD (IY+XAKT),A INC A POP HL COPYM3: JP CLOSEW COPYME: XOR A JR COPYM3 NRREN: XOR A LD (CFLG),A JR NRCOPY7 NRCOPY: LD A,0FF LD (CFLG),A NRCOPY7: XOR A LD (VFLG),A CALL FFIRST RET C JR NZ,NRCOPYN CALL PWCOPY CP 'Z' RET Z CALL CPESBR RET Z CALL RCOPYM RET Z NRCOPY3: LD A,(CFLG) OR A CALL Z,GENL CALL Z,GENP JR Z,NRCOPY4 LD A,(HOPANEL) LD C,A OR A CALL Z,GENP CALL NZ,GENL CALL GETIXIY NRCOPY5: LD A,(IX+HODISKL-HOL) CP (IY+HODISKL-HOL) JR NZ,NRCOPY4 LD A,(IX+HOUSERL-HOL) CP 010 JR NC,NRCOPY1 CP (IY+HOUSERL-HOL) JR Z,NRCOPY1 LD A,(IY+HOUSERL-HOL) CP 010 JR C,NRCOPY4 NRCOPY1: LD A,C OR A CALL Z,GENL CALL NZ,GENP NRCOPY4: CALL PLCL CALL PLCP CALL PLCAKP JP PLCAKS NRCOPYN: CALL PWCOPN CP 'Z' RET Z CALL CPESBR RET Z NRCOPY2: CALL BRKEY JR Z,NRCOPY3 CALL FNEXT JR C,NRCOPY3 CALL RCOPYM JR NRCOPY2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; KONFIGURACIA ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; KONFPR: CALL GETIX LD A,(IX+HOUSERL-HOL) CP 010 JR C,KONFP1 XOR A KONFP1: LD (DE),A INC DE LD A,(IX+HODISKL-HOL) INC A LD (DE),A INC DE LD BC,8+3 LDIR KONFPE: EXX LD DE,07FFF LD C,E LD B,D EXX RET DELINS: CALL PUAL LD DE,MINIS DELINS1: CALL PRIPSUB JP FVYMAZ DELSUB: CALL PUAL LD DE,MSUB JR DELINS1 SAVEINS: CALL PUA LD HL,MINIS LD DE,CUSR2 PUSH DE CALL KONFPR POP HL LD A,(CUSR1) LD (HL),A JR SAVEIN1 SAVEINI: CALL PUA LD HL,MINI LD DE,CUSR2 PUSH DE CALL KONFPR POP HL ; LD A,(OLDUSER) LD (HL),SYSUSER INC HL LD A,(OLDDSK) INC A LD (HL),A SAVEIN1: LD DE,CBUF PUSH DE LD HL,HO LD A,HOEND-HO LD (DE),A LD C,A INC DE LD A,HOLEND-HOL LD (DE),A INC DE LDIR LD HL,HOL LD C,HOLEND-HOL LDIR LD HL,HOR LD C,HOREND-HOR LDIR EX DE,HL POP DE OR A SBC HL,DE ADD HL,HL INC H LD B,H CALL PWKONFN LDINI4: LD HL,CUSR2 CALL FVYMAZ CALL FZALOZ JR C,LDINI1 CALL CWBL PUSH AF CALL FZAVRI PUSH HL POP IY SET 7,(IY+0A) CALL FATRIB POP AF JR NC,LDINI1 CALL FVYMAZ LDINI2: SCF LDINI1: JP CLOSEW SAVEBUF: CALL PUA CALL PWPLX0 DEFW MZAPIM,4,6,0 LD B,A CALL KONFPE JR LDINI4 LOADINS: CALL PUA LD HL,05D LD DE,CUSR1 PUSH DE CALL KONFPR POP HL CALL RDDSK INC HL INC A LD (HL),A DEC HL JR LDINI3 LOADINI: CALL PUA LD HL,MINI LD DE,CUSR1 PUSH DE CALL KONFPR POP HL LD (HL),SYSUSER LDINI3: CALL FOTVOR RET C CALL PWKONFZ CALL CRBL LD HL,CBUF LD A,(HL) INC HL CP HOEND-HO JR NZ,LDINI2 LD C,A LD A,(HL) INC HL CP HOLEND-HOL JR NZ,LDINI2 LD B,0 LD DE,HO LDIR LD C,HOLEND-HOL LD DE,HOL LDIR LD C,HOREND-HOR LD DE,HOR LDIR XOR A JR LDINI1 DELM: CALL PUA PUSH HL POP IY CALL PWMD LD HL,COPYME PUSH HL LD HL,VFLG INC (HL) DEC (HL) JR NZ,DELM1 BIT 7,(IY+9) JR Z,DELM1 CALL PWRO CP 'N' RET Z CALL CPESBR RET Z CP 'V' JR NZ,DELM1 LD (HL),0FF DELM1: LD HL,CUSR1 CALL FVYMAZ XOR A LD (IY+XAKT),A INC A POP HL JP CLOSEW NRDEL: XOR A LD (VFLG),A CALL FFIRST RET C JR NZ,NRDELN CALL PWD CP 'N' RET Z CALL CPESBR RET Z CALL DELM RET Z NRDEL3: LD A,(HOPANEL) XOR 1 LD C,A CALL NZ,GENL CALL Z,GENP CALL GETIXIY PUSH IX PUSH IY POP IX POP IY JP NRCOPY5 NRDELN: LD C,A CALL PWDN1 CP 'V' CALL NZ,CLOSEW RET NZ LD A,C CALL PWDN2 CALL CLOSEW CP 'A' RET NZ NRDEL2: CALL BRKEY JR Z,NRDEL3 CALL FNEXT JR C,NRDEL3 CALL DELM JR NRDEL2 NRODS: LD HL,MODZN LD C,NO JR NRSEL1 NRSEL: LD HL,MOZN LD C,YES NRSEL1: CALL GETIX CALL XTSTPOC RET Z LD B,A CALL PWSEL CP 'Z' RET Z CALL CPESBR RET Z XOR A LD DE,HOSEL NRSEL2: PUSH AF CALL XGETAS PUSH HL POP IY INC HL CALL COMPHS JR NZ,NRSEL3 LD (IY+XAKT),C NRSEL3: POP AF INC A DJNZ NRSEL2 CALL XPLC CALL PLCAKP JP PLCAKS RCOPYM: LD A,(CFLG) OR A JP NZ,COPYM RENM: CALL PUA PUSH HL LD HL,CUSR1 LD DE,CUSR2 LD A,(DE) CP (HL) JR NZ,RENM1 INC HL INC DE LD A,(DE) CP (HL) RENM1: POP HL JR Z,RENM2 CALL COPYM RET Z LD HL,CUSR1 CALL FVYMAZ LD A,1 OR A RET RENM2: CALL TSTTOT JR Z,RENM6 PUSH HL LD HL,CUSR2 CALL FEXIST POP HL JR C,RENM6 JR Z,RENM4 CALL PWSEX CP 'P' JR Z,RENM5 CP 'V' JR NZ,RENM6 RENM5: PUSH HL LD HL,CUSR2 CALL FVYMAZ POP HL RENM4: CALL PWPLXH0 DEFW MPREM,3,5,MNA,4,6,0 CALL FREN CALL C,PWNEEX JP C,COPYME PUSH HL POP IY XOR A LD (IY+XAKT),A INC A RENM7: JP CLOSEW RENM6: XOR A JR RENM7 ATRM: CALL PUA PUSH HL POP IY LD DE,CFCB1 PUSH DE POP IX CALL CPYFTR LD HL,COPYME PUSH HL LD HL,MNATR CALL GETAKMN CP 4 RET NC LD HL,ATRMT ADD A,A ADD A,L LD L,A ADC A,H SUB L LD H,A LD A,(HL) INC HL LD H,(HL) LD L,A LD (ATRM1+2),HL ATRM1: SET 7,(IX+9) CALL PWMA EX DE,HL DEC HL CALL FATRIB RET C XOR A LD (IY+XAKT),A INC A POP HL JP CLOSEW NRATR: CALL FFIRST RET C JR NZ,NRATRN CALL PWATR CP 'N' RET Z CALL CPESBR RET Z CALL ATRM RET Z NRATR2: JP NRDEL3 NRATRN: CALL PWATRN CP 'N' RET Z CALL CPESBR RET Z NRATR1: CALL BRKEY JR Z,NRATR2 CALL FNEXT JR C,NRATR2 CALL ATRM JR NRATR1