Add files via upload

2026-06-16 15:59:24 +00:00 · 2021-01-12 17:55:26 -06:00
parent f76af55eb4
commit b60161f008
99 changed files with 46287 additions and 0 deletions
@@ -0,0 +1,227 @@
+START	SEGMENT
+	ASSUME CS:START,DS:START
+	MOV	BX,80H
+	MOV	CH,0
+	MOV	CL,[BX]
+	DEC	CX
+	MOV	SI,OFFSET KODOK+100H
+	CALL	BET
+	JZ	KILEP
+	MOV	SI,OFFSET FILEN+100H
+	CALL	BET
+	JZ	KILEP
+	MOV	SI,OFFSET FILECO+100H
+	CALL	BET
+	JMP	FOLYT
+KILEP:	INT	20H
+FOLYT:	MOV	SI,OFFSET KODOK+100H
+	MOV	BX,OFFSET KODTB+100H
+CIKL1:	MOV	AL,[SI]
+	OR	AL,AL
+	JZ	FOLYT5
+	OR	AL,20H
+FOLYT5:	CMP	AL,[BX]
+	JZ	FOLYTC
+	JMP	KODER
+FOLYTC:	CMP	AL,0
+	JZ	FOLYT4
+	INC	BX
+	INC	SI
+	JMP	CIKL1
+FOLYT4:	MOV	AL,0
+	MOV	AH,3DH
+	MOV	DX,OFFSET FILECO+100H
+	INT	21H
+	JNC	FOLYTD
+	JMP	FILER
+FOLYTD:	PUSH	AX
+	MOV	BX,AX
+	MOV	AH,3FH
+	MOV	CX,100H
+	MOV	DX,OFFSET IPUFF+100H
+	INT	21H
+	POP	BX
+	JNC	FOLYTE
+	JMP	FILER
+FOLYTE:	MOV	AH,3EH
+	INT	21H
+	JNC	FOLYTF
+	JMP	FILER
+FOLYTF:	MOV	BX,OFFSET IPUFF+100H
+	MOV	SI,OFFSET PMNAM+100H
+CIKL2:	MOV	AL,[SI]
+	OR	AL,AL
+	JZ	FOLYT7
+	CMP	AL,[BX]
+	JZ	PMOK
+	JMP	PMER
+PMOK:	INC	BX
+	INC	SI
+	JMP	CIKL2
+FOLYT7:	MOV	DI,OFFSET FILMO+100H
+	MOV	DL,2
+CIKL4:	MOV	SI,OFFSET FILEN+100H
+	MOV	CX,13
+	REP	MOVSB
+	DEC	DL
+	JNZ	CIKL4	
+FOLYTA:	MOV	BX,7
+	MOV	CX,26
+	MOV	AL,03FH
+	MOV	AH,9
+	INT	10H
+	MOV	BX,OFFSET IPUFF+157H
+	MOV	CX,26
+	MOV	SI,OFFSET FILMO+100H
+	MOV	DI,OFFSET OPUFF+100H
+	MOV	BYTE PTR [IRANY+100H],1
+CIKL6:	PUSH	CX
+	MOV	CL,0
+CIKL5:	MOV	AL,[SI]
+	XOR	AL,CL
+	ROR	AL,CL
+	CMP	AL,[BX]
+	JZ	FOLYTB
+CIKL9:	ADD	CL,BYTE PTR [IRANY+100H]
+	JNZ	CIKL5
+	PUSH	BX
+	PUSH	CX
+	PUSH	AX
+	MOV	AX,0E07H
+	MOV	BX,0
+	INT	10H
+	MOV	AX,0E3FH
+	MOV	BX,0
+	INT	10H
+	POP	AX
+	POP	CX
+	POP	BX
+	JMP	TASZT
+FOLYTB:	MOV	[DI],CL
+	CMP	CL,128
+	JC	FOLYTG
+	JMP	CIKL9
+FOLYTG:	CMP	CL,20H
+	JC	CIKL9
+TASZT1:	PUSH	CX
+	PUSH	BX
+	PUSH	AX
+	MOV	BX,0
+	MOV	AL,CL
+	MOV	AH,0EH
+	MOV	CX,1
+	INT	10H
+	POP	AX
+	POP	BX
+	POP	CX
+TASZT:	MOV	AH,0
+	INT	16H
+	CMP	AH,4BH
+	JZ	BAL
+	CMP	AH,4DH
+	JZ	JOBB
+	CMP	AH,48H
+	JZ	FEL
+	CMP	AH,50H
+	JZ	LE1
+	CMP	AH,1CH
+	JZ	ESC1
+	JMP	TASZT
+LE1:	CALL	BALRA
+	MOV	BYTE PTR [IRANY+100H],0FFH
+	JMP	CIKL9
+BALRA:	PUSH	BX
+	PUSH	CX
+	PUSH	AX
+	MOV	AX,0E08H
+	MOV	BX,0
+	INT	10H
+	POP	AX
+	POP	CX
+	POP	BX
+	RET
+FEL:	CALL	BALRA
+	MOV	BYTE PTR [IRANY+100H],01H
+	JMP	CIKL9
+BAL:	CALL	BALRA
+	CMP	BX,OFFSET IPUFF+157H
+	JNC	BAL1
+	JMP	CIKL9
+BAL1:	CALL	BALRA
+	DEC	BX
+	DEC	SI
+	DEC	DI
+	POP	CX
+	INC	CX
+	JMP	CIKL6
+JOBB:	CMP	BX,OFFSET IPUFF+157H+25
+	JC	JOBB1
+	CALL	BALRA
+	JMP	CIKL9
+JOBB1:	INC	BX
+	INC	SI
+	INC	DI
+	POP	CX
+	DEC	CX
+	JMP	CIKL6
+ESC1:	POP	CX	
+	MOV	AX,0E0DH
+	MOV	BX,0
+	INT	10H
+	MOV	AX,0E0AH
+	MOV	BX,0
+	INT	10H
+	MOV	BYTE PTR [OPUFF+100H+28],0
+KILEP1:	MOV	SI,OFFSET OPUFF+100H
+	CALL	KIIR
+	JMP	KILEP
+IRANY:	DB	1
+PMER:	MOV	SI,OFFSET PERR+100H
+	CALL	KIIR
+	JMP	KILEP
+KODER:	MOV	SI,OFFSET KDERR+100H
+	CALL	KIIR
+	JMP	KILEP
+FILER:	MOV	SI,OFFSET FERR+100H
+	CALL	KIIR
+	JMP	KILEP
+KIIR:	MOV	AL,[SI]
+	CMP	AL,0
+	JNZ	FOLYT6
+	RET
+FOLYT6:	MOV	AH,0EH
+	MOV	BX,0
+	INT	10H
+	INC	SI
+	JMP	KIIR
+BET:	MOV	AL,[BX+2]
+	CMP	AL,20H
+	JNZ	FOLYT2
+	MOV	BYTE PTR [SI],0
+	INC	BX
+	INC	SI
+	LOOP	FOLYT3
+	XOR	AL,AL
+FOLYT3:	RET
+FOLYT2:	MOV	[SI],AL
+	INC	SI
+	INC	BX
+	LOOP	BET
+	MOV	BYTE PTR [SI],0
+	XOR	AL,AL
+	RET
+PMNAM:	DB	'File encrypted by PathMinder v2.01 (c) Copyright 1984,1985 Westlake Data Corporation',0
+FERR:	DB	'TOLTESI HIBA A LEMEZEN',0DH,0AH,0
+PERR:	DB	'HIBAS PM-VERZIO',0DH,0AH,0
+KRERR:	DB	'KERESESI HIBA',0DH,0AH,0
+KDERR:	DB	'KODOLASI HIBA',0DH,0AH,0
+FILEN:	DB	64 DUP (0)
+FILECO:	DB	64 DUP (0)	
+KODOK:	DB	64 DUP (0)
+KODTB:	DB	'feri&bozo',0
+IPUFF:	DB	256 DUP (0)
+FILMO:	DB	30 DUP (0)
+OPUFF:	DB	32*64 DUP (0)
+START	ENDS
+	END
+