home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol6n20.zip
/
FIGURES.ZIP
/
FIGURE.3
< prev
next >
Wrap
Text File
|
1987-10-16
|
1KB
|
30 lines
FUNCTION TwiceB(B : byte) : byte;
BEGIN
TwiceB := B*2;
END;
FUNCTION TwiceI(I : Integer) : Integer;
BEGIN
TwiceI := I*2;
END;
TwiceB TwiceI
---------------------------------------------------
55 PUSH BP 55 PUSH BP
8BEC MOV BP,SP 8BEC MOV BP,SP
55 PUSH BP 55 PUSH BP
E90000 JMP 2D77 E90000 JMP 2D99
8A4604 MOV AL,[BP+04] 8B4604 MOV AX,[BP+04]
32E4 XOR AH,AH ;<===
B90200 MOV CX,0002 B90200 MOV CX,0002
F7E9 IMUL CX F7E9 IMUL CX
884606 MOV [BP+06],AL 894606 MOV [BP+06],AX
E90000 JMP 2D87 E90000 JMP 2DA7
8A4606 MOV AL,[BP+06] 8B4606 MOV AX,[BP+06]
32E4 XOR AH,AH ;<===
8BE5 MOV SP,BP 8BE5 MOV SP,BP
5D POP BP 5D POP BP
C20300 RET 0003 C20400 RET 0004
34 bytes 30 bytes