www.pudn.com > Pckv.zip > V63ASM.ASM

PUBLIC	V63 
EXTRN	WJDOPEN:NEAR,WJXOPEN:NEAR,CLOFIL:NEAR 
EXTRN	WJZZS:NEAR,WJZZM:NEAR 
EXTRN	WJCD1:WORD,WJCD2:WORD,WJH:WORD 
EXTRN	BCSX:NEAR,GBSX:NEAR,HFSX:NEAR,BCSJRQ:NEAR,HFSJRQ:NEAR 
EXTRN	PMHHHC:NEAR,XS09SC:NEAR 
EXTRN	GZW01:WORD,GZW02:WORD,GZW03:WORD,SCANTZ:WORD,BDZJA:NEAR 
EXTRN	JSW01:WORD,JSW02:WORD,JSW03:WORD,WJMZZ:WORD 
EXTRN	WJSEGGZA:WORD,WJSEGGZB:WORD,ESGZA:WORD,ESGZB:WORD 
EXTRN	ENDJS:WORD,FHM:BYTE 
EXTRN	WJSXZC1:WORD,WJSXZC2:WORD,WJSXZC3:WORD,ESZC1:WORD 
EXTRN	GZB01:BYTE,GZB02:BYTE,GZB03:BYTE 
EXTRN	JSB01:BYTE,JSB02:BYTE,JSB03:BYTE 
EXTRN	OPENCZF:BYTE,DWJCZF:BYTE,XWJCZF:BYTE,CZCZF:BYTE,WJTYPE:BYTE 
EXTRN	BDTZHCQ:BYTE,WJGZQ:BYTE,WJTQ:BYTE 
EXTRN	XSAXZC:WORD 
; 
;		V63--541(F) 
;        CREATED:   96-5-28   
SEG_B	SEGMENT	PARA PUBLIC 'data' 
V63TZMA	DB 09CH,080H,0FCH,0F0H,075H,004H,0B4H,019H 
	DB 09DH,0CFH,006H,01EH,055H,057H,056H,053H 
SEG_B	ENDS 
; 
SEG_C	SEGMENT	PARA PUBLIC 'code' 
      ASSUME CS:SEG_C , DS:SEG_B 
V63		PROC	NEAR 
V63START: 
	PUSH	DS 
	POP	ES 
V63KS0:	CALL	BCSX 
	JNB	V63KS1 
	JMP	V63KS2 
V63KS1:	CALL	GBSX 
	JNB	V63KS3 
V63KS2:	MOV	FHM,1 
	MOV	DX,OFFSET CZCZF 
	MOV	XSAXZC,DX 
	JMP	V63ZE4 
V63KS3:	CALL	WJXOPEN 
	JNB	V63KS4 
	JMP	V63OPENC 
V63KS4:	CALL	BCSJRQ 
	JNB	V63KS5 
	JMP	V63ZE2 
V63KS5:	CALL	WJZZM 
	JNB	V63KS6 
	JMP	V63CZC 
V63KS6:	MOV	WJCD1,DX 
	MOV	WJCD2,AX 
	CALL	WJZZS 
; 
	MOV	DX,OFFSET WJTQ 
	MOV	CX,200H 
	MOV	AH,3FH 
	MOV	BX,WJH 
	INT	21H 
	JNB	V63WE0 
	JMP	V63DWJC 
; 
V63WE0:	MOV	SI,OFFSET WJTQ 
	MOV	AX,[SI] 
	CMP	AX,39EBH 
	JZ	V63WE1 
	JMP	V63END2 
V63WE1:	ADD	SI,101H 
	MOV	DI,OFFSET V63TZMA 
	MOV	CX,10H 
	REPZ	CMPSB 
	CMP	CX,0 
	JZ	V63XG1 
	JMP	V63END2 
V63XG1:	MOV	SI,OFFSET WJTQ 
	MOV	AX,5A4DH 
	MOV	[SI],AX 
	MOV	AL,0 
	ADD	SI,03BH 
	MOV	CX,01C3H 
V63XG2:	MOV	[SI],AL 
	ADD	SI,1 
	LOOP	V63XG2 
	CALL	WJZZS 
	MOV	DX,OFFSET WJTQ 
	MOV	CX,200H 
	MOV	AH,40H 
	MOV	BX,WJH 
	INT	21H 
	JNB	V63XG3 
	JMP	V63XWJC 
V63XG3:	JMP	V63END0	 
; 
V63END2:	MOV	FHM,2 
		MOV	XSAXZC,0 
		JMP	V63ZE1 
V63END0:	MOV	FHM,0 
		MOV	XSAXZC,0 
		JMP	V63ZE1 
; 
V63OPENC:	MOV	FHM,1 
		MOV	DX,OFFSET OPENCZF 
		MOV	XSAXZC,DX 
		JMP	V63ZE3 
; 
V63CZC:		MOV	DX,OFFSET CZCZF 
		JMP	V63XSL 
V63DWJC:	MOV	DX,OFFSET DWJCZF 
		JMP	V63XSL 
V63XWJC:	MOV	DX,OFFSET XWJCZF 
V63XSL:		MOV	XSAXZC,DX 
V63END1:	MOV	FHM,1 
V63ZE1:		 
		CALL	HFSJRQ 
V63ZE2:		CALL	CLOFIL 
V63ZE3:		 
		CALL	HFSX 
V63ZE4:		MOV	AX,XSAXZC 
		MOV	DX,DS 
		RET 
; 
V63		ENDP 
; 
SEG_C	ENDS 
	END	V63START