Digital PDFs
Documents
Guest
Register
Log In
XX-A9106-70
1971
80 pages
Original
5.2MB
view
download
Document:
14 FP15T2
Order Number:
XX-A9106-70
Revision:
Pages:
80
Original Filename:
http://bitsavers.org/pdf/dec/pdp15/diag/MAINDEC-15-DAQAA-A-LA_System_Exerciser/14_FP15T2.pdf
OCR Text
.._- --- -- -- -- .-. 0 C) o --- - PAGE: 1 SRC FP1~T~ () 'FP15T2' I~ST .TITLE ,EBREL IVERS ION{jo A 'Fr~5T~' 0 0 0 FOR SYSTEM EXERCISER MOD~bE T~ST MODU~E FOR SYSTEM EXERCIS~R 0 • ° I 0 ICOPYR1GHT SEPT, 0 I I ~2, 1971 IDIGITA~ EQUI~~ENT CO~~ORATIQN, IPROGRAMMER: ~AR~-~, ~OUS~ 0 ITHIS PROGRAM IS D~SI~NED AS A RANDOM FP15 IFQR THE FP15 E~OATIN~ potNT PROCESSOR, 0 0 MAYNARD MASS. 01754 IN~TRUCTION EXERCISER I I 0 (10000 R '~vJ0~?00 A 0 A R 0 0 0 0 0 0 vJ0vHIJ1 R kH;)0000 00002 R 000vJ~0 0~HH13 R 00(1~kJ(o vJ0004 R vHJ00~2 00005 R 0vJ0ro~2 00006 R 0620~1 0kH107 R 652462 000l.0 f~ ~J00200 00011 R 0'~ 02 0 R 0{iJ0000 0002~ R 00QH1v.)v, 00022 R 000v)00 00023 R 0000i()kj 00024 R ~'0 vH~ 0 V, 00025 R 000~H:)0 0(1)026 R 0vJ00~~' 00y.~27 R 000000 00030 R 000000 000~l USERSW A A I~OAD 0 '1 vJ ,DSA 0 INIT - ,DSA 200 ~BhOCK SYSERR A A A A A A A R 0U000k~ A ~RGODE v) o '1 o o o o o o o I (~JECI 0 'f.Pl~T2' A A A 0 S£RVICE; .StxBI A A MODU~E. o R A AS A 'CP' 0 7 /DATA SWITCH l0 INHIBITS TEST, 0 IERROR INDICATOR fOR MONITQR. 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 o o o PAGE ~ FP1,T2 SRC o o o 00001~J A 000020 A 0vJ0000 A C500040 A 0001?J0 A 0fQ0~0fD o A 000400 A 001 ~~f~ A o 71200'1 A o o o o o o o 0030vJf1 A 0~)360k) 7154v)~j A A 715600 A 001~0v) Q1f120kH) 0024kHrJ 0060k?0 0074~~J 710~y}~ A A A A A A 710100 A 7132~0 A 7166k11 A 7166~2 A 716~'~3 A 716604 A 7;1.6~~~ A 7166:l.F) A 71662kj A 0064~0 A 717300 A 717200 A 7103:1,4 A 'F P15T2' T~ST MOD~~E o rOR SYSTEM EX~RCISER o ITO STORE ADDR;SSES JNTO ~XEGUTIVE AT bOAD rINg IDEFl.NITIONS FOR EXERCISER UR~10 - IUNROUNDED UN~20 Vu$3~ FL;40 o IUNNORMA~I~ED IUNNORMAhIt~O/UNROUNDEO IFbOAT~NG IDQU8~E PRECISION DP;100 IM?200 $U8;40~ RSUB;1 0 00 ~D;300~ ST;lMl3400 OV;7b2~00 ~Jt~715400 SJ~s7~'600 MUb;l400 OIV;g000 RDIV~2~00 ADDs6000 OP6T09;7400 ORR=.7~~000 OSR;710100 fNt1;;'71~25C~ B~A;716601 8MA;716602 BL~~116603 8PA;1~~604 BRU;716606 8NA;11~610 SAC;71~620 UR;6400 DM~;717300 OMF;717200 FPT;71~314 .EJECT o 11MME.DlATE ISUBTRACT IR~VERSE SUBTRACT o IBAsIC FP ~OAD ISTORE IMM~OIATE /BASIC DIVIDE IbOAD JUMP EXIT REGISTER ISToRE JUMP ExtT R~GISTER IBASIC MU~TIPLY IBASIC DIVIDE IBASIC REV~RSE DIVIDE IBASIC ADD IOPCOUE 6 TO 9 MASK o o o IOIAGNOSTIC READ R~GlSTERS /PJAGNOSTIQ ST~P AND READ REGlSTERS INORMAl.I~e:- FMA CASIGN) EPA o < ISRANCH IF FMA ~ERO IBRANCH IF FMA NEGATIV~ IBRANCH IF FMA < OR = 0 IBRANCH IF FHA POSlTIVE IBRANCH UNCONDITIONAL IBRANCH If FMA NONe2ERQ IBRANCH IF qUARe BIT J5 SeT IBAsIC BRANCH IDIAGNOSTIC MAINTENANCE MODE ON /PIAGNOSTIC MAtNTENANtE MODE OfF IF~OATING POINT T~ST o o o o o o o o o o o o o o o o o o o o ------~----. --- ..--- . o 0 0 PAGE FP1~T? IINITIALltE THE 0 0 0 0 0 0 0 () 0 00032 fi 00vJ0v)0 00~63 R 7kj7"164 0~Hi)34 R 2kHa~32 000J5 R 'J4 00 S2 00036 R 1400t:!0 A A INIT R R R 00037 R 140Y.)t:!~ R 160040 Ii 140022 R 0001~ R 777f;J~Qj A 00042 R v}40545 0kH643 R 776~0.0 00044 R vj40~~o 00045 R 77740(~ 00046 f~ 044Sbl 100047 H l~HJ~S~ 000e;>0 R 10426!5 0eH~j51 R 71vJ~14 00052 R 6r~4266 00053 R 204~/2 00054 R 0400-;3 00055 H 777'1 ;j (,j 000:>6 R 0445~5 00057 H 204~7~3 130.060 R 044='13 000~~ R 6042~6 R A R A R o EBA bAC tNIT DAC SERVJ9 E D7!M OZM SYSERH~l D2M EROOOE SYSER~ K~"100 kAW PAC Kt~000 DAC THE ERROR ~OCATIONSt ~200ki "400 RATIO o BUPFER, Jt-'1S FPRAN IINITIALl~E R A R R R A Ji',1S H9~DS~ ICHECK FOR THE HO~O SWITCH. IT~ST FOR THE FP15 fPT J~1P 6AC PAC LAW DAC R R R k,A.C R J~1P DAC OP~COOE IPP15 Is NOT OUT THERE; o D§TSW~ ~~0 - ISET UP DISTRIBUTION SWITCH, o (fPEXER PASCNT (/20000 PGMLOP- EXITM~ ISTART THE T£::5T, I o IS~RVICE ENTRANC~ FOR THE fp~5T2. o I ~ERVICE A A R A R A 0 ESA o LAS AND S2A J~1P l",JE: (XJEA) JMPu R R A o o I I I I A o ~HROR~ I 00062 R \Q0tt.HH10 0v)v)63 R 7 077 24 00f'164 R 750eHD4 00065 R 5~J00i0 00v.H,6 R 7402~0 00067 H 604256 00070 R 7154kHJ 00v.j71 R fJ(14!5'14 00072 R 620(073 00073 R 000000 o o ~i000- OAC 6A~J IC~~AR R 0 0 o TEST, o bAW 0 0 '~Pl~r2' I 0 0 o 'PP15T2 1 TEST MOD~~E FOR SYSTEM EXERCISER SRC DSTSW0 0 I . E:XITt~!:;; .,. 115 TH~ HObO SWITCH SET? IYf,:S, r:XIT , I~OAD o THE 'JEA' REGISTER. PSTSW~ IPROGRAM DISTRIBUTION LOCATION, o 0 o o 0 o 0 o 0 0 .EJECT ---. --.--~-~---~------~~---.----'--."- ---~ - - - - - - - -- --~- - - - - - - - - - - - - - - - - - -------_._------_.- --- --- - - -~-------- - - - - - - - - - - - - - - - - - - - - --_._---- - o o o o o o o o o o o o o o o o o o - --------- o o '0 ----~---- -~-~-------------- PAGE FP1~T~ 4 00~)74 SRG H 140540 R R 140;;3~ R 00076 R 1405~1 R 00077 R 1405,s7 R 00100 R 140542 R 00101 R 140543 R 210102 R 140544 R 00:1.03 R 224547 R 00~"'4 R 044~S2 R vJ0105 r~ 444:>47 R 00106 R 224~~2 R 0(Q107 R kj40~27 R 00;110 R :1.005~7 R 00111 R 101'~9. R 00~J75 'FP15T2' MOD~bE t~ 504~~3 02M IOV8Y0 LAC~ AUTOAG OAC AORESS# 1St AUTORG ~AC* AORESS [JAG OPCOlJ~ JMS RANoAt JMS IFRESt bAC OP90Q~ o IRANDOM OPERATION IG~NERATE RANDOM NUMBERS. IINTE~ER FbOATING RESTRICTIONS ANO (OP6TQ9) SAD (APO) . JMP FPPAUq SAD (SUB) JMP F~PSUB ISOFTWARE ,."ADDITION 1,,~@SUBTRA9TION 001e;0 00:l.~:t 00:t~~ 00153 R 040~~0 R 600163 R 200527 R 5n4610 R 544604 R 600i~5 R o COMPU~ATtONS COMP~ET~~**~O*ouo**.*o** FPU HARDWARE QPERATIONAb BOoKEgPING hAC OPCOO~ o SAD (CAb> JMP PPUXA2 o f:t 204~ll R 0403~2 R 20 4 21 2 R f')40225 R 20461:5 R 0403,0 R R R R f~ R R R R 00:1,54 H 60vJl~3 R AND (EC) ~ l..AC (%ANSH~) hAC (%XFAC1) DAe FPPMA- hAC (%XHAC;l.) CAe F~~MBPPUXA2 o l,t,.REVERSE SUBTRACTJON DIVIStON /,,~.REVERSE /INT~GER QPERATINOS o OAC FPANSR R R o o ISOFTWARE R 2v)46~7 R o I, ~"DIVISION jMP F~PRO~ R 6vJ01~2 R R 2~14~v.J~ R R Qj403!:>~ R R 2yJ46yj6 R R D4022~ R FOR RANDEX JMP F~PPIV JMP PPPRS~ R o 1,.,.MUbTIPLICATION SAD (RSUB) FPUXAl o SAO (MUl.,)· JMP FP~Au~ SAD (PIV)' 00131 R 544604 R 00132 00133 001:54 00135 00136 001.37 vH:J140 0014:1, 00142 00143 00144 00145 00146 00147 o OVRFbX IINITIALJ~E 00130 o D~M DVByrJ0 07!M I*o**o*******~~o*i***i********o***o************ 00127 R 200527 R o FOR SYSTEM EXERCJSER /FPU EXERCISER RANOOM HARDWARE OP~90DE EXECUTIONER FPEXER D2M DVRFbR . . D~M OVRF~~ D~M UNDFbN· [) t ~1 UNdF b ~ 001~2 R 2005~7 R 00113 H 504!;)75 R 00114 R 544576 R 00115 r~ 61910.53 R 00116 R 544517 R 00117 R 60;1,040 R 00120 R 544~~0 R 0k?121 r~ 60104, R 0012~ R 5446~i R 00123 R 6010~2 R 00124 R 544602 R 00:1.25 H 601057 R 00126 R 60:1.0~~ R T~ST 13 OR ~ WORD XfER F~OATING FMA lAND fLOATING PMB o .JMP FPQXA3 ~AC O~aOD~ o SAO (CA~) J~1P FPl)X2A o AND (UP) ". hAG (%ANSR~) DAC FPANSR l..AC (%XFAC2) DAe F~FMALAC (i!XHAg~) DAC FPFMB JMP FPOXA~ /2 OR 1 WORD XfER INTEGER FMA IANp INTEGER FMS o o o o o o o Cj () PAGE I ( ) o o o o o o 5 FP1~T~ 00155 R 204614 R 00156 r~ (i}40~~2 R 00157 R 2~J46i5 R. k10160 f~ 040225 R 0016~ R 20461~ R 00162 R vJ40~~0 R 001.63 R 200527 R 00164 H 504~l'1 R 00165 R 34462v) H vJ01§6 R ~344621 R ~10~67 R 040224 R 00170 R 200527 R 001'/~ R 504622 R 00172 R 344623 R 00173 R 0403~1 H 0K)174 R 504624 R 00175 R 344625 R 0KJl76 R 0402i'ki R o o o o o o o FPUX?A 002(10 R 101~~;j f~ o bAC (%XF'AC3) o hAC (%XHAC3) FPUXA3 DAC FPfMS- . LAC O~~OD~ o AND (71k}367> TAD CUR) -- . TAr) DAC L,AC AND TAP DAC AND TA.D o (~D) FPUt,P OPCOPE: (770'J, 77) (ST) . FPUST (~OU~l) o 13?00 IAbWAYS IMM~OIATE 00217 H 141~,j~ 00220 R 141436 0022~ R 141~~0 00222 t~ 200224 00223 R 044:'?5 DAC CF'PUST Jt~S IFREst /AkWAYS URlUN DPFRES ISOFTWAR~ OPE~~T'ONS 20MP~~TEO AND ADDRESSES RESERVED o Jt"1S I V 1A HAR0 vJ ARE 9QMPl) TE THE f. PU FUN CT ION IN" 0 PCOO E " 1 - · IINITIALltE HARDWARE TO SOFTWARE EXECUTION RATIO 40.0 TO 1 bAC RATlt)~ S~1 A ~A ~~ ~4~H1 OAC F'P~OQP Jt~S HObDSW lSi! PASCNT J~1S I.,AW OAC lS~ ICH~CK FOR TH~ HOLD SWITCH, - PCNEXT '!I!S~ PASCNT IEXIT ',.,5' I P~M~OP SKP EXITM4 Oz::M XJEA "J~1P ITYPE 'DONE:' DlM xjtA+4 R Dt,M I,.,AC PPUl.,O FPFMA XJEA+6 OAC FfAlb~~ CAb o o o o PPULJ)- CAL ,EJECT o o Dr- M XJEAtiI~ f~ R R o o RATIO JMP ,.7. R 00224 R 000kH!0 A 00225 R 0000kH!? A o (URlUN) I 00201 R 204~~1 R 00202 R 7401~r1 A 0VJ203 R 777400 A 00204 R yj445§;l, R 00205 R 1042~~ R 00206 R 444~45 R 0020"1 R 6002J.6 R 00210 R 104252 R 0fc12l~ R 7777,s0 A 00212 R 'iJ44~4:; R '10213 R 4445~6 R 0VJ214 R 741~0t?j A 00215 R 6042~1 R 0{1)216 F~ 141462 R o hAC (%ANSH~) DAC F'PANSH PAC FPFt1A- 00177 R 10:1.5~~ R o o 'PP15T2' TEST MOO~~E POR SYSTEM EXERCISER SRC IMODIFIED TO CONTAIN HARDWARE ~OAD UR+QPCOOE', •• ,ETC. IMODIFIED TO CONTAIN AODRESS %XFAC~ OR %XEAC2 . o o o o o o o o o -.. ----.---.~.- o ,'" J \........ 0 PAGE 6 SRC FPlt?T~ IIF' DPI OR OPF AND MANTISS = 400000 000000 IHARDWARE vJI LC STQHE AS 000000 000000 0 0 0022(' R 2("21527 00227 R 5':i49;J.'~ 0023~) R 5446:t,fLl 0kJ2~1 R 741000 00232 R 600247 00233 R 20051;5 00234 R 7402'~0 00235 R 6002~7 00236 R 200514 0Qj2~7 R 544~2~ 00240 R 140'14 00241 R 200520 00242 R 7402160 00243 R 600247 00244 R 200~i7 00245 R 544626 00246 R 140~1.7 0 ~H9247 0 0 0 0 0 0 0 0 0 0 OrCaDE: R l,.AC R AND (OP) P) SAD R SKP J. t'1 P CFPl) A St A F~ R R SAO (q~0000) o ISINGLE PREClSloN o IF'MA LOvJ NOT .. 000000 o IfMA HIGH ... 400000 AND FMA ","OW :::; 000000- o t.,AC %XF'AC3 JMP CFPU ~AC %XFAC2 o o (9 A H R H DiM %XF,AC2 R A bAC %XHAcj R S~A J~1P R R CFfU bAC %XHAC2 o SAD (~~0~~0) DtM %XHACi:? o. lIN CTE:ST~ f3UPPY BROT~E:R CFPl) hAC OPCOPE o H R 2C~0527 R 0025121 R 504627 H 0025\ R 54460~5 R 00252 R 74100"-' A 00253 R 6002~3 R 00254 R 2005l.~ R 0~255 R 5046~~j R 00256 R 54fJ::>14 R 002,7 R 74020k) A 00260 R 600262 R 0026~ R 1405i3 R 00262 R 6'ij02~kj 00263 R 200514 002f,;4 R 540:;'15 00265 R 74020,:? 00266 R 7410~0 QH4267 R 140513 'PP15T2 f TEST MOD~kE FOR SYSTEM EXERCISER R H R A IIF FL.OATING AND ~1ANTISSAS = 0 Cl:.EAR EXPONENT %XPAC1 FOR COMPARISON AND (QP:f~) SAD ( ~ b ) o ISPP S ~<p JMP ,+l0 IPPF L,AC %XFAC~ AND (777000) SAD %XFAC~ - ". o . S~A Jt1P ,+2 DtM %Xf:AC~ J~1P ~AC .1f,e %XFAC2 SAO %X[AC~ S?!A A s~<p R Or.M %XFACl ,EJECr- -. IMANTISSA ,. "' 0 o o o 0 o 0 o 0 o 0 o 0 o 0 o 0 o o o o () PAGE o o SRC FP1~T~ I 0027r~J R v.1~HHH1k') A 00271 R 400652 R o o o o o o o o o o o o o o T~ST MOD~kE POR SYSTEM EX~RCISER o ICONFIRM LOAD/STOR~",UR".FUNCTIONS PROPERLY CFPUST CAb 1ST ORE UR:UN FPANSR'40~00~ IINDIRECT FPAN$R SHOULD IINO JEA EXCEPTI6~8 _... . , . .HAVE OCC0RREO .. o IM1GHT LOOK LIKE REDUNDANT CHECKING BUT 1T ISN'T o o 'PP15T2' A JEA IISOFTWARE MIG~T . . . E~PECT . .FUNCTION BUT THAT- FUNCTION SHOULD NOT OCCUR HERE IEXC~PT 0~272 R 7777'77 A R 044;J~4 R R 20yj527 R R 5'-'J4~?'1 R R 5446U4 R 00273 00274 00275 002'16 00277 R 741@~0 003~0 R 6010304 00301 R 200,i5 00302 R 544626 00303 R 600J5;,s 003'~4 AND (OPlf~) SAD (CAl.,) SKP A R J~1P ~AC SAD R R R o o o CT~STkl %XFAC3 (4~vH100) #30 o JMP XfkOW IUNEXPECTED OV~RF~OW o A R R StA JMP XE~OW tUNEXPECTED UNOERF~OW o 7402kHJ A St A JMP Xf~OW bAG XJ;A+~ IUNEXPECTED ABNORMAL DIVISION o v)0306 R 6015~2 00307 R 20j.4.s4 003:1,vj R 74 vJ200 003~l R 6~':l.5@2 003;1.2 R 2014~6 0~)3l3 r~ 00314 00315 00316 00317 00320 00321 00322 00323 00324 R 6015~2 R 20144k1 R 74020VJ R 601502 R 200,34 !.H1P TPRT· ~. 01E.5T0 R R R SAD J~1P l~AC R 200~35 R 00325 R 5442 6 l ILbEGA~ MEM REPERENCE (~1) %NA2 o o ERROR~ . SAD (~~) SKP o ~AC %~FAC~ o ..IMP ERRQR!") CTESTl SAD %ANSk; S~<p CTEST3 JMP ~RROR? ~AC %XFACj CT~ST2 JMP ERROR~ bAC %XFAC2 IFMA FAI~URE ~OAa/$TOR~ JMP ERROR~ /FHA FAlbURE ~OAO/STOR~ R v.J0340 R 2~)0514 R 0034~ R 5405~2 R 0vJ342 R 74:1.0U0 A 00343 R 6046"(0 R 0~344 R 144554 R IUN~XPECTEP SKP R 604~S7~J R 540;'.s~ X~~A+1 S2A JMP X[bOW ~AC %NAl A R 00336 R 741000 A 00337 R 6043;'1 R S~A ~AC R R 0v.;326 R 7410U0 A 0032'1 R 604~70 R 00330 R 200;>i3 R 0033:1. R 540~~1 H 00332 R 7 41 kH~k' A 0~33..s H 604~l'Q R 00334 R 20'1;>15 R kAC X~;A ~AC X~~A+'? R R 544~~1 R B 741000 A 0k)335 R - OVERF~OW IE::XPECT OVE:RFL,OW #30 2014~2 R 00305 R 7402vJ0 A f~ IF SIN~~E PR~2ISI0N INTEGER AND FMA = 400000 THEN EXPECT bAW el DAC COMPbP# 6AC OPCQDE. o IEXPONENT FA!~URE LOAD/STORE SAD %ANSR3 SKP COMPbD ,EJECT o o SAD %ANSR~ SKP D~~1 o o o o o o o () (J PAGE 0 0 8 FP:l.5T~ SRq 00345 f~ 20vJ5c7 R 00346 R vJ4(~~S~7 R 0034'1 R 740040 A 00350 R ej000~0 A 0 0035l, R 0(1)00'9 0 A 003S2 R ~i000{D0 A 0 ~10354 0 0 0 0 0 0 0 0 C) 0 'FP15T2' TEST 00353 R 2014~2 R R 7402~0 A IMOOlflEO TO CONTAIN ADDRESS %XHACl OR %XHAC2 COMPbETED AND SAVED IN 2'S COMP COMPARE RESU~TS . - IMODIFIED TO CONTAIN HARDWARE STORE •• ~~,ETC, FPl,)ST CAb FPANSR CAL IMOOlFIED TO CONTAIN AODRESS %ANSRl OR %ANSR2 IHARPWAR£ OPERATIONS 20MP~~TE~CHECK FOR UNOCC~RED BUT EXPECTED JEA EXCEPTIONS TPRT ~AC XJEA .. SeA ,. IA~L. OPE:RATION~ Jt~P TPRT~ l.AC OVRFk,H S7!A R R Jt··1P ElNT;l.l l"AC OVRfb~ IOVERFLOW EXPECTED.,. R St,A I., ,ETC TPRT~ ~H1P EINT30 bAC X~~A~2 A S2A R Jf'1P TPRT~ ~AC UNQFbN R A J~·1P R R A R R A R R A R TPRT2 LAC xJ~A+'~ S~A J~1p II"BUT NONE OCCUREO bAC OV8y~~ S2A I~AC lqVBY~ S2A Jt~P E I NT3!:;> ,EJECT o o o o TEST~ JMP EINT1' o o EINl13 hAC uN9F~; St A Jt¥1P E 1NT~4 A o o S7!A R R o o StA J ~1 P t: I NT;l. ~ LAC OVRFl..X A R o o XX CAb 00357 R 7~020V,J A 00310 R 7402,?kJ 0kl371 R 600400 0~3'l2 R 200541. 00373 R 740200 0YJ374 R 60~512 0~375 R 2fH'J5~'1 00376 R 740200 00377 R 601'~0 00400 R 2014j6 00401 R 74~3200 00402 R 600~il 00403 R 200~~2 00404 R 740~00 00405 H 6015~2 00406 H 200544 00407 R 7402~0 0041~j R 6015~4 EX~RCISER .+~ FPFt~8 00356 R 200~10 R 00365 R 740200 A 00366 F~ 601!,>44 R 00367 R 201~~4 R FOR SYSTEM hAC OPgOf')E DAC 00355 R 600361 R 00360 R 601~40 00361 R 2C~)0!;)32 100362 R 74020kJ 00363 R 601'42 00364 R 20('0543 MOOY~E 1,,!A8NQRMAL DIVISION EXPECTED BUT NONE ogCURED I,I,INTEGER DIVISION BY tERQ EXPECTED aUT NONE OCCURED o o o 0 o 0 o 0 o 0 o 0 o 0 o -~---- ------ --- ~- -- ---- -- o 0 0 0 () 0 0 0 0 PAGE 9 FP1~r~ SRe 004:1..1 R 20~j5J~ R 00412 R 34vl~40 H 004;1,3 ~( 340~4t R 0 0 0 0 0 TEST;!, 00417 R 340544 R 0k1420 R 7402Uf:1 A 00421 I~ 600443 R 00422 R 2037~~ R 00423 R 540~01 R 00424 R 74:1.000 A 0042=> R :t004~6 R 100426 R 203706 R 100427 R 540533 R 00430 R 741000 A R 1001~q R R 2037kJ5 R 100433 R 540532 R 00444 R 104205 f~ 00445 R 20454'l R 00446 R 544~:S2 R ~J0447 R 7410~19 A 004~0 R 600074 H T~ST MOP~~E o FOR SYSTEM EXERCISER o OVRFbJ. OVRFbR TAD UNDPbN TAD UNDfl,.l TAD OVRFbX o TAO TAD o OVSY00 19VBY~ S2A Jr'1P FPAl..~OK+~ bAC %EAC~ SAD %ANSRl. IEXP~CTED INTERRUPT EXCEPTION OCCUREP·~ /SOFTWARE RESU~T TEST~ JMS FPERROR ~AC %FAC~ SAD %ANSR~ SKP Jt~S TEST2 FPERRQR bAC %FAC2 ' SAO %ANSR2 J~1P J~1S FPERROR GAb FPALLOK F~;RRcjR Jt~S IS~ J~~p RESU~T IHARDWARE RESlJl~ T IFMA (~OW ORDER) /SOFTWARE RESUbT IHAROWARE RESUbT RESU~T WRONG IFMA (HIGH ORDER) RESU~T WRONG /JMS IS FOR OIAGNOSTI~ AID, BOY, RA!IO FPbOOP JMS TF8RA RESULT o o WRONG ISOFTWARE'RESUbT /~PA ERROH2 JMP FPABO~~T FPA~~OK I~NORE IHARf)WARE RE:SUt., T SKP 0~4~l 00434 R 600441 R 00435 R 100436 R 00436 F~ 0000~10 A 00437 R 104332 R 00440 R 600444 R 0044l R 444~~1 R 00442 R 600205 R 100443 R 10:1.~~5 R ~AC TAO 004;1,4 R 340537 R 004;1.5 H 34(~54~ R 100416 R 3405~Z R 004~2 0 'FP15T2' IRATIO QPERATjONS COM~kETE PPA80RT JMS HO~USW ICHECK FOR HOLD SWITCH. ~AC AUTOfiG SAD CAEOPCQB lEND OF OP~COD~ BUFFER? S~<P .~ ~ IY~S, RESET TA8~E ' JMP P~~XER .EJECT o o o o o o o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o o o 0 0 0 0 0 0 0 0 0 0 0 [' U PAGE 1'1 FP:J.~T~ 00451 R 440:'~~ 00452 R 600455 00453 R 101776 00454 R 600505 00455 R 440;)45 004,6 R 600505 0(i)4~7 R 777~00 00460 R fj405~5 0046:1. R 2vJ4663 SRC 'FP15T2' MQOYkE FOR SYSTEM EXERCISER T~ST R R H R R JI'~P I+'~--- ~)MS INITAC)R o I"AW ~;~VJ~~ F< [JAC K100y,? R hAC (AOPCQBF) DAC AUTORG 00466 R 504664 R 0046'7 R fj40~~r~ H 004'lC;J R 344~35 R 0k1~71 R 7401Y:JC1 A 0047~ R 600465 R 0047~ H 204~~~ R 00474 R ~340560 R 00475 R 7411,¥,? A 00476 R 60046, R 00477 R 200~~0 R 00500 R 064,47 R 00501 R 444547 R 00502 R 7401000 A 00503 R 444~5i R 00504 R 600465 R 00505 ~~ 20463J R 00506 R f~j445~7 R 0v)5~7 R 6'100/4 R o .JMP r-EXIT lSi: K~000 JMP FE Xi'r A 00462 R ~J44547 R 00463 R 7777').6 A 00464 R vJ44?5l R 00465 R 104~i5 ~~ o lSi: KT2f4'4VJ R bOOPl o bAW t!t62 DAC T£MP2 JMS RANG~N AND (31777) 13~K [JAC TEMP - TAD C;SOP9DB,.,;) S~1A ~Jt1P bAC !...OOP~ (edpCOSF~l) TAP T~MP·· SPA Jt1P ~OOP;1, hAC TEMP OAC* AUTOHG .. o o o o 152 AUTORG o IS2 TE:MP2 J~'1P kOOPl o i~op FEXIT o -. - - kAC (AOP~UBF) PAC AYTORG, I.H1P fPEXEH ,ElJEej ~ - o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o o o· 0 0 0 0 0 PAGE 11 0 0 0 0 0 0 $RC 0051,0 R 0vH~00'~ A (~0511 R 9)00000 A 00512 00513 00514 00515 00516 00517 00520 00521 100522 v)fo 523 0 FP1:>T~ 00524 00525 00526 00527 00530 R (~frj0~v.?0 A R 000v.H)0. A R QH~00~0 A R 0(iJQHH)'~ A R v)00000 A R vJ 0v.HJ00 A R 000000 A R 000(iJ~0 A R 0rj0000 A R 00000~;; A R fHH.HHJ0 A R kH)0000 A R (100VJ00 A R 0kHJvJkl0 A R 0005j0 R 00531 R 000000 0053Z R 0000kHD 1210533 R f100000 00534 R 777777 vJ0535 R 7777?7 00536 R 000000 005~ '7 R 0fH!J000 00540 R 0':)0000 0054~ R 000000 00542 R D0fH10fJ 00543 R kJ000@0 00544 R 0rQ00~v) 0YJ545 R 7770.'00 00546 R 7'/60vJ0 'fP15T2' TEST FAC~OC 0 ESGLOC (1 EXPb.-OC %XFAC1 %XFAC2 %XPAG3 %XHAC1 0 0 %XHAC2 %XHAC3 AC1LOC 0 0 0 0 0 12' AC~l..OC AC~~OC 0 OIVSW 0 RSW (1 F'PACTV 0 OPCOOe: V) 0 MOD~LE POR SYSTEM EXERCISER 0 ITEMPORARY ISOFTWARE IFMA IT~MPORARY ISOFTWARE IFM8 /%XfAC1, %XHAC~ I%XFAC2, %XHAC2 I%XFAC~, %XHAC3 A ITEMPORARY STORAGE TEMP .OSA TEMP IRESULTANT HAAbwAR~ CAkCUL.ATIONS %ANSRl 0 IEXPONENT .,. WORD 1 DPF AND SPF tWORO 2 OPE AND SPF WORD 1 OPl %ANSR2 vJ %ANSR3 (() IWORD 3 DPF WORD 2 DPI WORD 1 SPI tERROR IF; WORD 3 WHEN OPI OR WORD 2 WHEN SPI %NAl bAW ~l %NA2 ~AvJ ~1 I~RROR IF~ WORD 3 WHEN SPI IEXPONENT OVERrLOW OVRFbJ. 0 IEXPONENO UNDERF~OW UNPFb1 0 IOVERF~OW VIA ROUNDING OVRFbR 0 tUNOE.RF~OW VIA NORMA~ltlNG UNOFb,N 0 tAaNORMA~ DIVIDE . OV8Y00 v.J /INT~GER OVERFbOW OVRF~X 0 1[)V8Y0 0 IINT~~ER PIVISION BY ~~RO A Kl~00 A KT~000 A A A A A A A A A A A ~AW";~0~ o 0 0 0 0 0 0 0 0 0 0 hAW ~2~~0 t EJEct~" " 0 () 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 I - - _.- --- - _.- -- - - - _. --- -- - _.. - _.- -- - -- -- - --- --- --- -- -.- .- - - - --- -- . o 0 0 0 0 0 0 0 0 PAGE 12 FP1~T~ SRC 'FP15T2' IO~AGNOSTIC 00547 R 0046.~4 00550 R e104Q04 0055:1. R 0v)4~04 00552 R ~104604 0055~ R 'J£i4604 00554 R t104604 0k15~5 R 004604 00556 H 004~04 R R REGADR R R R R R ISTA02 0 0 0 /8 SIGN AND FMQ 1"17 IPt'1Q 18e'135 /ADD~R 00!'!!~7 IA(JOER 18~~:' IJ;A 00!'l1l7 ISTA 00~17 (SEE 8E~OW) IAR 00~,,7 IWRITE CYCb~ IJNTl ISTA~7 ISTA08 ISTA09 ISTAl0 ISTA~l /STA;1,2~17 RANDAT EXP~ANATlON /fP~5 BUSY Ir~TCH CYCbE lOP AND CYCk;: IE:XP CYC~E IPIJN CYCLE /NQR CYCL.E ISTA04 ISTA05 005"12 R 104515 R 00573 R vJ40~14 R 0v.'574 R lvJ45l5 R 00575 R 04fJ515 R 00576 R 104515 R 00577 H 040~l6 R 00600 R 104515 R 0(1601 R 04051'7 R 006k'2 R 104~15 R 00603 R 04052(1 R 0~604 R 2(10527 R 006~5 R 504:>'75 R 00606 R 544600 R 00607 R 6002~~.? R 00610 R 54460l R 00611 F~ 620567 R 00612 R 544607 R 00613 R 6~0~~'1 R IPMS 18t-35 ' ISTA01 210567 R vj00~67 R 0057vJ H 104~i5 R 0f)57:l R 040513 R 18~35 ~0~11 ISTATlJS REGISTER _..... .. BIT ISTA06 0 o IF'r~A IEPB 00~:1.7 18 SIGN AND PMS 01~17 .OSA ~9AI~) ,rJSA (gAl..) IOSA !9Ak) 0 0 IA SI~N AND FMA 01"17 ,OSA ~9Ah~ ,OSA (t;Ab) 0 0 o IBMB 00",17 18MB 18~35 I E:P A fH~hd. 7 tOSA ~9A~~ .OSA (9Ab) ISTA~3 0 ISC 12~17 AND IR 06"17 . ,DSA(gAb) 0 ,DSA RANDAT J~1S o o .~ 0 FOR SYSTEM EXERClSER REGISTER ~UFFER FIL.LED FRO~1 "ORR" tOSA (CAb) ,[)SA <CAb) .DSA (CAb) .OSA (9A~j anSA ~9Ah~ tDSA (CAb) tDSA (CAb) ISTA00 0 MOP~kE ,OSA <gAb) R 00557 R 0049~1 R 00560 H 004604 R 00561 R 0k'4~Q4 R 005~~ R 004604 R 100563 R f)046~~ R 0~5~4 R 004604 R 00565 R 004~~4 R 0~1566 R 004604 R I~ST IINT2 lTJME STATE 1 ITIHE STATE 2 ITIME: STATE 3 IOIAG INST REG 12~17 RANGEN o o o o o o o o DAC %XF"ACl JMS RANGEN bAC %XfAG2 o Jr'1S RANGEN OAC %XF'AQ~ ~H1S RANGEN o DAC %XHACi J~'1S RANGEN DAC %XHAC~ JMS RANGEN o DAC %XHAC~ kAC OPQQPE AND (OP6T09) o SAD (MUL) Jt>'lP RANOTl SAD (DIV)" JMP* RANDAT IDIVISIQN ~ EXIT SAD (ROIV) ~,JMP* RANOAT IDIVISION " EXIT ,EJECT o o o 0 o 0 o - _ ... - ...- -- -~ o 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 PAGE 1~ 00614 00615 00616 0061"/ 00620 00621 00622 00623 00624 00625 00626 00627 0k1630 006jl 00632 00633 00634 00635 R 200516 R R 50464~ R R 3405~~ R 0405i6 R 2!2HJ527 R 504610 R 544610 006:>2 R 'FP15T2' R H R 50462l R R 544604 R F~ 741'1v)0 A Jt4P* o PRECISION RANDAl J~1P RANfJT 2 bAC %XFAC~ AND (1'/T7) OAC %XF- AcJ R R ISING~E TO ~ESSEN OVERFLOWS o ISINGLE PRECISION INT~GER ~AC %X~fAt3 AND (;~7'1) J f-1 P * RAN PAT o SAO (OP) SKP ". JMP* RANPAT hAC %XFA92 AND (i/(r/) DAC %XF'AC2 L.:AC %XHACg AND (177'1) DAC %X~iAC2 ~H1P* HANoAr .EJEct o o DAC %XHAC3 RANDT2 o o AND CDPlFl.,) SAD (CAL.)· SKP .., R R R 200~;\? R R 50464~ R R 040,17 R R 620~?7 R o ITO MASK WHEN OPCODE IS INTEGER MULTIPkY lAND INCREASE l.NTE:GER"OPEHArlON RANDTl kAC OP90 D; R R A R R %XHACl ~ND (~7)· . r)AC %XHACl R R H R R o SAD (OP) Jt1P':; RANOA, ~AC o 0 DAC %XHACi t.. AC OPCQDE AND (9 P) - R H 20052'1 R T;ST MOD~bE fOR SYSTEM EXERCISER IAODITION AND §UBTRACIION MASKS ~AC %XHAGl iND (37)· , IOOU8~E PRECISION TAD %XFACl R F~ 620~67 R R 200516 R R 504641 H R ~j40~i6 R R 6205~7 R R 600644 R 2005~5 ~J0636 R 504642 00637 H 0405i5 00640 R 20052v) 00641 R 504642 00642 Vi 040~20 00643 R 620~67 00644 H 544610 00645 R 741k1i10 00646 R 620S&', 00647 H 2005;4 00650 H 504642 00651. R 040514 00653 00654 00655 SRe FP1~T? IOOUBLE PRECISION INT~GER o o o 0 o 0 o 0 0, 0 o 0 o 0 o 0 c' 1 -- ------ .. - _.. - _._------ - - - - - - _ -- - _._-_ ... - _. - --- - -_. _.- - --- -- - - -- -- --- ---- --~ -- -- --- ---_. -_ .• - -.- ._- - ---- _.. --- --- -_.- - --- --- _.- ---- -- _.- -- - - - - - - - - -- - - - - - - - - - - - -- --- ---- -- ._-- - _.- -- - -- - -- ~ 0 0 0 PAGE 14 0 0 0 'fP15T2' T~ST FP1~T~ SRC 0Y;'J656 R 000000 A 006,7 R 2(~46~3 R 00660 R kJ44547 R 00661 R 6~~j~~2 R 0 0 _.- --- ._- --- - - ~ ----_.- ----- - - - - - - -_._- - - - - - - - - - - - -- -- -- -_._-_.. _._. 0 () i --- .. _-- FOR SYSTEM EXERCIS£H MOD~bE IF6 0 ATJNG POINT HANDO~ OP,,900E SUFFER SETUP AND RANDOM "R" PRIMEH FPRAN bAC (AOPCIJBF) PAC AUT(JRG ,_ .. PPRAN ~JMP* /8E;GINNING OF 8UFFE:R ILEGAL Fb()ATlN~ p61N~I OPERATIONS TO OATE I OPODBP 00664 R 710~1(1 A 00665 R 7;l,04:HJ A 00666 R 71.012 0 A 0066'1 R 710470 A 00671:' R 71v;5~0 A 0067;1 R 7~0:;~t~ A 00672 R 710~~'Q A 00673 R 71vj5?vJ A 0 0 I I~, •• SUBTRACT.!., 00662 R 710~~~ A 00663 R 7l~J5~(a A 0 7:t0~0~ 7l050~ 710~4~ 710~5~ 7:1.046~ 710.~7@ 710540 71.0~5~ 71056~ 71,057~ IlSS lESS IPse /URFSB IUNFSB IUUFSB IOS8 IURDS8 IUNDS8 IIJUDSB 0 0 0 ISPl IOPJ ISPF SPF UR ISPF UN ISPF UR UN IOPF IDPf UR IOPF UN IDPF UP UN 0 0 0 I 0 0 0 0 00674 R 711~v~0 A 0({)675 R 7111")0 A 00676 R 71101'1 A 00677 R 711v)!";>0 A 00700 R 711060 A 00701 R 71,1Y.J7v) A 00702 R 711i1o A 0070~S R 7111~Y) A 00704 R 711 1 20 A 00705 R 7111~~ A 0 0 0 71l00~ 71110~ IIRS IERS 711Vj4~ /fRS 71:1J!l5~ ~111150 IURFRS IUNFRS IUUF'RS IORS IUHORS 71116@ I\JNORS 711060 711~7~ 71114~ 71117~ IUUORS 0 ISPI IDPl ISPF ISPf UR ISPF UN ISPF UR UN IDPP IOPf UR IOPP UN /QPf UR UN / 0 0 I', ... , R~ VERSE ~UBTHACT!". I 00706 H 711~~'~ A 00707 R 7115~0 A 0071,0 R 711~1vJ A 00711 R 711~~~ A 00712 R 711460 A 0¥)'l~3 R 711470 A 00714 R 711540 A 00715 R 711550 A 007;1,6 R 711 5 §0 A 0071'7 R 7115'10 A 711~0~ 71150~ 711440 71145~ 71146k' 711470 71154~ 71l55~ 71l56~ 71157~ ,EJECT 0 0 0 /;.~tMULTIPbY,!!, I 0 lIMP IEMP IPMp IURFMP IUNFNP /UUFMP I(J~1P IURDMP IlJNDMP IUUDMP ISPl IOPI ISPF /SPF UR /SPF UN ISPF UR UN IOPF' IOPF UR IDPF IJN IDPF' UR UN 0 0 0 0 0 0 0 0 0 0 0 0 o 0 I I PAGE 15 rpl~T? C) o o o 00720 R 712~~~ 0072~ R 712100 0Q)722 R 7;t20~~ 210723 R 73.20'0 00724 R 712110 00725 R 7121~r.~ I 00726 R 7121Y:'~ 00727 R 7;1.2:>00 007~vJ R 712~~~j 0073~ R 7;1.24?0 00732 R 712 5 00733 R 712~~0 o o o o o 712~0~ 7121.0~ 71204~ 7:t205~ A A A A A A 71214~ 71215~ I I,', ! I REVERSE 9 IV J DE ~ , •• I A 7:1.2~0~ A 71250~ 712~4@ A 7j,,2~5~ 71254~ 7l,255~ A 10 A A IIOV I~PV /FOV ItJRFDV IODV IURDDV ISPl lOP! ISPF /SPF UR IDPF IDPf UR IIRO IERD IFRD IURFRD lORD IURDRD ISPI IDPl ISPF ISPF UR IDfF I 00735 R 7;1.61~~ A A 00736 R 7l.604Q) A 00737 R 71.60:5W A 100740 R 7160~r~ 00741 R 7160./k' 00742 R 716i~t1 00743 R 7~61~'~' A A A A 00744 R 7161~'!) A 00745 R 7161,7ej A 00746 R 0kH~H!J64 A 0YH~J0~2 A 71604~ IlAD lEAD IFAD 71605~ /lJRFAD 716060 IUNFAD 7:t6VJ7~ E.OPCPB IUUFAfJ 7;t614~ 71615~ lOAD 71 6 16@ Il)NDAD /UUOAD 7;t.617~ EOPCDB~OPCOBF+l AXKX=EOPCDB~OP~P~E~l /LJRDAD ISPl IOPl /SPF ISPF' lJR ISPF UN ISPF UR UN IDPF IOPF UR IDPF UN IOPF:. UR UN IFROM THIS TABkE OF AOORESSES THE FPU OPERATIONS Wl~L BE 8~ED ITHIS TABL,E WI~L BE S2 RA MBI",ED EVERY 10(1-'0 PASSES lAND RESET TO ,. THr: t~ISIING EVERY 20@0 pASSf:S .EJECT 0 0 0 716100 716~00 0 IDfF UR 1,.,.AODITION"!t 00'734 R 7160~10 0 0 I o o 0 I ~ , , t DJ VI OE , ~ , , o o 'FP15T2' T;51' t"IO()YkE FOR SYSTEM EXERCISEr< SRC 0 0 0 0 0 0 0 o 0 o 0 o 0 o 0 10 0 o 0 o C' ..... - .... -- - . . . --- o 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 PAGE 1~ FP1~T~ SRC 0074"1 R 0v)0o?2 R 00750 00751 00752 00753 00754 00755 00756 00757 H ~10066.s R kH106Q4 R f;)006~5 R 000666 R 000661 R 'PP15r2' TEST AQPCDBF OPCOBF ,REPT"-AXKX,l OPCOBEIt'l . R ~~ R R *R R ~. R R {t R R KH106 'Iv) R vJ00?'~1 R 0006'12 ~J0760 R 0~0673 R *R 0~j762 R 0006'1~ 00763 R 0VJ0~'/6. 00764 R yJ'~JV" ~ 7 7 00765 R 000700 00766 R fJ007~1 0~767 R 0v)Q)7'P2 00770 R ~10070j 007'71 R 000'10 il 00772 R ~J001vj5 00773 R 000706 R *R R *R H ~R R *R R *R R ~R 0006'i4 R *R R 0~7~~ R *R R ~R R *R R ~R R i~ R R ~R R ~·R 00774 R 0007~7 R *R 00775 R vJ0071v.) R ~R 007'76 R 000"/11 R ~R 00777 R 0007:1,2 R *R 01000 R 000"113 R ~tR 01vHL~ R 0007:l4 R *R 01002 R 0007;15 R *R 0;1003 R 000716 01004 R eH10'lij 01005 R 0")0720 01~J06 R 000'l~1 01007 R 0007t!2 01vJ10 01vJll 01012 010:1.3 01014 01015 01016 01017 o o o o o o o o o o o o R *R R *R o R 0100723 R *R R (100724 R *R R (100725 R 000726 R 000727 R 0VJ07~0 R 0007~i R ~R R *R R 0007J4 R 0007~~ R 0007J6 R 00073'/ R 0007~v) R 0k'07~1 R *R 01022 01023 01024 01025 01026 01027 R 0'10742 010~0 R C;j0vr143 01034, R (:H)0744 01032 R vJVJ07~5 FOR SYSTEM EXERCISER R -ItR R "tR R {~R R ~·R R *R R *R R 0007..52 R ~~ R 01020 R 000733 R {lR 0102~ MOO~bE R *R H ~·R R nR R *R R *R R ~H R *R R nR AEOPCDf3 EopeDS R o o o o o o 0 o 0 o 0 (=) 0 PAGE :1,7 FP1~T~ SRQ 0 'FP15T2' POR SYSTEM EXERCISER TEST MO(J~LnE 0 0 1****oADOITJON***** I 01~33 0 0 R 200~27 R 0i0~4 R 504o~0 R rPPADD 01035 R 544~i0 r~ 01036 H 60:L~~1 R 010~7 R 60110;; R ~AC ANO OP9QD~ 0 (DP) SAD (DP) JMP D~[I,Aq JMP SP~~AIJ IPOUShE PRECISION FbOATING AND INGEGER ADO ISING AND lNTEGERl.,E PRECISION FL,OATING ADO 0 I 0 0 0 l*o***SUBTRACI1ON****~ 01040 R 200527 R 01041 R 504~lyj R 0 I fPPSIJ8 01042 R 544~l0 R L,AC OPCQUE,: AND (DP) SAO (UP) J~1P 01043 R 60l0'l3 R 0104 4 R 6yJ11~7 R DP~l.~B Jt4P SPf~SB 0 IDOUBLE PRECISloN f~OATING ANO INTEGER SUBTRACT ISING AND ~NTEGER~e: PRECISION F'l..OATING SUBTRACT I 0 1*****MULTtPLI9ATIQN***** " 0 0 01 0 15 R 200527 R 01046 R 5046lvJ R 0 FPPMUl. JM.P DPF'LMl.. J~1P SP~LML 01051 R 6011~1 R IOOUSLE PR E9ISIoN F~OATING AND INTEGER MU~TIPL.Y ISING AND INTEGERL.C PRECISION PL.OATING MU~TIPLY l*oo~*PIVISION***o* 01052 R 200527 01053 R 504610 01054 R 5446.3.0 01055 R 6~lY)17 vJ1056 R 601i13 R R R R R I fPPDJV ~AC AND (UP) 01057 R 200~27 R 0 01060 01061 01062 010q3 R 504610 R 5446i~j R 601i01 R 6011i.~ D~E~OV JMP S~f'~DV I FPPRSB R R I~~**{~*REVERSE R I FPPROV l~A 0 IpOU8hE PREOISION FLOATING ANO INTEGER HEYERSE SlJ8TRACTlON ISlNG AND INTEGERI.-E PRECISXON FL.OATING REVERSE SUBTRACTION OlV.l.SION,i;**o* OPCQDE AND ( DP) SAD (UP) -- Jt·1P DPF~RD S~fbRq Jt~P ,EJECT 0 0 0 hAC OP~OD~ I 01064 R 2~H?)527 §lJ8IRACIIONn~u** SAD (ljp) JMP DPF'L,RS Jt'1P S~EL.RS R 01065 R 5~)46;t,0 R 01066 R 544610 R 01067 R 601l~3 R 01070 R 601117 H IDOU6LE PRECISION F~OATING AN() JNTE:GER OIVIDE ISING AND INTEGERl..E PREcISION Pl..OATING OIVIDf: AND (OP) R 0 ~. SAD (OP) ~H~P 0 0 ope oDE I 0 0 0 hAC OPCODE AND (Df ~ . I*~~***REVERSE 0 ., SAD ( [) P ) 01017 R 5446.~0 R 01050 R 601015 R 0 0 I 0 0 0 IOOU8L.E PRECISION PLOATING AND INTEGER REVERSE DIVISION JNTEGER~E PRECISlO N PLOATING R~~ERSE DIVISlON ISING AND 0 0 0 0 0 0 0 0 0 o o PAGE o o o o o o o o FOR SYSTEM EXERClSEH ISOFTWARE: MANIlSSA PR;V IOU~L Y LOADED BY I I,,~ADOITION o 07:1, R 750~~0 A o 0/2 R 601~l1 R I OPFL.AD CLA \JMP DPF~~E~ I I .' , , SlJ 8 T HAC T I 9N 01073 R 204~~3 R I f)pFL,SE3 0l0'l4 R 601.2l~ R !,AC (1) Jt~P D~E~EX I 1",MUbTIPblCAIION 01075 R 2fl46 11 R I OPFLML l..AC (2) 01076 R 60~211 R Jr.1P O~f~EX I I '. • t 0 I V I S ION 01077 R 2046~5 R 011~0 R 601211 R PPF~PV I bAC (3) JMP D~f.k,EX I o o MO[)~~E ISOFTWARE OIR~9TOR OF DOU8~E PRECISION FLOATING AND INTEGER", o o T~ST I o o 'PP15T2' 18 1~'fREVERSE S~BTRAGT19N 01101 R 2vJ4~~6 R 01102 R 6012;1,4 R I DpFL,RS I ~AC (4) J~1P D~t~E0 I;.,REVERSE D~VlS~ON 0110J R 2049~7 R 01104 R 601211, R I OPFLHD I I I I I I ~AC (:;) J~1P D~f.LE.X ,EJECT "D~AC" o o o o o o o o o o o o o o o o o o o o o o o o o o (j o PAGE; 19 FP1~T~ 'PPl5T2' SRC () T~ST MOOYbE FOR SYSTEM EXERCISER ISOFTWARE PIR~gTOR OF SING AND INTE~ERbE PRECISION F~OATING!t, o o I ISOFTWARE: MANI1SSA PR~VIOUSL.Y kOADEO BY "FbAC" o o I l'~ • ! ADD I TION 01105 R 2046~0 R o o o o o o o o 1,.!SlJf:3TRACTION o L'3AC JMP S~[L,~X I 01107 R 2046~1 R 01110 R 60121~! R 01;1.11 R 204~2r~ R I SPFLSB I..AC ("I) , JMP S~~~E.X I I '. • • MtJ bTl Pb leA ! ION I SPFLMl~ l.AC (1"-') J~1P SPFLEX 01112 R 60l2~~ R 011;1.3 R 2~j4~~2 R I I',' , ! 0 I VI S ION I SPF~OV 01114 R 6012~4 R kAC (11) Jt4P S~f.~E;X I o o (6) SPF~AD 01106 R 6012~~ R o o I I;,!REVERSE S~8TRACTlqN 0111' R 204§~3. R I SPFkRS 01116 R 6012~4 R bAC JMP I (l~l SP[l"r: X I,,!REVERSE DJVISlON I 01117 R 204~~1 R 0i120 R 60~2~~ R o SPfLRO LAC (13) J,MP SPf:L~X I I I o o o o o o o o o I I I o I , • EJECT o o o o o o o o o o o o _ _. _ _ _ _ _ • _ _ .. ___ ._ - __ ._ - _ _ . ___ • • _ _ • . _ _ _ _ _ • ____ - _. _ _• _ _ _ _ _ _ _ _ _ - - __ - - ______ •• _ _ _ • - ~ ______ - - • ____ . _ _ _ _ _ _ _ - " __• _._ - ___ - _____ - - ____ - _____ • • _ _ _ _ _ _ _ _ _ _ - - - __ - - - - - - - ~ - - ____ ~ - - - _______ ~ - ~_. _________ - - _._ - - • ______ - - - - __ - - - - - - - - __ - - - - __~ - - - __ " _ .• _ _ _ 0 - _ _ _ _ _ _ _ _ _ _ _ _ _ ._ • • ._ _ • G o o o o o o PAGE: 20 FP1~T~ SRC ISING~E 204~63 0112l H R 01122 R 041i~!) R 01123 R 103722 R 01124 R 000~;1.4 R 01,125 01126 01.127 01130 R ~)(H?JVJ00 A R 000~i6 R R 200527 R 504!:)15 0113l R 544600 01132 R 741000 R H R A 01133 R 601i~7 R o o 01134 R 200~47 01135 R 504610 01136 R 5446~0 0113" R 601143 01140 R 203?~l o 01143 R 2k'37~, R o o o o o 'PP15T2 f TEST MODYbE FOR SYSTEM EXERCISER R R R R R 0114~ f~ 74vJ2~)0 A 0i14~ R 44054;,s R 0;1.1~4 R 7402~H1 A (~1145 H 44(~5~3 R 01146 R 2037~6 R 01147 R 740200. A 12'1150 R 44054;S R 0115~ R 2037kl7 R 01152 R 74402(1) A 01.153 R 043705 R 011~4 R 204~~5 R 01155 R 74002vJ A 01156 R 043706 R OPIEX OOIEX AND DOUBbE PRgCISION INTEGER SOFTWARE EXECUTIONER bAC SOFTEX PAC odlEX' JMS oLAe I~OAO 3 RANUOM WORDS ;OSA ~XFAC~ lAND F~OAT IF INTEGER CA~ ,DSA %XHACl, lnAG OPCOD~ AND (OP'~T09) SAP (M~~) 0 o o o o SKP J~1P DPIEXl IOPERATION IS"JNTtGER MU~TIP~Y IMUST SWAP AND 'SHlFT ONE RIGHT BECAUSE OF sOFTWARE FINISH POINT IMY FMQ = %FAd~ ANa %FAC3 WITH THE HlGH ORD~R BITS IIF %FAC2 OR %FAC~ NOT = 0, +1 TO OVRFbX IIF ; @, SWAP'~FA~2, ~ WITH %FAC4, ~A LAC OPCQOE AND «jp> SAD (OP) JMP ,~4 M LAC %EAC~ S7!A IS2 OVRFl.,X o o o o hAC %FAC2 - .. . o l"AC %F~ Ac~ . o S2A 1Si! OVRF'hX SeA lSi! OVRFbX !.zAC %F; AC4 ' RCR O.AC %FAC2 bAC %fAC4A RAR DAC %fAC;S ,EJECT o o o o o o o o o o o o o o o o o 1 o (j 0 0 0 0 0 0 0 0 0 0 0 0 0 PAGE 21 FP1~T~ SRG 01157 R 203705 R 01160 R 543706 R 0116~ R 7402@Cj A 01162 R 6012~v.' H 01163 R 143~kJ4 R 01164 R 1437~7 R 01165 R l4372; R 01166 R 200544 011b7 R 741200 01170 R 600127 011'11 R 2005:1.5 0117~ R 7402t~0 01173 R 44054J 01174 R 200520 01175 R 740200 01176 R 440543 011~7 R 600127 01200 R 1021~J2 01201 R 2vJ3721 01202 R 744100 01203 R 600127 01204 R 2037~~ 01,205 R 740~S.1 R 2037~~ 01210 R 741401 0l.21~ R 344643 0121~ R 043';/~' -. hAC 19VBY~ SNA J~1P FPUXA1 %XFAC~ A R R L.AC %XHAC~ lS~ OVRF~X A R R 01213 R 600i2'7 R IS2 J~IP 18~CAUSE bAC %E§I9N St·1A t CLl, ~Jr1P FPUXAl bAC %~Aq~" TCA PAC %fAC3 bAC %FAC2 Cf"1A: s~~ TAD (1)' DAC %FAC2 JMP FPUXAl ,EJEct .- .' o o o o FPUXAl JMS %FIX, o %XFAC3 IS NORMAbI2EO IN FPU HARDWARE OVRF6~ IC()MBINE SlGN-el'r"~JITH AC PPIEX2 o o S~A A H R EXPONENT - l,AC S2A R ~~EAR JMP DPJEX2 D2M %fACl P2M %FAC4 OtM %E~I~N IIF INTEGER DIVISION ~y tERO IS EXPECTED AND THE FMA lS NOT 00~000 ITHEN EXPECT OVERE~OW #30 A~SO WHEN SPI STORE R R R A R FOR SYSTEM EXERCISER SAD %FAC3 SeA A R R MOD~~E IIF RESU~T IS ~ERO ~ QPIEXl LAC %FAC~ , R A 01206 R 043706 R 0~207 'FP15T2' TEST - IFlx BACK TO INTEGER o o o o o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o C) 0 0 0 0 0 0 0 C) 0 0 0 (\ ,--,,' PAGE 22 FP1~T~ 01214 01215 01216 01217 01220 0122:1, 01222 01223 0122'1 01225 R 34143.5 R R 041226 R R 044 5 23 R 200~2'1 R R R 504603 R 01230 R 20~$7~5 R 543706 01232 R 74020k1 01233 R 60:l,21° 01234 R 14371d4 01235 R 1431~7 01236 R 14372l AND (Fb) " SAD (CAL) Jt'1P DPtEX . DSA .DSA %XHAC~ IIF RESU~T IS'2ER~ ~ ISOFTWARE CA~cULATlaN~ 96EAR EXPONENT l,AC %FAC4 R R o o SAD %tAC 3 A H R 203721 R R 3437105 R 0j,2~2 R 04370~ R 01243 R 6001~7 R %XFACl '." CA~ DOFEX o o Jt~S R o o J~1S SOFI~R QL.AC R A R fOR SYSTEM EXERCISER MOOY~E IDOUBLE PRECJS10N F~OATING SOFTWAR~ EXECUTIONER DPFL~X TAD sbfcau PAC OOFEX' OAC SOFTI;Xft l.AC OPCQPE R R R R 01237 R 60012'7 R 0lr2~0 0124~ 'FP15T2f fEST R 544§04 R R 6011~1 R R 101 3 :10 R 103722 R 00051~S 01226 R 0G00k:J0 01227 R 010051.2 0123~ SRC o S2A ~JMP 1+' o oi:M %~~ AC1 Di;M %EAG~ ()~M %~§I~N JMP FPUXAl ICOMBIN~ SJGN f~IT"t~ITH AC . ~AC %~SIGN - o TAD %FAC2 [JAC %fAC2 JMP FPUXAl ~EJEct' ; o ISOFTWARE RESU~T ~EFT IN %FACl TO %FAC3 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 C) PAGE 'FP15T2' 23 () o o o o ("\ V o o o o o o o o o T~ST o FOR SYSTEM EXERCISER MOP~bE I ISINGL.E PRECISION Pl.-DATING SOFTWARE EXECUTJONEH 01iZ44 R 3414:l.~ R I $PF~EX 01245 R 041262 R 012~4 012~5 R SOFiEX bAC OPCOPE AND (F k) -SAD (~b) R .)MP t+~ DAC R 200527 R R 504603 R 01251, R 5446~)3 01,252 R 601257 0~253 R 777772 01254 R 344:>?S 01255 R ~j44~63 01256 R 6k~112i 0;12,'1 R 10131.0 01260 R 104~7l 012~:l, R 0QJ0~i3 01g62 R 000000 012~3 R 000516 R H R R R SQFE:X R R R H R 0;].303 R 5046S0 R 01304 R 343704 R 01305 R 'J43·,04 R 01306 R 1437~h6 R 013~7 R 600127 R o ISOFTWARE CAl..Cl.JLATlON~ o %FAC3 o IIF RESU~T IS 2ERO .~ 9kEAR EXPONENT bAG %FAC2 SAD DZM 01275 R 34370~ R o IDP SOF T~~ ARE lAND GO TO INTEGER .OSA ~XHAq~ R R R R o IBACK UP IPOINTER FOR ., CAb StA R o F~AC %XFACl., ,DSA A 012,4 R 203721 R 01276 R 043705 012'/7 R 2V.'37~1 01300 R 5'~4655 01301 R 043"~1 01302 R 203706 ~JMS F~ R 2037~5 R R 5437~~ R 0;1,266 R 740200 vJ126'1 R 6012i4 01270 R 1437~4 01271 R 143707 0127~ R 14372l 01273 R 600127 LAW ~6 TAD SOPTl;X DAC SOFTEX JMP DPIEX ~H1S SOf.NR A A R o TAO SOFCQ!J DAC SOF'EX 01 2 16 R 0445§3 R 012~7 0l.2~0 o J~·1P ,1'? o %FAC~ DrM %VAC4 oi!t~ %E?IGN J~1P FPUXAl ICOMSINE SIGN - SIT ., HIT~ AC L.AC %FSIGN TAD o %FAC2 DAC %FAC2 ~AC %FAC;:!' ANO (777) () DAC %F' AU;!. leAC %fAC3 o AND (7771400) TAD %F"ACi- DAC %FAC:4 D2t'1 %f AC;3 J~1P FPUXAl • E.JEC!" " ISOFTWARE RESUl,T L~FT IN %FACl TO %FAC3 o o o o o o o o o o o o - ... - ..• --- _ .. o -C' 0 PAGE; 0 0 0 0 0 CI 0 0 0 0 0 0 0 0 0 0 0 24 01310 R 001~10 R 013'-1 R 2v)V)527 R 01312 R 504515 R 01313 R 544~~1 01314 R 7410vJ0 01315 R 544637 01316 R 601.326 01317 R 2vJ052? vJ1320. R 5046!?6 01321 H 544~~4 01322 R 6213lro 01323 R 504~::>'7 01324 R 5446~'1 01325 R 62;1.3i0 01326 R 200~27 R 601~~5 R 2005i3 R 5046~') R 040515 ")1335 R 200514 01336 R 50466kj 013;$7 R 5405~5 AND (OP6T09) SAt) ( QtV) Sf(P SAD (HOlV) J~'1 P SOF~ 1 1"AC OPCOOE AND (qN:r~) SAD (CAh) JMP* SOFNR R R R R R R R R R R R R R R A A SOFl l.,AC 0;l,3~3 AND (?~7~~0) $OF2 ~AC %XfAC2 AND (377777) SAD %xtAc~ S~A SKP Jt4P* SOFNR ~AC %XFAC2 AND (400000) ~AC %XF~ AC2 DAC %XFAC2 PAC %FSIGN AND (37'7777) PNXSA bAC %X~AC? ANO <hAC) R 740200 A S~A 013,4 R 601,405 H 01355 R 200~i5 R 01356 R 744010 A 013,7 R 040515 R •.jt<1P 01360 R 200~i4 R 01361 R 740010 A 01362 R 040~l4 R 01363 R 200527 R 01,364 R 504~~~ R 01365 R 544(>10 R 01366 R 6011~1 R %Xf.A9+ DAC %XFACJ 01350 R 040514 R 01352 R 50466i R OPCQOE: AND (OP) ~ ~AC (UP) SOF2 J~1P 01343 R 2005;1.4 R 01344 R 5'J46~6 R 01345 R 043721 R 01346 f~ 2005;i.4 R 01347 R 504660 R 200:>14 R AND <UN) ~ SAD (UN) JMP* SOPNR SAP 0~~40 R 74~J20~' 01341 R 741~H~0 01342 R 621;Si0 R 013'~ R MOD~~E POR SYSTEM EXERCISEH ISOFTWARE NORM ~.~ t 2~R FOR l,OAD FUNCTlON CONP IRMA T I ()N ,()SA , SOFNR L,AC OPCOQE R A R R H 01327 R 504610 R 01330 R 5446i{rj R 01331 01332 01333 01334 'FP15j2' I~ST FP1~T~ SRC ~AC SOFNRX o o o o o o o o o o o o o o %X~Aq~ RCh DAC %XFAC~ LAC %XFAC2 - -, RAL OAC %XFAC2 o AND (OP) .. o bAC opcotn: SAD (OP) Jt'.1P SOFJ .E.)EC! o 0 o 0 o 0 o I o C) () PAGE 25 FPl~T~ o 01367 R 2005:1.3 R o 01372 R 2005i~ R 01373 R 504~~~ R o 013-;4 R 34466;t R o o o o o o 'FP15T2' 1EST SRC 01370 R 504~30 R 01371 R 040~~0 R o bAC %XFACl o TAD (~i) AND (777) TAO OAC %XFACl o TEMP o JMP FNxsl\' SOF'3 ~OFNRX ~AW ~l TAD %XFAGl o [JAC %XFAQl J.~1P FNXSA" ~AC %X~AC2 TAD %FSIC~N o PAC %XFA02 L,AC OPCQOE: (Of) - o DZM %XFAC3 Jr,1P* SOFNR o JMS{) .+1 o AND SAD 01413 R 1405i~ R 01415 R 121416. R LeAC %XF"ACl AND (7 7"10 00 ) AND ('177)" 01377 R 040'~J R 01414 R 621Jlci R FOR SYSTEM EXERCISER DAC TEMp·· - 01375 R 504655 R 01376 R 3405~0 R 01400 R 6013~lR 01,40:1. R 777777 A 0~402 R 3405+3 R 01403 R 040~J,,3 R 01404 R 601~Si R 01405 R 200~~1 R 014~6 R 3437~1 R 01407 R 040514 R 01410 R 200527 R 01411 R 5046:1.0 R 01412 R 544604 R MOO~kE (9 Al.. ) ISOFTWARE CAl~U~AtlON SUBROUTINES / SOFCQD o I o IDOUBLE PR~Cl~lON F~OATING AND SP AND OP INTEGER I R IPSA DFAO R R ,DSA DSl.JB IPSA DMPY IPSA rJOVD ,DSA OStjf~ • PSA CHJVR o 014;3.6 R 0040~5 01417 R 003711 01420 R fH'40v!0 01421 R 0040~5 o 01423 R 004~~~ R o o o R 01422 R 0040~2 R IADDITION ISUBTRACTION IMUhTIPLICATION /Dl VI S I ON IREVERSE SUBTRACTION IR~VERSE DIVISION o o o I ISINGLE PRECI~lQN FLOATING I 01424 R 0041~5 R IDSA FAU 01425 R 0041~l R .DSA fSUti 01426 R 0041~0 R 01427 R 004173 R 01430 R 0042i0 R R 004223 R 014~1 IDSA FMPY IPSA fDVO .OSA FSBH .DSA ED.VH ,EJECT IAODITION /SUBTRACTION o IMU 6TIPLIC ATION o /R;V~RSE o IDIVISION IREvERSE SUBTRACTION QIVISION o o o o o o o o o o o () o o o o o o o o o PAGE 26 SRO FP~:>T~ 01432 R 0000~i0 A 01.43~ R 6014~~ R 01434 R 000000 A 01436 R 000000 01437 R 60142~ 0144((J R k:1000'10 014~~ R 601~79. o o o o o JMP UNELO o JMP DVBY~ o JMP N~XMEM A R A R o IUNOERF~OW DIVISION BY 2ERQ 01 MEMORY o IA~NORMAb Il~LEGAL REFER~NCE 01, 412 R 777777 A IOVe:RF'60 W I OVf~O l,A~4 ",:1, ID~CREMENT TAD XJEA 01443 R 3414J2,R DAe xJ~A lJAC JEAOf~S# 01444 R vj414~2 R 01445 R (I)445(.),iJ R 01.446 R 2005~0 R IPC BY ONE bAC OVRFhR TAD OVHF'bl 01447 R 340~36 R 01450 R 340543 R 01451 R 750200 A 0i45~ R 621~j2 R RETURN IPROM RQUNP1NG o o TAO OVRFCX Si:AlCLA" o .) ~1 P {~ o x~ EA I IUNEXpECTED HARDWARE qVERFLOW; I 01453 R 601~~2 R o o I o I +. PROM ROUNDlNG I 2, FROM EXPONENT VIA MU~TIPLY I o I /UND~RF~OW 01454 R 777777 A 01455 R 34143~ R 01456 R 0414~4 R I UNF~O 01460 R 200541 01461 R 3405~7 01462 R 750200 0~4~3 R 6214~1 R R A R IO~TTO S~AICLA .. JMP* XJ~A~g IUNEXPECTED HARDWARE I I 3, FROM I I IUNO~RF~OW ~NQERF60W NORMA~ltATION 4, PROM EXPONENT VI~ MU~TIPLY JMP Xf60 W ,EJECT o If ROM NORMA~ItATIN TAD UNDF61 I 01464 R 601:S~2 H o bAW ~1 TAD XJf:A+2 DAC xjEA+2 DAC Jr:AURS LAC UNQF~~J 01457 R 044!:>6vJ R o o rEST MOD~bE FOR SYSTEM EXERCISER IINTERRUPT ~XCEPTION ~XIT ADDRESS XJEA 0 _.--,. JMP OVELO IOVER~~OW 01435 R 6'314~4 R o o 'FP15T2 t EXPECTED o o o o o o o o o o o o o C) () PAGE 27 o IDIVISION BY R 777777 A 01466 H 341436 R 0t4~5 I OVBY0 014~7 H 0414~6 R o o o o o o o o o o o o o o ~ERO ",1 TAD XjEA~4 0 XJEA+4 JEAORS o DVSY00 TAD IOV8y0 S~A;C~A - R R .A XJEA+,4 J~1P{~ R I A8NORMA~. OlVISION EXPE:CTEO I /UNEXPECTED HARDHARE ASNORMAh DIVISION I 01475 R 6015~2 R J~'1P I o o I~AW OAC OAC L..AC 014'10 R 044'60 R 0147~ R 2005~2 01472 R 340544 01473 R 750200 014'14 R 6214~~ o 'PP15T2' TEST MOO~bE FOR SYSTEM EXERCISER SRC FP1=?T~ o XEhO W o IIL..LEGAl. ME:MORY RF;PER~NCED v'J141'6 R 74CiJ04v) A 01477 R 6014'/6 R 01500 R 740~1~ A 01503, R 6015~0 R 0;1,502 R 2yj0,40 R 015~3 R 544604 R 01504 R 601507 H 0;1,505 R 204~~3 R 01506 R 604;:S44 H 01507 R 200536 R ~11510 R 544604 r~ R 6015i4 R 01512 R 204644 R 015;1.3 R 604~~4 R 01514 R 2~105~1 R 01515 R 544~~4 R 01516 R 6015~1 R 01517 R 204~~5 R 01520 R 604344 R 0152l R 2005~7 R 01522 R 544604 R 01523 R 601526 R 0;l.51~ 01~24 R 204?~§ R 01525 R 604644 H 01526 R 2vJ05~2 R 01527 R 544604 015~0 R 601~33 015~1 H 2kj4~~7 01532 R 604314 01533 R 2")0:>44 015~4 R 544~04 I NEXME:M Hl,. T TN~XMt~ HLT XFbOW hAC OVRFb~ SAD (9 Ah) o Jt·1P t e + J~~p J~1P !~l. .+~ (1 ) JI1P ERROR3 ~AC bAG OVRPbl ,.. Jt·1P .+~ J~1P (2) ERROR3 t *3 o __ (3 ) ERRQH3 I ~, UNOERFkOW Ff~O~1 NOR~1Ibli:AT1ON . " ... " SAD (CAL) J~1P .+~ I"AC ( 4 ) "H1P ERROR6 Jt~P R R bAC I ~ . o EXPON;NT UNOERFbOW ~AC o .+~ ( !:) ) ~H1P ERRQRJ l..AC IDV8y0 I ~. ~ F60ATI NG ABNORMA~ DIVlDE SAD (CA~)~ J~1P ERROR~ hAC (25) ERRQH3 ,EJECT JMP o o LAC UNOFLl.. R R I ~t EXPON;NT OVEHFbO W SAD (cAl.,) . J~IP ~AC J~1P o o bAC UNDPbN R 01535 R 604;:)44 R 01536 r~ 204~~2 H 01537 R 604~S44 R ; , OVF;RfL.OW FROM ROtlNDING /UNEXPECTEO JEA BREAK I ,i DVSY00 SAD cgAl.,j- f~ o SAD (OAk,) bAC o I 25. INTEGER DIVISION BY tERQ o o o o o o o 1 - . - _..- - - - - -- - - -- --- - - - -~ -- --- ~ •.. - - _. - - ~ -- o i'--, U () PAGE 0 0 0 0 0 0 0 0 0 28 FPl,~T~ 01540 R 2040:>2 ~J154l R 741~hj0 0154~ R 204~53 01543 R 741@~0 01544 R 204~2? 01545 0i5~6 01547 01550 0155~ v.li552 01553 0:].554 01555 SRC 'FP15T2' TEST MOPYbE FOR SYSTEM EXERCISER IEXPECTED INTERRUPTS EROM,.,8UT NONE OCCURED ~AC (ill"/ 11, OVERFbOW FROM ROUNDING R A EINT~l R E: I NT~2 A H R 6043~§ R R 20 4 2?4 R R 741kl00 A R 2~J46?~; R R 604~?6 R R 204~~1 R R 7410kH) A R 2046~5 R R 6~143?6 R 01556 R f,0:1,556 R 01557 R 777777 A 01560 R 040~31 R EINT30 EINT~4 bAC IFREST SPFRES 015~~ R 040~65 R 01562 R 2~j(2j527 R 015~3 H 504627 R 01564 R 544603 R 0:1.565 R 7410~0 A 01566 R 601606 R 015~7 R 140~i5 R 01570 R 1405;.53 R 0 0 0 0 (~~) - (~~) ~5, JNTE~ER IEXP~CTEO JEA I .DSA -.' LAW 1'l'1 DAC %NA;l OAC %NA2 L,AC OPCQDE: S f< P ~~" o o o o %XF:; Ac3 %ANSR3 02M %XHAC3 JMPii I fREST o v) o SAD (Q~n'~~) o IDO~)I3LE:, PR~Ctslor{'FLQATlNG HESTRICT IONS FOR "RANDEX" -. , ~AC OPCOOE AND (OPlF'h) SKP J~~PU ~AC ANO TAD OPFRES FPusr- IAbWAYS STORE UR FOR UP FL (~UR~l) (~R) " Jt4P~~ QPFRES ISING~E PRECISION "lNTEGER RESTRICTtNS FOR "RAN{)EX" SAD (gA~) SKP JMP DP1RE-;S Dt~1 %XFAC2 vJ1617 R 1405:L~ R [] i! ~1 %E ACl " o o DAC FPUST 01620 R 1437~4 R R 140517 R 0:l615 R 140~lj R 01616 R 140561 R o o (Fe> ' OrM %ANSR~ D~t1 %FAC2' D2M %XHAG2 02M %Xr~ ACl 02M %ANSRl O~M %XHACi 01614 IPREP FOR POSSIBLE /DATA FORMAT ERROR Jt1P SP I RES r)~M D~H $PIR~S CiJ1612 R 140532 R 01613 R 143~~5 R 14, EXP UNDFbOW IEXPECTEO JEA BREAK BUT NONE OCCURRED I ;5, F~OATING A8NORMA~ DIVISION AND (UPIFb) 016V'6 R 544~V!~ R 0160'1 R 741000 A 016;l,0 R 601~2~ R 016;ll R 140~14 R ~AC SAD 0 0 SKP o DIVISION BY 2ERO JMP ERROR4 BREAK BUT NONE OCCURRED I SIN GL., E PRE CIS ION'- FL,O ATIN G RES TRIC T ION spa R "R AND EXIf ~INT35 QPf RES 0 ~AC 1NTE9ER OVEHF'l.OvJ IEXPECTED JEA BREAK BUT NONE OCCURRED I 13. UNDERF~OW FROM NORNALI~ATION EXPONENT I Cl,4) Jt1P ERRQH4 EINT15 o ~2, I 30 I SKP 01573 R 0fHH-HHj A 0157 4 R 200.527 R 015'15 R 504627 R 01576 R 544~27 R 01577 R 741~;H)v) A 016kH) R 62:1,5'73 R 01601 R 2003!;>1 R 01602 R 5046~2 R 01603 R 34 4 220 R 01604 R ~)40351 R 01605 R 621~"1~; R 0 SI<P o OVERP~OW I EINT13 0 0 " (;l~) kAC (30) JMP ERRQH4 LAC (;~) - 0157l R 140520 R 015'12 R 621~~~ H 0 SKP bAC o - o o o o o o o o PAGE 29 SRC F'Pl~T? o o o o o o o o 0162l 01622 01623 01624 R 200515 R 01625 0:1,626 01627 01630 0i631 0l,632 R 544~~0 R 74100v) R 62l~~6 R 1405i3 H 1405~1 R 54462~ R R 440~43 R R 621~~~ R R A R R R t~ 140!:>:t.6 R 01633 R 1437vj4 R 01634 R 621~~~ R 01635 R 0000~0 A 016~6 R 200~42 R 01637 R 340~~4 R 01640 R 7402~0 A 0l6~l R 621~~5 R 'FP1 5 T2' T~ST IIF MANTISSA = 400000~ IBECAU$E'BOWN6RY-C~MI! ~AC %XF'Ar;J SAD (~~~0~0) OPIRES SAD COP) , SKP - ~ JMP~ IFREST Dr.M [)~M %ANSHl IIF ABNORMAb blvl8l0N 00 NOT BRANCH TF8 RA 0 -~ , ..hAG DVBy00 o o o o R 6216~$ R 01656 R 777777 A 01657 R 0445~1 R JMP* TPBRA I~XIT " NO TEST IIF INTE~ER "-~X'T ~ NO 8~ANCHING HtRE AND (O~IFCJURIUN) SAO (fk,UH) .. JMP* ftBRA o o o o ANO (UP) .. o SAD 01667 R 7410~6 A o (JAC CdMPbO 0166l R 200~2~ R 01665 R 203704 R 01666 R 5046~~0 R IEXIT IIF SPP~0R ExiT hAC Or'COQ£ AND (OPIF~lUR1VN) SAD (FbnJl~) .. JMP* TFBRA Ie:XIT IERRORS OCCURING NQW ARE 8RAN~H FUNCTION FAlhUR~S bAW Ml . , 01662 R 504610 H 01663 R 544610 R 01664 R 6¥J161o f~ o o . hAC OPCQOE; IBRANCH IP ~E~O f~A TB~A 6t.M 8RANCH# ~AC OPQODE 01660 R 144553 R o TAO 19.VBY~ 01646 B 200~47 B 01647 R 504667 R 01650 R 544670 R 016~~ R 621~~~ R 016~5 o S~A o o o o O~f~ %fAC1." !!JMP~t IFR~S'f SAD (CAL) JMP~ TF'SRA IIF SPf~l)R EXIT 01652 R 200 5 27 R 01653 R 5046§7 R 01654 R 544670 R o o DtM %XHAC~ 01644 R 5446kl4 R 016~5 R 621~~~ R o -. %XFACi o o o o JMP~~ IFRE~T IDOU8~E: PRe:C I sTor{- INTEGER RE:STR I CT lOS FOH "RANDEX" l.AC OPCQPE: AND (rk.> ~ 01643 R 504~~3 R +1 TO OVRF~X ExctEDED AND OV~RFhOW WILL ON CPPUST 1St OVRFbx R 200527 R 0164~ MOQYbE POR SYSTEM EXERCISER JMP (OP) TBl!A~ ~AG %FAC~ AND (777000) SKP ... -. •e:JECI o o o o o o o o o o o 0 0 0 0 0 0 0 0 PAGE 30 FP1~T~ SRC 0l6'/0 R 203706 R R 04053[1 R (1)1672 R 203f~5 R 016'73 R 504660 R 016'/4 R 540530 R 01675 R 741YJ00 A 01676 R 601701 R 01677 R 741200 A 01700 R 444~S3 R 0i7101 R 204671 R 01702 R 1011~2 R 016'l1~ 01703 R 144:>53 R 01704 R 203(21 R 01705 R 741lk)~' A 01706 R 444~~3 R 01707 R 204672 R 01710 R 101752 R 01711 R 144~~J R 01712 R 203'105 R 01713 R 741100 A 0 01714 R 444~S~ R 0171,5 R 504660 R 017l~ R 540~30 R 01717 R 741000 A 01720 R 60172~ R 01721 R 74120fj A 0~722 R 444~53 R 017~3 R 2046i3 R 0;1.724 R 1017~2 R 0 01726 R 2'-13"121, R 0 0 01725 R 144~~3 R 0 0 0 01727 R 740100 01730 R 444~~~ 0173l R 204674 0:t732 R 101/~2 A R R R 0;1.733 R 444,53 R 01734 R 2046?~ R 01735 R lr~17~2 R 'FP15T2' TB~A:4 MOOYbE POR SYSTEM EXERCISER !~ST o k,AC %FAC3 DAC TEMP' bAC %F'AC~ ANO (377177) SAD r£MP' . o SKP .J~1 P o ,+,~ SNA ISl! BRANCH t.,AC (~~A) Jt~S SBRAN IBRANCH lP NEGATIVE FMA Dlf1 BRANCH T8~IA bAC %ESIGN SPA lS~ Jt,1 S SSRAN IBRANCH IF FMA < OR D2M 8RANOH TBL,E ~AC .- 0 %FAC2 AND (3777"17) SAO TEMP; . SKP l"AC .!t~ o SRANCri (~~;) , JMS SBRAN 18F~ANCH IF PO~iIT~yg Dt~1 BRANGH TBPA LAC %~SlGN S~1A ISt 8RANC~, bAC (~PA) " JMS SBRAN IBRANCH UNCO Nqt. TIN A~ 1St BRANCH TBRU bAG (BRU) JMS SSRAN ,EJECT o o SNA IS~ o o 1St BRANCH ~H1P o o BRANCH bAG ( BM A) - SPA o F~A o o o o o 0 o 0 o 0 o 0 o 0 o o C) o 0 0 0 0 0 0 0 () 0 0 0 0 0 0 0 0 0 PAGE 31 FPt~T~ SRC 01736 R 144~53 R vJ17J'I R 2037Lq~ f~ 01710 R 50466vJ R 01741 R 540560 R 01742 R 7402tOQ) A 01743 R 444:>33 R 101744 R 204676 R 0;7~5 R 1017~2 R 01746 01747 01750 01751 10;1,752 f~ 144!:;)'~~ R 6216~~ R R 204~t7 R R 1017~2 R R R 0000~0 A 01753 R 0417'1~ R 10;1,754 R 041764 R 1O;!.755 R 204~53 R 0;1.756 R 7412~rt:l A 01757 R 1017~2 R 017~0 R 101771 R 0i76l R 6217~~ R 01762 R 0000'10 A 0176.3 R 441?~2 R 03,764 R ~H~0000 A 01765 R 0017~'1 R 01766 R 62;t.7~2 R 0;J.767 R 604401 R 01770 R 621~~2 R 0;i.77~ R ~J00kl~0 A 1017~2 R 000~~~ A 0;1773 R 001775 R 0~774 R 604414 R 0;1.775 R 6217t~ R 101776 R 00177~ R 01777 R 776000 A 02000 R 0405~~ R 0g001 R 204Q~3 R 02002 R 044547 R 02003 R 204'700 R 02004 R 7~j,~~0. A 02005 R 344643 R 02006 R (1Q4S47 R, 02007 R 444~17 H 02010 R 541032 R 02011 R 621776 R 0201~ R 602~~5 R 'PP15r2' r~ST MOD~bE FOR SYSTEM EXERCIS~R o 0 IBRANCH IF P~1A NON~~ERO D~M BRANCH TBNA bAC %FAC2- 0 ANP (377'177 ) SAD T~MP , S2A ISl BRANCH hAC (~NA) ~H~S SBRAN IBRANCH lP GlJARD BIT JS SET O~M BRANCH TBAC IGl}ARP elT SHOULO Al,. ~4 A YS Sc Cl,EAHEO FROt1 §TORE INSTRUCTtON 6AC C$AC) Jt1S SBRAN ITHEREfORE BNA SH()Ub D NEVEH BRANCH TFBRA BRANCH J~1P* T~STING I~XIT 0 SBRAN DAC Y8RANQH OAC NBRANCH hAC B~ANC~~ SNA JM$ NOB RAN J~1S J~1P~t NOBRAN BRAN §SRAN IIF ;:1, BRANCH 0 NO BRANCH Ilf 0; NO 8RANC~ IBRANCH 1 ; BRANCH 18RANCH " 0 0 0 0 0 .- IE:XIT BRANCt-H:S 0 0 1S2 Nq8RA~ NBRANGH CA~ ,+2 JMP~ NOf:H~AN Jt1P ~R.~OR§ JMP* NOSHAN 0 BRAN YBRANCH CAb I+~ TO RETURN IOqTAl.. EQLJIVAt.,E;NT Of 8RANCH I N$THlJCT ION 0 IE:XIT; OK IA BRANCH OCCURRED WHEN UNt:XPECTEO 0 I09TA~ EQUIV IE:XIT; OK INO eRANCH OCCURRt:D ~~HE:N EXPECTED .~~ JMP ER.ROR? JNP* BRAN IR~SE:T ADORES? tHJEFER TO OHIGINA~ SETTING INITAOR .DSA , bAW lI'g,<,,,,~ DAC Kt~000 bAC (AOPCQE3F) 0 0 0 AUTOt~G ~AQ (dpCP~F) 0 TAD ( ~ ) 0 DAC SKP AUTORG IS i! AUTQHG PAC·~ SAD A~9P9Ql3 Jt1P~ ~H·1P INITAOR ! ~~ .' ,EJECT 0 0 "'Vf, 0 0 0 0 C: I o o PAGE 32 FP;l.~T~ SRC 'FP15T2' TEST MOD~bE FOR SYSTEM EXERCISER o o o o o o o o o o o o o o o o o o o o o () o o o o o o o o o o o o o o o o o o I 0 C) o PAGE 33 0 SRo. FP1~T~ 0 ,TIThE SVBTIT~~ FPOINT~NON IGENERAL F60ATJNG'PO~NT I . _., ." ARITHMETIC 0 0 I I FLOATlNG ~QINI MATH 0 0 I %FbOT, I %PLJNF, I I I I I I I I I 0 0 0 / I I I I I 0 0 ITERMS; I I I I 0 0 I 0 I I I I 0 300~£.!'0 %PN~G, %PG, %PNOR. %F"H, %PXR, %FS, %ANEG. %SW I Crf %FA, %PM. %PD, F~OAT INTEGER TO FLOATING ACCUMU~ATOR, UNELQAT SEPONO WORD O~ P~OATING ACCUMU~ATqR TO A~REG. N~~ATE THE F~OATING ACCUMUkATOR SHORT GET ARGUMENT (ADORESS) NORMA~laE THE FLOATING ACCUMULATOR HO~D THE PbOATING ACCUMULATOR ROUNO-R~SUbT AND lNSgRT SIGN Sl~N OONTROb Nt;GATE AeR!::G. SW}TCH THE ~LOATING AND HE~D Ace'S, FLOATING AOD FLOATING MU~TIPLY GENERAh rkOATING DIvIO~ GENERA~ GENERA~ 0 0 0 0 0 0 %PACl %FACt? %FAC3 %HACl %HAC2 %HAC3 A~RE;G I A (NON~EAE) AD015:: ~r(H3000 ,EJECT EXPONENT~PbOATING POINT ACCUMU~ATOR SI~N.HlGH~ORDER MANTISSA~FbT Ace bOW~ORO~R MANTXSSA~P~T 0 ACe ~XPONENTeHE~O ACCUMU~ATOR SlgN+HIGH~ORD~R MANTISSA~HgLD bOW~ORDER MANTISSA HARDWARE A9CUMULATOR(AC) Ace 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 I o o 0 PAGE 0 34 o 0 I INEGATE THE A~REG o o o o o 02013 R 0000~0 A 02014 R 7440~1 A 0201~ R 3449.~3 R 0g0l9 R 622~+'3 R 02017. R 000kHH1 A 02020 R 20372:i. R 0202.1 R 244~2~ R 02022 R 043~~~ R 02023 R 622~~7 R o o 020g4 R 000000- A R 200~~7 R R 504603 R R 544~~~ R R 6~2~~~ R 0~03t R 143704 R o 02025 02026 02027 02030 o 02033 R 504610 R o o o o o o o o 0~032 R 200527 R 02034 R 5446;L0 0203~ R 602~1~ 02036 R 2037~~ 020~7 R 60204~ 02040 R 2037~~ 020~l R 5046Q0 R 543706 02043 R 740~00 02044 R 60205$ 02045 R 14371J5 0204~ R R R R %ANEG, o CMAIC~k TAD IN~GATE %SNr: G• 0 ' JMP* jH~ 0 %ANE:G. bAC %FSIGN %F I9N IFbOAT INT~GER TO P~QATING AC9UMU~ATOR (%P~OT,) /CALblNG SEQU~NC~I / . JMS - ~~bOT, /SUBR CALL(INT~GER IN A.REG) I NEXT INSTRUCTION IRETURNCINTEGER NORMALI2ED IN rLT Ace) I ., '.. .. IA~RE:G IS UNCHANGED %FbOT. 0 0 0 0 6AC OPCQPE; AND (Fb) SAO (FiL.) JMP{t ~t:6Qr.· 0 %EAG; ~ 6AC OPgOD; D~M 0 ANO (lJP) , SAD COP) JMP •• ~ 6AC %~AC~ 0 JMP .'" 4 SAD %FAC3' R JMP , tr R O~M %EAC~ %~"' AC~ R 7400~1 A 020~3 R 0437~2 R 02064 R 622~~1 R 0 XOR (4YH10~H~) S OAC JMPu %?NS~. R R 02057 R 740100 A 02060 R 622~~1 R 0206:4 R 203706 R 0 FSI.GN '" , ~AC %EAC~ A 0 C~ R 0~046 R 143706 R 02047 R 622¢2~ R 02050 R 200527 R 02051 R 5~46ilO R 02052 R 544~i.0 R 02053 R 602065 R 020~4 R 2037~~ R 0~055 R 5046~6 R 020!:)6 R 043705 R 0206~ I I 0 ANO (377777) StA - " 1 /z::;RO SIGN DtM JMP~ ~rl,bI. bAC oPgoo~ AND SAO JMP L,AC (OP) 0 COP) %~~bOTl %FAC3" %fACZ- 0 ~ J~'1P* ~t),OT. %FAG9 TCA .~ . ~AC OAC %FAC3 JMP~ %F'LOT .. .. . 0 ~ AND (40'1000) DAC SMA 0 -' .... ~ . 0 0 o 0 o 0 o o o o o o o o o o o o o o o o o o o PAGE 35 FP1~i? Sf~C 02065 R 2037~5 R 02066 R 744:100 A %FbOT1 R 203706 R R 7400~i A %F~OT2 0207~J 0207~ o 6AC %EAC~ JMPu ~~60T. ~AC TCA -. OAC %FAO.3. 020i4 R 7414t1~ A 02075 R 344643 R 02~76 R 5046¢0 R 02077 R 344626 R CMA~S~k TAO (1) AND (377777) 02073 R 2~3j~~ R R 04370~ R 021~l R 6220~1 R 02;1.02 R 0000~0 A 0g103 R 2e37~1 R 02104 R 741~L?0 A PAC %FAC~ JMP* ~E\.,OI, IflX THE F~OATIN~ AC %FIX. 0 .~. kAC %EAC~ 02~~5 JMP %FIXB bAC %[A91 /NO REALIGNMgNT NEOES?ARY o OAC %fACJ o bAC %EAC2 RAk DAC %FAG~ %PtXB R H R 544~@1 R R R R R A o Dl!M %~AG~ bAC oPCOO~ o bAC OPCOOE o bAG %~AC~ o - SKP L,AG %t~AC~ SPA R A IS~ R R R OV~Pk~ /QVERFbOW OCCUREO AND (:J77l77) JMP~~ ~ElX; INEGAT~ THE FLOATING ACCUMULATOR I I JMS -, %~NEG ISUBR CALL (CHANGE SI~N Of NORMA~~~ED FbT ACe,) NEXT INSTRUCTION IRETURN WITH ~IGN OF FkT CC CHAHG~P, 0 . . . . . , I~NTRY~EXIT ,. ~AC ~FAC~ ISIGN WORO OP FLOATING ACCUMU~ATOR ICALLING SEQU~NCE~ 02143 R 203705 R 02144 R 5437~~ R o ANO (QP~Tq9) SAO (RDIV) JMP* ~EIX, SAD (DIV) J~'1P* %1-;'; IX I AND (OP) SAD COP) JMP t +~ R .' %FNEG, o DAC %FAC4 OAC GlJARD kAC %EAG~ RA~ R 02142 R 0000~0 A o ROb 02126 R 622102 R 02127 R 200527 02130 R 50.46~0 0213~ R 544610 02132 R 602lj~ 02133 R 203?~g 02134 R 741000 02135 R 2037~~ 02136 R 74l1~~ 02137 R 4405~3 02:1.40 R 504660 0214t R 6221~2 o SNA A R R o TAD (4rb00rb~) 02105 R 6~21(!1 R R A R R 0211~ R 203706 R 02113 R 7400~@ A 02114 R 043706 R 02~15 R 203705 R R o bAC %FAC~ 02~06 R 2037~7 02107 R 744010 02110 R 0.4370'7 02:1.1~ R 014~~7 0213,6. R 7400i~j 02117 R 04310~ 02120 R 143'104 02;1,21 R 2005~7 0212~ R 504575 02123 R 5446j., 02124 R 6;Z2l02 o %fAC~ 0g072 R 043706 R 0~~00 o f.POINT~N9N S~1A I CL~ 020§7 R 622~~4 R o o SU8TlTh~ SAD %FAC~'- (%~NEG,) o o o o o o o o - ---- -- - -- --- o 0 o () FP1~T~ 0 0 02;l~5 0~146 02~47 SRC S2A R 740200 A XQR R 244626 R R 0437~5 R DAC 02150 H 622~1Z R Jt~P~~ I 0 Ilf ABSO~UT~ 2gRO 00 NOT NEGATE (4000~0 ICHANGE SIGN %~AC~IRESTORE . ~FNEG IEXIT -" , I ISHQRT GET ARGUM~NT ROUTIN~ C%PG!) /CALk, 1NG SEQU~NCE; .. I (PC~~) 0 IADDRESS OF ARG IN USERS PROG, I (PC) . JM? %FG, /SU8R CA6k I (PC+l' 0 /(STORg ADDRESS HERE) I (~c+?~ NEXT INSTRUCTION IRETURN HERE 0 0 o o o o o I 0 ISUBROUTINE %E~, §OES BACK TWO LEVE~s (THREE IF INDIRECT) ITO GET THE ADDRESS OF AN ARGUMENT AND STORES IT AT PC+l o 0 I I o 0 IOF TH~ CA~LI~~ P~OGR~M, R 000000 A 02152 R 2021~1 R 02153 R 504701 R 0215~ %FG, AND DAC hAW TAD DAe 021~5 0 0 0 0 0 02160 R 223l~0 021~l R 463720 02:1.62 R 0437~0 02163 R 223720 02164 R 043720 02165 R 741100 02166 R 223720 R R 0217~ ISECOND b£·VEb l,AG* R R R A R 021~7 R 0621~1 R 02170 R 442151 R IE:NTRyef:XIT IMASK OF POSSlBLE ISIGN BIT SET FROM 16 IN K 0 URI NG J MS /G~T CAL~ERS EXIT IAC=(PC~1) FROM CALLING'PROGRAM /SAVE fIRST bEVEL hAC 02154 R k'421~1 R R 7777(9. A 02156 R 342151. R 02157 R 0437.2~ R o %J5 %.)5 lS2* DAC %J? \.,A Ci~ DAC %~5 %J5 SPA bAC n %J5 lS~ JMP~ %[G., DAC{t %FGEX, R 6221~1 R %r:'G .., - " , ~EG, IG~T CARG ADDR) AODR /BYMP CAk~~RS EXIT /SAVE. ARG AODR IGE:T ARG AOOR lEND OF 2ND LEVE~ lIE 0 BIT IS ON ADORESS IS INDIRECT IACCf;SS AGAIN ISTORE ARG ADDR IN CA~~ING POINT ISU.MP EXIT IEXIT I I~~---~-~-~-~-~~~~----~ I 0 INORMAbl~E F~OATING A9CUMU~ATOR (%FNOR.) o o o o o o o 0 ICALLING SEQUENCE; I . JMS - %ENOR IS~8R CA~L II NEXT INSTRUCTION /SUBR RETURN ' ... o 0 I o 0 ITHE F~OATING POINT ACCUMUbATOR Is SHIFTED LEFT UNTlb 8IT 1 IS ION, BEFORE ANY SHIFTjNG THE NUMBER IS CHECKED FOR I~ERO, IF IT IS ~~RO YHE EXPONENT IS C\"EARED AND THE ISIGN WORD SE~ OF~. o %FNOR. o I 0 0 0 02172 R ~J00VJ~0 A 02113 R 140~~1 R - 0 DtM LJNDFkN o 0 0 0 I 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 PAGE 37 FP1~T~ SRC '12174 R 200527 R 02175 R 5046,6 R 02176 R 544604 R 02177 R 622112 R 02200 R 5046:>" R 0220l R 544~~7 R 02202 R 622112 R 02203 R 203705 R 02204 R 504~~v.j R 02205 R ~J43'l05 R 02206 R 5437~~ H 02207 R 740~100 A "322i0 R 602223 R 02211 R 1032~2 R 022:1,2 R 602217 R 02213 R 2037~'7 R 02214 R 544565 R 02215 R 7402~hJ A 02216 R 6v)2223 R 02217 R 1437~1 R tlJ2220 R 1437~1 R 02221 R 143?17 R 02222 R 6221'12 R 02223 R 203'105 R 02224 R 744010 A 02225 R 7411~~' A 02226 R 6~)22~7 R Sl)f3T l ThE . ~AC OPCOOE. SAD ~gA~) ~ENOR, 0 (UN'FC) .. ANO .' JMP* AND 0 EPO INT,..N9N , 0 (UN) SAD (UN) J. ~1 P * %F'NOR - ' .. I %FACg hAC IIF %FAC2 ... %FAC3 (3777/7 ISTRIP SIGN IN CASE OF' AND %FAC2' [JAC %EAC 3 SAD Si::A Jt'1P %[NORA!'1:t. JMS OCHECK Jt,1 P ,+ 5 . " ~AC %FAC4 SAO %FAC4A IMINl)S ~e:RO, IANO AC::0 CLEAR /THE EXPON~NT AND SIGN THE EXIT Iyl t TH THE fhT Ace IN A8S0l~UTE Ql STATE, %FNORA %~NOHA~l %PACl IChEAR EXPONT O~M Dr~1 %FSIGN %J4 " IC~EAR JMP~~ %F'._ NOR e IEXIT bAC %F'AC;; HC~ SPA J~1P %FNOHB SIGN IIf. BIT 0 IS ON Ell' lIE NOT KEEP HOTATING I hAW io~AC~ ,+~' ~ ~777'(7) lSi! UNOFb-N I IROTAT'E 0 02246 0 022S0 R 60226fJ R 022?~ R 204565 H 02252 R 744~1~' A R 744000 A 02247 R 103~?2 R /RANPEX SAP I Cl..h J~1S OCHECK JHP %FN •. LAC %f:AC~A 0 0 6 AC %~AC~ SAD 0 0 JMP t+~ hAC %FAC~ J~1P 0 0 hAC OPCQDF; AND ([jp ) ' SAD ((jp) SAO (777..57"1) ",)MP .+~ SAD (:.577) 0 0 ~l %~AC~ TAO DAC 0 0 I IDE CREME NT EX~ON~NT~ 02227 R 7777'(7 A 02230 R 343704 R ")2231, R 043'104 R '12232 R 200527 R 02233 R 50461kl R 022S4 R 5446;1.0 R 0223~ R 60224~ R 02236 R 203'1~1 R 02237 R 544702 R 02240 R 602245 R 02241 R 544703 R 02242 R 6'~22~5 R 02243 R 2v.137k'4 R 02244 R 54466k1 R 02245 R 440S~i R 0 0 St!A Jt1P Pr.M 0 I~XP()NENT UNOERFhOW 0 0 0 RC~ 0 0 0 0 I o G o () PAGE o o o o o o o o ~8 FP1~T~ 02253 R 044565 02254 R 203'1 ki7 022:?5 R 7400io 02256 R 0437v)7 02257 R 0445S7 02260 R 2037ta6 022~t R 7400ii~ R R A R R R A 02262 R (1)43706 R 02263 R 2037~~ R 02264 R 74001k) A 02265 R 043?~5 R 02266 R 6022~4 R 02267 H 200!:>,s6 R 022/0 R 7412~j0 A 0227~ 02272 02273 022!14 02275 02276 02277 SU8TIT~E SRC %FN, L,AC RAL DAC ~H1P o o o JMP~ %FNOR, bAC UNOFbN SNA ..... o JMP* %FNOR, OVRFbl. D2M UNPF'~N o I IHO~P THE F~OATIN~ ICAL~lNG SEQUENC~' I I o %FNOHA hAC OVRFb~ ~:JMP* ~ENQR, o o o %FAC2 o I 1 II o o %F'AC3 (~EAC2 D1!M o o o IVSED AS FMQ SNA R 622172 R R 2005~1 R H 74120"') A R 6221/2 R R 140~~~ R R 140~41 R H 6221?2 R o o o DAC %FAG4A ~AC %[AC1 RAk DAC %FAC4 DAC GUARD ~AC %EAC3 RAh DAC %FNOR8 EPoINT~N9N 02300 R 0000~)~J A 023~~ R 2037vJ4 R 0230~ v)2303 02304 02305 02306 023~7 R 043710 H 203705 R 0437~i R 203706 R 04371,2 R 622~~~ %PH, JMS -%PH NEXT "INSTRUCTION -. .. .. o (%FH,) /CA~~ ~N FLOATING Ace) IRETURN (VALUE IN Fh OATIN9 ACC ANO HE~D AC (VA~UE k.,AC D.AC OAC R bAC R DAC ~AC J~lP* IE:XPONENT %EAC~ %HAC~ %PAC2 IH1GH~ORDER %fAC~~ ILOW~ORDER %HAC~ %HAC3 %EH, MANTISSA MANTISSA /EXIT I I I I JMS - ~~IR, "400/1 NEXT .. 77700~/777776 INST~VCTJON' ISU8R QA~L IROUNDOFF elT IEXTRAGT MASK /SUBR RETURN ITHE R~SU~T IN THE F~OATIN~ ACCUMUbATION IS ROUNDED ACCORDING ITO TH~ MODE ~~IN~kE/~OU8~~ PRECISION) I o o IROUND AND INSERT SIGN C%PlR.) ICALL I NG SE;QUENCE;; o o I I" I I o o ~~ R R R R AC~UMULATOR o o o o o o o (J o () o PAGE o o o o FP1~T~ 39 SRC 02311, 02312 R 200527 R o DtN bAC 02313 R 504670 R 02314 R 544604 R AND SAD 02315 0231.6 02317 02320 R 602~~1 R R 5'14620 R R 5446~0 R %FtREX AND (UR).. SAD CUR) JMP %F; I RE: X PMA IF-~FAd4 l~ 0232~ R 2045~7 R 60233::1, R R /+1 TO o o o o o o o o ~H1P %FIRE.X R 6223t0 R o /GYARD BIT SET FOR DP o o IS2 lSi: o JMP* %FIReA G~K %f·IR. TAf)* 02336 R 442J1.0 R 02337 R 343'106 R %FIR. lS2 TAD ANDl" DAC 02310 R 5223~0 R 0234~ NEGATIVE bAC R 602334 R 750010 A 02335 R 3623i0 R o " JMP %~JR,A AND SAO 02~~34 R o CL~ R 504§;0 R R 4423i0 R (CAL)" bAC GUARP# R 544604 R R 4423i0 R o (LJR:FC) SPA J STb 02324 R 744000 A 02325 R 200~~~ R 02326 02327 02330 02331 02332 023~3 OVRFLH OPCOO£ Jtl'lP 02322 R 7451~2 A 02323 R 60233~ R o o R 000QH10 A R 140:>4vJ R t~2310 R 043706 R 02342 R 7500i0 A 0Z343 R 3437~5 R 02344 R 0437~5 R %FAC3 %F~Rt %fAC 3 GLK TAD [JAC Sr'1A 02345 R 740100 A 02346 R 6023~6 R %r"AC~ %EAC4 IG~T ROUNDOfF 8IT~ ~1ASK. ~OW~ORQER IPO I NT TO IADO TO RES~bT TO PERFORM RQUNPOFP. IMASK OF INSIGNIFICANT PORTION. IKEEP ~OWeORDER RESU~t, /~~T OVERFkOW 8IT~ IADD TO HIGH~OROER RESU~T. lOVER F~OW INTO SIGN BIT? INO JMP I CAUSED NUMB~R TO OVERFLOW INTO SIGN BIt, IROTAT~ %FAC2;%FAg3 RjGHT ON~ BIT AND INCREMENT EXPONENT, IROUND~OFF I 02347 R 744020 A 02350 R 043!~~ R 0235l R 203706 R 023~2 RCR OAC bAC R 7400~0 A %FAC2 RAR AND* R 0437~6 R 02355 R 103664 R %EtR, PAC %F'AC3 o 023~4 o 02356 R 442310 R 023~7 R 6~2~i~ R %FlRA ~H1S I NCEXf5 iS2' - %tIR, JMP* %PIR, ,EJECT ~. o o o o o %EAC~ 02353 R 522310 R o liRUNCATE o IPOINT TO RETURN ADDRESS o IEXIT o o o o o o o o --- - ----------------------- - - - - o () o () PAGE 4~ FP1~T~ o o o o o o o o o o o o I o - JMS - %[5. ISTORAGE WORD ~J~; ICAL~ TH~ o ,Of SIGN T81T OF THE HEkD Ace IS IEXC~USIVE OR!~D ~tTH IT AND THAT VALUE IS STORED IN BIT 0 OF I%FSIGN, RETURN IS MADE WITH BIT 0 or 80TH THE o o o - I NEXT JNSTRYCTJON IRE TURN I ITHE SIGN BIT Op THE FbOATING Ace IS STOREO IN BIT o o ISIGN CONTROL (STRIP SIGNS) (%FS,) ICAL~ING SEQ0E~UE~ o o SU8TIThE EPOJNT~N9N SRC IH~L6 Atc ANDTHE-PLOATING Acg SET TO 2ERO. - I I 02360 R 0'~00~)~ 02361 R 203'705 02~62 R 504626 £12363 R 043?;l.:, 02364 R 2037k1~ 02365 R 504~60 02366 R 04370!:) A R %FS~ l~AC R AND R [JAC t~A C R R R AND DAC I.,AC 02367 R 2037il R 02370 R 243717 H 02371 R 504~2~ 023'12 H f143721 02373 R. 203711 02314 R 5046~~ 0 XOR R AND R OAC R ~AC H AND 02375 R fJ43711 R 02376 R 622~~0. R DAC 02377 R ~J00000 A £12400 R 2037~!j R 02401 R 5437166 R 02402 R 7402~0 A 024Y,3 R 741!~00 A 02404 R 602414 R 02405 f~ 20~~'l;tl R 02406 R 5437i2 R 740200 A 02410 R 602412 R 02411~ R 6024~4 R 02412 R 442377 R 024).3 R 622;J'/'1 R 02414 R 1437~~ R 02415 R 143/0~ R 02416 R 143706 R f}2417 R 143,,07 R 02420 R 1445~i R 02421 R 144565 R 02422 R 622377 R ~Jt'1P* ISIGN HORD OF FLOATtN~ ACCUMUbATOR ( 400~H00 IK~e:P ON~Y THE SlGN %J4 - -. ISToRE IT %FAC2 IGE:T SlGN (3777'17 /WORD AGAIN AND KEEP %FAC2· IONhY THe: ABSObUTE VAL.WE %HAC2 ISlGN WORD Or HELO Ace lJ ~1 UL ATOR %J4 /~I.KE SIGNS::0, UNhlK~ SlGN::t ( 400"H00 IK~EP ONL.,Y THE SIGN AND %FSIGN ISAVE IT ~8AC2" IGET THE SIGN WOHD, (377777 lOr. THE HEA~O Ace ANIJ, %~)AC2 . ISTRlP OFF THE SIGN, (oFAC~ fo~St ICr1ECK THE Ft..OATING AC'S CAC0 I~XIT TO EQUAL 2ERO 0 \..AC %FAC2 SAD %FAC3 S2A SKP J~'1P CAC0EX+2 bAC %HAC2 . SAO %t~AC~ S~A 02407 R GAC0EX JMP CAC~;X JMP .~~ 1S2 CAC0 ~H~P* CAC0 D~M %FAC~ o o -0 o o o o o o o o P~M %WAC~ %FAG~ o D~M GUARD o D~M D2M %FAC4 DiEM %F~ AC4A J~'1P* 9AC~ I-~~~~~-~~~--~--~~~-- I ISWITCH THE F'L,OATING POINT ACCUt1UL,ATOR lAND THE HEL,D ' A CO U~1 U~ ATOR • ICAL~ING o S~QU~NC~! o o o o o o o () () PAGE 41, rpl~T~ o SRC o '/ o ITHE ACCUMULATOR AND LINK AR~ CLOBBER EO By ITHIS SUBROUTiNE, TEM~ORARY STORAG~ WORe %J5 IS A~SO o o o o o o o o 1 I IChOBBERED, I 02423 02424 02425 02426 H 000000 A R 203704 R R 0423.~0 R R 203l1l1 H 02427 R 043704 R 024~vJ R 2e'2~~0 R 02431 R 04311.0 R 02432 R 203"~5 R 02433 R 04266'3 R 02434 R 2037~1 R 02435 R 043705 R 02436 R 202$60 R 02437 R 043'lii R %SWICH %FAC~ ~AC %HAC~ %FACl, %FS, OAe %F-:S II ~~8AC;t hAC %F'AC~ DAC %~S" R %FAC2 %FS, LAC (QFAC3 R ~AC DAC R JMP~~ o o MANTJSSAE o %f' AC3 %FS . .~ ! %HAC~ o I-----~---~---~-----~ o %Sv/I C~ I I o I o o 7~F S , / I o MANTISSAE, %HAC3 o o o 1~9W-ORDER IGENERAL FL.OATING ADO ICAL~ING SEQVENCE; I JMS - ~fA, o IWORD MANIPULATION %8AC2. o o o I'1-iAC2 DAC l-.AC PAC R o o /EXPONENTS, IUSE TEMPoRARthY FREE /STORAGE FOR /HIGH~ORDER DAC bAC DAC 02442 R 2v)3712 R 02443 R fj43"106 02444 R 202~i)0 ")2445 R 1643712 02446 R 622123 L.AC h~'C I o ,~ DAC hAC 02440 R 2037~2 R 0244~ R 04236k' R o ., DAC I o JMS ~SWIGH ISUBR CALL NEXT ~NST~UCTJON /R~TURN 32/42- NEXT ~NSTRUCTJON /CAL~(AuGEND IMAXIMUM INFLOAT Ace, ADOEN IN HELD A9C) SHIFT (26 S~P" /SUBR RETURN 34 D,P,) o o I I 02447 R ~)000'P0 A 024S,~ R 143'1;1..5 R 02451. R 1,43707 R 024~2 R 1445"11 H 02453 R 144557 H 024~4 02455 024?6 02457 02460 02461. R 144564 R 2037@5 R 504620 R v)44''/0 R 2037ii R 5046~6 R 044566 R R R R R R R 024~3 R lvJ23~(~ R 02462 %FA! o 0 02M %HAC4 LJ2M %FAC4 O~M %MQ#"' o Oi!M GUARD o DtM sw 1rCri# ~AC AND DAC l,AC AND DAC %F'AC2 ". (~~~~~0) %J4%# %HAC2 (40~000) %f~%#'- - Jt·1S %f.? ISIGN OF FMS ISIGN Of Ft1A .... THE C0 ~1 Pl, I t·1 E: NT OF ORIGINA~ XFAC IF FUNCTION IS NOT ADU ISTRIP SIGNS AND GET ABSOl,UTE o o o 0 0 () PAGE I FP1~T? SRC 42 0 0 0 0 0 0 0 0 0 0 0 0 02464 R 2037~' 02465 R 543706 02466 R 74020 r1 02467 R 602500 02470 R 203710 0247t R 043'/v)4 02472 R 203711 02473 R 043705 02474 R 203"112 02475 R 043706 024"16 R 444!;)64 024'77 R 603017 0 0 0 0 0 IIF FMB=0 IIF F~'1A=0 R R A R J~1P R R OAC 02540 /FNA ITO FMA (H1GH) IFMA ITO NEW FMA (l.,OW) %FAC2 6AC %RAC~ PAC %FAC3 ISl SWITQH R R - IrM8 .. JMP %FAEX NOT ... VJ bAC %HACi; - IFMA SAD %HAC~ A SKP %FA,T JMP %EA~X ~AC (;;[AC+ CMA R %~5 f~ JMP %f.AT,B %Svll eti JMS R 152 R R 2037~~ R R 74;!.lvJ0 A R 6Q)2~32 R R 2v)371~1 R R 740VJ01 A R 343704 R R 6D2~~~ R R 74(10k)1 A R 3437i~J R R 741'.klj, A R 603~~0. R R 3447104 R R 741l~~ A R 6vj300r~ R R 44372t1 R R 741kH~0 A R 602~@~1 R R 20372(;) R SWlTCt~ - %FAT,B . - %EAoT JMP hAC %fAC~ IFMA = 0 IOETERMINE EXPONENT DlF'FER~NCE lIE MINUS DO NOT SWITCH %FACl GREATER THAN %HAC1 ( F~1B > F ~1A ) 0 IHAROHARE FMA > FMB BEFORE AhIGNMENT 0 I,. ,00 NOT SWITCH IA~SO 0 IE.XPON~NT SIGNS SlMIl.AR kAC %FACl JMP ,+5 6AC %HAC~ 0 %FAC~ JHP * +~ . 0 C~1A TAD %HACl, SPAtCMA' Jt'1P %FAE,X (~~ ) %fAB,B %J5 lOUT OF BOUNOS 0 I O~)T OF BOUNDS 0 IEPA=EPB 0 , Jt1P %f.A;.X 1St %~~ SKP J~1P ~AC 0 0 SPA ~PAA 0 0 SNA TAO SPA 0 I(ADDEND~AUGENO~l) (~~00~0) ,JMP %FAA IEXPONE.NT SIGNS l)NkIK~ CMA TAD 0 0 XOR %HAC;l. AND 0 %HACl. TAO DAC SPA R A R R " StA A 0 0 LAC %HAC2 R R 2437ik2 R 212520 R 504~~§ R 0252;1, R 74;1.200 A 02522 R 6vJ251i R 0254l 02542 02543 02544 ,+1.1 l..,AC %HAC~ DAC ~'~AC1. R R A /FM8 (HIGH) IF M8 (LO~J ) %fAC2 %FAC3 R R 02517 R 02524 02525 02526 02527 025J0 02531 02532 025J3 02534 02535 02536 02537 AN~ ~ SlA IFt18 02502 R 7402k:.10 02503 R 7410~~! 0Z5f()4 R 603017 02505 R 2037~1 02506 R 7400v):J.. 025~7 R 343/i0 02510 R ~143(2YJ 02511 R 7411~~) v'2512 R 6vJ25~9 v.)2513 R lPJ242j 02514 R 4445~4 02515 R 6025vj5 02516 R 2~~3704 0 ~~OlNT~N~N EXIT KEEP ORIGINAL FMA.t,+j,. TO SWITCH - EXIT AND f'M8 TO FMA'S I,.,AC SAO 02500 R 203711 R 025~l R 543712 R 02523 0 SlJBTITl..E 0 0 0 0 I 0 0 , () 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 PAGE 43 FP;l.~T~ SlJBTlT~E SRG 0 [P()INT",NON TADn ~~A, 0254, R 362~~7 R 02546 R 75:1,100 A 02547 R 603~'9Q) R 0 SPA!Ch A JMP %tAr.:,X /EXPQNENTS ~Re:A TEf~ THAN MAX AL,h OW~:[) 32/42 I ISHlioPT THE: AD9ENU Rl§HT CJE:LTA TIMf;S. I 02550 R 2037~1 02551 R 7440~0 02552 R 043ili 02553 R 203712 025~4 R 74002Q) 102555 R 043?~2 02556 R 2f13?13 025~7 R A DAC l~A C A RAR 02600 R 20373.3 0260:l. R 044,7 J" 026~2 R 14371~ 02603 R 1437l~7 02604 R 204!jb4 02605 R 144~~4 k'2606 R 74:t.t!~~f() 026~7 R 6kJ2624 02610 R 203711 102611 R 54370~ 02612 H 74100tiJ 02613 R 602620 02614 R 2037;2 02615 R 7440~1 02616 R 3437~~ 02617 R 602644 02620 R 2037~~ 02621 R 740 k1 v) 1 02622 R 343~0? 02623 R 602~3'1 ~HAC2. 1St - J~1P lIP ROVNDING IS I R A IFINI~HED SHIFTING? INO",CYC~E AGAIN Hg(~ut;~TED. AND BIT 0 OF' %HAC4. R R SAO %RL. R Jr~P ~AC (OR) %f'ABtB %~lAC6 ' TAD (i) DAC %HAC3 A GLK TAD %HAC~ DAC %HAC2 R H ISWITCH ON~Y %FABtB ~AC DAC %MQ "," DeM %HAC4 R R ~AC F~Ol.JND 0 0 0 0 . ~ NOT EXP TO GET %HAC2 GREATER /SAVE 0 FOR O~BUGGlNG 0 D2M %fAC4 SWITCri OiM SW,lT9 lj SNA ISTART A NEI~ SWITCH MONITOR JMP %FAB81 R ~AC %HAC2' R A SAD SKP Jt1P %FAC~ R R ~ 0 Acdu~1ULATORS %HAC4 R R A IDG NOT ROUND -- R R lS SET 100 NOT HOUND Jt'1P %fA8.8 AND (UR) ". R - ~AC %HAC~ R R 0 ~~5 %FAB bAC OPCQot R A 0 S~lA: CL~ R R R 0 %FfAC3 %r'iAC3 DAC bAC %~AC~ RAR OAC %HAC4 R R A R 0 %HAC2 hAC RCR R R R 7400~QJ 02560 R 0437~3 R 02561 R 443740 R 025~2 R 602:>:>0 R 02563 R 20371.~5 025~4 R '7441~~~ 02565 R 60260(:) 02566 R 20052'1 102567 R 50462,j 02570 R 544~2~ 0257:t R 6026100 02572 R 2037i2 02573 R 344643 02574 R v.)43if2 02575 R 750010 02576 R 3437~i 02577 R 0437~i %FAB 0 - 0 ' ,+~ 0 LAC %HAC3 C~1A I C~~ . ' TAD %FAC3 %FABS;:5 R A J~1P ~AC C~lA R TAD %EAC? R J~1P %RAC~ '. %FAB82 . 0 IrM8 IFMA 0 0 0 0 0 0 o o o o o o o o o o o o o 0 PAGE 44 FPl~T~ 02624 R 203705 02625 R 543"11). 02626 R 741kH~{~ 02627 R 6026J4 R R SKP JMP R 203:7~§ R 02631 02632 02633 02634 A H H £12637 02640 02641 02642 02643 02644 02645 02646 R 7401KJ0 A R 6026~7 R R 204705 R R 042423 R 02647 02650 02651 026:>2 02653 02654 02655 02656 R 444564 R 203Y/~~ R 744020 R 0437:3,1 R R o v)2661 R 200~27 H 02662 R 5045/5 R 02663 R 544,76 R 02664 R 602774 R o 02670 02671 o o o %FAB83 ~J2667 02672 02673 02674 02675 02676 R 602705 R 203713 R :3,0201,3 R 0437i3 R 2037;~ R 740401 R 602700 R 744v)QJ0 INOW %FA8,C R A R A 02677 R 344~13 R 0270~J R 043'1~2 R S~1A S2L. ~AC %8AC~ ~ MORE TIME IFM8<FMA o DAC %HAC2 o HAR o ~AC %HAC~ OAC %HAC3 bAC %HAC;4 RAR OAC %HAC4 ITHE EXPONENT~ AA~ NO~ EQUAL. IF THE SJGNS ARE UN~IKE INEGAT~ TH~ ADDEND B~FORE ADDING! AFTER ADDING IF THE ISUM IS NEGATIVE THE ~DDENO MUST 8~ ~ARGER,TAE SIGN OF ITHE SUM WOUL.D THEN BE THAT OF THE ADDEND LAC OPCQDE - SAO (ADD) Jt1P %fANGl = 0000~0 IUNLIKE Sl~NS -- %f~SIGN S~1A" JMP %fAC ~AC %HAC4J~1S %ANEG! .. INE:GATE ADDEND ISUBTRACT UNLIKE ISUBTRACT ~IKE ~., REAL~Y (JAC %HAC4 bAC .' . %HAC3 Cl~ ~ ,+ 3 - TAD (1) PAC %HAC~ ADD o o o Ct~A: SNh J~1P o o IFSIGN = 400000 I~IKE SIGNS L,AC- o o AND (OP6T09) %PFAC o o JMP %[Af:3.g",l, 1St sWITCH o o IFMA(FMB RCR R R R R IFMA AND 3 WITH CORRESPONDING %HAC2, AND 3 J ~1 P %f' ABB2 + 2 SHI~T Ao6ENP'RIGHT ON~ IFSIGN o I FMB k,AC (~f~A8,G) DAC %SWICH J~'1P %?\~ I t8+ 7 1043(1.2 R R 203713 R 026~7 R 7400~0 A 02660 F~ 043713 R .- ON~Y ~EAG~, o IfMA JMP %~A8,~ ... 1 A 02665 R 203721 R 02666 R 740l~)0 A o ISWITCH %FAB82 TAD %HAC~ o IPMS J~1P %F ABB3 l. AC %FAC2 "" CMA .~ R 2vJ37l2 R R 74002~1 A R t~ ,+~ %fAC3 Ct1AtCCL . TAD %~~C3 R 6v)2~~2 R R 74~.400 A R 602~~7 R R 6026~1 R o ~AC R A R 0 EPQINT~NqN ~AC %FAC2 SAO %HAC2 A o o %FAB81 R 026~0 R 744~H~1 R 343'li2 R 6026~1 R 2Kl37~~ 02635 R 740003. 02636 R 343?il SU8TIT~E SRC INEGATEO ~OW~ORDER ADDEN o o o (J o o o PAGE 45 FP1~T~ 0270l R 203711 0270~ R 74140:1 02703 R 344643 02704 R 043711 A o o o o o o o o o o o o o o %HAC2 (1 TAD R R EPO~NT~N9N ~AC CMAIS~~ H ~HAC~ OAC o /H1GH~ORDER ADDEND IIF OVER p~OW FROM INEGATING ~OW~OROER ADDEND lEND OF NEGATION IWHEN GOMPUTIN~ TA~ EXPONENT THE ONE'S COMPLEMENT WAS USED I IOSTEAD OF THE TWO' S"COt~fJbE~lENT. TH I S WAS TO FORGr: A RIGHT SH 1F'T lOP THE AUGEN~Y· SO 'THA I OV~RF~OW WQUL.rD NOT I NTERPERf: WITH SUM o o SUSTlT~E SRG o o o ISIGN DETERMINATION I I 02705 R 203705 R 02706 R 744020 02707 R 04370:} 02710 R 2{;)3'106 02711 R 740020 02712 R 043706 02713 R 2037!i)j vJ2714 R 740k'2v) vJ2715 R 744~~0 %FAC A R R LAC RCR OAC %FAC2 11~BIT RIGHT %FAC2 R R ~AC %rAC3 RAR DAC %FAC3 L.AC %FAC4 A RAR A CL~ A AUGEND /HIGH~ORDER I~OW~ORDER AUGEND /RlqHTMOST 81T OF %FAC4 DROPS OFF, <WHO CARES BABY) o o o o I 18~GIN 02716 R 343713 R 02717 R 0437~7 R 02720 R 750010 A 02721 R 343706 R 02722 R 3437i2 H 02723 R 043706 R 02724 R 7500i0 A 02725 R 343705 R 02726 R 3437ii R 02727 R 043?~5 R I THE ADQITlqN, o TAD %F'AC.s TAD DAC GLK TAD .,. %~i AC3 %F"AC~ ~EAC2 DAC IIF' SUM IS NEGATIV~, LAC %F~AC2 ' 90MP~EMENT THE ANSWER AND THE SIGN OF THE SUM - JMP %F'AD l:AC %fAC4Jt1S %ANEG, DAQ %[AC4' \.,AC 02737 R 74040I A 0274(1 R 602 713 R o o %HAC? TAO SMA IL,OWe'lQRQER SUM IIF OVERFLOW FROM ADDITION %fAC9 I 02730 R 2037k15 H 0273~ R 740100 A, 02732 R 6027by] R 02733 R 2037~7 R 02734 R 102013 R 02'735 R 043'i~7 R v)2736 R 203'1!()6 R o TAD %HAC4 DAC %FAC4 GLK %EAC~ Ct"1A! SNb J~1P ,+~ o o o o GL~ 02741 R 744000 A 02742 R 344643 R 02743 R 0437~6 R 02744 R 2v)3705 H 02745 R 741401 A 02746 R 344~43 R v.'2 7 47 R 0143705 R TAD Cl) DAG " %F AC3 bAC %FAC2 CMAlStb TAD DAC I (1 %FAC2 fA FORCED SHIFT OF %FA8 ANO %FAC WAS PREVlOUS~Y INITIATED ISHlFTBACK I~Blf 1 OF %fAC2 IS = 0 o o o o o o o o o o PAGE 46 FP1~T~ o o o o o o o o o o o o o o 02750 R 2037~5 02751 R 5v)4l06 02752 R 74;1,2~t~ 02/!:)3 R 602 7 22 02754 R 5447t17 02755 R 6027§2 02756 R 203707 02757 R 044~t=i'l 02760 R 103664 027 2:\ R 6030~7 02762 R 2037~7 02763 R 744010 102764 R 043707 02765 R 203?~~ 02766 R 740010 R R A R o o IIF 81T1=1 INCREMENT EXPON~NT BECAUSE OF THAT lAND SET GUARD BIT FOR ROUNDING %FAD ~AC - XfAC2" AND (AOUl') SNA SAD R R R OAe bAC ~J301~ 0~012 031013 03014 03015 03'116 R 60301'1 R 0:5017 R 200527 R 0~020 R 5"'457!:> R vJ302~ R 544~76 R 03vJ22 R 603k1~2 H o l~lKE SIGNS -/lJNL,IKE SI~NS o IAOO UNLIK~ ~ REALhY SUBTRACT o SPA JMP %~[A9 JMP %FAC IADo LIKE IEXPQN~NT DIF~ERENCE TO GR~AT TO COMP~ETE OPERATION IEXPONENT REA~OLATI0N%FAE.X LAC %rAC1-' R 24371.0 R R 2037~5 R R 543106 R R 7402~0 A R 741~~~ A o %[AC2 IIF FSlGN = 400£100 ~FANGl !nAC %ESiGN R r~ 6030i2 R R :U?J242~ R R 444'64 R o ISHIFT BACK %fAC3 %FA.C2 JI1P %FAEXFSIGN = 00Y'00f(.l XQR o %HACl (1~0$~0) SNA JMP %f Ar~X bAC %~At~ o AND v)3004 B 6~)30i7 R 03005 R 2037vJ4 R 03006 R 74vJ100 A 0~010 o RA~ 03002 R 504626 R 03003 R 7412100 A ")3007 ANSWER SIGN DAC IIF 0300~ ID~TERMINE RAt., A 03000 R 2037~~ R o DAC %FAC4 ~AC - %EAC3 R R o RC~ A R R A foEAD,~ JMP -- %~AEX ISHIFT BACK HERE %FAD~D LAC %FAC4 /EXP SIGNS EQUAl.. o S~'1A %FE .,H1P %F AEXX J~1S %~W 1C~ IS~ SWJTGH IFAC REG l STERS'MORE + /SWITCH TO GET %FAC hARGER (MORE IIF FAC2 ANO ~AC3-= 0~ HAC REGISTERS MORE + ISO THEREFOH(~swtTCH ~EGISTERS ANO KEEP SXGN %FAEXX LAC %FAC2~ SAD %fAC~ S2!A - -- SKP %FAEX JMP %FE LAC OPCQDE AND (OP6T09) (ADD) , SAD J~1P A~?lC?N o o (JMS) JNS INcEXP 02767 R 0437~6 R 02770 R 203705 R 02771 R 740ro~k' A 02772 R 043705 R 02773 R 603017 R 102774 R 203721 1027"15 R 7411v.10. 027'16 R 602670 02777 R 6027~5 SHIFT JMP %FAO,O bAC %FAC4-PAC GOARO H R R FORC~D -- ... J~1P R o o o SBC POSJT~VE) o o o o o o o o o o () o () PAGE o 10 o o o o o o o o o o o 47 FP:1.~T~ SRC 03023 R 203/21 R hAC %f.Sl~N 03024 R 741200 A 0J025 R 603~.j:? R SNA I%FS~GN 03026 R 204;>70. R ~'302? R v)43721 R (13030 R 204~~~ R 0303:t R 504~~3 R ~J30;S2 .- R 7412k?~ A 03e133 R 102017 R 03034 R 6030~6 R 03035 R 204570 03036 R 750100 03(137 R 204626 03040 R 043121 03~)41 R 6~J30!j6 03042 R 203721 03043 R 74j.200 0J044 R 6030S4 R A 03054 03~55 03056 030!:)7 03060 R 6030'6 R 2045'10 R (143'121 R 102172 R 442447 R 622~~7 SNA o o o ICOMP AstGN %§NEG, JMP %FAEXT - l,AC %J4% SMAlCLA Jt'1S GoroGO LAC (4~0000) .,J~1P %fAEXT DAG %FSIGt~ .ADSIGN ~AC o IB;COMES "A" SIGN %~SIGN SNA J~1P GO~OGO IAOD ~lKE SIGNS lAUD UNLIKE SIGNS %FSJGN .. 400000 l.,AC %F% ISIGNOF Ft~A DAC %FS1GN ~AC SWITCH AND %FAEXT "A" SJGN ~H1S IS~ J~1P* I ..... , %FNOf~ t %FA ! . .~ ~EA. o o o /BUMP FOR EXIT IEXIT IWHEN SWITCH = ~, HARgWARE FMS > F~1A .EJECT o o JMS %SNEG .. JMP %FAEXT l~AC %~1% . DAC %[SIGN .. GQGOGO IEH:COMES (1 ), SNA R R R R R R /8;CQMES n A" SIGN o AND <1.") vJ3052 R lVJ2~ll H ~13053 %j4% - PAC %FSIGN ~AC SW"tTCH R 03045 R 204566 R 03046 R 043721 R 0~047 R 204~~4 R 03050 H 504643 R 0;S0~~ R 7412~0 A ""'! ~AC R R R A R ISKP TO SUB Ir.IKE SlGN~ Jt~P GOTOGO ISUB UNL,IKE SIGNS 4000~0 TO S~8TRAQT LiKE SIGNS , , , TH£HEFORE COMP ASIGN o o o o o o o o o o o o o o o o CJ () o () -PAGE 48 FP1~T~ SRC o IGENERA~ o ICAL~ING I I 0 I 0 ,.-.. u 0 0 0 0 0 0 0 0 0 MU~TIPLY (%PM,> NON~EAE ICAI...L IRE TURN ITHE ARGUMENTS ARE IN THE P~OATING (%FAC1~3) AND IHELD ACCUMU~~TOR~ (%~AC~"~). THE FLOATING ACCUMU~ATOR IS ITHE MULTIPLICAND AND THE HE~D ACcUMU~ATOR THE MULTIP~IER. IIF EITHER ARt ~ERO~ RETURN IS MADE WITH 0 IN THE F~OATING IACC, THE EXP~NENt IS-COMPUTto FIRST. 0 0 F~OATJNG SEQUENCE; JMS - %tM, ~EXT JNSTBuCTION I I 0 0 o I 0~061 R (()0000QJ vJ3062 R 74 4 ~~(~ 03063 R 143'107 03064 R 144557 03065 R 203704 03066 R 343'l~(~ 0~067 R (~43'i~4 03070 R 20052.7 0307~ R 5046:l.vJ 03~'72 R 544610 03073 R 6031i2 03074 R 2037~1 03075 R 5046:>5 A A R %FM. o C~k D~r-.1 %F AC4 bAC - %f AC~ TAP OAC %HACl %FACl l:AC OPCOOE . AND (DP) .. SAD UJP> R R R R 031w)~ RT6 RAh PAC TEMP bAC %XFACJ, R 7421010 03102 R 7400~0 03103 R 040~j"j 03104 R 2v)0513 A R R A R R R %XHA¢i Si!A JMP %FMl JMP %FM2A R R A R R o o o AND (1~~)" R R R R XQR %F'M2 ~AC %F~12A IUNl.IKE SIGNS l.,AC SPA %8AC; JMP %fMJ bAG T~MP SPA lSt: OVRFbl .. JMP • +4 hAC TEMP o o %FAc;!' OAC TEMP .. hAC %XFACl XOR %XHAc;i, SPA Jt4P %Ft11 o o RT~ A A R R 0~105 R 240,16 R 03106 R 5045ii R 03107 R 7402~~1 A 03110 R 6031;,52 0~111 R 603120 0313.2 R 203'/104 03113 R kJ4053?; 03114 R 2005+3. 03115 R 2405;1.6 03116 R 74110{1 03117 R 603132 0~120 R 2037:10 03121 R 741100 03122 R 60312'7 03123 R 200~j~) 03124 R 74;110(1 03125 R 440566 03126 R 6031;S2 03127 R 2005~0 o AND (777) ct..kJRrC· RTb - o IEXPONENT OF MULTIP~ICAND IAob ~XPONENT Of MU~TIPLIER ISAVE ~XPONENr OF PRODUCT, LAC %EAC~ 0J0l6 R 746010 A 0~077 R 742010 A 03100 R 742010 A o o J~1P %f:M2 R R R o IENTRY EXIT [)i!t~ GUARD R R R o o IUNk,lKE SIGNS 1~IKE SIGNS WERE NEGATIVE o o o 0 o 0 °1 - C) () o o () 0 PAGE 49 FP1~T~ 03130 R 7401~'~ A 0313~ R 4405~7 R 03132 R 102~60 R R 102~~7 R 03134 R 6230~1 R 0~l~3 0 suarITbE EPoINT~NqN SRC 0 SMA UNDFbl 1(+EPA)+(+EPAi-STAYED POSITIVE %FM1 JMS' %F$, J~1S CAC0 lS2 IGET SIGN AND ABSO~UTI~E, .JMP{~ ~f:M. I ICHECK MULTIPJgAND FOH ~EROAND SAVE IN WORK AREA, o o o o o o 03135 03136 03137 03140 03141, 03142 03143 03144 03;t45 I R 203706 R R 2037~5 R o %FAC2 %:)2 ISAVE IT, IHIGH~OROER IC~EAR MULTIPLlCANP SHIFTING IN PRODUCT MU~TtPbICANO PRODuct AREA FOR SHIFTIN~. INOT 0'!t SAVE IT %J2 %J3 R 1437i~ R %F Me 02t1 %.J~ %FAC4 ot M %J 1 Ai(- -, D2M %EAC~A# D~M 03153 R 144~~~ R IINITIALlr.~ CARRY ~XTENSIQNS I I ITHE MULTIP~I9ATION IS PERFoRMED BY A SERIES OF ADOS ITHE MULTIP~ICANO IS ~DDED TO ITSEbf AND SHIFTED FOR EVERY 11~81T OF THE-MU~TIPbtERt THE ADDITION STOPS WHEN THE 03155 R 744020 A 031f;>6 R 043?+5 R 12-WQRP ~1l).~Tl~hl~8 15"0" I hAC %F 1'1 A RCR OAC %J~ ~AC %.)3 DAG %.j3 R 740k1~~1 A 03161 R 043716 Ii RAR 0j162 R 2v)3714 R I,.,AC 03164 R 043)14 R RAR DAe 0~160 03163 R 74002~j A 03165 R 204~67 R 0J166 R 740020 A l,AC R A R R I LAC %HAC2 %1~IAC2 I R 74:t2ro~j A R 6v)3222 R SNA 0~20~ R 6031~~ R 14TH WORD ~XTENSION kAC RAt, 0 0 0 0 IIF HIGH"OROER WORO IS ~ERO, ITHE MU~TIPLIER MIGHT BE ~~RO DAC () %..)1 %~~A . ~' %tJAC~ R 0437ii R 0 0 DAC R 740£110 A 0 /3RD WORD EXTENSION OF MU~TIP~ICANO ISHIPT TWO WORD MU~TIPLIER 0;S174 0~l'~5 03176 03177 0 0 %HAC~ R 203712 R 744010 R 04371~ R 203"111 03200 R 744100 A Yo~l DAC %~;A 03170 03171 03172 03173 0 ISHIF THREE IWORD MULTIPLICAND lONE IBIT IRIGHT RAR 0~1~1 R 044~~7. R 0 0 SKP ~Jt-1 P 03151 R 1437~7 R 0j152 R 144~~i R 03157 R 203716 R o %FAC2 I~OW~ORDER IC~EAR FOR S~A R 60322;) R o o SAO R 740200 A 03154 H 2037:45 R 10 %j3 DAC ~,AC 0;$146 R 74100f:' A 0~~47 031~0 %F AC:S %FAC~ bAC D~M R 1137~~ R R 043715 R R 203715 R R 543716 R o o 6.AC Dt.M DAC R 143706 R R 043?ib R o o --------"--------_.- RC~ lONE elT ~EFT / JMP %fMB SMA:CLL JMP %FMA IIF MU~TIP~IER 01 IMAYBE INo",IS MU~TIPLIER 81T 0 SET? INO,.~CyC~E AGAIN 0 0 0 0 o 0 o 0 - - - - - - - - - - - - - - - - - - - - - - - - --- ----. --- - - -- o '. (-) o () PAGE 50 FP1~T? SRC 0 0 0 0 0 0 0 I IADD THE THREE WORP (INCLUOING EXTENSION) IBUILDING PROQYCT ~N tHE FbOATING ACC, 03202 R 204~~:; 03203 R 344567 03204 R n445~5 0~205 R 75001'1 03206 R 343?~7 032~7 R 343714 03210 R 043'107 0321l R 7500i0 03212 R 3437v)6 0321,3 R 3437i6 032j,4 R 043706 03215 R 750010 03216 R 343?1~ 03217 R 343"105 03220 R '~14 3 '/05 03221 R 603iS~ I R t~AC %[AC~A R R A OAC %FAC4A R R %~~ DAC %f.AC4 A GL,K R R TAD TAO R A PAC GLK %FAC3 %J3 %[AC3 R R R TAD %J~ TAO %r-AC2 DAC %fAC2 0~222 0 0 0 G~K R 203712 R 213223 R 740200 A 03224 R 6~)31~1 R %FAC4 > MU~TIPL1CANP TO PRODUcT IEXTENSION OF MU~TIPLICAND (3RP WORD) 13RD WORO Or BUI~DING PRODUCT IADD OVERPbOW FROM ~INK TO ZND wo~o 12ND WORD or BUlbDING PRODUCT IYES,~,ADD IADD OVERF~OW FROM ~INK TO FST WORD IOF PRODUCT JMP %~MA ICY9~E AGAIN IAT % FMB THE HlGH"ORUER MULTIP~IER WORD 1$ ~EROa ITr,:ST ~OW~ORD~R wdRO,-IF IT IS 2ERO ALSO, EXIT. I %Ft18 %HAC3 LAC S~A lIS MUbTIP~IER 0 ? lyES .)MP INO, • ,CYC~E: AGA I N I 03225 R 2031'0'1 R 03226 R 04455'/ R 103227 R 102112 R 03230 R 623~?1 R IEXIT RQlJTINE, %FMC hAC %[AC;~ OAG GUARD Jt,1S .Jt·1P~~ - ,EJECT %fNOR I %FM, . -- o o TAD TAO 0 TO THE TAD %J1A R R MU~TIP~ICAND o IREDUNDANT IN CASE UNNORMA~l~ED INORt-1A~ 12E IRE:TURN o o o o o o o o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o o o o PAGE 51 FP1~T~ o $RC IGENERA~ FkOATlNG OIVIDE (%FO,) ICALL 1NG SEQUENCE;' .. I" ,. NON~EAE o o I ICAl,..l,. 0 o I I () IF~OATlNG o o I o o o o o o o o I 03231 R 000000 A R 2232~1 032J3 R 043714 03234 R 443231 03235 R 102~~~ 0~232 R R R R 03236 R 2037~5 R 03237 R 543706 R 03240 f~ 7402~vJ 0324~ R 74100~ 03242 R 603~6j 0j243 R 200~27 0~244 R 5046vJJ 0J245 R 544604 o o lSi: J~1S SAD S2A IA6NORMAL. OIVJSION ... DIVISION IF kAC OPCOPE AND COP§TP9) IA8NORMA~ SAD (RDIV) ~JMP t+ 5 l,AC %XHAC2 RCh 03254 R 74401v.~ A IlNTEG~R FM8 IS UNNORMALI~EO DIVISION . L,AC IEXCEPT FOR REVERSE DIVISION SKP IN£GAT~ o IrMa HIGH o 19ALCUkATE EXPONENT 8~FORE r~AGGING A8NORMA~ DIVISION o %HAc;( SAD %HAC3 St A o o INO AaNORMA~ 6f~'SION IF Ft1A = 0 03263 R 603~~5 R 03270 R 2037~5 R 03271 R 74;t4~1 A .... ,. SMA JMP %FDf4 03260 R 543712 R 03261 R 740~~0 A 03262 R 741,0~J0 A 03267 R 043?1~ R o (fL> ' SAD (9A~) JMP 191V 1. g~ R 6032~7 R 03266 R 102013 R o %fPC - R R 03264 R 203706 R ISIGN CONTROl., IFMB HIGH IFM8 LOW AND 03265 R 1437~6. R o %fAC~ .)r~P R 203711 R IGET NO OF 81TS (MUST BE NEGATIVE) ISAVE NO Of SiTS AS COUNTER, SKP 03250 R 504?r5 R 0~257 %ES, /ABNORMAb DIVl~ION IF FMB - 0 bAC %EAC2' 03251 R 5446j? R 0~252 %~1 %~o! hAC OPCQOE R IE.:NTRY~EXIT %[P. DAe 03246 R 6Q)3'H~5 R 03247 R 200527 o bAC~ R 03272 R 344o~j H 03273 R 1437Y)~ R 03274 R 043/i~ R o ~NSTRUCTAON R o o %FP, A A 03255 R 740100 A 03256 R 603215 R o NEXT /~EAST IUPON ENTRY TO THE SUBROUTINE THE ARGUMENTS wERE STORED IN THE POINT HtGISiER (%FAC1~3)f AND THE H~kD ACCUMUkATQR (%HAC1~3). IRETURN IS MADE r6 THE CAkbING PROGRAM WITH THE QUOTJENT IN THE IF~OATiNG POJNT R~GlSIER, THE DIVISOR IS IN THE fimOATION ACI o o INO Or BITS TO GEN~RATE SIGNIFICANT QUOTIENT BIT IRF.:TURN HERE r.34/l"!!44 400/1-- I vJ3253 R 200517 H o "H1S - ITHE QUOTENT WILL = 0 JMP ID.EXll THE OIVISOR IN THE F~OATING ACCUMU~ATOR. LAC .. %fAC~ ILOW~ORDER DIVISION %FAC3 02M ICkEAR FOR QUOTIENT %ANEG e INEGATE ANO JMS %J3 OAC ISAVE kOW~ORDER DIVISION IHIGH~OROER DJVISION b,AC %Et\c~ CMA!.S~k ISKIP IF LINK ON FROM NEGATING ~OW~ORDER (1 TAD IDIVISOR OtM ICL.EAR FOR QUOTIENT %tAC~ DAC %J2 o o o o o o 1 I U o 0 o PAGE FP1~T~ 52 SHe 0 0 0 0 '03275 R 2037~4 R 0~2"16 R 102016 R '032'77 03300 03301 03302 03Jk'3 033v)4 0~305 033~6 0 03307 0 03311 03312 03'313 0J314 0 0 0 0 0 0 0 0 0 0 0 0 033~0 03315 0331,6 03317 03320 03321 R 34371kJ R R 0437~4 R R 200527 fi R 5046:l.v, R R 5446:1,0 R R 603323 H R 203?lq~ R R 504655 R R 7440~k1 A R 742k'l~J A R 7420~'6 A R 742kJ10 A R 74201~ A H 040560 f~ R 200513 R R 240516 R R 504=>'77 R R 74120k' A R 60334:5 R ~);S322 R 603~3l 03323 R 2037~1 0;S324 R 040~3t{) vJ3325 H 200~i3 03326 R 2405:1.6 0~327 R 740i?jr1 03330 R 603~43 0333~ 03332 03333 03334 03335 03336 R R ~AC OPCQDE SAD (OP) ANU (OP) " Jt1P %FD2 L.AC %FAc:1. RTk RTk RT6 DAC TE~lP %XHA¢i AND (~~0.)" SNA JMP %F'Pl J~'1P %FP4 %F02 l,.AC %fAC~ bAC %XrACl XOH %~RAt; A R Sr4A R R 0J347 R 200:;:1.7 R 03350 R 74401.Q' A 033~~ R 74v)l~0 A "J3352 R 6035~~~ R R 2vJ3?+1 R ITEMP FOR QIJOTS:NT EXPONENT I;PA IEPB IEXPONENTS WERE; I,I,UNl"IKE SIGNS ITE~P FOR QUOT~NT ~lKt: SIGNS EXPONENT %FD3 T~MP SPA lSi! OVRF'b; roFP3 .+~ IS~ UNOFh; IABNORMAk D1V.1,? ION NO~ LAC QPCQOE %FOl AND SAD (OP6T09) (RO'lVf Jt~P tio~ L,AC %XHAC~ RCt., St'1A o o o lEPA WAS NE~AT1VE o IFROM SlJBTRACT I ON OF EXPONENTS o hAC TEMP Sr'1A o o SPA Jt'JP o o JMP %FOl IEXPON;NTS WERE Of UNhlKE SlGNS %F04 IE:PA ~AC %8AC~~ J~1P ~AC o o bAC %XFACl XQR o o PREqISloN RTI, R R H R IDOlJ8~E AND (777) CL~IRAb ' DAC TEMP 03337 R 603343 R 03340 R 200~~0 H 0334l R 7401VJ0 A 0334~ R 440~~'7 R 0~5353 ITHE EXPONENT OF THE OIVI[)~NP MINUS THE EXPONENT OF THE IDIVISOR EQUA~S THE E~PONENT QUOTIE:NT, %FD0 %~Ac;t IDlVISOR EXPONENT hAC %ANEG, JMS %HACl TAO IOIVID~N(J eXPONENT %~:'AC1 IEXPONENT BF:FORE NORMAl." I r-A T I ON DAC 440536 H 03343 R 200!j27 0;$344 R 504575 0;S345 R 544637 0J346 R 6033S3 EPOINT~N~N R R 2037l(~ R R 741100 A R 6036~v) R R 200~~'~ R R 74110v) A f~ SUUTIT~E IFROM SUf3TRACT ~ ON OF' ~XPON;NTS IF' FM8 IS UNNORMALl.2ED IEXCEPT FOR REVERSE DJVISION HIGH IF~18 Jt·1 P %FOC IASNORMAL. OIVI$ION INORt1Ab 12!E MANT~SSA BECAUS~ HARDWAH~ NORt1Ak, 1r.ES 1'f SONNY ITHE PROC;HAM ~J~k NEV~R EXPECT A FbOATING ABNORMAl, DIVISION ON RO IfMA HIGH LAC %Ij AC2 o o o o o 0 o 0 o o () o () PAGE o o o o o o o o o 53 FP1~T~ SHO 03354 R 5042~1 R 03355 03356 0335/ 03360 03361 0336? o o o o o o o J~1P l~AG %FDA~~ %RAC3' ROb R 2v)371.1 R kAC %HAC2 RA6 DAC %HAC~ o kAW ~i R TAD %FAC;]' /Q!JOTENT R R DAC %FACl IEXPONENT kAC OPCQUE AND (OP) .SAD (QP) JMP ,+6 03372 R 5446,l0 R 03373 R 603401 R 03374 R 203704 R 03375 R 544702 R LAC %F'AC:l. SAO (777:57"1) 03376 R 603403 R 03377 R 54470~ R 03400 R 603~~3 R SAD (3·i ~I ) JMP • +~ Jt~P 0~S401 R 2!~3704 R R 544660 R SAD o .. . o (377777) 152 UNr~~~~N IINT~G;R o Jt1P %FDl DlVISI0N IIF OlVlOEND ('OlVJSOHf THE QUOTENT t~I6L. ;: 0 03405 R 2037~1 R 03406 R 54370, R 03407 R 741000 A 0341~J R 603~10 R 03411 R 2 v.J 3 '/12 R 03412 R 7451kHj A 03413 R 6031 22 H 0:.5414 R 740~"31 A 03415 03416 03417 03420 R 343706 R R 74140~' A R 741200 A R 6034!)4 f13421: R 6ro3~~S 03422 R 203'106 (lJ3423 R 74510(1 03424 R 6034~2 H R R A I(F'MA<FMB) . ,,lAND IF FMB ; 0. +1 T9 INTEGER DIVISION BY 2ERO I DI V~ D~ kAC %~~AC~ . IFMA SAD %EAC~ IfM8 SKP IFMA ~ FMB HIGH CHECK ~OW Jt~P ! QV2 L.AC %HAC3 SPA: cC~· JMP t +~ TCA TAD %~AG3 IFt'1A LAC %FAC3 SPA:C[~ . /Ft'1860\lJ J~1P 03425 R 740031 A 03426 R 343712 R 03427 R 74~)4U0 A 03430 f~ 60344!") R TCA R 603454 R 0:5432 B 740~61 A 03433 R 343712 R 0~4:54 R 741~~k' A 0343~ > PMS JMP JllJrR JMP tQ~XII IFMA < FM8 • +~ o o o TAO %tjAC8 SNl, JMP lOEXIT J tit P JQi,F R . IFMA < FMB IFMA > FMS TCA T AO %tfAC~ IF't1A LOyJ $t4 o o /PMS SNA o o IrMA S~I., R o o L.AC %FACl. (~3403 R 4405~i R 0;.s4Q)4 R 603J~~ R .+~ o o A 0337l R 5C346:l.Q,' R 0340~ IFMA LO~J DAC %HAC3 v)3363 R 740~;'f~ A 03364 R 04371~ R 03365 R 777777 03366 R 343'I'U4 ~J~367 R E143704 213370 R 200:"27 o (~AC) R 7440:l0 A R 0437),2 R o o AND Si!A R 740200 A R 603527 R R 2037+;2 R o o o o o c~ r"" -...-) 0 () 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 PAGE 54 FP1!:)T~ SRq 034~5 R 7 412 ~,n~j A 03436 R 603115 R 034~7 R 603~~4 R 03440 R 740001 A 03441 R 3437~5 R 03442 R 7401~~1 A ej443 R 603~15 R 03444 r~ 60~3~~1 R 03445 R 143704 R 03446 R 143'1~5 R 0~447 R 1437~6 R 034~0 R 140!:;)~6 R 03451 R 140e:>~'1 H 03452 R 140:>1l R 03453 R 6036~vJ R 03454 R 1437:l.~ R 03455 R 2C~3l11 R 03456 R 504~61 R 03457 R 7402~~ A 03460 R 6034r6 R 03461. R 2~137i2 R 03462 R 744010 A 03463 R 043'7:1.2 R 03464 R 2037;1,1 R 0~465 R 74001. 0 A 0~S466 R v.,43711 R 0~467 R 203'1~2 R 03470 R 744k'10 A 034'11 R tiJ43~k?6 R 03472 R 2v,379J5 R 034'73 R 740010 A 03 4 74 R tJ4370~ H 03475 R 603~~5 R 03476 R 443714 R 0~477 R 2v)3~~5 R 03500 R 504661 R ~J3501 R 740200 A 0650~ R 603512 R 03503 R 2037~~ R 03504 R 744010 A 03505 R 0437kJ~ R 03506 R 203705 R ~j35t07 R 7400i!~ A 0~510 R (~4~r~f:15 R 0~51l R 603~?~ R 0;S512 R 2v3371,4 R 03513 R 74010..51 A 03514 R 0437:1.4 R 035;1,5 R 744~~~' A 0 81)8T 1T~E EPolNT~N9N SNA J~1P Jt~P lOV2 Ct'1A TAD IDEXXT l.~.I.F'R 0 IFMA < FM8 IFMA > F'MB 0 %~AC? IFMS HIGH 19~x IT IFMA < FM8 IFMA > fMB IQUOTENT \Ill L.l. :;: 0 SMA Jr~p lOf;XIT J~1P l.QIFR Dt t1 %FAC~ Drt1 %FAC~ ott~ %FAC~ PlU1 OVHF~l D7!M U~QFb~ 02t1 UNDFb,N S~A Reh DAC %HAC3 bAC %~AC2, RAh OAG %HA02 I.,AC HCk DAC %fAC0 %fAC~ kAC %FAC~ RAb DAC %EAC~ .~ Jt~P IPVC 3 . Jt~P 0 IrM8 l..,OW 0 IPM8 HIGH TO DIVISION COUNT~R I~~VC~ 0 0 RA~ IFMB00 = ~ IDVC1 ~AC IFMS £10 NOT ... ~ 0 %Jl TCA IN;GETED oI FFEfiENCE TWX FMA/FMB ITHE DJFF'EREN9~ T\~X THt~ FMA/FMB HAS SEED Pr:TERM I NEt) I PR It-1E: MANTlS~AS fOR §L.JBTRACT l ONS OAC %Jl CL~ 0 0 bAC %f.AC;~ RC6 PAC %fAC3 L.AC %[AC2 OAC %f'AC2 lJMP lQVC~ 0 0 IFMA HIGH /+1 0 0 IFMA LOW love lSi! %j1 LAC %F' AC2 AND (~AC) St;A 0 0 JMP %FUEXIT IDETERMINE TH~"DIFFERENCE T~4X THE ~MA/FM8 AND DO THAT t"ANY SUBTRA9TIONS D~~l %Jl IDJFR IOIVISION COUNTER l:,AC %HAc~ IDve AND (~AC) Jt4P IQVQ3 LAC %HAC;S 0 0 0 0 0 0 C) I (J o () 0 PAGE o o o o o o o o o o o o o o o o o o o 55 FP1:>T~ SRC R A R R A 0~523 R :344§~J R 03524 R 0437:45 R 035~5 R 1437l1.l6 R 03526 R 14370~ R 03527 R 777777 A 03530 R 044~~6 R 0353~ 035~2 R 203l~6 R R 744010 A TCA OAC 03553 (1)3554 03555 03556 0;S557 03560 0;S561 03562 R 7440;].0 A H 043?~2 R H 203711 R R 74001,j A R 20052'7 R 03564 R 504~~3 R 03565 R 5446164 R 0~566 R 440544 R 03567 R 5446~3 03570 R 440~42 03571 H 200527 0~57~ R 504610 03573 R 544604 0~574 0~575 R R R R R R R 6036VJ(~ R 140~~6 R 0:55'76 R 140~67 R - ROL. - DAC %FAC3 %EAC? ~AG RAb o bAC OAC o ISUBTRACT kOW DIVISOR PROM ·0 I~OW ~tiAC~, I SAVET EM P0 RAR Xl.. Y. , , ~1 AY8 t: NEW bOW ~ 0 HOE HOI V I () ENO o %HAC2 ~j~ IIf OVERFLOW ADO 1 TO HIGH QRDER DIVIDEND ISuaJECT HIGH~ORDER DIVISOR o %F'PD %8AC~ IIF NEGATIvE DO NOT GENERATE A QUOTIENT 81T ICONTINu~'WITH OLD DIVIDENO INSTEAD OF REMAINOER o Gl..K TAP TAD S~~ A ~J~1 P bAC %FD8 RC6 ~AC %HAC3 %tjAC2. DAC %HAC~ DAC RAb %F DF IA8NORMAL OlVlS~ON EX~ECTEP %FOC DIVID~NO I I ISHIFT DIVIDENCl I D2M F'STSUB 1St. %J:t JMP %PDA Jt~P I BEEN SHIFTED INO't.CYC~E AGAIN IHAVE AL~ 81T~ 11 NGEGE:R jl,H1p· LAC O~COOE AND <E6) - SAD (CA~) SAD (Fb> - lSi! IDV8YkJ IS~ o %EAC~ %J3 %HAC~ TAO o IIF NEGATIVE, THE ~ARGEST POSSIB~~ HAS SEEN OBTAINEO. I~F'OE: OAC o IQ40TI~NT SPA ,,)MP H 144~~6 R R 4431i4 R 0~563 o ITHE BY A SERIES Of SUBTRACTIONS. THE DIVISOR WI~L BE ISUBTRACTED FROM THE OlVID~ND, IF THE RESU~T IS MINUS THE DIVISOR IS ILARGER THAN THE OlvlGED AND A BIT IS NOT ADDED TO THE SHIFTED EX~ONENT LAW ~i . -. DAC FSTSVB# I~,A.C .. %fAC9 %FPA ISHIFT BUI~DING QUOTIENT 1 BIT LEET R 0437:1.1 R R 6D35jl R R 6036~2 R %.J~ l,.AC %fAC2 CMAIS~k. ' TAO (i) (JAC %J2 Di!M %F'AC3 D2M %FAC~ DIVISION-~S 90N~ 03533 R 043706 R ~13534 R 2t)37~5 R 03535 R 740010 A 03536 R 741:1.~0 A 03537 F~ 603616 R 03540 R (a43/05 R 03541 R 203716 R 03542 R 34311~ R 03543 R vJ43110 H 03544 R 75001QJ A 0~S545 R 343/11 R 03546 R 34~~"1i5 R 03547 R 740100 A 03550 R 603~@:2 R 03551 R 203712 H ~J3552 o L.,.AC %FAC6 03516 R 20~~7~~ 03517 ~~ 740031 03520 R 043'1i6 03521 R 203?0:> 03522 R 7414~Jl DVBYv.J0 hAC OPCQUE AND (OP) SAD (CAL.) JI"1P .+~ Dtt1 OVHFhl, DtM UNDFbi • • .'1 ~, o o o /INTEG~R OJVISION BY tERO IFbOATING A8NORMA~ OlVlSION DIVISION TAKES PREC1PEN9E lOVER DP JEA tUNCTJONS /ABNORMA~ o o o o 1 o o () PAGE 10 o 56 03577 R 1405~~ R 03600 R 4432J1 R 0360l R 6232Jl R o o o o o 03602 R 0437+1 03603 R 7404k10 03604 R 603~t0 03605 R 7777'7'7 v)3606 R 5445'0 0~607 R 103664 0~S610 R 144!'59 0J6ll R 2232JJ. 03612 H 243706 03613 R 043706 0J614 R 203/3.~j 03615 R 603~::>2 R o o o o o o o o o o o -., .%~ 0 , o I BU~1 P fOR f. X I T JMP* %FD t IEXJT IAT%FDO THE DIVISOR' JS LESS THAN THE OIVIDEND AND A QUOTIENT 81T 11$ GENERATED~ THE QUaTJENT BIT IS PICKED UP FROM THE CA~LING SEQUENCE; lIT IS THE ~EAST ~IGNiFICANT BIT AND IS ORED INTO THE BUI~OING QUOTIENT. I AN ADJUS Tt·1 EN p{" NEe gSSARY TOP I CK" UP THE NEW DI V tOE N0 (R EMA I NDE R ) I r I %POD A %HAC~ OAC A R kAW '\':~ SAD FSTSUB o OtM FSTSUB %[0, H ~ACn R R R R XQR R %fAC~ [JAC ioFAC3 bAC %HACl Jt1P %PDB SIGNIFICANT BIT, OR IT IINTP THE ~OW~ORDER QUOTIENT WORp /5AVE NEW QUOTIENT IGET LOW"ORDE~ REMAINDER IGO-SACK ANO SHIFT QUOTIENT IG~T L~AST I tAT %POE THE ~ARG~ST ~OSS18~E QUOTIENT HAS BEEN OBTAINED. THE WAS SHIfTED LEFT ONE BIT TOO MANY. ~HIFT IT BACK 181T lAND INCREMENT-TH~ EXeONENT OF THE QUOTIENT IQUOTl~NT I 03616 R 7440~Q) A (136;1.1 R 203'1k:J6 r~ 0~620 H 7 4002(~ A 03621. R f:143706 R 0~622 R 20v)~~'1 R 03623 R 5VJ460~ R 03624 H 544604 R 03625 R 143'70.4 R 03626 R 203'111 F~ 03627 R v)445S'1 H 036J0 R 200,36 R 03681 R 74120v.) A 03632 R 603600 R 03633 R 20053/ R 03634 R 340'41 R 036;S5 R 74120t:' 03636 R 6036k)0 03637 R 200;;27 03640 R 504610 03641 R 5"'l46lt~ 0~6~~ R 6~13646 03643 H 203'104 vJ3644 R 54457"'1 03645 R 741vH.?0 0;.s646 R 141052>6 03647 R 1405j7 0:5650 H 140'~1 03651 R 603600 %FDE r~CR ~AC %F(JF o o ~H1S INqEXP R o SNb JMP ,+~ R o o 02M UNPFbN %PPEX 1T 1s ~ RAR %F' AC3 OAC bAC OPCQDE AND C[C) "' SAD (CAl.,) Dt!t~ %F"AC~. IHIGH~ORDER QUOTIENT IGET ~OW~OROER QUOTIENT IRE~~ACE IMANTISSA AND Bll TAKEN FROM IT! PORTION COMPLETE, IMUST EXIT WITH- 0 FOR I DIVISION bAC lJNPFbl TAO UNDFkN R J~1P %FDEXIT R H l"AC OPCODE AND (OP) "" R SAD (UP) JMP R R A R R R R l" AC %FAC;1, SAO o o (~~~) o Or.M OVRFl.,l Oi:M UNPFhl ~ieM o o S ~<p U~jDF~N JMP %EDEX 1, T o o ,+1 R o o SNA Ji1P %F'DEX~i SNA o o LAC %HAC2 DAC GUARD LAC OVRFb; A o IEXIT ROUTINE WITHOUT NORMALI~lNGt o o C) I 0 0 0 0 0 0 () PAG~ 5'7 0 0 0 0 0 03652 R 00(iJk')~vJ A R 2~)0527 H 0 0 0 0 OCHECK R 003664 R v)3665 R 443?~4 R 03666 R 740~J00 A vJ3667 R 2~10527 R ~):56j0 R 5046;1,0 R 0~611 H 5446i~J R 03672 R 60379J0 R S~<P:C~h SAO (OJ.V) R 440~"6 R vJ3700 R 203704 R 0~701, fi 544626 R 0370~ R 4405s6 R 037~3 R 623~~~ R 03704 R 0000~J0 A 03706 R 0vJ0tcHHJ A 03'707 R 0~'0000 A ~'~710 R 0~~00~~ A 0~71~ R ~~H"00~0 A 03712 R '~H10000 A 037l.3 R v.J0vHo00 A 037;1.4 R y)(t) 0 0 ~H~' A 03'1:].5 R 00000~~ A 0371Q R vj00000 A 0371'7 R k100kt)~?0 A 03720 R 000000 A 0;372l R 000000 A 0 0 0 ~H'1P I~AC 0 .+~ %fAC~ I;,AC %fACl SAO (40(1000) lSi! OVRF'Ci ItH'lP~ I,NeE XP %PAC~ %FAC~ 0 0 %PAC3 C1 %FAG4 %HAC~ 0 0 0 0 0 0 0 0 0 0 0 %J1: %.J~ %J3 %J4 %J5 %FSlGN· I I 0 AND (OP) SAD (177~kj0) 182 OVRF~; SAD (4k:l0) lS;c OVRF'I~;' %HAC2 %HAC3 %HAC4 0 SAO (RPIV) IS~ OCHECK JMP* OCHECI~ S"O (DP) R 544710 R R 440,~tl R R 544577 R 0 Sf<PICCk IINCREMENT EXPONENT RQUTINE:R lNgEXP ,DSA • 1St %EAC~ NOP bAC OPQOOE 03673 R 2037~4 R 03674 03675 03676 03677 bAC OPCQDE SAO 036~6 R 7450{90 A v)36:;7 R 544601 R 03660 H 7450~}0 A 0366~ R 5446~7 R 03662 R 4436~2 R 03663 R 623652 f~ 0 AND (OP6TU9) (M~C~ R 504~75 R 0~S6~5 R 544600 R 037v.J5 R (~00~O0 A 0 Sl)fjT 1Tl.,E EPO lf~T~NON SRO 0~653 036~4 0~S664 0 FP1~T~ 0 0 0 0 0 0 1§IGN OF FbOATING Ace 0 0 I 0 () 0 0 0 0 0 0 0 0 o o 0 PAGE o IDOU8~~ o .1FUND %NOQUE3 PRECI~lON FLOATING POINT PA9KAGE o I o I I Dl,.AC I DOAC StQRE I I DFAD AOO SlJSTRACT I I o L.OAD ()SUB ODVP DIVIDE DDVR I PS8R o MU~TIPLY Ot+1PY I o REVERSE DIVIDE REVERSt: SU,BTRACT o I I I o IR~QUIRED PRO~RAMS, F~OlNTa GENERAb F~OATING POINT ARITHMETIC I I o I IDOU8L~ o I I 03722 R D!Zl00kH) 03723 R 10 21 ~ ,. 03724 R vJ00YJ~ftJ 03725 R 223724 03726 R 043704 I PRECISION F~OATING POINT ~OAO (DLAe) OLAe o R A %DPl (1 03727 R 4437~4 0~730 R 223724 R v)3731 0~732 0437Y.)~ R R 443724 R fi 03733 R 223724 R 03734 R 0437~6 R QJ37~5 ISUSR CA~~ <XCT IF INDIRECT), IADDRESS Of DOU8hE PRECISION NEXT JNST~UCTJON" IRtrURN ARQ I~ PhT ACC A R R R J~1S bAC* DAC IS2 %F'G ....... '.' lS~ %FACl %PPl %DPl %fAC2 %DPl l,.AC* %OPl 6AC~ OAC DAC %f;I\C~ LAC DL.AC - R AND (77177) SAO (%OP,)A) R R R 0~'142 R JMP D~Ac? SAD (%QP6A) 0~743 R 102024 H ~JI'+1P O~Ac;g J~1S %r~OT, 03744 H 623722 R JHPi~ F~ 6037~5 . %UPl R 2037~2 R 03736 R 5047QJl 03737 R 5447il 03740 R 6037~5 03741 R 544712 o o ICA\...~JNG SEQU~NO~; I I JMS U~AC I XCT ADDR o o o I o o ' " I o o ..,.. I o o .... , I o o . I 10 o 0 SUBTITLE OOLJS\...E .. SRC FP1~T~ 58 9bAC o o o IGET ADDRESS OF ARGUMENT IARGUMENT ADDRESS IFIRST WORD' IEXPONE:NT IPOINT TO SECOND WORD ILOW~OROER MANTISSA o o o o o o o o () o C) () () PAGE; o o o o 59 FP1~T~ SRC 03745 R 200'27 R 03746 R 5045/5 R 03747 R 544602 R 037~0 R 623~~2 R 03751 R 544637 R 0j7~2 R 623722 R 03753 R 102024 R 03754 R 623{~2 R SUBTIT~E DL.AC~ ODUBL.E bAC OPC::ODE AND (bp~T09) SAD (RSUB) Jt~P~t {j~AC SAO (ROlV) Jt1Pu O~AC;· J f~ S %F\, 0 T• J t·1 P~t'~ 0 k. AC .EJECT o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o PAGf.: 60 FP1~T~ o IDOUB~~ PRECISION fLOAT~NG ICA~bING SEQU~NC~' I I I I I o o o o o o 03755 H 0vJ00y)0 A 03756 R 1021~1 R 03757 R 0000k)Q) A 0~760 R 2"J3-/~4 R 03761 R 0637~7 R 03762 R 443'1~7 R 0~S763 R 2037~5 R 037~4 H 063??7 R 03765 R 44375'7 R 03766 R 2037r~2 R 03767 R Qi63"/:>7 R o o o CDOAG). IGE:T AODRE:SS IEXPONENT %[AC~ DAC~ %DP2 152 %{)P2 6AG OAC* %FAC? 12ND WORD %[)P2 13HQ WORD ~9P2 I.S~ hAC %~AC~ DAC* %QP2 JMP* DDAG POINT SUBTRACT (OSy'B) JMS U§UB IMINUEND IN fLOATING ACe XCT ADDR IADDR OF SUBTRAHEND (XCT If INDIRECT) Nf;XT JNSTRl,JCTJQN ISUBR RETURN ~'PIFFE:RENCE IN FI.,OATING AC) I 03771 03772 0:.57'73 03774 R 000(1)00 A R 1~)21~1 R R 0000kJrIJ A R lfJ2i12 R 03775 H 1040~5 R 03776 H 4kJ3TI:5 R 03777 R 6231'71 R PSUB v.J %DP3 o J~1S %rG ,'- , JMS %[NEG. ' Jt"1S lJF' A0 %DP~+40QHo00 J~iP~ - "D~l,JB IGET ADDRESS OF SUSTRAHENO ISTORED ADDRESS OF SUBTRAHENO INEGATE MINUEND (SU8TRAHENO~MINVEO) IDOUBLE PRE.CISION ADD IINOIRECT ADDR~SS (XCT) Of ARG IEXlT I PECISION PbOATING foINT MubTIPbY (QMPV) ICA~blNG SEQU~NC~i IOOUB~E 1 - ' I JMS PMPY I XCT AOOR o o o JMS o kAC I I I I o o %PP2 STORE JMS ODAC ISUBR CALL(VALUE IN FLOATING ACC) XCT ADOR IAODR OF ARG (XCT IF INDIRECT) NEXT INST~UCT~QN ISU6R RETURN (VA~UE IN ARG AND F~aATING ACe) IDOUBL~ PRECl§JON FLOATING ICA~~lNG SEQU;NGEi o o OOAC 03770 R 623'l,5 R o o o SHe / ~j4000 R v-J0000D 040kil H 1021~~.. 04002 R kJ00kH60 04003 R :tvj2~0vJ 04004 R 1037~2 vJ4005 R 404002 04006 R lkj30~1 04007 R leJ261k) A R A I ISUBR CA~L (MU~TIPLICANO IN F~ATING ACe) IAPDR OF MU~TIPLIER (XCT IF INDIRECT) NEXT lNST~UCTJON ISUBR RETURN ~PROOUCT IN FLOATING Ace) PMPY o %DP4 o ~n1S R JMS YofH ._ t R R R R J~'lS PI..,AC 04v'l'Q R (H10Y>00 A 0401~ f~ 777777 A 0401,2 R 624'~~Ej R %[)P4+4kHiH000 JHS" .,.. %EM, JMS loflR, Jt'1PU 7~777? Oi'-IP Y .EJECI 0- IGET ADDRESS OF MUbTIPLIER AND ISTORE HERE IHO~O F~OATIN~ Ace. Ir~U6 TIPLlER "/GENERAL MU~TIPLY IROUND ANO SIGN IROUND OFF BIT IMASK IEXlT o o o o o o o o o o o o o o o o o o o o o o I o 10 o PAGE 61 fPl~T? o IDOV8bE PRECISION F~OATING POINT REVERSE OlV1DE (OOVR) ICAL61NG SEQU~NCE.! I / o o o o o I o o o SRC I I I 04013 R (ij00vJ00 A 04014 H If'2151. R 04015 f~ 000000 A 04016 H 1037~5 R 04017 R 003714 R 04020 R 103122 R 04K'21 R 404015 R 04022 R 104025 R 04023 R (;H'3714 R 04024 R 624~~~ R ODVR %DP5 . PQVR JMS XCT AODR lNSTR~GTION NEXT o %FG .- JMS lJDAC v) Jr~S D~AC %DP5+400000 ~,H'lS' bOVD .DSA . %J~ J~1P* D9VR ICA~6ING SEQU~NCE' I 10 o o ISTORE DOU[3~E o It,OAD OOLJ8kE: o IOlvIDr:ND IP~VIDE o IEXIT IOOUB~~ PRECISION P~OATtNG POINT OlVIOg (DDVO) I I JMS I I o qr DIVIDEND I~~~~--~-----~~-~~-~~ o o AODR~SS o I I o IG~T ~~!1, .OSA o o , Jt1S ISUBR GALL (D'VISOR IN FLT Ace) IADDRESS OF DIVIDEND IR~TURN (QUOTiENT) IN F~OATING ACgUMU~ATOR) o 04025 04026 04027 04030 04031 kJ40~2 04033 04034 04035 04036 04037 04~j40 01~j~1 R 000000 R lY)21~1 R 000'100 R 102~~0. R 103722 R 4040~" xcr N~XT A DDVO o R A R %OP6 o JMS R R R 10:32~~ H R vJ00000 A H (~H~00~;t A R 102310 R R (J00~H;)0 A R 7777'/7 A R 624~25 R (DIVIDEND iN F~OATING ACe) ADOR IXCT IF INDIRECT (ADDR OF POUBLE PRr:CISION DIVISOR) ~NSTRUCTJQN IRETURN (QUOTIENT IN FLOATING ACC~ DQVO J~·1S %EH. Jt·1S r)L.. AC /SU8R CAL~ /GET ADDRESS OF ARGUMENT IAODRESS oP DIVISOR IHO~D OIVIOENP %DP6+4kJ0~~0 %DP6A J~1S-- ~ - . %[0, CA~ ~ %FTR ,~t • ~ 777771 t.H1P~ ,EJECT PDVO . IGENERAL F~OATtNG OIVIOE 136 f3IT AUOTIE:NT /L~AST S!GNI~lCANT QUOTIENT BIT IROUND AND INSERT SIGN IROUNO OFF 8Il' IMASK /EXlT o o o o o o 0 o o o o o o o c) o o o 1 I o 0 o PAG~ 6~ FP1~T~ SRC o SuBrtTkE ~OLJf:3\.,~ o IDQUBLE PRECISION Fl.,OATING POINT Rf::VERSE SIJBTRACT (DSBR) o I o o o o o SEQU~NCE; ICAL~lNG I / I ISUBTRAHEND IN fL.OATING Ace, IAODRESS or MINUEND 10'~ FF£RENCE IN FI,..OATING Ace, Nr:XT INSTHUCT.l.ON JMS DS8R XCT AkJIJR / 04042 R o 0vJkH;HiJ 04~43 R 1021'l, 04044 R 0000w}0 04045 R 1037~5 04046 H k103 71.,(~ 0404'l R lkj3/~2 040:;0 R 404~)44 04051 R 1021~2 04052 R 1~J4055 04053 R "03714 04054 H 6240~2 A asaR R A %DP7 R R R R R JMS ~f~G , v) Jt1S DOA(; Jt~S -'--%[NEG, I)F AD %J:l, P~BR !.JMP* I_~_"_~ ___ • ___ I I 10 I o o o IMINUEND~SU8TRAHENO I JMS ,DSA NEXT " POINT AOD (DfAO) 04061 04062 04063 04064 04065 04066 04Q}67 04070 R 'o000~0 R 1021~1 R 000k:)00 R 102300 H 103722 R 404~57 R 102447 R 000043 R 102310 R 00 Vi k:H~ ~1 R 777777 R 624~:?~ A OFAD 0 R A %DP9 0 IAl.JGE:ND IN Fl..OATING Ace IXCT If' INOIRsCT /SUBR RETURN (SUM IN rhOATING ACe) DPAD ADDR+400000 ,I, NSTRUCTJON H J~~S Jr·,S H H R A JMS %PP9A IG~T AODRESS OF AODEND /STORE ADDRESS %~G, , IHb~t) %F'H DhAC %f)P9+~~~~~0 ~J t'1 S %EA, 43 R .J~1S A A R .)MP';~ %FlR. y;"~ 777777 .EJECT o " / 04055 '140:;6 04057 04060 o o ~_w_~_~ IDQU8L~ PHECISION FLOATING ICAI.,~lNG SEQUENCEI ,.- o INE~AT~ suaTRAHENO lAPP DOU8~~ I o o o JHS R I o o .DSA %Jl R o 0 Jt~S DhAG %DP7+4k10000 R o U~AD . Pl..OATING Ace IGENERAL rbOATtNG ADO IMAX SHIFT IROUND AND SlGN I~EAST SIGNIrlGANT BIT IMASK o o o o o o o o o o o o o o o o o c) o () () PAGE; 63 FP1~T? SRQ o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o c' o o o () PAGE 64 SRC FP;1.~T~ o .TITb~ .IFUNq %NSIN~ PRECI§~ON F~OATING IS1NG~~ o SUBTITh E SING~E POINT PACKAGE I I SlNG~E I o I I PI,AC ~OAD FDAC DEPOSIT -FAD ADD I I I I FSl)B Sl)8TRACT FMPY FDVD MUbTIPI~Y PSBR FQVR REVEfiS~ I I I o o o I I I o ITER~1S; I I I 1. A~REG PPP~15 o I SEQU~NG~; ~MS F~AC / .OSA o I NEXT I o o o o P~OATING ARITHMETIC) HARDWARE ACCUMULATOR I I I o SUBTHACT ~. F6 T- Ace Fk.OATING ACCUMUbATQR (%PAC~,%FAG2,%FAC3) 3~ HECq A~G H~kD ACCUMULATOR (%HAG~. %HAC2,%HAC3) o o o REVERSE DIV1D; F~QINT(GENERA~ IF~OATING ICA~blNG 04071 R 00.0000 A 04072 R 1021~1 R 04073 R 0000vj0 04074 R 224~)7~3 040i5 R 5046.50 04076 R 0437vJ6 A R R I fL.AC %sPl POIN! b9AO '" IG~T ADDRESS 11ADORESS OF SINGLE PRECIsiON WORD) IHIGH~OROER WORe AND ~P~lT o o %SPl, ISP~IT AGA~N U2100177 IGE;r EXPONc':NT (000400 IEXTEND SIGN BIT o %FAc XOR TAD OAC %FACi- R R IS~ IoSPl l..AC~ %SPl R 0437~5 R AND DAC %F AC2 .' 04110 R 224073 R bACn %~Pl 0~112 AND DAC (400000 %j4 .. - R 043?17 R /SUBR RETURN o o PAC R R 04111 R 504b~6 R ISU8R CA~~ IADDR OF S,P, FLOATING POINf NUMBER %SPJ, (i770f00 IGf';T '60W~OR()ER MANT 1S~A3 -' AND ANO 041~7 o 6AC n kAC~ 041kl6 R 504660 R o %FG -- o £141,00 R 50465? R R o J~1S R ~J4077 R 224~l;,s R 04101 R 244~77 04102 R 3447:t0 04103 R 043704 0~104 R 4440~3 04105 R 2240(3 , o o !F~AC) AODR+400000 INST~UCTJON .- o o OIVlOE IREQUIRED PRO~RAM~; o o PRECISlON I o 10 o ('777400 (J777/7 TO FI~~ OUT EXPONENT WORq, IBWMP TO S~CONO WORD o o o o 0 0 0 0 0 PAGE 65 FP1::>T~ 0~~:t.J R 203705 041:1.4 R 343717 04115 F~ '14~i'1v)5 04116 R 6~40?:J. SRO SlJBTlT6E R R R R 0 ~~N9~.~ bAC %FAC2 TAO OAC Jt4Pu %f" ACZ 0 %:)4 FCAC 0 IEXIT I I~--~-~------~~--~~-~ 0 I 0 I I I 0 0 0 0 SEQU;NC~; ICA~bING 0 0 0 IPbOATING POtNT STORE 0 CA~L.. t,H~S F!)AC IS~)~R XCT ALlDH IAPOR+400000(,lP INPIRE;CT) IRE:TURN NEXT tNST~lJ.CTJON I '21411,7 R 0vHH1~vl A 04120 R 102l=>1 0412;1" R vJ0000Q) 04122 R 203104 04123 R 5046~5 04124 R '364121 ~J 412 5 R 203706 PDAC (1.1 %SP2 0 R A 0 I JMS IOE:T ADDRESS I(ADORESS OF SlNGbE PFU':CtstON WORD) %F,~ACl IGt:T EXPONI;NT (0Q,l0777 ISTR1P OFF ~EFT HAbP %SP2·· ISTORE EXPONENT %~~AC3 IGET ~O~~~OROER MANTISSA ( ;1770~0 ISTRIP Or RIGHT HAbP ~IqSP2··- . IME:RGE WITH EXPONENT %SP2 ISTORE COMPI,ETg;o WORD %SP2 IPoINT TO N;XT RE:CE:IVING AREA, %EG. bAC AND R R R R 04126 R 504~30 R 04127 R 364121 R 04130 R ~1641~1 H 0413:1.. R 444121 R 04132 R 20370~ R DA C~~ l~AG AND TAD~ DAC~ ISc %~~ACg I~AC DAC* 04133 R ~2J641~1 R 04134 R 6241~7 R IHJGH~ORDER ISTORE IT %SR2 FPAC .J~1P(~ 0 0 0 0 ~1ANT I SSA 0 IE.XIT I I~~~~-~~~---~-~--~~~~ 0 0 I (FAD> IPbOATING P01NT AUD SEQUENCE; ICA~btNG 0 I I I 0 ~H1S - FAD XCT Nf.:XT A(JDR I. NS T~ UCTJON I ITHts SUBROUTINE DOE$ ITHE AUGEND IS STOREO ITHE APDEND IS l"OAOED IROUNQ~D AND THE ~IGN 0 IS4Br~ CA~L I(X9T IF tNDIRgCT) IRETlJRN HERE THE SET~UP WORK FOR SUBROUTINE %PA, IN THE: HE~D ACCU~lUl"ATOR AND INTO THE FbOATING IS INSERTED, ACCU~1UbA TOR, I 0 0 0 0 04135 R 000000 A 04136 04137 041410 04141 R 1021~1 R (iJ000~0 R 1023~yj R 1'14071 041.42 R 4041~7 04143 04144 04145 04146 R A R R R R 102~~7 R R E100VJ43 A R 102~i0 R R o~J (iJ 4 QH~J A 0 0 0 0 I FAP. 0 %SP3 0 J~1 S J~1S J~lS %EG, %[H, F'~f\C %SP3+400V.l00 -- "%eA, ~JMS 43 " J~1S %[IR, ~~vJ IGET ADDRESS I(ADORESS OF SINGL.E: PRE.CISlON A()DEND) IMOVE FLOATiNG Ace iO HElO Ace. I\.,OAD FL.OATING AC IGE:N~RAL PbOATlNG ADO IrbOAT1NG XNSERT ANO RouN'r IROUND 0 0 0 0 0 0 0 o o o o FP:1,~T~ SRC 04147 R 777~~0 A 04150 R 6241J5 R o o 0415~ o 0000010 A 04152 R 1021'1 R o 04154 R 1k121~~ R 04155 I~ 1041~5 R 041fj6 R 40415;'; R 041:;)7 R 6241~1 R f~ 04153 R Cl000~J~j A %SP4 0 Jr'1S %[G, ~H1S %fNEG I o J~1S F:AO %SP4lf.400000 J~1P~· - -- ~:'§UB IG~T ADDRESS OF SUSTRAHEND ISToRE ADDRESS IN;GATE F~OAT!NG Ace I,PSA % SP1+400000 (INDIRECT) IEXIT I IFbOATING POINT MYbTl.~bY (FMPY) ICA~~lNG I o I II o SgQUENC~1 JMS ~CT - F~PY I~NTRY~EXIT ADOR /AOPRESS Of MUbTIPblER(XCT IF INDlRECT) NEXT INSTRUCTION IR~TURN HER~ . . ., IFMPY QOES THE SETUP WORK NECESSARY TO EXECUTE THE GENgRA~ MQbTlebY INSTRUCTIONINAM~~y,~TORING TH~ . IMU~TIPkICAND IN THE ~E~O ACCUMULATOR AND ILOADING THE EbOAflNG POINT ACCUMU~ATOR WITH IMUL:,TtPl..IER IF~OATING POI~T o / o 0~1~yJ o 04162 04163 04164 o I FSUB I o o 1?700~ IMASK JMPo FAD /RETURN IrbOAT1NG POINT SYBTRACT ICAL~ING SEQUENCE; I .~. JMS - F~U8 /SUBR CA~~ / XCT AOOR /XOT If INDIRECT I NEXT IN STRl) CT10 N IS U8 R RET URN IfhOAT1NG POINT SUBTRACT DOES THE SETUP WORK R~QUIR~D TO IPERfORM THE E~OAtING POINT ADD INSTRUCTION. THE MINUEND lIS NEGATED AND UPON RETURNING FROM %FA t THE. SUM IS INEGAT~D. THI~IS OON~ TO TAKE FU~b ADVANTAGE OF %FA. ANO ITO MINIMlt~ 90R~, o o o SlNG~E: o o o / o o SLJSTtT~E 04161 04165 04166 04167 04170 0417:1. 04172 R 00(009) A R 1021~l R R 000~)00 A R 102j{()0 R R :1,04071 f~ R 404i~2 R R 103~?1 f~ R 102~1'~ R R 00040k1 A R 777~kj0 A R 62416(;] R FMPY %sP5 o IGE.T ADDRESS J~'1S o JNS ~H1S %EH e f~AC %SP5lf.400000 J~1S -- %~r~. Ji'·1S %[IH. 400 7770k1k7 J~1P* .EJECr Fi1PY - o o o o o o o o o o /ADDRESS Of SING~E PR~CISIQN MULTIP~ICAND, ISTORE IN H~kO ACC, o IlNDIRECT AOORESS IG~NERAL FbOATING POINT MUbTIPLY IROUNO AND INS~RT SIGN or PROQUCT o IMASK FOR ROUNO OFF /EXIT o I~QAD MU6T~PLIgR o o o o o o o o o o PAGE o SlJ S T l TLE ? ~N G~ E 67 o () I IFboATtNG POINT DIVlD; CFDVD) ICALblNG SEQU~NC~' I JMS FOVD ISV8R CAL.L I XCT APDR IAPOR. OF OlVl~OR IS~BR 'RETURN " II NEXT "INSTRUCTION "" .. o o IPOVO DOES TH~ S~T uP FOR %FO, THE GENERAL PURPOSE FLOATING IPQINT INSTRU9TIO~. II DOgS THIS BY /STORING THE OIVID;NP IN THE H~~O Ace AND BY ~TORING Ace. IIDIVISOR IN TH~ .. - F~OATING .,. .. .. o 0 0 0 0 0 0 I 04173 R 00000.0 A 04i74 r~ 1021~1 R PDVD 041'15 R 000~v)8 A %.SP6 04176 R 102~H:Hi) 04177 R 10401~ 042~0 R 40417~ 0420~ R If'32.5l. 04202 R 00v.H~kJ0 04203 R ~10000l 04204 R 10231'P 04205 R vJ004kH? 042~6 R 7'170'10 c;J4207 R 624i'i3 o JMS o %EH, R J~1S R Jt,1S FLAC %SP6 ... 4 0~H10~ JMS' --'%[0, R R A A CAk ~ JMS ~F1R. A 4~0 A R J.tt1P~~ 7770rora f-"9VD- R • E~)EC! IG~T ADDRESS Of DIVISOR IAODRESS OF DIVISOR IHO~O tT IbQAO DIVIsOR IGEN~RA~ P~OATING IQUOT1~NT IlNS~RT o o o o o o OIVIDE o 81T SIGN,ROUNDOFF o o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o 0 o o o PAGE 68 FP1~T? o I o I 0423.0 H 000000 A 0421~ R 102l~1 R F'SBR 042:1.2 %SP7 f~ k1000~0 A R 104117 R 04214 R kH13 '11'1 R 04215 H 1040?1 R 04216 R 4f~4212 R 042~7 R 1021~2 R 04220 R 10416~j R XCT NEXT ~NST~UCT~ON AUOR o ISUBR CAhL. IAPDR OF MINUENDeXCT If INOIR~CT) ISUBR RETURN PIPFERENC£ IN F~OATING Ace. 0 %f.:G, ~) J~1S I~ET ADDRESS OF MINUENO ~HilS ,DSA 04221 H 0037i4 R 04222 R 624210 R J~'P{~ I FAP %J:\ r§8R IN~GATE o SUBTRAHEND IAOD o IMtNUENO~SU8TRAHENO OIVIPE (PDVR) . JMS -POVR ICA~~,OlVISOR IN FLOATING Ace, xcr A60R IAODR OF DIVIDENO(ACT IF INDIR~CT) NEXT JNST~UCTlON' ISUBR RETUR~(QUOTt~NT IN FhOATING Ace, ) ICA~~ING SEQU~~CEi I ... I I I I 04223 R 000000 A 04224 R 102l~1 H QJ4225 R it.i00000 A 04226 R 1041~~7 R 04227 R 0v)37~4 R 04230 R 1£14071 R '~42;S~ R 4042?5 R 04232 fi 10417~ R 04233 R 0~J37i4 R 04234 R 624223 R o o IREV~RSE o o o FqAC %SP7+4@0000 Jt'1S - ....- - %r~NEG, o o .. CfS8R) .PSA %Jl Jtf\S FCAC I I o fSBR J~1S ~n1S o o ", I I I 04~lq o SUBTRACT IR~VERSE ICA~bING S£QUENC~I o o o I o o Sl,H3T 1TkE ~ I NGI.,~ SRC FDVR o %SP8 J~1S (I) JMS I~~T FUAC lOSA %~~ F'hAC %SP~>t1~~r~~~ 'DSA I J ~1 P ~ • E:JE:CT o o JMS ~.J~lS o F.PVO %jl ..... _, r'.....tJ vR AODRESS Of DIVIO;ND ISAVE OIVISOR IUSE HE~D ACCUMU~ATOR I(OIVIDEND) I(ADOR OF DIVISOR) TEMpORARI~Y o o o o o o o o o o o o o o o o () () PAGE 69 FP1~T~ SRG o o o o o o o o o o o o o o o o o o o o o Sl,)BTIT6E: ~~NGh.E ITE;ST FQH DATA WHICH INHIBITS THE fFPPl5' TEST, 'SW~0' o I 04235 R 000000 A 04236 R 750004 A HObDSW 04237 R 5000i0 R v.J kAS ANO 04240 R 7412~~ A SNA 0424~ R 62423:; R 04242 R 200073 R Jt-1PU 04243 R 844546 R 04244 R 2041i~ R 04245 R ~1400'l3 H 04246 R 6042~6 R 04247 R 204546 R 04250 R 0400(3 R 04251 R 6042~~ H 04252 R 000000 A R 2042~2 R HObD.l HUk,DSW o L.AC OSTSw0 lIS SWITCH SET? INQ, EXIT [JAC bAC SAVQST (~O~P~~ lyES, o OAC OSTS~~'" J~1P l;XtT~15 bAC SAVPS;' PSTsw0 H9kDSR*l OAO J~1R HA~T PROGRAM o IRES TORE RETURN ADDRESS IRE:TEST SWITCH ISU8ROUTlNE TO UPDATE "DSTSWv'" ON l:;XIT1NG PCNEXT I 0 04253 bAC 04254 R 040073 R DAC J MP 04255 R 6042~~ R IOATA 'SW10' o PCNEXT o§Ts~~0 E. XI T ~1 S ISUBROUTINE TO EX~T '~5'1 o o o I 04256 R 777773 A o42 5 '7 R 0 4 0 0 2 kJ R ~XITM5 04260 R 6200~2 R ~At·J DAC SYSERR Jr1P~~ SERV I CE: 'UONE ISETUP TO' TYPE i; I 04261 R 7777!~ A 04262 R 040020 R 04263 R 14002~ R 04264 R 1400?2 R 042~5 R 62vHj~t:? R 04266 R 777777 A 04267 R 040020 04210 R 2046~6 04271 R (640f022 04272 R 777777 04273 R 0400~l R R bAW DAC D~M Ol~1 SYSERR+1 J~'1P* ~RCOPE stRV ICE OAC E,RGOO; A l.~AW R DAC A R "4 SYSERR IERROR ~, FPt~ CONrIGQRATION NOT pRESENT t:;RRORl 'LAW . ~,:L OAC SYSER~ IERROR CODE; 6AC (1 R 042'14 R 620~'62 H 04275 R 0000k10 04276 R 200073 04277 R "344~62 043'10 R 20471:1 ;XITM4 J~1P~~ IRE~SET tDSTSW~' gXTERR 0 to CONTINUE AFTER TYPING ERROR, " R bAC PSTSyJIa SAVAlJR# ~t*3 ~ 04301 R 040076 R 04302 R 6200~? R 04303 R 204562 R OAC DSTSWVJ R 04304 R 04007~ R 04305 R 624275 R I",AC DAC ~1 ~RGOP~"l ~E;RV l Cl;: J~'1P{~ ~AC DAC JMPi~ .E,,)ECT. SEfiVlcE; SAVAOR PSTsw0 ~X.TER8 o o o o o o o o o o o o o o o o o SRC FP1~T? o 04306 r~ 000~tH' 04307 R 144;)1 4 04310 R 705~12 0~311 R 044544 o 04313 f~ 700002 A 04314 R '7173~H~ A o o o o 0431,2 R 7055:1.1 A o o o o o lIS A RPL. OAO A~tON lSA+1VJ ~OF DMN ISET tAPI' SWITCH ITURN 'AP1' oFF ITURN INTERRUPT OPF. ITURN ON FPP OIAG. MOOg FPT IDUMMY INSTRUCTION .A o A OSR+-77 R A /READ REGISTE:RS. ISTORE DATA IN TABbE OSR R A o A REGA08 REGADR DBK . lON R A A 'API' ON? R ~AC APXON R AND (~000~0 A lSA R Jr'1p{~ 04334 R 040020 04335 R 777777 04336 R 04002j~ 04337 f~ 20421'J 04340 R 040022 0434+ R 104~~5 04342 R 10442'7 04343 R 6243~2 o I F' I T WAS ON, 0 o M2 SYSERH OAe ~l hAW - DAC R JMS SYSEHH+l (2 EROODE R Jt'1S ERRQH .- nAC bAC tx,EHH E.RROR~ J~1P~~ o ITYPg ERROR 2 HEAD~R IDUMP DATA REGISTgRS 'J~A' 8R~AK I 04344 04345 04346 0434'7 H 040023 H R 777776 A R 04002!~ R R 7777r~') A 043~0 R vJ4002l R 0435~ R 2v)42~~ R 043~2 R 040022 R 043:>3 R 104275 R 04354 R 104427 R 04355 R 600~1~ R .. ~ ;RHOR3 PAC bAW ISAVE NUMBER OF ERROR ~2 OAC SVSERH ~A ~~ !!r.~ PAC SYSERHof11 (J _. PAC E:HCOOt:: ~AC JMS l;XTERR Jt·1S ~RROH~ J!'1P fPABOHT .EJECT o o I IEHROR 3. IUNEXP~CTEO o o bAl1 R o IENA81,.e; 'AP t' I R A R R R o o tERROR 2 ~RROR2 o ITURN PIAG MODE OFF, 'P I , /ENA8~E;: IOATA ~RROR , o o APION 043;1,5 R W000~0 A 04316 f~ 71vJ~l1 04317 R 0~)001!)0 04320 R 710177 0432:1. R 0k~0547 04322 R 7101~(1 04323 H 00")547 04324 R 703~.Hj1 04325 R 70vJ0~2 04~26 R 2f;)4!J~1 v)4327 R 504626 04330 R 705!:>04 04331 H 6243~~)~ 0 f) ~ ~1 04332 R 0k'00V?':J A 043J3 R 7777~~ A o SF:TPMP R o o SUBTITI"E StNG~E: o o o o o o o o o o o C) o PAGE 71 SRC FP1~T? o o o () () o SlJBT I T~E S 1NGhE: IERROR 4 IEXPECTEP 'JEA~ BUT NONE 8R~AK o OCCWRR~O I 04~56 R 043~7 R 777776 A '?)40y)t:!~ R ERROR4 04360 H 04002(1 R 0436j, f~ 777716 A 04362 R 04002i H 04363 R 2~J4646 R PAC bAW "2 f)AC SYSERR 6 A~~ DAC hAC 043b4 R ~}4(1022 H OAC 04365 R 104215 R 04366 H 1v)442'7 R 04367 R 6001~~ R J~1S J~~s J~1P ISAVE NUMBER Of ~RROR. ~~ o o - SYS~RH+l (4 . t:ROODE: f;XTERR o FPABORT o C:RROR- I 5 IL,OAO AND STOR; I~RROR o o o o 214370 R 777776 A 0437;1. R v.140020 R 04372 R 777777 A 04373 R y-'1400?1 R 04374 R 2046~'1 R ~~43'75 H (540022 R o o o o I LAvJ er2 DAC SY$ERR ~AW 043'16 R 104275 R 04377 R 104427 R 04400 R 600414 R o o ERRORS o !!'l OAC l.,AC SYSERRtj, DAC "H'1S E;RCODE; .J~1S Jt,1P I tERROR 6 IAN llN~XPECTEP (5 o - o - r;X'fERR ERHQR- o F~P-ABO~T o ,BRANCH' OCCURRED I 04401 04402 04403 04404 04405 04406 04407 04410 04411 04412 04413 B 777779 A R 04002'~ R R 777776 A R 040021 R H 2046~0 R R 0400Z2 R R 2~):t 7~4 R R C)40023 R R 104275 R R 104427 R R 600444 R gRRQR6 LAW bAC t. . AW DAC bAC o ~2 SYSEHR e14 - o SYSEI~R+l (6 - aoog 6 EHCOOE NBRANCH I#~, DAC I;RCOl)E "'1 J~'1S J~1S /#2, FAllmlNG '.BRANCH' lOT I;RRQR- J~1P F~~ABO~T OAC bAG tEJ~CT EXTERR ~RROR o o o o o o o o o o o o o o o PAGE 72 SRG FP1~T~ o o o o o 04414 044;1,5 04416 04417 04420 214421 04422 04423 04424 R 777716 A o o o o I A R OAO SYSER~~+j, R ~AC (I R Ii H DAC hAC DAC R J~'1S 04425 R 6'14427 R 04426 R 600414 R Jt1P J~1P SYSER~ ~2 o E.R.COP; Itt 1, ERROR COOe: 7 EROOP~i!1 t:XTEHR I#~' YBRANGH fAlbING 'BRANCH' lOT 1***********o**ao*********~*.o*.******I******'***********0******** IERROR FORMAT FOR AL.6 PATA ERRORS I IFP1~T2~RATlo~EuNgTloNMFMa H~LOW~EPA~FMA He~OW~EPA (~TOREO DATA'" (C~ACULATED DATA) IFMA H~ fMA ~~ EPAn I 1***************o**O**********************.*********~*.*****0000*0** I 04427 R vj(~0000 A 04430 R 104306 R 04431 R 77777~ A 044;.52 H fJ4002kj R 04433 R 7777'70 A 04434 R 04002j. R 04435 R 204561, R 04436 R 3447~5 R 044~7 R 040022 R 04440 R 200:>27 R w'4441 R ~140023 R 04442 R 2vJ0~lt R ~'4443 R 040024 R 04444 H 2vj0~20 R 04445 R 040025 R 0444(, R 200!;;l6 R 04447 R 0400~6 H ~RROR 0 J.~1 S S~Tot~~ LAt~ ~2 DAC SYSERR I~ A~~ ~10 IQUt1P OIAG RE:gIST~RS - SYSERH+-l bAC RATIO~ IPRINT 10 DATA WORDS TAD ( 40:1. ~RCOD~ I#~, RATtO ~RCOOE+l I#~, FUNCTlON ~RcoDt+2 1#3, FM8!1H ,8E:F'ORE DAC [lAC l"1 AC DAC hAC OAC bAC OAC hAC OAC .E.,JEer OPCODE %XHAC2 %XHAC3 t:RcooE+3 %XHACl ;~OOD~+4 o o ERHQRFPABORT - I o o ;RROR7 "2 o o o LAW OAC 6AW o o IERROR 7 INO 'BRANCH' OgCURRED WHEN EXPECTED. R v)4002(0 R R 777776 R 040~21. R 2046~1 R ")40022 R 20J.• 7'l2 R QJ40023 R 10427~ o Sl}BT 1T~E SINGl,E I#~, F~18~b /#5, E:PA o o o o o o J8;F"ORe: ;8E:FORE o o o o o o o o o o o o o o o C) 0 73 FP1~T? SRC 0 04450 R 200?14 R 0 04452 04453 04454 04455 0 0 0 0 0 0 0 0 0 0 0 I PAGE 0445~ R 04002'1 R R 200515 R ~j40060 R 200'16 R 04006:1 R H R R 044,6 R 1042~::; R 04457 R 777776 A 04460 R 04~J0~0 R 04461 R 7777/2 A 04462 R vJ40~21 R 04463 H 2005~..$ R 04464 H 040~122 R 04465 R 2005~~ R 04466 R 040023 f~ vJ4467 R 200~52 R 04470 R 040024 R 04471 R 200532 R 04472 H (~40~J25 R (lJ4473 R 2005~3 R 04474 H 040~42 R 04475 R 2005 yl R 04476 R 040t127 R 04477 R 104275 04500 R 777776 0450~ R tiJ4002frJ 04502 R 777'17, 04503 R 040021 04504 R 20370:) 04505 R 040022 SUBTIT~E ?tN~L,r~ ~AC %XfAC2 OAC b AC ERCOl1E:+5 1#~,fMA~H ~HCOOE+6 /#7, DAC bAC DAC J~1S bAW OAC bAW DAC L.AC DAC I",AC PAC bAC DAC t.AC %XfAC3 %XFACl £RaODE>~7 £~TER8 bAW DAC A R R DAC hAW bAC DAC b AC PAC bAC o o R~GADH"'4 o /#;, F ~1A H J (ORR) ~~COD~+l I#~, F'MA it, I (ORR) ERCQDt:+2 1#3, EPA i(OHR) /#~, F'MA H ,STOREp o /#5, FMA l. ,STORED o HEQADH+5 REGADR*3 %ANSR2 ERCOUt~3 E:~COP~+4 E.~COO~+5 EXTERR.. . - ~ ~ o I#e. EPA ;STORE:D /DUMP PATA. o ~2 Sy$ER~ ~.s o SY~ER~"':1. %FAC2 ERCOOE ."%fAC3 I#~, FMA H JCAbCU~ATEp ~8COP;+1 /#Z, FMA b JCAbCU~ATED ~ROOP~+2 /#3, EPA /CH~CK "," " %F'AC~ DAC \H1S HqbDS~ 04514 R 624~~? R _.. J~1P~~ E:RROH .EJECT I#~, gPA iBEFORE IOUMP DATA ERCOPE: 0451~ R 040024 R 045i~ R 1042'75 R 04513 H 1042~5 R J~1S o ,8E~ORe f!"t6 %ANSRl H FMA"b 5YSEHR+l bAC JMS .BEfORE SYSER~ %ANSH§ DAC o ~2 (lAC b AC OAC R A R 04506 R 203'1106 R 04507 R 040023 H 045:].0 R 203704 R o E:XTERH o ;CAbgU~ATED FOR TH~ HO~D o SWITCH. o 0 o 0 o 0 o 0 o 0 o 0 o 0 o c) 0 0 PAGE 74 0 FP1~T~ SRC 0 SU8TlT~E: SINGL.E -. '- ,. .. "", .. , IRANOOM NUMBER ~~NF.;RAIOR 0 / 0 0 C) 0 0 0 0 0 0 0 0 04515 R 000~~~ A 04516 R 3400~0 A 04517 R 344~40. R 04520 R 344~4i R RANGE:N 0 TAD 0 TAD RANA TAO RANB 01 52 ;1 R 3445~2 R RANC DAC RANA TAD 04522 R 044~~~ R 04523 H 7?00:L0 A 04524 R 343 7 1.i R GL.K TAD 04525 R 344~40 R 04526 R 344541 R %HAC~ TAO RANA TAD RAN8 04527 R 344~42 R TAD RANG 04530 R 04454l R 0453~ R 750010 A 04532 H 3437~2 R OAC RANS GL..K TAD %r,AC~ v.J4533 R 344,4Q;1 R TAO RANA 04534 04535 04536 04537 TAD RANC DAC RANC J~1P~ RANG;N R 344541 R R 344~42 R TAD RAN8 R 044~4~ R R 624~~5 R / 04540 R 72132~ A 04541 R 6~77~~ A 04542 R 013212. A RANA RANB 62774, RANC 9.14543 R k1000~~ 04544 R 0fHH~00 04545 R 000000 04546 R 000000 04547 R vJ000~~ 04550 R 000L100 0455t R 0000@0 -.. ~'132:l.~ A PGM~OP 0 A APION PASCNT $AVDST AUTORG A A A A A 0 Q 0 0 0 0 C) 72~32~ 0 C) (1 0 TEMP~ 0 0 0 TEMP? 0 0 .EJECT 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - -- _. -----~-~-. - - -,. -- ----- -- - - - - - - - - - - - - - - - - - - - -- ---- -- ----- o C) 0 0 0 0 0 0 0 O· 0 PAGt:: 75 FP1~T~ SRC $lJ8TITbE 000000 A 04572 R 000074 R *~ 04573 R 720c!;HJ0 A *h 04574 R 00143~ R i~b .ENO 045'i5 R 0074~~ A Ab 04~76 R 0060~0 A *h R 0004'.10 A n!., R 0014f10 A ~h R 0020$0 A ~~b R 001~~0 A ~h 04603 R 000040 A ~H~ 04604 R 00~H~~0 A ijL, 04605 R 000~~l R ~b 04606 R 000~i3 R ~~b 04607 R 0005l.6 R ;·b 0457'7 04600 04601 04602 04610 R 00010y; 04611 R 000~3~ 04612 R 0005;1.4 04613 R 000517 04614 R 000~L33 04615 R 00.0515 04616 R ~1005th~ 04617 R 770367 04620 R vJ000l;0 0462:1- R 003~~0 A ;~b R ~6 R ~b R i~ 6 R i~ b R i~ 6 R ~6 A ~b A nL, stNG~E. ,.". --·,'1 o o o o o o o o o A ~6 o 0 04623 R 003600 A ~b 04624 R 7777~? A ~b o 0 04627 R 000140 A *6 04626 R 4000~0 A ~~ o 0 0 0 0 0 0 0 0 04622 R 7701'17 A ~b 0462~ R 0000~0 A ~~ 04630 R "177000 A ~b 0463l R 777777 A ~~ 04632 R 0010.~2 R ~k 046;53 R 00074'7 R ~b 04634 R 037777 A ~~ 04635 R 777032 R ~~b 04636 R 777iiB R ~6 04637 R 0021~0 A ~~ \" 04640 R 000k?~7 04641. R 000027 04642 R 001f77 04643 R 0000.~1. 04644 R 000~~~ A ~6 A ~~ A ~~ b A *6 A #6 04645 R 00.0003 A ~k 04646 R 000~~1 A n~ 04647 R 000005 A *~ 04650 R 000~~~ 0465:1. R 01Zl00kJ l 04652 R 0100011 04653 R (?000.~~ 046:;4 R 000013 04655 R 00071? t A ~b A *k A ~~ A *k A ~b A *~ o o o o o o o 0 o 0 o 0 l) 0 0 0 0 0 0 0 0 0 0 PAGE: 76 FP1~T? SRO R r1QH1~~0 A ~·b R 000020 A ~~b R ~777?7 A ~b R 200':'~0 A ~~ R 0000~5 A 1~ k R 000014 A ~b 016~4 R 0':)0~~;> A ~·k 04665 R 000035 A ~'l~ 04666 R 7777~f A ~.~ 04667 R 0001 ~~!' A #L, 04670 R 000050 A *6 0467:1, R 716~~1 A {·b 04672 R 7;l.6~~2 A ~l,. 04673 R 716~~3 A ~b 04674 R 716604 A ~k 04675 R 716~~~ A ~b 04676 R 716~l0 A 1~b 04677 R 716620 A ~b 0 0 0 0 0 04700 H v)00~22 R ~6 04701 R 077717 A ~b 04702 R 777377 A ~H~ 04703 R 000377 A ~~6 04704 R 000043 A ~~ b 04705 R 002~~0 R ~b 04706 R 30~H1,=,'3 A ~~ 04707 R 100~~v) A ub 04710 R 7771~0 A {t-~ 04711 R 004063 R ~h 04712 R 004033 R nb 04713 R 004247 R itb 0 04714 R 004303 H ~b '214715 R ~J~10~~1 A ~b SI~E7~474~ 0 0 04656 04657 04660 04661 04662 04663 0 0 5USTITl.,E ~ JNG~E, 0 0 0 0 0 NO E:RHOR h~, NES 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - - - ---~ -- _.- - --- - - - --- --- - -.--. ----- - _.- - -- --- ._-- - --- -- --- .._-- -- - - ~- ---- -- - .__ ..- _._- --- -- - --- --- --- . -- -_.- ---- -.--~--- _. ----_._.- -----.- ~-~ - - - - - - -- - --- () 0 0 0 0 0 0 0 0 0 0 0 PAGE AOD:h5 300000 A AQPCDB SAC SPA SRW CPPU ODVO OIVS~~ OMP DOIE;X DPPbEX ElNT13 EINT3~ ERRORl 7;1.6606 A StA 0~247 R 00330 R 04025 R 00524 R 717200 A 01125 H 01546 R 01554 R 04266 R 0437D R 04261 R fAG~OC 0~51~j FDVR 04223 04071 R PPA80R 00444 R R R FPERRO 00436 R FPbOOP 00205 R FPPRDV 01064 R 710314 A FPT FPUXA2 00:1.42 R ~UARD IOlfR IDVC3 1M 0 OPCODE OVRFbX PGMLOP NE;XME~1 ~ANPAT RATIO 0 R5W SERVIC SOFEX 0 SPF'~DV SOPl SPF'6 HS ST TBAC TBPA 00522 R 04552 R 71662El A 716604 A Q10 747 R ERROR~ EX I T~14 fbAC AC?bQO $UBTlTl-rE AQRESS 04544 R APION BbE 'l196~3 A 8R 006400 A 01214 R 01073 f~ PPF~SB DPIEX2 01200 R USR 710100 A 01465 R D\lSY0 0 0 FP1~T~ SRC 00521 R JEAORS hJE 0 -- -- -.- ~-- - - __. - - - - - . - - - - - - - - - -_...._- -_.- --- ---" ._-- -- - - - --- _. ---- -- - - - 0 77 ACl.hOC FSTSUB 0 --- --- -- --- 0 CT~STl 0 ~ 04556 R 04557 R 03454 R y)3476 R 00020,) A 04560 R 7:1,5400 A 0,1476 R 00527 H 0~~543 R 04543 R 00567 R CfPUST CTEST2 OOVR DbAG PMN 7166@1 A BRAN 0454" R '(16602 A t1177l. B 0237~ 04554' R 00340 R 0~0~3 H brAb 03722 "11?3~0 CTE:ST3 f~ q~Ag~ A D~~PY OP 000100 A DPF'l"Mb 0~075 F, DPf·~AD qPF~RO DPl~X R 00334 R 0405~ ~373;; R R 04000 R 0~07:i. H ~ll~~ R ~lt2l R ?1000~ A DPFRr:S 0~573 PPIRES 0l,6?5 R 00073 R DRR OSUI;3 0377l 00542 R 01550 R 0L1745 R 04332 R 04401 R ~INT:t,l t:;~NI15 ~l5~~ fi O$TSW0 DV8Y00 E1N114 EOPCQB ERRQRf ERROR" EXITM? FAD FE;X rr FMPY FPAGTV FPEXER FPPAQD FPPRSB FPl)6 D FPUXA~ R 042~6 R 04135 R 00505 R 0~le0 R 005?,6 R 00074 R 0~033 R 0;+'057 R 002~4 R 00193 R FSUa 0~1~:l. R HObrJsW 042~5 IOlVIO IDVC4 INGEXP KT~000 ~OOPl NOBRAN R 03405 R 035:b2 r~ 036~4 R 00546 R 00465 R 01722 R OP6T09 007400 A OVRFI..~ RANA f~ANOT~ 00536 R 04540 R 00630 R 00525 H 00062 R 01.262 R SAVAOR 04562 R 04306 H 0~3~0 R A 01746 R 01725 H Al,JTORG SM,A 90NPbD kH~g4~0 A 0V)~60(~J AOStGN 00523 R 03042 R CAC0 ROIV 01326 H AC3l,OC 00270 R 04561 R 01113 R 01115 H ~ p~~~~ SETDMP SOFNR SOF2 0:1,335 f~ SPFbEX 01244 R Sprl.,SB 0:1,107 H SU,f3 000400 A TB~; T8Rlj 0:t.7l1 ~~ 0:1.733 R ERCOPE ERROR3 ~RRdR7 ~Xp~OC [P A9 FFAlb ~Nt'1 . FPA~L.,O f~ ~155~ R 0002Z R 04344 R ~4411 R ~05.1~ R ~41j,? R 0455? R '( ~32?~ A 0044;\, R A 0 AE:OPCO 0~032 R AXKX 000062 A aNA 719610 A BRANCH 0455¢ R 0 ADO CAC0EX 0~4:1,2 ODAC OIV DL.AC2 00304 R 03755 R 00?000 A 0374' R crEST0 OQF:EX DPF'lnrDV DPfb R$ DPIEX~ OSBR oV E;lNT1? EINi30 ERROR ERRQR4 ESQbOC 0l.0?2 R F"PPNUb WPUsr 01040 R 0035l R ~0~5~ R PSBR FPRAN PPUXAl 80bQ,1 04247 R GOTOGO IOEXIT IOV~ 03440 R IfRES"f 0003? R 00545 R Kl~~0 001400 A ~1LJb OQHECI< -v.136?2 R bO NBRANC IOVBY0 I.N II QVf'Co PASCNT RANB RANDT2 RE(;ADR 00544 R 0144~ R 04545 R 0454i R SPFCt:1L SPfHES ~ ~~ I ! GH T8t'1A TB2A INITAO OPCDSf OVRFl,R PCNEXT R 00547 R 0454~ R RANC RANGEN RSU8 SBHAN 0l4~~ R SO~TEX ~0644 SAvqST sJE: ?i56~~ A S(,)F'NRX SOF~ IDve 0!J.40~ R 0111j, R 0155'1; R 04564 R ~)1703 R ~1.6§~ R SOFCOD SF'fJ,AD SPF'I,RD SPIRES SYSERR jBNA T8~Al 0 0 0 01542 R 0l54~ R 0A4?7 R 04~S56. 0 R 00350 R 0104~ R 0065~ R FPANSR FPPOIV ~3051 R 0404? R 7l~00~ A 000040 A FPFMB GOGrjGO 011 0 l R 01157 R F'k. FNXSA FPVD 0 R 01077 R gXTERR 0022~ R fpUX~A 0~22~ R 00511 R 0427;> R F"PfMA F;PPSU8 00600~ 0 0417~ R 013~~ R 0035~ R 00~27 R 04210 R 0303~ 0344~ R R 0345~ R 015e>~ R 01772 R 00~00~ A 0176~ R 0066~ R 00~40 R 0A~5~ R 045,4~ R 045i? R 00100~ 01;?5~ A R 0i41~ R 0456~ 0 0 0 0 0 0 0 0 R 0110~ R 01117 R 0 0002~ R 0~732 R 0~670 R 0 016 0 9 R 0 0 0 C\ 0 0 0 i I 0 0 PAGE TEMP rEST2 TPRT qNDF~N USERSW VSRANC 0 %ANSR3 %OP4 0 %DP7 %PAB %PAB.B %FAC2 78 fPl?T~ 00530 H TPRTl 00541 R UNOFl:.1 0000kJ R vJ1772 R 00533 R 0400.2 H 04044 R 0255'1 R 0 %F'QC 02447 R 03563 R 0 0 0 0 0 0 %FIREX %FIX. %FMA ~FMl ~FNEGe %FN. %HAOl YoJ:Ir %J4 %NAl fJ3622 f~ 03323 R 02:1, 7frJ R 02331 R 02102 R 03154 R f:13132 R 003~7 0rg5~7 fi R %ANSRl 005~1 0375'( R 041212'1 R %PP2 R %FABB;!, 02624 R %fiABB2 %F'AC %FAC4 ~~70~ R %FAE.X %FA.r %FDD %fO %F03 %fG, ... , i~FIR. %FbOT, %FMB 0~6~0 R 03706 R 0~7~2 H 03000 r~ 02505 R 03602 R 03~~l 033~0 R R 02:1,:>1 R 023~0 R 0~~H~4 R 03222 R %NA:2, 00535 R %SP~ 04073 R 0~1e2 R 031~2 0~224 R R 037g~ R 0~7:1.1 H 04567 R 04~70 R %SNEG, 02~17 %SP4 %SP8 04153 R 04225 R %SPB %$WICH 02423 R ~XPAC~S 00515 %XHAC~ 0V?5~6 f~ XFbO~J 04063 R 010534 H R QNfC,Q %QP9A 03717 R 02260 R C~~S710 R 03714 R TPRT2 0455;1. R ~l63~ R 004~~ R 01454 R 0i50~ R %DPe> %fM2 %FNQRA %FSIGN %HAC2 %J:1.A %J4% 02142 H TE:MP~ TFl3HA 010t5 R 04057 R %fAC3 %F'AP,P 03012 R 04550. H 00426 R %QP5 %QP9 03705 R 02750 R 0 SUBTIThE s IN(;~E. 000030 A UU %ANEG, 02013 H 03724 fi %OR1 %F'AB,C %PAEXX ~FD2 ~FGEXe TE;ST3 02600 R 0 %FPP TE;MP~ 00432 R 00353 R %fAD %FA, SHe R %FAEX %FANGl %FOA %F'OE: %Fu0 ~F'D1 ~fHt ~Ft~_A %FbOTl %FN(; %Fr12A 02p3~ R Kl3707 R 0.30~? R 0~77~ R 0353l f~ 03pl~ R R 03?7~ 0333~ R 02300 R Tt:ST1 TNE:XM~1 UN UR XJf:A 0000110 A 0143(; R %ANSR2 00?32 R %lJP3 03773 R %OP6A 04033 R %FAA 02?4~ R 03056 R 0?~:t.~ R 03e;5~ R 03600 R 0 %r.Dl 03343 R 0301~ R %f~DE:Xl %rE %F'IRA %F'Ma %f~~OT~ ~F'NORB (12267 %FS %HAC3 02360 R 03712 R %Jt! %J5 037i? R %Fr--13 %fNOR, %F% %HAC4 %J3 %PFAC 02p7~ %t1Q %RL, '. . %SP2 %SPb %XFACl ~XHAC.2 f~ ~372~ R R ~41~l R ,0 %fAEXT %FAT,B %fOB %F'AC4A ~~22~ R R 0 0 %rIXB 03l~0 0 R 03;04 R %rABS3 %,"-.AC1 02331 R 0206!? R 00411 R R 000020 A 01!)0~j %SP3 %SP7 0417~ R ~05~8 R %XFAC~ 0051( R %XHAC3 0264~ 0496~ R 0235~ 02l2~ 0207~ 0306~ 0 R 0 R R R 0 0~127 R 0?172 R 04?6§ R 037l.~ R 0 0457~ 0257~ R 0 R 04137 R 042:1.~ R 005t1 R 0 0311§ R 0~H520 R 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 c) ._-_n_'_ .__ ... __.... ____ ... _____. _____.___________ .... _____ I I -- -- -- -- ---- -- -- - - - - ~ - - - -_.- -- .._. -- -- ... -'- --_ .. - - - .. - _._ .. - - - - -- -- - (J 0 0 0 0 0 UH vH:1~0~0 A ~Y~~HR 00020 R UU 000030 A R I.N i T 0003~ 0~j0Q2 0 0 0 0000~) Q10163 R PPlJXA3 PPPMA 00225 R CTESTl 0033vJ R FPUST 100351 R (400400 SIJB A Te:ST2 0~432 R 00465 R bOOPl 0 0 ... - --- -- ~ - _.- - --- .. .. .. _------------------------ SUSTIThE ~lNG6E R ~SERSW AC~hOC 0 FP1~T~ SRC 79 ERCODE 00022 R 000062 A AXKX DP 00010P.J A fPACTV %ANSR2 dVRFL1 0 _.. 0 PAGE 0 () ---- .-- . - -- _.. 0 EXPhOC %XHACl 0 ---- -- - DVBY0@ KT2000 RANOT2 AOPCDB PPPSUB FPPRDV DPPbDV SPF'~SB SPFbRP 0~512 R 00516 R 00522 R 1210526 R ra0532 R 00536 R ~J0542 R 00546 R 00644 R 00747 R 01040 R 01064 R SE:RVIC 1M 00167 R ~PUXA2 FPLOOP CFPl) CTE$TJ 00334 R CPPUST C'fEST2 0027~ R KJ034~ R FPANSI~ 003~2 tE:ST1 003~3 0041~ FPE;RHQ 0~4~6 ~PAI.,L,O FEXIT R 00505 R 005~3 %XFAC2 AQ3kOC R 0~?*7 R 00523 R %ANSR;:s 005~3 UNQFh~ OVRF'~X REGADr~ 00537 %XFAC~ %XHAC~ opeoP£' FPRAN RSUB FPPMU~ OPrbAQ DPFbRS 01117 R SPfhMb PPIE:X OPFbEX 01200 R '~1262 FNXSA R SOFNR 01351 k11415 01465 01540 01550 R R R t1U~ ~INT11 EJNT14 SPPRES TFBRA TBbE; TBAC BRAN %ANE:G! %rb OT2 %PG, ~FN, 0 %PlREX 0 %F'AB CAC0 %FA. %FABB2 R R k11557 R ~D~635 R 01711 H 01746 R 01771 R 0201~$ R 02070 R 02151 R 0226'~ R 02331 R 102377 R X,JEA NEXMEM EINTl~ EINT~~ DPFRES T82A TSPA SBRAN Y8RANO %SNgG. %FtX. %FGEX. %FNQRB %FIR,A 00547 H R R 00543 R 00547 R 006;>6 H 00~00eJ A 0:11045 R 0~071 R 0~1¥Jl R 0l1~1 R 0l:3~0 00l4~0 0~4~2 R A 011g1 R 0+.2;1,4 R R 01476 R 015A2 R 01,552 f( ~AG~OC %Xi~AC3 OlVSW !E;M~ %NAl dYRtk R IDVBY0 RANPAT OPCL)BF AEUPGD EPPQIV ESG.L.:OC %XFAC3 AC~~OO RSW %ANSR~ %NA2 00540 R UNOF~N 00544 R K:J.000 00662 R RANDT1 E:OPCDB 01032 R F'PPADD 00567 R OVF'~O TNEX~lM ~lNt30 gINT3 5 R 03.442 R 01500. R 015~~ R ~155~ R ~16~2 R SP~kEX UNfbO XFbOW E:INT13 0~670 0173~ 01752 R NQ8HAN INITAD 0l76Z R ~177~ DIV 060~7 Ii 0~t'70 0~267 ri R 02334 R ~Fb6T, %FIX8 %FNQR, R R R 0202~ R 02~2l R 02172 R ~fq~f " ~F'I~A 02300 R 0235~ R ~FA~,B 0260£1 R %FA~.C ~FA~ID 03000 r~ R ~241~ R @25~2 R 0265@ R 02762 R 0.s035 R A(JS1GN %f" ~12 030i~ H '13042 R 0311~ R 031.~2 0~23~ %Fi'1A ~13154 030~l R H R 0053~ R 00535 R 0054;1, R 100545 R 00630 R 0074? R 01033 R 0140l R ~1?~9 R %FE ~FI)~ %FbQT~ %~NEG. %FNORA %F'lR, %FS e %SWICH %FAA %fAB81. %PFAC %rANGj, %rAEXX GOGOGO %FM2A R %F:M8 03275 R %F~02 0:t76~ 00g¥'0~ 0206~ 0 0 0 0 r~ 00515 R 0052l R 00525 R SOf,;j 0l!1 3 R T81:A1.. Tt;3Hl{' 0?10.2 H 00~1~ R SOF2 SOF'NRX ~:l.052 0107~ R 1F~REST DPXRES TBMA TBNA NBHANC 0~772 R 0042~ v)13~~ R %t~D • R 00Si0 H 005~1 R ~0~20 f1 00524 R 0053~ R 00534 R SO~';l 026~4 0~7:S0 03225 R 00444 R ~1044:1, DPIE:Xl %FA88~ %PMC Tt:ST3 F'PABOR ~112~ R $PF~OV O()lsX DOFEX 02637 R 02705 R %PM~ TPRT1 R PPFMB ~11~~ R ()PF~RD 02.5~2 R %FM~ R 0022~ R 00304 R 0035~ R 00367 R OT[::510 0~057 02505 R 0 F'Pl)I~P 0015~ R 0;l,07? R 0110? R 011l~ R 0115'7 R 0124~ R 0133~ R 0140;> R 0145~ R 0;1.502 R 01546 R 0l;;5~ R 01625 R 01103 R 0~73~ R %Hb GOTOGQ %FM. PPUX2A SPIRES 002400 A %FAe.:,X FPEXER OPF'L,f1b SPFl,.AD SPP'LRS OPF~SB %FA,T 100300'1 A C1~017 R 03056 H 03127 R F'6 000040 A 00074 R fPPRS8 02447 R kJ255n R 0 000020 A 0~573 R 0;J.6~0 R 0l,7~5 R RO!V %FAO 0020$ R UN R CAG0EX %FAi',B %PAC 60 %FAEX %FAE.XT TPRT 00400 f~ SOF~X ~OFC.OD R TPRT2 DPIE:X2 OV8Y0 vJ0073 R VJ014? R 0002@0 A 010247 R F'PUXA~ ~11077 R '~i1107 R DSTSH0 R R R A R 0 0 0 0 0 0 0 0 0 02142 R 02224 R 0 0236~ 0 0231~ R R 02423 R 0g54~ H 02624 R 02670 R vH~771 R 0301~ R 03.05~ H 0~120 R 0322~ R 03323 R (.) 0 0 0 0 0 0 c) I 0 0 0 0 0 0 0 0 0 0 PAGE roFP1 IOV2 IOVC3 %FOC %PDE %FACl %HACl YoJl %.,)5 FP1~T~ 80 ~J3331 f~ %FQ3 %FPP %FAG2 03710 F( 03714 R 03720 R %HAC2 0~711 R %J~ %FSIGN %DP3 %DP5 04033 R PSBR PCNE:XT 04v)57 H 04117 R 04151 R 04173 R 0422~3 R Q)4252 R EXTERR 04275 R () AORESS ~AVDST 1t)4356 R %OP9A %SP2 %SP4 %SP6 %spa EXITM5 SETOMP e::RROR5 RANGEN ")4542 R 04546 R PG~1bOP 0 SAVADR %F% 04566 R AOD 0 QRR rNM BMA 00600fj A 7:1.0000 A 713250 A 7:t6602 A 7~661(3 A BNA DbAQ~ 04427 R 04552 R 04556 R 04562 f~ F'STSUB R 003600 A 036~2 H 0~?05 R 01 0 13 R 0 034~5 035~2 8T 03771 H ERROR RANC R (13563 R f13616 R 03704 R IDVC~ OSUB DDVR %DP6A %DP9 FOAC FDVD FOVR 0~310 lOEXIT 03735 R F'SLJB SlJBTlr~E 03440 r~ 03476 R Ol.,AC1 ERROR4 0 SRC ALJTORG BRANCH GLJARIJ SOF"TEX %J~A BR DSR L,JF; Bb E BAC r~ 0;571,5 R 0~7~1 R 03745 R 03773 R 0~0~5 R 04042 R 04063 R 011g1 R 041~3 r~ 04175 H 04225 R 042p6 R 04306 R 043'10 R SlNGL,E, %FP;l. lDIPH %fUA %F"DEX 1 OCHECK ~FA9.3 %HAG3 ~~~.- DLAC OOAC OMPY Dovd %QP" [t"Ag FAD FMPY FSBH i~o~qsw ~ Xl Tr~ 4 ERRQR2 ~RROR6 015~5 R 04543 H RANA 04547 F~ 04553 R TE~'l~~ 9O~1~kD 04S~7 R 045~3 R 0458 7 H 006400 A 71~1~0 A {~~4~0 APlqN JEAOHS s~~lfcH YJ34~~ R 0353l R 0360~ R 036p2 R 0370~ R ~13 71~ R @37~g R 0372g R 03755 R 04~H1~ R ~402~ R 04044 R 0407i R ~413~ R ~4:t.(j0. R ~42~~ R 0423? R 04261 R 0433t! R 0440l R 04540 f~ 04544 ~'455~ 04554 04560 ~4?~1 R R R R H R OF6T09 k?07400 A F'pf?i03i.4 A %J4% .A SJE, 719 6 @3 A BPA 71§6?0 A 03343 R g~H~ @457~ ~~56~~ A A ~:1.720~ A ~~6q~1 IOIVIO loVe %fOB %FOD lN9EXP %FAC4 %HAC4 %J~ %DP1 %IJP~ %OP4 %DP6 DFA() %SPl %SP3 %SP5 %SP7 HObD,:l, ERRORl. ERROR3 Ef~ROR7 RAN8 pASCNT TEMP2 F~AJL, RATIO 03405 R 0345~ 0355~ R R 03602 R 0 036(14 R 03707 R 03713 R 0371( R 0:3/2~ R 03757 R 04002 R 04027 f~ 04055 R 04073 R 04137 R 0 0 0 0416~ 0 042 6 2 t~ 0434~ R 0 R 042~.2 R 04247 R 04414 R 0454~ R 04545 R 04551 R 04555 R 04561 R %rAC4A 04?65 R %MQ 04571 R AOOj,.5 30000~ A DV 71~000 A 8~A 7~660:t A 8Rt) 71660~ A Of'1N 0 7~730~ A 0 0 0 0 0 0 0 0 C) 0 0 0 0 0 0 0 0 0 0 0 0
Home
Privacy and Data
Site structure and layout ©2025 Majenko Technologies