datasheet,schematic,electronic components, service manual,repairs,tv,monitor,service menu,pcb design
Schematics 4 Free
Service manuals, schematics, documentation, programs, electronics, hobby ....


registersend pass
Bulgarian - schematics repairs service manuals SearchBrowseUploadWanted

Now downloading free:xerox Double.mesa Mar78

xerox Double.mesa Mar78 free download

Various electronics service manuals

File information:
File name:Double.mesa_Mar78.pdf
[preview Double.mesa Mar78]
Size:97 kB
Extension:pdf
Mfg:xerox
Model:Double.mesa Mar78 🔎
Original:Double.mesa Mar78 🔎
Descr: xerox mesa 3.0_1977 listing Double.mesa_Mar78.pdf
Group:Electronics > Other
Uploaded:22-02-2020
User:Anonymous
Multipart:No multipart

Information about the files in archive:
Decompress result:OK
Extracted files:1
File name 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.highbits ~ BITSHIFT[lTemp.highbits.-1]; count ~ count + 1; ENDLOOP; qq ~ LongDiv[num.1Temp.lowbits]; -- trial quotient qq ~ BITSHIFT[qq.-count]; lTemp ~ LongMult[den.lowbits.qq]; -- multiply by trial quotient lTemp.highbits ~ lTemp.highbits + den.highbits*qq; UNTIL DCompare[lTemp. num] # greater DO -- decrease quotient until product is small enough lTemp ~ DSub[lTemp.den]; qq ~ qq - 1; ENDLOOP; quotient.lowbits ~ qq; remainder ~ DSub[num.1Temp]; END; RETURN END; DMultiply: PROCEDURE [a.b: LongCARDINAL] RETURNS [product: LongCARDINAL] = BEGIN product ~ LongMult[a.lowbits. b.lowbits]; product.highbits ~ product.highbits + a.lowbits*b.highbits + a.highbits*b.lowbits; RETURN END; DAdd: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL] BEGIN t: CARDINAL = a.lowbits; a. lowbits ~ a.lowbits + b.lowbits; a.highbits ~ a.highbits + b.highbits; IF a.lowbits < t THEN a.highbits ~ a.highbits+1; RETURN[a] END; DSub: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL] BEGIN t: CARDINAL = a.lowbits; a. lowbits ~ a.lowbits - b.lowbits; a.highbits ~ a.highbits - b.highbits; IF a.lowbits > t THEN a.highbits ~ a.highbits-1; RETURN[a] DOUBLE. MESA 30-MAR-78 14:47:33 Page 2 END; DNeg: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL] = BEGIN IF (a.lowbits ~ -a.lowbits) = 0 THEN a.highbits ~ -a.highbits ELSE a.highbits ~ BITNOT[a.highbits]; RETURN[a]; END; DIne: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL] BEGIN IF (a.lowbits ~ a.lowbits + 1) = 0 THEN a.highbits ~ a.highbits + 1; RETURN[a] END; DCompare: PROCEDURE [a,b: LongCARDINAL] RETURNS [Comparison] BEGIN IF a = b THEN RETURN[equal]; RETURN[SELECT a.highbits FROM < b.highbits =) less, ) b.highbits =) greater, ENDCASE =) IF a.10wbits < b.10wbits THEN less ELSE greater] END; AppendDouble: PROCEDURE [s: STRING, a: LongCARDINAL]

>> View document online <<



>> Download document << eServiceInfo Context Help



Was this file useful ? Share Your thoughts with the other users.

User ratings and reviews for this file:

DateUserRatingComment

Average rating for this file: 0.00 ( from 0 votes)


Similar Service Manuals :
xerox 01a INTRO - xerox 01b BKPLN - xerox 03 MEAT - xerox 04 DIM - xerox 05b KBD - xerox 06 CRAM2K - xerox 06 CRAM3K -
 FB -  Links -  Info / Contacts -  Forum -   Last SM download : Marantz CD32, CD42, CD52

script execution: 0.02 s