www.pudn.com > Pckv.zip > V52ASM.ASM
PUBLIC V52
EXTRN WJDOPEN:NEAR,WJXOPEN:NEAR,WJZZS:NEAR,WJZZM:NEAR,CLOFIL:NEAR
EXTRN BCSX:NEAR,GBSX:NEAR,HFSX:NEAR,BCSJRQ:NEAR,HFSJRQ:NEAR
EXTRN PMHHHC:NEAR,XS09SC:NEAR
EXTRN GZW01:WORD,GZW02:WORD,GZW03:WORD
EXTRN JSW01:WORD,JSW02:WORD,JSW03:WORD
EXTRN WJSEGGZA:WORD,WJSEGGZB:WORD,ESGZA:WORD,ESGZB:WORD
EXTRN ENDJS:WORD,WJH:WORD,WJCD1:WORD,WJCD2: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
;
; V52--1989
; CREATED: 95-10-22
SEG_B SEGMENT PARA PUBLIC 'data'
V52TZMA DB 00DH,0B7H,023H,034H,0CCH,020H,088H,01DH
DB 05EH,000H,08BH,0C2H,088H,01DH,05CH,000H
DB 006H
V52JMTZ DW 0
SEG_B ENDS
;
SEG_C SEGMENT PARA PUBLIC 'code'
ASSUME CS:SEG_C , DS:SEG_B
V52 PROC NEAR
V52START:
PUSH DS
POP ES
CLD
CMP V52JMTZ,0FH
JZ V52JMB
MOV SI,OFFSET V52TZMA
MOV CX,0011H
V52JMA: LODSB
INC AL
MOV [SI-1],AL
LOOP V52JMA
MOV V52JMTZ,0FH
V52JMB: CALL BCSX
JNB V52KS1
MOV FHM,1
JMP V52ZE4
V52KS1: CALL GBSX
JNB V52KS2
MOV FHM,1
JMP V52ZE4
V52KS2: CALL WJXOPEN
JNB V52KS3
JMP V52OPENC
V52KS3: CALL BCSJRQ
JNB V52KS4
JMP V52ZE2
V52KS4: CALL WJZZM
JNB V52KS5
JMP V52CZC
MOV WJCD1,DX
MOV WJCD2,AX
V52KS5: CALL WJZZS
;
MOV DX,OFFSET WJTQ
MOV CX,20H
MOV AH,3FH
MOV BX,WJH
INT 21H
JNB V52WJ1
JMP V52DWJC
V52WJ1: MOV DX,0
MOV SI,OFFSET WJTQ
MOV AL,[SI]
CMP AL,0EH
JNZ V52TZ2
MOV AX,[SI+1]
CMP AX,0C88CH
JNZ V52TZ3
MOV AX,[SI+0AH]
CMP AX,0CB50H
JNZ V52TZ3
MOV AX,[SI+4]
MOV CL,4
SHL AX,CL
JMP V52TZ4
V52TZ2: CMP AL,4DH
JNZ V52TZ3
MOV AX,[SI+16H]
MOV CL,4
ROL AX,CL
MOV DX,AX
AND DX,000FH
AND AX,0FFF0H
MOV BX,[SI+14H]
ADD AX,BX
ADC DX,0
MOV BX,[SI+8]
SHL BX,CL
ADD AX,BX
ADC DX,0
JMP V52TZ4
V52TZ3: JMP V52END2
V52TZ4: MOV WJCD1,DX
MOV WJCD2,AX
ADD AX,0465H
ADC DX,0
MOV BX,WJH
MOV CX,DX
MOV DX,AX
MOV AX,4200H
INT 21H
JNB V52TZ5
JMP V52CZC
V52TZ5: LEA DX,BDTZHCQ
MOV BX,WJH
MOV CX,11H
MOV AH,3FH
INT 21H
JNB V52TZ6
JMP V52DWJC
V52TZ6: MOV DI,OFFSET BDTZHCQ
MOV SI,OFFSET V52TZMA
MOV CX,11H
REPE CMPSB
JZ V52WJ2
JMP V52END2
;
V52WJ2: CMP WJTYPE,'C'
JZ V52WC1
JMP V52WE1
V52WC1: MOV CX,WJCD1
MOV DX,WJCD2
ADD DX,0031H
ADC CX,0
MOV BX,WJH
MOV AX,4200H
INT 21H
JNB V52WC2
JMP V52CZC
V52WC2: MOV DX,OFFSET BDTZHCQ
MOV BX,WJH
MOV CX,18H
MOV AH,3FH
INT 21H
JNB V52WC3
JMP V52DWJC
V52WC3: CALL WJZZS
MOV DX,OFFSET BDTZHCQ
MOV CX,000CH
MOV AH,40H
INT 21H
JNB V52WC4
JMP V52XWJC
V52WC4: JMP V52WJ6
;
V52WE1: MOV CX,WJCD1
MOV DX,WJCD2
ADD DX,0049H
ADC CX,0
MOV BX,WJH
MOV AX,4200H
INT 21H
JNB V52WE2
JMP V52CZC
V52WE2: MOV DX,OFFSET BDTZHCQ
MOV BX,WJH
MOV CX,18H
MOV AH,3FH
INT 21H
JNB V52WE3
JMP V52DWJC
V52WE3: MOV SI,OFFSET BDTZHCQ
MOV DI,OFFSET WJTQ
MOV AX,[SI]
MOV [DI+16H],AX
MOV AX,[SI+2]
MOV [DI+14H],AX
MOV AX,[SI+0EH]
MOV [DI+0EH],AX
MOV AX,[SI+10H]
MOV [DI+10H],AX
MOV AX,WJCD2
MOV DX,WJCD1
MOV CX,0200H
DIV CX
OR DX,DX
JZ V52WE4
INC AX
V52WE4: MOV [DI+02],DX
MOV [DI+04],AX
CALL WJZZS
MOV BX,WJH
MOV AH,40H
MOV CX,0018H
MOV DX,OFFSET WJTQ
INT 21H
JNB V52WJ6
JMP V52XWJC
V52WJ6:
MOV AX,4200H
MOV CX,WJCD1
MOV DX,WJCD2
MOV BX,WJH
INT 21H
JNB V52WJ7
JMP V52CZC
V52WJ7: MOV AH,40H
MOV BX,WJH
MOV DX,0
MOV CX,0
INT 21H
JNB V52WJ8
JMP V52XWJC
V52WJ8: JMP V52END0
;
V52END2: MOV FHM,2
MOV XSAXZC,0
JMP V52ZE1
V52END0: MOV FHM,0
MOV XSAXZC,0
JMP V52ZE1
;
V52OPENC: MOV FHM,1
MOV DX,OFFSET OPENCZF
MOV XSAXZC,DX
JMP V52ZE3
;
V52CZC: MOV DX,OFFSET CZCZF
JMP V52XSL
V52DWJC: MOV DX,OFFSET DWJCZF
JMP V52XSL
V52XWJC: MOV DX,OFFSET XWJCZF
V52XSL: MOV XSAXZC,DX
V52END1: MOV FHM,1
V52ZE1: CALL HFSJRQ
V52ZE2: CALL CLOFIL
V52ZE3: CALL HFSX
V52ZE4: MOV AX,XSAXZC
MOV DX,DS
RET
V52 ENDP
;
SEG_C ENDS
END V52START