ZaIMULT DOC+—IMULT HEX(ùIMULT Z807ÿ ÿ ÿ ÿ :1006F5007CA72001EB44656BED6C544D6863ED6C94 :0607050065691E0019C920 :0000000000 .hd64 org 06f5h ld a,h and a jr nz,cont ;get leading zero into bc ex de,hl ;by assuming only one has it cont: ld b,h ;save h ld h,l ld l,e mlt hl ;multiply low byte by e ld d,h ;d has carry into high byte ld c,l ld l,b ;recover high byte ld h,e ;multiply it mlt hl ld h,l ld l,c ld e,0 add hl,de ret end ;============================================== ;Title: Integer multiply patch for Turbo Pascal ; Version 3.0 running on the HD64180 or ; Z80180 CPUs. Uses the HD64180/Z80180 ; MUL instruction to roughly double the ; speed of integer multiplications. ; ;Date: 27 Dec 88 ; ;By: Rod Pederson ; Seven League Systems ; 200 Hoylake Cr ; Ottawa, Ont. ; K1E 1M2 ; ;Usage: Assemble the included IMULT.Z80 ; into a .HEX file, or use the ; supplied IMULT.HEX file. Place ; the .HEX file and the copy of ; TURBO.COM to be patched on the ; same disk. Using MLOAD.COM, or ; a similar utility, enter ; ; >MLOAD TURBO.COM,IMULT.HEX ; ; The resulting TURBO.COM file will ; include the new integer multiply ; routine in every subsequently ; compiled program. ; ;==============================================