Now downloading free:xerox Double.mesa Mar78
xerox Double.mesa Mar78 free download
Various electronics service manualsInformation about the files in archive: |
Decompress result: | OK |
Extracted files: | 1 |
File name | | Text |
Double.mesa_Mar78.pdf | | DOUBLE.MESA 30-MAR-78 14:47:33 Page 1
-- Double.Mesa Edited by Sandman on August 11. 1977 2:59 PM
DIRECTORY
DoubleDefs: FROM "doubledefs".
InlineDefs: FROM "inlinedefs".
StringDefs: FROM "StringDefs";
DEFINITIONS FROM InlineDefs. DoubleDefs;
Double: PROGRAM IMPORTS StringDefs EXPORTS DoubleDefs
PUBLIC BEGIN
DDivide: PROCEDURE [num. den: LongCARDINAL]
RETURNS [quotient. remainder: LongCARDINAL]
BEGIN
qq. count: CARDINAL;
lTemp: LongCARDINAL;
IF den.highbits = 0 THEN
BEGIN
[quotient.highbits. qq] ~
LongDivMod[[lowbits:num.highbits.highbits:O].den.lowbits];
[quotient.lowbits. remainder.lowbits] ~
LongDivMod[[lowbits:num.lowbits.highbits:qq].den.lowbits];
remainder.highbits ~ 0;
END
ELSE
BEGIN
count ~ 0;
quotient.highbits ~ 0;
lTemp ~ den;
WHILE lTemp.highbits # 0 DO -- normalize
lTemp.lowbits ~
BITSHIFT[lTemp.lowbits.-1] + BITSHIFT[lTemp.highbits.15];
lTemp. |
>> View document online <<
>> Download document <<
Average rating for this file: 0.00 ( from 0 votes)
Similar Service Manuals : - - - - - - -