Schematic · c. 1969
HP 9100B Microprogram Flowcharts
The algorithmic-state-machine flowcharts of the 9100B's microprogram: the nearest thing to its ROM listing in public.
Schematic · c. 1969
The algorithmic-state-machine flowcharts of the 9100B's microprogram: the nearest thing to its ROM listing in public.
CONTROL LOGIC V IF ISC4+NRUN OCCUR, J60,Jb6], J62 ace $ ice J63, SEND CONTROL T0°T FEOM TQL TREY a we Fe deen H———~ QUALIFIER MET (LQAM) ° -——— |NHIGIT iF QUAL. NOT MET (TIGN) GUINHIBIT IF QUAL KET (TQM) : : YRUN 100, % XX TO CALL. SPECIAL PLOGRAMS, SELECT EXECUTE ALL INSTRUCTIONS IN SPECIAL PEDGRAM CALL, DONT SELECT ADD&ESS LINES AS TYPE OF . F62 SET BY INSTEXXTION LOGIC ILQM, [email protected] GUARANTEE THAT A PROGRAM IS ENCODED IN QUALIFIE2 LINES, TQS3,IQS2,IQSI. i Fol SET FROM ROI S/A QUALIFIER WILL BS MET (TQS7, LQC5). FLO SET FROM ROM E iis LS SELECT QUALIFIER LINES TO DEFINE TYPE OF SPECIAL FRO6HIM. NOTE THAT BY SETTING THE 3 ae At ‘ 100 100 100 % 000 100 ¥O loo fon foo Yul LSB OF “A" oR TY” AND “S” AS COMPLEMENTS OF EACH OTHER NG GATING 1S IT ISAL,ISIL, DY TSDi,ISiL B ISAL,ISIL D F TSIL. ERCY q REQUIRED TO DIFFERENTIATE BETWEEN QUALIFIEZS AND SPECIAL PEOG ELAN IDENT/FIELS, Isc3 ISPL,IRCY ISPL IRCY ISPL, LRcy Ices , ’ jie, KS OCCUkIMG OUT OF YA" 02 “Y" HAVE NO EF FEET UnTe EXECUTES iN ~S! 162’ Lees eos Tee, 1c62,1C65 ICs : Sree . ! 100 Yoo: 100 J O10 100 Y/Ol sooo} on F! oot [no ou Po TSoLIs, |B Tso, 15PL|¢ TSAL,I5PL © TSPL. TSO TROM, ISAN, |N IRDOM, LCeI)P ISPL, IRCY IRCY I26/ IRCY, 1060 ' LCol, L062, 6 1C&O, 1¢65 1065 Tee2, ARC Tag Ices Les2, L663 000 Joot ool fin & 1Ol_ [OOo Fe a1of C°o = TsQu, Tey |Y NOTE : Ista i me nega | PERFORMS Same TCG Severe R [uayigsi RESETS FeO , FUNCTION AS “AT | ye (I) 1QS2 RESETS FOI j EXCEPT /T DOES » z (53)1QS3_ RESETS Fez ) Wor TEST FOR Coot Il (55)IQS4_ RESETS FOZ CONDITIONAL HALT. i TSALISPL, |S (S7I@S5 Resers FO3 ' ISQL,IRCY (59)IQSe RESETS FOL f Es 1 C63, 164,5e65 1 A f DIT, oo tou ~ ; A COMPLEMENT SIGN DISPLAY DECODE TRANSFER VECTOR FAST ADD pe ea cON et ——— =I Icés CORDIC STEP | | + PFF= 00122 VIA | AUGEND —> BFF OLD; SET CHARACTER Ww \\ £ INITIALIZE iy ! im MYLO CoNTNVE 001 Yooo 1 Yooo m fore ieee : Qs6, ASE, QS4 IK wr Nae rt We ees = ol s ITBA, ICei, |DI INTO ROM ADDR, TI Ai ADODEND oi lo Tere TSct 1c60 NI2 (ESC, £60 TROR GIVES Jb3,K65 (Tepm,rsan | K TROM 7 TCO ICE! | any STATE 70 GME Ieb2 1063 lies apes Aue ITES PUTS ADDEND IN foi | our F52>0, F4ls Itoi C63 Keo Ieo3, 1c64 =| REA STORE 4 READ TR. Bea Ises wy F402] | eez, Tees 1064, 1665 tees . Tees, 1c65 bie ed tae 4 qocK TIMES BETWEEN | T¢65 as ba eine oo ee SF. ITSB SETS BFF =I T TURN SENSE AMPL. ON EpMsS OF $2 . A ioacsarkel oll fa coo Y 110 " —l Kid, IBS EA KES 101 } OO} Orn O10 i Ho 0 | oul BOE REDE INES NIB TRO ,ISC# ]S2 D3 IRDM, ISAN]AZ Tsce¢ o/ves BDM, _]NB 110_} 000 : is = / A fae Alisacizee3 | pen Poors arr eb, 1c6z [TSCA DIODE CONN. Tees | START UP STATE 163, 1065 oan ae ie am 3 ai Hog, ee SieReiea? 162, 1063 tee zceg |TYTM GIVES KB4,K44 Tees, Eee* |ro 1cSF. RDM LST pani ern ee SINGLE STEP PART OF A STOLE Cheeky 2 O, Fes=1. O° « BeA® 110} 101 Hof NO Fi0 : INTIALIZ® eB cer 1 N9 IWT™ Tcl |s3 TSA, TSCL]|D2 RCo Fo3, Foz TC63, C64 \ Icel, Icez | sToee RESULTS Brake READ CHARACTER 1065 201 VSTAWT Iced Te45 |pack INTO CORE ZECCA) Cope ITO BFF [ pean BFF= INDIRECT ADDRESS 1 101 i= me 01 f Ool wpe: OR he ieittrmcinninngnatinecincmmiats. Is nee ar NIO OF CONSTANT [EBA Tce0 100 TTMS, 1060 |D4 rier |*e 2 ' ICol, Ie DIRECTOR | ICo# ChEetsmr ie Tcol, Wes io (001 ; Tee, ree3 ees BECEINE INFO TSCL ERY, ]Z Notes 7 oe i ! i; IHI8, Ee START UP CretvIT FORCES CONTEOL ng CouniTS.SeECEEOIN on foo TCb0, 1ce4, Kt ' : ‘ re ISCI+IRDR TO SET BFF TO ALL 1's [tecutceo ] NIV READ INDIGECT Tec, Leey |CI LOGIC TO D3. AUGEND VALUE TO ZELO J34,F23-FO3,F22—> FO2 =| TCot, C3 ADDRESS = Z=|IH/B, ZC63 RW COMPLIMENTS F52 Ces” RIA TS F4l=l. SE ! ccofo1o | 101 READ Tepm, ISAN Teo C4 Ilb2, Ice Peas, CONTER | TCP? ess O10 Tou a, To. ITs ,IWTM | ICbl, 1065 SET UP & LSB OF On J 100 O01 | ovo wale ks IIBF Aa NExT Coed STEP READ CONSTALT Isct 1ety |ce TTBS, 1Céi Co FROM BOM IHIPS, IcbS 1cee, TCo4 eee RCB INCREMENT i it ADDEND TW N4 CLERE DECENINE iy Yoo a. 110 | O10 cs DECREMENT " sels are paaae 20M Tel IDBF [063 SFE BY ICb62, 1663 Teed Iles ONE COUNT 010 | 100 { "EAD Nt "OCDIC Eee ee Tset FHips |NS oro Foro 101| 100 ISCL SUMMARY CHART STEP Flom CONSTRUT STOeE CONSTANT cs 4 TRey, Ice4 | RCB Iw™ , I¢6/ I7S6, IC6) LINES. INTO BFF : : Ieez 1063 S/A NO 33 zs | 27 | si | 2a | 2) | 23 162, [eos Teed CONSTANT LINE | IcoG] 1¢05|TCo4 | cos] Lcoz| Lco1| Tc0o END OF coRDIC 1 MODE SEQUENCE no 100 BFF= TRANSFER 1sc2 sed RIA CINDIGECT Abe} FO2 | For | FOO} Fs | Fiz | Fu | FiO TCo3 RTV (TRANSFER vecT} FO2 | FOI | FOO | FIs | FIZ | Foe | Fos 001 Yoo ROB (CONSTANT->BFF F2s | Fee | Fzs | Fez | Fei | F2z0 ITBA,TC6O [NT TMS, £C6O |N& 1Cb2, 1ce3 ILE, Itot ENTRIES SHOW WHICH FLIP-FLOPS ARE COMPLIMENTED WHEN /N Its C65 Tees RIA, RTV,RCB MODES. : 07-00 | RETURN TO MAIN RIA, RTV OCcuR IN E65 OF FOS RESPECTIVELY, PROGEAM RIA €27V SEPRBATED Féom RC8 BY TH/B ¢ ZHIPS, T7ms, 1¢62 |C7 4 1063, C64 J O74! L B-09/00 - 90370 -/ SYM REVISIONS APPROVED DATE aiiigce gle ang oe ee tee PLOW HART WEWLETT@pacuane 2 ANGULAR + ae — CONTROL LOGIC LADORARERY BOOTRUNENTS MACHONED SURFACES 9/008 — 00 ner cans — vara mT 1p -09/00 - 90370 -/ | B- 09/00 - 90370 - 2 SYM REVISIONS APPROVED DATE SDSP 00 Foi N FIXED POINT ALGORITHIM (. __| 5 _ TICF, K50,KS1]CLEAR CARRY | ° SEGMENT GENERATORS KS52, IRDR [READ El o V4 224 328 03¥ oe oz Yoo TRANSFER ij 3 SPR BOT sane = ~ DELAY FOR LEFT RAMP TO 0. | 1942,43 1@52,54 MOVE OVER FOE NEXT CHAbACTES Of LEFT HALE DECIMAL Loc, iter WHEEL TOCFF J24 C45 BASELINE. BS PA RIGHT YBFZ we HALF > es TOF, LGZE | READ EO IESR J53 0 07 IRDR 324,525 TOBA ‘ Fe ein T] Tice Toa IKBF, LEEC|S6 DBF ’ “ FIXED POINT DISPLAY FLAG vs K24, C42, K48 OZ-14 FORMS VERTICAL BAes 1,2,5,7 HORIZONTAL pl ° 02-16 FORMS HORONTAL BES 46,5 0 * Vc 02-00 ALLOWS SWEEP TO MOVE LEFT , 4 FOR LEFT HALF (3) 0O& NEXT COMPLETE 13 Roe ems CHARACTER £9) 1 ) N ol z o O2-14 Q%-16 UNBLANK IF F50 70 (2Az) 02 Woe READ space ¢ oyu 8 lIcF 32 DECIMAL INFO N24 325 9 IBRS SHIFTS UNBLANKING INFO—>FSO IBes Pea sae 334, LROR ‘ % 03-06 J24 SO AFTEe S LBS BFF=0001 Kea Fs pa) a Sz Imei ceeesinciveaetal LEFT HALF COMAETE y, cae 5 SA Be REGISTER START NEXT CHARACTER "Yo Zz IDBF LICF,IADy |S COMAETE —= Cit 08 ony 2 K5O, J34, ISTO IDcF, IEF] J TKBF, } &) wi 350) TROR IEF J50 x 1@42,43 i FORM DECIMAL i ‘ ° S 3 VECTICAL- (o) 1 FRAME ComPere —" . YB0022 > : o3 Fiz 03 Fis D2 2 J2s 0 TBF, EEC JEZ TICE, LGZE Ol Ol iis oO K24 34 IDCF Ib TIWE 324,25 Reap 952,041,434 |1O52.54 TEEC IRDR oz Vo a pee Di€Ecrok| TRDR J24 KS! 4 10 IBRS 23 10 WT TIBE IDcr |ADD 5 FoR 4 ROUNDOFF o.¥ is eo gesaet pean \ o2 Yu RIGHT HALF LEFT HALF 63 FS ait 8 IGZE JS2 | 1952.54 ITKB, K52_ | 1Q52,54 | IRDR READ NEXT SIGN ENCODING or Kal CHARACTER f SIGNIFICANT ZERO YSQH=YSKO-ES4 f.) NS sn To 00-01 22 Voz YSIN Jz ITcB T10C ol it f 1 ose, a K24 uA OF Trer |INITIALIZE BFF 00 Woz ad MO0E Fi [a Ny oI i 20 esi > Piper REO UB 1052.54 ' TIBF KS) J34, LSTO| COUNT DOWN OF PAUSE . u oO} Fsts) Caeky EXISTS ' FS3:| DEC NOT wkd 323 W 00 a compLiMENT OF 02 Wi FORMED 00 / ICBF DEC. WHEEL —® IA, TO DENTTE FXD PT - re 23 IMSO G TEEC |USED DEC.PT PLACE. CODE Foe TADV, 050 TO ZDS. IN ts 7 J5I LK6F RS ONIBiAWT raed 02-10 TO O}-/2 z4 K25 BF CHARACTER BFF AT 00-07 RIGHT HALF (F50=O LEFT HALF (F50=1) o | folololo of Jo[ofo]o ofo] oli [olo 1] jojojo}) I}1]o;ojolo O;\idyi dig Ep 2{ lofo[ifo oli fifofofo ofofofo filo ENCODE ZB] jolojitt O11 JO;o}olo OJollj;oyiso 4] Joli folo of: fofofofo ofififo foi SIGNIFK 5{ ofr fof. of) fofo [i fo ofofifofofo ZEeo IDCF é] fofi fifo of fofofifo ofololofolo j 7[ fofryifi ofr jofolefe olififi fifo e[ fi felofo o[ fof ofolo ofofofofolo Ey Is 8 risteti artaraiste stot toteto Ds Da sDaDrDe Ds DsDs De Di Do Gr Go Es Eo —{ Jifofijo OF! |tjO}tio Of ip tfo trys 3 | | | | li. ln | 15 |: [ a ifoyi fi oO] 1 {oO} ojojo ofojolofifo 25 Os SKIP GUAED Ile Te 58 3¢ le Ne [5g [3g A ifijefo O}1{O;o}1 10 OJOJO}O}O} | IEEC DIG/TS \2e 10 bs 46 28 Os lbs 14e ef [ififofy l ojoyi yi fifi cl {[rftefo ol fifoftfo ofofofofifti 1042, 43 TER TESF IESF PUTS a} qe{-{ely o] 1 Jololofo Ofofofofi]7 YY M, Hopn, LOS) | BAGHT OB. fe) E30 acanxfel [efi fifi ofr fifo fo opnh hh Heed eet vec I Pp BLANK /+ HAVE ONS a SOV SOV, F20=0 IN F24, F25 = | REST HAVE F25=0 F25=1 10 SHIFT F21-0 a FIGURE 1 TO LEFT [DISPLAY [DECODE 23:0 F23=0 DISPLAY DECODE (ere at 03-00) = ee SHOWS WHICH FF COM TRAS ENG. ERS. = DY: | UNBLAWEING OF /NOLV/DVAL UNLESS OTHERWISE NOTED LITEM J DESCRIPTION vit PART NO. Dw. NO. MAT'L SPEC. SEGMENTS (Fb. B). — TOLERANCES — BATE £ JOHN SCOHY _ |8-26-69 ® FO 23208 O.Xx £0.02 0.XXX +0.005 ENGIEER FLOW CHART NEWLETT QB) PACKARD ANGULAR = DISPLAY ROUTINE LABORATORY ISTRUMENTS APPROVED — MACHINED SURFACES \a~ W00B SUPERSEDES Finn CAE | 00 no eon — D -09/00 -90370 -2 MP e280.00—7° poorer L §-09/00_ -90370_-3 SYM REVISIONS APPROVED DATE REDRAWN— NO_ CHANGE SDXT SPMD SDIR <—_— , pos ph 7 oT Rt 1Q42,43 TQSS4(TTBG TEs | READ Pw 1788, IMSD&I GZé 2 4 +] , LD, |JSOXKSI, 452, K53 seis cia H 03 i iS To O3-IS a je} ‘ Tier, rez |IQsz,s¢ EFF: Go YY LD Be, CFF =D > 2 }952.,941,I34 TREAD DieecroR <] , | os Fw AD PROG, = tn | HBR TEEG, JLIWF cives Kaa 1F -YRUN yeneii . 7 ITBC LTEW TEEC,J40, | a2, 43 g 2] TIWF24,025 fege oisPLaY Z-REG Bee CSZ-LROR LOjop Ut, Jaz, KIB AS06410 KA Fea? DISPLAY P-REG MEE Sed 32s LP) : FSO = PAGE 03 BOS 1082,54 me! o3 V3 TRDR J24, 25 FOR DISPLAY ITEW GIVES J45 iF FSO & FIO IDer, T Kou, 34 1952.54 1053,54 —| FSt=1 \F YRON : BFF= f206 KEY core [M50 (E;) | STO IN VIA FOR KREG 955, 340, K40 | STO IN YALE TIAL FOR beg [us4 1570 |p REG, 1Q52, 54 NYSQH = YSKD ¢ ES4 ICHF 1Q42,43 coor ' IQ 52,54 LOq | 984, 342 ICHF G/VEN |F F24 =F25=0 S D <_< IDer, [ADV S70 Eg /s1 PASS \ _ K23, K24 K25 =e LP, lea isto | S12 Es 2x Pass } st o8 1 b (od L reine 1953, 54 : Oo F th 03 We Lo cg 50 | ace COLOK STEP f IDBF, KS0,J54]1952,54 Sang > CONTINE 3 4 Isto s n 8 LD * LDe Kaa Bg [ THIS COMBINATION OF QUALIFER a ny IT8B J4I : F24 courte ¢ CLAMP RESETS ERROR aS LP, }034 ROR ' vieer: 324 _J2S eG ° Ns Qa | YSIN 00 Yo ' : mh } EAE 00 Fi0 00 F113 f 02 F 05 Lo, a 1gs2,54 1 SES READ PROG COUNTER Q IBRS, LICF 1B 950,040, 041 1T68B 942,43 JSA'I40 Jt [cee pin SPMo 3 o2F Ol LPs | K24 Les } 040 Jaz Leg | YS4 TRORTM Te LRN > Titr J40 THAT STEP PROG.HAS ms pe it LPs, LpAae (Py j F50 BEEN ENTERED R LPG 7 00 § ie ° x y 6 o be | 03 For a) ; te BFFFKBY CODE Pt hes 2 Lg. NZ ie Jzq_ 2S 1Q53,54 344 S34 SHIFT F2s % “Pr | Troe 2) ° xo F24 T 03-14 # a T oy 9 _— Eber, Kes Pas 7 Dg g Si rato Po —> By <<. i ENG. RESP. — DIV. | UNLESS OTHERWISE NOTED ITEM DESCRIPTION PART NO. DWG, NO. MAT'L SPEC. fi a — VLE SOHN SCOHY __|827-67| SUBROUTINE -DISPLAY EXIT | wewLert@racuana O.XX £0.02 0.XXX 0.005 ie SUBROUTINE - DIRECTOR ee a APPROVED. ‘ - SUBROUTINE - PROG. MODE Disp NEXT _ASSY, SUPERSEDES r TINH RAE in i ei T D -03100 -90370 -3 ; | D- 09/00 - $0570 - 4 SYM REVISIONS APPROVED DATE ) cL X 27 ¥ /3 & ‘ ee. KAD, K5O, rec ane, DI an = F34 F52 F4HO Fl E44 EEC, TTCB ; 26 > F34% F5e E40 E#I E4s 26 by 12 TYTAT TIA] Epa 27116 (scrd) Ei Zb il 2b 02 ; FROM SOAO, SCRD a - = ous) Rou @. CE£E CIRX) EXP Cus) &® y= r , iz PROG KEY ENTRY (HYPER) OF VIS o4 Y o2 ov Yo7 o4 | Obs O# 900 -, Ov ¥ OF, o+ y 12, o+ 910 24 Vio vi 24 WOO wi ceyor oF Vie = E Mi FEL sp - TS OREACIBET: F THO, kee Fe "pie (750 rsvoarns34 ae ISTO, 734, Kee TSTOIAT a4 TSTAGIN TSO’ ; SB K Q T25, K40, K. 5 50 Ts! ira tise rece V DEF 550 T44,080 Tany printed res ITSB ‘ LTB, LICF Vaal << a * — a" He , : O5 YOu, !2 i O+ 1 16 oz} lb i7¥o4 o# Viz o7y 00 z oO Vila o+ Y os a 33 [96 - ie “os ceo 1e1 pe th aoe STORE SOM ffese 334 JT" TROR kag | nas, (REG) TrDR (YREG) K25, KSI, ITSB pee fat EONIOT BETS EE@ K2S" TKBF, K24, Ki Lore (SOIR, Kal, K24 SOM TO 2POIl K4l L K , LEEC LESE , i ; J4\ IDEF Tree “| (P= PAGE) faye veq_ ses TICr Ne TOBF ees ape CONSTANT ITSB Tse, A } 13 D7 #17 o5 Wil 6 34 Vil 6) Sm py Ts10, 140, |" ara, me ' PICKS oe pare T4), KS0,T0SF is HeO *FY fel FS! Es orDg Sy 02x, Oe re Qs +'BFZ 27 Y I+ Ob 13 + BFN aa TANT ip genase S70 Ree! ; re) TSTO (PIA) T3A]Ee fo) nh TSE, T4041 ig Kes ee he VON T7186 Kx0 Tese728 reee Som SET BY NOTE ay psa SY a Lee ANY ARITHMETIC, | NO PREV/OUS NOW. X y ERO DIGIT ENTRY. Y nop | — 21 Vol, reor(XP2.) Grecian PROG: [00000 | coRDic oR REGIsTOR| z OR TSTO (TIA) T34 © ICSF sup.) o7 | le 07 ¥ 06 eee 7" Irs To 020000] NON ZERO DIGIT on Tere AEG 220001 |DEC. POINT. Pets oe Yo!) Yeo igs os ¥o7 07 VOT. O2O1IO| ENTER EXE MANTESSA OR EXP. X70) Xr O SL, ICRDR [eREGY Ob Wie ROR LA) 734} 101001 | Y-~() . O7 nia sas nxea poet = NY T25 NOT GIVEN RESET SOFI. 2 et 7 Minus PRE SDIR ADV TS2 cs : 001001) X>() 7 V < 200/ 00} K@+( )oqAlPHA RECALL Oe 23 Ys <ord 220II! | GO-TO on GO-TO SUB] READY FOR | fTROR(T) JH | M3 6 £25: 60-70 SVB FIRST ADDRESS 1 oe Feb: MINVS PAGE | DIGIT. 221000 | SAME AS ABOVE | READY FOR. a L o7VI7 SECOND ADDRESS : DIGIT: 07 12 O7 ¥ [+ w@ A SaAce (SDEe) STO (YREGS [TSTO(XEA) 334 F50 Sub pale nts Kes T: 25,K41SS2 7 sirvaprrag| <. al ' aay KEY] CODE KEY | CODE t Dita Tov) K40 }O3 O 00o Cc 16 ETOWYIA) 754 oben: vue 125, J41.K24 42, <43 | O!] d 17 YMSD QV FED IDCF, LKBF “ren 2 Oo2 CLR 20 3 03 DEc| 2/ , i~nues2 o+4¥]| |AF |] 22 te ole Po 5 OSs x) 2 3 o7 Viz a 6 O06 ath) oe spe. RESET PlA2 7 O7 e{25 epueas a.| 7 0 ExP| 26 i KEY | CODE 9 az) 27 — | 34 eli2! kxeyis0 iy 00 <t. ae a ad f[i 3] (Ret37 a x 36 b le CHS| 32 F40, K+! CLRX| 37 la aS t|33 UNLESS OTHERWISE NOTED ITEM DESCRIPTION PART NO. WG. NO. MAT'L SPEC. Bl. 7-7-69| SUBROUTWE SDAO WEWLETTGD PACKARD Se FUNCTION ENTRY ANGULAR + rd a LABORATORY WSTRUMENTS MACHINED SURFACES e7 | Lom 7/00B next aay F/I008 COPERGEDEE FIRE RAE —DO WOT SCALE — | D - °%00 -903 78 -% “© e200.07-~ SYM REVISIONS APPROVED DATE [— FUNCTION Se ee Fs IESF To Rv) X>() SAYE SIGN a meas OP 20th FIRST ADDRESS SECOND ADDRESS a DIG ys) DEC. NOT SET DEC. SET EXR D1 G/T DIGIT og Oo {or ed Pe ; X2Y ISTO, 034 HOS ool ie Oe y 00 Js cial Lois ee ar Ps 25% LTS co TDCF.KE¥, KO IT 25 OF PIA2 IROR (XE, ), \FROM 5 DAO / RESET YA T RDR(Prae) IH K24 T5/ | rys3 54 TROR | (wea J25_ NOT Bead IKBE C43 42 TS CHE T40 a fe en ee T5383 S25 NOT GIVEN rer” Aes) TICE S24 |rGWEM ab tEar O4 FIT To 42.43 UP DATE (SUB? OF Y 10_ ps woe T25 NOT GIVEN OS ¥ 06 20900 fF. it VIS ora ROR CERES I aoe STATE OF FF 25 me ; 1570 (a) ) TSTO(AVA2) J34 STORE FIRST DIGIT FSO. JS! : PRESERVED THRU TKS4 |10535¢ f 755 Je5 ITCR “ IN_PIA2 TOCE i24 0s THE ‘ROR’ /\NO_PREV/OUS ENTRY : IESF IICF THO CA. K43 a J SIGN OF PIA2 15 06 Yoe x, Fes LO53, 54 ALL THATIS REQ, |—~4. ES4 9&TS MINUS TESF O7¥/7 ames eae 2 grat Paee eee seid 2 < Ns OTY 13 Zs o7Yos H = INCR. EXP |ISTO(E, ISTO \ IDCF _ RECALLINTOX FUNcTIOU IIBF J453 Te5 Kee THI Ob ¥ Ib 6) ENTRY a eee pOnLcanes (SDIR) TRDR (i REG) ii on OS J 13 /9 £51 053,54 ITEW ue (SDAO) TST0 (POTS . ; aren Wl 725, Ket — F53 YENE REIMIT/ALIZE SOM O7 ¥Ob pp Be TO SPI000, 06 T° _D IKBF IDCF ; LE 95% ISTO (TREG) Too BEC. 18 Y-«f} TADR Ep P: PAGE 340, T41 USED FOR ES ; TEMP STORAGE <4 IN EXCHANGE 0b V/7 o (SDIR) aa OPERATIONS TADA Waco | > yene 7 A4O HAT YGZR LT DCF J. na IESF IDCF K25 T43 O7 I orhaea. P; os Vit Ff, K+2 IEEC IF DR (YREG) TS) - KAO, TA, kag | eee ad b ; SOM Jas2s T42 ’ . VEZ —~ YoU p FUNCTIONS 3 | 52|57 [50 |XiA 0 XC) DIGIT ENTRY f — SSRs TEE . OTYOS re LOCATION AT F25=1 Ne Key O ! ! 10 ~ 96 Sie” RESET VIA. [Poe Oaear a Ls. lz ASOD 18 CAR@R Gh: ca gsv | 2042, 43 Y>( ) O oY) O} // vy A P | w() 1-0 oft | Fy tl YDNE (e) ; DEC NOT SET\ | 2. ee OO 1! Li FSI | oa DEC. SET | 1 2;2|0/ o Y-() 06 YI+ ek bs o7¥ 07 Q3 he | 1870, 34.70 V3 RESET YIAZ Lae TRDR (Xi) J 34 EXP / O| 2 | 06 Tae: NOT GIVEN] K40 KES me 1Q52,s4 (ye VEO apenas niet RESET £25 0F SomML4* CLR Xx | 9 Oj ~2 5) AFTER NON-ZERO / y 23413 2D DIGIT ENTRY oe Yo3 se ost EROR CT | M? J25,K 24.53 RESET PIA2 T4243 | T40, Tg) TICK LstToawres) |U3 TSTo, TQ42,43 Kaz TRANSFER T Raat, K4) C42 TO Y TO CON\PLETE i) d XSY AND Yt) | o7¥ i+ i j O TOPIA) T34)° SET S.0.M. (on Ka. t25kHIe To 700000 CSDIR) 04 is , ema Tero 1734]?! 0,43 [IsTo Kao | ITCB IESF K42 K42 IKZ25 IADV YFse o7YVle O7VI7 | FUNCTION pee ENG. RESP. — DIV. g | ! ENTRY, YD) UNLESS OTHERWISE NOTED ITEM | QTY DESCRIPTION PART NO. Owa. NO. MAT'L SPEC. (SDAO) SDIR) OSS — TOLERANCES — aan DATE Tire Po es (50! some DLL THAVER \1-769) SENT WEWLETT@D) PACKARD O.XX +0.02 O.XXX + ENGINEER iN (s0a0) wniduLAe exe pany D! 6 / T ENTR Y LABORATORY INSTRUMENTS MACHINED SURFACES \a~ 9] 00B NEXT _ASSY. W OOB hon Gi bie = SUPERSEDES FINISH | SCALE D -0720 -90310 5 i } Y- O71f¢40_ - 7202/0 £2 SYM REVISIONS APPROVED DATE DIRECTOR = F34,F52 , F4#0,F¢#l EY 27 Y 16 As SOM. < F3%,F52 , E40, E44 E+4 TEEC LTCB ; FLAG = F344 FS2 FO FH) F444 \ "REC = FHO El FRE BIT 24 OF ¢ KEy OOF ITSTO(YIAY.T34,) Ov FL kSS eave t9s2 54 ad BE 26 fo2 CFF Dy ~~ YO Suerte T092, 43 FUve TION Was eurey ; TRDRT34, 740 KEY CODE FROM R.0.M. OWLY jg ieee O K50, £42 (G0 700.) LN0 PAUSE (STOP) PRINT y FORMAT. X=Y (<yY) CF _FLAG) CSETFLAG) (CONTINUE) (v=) e+ Tose 24 Viigo e+ V17 s. 24 Yor y, 24 7 Oby% 2+ YO5y, e+ Yoew 24 VY /0W 247 131, e+ Y i2y, e+fo3, erPiry 24 ¥ 07 24 WOO yw, a+ Vis vy, 2+ ¥ Joy, 1.057,54 RELIEE Sore fist 334 J4t [ST0 134 STD I35 Kee To(PW PO J24 TRDR 338 J51 TST0.d34, 92 TT SSE IOS STO, TH Te TD Tat TH Te feta, 738 Ke C52,K 41 Ty K4AQ 374 K25 KAI rot TTCk Ke5 JA T4I F44,052) K24, beni. 334 734, TADV,1M23 ele oe LADY tala hoy yes Bhd S10 deere ts1o Tea LSTOUEN) 734 TRDR cvs) Se TSO, Tot kes ILO BF YICF IKBF .TADV K4\, LKBF TICF Is7oO , TaDV gH“ K25 LADV IKBF LADV K41 ITCB J+tT50: LADV ADY. ITSB IICF J FSIt } —\kouT = 1 a Y FSIz0 —HPMT am Bl aa ast { RDR AyD STO 25 Vile Seti Sad 2b VI5 ont wont OrEs? we = Iaeleht T34 TADV { USED FOR DELAY STD, K25,Ke4 RDR KAD, 41, TSTO J34 KZ (SDIR) (SBIR) 2 She her. CORDIC. CONSTA TKBF TK RE CLEAR. DIR. K43, TICF, Ts) Tat < ORDIC “ONSTANT K4#2 752 E23 +YB1000 7082.54 CLEAR FLAG IF eye re +N PSE -FIS | ae ENTERED FROM R.OM, KAD C52 3 TSTG Us 4 Foe T/ow J#2 C43 Fes FFe5=1 IF FLAG 1S SET SME: 108z,s4 C52 ] 5 EQS? 54 esyou o7Fi7 o7 Vir , Troan. y T | ESTO x LAl-ta¢ R2 SET F2S IN DIR. Re cies FOR USE IN SLRN. 2<one> SLRN S DIR i STORE S.0M. TO FTF us donk Sen : TTD, 34 | SPR g : IRON! WHERE YFS4 | PROG. MODE ITSB,Te4Te5| VECTOR P= CURRENT PAGE 7 ) ITEEC ,T40 o7W7 o7yie > yp FUNCT [ou 27 Ys we 33) /3 ENTRY J24, ROM} TTBF = ) Y | 32 12 Yep eS 4 FSO F5! JF FLAG WAS SET. 26 Yoow R, ysen reap sicw Fs) T3S0, Pe OF Y by IMSD (4) 27 O06 \o i 26 It u7 LTKB TOK g3t 32? |roan, 43 : 342 TesF |tosz.sa FROM | S LRN YRON-ESf \ WITH FMT Cg ica € CODE. = f hs Ley BFE 27 Y oo, a 26 Vie wp 26 Yle IT&E ESTO 334/325. TRO 3a Ta] US K5D TS), KBE K50, TTBe Ley — | (QUAL_MET | x>yY ! , YBFN $4 OQ. x<y 27 lls 26} 06 26 Y!7 y, [STD 334 Kes Tot, 334,325 TST0. 33+ LKBE K51, JSLTKBE Jee. Ts, QUAL _MET ENG. RESP. — DIV. ‘“ | UNLESS OTHERWISE NOTED ITEM | QTY DESCRIPTION PART NO. DWG. NO. MAT'L SPEC. og 9-49| SUBROUTINE SDAO y 77-6 O.XX +0.02 O.XXX +0.005 ENGIN PROGRAM MODE KEY HEWLETT@D PACKARD ANGULAR + lo PORTION. LABORATORY INSTRUMENTS MACHINED SURFACES \ea 4/00 B cee G/O0 8 DES FINI: 00 nor sca — it 4 | iis D -0%00 -2370-6 MP e280.0-— STORING AND OF THE RETVARN PROG. SUBROUTINE STEP IN THE ‘“P” REGISTOR. GO 70 5SVB READ ADD. STORE ADD. Es 23-01 | Lo * 23-12 Go E, * u " Gi tt B< * " ul Do " 4 C6 " u Di I ! Gy " " De ] "1 Do Hoon Dz " ' D; uw “ Dy "| De ow Ds ' « 1) Dg ow De ! ‘i Dy ii uv | Ds : j Ds ! i" POs De Dy : Dy ij H SUB - RETURN READ ADD. STORE ADD Eo 23-14| Es * 23-12 Ds WW 4 E; * u " Dg jee te eon i'w Dg nu | De * ijpeweih Dy aw Dg yi De K “ Dg “iw Ds v 4 | Dz “oy Dy u ou | De hy D3 an | Ds nu De yu | Dy a" D, nou | Ds hk Do «| De «ow G, t «uf Dy Nt Go “« ut Do ud Es uo oul Gy * 0 oow E, a | Bogie as Eo N 7] fs.4 £28 w 3-93 Dq 23-14] Pw 23-03 Dg 23-07| Pc 23-OF NOTE: * = DONT CARE STORE. AETURNING FROM! SCRD ( SUB-RTN KEY) L_D- 09/02 - 90370-7 SYM REVISIONS APPROVED DATE FROM ; SECOMD ADDRESS DIGIT (OIG/T ENTE ) P reg = E+4, £43, F42,EH, F4O, EFF = SECOND DIGIT : FF5O = PAGE EFF = GO BFF = SOM Pw STORED IN +5/Al (F34% E52 44, £43,742, E4/,F40) oS: wer CIVEN ‘i i ee Wiz AND BIT 25 OF Ob Hilo Po STORED IN +5 IR (F34 F52 ) FrROR 334,Ka\ READ SOM PIA2Z 1S GUARANTIED fiRDRI3+ 340) FEAD FIRST DIGIT ceaaelhee ee Ke5 RESETS SOM. TO BE A1, PRESERVES |T42 (PIA2) |2942.42 ""TIMso @,) JL! BIT25 OF SOM |X Ls7 CRF2: .E, } haa ae Go GOT ) FE5,E51 ~ 23s GO TO SUB £25 EP ISTO T34ITCB TROR T40 342 i JLESF Y52 ee Taegsz| TTORE Fe rucr roer | eM? P4 Teeck2s | *°5204 1 IMS Dye) iets Kaz, J24, S25 Ji cp LSB IS PASS CFE: E, EFF: Ds 0 | AF2 7 FSI ® +FSI % GO TO SUB . 233 22 Yo! me LP bs _ & a : DONT CARE [FR Tai] h3 4 4 ST0-334, J4] pide: READ Troe Rae Por a K50 KS2 EPSP KeACH IMSD : T242,43% IICF IIEF T C3 24,075 (eo) vee Jea_oes ise LS4 LS3 : LS9 OTGI7 j l YDNE ni =f 5 DIR e 6 Fe 20 Wie tne 20 Yo! bis 14 a] “a ‘ READ RESET PIA2 ce sey Teral hes IRDR IDCF Pode pero ese STORE Pe Pos oe T52\IQses¢ To 1we2ea|X@* TK. browas | 8 bee ve es" diss isu STORE Pu Fos) LS10 Tea s4 STORE RETURN ADDRESS CFE= Ds IN "P” REC. Dg ano Dg ; O7 VIA we shhh (os EFF: Ds TSTOIXTAV 34 TEE Q pene CFF>SECOWD DIGIT: a - ina: Ee iaaial Pare isis {pep “BFF: FIRST DIC/T#+ PAGE FIRST DIGIT = Pw = Dy L SECOVWD DIGIT = Poe = Deg 23 You k : tse fisto 734744 STORE Pw FOR GOTO SUB. Ik4l CS FOR SUB~RTN. a aes STORE Pc B o Leese ENG. RESP. — Div. | ITEM TY DESCRIPTION PART NO. DWG. NO. MAT'L SPEC. ; SE ei, ETE SUBROUTINE WEWLETT@D PACKARD O.XX +£0.02 0.XXX +0.005 NGINEER SUB JR ETURN ANGULAR LR Spang) | LABORATORY INSTRUMENTS MACHINED SURFACES \e~ F008 Ni 9/1008 SUPERSEDES FINISH SER pa A —__ — 0 nor scate— | D -09/00 -90370-7 : L_0- 0%a0 - 90370 -g SYM REVISIONS. APPROVED DATE FROM IF” KEYS (SLRW) F42, E43, FS, F52, £53 FROM FMT ENTERAWCE COND, F4#2,E43 F#2, E43 E51) F52,253 nan oo {i7 27Yo2 KEI, |29S2.59 TIBF 324 J25] Uui\ J52.K53 ZOsa,s4 Lu | 25 Yos TRDR. 334-340) PEAD Pw FIRST PASS. FORMAT, F ae lT44K41052| READ Pe SECOND PASS. oS LLe ae IQ52,54 0 a — y | asi 27g 03 25 Vie 26 |o3 rTac Lie ITKB LLa LLb LLi2 To SKIP ] s OAM y YONE + YEME F53 Es STORE NEW Lo 53 54T6TO J34I53 IESF TAKES |TEEC LESF ISTO 334,34 ISTt ITEW GIVES RESET PAGE Info. | r53 Foss + Tesrr44 [A | \ Pe oR Pw TEW TTK8) TO CARD READER IF TO FF SO wy ITCk,ITRC LLi3 CFF= III AND EFF2 IM ISTO VSED TO QLEAR FFYY jee 25 Wos y - 2b ¥ 07 2bWor 2b OS READ Pw RDR, S34 TQS3 5 TSTO,334,324 READ KEY CODE 34771 “de T44. ITEW IRDR TST0 345 ISTO ITEW STORE WEY CODE C52, 744 2 |20389,54 ies FROM MEMORY JAOTKEF | CLEAR DIR. IN PROG MEMORY Lis [i227 LL8 Swe 3258 K24 K25 Llib LL Llis COMP, PACE _ A IF NEW R= O° YBFN-E24- F2s (SIg TAGE TSEC IE Ces Ete ' ~ STEP PROG. , RUN PROG. YRFU -E24» F258 FFS4=1 FOR STEP PROQ. YBFZ YSPR >2 ! ) Pr YSQL: 1 IF STOP d HEY 1S DOWN. 25 Fl7 25 Yob 25Y¥ol ROR 134, J40 | 2°22, 54 ISTO F324 K4l|lOsz4 (TST, 734941 TA) TSA: KSI) LO $3, 5h pees IT&B ITBB KS52Z | Tesrz, Se SDAO EEC 53 ee BET Lli7 aa LLOLS24. OFS READ DIRESTOR LL 20) x (STOP) EFF = OLD Pw STO.” USED OMLY PROG MOOE KEY CFF = OLD Pe TEE 70 ADY FF50= OLD PAGE eed FSI >? —__—_——_< ! FORMAT. 2717 27 Vz TSTO Is IAOV J 52 ly TS! K25 LLIO tLis clacead el, 37, 17. b 1Q 42,43 [TST TIE R42 K43 TEEC IOPF WITH £41 FOR PROGRAM, —» PRINTER GIVES CONTINVE. | Ta LO PF IOPF WITH E41! FOR KEY BORKD. 00 f 1+ TO SDAO J ENG. RESP. — Div. | ESS OTHERWISE NOTED ITEM DESCRIPTION PART NO. OWG. NO. MAT'L SPEC. umuess ovuenmise nore MEM GT a aE aL Howard |7- 7-69 SUBROVT/NE- LEARN WEWLETT@D PACKARD O.XX +0.02 O.XXX +0.005 ENGINEER RIE 95 cicsinmapminits LABORATORY INSTRUMENTS MACHINED SURFACES \a~ _ = es NEXT ASSY,_ 9/008 — DO WoT SCALE — gies D -O%00 -90370-4 HP 9280.0004 | D- 09/00 _- 90370 _- SYM REVISIONS APPROVED DATE BFF = X09 SACQ 1. ADD TT0Yé sToee ENTRY + SSUM ADD 2 REG, MANTISSA SOFF CFF Da . Its oe oe rise OR SEXPOMENT oe READ EXPONENT DIFFERENCE GENERATED BY CFF= Go @ arenes sae aban pee ik p EEEES SSUM, @ OFFSET CFF ¢ EFF EQUAL TO THAT O7¥ Ie Ie Fiz 14 ¥ oz DIFFERENCE AT \WFE = SMALLER eq, rece 3h | TDcF, TOEF | AS J4l J50 oe( Ps) READ SIGN OF J24 25 4 Eee SMALLER IROR (FE) al SF el Pana READ SIGN OF O38 ug Troe (€5) |LARGER IDCF, LDEF TeSF KSI J24 Jes B7 TO t-l4_ (etv) } F5\ y40 OFFSET > II 1 IRDR (TOq) 6 FS\ 2917 ’ i Je ° V24 J25 |L7 el, KS\, K40 Y 350, K50 | COMPLIMENT F50 o , osha lament peor, \F SIGNS UNALIKE 4 Wu : IDEF J24 25 |D8 TOq=O Zp SIGN OF LARGER READ Eo OF EXP DIFF. : TO 12-04 C ial TROR (FER) | a Y BFZ E, =O Lsr PASS ° 1 1 ExP= OX fsr Pass 12 os u 1a Pa Sebel) TSTO JS1 FOR 10'5 COMPuMENT v 14 Woe ° F SIGNS ALIKE ? = IDEF,J24,J25 4 READ Eo Exp DIFF ie) a N IRDR (Fee) nN - Ett 3 * {sr y; ‘ eT (Ter, va, k24 ‘ Vos z EXP PII CHANGE ee ae iF 2 TESF IKBF ]N4 g LGN Tey i \O'S COMPLIMENT K25 JB4 rf (ew PASS 150, £40, LAI ESTO OVIN) Qu ExP=/ as le Yoo LEDR(x-Re : 40 L7 [rixer K24,05 }° z LIEF FS 1053.54] 053, K4o Jad S J34 ISTO eq Yi) 15} TSP neoe PUT F50 INTO CORE | ues 05 4 Ny ; i on J34_ ISTO | FOR RTV (SIGNS pcr za, | 4 a ADE FUAO R7 10 Yor w25 c paces K4o J4! ALIKE OR UNALIKE) aa IRroe (Y Ee) EXPONEPTS 12 Yoo % ole} N24, J2S - TSTO CY-RE6) 10 ner aa writ Teor wos) 1 40, 4 Tepal bi) SADD Exp >| =” * \4-O6 =YBFU =O, Ist PASS, ExP 220 M1 (T15e Ioce F24=0 jo] 15 4 = Y BFU= O, 2nd PASS, EXP I2— (9 K2AN25, 40,4 ae FAP d iaVi2 YBFU® |, 2uo PASS, EXP =I jad ISTO SIGNS ALIKE 12 ¥to se F50=0, TRANSFERING TTS, KOA KzS]| 9 6 IpBe 14 Vor MANTISSA PORTION ISI KSI, Vag m4 LDCF Bens J34, ISTO : SteE wt” EX POWEDT C sort ITSB 1pcF |R4 COUNT DOWN EXP oO DIFFERENCE TSB, K24,K25] X71 () | Dire @ OFFSET 14} 00 K40, 041, 334 | STORE F5\ ‘ | CFF BY THAT AMT a 13 J 04 ISTO (VIA) | carey 10 Wiz (al 10 Vis ) CARRY ? 1082, $4 (RTV slo K40 w RECOMPLIMENT 124, J25)52 16 (e) scmP 044 134 © 8 Is IROR IDB IPCF ee lO] 15 o4 Tis KSI f ed a e 12 qos IlCcr K24 \ T= LARGER = ime Bi ui Eh ae ISTO (Y-REG) KSI, 40, - 44; 934, ISTO henley CLERR F50 IN A 7 [Test rTseB VJ CASE SIGNS weee EFF=Dq ee ae Swen Cau NOT ALive La CFR: Dy - OFFSET J34_ Isto Ssun? = wie 8B ADb No MANTISSA ssum Ss 7 IKBr, TADV Kad V3 > uy 2, KA, JA a 334 TSTO LWIA OSA F2a.) TrlLAgee F24+0 Y=LaeceR 23 ) TICE, J40 J4) K42 Teoe (7-be6) \ (e) I F50 aay 236 ti Ui) 7 K24, 325," Sit K41C42, u3q | IQ42,43 Isto Ba) eo O74 IKBF IT6§K24 |RESET SOM TOSS S4 |.525,552, K40,K4 10000 334 TSTO(WA ra) t ENG. RESP. — DIV. j o7 Fiz on Wn 3 UNLESS OTHERWISE NOTED [reo | DESCRIPTION PART NO. DWG. NO. MAT'L SPEC. ° — TOLERANCES — Tite JOHN SCOHY |8-28-67 | SUBRDUTINE—ACCUMLATE # EWLETI® PACKARD oe Oe I 7 ie es » SUBROUTINE — SUM ANGULAR + LABORATORY INSTRUMENTS: APPROVED SUBROUTINE ~ OFFSET My |ACHINED SURFACES \a~ ae GIOOB SUPERSEDES “FINISH SCALE igi eek D -09/00 -90370 -9 B.. weezeoons areas SNRM {oJ} TICF IGZEWA Al4 n 13 B STORE |IESF,IKBF Ly 25, K56. K40, Ba] READ IRDR CYIAY | CARRY IA 50m _ |TeEc ves. KS [1Q53.94 J34 LSTO 10000 4! 1 CAR eos NOTCAREY YBFZ 1 +S Yor |, 7 Creky ZELO ILEF 52 1Q52,54 (ar DINIDE OVERFLOW TEANSCENOBNTAL FUNCTIOW eee ? 17 ql4 ty noel STORE —OO IN T-REG 51 1STO(7E/) } EXP. INITIALIZE Hi4 tse PASS. YDq TeeC KAO RDR (Y- eé igp © V2 TRANSCEDENTAL ROUTINE, NO CARRY LEADING ZERO COUNTER COMPLETE REGISTER \S ZEROES. VON-ZER6 D/6IT isr FING /s4 NON-2ERO DIGIT \ Ie TIEF IDEF |LI4 Igo 5: JS2 on 195456 AbD | To TEo NOTE: T& KEEPS TRACK OF NO. OF DIGITS THAT ARE ZELO BEFORE LEACH/MS fsr NON — EEG Dicsr IN Y~-kEG MI4 READ Ds jst PASS READ Ex 2N0 PASS le ITSB J24 IESF Teec v2s IRDR (Y-06 2 Fn IDCcr LDEF J24 1 Vis IéSF LEEC JUG ISTO (YREG) SHIFT LEFT Es Beroke ih 2onNT Do LEFT SAVFT LKBF LOCF |VI4 J25 ISTO (Y-£E6) STORE BLANK ZEROS we) KSI Isto (TEs) —_" aches TICK J50, 4\ TROR (Y-Es) Y24, J2g reap fTesrvzs,34] °'* CARRY | IRDR CY1A) REGISTER | HAS Beew Ww SHIFTED STORE IESF IDCF \EI4 CAkRy IN | ISTO (y-2EG) 17 Yo LYSB TIcr a ~ INITIALIZE EXP T-RE 7 t o3 Iper Q4 Isto (YE) fe IIcr ILEF S14 ISTO (TE) IF FROM 16 IKBF IICF. Isto (Tei) TI4 ez App EXKPONEWTS KSI 340 STORE 1 INTO TE IT-Ol Sscme FSI=) WRF = 108 i2 NIO Tbcr, IDEF (YLS0) IChIteF |OlO 10'S COMPLIMENT FSItO 89'S) COMPLIMENT REG TO BE COMPLIMENTED SET CFF TO STABTING ADDRESS Ds —> EXPONENT Es—» MANTISSA W24,J25 | LEAD CH ALACTER TO rece (Bi) | ge comeLinen ted YES LCBF, v24,c24 oe rs7o (Bi) | coun. FIND Ist lo Y os J24,K24, 250 Q\o er REGISTER FINISHED 7 10 (5 Rv] J24,J25 352, 044 34 {Ieee 04 115 Mo Lasz, 54 IDBF SIO | SUBTEACT | KS) € cle FSI | Non-2&@ pie/T Dy EXECUTE ONLY IF COMPLETE tsro_lé?) REG (EXP Of MANTISSA) 1S ZELO & DOING [O'S COMPLIMENT READ DROPPED D- 09/00 - 90370 -/9 SYM REVISIONS APPROVED DATE Sapp |. ADD 2 REG WITH F4) IN COMMON 2 REG DISPLACEMENT — DIFF. CFF é EFF CFF= EFF + OFFSET 3.WFF=REG ANSWE2 TO BE IN 10 F¥ oo 4. F52=) T10 TEEC S ADDRESS KS\ DROPPED DIGIT Tee. < i Yoo 10 rece toe | te) ‘ u ol TEEC,J24J25 [CIO DIGI =| x82, 40,440 | T952,54 IRDR Da oF Laecee ff = 10 tor IDcF LDEF HIO Soe (266 7 YDNE fe) (Oo Vib 1KB4 TIcF | FIO IIer «25 | 1@sz,s4 352, 340, Kd EXCEEDED Da te) App S TO DROPPED DIGIT IIeF, Ipce Ioer 0.20 +0.005 ANGULAR + MACHINED SURFACES \a RIK SPAWGLEL ROD SUBROUTINE: COMPLIMENT FF: D. 1 Se usm |ewrre Res WITH ANSWER ReG io Ys SlOPRIWTI24, 326 1@62,54 JS2, 344), S34 ter iter |G/o Tepe J24,325, J40 04 | Is K4o TeDR EXPONENT ADDITION ioFn (FAST me EEC J24,040 K40 os yu ENG. RESP. — DIV. ‘a UNLESS OTHERWISE NOTED ITEM DESCRIPTION PART NO. DWG. NO. MATL SPEC, — TOLERANCES — Ls TLE JOHN SCOHY \8-28-69| SUBROUTINE- NORMALIZE | wewLert@racnane DIK £0.02 9/00B SUBROUTINE- ADD FRI THE D - 09/00 -90370 -/0 |. B-0%00__-90370_-// SYM REVISIONS APPROVED DATE BFF =%0q SDIV SHUFT YREG LEFT OE ERD SATA St Pass REINITIALIZE IF OVERDRAFT CFF* Ba Sy 11-02 sabes SUBTRACT LOOP () Y, - FSO>| = CFF = Eg ase oa MANTISSA_ TRANSFER Ala IESF, LI¢F 426 KAO OVERDRAFT ist PASS DIVISION BY ZERO aan Gas 1s Wis lb Yo ie q 13 07 1s ¥_/3 ch Bey : ————————— ' 7758 Jaq, Kas] GIS READ TEEC 324,125] Ji3 Ti3 IDF, 524,925] KIS ITCr, J24, _) KI2 aice ran COn TCA SPECIAL (SPORES IN RSG EXFONENT) \ KSI Jal usa CARRY A | 50: 041 334 TEEC, J24,J25 340 41 50, cite yar y peasean Gives — YBFZ J34 STO IRDR CYIA) TROR CYDq) IRve (70;) Leoe (x es) COMPL. Sign Bee ea 07 iD A Is PASS? i IICF ITB E12 =. 12 13 IDEF, £24, k25 10 Biz M64 Ist0¢y,)| 152,54 peas ? J Kas va) [O" race ie a ScmMP ; ISTO (Y-£64) OX : a YES, ist PASS ISTO (X- RE) ese SETS io 71s 1 se Ae PROPER, 260 Is wie Ter uso} Ni aoe GEE EAS ] VIB IDEF ; , JS) 34 STO (10; ITSB K2a x25] HIS §34 ISTO Isto (via) ISTO (TO;) Jaa. . 534 ISTO CAeRy ZERO? 1o¢1,1989 _ sq 13 Ys 20 ¥ \, . = > er 2 ost Eekow OH os, 10 FOO nop comprimenred aber dee -es cis Laze, 24,125] '* eae a] 1" LITE K24, 25, ISO , 0 Te IRDR (YD, Y40,041 s Jal 034 | CLEAR SADD ae z CYB) Leber 2e6)| Jaa TSTu ESTO (VIA) _| caRRY IA Pd FI2 TO [15 L Tx TEEC, J24, 325 |] Type TICF Note go7 16 IRDR (Ys) 15 Yoo d ——4 4 ISTO(TO;) IDEF K4o | NI2 4 TEEC, J24, 25 | U3 : | SSUM BS 1 Kat REAO DIGIT ANSWER Z TRDE OX PES)! Berg GENERATED ny 4 CARRY ? . is Yo4 Pe TICF, J50,¢51] $13 TEs 350] 213 12. oa _ : TTSB.K24, 125 ISTO (YD; ) K40 341 KS 040, MA J34 ISTO IG - TO (s-is5 © F50 179 Co liBF J25 |i FSO: ISTO (Xj) : olen: \ SNeM 15 Wii TI . 14 IkBFIIce | EIS Kwa KAO KAL ISTO L¥Di) [ TO 15-15 K28 J40 J4l ISTO (TDi) . = TLE Keo is) Fs ’ ra) 40 341 0 Is 6 150 0tD)) 0 TEEC J24, 25] QiS K25, K40,041 Q TROR (IA) 434 K TO /5-00 \ ° re) | 4 TO 18-07 SDiv: LSUCCESSIVELY SUBTRRACT T-REG FROM Y-REG ENTERING THE NUMBER OF TIMES THE SvareAcT/aVy \S ACCOMPLISHED WITHOUT OVERFLOY INTO X- REG. é ENG. RESP. — DIV. | UNLESS OTHERWISE NOTED DESCRIPTION PART NO_ DWG. NO. MATL SPEC. par asl ane Fite | ON Nr —t——-] SUBROUTINE - DIVIDE newcerT@racuace OXxX +0.02 O.XXX +0.905 ENGINEER ANGULAR + RICK SPANGLER LABORATORY WESTRUMERTS [APPROVED MACHINED SURFACES \63 NEST AMSY. 10: SUPERSE! FINISH SCALE ate 1 — 00 nor seas — D -09/00 -90370 -\ L_D- 09700 - 70376 -/e SYM REVISIONS APPROVED DATE ENTRY EFF=D9 27 ¥ 16 Bet 00 Ih TRANSFER KEYCODE TTCcB % TEC, KSO RACK INTO BFF paaad Trea Jse | teszee Bad 13 hae ea 28+ | CLEAR Te ARITH 2713 PROGRAM 2oyl/ ah Kao CAKRY FUNCTION 02 Bs ENTRY ‘ KEYS READ i) 1942.43 ARG HYPER I (0) INFO. YF25 TO CFF «bq T0 SUB’ FROM SDRO, RECT. COS. ARC HYPER SIN f eFF=GO TAN fier LOGy INT-X ex We POLAR RETURN 22YOo F 22 V 13 22 V/2 22 VY 07 22V/0 2e ies 22 YoOs 22 IER ee Yor _ 24 22 oe 22 i TsToCeIA)I3A] Troendna TsO ti] FeO THA Tero GIAD Tae) 5 Sjo@raasy TsrouInraA °* TspemMisy T25 Kee KH) TST tA TATISHSIS luo YY IY/ K24, K25,J40 J40, K4( TEEC 534 J2§; ITSB J40, K4 1 TEEC 40, KA TKBF Ke+ ITBF TTSB ket LICF 1052.54 [S33 Tid Ka! Gu f kal ITSB TTSB, TTBS 324 Kes ICR, [7B ae ate T40 K4! T+0 KH I DEF Ieee Aube 34 J Ol Dy O7N I+ IT Loe >| hea 2/07 aS iT 24 WIS ws CTOKE S70 (TIA) TH STO SOM |TSTO (NATH! } 7570 J34 STORE [TsT0, 734 J TROR (Yn5) STOKE RI PET tose, s For x0 [24 ITSB O St one (TBR THM TRANS. \¥o, Ke), TIBF| — |A4O “TRANSFER LZEEC KH | YF oe TRANS \LICF C#2 VECTOR |K25, T2¥ TICE K50 Het VECTOR gs 7 VECTOR. TQ4z,43 SEXP Bo FO o7¥ 1/7 OT 2) Y 06 », 2sfo7 21¥00 SWLG eee ROM ESTO @IA) 734) Ka a Ob ¥ I+ Yow i: om) ne aban Lh eee TANGENTS Erbe reee | SAD Lpsz, st GTAN) (SEXP) (SEXP) CSTAN) LOS2,S4 Weaticse ey 10ss 4 caida (SEXA) sea (STAW! Kfres>2 27V/0__y, 21 Vie 2113 Tar 1s (Swe) SARC) (SNLG) (SARC ) F50 >! x< UNITY RCL ACC- ACCT y Eh Lon 277 /3 22 [ol 22 (03 : 22 ¥ OO Beas” / | loszs¢ [STOTISF ]NIS 0,534,174) P T5710 Jat CF IKBF ee coe 525,440, Hee | tose s4 IT TBE, 7 (TO CLR x) 3g GIB TEEC, TSB TEC THO NED ined SDAO YeIAZ | INITIALIZATION 32¥o4+ 27V 03 Geis ae Mae a aa 000000] NO INITIALIZATION i af XaY a SURE PACE FLAG e iF Ps Yay 25 SARE O say? Spi IZ_LAST FART OF CLR, 010000} ARC 27\i4 i as aR 37V00 byl as SDAO 1OOIll] HYPER (CoD) we i T34.K24, 542 Fri roraas |Kph dal 043 Je eee Pen? HlOlL || ARC- HYPER 2 24 O44 36Y/7 ROM Jes ISO |B23 F50 >L CHS . Is8F b 24 |O/ 32900 cia ML ‘Toar lies ICBF as K52, ELS ea Clé ° 1Os2,54 iuaan han , BFF=000000 36Y00 36V00 ver ni (TIA) y2e 36Y00 Shige T@S2, 54 K52 IDBF LQ52,54 TIA) |Vz2. aes FF: 00/00/ xosz,s¢ [1910 ( BEF=I//II 7a 8 IDBF 33916 a 19. ENG. RESP. — DIV. | ROM| ry UNLESS OTHERWISE NOTED ITEM DESCRIPTION -_ PART NO. OWG. NO. MAT'L SPEC. CHS — TOLERANCES — : ITLE tak Lid exlasee- seneakon-* eens rr6é7 CORDIC ENTRY WEWLETT@) PACKARD ane Y acd SUBROUTINE a7y/4 27}/4 27 Y/4 AnauiARe LABORATORY INSTRUMENTS SUPERSEDES FINISH SCALE — po nor scate— | D -0%00 -#370-/2 HP 9280.0-04 | BP-O7/00 OD /7 - 3 4 ORT EFF? Es p— SMPY . SYM REVISIONS APPROVED DATE crF=0s | | Onl CFF= Ds ies ed WFF=Y od J 20 ¥ > Bay (LBS £25 Ole TIch FTEF oe Thee DVIS 524, J2e KAO lst 290 way rte ee bi Leb! (v-Res)| IN q a ae TRANSFER Y-REG ra To <f ~ REG rs YBre Pos 3 7 < > ee a NSE . . 20 7 os STORE S in TO9 TSB, £24 cB) Giz TO /MIFIALIZE J4o Fiest PIvisoe. isto (7) io Fr Sen 13 Jos ras ' SIGN Y, - Lesh lice | Cll a Tbe "w15] READ Sian , Fete “txpy| oF x-2ea (2 Yo4 ITSB,£24, ts Pre eS), 4,4 Sey 3 TD fbb Jat Ont Qiz 1 u Txperoce | El! ICSE, 325 KSO,§STON) | ene y. 266 Toor J24.205] )™ . JSO, KSI Lever (x- ee) 2 LOCK, J24, 425 | G// 40, KAI ‘ PIER DIGIT IRDR (66 READ MULTIPIER DiGi . } 3 20 For o Vir MULTIPLICATION COMPLETE (52- NES. KSe 106259} EXP FLAG 13 oz Bit —y LOcr, IG2E 324,925, KA) | READ 209 = IRDE (%-REG)| Y- EXPONENT Tu i TORF Ieee HN & Te a id Sa DECREMEN® 3g. ISTO LST CXIA) i 02 J MULT. Dioir MULTIPLIER IDEF KS PIN \J50 KSO = ZERo? Jat STORE X-EXA _ |Zsvo & BES) | pase STOW: FE4) | iim y- exp Pts ADD EKPONEWNTS ~ obed.. . el eee me: } TIGRE S 5 a | ISTO (XE) T7s8 Tock | IN me ee K24K25 J44 : 1738, £24 «15|77 34 1S8TO 04) KSI, 340,344 \ Qu J5q IST Ogal 0 AOb T ToY PROSEAM COMPLIMENTS woo STHE IN Vy S SADD F24 IF F50 ¢S7Dees 20¥ I aT Te sven 108,54 | LIC, J24,J25] KZ St 13 Yoo uy ie A Loe TD ve, reap [Ticr 2a] °" Revi 34 Tele CAREYTE | eve cvial rier via INCREMENT IF CARRY 13 OG Isto (¥&) ADD 1 TO F jeu > CARRY IA IF 7 CARRY EXiSTS CARRY 75 ¥ ai & a 4 Tier LSZe Zi2° 024,525 053 K Kay, LROR (K 26) a ane [00T FLAG READ MULTIPLIER er 7 2 Li sal DIGIT. THAT WAS Kal, Joon . STOREO IN 13-01 TRDR (KIA) 5 EFF ES IKBE IIcF | DID J34 ENG. RESP. — DIV. UNLESS OTHERWISE NOTED TEM | iH DESCRIPTION ante PART NO. WG. NO. MAT'L SPEC. Exe NOT ODO — TOLERANCES — ) i JOHN SCOHY ]9-2-69] S fo 5 SUBLOUT/INE — SQU) 7 | MEWLETT@) PACKARD S919 FSo 15% O.XX +£0.02 O.XXX 40.005 eNaNeER 177 he i) V ANGULAR + FREES SVBLOUTINE-MIKTIFLY // MACHINED SURFACES Ne F008 a ; . — 0 NOT SCALE — 0 -09100 -70376 -/3 . FLAGS? ZcIAl — QUADRANT \NFORMATION ZeIAL—* FUNCTION; Og —TAN, lig—SIN, 13g —COS, Obg —TO RECT, 15g—LOGX, I7g— LNX,B* YeIAZ —® PREFIX KEYS} 01-003 — ARC, I0g-+O7 — HYPER. a ig STAN QUADRANT INFORMATION ¢ rEebioG L SIGN OF TAN FOR PROPER QUADRANT: IS IN F24. ee ee! 2. SIGN OF COS FOR PROPER QUADRANT IS IN F2l. F ; 3, IF ROTATED BY ODD NO. OF TIMES, FINDING THE 21 Woo COMPLIMENT OF THE ANGLE, INDICATED By F25. CLEAR TBF K24K25 A20 GUADANT 162,54 FLAG IsToO (EctAl ee YRAD Fu TSB, J24 20 2 High rahe aout wat i ISTO (TIA) J34 STO i DETERMINE DETERMINE NUMBER anny cre INITIAL, DECADE UNIT CIRCLES OF ITERATION-2» 14 — 14 32 IQ@52,54 a Es KS50 |R20 52,353,540 reao [ircr x40 ]°7° 1985.54 Va Ja4, 34 157 aRGuMenT|s4l TEVR. EXPONENT 20F lb SINT ay 32 te 32 Via R IMSD (Dg) Jes ZERO [Iker IDcF | S20 SIGN BIT TEP CYeOs j TRDR (Yes) ISTO (Z,REG) 14 You store pa TEEC]I20 i /K25,J40 QUADRANT | ay 4 15TO. ARGUMENT FLAG (2IA1) <LUNIT CIRCLE FIND FRACTIONAL, 12. 32 FOS RT OF TTS6, Ja4, 25 ]J20 Tker |°°° PART.OF CIRCLE stoke 9's ass Tice] 120 340,54), 334 ISTO (YeD) X-REG ISTO(K-RE6) ISTO (TIA) MANTISSA 5 ARGUMENT 23 io rimes 20, fea t @ CONVERT TO xx q RADIANS 23 | Ve t 32 Yow un SzFio TTS6,k24, «25 |G20 153,54 " TDC, 5500u] K20 340 ,J44, 334 K40, 141, 32S Isto IRDR (YES) 11 Yoo vy Lzo ERDR (Yea) Te SINT ) 31¥ CO ec! A2\ TESt, TEEC wd M20 tases | WEF TEEC 24 IESF, . TO 3/-/ J25, K52, J40 Bt0 PA slaves S41, 34, ISTO TROR (2eTAN J ; 2740 ad EXTRACT tT “ Fee | Less THAN 1 RADIAN Rae ek i, Re \RFZ t "% |rent % ' © Ter Spencal P22 26/9 33 fon] DECREMENT QUAD FLAG 10 Wi4 TIwr Ci, Cis ]N2O ole (BeZAI) JF ARGUMENT NEGATIVE IBF, J24, K25 | B2\ INCREMQNT Sig WN OF Sedea eh QUAD FLAG ARGUMENT TO 3-11 , PEFORM, - + TRIG IDENT] = Tocwve LY sindcos 36 | 0! 33 Vie E2\ LBRS, U5) [EXTRACT SIGN. OF COS (F2)) F51=0 isr PASS, DO 2 ' IBRS TO SHIFT F21—> F50 33 O71 p2 3 IEEC, J25 JM, ISTO(#IA)) G2) | KS), K40 Kal F25 HEPR LO F25=0, FOUND S\N ¢ COS OF THE &, COMPLIMENT ANGLE Se 33 Yos TE SF J2\ 33 Fis pa % STORE SIGN OF COS sr PASS (X-Dq) ITSB, IEEC 1810 (¥ D9) 192.54} 04 J52 STORE SIGN OF TAN 2up PASS (Yc Oy) 33 Joe 1952,54 [IBF K25,c52]°?' O41, JB4 ISTO (TIA) 5 ist PASS cael ares = rN 14 PUT SIN € COS READ SIGN i INTO PROPER REG OF TAN 2up PASS RY COS —m X-REG Be fo sin PY EZ-REC H2I SIN TAN = cos a; at 2. COS<O s--/+=4 =: +/2= a! 1952,54/TESF J51,952|-! + + K40 .S4),J24025 TR] (Yes _JREAD SIGN OP SIN IN Ye Da \ () \F FROM 32-15 33 Yo cz ates Tape inn [REAP OUND FLAG isr PASS (BeIAL) P-ovoo__- 90370 -/4 SYM REVISIONS APPROVED DATE $3 COS -»X-REG SIN —Y#Z-REG 1768S, IT¢B Leec, J24 J34,J4 J41 TAN Mies K24, K25 KSz sto (T/A) FUNCTION ENTRY IDBF,K25, C52] O21 wt, 334 LSTO (TIA) JOHN _SCOHY [—enamneen DESCRIPTION PART NO. DWG. NO. MAT'L SPEC. 8-28-69 RICK SPANGLER APPROVED FE FLOW CHART - TANGENT ROUTINE WEWLETT@D PACKARD LABORATORY WSTRUMENTS FINISH SCALE D -09/20 - 0370 -4 | Q- 09/00_-90370_-/S SYM REVISIONS APPROVED DATE q SARC ARC SIN/ ARC COS 4 ieee _ iniietese aa N a ene Bu 2: Vis py nec acy 03 a5 en D6, 24,325) AIT rOCF, eh an IEEC u2s |HI7 TEEG eA aS THT 1952, 54 oH 334 0, KAD, K25 34 | COMPLIMENT 2,048, Edi 54 1053, 54 S70 (7/A) TROR LX-E,) ISTO (2/4) | gas rm sow N34 LRDRCHA) LPs " HAVE Dove CONVERT ar. 4 Nes. Leck 7 34 ¥ O2 35 Foe " - rE. INITIALIZE ¢ TOTTRN TESF, 124,025] AI T1e8, TEEC 317 Re? GENERATE 043. 334.40 709 42,43 K24, K25, 041 FSO RADIUS VECTOR IRDR EIA) , J34 LSTO(TA 269 oz K24, Jas, Kzs] DIB KSI, 134 1 SHIFT XTOY,E IS70._ (2A) | TMS0 (RR) L25] UIT LEet, joa) ci8 a 207 | VRATH 34 @ - 025, 140,441 Lepe ce By) 36901 sa B S F | KI O3 TEEC, J24zs5] BIT Ey, sb OEE 7 f EIB 2 Wis 381, K40 40 44,134 L0s25¢ HAD TO sree TKBF, eee] E11 Teoe (X04) STO V4i 1 +40° oe