www.pudn.com > Pckv.zip > V68ASM.ASM
PUBLIC V68
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 WJCXZC:WORD,BDDIZC:WORD,XSAXZC:WORD
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,CORPSETZ:BYTE
;
; V68--WOLF-A(F)
; CREATED: 96-6-14
SEG_B SEGMENT PARA PUBLIC 'data'
V68TZMA DB 07FH,03DH,01FH,000H,000H,074H,00FH,0A0H
DB 059H,000H,08DH,0BFH,0B7H,0FFH,049H,0BAH
DB 0FFH,000H
V68JMTZ DW 0
SEG_B ENDS
;
SEG_C SEGMENT PARA PUBLIC 'code'
ASSUME CS:SEG_C , DS:SEG_B
V68 PROC NEAR
V68START:
PUSH DS
POP ES
CLD
CMP V68JMTZ,0FH
JZ V68JMB
MOV SI,OFFSET V68TZMA
MOV CX,0012H
V68JMA: LODSB
INC AL
MOV [SI-1],AL
LOOP V68JMA
MOV V68JMTZ,0FH
V68JMB: CALL BCSX
JNB V68KS1
MOV FHM,1
JMP V68ZE4
V68KS1: CALL GBSX
JNB V68KS2
MOV FHM,1
JMP V68ZE4
V68KS2: CALL WJXOPEN
JNB V68KS3
JMP V68OPENC
V68KS3: CALL BCSJRQ
JNB V68KS4
JMP V68ZE2
V68KS4: MOV DX,OFFSET WJTQ
MOV CX,20H
MOV AH,3FH
MOV BX,WJH
INT 21H
JNB V68KS5
JMP V68DWJC
V68KS5: CMP CORPSETZ,0FH
JZ V68SP0
V68TZ0: MOV SI,OFFSET WJTQ
CMP WJTYPE,'C'
JNZ V68TZ1
CMP BYTE PTR [SI],0EH
JNZ V68TZ2
CMP WORD PTR [SI+1],0558H
JNZ V68TZ2
MOV AX,[SI+3]
SHL AX,1
SHL AX,1
SHL AX,1
SHL AX,1
MOV DX,0
JMP V68SP3
V68TZ1: MOV AX,[SI+8]
ADD AX,[SI+16H]
ROL AX,1
ROL AX,1
ROL AX,1
ROL AX,1
MOV DX,AX
AND DX,000FH
AND AX,0FFF0H
ADD AX,[SI+14H]
ADC DX,0
JMP V68SP3
V68TZ2: JMP V68END2
;
V68SP0: CALL WJZZM
MOV CX,WJCXZC
MOV DI,BDDIZC
CMP DX,0
JNZ V68SP2
CMP CX,4000H
JNB V68SP2
SUB DI,7DH
JNB V68SP1
JMP V68END2
V68SP1: MOV DX,0
MOV AX,DI
JMP V68SP3
V68SP2: SUB AX,4000H
SBB DX,0
ADD AX,DI
ADC DX,0
SUB AX,7DH
SBB DX,0
V68SP3: MOV WJCD1,DX
MOV WJCD2,AX
;
MOV BX,WJH
MOV CX,DX
MOV DX,AX
ADD DX,021DH
ADC CX,0
MOV AX,4200H
INT 21H
JNB V68TZ4
JMP V68CZC
V68TZ4: LEA DX,BDTZHCQ
MOV BX,WJH
MOV CX,12H
MOV AH,3FH
INT 21H
JNB V68TZ5
JMP V68DWJC
V68TZ5: MOV DI,OFFSET BDTZHCQ
MOV SI,OFFSET V68TZMA
MOV CX,12H
REPE CMPSB
JZ V68TZ6
JMP V68END2
V68TZ6: MOV BX,WJH
MOV CX,WJCD1
MOV DX,WJCD2
MOV AX,4200H
INT 21H
JNB V68TZ7
JMP V68CZC
V68TZ7: LEA DX,BDTZHCQ
MOV BX,WJH
MOV CX,80H
MOV AH,3FH
INT 21H
JNB V68TZ8
JMP V68DWJC
V68TZ8: MOV SI,OFFSET BDTZHCQ
MOV AH,[SI+27H]
ADD SI,28H
MOV DI,SI
MOV CX,20H
V68TZ9: LODSB
XOR AL,AH
STOSB
LOOP V68TZ9
;
CMP WJTYPE,'C'
JZ V68WC1
JMP V68WE1
;
V68WC1: CALL WJZZS
MOV DX,OFFSET BDTZHCQ
ADD DX,0028H
MOV CX,20H
MOV AH,40H
INT 21H
JNB V68WC2
JMP V68XWJC
V68WC2: JMP V68WJ1
;
V68WE1: MOV SI,OFFSET BDTZHCQ
MOV DI,OFFSET WJTQ
MOV AX,[SI+52H]
MOV [DI+14H],AX
MOV AX,[SI+54H]
MOV [DI+16H],AX
MOV AX,[SI+56H]
MOV [DI+10H],AX
MOV AX,[SI+58H]
MOV [DI+0EH],AX
;
MOV DX,WJCD1
MOV AX,WJCD2
MOV CX,0200H
DIV CX
OR DX,DX
JZ V68WE2
INC AX
V68WE2: 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 V68WJ1
JMP V68XWJC
V68WJ1: MOV BX,WJH
MOV CX,WJCD1
MOV DX,WJCD2
SUB DX,0010H
SBB CX,0
MOV AX,4200H
INT 21H
JNB V68WJ2
JMP V68CZC
V68WJ2: LEA DX,BDTZHCQ
MOV BX,WJH
MOV CX,10H
MOV AH,3FH
INT 21H
JNB V68WJ3
JMP V68DWJC
V68WJ3: MOV DI,OFFSET BDTZHCQ
MOV SI,OFFSET WJTQ
MOV CX,10H
MOV AL,[SI]
REPNZ SCASB
JB V68WJ4
INC CX
MOV AX,CX
MOV CX,WJCD1
MOV DX,WJCD2
SUB DX,AX
SBB CX,0
JMP V68WJ5
V68WJ4: MOV CX,WJCD1
MOV DX,WJCD2
V68WJ5: MOV AX,4200H
MOV BX,WJH
INT 21H
JNB V68WJ6
JMP V68CZC
V68WJ6: MOV AH,40H
MOV BX,WJH
MOV DX,0
MOV CX,0
INT 21H
JNB V68WJ8
JMP V68XWJC
V68WJ8: JMP V68END0
;
V68END2: MOV FHM,2
MOV XSAXZC,0
JMP V68ZE1
V68END0: MOV FHM,0
MOV XSAXZC,0
JMP V68ZE1
;
V68OPENC: MOV FHM,1
MOV DX,OFFSET OPENCZF
MOV XSAXZC,DX
JMP V68ZE3
;
V68CZC: MOV DX,OFFSET CZCZF
JMP V68XSL
V68DWJC: MOV DX,OFFSET DWJCZF
JMP V68XSL
V68XWJC: MOV DX,OFFSET XWJCZF
V68XSL: MOV XSAXZC,DX
V68END1: MOV FHM,1
V68ZE1: CALL HFSJRQ
V68ZE2: CALL CLOFIL
V68ZE3: CALL HFSX
V68ZE4: MOV AX,XSAXZC
MOV DX,DS
RET
V68 ENDP
;
SEG_C ENDS
END V68START