Win Platinum

home *** CD-ROM | disk | FTP | other *** search

/ Win Platinum / Win Platinum.iso / util / wdasm15 / hellohil.asm < prev next >

Wrap

Assembly Source File | 1993-03-03 | 21.4 KB | 1,113 lines

; HiLevel Syntax Generator Version 2.00 ; Source file: c:\wdasm\hello1.asm TITLE WDASM Example Program .286 .MODEL SMALL OPTION NOM510 OPTION CASEMAP:NONE OPTION PROLOGUE:cPrologue OPTION EPILOGUE:cEpilogue INCLUDE PROLOGUE.INC INCLUDE HILEVEL.INC INCLUDE HELLO.INC EXTERN DefWindowProc:FAR EXTERN GetMessage:FAR EXTERN TranslateMessage:FAR EXTERN FatalExit:FAR EXTERN DispatchMessage:FAR EXTERN GetVersion:FAR EXTERN GetDosEnvironment:FAR EXTERN LocalAlloc:FAR EXTERN LocalRealloc:FAR EXTERN LocalFree:FAR EXTERN FatalAppExit:FAR EXTERN LocalSize:FAR EXTERN UpdateWindow:FAR EXTERN GlobalRealloc:FAR EXTERN GlobalSize:FAR EXTERN InitApp:FAR EXTERN PostQuitMessage:FAR EXTERN LockSegment:FAR EXTERN UnlockSegment:FAR EXTERN WaitEvent:FAR EXTERN GetClientRect:FAR EXTERN GetModuleFileName:FAR EXTERN BeginPaint:FAR EXTERN EndPaint:FAR EXTERN CreateWindow:FAR EXTERN ShowWindow:FAR EXTERN LoadCursor:FAR EXTERN LoadIcon:FAR EXTERN RegisterClass:FAR EXTERN InitTask:FAR EXTERN GetStockObject:FAR EXTERN DrawText:FAR EXTERN Dos3Call:FAR EXTERN __winflags:FAR .CODE Procedure0000 PROC NEAR C ADD BYTE PTR [BX+SI], AL ADD BYTE PTR [BX+SI], AL ADD BYTE PTR [BX+SI], AL ADD BYTE PTR [BX+SI], AL ADD BYTE PTR [BX+SI], AL ADD BYTE PTR [BX+SI], AL ADD BYTE PTR [BX+SI], AL ADD BYTE PTR [BX+SI], AL Procedure0000 ENDP Procedure0010 PROC NEAR PASCAL <NOLOADDS, NOINCBP, FORCEFRAME, CHECKSTACK>, par12:WORD, par10:WORD, par8:WORD, par6:WORD, par4:WORD LOCAL local2:WORD, local4:WORD, local6:WORD, \ local8:WORD, local10:WORD, local12:WORD, local14:WORD, \ local16:WORD, local18:WORD, local20:WORD, local22:WORD, \ local24:WORD, local26:WORD, local28:WORD, local30:WORD, \ local32:WORD, local34:WORD, local36:WORD, local38:WORD, \ local40:WORD, local42:WORD, local44:WORD, local46:WORD .IF (WORD PTR par10 == 0) L0022H: MOV WORD PTR local46, 0003H MOV WORD PTR local44, LROFFSET WNDPROC MOV WORD PTR local42, SEG WNDPROC MOV WORD PTR local40, 0000H MOV WORD PTR local38, 0000H MOV AX, WORD PTR par12 MOV WORD PTR local36, AX cCall <FAR PTR LoadIcon, 0, 0, 7F00H> MOV WORD PTR local34, AX cCall <FAR PTR LoadCursor, 0, 0, 7F00H> MOV WORD PTR local32, AX cCall <FAR PTR GetStockObject, 0> MOV WORD PTR local30, AX MOV WORD PTR local28, 0000H MOV WORD PTR local26, 0000H MOV AX, 0010H MOV DX, DS MOV WORD PTR local24, AX MOV WORD PTR local22, DX LEA AX, WORD PTR local46 MOV DX, SS cCall <FAR PTR RegisterClass, DX, AX> .ENDIF L008AH: MOV AX, 0010H MOV DX, DS PUSH DX PUSH AX MOV AX, 00C2H MOV DX, DS cCall <FAR PTR CreateWindow, DX, AX, 00CFH, 0, 8000H, 8000H, 8000H, 8000H, 0, 0, WORD PTR par12, 0, 0> MOV WORD PTR local2, AX cCall <FAR PTR ShowWindow, AX, WORD PTR par4> cCall <FAR PTR UpdateWindow, WORD PTR local2> L00CDH: LEA AX, WORD PTR local20 MOV DX, SS cCall <FAR PTR GetMessage, DX, AX, 0, 0, 0> .IF (AX) LEA AX, WORD PTR local20 MOV DX, SS cCall <FAR PTR TranslateMessage, DX, AX> LEA AX, WORD PTR local20 MOV DX, SS cCall <FAR PTR DispatchMessage, DX, AX> JMP SHORT L00CDH NOP .ENDIF L00FEH: MOV AX, WORD PTR local16 RET Procedure0010 ENDP Procedure0105 PROC NEAR C NOP Procedure0105 ENDP WNDPROC PROC FAR PASCAL PUBLIC <LOADDS, INCBP, FORCEFRAME, CHECKSTACK>, par14:WORD, par12:WORD, par10:WORD, par8:WORD, par6:WORD LOCAL local2:WORD, local4:WORD, local6:WORD, \ local8:WORD, local10:WORD, local12:WORD, local14:WORD, \ local16:WORD, local18:WORD, local20:WORD, local22:WORD, \ local24:WORD, local26:WORD, local28:WORD, local30:WORD, \ local32:WORD, local34:WORD, local36:WORD, local38:WORD, \ local40:WORD, local42:WORD, local44:WORD PUSH SI PUSH DI MOV SI, WORD PTR par14 MOV AX, WORD PTR par12 JMP NEAR PTR L017AH NOP L0122H: PUSH SI LEA AX, WORD PTR local36 MOV DX, SS cCall <FAR PTR BeginPaint, DX, AX> MOV DI, AX PUSH SI LEA AX, WORD PTR local44 MOV DX, SS cCall <FAR PTR GetClientRect, DX, AX> PUSH DI MOV AX, 00DFH MOV DX, DS PUSH DX PUSH AX PUSH -1 LEA AX, WORD PTR local44 MOV DX, SS cCall <FAR PTR DrawText, DX, AX, 37> PUSH SI LEA AX, WORD PTR local36 MOV DX, SS cCall <FAR PTR EndPaint, DX, AX> XOR AX, AX XOR DX, DX JMP SHORT L019FH NOP L016AH: cCall <FAR PTR PostQuitMessage, 0> XOR AX, AX XOR DX, DX JMP SHORT L019FH NOP JMP SHORT L0187H L017AH: CMP AX, 0002H JZ L016AH .IF (AX == 000FH) JMP NEAR PTR L0122H .ENDIF L0187H: cCall <FAR PTR DefWindowProc, SI, WORD PTR par12, WORD PTR par10, WORD PTR par8, WORD PTR par6> JMP SHORT L019FH NOP MOV WORD PTR par14, SI L019FH: POP DI POP SI RET WNDPROC ENDP L01ACH DW LROFFSET __winflags Procedure01AC PROC NEAR C L01AEH: MOV AL, -1 cCall <NEAR PTR Procedure034E, AX> L01B4H:: XOR BP, BP cCall <FAR PTR InitTask, BP> OR AX, AX JZ L01AEH MOV WORD PTR D0064H, ES ADD CX, 0100H JB L01AEH MOV WORD PTR D002EH, CX MOV WORD PTR D0030H, SI MOV WORD PTR D0032H, DI MOV WORD PTR D0034H, BX MOV WORD PTR D0036H, ES MOV WORD PTR D0038H, DX CALL FAR PTR GetVersion MOV WORD PTR D0066H, AX MOV AH, 48 .IF (WORD PTR CS:L01ACH & SWORD PTR 0001H) CALL FAR PTR Dos3Call JMP SHORT L01FEH .ENDIF L01FCH: INT 0021H L01FEH: MOV WORD PTR D0068H, AX .IF ( !(WORD PTR CS:L01ACH & 0001H)) MOV AL, 0 MOV BYTE PTR D006BH, AL .ENDIF L020FH: XOR AX, AX cCall <FAR PTR WaitEvent, AX> cCall <FAR PTR InitApp, WORD PTR D0032H> OR AX, AX JZ L01AEH CALL NEAR PTR Procedure0268 CALL NEAR PTR Procedure047E CALL NEAR PTR Procedure05FC CALL NEAR PTR Procedure085C cCall <NEAR PTR Procedure024C, WORD PTR D00A0H, WORD PTR D009EH, WORD PTR D009CH> ADD SP, 6 cCall <NEAR PTR Procedure0347, AX> MOV AX, 0015H JMP NEAR PTR L0683H Procedure01AC ENDP ; Missing MOV SP,BP and POP BP in epilogue. Procedure024C PROC NEAR C PUSH BP MOV BP, SP cCall <NEAR PTR Procedure0010, WORD PTR D0032H, WORD PTR D0030H, WORD PTR D0036H, WORD PTR D0034H, WORD PTR D0038H> POP BP RET Procedure024C ENDP Procedure0268 PROC NEAR C MOV AX, 3500H .IF (WORD PTR CS:L01ACH & SWORD PTR 0001H) CALL FAR PTR Dos3Call JMP SHORT L027DH .ENDIF L027BH: INT 0021H L027DH: MOV WORD PTR D0050H, BX MOV WORD PTR D0052H, ES PUSH CS POP DS MOV AX, 2500H MOV DX, 067EH .IF (WORD PTR CS:L01ACH & SWORD PTR 0001H) CALL FAR PTR Dos3Call JMP SHORT L029FH .ENDIF L029DH: INT 0021H L029FH: PUSH SS POP DS MOV CX, WORD PTR D00B8H JCXZ L02D0H MOV ES, WORD PTR D0064H MOV SI, WORD PTR ES:D002CH MOV AX, WORD PTR D00BAH MOV DX, WORD PTR D00BCH XOR BX, BX CALL DWORD PTR D00B6H JAE L02C2H JMP NEAR PTR L0424H L02C2H: MOV AX, WORD PTR D00BEH MOV DX, WORD PTR D00C0H MOV BX, 0003H CALL DWORD PTR D00B6H L02D0H: MOV ES, WORD PTR D0064H MOV CX, WORD PTR ES:D002CH JCXZ L0319H MOV ES, CX XOR DI, DI L02DFH: .IF (BYTE PTR ES:[DI] != 0) MOV CX, 000DH MOV SI, 0042H REPE CMPSB JZ L02FAH MOV CX, 7FFFH XOR AX, AX REPNE SCASB JNZ L0319H JMP SHORT L02DFH L02FAH: PUSH ES PUSH DS POP ES POP DS MOV SI, DI MOV DI, 0074H MOV CL, 4 L0305H: LODSB SUB AL, 65 JB L0317H SHL AL, CL XCHG DX, AX LODSB SUB AL, 65 JB L0317H OR AL, DL STOSB JMP SHORT L0305H L0317H: PUSH SS POP DS .ENDIF L0319H: MOV SI, 00C2H MOV DI, 00C2H CALL NEAR PTR Procedure03EB MOV SI, 00C2H MOV DI, 00C2H CALL NEAR PTR Procedure03FA MOV SI, 00C2H MOV DI, 00C2H CALL NEAR PTR Procedure03EB MOV SI, 00C2H MOV DI, 00C2H CALL NEAR PTR Procedure03EB MOV SI, 00C2H MOV DI, 00C2H CALL NEAR PTR Procedure03FA RET Procedure0268 ENDP ; Missing MOV SP,BP and POP BP in epilogue. Procedure0347 PROC NEAR C PUSH BP MOV BP, SP XOR CX, CX JMP SHORT L0368H Procedure0347 ENDP ; Missing MOV SP,BP and POP BP in epilogue. Procedure034E PROC NEAR C PUSH BP MOV BP, SP MOV CX, 0001H JMP SHORT L0368H PUSH BP MOV BP, SP PUSH SI PUSH DI MOV CX, 0100H JMP SHORT L0368H PUSH BP MOV BP, SP PUSH SI PUSH DI MOV CX, 0101H L0368H:: MOV BYTE PTR D00A9H, CH PUSH CX OR CL, CL JNZ L038DH MOV SI, 024CH MOV DI, 024CH CALL NEAR PTR Procedure03EB MOV SI, 00C2H MOV DI, 00C2H CALL NEAR PTR Procedure03EB MOV SI, WORD PTR [BP+4] cCall <NEAR PTR Procedure085C, SI> ADD SP, 2 L038DH: MOV SI, 00C2H MOV DI, 00C2H CALL NEAR PTR Procedure03EB MOV SI, 00C2H MOV DI, 00C2H CALL NEAR PTR Procedure03FA CALL NEAR PTR Procedure03C2 POP AX OR AH, AH JNZ L03BEH MOV AX, WORD PTR [BP+4] MOV AH, 76 .IF (WORD PTR CS:L01ACH & SWORD PTR 0001H) CALL FAR PTR Dos3Call JMP SHORT L03BEH .ENDIF L03BCH: INT 0021H L03BEH: POP DI POP SI POP BP RET Procedure034E ENDP Procedure03C2 PROC NEAR C MOV CX, WORD PTR D00B8H JCXZ L03CFH MOV BX, 0002H CALL DWORD PTR D00B6H L03CFH: PUSH DS LDS DX, DWORD PTR D0050H MOV AX, 2500H .IF (WORD PTR CS:L01ACH & SWORD PTR 0001H) CALL FAR PTR Dos3Call JMP SHORT L03E9H .ENDIF L03E7H: INT 0021H L03E9H: POP DS RET Procedure03C2 ENDP Procedure03EB PROC NEAR C L03EBH: .IF (SI < DI) DEC DI DEC DI MOV CX, WORD PTR [DI] JCXZ L03EBH CALL CX JMP SHORT L03EBH .ENDIF L03F9H: RET Procedure03EB ENDP Procedure03FA PROC NEAR C L03FAH: .IF (SI < DI) SUB DI, 4 MOV AX, WORD PTR [DI] OR AX, WORD PTR [DI+2] JZ L03FAH CALL DWORD PTR [DI] JMP SHORT L03FAH .ENDIF L040CH: RET Procedure03FA ENDP L040DH DB 0000H Procedure040D PROC NEAR C Procedure040D ENDP Procedure040E PROC NEAR C <NOLOADDS, NOINCBP, FORCEFRAME, NOCHECKSTACK> MOV AX, 00FCH cCall <NEAR PTR Procedure06ED, AX> MOV AX, 00FFH cCall <NEAR PTR Procedure06ED, AX> RET Procedure040E ENDP L0423H DB 0000H Procedure0423 PROC NEAR C L0424H:: MOV AX, 0002H JMP NEAR PTR L0683H Procedure0423 ENDP _aNchkstk PROC NEAR C POP BX INC AX AND AL, -2 SUB AX, SP JAE L0477H NEG AX CMP WORD PTR SS:D000AH, AX JA L0477H .IF (WORD PTR SS:D000CH > AX) MOV WORD PTR D000CH, AX .ENDIF L0446H: MOV SP, AX JMP BX POP BX POP DX INC AX AND AL, -2 SUB AX, SP JAE L046CH NEG AX CMP WORD PTR SS:D000AH, AX JA L046CH .IF (WORD PTR SS:D000CH > AX) MOV WORD PTR D000CH, AX .ENDIF L0467H: MOV SP, AX PUSH DX PUSH BX RETF _aNchkstk ENDP L047DH DB 0000H Procedure046C PROC NEAR C L046CH:: MOV DX, WORD PTR SS:D00ACH INC DX JZ L0477H JMP WORD PTR D00ACH L0477H:: MOV AX, 0000H JMP NEAR PTR L0683H Procedure046C ENDP L05FBH DB 0000H Procedure047E PROC NEAR C POP WORD PTR D00AEH MOV AX, 0104H MOV CX, 0008H CALL NEAR PTR Procedure071E MOV WORD PTR D00A4H, DX MOV WORD PTR D00A2H, AX PUSH DX PUSH AX PUSH WORD PTR D0032H PUSH DX PUSH AX MOV AX, 0104H cCall <FAR PTR GetModuleFileName, AX> POP BX POP ES ADD BX, AX MOV BYTE PTR ES:[BX], 0 MOV DX, 0001H MOV DI, 0001H MOV SI, 0081H MOV DS, WORD PTR D0064H L04B8H: LODSB CMP AL, 32 JZ L04B8H CMP AL, 9 JZ L04B8H .IF (AL != 13) OR AL, AL JZ L0534H INC DI L04CAH: DEC SI L04CBH: LODSB CMP AL, 32 JZ L04B8H CMP AL, 9 JZ L04B8H CMP AL, 13 JZ L0534H OR AL, AL JZ L0534H .IF (AL != 34) .IF (AL != 92) INC DX JMP SHORT L04CBH .ENDIF L04E7H: XOR CX, CX L04E9H: INC CX LODSB CMP AL, 92 JZ L04E9H .IF (AL != 34) ADD DX, CX JMP SHORT L04CAH .ENDIF L04F7H: MOV AX, CX SHR CX, 1 ADC DX, CX TEST AL, 1 JNZ L04CBH JMP SHORT L0504H L0503H: DEC SI .ENDIF L0504H: LODSB CMP AL, 13 JZ L0534H OR AL, AL JZ L0534H CMP AL, 34 JZ L04CBH .IF (AL != 92) INC DX JMP SHORT L0504H .ENDIF L0518H: XOR CX, CX L051AH: INC CX LODSB CMP AL, 92 JZ L051AH .IF (AL != 34) ADD DX, CX JMP SHORT L0503H .ENDIF L0528H: MOV AX, CX SHR CX, 1 ADC DX, CX TEST AL, 1 JNZ L0504H JMP SHORT L04CBH .ENDIF L0534H: PUSH SS POP DS MOV WORD PTR D009CH, DI ADD DX, DI INC DI SHL DI, 1 ADD DX, DI INC DX AND DL, -2 SUB SP, DX MOV AX, SP MOV WORD PTR D009EH, AX MOV BX, AX ADD DI, BX PUSH SS POP ES LDS SI, DWORD PTR D00A2H MOV WORD PTR SS:[BX], SI INC BX INC BX MOV DS, WORD PTR SS:D0064H MOV SI, 0081H JMP SHORT L0568H L0565H: XOR AX, AX STOSB L0568H: LODSB CMP AL, 32 JZ L0568H CMP AL, 9 JZ L0568H .IF (AL != 13) OR AL, AL JZ L05F1H MOV WORD PTR SS:[BX], DI INC BX INC BX L057EH: DEC SI L057FH: LODSB CMP AL, 32 JZ L0565H CMP AL, 9 JZ L0565H .IF (AL != 13) OR AL, AL JZ L05EEH .IF (AL != 34) .IF (AL != 92) STOSB JMP SHORT L057FH .ENDIF L059BH: XOR CX, CX L059DH: INC CX LODSB CMP AL, 92 JZ L059DH .IF (AL != 34) MOV AL, 92 REP STOSB JMP SHORT L057EH .ENDIF L05ADH: MOV AL, 92 SHR CX, 1 REP STOSB JAE L05BBH MOV AL, 34 STOSB JMP SHORT L057FH L05BAH: DEC SI .ENDIF L05BBH: LODSB CMP AL, 13 JZ L05EEH OR AL, AL JZ L05EEH CMP AL, 34 JZ L057FH .IF (AL != 92) STOSB JMP SHORT L05BBH .ENDIF L05CFH: XOR CX, CX L05D1H: INC CX LODSB CMP AL, 92 JZ L05D1H .IF (AL != 34) MOV AL, 92 REP STOSB JMP SHORT L05BAH .ENDIF L05E1H: MOV AL, 92 SHR CX, 1 REP STOSB JAE L057FH MOV AL, 34 STOSB JMP SHORT L05BBH .ENDIF L05EEH: XOR AX, AX STOSB .ENDIF L05F1H: PUSH SS POP DS MOV WORD PTR [BX], 0000H JMP WORD PTR D00AEH Procedure047E ENDP ; Missing MOV SP,BP and POP BP in epilogue. Procedure05FC PROC NEAR C PUSH BP MOV BP, SP cCall <FAR PTR GetDosEnvironment, DS> OR AX, AX JZ L060BH MOV DX, AX L060BH: MOV BX, DX MOV ES, DX XOR AX, AX XOR SI, SI XOR DI, DI MOV CX, 0FFFFH OR BX, BX JZ L062AH .IF (BYTE PTR ES:D0000H != 0) L0624H: REPNE SCASB INC SI SCASB JNZ L0624H .ENDIF L062AH: MOV AX, DI INC AX AND AL, -2 INC SI MOV DI, SI SHL SI, 1 MOV CX, 0009H CALL NEAR PTR Procedure071E PUSH AX MOV AX, SI CALL NEAR PTR Procedure071E MOV WORD PTR D00A0H, AX PUSH ES PUSH DS POP ES POP DS MOV CX, DI MOV BX, AX XOR SI, SI POP DI DEC CX JCXZ L0677H L0651H: MOV AX, WORD PTR [SI] .IF (AX == WORD PTR SS:D0042H) PUSH CX PUSH SI PUSH DI MOV DI, 0042H MOV CX, 0006H REPE CMPSW POP DI POP SI POP CX JZ L066FH .ENDIF L066AH: MOV WORD PTR ES:[BX], DI INC BX INC BX L066FH: LODSB STOSB OR AL, AL JNZ L066FH LOOP L0651H L0677H: MOV WORD PTR ES:[BX], CX POP DS POP BP RET Procedure05FC ENDP L067DH DB 0000H Procedure067D PROC NEAR C PUSH SS POP DS MOV AX, 0003H L0683H:: cCall <NEAR PTR Procedure040E, AX, AX> CALL NEAR PTR Procedure06ED CALL NEAR PTR Procedure06C2 XOR BX, BX OR AX, AX JZ L06B1H MOV DI, AX MOV AX, 0009H .IF (BYTE PTR [DI] == 77) MOV AX, 000FH .ENDIF L06A1H: ADD DI, AX PUSH DI PUSH DS POP ES MOV AL, 13 MOV CX, 0022H REPNE SCASB MOV BYTE PTR [DI-1], BL POP AX L06B1H: cCall <FAR PTR FatalAppExit, BX, DS, AX> MOV AX, 00FFH cCall <FAR PTR FatalExit, AX> Procedure067D ENDP Procedure06C2 PROC NEAR PASCAL <NOLOADDS, NOINCBP, FORCEFRAME, NOCHECKSTACK>, par4:WORD PUSH SI PUSH DI PUSH DS POP ES MOV DX, WORD PTR par4 MOV SI, 0102H L06CFH: LODSW .IF (AX != DX) INC AX XCHG SI, AX JZ L06E4H XCHG DI, AX XOR AX, AX MOV CX, 0FFFFH REPNE SCASB MOV SI, DI JMP SHORT L06CFH .ENDIF L06E4H: XCHG SI, AX POP DI POP SI RET Procedure06C2 ENDP Procedure06ED PROC NEAR PASCAL <NOLOADDS, NOINCBP, FORCEFRAME, NOCHECKSTACK>, par4:WORD PUSH DI .IF (WORD PTR D00B2H != 0) cCall <NEAR PTR Procedure06C2, WORD PTR par4> OR AX, AX JZ L0716H XCHG DX, AX MOV DI, DX XOR AX, AX MOV CX, 0FFFFH REPNE SCASB NOT CX DEC CX MOV BX, WORD PTR D006EH CALL NEAR PTR Procedure0861 .ENDIF L0716H: POP DI RET Procedure06ED ENDP L071DH DB 0000H Procedure071D PROC NEAR C Procedure071D ENDP Procedure071E PROC NEAR C <NOLOADDS, NOINCBP, FORCEFRAME, NOCHECKSTACK> PUSH BX PUSH ES PUSH CX MOV CX, 1000H XCHG CX, WORD PTR D00B0H cCall <NEAR PTR Procedure0868, CX, AX> POP BX POP WORD PTR D00B0H POP CX MOV DX, DS OR AX, AX JZ L0740H POP ES POP BX JMP SHORT L0745H L0740H: MOV AX, CX JMP NEAR PTR L0683H L0745H: RET Procedure071E ENDP L0749H DB 0000H Procedure0749 PROC NEAR C PUSH CX PUSH DI .IF (BYTE PTR [BX+2] & SBYTE PTR 1) CALL NEAR PTR Procedure083C MOV DI, SI MOV AX, WORD PTR [SI] .IF (AL & SBYTE PTR 1) SUB CX, AX DEC CX .ENDIF L0760H: INC CX INC CX MOV SI, WORD PTR [BX+4] OR SI, SI JZ L07B5H ADD CX, SI JAE L0776H XOR AX, AX MOV DX, 0FFF0H JCXZ L07A4H JMP SHORT L07B5H L0776H: PUSH SS POP ES MOV AX, WORD PTR D00B0H .IF (AX != 1000H) MOV DX, 8000H L0784H: .IF (DX >= AX) SHR DX, 1 JNZ L0784H JMP SHORT L07B0H .ENDIF L078EH: CMP DX, 8 JB L07B0H SHL DX, 1 MOV AX, DX .ENDIF L0797H: DEC AX MOV DX, AX ADD AX, CX JAE L07A0H XOR AX, AX L07A0H: NOT DX AND AX, DX L07A4H: cCall <NEAR PTR Procedure07D6, DX> POP DX JAE L07B8H CMP DX, -16 JZ L07B5H L07B0H: MOV AX, 0010H JMP SHORT L0797H .ENDIF L07B5H: STC JMP SHORT L07D3H L07B8H: MOV DX, AX SUB DX, WORD PTR ES:[BX+4] MOV WORD PTR [BX+4], AX MOV WORD PTR [BX+10], DI MOV SI, WORD PTR [BX+12] DEC DX MOV WORD PTR [SI], DX INC DX ADD SI, DX MOV WORD PTR [SI], 0FFFEH MOV WORD PTR [BX+12], SI L07D3H: POP DI POP CX RET Procedure0749 ENDP Procedure07D6 PROC NEAR C MOV DX, AX .IF ( !(BYTE PTR [BX+2] & 4)) L07E0H: PUSH DX PUSH CX PUSH BX MOV SI, WORD PTR [BX+6] MOV BX, WORD PTR CS:L01ACH XOR CX, CX OR DX, DX JNZ L07F8H TEST BX, 0010H JNZ L0837H INC CX L07F8H: MOV AX, 0022H .IF ( !(BX & 0001H)) MOV AX, 0020H .ENDIF L0804H: cCall <FAR PTR GlobalRealloc, SI, CX, DX, AX> OR AX, AX JZ L0837H CMP AX, SI JNZ L0831H cCall <FAR PTR GlobalSize, SI> OR DX, AX JZ L0831H POP BX POP CX POP DX MOV AX, DX .IF (BYTE PTR [BX+2] & SBYTE PTR 4) DEC DX MOV WORD PTR [BX-2], DX .ENDIF L082EH: CLC JMP SHORT L083BH .ENDIF L0831H: MOV AX, 0012H JMP NEAR PTR L0683H L0837H: POP BX POP CX POP DX STC L083BH: RET Procedure07D6 ENDP Procedure083C PROC NEAR C PUSH DI MOV SI, WORD PTR [BX+10] .IF (SI == WORD PTR [BX+12]) MOV SI, WORD PTR [BX+8] .ENDIF L0848H: LODSW .IF (AX != -2) MOV DI, SI AND AL, -2 ADD SI, AX JMP SHORT L0848H .ENDIF L0856H: DEC DI DEC DI MOV SI, DI POP DI RET Procedure083C ENDP ; Missing MOV SP,BP and POP BP in epilogue. Procedure085C PROC NEAR C PUSH BP MOV BP, SP POP BP RET Procedure085C ENDP L0867H DB 0000H Procedure0861 PROC NEAR C MOV AX, 0014H JMP NEAR PTR L0683H Procedure0861 ENDP Procedure0868 PROC NEAR C <NOLOADDS, NOINCBP, FORCEFRAME, NOCHECKSTACK>, par4:WORD LOCAL local2:WORD, local4:WORD MOV AX, 0FFFFH cCall <FAR PTR LockSegment, AX> MOV AX, 0020H PUSH AX .IF (WORD PTR par4 != 0) MOV AX, WORD PTR par4 JMP SHORT L0889H .ENDIF L0886H: MOV AX, 0001H L0889H: cCall <FAR PTR LocalAlloc, AX> MOV WORD PTR local2, AX MOV AX, 0FFFFH cCall <FAR PTR UnlockSegment, AX> MOV AX, WORD PTR local2 RET Procedure0868 ENDP Procedure08A2 PROC NEAR C <NOLOADDS, NOINCBP, FORCEFRAME, NOCHECKSTACK>, par4:WORD PUSH WORD PTR par4 CALL FAR PTR LocalFree RET Procedure08A2 ENDP Procedure08B1 PROC NEAR C <NOLOADDS, NOINCBP, FORCEFRAME, NOCHECKSTACK>, par6:WORD, par4:WORD LOCAL local2:WORD, local4:WORD .IF (WORD PTR par4 == 0) cCall <NEAR PTR Procedure0868, WORD PTR par6> ADD SP, 2 JMP SHORT L08FEH NOP .ENDIF L08CAH: MOV AX, 0FFFFH cCall <FAR PTR LockSegment, AX> PUSH WORD PTR par4 .IF (WORD PTR par6 != 0) MOV AX, WORD PTR par6 JMP SHORT L08E5H NOP .ENDIF L08E2H: MOV AX, 0001H L08E5H: PUSH AX MOV AX, 0062H cCall <FAR PTR LocalRealloc, AX> MOV WORD PTR local2, AX MOV AX, 0FFFFH cCall <FAR PTR UnlockSegment, AX> MOV AX, WORD PTR local2 L08FEH: RET Procedure08B1 ENDP Procedure0902 PROC NEAR C <NOLOADDS, NOINCBP, FORCEFRAME, NOCHECKSTACK>, par4:WORD PUSH WORD PTR par4 CALL FAR PTR LocalSize RET Procedure0902 ENDP Procedure0911 PROC NEAR C NOP Procedure0911 ENDP END L01B4H