Skip to main content
Internet Archive's 25th Anniversary Logo

Full text of "ibm :: 1620 :: monitor :: 1620-PR-033 1620-1443 Monitor I Listings and Flowcharts Sep65"

See other formats


IBM 1620-1443 Monitor I 
Listings & Flow Charts 



COMPUTER 
TECHNOLOGY 



1620-PR-033(Card) 
1620-PR-034(Paper Tape) 




40 Saw Mill River Road 
Hawthorne, New York 10532 
WEite Plains 91900 (Code 914) 



International Business Machines Corporation 



SEPTEMBER, 1965 



Tir 



ADDRESS CHANGE : 

ANY DISCREPANCY BETWEEN MATERIAL RECEIVED AND THE 
MATERIAL ORDERED SHOULD BE FORWARDED TO THE PROGRAM 
INFORMATION DEPARTMENT, NOW LOCATED AT 40 SAW MILL RIVER 
ROAD, HAWTHORNE, NEW YORK - 10532 



PROGRAM INFORMATION DEPARTMENT 



1620-1443 PON I TOR I VERSIUN 2 SUPERVISOR A NO I.C.R.T. 



PACE 



SYSTEM COMMON 



00090 




OORG 


402 






00402 








00040 


DIMENT 


OSC 


1 *0« t 




OOA FOR LOADER CALLS* 


00402 




1 




00050 






OSA 









00407 






X 1 














00407 




-0000 




00060 




DC 


3*0 






0C4 1 












-00 
















00070 




OSA 


C 






00419 




5 


X 1 














00419 




-0000 




00080 




DC 


6,0' , 






00421 




4 








-CCGO * 














00090 




DSC 


l.l.. 




DISK SCRATCH AREA OEFINER. 


00422 




1 




00100 


SRELOC 


1 

DC 


3.C 






00429 




3 








-00 
















001 10 


SFOINT 


OSC 


1,0,, 




SPS* FORTRAN, ANO OUP CNTL CARD SOURCE* 


0042s 




1 




00120 


C IN I T 



DC 


1,C,, 




LAODR INITIALIZATION INDICATOR* 


0042 7 




1 




00190 


LOINPT 


OSC 


1,0,, 




LOADER ENTRY COOE ANO INPUT DEVICE. 


0042S 




1 




00140 


FSPS 




DSC 


1,0,, 




■ 

LOAO SUP IND. ANO MONITOR CNTL CARD SOUR* 


00429 




1 




00150 


HIGH 




DC 


5,0,, 




HIGHEST ADDRESS LOACEO PLUS ONE* 


00434 




5 








-0000 














00160 


LAOOR 


OC 


5,0,, 




LOAOER INPUT BUFFER VECTOR. 


00439 




5 








-oocc 














00170 


IBMMOO 


OSC 






DRIVE CODE FOR SYSTEM MODULE • 


00440 




1 




00180 


OLCCA 


1 

OSC 


15, C, 




TRANSMIT HEADLESS OCA-S HERE FOR OVRLAV* 


0044 1 




1 5 








ooocoooccooooo* 














00190 




OVERLAY REAO 


ROUTI 


[NE 










00200 


HALT 


H 


XX,XX,02t 




RESET AND START UPON OVERLAY ERROR. 


00456 


MB 


-0000 


coooo 


00210 


OVRLAV 


34 


IB "MOD, 701, 




SEEK AND REAO OVERLAYING PROGRAM. 


004*1 


34 


00440 


00701 


00220 




36 


IBMMOO,702i 


,0 




00410 


L4 


00440 


00702 


00230 


BNI 


81 


HALT,19C0,, 




HALT IF INC. 1900. 


00492 


4* 


00456 


01900 


00240 




B 


IBMM0D*13» , 




BRANCH TO ITS FIRST LOCATICN. 


00904 


49 


0045L 


OCOOO 


00250 




DORG 


• -9 






00504 








00260 




OSA 


20 






00910 




5 


a 1 



00270 • 

00280 •••••• MAIN IORT ROUTINE. 

00290 • ENTRIES ARE IORBC, IOPT, IOSK, AND IOGT. 

00300 • FILE DESCRIPTOR ANO RETURN AODRESS VECTOR IS IOXX. 

00310 •••••• 

00320 •••••• ORIVE REPOSITION TABLE 

00330 REPOS OORG BNI>20 
00340 OC 2*0 

-0 

00350 OC 2,0 

-0 

00360 OC 2»C ] 



00512 
00513 



00515 
00517 



1620-1443 MONITOR I VERSION 2 SUPERVISOR AND I.O.R.T. 



00370 




CC 


2,0 




00519 




2 




00380 




ENTRY SECTION 












00390 


IOKBC 


TDM 


DIOP*47, 1, 11, 


PUT ENTRY KITH READ BACK ChECK* 


00520 


15 


02067 


OOOOJ 


00400 


IOPT 


TFM 


CFILE*ll,TTl*l 


2*8* PUT ENTRY. 


00532 


16 


01933 


0J764 


00410 




B 


I0GTM2 




00544 


49 


00578 


ooooo 


00420 




DORG 


1 




00994 








00430 


IOSK 


SF 


•.XX, , 


SEEK ONLY ENTRY. 


00554 


32 


00554 


ooooo 


00440 


IOGT 


TFM 


OFILE*lltTTl, , 


GET ENTRY. 


00566 


16 


01933 


-1792 


00450 




TFM 


BKPT.XOl. . 


TURN OFF ANY I/O INDICATORS. 


00978 


16 


00467 


-1862 


00460 




BI 


ERROR 1 1900* 1 1 




00990 


46 


00632 


0190- 


00470 


ERRET 


B 


BKPT.,16, 


WHITHER WANOEREST THOU* WAYFARER • 


00602 


4R 


0046P 


00000 


00480 




DORG 


•-4 




006C9 








00490 


INDS 


DC 


2,06** 


ERROR INDICATOR TABLE . 


00610 




2 




00500 




-6 

DC 


2,07 




00612 




2 




00510 




-7 

DC 


2* 16 




00614 




2 




00520 




J6 
DC 


2,17 




00616 




2 




00521 




J7 
DC 


2,25, , , 


PRINTER 


00618 




2 




00530 




K5 
DC 


2,36 




00620 




2 




00540 




L6 
DC 


2*37 




00622 




2 




00550 




L7 

OC 


2*38 




00626 




2 




00560 




LB 

DSC 


it • 




00625 




1 




00561 




DSC 


1*0 




00626 








00562 


INUUT 




DSA 


CHECK-12 




00631 




5 


X 1 












00631 




-1258 




00570 




ERROR INDICATOR 


SCANNER ROUTINE. 










00580 


ERROR 


TF 


•♦21,IN0S,7, 


INITIALIZE FOR CURRENT INOICATOR. 


00632 


24 


00653 


-0610 


00590 




BNI 


•424, XX,, 


TEST IF INOICATOR ON. 


00646 


47 


00668 


OOOOO 


00600 




SF 


ERROR+11* *6* 


YES -SET FLAG INDICATOR. 


00696 


32 


0064L 


OOOOO 


00610 




AM 


ERROR*. 1.2.10* 


ADVANCE AOORESSING. 


00668 


11 


00443 


OCO-2 


00620 




BD 


ERROR* ERROR «■ 11 


•lit TEST IF FINISHEO 


00660 


43 


00432 


00641 


00640 




TR 


OL0DA,ECALL,, 


YES -SET UP CALL TO THE ERROR ROUTINE. 


00492 


11 


00441 


01 80S 


00650 




B 


OVRLAY* t * 




00704 


49 


00448 


OOOOO 


00660 




DORG 


716 




00714 









00670 •« 
00680 • 



CALL LINK ANO CALL LOAD ENTRY 
SIMULATES AN IOGT ENTRY FOR SPS 



•CALL- PSUEOO-OP. 



00690 IOCAL 


TFM 


OFILE*litTTlt t 


SET MAO INDICATOR. 


00714 


1* 


01931 


-1792 


00700 


TR 


CNTtaO, lOXX.ll, 


MOVE FILE DESCRIPTOR. 


00728 


11 


02170 


0034* 


00710 


TFM 


BKPT*X01*36,» 


PUNCH THE TIME CLOCK. 


00740 


1* 


•04*7 


-1696 


00720 


AM 


IOXX, 9,, 


COMPUTE RETURN ADDRESS. 


00712 


11 


00949 


-0*09 


00730 


BNF 


ERRET- 12 tCNTM0*7 




00764 


44 


00990 


02177 


00740 


AM 


I0XX»4 




0077* 


11 


009*9 


-0004 


00790 


8 


ERRET-12* • » 


EXECUTE ANY INDICATOR CHECK. 


0078* 


69 


00990 


00*00 


00760 


OORG 


•-3 




0079* 









00770 •••••• 



MONITOR CALLER t THROUGH MONITOR RETURN ROUTINE.) 



\ b^c- \ «.* 1 MONITOR I VE R S I ON 2 SUPERVISOR AND LC.R.f. PAGE 



00780 


NON C At 


T»t 


CtDOA ,mcda 




0079* 


11 


00441 


01791 


00740 




b 


GVRLAY 




00808 


49 


00461 


ooooc 


00100 




OORG 


• - 3 




00816 








U0810 




DISK HU' I/O PREPARATION SECTION 










00820 


DID 


TO 


J I Of** I »DF 1 LE* 1 1 , 1 1 


i SE T LOk OM C b K DIGIT CP CP CODE. 


00816 


25 


02021 


01931 


00830 




TO 


* ♦ i'j »CNTWQ i i 


DECODE SCRATCH ANC HIGH UPDATE 


00828 


25 


00863 


02170 


008*0 




CF 


* * ^ ? .0 1 QP* I 02 » # 


INDICATOR. 


00840 


33 


00863 


02122 


00850 




TO 


; ;j P ♦ 7 , E R R E T - 2 




00892 


25 


02027 


00600 


00860 




HNF 


L 1 » CN T WO ♦ 3 » . 


TEST IF DIP NUMBER SUPPLIED. 


00866 


44 


01020 


02173 


00870 




TR 


MAPENT,MAPSCTti 


YES -COMPUTE SECTOR TO READ. 


00876 


31 


02144 


01847 


00880 




A 


P f n T ♦ 6 » C N TWO* 6 




00888 


21 


02150 


02176 


0089U 




A 


* A i>{;N t ♦fe,CNTwD*6 




C0900 


21 


02150 


02176 


00900 




TFM 


SK 04 , I OX , , 


SEEK THE MAP ENTRY. 


00912 


16 


02143 


-C932 


00910 




B 


SE E K 




00924 


49 


01496 


00000 


00920 




DOR G 


• -3 




00932 








00430 


CIQX 


TD 


DI0P*94,MAPENT*6» « 


REAO SLUT FCR CIM ENTRY ( « 20 » 40 . 60 • 80 ) • 


00932 


25 


021 14 


02150 


009*0 




TDM 


M* PEN T ♦ 6 . , I 1 » 


RESTORE SECTOR CCUNT ("001) 


00944 


15 


C2150 


ccoo- 


00950 




TFM 


«KPT,X0 3t# 


P 1 i KC M Tut T 1 MP n rfn 


00956 


16 


00467 


-0988 


00960 




36 


MAPE NT i 702 t t 


■ PAD TWF rif ^l8Ff} MAP FNTRV 


00968 


36 


02144 


0C702 


00970 




B 


£RRET-I2t»« 


EXECUTE ERROR TEST. 


00980 


49 


00590 


00000 


00980 










00987 








00990 


X03 


TR 


MAPENT,DI0P*95»ll » 


mcwjf n i m F^Tuv Tn wn**!iwf*. nt 

wuvc U 1 " c — 1 * T 1 U mUka 1 nu )LUl i 


00988 


31 


02144 


02 1 IN 


01000 








Ttil 1 r VALIL U1M tNIRT , 


010CC 


45 


01068 


02144 


01010 






£RR0R*60# . t 


NO -GO TO THE ERROR ROUTINE. 


01012 


49 


00692 


OCOOO 


01020 




DOR G 






01020 








01030 


CHK 1 




"»rt"l 1 1 I.T 1 *U* D| 1 1 | 


MOVE DQ« TO WORKING SLOT* 


01020 


31 


02144 


02170 


01040 




8 D 




tcct ens ccrTns croiTf'Xd bci nriTii l 


01032 


43 


01068 


02027 


01050 






m A P E N T ♦ 3 , SR £ L OC 


vp c — rnnDiiTC m^Ti urc c p r t r d innictt 

TC g lunru 1 C ADjULu 1 C )tLI Ln AUUnO) i 


01044 


21 


02147 


00425 


01060 




T C 


M A P E N T ■, $R E L OC - 3 • 


fCT itc i nr i r ii ( r mc 

ut 1 l 1 i l(JOU*L L/Ktvtr V.IjUC* 


01056 


25 


02144 


00422 


010/0 


DIOY 


AN F 




rt c ' it act niai v net men 


01068 


44 


01112 


00554 


01080 






i Q S * „ , « 


Y F ^ .ri FID T M F IKrtrATflB 


01080 


33 


00554 


OCOOO 


1090 




TFM 




apapnei) TuF (cc> * kj r» CvlT 
r C K r UH ^ Inc )t • ni l> EA I 1 i 


01092 


16 


02143 


-056N 


01 100 






iEt K 




1104 


49 


01496 


OCOOO 


01 1 to 




DOR G 






01112 








0112U 




f,Hf 


GTE ST. OF HE ten 


BRANCH IF GET ENTRY. 


01112 


4* 


Oil 56 


01930 


01 1 30 


oiuz 




D (OP* 1 1 »CN TfcD* 1 , , 


SET MODE DIGIT. 


01 124 


25 


02031 


02171 


1140 




T FM 


SKG4.0 (OP , , 


PERFORM THE SEEK. 


Oil 36 


16 


02143 


-2020 


01150 






3EfcK 




01 148 


49 


01496 


OCOOO 


01 160 




DOR G 






01 156 








01170 


GTEST 


CM 


MAPENT* 13.SS999, , 


TEST IF RELOCATABLE LCAOER RECUIREC. 


01 156 


14 


C2157 


f. " ^99 


01180 




r> i 


•♦24, 12C0 




01 168 


46 


01192 


G A ... 


01 190 




flNf 


ill {' . M A P E N T ♦ 1 3t t 


NO -TEST IF 5PS SUPERVISOR REQUIRED. 


11 8 


4 4 


C 1 12* 


2 1 5 > 


01200 




TR 


CH.CCA .RCALL » , 


YES -READ ANt: EXECUTE CALLER. 


0119 2 


5 > 


004* 1 


01819 


01210 




B 


QVRLA Y 




01224 


49 


G0468 


CCOOO 


01220 




fURG 






012 12 








01230 






3 : >1 DISK I/O HOUSEKEEPING SECTION 










01240 


X04 




. ?0P*98. » . 


CLEAK POSSIBLE USERS ERROR TRAP INC. 


01212 


3i 


02118 


00000 


U 125Q 




BNF 


:. hk ?„DF !l.E*fi , , 


BRANCH IF GET ENTRY. 


01224 


44 


01340 


01930 


01260 




TLM 


u ! C P ♦ 4 7 , , , 


KILL POSSIBLE R8C I KCICATGR. 


01236 


15 


C2067 


CCCOO 


12 70 




bnf 


I Of *,CNTW0»6, 


EXIT IF NO REPOSITIONING RECU I RED. 


01248 


44 


0056N 


02170 


01280 




AM 


Dk I VE .KFPOS-OLDC V , ■ 


.COMPUTE A SECTOR ADDRESS FROM THE 


01260 


11 


02169 


- 161R 


1290 




') CM 


*APFNTM»0, 11 , 


REPOSITION CONSTANT. 


01272 


15 


02145 


0000- 


01 300 




r>- 


MA PEN 1 + 3 » OR I VF i 11 




01284 


26 


02147 


0216R 


1310 






M ft PENT*? 




01296 


33 


02146 


OCOOO 


01 320 




A 


HAPFNT* 3.DR I VE . 1 1 




C13C6 


21 


02147 


02 


I 3 30 






MfcPfN?, T6MP-5, , 


RESTORE THE LOGICAL C»IVE CODE CIGIT 


01 32C 


25 


02144 


020 * 



3 



lo2C~14M MOM tOH I VERSION 2 SUPERVISOR ANC I.C.R.T. PAGE 



01 340 




13 


C 1 Y + 2 




01332 


49 


01092 


OCOOO 


G 1 350 






»- l 




01340 








I 360 


CHK 2 


HNF 


t^K?,ninp* 7, . 


TEST IF HIGH I NOICATCR TC BE UPC AT ED . 


01340 


44 


01376 


02027 


i. 1 3?G 




T f 


i- I i^'»MA^£Nr* I 3 » * 


YE S. 


01152 


26 


00434 


02157 


01380 




A 


*- I Gh- 2, M*pfc NT* a 




0136^ 


21 


00432 


02152 


1390 


CHK 3 


6NF 


C»-K4 t SPSMLP t # 


TEST IF SPS MAIN LINE PROGRAM. 


01316 


44 


01408 


00468 


01400 




TR 


OLUOA,SUPRE T, , 


YES -GET ROUTINE TO HANDLE. 


C1388 


31 


00441 


01633 


01410 




B 


OVRLA i 




01400 


49 


00468 


00000 


01420 




CORG 


•-3 




014C8 








01430 


CHK 4 


BNF 


X04*24,CNTkD»1,, 


TEST If f :<ECLT ION DESIRED. 


01408 


44 


01236 


02171 


01440 




TF 


HALT«6. I0XX* t 


YES -SET UP THE EXIT. 


01420 


26 


00462 


00565 


1450 




TFM 


IOXX.MAPENTM8, 711 




014^2 


16 


00565 


-216K 


01460 






;<04 + 24,MAPENT*14 




01444 


4$ 


01236 


021S8 


01470 




T f M 


10xx,MAPENT*13. 711 




01456 


16 


00565 


-215P 


01480 







X04+24 




01468 


49 


01236 


00000 


01490 




CORG 


3 




01476 








01500 




» SEEK ROUTINE 


SEEKS WHEN NECESSARY, COMPUTES PHYSICAL 










01510 


• 


DRIVE COOr CORRESPONDING TO USER SUPPLIED DRIVE CODE, AND 










01520 




LP!)A!£S CURRENT I/C 


CYLINDER POSITION INDICATOR. 










01530 


SKOl 


TO 


TE»!?-5 S «AP£NT , , 


INSERT SUPPLIED DRIVE CODE . 


01476 


25 


02014 


02144 


01540 




B 


bK0 2 




0148B 


49 


01604 


OCOOO 


01550 




DURG 


»-3 




01496 








01560 


SEEK 


TFM 


fFMP-5,0, 10. 


COMPUTE CYLINOER FOR THIS CALL. 


01496 


16 


02014 


000-0 


01570 




Tf 


TE MP , MAPE N ? ♦ 5 




01508 


26 


02019 


02149 


01580 




CF 


TEMP-4 




01520 


33 


02015 


OCOOO 


01590 




A 


?FMP, TEMP 




01532 


21 


02019 


02019 


01600 




A 


TEMP, TEMP 




01544 


21 


02019 


02019 


01610 




A 


TEMP,NA!'»E'NT*5 




01556 


21 


02019 


02149 


01620 




BD 


SK01.MAPENT , * 


TEST FCR SPECIFIED DRIVE CODE . 


01568 


43 


01476 


02144 


01630 




A 


TEMP-5.TEMP-5,, 


NO -MUST BE COMPUTED. 


01580 


21 


02014 


02014 


01640 




AM 


TEMP-5. t ,10 




01592 


11 


02014 


000-1 


01650 


SK02 


TF«. 


CR I Vfc .EOUI V, , 


COMPUTE LOCATION OF PHYSICAL DRIVE CODE. 


01604 


1* 


02169 


-2123 


01660 




A 


«ir t')* { rpMp-5 




01616 


21 


02169 


02014 


01670 




TO 


MAPENTuDA ! VE » Ut 


REPLACE LOGICAL DRIVE CODE BY PHYSICAL. 


01628 


25 


02144 


0216R 


01680 




BO 


J2 f MAP£-NT, , 


ERROR IF NO PHYSICAL DRIVE CODE. 


01640 


43 


01672 


02144 


01690 




TFM 






01*12 


14 


00467 


-1604 


O17C0 




B 




TELL THE OPERATOR A THING OR TMC. 


01664 


49 


00692 


OCOOO 


01710 




DO KG 






01*72 








01720 




km 


OR!VE»OLDCY-EQU!Vt 


.GET CLO CYLINOER POSITION. 


01672 


11 


021*9 


-0008 


01730 






T6MP-4* * v 


COMPARE hi TH DESIRED CYLINOER. 


01*84 


32 


02019 


00000 


01740 




c 


YEMP-3»C«1 VE.il 




0l4t6 


24 


0201* 


021*ft 


01750 


SK03 


81 


SK04* HQCbt 


TEST IF THE SEEK IS NECESSARY. 


017C8 


4* 


0214L 


01200 


01760 




34 


HAPff*?*- 7CU r . 


YES -PERFORM THE SEEK. 


01720 


14 


02144 


00701 


0177Q 




TP 


OR i . If 3.6t 


UPDATE OLD CYLINDER POSITION. 


01732 


18 


021*41 


02016 


01780 




8 


iff • , % 


RETURN TO CALLER. 


01744 


49 


0214L 


00000 


01790 










017SI 








oiiOQ 


















01810 




fsn. 




TABLE » NC^-OISH 1/0 H0OE A*G OfVlCI 


01TS2 




2 




01820 




Jft 

i3« 




i^cietiRS. 


01794 




2 




0i»3U 




Oi 






01796 




2 




0184C 




»*■ 

. m, 






01791 




2 




OUH 




«. ■■ 




h 


01780 




2 





1620-1443 MONITOR I VERSION 2 SUPERVISOR AND l.O.R.T. 



PACE 5 



01860 




DC 


2 , 


5 7 






N7 






018 70 




DC 


2 , 


1 8 






J 8 






01880 




DC 


2 1 


2 g 






K 8 






01890 




DC 


2 , 


48 






M8 






019C0 




DC 


2 • 


1 9 






j9 






01910 




DC 


2 , 


29 






K9 






01920 




DC 


2 , 


4 9 






M9 






01921 




DC 


4, 


C098 






-098 






01922 




DC 


4i 


0099 






-099 






0192 3 




DC 


4 


1096 






J098 






0192 4 




DC 


4 


1C99 






J099 






01930 


MCCA 


cs 





• ♦I 


01940 




DSA 


DSA 19 


01950 




DC 


3 


3 






-03 










DC 


6 


C 






-0000' 




01970 


EC ALL 


DS 





• ♦I 


01980 




OSA 


DSA10 


1 990 




DC 


3 


. 12 






- 12 






02000 




DSA 


ERROR 


020 1 




DSC 


1 








DS 





,•♦1 


02030 




DSA 


CSA15 


02040 




DSC 


1 


1 













02050 




DC 


2 


♦ 3 






-3 






02060 




DC 


6 


,0 • 






-0000' 




02070 


SUPRET 


DS 





.♦♦1 


02080 




USA 


DSA 17 


02090 




DC 


3 


.2 






-02 







PRIM NUMERIC 
ALPHA 

NUMERIC SUPPRESS SPACE 
ALPHA SUPPRESS SPACE 



01762 

01764 

01766 

01768 

01770 

01772 

01774 

01778 

01782 

01786 

01790 

01791 
01795 

01795 
01798 



018C5 
01809 



018C9 
01812 



01817 
01818 



01819 
01823 



01829 
01824 



01826 
01832 



01833 
01837 



01837 
01840 



1620-1443 MONITOR I VERSION 2 SUPERVISOR AND I.C.R.T. PAGE 6 



02100 




DC 


6,0 ' 




01846 




6 








-OCCO' 












02110 


MAPSCT 


DSC 
I 


1 , 1 




01847 




1 




02120 




DSA 


48C0 




01852 




5 


X 1 












01852 




-4800 




02130 




DSC 


3,1 




01853 




3 








001 














02140 




DC 


6,0* 




01861 




6 








-C00O* 












02150 




CONTINUATION OF ENTRY SECTION 










02160 


X01 


TF 


•♦23.I0XX.U, 


MOVE FILE DESCRIPTOR TO CNTWD • 


01862 


26 


01889 


0056N 


02170 




TR 


CNUD.XX 




04874 


31 


02170 


00000 


02180 




AM 


IOXX, I, , 


COMPUTE RETURN AODRESS . 


01886 


11 


00969 


-0001 


02190 




BNF 


DI0,CNTW0*5, , 


BRANCH IF DISK I/O. 


01898 


44 


00816 


02175 


02200 




A 


DFILE+ll,CNTW0*6,, 


NO -BUILD NON-OISK I/O INSTRUCTION. 


01910 


21 


01933 


02176 


02210 


DFILE 


TF 


I0P*10,XX 




01922 


26 


01968 


CCCOO 


02211 




TO 


I0P*ll. IOPW, , , 


SET Oil 


01934 


25 


01969 


01965 


02220 




TO 


IOP*l, I0PM0 




01946 


25 


01999 


01968 


02230 




I/O SECTION 












02240 


IOP 


30 


CNTklD*4,XX,06, 


CONSTRUCTED NON-DISK I/O INSTRUCTION. 


01958 


LO 


0217H 


ooooo 


02250 




BI 


DIOP+60,1900,. 


TEST FOR ANY I/O ERROR. 


01970 


46 


02080 


01900 


02260 




TFM 


BKPT.X03. , 


PUNCH THE TIME CLOCK. 


01982 


16 


00467 


-0988 


02270 




BNR 


IOXX, CNTW0*4, 0611. 


NO -TEST FOR AN INITIAL RECCRO MARK. 


01994 


M5 


0096N 


0217M 


02280 




B 


ERR0R*60, , , 


YES -EXECUTE CONTROL CARD TRAP ROUTINE, 


02006 


49 


00692 


OOOOO 


02290 




OORG 


•-4 




02013 








02540 


TEMP 


DC 


7,0,, 


SCRATCH FIELD FOR SEEK ROUTINE. 


02019 




7 








-oocooo 












02300 


CIOP 


30 


MAPENT, 700,010. 


CONSTRUCTED DISK I/O INSTRUCTION. 


02020 


LO 


02144 


007-0 


02310 




BNF 


•♦36.»05, , 


IF INDICATED. DO AN RBC. 


02032 


44 


02068 


02067 


02320 




S 


•♦23.0IOP*ll 




02044 


22 


02067 


02031 


02330 




36 


MAPENT»700,10 




02096 


36 


02144 


007-0 


02340 




BN I 


X04,1900,, 


PROCEED IF NO ERROR. 


02068 


4? 


01212 


01900 


02350 




TFM 


BKPT,X04, , 


ERROR -PUNCH THE TIME CLOCK. 


02080 


16 


00467 


-1212 


02360 




BNF 


ERROR, •♦26, , 


BRANCH TO ERROR SCANNER OR USERS 


02092 


44 


00632 


02118 


02370 




CF 


•♦14, XX,, 


ERROR ROUTINE. 


02104 


33 


02118 


OOOOO 


02380 




B 


XX 




02116 


49 


00000 


OOOOO 


02390 




OORG 


•-4 




02123 








02400 




DRIVE EQUIVALENCE AND POSITION TABLES 










02410 


EQUIV 


DS 


0,«*l 




02123 









02420 




DC 
-1 


2, 1 




02124 




2 




02410 




oc 

-0 


2,0 




02126 




2 




02440 




oc 

-0 


2,0 




02121 




2 




02450 




DC 
-0 


2*0 




02130 




2 




02460 


QLOCY 


OS 


0»»«l 




02131 









02470 




OC 
-0 


2*0 




02132 




2 




02480 




DC 
-0 


2.C 




02134 




2 




02490 




OC 
-0 


2.0 


% 


0213* 




2 





162C- I MONITOR ! VERSION 2 SUPERVISOR AND t.C.R.T. PAGE 



Q25C0 




DC 


2,0 






021 38 




2 




02*10 




SYMBOL DEFINITIONS 


AND WORKING STORAGE 










0253G 


SKO* 


DC 


5,0, , 




SEEK ROUTINE RETURN ADDRESS VECTOR. 


021*3 




5 








-0000 














02520 


* APENT 


DSC 


21,0,, 




STORAGE FOR WORKING CDA. 


021** 




21 








oooccoccccoocooccoooo 














02550 


CRI VE 


UC 


5,0, , 




VECTOR TO MUUULE TABLES. 


02169 




5 








-ooco 














02560 


CNTWD 


nsc 


13, C, 




STORAGE FOR CALLING SEQUENCE RECCRO. 


02170 




13 








cccccocccoooo 














0257U 


XX 


OS 


0,0, , 




INDICATES USED FIELD OR UNDEFINED SYMBOL 


OCOOO 









02580 


IUXX 


OS 


0, I OSK ♦ I I , , 




CALL ANU RETURN VECTOR. 


005*5 









0259U 


BKPT 


DS 


, HAL T* U,, 




INDIRECT RETURN BRANCH ADDRESS 


00*67 









02600 


SYSORG 


cs 


0, 2*02, , 




OBJECT PROGRAM STANDARD ORIGIN. 


02*C2 









0261 J 


SYSCAL 


DS 


O.OVRLAY* 7, , 




SYSTEM PROGRAM COMMUNICATION DIGIT. 


00*75 









02620 


NONE X 


DS 


, H AL T ♦ 1, , 




NON-EXECUTE INC. SET BY SPS. ETC. 


00*57 









02630 


SPSMLP 


DS 


O.OVRLAY, , 




SPS SUPERVISOR FLAG WHEN ML P LCAO REQUEST 


00*68 









02640 


RM 1 


cs 


0,2210,, 




INDIRECT VECTORS TO SET RECORD MARKS 


02210 









02650 


RM2 


DS 


0,2215,, 




FOR THE SPS SUP. AFTER ML P LCAD. 


02215 









02660 


SUPENT 


OS 


0, 293*, , 




ENTRY TO THE SPS SUPERVISOR. 


0293* 









02670 


COMM 


DS 


, SYSQRG**CO , , 




LOCATION OF COMM SECTOR IN MONITOR. 


028C2 









02680 


MCQMM 


DS 


0,COMM*50, , 




MONITOR INCS. IN THIS SECTOR 


02852 









02690 


MCCBUF 


OS 


, 1 3000 , , 




MONITOR CNTL CARD R E AO BUFFER. 


13000 









02700 


MCYL 


DS 


0,98, , 




MOM TOR CYLINDER 


00048 









02710 


DSACO 


DS 


C , 2C0»MC YL • , 




FIRST SECTOR IN MONITOR CYLINDER 


19600 









02720 


CSAOl 


DS 


C,DSA0Q*35, , 




LOADER RETURN ANALYZER STAGE 2 


19635 









02730 


CSA02 


DS 


0,0 SAO I* I, , 




ARITHMETIC TABLES. 


19636 









027*0 


OSAO* 


CS 


0.USA02O, , 




COMMON AND OVERLAY REAC ROUTINE 


19639 









02750 


0SA06 


DS 


O.DSAO** I , , 




MAIN IORT 


196*C 









02760 


CSAQ7 


CS 


, D SA06 ♦ 1 6 , * 




RELOCATABLE LOADER CORE SAVE AREA 


19656 









02 77U 


CSA08 


DS 


Q,0SA07O, , 




MOM TOR 


19659 









C2780 


DSA09 


DS 


0,DSA08*85, , 




NAMED LOAD ROUTINE STAGE 2 


197** 









02790 


DSA10 


DS 


0,DSAQ9*5, , 




ERROR ROUTINE STAGE 


197*9 









02800 


DSAi 1 


CS 


O.DSA 10*12, , 




ERROR ROUTINE STAGE 1 


19761 









0285U 


CSA16 


DS 


0,USA 11*6, , 




LOADER CALLER STAGE 2 


19767 









02B60 


CSA17 


US 


O.USA 16*3, , 




SPS SUPERVISOR RETURN ANALYZER 


19770 









028?Q 


DSAI 3 


DS 


0,CSA17*2» , 




ERROR ROUTINE STAGE 3 


19772 









02830 


DSAI* 


DS 


0,DSA13*5, , 




mom d 1 1 1 1 t t m e ctatc u 


19777 









028*0 


CSA15 


US 


0,OSA 1**6, , 




SPS SUP AND LOADER CALLER STAGE I 


19783 









02810 


US A I 2 


CS 


0,DSA15*3, , 




tKMuK HUUIlNt Jl *0t i 


19786 









026 10 


C S A I 8 


DS 


0,CSA12*6, , 




LOADER RETURN ANALYZER STAGE 1 


19792 









02880 


CSA19 


CS 


0, DSA 18*3, , 




MONITOR AND DUP SUP. LOADER SUBR. 


19795 









U2890 


OS A20 


US 


O.USA 19*3, , 




NAMED LOAD ROUTINE ST ACȣ 1 


1 9798 




o 




029C0 


DSA21 


OS 


0.OSAOI-5, , 




ERROR ROUTINE STA&fc PLUS 


19630 









02910 


CSA39 


DS 


0,DSA08**, , 




SYSTEM COMMLN I C AT I ON SECTOR. 


19663 









02920 


CSA*0 


CS 


cudsao8*8*. , 




SYSTEM QOA SECTOR. 


197*3 









0293Q 


CSA50 


us 


, 1 702*,, 




SPS SUPERVISOR 


1702* 









029*0 


DSA51 


us 


O.DSAOO, , 




RELOCATABLE LOADER 


196C0 









02950 




DORG 


19982* 




CUNTROi TU WRITE ON C I S K . 


19982 








02960 




DSC 


1 , 1 






19982 




I 




029 7 




1 

USA 


USAO* 






19987 




5 


X 1 














19987 




J9639 




2980 




CL 


3, 2C 




7 


19990 




3 








-20 






















1620-1**3 MQNI TOR 


I VERSION 2 SUPERVISOR AND I.C.R.T. 








PAGE 


0?990 




DC 


6,*02* 






19996 




6 








-0*C2' 














U 1000 




















3010 




IOR T SUBROUTINES WHICH NORMALLY RESIDE ON DISK FOLLOW 










3020 




















0303C 




OVERLAY ERROR ROUTINE STAGE 










30*0 


• • • 


SAVE 


ERROR COUNT ROUTINE 












03050 




CORC 


ERROR 






00632 








03060 


TEST 


BNF 


NOERR, INDS, 7, 




TEST 1 NO TABLE 


00632 


** 


00656 


-0610 


03070 




AM 


COUNT, 01, 1C, , 




UP THE ERRCH COUNT 


006** 


11 


01133 


000- I 


3080 


NO ERR 


AM 


TE$mi,02,lO, , 




-MODIFY ERROR TEST 


00656 


11 


006*3 


000-2 


03090 




AM 


TEST* 18,02, 10, , 




MODIFY ERROR COUNT LOCATION 


00668 


11 


00650 


000-2 


031C0 




BD 


TEST,TEST*U,ll, 




TEST LAST INDICATOR 


006*0 


*3 


00*32 


006*L 


03120 




WRITE ERROR COUNT 


TO 


01 SK 










031 30 




TO 


IBMWRY, I BMMOD * , , 




SET CORRECT MODULE 


00692 


25 


0102* 


CC**0 


G3l*0 


• NO ERROR 


COUNT TO DISK IF 


FULL TRACK 










03160 




BNF 


WRTCT+l2,0LDDA*l*, 


, WRITE ERROR COUNT NO FLAG 


0070* 


A* 


00736 


00*55 


031 70 




B 


GDGO 






00716 


*9 


00866 


OCOOO 


03180 




CORC 


• -3 






0072* 








032*0 


HRTCT 


3* 


I8MWRT, 701 , , , 




SEEK THE ERROR COUNT 


0072* 


3* 


0102* 


00701 


03250 




38 


IBMWRT,702 , , , 




WRITE THE ERROR COUNT 


00736 


38 


01024 


00702 


03260 




BI 


B1GTRB, 1900 






007*8 


** 


007*8 


01900 


03270 




B 


GDGO 






00740 


*9 


008*6 


OCCOO 


03280 




CORG 


• -3 






0C7A1 








03290 


BIGTRB 


RCTV 








007*8 


3* 


00000 


00102 


03300 




WATY 


ME SI,,, 




DISK WRITE ERROR MESSAGE 


00710 


39 


00813 


00100 


03310 




M 








00792 


48 


OQOOO 


OCOOO 


3320 




B 


WRTCT 






QC80* 


49 


0072* 


OCOOO 


03330 




DORG 


• -* 






ootu 








033*0 


MESl 


OAC 


27, BAD DISK WRITE. RESET START ' 


00813 




27 


X 2 






BAD 


DISK WRITE. RESET 


START • 










03350 


• • • 


MESSAGE IF ENTERING 


I OR T ERROR 










03360 


&0GO 


CM 


BKPT,XOi, , 




TEST IF CALLED AT ENTRY 


008** 


1* 


004*7 


-18*2 


03370 




BE 


MESSG 






00878 


** 


0095* 


01200 


03380 




CM 


BKPT,XO l* 36 






00890 


1* 


00467 


-1898 


03390 




BE 


MESSG 






00902 


** 


0095* 


01200 


03*00 




TR 


OLDCA.JOFF,, 




NO-CALL IORT ERROR 


0091* 


31 


00441 


01038 


03*10 




& 


OV RlAY+12,, , 




ELIMINATE SEEK 


0092* 


*9 


00480 


00000 


03*20 




DORG 


• -* 






00913 








3*30 


MES2 


CAC 


ll.ENT ERROR • 






00919 




1 1 


A 2 






EN T 


ERROR ' 
















MESSG 


RCTY 








0099* 


1* 


00000 


00102 


3*50 




WATY 


MES2, , , 




10 IN MESSAGE 


009*8 


39 


00935 


00100 


03*60 




WNTV 


INOS- I, 




IQ INDICATORS 


00980 


38 


00*09 


00100 


3* 70 




RCTY 








00992 


s* 


. 00000 


00102 


03*80 




8 I 


•♦12,700 






0100* 


** 


0101* 


00700 


03*90 




B 


EEXITM2 






0101* 


49 


01*50 


00000 


03500 




DORG 








0102* 








03510 


IBMWRT 


DC 


i,i 






0102* 




1 




03520 




J 

DSA 


DSA 10*5 






01029 




9 


X 1 














01029 




J9T94 




0353C 




DC 


3, i 






010S2 




3 




035*0 




-01 
DSA 


ERROR ♦SCO 




5 


01037 




9 


X 1 



1620-1*43 MONITOR t VERSION 2 SUPERVISOR AND I.O.R.T. 



PAGE 



03550 JOFF 
03560 



03570 
03580 



05 0,**1 
DSA DSA 2 1 



DC 3,5 

-05 

DSA ERROR 



01037 
01034 
01042 

01042 
01049 



03610 • 
03620 

03630 COUNT 

03640 

03650 

03660 

3661 

03670 

03680 

03690 

037C0 
037 10 
03720 
03730 
03740 
03750 
03760 
03770 

03780 

03790 

03800 

03801 

03810 

03820 

03830 

03840 • 

03850 

03860 BBUFF 



ROUTINE TO TYPE OUT AND RESTORE THE ERROR COUNTERS TC ZERO 
DOR G ERR0R»5G0 



DC 
-0 
DC 
-0 
DC 
-0 
DC 
-0 



2,CC, , , 
2,CC,,, 
2,CC, , , 
2,CC, , , 
2.CC, , , 
2.CC, , , 

2, CC, , , 

3. CC'.,. 



DC 
-0 

cc 

-0 

cc 

-0 

cc 

-0 ' 

DORG ERR0R*524 
RCTY , , , 
WNTY 46 , , , 
TR 46,120,, 
38 32,702,, 



DOR G 
DC 
-0 
CC 



2.C 
2,0 
2*0 
2,0 
2,0 
2,0 
2,0 
3,0' 



06 
C7 
16 
17 

36 
37 
38 



CALL IN BY ENTERING 

340003200701 
360003200702 

4900070011975400100046 

NOW WASN-T THAT MCE 



DC 
-0 
DC 
-0 
DC 
-0 
DC 
-0 
DC 
-0» 

THIS ROUTINE REMAINS IN CORE WITH ALL ERROR ROUTINES 
DORG ERROR*600 
00 



01050 
01051 



01132 
0113) 

01135 

01137 

01139 

01141 

01143 

01145 

01 148 

01156 
01156 
01 168 
01 110 
01192 
01204 
012C6 
01207 

01209 

01211 

01213 

01215 

01217 

01219 

01222 



01232 
01232 



1620-1443 MONITOR I VERSION 2 SUPERVISOR ANC I,C.R.T. 



03870 DSC 8,C 01244 

0000000' 

03880 SlQXX DSC 6,0» 01252 
OOOOO 1 

03890 TFM •♦23,INDS,, ROUTINE TO DETERMINE ERROR INDS. 01258 

03900 CHECK TF •♦33, XX, 7 01270 

03910 CF »-l,,6 01282 

03920 BNI •♦36, XX 01294 

03930 SF CHECK*11,,6 01306 

03940 SF CHECK*8 01318 

03950 AM CHECK*ll,2,l0 01330 

03960 CHEK1 CM CHECK* 1 1 » I NDS* 14 , 8 01342 

03970 BNI CHECK, 1300 01354 

03980 BNF OTEST ,CHECK*8 . . ON U I SK ERROR * DISTINGUISH IF OVERFLOW. 01366 

03990 CHEK2 BD RE TRY , STEPS , , IF NOT, GO INTO RETRY LOOP. 01378 

04000 HOLLER RCTY ,,, TYPE ERROR MESSAGE. 01390 

04010 WAT Y EMSG1 01402 

04020 SPTY 01414 

04030 HOI WNTY SIOXX 01426 

0404U SPTY 01438 

04050 NOP H04 01490 

04060 HOi WNTY 1N0S-1 01462 

04070 SPTY 01474 

04080 H04 H ERROR+8 01486 

04090 TFM Bl-5,61,711, INITIALIZE INDIRECT BRANCH. 01498 

04100 RNTY BBUFF,,, RE AO THE OPERATORS ENTRY. 01510 

04110 SPTY 01522 

04120 BI •-24,400,, IF SSW4 , ALLOW REENTRY. 01534 

04130 SF BBUFF,*, COMPUTE BRANCH ADCRESS. 01544 

04140 S Bl-5, BBUFF*! 01554 

04150 B Bl,,6,, PERFORM INDIRECT BRANCH. 01570 

04160 DORG »-4 01577 

04170 Bl DSA EEXIT 01581 

01581 

04180 OSA RETRY 01544 

01546 

04190 DSA APHASE 01991 

01591 

04200 OSA AJOB 01594 

01994 

04210 DSA RETN 01401 

01401 

04220 AJOB TOM •♦23*0, * SET MONITOR RETURN INDICATOR. 01402 

042J0 APHASE TOM SYSCAL.4 01414 

04240 TFM BKPT.MONCAL 01424 

04250 EEXIT NOP MAPENT , SAVDOA , , RESTORE WORKING OCA IP DISK I/O ERROR. 014)1 

04240 TR OLOOA ,ERRR , • RESTORE MAIN ROUTINE A WO RETURN. 01490 

04270 TFM 0LDCY*l,NCYL,10, RESTORE MONITOR MODULI CT LI NOER INO. 01442 

04240 6 OVRLAY+12 01414 

04290 DORG «-3 01402 

04)00 RETN RNTY BBUFF , , » READ OPERATORS ENTRY. 01402 

10 



-1132 


5 X 1 

J9630 
3 

5 X 1 

-0432 

I 



2 
2 
2 
2 
2 
2 
2 
3 



34 00000 00102 

38 00046 00100 

31 00046 00120 

38 C0032 0C702 

48 00000 00000 

2 

2 

2 

2 

2 

2 

2 

3 



00 00000 ocooo 



PAGE 

8 
6 

16 01281 -0610 

26 01303 -COOC 

33 0128J OCOOO 
47 01330 OCOOO 
32 0128J 00000 
32 01278 00000 
11 01281 000-2 
14 01281 0-624 

47 01270 01300 
44 00768 01278 

43 01044 01200 

34 00000 00102 
39 01787 CC100 
34 00000 00 101 
38 01252 00100 
34 COOOO 00101 
41 01446 00000 
34 00609 00100 
34 COOOO 00101 

48 00640 00000 
16 01574 -158J 
34 01232 00100 
34 00000 00101 

44 01510 00400 
32 01232 00000 
22 01574 01233 

49 0158J 00000 

9 X I 

-1434 

9 X 1 



-1044 

9 X 1 



-1414 

9 X 1 



-1402 

9 X 1 

•1402 

19 01429 OCOOO 

19 00475 00004 

14 00447 -0794 

41 02144 OUT? 

31 00441 01817 

14 021)2 000*8 

44 00400 00000 

)4 012)2 00100 



1620-1*0 MONITOR I VERSION 2 SUPERVISOR AND I.G.R.T. 



PACE 



0*310 




SPTY 






01*94 


14 


00000 


0C101 


0*320 




81 


•-2*,*00, , 


ALIO* REENTRY IF SS«*. 


0170* 


4* 


01*82 


OC400 


0*330 




SF 


B8LFF , , , 


INI T I All ZE FOR RETURN. 


01711 


32 


01232 


00000 


043*0 




TF 


BKPT ,6BUFF** 




01730 


2* 


004*7 


0123* 


0*350 




TDM 


D I OP** 7 » 




01742 


1 3 






04360 




CF 


IOSK 




01754 


33 


00554 


OCOOO 


0*370 




CF 


IOP+98 




017** 


33 


02118 


00000 


0*300 




g 


EE X I T 








01*38 


OwUUU 


0*390 




DORG 


• -3 




0171* 








0**00 


EMSCl 


DAC 


9, CSK ERR • , 




01717 




9 


X 2 






CSK l 


ERR • 












0**10 


SIOP 


36 


MA PENT ,702,0 




01104 


I* 


02144 


0C702 


0**20 




osc 


1 , • , 












0**30 


ERR8 


DS 






01117 









0***0 




PSA 


D SA06* 1 




01121 






X 1 












01621 




J9641 




0**50 




DC 


3 » 1 3 
















-13 


















DSA 


E R R E T 




01829 






X 1 












01829 




-0602 








CSC 






01830 




1 












rnktsni tn ldi tc riu rn« 

L urv 1 KUL 1 u »Kl It Lrl L i 3 In • 


19982 








0**90 




osc 
I 


1 1 1 




19982 




1 




0*500 










1998 7 




5 


X 1 












19987 




J9749 




0*510 




DC 
- 12 


3, 12 




19990 




3 




0*520 




CSA 


ERROR 




19995 




5 


X 1 












19995 




-0*32 




0*530 




DSC 


I i • 




19996 




I 




0*5*0 


•••••• 


OVERLAY ERROR ROUT 1 NF 


STAGE PLCS 










0*550 




UORG 


ERROR 




00632 








0*560 


EC030 


T F 


S IOXX** , I OXX , , 


MOVE RETURN ACDRESS FOR TYPE-CUT. 


00632 


26 


01256 




0*570 




C* 


HK ? T , XO 3 ( t 


THREE POSSIBILITIES FOR THIS. 


0064* 


1* 


00*67 




0* 580 






E0070 .CNTWIH5 • , 


BRANCH IF C 1 SK I/O. 


00656 








0*590 




BN I 


EC0*0, 1200 




00668 


47 


00738 


01200 


0*600 




RNR 


EQ050,CNTW0**,11 . 


TEST IF CNTL CARC TRAP. 


00680 


45 


00808 


0217M 






TFM 


BKPT, 10XX,7U» 


YES —SET PROPER RETURN POINT. 










0*620 




TR 


OLDOA t • ♦ 19 t i 


LOAU AND EXECUTE ERROR ROUTINE 


00704 


31 


00441 


00723 


0*630 




B 


OVRLAV* 12.DSAI*. , 


STAGE *. 


00716 


49 


00480 


19777 


0*6*0 




DC 


3,6 




00730 




3 








-06 














0*650 




DSA 


ERROR 




00735 




5 


X 1 












0C735 




-0632 




0*66U 




DSC 


I. » 




0073* 




1 




0*670 


ECO*0 


CM 


8KPT,X0*», 


TEST IF ERRCR AT NON-OISK I/O TIME. 


00738 


14 


004*7 


-1712 



1 1 



1620-1**3 MONITOR I VERSIUN 2 SUPERVISOR AND I.C.R.T. 



0*580 




8NI 


E0050, 1200 




00750 


47 


00808 


01200 


0*69 




TFM 


BKPT, IUP*2* 




00762 


16 


00467 


-1982 


0*7G0 




TR 


0LCCA,**19, , 


LOAD AND EXECUTE ERROR ROUTINE 


00774 


31 


00441 


0C791 


0*710 




B 


0VRLAY*12,DSA12, , 


STAGE 2. 


00786 


49 


00480 


19784 


0*720 




DC 


3*6 




008C0 




3 








-06 














0*730 




DSA 


ERROR 




CC8C5 




5 


X I 












00805 




-0*32 




0*7*0 




DSC 


It ' 




0080* 




1 




0*750 


E0050 


RCTY 




IMPOSSIBLE ERROR -MACHINE FAILURE CR 


00808 


34 


00000 


00102 


0*760 




WATV 


EMSG2 I * * , 


INCORRECT IORT CALLING SEQUENCE. 


00820 


19 


01085 


00100 


04770 




B 


APHASE , * » 


TERMINATE THE CURRENT PHASE. 


00832 


49 


01614 


00000 


0*780 




DORG 


• -3 




00840 








0*790 


E0070 


BI 


EOICO, 1200, , 


TEST IF AT MAP SECTOR READ TIME. 


00840 


4* 


01052 


01200 


0*800 




CM 


BKPT, X04, , 


NO -TEST IF AT DISK I/O TIME. 


00852 


14 


004*7 


-1212 


0*810 




»NI 


E0090, 1200 




008*4 


47 


00956 


01 200 


0*820 




TFM 


M0**6.£RR0R*20», 


VES -INITIALIZE FOR CISK ERROR. 


0087* 


1* 


01492 


-0652 


04830 




TO 


0IUP*12,SIQP*12 




00888 


25 


02032 


0181* 


04840 




TR 


SIQP,010P 




00900 


11 


01804 


02020 


04850 




TOM 


0I0P*12,4 




00912 


15 


02032 


00004 


04860 


E0080 


TR 


0l0DA,**19» , 


LOAD AND EXECUTE ERROR ROUTINE 


00924 


11 


00441 


00943 


0*870 




B 


0VRLAV*12,DSAll, t 


STAGE 1. 


0091* 


49 


00480 


197*1 


0*880 




OC 


3,6 




00950 




1 








-06 














04890 




DSA 


ERROR 




00955 




5 


X 1 












00955 




-0*12 




049C0 




DSC 


1, • 




0095* 




1 




04910 


E0090 


CM 


BKPT.ABOl, , 


TEST IF ILLEGAL NAME LOAD REQUEST. 


00958 


14 


004*7 


J09I4 


04920 




BI 


E0095,1200 




00970 


4* 


01018 


01200 


04910 




CN 


BKPT,SK02» , 


NO -TEST IF ILLEGAL DRIVE CODE. 


00982 


14 


004*7 


-1604 


04940 




BN I 


E005i0,1200 




00994 


47 


00608 


01200 


04950 




TFM 


H0**6,R0VCD,» 


VES -SET UP FOR ERROR PROCEOURE. 


0100* 


I* 


01492 


-1004 


049*0 


E0095 


TR 


OLD0A,»*l9., 


LOAU ANO EXECUTE ERROR ROUTINE 


01018 


11 


00441 


01017 


04970 




B 


GVRIAY*12,DSA13,, 


STAGE 3. 


01010 


49 


00480 


197T2 


04980 




DC 


3,5 




01044 




1 








-05 














04990 




DSA 


ERROR 




01049 




9 


X 1 












01049 




-0*12 




05000 




OSC 


l»* 




01090 




1 




05010 


£0100 


®m 


ECQ80,MAPENT,, 


TEST IF EMPTY MAP ENTRY CALL. 


01012 


49 


00924 


02144 


09020 




TFM 


H04*6,NERR»# 


YES -SIT UP CALL TO THE ERROR ROUTINE* 


010*4 


I* 


01492 


-0600 


09010 




e 


EC095 




OIOT* 


49 


01016 


00000 


05040 




DORG 


•»3 




01014 








05090 


IMSG21 


OAC 


8, IMP fftft*, 




01019 




• 


X 2 






IMP i 


IR*« 












090*0 




DORG 


19982, 


CONTROL TO fcRITE ON 01 SR. 


19912 








09070 




DSC 


l«l 




19982 




1 




09010 




I 

OS* 


DSA2L 




19987 




9 


X 1 



12 









1620-1443 MONITOR 


I VERSION 2 SUPERVISOR ANO I.C.ft.T. 








PAGE 












19987 




J9630 




05090 




DC 


3.5 




19990 




3 








-05 














O5100 




DSA 


ERRCJR 




19995 




5 


X 1 












1 9995 




-0632 




Obi 10 




DSC 


It' 




19996 




I 




05120 




OVERLAY ERROR ROUTINE STAGE 1 










05 1 30 




COR G 


ERROR 




00632 








05140 




B 


H04 *b i f 6 


BRANCH AS PRESET* 


00632 


49 


L49K 


00000 


05150 




CORG 


• - 3 




00640 








05160 




TDM 




DISABLE ANY READ CHECK. 


0064C 


15 


01081 


00009 


051 70 






E E X I T t 3 1 i 


INITIALIZE ERROR RETURN* 


00652 


L5 


01638 


0COO3 


05 180 




TC 


cc* I T*42»UVRLAY 




00664 


16 


0L6BO 


-0468 


05 190 






N I OP » S I OP i , 


MOVE THE I/O INSTRUCTION. 


00676 


3 1 


1068 


1804 


05200 




T 

TDM 


N I OP ♦ 1 2 ♦ 4 1 i 


CLEAR THE RECORD MARK. 


00688 


|j 


0L080 


00004 


052 10 




TR 


SAVCOA|MAPENT , , 


SAVE THE FORKING CCA. 


007C0 


] i 


01177 


02144 


05220 


WTEST 


BNF 


• ♦ 20. I NOS , 7 , 


DETERMINE IF NON-CYLINDER OVERFLOW ERROR. 


00712 


44 


00732 


-0610 


052 30 




8 


RE TRY . . . 


NO. 


00724 


49 


1044 


00000 


052 AO 




DORG 


• -3 




00732 








052 50 




AM 


WTEST ♦ 1 1 , 2 




00732 


1 1 


00723 


-0002 


05260 




CM 


WTE ST* 1 1 . 1 NDS* I 4 




00744 


|4 


00723 


-0624 


052 70 




BN I 


WTEST, 1300 




00756 


47 


00712 


1 300 


05280 


OTE ST 


BN I 


•♦24. 3800 




00768 


47 


00792 


03800 


05290 




SF 


INCS* 14 




00 780 


J2 


00624 


COOOO 


05300 




BNF 


EE X I T i I NOS* 14 




00792 


44 


L638 


00624 


05310 


CYlQVF 


TFM 


NEXT. 200. . 


YES -COMPUTE ACDRESS OF TOP OF NEXT CYL . 


00804 


16 


0097 I 


-0200 


05320 




TD 


• ♦23.MAPENT* 3 




00816 


25 


008 39 


02147 


05330 




8D 


•♦24, TEETH 




00828 


4 3 


00852 


01211 


5 340 




TFM 


NEXT, 100 




00840 


16 


0097 L 


-0 100 


05 341 




TFM 


NEWOUA* 1 3,0 




00852 


14 


01175 


-0000 


05 350 




A 


NEXT-2.MAPENT+ 3 




00864 


>! 


00969 


02 147 


05 360 




TF 


NEWCDA*5»NEXT , . 




0C876 




01167 


0C97 1 






S 


NEXT.MAPENU5, , 


COMPUTE NUMBER OF SECTORS PROCESSED. 










05380 




TF 


NEwDDAMUNEXT 




0090 






00971 


05 390 




S 


NCXT,MAPENT*8* , 


COMPUTE NUMBER OF SECTORS VET TC PROCESS. 


00912 




nooT i 


02152 






BNF 


RETRY, NEXT, , 


MUST RETRY IF OR LESS. 






1044 




05410 




CM 


OR I VE ,99,610, , 


TEST IF DRIVE OVERFLOW. 


00936 


14 


02 L6R 


000R9 


054 2 




B I 


DC VFL , 1 200 




0094 8 




01136 


1 200 


054 30 




CF 


NEXT, , , 


NO -SET NEW SECTOR COUNT. 


00960 


33 


0097 1 


nnnnn 


05440 


NEXT 


CS 


0,* 








o 




05450 




SF 


NEXT-2 




00972 


32 


00969 


00 1 






TF 


NE WDDA ♦ 8 , NE X T 








ni i t? 








SF 


NE WDDA*9, , , 


COMPUTE NE W CORE ACCRESS. 




\ i 




uuuuu 






A 


NEWCDA* 13* MAPE NT ♦ 


13 


n i nra 




ni 1 7< 








A>- 


OR I VE , 1,610, 


UPDATE CYLINOER POSITION INDICATOR. 


ni n?n 












TR 


MAPENT* I .NEWOOA^ 1 


. .MOVE NEW UCA TC WCRKING SLCT. 






t\7 14< 


01 1 A1 


0'>5 1 


RF Toy 


T Z 


CHEK2 + 1 l,CHEK2*H 


, i I .REDUCE RFTRY COUNT. 


1044 


Z,^ 


01 389 


138R 


05520 




34 


MAPENT, 701 , , 


BESEEK. 


1 056 


34 


2144 


00 70 1 


05^ iO 


N I OP 


30 




i/C INSTRUCTION GETS MOVED HERE. 


01068 


30 


00000 


00000 


05540 




BNF 


•«36.DI0P»47» , 


TEST IF ALSO READ BACK CHECK. 


C108C 


44 


01116 


02067 


C5550 




TO 


•♦2 3 B PIOP^4 7, , 


YES -GET MODE DIGIT. 


01092 


25 


01115 


02067 






It 


MAPENT, 700 




G11C4 


36 


02144 


00 700 


U55 70 




PNI 


EE X IT, 1<*00, , 


SEE IF ANY TROUBLE THIS TIME. 


01116 


47 


01636 


01900 


05580 




H 


INCUT, ,6, 




01128 


49 


0063J 


00000 



1 3 



L62C-1443 MONITOR I VERSION 2 SUPERVISOR AND I.C.R.T. PAGE 



05590 




DORG 


♦-3 




CI 136 








05600 


OOVFL 


TF 


EMSGIM2.EMSG2+4, , 


INITIALIZE FOR DRIVE OVERFLOW TYPE-OUT. 


01136 


26 


01799 


01161 


05610 




B 


HOLLER 




01148 


49 


01390 


00000 


05620 




DURG 


• -3 




01156 








05630 


EMSG2 


DAC 


3. OFL, 




01157 




3 


X 2 


05640 


NEwCOA 


OFl 
DSC 


15,0* 




01 162 




15 








OOOOOOOCCOCOCO' 












05650 


SAVCDA 


DSC 


20. C 




01177 




20 








OOOOOCOCCCOCCOOCCCCO 












05660 


STEPS 


DSC 


10, 1234567890,1200, 


UP, UP, UP AND — WHOCPS. 


01200 




10 








1234567890 












05670 


TEETH 


DAC 


5, ♦♦♦♦♦, 1211 




01211 




5 


X 2 






♦ 444* 












05680 




DORG 


19982, , 


CONTROL TO WRITE ON CISK 


19982 








05690 




DSC 
1 


I. 1 




19982 




1 




057C0 




DSA 


DSA 1 1 




19987 




5 


X 1 












19967 




J9761 




05710 




DC 


3.6 




19990 




3 








-06 














05720 




DSA 


ERROR 




19995 




5 


x 1 












19995 




-0432 




05730 




DSC 


1. • 




19996 




I 




05740 




OVERLAY ERROR ROUTINE 


STAGE 2 










05750 




DORG 


ERROR 




00*32 








05760 




TFM 


CHEK2-6.EEXI T*12, , 


INITIALIZE ERROR CHECK EXIT. 


00*32 


16 


01372 


-1*30 


05770 




TOM 


CHEK2*l,i 




00*44 


15 


01379 


00001 


05780 




TFM 


B1*5,I0PA, , 


SET RETRY ADDRESS. 


00*9* 


1* 


0138* 


-1076 


05790 




TD 


I0P*12tSI0P4>L2tt 


MOVE THE I/O INSTRUCTION. 


00**6 


29 


01970 


0161* 


05600 




TR 


SIOP.IOP 




00*60 


31 


01804 


01958 


05610 




TR 


I OP A, I OP 




00*92 


31 


0107* 


01996 


05820 




TDM 


I0P*12,4,, 


CLEAR THE RECORO MARKS. 


007C4 


19 


01470 


00004 


05830 




TDM 


I0PAM2.4 




0071* 


19 


01066 


00004 


05840 




SF 


I0P*9,, t 


INITIALIZE FOR DEVICE COMPARISON 


00721 


32 


019*7 


00000 


05890 




TOM 


IOPMO.O 




00740 


19 


019*6 


00000 


05851 




CM 


IOPUO.90,10, 


TEST IF PRINT ERROR 


00792 


14 


019*1 


OOORO 


05652 




BN I 


2011*1200 




007*4 


47 


0011* 


01200 


05653 




TF 


ENSCl*4»EMSG8+4,. 


SET UP ERROR MESSAGE 


0077* 


2* 


01791 


01199 


09894 




TF 


H03-5,Z05*C7, , 


MOO IF V NOP TO BRANCH IN HOLLER 


00766 


2* 


01497 


00619 


09895 




B 


HOLLER 




00300 


49 


01390 


00000 


0969* 




DORG 


•-3 




00606 








05897 


205 


6 


EEXIT^L2,,0, 


MODIFY BRANCH 


00806 


*9 


01*90 


00000 


05696 




00* c 


•-3 




0061* 








096*0 


2011 


CM 


I0P*10#10,10, 


OETERMINE if A TYPE ERROR 


0061* 


14 


019*1 


OOOJO 


0S8"»0 




BNI 


201,120 




00121 


47 


00901 


01200 


09660 




CK 


I0P*l,36,l0, 


VES -DETERMINE IF A READ. 


00140 


14 


01999 


OOOL* 


05690 




61 


•♦36,1200 




00112 


4* 


00111 


01200 


09400 




cm 


IOP*l.37,lO 




001*4 


14 


01999 


OOOL 7 


09910 




BNI 


EEXIT+12«1200* • 


HIT IP A WRITE. 


001T* 


47 


01*90 


01200 


09920 




TF 


EM$Gl*4,ENSG7*4,, 


SET UP ERROR MESSAGE* 


00111 


2* 


01791 


01149 


09930 




6 


HOLIER 




00900 


49 


01390 


00000 


09940 




DORG 


•-3 




00901 















162C- 1441 MONI TOR 1 


VERSION 2 SUPERVISOR ANO 


I.C.I 


.T. 








PAGE 


05950 


ZO 1 


CM 


IOP-* 10, 20, 10, 


TEST IF P/T PINCH ERROR 






00901 


14 


1961 


OCOKO 


05960 




HN I 


Z02 , 12C0 








0092C 


47 


00952 


01200 


05970 




TP 


EM SG 1 *4 »EMSG6»4 , , 


YES -SET UP ERROR MESSAGE. 






009 32 


26 


01791 


01143 


05980 




B 


HCL I E R 








00944 


49 


1 390 


00000 


05990 




CORG 


• - 3 








00952 








06000 


I 02 


C M 


IOP* 10, 30, 10, 


TEST IF P/T READER ERROR 






00952 


1 4 


01961 


OOOLO 


06010 




8N t 


Z 3 » 1 200 








00964 


47 


00996 


1200 


0602 




T F 


EMSG1*4»EMSG5*4» , 


YES -SET UP ERRCR MESSAGE. 






00976 


26 


01791 


01137 


06030 




B 


HCL L6 R 








00911 


49 


1 390 


ocooo 


060*0 




DOR G 


• - 3 








00996 








06050 


Z 03 


C* 


10P ♦ 10 , 40 * 10 • 


TEST IF CARD PUNCH ERRCR 






00996 


|4 


1961 


OQOMO 


06060 




UN I 


Z 04 , I 200 








01001 


47 


01052 


1200 


06070 




TF 


EM SG 1 *4 , E MSG4* 4 , , 


YES -SET UP ERROR MESSAGE. 






01020 


26 


01791 


01131 


06080 




ttNF 


HOLLER , INDS*2 , , 


TEST IF MR! TE CHECK* 






01032 


64 


01390 


00612 


06090 







IOPA , , , 


YES -GIVE FREE RETRY. 






01064 


49 


1076 


CCQOO 


06100 




COR G 


•-3 








01052 








06110 


Z04 


TF 


EM$Gl*4,EMSG3*4, , 


SET UP ERROR MESSAGE. 






01052 


26 


01791 


01 125 


06120 




8NF 


HOLLER , INDS , , 


TEST IF READ CHECK. 






01064 


44 


1 390 


0061 


06130 


I OP A 


30 




NON-DISK I/O INSTRUCTION, 






01076 


30 


00000 


00000 


06140 




ON I 


EE x IT* 12 , 1900, , 


EXIT IF NO ERROR. 






01011 


4? 


01650 


01900 


06150 




TFM 


CHEK1*U,INDS*8, , 


NO -GIVE THE LCOP A WHIRL. 






01100 


16 


01353 


-0611 


06160 







CHECK- 12 








on 12 


49 


01251 


OCOOO 


06170 




CORG 


• -3 








01120 








06180 


EMSG3 


DAC 


3, CDR, 








01121 




3 


X 2 






CDR 


















06190 


EMSG4 


DAC 


3, COP, 








01127 




3 


X 2 






CDP 


















G62CG 


EM SG5 


DAC 
PTR 


3 , P TR » 








0113 3 




3 


X 2 


06210 


EMSG6 


DAC 
PTP 


3, PIP, 








01 I 39 




3 


X 2 


06220 


E*SG? 


UAC 

TYP 


3 , I YP , 








01145 




3 


X 2 


6 2 2 i 


E*SG8 


DAC 


3 , PR T , 








01151 




3 


X 2 


062 30 




DOR G 


19982, 


CONTROL TO WRITE ON CISK. 






19982 








06240 




use 


1 . 1 








19982 




1 




062S0 




I 

CSA 


C S A 1 2 








19987 




5 


X i 
















19917 




J 9 7 8 6 




0626u 




cc 


3,6 








1 9990 




3 








-06 


















C)f 2 70 




USA 


ERROR 








1999!* 




5 


X I 
















1 9995 




-06 32 




06280 




CSC 


1 , ' 








19996 




I 




0o290 




ERHQk ROUTINE STAGE 


3 














6 300 




PROCESSES. INVALID PROG RAH NAMED LOAQS ANO DRIVE 


CODES 










06310 




CORG 


ERROR 








00632 








6 320 




b 


HQ4*6, ,6, 


F / r C c T E ISO I RE CT BRANCH. 






00632 


49 


0149K 


00000 


06330 




DO*, v 


• - 3 








00640 








06340 




I FM 


B LRNAM, , 


INITIALIZE FOR ILLEGAL NAME 


CALL. 




00640 


16 


01511 


-0720 


06350 






EMSG U4.EMSGI 1*4 








00652 


26 


01791 


01091 


0636U 




TUN 


H03* 1 ,9 






1 f> 


00664 


15 


01463 


00009 








1620-1443 MONITOR 1 


[ VERSION 2 SUPERVISOR AND 


I.O.R 


■ T . 








PAGE 


06 3 70 




TFM 


H0i»6,AA02A*6 








006 76 


16 


1461 


-02 35 


6 3 80 




TD 


AA02A* 18 ,SIUP* 12 








00689 


25 


0Q247 




06390 




TFM 


b I + 5 » RD I M 








00 700 


16 


C 1 516 


-0 781 






M 


HOLLER 










49 


1390 


C CO 


064 10 




DOR G 










00720 








06420 


AN AM 


R A TY 


88 LFF ♦ 1 » , ♦ 


RE AU THE TYPED NAME. 






00 720 


3 7 


01211 


fifl 1 fifi 

UU A WW 






SPTY 










<vi lit 




UwvvU 




06440 




1 


• -24,400, , 


ALLOW RE-ENTRY IF SSW4. 








* 


n't s ij 


00400 


064 50 




SF 


BB LFF 
















06460 




TF 


AA02A* 16.BBUFF* U 










fa 


ft i f «rt 




064 70 




8 


EE X I T ♦ 12 








n 




01690 


nnnnn 
UUUUU 


06480 




DORG 


*-3 
















06490 


RC IM 


RNTY 


08LFF, ,, 


READ THE TYPED 01* NUMBER. 










01212 


00 inn 
ft? 


06500 




SPTY 










COBuQ 




UUUUU 


00 10 1 


06510 




BI 


•-24,400 
















06520 




SF 


B81FF 














UUUUv 


06530 


RC 1M 1 


NOP 


RMAP*20, , „ 


NOP/BRANCH SWITCH. 








A I 




UUUUv 


06540 




TF 


AA04*7,BBUFF*3 








... ' 


>A 






06550 




TFM 


BKPT,AB06*24, , 


SET RETURN POINT. 






UO B O U 


16 


00467 


J 1 171 


06560 




8 


EEXITM2 








00872 


49 


1650 


OCOOO 


065 70 




CORG 


• -3 








00180 










MERR 


TF 


RMAP-2tCNT*D»6 










_ 

:* 


QO . 


021 IK 


06590 




TFM 


SI, RMAP 












ft 1 *•! 


-ftQAA 


06600 




TFM 


Bl*5.RNAP 








009C4 


16 


1516 


-C964 






TF 


EMSCI»4,EASG10»4 








0C916 


26 


1 79 1 


1019 


06620 




TFM 


BKPT »D 10+60 
















06630 




TFM 


H03*6,RMA*-5 








00940 


I* 




-0959 






B 


HOLLER 












1390 


uuuuu 






OORG 


• -4 
















06660 




DC 


5,0' 








^ ' 












-000 


















06670 


RMAP 


TDM 


ROIMl+1,9 








00964 


I) 


00137 


00009 


06680 




6 


ROIK 








00976 


49 


00711 


00000 


06690 




DORG 


•-3 








00914 








06 700 




TF 


CN TWO* 6 » HUFF* 3 








00914 


26 


02 176 


1299 


06710 




a 


EE* IT*!?,., 


GO TRY AGAIN WITH NEW MAP NUMtfl. 




00996 


49 


1690 


00000 


06720 




001 G 


•-3 








01004 








067)0 


RDVCD 


TFM 


ll.ROlMtt 


INITIALIZE FOR ILLEGAL OftfVE 


CODE 


ERROR, 


01004 


16 


1511 


— 0711 


067*0 




TF 


EWSG1*4,IK9G20*4 








01016 


26 


1791 


1097 


06750 




TDM 


HO 3- 1 1,9 










i* 

w 


1491 








f F 


RCIMl*4 t 0C0C*ll 








01040 


26 




01070 


0677G 




B 


R*A*-20 








01 Of 2 


49 


00700 


ooooo 

wUVUU 


06 710 




OORG 


• -3 








01040 








06790 


OCCC 


TO 


TE*P-5,iftUfF»0 








01060 


H5 


020 14 


01232 


06100 




G 


tEKlf*l2 








01072 


49 


01690 


WW www 


06110 




UQRG 










01010 








Ofetao 




C-AC 


3 








01011 




3 


X 2 






*AP 


















06630 


E*SC1 I 


tit 


3 








01017 




1 


X 2 






HAM 




















ehsg2» 


DAC 


3 f MOOe 








01093 




9 


X 2 






StOO 


















otssc 




0016 


19912, 


lOMTftOL TO WRITE ON DISK, 






19912 








06160 




DSC 


t* 1 








19912 




I 




06170 




1 

OSA 


0$A13 








19917 




9 


X 1 



10 









1620- 1443 MONI TOR 


VERSION 2 SUPERVISOR AND 1.0. R.T. 








PAGE 












19987 




J9772 




06880 




cc 






19990 




3 








-05 














06890 




CSA 


6 R R CR 




19995 




5 


X I 












19995 




-0632 




06900 




DSC 


1 ♦ • 




1 9996 




1 




069 1 




ERROR ROUTINE STAGE 


4 










06920 




MONITOR CONTROL CARD 


TRAP PROCESSOR 










069 30 




DORG 


ERROR 




0C6 32 








06940 




TC 


YC0*8,F SPS, i 


It 5 1 Ir FRCP LLNTHLL LAHU bLUKLt. 


006 32 


2 5 


C 068 6 


C0429 


06950 




TD 


YOO* I I , I0P*9 




00644 


25 




1 96 7 


06960 




CF 


YCC*8 




00656 


3 3 


C0688 


OCOOO 


06970 




CF 


YOO* I I 




00668 


33 


00691 


00000 


06980 


Y 00 


CH 


* ♦ « ,XX , 7 10 




00680 


14 


00688 


-00- 


06990 




BN I 


EEXIT+12, 1200 




00692 


4 7 


1650 


1 200 


7000 




CM 


IOP*l,37, 10, » 


YES -TEST IF ALPHAMERIC READ. 


00 704 


1 4 


1 959 


OCOL 7 


07010 




B I 


Y02, 1200 




00716 


46 


00892 


01200 


702 




CM 


[OPM ,36,10,, 


NU -TESf IF NUMERIC READ. 


00 728 


14 


1959 


000L6 


07030 




BN I 


EEXIT*12, 12C0 




00 740 


4 7 


1650 


1 200 


70*0 




A 


•♦23,CNTWD*4, , 


YES -TEST FOR SECCNC RECORD ''ARK. 


00 752 


2 1 


00 775 


02174 


7050 




BNR 


EEXIT*12, 1,7 




00764 


45 


01650 


-0001 


7060 




r dm 


OVRLAY* 10* It 11 i 


YES -SET INDICATOR. 


007 76 


15 


00478 


0000 J 


7070 


V 1 


AM 


•-13,1,, 


TEST IF END OF JOB CARD. 


00 786 


14 


00775 


-0001 


07080 




BNR 


YO IB, •-25, I 1 




00800 


45 


00860 


0C77N 


07090 




AM 


— 37, I 




00812 


1 1 


00775 


-000 1 


7100 




BNR 


YC IB, •-49, t 1 




00824 


4 5 


00860 


CO 7 7N 


7110 


Y 1 A 


TDM 


SYSCAL ,0, , 


YES -SET END OF JOB INCICATOR. 


00636 


15 


00475 


OCOOO 


7120 




TDM 


OVRLAY* 10,0, , 


CLEAR COKTRCL RECCRD TRAP INC. 


00848 


I 5 


C04 78 


ccooo 


07130 


Y0 1 R 


RCTY 


» , , 


TYPE TRAP MESSAGE. 


00860 


34 


00000 


00102 


7140 




MATY 


EMSG13 




008 72 


39 


01209 


00 100 


07150 




B 


A PHA SE ♦ 12, , , 


EXIT TO THE MONITOR. 


00884 


49 


01626 


00000 


07160 




DORC 


• -3 




00892 








07170 


Y02 


TD 


Y0 7*9»CNTWD*4,l I , 


MOVE INITIAL R.M. 


00892 


25 


01 125 


0217M 


07180 




A 


• *2 ?,CNTWD*4, , 


TEST F OH SECCNC RECCRD MARK. 


00904 


2 1 


00927 


02174 


071 90 




BNR 


EEXIT*12.2.7 




00916 


45 


01650 


-0002 


07200 




TD 


YC7*ll. •-l.il, 


YES -MOVE SECOND R.M. 


00928 


25 


01127 


0C92P 


07210 




TDM 


OVRLAY* 10, 1 , , 


SET INDICATOR. 


00940 


15 


00478 


00001 


07220 








TEST IF ENC OF JOB CARD. 


00952 


2 I 


00975 


0092 7 


72 30 




BNR 


Y06.2.7 




00964 


45 


1008 


-0002 


072*0 




A 


• ♦23, •- 1 




00976 


21 


00999 


00 H 


07250 




BNR 


Y06.2.7 




00988 


45 


01008 


-0002 


07260 






YO 1 A t , , 


YE S. 


01000 


49 


00836 


00000 


072 70 




OORG 


• -3 




01GC8 








07280 


Y06 


A 


• ♦47.Y02O5, , 


MOVE THE CONTROL CARC TU THE MONITOR 


01008 


21 


1055 


00927 


07290 




A 


• ♦ 18, •♦35, , 


BUFFE R. 


01020 


21 


01038 


01055 


07300 




TO 


157 ,S I0P* 12.2 




01032 


25 


-0 157 


01816 


07310 




TR 


ERROR ,1,7 




01044 


3 1 


00632 


-COOl 


07320 




TFM 


MCCBUFM.O, 10 




01056 


16 


13001 


000-0 


07330 




AM 


• -6,2 




01068 


11 


01062 


-0002 


07340 




CM 


• -18,MCCBUFM6l 




01080 


14 


01062 


J3161 


07350 




BN I 


•-36, 1300 




01092 


47 


01056 


01300 


07360 




TR 


MCCBUF^4, ERROR 




01 IC4 


31 


13004 


00632 


07370 


Y07 


TFM 


MCCBUFO,XX,8 




Oil 16 


16 


13003 


0-000 


07380 


YC7A 




MCCBUF , t 2 , 


INITIALIZE FLAGS IN BUFFER. 

1 7 


01128 


32 


J 3000 


00000 








162C- 1443 MONI TOR 


I VERSION 2 SUPERVISOR AND I.C.R.T. 








PAGE 


07390 




AM 


YC7A+6.1 




01140 


1 1 


1 1 34 


-0001 


07400 




CF 


Y07A^6, ,6 




01152 


33 


1 1 3M 


OCOOO 


07410 










01 164 


11 


01 134 


-0001 


07420 




CM 


Y07A*6,MCCBUF^ 160 




01176 


14 


01134 


J3160 


07430 




BN I 


YC7A, 1300 




01188 


47 


01128 


01300 


07440 




B 


YO 10, , , 


GC TO TYPE-OUT. 


012C0 


49 


00860 


00000 


7450 




UORC 


•-3 




01208 








07460 


EMSG13 


DAC 


8, TRP ERR ' , 




012C9 




8 


X 2 






TRP 


ERR • 












07470 




DORG 


19982, , 


CONTROL TO taRlTE ON CISK. 


19982 








07480 




DSC 


1, I 




19982 




1 




07490 




1 

DSA 


DSA 14 




19987 




5 


X 1 












19987 




J9777 




07500 




DC 


3,6 




19990 




3 








-06 














07510 




OSA 


ERROR 




19995 




5 


X I 












19995 




-0632 




07520 




DSC 


1, • 




19996 




1 




07530 




SPS SUPERVISOR AND RELOCATABLE LOAOER CALLER STAGE 1 










07540 




DORG 







00000 








07550 




TFM 


OLDCYM.MCVL.IO, 


RESTORE MONITOR MODULE CYLINDER INO. 


00000 


16 


02 132 


000R8 


07560 




BNF 


LCAOl. 0LD0A*6, , 


DETERMINE IF NQN-TR A DISK LOAO. 


00012 


44 


00072 


0044 7 


07570 




TDM 


LOINPTtOt lit 


VES -SET I NDI CATQR. 


00024 


15 


00428 


0000- 


07580 




TR 


D IMENT » MAPENT , , 


MOVE WORKING OOA TO COMMON SLOT. 


00036 


31 


00402 


02144 


07590 




BNF 


♦♦24,CNTWD*7,, 


HQ -TEST IF SPECIFIEC LCAO ACDRESS. 


00048 


44 


00072 


02177 


07600 




TF 


HlGH.CNTWOMl,, 


VES -MOVE IT INTO THE HIGH INDICATOR. 


00060 


26 


00434 


02181 


07610 


LCAOl 


BNF 


LCA06A.LDINPT, , 


BRANCH IF TRA CALL. 


00072 


44 


00204 


00428 


07620 




BD 


LCA04.LDINPT,, 


TEST IF CALL FOR DISK LOAO. 


00084 


43 


00120 


00428 


07630 




BNF 


LCA06.HAPENT*13, , 


TEST IF CALL FOR SPS SUPERVISOR. 


00096 


44 


00 180 


02157 


07640 




SF 


FSPS,tt 


res -SET FLAG. 


00108 


32 


00429 


00000 


07650 


LCA04 


BNF 


LCA(X6,FSPS, , 


TEST IF CALL FOR SPS SUPERVISOR. 


00 120 


44 


00160 


00429 


07660 


LCA02 


TFM 


IOXX t »*23.. 


READ SPS SUPERVISOR INTO CORE. 


00132 


16 


00565 


-0155 


07670 




B 


I0GT,LCA08,7 




00144 


49 


00566 


-0237 


07680 




TFM 


I0XX,»+23, , 


RESTORE MPY TABLE AND EXECUTE SUP. 


00156 


16 


00965 


-0179 


07690 




8 


I0GT,LCA09 V 7 




00168 


49 


00566 


-0245 


07700 


LCA06 


BNF 


♦♦24,DIMENF*14, ♦ 


TEST FOR SPECIFIED ENTRY AODRESS • 


00180 


44 


00204 


00416 


07710 




TF 


DIMENT*13,DIMENT^18, ,YES -LETS PLAY BALL. 


00192 


26 


00415 


00420 


07720 


LCA06A 


TR 


OL0DA.LCA07, , 


LOAD AND EXECUTE STAGE 2 OF CALLER. 


00204 


31 


00441 


00223 


07730 




B 


0VRLAVM2 




002 16 


49 


00460 


A/IAAA 

uouuu 


07740 




DORG 


•-4 




00223 








07750 


LCAC7 


DS 


0,»*l 




00223 









07760 




OSA 


0SA16 




00227 




9 


X 1 












00227 




J9767 




07770 




DC 


3.3 




00230 




3 








-03 














077tO 




DSA 







00239 




9 


X 1 












00239 




-0000 




07790 




OSC 
t 


It* 




0023* 




1 




07800 


LCA08 


OSC 


2.22 




0023T 




2 





22 18 



162Q-1443 MONITOR i VERSION 2 SUPERVISOR AND I.C.R.T. 
CSA LCAC3 



PAGE 
5 X 1 



07820 OSC 1,« 

07830 LCA09 CSC 2,-22 

2K 

078*0 CSA ICAC2A 

07850 DSC 1,' 

07860 LCA02A OSC I , I 
1 

0787C DSA DSAC2 



CG243 
002** 



00251 



00251 
00252 



00253 
0C258 



*0273 
i 



2 

5 X 



-0253 
I 



I 

5 X 



07880 
07890 



00258 
0C261 



J9636 

3 



CSA SLPENT 



07920 L C AO 3 CSC 



It ' 

1, 1 



CSA CSA50 



0C266 
00271 



00271 
0C272 



00273 
00278 



-0100 

5 X 



-2934 

1 



1 

5 X 



07940 
07950 



07970 
07980 



DC 3,5C 
DSA SYSCRG-2 



CORG 19982, 
CSC 1,1 



DSA DSA15 



CCNTRQL TU *RITE CN CIS*. 



00278 
00281 



00286 
00287 



19982 
19982 



J7024 
3 



-2400 
i 



1 

3 X 



8000 

08010 

08020 
0B030 
08040 
0H050 

oaofco 

08070 
08080 



DC 6,C 
-0000' 

RELOCATABLE LOADER CALLER 

DORG 

BNF LCBC2.L0INPT, , 
TF CNTWD*6,HAL T*6, 
BO LCBCl.LDINPT,, 
TON SKC3+1.9,, 
TF* SK04,«»*20 



SI AGE 2 

8 RANCH IF IRA CALL • 
SAVE POSSIBLE RETURN ADDRESS. 
BRANCH IF NCN-DtSK LCAO. 
DISK -COMPUTE PHYSICAL DRIVE CCUE. 



19987 
19990 



QCOCO 

ocooo 

00012 
0C024 
00036 
00046 



J9763 
3 



A* 00200 C0428 

26 02176 00462 

A3 00092 00428 

15 01709 00009 

16 021*3 -0068 



ID 



U2C-1443 WON I TOR I VfcRSiUN 2 SUPERVISOR AND I.C.R.T. PAGE 



U8090 




rt 


SEf k 












00060 


49 


01496 


00000 


U 8 I C 




DOR G 


• - 3 












00068 








08110 




TD 


OIMEMT,MAPENT, , 


GIVE 


DRIVE 


CCDS 


TC LOADER 




0006(1 


25 


3U402 


02144 


08120 




TF 


CNTfcD+6, IOXX , , 


SAVE 


POSSIBLE RETURN ADDRESS. 




CC080 


26 


02176 


Q0565 


081 30 


LCB01 


TO 


DR I VE-5.TEMP-5, » 


MCVE 


THE DERIVED 


CRIVE CODE. 




0009E 


25 


02164 


02014 


08140 




TR 


CNTWD*13.DRI VE-5, , 


SAVE 


CALLING PARAMETERS . 




00104 


11 


02111 


02164 


08150 




BNF 


• ♦24.SPSHLP* t , , 


WATCH 


CUT FOR THOSE NON-DISK 


MAIN-LINE 


00116 


44 


00140 


00469 


08160 




SF 


FSPSttt 


LCADS FOR 


THE : 


SPS SUPERVISOR. 


00128 


32 


00429 


OCOOO 


08170 




BNF 


•♦36.SPSMLP, , 


TEST 


IF SPS 


MAIN 


LINE PRCGRAM. 


00140 


44 


00176 


Q0468 


08180 




CF 


SPSMLP, , , 


YES - 


INDICATE RELOCATABLE. 




00152 


33 


00446 


CCOOO 


08190 




SF 


SPSMLPM 












00164 


12 


00469 


00000 


08200 




BNF 


• ♦ 24 »C I N J T » , 


TEST 


IF TO 


INITIALIZE LOADER 


FIELD. 


00176 


44 


00200 


00427 


08210 




TFM 


l*ODR,Q,, 


YES. 










001.68 


16 


00439 


-0000 


08220 


LCB02 


TFM 


IOXX, •♦23, , 


WRI TE 


UPPER 


SAVE 


AREA ON DISK. 


00200 


16 


00565 


-0223 


08230 




B 


!ORBC,LCB08*7 












00212 


49 


00520 


-0255 


0H240 




TF 


HALT*8,CNTW0U8, 11 


, IN! 11*1 126 


CYLINDER POSITICN 


FCH LOADER • 


00224 


26 


00464 


02180 


0H250 




VR 


OLDDA,LCBIO, , 


RE AD 


ANO EXECUTE 


THE LOADER. 




00216 


31 


00441 


00278 


08260 




B 


OVRLA V* 12 












00248 


49 


00460 


00000 


08270 




OORG 


• -4 












00255 








08280 


LCbOS 


DSC 
22 


2,22 












00255 




2 




08290 




DSA 


LC8C9 












00261 




5 


X I 




















00261 




-0263 




G8300 




DSC 


It' 












00262 




1 




08310 


LCB09 


DSC 


1*1 












00263 




1 




08320 




1 

DSA 


DSAC7 












00268 




9 


X I 




















00268 




J945* 




08330 




DC 


3,2 












00271 




3 








-02 






















08340 




DSA 


ERR6TM5G0 












00276 




9 


X 1 




















00276 




-not 




08350 




OSC 


1» • 












0C2T7 




1 




08360 


LCB10 


OS 


o»»n 












00276 









08370 




DSA 


DSA51 












00282 




9 


X I 




















00212 




J9600 




08380 




DC 


3.9 












00285 




3 








-09 






















08390 




DC 


6,5C2* 












00291 




' 6 








-G5C2* 




















08400 




DQRG 


13982* 


CONTROL TO 


WRITE 


ON CISK. 




19912 








08410 




OSC 


M 












11982 




1 




08420 




I 

OS* 


05*16 ? 












I9*i? 




9 


X 1 




















19917 




J9767 




08410 




cc 


3,2' 












19990 




3 






























01440 




0C 














1999* 




6 











1620-1443 MQNI TOR 


1 VERSION 2 SUPERVISOR A NO I.C.R.T. 








PACE 


08450 




RELOCATABLE LOADER 


RETURN ANALYZER STAGE 1 










08460 




nORG 







OCCCO 








08*70 




T R 


□LCDA.LRA05, , 


RESTORE IORT AND THE UPPER SAVE AREA 


OCOCO 


31 


00441 


00269 


08480 




fi 


VR L A Y ♦ 12, , , 


VIA THE OVERLAY READ ROUTINE. 


00012 


49 


00480 


00000 


08490 




CQHG 


3 




00020 








08490 




TFM 


BN I ♦ 1 8 » IBMMOD* I 3 , 


711, RESTORE CVRLAY ROUTINE EXIT. 


00020 


16 


00510 


-0451 


08500 




TR 


QL CCA i LR A06 , , 


INITIALIZE FOR STAGE 2. 


00032 


31 


00441 


00283 


08510 




TF 


CNTWD*18,HALT*8,6 


, RESTORE LOAD MODULE CYLINDER I NO . 


00044 


26 


0218Q 


00464 


08520 




TFM 


hAL T* 1 1 ,DI MfNT* I 8 


,711, SET STAGE 2 RETURN ADDRESS. 


00056 


16 


00467 


-042- 


08530 




HNF 


LRAC2.LDINPT, , 


BRANCH IF TCD EXIT F ROW LOACER. 


00068 


44 


00176 


00428 


08540 




TR 


OR I VE-5 tCNTHD* 1 3 , 


, RESTORE CALLING PARAMETERS. 


00080 


31 


02164 


02183 


08550 




TF 


10XX,CNTWD*6 




00092 


26 


00565 


02176 


08560 




TO 


TEMP-5.0RI VE-5 




00104 


25 


02014 


02164 


08570 




TR 


MAPENT ,DI WENT 




C01 16 


31 


02144 


00402 


08580 




TFM 


HAL T* I 1 ,CHK4, t 


SET STAGE 2 INDIRECT RETURN ADDRESS. 


00128 


16 


00467 


-1408 


08590 




BNF 


• *24,OVRLAY*2l i . 


CHECK FUR NON-EXECUTE OF NCN-UISK LOAD. 


00140 


44 


00164 


00489 


08600 




CF 


CNThDMitt 


YES -CLEAR THE EXECUTION INDICATOR. 


00152 


33 


02171 


00000 


08610 




CF 


0VRLAY*21 




00 164 


33 


00489 


00000 


08620 


L R A 02 


TFM 


0LDCY*1 ,MCYL, 10, 


RESTORE MONITOR MODULE CYLINDER INO. 


00176 


16 


02132 


000R8 


08630 




TFM 


HAL T*6,8 




00188 


16 


00462 


-0008 


08640 




BNF 


OVRLAY* 12.FSPS, , 


TEST IF CALLED BY SPS SUPFRVISCR. 


OO2C0 


44 


00480 


00429 


08650 




BNF 


OVRLAY* 12tSPSHLP*l , ,Y6 S -TtST IF MAIN LINE PROGRAM LOAD. 


00212 


44 


00480 


00469 


08660 




TFM 


HAL T* I 1 ,DIMENT*18 


,711, SET STAGE 2 RETURN ADDRESS* 


00224 


16 


00467 


-042- 


08670 




TR 


OLDDA,«* 19, , 


READ IN SPS SUPERVISOR KETURN 


00236 


31 


0044 1 


00255 


08680 




B 


OVRLAY* 12.0SA1 7, , 


ANALYZER. 


00248 


49, 


00480 


19770 


08690 




DC 


3,2 




00262 




3 








-02 














08700 




DC 


6,0 ' 




00268 




6 








-0000" 












08710 


L R A05 


DS 


0,»*l 




00269 









08720 




DSA 


DSAC6 




0C273 




5 


X 1 












00273 




J9640 




08730 




nc 


3,18 




C0276 




3 




08740 




- 1 8 
OSA 


502 




0028 1 




5 


X I 












CC28 1 




-0502 




C8750 




DSC 


1 , • 




0C282 




1 




08760 


L R A06 


DS 


0,««l 




00283 




o 




08770 




DSA 


DSAC1 




00287 




5 


X 1 












00287 




J9635 




08780 




nc 


3,4 




00290 




3 








-04 














08790 




OiA 


G 




00295 




5 


X I 












00295 




-0000 




08800 




DSC. 


1 . • 




00296 




1 




08810 




DOR G 


1S982, 


CONTROL TO WRITE CN CISK. 


19982 








08820 




OSC 


1 , 1 




19982 




1 




08830 




1 

DSA 


DSA 18 




19987 




5 


X 1 



21 









U20- 1443 MCNI TCR 


I VERSION 2 SUPERVISOR AND I.C.R.T. 








PAGE 












19987 




J9792 




08840 




DC 


3,3 




19990 




3 








-03 














08850 




oc 


6i0» 




199<36 




6 








-0000' 












08860 




SPS SLPERVISOR RETURN ANALYZER STAGE 1 










08870 




DORG 







00000 








08880 




CF 


F SPS, , , 


CLEAR THE SPS SUPERVISOR FLAG. 


oooco 


33 


C0429 


ocooo 


08890 




BP 


SRAG2,LDINPT, , 


BRANCH IF NCN-DISK LOAD . 


00012 


43 


00060 


0C428 


08900 




BNF 


SRA02.SPSMLP, , 


TEST IF RELOCATABLE. 


00024 


44 


00060 


00468 


08910 




CF 


SPSMLP, , , 


NO -TURN OFF THE INDICATOR. 


00036 


33 


00468 


OCOOO 


08920 




TFM 


HALT*11,CHK4*12, , 


SET STAGE 2 INDIRECT ADDRESSES. 


00048 


16 


00467 


-1420 


08930 


SRA02 


CF 


SPSMLP* 1 , , , 


TURN OF MAIN-LINE PROGRAM INDICATOR. 


00060 


33 


00469 


COOOO 


08940 


SRAOi 


TFM 


HAL T+6,8 




00072 


16 


00462 


-0008 


08950 




TFM 


OLDCY*l,MCYL, 10, 


RESTORE MONITOR MOOULE CVLINOER INO. 


00084 


16 


02132 


000R8 


08960 




TFM 


GTEST*54,0VRLAY, , 


RESTORE BRANCH ADCRESS IN IORT. 


00096 


16 


01210 


-0468 


08970 




TDM 


RM I , INOS* 13.6, 


SET TWO RECORD MARKS IN THE SPS 


001C8 


15 


0221- 


00623 


08971 




DC 


1,' 




00119 




l 




08980 




TDM 


RM2,INDS*13»6, 


SUBROUTINE WORK AREA. 


00120 


15 


0221N 


00623 


08981 




DC 


1 , ' »• 




00131 




1 




08990 




TR 


OL DDA , SR AO 3 , , 


READ AND EXECUTE STAGE 2. 


00132 


31 


00441 


00152 


09000 




B 


OVRLAY* 12 




00144 


49 


00480 


OCOOO 


09010 




DOR G 


• -3 




00152 








09020 


SRA03 


DS 


0,»*1 




00152 









09030 




DSA 


D SAO 1 




00156 




5 


X I 












00136 




J9635 




09040 




DC 


3,4 




00159 




3 








-04 














09050 




DC 


6,0» 




00165 




6 








-0000* 












09060 




DORG 


19982, 


CCKTROL TO WRITE ON DISK. 


19982 








09070 




DSC 






19982 




1 




09080 




1 

DSA 


DSA 17 




199B7 




5 


X I 












19987 




J9770 




09090 




DC 


3,2 




19990 




3 








-02 














09100 




DC 


6,0» 




19996 




6 








-0000' 












09110 




SPS SUPERVISOR AND 


LOADER RETURN ANALYZER STAGE 2 










09120 




DORG 







00000 








09130 




8 


HALT*6t tftt 


INDIRECT EXECUTE BRANCH. 


00000 


49 


0046K 


00000 


09140 




DORG 


8 




oooos 








09150 




SF 


ClNlT,, , 


RESTORE LOADER INITIALIZATION INO. 


OOOOB 


12 


00427 


00000 


09160 




BNF 


•♦2CFSPS, , 


TEST IF CALLED BY SPS SUPERVISOR. 


00020 


44 


00040 


00429 


09170 




B 


IOXX, ,6, 


YES -RETURN TO IT. 


000)2 


49 


0056N 


00000 


09110 




DORG 


•-3 




00040 








09190 




BO 


•♦20,SYSCAL,, 


TEST IF CALLED BY A SYSTEM PROGRAM. 


00040 


43 


00060 


00475 


09200 




B 


HAL T* 1 1 » » 6 , 


NO -RETURN THROUGH PRESET BRANCH. 


00092 


49 


0046P" 


00000 


09210 




DORG 


•-3 




0C06C 








09220 




TR 


0LDDA,»*19,, 


EXECUTE SYSTEM RETURN ANALYZER. 


000*0 


31 


00441 


00079 


09230 




B 


0VRLAY*12.0SA19 




00072 


49 


00480 


19795 



22 



162C-1**3 MONITOR I VERSION 2 SUPERVISOR ANO l.O.R.T. PAGE 



092*0 




DL 


3 i 3 




00084 




3 








- 3 














092 50 




cc 


6 » • 




00092 




6 








-0000 














09260 




DORC 


1<)982 , 


CONTROL TO WRITE CN CIS*. 


19982 








092 70 




DSC 


I t I 




1*982 




1 




09280 




1 

DSA 


D SAO 1 




19987 




5 


X 1 












19987 




J9635 




09290 




DC 


3, I 




19990 




3 








-01 














093C0 




uc 


6,0« 




19996 




6 








-0000* 












09310 




t OR T LOAD PROCESSOR 


FOR NAMED PROGRAMS SECTION 1 










0932U 




OURG 







ococo 








09330 




A 


•♦23iHALT*6 t i 


MOVE NAME AND POSSIBLE LOAD ADDRESS. 


00000 


2 1 


00023 


00*62 


093*0 




A 


•♦35,1,711 




00012 


21 


000*7 


-CCOJ 


09350 




A 


•t*7,«»23 




0C02* 


21 


000 7 1 


C00*7 


09360 




TD 


•♦*7»26»7 




000)6 


23 


00063 


-0026 


09370 




TO 


•-l,AA0*-l,6 




000*1 


25 


000*P 


0026) 


09380 




™ 


A A02A » 18,711 




00060 


31 


00229 


-C010 


09390 




TDM 


•-25, XX, 6 




00072 


is 


0006P 


00000 


09*00 




TF 


AA02A*23,HALT*6, , 


SAVE IORT CALLING PARAMETERS* 


0008* 


26 


00252 


00*62 


09*10 




TR 


AA02A*2*,CNTWD 




00096 


11 


0O253 


02170 


09*20 




TFM 


IDXX.f *23, , 


SAVE CCRE TO BE CVFRLAID. 


00108 


16 


00565 


-0131 


09*30 


AAQ2 


D 


I0R0CAA03.7 




0012C 


69 


C0520 


-0261 


09**0 




TFM 


I0XX,»*23, , 


RE AD AND EXECUTE SECTION 2. 


00132 


16 


00565 


-0159 


09*5C 




8 


IOGT,«* 12, 7 




001** 


*9 


00566 


-0156 


09*60 




DSC 


2,-22 




00 156 




2 




09* 70 




2K 
DSA 


• + 7 




0C162 




5 


X I 












00162 




-016* 




09*80 




DSC 


1, • 




00163 




1 




09*90 




DSC 


1. 1 




0016* 




1 




09500 




1 

CSA 


CSAC9 




00169 




5 


X I 












00 169 




J97** 




09510 




DC 


3,5 




00172 




3 








-05 














09520 




DSA 


ABOO 




OCl 77 




5 


X 1 












00177 




J0902 




09530 




OSC 


1, ' 




00178 




1 




095*0 




CORG 






00229 








09550 


A A 2 A 


DSC 


32,0 




00229 




32 








occoccccccaocoocococcoccccccccoo 










09560 


A AO 3 


DSC 


2,02 




00261 




2 




09570 




02 
DSA 


• ♦7 




00267 




5 


X 1 










2 3 


CC267 




-0269 










1620-1**3 MONITOR 


I VERSION 2 SUPERVISOR ANO l.O.R.T. 








PAGE 


09580 




DSC 


I, ' 




00268 




1 




09590 




OSC 

I 


!• 1 




00269 




1 




09600 




DSA 


HOC 




0027* 




5 


X 1 












0027* 




-1*00 




09610 




DC 


3, 10 




00277 




3 




09620 




-10 
DSA 


SYSCRG*8500 




0C282 




5 


X 1 












00282 




J0902 




09630 




DSC 


1»' 




00283 




1 




096*0 


A AO* 


DSC 


8.32CC0C0' 




0028* 




8 








3200000* 












09650 




CSC 


5,0« 




00292 




S 








0000' 














09660 




DOR G 


19982, 


CONTROL TO WRITE ON DISK. 


19982 








09670 




DSC 


1,1 




19982 




I 




09680 




I 

DSA 


DSA20 




19987 




5 


X 1 












199B7 




J9798 




09690 




CC 


3,2 




19990 




3 








-02 














09700 




OC 


6,O t 




19996 




6 








-0000* 












09710 




MONITOR CALLER SUBROUTINE -ALSO PROCESS ES RETURNS TC THE 










09720 


• 


DUP SLPERVISOR FROM 


ITS CALLS TO THE RELOCATABLE LOADER. 










09730 




OORG 







00000 








097*0 




TFM 


OLDCY»l,MCYL,10, 


SET CYLINDER POSITION. 


oooco 


16 


021)2 


OOMB 


09750 




B 


MCAC3 




00012 


69 


00 100 


00000 


09760 




OORG 


20 




00020 








09770 




TFM 


HALT*6,MBQQ0, , 


SET ENTRY TO THE MONITOR. 


00020 


16 


00662 


-2902 


09780 




TFM 


BN1 *18, IBMMOD+13, 


711, RESTORE OVRL AY ROUTINE EXIT. 


00012 


16 


00510 


-0451 


09790 




8 


MCAOl 




00066 


69 


00208 


ooooo 


09800 




DORC 


•-3 




00092 








09810 


MCAOO 


RNF 


MCAC6.HALT, , 


TEST IF MONITOR ALREADY IN CCRE. 


00042 


66 


00290 


00*56 


09820 




B 


HB000, tt 


YES -BRANCH DIRECTLY TO IT. 


00066 


49 


02902 


ooooo 


09830 




CORG 


•ft, 




00071 








098*0 


NCAQ* 


DSC 


2,2 




00071 




2 








02 














09850 




OSA 


MCACOA 




000T7 




5 


* I 












00077 




•0079 




09860 




OSC 


1 ♦ ' 




000 7 B 




1 




09870 


MCACOA 


DSC 


uc,» 


DOA TO SAVf CCRE CM B-TM CVLINOER 


00079 




I 




09880 






OC 


5, 1*00 » ; 


OF 01 SK SCRATCH AREA 


0006* 




5 








-1*00 












09890 




OC 


1,177 




00087 




3 








J77 














099C0 




DSA 






00092 




9 


X 1 



2'» 



162C-1443 MONITOR I VERSION 2 SUPERVISOR AND I.C.R.T. 



PACE 25 















00042 




-2302 




09910 




CSC 


1.' 






00093 




I 




09920 




• . 

DORG 


ICO 






001C0 








09930 


MCA03 


RNR 


•♦2*» SYSCAL i * 


REPLACE ANY SYSCAL R.M. BY 0. 




00100 


45 


00124 


00475 


099*0 




tum 


SYSCAWO 






00112 


15 


0Q475 


ooooo 


09950 




BNF 


MC ACO i SYSCAL » « 


TEST IF DLP CALL. 




00124 


44 


C0052 


C0475 


09960 




TDM 


SYSCAL, 5, , 


YES -SET SYSCAL RETURN CODE. 




00136 


15 


00475 


00005 


09970 




TFM 


I0xx,»*23, , 


SAVE CORE FOR THE DUP SUPERVISOR. 




00148 


16 


005*5 


-0171 


09980 




B 


IORHC » MC A04 , 7 






00160 


49 


00520 


-0071 


09990 




TFM 


I0xx,»*23, , 


LOAD THE DLP SUPERV ISOR. 




00172 


16 


005*5 


-0195 


09991 




B 


I0GT,MCAQ5,7 






00184 


49 


005** 


-0241 


10000 




TFM 


HALT*6,CHK4*12, , 


SET UP EXIT AFTER RESTORATION CF 


TABLES. 


00196 


16 


004*2 


-1420 


10010 


MCA01 


TR 


QL00A,»M9, , 


RESTORE ARITH TABLES AND EXECUTE 




00208 


31 


00441 


00227 


10020 




B 


OVRLAY.DSAOl , , 


MCNITOR OR DUP SUPERVISOR. 




00220 


49 


004*8 


19*35 


10030 




DC 


3, 4 






00234 




3 








-04 
















100 AO 




DC 


6,0' 






00240 




6 








-0000' 














10050 


MCA05 


DSC 


3.220 






00241 




3 








220 
















10060 




DC 


5, 139' , 






00248 




5 








-139 




















TR 


OLODA,»*19,, 


ocin tiki rue MflwITrR PI ll<^ THF IflRT 


VIA 


00250 


3 1 


00441 


002*9 


10080 




B 


OVRLAY* 12.DSA06, , 


, THE OVRLAY READ ROUTINE. 




00262 


49 


00480 


19*40 


10090 




OC 


3. 109 






00276 




3 








J09 
















10100 




OC 


6. 502' 






00282 




6 








-0502' 














10 L 1 




DORG 


19982, , 


CONTROL TO WRITE ON CISK. 




19982 








10120 




DSC 


1 , 1 






19982 




1 




10130 




I 

DSA 


DSA 19 






19987 




5 


X 1 














19987 




J9795 




10140 




DC 


3,3 






19990 




3 








-03 
















10150 




DC 


6,0* 






19996 




6 





10160 
10170 
10180 
10190 



-0000' 

MONITOR -MAIN ROUTINE 

COMMUNICATION SECTOR ASSEMBLED PARAMETERS 



10200 
10210 


DC 19, C ,C0MM*18, 
-COOOCCCCOOOCOOCOO' 
OC 2,8,C0MM+4l, 


HEADLESS DDA-S FROM SPS AND FORTRAN. 
STANDARD SPS MANTISSA LENGTH. 


02820 
02843 


10220 


DC 


2, 


2,C0MM+43. 


STANDARD SPS SUORUUTINE SET. 


02845 


10230 


-2 
DSC 


1, 


0,C0MM*44, 


STANDARD SPS NOISE CIGIT. 


02846 


10240 




DC 


2, 


8,C0MM*46, 


STANDARD FORTRAN MANTISSA LENGTH. 


02848 


10250 


-8 
DC 


2, 


4,C0MM*48, 


STANDARD FORTRAN FXC. PT . WORD LENGTH. 


02850 


10260 


-4 

DSC 




L,C0MM*49, 


NUMBER OF MODULES IN 1620 SYSTEM. 


02851 



10270 

10280 

10290 

10300 

10310 

10320 

10322 

10321 
10322 
10321 

10330 

10331 

10340 

10350 

10360 

10370 

10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

105*0 

10570 I 

10S80 

10590 

10*00 

10*10 

10*20 

10*30 

10*40 



1620-1443 MONITOR I VERSION 2 SUPERVISOR ANO I.C.R.T. 

MONITOR STATUS INCICATpRS. 



DSC 4,0,MC0MM, 

0000 

CC 2,l,MC0MM*5 

-I 

DC 2,0,MC0MM*7 

-0 
DC 
-0 
DC 
-0 
DSC 



OSC 
5 



2,0,MC0MM*9 
2,0,MC0MM*ll 
l,0,MCOMM*12, 
l,5,C0MM*73, , 



LE QOEUF SLR LE TOIT. 
PRINCIPAL INPLT DEVICE CARD 



••THE PRINCIPAL INPUT OEVICE NUMBER WILL BE 5 FOR CARD SYSTEM 
•• AND 3 FOR PAPER TAPE ON SYSTEM DELIVERY 
DC 1, 1,C0MM*76, 



DC 5,0,C0MM*88, 

-0000 

DSC 1.1,C0MM*83, 

I 

DC 5,0,C0MM*93, 

-0000 

DC 5,0,C0MM*98, 

-0000 

DSC 1,*,C0MM*99 



OBJECT SYSTEM SIZE 
LOWEST AOORESS LOADED BY LOADER • 
FORTRAN SUBROUTINE SET 

CURRENT LOADER RELOCATION INCREMENT. 
CARD SEQUENCE NUMBER FOR LOADING. 



COLO START ENTRY TO THE MCNITOR -CLEAR STORAGE, THEN 

THE FOLLOWING INSTRUCTIONS MUST BE LOACEO INTO 0. 

340003200701 

360003200702 

4902402X 

Y19636113001C2 

WHERE X IS THE MONITOR CONTROL CARD SOURCE - 

-1 TYPEWRITER IF ANY OTHER CIGIT IS SUPPLIED, 

•3 P/T READER THE MONITOR WILL ASSUME THE 

•5 CARO REAOER VALUE I (TYPEWRITER) 

ANO WKERE Y IS THE DRIVE CODE FCR THE PHYSICAL MODULE 
ON WHICH THE MONITOR NOW RESIDES - 



»l 
•3 

• 5 

• 7 



MODULE 
MODULE I 
MODULE 2 
MODULE 3 



IF ANY OTHER DIGIT IS SUPPLIED, 
THE MONITOR WILL ASSUMc THE 
VALUE I (MOCULE 01 



02852 
02857 
02859 
02861 
02863 
02864 
02875 

02878 
02890 
02885 
02895 
02900 
02901 



DORG 


SYSORG 


01*02 








TO 


402*MCR01A,, 


MOVE ARITHMETIC TABLES TO PROPER AOORESS. 02402 


as 


00402 


04455 


TR 


100,102 


01414 


n 


00100 


00102 


TDM 


402,0 


0242* 


15 


00402 


OOOOO 


TO 


•♦23,31 


02438 


as 


014*1 


00011 


BO 


•♦24.MCD01 


02450 


43 


01474 


10*90 


TDM 


31,1 


024*2 


ts 


00011 


00001 


TO 


MCO»M*3,3l 


02474 


as 


02855 


00011 


CF 


32,,, 


SET UP LOGICAL MODULE OR I VE CCOff 0248* 


si 


00012 


ooooo 



26 









1620- 1443 MQNI TOR 


I VERSION 2 SUPERVISOR AND I.O.R.T. 








PAGE 


10650 




TC 


• ♦ 2 3 i 32 • t 


ECLiI VALENCE. 


02496 




02521 




1 0660 




BO 


• ♦ 24 »MCD04 










ir T5n 


10670 




TOW 


32 t 1 








nnnt a 


nrnni 


1 0680 




TO 


MCt)MM*5»32 




* 


25 




00032 


10690 


MAO 10 


TDM 


MCUMM »0 • t 


INITIALIZE COMM SECTOR INDS. 


02546 


1 5 


02152 




107C0 




TDM 


MCUMM*l,0 




02558 


1 5 


02893 


CCOOO 


10710 




TOM 


MCOMMt2tO 




02570 


1 5 


02194 


COOOO 


10720 




TOM 


MC0MM*l2i4 




02582 


15 


02864 


00004 


10730 




TFM 


BNIM81 IBMMQ0*13» 


711 


025^4 


14 


00510 


-045L 


10740 




TFM 


QlDCY»i,MCYLtlO 




02606 


16 


02132 


0C0R8 


10750 




TF 


EQU 1 V>1 |MC0MM*5| , 


READ DDA-S FOR SPS» FORTRAN, DUP, AND 


026 It 


26 


02 124 


02697 


10760 




TD 


I BMMOD » MCOMM* 5 f t 


THE EQUIVALENCE TABLE AND OUNP TMEM 


02610 


25 . 


00440 


02857 


1077C 




8 TM 


U T 5 1 8 » » 


CNTQ DISK ON SPECIAL SECTOR. 


02642 


1 7 


09390 


-0006 


10710 




TR 


SPSCDA ,UT05- I t 1 1 




02694 


31 


10802 


0634R 


10790 




B TM 


LTC5, 1 36 




02666 


1 7 


08390 


-0134 


10800 




TR 


FORDDA t UT05- I » I I 




026 78 


3 1 


10822 


0834R 


10810 




B TM 


UTQ5 i 1 39 




02690 


1 7 


08350 


-0139 


10820 




TR 


DLPDOA » UT05- 1 t 1 1 




02 7C2 


3 1 


10842 


08 34R 


10830 




B TM 


LTQ5,2 




02714 


17 


06350 


-CC02 


10840 




TR 


EQLDDA ,UT05- 1 , I I 




02726 


11 


10662 


0834R 


10850 




TFM 


IOXX,**23 




02738 


16 


00565 


-2761 


10860 




H 


IORBC.MA020. 7 




02750 


49 


00920 


-2769 


10870 




B 


MBQCOt i t 


PROCEED TO THE INTER-PHASE EMRY. 


02762 


49 


02902 


00000 


10880 




DOR G 


• -4 




02764 








10890 


MA020 


DSC 


2,2 2 




02 769 




2 




10900 




2 2 
CSA 


MAC25 




02775 




5 


X I 












02775 




-2777 




10910 




DSC 


I f ' 




02776 




1 




10920 


MA025 


DSC 


1 i 1 




02777 




1 




10930 




I 

OSA 


0SA40 




02782 




5 


X 1 












02782 




J9743 




10940 




CC 


3, 1 




02785 




3 








-01 














10950 




CSA 


SPSCDA 




02790 




5 


x I 












02 790 




J0802 




10960 




CSC 


1, ' 




02791 




1 




10970 




INTER-PHASE ENTRY TC MONITOR. 










10980 




DOR G 


SYSORG»500 




02902 








10990 


M8Q0O 


RCTY 




RESTORE TYPEWRITER CARRIAGE. 


029C2 


34 


00000 


00102 


10991 




TD 


KREC»2,C0MM»76, , 


SAVE SYSTEM SIZE 


02914 


25 


09806 


02878 


10992 




TR 


0LDCY.MB226-1 , . 


SET ARM INDICATORS SO SfcEK MUST OCCUR 


02926 


3 1 


02131 


04046 


1 1000 




TF 


EQUIV*1,MC0MM*5, , 


RESTORE LOGICAL ORIVE 1 MODULE ECUIV. 


02938 


26 


02124 


02857 


1 1010 




TD 


lBMM00tMCQMM*5 




0295C 


29 


00440 


02657 


11020 




SF 


HAL T, , « 


INDICATE PRESENCE CF MONITOR. 


02962 


32 


00456 


ocooo 


1 1030 




TDM 


IOP*37,9,, 


DISABLE CONTROL CARD TRAP. 


02974 


15 


01945 


00009 


1 1040 




OD 


MBC35tOVRLAV*|Ott 


TEST FCK ENTRY VIA CNU CARD TRAP. 


02986 


43 


03162 


00478 


1 1050 




TDM 


M 10 1,0, , 


NO -SET UP TO READ A CNTL CARD. 


02998 


15 


04940 


OCOOO 


I 1060 


MOO 10 


TD 


• ♦34.MCQMMM2, t 


CNAY EATCMAY. 


03010 


25 


0)044 


02664 


11070 




TD 


•♦23, SYSCAL 


£ i 


03022 


25 


0)045 


00475 








1620-1443 MONITOR 


I VERSION 2 SUPERVISOR ANO I.O.R.T. 








PAGE 


1 1080 




TO 


SYSCAL ,MCD06 




C3034 


25 


00475 


10740 


1 1090 




8D 


MB020 i S YSC AL » i 


TEST IF END OF JOB. 


03046 


43 


0)070 


00475 


1 1 100 




8 TM 


UT07.U, 


YE S -GC TO JOB CLOSING ROUTINE. 


03058 


17 


08782 


-0001 


11110 


MBQ20 


TD 


•♦23iSYSCAL,, 


EXECUTE A COMPUTED BRANCH CN SYSCAL. 


03070 


25 


0)093 


00475 


11120 




TD 


•♦23.MCD09 




03082 


25 


03105 


10770 


1 1 1 30 




TF 


•♦18.MCD10 




03094 


26 


03112 


10 781 


11140 




B 


MB025, .6 




03106 


49 


0312- 


00000 


11150 




DORG 


MBCC0*214, 


TRICKY, WHAT SAY-- . 


03116 








1 1 160 


MB025 


DSA 


MCRC1,MB08Q,MB1Q0 


♦MBIC0.MB14O 


03120 




5 


X 5 












03120 




-4068 














03125 




-3274 














03130 




-3422 














Oil 35 




-3422 














03140 




-3656 




11170 


MB03Q 


TDM 


SYSCAL tO, , 


FORCE TERMINATION OF JOB. 


03142 


15 


00475 


00000 


11180 




B 


MBO 10*48 




03154 


49 


03058 


CCOOO 


11 190 




DORG 


•-3 




03162 








1 1200 


M8Q35 


SF 


NONE X t , , 


INMIBI T EXECUTION. 


03162 


32 


004 57 


00000 


11210 




TD 


• - t .OVRLAVHOt • 


SAVE RETURN CODE. 


031 74 


25 


03173 


00476 


1 1220 




TOM 


QVRLAY*10,0, , 


RESTORE MAIN INC. 


03186 


15 


00476 


OCOOO 


11230 




BNF 


MB045,MB035*ll , , 


TEST IF READ NUMERICALLY. 


03198 


44 


03254 


03173 


1 1240 


MB040 


MATY 


MM 3C » , « 


TYPE RELOAD MESSAGE • 


03210 


39 


10391 


00100 


11250 




RCTY 






03222 


14 


00000 


00102 


11260 




M 




MAI T FOR OPERATOR. 


03214 


41 


00000 


OCOOO 


11270 




B 


MB010-12 




03246 


49 


02446 


00000 


11280 




DORG 


.-3 




01254 








1 1290 


MB045 


TDM 


MIOl.l,, 


INHIBIT READING A CONTROL CARD, 


03254 


15 


04840 


0000 1 


11300 




B 


MBO 10 




01266 


49 


0)010 


00000 


11310 




DORG 


•-3 




03274 








1 1320 


M8080 


BTM 


u r 1 1 , • , 


TEST FOR I NHI BI TED EXECUTICN. 


03274 


17 


04616 


-0000 


11330 




TDM 


M002.6, , 


SET SYSCAL COOE. 


03286 


15 


0474) 


00006 


1 1340 




TDM 


MC0MM*l2,6t t 


SET OUP INDICATOR. 


03298 


19 


02664 


C0006 


1 1350 




TR 


M«02,DUPDDA, , 


GET ODA FOR DUP SUPERVISOR. 


03110 


)1 


04744 


10842 


11360 




BNR 


MBO0 1 tMR02 « i 


TEST IF VALID. 


03122 


49 


0)340 


04744 


11370 




TFM 


POINT, 139, , 


NO. 


031)4 


16 


04 766 


-01)4 


11)10 


MB080A 


WAT Y 


MM36,.» 


TYPE ERROR MESSAGE. 


0)146 


34 


10491 


00100 


1 1390 




WNTY 


P0INT-3,, . 


IDENTIFY MISSING DIM ENTRY • 


03398 


)• 


04765 


00100 


11400 




RCTY 






03110 


34 


00000 


00102 


11410 




B 


UT10F 




01312 


44 


04990 


00000 


1 1420 




DORG 


• -3 




03340 








11430 


MB081 


NOP 






03)90 


41 


00000 


00000 


U440 




TC 


MB225*7,MCR01A, , 


NO LOAD ADDRESS. 


03402 


29 


04040 


04499 


11450 




B 


MB2C0. * 


GO TO tXECUTE LOAD. 


03414 


44 


0)734 


00000 


11460 




DORG 


• ~3 




03422 








11470 


KB ICO 


BTM 


ITU,,, 


TEST FOR INHIBITED EXECUTICN. 


03422 


17 


09616 


-0000 


1 1480 




BNF 


MB 145,MC0««*l ♦ ♦ 


TEST IF PHASE BEGAN WITH EXECUTE CARD. 


03414 


44 


03640 


02693 


11440 




BNF 


MR 1 10 »NCQNM*2 » t 


YES -TEST IF EXECUTION INHIBITED. 


03446 


44 


03466 


02694 


11900 




6 


LT10F«»« 


YES, 


03490 


44 


04990 


00000 


1 1510 




DORG 


•-3 ;. 












11420 


NBUO 


TOM 


«caMM*i2..*»* 


SET EXE CUtl ON INDICATOR. 


0344* 


19 


02944 


00004 


11530 




»NP 


MB 11.06, CQNM*22 , * 


TEST IF PROGRAM LOADED TO DISK. 


0)470 


44 


034*4 


02624 


11540 




BD 


108,£OWM*22» » 


YES -TEST IF IN CORE I MAGE FORMAT. 


03440 


43 


0)944 


02624 


11550 




8NP 




YES -TEST IP A DIM NUMBER SUPPLIEO. 


03902 


44 


03922 


02641 


11960 




S 


..Mt'llOlfcV 


WHERE ARE YOU. 


03914 


49 


0)944 


00000 


U5?0 




00*6 






03922 









2 a 



1620-1441 MONITOR I VERSION 2 SUPERVISOR ANO I.C.R.T. 



PAGE 



11960 


MB 1 10A 


BT 


CT05tCOMN» 39, , 


GO TC GET THE COA. 


03522 


27 


08350 


02841 


1 1990 




TR 


MR02, UT05- 1 . 1 1 ♦ 


MOVE TC TEMPORARY SLOT. 


03534 


31 


09744 


0834R 


11400 




BNR 


MB190.MR02, , 


TEST IF VALIO. 


03544 


45 


0)710 


09744 


11*10 




B 


MXQC4+ 12* « t 


NO -TYPE ERROR MESSAGE ANO CLOSE JOB. 


03558 


49 


07206 


ocooo 


11620 




DOR G 


• - 3 




03544 








1 14)0 


MB 1 106 


TR 


MR02* 1 iCOMM it 


USE ODA IN COMM SECTOR AS LOAD OCA* 


03544 


31 


09745 


02802 


1 1440 




A 


MR02* 3 1 SRE IOC . . 


CONVERT FROM SCRATCH TO ABSOLUTE 


03578 


21 


09747 


00425 


1 1 450 




TO 


MR02.SRELOC-3. , 


SECTOR ADDRESS. 


03590 


25 


09744 


00422 


1 1440 




TFM 


MR02* 1 3 ,99999 , , 


FORCE THE relocatable indicator. 


Q34C2 


16 


09757 


R9999 


1 1470 




BNF 


• ♦ 24 , COMM. 1 2 * » 


TEST IF THE SPS SUPERVISOR REGUIREC. 


03614 


44 


03638 


02814 


1 1440 




SF 


MRC2* 1 3 , t . 


YES -SET FLAG INDICATOR. 


03424 


32 


C9757 


00000 


1 1490 




TFM 


HIGH, SVSORG i i 


RELOCATABLE PROGRAMS MILL BE LCADEO 


03438 


16 


00434 


-2402 


1 1 700 




B 


MB 1 95. , , 


AT SYSORG. 


03450 


49 


0)722 


OCOOO 


11710 




DOR C 


• - 3 




03458 








1 1720 


Mfi 140 


BNF 


•♦2C t MCOMM« 1 , , 


TERMINATE JOB IF THIS PHASE INVOLVES 


03658 


44 


03678 


02853 


1 1 730 




» 


MBC30, , , 


EXECUTION OF A USER-S PROGRAM. 


03670 


49 


0)142 


00000 


1 1 740 




OORG 


3 




03678 








11750 




BTM 


UT1 1, I, , 


TYPE NCN EXECUTE MESSAGE. 


03678 


17 


09618 


-0001 


1 1 740 


MB 1 45 


TDM 


MCOMM«l,0* t 


INDICATE PHASE NOT BEGUN. 


03690 


is 


0285) 


00000 


11770 




B 


MCR01 , , , 


GO TC CONTROL CARD READ EXECUTIVE. 


03702 


49 


04068 


coooo 


1 1710 




DORG 


• -3 




03 710 








1 1 790 


MB 1 90 


TDM 


MB225.3, i 


FORCE UPOATING OF HIGH INDICATOR. 


03710 


|t 


040)) 


0000) 


1 1800 


MB 1 95 


TDM 


MDC2.0, , 


SET SYSCAL COOE. 


03722 


|5 


0974) 


ocooo 


1 lg 10 




FINAL LOAD ANO EXECUTE OF SYSTEM OR USERS PROGRAM. 










11120 


M82C0 


TF 


EQL IVO.MCQMM* 7, , 


MOVE REMAINDER OF EOUIV TABLE. 


3 734 


26 


02 124 


02859 


1 1830 




TF 


EQUIV*5.NC0MM*9 




03 746 


26 ' 


02128 


02841 


1 1 840 




TF 


EQLIV*7,MC0MM*U 




03758 


26 


02 1 )0 


02863 


1 1 850 




TR 


RFPOS.LREC,, 


SET DRIVE REPOSITION TABLE TO ZERO-S . 


03770 


]| 


00512 


0981 ) 


1 1 840 




TDM 


REP0S«7,0 




03782 


If 


00519 


00000 


11870 




TC 


•♦47.FSPS. , 


MOVE CONTROL CARD SOURCE TC COPMCN. 


03 794 


25 


0)84 1 


00429 


11880 




TD 


FSPStMCOMM* 3 




38C4 


25 


00429 


02855 


1 1 890 




HNF 


•♦24,»»23 




03818 




03842 








SF 


FSPS 












i i ai n 




SF 


LD1NPT, , , 


FOR GOCO MEASURE. 


eta*) 




z? 


uuuuu 


1 1920 




SF 


C IN I T 




03854 






COOOO 


119 30 




TR 


C0MM*84,JREC 




3844 




02884 




1 1940 




TFM 


IOXX,»*23, , 


MR I TE COMM SECTOR ON DISK. 


3878 


16 


00545 


-3901 


1 1950 




B 


IORBC tMB220,7 




03890 


49 


00520 


"40 1 


1 1 940 




TDM 


IOP«37,5« • 


RESTORE CNTL CARO TRAP IN IORT. 


03902 


1 5 






11970 




TD 


SVSCAL ,MD02 , , 


SET SYSCAL COOE. 


0)914 


25 


00475 


0974) 


1 1980 




CF 


f-AL T t • » 


REMOVE MONITOR INCICATCR. 


03924 


33 


00454 


OCOOO 


11990 




CF 


HAL T ♦ 1 » 


REMOVE ANY REMAINING LITTLE GOCOIES. 


03938 


33 


00457 


C'OQ 


12000 




BO 


NB2 10, SYSCAL , , 


TEST FOR EXECUTION. 


03950 


43 


0)984 


CO . * 


12010 




MA TV 


MM 2 "} , , , 


YES -TYPE MESSAGE. 


3942 


39 


1 0289 




12020 




RC TV 






03974 


34 


00000 


00102 


12030 


MB2 10 


TFM 


10xx,.*?3, , 


LOAD AND EXECUTE DESIRED PROGRAM. 


03984 


16 


00545 


-4009 


12040 




B 


IOGT.MB225, 1 




03998 


49 


00544 


-4033 


12050 


MB220 


DSC 


2,22 




04010 




2 




12060 




22 
CSA 


M8222 




04016 




5 


X 1 












C40I6 




-4018 




12070 




CSC 


1, • 




04017 




1 




12080 


MB222 


CSC 


1.1 




04018 




1 





1 



2D 









162C- 1443 MONI TOR 


I VERSION 2 SUPERVISOR ANO I.O.R.T. 








PAGE 


12090 




CSA 


DSA 39 




0402) 




5 


X I 












04023 




J9663 




12100 




DSC 


3, 1 




04024 




3 








001 














12110 




CSA 


COMM 




04031 




5 


X 1 












04031 




-2802 




12120 




OSC 


It* 




04032 




1 




121)0 


MB225 


OSC 
2K 


2.-22 




04033 




2 




12140 




DSA 


MR02 




04039 




5 


X 1 












04039 




-9744 




12150 




DSC 


It • 




04040 




1 




12140 




DSC 


5,0* 




04041 




5 








0000 














12161 


M8226 


DC 
-J 


2,-01 




04047 




2 




12162 




DC 
-J 


2.-01 




04049 




2 




12163 




DC 
-J 


2.-01 




04051 




2 




12164 




CC 


3,-Cl* 




04054 




3 




12170 


•••••• 


MONITOR CONTROL CARD 


RE AO SUPERVISOR ROUTINE.. 










12180 




TDM 


MI01.0. , 


TURN OFF ALREADY RE AC INO. 


04056 


15 


09840 


OCOOO 


12190 


MCROl 


TO 


MCR02A* | l.MCOMM* ), 


.DECODE CONTROL CARD INPUT SOURCE. 


04068 


25 


04127 


02855 


12200 




TC 


•♦23,MCOMM*3 




04080 


25 


04103 


02355 


12210 




TF 


MCRQ6*6,MCD02 




04092 


24 


0494 1 


10700 


12220 




ftD 


MCRQ4.MI01 . . 


TEST IF CNTL CARO ALREADY READ. 


041C4 


43 


04304 


09840 


122 30 


MCR02A 


BNF 


MCRC3.MC001» ( 


TEST IF TYPEWRITER INPUT . 


041 14 


44 


04166 


10690 


12240 




RCTV 


» » . 


YES -TYPE ENTER MESSAGE. 


04128 


14 


ooooo 


00102 


12250 




MATY 


MM01 




04140 


39 


09643 


00100 


12260 




BNF 


•♦24.NI03, • 


TEST IF IN JOB CARC SEARCH. 


04152 


44 


04174 


09841 


12270 




MATY 


MM26 




04164 


39 


10)09 


00100 


12280 




RCTV 






04176 


34 


00000 


00102 


12290 


MCR03 


TFM 


•♦18.MCCSUF, , 


CLEAR THE CONTROL CARD BUFFER. 


04188 


16 


04206 


J 3000 


12300 




TR 


XX,MCR04A*7 




042C0 


31 


OOOOO 


04491 


12310 




AM 


MCR03*18,4 




04212 


11 


04204 


-0004 


12320 




CM 


MCRC3*18,MCCBUF*160 


04224 


14 


04204 


J3160 


12330 




BNI 


MCRC3M2, 1)00 




04236 


4? 


04200 


01300 


12340 




TFM 


I0XX,«*2),. 


READ A RECCRO FROM CONTROL RECCRO SOURCE. 


04248 


16 


00549 


-4271 


12350 




8 


I0GT,MCR0*,7 




04240 


49 


00966 


-4935 


12340 




BNI 


♦♦32,400,. 


IF SSW4 • ALLOW RE-ENTR* ON TYPEWRITER 


04272 


4? 


04)04 


00400 


12)70 




BNF 


• ♦20.MCR02AM1 ,1 1 , 


INPUT. 


04284 


44 


04904 


0412P 


12)80 




8 


MCROl-12 




04294 


49 


04094 


ooooo 


12390 




OORG 


•-3 




04)04 








12400 


NCR 04 


BNF 


♦ ♦24.MCR02AMI ,11, 


RESTORE CARRIAGE IF TYPEWRITER INPUT. 


04304 


44 


04926 


0412P 


12410 




RCTV 






04)14 


)4 


OOOOO 


00102 


12420 




TOM 


MIOl.l,, 


TURN ON CNTL CARO READ INHIBITOR. 


04328 


19 


04640 


00001 


12430 




BNR 


MCROl- 12, MCCBUFM , 


,REAO AGAIN IF NO COUBLE R.M. 


04340 


49 


04094 


13001 


12440 




BNR 


MCR01-12.MCCBUFO 




04)92 


49 


04094 


13001 


12490 




TF* 


MF01.4, , 


TREAT AS COMMENTS CARO IF ANY R.M. 


04)44 


16 


09714 


-0004 



3 



1620- 1*43 NQNITtjR I VERSION 2 SUPERVISOR A NO l.C.R.T. 



PAGE 



12*60 




BTN 


UC3,«CCBUF*5 t , 


IN CCLS. 3-6. 


04} 76 


17 


08038 


J3005 


1247C 




BNR 


HCRC4A,HD01 




04386 


49 


04444 


09742 


12480 




BNR 


NCRC5A,NCCBUF*5,, 


TEST PCA END OF JOB. 


04400 


49 


04628 


13009 


12490 




BNR 


NCRC5A,«CCBUF*7 




04412 


45 


04628 


13007 


12500 




TDM 


N I 1 1 i i 


nt tin t rniuTBni cun a fad i mm i r t rni . 


04424 


I ) 


09840 


00000 

».*MW 


12510 




8 


NBC3C 




04416 


49 


03142 


00000 


1 2520 




00 RG 


• -3 




04446 








125 30 


NCR04 A 


CF 


NCCBUF*6if. 


r i (it ci ire eno mi c a. k a kin a 




3 3 


l too* 


n r ft nn 


1 2540 




DOR G 


•-4 




04651 








1 2550 




DC 
-0 


2.C 




04452 




* 




1 2540 




DC 


3, OS 




04459 








12570 




-0" 
CF 


MCC8UF*8 




04496 


33 


1 3008 


00000 


1 2510 




CF 


NCC8UF ♦ 10 




04461 


3 3 


1 10 10 


0QC00 


12590 




TDN 


HOOWO 




04410 


1 3 


09742 




1 2600 




decode control caro 


TYPE 










12610 




c 


NCCBUF* 1 1 ,NNC2*6, i 


» TEST FOR - JC B- CARD* 


04492 


24 


1 30 1 1 


09897 


12620 




B I 


N JBC I t 1 200 




04904 


46 


04944 


01200 


1 2630 




C 


HCCBUF* ll»NN03»6, i 


r TEST FOR -TYPE" CARD* 


049 16 


2A 


1301 1 


09905 


1 2640 




BN 1 


NCR 05 1 1 200 




04921 


a 1 


04572 


1200 


12650 




TON 


NC0NN*3, It , 






j! 


aaao! 




1 2660 




BTN 


UT06* , * 


fin to Tv»P— ni t nniiTtiuF 


ft A « A 5 


1 7 




°oooo 


12670 




B 


NCROl- 12, , , 


r.r. in acin amdtufb run 

V»w IU n(4U AniUlriCn v'**U. 


ftAAAA 

° 


49 


ftAftAA 

04096 


npnAo 
UbUUU 






DORG 














1 JfcQO 


P*CKQ5 


C 


NCCBUF ♦ 1 1 |NN04*6, < 


I IE } 1 rUR r«Li V«*I*U« 




24 


130 1 1 




jf ftn 




BN I 


NCR C5A » 1200 




049 84 


4? 


04628 


01200 


137 in 




BTN 


LT06,,, 


Tt J *uU IU 1 irt~LUI RUUI INC. 


04996 


1 7 


08494 


-0000 


1 1 f tft 




H 


tt« 


ic icq ct isi • c a r* i^nTucD r ian 
AritR i READ INUTHtR LARD* 


04608 


46 


00000 


00000 









NCRCl-12 




04620 


49 


04096 


QCC00 






DORG 


• -3 




04628 








J J: 




HO 


NCR0l-l2#NI03t i 


Qc.ac in 1 1 i b inn run ccifiru 
R|!— KfcAO 1 r IN JUU LARD itAKLW. 


04628 


* ' 


04096 


0984 1 






8TM 


LT06,., 


r.n tp tvdc hut rue run 
wU IU ITPfc UUI Ins LARU. 


ftA*«5 


1 7 


06494 


-0000 


12 770 




BD 


NCR0l-12tNDOl , , 


a£An mc « t run it cnorcn rnwMCkiTC run 

n[*U "IK A 1 LARD |r rURwCU lUFFCNI ) WARM* 




if 




09742 


1 2 780 




TR 


CONN*22,IREC,, 


IMtTIAI 1 If AfcJP FPBTUAM tBTf P(COB 
ini I l*kl it }r) *nt rtw 1 rnwlc)}UI> 






r.5«f i 


ftnnft 


1 2 790 




TO* 


CONN*39,0tll» 


oiiTPiif 1 1 c i 

UU 1 rt 1 r 1 CLU) t 


ftAAfA 


1 5 






12800 




TR 


CONN.NREC 




ftAAAA 




ftf Art? 


AQA?T 






TD 


SFD INT » NCONN* 3 




04700 


29 


00426 




12820 




TR 


C0*N*74 t KREC, . 


DISABLE CONN SECTOR INDICATORS FCR 


04712 


3 1 


02876 


ftOAftA 


12 8 30 




TDN 


CQ*M*82,0, 1 1 , 








ftftlvlA 


r " 


12840 




TFN 


H IGH, SYSORG 




04716 


16 




•»Art" 


12850 




TD 


NB225>7,NCR01A 




04 74 8 


25 


ftAftAft 


ft* 


12860 




C 


NCCBUF>11,NN05*6, ( 


t TEST FCR - S P S - CARD* 


04 760 




I I 


ftQU91 






BI 


NSP01, 1200 






A* 


ft A 1 QA 
1 tftl 1 


ft 1 Jftft 


12880 




C 


NCCBUF*ll,NN06«'6, , 


IF^T P OB .(D(|. r ion 

1 IE j 1 r UR j r J A UAfAU* 


ftATAA 






ftO )« 


12890 




B I 


HSPQ2, 1200 




04 796 


46 


06218 


1200 


12900 




C 


NCCBUF*U,NN07*6, , 


t TEST FOR -FOR- CARD. 


04808 


24 


1301 1 


0993 7 


12910 




BI 


NFTClt 1200 




0482C 


46 


06990 


01200 


12920 




C 


NCCBUF «-ll,NN08*6, , 


, TEST FOR -F0RX- CARD. 


04832 


24 


13011 


09949 


12930 




BI 


NFT02,1200 




04844 


46 


06970 


01200 


12940 




C 


MCC BUF ♦ il,NN09*6, 


, TEST FCR -CUP- CARD. 


04856 


24 


13011 


09953 


12950 




31 


NDPOl. 1200 




04868 


46 


06806 


01200 


12960 




C 


MCCBUFtU ,MM10*6, , 


r TEST FOR -XEQ- CARD. 


04880 


24 


13011 


09961 


12970 




81 


NXQOl, 1200 




04892 


46 


06910 


01200 


12980 




C 


MCCBUF*ll»NNll»6» , 


, TEST FOR -XEQS- CARD. 


04904 


24 


13011 


09969 


12990 




BI 


MXQC2.1200 




04916 


46 


06942 


01200 



31 



1620-1443 N0NITCR I VERSION 2 SUPERVISOR AND l.C.R.T. PAGE 



13000 




B 


HCR0l-12,NCCBUF*l, 


» 7tC0NNENTS CARD -GC TO READ NEXT CNE. 


04928 


49 


04056 


J3001 


13010 


NCR 06 


DS 


0t«-4 




04939 









13020 




nc 


2, XX 




04941 




2 




13030 




XX 

DSC 


I . • 




0494,2 




1 




13040 


MCR01A 


OS 


0.*CR04A« 1 1 




04495 









13050 




JOB CARD PROCESSOR 












13060 


NJB01 


BTN 


LT0 7, , , 


GO TO JOB CLOSE OUT ROUTINE. 


04*44 


17 


09782 


-cooo 


13070 


NJB02 


BTN 


LT06,, , 


GO TC CUNTROL RECORC TYPE-OUT RCUTINE. 


04996 


17 


08494 


-0C00 


13080 




TFN 


F0,»*23,, , 


DECOOE COL. 7. 


04968 


16 


09598 


-4991 


13090 




B 


UT10,NJR02A»7 




04960 


49 


0913S 


-9060 


13100 




MNF 


MJB03.F4, , 


NUST RE-READ IF ANY ERROR. 


04992 


44 


05074 


09602 


13110 




BNF 


NJB30.F I, , 


EXIT IF R.N. 


09004 


44 


06190 


09599 


13120 




BNF 


NJB04.ND01 




09016 


44 


09142 


09742 


13130 


NJB02X 


BD 


NJBC38.NCD01, , 


PROCEEO IF PROPER DIGIT. 


09026 


43 


09130 


10690 


13140 




TFN 


F0,NJB03,t 


NO -TYPE ERROR NESSAGE. 


09040 


14 


09998 


-5074 


13150 




B 


L T ICE 




09092 


49 


09482 


0C000 


13160 




DORG 


• -3 




09060 








13170 


NJB02A 


nsc 


4,0100 




05060 




4 








0100 














13180 




DC 
-7 


2,7 




09069 




2 




13190 




DC 


2, 1 




0906? 




2 




1 3200 




OSA 


NJ002X*ll 




09072 




9 


1 1 












09072 




-9039 




13210 




DSC 


1» • 




090T3 




1 




13220 


MJH03 


RCTV 






09074 


34 


00000 


00102 


13230 


MJB03A 


TON 


NCONN«3,l.» 


CHANGE SOURCE INDICATOR. 


09086 


19 


02695 


00001 


13240 




TON 


NI03,l,ll, 


INDICATE JOB CARD SEARCH. 


09098 


19 


09B41 


00OOJ 


13250 




TON 


FtCUNN .0 , , 


INDICATE JOB NOT BEGUN. 


09110 


19 


02892 


OOOOO 


13260 




B 


NCR01-12,,, 


GO TO CNTL CARO JtEAO SUPERVISOR. 


09122 


49 


04096 


00000 


13270 




DORG 


•-3 




09190 








1 3280 


AJB03B 


TD 


«CONN*3,NF02,ll 




09130 


29 


02B99 


0972J 


13290 


MJ804 


SF 


NJB10,,, 


INITIALIZE TO SCAN RENA1N0ER OF CARO. 


09142 


32 


09290 


00000 


1 3300 




SF 


NJB15 




09194 


32 


09974 


OOOOO 


13310 




TO 


NJBI 1*11, CONN* 49 




05146 


29 


OtlTl 


02091 


13320 




TO 


NJS20*8,CONN*49 




09176 


25 


0*014 


02651 


13330 




TON 


NJBl9A*Uf 1 




09190 


li 


09669 


00001 


13340 




TFN 


NJ813A*6,NC0NN*5 




05202 


16 


01944 


-2B9T 


13390 




TFN 


NJI17*ll,4 




01214 


16 


•1961 


-0004 


13360 




TFN 


NJ890A49.tf 10 




05226 


16 


06179 


000* B 


13370 




TFN 


MJ655A«-9tl2»l0 




0921B 


1* 


04189 


000J2 


13380 


NJB10 


8NP 


NJB12A*12t*t • 


IGNOM COM? XOt CAftO fltLO IF SCAN OVfJU 


0SI90 


44 


01494 


09290 


13340 




TFN 


FO,««<3«. 


OICOOC CUBRf NT DBlVt EOUIV. FIELO. 


09262 


16 


•9998 


-9269 


13600 




8 


UTlO.NJftSOA,? 




0f|T6 


69 


09138 


-4170 


13410 




TON 


NJ8l2A»l t l». 


Sf T ERROR RETUHN SNITCH. 


09266 


19 


•9483 


0000 1 


13420 




BNF 


MJil2*ifO,M- , , 


CHICK FOB ANY fftftOft. 


Otttt 


66 


•14 1« 


0964)2 


13430 




»R* 


• ♦44.NOQU 


TEST IF CARD FINISHfO. 


Oil to 


69 


•1114 


09742 


13440 




CF 


NJ810»»» 


VIS -NO FURTHER SCAN OF FlliOS* 


01912 


39 


01210 


00000 


13490 




CF 


MJB1S 




09136 


11 


•1974 


OOOOO 


19460 




8 


NJ812A«1.2 




033*6 


69) 


•1494 


OOOOO 


13470 




30*. t 


••3 




09394 









1620-1**3 MONITOR I VERSIUN 2 SUPERVISOR AND l.C.R.T. 



PAGE 



11480 




BNF 


MJB12A*12,K001 


IGNCRE A BLANK. 


05354 


44 


05494 


09742 




MJB I I 


CM 


MF02»XX,610t 


NG -CHECK IF hlTHIN CORRECT RANGE. 


05366 


14 


0972J 


000-0 


D5C0 




BN! 


MJb 13*1300 




05)78 


4? 


05514 


01)00 


13510 


MJB12 


TFM 


FC,«*20,» 


NO -TYPE ERRCR MESSAGE. 


05)90 


16 


09598 


-5*10 


13520 




B 


IT 106 




054C2 


49 


094 82 


00000 


13530 




OORG 


•-3 




05410 








135*0 




WATY 


MM I 7 




05410 


39 


10035 


00100 


13550 




RCTV 






05422 


3* 


OOCOO 


00102 


13560 




H 


» » i 


MA I T FCR OPERATOR. 


05434 


48 


00000 


ocooo 


13570 




BN I 


MJB03.400* . 


IF NO SSW4 , SOURCE CHANGES TO TYPEWRITER. 


05446 


47 


05074 


00400 


13580 




MATY 


MM31, , , 


INDICATE THAT CONDITION IGNORED. 


05458 


39 


10375 


00100 


13590 




RCTY 






05470 


3* 


00000 


00102 


1 3600 


MJB12A 


NOP 


MJB15A-20,., 


NOP/BRANCH SklTCH. 


05482 


41 


05658 


OCOOO 


13610 




TF 


MF02,MJB13A*6,6ll * 


.ALLOW THE CLC EQUIVALENCE TO STAND. 


05494 


26 


0972J 


0554M 


13620 




B 


MJB13A+12 




055C6 


49 


05550 


00000 


13630 




DORG 


•-3 




05514 








136*0 


MJBl 3 


A 


MF02.MF02.61 I , 


COMPUTE PHYSICAL DRIVE CODE. 


05514 


21 


0972J 


0972J 


13650 




AH 


MFC2, 1,610 




05526 


11 


0972J 


000- I 


13660 


MJBl)A 


TF 


XX,MF02,2U, 


MOVE TO MCOMM EQUlV TABLE. 


055)8 


26 


-0000 


0972J 


1 3670 




AM 


MJB1)A*6,EQUI V-MC0MM-4..M0VE TO IORT EQUlV TABLE. 


05550 


11 


05544 


-07)L 


1 3680 




TF 


MJB l)A+6*Mr02*61 1 




05562 


26 


0554A 


0972J 


13690 


MJB15 


BNF 


MJB 1 5A— 20 • • i « 


TEST IF R.M. ALREACY ENCOUNTERED. 


05574 


44 


05658 


05574 


13700 




TFM 


FO » • »2) » » 


NO -EXTRACT CURRENT PACK NO. FIELD. 


05586 


16 


09598 


-5609 


13710 




B 


L T 10 ,M JB55A • 7 




05598 


49 


09138 


-6184 


13720 




TDM 


MJB 12A+ 1 * 9* » 


SE T SM I TCH . 


05610 


15 


05483 


00009 


13730 




BNF 


MJB 1 2*20 »F A , , 


CHECK FOR ANY ERROR. 


05622 


44' 


05410 


09602 


137*0 




BNR 


• «2* tMDOl t * 


NO -TEST IF CARO FINISHED. 


056)4 


45 


05658 


09742 


1 3750 




CF 


MJB15,, , 


YES -NO FURTHER SCAN OF PACK NC. FIELDS. 


05646 


33 


05574 


ooooo 


13760 




BD 


•♦2C,MJB13A*6,ll, 


SKIP TO ENC IF MOCULE NOT AT TACHED . 


05658 


43 


05678 


0554M 


13770 




B 


MJB 20 




05670 


49 


06026 


00000 


13780 




OORG 


• -3 




05678 








13790 


MJB15A 


TDM 


MJB23.XX, 10, 


READ TRACK CONTAINING PACK NUMBER. 


05678 


15 


061)4 


000-0 


13800 




TFM 


I0XX,»*23 




05690 


16 


00565 


-571) 


13810 




B 


IOGT,MJB22,7 




057C2 


49 


00566 


-6126 


13820 




BNF 


MJB 17,MJB IS, , 


IGNORE CHECK IF END OF CARD, OR 


05714 


4* 


059)0 


05574 


1 3830 




BNF 


M JB 1 7 ,MD0 It* 


BLANK F I ELC* OR 


05726 


44 


05930 


09742 


1 38*0 




BNF 


M J P 1 7 » F * , , 


IGNORED ERROR IN FIELD. 


05738 


4* 


05930 


G9602 


13850 




SF 


I * C C 5 , , , 


COMPARE THE PACK NUMBERS. 


05750 


32 


14005 


OOOOO 


13860 




C 


1*009, MF02, 1 I 




05762 


2* 


1*009 


0972J 


1 3870 




B 1 


M Jb 1 J , 1 ZOO 




05774 


46 


05930 


01200 


13880 




TD 


•♦23,MJB23# * 


PACK NO. ERRCR. -GET MCCULE NUMBER. 


05786 


25 


05809 


061)4 


13890 




8TM 


LT01,XX 




05798 


17 


07958 


-"000 


139C0 




TD 


MM 16*56. UTOl-2 




05810 


25 


10027 


. 


1 3910 




WATY 


MM16 




05822 


39 


09971 


OQIG*. 


13920 




TF 


MM17*72,MM32M* 




0583* 


26 


10107 


10425 


1 3930 




WATY 


MM 1 7 




058*6 


39 


100)5 


OCIOO 


139*0 




TF 


MM I 7*78.MM33»20 




05858 


26 


101 1) 


10*47 


1 3950 




PCTY 






05870 


34 


00000 


00102 










WA I T FCR OPERATOR. 


05882 


48 


00000 


OOOOO 


1 397C 




BN I 


MJB 15A ,*00, , 


RE-RE AO PACK NO. IF SSW* OFF, 


0589* 


47 


05678 


00*00 


1 3980 




WATY 


MM 31, , , 


TYPF CONDITION I GNOREC MESSAGE. 


05906 


39 


10)75 


00100 


1 3990 




RCTY 






05918 


34 


00000 


00102 


1*000 


M J Li I 7 


RTM 


LT05, XX, , 


READ IN DIM SECTOR FCR THIS LOGICAL 


05930 


17 


08350 


-ocoo 


1*010 




SF 


1*CC0, , , 


MODULE AND MOVE SECTOM ACDRESS FOR 


059*2 


32 


1*000 


ooooo 


1*02 






UT05- 1 , 5* • 


THIS PACK TO PROPER OIM ENTRY. 


0595* 


1 1 


08 3*9 


-0005 


1*030 




TF 


UT05-1, 1*00*, 6 




05966 


26 


0834R 


1*00* 










3a 
















1620-1**3 MOM TOR 


I VERSION 2 SUPERVISOR AND I.O.R.T. 








PAGE 


1*031 




AM 


UT05-1, 1,610, 


ADD 1 TO SECTOR ACDRESS. 


05978 


U 


0834R 


000- I 


1*0*0 




TD 


MAPENT, TFMP-5, , 


WRI TE I T BACK CUT CN CISK. 


05990 


25 


021** 


0201* 


1*050 




TFM 


IQXX,.*23 




060C2 


16 


00565 


-6025 


1*060 




6 


I0RBC,MJB21,7 




0601* 


49 


00520 


-6118 


1*070 


MJB20 


SM 


•♦8,1,710, 


EXIT IF ALL MODULES FOR THIS 


06026 


12 


060)* 


-00- I 


1*080 




BN I 


MJB 30 , 1 100, , 


CONFIGURATION PROCESSED. 


06038 


47 


06150 


01100 


1*090 




AM 


MJB 1 3A ♦ 6 * MCOMM-E QU I V*6 


06050 


11 


0554* 


-C735 


1*100 




AM 


MJB15A*U,2,10 




06062 


11 


05689 


000-2 


1*110 






MJB 1 7* i 1, I 




06074 


11 


05941 


-0001 


1*120 




AM 


MJB508*5.ltlO 




06086 




06175 


000- 1 


1*130 




AM 


MJB55A*5,5,10 




06098 


11 


06189 


OCO-5 


1*1 *0 




B 


MJB 10, • , 


REPEAT FOR NEXT LOGICAL MODULE. 


06110 


49 


05250 


OOOOO 


1*150 




OORG 


•-3 




06118 








1*160 


MJB21 


DSC 
22 


2.22 




06118 




2 




1 * 1 70 




DSA 


LT05B 




06124 




5 


X 1 












06124 




-8*68 




1*180 




DSC 


1 , 1 




06125 




1 




1*190 


MJB22 


CSC 
26 


2,26 




06126 




2 




1*200 




DSA 


MJB 23 




06132 




5 


X 1 












06132 




-61)4 




1*210 




osc 


i.« 




0613) 








1*220 


MJB23 




1*1 




06134 




1 




1*230 




1 

OSA 


198C0 




06139 




5 


X 1 












06139 




J9800 




142*0 




DC 


3,20 




06142 




3 








-20 














1*250 




DSA 


1*QC0 




06147 




5 


X I 












0*147 




J4000 




1*260 




osc 


1.' 




06148 




1 




14270 


MJB30 


TDM 


MIC3.0, , 


01 SABLE JOB CARO SEARCH. 


04150 


15 


09841 


OOOOO 


14280 




B 


MCROl-12,,, 


GO READ ANOTHER CNTL CARO. 


06162 


49 


04056 


OOOOO 


14290 




DORG 


•-3 




06 1 70 








14900 


M J 650 A 


DSC 


4*0100 




06170 




4 








0100 












14310 




DC 
-0 


2*0 




06115 




2 




14320 




DC 
- 1 


2.1 




06177 




2 




14330 




DSC 


6,0 • 




04118 




6 








00000* 












14340 


MJ855A 


DSC 


4*0100 




0*184 




4 








OiOO 














1*350 




DC 
-0 


2,0 




04189 




2 




14360 




oc 


2*5 




04191 




2 





1620-1*43 MONITOR I VERSION 2 SUPERVISOR AND I.C.R.T. PAGE 



t 4370 




CSC 


6 f 0« 




06192 




4 








cooco* 












14360 




SPS AND SPSX CNTL 


CARD PROCESSOR 










14390 


MSPO I 






SE T $P S EN T R Y I NO . 


06 198 


15 


02851 


00C01 


14400 






• ♦20 




06210 


4 9 


04210 


00000 


14410 




nr or 






062 16 








14420 


MSP 02 


T M 


UrW f i ■ j| I 1 | 


SET SPSX ENTRY INC. 


06216 


15 


02651 


OOOOL 


14430 




rn* 


MC QMM , 1 , , 


INDICATE PHASE BEGUN* 


06210 


1 5 


02652 


0C001 


14440 




TDM 


MCGPM»12i5 




06242 


is 


02644 


00OC5 


1 4450 






FQ»»*23»» 


DECODE CCL. 7» 


06254 


14 


09596 


-6277 


144 60 






1 1 T 1 f UCBAti 1 




08266 


49 


09116 


-6491 


14470 






•♦2J»5rDlNT», 


TEST IF LEGITIMATE. 


062 76 


25 


04101 


00424 


1 4 4 tO 




an 


• ♦ £ t HtvO 1 




08290 


41 


04110 


10490 


14490 






LT 10E t t i 


NO -KILL THIS PHASE* 


06102 


49 


09462 


00000 


14)00 




OORG 


• - 3 




06110 








14510 




8NF 






063 10 


44 


04410 


09599 


14520 




d 


MSPC3»MC0MM* 1 , , 


TE S T I P SPS X C ARC . 


06122 


44 


04410 


02651 


14530 




TFM 


F » • ♦ 2 3 t t 


YES -DECODE CGlS. 8-9* 


06114 


16 


09596 


-6157 


14540 




8 


UT 1C »MSP05B » 7 




06146 


49 


09118 


-6507 


14550 






M SPO 3 1 F 1 




06156 


44 


06410 


09599 


1 4560 




TC 


F i • ♦? 3 i » 


UCwwUC LUl • |w* 


06170 


1 6 


09596 


-4 193 


1 4570 




8 


L T 1 »MSP05C • 7 




06362 


49 


09116 


-4521 


14580 




BNF 


M S P 3 » F 1 




06194 


44 


04410 


09599 


14590 




TFM 


F0,»*23, , 




06408 


16 


09596 


-4429 


1 46CQ 




B 


LT1CMSP050.7 




064 18 


49 


09116 


-6515 


146 1 


*SPQ3 


TR 


MR02,SPSDDA, , 


MOVE DDA FCR SPS ASSEMBLER* 


06410 


1 1 • 


09744 


10602 


14620 




BNR 


MSPC4,MR02t t 


TEST IF VALID. 


06442 


45 


04474 


09744 


14630 




TFM 


POINT, 8, , 


NO -TERMINATE CURRENT PHASE. 


06454 


16 


09746 


-0008 


14640 




8 


MB080A 




06466 


49 


01146 


00000 


14650 




DDRG 


• -3 




06474 








14660 


MSP04 


T CM 


MDC2.4, 


SET SYSCAL CCOE. 


06474 


15 


09741 


CCG04 


14670 




H 


MBOE 1* 12 




06486 


49 


01402 


OCOOO 






DOR G 


• -4 












14690 


MSP 05 A 


SC 


4,0101 




06491 




4 








0101 














14 700 




DC 
-7 


2,7 




06496 




2 




1471C 




cc 


2. 1 




06500 




2 




14720 




- 1 

DSA 


SFI) INT 




06505 




5 


X I 












065 C 5 




-0426 




14730 




DSC 


1, ' 




06506 




1 




14740 


M SP 058 


CSC 


4,C 101 




0650T 




4 








0101 














14750 




cc 


2 ♦ 8 




065 12 




2 




14760 




-8 

cc 


2,2 




06514 




2 




14770 




-2 
DSA 


COPM+81 




06519 




5 


X 1 












06519 




-2883 




14780 




CSC 


It • 




06520 




1 






M SP 05 C 
M P 


DSC 


4,0 101 


35 


0652 1 












0101 


















1620-1443 MONITOR I VERSION 2 SUPERVISOR AND I.C.R.T. 








PAGE 






DC 


2,10 








2 








JO 














14810 




DC 


2, 1 




C6526 




2 




14820 




- 1 
DSA 


COMM+77 




065 3 3 




5 


X 1 












06533 




-2879 




14830 




DSC 


1. ' 




06534 




1 




14840 


MSP05C 


DSC 


4,0101 




06535 




4 








0101 














14850 




DC 


2,11 




06540 








1 4860 




J I 
DC 


2,2 








- 




14870 




-2 
DSA 


COMN-79 




0654 7 






X I 












06547 




"288 1 




1 4880 




osc 


1 , • 




06546 




I 




14890 




FOR AND FORX CNTL 


CARD PROCESSOR. 










1 4900 


MF TO 1 


TDM 


MC0MM*1 ,4, , 


SET FOR ENTRY INO. 


06550 


1 5 


02853 


00004 






B 


• ♦20 






49 


04582 


UVIUvlU 


14920 




OORG 


• -3 




06570 








1 4930 


MP T02 


TDM 


MCUMM*l,4# 11* 


SET FORX ENTRY INQ. 


065 70 


1 5 


02653 


OCOOM 






TDM 


MCOMM t 1 , , 


INDICATE PHASE BEGUN. 


06582 


I J 


02852 


0000 1 


14950 




TOM 


MCQPM*12,5 




06594) 


1 5 


02664 


00005 






TFM 


FOt**»* ( 


DECODE COL. 7. 


06608 


16 


09596 


— 4429 


1 4970 




B 


UT10,MSP05A,7 




06616 


49 


09136 


-6493 


1 4980 




TD 


•♦23.SFDINT,, 


TEST IF LEGITIMATE. 


06610 


2s 


06693 


00426 


1 4990 




BO 


•♦20tMC001 




06642 


43 


06662 


10690 


1 5000 




B 


UT1CE , , , 


Nti -KILL THIS PHASE. 


06654 


49 


09462 


00000 


15010 




OORG 


•-3 




06662 








1 5020 




BNF 


MFT03tF 1 




06662 


44 


06734 


09599 


1 50 30 




TFM 


F0,»*-23,, 


DECOOE COL. 8. 


06674 


16 


09996 


-6697 






B 


UTlC,*FT05Bt7 




06666 


49 


09136 


-6776 


15050 




BNF 


MF TC3 »F I 




06698 




06734 


09599 


15060 




TFM 


FQ,»*23,, 


DECCDE COLS. 9-10. 


06710 


14 


09998 


-6733 


15070 




B 


LT1C,MFT05C»7 




06722 


49 


09196 


-6792 


15010 


MPT03 


TR 


MR02,FQR0QA,, 


MOVE DO A FOR FORTRAN COMPILER. 


04714 


11 


09744 


10622 


15090 




BNR 


MSPQ4,MR02t . 


TEST IF VALID. 


06744 


49 


04474 


09744 


15100 




TFM 


POINT, 136 




04798 


14 


04744 


-0134 


15110 




B 


MB080A 




04770 


49 


09346 


00000 


15120 




OORG 


•-3 




04776 








15130 


MFT05B 


DSC 


4,0101 




04771 




4 








0101 














15140 




DC 
-8 


2,8 




0478) 




2 




15150 




DC 


2*1 




04765 




2 




i 31 60 




-i 

DSA 


C0NM*82 




04790 




3 


X I 












04790 




-2664 




15110 




DSC 


It* 




04741 




I 




isiao 


MFTOSC 


OSC 


4*01,01. 


36 


04792 




4 





1620- 1443 MONITOR I VERSION 2 SUPERVISOR AND l.C.A.T. 



PAGE 



IT 



15190 




DC 


2,9 




0*797 




2 




15200 




-9 

DC 


2,2 




06799 




2 




19210 




-2 
DSA 


COMM*75 




06804 




5 


X 1 












068C4 




-2877 




15220 




DSC 


It ' 




06805 




1 




15230 




DUP CNTL CARD PROCESSOR 










15240 


MDP01 


TDM 


MC0MM*i,2i ( 


SET PHASE INDICATOR. 


06806 


15 


02853 


0C002 


15250 




TDM 


MCOMM, 1 , , 


INDICATE PHASE BEGUN. 


06818 


15 


02852 


0C001 


15260 




TDM 


MC0MMM2.6, , 


SET DUP INOICATOR. 


06830 


15 


02864 


00006 


15270 




TDM 


MD02.4, , 


SET SYSCAl CODE. 


06842 


15 


09743 


00004 


15210 




TFM 


F0,»*23.. 


DECODE COL. 7. 


06854 


16 


09598 


-6877 


15290 




B 


tTiC,MSP05A,7 




06866 


49 


09138 


-6493 


15300 




TO 


•♦?3,SFDINT, , 


TEST IF LEGITIMATE. 


06878 


25 


06901 


00426 


15310 




BD 


MB080*24,MCD01 




0689C 


43 


03298 


10690 


15320 




B 


bT 1 CE 1 1 1 


NO -KILL THIS PHASE. 


06902 


49 


09482 


OCOOO 


15330 




CORG 


• -3 




06910 








15340 




XEQ AND XEQS CNTL 


CARD PROCESSOR 










15350 


MXQOl 


CF 


F SP Sf » » 


SET XEQ ENTRY INDICATORS. 


0691C 


33 


00429 


00000 


15360 




TFM 


MXDfi AH* 1 |.?T.lfl 




06922 


16 


07157 


000K7 


15370 




g 


MX0A7.24 
nAVrfUc ▼ c 




06934 


49 


06966 


OCOOO 


15310 




DORG 


• - 3 




06942 








15390 


MXQ02 


SF 


FSPS, ,, 


SET XEQS ENTRY 1NCICATCRS. 


06942 


32 


00429 


00000 


15400 




TFM 


HXQC3B* 11,34,10 




06954 


16 


07157 


0C0L4 


15410 




TDM 


MCOMM, 1 , , 


INDICATE PHASE BEGUN. 


06966 


15 


02852 


0C001 


15420 




TOM 


MC0MM*1, I, 11 




06978 


15 


02853 


OOOOJ 


15430 




TDM 


MC0HM*12,4, , 


SET OBJECT PROGRAM INDICATOR. 


06990 


15 


02864 


00004 


15440 




BNF 


•♦20,MCOMM*2, t 


TEST IF EXECUTION IS INHIBITED 


070C2 


44 


07022 


02854 


15450 




B 


L I 1 OF , , , 


YES "TYPE MESSAGE AND FINISH UP JOB. 


07014 


49 


09550 


OCOOO 


15460 




DORG 


• -3 




07022 








lb47Q 




TFM 


F0,*»23tt 


DETERMINE IF COLS. 7-12 LEGITIMATE* 


07022 


16 


09598 


-7045 


15480 




B 


LT10,MXQ50,7 




07034 


49 


09138 


-7813 


15490 




BC 


MXQC/.MD01 




07046 


43 


7418 


09742 


15500 




BNF 


MXQQ3.MD01 




07058 


44 


07078 


09742 


15510 




B 


UTIOE , 


NO -NAMES MUST BE NON-NUMERIC. 


07070 


49 


09482 


OCOOO 


15520 




OORG 


• -3 




07078 








15530 


MXQ03 


TFM 


MXQC3A*23,MXQ55, 


>, INITIALIZE TC DECODE REST CF CARC. 


07078 


16 


C7U3 


-7827 


15540 


MXQ03A 


TFM 


F0.«*23* • 


PERFCRM THE SCAN. 


07090 


16 


09598 


- 7 I i i 


15550 




B 


UTIO.XX 




07102 


49 


09138 


00000 


15560 




AM 


•-1,14 




07114 


11 


07113 


-0014 


15570 




BNR 


•♦2C.MD01, , 


TEST FOR R.M. 


07126 


45 


07146 


09742 


15580 




8 


MXQ04-24, , , 


YES -END OF CARD. 


07138 


49 


07170 


00000 


15590 




DORG 


• -3 




07146 








15600 


MXQ03B 


CM 


F5, XX 




07146 


14 


C9604 


-0000 


15610 




BNI 


MXQC3A, 1300 




07158 


47 


07C90 


01300 


15620 




BD 


MXC 12.L0INPT, , 


BRANCH IF NON-DISK LOAD INPUT. 


07170 


43 


07674 


00428 


15630 




BNF 


MXCll,C0MMO5,, 


BRANCH IF PROGRAM NAME SUPPLIED. 


07182 


44 


07642 


02837 


15640 


MXQ04 


BNF 


MXQ05,COMM*39, , 


TEST IF DIM ENTRY PICKED UP. 


07194 


44 


07226 


02841 


15650 




WATY 


MM37,,, 


NO -TYPE ERROR MESSAGE AND CLCSE JOB. 


07206 


39 


10487 


00100 


15660 




B 


LT1CF 




07218 


49 


09550 


00000 


15670 




DORG 


• - 3 




07226 








15680 


MXQ05 


3T 


bT05,COMM*39,, 


GO TC PICK UP THE CIM ENTRY. 


07226 


27 


08350 


02841 


lb690 




TR 


MRC2,UT05-l,ll , 


MOVE FOR LOAC ROUTINE. 


07218 


31 


C9744 


0834R 



37 



157C0 




BNR 


•♦20.MR02, , 


TEST IF EMPTY. 


07250 


45 


07270 


09744 


15710 




B 


MXQ04+12, , , 


YES -ERROR. 


07262 


49 


07206 


00000 


15720 




DORG 


• -3 




07270 








15730 




TF 


MF0l,MRO2»13,, 


DETERMINE IF RELOCATABLE. 


07270 


26 


09716 


09757 


15740 




CF 


MF01 




07282 


33 


C9716 


CCOOO 


15750 




CM 


MF01,99<599 




07294 


14 


09716 


R9999 


15760 




BI 


MXQ06A, 1200 




07306 


46 


07338 


01200 


15770 


MXU06 


TFM 


MXQC6C+6.MB190, , 


NO -FORCE UPCATING OF HIGH INOICATOR. 


07318 


16 


07416 


-3710 


15780 




B 


MXQC6B 




07330 


49 


C7386 


OCOOO 


15790 




DORG 


•- 3 




07338 








15800 


MXQ06A 


BNF 


•♦24,COMM*8» , 


YES -MOVE IN LOAD ACCRESS IF ANY. 


07338 


44 


07362 


02810 


15810 




TF 


MB225*ll,C0MM*l2 




07350 


26 


04044 


02814 


15820 




CF 


MB225M1 




07362 


33 


04044 


00000 


15830 




TFM 


MXQ06C*6,MB195 




07374 


16 


0741* 


-3722 


15840 


MXQ06B 


BNF 


•*24,COMM*l3t ♦ 


MOVE IN ENTRY ACDRESS IF SUPPLIEO. 


07386 


44 


07410 


02815 


15850 




TF 


MR02*18,COMM*1 7 




07398 


26 


09762 


02819 


15860 


MXQ06C 


B 


MB195,,, 


MB190 OR M8195. 


07410 


49 


03722 


00000 


15870 




CORG 


• -3 




07418 








15880 


MXQ07 


CF 


MCCBUF+14,,, 


CLEAR EXCESS FLAGS IK NAME F I ELD. 


07418 


33 


13014 


00000 


15890 




CF 


MCC8UFM6 




07430 


33 


13016 


00000 


159C0 




CF 


MCCBUFM8 




07442 


33 


13018 


OOCOO 


15910 




CF 


MCCBUF*?0 




07454 


33 


13020 


00000 


15-920 




CF 


MCCBUF*22 




746* 


33 


13022 


00000 


15930 


MXQ08 


TFM 


ABC3*30,MXQ09, , 


INITIALIZE FCR EQUIVALENCE TABLE SEARCH. 


07478 


1* 


110*4 


-7590 


15940 




TFM 


AB03*50,MXQ10 




07490 


16 


11084 


-7610 


15950 




TFM 


AB03*43,MCCBUF»23 




07502 


16 


11077 


J3023 


15960 




TF 


C0MMO5.MCCBUF*23 




07514 


26 


02837 


13023 


15970 




TD 


AB09A tEOUDDA 




07526 


25 


11379 


10862 


15980 




BNR 


•♦20.EQUDDA 




07538 


45 


07558 


108*2 


15990 




B 


• ♦20 




07950 


49 


07570 


COOOO 


16000 




DORG 


♦-3 




07558 








16010 




TF 


ABC9A*5,EQU00A*5 




07558 


26 


11 384 


10867 


16020 




TFM 


MXQ03A*23,MXQ55*14 




07570 


16 


07113 


-7841 


16030 




B 


MXQC3A , , , 


RETURN TO DECODE REST CF CARO. 


07582 


49 


07090 


00000 


16040 




DORG 


• -3 




07590 








16050 


MXQ09 


WATY 


MM38..t 


COULD NOT FIND -TYPE ERROR MESSAGE. 


07590 


39 


10523 


00100 


16060 




B 


UTiOF,,, 


FINISH UP. 


07*02 


49 


09550 


OCOOO 


16070 




OORG 


•-3 




07*10 








14080 


MXQ10 


AM 


AB03*ll,4, , 


MOVE CORRESPONDING DIM NUMBER TC 


07*10 


11 


11045 


-0004 


16090 




TF 


C0MMO9*AB03*ll ,11 


, TO THE COMM SECTOR. 


07*22 


2* 


028*1 


1104N 


16100 




B 


MXQC5,,, 


GO PICK UP THE DIM ENTRY. 


07*34 


49 


0722* 


00000 


16110 




CORG 


•-3 




07**2 








1*120 


MXQll 


BNR 


AB02-12,EQUDDA, , 


GO TO EQU TABLE SEARCH IF DDA VALID. 


07**2 


45 


1090* 


10*62 


16130 




TFM 


POINT, 2,, 


NO -TYPE ERROR MESSAGE. 


07*9* 


1* 


0976* 


-0002 


1*140 




B 


MB080A 




07*** 


♦* 


033** 


00000 


1*190 




DORG 


•-3 




07*7* 








1*1*0 


MXQ12 


TO 


•♦23.L0INPT,, 


TEST FOR LEGITIMACY OF INPUT OEVICI. 


0767* 


29 


07697 


00428 


1*170 




BO 


MXQ13.MCO05 




07*86 


43 


0771B 


10730 


16180 




TP* 


POINT, 27,9, 


NO -TYPE MESSAGE ANC EXIT. 


07*98 


1* 


0*7*8 


00-27 


1*1*0 




8 


UTIOE 




07710 


49 


09*82 


00000 


1*200 




OORG 


•-3 




0771B 








1*210 


MXQll 


TR 


NR02.MXQ20i t 


SET UP TO EXECUTE LOADER CALLER. 


07718 


11 


0*74* 


077*8 


1*220 




TO 


0IMENTM4.MCR01A 




07710 


29 


0041* 


0*499 


1*210 




•MP 


•♦24.C0»M»ll 




077*2 


44 


077** 


02815 


1*2*0 




TP 


DIMENT*18,C0MM*17 




07T9* 


2* 


00420 


0281* 


1*290 




BNF 


•♦24,C0MM*8 




077** 


44 


077*0 


02810 



1620- MO MONITOR t VERSION 2 SUPERVISOR ANC I, C.R.T. 

16260 TF HIGM*C0NN*12 

1*270 B MB 195 



16210 




00* G 


«- 


3 


16290 


MXQ20 


DSC 


1, 


1 


16300 




1 

OSA 


DSA 15 


16310 




CC 


3, 


3 






-03 






16320 




DC 


6* 


0« 






-0000' 




16330 


NXQ50 


OSC 


4i 


ICO 1 • 






1001 






16340 




DC 


2. 


7 






-7 






16350 




DC 


2, 


6 






-6 






16360 




OSC 


6i 


i0' 






00000* 




16370 


MXQ55 


DSC 


4, 


0101, 






0101 






16310 




OC 


2. 


13 






J3 






16390 




DC 


2, 


.'4 






-4 






16400 




OSA 


C0MMO9 


1 64 1 




OSC 


1. 




16420 




DSC 


4, 


,0 101, 






0101 






16430 




DC 


2, 


. 17 






J7 






16440 




DC 


2, 


-5 






-5 






16450 




DSA 


C0MJU12 


16460 




DSC 


1, 




16470 




DSC 


4, 


101, 






0101 






16480 




OC 


2, 


22 






K2 






lit 




DC 


?, 


.5 






-5 






16500 




DSA 


C0MMM7 






CSC 


1. 




16520 




DSC 


4i 


,0101, 






0101 






16530 




DC 


2. 


,27 






K7 







PROGRAM NAME. 



DIP NUMBER. 



LOAD ADORESS. 



ENTRY ADDRESS. 



INPUT SOURCE. 



30 



07771 I* 
07790 49 
07791 
077ft 

07001 

07903 
0790* 

07812 

07113 

07611 

Q7B2C 

07621 

07827 

07832 

07834 

07839 

07839 
07840 

07841 

07846 

07848 

07853 

07853 
07154 

07855 

07860 

07842 

078*7 

078*7 
078*8 

07869 

07874 



PAGE 

004 34 02114 

01722 00000 

1 

5 1 I 

J9783 
3 

* 

4 

2 
2 
* 
4 
2 
2 

5 X I 

-2141 

1 

4 

2 

2 

5 X 1 

-2114 

1 

4 

2 
2 

5 X 1 

-2ii9 

1 



16540 
16550 

16560 
16570 
16580 
16590 
16600 

16610 
16620 
16630 
16640 
16650 

16660 
16*70 
1**80 
1**90 
1*700 

1*710 
1*720 
1*730 
1*740 
1*790 

1*7*0 
1*770 
< 1*700. 
U7tO 



1620-1443 MONITOR 
2,1 



DC 
-1 

OSA LOJNPT 

OSC It* 

OSC 4,0101,, 

0101 

CC 2*26 
K8 

DC 2*1 

-1 

DSA COMM+82 



OSC 4,0101,, 

0101 

DC 2,29 
K9 

DC 2*2 

-2 

OSA C0MM*75 



OSC 1*' 

DSC 4*0101*, 
0101 

DC 2,31 
LI 

DC 2,2 

OSA CQNM*81 



OSC 1,' 

OSC 4,0101,, 
0101 

OC 2,33 
13 

OC 2,1 
-I 

OSA CO*M*77 



OSC 1, * 

OSC 4,0101,. 

9101 

OC - 2,34 

i4 

OC' 2,2 
-2 



CONTROL CARO COUNT FOR FORTRAN* 



I VERSION 2 SUPERVISOR ANO I.Q.R.T. 

787* 

07881 

07881 
07812 

SUBROUTINE SET INDENT 1FICAT ICN FOR FORTRA 07813 

07888 

07890 

07895 

07895 
07*16 

07897 

079C2 
07904 
079C9 

07909 

07910 

07911 

07916 

07918 

07921 

07921 
0791* 

079ft 

07910 

07912 

07917 

079)7 
07910 

07930 

07994 

0794* 



SPS SUBROUTINE SET, 



SPS NOISI DIGIT. 



%P% MANTISSA li«67H. 



PAGE 

2 

5 X 



-0428 

1 



2 
2 

5 X 



-2884 

1 



2 
2 



-2077 

1 



2 
2 

J X 



-2001 

1 



4 
2 
2 

% X 



40 



-1179 

1 

4 

2 
2 









162C-1**3 MONITOR I 


VERSION 2 SUPERVISOR AND I.C.R.T. 








PAGE 


1*100 




OSA 


COMM+79 




795 I 




5 


X 1 












7951 




-2861 




1661 




osc 


1. • 




7952 




I 




i *tn 




ROUTINE TO MULTIPLY A 


pilf it u v ci UC — OCCIIlT I ( k CIUC 
UlbM BY rJVt Kt JUL 1 1j * rive 














DIGIT FIELD ADDRESSED 


AT UTQ 1- 1 














DC 


5,0,,, 


LALLlNb btUUtNUc 


0795 7 




<j 








-0000 
















TFM 


•-2,0,8, 


in ni r i r 


07956 


1 6 


07956 


o-ooo 


16860 




CF 


UTC1-1, ,7, 


.1 M 1 iTn 1 A 

B in ui y i |U 


07970 


33 


07957 


-0000 


16870 




TD 


• - l.UTOl-l 




07962 


25 


0796 1 


07957 


16880 




A 


UT0l-ltUT01-l 




0799* 


2 1 


07957 


07957 






A 


LT01-1.UT01-1 




080C6 


2 1 


07957 


07957 


l ionn 




A 


LT01-1.UT0U23 




08018 


21 


07957 


07981 


i ioi n 
!« n 




OB 






08030 


42 


00000 


OOOOO 






OORG 


•-9 




080 32 








i lain 
i of n 




ROUTINE TO EXTRACT NUMERICAL STRIP FROM MONITOR CCNTRCL 












* 


CARD READ IN AREA (MQMTCR READ IN AREA HAS FLAGS IN EVERY 










i io«n 

i !a!n 




EVEN DIGIT POSI T I ON 1 












16 




DC 


5,0,, 


CALLING SEQUENCE 


n _ 




5 








-0000 














U 3 


TDM 


MOOl.O, , 




08038 




09742 


ocooo 


16980 




TFM 


MF02.MF03-20,, 


TFM MFO I , NCHAR 


06050 




09721 


-9 72 1 


16990 




A 


MF01,MF01 , , 


BTM UT03 , ACDR 


06062 


21 


09716 


09716 


1 7000 




A 


MF01.UTC3-1 , , 




0807* 


21 


09716 


08037 


1 70 10 


UT03 A 


TF 


UTC3B*8,UT03-1, 11. 


WHERE NCHAR IS THE NUMBER CF CHARS. 


08086 








! 






m A 3 A. llTOlft^fl 

'▼coiUIUJQtBit 


IN THE F I ELC , ACDR IS THE ADDRfcSS OF 


n2??n 


45 


08 1 24 


08 156 


1 7030 




TDM 


MOO 1,0, , 


THE FIELD -AS IT WOULD BE ADDRESSED 






09742 


UlUUU 






DORG 


• , , 


FCR AN ALPHAMERIC 1QP (SECONO DIGIT). 










1 7050 




DSC 


1, ' , , 




08 12 1 








1 7060 




BB 




UPON RETURN, MOO I CONTAINS MINUS ZERO 


. * 






UbUUU 


1 70 70 




DORG 


•-9 . t 


IF THE FIELC WAS PURE NUMERIC, PLUS 


08 1 2* 








1 7080 




AM 


MF02, 1, , 


ZERO IF BLANK. A RECORD MARK IF IT 


08 1 2* 


1 1 


0972 1 


-000 1 


1 7090 




TD 


MF02,UT038*8,6, 


CONTAINED A RECORD MARK, AND PLUS CNE 


061 36 


25 


0972J 




17100 


UT03B 


CM 


• ♦8, 0,710, , 


IF THE FIELD WAS NON-NUMERIC. 


08 1*8 


14 


2f \ 




17110 




BN I 


• ♦38, 12C0, , 




06 160 


4 7 


08198 


1200 


17120 




BNF 


UTC3CMD01,, 


A CNE DIGIT SOURCE FIELD IS ALWAYS TRANS- 


08 172 








17130 




TDM 


MDC1, 1, , 


FERRED INTO A TWO DIGIT OBJECT FIELD, 


nil at 


1 5 


09742 


0000 1 


171*0 




BB 




SOURCE FIELDS OF MORE THAN ONE DIGIT 


08196 


42 


QQOOU 


UUUUU 


17150 




DORG 


•-9,, 


RETAIN THEIR ORIGINAL DIGIT COUNT. THE 










17160 




CM 


UT03B*8,70, 10, 


LOCATICN OF THE OBJECT FIELD IS GIVEN 


08198 


1* 


08 1 56 




1 71 70 




BN 1 


LT03BO6, 1300, , 


BY MF02 (IT WILL BE IN MF03 ) 


082 1 


* 7 


08 184 


1 300 


17180 




TDM 


MOOUO, 11 




08222 




09742 




1 7 190 


UTQ 3C 


AM 


U TO 3- 1,2 




0823* 


1 1 


080 37 


1; 


1 7200 




C 


UTC3- l.MFOl 




082*6 


2* 


08037 


097 1 6 


17210 




*N I 


UTC3A, 1300 




082 58 




08086 


1 300 


1 7220 




CM 


MF02.MF03-19 






1* 






1 7230 




BN I 


•>*8t 12C0 




08282 


47 


08330 


01200 


172*0 




TC 


MFC 3- 1B.MFQ3-19 




0829* 


25 


09723 


C9722 


17250 




T CM 


MF03-19.0 




083C6 


15 


09722 


OOOOO 


1 7260 




TFM 


MF02,MF03-18 




08318 


16 


09721 


-9723 


1 7270 




SF 


MFC 3- 19 




08330 


32 


09722 


COOOO 


17280 




BH 






083*2 


42 


ooooo 


OOOOO 


1729U 




PORG 


• -9 




083** 














162C-1**3 MONITOR 1 


VERS1QN 2 SUPERVISOR AND I.C.P.T, 








PAGE 


1 7300 




MONITOR SUBROUTINE TO READ A MAP SECTOR INTO 0-99 










17 310 




DC 


5.0 




083*8 












-OCCO 












1 7 32 


UT05 


TR 


UT05B.MAPSCT, . 


CALLING SEQUENCE 


08 350 


3 1 


08466 


01847 


1 7 3 30 




A 


UT05B+6.UT05-1, , 


BTM UT05.DIMNUM 


08362 


2 1 


084 74 


08349 


1 7 3*0 




A 


UT05B*6,UT05-l , , 


WHERE DIMNUM IS THE CIM ENTRY 


0837* 


2 1 


08474 


083*9 


.1 7 > 5 




TD 


UT05AU l,tjT05B*6, , 


WHICH 1$ DESIRED IN THIS SECTOR • 


08386 


25 


08457 


084 74 


1 7 360 




TDM 


UT05B*6,0, 1 1 , 


UPON RETURN UT05-1 CCNTAINS CORE 


08398 


15 


08474 


0000- 


17370 




TFM 


10XX,»*23, , 


ADDRESS OF THE REQUESTED ENTRY 


08*10 


16 


00565 


-8*33 


17 380 




B 


I0GT.UT05A1 ,7, 


(■0.20.40.60,80) 


08422 


49 


00566 


-8460 


17390 




TFM 


UT05-1.0 




08436 


16 


08349 


-0000 


17*00 


UT05A 


TDM 


UTC5-2,XX 




08446 


15 


08348 


OOOOO 


?, 7 'H O 




BB 






08458 


42 


OOOOO 


OCOOO 


/*20 




OORG 


•-9 




08460 








1 7*30 


UT05AI 


DSC 


2,22 




08460 




2 




1 7**0 




22 
CSA 


UT05B 




08466 






X 1 












08466 




-8468 




1 7*50 




DSC 


I.* 




08467 




1 




1 7*60 


UT05B 


DSC 


20,0 




08468 




20 








OOOCCCCCCOOCCOOCCOCO 












17*70 




SUBROUTINE TO TYPE A 


MONITOR CONTROL CARD. 










1 7*80 




DC 


5.0 




08492 












-0000 






" 






1 7*90 


UT06 


BNF 


• ♦l*,MCR02A*U,li, 


RETURN IF INPUT FROM THE TYPEWRITER. 


08494 


44 


08506 


04 1 2P 


1 7500 




BB 






08506 


42 


OOOOO 


CGUUU 


1 7510 




DORG 


•-9 




08508 








1 7520 




RCTY 




RESTORE TYPEWRITER CARR I AGE. 


08508 


34 


00000 


00102 


1 7530 




TFM 


UT06A*ll,MCCBUF*ll , 


..DETERMINE LAST NCN-BLANK COLUMN OF 




16 






175*0 




B 


UTG6B+12. , , 


CARO. 


065 32 


49 


06632 


OCOOO 


1 75 50 




OORG 


•-3 












1 7560 


UT06A 


BD 


UT06B,XX 










AAAAA 
UUUUU 


1 7570 




AM 


UT06A*ll,l 




08592 


1 1 




MACK \ 


17580 




BD 


UTC68*l2tUTQ6A*llill 


06564 


43 


08632 


0855 J 


17590 




AM 


UT06A*U,i 




01576 


11 


0699 1 


—000 1 


17600 




CM 


uT06A*lltNCCBUF»160 


08586 


I* 


06551 


J3160 


1 76 10 




BN! 


UTC6A.1300 




06600 


41 




1300 


17620 




B 


UTC6C 




06612 


43 


08692 


OCOOO 


17630 




OORG 


•-3 




06620 








176*0 


UT06B 


AM 


UT06AM1. 1 




06620 


11 


08991 


•0001 


17650 




TF 


UT06D*iUUT06A*ll 




06612 


26 


08729 




17660 




B 


UT06B-44 




08644 


A* 


06974 


UUUUU 


17670 




DORG 


•-3 




01692 








17680 


UT06C 


TO 


l9996,MCCSUF*lt. 


DUMP INITIAL RECORD MARKS* 


06692 


29 


19996 


13001 


1 7690 




TO 


19999.MCCBUFO 






29 


19999 


13003 


17700 




DNTV 


19996 






j2 


19996 


00100 


17710 




6NR 


•♦l*,MCC6UF*5, , 


RETURN IF R.N. IN COL. 3. 


086B1 






1 1009 


17710 




BB 






06700 


42 


OOOOO 


OOOOO 


17710 




OORG 


•-9 




06702 








17760 




AM 


•♦23,2,. 


SET R.M. AFTER LAST SIGNIFICANT CHAR. 


06702 


11 


06729 


-C002 


177JO 


U7060 


TO 


UT06E+11.XX 




08714 


29 


06771 


OOOOO 


17760 




TO 


•-UMCR01A.6 




00724 


29 


0672N 


04499 


17770 




MATY 


MCCBUF+5,,, 


TYPE REMAI NOER OF CARD. 


00716 


19 


13009 


00 100 


17780 




RCTV 






06790 


34 


OOOOO 


00102 



162C-1443 HONITQR 1 VERSION 2 SUPERVISOR AND I .Q.R. T * 



PACE 



17790 


UT06E 


TDK 


U T 60 ♦ I I « X X * 6 i 


17100 




BB 




17810 




DORG 


• -9 


17820 




JOB CLOSE-OUT SUB 


1 7830 




OC 


5,C 






-OQOO 


1 78*0 


UTQ7 






17850 








17860 




_ 




1 7870 




an 


• ♦** UT07 1 


17880 




rn 


.ill M^ftMMAl 


17890 




an 


• ♦ « » 00 p i , 


17900 






• ♦ 20 


17910 




OORG 


•-3 


1 7920 






MM 2 I 


17930 




RC T V 




17940 




T C 


U TO 7C » MCQMH* 5 


1 7950 




TDM 


LTQ7Al*ll»0 


17960 




8 


• ♦ 2C 


1 7970 




DOR G 


• -3 


1 7980 


UT07A 


3* 


U TC 7C » 70 1 1 » 


1 7990 




B I 


•♦ 12 »600 t . 


16000 




B I 


• ♦ 1 2 » 700 


18010 




B 1 


•♦12,1600 


18020 




B I 


• ♦ 1 2 t I 700 


18030 




36 


OT07C t 702 


180*0 




BN I 


I TO 76 # 1900 


16050 




TO 


• ♦23,t»23,U, 


1 8060 


UTOTA 1 


BO 


UTC7A,MC0ll 


18070 




WATY 


MM2?,,, 


18080 






MM 2 3 


1 8090 




RC TY 




18100 








18110 






UTO 7A 


18120 




CQRG 


•- 3 


18130 


Uf 078 


TOM 


MCOM« f Q,» 


181*0 




TDM 


MCOMM*l,Q t i 


18150 




TOM 


MCCJMH + 2 iO 


18160 




TDM 


MI03,1,11 


18170 




TO 


lBMmOO ( MCpMM^5 


18180 




BB 




18190 




DORG 


• -9 


16200 


UT07G 


DSC 


1.1 


18210 




I 

OSA 


OSAC* 


16220 




OC 


3. 1 






-ci 




18230 




OC 


6,*Q2' 



RESTORE DIGl T. 



FORGET IT IF *E HIVEN-T DONE ANYTHING. 



TYPE END OF JOB MESSAGE IF FORCED. 
NO -TYPE ONLY IF THE CONTROL CARO 
SOURCE IS NOT THE TYPEWRITER 



REFRESH THE COMMON REGION AND THE 
OVRLAY READ ROUTINE. 



COMPLAIN LOUDLY IF ANY ERROR. 



OPERATOR MUST RESET AND START TC RETRY , 



INITIALIZE NECESSARY INDICATORS AND 

FIELDS. 



BOUNCE BACK. 



162*0 • •••• 
18250 UUO 
18260 
18270 
18280 



18290 
18300 
18310 
18320 
18330 
183*0 
18350 

18360 UT10A 

18370 

16380 

18390 

18400 

18*10 

18420 

18430 UT10B 

18440 

16450 

18460 

18470 

18480 

18490 

18500 

18510 

18520 

18530 UT10C 

16540 

18550 

18560 UTtOO 

18570 

18580 

18590 UTIOE 

18600 

16610 

18620 

18630 

18640 

16650 

18660 UTIOF 

18670 

18671 

18660 

18690 

18700 FO 

18710 Fl 

18720 F2 

18730 F3 

18740 F4 

18750 P5 

18760 *% 



-0402' 

SUBROUTINE TO DETERMINE VALIDITY OF A CONTROL CARO F I ELD* 
TF • ♦23,FO,U. MOVE CALLING SEQUENCE RtCORO. 

TR Fl.XX 

AM FO.l*. COMPUTE NORMAL RETURN AOORESS. 

TF POINT. F 5, . INITIALIZE COLUMN TYPE-OUT POINTER. 



43 



1620-1443 MONITOR I VERSION 2 SUPERVISOR AND I.O.R.T. 



PUINT-l 
Fl.., 
F * 

LIT 10A*23.MCCBUF-l 
LT10A*23,F5 
IT1CA*23|F5 
IT1CAM1.F6 
MFOl.XX,, 
L TO 3, XX 
LTlCB.MDOl » t 
Fl.,. 
UTIOE, Fl, 
8 F0,,6 
OORG »-3 

BO ITIOC.MDOI,, 
UTIOD.NDOl, , 
F0,F7-4,6, 
F6.1.10, 
• ♦2*. 1200 
•♦13.5 
F7,MF02,6ll 
•-11,6 
FO, .6 
3 

LU0E.F2,, 
B FO.,6 
OORG «-3 
BD LT10E.F3.. 
B F0..6 
OORG »-3 
MATY MM 39, f , 
WNTV POINT-1 
WATY MM45 
BD UTIOF »F4, , 
CP F*,,, 
B F0..6 
OORG »-3 
MATY MM40,,, 
RCTY 

TOM M101.0 
• M6140, 
OORG »-3 
OC 5,0., 

-0000 

DSC 


OSC 



CF 
SF 
SF 
TFM 



TO 
TFM 
BT« 
BNR 

CF 
BO 



BNF 
BNF 
CM 

BN I 

TOM 

TF 

TOM 

B 

OORG 
BD 



INITIALIZE RETURN INC. FLAGS. 
•INITIALIZE CALL TO UT03. 



EXTRACT NUMERIC STRIP IF ANY 

NO -CHECK FCR R.M. 
YES -SET INDICATOR. 
GO TO ERRQR ROUTINE 



IF NOT ALLOWED. 



GO TO ALPHA-S TEST IF ALPHAMERIC. 
GO TO BLANK -S TEST IP BLANK. 
NUMERIC -EXIT IF NO MOVE OESIREq. 
NUMERIC -MOVE DIGIT OR A FIELD. 



GO TO ERROR IF ALPHA-S NOT ALLCWEO. 
QO TO ERROR IP 8LANK-S NOT ALLOMEO. 
TYPE ERROR MESSAGE. 



BRANCH IP PHASE TO BE DELETED. 
SET RETURN I NO. 



TYPE PHASE OEUTEO MESSAGE 





OSC 



DSC 


DC 
-0 
OC 

-o 



1,0,, 
l,C, 
1*0., 
1,0,, 
2.0,. 
2,0,, 



TURN OFF ALREADY READ INDICATOR 
NINO-UP. 

CALL AND RETURN VECTOR. 
R.M. ERROR. 
ALPHA ERROR. 
BLANK ERROR. 
END PHASE ON ANY ERROR. 
STARTING CARD COL. 
MHO LENGTH. 



08762 


15 


0672N 


oocoo 


08774 


62 


00000 


OOQOO 


08776 








08760 




5 




01782 


43 


08796 


02652 


06794 


42 


00000 


00000 


06796 








08796 


43 


08640 


08781 


068C6 


25 


06831 


02655 


06620 


43 


06640 


10730 


06832 


49 


06652 


ooooo 


08840 








01640 


39 


10169 


00100 


06852 


34 


00000 


00102 


08864 


25 


09122 


02857 


068 76 


|5 


09003 


ooooo 


01888 


49 


06906 


OOOOQ 


08696 








08896 


34 


09122 


00701 


08908 


46 


08920 


00600 


08920 




089 32 


00700 


08932 


46 


08944 


01600 


08944 


46 


06956 


01 700 


08956 


36 


09 122 


00702 


08968 


47 


09060 


1900 


08980 


25 


09003 


0900L 


06992 


43 


06896 


1 C 790 


09004 


39 


10191 




090 1 6 


39 


10277 


00 100 


09028 


34 


00000 


00102 


09040 


48 


00000 


OOOOO 


09052 


49 


08896 


OCOOO 


09060 








09060 


15 


02852 


OOOOO 


09072 


15 


02853 


ooooo 


09084 


is 


02854 


OCOOO 


09096 


15 


09841 


OOOOJ 


09108 


25 


00440 


02857 


09120 


42 


COCOO 


CCCC-1 


09122 








09122 




I 




09127 




5 


X 1 


09127 




J9639 




09130 




3 




09136 




6 




09138 


26 


09161 


Q959Q 


09150 


31 


09599 


OOOOO 


09162 


1 1 


09596 


— COO I 


091 74 


26 


09766 


09604 








PAGE 


09186 


3 3 


09767 


OCOOO 


09 198 


32 


09599 


V v w w w 


092 10 


32 


09602 


VvUUv 


09222 










* * 




0960* 


09246 


2 1 


09293 




092 58 


23 


0928 1 


09606 


092 70 


16 


09716 


-0000 


09282 


1 j 


08036 


— COOO 


09294 




09338 


09 742 




33 




WW WWW 


093 1 8 


4 3 


09462 


09599 




49 


0959Q 


UUUUv 


093 36 














og _ 


09350 




09462 


09742 


09362 


44 


0959Q 


09607 


09374 




09606 






47 




1200 


09398 


15 


094 1 1 


00005 


094 10 


26 


0961 J 


0972 J 


09422 


15 


094 1 1 


00006 


09434 


49 


0959Q 


ooooo 


09442 








09642 


43 


09462 


09600 


09454 


49 


0959Q 


OOOOO 


09442 








094A2 


43 


09462 


0960 1 


09474 


49 


09590 


OOOOO 


09412 








09462 


19 


10561 


00 100 


09494 


31 


09767 


00100 


095C6 


3« 


10647 


00100 


09516 


41 


09950 


09602 


09930 


33 


09602 


OOOOO 


09942 


49 


09590 


OOOOO 


09550 








09590 


19 


10409 


00 100 


09542 


14 


00000 


00102 


09574 


15 


09040 


OOOOO 


09566 


49 


01*50 


ooooo 


09594 








09996 




f 




09599 




1 




09600 




I 




09401 




1 




09602 




I 




09604 




2 




09*06 




2 





«4 



1620-1443 MONITOR I VERSION 2 SUPERVISOR AND I.C.R.T. 



PAGE 



18770 




DC 5 • 1 1 


MOVE TO AOORESS FOR NUMERIC OATA. 


096 1 1 




5 








- C C C 












1 8780 




DSC 1 » ' » 




096 12 




1 




1 8790 




NON EXECUTE TESTER. 












18800 




DC 5,0 




096 1 7 




5 








-0000 












18810 


UT 1 1 


BD • ♦ 24, I , , 


PICK THE ENTRY. 


096 1 8 


4 3 


09642 


09617 


1 8820 




BNF LTl 1A»12»NQNEX » , 


TEST IF EXECUTE INHIBITOR IS ON. 


09630 


44 


097 10 


00457 


1 8830 




BNF • ♦ 20 » MCOMM* 2 » » 


YES -TYPE ONLY IF NOT ALREADY TYPED. 


09642 


44 


09662 


02854 


1 8840 




8 L T I I A 




09654 


49 


09698 


00000 


1 8850 




DOR G »-3 




09662 








1 8860 




WATY MM19 




09662 


39 


10119 


00100 


188 70 




KCTV 




096 74 


34 


00000 


00 102 


1 8880 




SF MC0MM*2,,, 


TURN ON EXECUTION INHIBITOR. 


09686 


32 


02854 


ocooo 


1 8890 


UT 1 1 A 


CF NONEX 




09698 


33 


00457 


OCOOO 


1 8900 




BB 




09710 


42 


AA AAA 

00000 


AAA A A 
00000 


18910 




DORG ♦ 




09712 








18920 




MONITOR SCRATCH FIELDS 










189 30 


MP01 


DC 5,C 




09716 




5 








-0000 












18940 


MF02 


DC 5,0 




09721 




5 








-0000 












18950 


MF03 


DC 20, C 




09741 




20 








-OOOOOOCCOOOCOOOOOOO 












1 8960 


MOO 1 


DSC 1,0 




09742 




I 




18970 


M002 




DSC 1,C 




09743 




1 




1 8980 


MR02 




OSC 20,0',, 


HOLDS DOA FOR PROGRAM MONITOR IS CALLING. 


09744 




20 








0000000000000000000' 












1 8990 


POINT 


DC 5,0,, 


LOCK Y HERE, MA. 


09768 




5 








-0000 












19000 




OSC 1,', 




09769 




1 




19010 




INITIALIZATION RECOROS. 










19020 


IREC 


DSC 2,0 




09770 




2 








00 












19030 




DC 12,-0 




09783 




12 








-ooccocccoo- 












19040 




DC 4,0», 




09787 




4 








-00' 












19050 


JREC 


DC 1,0 




09788 




1 




19060 




DSC 5,-C 




09789 




5 








coco- 












19070 




DSC 5,-C 




09794 




5 








0000- 












19080 




OSC 5,C, 




09799 




5 








0000' 












19090 


KR EC 


DC 1,0 




098C4 








19100 




DC 2,-C 




09806 




2 




191 10 




DSC 1,-0 




098C7 




1 





19120 
19130 
19140 

19150 L R EC 

19160 

19170 

19180 

19190 

19260 MR E C 

19210 • 
19220 MIOi 

19230 MI03 

19240 

19250 MM01 
19260 MM02 
19270 MM03 
19280 MM04 
19290 MM05 
19300 MM06 
19310 MM07 
19320 MM08 
19330 MM09 
19340 MMIO 
19350 MMU 
19360 MM 16 
19370 MM17 
19380 MM19 
19390 MM21 
19400 MM22 



16*C-1443 MONITOR I VERSION 2 SUPERVISOR AND I.C.R.T. 

DC 2,-0 



DSC 2,-0 
0- 

DSC 2,-C 
0- 

DSC 2.-0 
0- 

DSC I,', 

DSC 19,0* 
OOCOCOCCCOOOCOOOOO' 

THE FOLLOWING INDICATORS ARE NON-ZERO OR FLAGGED IF TRUE. 
OSC 1,0,, CNTL CARD RE AO I NO* 



OSC 1,0,, -JOB- CARD SEARCH 1N0. 



MONITOR DAC-S 
DAC 24, ENTER MONITOR CNTL REC.'t 
ENTER MONITOR CNTL REC • • 
DAC A, JOB , 

JOB 

DAC 4, TYPE, 
TYPE 

DAC 4,PAUS, 

PAUS 

DAC 4.SPS . 
SPS 

DAC 4.SPSX, 

SPSX 

DAC 4, FOR , 

FOR 

DAC 4.F0RX, 

FORX 

DAC 4 ,DLP * 

DUP 

DAC 4.XEQ , 
XEO 

DAC 4.XEQS. 
XEOS 

OAC 32. PACK NUMBER ERROR ON MODULE 0. •» 
PACK NUMBER ERROR ON MODULE 0. • 

DAC 42, SET SSM4 TO IGNORE, OFF TO RE-ENTER CARD.', 

SET SSW4 TO IGNORE, OFF TO RE-ENTER CARD.' 

OAC 25, EXECUTION IS INHIBITED. *, 

EXECUTION IS INHIBITED, • 

OAC U.ENO OF JOB', 

END OF JOB* 

OAC 43, CANNOT RESTORE COMMON -RESIT ANO START TO • , 
CANNOT RESTORE COMMON -RESET ANO START TO * 



09809 
09811 
09812 
09813 
09814 
09816 
09818 
09820 
09821 

09840 
09841 

0984 3 
09891 
09899 
09907 
09915 
09923 
09931 
09939 
0994? 
09955 
09943 
09971 
10019 
10119 
101*9 
10191 



46 



19410 MM23 

19*20 MM25 

19430 MM26 

1944Q ""30 

19450 MM31 

19460 MM32 

19470 MM33 

19480 MM36 

19490 MM37 

19500 MM38 

19510 MM39 

19520 MM40 

19530 MM45 

19540 
19550 

19560 NCC01 



19580 MCD02 
19590 



19600 
19610 
19620 
19630 
19640 
19650 
19660 
196 70 
196d0 
19690 
197CQ 



MCDC3 
MCD04 
MCDU5 
HCC06 
MCDC7 
MCD08 
MCC09 
MCCIO 



1620*1443 MONITOR 1 VERSION 2 SUPERVISOR ANO l.C.R.T. 

OAC 6, RETRY* , 
H E TR Y • 

OAC 10.EXECUT10N* , 
EXECUT IUN» 

OAC 21, JOB CARO CROUP ONLY ' t 

JOB CARO GROUP ONLY* 
DAC I 2 i MUST RELOAD • , 
MUST RELOAD* 

DAC 18, CONDITION IGNORED' » 
CONDITION IGNORED ' 
OAC 8, COMPARE', 
COMPARE • 

DAC 12, -ENTER CARD • , 
-ENTER CARD* 

DAC 18, SYSTEM DIM ERROR *, 

SYSTEM CIM ERROR • 

DAC 18, OBJECT DIM ERROR », 

OBJECT DIM ERROR • 

DAC 19, OBJECT NAME ERROR 

OBJECT NAME ERROR • 

DAC 24, ERROR IN FIELD AT COL. '» 

ERROR IN FIELD AT COL* • 

DAC 19, PHASE TERMINATED. », 

PHASE TERMINATED. • 

DAC 3,. 

FOLLOWING ARE MONITOR-S QUICK AND CIRTY DIGIT DECODERS. 
DOR G SYS0RG*«288 
DSC 2,-01 
OJ 

DSC 8,01010000 

010100CO 

DS 0,*»1 

DC 2,6 

-6 

DC 2,8 
-8 

DC 6,1CCOOO 
JOOOOO 

DSC 1CC010COOGOO 
OOIOOOOOCO 

osc iq.cioioioico 
oioioioico 

OSC 10,C001010COO 

0O01O100C0 

DSC ICCOOGCOOCCO 

OCOOOOCOCO 

DSC 10.C124444444 

0124444444 

DSC 1CC443444444 

0443444444 

DSC 10, 1357911 111 

1357911111 



DC 



2,-20 



47 



10277 
10289 
10309 
10351 
10375 
10411 
10427 
10451 
1048 7 
10523 
10561 
106C9 
10647 



10690 
10690 



10700 
10701 

IC7C3 

10709 

10710 

10720 

10730 

10740 

10750 

10760 

IC770 

10781 

1C783 



6 

10 
21 
12 
18 

8 
12 
18 
18 
19 
24 
19 

3 



10 
10 
10 
10 
10 
10 
10 
2 
2 



1620-1443 MONITOR I VERSION 2 SUPERVISOR AND I.O.R.T. 



OC 
LN 
DC 



19740 MCUll 



19750 
19760 



-40 



DSC IC, 1234567890 
1234567890 

SYSTEM DIM ENTRY SECTOR -THESE CDA-S ARE PICKED UP 
OORG SYS0RG*8400, BY THE CCLO START ROUTINE. 



19770 SPSCCA OSC 1,0., 





ODA FOR SPS ASSEMBLER. 



1C785 
10787 
1C789 
10790 



10802 
10802 



2 
2 
10 

1 • 
5 X 



19790 
19800 



DC 3,0 
-00 

DSA 0,0 



108C7 
10810 



-OCOO 
3 



19820 FORCDA DSC 


19830 DSA 



19840 
19850 



1,0. 





DC 3,0 
-00 

DSA C,0 



DOA FOR FORTRAN COMPILER. 



10815 
10820 
10821 

10822 

10827 

10827 
10890 



-0000 
-0000 
1 



I 

5 X 



-0000 

1 



19870 OUPCOA DSC 



19880 DSA 



DSC 

1.0* 



19890 
19900 



OC 3*0 
-00 

OSA 0.0 



19920 EQUCOA OSC 



199)0 OSA 



-00 



1*0* 



3*0 



PDA FOR OUP SUPERVISOR. 



OOA FOR EQLI VALENCE TABLE. 



4* 



10815 
10840 
10841 

10842 

10847 

10847 
10890 

10855 

10855 
10840 
10841 

108*2 

10847 

10847 
40870 



-0000 

•oooo 
1 



1 

s x 



-0000 

1 



-0000 
•0000 

I 



I 

9 X 



•0000 

1 



1620-1**3 MONITOR I VERSION 2 SUPERVISOR AND I.C.R.T. 



19950 




DC 


6 , • 




10876 




6 








-COCO' 












19960 




IORT LOAD PROCESSOR 


FOR NAMED PROGRAMS SECTION 2 










19970 




OORG 


SYSCRG*850Q 




109C2 








19980 


ABOO 


BNF 


AB05,AA02A*5# . 


TEST FOR A SPECIFIED LOAD ADDRESS. 


10902 


44 


11134 


00234 


19990 




TF 


AAC4*l 1 ,AA02A»4t » 


YES ^MOVE TO CALLING PARAMETER RECORD. 


10914 


26 


00295 


00233 


20000 


ABO 1 


SF 


AAQ2A*5. . t 


INITIALIZE SCAN. 


10926 


12 


00234 


COOOO 


20010 




TFM 


IQxx,»«23 




10938 


16 


00565 


JC961 


20020 




B 


IOSK.AB08, 7 




10950 


49 


00554 


J1363 


20030 




TF 


ABC9A*5,MAPENT*5 




10962 


26 


11384 


02149 


20040 




TO 


A8C9A , TEMP- 5 




10974 


25 


11379 


02014 


20050 




TO 


ABlC*4U,AB09, f 


SET A GROUP MARK FOR LOOP TEST. 


10986 


25 


11805 


11378 


20060 


AB02 


TFM 


IOxx,»*23t . 


READ 4 EQUIVALENCE TABLC SECTORS • 


10998 


16 


00565 


J1021 


20070 




B 


IOGT, AB08*8, 7 




11010 


49 


00566 


41371 


20080 




TFM 


AB03HltA6lO*U tf 


INITIALIZE 4 SECTOR SCAN. 


11022 


16 


11045 


J1405 


20090 


AB03 


BNR 


32, XX, , 


TEST IF TABLE IS EXHAUSTED. 


11034 


45 


11066 


00000 


20100 




TFM 


BK P T i ABO 1 




11046 


16 


00467 


JC926 


20110 




B 


ERROR*72 




11058 


49 


00704 


ooooo 


20120 




OORG 


• -3 




11066 








20130 




C 


ABC 3* 1 1 .AA02A+ It, 


6, COMPARE CURRENT ENTRY. 


11066 


24 


1104N 


00245 


20140 




BI 


AB06, 1200, . 


BRANCH IF FOUNO. 


11078 


46 


11154 


01200 


20150 




AM 


ABC3* 1 1*16,, 


N(J -ADVANCE ACORESSING. 


1 1090 


11 


11045 


-0016 


20160 




55 


ABC 3, AB03* 1 1 , 1 I , 


TEST IF 4 SECTORS EXHAUSTED. 


111C? 


55 


11034 


U04N 


20170 




AM 


ABC9A*5» 4, , 


YES -INCREMENT SECTOR ADDRESS. 


11114 


11 


11384 


-C004 


20180 




B 


AB02 




11126 


49 


10998 


OOOOO 


20190 




DORG 


•- 3 




11134 








20200 


AB05 


TF 


AAC2A* 16,AA02A*12 


, .MOVE NAME FCR NO LOAD ACCRESS CASE. 


11134 


26 


00245 


00241 


20210 




B 


ABO 1 




11146 


49 


10926 


OQOOO 


20220 




DORG 


• - 3 




11154 








20230 


AB06 


AM 


ABO 3* I 1 ,4, , 


MOVE FOUND DIM ENTRY. 


11154 


11 


11045 


-C004 


202*0 




TF 


AA04+6, ABO 3* 11,11 




11166 


26 


00290 


1 104N 


20250 




BNF 


•»24,AA02A*26, , 


TEST IF REPOSITIONING OESIRED. 


11178 


44 


11202 


00255 


20260 




SF 


AA04, , , 


YES -SET INDICATOR. 


11190 


32 


00284 


OOOOO 


20270 




BD 


•♦24,AA02A*26i , 


TEST IF EXECUTION OESIRED. 


11202 


43 


1 1226 


00255 


202(10 




SF 


AA04* 1 , , t 


YES -SET INDICATOR. 


11214 


32 


C0285 


COOOO 


20290 




TR 


, ABO 7 » t 


OVERLAY SECTION 1 WITH TERMINATION 


1 1226 


31 


00000 


1 1246 


20300 




B 


» , , 


ROUTINE. 


11238 


49 


COOOO 


OOOOO 


20310 










11246 








20320 


AB07 


TFM 


IOXX,23*, 


RESTORE CORE. 


11246 


16 


00565 


-0023 


20330 




B 


ICGT.AAQ3, 7 




11258 


49 


00566 


-0261 


20340 




TFM 


DF ILE ♦ I 1 , TT 1 , , 


DUMMY UP A GET ENTRY TO IORT. 


11270 


16 


01933 


- 1 752 


20350 




TF 


10XX,AA02A»23 




11282 


26 


00565 


0025.? 


20360 




TR 


CM TWO , AA04 




1 1294 


31 


02170 


0028^ 


20370 




TFM 


OLCCY»l,MCVLt , 


SET UP TO RESTORE MP Y TABLE AND 


1 1 306 


16 


02 132 


-0098 


20380 




TFM 


HAL T*6, X0l*36. i 


EXECUTE LCAO. 


11318 


16 


00462 


- 1898 


20390 




TR 


OLUDA, 103 




11330 


31 


0044 1 


00103 


20400 




B 


OVRL AY, DSA01 , , 


YOU-RE ON YOLR OWN NOW. BOY . 


1 1342 


49 


00468 


19635 


20410 




OC 


3,3 




11356 




3 








-03 














20420 




DC 


6,0' 




11362 




6 








-0000* 












2043C 


AB08 


DSC 


3,2 20 




11363 




3 








220 














204*0 




DC 


4,2 




11369 




4 








-002 














20450 




OSC 


l» • 




11370 




1 










1620-1443 MONITOR 


I VERSION 2 SUPERVISOR AND I.C.R.T. 








PAGE 


20460 




CSC 


2.22 




11371 




2 




20470 




22 
DSA 


ABCSA 




11377 




5 


X 1 












U377 




J 1379 




20480 


ABO*) 


OSC 



1.0, f 


GROUP MARK FOR TEST. 










20490 


AB09A 


DSC 


1*1 




1 1379 




1 




20500 




I 

DSA 







11384 




5 


X I 












11384 




-0000 




20510 




DC 


3.4 




1 1387 




3 








-04 














20520 




CSA 


ABIC 




11392 




5 


X 1 












11392 




J1394 




20530 




DSC 


1. • 




1 1393 




I 




20540 


ABl 


00 




READ BUFFER FOR FOUR SECTORS. 


11394 


00 


nnnnn 


uuuuu 


20550 




DORG 


19982. 


CONTROL TO WRITE CN DISK. 


19982 








20560 




OSC 

I 


It 1 




19982 




I 




20570 




DSA 


DSA08 




19987 




5 


X 1 












19987 




J9659 




20580 




DC 


3.9C 




19990 




3 








-90 














20590 




DSA 


SYSORG 




19995 




5 


X 1 



19995 
19996 



50 



1620<-1**3 KiJNIluR ! VERSION 2 SUPERVISOR *N0 I.C,«.T. PAGE 91 



A >* m * i.. 


^ loi- 


A b U 


10902 


C S A39 


1966 .5 


L ACCR 


wC* 19 


HCOGT 


IC750 


8IGT«B 


Q j 766 


ABO; 


i 092 b 


(,', A*Q 


197*3 


LCA01 


OCO 72 


MC008 


10760 




CO 80* 


A802 


10998 


D S * *- ' ' 


1702* 


LCA02 


OC 1 32 


MC009 


1C770 


C IMEN T 


Q0*02 


ABO 3 






; ^600 


LCA03 


0C273 


"CO 10 


1C781 


CUPCC* 


1 C 8 * 2 


AB05 




E 00 10 


006 3 2 


lCao* 


GC120 


HCD1 1 


1C790 


EMSG10 


01081 


ABO 6 


1115* 




00 7 38 


L CA06 


CC180 




02 852 


t H s G i 1 


cirn7 


AB 7 




E0050 


8 8 


I L AC 7 


CC22 ) 


ncRoi 


0*068 


EH So t 3 


wo* 




11)63 


f i q r n 


008 *0 


i C #08 


c 2 3 7 


MC R 3 


0* 1 88 


6 * S 2 


C l ' j i ' ' 


A8 9 A 






009 2* 


L C A09 




M.C R u * 


0* iC* 


EMSG2 I 


o i o a 


AB09 


113 7 8 


t- 9 ti 


1' 9 5 ^ 


LCBQ 1 


CC09/2 


("ICR 5 


0*5 72 


EQUCL A 


10 8 6 2 
















0*935 


FOR CDA 


1 Q ti 2 2 


A JOB 




EQl'o 


1 5 2 


LCB08 


CC255 


«C >L 


00098 


HOLLt R 


(J 1 3 9 


B I 


01581 


E C A L i. 


180 % 


L C 809 


OC 26 3 ' 


MQO l 


09 7*2 


1 6MMUC 


C * * 


ft ft U E K 


012 32 


£ (i Jf 1 T 


i 6 3 3 


I C B 1 


0C2 78 


MD02 


097* 3 


I KM** T 


G1C2* 


ftK«» r 


00*6 7 


EMSGl 


l ' * 7 


LRA02 


OC I 76 


MOOA 


01791 


LCA02 A 


C 2 5 3 


8N 1 


CO* 9 2 


EMSG2 


1 i : 3 7 


4 RAG 5 


0C269 


"DPOl 


06806 


L C A G 6 A 


CO 20* 


check 


C I 2 70 


E*SG3 


01121 


L R A06 


CC28 3 


KERR 


00880 


LDINPT 


00*28 


CME K 1 


013*2 


E MSG* 


01127 


L REC 


0981 J 


ME S I 


0081 3 


MAPENT 


021*4 


CHEK2 


013 78 


E MS G5 


113 3 


HAOOO 


2*02 


ME S2 


00935 


MAPSC r 


018*7 


Chk 1 


01 020 


EMSG6 


01139 


MAO 10 


02 5*6 


MFSSG 


00956 


MB080A 


3 3*6 


CHK2 


013*0 


E MSG7 


011*5 


HA02C 


02 769 


MF01 


09716 


M B 1 1 A 


03522 


Chk 3 


013 76 


EMSG8 


01151 


MA025 


02777 


MF 02 


0972 1 


I 1 B 


03566 








nf if 7 






MF03 




MC AGO A 


000 79 


C I N I f 






J: * 




ft inir 






MCC8UF 


I 3000 


CNThO 


ft3 i 7n 


p __ 




Mftfl *n 

. . *^ 




me rn? 


_ ' ° 


MCRC 1 A 


0**5 5 




02 802 


p-o a n p 


, - 




ni l f> * 


1 1 




MCR02 A 


0*116 


f DUN T 


1 13 3 






MAO »n 

Jl ^ 








MCR 0* A 








- 


• QtQQ 




n i i 4 3 


M I 3 


098* 1 


MCR05 A 


0*628 


OF I LE 


ni o>~> 




^ °l 




n {>i* 


m i«ni 






06778 


o t n** 










n ! j 14 


m mn> 




MFT05C 






n n u i k 

r n a i ? 


■ >•*■ 






^ TV 


JB03 
















a i 1 


U 3 390 


MJfiO* 


051*2 






n i n 


nin* 




ro n 




03*22 


MJ810 


052 5 


MJ80 3A 






r i i ? t 


F 7 


no ii 


H8 1 1 




MJBll 




M J ft 3 B 






ni i 


^ J 


00*29 






J812 




M J B I 2 A 


5*82 


OR I VF 






00866 




n * t r 


M Ift 1 ^ 




M J B 1 i A 


055 38 


D S AGO 


I 960C 


rT^T 


01156 


MA l an 








M J 8 1 5 A 


056 78 


US* 1 


19635 


nni 




MAI o«i 




W a T 




M JB50A 


0617 


GSAQ2 




H03 


D 1*6 2 




i 7 J* 






MJ855 A 


Ob 1 8 * 


OSAO* 


1 963^ 


HO* 


1*8 6 


WB2 1 




M 




MONO AL 


G 7 9 6 


OS A06 


1 96* C 


HA). ¥ 


00*56 




„ „ 




^ J. ! > 


MSP 5 4 




OSAO 7 


I 9656 




00*3* 


... _ 

„ .j 5 


" 'it 


v J !* ' £ 




•* Sr* 1 tt 


06 5 07 


S A 8 


4 965 9 


I NDS 






" u ^ 

l ' , 


>>• i - j ] '■■ 




M S P 5 C 


i j ft 5 2 1 








Q06 31 






■ f»» 1 ^ - " 




" S P 3 'i C 


06 5 3 5 


S A I 


19 7*9 


I C C A i. 


007 16 


*» • v .- 




«» ! ''2 


fiQ8Q 




7 9 


l; < A 1 ) 


1 9 76 I 


; q (, f 




^ I >' 


" ;. *' 






M X g J ' i 


", 7 | * 6 


SA I 2 


I 9786 


I OP A 


"j i 7 6 


'•*• ^ * .j i 




«>«c* 


0990 7 


M X Q u 6 ft 


: j 1 '. i M 


0SA13 


1 9 7 72 




w . 


#0* 


f 'M M 


W MQ 5 


09915 


m x q o h e 


v. 7 j 8 6 


S A 1 4, 


1 9 7 7 7 


j ::: ,» T 


00^32 


*»'.,A05 


o c <f * 4 


**Gt 


09 523 


MXU06C 


7*10 


0SA1 5 


1 9 78 3 




00520 


w< A06 


002 50 


««0 7 


09931 


NMf. i! A 


11&2 


OS A I 6 


i 9 76 f 


ICSK 


0055* 


MCCOi 


K690 


#«"0a 


09939 


t.iv«L ay 


00*68 


OSA I 7 


i •' 7 


ICXX 


00565 


MCCQ2 


1C700 




099*7 


A A 2 A 


00?2S» 


OSAI-8 


H > 9 ; 


IREC 


LW'7 70 


ncco 


IC7 10 


MMiO 


09955 


AAQ2 


00 120 


i)SA I v 


19 795 


JLTF 


010 36 


i*CCO* 


1 C ? 2G 


■ HH) I 


09963 


A AO 3 


026 1 


0SA2C 


1 9798 


JREC 


09788 


MC.CG5- 


i C 7 >^ 


M*16 


Q9971 


AAG* 


CU28* 


0'>A21 


1 9630 


K R £ C 


US»«0* 


MC 006 


1C7*0 


7 


1C035 



5 1 



1620-1**3 i VERS1UN 2 SUPERVISOR AND l.C.M. T. f*ut 52 



MM 1 i 


10119 


MX0Q5 


I !?£(> 


RETHV 


010** 


UT058 


oa*6« 


X X 


CuOOO 


MM2 i 


10169 


MX006 


7316 


R M 1 


02210 


UT05 


08350 


y c o 


C0680 


MM 2 > 


10 19 1 


MXQ07 


C7*18 


RM2 


02215 


U T 6 A 


085*0 


V l A 


C0836 


*M2 1 


1027 7 


MXQ08 


C7*7 8 


RMAP 


0096* 


UT068 


08620 


r o i « 


CC86C 




10289 




C 7590 


RNAM 


00720 


. TGt(. 


86 5-: 




CO 768 


«M?6 


10309 


MXQ10 


07610 


■ SEEK 


01*96 


L'?06D 


087 i * 


Y02 


00892 


MM30 


10351 


MXQtl 


076*2 


S!OP 


0180* 




0876^' 


r06 


C1008 


MM 31 


10375 


MXQ12 


C 76 7* 


SIOXX 


01252 




0«*v* 


?{, 7A 


C1128 


MM 32 


10*11 


MX013 


07718 


SK01 


01*76 


UT 7/- 


i as. 1 1, 


Y C 7 


01116 


MM 3 3 


10*2? 


MXQ20 


0779a 


SK02 


0160* 


l .'0 7J5 






00*16 


MM 3 6 


10*51 


MXQ50 


0781 3 


5K03 


oi Toa 


Uf fC 


o*u:u 


£01 


CC9C8 


MM 3 7 


10*87 


MXQ55 


0782? 


SKO* 


021*3 


W t u } 


08i'-S k ' 


2 02 


CO-* 5 2 


MM 3d 


1P52J 


NEXT 


C0971 


SRA01 


00072 


ut ia* ■ 


092 70 


I 3 


C0996 


MM 


105b I 


MOP 


01068 


SRA02 


00060 




193^8 


io* 


CI 05 2 


MM*0 


I0t>0 9 


NOERR 


C0656 


SR AO 3 


00152 


\(K 




2 05 


C0.8C8 


MM * 5 


] Gfj* 7 


NONE X 


CO* 5 7 


STEPS 


01200 




9*6« 


'•;A VO'UA 


CUT? 


MR02 


097** 


OLOCV 


02 131 


TEETH 


01211 




09**2 


SF01«T 


00*26 


MR EC 


09821 


010 DA 


cc**t 


TEMP 


02019 


uUOf- 


C9f 53 


SPSOOA 


4 0802 


MSP01 


06198 


QTEST 


CO 768 


TEST 


00632 


UTIO 


091 7i 


SPSMI.P 


CC*68 


MSPG2 


06218 


POINT 


C9768 


Til 


01752 


U T 1 S A 


0^»9 8 


S«»iti)C 


CC*25 


MSP03 


06*30 


RCALL 


01819 


UTOl 


07958 


UT U 


096. ft 


SUPENT 


02 9 J* 


MSPO* 


06*7* 


SOIMI 


00836 


UT03A 


080*16 


**txr 


CC7 2* 


SUPRET 


01833 


MXQOi 


06910 


ROIM 


C0788 


UT03B 


081*8 


wTESt 


OC 7 12 


SVSCAt 


00*75 


MXQ02 


069*2 


RDVCD 


0100* 


UT03C 


0823* 


XOl 


01662 


SYSORG 


02*02 


MX003 


07078 


REPOS 


C0512 


UT03 


08036 


A03 


00988 


UT05AI 


08*60 


MXQO* 


0719* 


RE TN 


01682 


UT05A 


08**6 


X04 


01212 


U107AI 


08992 



END OF ONE ASSEMBLY. 



S3 







162C-1443 MONITOR I VERSION 2 PCNITOR LCAQER 










PAGE 


00010 


• 1620-1443 MONITOR I VERSION 2 MCM TOR LCADER 












00020 


CORG 


25C0 




02500 








00030 


• WRITE SEGMENT 1 Of LOAOER CN DISK. 












00040 


TRY I 34 


0C0NTl,70l 




02500 


34 


02584 


00701 


00050 


38 


0C0NT1, 702 




02512 


38 


02584 


CC702 


00060 


ON I 


RIGHTI, 1900 




02524 


47 


02560 


01900 


00070 


H 






02536 


48 


00000 


00000 


00080 


B 


TRY I 




02548 


49 


02500 


ooooo 


00090 


RIGHTi TRA 






02560 


36 


00000 


00500 










02572 


49 


00000 


ooooo 


00100 


DC0NT1 OSC 


9, 1 19600009 




02584 




9 






I 196C00C9 












001 10 


DSA 


CAROIN- 10 




02597 




5 


* 1 










02597 




-0502 




00120 


CORG 


502 




00502 








00130 


FAKE OC 


2.C 




005C3 




2 




00 140 


• DISK INPUT PROGRAM. [ F CARD INPUT, BRING IN SEGMENT 2. 












00150 


8 


LOADER 




00504 


49 


01266 


ooooo 


00160 


CORG 


• -4 




005 1 1 








001 70 


• INPUT CONTROL FOR DISK INPUT, ODA IS AT CNTL, CYLOV IS LCCAT1 


CN 










00180 


• OF CYLINDER OVERFLOW ROUTINE, LD 3 IS ERROR MESSAGE t CK IS 












00190 


• NORMAL 


EXIT. 












00200 


NORM DC 


1,7 




005 1 1 




1 




002 10 


P 

CSA 


CNTL .CYLOV 




0Q516 




5 


x 2 










0C516 




-0920 












00521 




-0554 




00220 


OC 


2,7 2 




00523 




2 




00230 


P3 
DSA 


OK 




00528 




5 


X 1 










00528 




-06 30 




00240 


DC 


1, ' 




00529 




1 




00Z5Q 


• SECTOR ADDRESSES AND COUNTS F OR DISK INPUT. 












00260 


CNTL I DC 


8,C0100200 




0C537 




8 






-0100200 












002 70 


CNTL2 DC 


8,00200100 




00545 




8 






-020Q1CO 












00280 


CNT DC 


8,CC3Q0C00 




00553 




8 






-0300000 












00290 


• CYLINDER i 


OVERFLOW ROUTINE, 












00300 


• IF OVERFLOW OCCURRED, UPDATE ARM PQSITICN CODE FOR IOCS. 












00310 


CVLOV AM 


ARM, 1, 10 




00554 


1 1 


00464 


000- I 


00320 


• READ ONE OR TWO SECTORS FROM NEXT CYLlNOER, AND CONTINUE. 












00330 


TF 


DIS-i , CNTL2 




00566 


26 


009 3 3 


00545 


00340 


AM 


CNTL ♦5,1 




00578 


11 


00925 


-C001 


00350 


BD 


MORE »CNTL*5 




00590 


43 


00610 


00925 


00360 


8 


DIS 




00602 


49 


00934 


ooooo 


00370 


CQRG 


• -3 




00610 








00380 


MORE TF 


CIS- I ,CNTL1 




00610 


26 


009 33 


00537 


00390 


3 


CYL0V*24 




00622 


49 


00578 


OOOOO 


00400 


CORG 


3 




00630 












53 
















162C-1443 MONITOR I VERSION 2 MONITOR LOAOER 










PAGE 


00410 


•NORMAL EXIT. INCREMENT SECTOR ADDR. BY 3, DECREMENT COUNT BY 












00420 


• GO TO 


BEGIN PROCESSING INPUT. 












00430 


OK TD 


0K423.0IS-6 




00630 


25 


0065 3 


00928 


00440 


AM 


CN1L*5,XX 




00642 


11 


00925 


-0000 


00450 


SM 


MAPENT*8,3,9 




0Q654 


12 


00410 


00-03 


00460 


B 


F IN 




00666 


49 


01092 


occoo 


00470 


CORG 


• -2 




00675 








00480 


• CONTROL TO BRING IN SEGMENT 2. 












00490 


DC 
P 


1.7 




00675 




1 




00500 


DSA 


C0NT2, CYLOV 




00680 




5 


X 2 










C0660 




-0694 












00685 




•0554 




00510 


DC 
P4 


2,74 




00687 




2 




00520 


CSA 


CARD IN 




00692 




5 


X 1 










00692 




-0512 




00530 


• CCA TO BRING IN SEGMENT 2. TRANSMITTED TC OUT BEFORE USAGE. 












00540 


CC 
t 


1, • 




00693 




I 




00550 


DC 


l.c 




00694 




1 




00560 


DSA 


CARDAD 




00699 




s 


X 1 










00699 




J9609 




00570 


DSC 


3,3 




00700 




3 






003 














00580 


DSA 


CARDIN^IO 




00707 




5 


X 1 










00707 




-0502 




00590 


DSC 


It* 




00708 




1 




00600 


• ACDRESS TO BRANCH TO AFTER OISK READ ERROR. 












00610 


DSA 


OIS 1 




00713 




5 


X 1 










0071 3 




-0934 




00620 


• LOAD AOORESS FOR INPUT. 












00630 


OC 


5,0 




00711 




5 






-0000 












00640 


• FOR OISK 


INPUT, MAS CHARACTER COUNT REACHED 300... 












00650 


CM 


CHAR 1,300 




00720 


14 


00863 


"0300 


00660 


BNE 


• ♦32 




00732 


47 


00764 


01200 


00670 


• IF SO, GET MORE INPUT. 












00680 


TF* 


CO 




00744 


16 


00439 


-0000 


00690 


B 


DISK 




00794 




00864 


OOOOO 


00700 


OORG 


•-3 




00764 








00710 


• IF NOT, ARE WE READY FOR A NEW 75-CHARACTER GROUP... 












00720 


C 


CHAR1,C 




00764 


14 


C0643 


00439 


00730 


BNE 


BEGIN 




00776 


4? 


01164 


01200 


00740 


B 


HERE, • 7 




00788 


49 


01114 


-0000 


00790 


DORC 


•-3 




0079* 








00760 


• INPUT CONTROL FOR CARD INPUT. IS INPUT LOCATION, ERR IS ERROR 










00770 


• ROUTINE, LD 2 IS ERROR MESSAGE* CENO IS NORMAL EXIT. 












00780 


RE AO OSC 


1,0 




00746 




1 







5 '• 





1620-1443 MONITOR I VERSION 2 MONITOR LOADER 








PAGE 


00790 


CSA Q.ERR 


008CI 




5 


* 2 






0080 1 




-QOQO 








0080* 




-1030 




00900 


CC 2,72 


OOSCI 




2 






P2 










00810 


PSA CEND 


00813 




5 


x l 






00813 




-0554 




00820 


CC 1 » • 
• 


00814 




* 




00830 


• TO BRING IN SEGMENT 2. TRANSMIT INPUT CONTROL ANC CCA. 










00840 


OUT TO CQNT2,ARM*1 


00816 


25 


00694 


00465 


00850 


T« A, GET 


00828 


31 


01073 


00675 


00860 


TFM CO 


00840 


1* 


00439 


-0000 


00870 


B I S ♦ 1 2 


00852 


49 


0094* 


OCOOO 


C0880 


CORG »-4 


00859 








00890 


• CHARACTER COUNTER . 










009C0 


CHAR I OC 5,0 


008*3 




5 






-0000 










00910 


• CIS* INPUT.. EXIT WHEN SECTOR COUNT IS ZERO. 










00920 


DISK CM MAPENT*8,0,9 


008*4 


14 


00410 


00-00 


00930 


BNH SIX 


0087* 


4T 


02208 


ouoo 


00940 


• NOT ZERO t- TRANSMIT INPUT CONTROL AND 3-SECTOR CCA. 










00950 


TR A i NORM 


00888 


31 


01073 


00511 


00960 


TF OIS-l ,CNT 


0C900 


2* 


00933 


00553 


00970 


B 0IS,,2 


00912 


49 


-09 34 


COQOO 


00980 


DORG •- 3 


00920 








00990 


• CCA FOR CISK INPUT. VARIABLE COUNT AND CORE ACORESS TO HANDLE 










01000 


• CYL INOER OVERFLOW. 










01010 


CNTL DSC 6,0 


00920 




6 






COOOOO 










01020 


CC 8.C 


0C933 




8 






-OOOOOCC 










01030 


• INPUT ROUTINE. SEEK, GET INPUT UEVICE, READ, CHECK FOR ERRCR. 










01040 


CIS 34 B, 701,6 


00934 


34 


01070 


00701 


01050 


TC »*2 1, A 


00946 


25 


00967 


01073 


01060 


RC 36 B,7C?,6 


00958 


3* 


0107Q 


00702 


01070 


ON I E-i, 1900,6 


00970 


*? 


0109- 


01900 


01080 


ANY6RR BI •♦12,0600 


00912 


46 


00994 


CQ600 


01090 


BI •♦12.16C0 


00994 


46 


01006 


0X600 


01100 


BI •♦12,1700 


0100* 


44 


01018 


01700 


oino 


BI CIN, 3800,6 


0101* 


4* 


0108L 


03800 


01120 


* ERROR ROUTINE. WRITE LD X, HALT, REREAC. 










01130 


ERR TF ST0P*9,D 


01030 


26 


010*3 


01085 


01 140 


*A T Y ST0P*3 


01042 


39 


01057 


00100 


01150 


STOP H 53440 


01054 


48 


53440 


CCCOO 


01160 


OORG «-4 


010*1 








Oil 70 


DSC 5,0! 


010*1 




5 






0000' 










01 180 


BACK B DISKX.,6 


010** 


49 


0071L 


00000 


01 190 


DORG •""4 


01073 








01200 


• INPUT CONTROL • DEVICE CODE, CORE AOOR. FOR INPUT* ERR ROUTINE* 










01210 


• ERROR MESSG, NORMAL EXIT. 










12 20 


A DC I » C 


01073 




1 






5 5 












U2C- 1443 MONITOR I VERSION 2 MONITOR LOADER 








PAGE 


01230 


B DC 5,0 


01078 




5 






-0000 










01240 


CIN CC 5.C 


01083 




5 






-0000 










01250 


D DC 2,C 
-0 


01085 




2 




01260 


E OC 6,0' 


01091 




6 






-0000* 










01270 


• BEGIN PROCESSING A 75-CHARACTER GROUP. 










01280 


FIN TF CHARl.C 


01092 


2* 


008*3 


004 39 


01290 


• IF THIS IS FIRST GROUP, COMPUTE RELCON* UNLESS RETURNING FROM TCO. 










01300 


RCON BNF TD ,TCD 


Q 1 104 


44 


CUT* 


00428 


01310 


TF RE I. CON , HIGH 


0111* 


2* 


00449 


00434 


01320 


f»F FIN 


01140 


32 


01092 


00000 


01330 


•SET LOW TO FIRST ADDRESS ON FIRST CARDPLUS RELCON. 










01340 


ZERO TF LOW, 4 


01 140 


2* 


00444 


0C004 


01350 


BNR »*24 »MAPENT*14 


01152 


45 


0117* 


0041* 


01360 


TF MAPENT*13*L0W 


011*4 


2* 


00415 


00444 


01370 


• RESET TCD INDICATOR. 










01380 


TO SF TCD 


OUT* 


12 


00428 


00000 


01390 


• TO BRING IN SEGMENT 3, TRANSMIT INPUT CONTROL AND DOA. 












TD C0NT3 »ARM*l 


01188 


25 


01250 




01410 


TR A * RPROG 


C12C0 


11 


010T3 


01231 




in ui i *vun i i 


01212 


3 1 






01430 


B DIS 


0122* 


49 


00934 


00000 


01440 


OORC •-4 


01211 








01450 


• INPUT CONTROL FOR SEGMENT 3. OUT IS DOA, LD 4 IS ERROR MESSG* 






















01470 


RPROG DC 1*7 


01211 




1 




01480 


DSA OUT ,CVLOV 


0121* 




5 


X 2 






0121* 




-081* 








012*1 




-0554 




01490 


DC 2.74 
P4 


012*1 




2 




01500 


CSA START 


012*8 




9 


X I 






01248 




-0T20 




01510 


OC !,• 


01249 




1 




01520 


• OCA FOR SEGMENT 3. 










015S0 


C0NT3 DSC 9*019812012 


01250 




9 






019612012 










015*0 


054 *C0N~2 . 


012*1 




9 


X I 






012*1 




-1102 




01550 


DSC 1* * 


0124* 




1 




01560 


• LOGICAL START OF LOADER* IF INPUT IS FROM CARDS, GET it CM* NT 2. 










01570 


LOADER TO CNTL I ,IT&§ 


012** 


If 


01121 


00**0 


01980 


' TO Afti*U»|TA» : 


012TI 


ti 


0*4*1 


00**0 


015*0 


TR A, IMIT 


0129ft 


11 


010T1 


01109 


OU&O 


9 015*12 


01102 


*t 


004** 


00000 


GUIS 


KMC »*4 


OllOt 








01*.?® 


IHIT 0C t,7 


OllOt 




1 





sc 



016*0 
01650 



1620-1**5 MONITOR I VERSION 2 MONITOR LOADER 

OSA CNTLl.CVLOV 



CC 2,7* 
P4 

DSA TRANS 



01670 CNTLI DSC 1.0 



01680 OSA SVSSCT 



01690 OC 8.1CC000 

-01C00CG 
01700 TRANS TR C0MM,84 
01710 BO OUT ,10MCO 

01720 • IF INPUT FROM OISK, GET FIRST SECTOR AO OA. ANO GO TO REAO DISK. 

01730 TF CNTL*5,MAPENT+f t , DISK INPUT 

017*Q TO CNTL f NAPENT 

01750 B OISK 

01760 DORG »-3 

01770 TCO TRV1 

01780 OORG 2500 

01790 • WRITE SEGMENT 2 OF LOADER ON 01 SR. 
01800 TRY2 3* 0CONT2.701 
0C0NT2.702 
RIGHT2, 1900 



38 
BN1 



01810 
01820 
01830 
018*0 B 
01850 RIGHT2 TRA 



TRV2 



01860 0CONT2 OSC 9,119609009 

119609003 
01870 OSA CAROIN-IO 



01880 OORG 5C2 

01690 OC 2*0 

-0 

01900 B LOACER 

01910 OORG »-3 

01920 • CMQ INPUT PROGRAM. 
01930 • GET INPUT DEVICE CODE FROM COMM. 
01940 CARCIN TO REACIOMED,, 
01950 CF READ 

01960 • TRANSMIT CARO INPUT CONTROL » ANO GO TO REAO A CARC. 
01970 CARO TR A, READ 
01980 B DISM2 

01990 OORG —3 

02000 • IF CARO INPUT. CHECK SEQUENCE. IF TAPE, BYPASS THIS. 
02010 CENO CM REAO, 5, 10 



AREA. 

CARO OR TAPE INPUT 



57 



1620-1**3 MONITOR I VERSION 2 MONITOR LOADER 



02020 
02030 
020*0 
02050 
02060 
02Q70 
02080 
02090 
02100 
02110 
02120 
02130 
021*0 GET 

02150 



02160 
02170 



BNE 
BNF 
AM 

C 

BE 
SM 

IP CARO 



FIN 

FIN, 75 
SEQ.l 
79.S6Q 
FIN 
SEQ.l 

IS OlT OF SEOUENCE, WRITE LAST SEQ. NO 
ANO LO 1. THEN HALT, ANO READ ANOTHER CARD 
WNTV SEQ-* 
TFM STOP*9,7l,lO 
B ERR+12 
OORG • 
OC 
P 

DSA 



CHECK CARD SEQUENCE NO. 



WHICH WAS CCRRECT, 



1*7 

OLT .CYLOV 



DC 2.7* 
P4 

OSA OISK 



02180 DC 
02190 C0NT2 OC 



1,0 



02200 

02210 
02220 



DSA OISKAO 



OSC 3,3 
003 

OSA CARD IN- 10 



02230 OSC 1,* ' 

022*0 • AC OR ESS TO BRANCH TO AFTER CARD OR TAPE READ ERROR. 
02290 DISKX OSA pIS*12 



02260 REL OC 5,0 

-0000 

02270 • FOR UNIT RECORD INPUT, HAS CHARACTER COUNT REACHED 75. 

02280 START CM CHAR1.75 

02290 FORK BNE "32 

02100 • IF SO, REAO ANOTHER RECORD. 

02)10 TFM CO 

02120 8 CARO 

02330 OORG 

02160 C CWARl.C 

02190 TCO TRY 2 

021*0 OORG 2900 

02170 • WRITE SEGMENT 1 OF LOADER ON OISK. 
02110 TRY 3 16 DC0NT3.T01 



5S 



01314 




5 


X 2 


01314 




-1328 




01319 




-0554 




01321 




2 




01326 




5 


X 1 


01326 




-1342 




01327 




1 




01328 




1 




01333 




5 


X I 






J9663 




01341 








01342 


31 


00440 


00084 


01354 


4 3 


00816 


00*28 


01 366 


24 


00925 


0040 7 




25 


00920 




ni ton 


49 


00864 


nnnnn 

UUwUU 


n» tarn 
















025C0 








02500 


34 


02584 


00701 


02512 


36 


02564 


0C702 


02524 


47 


02560 


01900 


02536 


48 


00000 


coooo 


02546 


49 


02500 


00000 


02560 


36 


00000 


00500 


02572 


49 


00000 


OCOOO 


02584 




9 




02597 




5 


X 1 


02597 




-0502 




00502 








00503 




2 




0C5C4 


49 


01266 


OCOOO 


00512 








00512 


25 


00796 


00428 


00524 


33 


00796 


00000 


00536 


31 


01073 


00796 


00548 


49 


00946 


OCOOO 


00556 








00556 


14 


00796 


000- 5 








PAGE 


00568 


47 


01092 


01200 


00580 


44 


01092 


00075 


00592 


11 


00454 


-COOl 


00604 


24 


00079 


00454 


00616 


46 


01092 


01200 


00628 


12 


00454 


-0001 


00640 


38 


00450 


00 100 


00652 


16 


1063 


OOOP 1 


00664 


49 


01042 


OCOOO 


00675 








00675 




1 




00680 




5 


X 2 


00660 




-0816 




00665 




-0554 




00667 




2 




00692 




5 


X 1 


00692 




-0864 




00693 




I 




00694 




I 




00699 




5 


X 1 


00699 




J9600 




Q07C0 




3 




00707 




5 


X 1 


007C7 




-0502 




00706 




1 




00711 




5 


X 1 


00711 




-0 , 946 




00716 




5 




00720 


14 


006*1 


-0075 


00712 


41 


007*4 


01200 


00746 


|4 


00419 


-oooo 


0079* 


69 


0051* 


00000 


007*6 








00?** 


24 


000*1 


00419 


02900 








02900 








02900 


1* 


02904 


00701 



1620-1443 MONITOR I VERSION 2 MONITOR LOADER 



PAGE 



02 39Q 


38 CCON T 3 t 702 


025 12 


38 


02584 


0C 702 


02400 


BN I R I GHT 3» 19C0 


0252* 


4 7 


02560 


1900 




H 


02536 


48 


cocoo 


CCCOO 


02*20 


« TRY3 


02548 


4S 


02500 


00000 


02*10 


RIGHT 3 TRA 


02560 


36 


cocoo 


CC500 






02572 


49 


nnnno 


nnnon 


2**0 


QCGNT3 DSC 9i 1 19612012 


02584 










119612012 










02*50 


D S A R C N- 2 








X 






02597 








02460 


CORG RCQN 


1 1 04 








Q2*7Q 


• SEGMENT 3 HANDLES ANALYZING AND LOADING OF INPUT. 










02*60 


TFM CN TL- 2 ? D I $♦ 1 2 










02*90 


* INITIALIZE COUNTERS FOR NEW 75— CHARACTER CRCUP. 










025CQ 


HER E A M C » 7 5 


: ' 








02510 


AM C HA R 1 1 4 




: | 








T F l nf .fwifi l M 


nil ao 


>A 


ft 1 3« ■» 


inriRAi 


025 30 


AMCHARlil 


ft 1 1 «i> 


11 


r ft h a 1 


r no 1 


025*0 


BEGIN BNR NO T RM f CHAR 1 » 1 I 


1 164 


A <> 


01228 




025 50 


BNF NOFLAG tCHARl t ll» RECORD MARK INDICATOR 


01176 


A 4 


01208 


ft ft ft A 1 


02 560 


• FLAGGED RECORD MARK - START NEW GROUP. 










025 70 


TF CHAR 1 »C 


01188 


2 6 


_ 


oca 3,0 


02580 


ft START 


12C0 


49 


ftft 73ft 


c 


02 590 


COR G •- 3 


1208 










• IIN.Fl AT, (iF P. RprnRD MARK — f.f T Kit y R-ni(;I T AP PU 
w UIy'LHuvjCU ^t^U^U H K K UC 1 nlCP 3 T U lull HtW^a 












unci AT. AM fHARl.S 








C005 




a uc d c . 3 a 


ft 13 3ft 


A (J 


ft 11 Aft 

01140 


ocooo 


026 30 


DO R G •— 3 


01228 








02640 


•ZERO INDICATOR -READ IN SEGMENT 4. 










02650 


NUIKM DU NU £ t KU t UH AH I f I I 


01228 


4 3 


012 72 


C086L 


n 3! in 


rccv rp rnki r | AD Ma 1 
)CCK 11/ lull 1 1 t A K P • I 




2 3 


022 30 






TD A DQfir 
IK A f r* KU \j 


ft 1 JS 3 


3 1 


ft ft Q ^ A 


02244 


n 3 a a ( 




ft 1 3AA 


49 


00934 


ft ft n n n 


ft3AQn 


DDR G • — 3 


012 72 








n 3 inn 


un j cun tcm dci i nr . wriki—jeon i kir I c atpb 

NUtCNU Irn KCLfLULft fNUnl— £CKU InLlLAI UK 




16 


n il 


- 1 28 3 


37 in 


BMC CI AT.ruAB 1.11 
DIN r rL AU ftflAR 1 f 1 I 


ft 1 3 A A 

01284 


44 


01316 


0086L 


; 3 7 3 r 


• Fi if.r.fn nir. it nn not ifi nr atf 












TCM 3 ft 3 A Tuft 
IT" c U c 1 f 1 HU 


1296 


16 


C2024 


~ 1880 


n37 n 


CORG »°3 


ft 1 V** 


49 


I 388 


00000 


> 7*ft 




01316 










• UNFLAGGE0 DIGIT — A0D RELC0N* 










02770 


Ci AC a aci oci riiKJ 
rl.AU A NCL fKcLLUli 


01316 






00449 


02780 


• IF RELOCATABLE PROGRAM, ADD RELCLN TO LOW AND ENTRY ADDRESS. 












BNF • ♦ 4 8 i F IN 


n 1 


44 


n i7A 


1092 




CF F I N 


n 1 ^ tt 




n 1 no? 


ftftftnn 


02810 


A LOtatRELCON 




3 1 


ftftAAA 




02820 


A MA PEN T ♦ 1 3 i R E LC ON 


01 364 


3 1 


nn4 


ftftAAQ 


026 30 


TFM 2024 »F I VE 


013 76 


16 


02024 


-168* 


02840 


• GET LENGTH OF DATA , SAVE ADDR. OF FIRST POSITION OF DATA FIELD. 










02850 


00 TC TEMP »CHAR 1 1 11 


01388 


25 


01477 


0086L 


02860 


AM CHAR1,2 


014C0 


11 


00863 


-0002 


02870 


TF N,CHARl,U 


01412 


26 


02057 


0086L 


02880 


TF M,N 


01*24 


26 


02067 


02057 


02890 


AM CHARl, 1 


01436 


11 


00863 


-0001 


02900 


TF TEMP2.CHAR I £ 


01448 


26 


02139 


00863 




]A3r~1441 MflNI TflR I WCR^IDN ? MDMITDR 1 DillFB 
lucu 1 *t "t j r»urn 1 I UK 1 VCK^IUrl c ryni 1 UK LUAUCK 












TF TFMPI .BFI 


01460 




1 '8 


00 7 18 


3Q3ft 


9 UnAlitn IU rKUrCK IPIUIUAIUK KUU 1 I INC • 












AR w ?nnfl . . 4 

DK D tUUOH" 


ft 




02-08 


OCOOO 


Q 


00RG •-'3 


n 1 Ann 








q n 


• fuocc twrtrAino — cvMO.ni ir Annoccccc ci »r.r.cn a Air dci nriTcn aw ttr 
» 1 PiK FC irfUlUAlUK — jTnOUUIa AUUKCJiCSl r L AouCU kclulaicu d T 5 c I • 










?QAft 


Tudcc rcy cc t» | . a * 3 I . . TuOCC IMfll TAfriD 
IHKCC 1 rl" jcl— IliKCC tiHUlvAlUK 


ft! AOS 


16 






n3CJ7ft 






*9 


ft3ftAft 
02080 


ft ftftft 
0-000 




DORG *- J'^'^ 


f 1 Aft 3 

ft 1 > 










AM CHAR 1 1 5 








ftftf ^ 


ft inftfi 


SM M « b t 1 


ft 1 c 1 I 

01514 


12 


ft3ftA7 


000-3) 


n * n i 


DP 1 rlKCC 


01526 


46 


1480 


1 100 


r aft3 
ftlftir 


B S TORE 


015 38 


*9 


1892 


00000 


n !n!n 




01546 




















n *n*n 


Fn 1 ID in TCMBI .111 AMV A CflllO 1 un t f iTflfl 


ft 1 A 


25 


ft 7 


02229 


03060 


AH TEMP 1 1 1 


ft 1 AKB 




ft 1 7AQ 


nftft°! 


3070 




n 1 s 7 n 


1 y 


ft>flA7 






BP FOUR 




44 


ft 1 <iAA 


inn 


3090 


R ^TART 


ft 1 cai 


3 1 




02057 


n 1 1 ? n 




OlAftA 
^* , * 




ftft73ft 


ftrnftft 
uuuuu 




CORG «-3 


01614 








ft 1 1 3ft 


m Cw Ay fuc tcrnLr bnci f fnij nc no rnnc 
• tXAWINt StLUNL rUSIIlON Or Ur UUUt. 










lift 
3130 


AM CHAR 1 ( 1 


0161* 


1 1 




-CC0 1 




ukjc nnkiT /*uiD i ti 
Orir UUN 1 |LnRK 1 f 1 1 


01626 


** 


ft 1ft 

01660 


0086L 




m. ciArrcn — dci nf ire n cici n 
• rLAulitU kcLUUAIc W MtLlJi 










( 11 Aft 






14 






n ii 7n 


n c C T . Ann .A 


ft 1 AAft 


4Q 


npriAft 




_ j B ft 


DOR G • — * 1 


01 








ni i 90 


a Mn,UC TD MOT TAlCTDllT TfftkJ 
W 1UVC IU HIC * 1 Irii 1 KUL 1 1 UIN. 










i ijnn 


nriM t am clad i . t i 


ft 








ft »f »ft 


C Afl Al 13 1ft 


ft 1 A 7 3 


12 


02067 






a ci if r en c i uc AMn tiaici Arrcn niuc i iini r Ainot _ i ajc toiitt i niuc 










32 30 


mAOCTuCDClCCC1TkJAAi 7f%lr , fYCICCT 

• AKfc THbKfc Lcbi THAN I QlUlla Ltrf... 










ftistn 


r 1 V fc UM MffflOt rl V? INUILAIUk 


ft 


I* 


ft 1 !!« 


nftn 


ni^An 




f 1 AQA 

01696 






ni *nn 




a AiH — ADC TuCQC ICCC TL^AAi 13 

• NU *" AKfc IntKt Lc)b IMAN 










ft137ft 


CM M t 1 2 t 10 






02067 


000J2 


3280 


BL LESS12 


01 JIG 


47 


0183* 


1 300 


03290 


9 ptu cAAn jiic r ir j i rud i i i un ur ur uuuc* 










3300 


BNF |F8»CHARlfll 


01732 


44 


1 766 


0086L 


n iiln 
















744 


14 


02079 


— 1 765 


ftiiift 
ft a»f ft 


a cc t 3ftn a 


n 1 1*4 


4Q 


02080 


0-200 


" 


DOR G **" 1 


ft 1 7AA 

01766 








ftl^Aft 


a ic cidct nir it nc no rnnc UAC B nil AlHT CVAMTAiC ccrrAin hir IT 
* Ir riKil Uluil Ur Ur UUUc MA) Of UU Nu 1 t**r|Nt HUunU Ulujl* 










ftlltft 


TCS T n Tcu0rwADi.11 

1TB IU I CPlr ibnlR i f 1 I 








0086L 






ft 1 77A 


*1 


ft 1477 


n n finn 
uuuuu 


ftllflft 


rMTCAAQBtft 


ni 7on 


72 

I* 


l*TT 




^ 3 90 




01102 


*7 


141* 


01200 


'. . 4 » D 


AM CHARl » I 


Oil. 4 


1 1 


00863 


-0001 


C 3-»< , 


8 DON T 


0U2* 


*9 


01660 


OCOOO 




00RG 3 


01834 










• LESS THAN 12 DIGITS LEFT - EXAMINE FIBST POSITION OF OP CODE ONLY. 










•J *--c 


t. € S S I 2 BNF NO, CHARl, 11 


0183* 


4* 


01868 


00861. 


'> 5.4 50 


• FLAGGED - RELOCATE P FIELD. 










C v & 


TFM SET-J,»*2l 


018** 


I* 


02079 


-1867 



611 









162C-1**3 MONITOR I VERSION 2 MONITOR LOADER 








PAGE 


03*70 




b 


SET, 200, 8 


01858 


49 


02080 


0-200 


03*80 




CURG 


•- 1 


01868 








03*90 


• RESET 


CHARACTER COUNTER TO BEGINNING OF CATA FIELD. 










03500 i 


NO 


TF 


CHAR 1 1 TEMP 2 


01868 


26 


00863 


02139 


03510 


• TWO AND FLAGGED ONE INDICATOR - CONSTANTS. 










03520 


TWO 


A 


CHARl.N,, TWO INDICATOR 


01880 


21 


00863 


02057 


03530 


• SAVE 


DIGIT 


AT ENO OF FIELO. 










035*0 


STORE 


SM 


CHARl.l.lO 


01892 


12 


00663 


000-1 


03550 




TO 


SAVEl.CHARl.il. GENERAL STORING ROUTINE 


019C* 


25 


00966 


0086L 


03560 


• SET A RECORO MARK THERE. 










03570 




A 


TEMPI. N 


01916 


21 


01789 


02057 


03580 




SM 


TEMPI, 1.10 


01928 


12 


01789 


000-1 


03590 




TD 


CHAR1.RM.6 


01940 


25 


0086L 


02262 


03600 


• TRANSMIT CATA TO LOAD ADDRESS. 










03610 




TR 


REL.TEMP2.6ll 


01952 


31 


0071Q 


0213R 


03620 


• REPLACED SAVED DIGITS. 










03630 




TO 


TFMPl.SAVEl ,6 


0196* 


25 


C178R 


0C968 


036*0 




AM 


TEMPI. 1,10 


01976 


11 


01789 


000-1 


03650 




AM 


CHAR1.1.10 


01988 


11 


00863 


000-1 


03660 


• GO TO UPDATE LOCATION POINTEK. 










03670 


PLACE 


B 


F0LR**8 .XX 


020C0 


49 


01594 


00000 


3680 


P2 


DS 


,• 


02011 









03690 




DORG 


2018 


02018 








03700 




B 


XX 


02018 


49 


00000 


00000 


03710 




DORG 


•- 1 


02028 








03720 







TWO 


02028 


49 


01880 


00000 


O3730 




DORG 


•- I 


02038 








037*0 




B 


THREE 


02038 


49 


01*80 


00000 


03750 




DORG 


• -1 


02048 








03760 


NSTOR 


8 


FOLR 


02048 


49 


015*6 


OCOOO 


03770 




DORG 


• - 1 


02058 








03780 


MSTOR 


B 


FIVE 


02058 


49 


0168* 


00000 


03790 




DORG 


•-1 


02068 








03800 




B 


SIX 


02068 


49 


02208 


00000 


03810 




DORG 


•-* 


02075 








03820 


• ROUTINE TO SET FLAGS AND RELOCATE 5-QIGIT ACURESSES. 










03830 




DC 


5.C., RELOCATING SUBROUTINE 


02079 




5 








-0000 










038*0 


• COMPUTE BEGINNING ANO END OF ADORESS. 










03850 


SET 


TF 


PI, CHAR 1 


02080 


26 


02207 


00863 


03860 




A 


Pl.SET-l, 11 


02092 


21 


02207 


0207R 


03870 




TF 


P2, PI 


021C* 


26 


02011 


02207 


03880 




AM 


P2,* 


02116 


11 


02011 


-000* 


03890 


SF 


NOP 


PI, ,6 


02128 


41 


0220P 


00000 


039C0 




BNF 


NF.P2.ll 


021*0 


4* 


02172 


0201J 


03910 


• IF INDIRECT ( SUBTRACT RELCON, 










03920 




S 


P2. RELCON. 6 


02152 


22 


0201J 


00**9 


03930 




B 


BB 


02164 


49 


0218* 


00000 


39*0 




DORG 


• -3 


02172 








03950 


• IF NOT INDIRECT, ADD RELCON. 










3960 


NF 


A 


P2, RELCON, 6 


02172 


21 


0201J 


00**9 


03970 


BB 


AM 


SET-1,1 










03980 




B 


SET-1,,6 


02196 


49 


0207R 


OOCOO 


3990 


• SIX 


INDICATOR - END OF DATA TQ BE LCADED. 










0*000 


• READ 


IN SEGMENT *. 










0*010 


SIX 


TFM 


PRQG»17. LEAVE q j 


02208 


16 


02261 


- 15*8 








U2C-l**3 MONITOR I VERSION 2 MONITOR LOADER 








PAGE 


0*020 




B 


SEEK 


02220 


49 


012*0 


00000 


0*030 




DORG 


•-3 


02228 










• STORAGE FOR NLMERIC BLANK - MUST BE PATCHED IN ABSOLUTE DECK • 










0*050 


BLANK 


DC 

_ A 


2.0 


02229 




2 




0*060 


• CCA 


TO REAO IN SEGMENT *. 










0*070 


CONTl 


DSC 


9,01962*005 


02230 




9 








01962*C05 










0*080 




DSA 


NOZERO 


02243 




5 


X 1 










02243 




-1272 




0*090 


• INPUT CONTROL FOR SEGMENT * - CONTl IS COA, LO * IS ERRCR MESSG. 










0*1C0 


• NOZERO 


IS NORMAL RETURN. 












PROG 


DC 
P 


1.7 


022*4 




I 








DSA 


CONTl, CVLOV 


02249 




5 


X 2 










02249 




-2230 












02254 




-0554 




0*130 




DC 
P* 


2.7* 


02256 




2 




0*1*0 




DSA 


NOZERO 


02261 




5 


X 1 










02261 




-1272 




0*150 


RM 


DC 


1.' 


02262 




1 




0*160 


CARCAC 


DS 


,19609 


19609 









0*170 


DISKAD 


OS 


,19600 


19600 









0*180 


LOC 


DS 


,NOZERO+ll 


01283 









0*190 


M 


OS 


,MSTQR*9 


02067 









0*200 


N 


DS 


,NST0R>9 


02097 









0*210 


Pi 


OS 


,88*23 


02207 









0*220 


SAVE1 


OS 


,RD*10 


00968 




o 




04230 


SAVE* 


OS 


,R0*7 


00969 




o 




0*2*0 


TEMP 


OS 


• BR*5 


01477 









0*250 


TEMPI 


OS 


. 1F8*23 


01709 









04280 


TEMPI 


OS 


.SF*ll 


02139 




o 




04270 


XX 


OS 


5,0 


00000 




5 




04280 


ARM 


DS 


.464 


00464 




o 




04290 


COMM 


OS 


• **0 


00440 




o 




04300 


C 


DS 


.*39 


00439 









04310 


HIGH 


OS 


.*3* 


00434 




o 




04320 


LOW 


DS 


• *** 


00444 




o 




04330 


IOME0 


OS 


,*28 


00428 









04340 


MAPENT 


DS 


,*02 


00402 









04390 


RELCON 


OS 


,**9 


00449 




o 




043*0 


SEO 


DS 


,45* 


00494 









04370 


TCC 


OS 


.*28 


00428 









04180 


I TAB 


DS 


.440 


00440 









04390 


SVSSCT 


DS 


,19663 


19661 




o 




04400 




TCO 


TRV3 


02900 








04410 




DORG 


2500 


02900 








04420 


• WRITE SEGMENT 4 OF LOADER ON DISK. 










04430 


TRY* 


34 


DC0NT*,70l 


02900 


14 


02964 


00701 


04440 




38 


DC0NT4.702 

a 7 


02912 


18 


02964 


00702 



U2C-1443 MONITOR I VERSION 2 MCM TOR LCADgR 



PAGE 



04450 


ON I R 1CHT4, 1900 


02524 


47 


02560 


01900 


Q4460 


H 


825 36 


48 


00000 


ccooo 


044 70 


8 I R V 4 


02548 


49 


02500 


00000 


04480 


RIGHT4 TR A 


02560 


36 


COCOO 


00500 






02572 


49 


00000 


00000 


04490 


DC0NT4 CSC 9, 1 19624005 


02584 




9 






1 19624005 










045C0 


OSA N02ER0 


02597 




5 


X 1 






02597 




-1272 




04510 


CORG NOZERO 


01272 








04520 


• I ERO INDICATUR i- SET TCO I NU ICA TOR. 










0*530 


CF TCU 


01272 


33 


00428 


00000 


04540 


BNF •♦2CtCHAR 1 , U 


01264 


44 


1 304 


0C86L 


04550 


• FLAGGED ZERO - DO NOT RELOCATE. 










Q4560 


8 NUT 


01296 


49 


01368 


cccoo 


04570 


OORC •-3 


013C4 








04580 


• UNFLAGGEC ZERC - DO RELOCATE. 










04590 


am char t , 5 


013C4 


li 


00863 


-0005 


04600 


BNF ADD tCHAR 1,11 


01316 


44 


01348 


0086L 


04610 


• INDIRECT AODRESS - SUBTRACT RE LCQN, 










04620 


S CHAR 1 ,RELCUN,6 


01328 


22 


0086L 


00449 


04630 


6 NUT*12 


01340 


49 


01380 


00000 


04640 


OORG »^3 


01348 








04650 


• NOT INDIRECT - ADO RELCON. 










04660 


ACC A CHARl,RELC0N,6 


01348 


21 


0086L 


00449 


04670 


b »*20 


01360 


49 


01380 


00000 


04680 


OORG 3 


01368 








04690 


NOT AM CHAR 1 , 5 


01360 


11 


00863 


-0005 


04700 


• PUT ACORESS IN CO*". AREA. 










04710 


TF MAPENT*18,CHARI,11 


01300 


26 


00420 


0086L 


O4720 


• SAVE LAST SECTOR READ, IF QIS* INPUT. 










04730 


80 EXIT ,10 MED 


01392 


43 


01440 


00428 


04 740 


TF MAPENT*5»CNTL*5 


014C4 


26 


C0407 


CC925 


04750 


SM MAP£NT*5,3 




1 2 






04760 


AM MAPENT*8,3,9 


01428 


11 


00410 


00-03 


047 70 


• WRITE THREE FIELDS ONTO COMMUNICATION SECTOR. 










04780 


EXIT TD CN TLE » ARM* 1 


01440 


25 


0149C 


00465 


04790 


TR A, EX 


01452 


91 


01073 


01471 


04800 


H OIS+12 


01464 


49 


00946 


00000 


04810 


DORG »-4 


014 71 








04820 


EX CC 1,7 

P 


01471 




1 




04830 


OSA CNTLE.CYLOV 


01476 




5 


X 2 






014 76 




- 1490 








01481 




-0554 




04 84 


CC 2,74 
P4 


01483 




2 




04850 


CSA THRL 


01488 




5 


X 1 






01488 




- 1504 




04860 


use 1,' 


01489 




1 






t-nl lit U I , U 


01490 




1 






o 3 












1620-1443 MONITOR I VERSION 2 MONITOR LOADER 








PAGE 


04880 


DSA SYSSCT 


01495 




5 


X 1 






01495 




J9663 




04690 


DC 6, ICOCOO 


015C3 




8 






-01COOCO 










049C0 


THRU TR 84,CQMM 


015C4 


31 


00084 


00440 


04910 


TUM RD»1,8 


01516 


15 


00959 


00008 


04920 


TFM CNTLE-2.NEXT 


01528 


16 


01488 


-1650 


04930 


B EXIT 


01540 


49 


01440 


oocoo 


04940 


DORG »-3 


01548 








04950 


• SIX INDICATOR -UPDATE LAST LOCATION PLUS ONE INDICATOR. 










04960 


LEAVE TF H I GH , RE L 


01548 


26 


00434 


OC716 


0*970 


• MOVF THE ENTRY ADDRESS. 










04980 


TF MAPENT* 1 8 , M APE N T* 1 3 


01560 


26 


00420 


00415 


04990 


• IF NON-OISK INPUT, RE AO ONF MORE RfcCORC. 










05000 


«D »*20 ,10 MED 


G1572 


43 


01592 


0C428 


05010 


B EXIT 


01584 


49 


01440 


00000 


05020 


OORG — <* 


01591 








05030 


TU »*2l ,10 MEO 


01592 


25 


01613 


00428 


05040 


RNCD 


016C4 


36 


00000 


00500 


05050 


TFM SEQ,0 


01616 


16 


00454 


,0000 


05060 


8 EXIT 


01628 


49 


01440 


CCOOO 


05070 


CORG »-4 


01635 








050HO 


• CCA FOR IURT-S LOADER RETURN SUBROUTINE. 










5090 


CNTL3 DSC 14, 1979200300000' 


01635 




14 






19792003CCC0C 










05100 


• REAC AND EXECUTE EXIT SUBROUTINE. 










051 10 


NEXT TFM 510,0 


01650 


16 


00510 


-COOO 


05120 


TD CQMM,ARM+l 


01662 


25 


00440 


00465 


05130 


TR C0MM*1,CNTL3 


01674 


31 


00441 


01635 


05140 


B 480 


01686 


49 


00480 


00000 


05150 


TCD TRY4 


025CO 








05160 


DORG 25CC 


02500 








05170 


• KF AD IN SEGMENT 1 OF LOADER AND BEGIN EXECUTION. 










05180 


TRY 5 34 DC0NT5, 701 


02500 


34 


02584 


00701 




36 DC0NT5 , 702 


025 12 


36 


02S84 


00702 


05200 


BNI RIGHT5, 19C0 


02524 


47 


02560 


01900 


05210 


H 


02536 


48 


00000 


OCOOO 


05220 


B TRY 5 


02548 


49 


02500 


00000 


05230 


R I GMT 5 H 


02560 


48 


00000 


OCOOO 


05240 


B LOADER 


02572 


49 


01266 


OCCOO 


05250 


DC0NT5 USC 14.0196C000900502 


02584 




14 






01960000900502 










05260 


DEND TRY5 


02500 









1620-1**3 MONITOR I VERSION 2 MONITOR LOADER 



PAGE 13 



ANY ERR 


00982 


BEGIN 


0116* 


00 


01388 


NEXT 


01650 


SET 


02080 


CAROAO 


19609 


BLANK 


02229 


c 


01085 


NF 


02172 


SF 


02128 


CAROIN 


00512 


BR 


01*72 


ERR 


01030 


NORM 


00511 


SIX 


02208 


UCON T I 


0258* 


B 


01078 


E 


01091 


NO 


01868 


START 


00720 


OCONT2 


0258* 


CARO 


00536 


EXIT 


01**0 


NOTRM 


01228 


STOP 


0105* 


DCONT3 


0258* 


CENO 


C0S56 


EX 


01*71 


NOT 


01368 


STORE 


01892 


DCONT* 


0258* 


CHAR 1 


00863 


FAKE 


00503 


N 


02057 


TCO 


00*28 


DCONT5 


0258* 


CIN 


01083 


FIN 


01092 


NSTOR 


020*8 


TO 


01176 


DISKAC 


19600 


CNTLl 


C0537 


FIVE 


0168* 


OK 


00630 


TEMPI 


01789 


L ESS 12 


0183* 


CNTL2 


005*5 


FLAG 


01316 


OUT 


0C816 


TENP2 


02139 


LOACER 


01266 


CNTLS 


01635 


FORK 


00732 


PI 


02207 


TEMP 


01*77 


MAPENT 


00*02 


CNTLE 


01*90 


FOUR 


015*6 


P2 


02011 


THREE 


01*80 


NOFLAG 


01208 


CNTLl 


01328 


GET 


00675 


PLACE 


02000 


THRU 


C150* 


NOZERO 


01272 


CNTL 


0092C 


HERE 


01116 


PROG 


022** 


TRANS 


013*2 


REL CON 


00**9 


CNT 


00553 


HIGH 


00*3* 


Q 


0161* 


TRY I 


02500 


RIGHT1 


02560 


COPM 


00**0 


IF8 


01766 


RCON 


0110* 


TRV2 


02500 


RIGHT2 


02560 


CONTl 


02230 


(NIT 


01309 


RO 


0C958 


TRV3 


02500 


RIGHT) 


02560 


C0NT2 


CU69* 


ICMEC 


00*28 


READ 


O'C 796 


TRY* 


02500 


RIGHT* 


02560 


C0NT3 


01250 


ITAB 


00**0 


REL 


0C718 


TRY5 


02500 


RIGHTS 


02560 


C 


00*39 


LEAVE 


015*8 


RM 


02262 


TWO 


01880 


ACD 


013*8 


CVLOV 


C055* 


LCC 


01283 


RPROG 


01231 


XX 


OCOOO 


ARM 


00*6* 


DISK 


0086* 


LCW 


00*** 


SAVE1 


0C968 


ZERO 


011*0 


A 


01073 


OISKX 


00713 


MORE 


00610 


SAVE2 


0C965 


SVSSCT 


19663 


BACK 


01066 


OIS 


0093* 


M 


02067 


SEEK 


012*0 






BB 


0218* 


OONT 


C1660 


MSTQR 


02058 


SEQ 


00*5* 







END OF ONE ASSEMBLY. 



1620-1**3 MONITOR I VERSION 2 SPS 1 1 - C PHASE A 



00010 




» PHASE A 










00020 








START OF S 


P S COMMON 






00030 




DORG 


2218 








02218 


000*0 


• 




SYMBOL TABLE PARAMETERS 






00050 


SPBL 


OS 




* *G». 






SECTORS PER BLOCK 


000*0 


G0060 


SMPBL 


DS 




t 225,, 






SYMBOLS PER BLOCK 


00235 


00070 


SYMTBL 


DS 




t 16003, 






HI -ORDER POSITION OF SYMBOL TABLE 


16003 


00080 


LOSYMH 


DS 




, SYMT8L*SMPBL»17-1 




LU-ORCE* POSITION OF SYMBOL IC BLOCK 


19997 


00090 


S8F ADD 


DS 




, LCSYM8-SP8L»100*l 




SYMBOLIC BLOCK DISK AOORESS 


15998 


00100 


LBLIM 


DS 




, LCSYMB*12. 






LQ-URCER BLOCK LIMIT 


2C0C9 


00110 


MAXLIM 


DS 




t S YMTBL-6 « 






MAXIMUM LIMIT 


15997 


00120 


• 




EMPIRICAL SECTOR ASSIGNMENT PARAMETERS 




00130 


IPTSPB 


DS 




, 15C0, 






1-PASS TOTAL SECTORS PER SYM. BLOCK 


015C0 


001*0 


2PTSPB 


DS 




,600, 






2-PASS TOTAL SECTORS PER SYM. BLOCK 


00600 


00150 


BP20K 


DS 




t5, 






SYMBOLIC BLOCKS PER 20K CORE 


00005 


00160 


2PRTI0 


DS 




,2CC00, 






2-PASS RATIO— INTERN. /FINAL SECTORS 


20000 


00170 


• 




SPS CISC ASSIGNMENT PARAMETERS 




00180 


A1DAD 


DS 




• 18600, 






CONTROL STATEMENTS* PH. A SUBRUUTINS 


18600 


00190 


A1SCT 


DS 




,137 








00137 


00200 


A2DAD 


DS 




t 18800, 






NORMAL PROCESSING— FREQUENT STMTS. 


188C0 


00210 


A2SCT 


DS 




,55 








00055 


00220 


A3DAD 


DS 




, 19252, 






TRA, CALL, GET-PUT ANO ASSOC OECL 


19252 


00230 


A3SCT 


DS 




,29 








00029 


002*0 


A*OAD 


DS 




, 18881, 






ONES, OVLC PROCESS 


18881 


00250 


A*SCT 


OS 




,27 








00027 


00260 


A50AO 


DS 




.18737, 






DfcNO, TCO, ANO SYMBOL TABLE LIST 


18737 


00270 


A5SCT 


DS 




,31 








00031 


00280 


SSTDAD 


DS 




, 18908, 






SYSTEM SYMBOL TABLE 


18908 


00290 


SSTSCT 


DS 




,35 








00035 


00300 


MSTCAC 


OS 




,SST0AO*SSTSCT. 




MASTER SYMBOL TABLE 


18943 


00310 


MOSCAD 


OS 




,19663, 






MONITOR COMM SECTOR OISK ADDRESS 


19663 


00320 


B10A0 


DS 




,18978, 






PHASE B INITIALIZATION 


18978 


00330 


B1SCT 


DS 




,21 








00021 


003*0 


B20A0 


DS 




, 19200, 






INPUT, BRANCH TABLE. SCAN 


192C0 


00350 


B2SCT 


OS 




,52 








00052 


00360 


B30AD 


DS 




,19000, 






LI NPRT. INSTRN.CC, OSONB.OAS.DORG 


19000 


00370 


83SCT 


OS 




,69 








00069 


00380 


B3MA0 


DS 




,09100, PHASE 


83 MEMORY 


AOORESS 


09100 


00390 


B*0A0 


DS 




, 19069, 






RSTR,DAC.ALOW,DMES,DSB,DVLC,DGM 


19069 


00*00 


B*SCT 


DS 




,53 








00053 


00*10 


B5CA0 


OS 




,19122, 






OSA .MACRO.CCA.TRA.DE NO 


19122 


00*20 


B5SCT 


DS 




,29 








00029 


00*30 


B60A0 


OS 




,19151, 






CALL LINK, LOAD, EX IT 


19151 


00**0 


B6SCT 


OS 




,30 








00030 


00*50 


PHASE 


A 


INITIALIZATION 








00*60 


B7DA0 


DS 




.B20A0M9... 


DISK- 


RESTORE 8 PARTIAL 


19219 


00*70 


87SCT 


OS 




,0*,,, 


SECTOR 


COUNT-RESTORE 8 PARTIAL 


00006 


00*80 


B8DA0 


DS 




,17001,,, 


DISK- 


PAGE 


OFLO GOODIES 


17001 


00*90 


B9MA0 


OS 




, 16500. » 




CORE 


AOORESS TO INITIALIZE 


16500 


00500 


B10MAD 


DS 




.09900. »* 




CORE 


AODRESS OP PAGE OFLO 


09900 


00510 


PC CON 


OS 




.BlOMAO*! 








0**0 1 


00520 


DIMOAO 


OS 




.0*800. 






DIM ENTRY FOR EQUIV. TABLE 


04600 


00530 


OlMSCT 


DS 




.1 








00001 


005*0 


EQCAD 


OS 




• 0, 






EQUIVALENCE TABLE 


00000 


00550 


EQSCT 


OS 




»* 








00004 


00560 


PHCDAD 


OS 




•18855 








18855 



162C-1443 MONITOR I VERSION 2 SPS U-C PHASE A 



PAGE 2 



005 70 


PMCSCT 


os 


• 26 


00026 





00580 


SU80AD 


OS 


,04808, SPS SUBROUTINE DIM ENTRIES 


0480b 





00540 


• 




MONITOR CQMKUNICAT JCN PARAMETERS 






00600 


MQSCT 


PS 


♦16C00# MQNITCR CQMM SECTOR MEMORY AQD.RESS 


16000 





00610 


NUUOC 


us 


tMOSCT*22i 01 SC OUTPUT CODE 


16022 





00620 


MOCTOC 


OS 


iM0SCT*23t CO-TP OUTPT COCE 


16023 





00630 


MONAME 


OS 


»MOSCT*35 f NAME 


16035 





00640 


HO I ONO 


OS 


, MOSCT* 39, 10 NUMBER 


16039 





0.065.0 


MQML 


OS 


»M0SCT*4l» MANT» LENGTH 


16041 





00660 


MOSBNO 


us 


,MQSCT>43, SUB. SET 


16043 





006 70 


MQNOI S 


OS 


,M0SCT*44, NUJSE OIGIT 


16044 





00680 


MOfcXEC 


OS 


t426, EXECUTE CONTROL AND SPS INPUT 


00426 





00690 


MOMAO 


OS 


♦415, MEMORY ADOR 


00415 





00700 


SVSCAL 


OS 


,475, SYSTEM COMMON ACTION LOCATION 


00475 





00710 


NONEX 


OS 


i457, NON-EXECLTE FOR JOB ERROR 


00457 





00720 


PCK 


OS 


t 2 365 


02365 





00730 


* 




I OR T ENTR I E S 






00 740 


IOK T 


cs 


,56 5 


0C565 





00 750 


IOPT 


OS 


,532 


0C5 32 





00760 


IUGT 


DS 


,566 


00566 





00770 


lORBC 


cs 


, 52C 


00520 





007 80 


IOSK 


OS 


, 554 


00554 





00 790 


10CAI 


PS 


,CC716 


00716 





00800 


MONCAL 


OS 


,CC796 


00796 





008 10 


IOCSAD 


cs 


, 19783, AOORESS OF THE LOADER • CALLER 


19783 





008/0 


• 










008 30 


• 




SPS COMMUNICATION AREA 






00840 












00850 


OUT 


OS 


1 


02218 


1 


00860 




OS 


80 


02298 


80 


00870 


2EP0 


DS 


2 


G23C0 


2 


00880 




OS 


81 


02381 


8 1 


00890 




oc 


1,« 


02382 


1 


C09C0 


LNTH 


DS 


5 


02387 


5 


00910 




DC 


1, ' 


02 388 


1 


00920 


A JUST 


DC 


11,2121212121,, INSTRUCTION PARITY TABLE 


02399 


1 1 






-2121212121 






00930 


THINGS 


OC 


21.CO102O3O4O50607CC0O' 


02420 


2 1 






-Q010203CC5C607CCCO' 






00940 


COU 


OS 


19 


02439 


19 


00950 




DS 


2 


02441 


2 


00960 


NUMB 


DC 


7, ' 


02448 


7 






-COCOO' 






00970 


JSTBL 


OC 


11,3232323232,, ALPHA PARITY TABLE 


02459 


1 1 






-3232323232 






00980 


E VOCD 


CC 


10.C101010101, , OMES PARITY TABLE 


02469 


10 






- 10 10 10 IC I 






00990 






PROCESSOR CONTROL S* I TCHE S--F L AGGED l*CN, UNFL AGGED Q*CFF 






01000 


STPCSW 


OS 


1 , , PUNCH SYMBCL T ABLE 


02470 


I 


01010 


ST TYSW 


DS 


I,, TYPE SYMBOL TABLE 


02471 


I 


01020 


STPRSW 


OS 


1 , , PRINT SYMBOL TABLE 


02472 


1 


01030 


TY INSW 


US 


I,, BEGIN TYPEWRITER INPUT 


02473 


I 


01040 


CCINSW 


DC 
J 


1 , i, , BEGIN CARO INPUT 


02474 


1 



6 7 



162C- 1443 MONITOR 'I VERSION 2 SPS I I -C PHASE A PAGE 3 



01050 


PTINSW 


DS 


1 , , 


BEGIN PAPER TAPE INPUT 


02475 




1 


01060 


ERSTSW 


DS 


1 t , 


ERROR STOP 


02476 




1 


010 70 


2PSSW 


DS 


It t 


TWC PASS MOCE 


02477 




1 


01080 


KEl SW 


DS 


I. , 


ASSEMBLE RELOCATABLE 


02478 




I 


01090 


LSCCSW 


DS 


1 , • 


LI ST CARD 


02479 




1 


01 100 


LSTYSW 


CS 


It t 


LIST TYPEWRITER 


02480 




1 


01 1 10 


L SPRSW 


DS 


it t 


LIST PRINTER 


02481 




1 


01120 


PCNUSW 


US 


It , 


PUNCH RESEQUENCE SOURCE DECK 


02482 




1 


Oil 30 


INTR SW 


DS ' 


' ltt 


INTERRUPT 


02483 




1 


01 14U 


K ILSUB 


DS 


It , 


NO SUBROUTINES 


02484 




1 


01150 


CTVT 


DC 


5,C 




02489 




5 






-0000 










01 160 


INCOOE 


DC 


2,5 




02491 




2 


01170 


OBJCRE 


- "5 

DS 


5, , 


OBJECT MACHINE SIZE 


02496 




5 


01180 


PROCKE 


DS 


It t 


PROCESSOR MACHINE SUE 


02497 




1 


01 190 


PR TL IM 


DSA 






025C2 




5 X 












02502 




-oooo 


012CO 


HCL IM 


CSA 


LBLIM 




025C7 




5 X 












025C7 




K0009 


01210 




DC 


1 , ' 




02508 




I 


01220 


STCNT 


DC 


5,1,, 


STATEMENT COUNT 


02513 




5 






-0001 










01230 


HI ACO 


DC 


5,0,, 


HIGH APORESS 


02518 




5 






-0000 










01240 


L 


DS 


2,, 


LENGTH OF MANTISSA 


02520 




2 


01250 


NOISE 


OS 


1 




02521 




1 


01260 


SUBNO 


CS 


2 




02523 




2 


01270 


PICKUP 


OS 


5 




02528 




5 


01280 




OC 


It 1 




02529 




1 


01290 


ISTAT 


J 

DC 


30, C 




02559 




30 






-OO0OOO0COO0COOCOO0OCOC0CC0CO , 








01300 


SPSGM 


DGM 






0256C 




1 


01310 


INKRM 


DS 


5 




02565 




5 


01320 




OC 


It' 




02566 




1 


01330 


TEMPR 


OS 


5 




02571 




5 


01340 




DC 


It • 




02572 




1 


01350 


RMRK 


OS 


3 




02575 




3 


01360 




DC 






02976 




I 


01370 


0NE2 


OC 


10. 1 




02516 




10 






-000000001 










01380 


• 














01390 


• 




IOCS CALL-LOAD 


PROCESSOR SECTION-NO tolRC 








01400 


• 














01410 




OS 


5 




02591 




5 


01420 


CFF 


TFM 


IORT,«*23 




02592 


1* 


005*5 


01430 




B 


I0GT,CFFD6F, 


7 


02604 


49 


005** 


01440 




87 


CFF-1, 




02*1* 


49 


0259J 


01450 


CFFOEF 


OSC 


2,22, , 


ABSOLUTE DISK NOT WRONG LENGTH 


02*21 




2 



6s 



162C-1443 MONITOR I VERSION 2 SPS I I - C PHASE A 



01460 CFFA 



01*70 



DC 



1. 



01480 MURl OS 1 

01*90 IOACDR DC 5, C, .FILE ADDRESS OF INTERMEDIATE OUTPUT 

-0000 

015C0 SYMTAD CC 5 , 02600 , , F I IE ADORE SS OF SYMBOL TABLE 

-2600 



02629 
02630 



02631 
02636 



01510 


SBOUT 


DC 
-0 


2»0 






02643 








01520 


PGNUM 


DC 


4tCC01,,, PAGE 


NUMBER BUCKET 


02647 












-001 
















01530 


• 


















01540 


• 


END SPS COMMUNICATION AREA 














01550 


• 


















01560 


TYP1N 


OS A 


INPLT- 10 






02652 




5 


X 1 














02652 




-287 7 




01570 




DC 
-6 ' 


3,06» 






02655 




3 




01580 


TAP IN 


CSA 


INPIT-10 






02660 




5 


X 1 














02660 




-2877 




1 590 




DC 


3,08' 






0266 3 








1600 


CARD IN 


-8' 
DSA 


INPLT-10 












* 














02668 




2877 




01610 




DC 
JO* 


3, 10' 






02671 




3 




1620 


SBMAX 


DC 
-0 


2.CC 






026 73 




2 




1630 


SBCNT 


DC 


2,C 






02675 




2 




01640 


ACDCOM 


-0 
OS 


5, PICKUP 






02528 




5 




01650 




DS 


I 






02676 








01660 


ALPHA 


OS 


10 






02686 




10 




01670 


BETA 


DS 


10 






02696 




10 




01680 


DIGITS 


CS 


3 






02699 




3 




01690 


CLERER 


DC 


1,0 






027C0 




1 




01700 




CSC 


26, C 






02701 




26 








OOOCCCCCCCCOCCCCCCCCCOCOOO 














01710 




DSC 


27, • 






02727 




2 7 








COCOCCCCCOCOCOOCCOCCCCCCCC' 














01720 


INSAV 


OAS 


61 






02755 




61 


X 2 


01730 




DAC 


5, , , , 






02877 




5 


X 2 


1 740 


INPUT 


OAS 


6 






02887 






x 2 


01750 




DAS 


4 






02899 




4 


X 2 


1 760 




DAS 


66 






02907 




66 


X 2 


017 70 




DC 


I., ' .• 






3037 








01780 




CAS 


1 






03039 




1 


X 2 












6 
















1620-1443 MONITOR I VERSION 2 


SPS II-C PHASE A 








PAGE 


01 790 




CSS 


217 






03040 




217 




1 800 


SUBENT 


DS 


5 






326 1 








01810 


DMSV 


CS 


5 






03266 




5 




01820 


DMSVW 


DS 


5 






03271 




5 




01830 


PLACE 


DS 


5 






03276 




5 




01840 


ERRDIG 


DS 


I 






03277 




1 




01850 




DC 


5.C 






03282 




5 








-0000 














01860 


LIMITS 


CC 


5.C 






03287 




5 








-OOCO 


















DC 


It • 






0J28V 












DS 


11 






n\ inn 




* 




n i fto 




DC 


It • 






300 












DAS 


6 






r\W i c 








01 




DAC 
♦ • 


2.*» 






0331? 








1920 


LOPOUT 


DC 


ICC 






03327 




10 








-OOOOOOCCO 


















CAC 


2, • 






* 






X 




LAB 


US 


12 






03343 




12 




ni oin 




UC 


It • 






03364 




I 




1960 


FLGRM 


OC 


It • tt 


FLAGGEO 


RECORD MARK 


03345 










SMQOE 


DS 


1 






03346 




I 




1 980 


DGSV 


DS 


I 






03367 




1 




1990 




DS 


1 






03368 




1 




02000 


TEMP 


DS 


5 






03353 




5 




02010 


CORM 


DAC 


22, RE-ENTER STATEMENT. 






03359 




22 


» 2 






RE 


-ENTER STATEMENT.* 














02020 


5ALPH0 


DAC 


5.CC000 






03399 




5 


X 2 






00000 














02030 


• 


















020*0 


• READ 


INPLT 














02050 


• 


















02060 


PHASE A 


TOM 


ERMOIGtO 






03401 


15 


03277 


00000 


02070 




BO 


READ2. COINS* 






03620 


43 


03640 


02474 


02080 




BD 


REAOlt PTINSW 






03632 


43 


03408 


02475 


02090 




















02100 




READ TYPEWRITER 














02110 


• 


















02120 


R6A03 


RCTY 








03444 


34 


00000 


00102 


02130 




TFM. 


•♦30, INPUT*16, , 


OVERLAY 


INPUT AREA WITH 


01694 


14 


03494 


-2905 


02160 




AM 


•♦18,2.10, 


RECORD 


MARKS 


03468 


11 


03494 


000-2 


02150 




TFM 


•-•tt 






03410 


1* 


00000 


-0000 


02160 




CAC 


lt*t» 






03491 




1 


X 2 


02170 




CM 


•-6, INPUT+140 






03492 


14 


01404 


^3027 


02110 




BL 


•-36 






03904 


4? 


03440 


01300 


02190 




TF 


INPUT-2. CLERER*9 






0991* 


2* 


02999 


0270* 


02200 




TF 


INPUTUO, CLERER* 11 






01929 


24 


029*7 


02711 


02210 




TF 


INPUT*18, CLERER* 7 






01940 


24 


02*09 


02707 


02220 




TFK 


IORT,»*23 






03992 


14 


00949 


-3579 



7» 



162C-1**3 MONITOR I VERSION 2 SPS ll-C PHASE A 



PAGE 



02230 




R 


l(J0T,TYPIN-*,7 


356* 


*9 


00566 


-26*8 


022*0 




BNC* 


PRGSTM 


03576 


4 7 


03916 


00*00 


022 50 




WATY 


CO«m 


3588 


39 


03355 


00100 


02260 




b7 


RE AD 3 


03600 


*9 


03*** 




02270 


• 














02280 


• 


READ PAPER TAPE 










02290 
















02 300 


READ1 


TFM 


IQft T,»*23 


3608 


16 


00565 


"3631 


02310 




3 


I OCT, TAP IN-*, 7 






fwof 4 


-2656 


02 320 




B7 


PROSTM 


36 32 


*9 






02330 


m 














02 3*0 


# 


READ STATEMENT FRO* CARD 










02 350 
















02360 


RE A02 


TFM 


10RT,»*23 


36* 


16 


00565 


— 366 3 


02370 




B 


I0GT,CAR0IN-*,7 


03652 


49 




— 266* 


02380 




HNF 


RSCAN,PCNU$* 


366* 




3808 




02390 




OMR 


•♦2*, INPUT-10 


03676 


4) 


03700 


0287 7 


02*00 




TFM 


I-NPLT-10,00,10 






0287 7 




02*10 




CM 


INPLT-10, I*, 10 


nwrn 


14 


r f ana 


or o"i4 


02*20 


R2t)E 


BE 


RSCAN 


3712 


44 


C 3608 


C 1200 


02*30 




TF 


lNPUT-02, 5ALPH0*8 


0372* 




«f af \ 


« 


rwl* «!n 




TO 


INPLT-O*, STCNT 


3736 


25 


02883 


02513 






TO 


INPLT-Q6.STCNT-1 




2 5 


C288 1 


02512 






TD 


INPLT-08,STCNT-2 




25 


02879 


0251 1 


n _ _ . 




TL 


INPUT- 10, STCNT-3 


37 72 


25 


0287 7 


02510 


02*80 




TFM 


I0RT,»»?3 


378* 


16 


00565 


- 380 7 


02*90 




B 


I0PT,CARDIN-*,7 


03796 


*9 


00532 


-266* 


02500 


• 
















* . 


FIND RIGHTMOST CHARACTER OF STATEMENT AND PLACE A 














RECORU MARK AFTER IT 










0?s - 
















r jt 4 n 




TFM 


RSBO- I, INPUT*139 


3808 


16 


38 79 


-3026 






TFM 


RSH0*11,INPUTU*C 




16 


389 1 


- 302 7 






TFM 


KSbOHl , ,6 


03832 


16 


0389 J 


00000 


t 3 tin 
02 




OAC 


It* 


38*3 




1 


X 2 


02580 




SM 


RSBO-1,2,10 




1 2 


3879 


000- 2 


02590 




SM 


RSHD»ll,2, IQ 


* 


4 \ 






02600 




BD 


PROSTM, •-# 






n a«M4 


OCOOO 


02610 


R SBC 


BD 


PRGSTM, •-• 


03880 


*3 


03916 


uuuuu 


02620 




CM 


RSUD*11 ,INPUT*1B 


03892 


1* 


03891 


-2905 


02630 




BH 


RSCAN*2* 


0390* 


*6 


03832 


1 1 


026*0 


* 














02650 




CLEAR FOR INTERMEDIATE OUTPUT 










02660 


















PRO S T* 


B 


PROCON 








UUUUU 


02680 




HNR 


• ♦2*., INPUT»20 


03928 


*5 


03952 




U269U 




TFM 


INPLT*22, OCOCO 


039*0 


16 


02909 


-0000 


02700 




CAC 


!,•»• 


03951 




1 


X 2 


02710 




TR 


INPUTS, CLERER**6 


03952 


31 


030*0 


027*6 


02720 




TR 


INSAV-1,INPUT*19 


396* 


31 


0275* 


02906 


02730 




AM 


STCNT, 1,10 


03976 


11 


02513 


COC-l 


027*0 




TDM 


LOABSW, 1,11 


03988 


15 


08036 


CCOOJ 


02750 




BD 


«3E, 2PSSW 


0*0C0 


*3 


0*036 


02*77 


02760 




T CM 


INf>U2*99 


0*012 


15 


03139 


00000 



71 



U2C-!**3 MONITOR I VfcRSlUN 2 $PS II-O PHASE A PAGE 



02770 




DC 


I » ' » • 


0*C23 




1 




02780 




TR 


1NPLT2 + B-, INPUT-ll 


0*02* 


31 


030*8 


02876 


02790 


R3E 


AM 


1NKRM, 1,10 


0*036 


11 


02565 


000-1 


02800 




BNR 


•■♦2*i INPUT- 10 


0*0*8 


*5 


0*072 


02877 


02810 




TFM 


INPLT-10, 00, 10 


0*060 


16 


02877 


000-0 


02820 




TF 


PLACF, AODCDW 


0*072 


26 


03276 


02528 


02830 




CM 


ADDCOW , S9999 


0*08* 


1* 


02528 


R9999 


028*0 




BE 


• ♦*fi 


0*096 


*6 


0*1** 


01200 


U2850 




C 


ADDCOW,H I ADD , , HI ADDRESS TO HIADD 


0*108 


2* 


02528 


02518 


02860 




HNH 


• ♦2* 


0*120 


*7 


0*1** 


01100 


02870 




TF 


HIADD, ADDCOW 


0*132 


26 


02518 


02528 


028HO 




BNR 


•>2C, INPUT 


0*1** 


*5 


0*16* 


C2887 


02890 




B7 


ER2 


0*156 


*9 


0*28* 




02900 




CM 


INPLT,i*,10 


0*16* 


1* 


02887 


OOOJ* 


02910 




BNE 


RLOPl 


0*176 


*7 


0*22* 


01200 


02920 




HD 


•♦2*,ERRDIG 


0*188 


*3 


0*212 


03277 


02930 




BD 


PhASEA, 2PSSH 


0*2C0 


*3 


03*08 


02*77 


029*0 




BTM 


OUTPUT, PHASEA 


0*212 


17 


09686 


-3*08 


02950 
















02960 






CHECK FOR RECORD MARK IN LABEL FIELD. 










02970 


• 














02980 


RL0P1 


TFM 


RlOP* 1 1 , INPUT-2 


0*224 


16 


0*283 


-2885 


02990 




AM 


RL0P*ll*2, 10 


0*236 


11 


0*283 


000-2 


03000 




CM 


RL0P*11,INPUT*12 


0*2*8 


1* 


0*283 


-2899 


3010 




HE 


OP 


0*260 


*6 


0*356 


01200 


03020 


RLOP 


BNR 


• -36" 


0*272 


*5 


0*236 


00000 


0303G 


• 




RECORD MARK IN LABLE FIELD. 










030*0 


ER2 


TFM 


EVALER-l, 2C000 


0*284 


16 


07071 


KOOOO 


03050 




DC 


It • 


0*295 




1 




03060 




BT 


EPRINT.EPRINT-l 


0*296 


27 


07332 


07331 


03070 




TF 


INPUT*10, CLERER*li 


0*308 


26 


02897 


02711 


03080 




00 


• ♦2«, 2PSS* 


0*320 


*3 


0*3** 


02*77 


03090 




TR 


INPUT2*8, INPUT-ll 


0*332 


31 


030*8 


02876 


03100 




BD 


ERCOR, ERSTSW 


0*3** 


*3 


07196 


02*76 


031 10 


OP 


C 


CL£RtR*ll,INPUT+lO 


0*356 


2* 


02711 


02897 


03120 




BE 


• ♦36 


0*368 


*6 


0**0* 


01200 


03130 




TF 


ERLAB*10, INPUTMO 


0*380 


26 


03313 


02897 


031*0 




TFM 


1NKRH , C ' 


0*392 


16 


02565 


.oooo 


3150 


• 














03160 


• 




PROCESS GP CODE 










03170 


• 














03180 


• 


CHECK FOR RECORD MARK IN OP CODE* 










03190 




TFM 


RMOP*U,INPUT*10 


0**C* 


V 


0**63 


-2897 


03200 




AM 


RMOP 11,2,10 


0**16 


11 


0**63 


000-2 


03210 




CM 


RMO»**l,INPUT*20 


0**28 


1* 


0**63 


-2907 


03220 




BE 


OP I 


0***0 


*6 


0*908 


01200 


03230 


RMOP 


BNR 


•-36, ••0,7 


0**92 


*9 


0**16 


-0000 


032*0 




TF 


INPLT*18, CLERER*7 


0**6* 


26 


02909 


02707 


032S0 




80 


•♦2*. 2PSSW 


0**7* 


*3 


0*900 


02*77 


03260 




TR 


1NPUT2*8, INPUT-ll 


0**11 


91 


010*8 


0287* 


03270 




87 


ER 3 


0*900 


*9 


0*8*8 




03280 


• ' 




TEST FOB ABSOLUTE OP CODE 










03290 


0P1 


TD 


• ♦*6, tNPUT+U 


0*90t 


29 


0*99* 


02898 



03300 TD ♦♦35*iK:>a?*i1 0*920 19 0*999 02900 



162C-1**3 MONITOR 1 VERS I ON 2 SPS 1 l-C PHASE A 



PACE 



03310 




CM 


•♦23,77,10 


0*532 


I* 


0*555 


O0OP7 


03320 




BNE 


AL FOP . 


0*5** 


*7 


0*616 


01200 


03330 




C 


CLERERO, INPUU18 


0*556 


2* 


02703 


02905 


033*0 




BNE 


ALFOP 


0*568 


*7 


0*616 


01200 


03350 




TC 


INPLT2, INPUTM2 


0*580 


25 


030*0 


02899 


03360 




TO 


INPLT2M, INPUTH* 


0*592 


25 


030*1 


02901 


03370 




BTM 


INSTRN, D01NST*2* 


0*60* 


I? 


10256 


J038* 


03380 


• 


SCAN OPCODE TABLE 










03390 


AL FOP 


TFM 


SHF ♦ 1 1 , INPUT* 1 8 


0*616 


16 


0*759 


-2905 


03*00 




T F M 


ALFLPl*ll» OPLCTB+15 


0*628 


16 


C*67l 


-*927 


03*10 




BD 


SHF , INPUT* 1 1 


0*6*0 


*3 


0*7*8 


02898 


03*20 




B7 


ER 3 


0*652 


*9 


C*8*8 




03*30 


ALFLPI 


TF 


2 P ♦ 1 1 • 


0*660 


26 


0*815 


00000 


03**0 




TF 


ALFLP*11, SHF* 11 


0*672 


26 


0*727 


0*759 


03*50 




TF 


ZP*18, SHFMl 


0*68* 


26 


0*822 


0*759 


03*60 




SM 


ALFLPMl, INPUT»7 


0*696 


12 


0*727 


-289* 


03*70 




B7 


• ♦ 20 


0*708 


*9 


0*728 




03*80 


ALFLP 


AM 


IP* 1 1 t •-• 


0*716 


11 


0*815 


-COOO 


03*90 




DNR 


IP t ZP* 1 1 » I I 


0*728 


*5 


0*80* 


0*81N 


03500 




B 7 


ER 3 


0*7*0 


*9 


0*8*8 




03510 


SMF 


C 


CLERER* I • • -• 


0*7*8 


2* 


02701 


00000 


03520 




BNE 


ALFLPI 


0*760 


*7 


.14**0 


01200 


03530 




SM 


ALFLPUll, 5,10 


0*772 


12 


Os671 


CCO-5 


35*0 




SM 


S »- F ♦ I 1 , 2 . 1 










03550 




B7 


SHF 


0*796 


*9 


0*7*8 




03560 


ZP 


TF 


ZFP0*30, 


0*80* 


26 


02330 


OCCOO 


03570 




C 


ZEP0*27 


0*816 


2* 


00000 


02327 


03560 




BE 


OK 


0*828 


*6 


0*928 


01200 


03590 




B7 


ALFLP 


0*8*0 


*9 


0*716 




3600 


• 




INVAL ID OP CODE 










3610 


ER 3 


TFM 


EVALER- 1, 30000 




16 




LCOOO 


03620 




cc 


I i 1 i» 


0*859 




1 




03630 




BT 


E PR INT.EPRINT-l 


0*860 


27 


07332 


C7331 


036*0 




BD 


ERCOR, ERSTSW 


0*872 


*3 


07196 


02*76 


03650 




TFM 


INPLT2*1, 0*1, 9 


CL*88* 


16 


030*1 


00-*l 


3660 




BTM 


I N 5 TRN , LDL HL 


0*896 


17 


10256 


-8*1* 


03670 




LOCATIONS OF SECTIONS OF OP-COOE TABLE 










03680 


OPLCTB 


DSA 


A, B, C, D 


0*912 




5 


X * 










0*912 




J3575 












0*917 




J3632 












0*922 




J3956 












0*927 




J*615 





03690 • 
03700 • 
03710 • 
03720 * 
03730 OK 
037*0 
03750 
03760 

03770 GOODB 
03780 
03790 
3800 



USING THE LAST DIGIT OF [HE OPCODE ENTRY GOCUB IS 
MODIFIED TO BRANCH TO THE CORRECT ENTRY IN BTBL 



TFM 

TO 



B 

DORG 



GCGDB+6 iBTBL 
GC0D8*ll,ZEP0* 
GOQDB* 5 »GQ0DB* 
ZEP0*27 
• , 1C 

SAVRST, , ,-7 
1 



7 3 



0*928 


16 


0*982 


-5058 


0*9*0 


25 


0*987 


02330 


0*952 


21 


0*981 


0*987 


0*96* 


32 


02327 


OCOOO 


0*976 


*9 


00000 


000-0 


0*988 


*9 


05380 


00000 


0*998 








0*998 


*9 


00000 


00000 



162C~1**3 MONITOR I VERSION 2 SPS II-O PHASE A 



03810 




DORG 


• - 1 




03820 




8 


CECL , , 


, -5 


03830 




DURG 


• - 1 




038*0 




B 


BOMK , , 


, -* 


03850 




DORG 


•- I 




03860 




B 


MCC ALL 


i,,-3 


03870 




DORG 


• - i 




03880 




B 


ADC , , , 


-2 


03890 




OORG 


— l 




03900 




B 


MACRO, 


,, -I 


03910 




DORG 


•- I 




03920 


BTBL 





INST, , 


, 


03930 




DORG 


•-1 




039*0 




B 


SIUC, , 


• ♦! . 


03950 




DORG 


1 




03960 




B 


DISK, , 


, +2 


03970 




OORG 


• - I 




03980 




b 


ROW, , , 


♦ 3 


03990 




OORG 


• -1 




0*000 




B 


K , , , 


♦ * 


0*010 




DORG 


•-1 




0*020 




B 


DSDNB, 


,, ♦!> 


0*030 




DORG 


1 




0*0*0 




B 


BI,,, 


♦ 6 


0*050 




DORG 


• -1 




0*060 




B 


BN I , , , 


♦ 7 


0*070 




DORG 


•- I 




0*080 




B 


DENOC, 


,, *8 


0*090 




DORG 


• -1 




0*100 


OECL 


TFM 


G0(J0B2*6,8TBL2 


0*110 




TD 


G0QDB2* 1 1.ZEP029 


0*120 




A 


G000B2 


♦ 5,r,OODB2+ll 


0*130 


C00DB2 


B 


, , 10 




0*1*0 


BTBL 2 


B 


DC,,, 





0*150 




DORG 






0*160 




B 


DORG, , 


, >l 


0*170 




DORG 


• - 1 




0*180 




B 


CAC,,, 


♦ 2 


0*190 




DORG 


•-1 




0*200 




B 


DSA,, , 


♦ 3 


0*210 




DORG 


• - 1 




0*220 




B 


OAS,,, 


♦ * 


0*230 




DORG 


•-1 




0*2*0 




a 


HEADER 




0*250 




OORG 


• -1 




0*260 




B 


DSB , , , 


♦ 6 


0*270 




OORG 


1 




0*280 




B 


DGM , , , 


♦ 7 


0*290 




OORG 


• -1 




0*300 




8 


DMESCL 


,,,♦« 


0*310 




OORG 


•-3 




0*320 


INST 


BTM 


INSTRN 


,00INST 


0*330 


ACC 


BT* 


INSTRN 


,00 ADC 


0*3*0 


BOMK 


BTM 


INSTRN 


.OOBONK 


0*350 


BI 


BTM 


INSTRN 


,0081 


0*360 


BN I 


OS 


,BI 





7'. 



05008 








050C8 


*9 


051*8 


OCOOO 


05018 








05018 


*9 


05308 


00000 


05028 








05028 


*9 


11180 


ooooo 


05038 








05038 


*9 


05296 


OCOOO 


050*8 








050*8 


*9 


11288 


ooooo 


05058 








05058 


*9 


0528* 


ooqoo 


05068 








05068 


*9 


05368 


coooo 


05078 








05078 


*9 


053** 


oocoo 


05088 








05088 


*9 


05332 


ooooo 


05098 








05098 


*9 


05356 


ocooo 


051C8 








051C8 


*9 


12316 


ooooo 


05118 








05118 


*9 


05320 


ooooo 


05128 








05128 


*9 


05320 


ocooo 


05138 








05138 


*9 


12760 


occoo 


051*8 








051*8 


16 


05190 


-5196 


05160 


25 


05195 


02329 


05172 


21 


05189 


05195 


0518* 


*9 


00000 


000-0 


05196 


69 


12800 


ocooo 


05206 








05206 


69 


1258* 


coooo 


05216 








0521* 


49 


11*72 


ooooo 


05226 








05226 


*9 


13308 


ooooo 


05216 








05236 


49 


11392 


ccooo 


05246 








052*6 


69 


12464 


ocooo 


05256 








05256 


*9 


12080 


ocooo 


052*6 








052*6 


69 


11220 


ccooo 


0S27* 








0527* 


*» 


11140 


ooooo 


0528* 








0528* 


I? 


102S* 


J0360 


0529* 


1? 


1029* 


J0452 


05308 


17 


1025* 


J0532 


05320 


17 


1025* 


J0600 


05320 










U:<C-i*> *..••<. »•:•• ! VFRSJCN 2 SPS ll- r PWA^E A 



PAGE 



0*370 


no 


BTM 


INSTRN.DORDh 


05332 


17 


0*380 


DISK 


BTM 


INSTRN.DOOl SK 


05344 


11 


0*390 


K 


BTM 


INSTRN.UOK 


05356 


il 


0**00 


SlUC 


BTM 


INSTRN,DQS10C 


05368 


17 


0*410 


SAVRST 


BTM 


INSTRN.DOSVRS 


05380 


17 


0*420 


• 










04430 


• 


THE FOLLOWING CLOSED SUBROUTINE EVALUATES 






0***0 


• 




THE STATEMENT OPERAND 






0**50 


• 










0**60 




NOP 




05392 


41 


0**70 


E VAC AO 


TF 


ADDRS tCLERER*9 


054C4 


26 


0**80 




TFM 


RL0CSW»0,8 


05416 


16 


0**90 




TFM 


EVALAD-9, 100,9 


05428 


16 


0*500 




TF 


BE T A ,QNE I 


05440 


26 


0*510 




TFM 


ALPHA 


05452 


16 


0*520 




SF 


HED-2 


05464 


32 


0*530 




SF 


EVALAD-5 


05*76 


32 


0*5*0 




TCM 


B Sta , 1 , 1 1 


05*88 


15 


0*550 




TD« 


AQk S* 1 1 I 


055CC 


15 


0*560 




TON 


RETtRN*l,9 


05512 


15 


0*570 




TR 


COL L- 1 8 » TH I NO S-2 C 


05524 


31 


0*580 




TFM 


L A8L , 1 , 10 


055 36 


16 


0*590 




TFM 


DOL 1 1 10 


05548 


16 


0*600 




8NF 


BCM SPC i E VALAO- 7 


05560 


44 


0*610 




TR 




05572 


31 


0*620 




SF 


HEU-2 


05584 


32 


0*630 




TFM 




05596 


16 


0*6*0 




TFM 


DOL^ ' 10 ^ 


05608 


16 


0*650 




8 7 


BCMSPC - 12 


05620 


49 


0*660 


c 




CHECK FOR SPECIAL CHARACTER 






0*670 


COMSPC 


CM 


INPLWO, 70, 10 


05628 


14 


0*680 




BL 


SPEC 


05640 


4 7 


0*690 




TDM 




05652 


15 


0*700 




•f f 


CCLL»INPUT*2C 


05664 


26 


0*710 






COLL- I 


05676 


3 3 


0*720 


LABI 


D S 




05687 




0*730 


DOL 




' • - 2 


05685 




0*7*0 




AM 


DOL , I » 1 


05688 


11 


0*750 




T DM 


E VAL AD- 11 


05700 


15 


0*760 




TR 


COL L- I 7 ,C0LL- 1 5 


05712 


31 


0*770 




CM 


COLL-17,7,10 


05724 


14 


0*780 




BNE 


• ♦?* 


05736 


47 


0*790 


• 




SYMBOL IN OPERAND CONTAINS MORE THAN SIX CHARACTERS 






0*800 


• 




UR NLM8ER IN OPERAND HAS MORE THAN FIVE DIGITS 






0*810 


ERLNTH 


OTM 


EVALER, 50000 


05748 


17 


0*820 




cc 


I. • 


05759 




0*830 




TR 


INPLT*l9,INPUT*2l 


05760 


31 


0*8*0 






CHECK TO SEE IF OPERAND IS PRESENT 






0*850 


BCMSPC 


BNR 


COMSPC . INPUT*20 


05772 


45 


0*860 


COMMER 


TDM 


RE TLRN+l, I 


05784 


15 


0*870 




B7 


GE T I 


05796 


49 


0*880 


• 




CHECK FOR ♦ OR - 






0*890 


SPEC 


BO 


Sit INPUT4-2C 


05804 


43 


0*900 






CHECK FOR BLANK 






0*910 




BD 


•♦20,!NPUT*19 7 ~ 


05816 


43 



1620-1**3 MONITOR I VERSION 2 SPS ll-C PHASE A 



0*920 




B7 


BCMSPC-12 


0*930 




TDM 


BS*,0 


0*9*0 




TC 


A SE T* 1 1 , INPUT* 19 


0*950 


GE T t 


BD 


AORS.EVALAD-ll 


0*960 




BTM 


GE T, «*12 


0*970 




BT 


MIL T.MULT-l 


0*980 


AORS 


A 


ADDRS, ALPHA, 


0*990 




TC 


RETLRN-ll,AORS*l 


05000 




TFM 


E VALAD-9, 100,9 


05010 




TF 


BE TA.ONEZ 


05020 




TDM 


MPYSW, 


05030 


ASET 


TDM 


A0RS*1 , 1 


050*0 




BNF 


•♦2*,RSYMSW 


05050 




AM 


RCTR.1,10 


05060 


RETURN 


B 


COMSPC-56 


05070 




SF 


ADURS-* 


05080 




BNF 


T08B.RELSW 


05090 




BNF 


• ♦2CEVALAD-1 


05100 




B7 


TOBB 


051 10 




CM 


RC TR,0, 10 


05120 




8E 


SREL+12 


05130 




CM 


RCTR.l, 10 


05l*U 




BNE 


• ♦2* 


05150 




BNF 


SREL, ADDRS 


05160 




CM 


RCTR,-1,10 


051 70 




BNF 


•♦2*,A0ORS 


05180 




BE 


SREL 


05190 


RELER 


TFM 


EVALER-2, 71770,, 


05200 




BT 


EPR INT,CPRINT-l 


05210 




B7 


EV1 


05220 


SREL 


TCM 


RLQCSM, 1, 11 


05230 


TOBB 


CF 


EVALAD-l 


05240 


B8ACK 


B7 


E VALAD- 1 , * 6 


05250 


• 


CHECK FOR COMMA 


05260 


SI 


CM 


INPLT*20,23,10 


05270 




HE 


COMMER 


05280 




TDM 


BSb.O 


05290 


• 


CHECK FOR ASTERISK 


05300 




CM 


INPUU20, I*, 10 


05310 




BE 


ASTER 


05320 




CHECK FOR DOLLAR SIGN 


05330 




CM 


INPUU20, 13,10 


05340 




BE 


001 LAR 


05350 




TDM 


LABL 


05360 




87 


COMSPC. ♦ ?* 


05370 


DOLLAR 


8D 


•♦32, DOL 


05380 




TFM 


COLL., 10 


05390 




87 


♦ ♦** 


054QQ 




CM 


DDI, 1,10 


05410 




BNE 


OOLLAR-20 


05420 




SF 


COLL-3 


05430 




CF 


HEO-2 


05440 




TDM 


eVALAO-11,1 


05450 




T0« 


LABL 


05460 




BD 


BCMSPC-12, DCL 


05470 




BT 


8 C * SPC -60 



RELOCATION ERROR 



7« 



05828 


49 


05836 


15 


05848 


25 


05860 


43 


05872 


17 


0588* 


27 


05896 


Kl 


05908 


25 


05920 


16 


05932 


26 


05944 


15 


05956 


15 


05968 


44 


05980 


11 


05992 


49 


06004 


32 


06016 


44 


06028 


44 


06040 


49 


06048 


14 


06060 


46 


06072 


14 


06084 


47 


06096 


44 


06108 


14 


06120 


44 


06132 


46 


06144 


16 


06156 


27 


06168 


49 


06116 


IS 


06188 


33 


06200 


49 


06208 


14 


06220 


46 


06232 


15 


06244 


14 


06256 


46 


06268 


14 


06280 


4* 


06292 


IS 


06304 


49 


06312 


43 


06324 


1* 


06316 


49 


06344 


14 


0633* 


4? 


0*3*0 


32 


0*380 


33 


0*392 


IS 


0**04 


IS 


06416 


43 


0*428 


49 



10256 


J0668 


10256 


J1060 


10256 


J0736 


10256 


J0816 


10256 


J0980 


00000 


00000 


03299 


02709 


08035 


0-000 


05395 


oojoo 


02696 


02586 


02686 


-COOO 


10235 


00000 


05399 


ocooo 


08037 


0000J 


05897 


00001 


05993 


0C009 


02421 


02*00 


0568 7 


000- 1 


05685 


000-0 


05772 


05397 


02421 


02*00 


10235 


00000 


05687 


000-1 


05685 


OCO-0 


05760 




02907 


OOOPO 


0580* 


01300 


08037 


ocooo 


02439 


02907 


02*38 


00000 












05685 


000- I 


05393 


00000 


02*22 


02*2* 


02*22 


000- 7 


05760 


012C- 


70 72 
1 


NCOOO 


02906 


02908 


05628 


02907 


05993 


00001 


05860 




06208 


02907 


05836 


02906 



PAGE 



05760 




08037 


OCOOO 


05967 


02906 


05896 


05393 


06*5* 


-588* 


06796 


06795 


03299 


02686 


05981 


05897 


05395 


OOJOO 


02696 


02586 


08038 


00000 


05897 


00001 


05992 


0803* 


06033 


OCO-l 


05572 


OCOOO 


03295 


00000 


06188 


02478 


06048 


05403 


C6186 




08033 


000-0 


06188 


01200 


08033 


000- I 


06108 


01200 


06176 


03299 


08033 


000- J 


0*144 


03299 


06176 


01200 


07070 


P1770 


07332 


07331 


07108 




08035 


OOOOJ 


0S403 


00000 


05401 




02907 


000K3 


05784 


01200 


06037 


00000 


02907 


000J4 


06846 


01200 


02907 


0C0J3 


06312 


01200 


05687 


00000 


05652 




0*344 


05685 


02439 


000-0 


0*360 




05685 


000- I 


0*292 


01200 


0243* 


00000 


10235 


00000 


05393 


00001 


034*7 


00000 


057*0 


0S68S 


05712 





162C-1443 N ON I TOR I VERSION 2 SPS II-C PHASE A 



PAGE 



05480 


• 


DOLLAR SIGN IMPROPERLY PLACED 












0**90 


ERCHAR 


BTM 


EVALER, 50000 




06436 


17 


07072 


NOOOO 


0**00 




DC 


It • .• 




06447 




1 




05510 


• 
















05520 


• 


CLOSEO ROUTINE TO EVALUATE CQLLEC TEO SVM8CL OR 


INTEGER 










05530 


• 
















05540 




DS 


5 




06452 




5 




05550 


GET 


TDM 


RSVMSta.O 




06454 


15 


08034 


00000 


05560 




BD 


TRNUMB * LA6L 




06466 


43 


06638 


05687 


05570 




CM 


COLL-17, 05»10 




06478 


14 


02422 


000-5 


05580 




BH 


6CHAR 




06490 


46 


06594 


01100 


05590 




BE 


5CHAR 




065C2 


46 


06562 


01200 


05600 




TDM 


COLL.O 




06514 


15 


02439 


00000 


05610 




TR 


COLL-17, COLL-15 




06526 


31 


02422 


02424 


05620 




CM 


COLL-17, 05,10 




06538 


14 


02422 


000-5 


05690 




BNE 


• -36 




06550 


47 


06514 


01200 


05640 


5CMAR 


BNF 


LBACD-24, MED- 2 




06562 


44 


07566 


10235 


05650 




TF 


COLL-12, MED 




06574 


26 


02427 


10237 


05660 




B7 


LBACO 




06586 


49 


07590 




05670 


6CHAR 


BNF 


LBACD, HED-2 




06594 


44 


07590 


10235 


05680 




SF 


CCLL-13 




06606 


32 


02426 


00000 


05690 




SF 


COLL-2 




06618 


32 


02437 


OCOOO 


057C0 




B7 


LBACD 




06630 


49 


07590 




05710 


TRNUMB 


CM 


COLL- 14,6060 




06638 


14 


02425 


-6060 


05720 




BH 


ERLNTM 




06650 


46 


05748 


01100 


05730 




TOM 


NUMB- 1 , , L I 




06662 


15 


02447 


OCOO- 


05740 




TFM 


TRNLM1ML, COLL-2 




06674 


16 


06733 


-2437 


05750 




S 


TRNUMI* lit COLL-17 




06686 


22 


06733 


02422 


05760 




s 


TRNIM1*U, COLL-17 




06698 


22 


06733 


02422 


05770 




TR 


NUMB-5,NUMB-4 




06710 


31 


02443 


02444 


05780 


TRNUMi 


TO 


NUMB-1 




06722 


25 


02447 


OCOOO 


05790 




TR 


COLL-17, COLL-15 




06734 


31 


02422 


02424 


05800 




TF 


•♦23, •- 13 




06746 


26 


06 769 


06733 


05810 




BNR 


TRNUMl- 12 




06758 


45 


06710 


00000 


05820 




TFM 


ALPHA 




06770 


16 


02686 


-cooo 


05830 




A 


ALPKA,NUMB- 1 




06782 


21 


02686 


02447 


05840 




0B2 


• ,0 




06794 


M2 






05850 


MULT 


M 


ALPHA, BETA 




06796 


23 


02686 


02696 


05860 




SF 


90 




06808 


32 


00090 


OCOOO 


05870 




TF 


ALPhA,99 




06820 


26 


02686 


00099 


05880 




TF 


BE TA.99 




06832 


26 


02696 


00099 


05890 




BB2 


t »o 




06844 


N2 






05900 


ASTER 


BO 


TEST3.EVALAD-11 




06846 


43 


06938 


05393 


05910 




OTM 


GET, «*12 




06858 


17 


06454 


-6870 


05920 




BT 


MULT.MULT-l 




06870 


27 


06796 


06795 


05930 




TFM 


EVALAO-10,11,10 




06882 


16 


05394 


000J1 


05940 


ASR 


BNF 


•♦36.RELSW 




06894 


44 


06930 


02478 


05950 




TDM 


MPYSte, 1,11 




06906 


15 


08038 


0000 J 


05960 




BO 


SREL-32,RSVMSW 




06918 


43 


06144 


08034 


05970 




B7 


COMSPC-56 




06930 


49 


05572 




05980 


TEST3 


BD 


TFACD,EVALAD-10 




06938 


43 


06962 


05394 


05990 




BD 


SW2,EVALAD-9 




06950 


43 


07030 


05395 


06000 


TFACC 


TF 


ALPHA, AODCOW 




06962 


26 


02686 


02528 


06010 




BT 


MULT.MULT-i 




06974 


27 


06796 


06795 


06020 




TFM 


EVALAO-9, 1, 10 


7 7 


06986 


16 


05395 


000- I 



1620-1443 MONITOR I VERSIUN 2 SPS II-C PHASE A PAGE 



06030 




TDM 


RSYMSW,1,U 


06998 


15 


08034 


OOOOJ 


06040 




BD 


SREL-32,MPYSW 


07010 


43 


06144 


08038 


06050 




87 


COMSPC-56 


07022 


49 


05572 




06060 


SW2 


TDM 


EVALAD-9 


07030 


15 


05395 


00000 


06070 




B7 


ASR 


07042 


49 


06894 




06080 




DAS 


5 


07051 




5 


X 2 


06090 




BNR 


59C07 


07060 


45 


59007 


00000 


06100 




DAC 


1. • 


07071 




1 


X 2 


06110 


• 














06120 


• 


EVALER IS THE ERROR ROUTINE 










06130 


• 














06140 


EVALER 


BT 


EPR INT.EPRINT-l 


07072 


27 


07332 


07331 


06150 




SPTY 




07084 


34 


00000 


00101 


06160 




WATY 


COLL- 12, , , 


TYPE UN0EF1NEC SYMBOL 07096 


39 


02427 


00100 


06170 


EV1 


BD 


ERCOR, ERSTSW 


07108 


43 


07196 


02476 


06180 


CHKND 


TFM 


ADORS 


07120 


16 


03299 


-0000 


06190 




BNR 


CHK2, INPUT+20 


07132 


45 


07152 


02907 


06200 




B7 


TOBB 


07144 


49 


06188 




06210 


CHK2 


CM 


INPUT*20,23,10 


07152 


14 


02907 


000K3 


06220 




BE 


TOHB 


07164 


46 


06188 


01200 


06230 




TR 


INPLT*19,INPUT*2l 


07176 


31 


02906 


02908 


06240 




B7 


CHKND*12,,2 


07188 


49 


-7132 




06250 


ERCOR 


MATY 


CORM, , , 


ERROR CORRECTION ON-LINE 07196 


39 


03355 


00100 


06260 




RCTY 




07208 


34 


00000 


00102 


06270 




TR 


INPLT*19,INSAV-1 


07220 


31 


02906 


02754 


06280 




WATY 


INPUT-10 


07232 


39 


02877 


00100 


06290 




TF 


AODCOW, PLACE 


07244 


26 


02528 


03276 


06300 




TOM 


ERROIG, 1,11 


07256 


15 


03277 


OOOOJ 


06310 




SM 


INRRM.l.lO 


07268 


12 


025*5 


000- 1 


06320 




SM 


STCNT.1,10 


07280 


12 


02513 


000- 1 


06330 




TFM 


CFFA.NCOCFl 


07292 


16 


02629 


-7316 


06340 




ATM 


CFF,REA03 


07304 


17 


02592 


-3444 


06350 


NC0CF1 


OOA 


,0,A2DAD,A2SCT, INSTRN 


07316 




14 








OJ8800-55J0256 










06360 




OC 


It • 


07330 




I 





06370 • 

06380 • EPR INT PRINTS THE ERROR MESSAGE AND REFERENCE TO 

06390 • INDICATE THE STATEMENT IN ERROR 

06400 • 



06410 


EPR INT 


RCTY 








07332 


3* 


00000 


00102 


06420 




TF 


LOPOUT, INPUT-2 






07344 


2* 


03327 


02885 


06430 




WATY 


LOPOUT-8 






0739* 


39 


03319 


00100 


06440 




WATY 


ERLAB 






073*8 


39 


03303 


00100 


06450 




wntv 


INKRM-3 






07380 


IB 


029*2 


00100 


06460 




WATY 


EVALER-21 






07392 


39 


07091 


00100 


06470 




BO 


•♦24, ERSTSW 






07*0* 


43 


07*28 


0247* 


06480 




SF 


NONEX,, f 


KILL AUTO EXECUTION 




07*1* 


12 


00*97 


OCOOO 


06490 




BB2 








07*28 


42 






06500 


• 


















06510 


• 




TEST IF SIZE OF 


OBJECT CORE HAS BEEN EXCEEOEO. 












06520 


• 




LINKAGE - BTM 


CTEST, •♦W I RETURN ADDRESS IF 


ERROR). 










06S30 




















06540 




OS 


6 






07*39 




6 




0*550 


CTEST 


CM 


AODCOW, 99999 




78 


07*3* 


I* 


02928 


R9999 



1620- 1**3 MONITOR I VERSION 2 SPS ! I -Q PHASE A 



PACE 



06560 






ERl-2 


7**8 


46 


07*96 


01200 


06b ?U 






ADOCOMtOB JCRE 


07*60 


24 


02528 


02*96 


06580 




8 I 


ER 1 1 1 300 


07*72 


46 


07*98 


1 300 


06590 


C T 1 


T OM 


C T 1 ♦ 10 1 00 


07*8* 


15 


7*9* 


00000 


06600 




88 2 




74 96 


42 






06610 


ER 1 


00 


• -2 tC T I ♦ 10 


07*98 


43 


07*96 


07*9* 


06620 




TFM 


EVALER-l. ICCOO 


07510 


16 


07071 


JOOOO 


06630 




DC 


lt',» 


07521 




1 




066*0 




BT 


EPR INT.EPRlNT-l 


07522 


27 


07332 


07331 


06650 




TOM 


CT 1*10,01 


0753* 


15 


07494 


0000 1 


06660 




SF 


NONE X 


7546 


32 


00457 


00000 


06670 




87 


CTEST-1,,6 


07558 


49 


74 3N 




06680 


• 














06690 


* 


THE SYMBOL TABLE IS SEARCHED FOR EGUI VALENCE 










06 7C0 


• 














06 7 1 




TDM 


COLL, 


7566 


1 5 


024 39 


OCOOO 


06720 




TR 


COLL-17, COLL-15 


07578 


3 1 


02*22 


02*2* 


06730 


L BACC 


BNF 


LB2, EVALAO-1 


07590 


44 


760* 


05*03 


067*0 




082 




07602 


42 






06750 


L 82 


TF 


B SENT , COLL-2 


076C* 


26 


08*13 


02*37 


06760 




BT 


BS, 8S-1 


076 16 


27 


08120 


081 19 


06770 




BNF 


NIC, EQSH 


07628 


44 


07732 


08 359 


06780 




AM 


BSBF-1,5,10 


076*0 


1 1 


08383 


000-5 


06790 




TF 


ALPHA, BSBF-l, U 


07652 


26 


02686 


0838L 


06800 


L ACCR 


QNF 


•♦60, REL Sm 


0766* 


4* 


0772* 


02*78 


06810 




BNF 


• ♦*8, ALPHA 


07676 


** 


07724 


02686 


06820 




80 


SREL-32,MPYSW 


07688 


43 


06144 


08038 


06830 




TDM 


RSYMSW.l.U 


07700 


15 


08034 


OOOOJ 


068*0 




CF 


ALPHA 


07712 


33 


02686 


00000 


06850 




H7 


GET-1,,6 


0772* 


*9 


06*51 




06860 


SIC 


CM 


SBOLT, 00,10 


07732 


I* 


026*3 


000-0 


06870 




BNE 


• ♦2* 


077** 


*7 


07768 


01200 


Q688Q 




BTM 


EVALER, 50C00 


7 756 


17 


07072 


NCOOO 


06890 




DC 


1, ' 


07767 




I 




06900 




CM 


BSBF-l, LBH M 


07768 


I* 


08383 


K0009 


06910 




BNL 


• -2* 


07780 


*6 


07756 


01300 


06920 




TO 


DGSV, L0SYM8M 


07792 


25 


033*7 


19998 


06930 




TD 


L0SYMB*1, SPSGM 


780* 


25 


19998 


02560 


069*0 


* 


WK I TE 


DISK-WLRC--SAVE CORE SYMBOLS 










06950 




TFM 


I0RT,»*23 


07816 


16 


00565 


-7839 


06960 




B 


IORBC , SDEF 1 , 7 


07828 


*9 


00520 


JOi 39 


06970 




TF 


B2DCF*5, BIDCF*5 


7 6*0 


26 


10193 


101 77 


06980 




TF 


SBCNT, SBOUT 


07852 


26 


02675 


026*3 


06990 




TFM 


LIMITS-5, MAXLIM 


C786* 


16 


03282 


J5997 


7000 




TFM 


L IMITS, LBLIM 










07010 


ROBLK 


AM 


B2DCF»5, SPBL 


07888 


11 


10193 


-00*0 


07020 




R FAD 


DISK-NLRC--READ SYMBOL BLOCK 










07030 




TFM 


IO«T,»*23 


07900 


16 


00565 


-7923 


070*0 




8 


IOCT,SOEF2,7 


07912 


49 


00566 


J01*7 


07050 




BT 


BS, BS- 1 


0792* 


21 


08120 


061 19 


07060 




BD 


LBFNO, EOSW 


07936 


43 


080*0 


08359 


07070 




SM 


SBCNT, 1,10 


079*8 


12 


02675 


OOC-i 


07080 




BP 


ROBLK 


07960 


46 


07888 


01100 



1620- 1**3 MONITOR I VERSION 2 SPS I I — C PHASE A PAGE 



07100 




TFM 


IORT,»*23 












07972 


16 


00565 


-7995 


07110 




B 


IOGT.SDEF I, 7 












0798* 


49 


00566 


J0139 


07120 




TD 


10SYMBM, DGSV 












07996 


25 


19998 


033*7 


071 30 




TR 


LIMITS-9, PRTLIM-* 












08008 


31 


03278 


02*98 


071*0 




BTM 


EVALER, 5C000 












08020 


17 


07072 


NOCOO 


07150 




DC 


It 1 












08031 




1 




7160 


RC TR 


DS 


2, , 




RELOCATION COUNTFR 




08033 




2 




071 70 


RSYMSM 


OS 


1* . 




ON 


FC« 


RELOCATABLE 


SYMBCL 


08034 




1 




07180 


RLOCSW 


DS 


It t 




ON 


FOR 


RELOCATABLE 


EXPRESSION 


08035 




1 




07190 


LCABSW 


DS 


1 1 t 




ON 


FOR 


RELOCATABLE 


SYMBOL TO TABLE 


08036 




1 




07200 


BStt 


PS 


1 , . 




ON 


INDICATES BLANK 


OPERAND 


08037 




1 




07210 


MPYSW 


DS 


1 












08039 




I 




07220 


LBFND 


AM 


BSBF-1,5,10 












080*0 


11 


08383 


00O-5 


07230 




TF 


ALPHA, BSBF-l ,1 I 












08052 


26 


02686 


0838L 


U72*0 


* 


READ 


DISK-WLRC— RESTORE CORE 


















07250 




TFM 


IORT,»*23 












0806* 


16 


00565 


-8087 


07260 




B 


I0GT,S0EFl,7 












08076 


49 


00566 


J0139 


072 70 




TD 


L0SYM8M, DGSV 












06088 


25 


19998 


033*7 


07280 




TR 


LIMITS-9, PR Tt 1 M~* 












08100 


31 


03278 


02*98 


07290 




B7 


LADOR, ,2 












08112 


49 


-766* 




07300 


• 


BINARY SYMBOL TABLE SEARCH 


SUBROUTINE 














07310 


BS 


TR 


LIM-9, LIMITS-9 












08120 


31 


08391 


03278 


07320 


BSCYC 


TF 


BSBF, CLERER*5 












08132 


26 


0838* 


02705 


07330 




A 


BSBF, LIM 












081** 


21 


0836* 


08400 


073*0 




A 


BSBF, LIM-5 












08156 


21 


0838* 


08395 


07350 




TF 


BSAV, BSBF 












08168 


26 


08390 


0838* 


07360 




A 


BSBF, BSBF 












08180 


21 


06364 


0838* 


07370 




A 


BSBF, BSBF 












08192 


21 


08364 


08384 


07380 




A 


BSBF, BSAV 












0820* 


21 


08384 


06390 


07390 




BO 


•♦2*, BSBF 












08216 


43 


08240 


08384 


07*00 




AM 


BSbF-1, 8,10 












08228 


11 


06383 


000-8 


07*10 




SM 


BSBF-l, 8,10 












08240 


12 


08383 


000-8 


07*20 




c 


BSBF-l, LIM-5 












08252 


24 


01383 


08395 


07*30 




BNE 


• ♦26 












08264 


47 


08290 


01200 


07**0 




TDM 


EOSk, 












0S276 


15 


01359 


ooooo 


07*50 




HB2 














08286 


42 






07*60 




C 


8 SENT , BSBF-l, 11 












08290 


24 


01413 


01361 


07*70 




BNE 


BSNEQ 












08102 


4? 


01321 


01200 


07*80 




TDM 


EOS*., 1,U 












06314 


IS 


01359 


OOOOJ 


07490 




882 














08326 


42 






07500 


BSNEQ 


BH 


BSHI 












08328 


46 


08360 


01100 


07510 




TF 


LIM, BSBF-l 












08340 


26 


01400 


01383 


U7520 




87 


BSCYC 












08352 


49 


01132 




07530 


8SHI 


TF 


LIM-5. BSBF-l 












013*0 


2ft 


01399 


08313 


07540 




87 


BSCYC 












0837? 


49 


01132 




07550 


EQSW 


DS 


, 8 SHI- I 












08399 









07560 


8S8F 


oc 


6,0 












0838* 




6 








-00000 




















07570 


8SAV 


oc 


6»0 












08390 




6 








-00000 




















07580 


11* 


oc 


10,0 












01400 




10 








-oooooooco 




















07590 




oc 


1 1 • 












01401 




1 




07600 


8SEHT . 


OS 


12 










Q it 


01413 




12 





162C-1443 MONITOR I VERSION 2 SPS ll-C PHASE A 



PAGE 



07610 • 

07620 • ROUTINE TO LOAD LABELS I MO SYMBOL TABLE 

07630 • 



07640 


LOLHL 


C 


CL E RE R ♦ 1 1 » INPimiG 


08414 


24 


0271 1 


02897 


07650 




HNE 


• ♦24 


0842* 


47 


08450 


01200 


07660 


SNOTCC 


HTM 


OUTPUT, PHASEA 


08438 


17 


09686 


-3408 


07670 




TCM 


TSPEC, 1 


08450 


15 


10248 


00001 


07680 




T F 


LAB, INPUTMO 


08462 


2* 


03343 


02897 


07690 




BD 


LBCK2. LAB 


08474 


43 


08530 


03343 


07700 




BO 


LBCK2, LAB- I 


08486 


43 


08530 


03342 


07710 




TF 


LAB, LAB- 2 


08498 


26 


03 343 


03341 


07720 




07 


•- 3fc 


08510 


49 


08474 




07730 




TF 


LAB, LAB- 2 


08518 


26 


03343 


03341 


077*0 


L8CK2 


C 


X03,LAB, , 


. UK C8530 


24 


10245 


03343 


077*0 




BE 


• *84 


08542 


46 


08626 


01200 


07760 




C 


X21.LAB,, 


/ OK 08554 


24 


10247 


03343 


07770 




BE 


•♦60, , , 


()♦-•!, AND BLAfcK ARE NOT ALLOWED 08566 


46 


08626 


01200 


07780 




C 


X33, LAB 


06578 


24 


10243 


03343 


07790 




BH 


ER2B 


08590 


46 


09498 


01100 


07800 




C 


X69, LAB 


08602 


24 


10241 


3 343 


07810 




BL 


• ♦24 


08614 


47 


08638 


01300 


07820 




TDM 


TSPEC ,0 


08626 


15 


10248 


OCOOO 


07830 




BNF 


LBCK2-12, LAB-l 


08638 


44 


08518 


03342 


07840 




BO 


ER2B, T SPEC 


08650 


43 


09498 


1C248 


07850 




TF 


B SENT , INPUTMO 


08662 


26 


08413 


02897 


07860 




SF 


B SENT 


08674 


32 


08413 


OCOOO 


07870 




BD 


• ♦60, INPUTMO 


08686 


43 


08746 


02897 


07880 




BC 


• ♦48, INPUT>9 


08698 


4 J 


0874* 


02896 


07890 




TF 


B SENT , INPUTS 


08710 


26 


08413 


02895 


079C0 




CF 


BSENT-9 


08722 


33 


08404 


OOCOO 


07910 




TF 


BSENT-10, HED 


08734 


26 


08403 


10237 


07920 




BT 


BS, BS-1 


08746 


27 


08120 


08119 


07930 




BD 


ER4A, EOSW 


08758 


43 


09594 


08359 


07940 




CM 


BSBF-1, LBLIM 


08770 


14 


08383 


K0009 


07950 




BNL 


LDSOK 


08782 


46 


09058 


01300 


07960 




CM 


SBCuT, CO, 10 


08794 


14 


02643 


000-0 


07970 




BE 


LOSOK 


0B8C6 


46 


09058 


C1200 


07980 




TD 


DGSV, LOSYMBM 


08818 


25 


03347 


19998 


07990 




TD 


LOSYMB+1, SPSGM 


08830 


25 


19998 


02560 


08000 


• 


IOCS 


CALL-WRITE OISK WLRC 










08010 




TFM 


IORT,»*23 


08842 


16 


00565 


-8865 


08020 




B 


I0«BC,SDEF1,7 


08854 


49 


C0520 


JO 13 . 


08030 




TFM 


LIMITS, LBLIM 


08866 


16 


03287 


K0009 


08040 




TFM 


LIMITS-5, MAXL I M » » 


LEFT FULL BLOCK LIMIT 08878 


16 


03282 


J5997 


08050 




TF 


SBCNT, SBOUT 


08890 


26 


02675 


02643 


08060 




TF 


B2CCF^5, B10CF»5 


089C2 


26 


10193 


10177 






TF 


L C SR ♦ I I » B S8F - I 


08914 


26 


09057 


08 38 3 


08080 


LCCSCY 


AM 


B?DCF*S, SPBL.IO 


08926 


11 


10193 


CCOMO 


08090 


• 


READ 


DISK-WLRC 










08100 




TFM 


IOR T,»*23 


08938 


16 


00565 


-8961 


8110 






IOC T , SL)EF 2 , 7 


0895C 


49 


00566 


JO 14 7 


08120 




BT 


BS, BS-1 


08962 


27 


08120 


081 19 


081 30 




OD 


ER4, EOSM 


08974 


43 


09546 


08359 


08140 




SM 


SBCNT, 1,10 


08986 


12 


02675 


000-1 


00150 




RNZ 


LDDSCV 


08998 


47 


08926 


01200 


08160 


• 


IOCS 


C AL L -RE AO DISK WLRC 


81 














162C-1443 MONITOR I 


VERSION 2 SPS II-C PHASE A 






PAGE 


08170 




TFM 


IORT,»*23 


09010 


16 


00565 


-9033 


08180 




B 


IOG T , SDEF 1 , 7 


09022 


49 


00566 


J0139 








LQSYWB+1, DGSV 








3 347 


08200 


LCSK 


TFM 


BSbF-l, •-• 


09046 


16 


08383 


-CCOO 


08210 


LCSOK 


SM 


PRTLIM, 17,10 


09058 


12 


02502 


000J7 


08220 




CM 


PRTLIM, MA XL I M 


09070 


14 


02502 


J5997 


OH230 




BL 


TABFUL 


09082 


47 


09322 


01300 


08240 




TR 


L1MITS-9, PRTLIM-4 


09094 


31 


03278 


02498 


08250 




TF 


SVDGMl, BSBF-1 


09106 


26 


09141 


08383 


08260 




AM 


SVUGM1* 6,10 


09118 


I I 


09141 


000-6 


08270 


SVOG 


TD 


DGSV, •-• 


09130 


25 


03347 


00000 


08280 




TF 


•♦18, SVDGMl 


09142 


26 


09160 


09141 


08290 




TDM 


SvDCM 1 , ,6 


C9154 


15 


0914J 


00000 


08300 




DC 
• 


It ' •• 


09165 




1 




08310 




SM 


LDTR*6, 17,10 


09166 


12 


C9196 


0C0J7 


08320 




SM 


LD TR ♦ 1 1 , 17,10 


09178 


12 


09201 


000J7 


08330 


LDTR 


TR 


• -• , •-• , , 


SHIFT SYMBOLS 09190 


31 


00000 


00000 


08340 




TF 


BSBF-l, BSENT , 6 


092C2 


2* 


0838L 


08413 


08350 




BNF 


•♦48,RELSW 


09214 


44 


C9262 


02478 


08360 




SF 


ADDRS 


09226 


32 


03299 


00000 


08370 




BD 


•♦24.LDABSW 


09238 


43 


09262 


08036 


08380 




CF 


ADDRS 


09250 


33 


03299 


00000 


08390 




TF 


•♦30, BSBF-l 


09262 


26 


09292 


08383 


08400 




AM 


•♦18, 5,10 


09274 


1 1 


09292 


000-5 


08410 




TF 


•-•, ADDRS 


09286 


26 


00000 


03299 


08420 




TD 


SVOG*ll» 0GSV,6 


09298 


25 


0914J 


03347 


08430 




OTM 


OLTPUT, PHASEA 


09310 


17 


09686 


-3408 


08440 


TABFUL 


AM 


B2DCF+5, SPBL.IO 


09322 


11 


10193 


OOOMO 


08450 




C 


SBOUT, SBMAX 


09334 


24 


02*43 


02673 


08460 




BNL 


ER19 


0934* 


4* 


09*14 


01300 


08470 




AM 


SBOUT, 1,10 


09358 


11 


02643 


000-1 


08480 




TD 


DGSV, LOS VMB* 1 


09370 


25 


03347 


19998 


08490 




TD 


L0SVMB*1, SPSGM 


09312 


25 


19998 


02560 






I oc s 


CALL—WRlTc D 1 5K WLRC 










08510 




TFM 


I0RT,«*23 


09394 


I* 


005*5 


-9417 


08520 




D 


IORBC , SDEF 2 , 7 


0940* 


49 


00520 


J0147 


08530 




TD 


LOSYMBM, DGSV 


0941* 


25 


19998 


03347 


08540 




TFM 


PRTLiM, LBiIM-17 


09430 


1* 


02502 


J9992 


08550 




TFM 


LDTR* 11, L8L I M- 1 1 


09*42 


1* 


09201 


J9998 


08560 




TFM 


LDTR+ 6, LBLIH-28 


09494 


1* 


0919* 


J9981 


08570 




TF 


LOSYMB, CLEREft+52 


09*** 


2* 


19997 


02752 


08580 




TFM 


BSBF-1, LBLIM-17 


09478 


1* 


0t3t3 


49992 


08590 




B7 


LDSOK 


09*40 


49 


090 9 • 






ER2B 


TFM 


FUAI PR- 1 . ? ft ft ft ft 


09491 


1* 


0707 1 


KOOOO 


08*10 




DC 




09909 




1 




08620 




BT 


EPR1NT, EPRINT-1 


09910 


27 


07332 


07331 


08630 




BD 


ERCOR, ERSTSW 


09921 


43 


0719* 


02476 


08640 




BTM 


OUTPUT , PHASEA 


0993* 


17 


096*6 


-340* 


08*50 


• 


READ 


OISK- WLRC 










08460 


ER4 


TFM 


IORT,»*23 


099** 


I* 


009*9 


-9569 


01*70 




B 


I0GT,SDEFi,7 


09598 


49 


009** 


JO 139 


08*10 




T* 


LIMITS-9, PRUIM-* 


099T0 


31 


03278 


02498 


08*90 




TD 


LOSVKBM. DGSV 


09582 


29 


19998 


033*7 


08700 


IMA 


TFM 


EVALER- 1 • 40000 


£9 0999* 


t* 


07071 


KOOOO 









1620- 1**3 MONl TOR 


I VERSICN 2 SPS 1 hC PHA$E A 








PAGE 


08710 




DC 
• 


I » ' »• 




096C5 




1 




08720 




B7 


ER28M2 




09606 


49 


09510 




087)0 


6R19 


TFM 


EVALER-l, 17900 




09614 


16 


07071 


J7900 


087*0 




DC 


1, • ,• 




09625 




1 




08750 




TDM 


ASTSta.1,11 




09626 


15 


102*9 


OOOOJ 


08760 




NOP 


OUTPUT » PMA S6 A 




09638 


41 


09666 


03*08 


08770 




BT 


EPR INT.EPRINT-I 




09650 


27 


07332 


07331 


08780 




TFM 


•-23,17,10, 


CHANGE HOP TO BTM 


09662 


16 


09639 


000J7 


08790 




87 


• -36 




09674 


49 


09638 




08600 


• 
















08810 


• OUTPUT ROUTINE 












08820 


• 
















088)0 




CS 


5 




09685 




5 




088*0 


OUTPUT 


TF 


0T2DCF »5, OUTOCF* 5 




09686 


26 


10225 


10209 


08850 




s 


0T20CF*5, SVMTAO 




09698 


22 


10225 


026*1 


08860 




CM 


OT2DCF*5,-2,10 




097 10 


14 


10225 


000-K 


08870 




BH 


ER2C, , , 


INTER SECTOR OVERFLOW 


09722 


46 


10072 


01100 


06880 




HO 


2PASS, 2PSSM 




09734 


43 


09882 


02*77 


08890 




BNR 


2 SEC T , 1NPUT2»99 




097*6 


45 


09826 


03139 


08900 




TD 


INPUT2*99, SPSGM 




09756 


2* 


03139 


02560 


08910 




TDM 


0LTDCF*8, 1 




09770 


1* 


10212 


C0001 


08920 


• ! 


NR I TE 


I SK-NO WLRC 












08930 




TFM 


IOR T ••♦23 




09782 


16 


00565 


-9805 


089*0 




B 


IORBCOUTDFI ,7 




09794 


49 


00520 


J0155 


08950 




AM 


0UTDCF*5, I 




09806 


11 


10209 


-0001 


08960 




B 7 


OUTPUT- I, ,6, , 


RETURN 


09616 


49 


0968N 




08970 


2 SECT 


TUM 


0UTDCF*8, 2 




09826 


15 


10212 


00002 


08980 




IDC S 


CALL-WRl TE Dl SR-NC 


WLRC 










08990 




TFM 


1QRT,«*23 




09836 


16 


00565 


-9861 


09000 




a 


IORBC .OUTOF 1 , 7 




09650 


49 


00520 


J0155 


09010 


2S 


AM 


0UTDCF*5, 2 




09862 


11 


10209 


-0002 


09020 




07 


GUTPUT-1,,6 




09874 


49 


0968N 




09030 


2PASS 


CM 


2PTR*6, INPUT2*208 




09682 


1* 


099*8 


-32*8 


090*0 




BL 


• ♦2* 




0989* 


*7 


09918 


01300 


09050 




BTM 


2PS0UT,»*12 




09906 


17 


09978 


-9918 


09060 




TR 


2PBUF ,INPUT2 




09918 


31 


10062 


030*0 


09070 




TD 


2PBUF*7,ERRDIG 




C9930 


25 


10069 


03277 


09080 


2PTR 


TR 


INPUT2*8,2PBUF ,2 




099*2 


31 


-30*8 


10062 


09090 




AM 


?PTR*6,8, 10 




0995* 


11 


099*6 


000-8 


09100 




I- 7 


OUTPUT- 1 , ,6 




09966 


49 


C968N 




091 10 




CS 


5 




C9977 




5 




09120 


2PS0UT 


TF 


T 2CC F ♦ 5 » 0UT0CF + 5 




09978 


26 


10225 


10209 


091 30 




AM 


0UT()CF*5,2, 10 




09990 


U 


10209 


000-2 


091*0 




TD 


INPLT2+206, SPSGM 




1C0C2 


25 


032*8 


02560 


09150 


• 


IOCS 


CAll-MRITE D! SK tal TH WLRC 










09160 




TFM 


JORT,«»23 




1001* 


16 


00565 


J0037 


091 70 




H 


IORBC .0UT0F2, 7 




10026 


*9 


00520 


JO 16 3 


09180 




TFM 


2PTR*6, INPUT2»8 




1C038 


16 


099*8 


-30*8 


09190 


2PR £ 


B 


2PS0UT-1,,6 




1005C 


*9 


0997P 


OCOOO 


O92C0 


2PUUF 


r.sc 


9,C» 




10062 




9 








CCQCOOOO' 












092 10 


ER20 


NOP 


ULTPUT-1,,6 




10072 


*l 


0969N 


CCOOO 


09220 




TDM 


ASTSW, 1,11 




1C08* 


15 


102*9 


OOOOJ 


09230 




TFM 


EVAIER- 1 , 2 7000 


8-3 


10096 


16 


07071 


K7000 








162C-1**3 MCM-TCR 


I ucdc i fu •> CDC 1 1 — r DuACC * 








PAGE 


092*0 




DC 


1 » • 




101C7 




1 








HT 


E PR INT , EPR I NT- I 




10108 


2 7 


07 332 


7 3 31 


09260 




TFM 


ER2C*li*9,lO 




IC120 


16 


10073 


000M9 


09270 




07 


UUTPUT-1,,6 




10132 


*9 


0968N 






SC6F1 


DSC 


2,CC, , 


PLUS 01 WITH wRGNC LENGTH 


10139 




2 








CO 


















DSA 


BIDCF 




101*5 




5 


X 1 












101*5 




JO 1 72 




093C0 




DC 


1, • 




101*6 




I 






SCE F 2 


CSC 


2, CO, , 


PLUS DISK WITH WRCNG LENGTH 


101*7 




2 








CO 
DSA 


B2DCF 




10153 




5 


X 1 












1015 3 




JO 188 




09330 




DC 


1, ' 




1015* 




1 




093*0 


OUTCFl 


DSC 
02 


2,02, , 


PLUS DISK NOT WRONG LENGTH 


10155 




2 








OSA 


OUTOCF 




10161 




5 


X I 












10161 




J020* 




09360 




DC 


1, • 




10162 




1 




09370 


0UTDF2 


DSC 
00 


2,00, , 


PLUS DISK HI TH WRONG LENGTH 


10163 




2 




09380 




OSA 


0T20CF 




10169 




5 


X 1 












10169 




J0220 




09390 




DC 


It* 




10170 




1 




09*00 


B1QCF 


CDA 


, 0, , SPBL ,SBFADD 




10172 




14 








0-C000-*OJ5998 












09*10 




DC 


l,' 




IQ166 




1 




09*20 


B2CCF 


COA 


,0,— »,SPBL,SBFADD 




10188 




14 








Q-0C00-*0J5998 












09*30 




DC 


1,' 




102C2 




I 




09**0 


OUTOCF 


DOA 


»Qt*-*t 1.INPUT2 




10204 




14 








0-0000-01-30*0 












09*50 




DC 


I, • 




10218 




I 




09*60 


0T2CCF 


COA 


,0,*-»,2,l NPUT2+8 




10220 




14 








0-0000-02-30*8 












09*70 




oc 


1*' 




10214 




1 




09*10 




OS 


i 




10215 




1 






MEO 


oc 


2,0 




10117 




2 




09500 




-o 

OS 


Z 




102J9 




2 




09*10 


169 


oc 


2* 69 




10141 




2 








09 














09*20 


nil 


oc 


2. 23 




10241 




2 











162C-1**3 MONITOR I VERSION 2 SPS II-O PHASE A 








PAGE 




3 


















rr 
i 




_ 










T SP EC 


OS 


I 


102*8 




1 




09560 


ASTSW 




1 










09570 
















09580 


• 


PHASE 


A 1 — INITIALIZATION 










09590 
















04600 


• •• 1 


BRING 


PRINT HE AO DOWN TO CORE CLEAR ANC RETURN 










09610 


PR TAD 


DDA 


, 1 ,B8DAD,87SCT,89MA0, , , DDA PAGE CELO TITLE 


10250 




1* 








IJ 70 


1-0*J65C0 










09620 




? C 


It ' 


10264 








09630 


PRTHC 


osc 


2,22,,, DEEINER TO RE AC PAGE OVERFLOW 


10265 




2 




096*0 




22 
DSA 


PR T AD 


10271 




5 


X 1 










10271 




J0250 




09650 




DC 


1 , • 


10272 




1 




09660 


CONTR 


C !> A 


D 9M AD ♦ 50 1 


10277 




5 


X 1 










102 7 7 




J 700 1 




09670 




DC 


3i 18' i m PRINT SPS CONTROL RECORD 


10280 




3 




09680 


ST AR T 


J 8 ' 
TEM 


1UK I i*>23i i GET INDICATOR RctURO 


10282 


1 6 


00565 


J0305 


09690 






1 00 T t PR THD , 7 


1029* 




00566 


J0265 


09700 






B 9M AD » C L ER ER ♦ 1 ♦ » CLEAR CONTROL HEADER AREA 


103C6 


3 1 


16500 


02 701 


09710 






B9MAD*52iCLER€R*1 


10318 


31 


16552 


02 70 1 


09720 






B ALJ ♦ lO*iLLtRtR*l 


10 3 30 


3 I 


1660* 


02 70 1 


09730 






B9MA0*l63iCLERER*20t , 


103*2 


26 


16663 


02720 


097*0 




T EM 


I0R T , •♦ 2 3 » # 


1035* 


16 


00565 


J0377 


09750 




R 


IORBC tPRTHD » 7 i PUT INOICATOR RECCRC 


10366 


*9 


00520 


J0265 


09760 




3* 


i 09 7 1 , , SKI P TO 1 


10 378 


3* 


00000 


00971 


097 70 




T EM 


I o a 1 t • ♦ 2 3 


10390 


16 


00565 


J0*l 3 


09780 




D 


I0G r #MCADEE t 7 


10*C2 


*9 


00566 


J557* 


09790 




T DM 


MOCTOCiO 


IC* I* 


1 5 


16023 


ocooo 


09800 




TDM 


M0C0C ,0 


10*26 


1 5 


16022 


00000 


09810 




Tp 


MONAME iCLERER* 1 1 


10* 38 


26 


16035 


02711 


09820 




T E 


M0inN0fCLERER*3 


10*5C 


26 


16039 


02703 


098 30 




TEM 


M0MAD»99999 


10*62 


16 


00*15 


R999^ 


098*0 




TEH 


INKRM, 99999 


10*7* 


16 


02565 


R9999 


09850 




TEM 


A0DC0W»2*01 


1 0*86 


16 


02528 


-2*01 


09860 




TE 


L » MOML 


10*98 


26 


02520 


160*1 


098 70 




TD 


NO I SE tMQNQ I S 


105 10 


25 


0252 1 


160** 


09380 




TE 


SLBNO iMOSBNO 


10522 


26 


02523 


160*3 


09890 


START2 TDM 


, 


1053* 


15 


00000 


00000 


099C0 




TR 


1 9 9 9 9 i C L E R E R ♦ 5 2 


105*6 


3 1 


19999 


02752 






BNR 










uuuuu 


09920 




TDM 


PROCRE, 2, 11 


10570 


15 


02*97 


OOOOK 


09930 




TEM 


HCL IM.LBLIM 


10582 


16 


02507 


KCC09 


099*0 




B7 


AIC1 


1059* 


*9 


10682 




09950 




TR 


39SS9,CLERER»52 


106C2 


31 


39999 


02752 


09960 




BNR 


• ♦** 


1061* 


*5 


10658 


00000 


09970 




r dm 


PROCRE,*, 11 8f» 


10626 


15 


02*97 


OOOOM 



L62C-l**3 MONITOR I VERSION 2 SPS II-C PHASE A 



09980 






TEM 


HCL !M,LBLIM*U76»l 7 


09990 






07 


A1C 1 


1C000 






TOM 


PROCRE .6, 11 


10010 






TEM 


HCL IM,LBLIM*2*l 176«i 


10020 


A1CI 




TD 


OBJCRE-*, PROCRE 


10030 






TE 


PRTLIM, HCLIM 


100*0 






SM 


PRTLIM, 17,10 


10050 






TR 


LIMITS-9, PRTLIM-* 


10060 






TE 


LD TR ♦ 1 1 # LIMITS 


10070 






TE 


LD TR ♦ 6, LIMITS 


10080 






SM 


LOTR + U, 11,10 


10090 






SM 


LOTR* 6, 28,10 


10100 






TE 


•♦30,OBJCRE 


10110 






SM 


•♦18, 1, 10 


10120 






TE 


•-•,CLERER*52 


10130 






TD 


INCODE .H0EX6C 


101*0 






CE 


INCOOE 


10150 






CM 


INCOOE ,03, 10 


10160 


ST2L 




BL 


C15P 


101 70 






BE 


Cl*P 


10180 






B7 


C13P 


10190 


PROCON 


BNR 


•♦2*, INPUT-10 


10200 






TEM 


INPLT-10,00, 10 


10210 






TFM 


•♦30, INPUT-tl 


10220 






AM 


•♦18,2,10 


10230 






CF 


•— • 


102*0 






CM 


• -6,INPUTM5l 


10250 






BL 


•-36 


10260 






CM 


INPLT-10,l*,lO 


10270 






BNE 


CALLA2 


10280 






TR 


99MAD*500,CLERER^2 7 


10290 






TR 


B9MAD*516, INPUT-1 1 , 


10300 


• •• 


ROUTINE TO STORE THE PAGE 1 


10310 


» 


THE CONTROL RECORD WITH AS 


10320 


• 


POSITIONS WILL BE THE PAGE ; 


10330 






BNR 


•♦20, INPUT-8,,, 


103*0 






B7 


SLP-12,,,, 1 


10350 






C* 


INPUT-8, 1*1*. 8,, 


10360 






BNE 


SLP-12, ,t, NO 


10370 






TFM 


IORT..+23,, YES 


10380 






B 


I0GT.PRTHD,7 


10390 






TR 


B9MAD.INPUT-7, , 1 


10*00 


REVSKN 


TFM 


• ♦35,B9MADU59 


10*10 






SM 


•♦23,2* 10 


10420 






BNR 


•-l2.»-» 


10*30 






TFM 


— 1,0,610 


104*0 






TFM 


I0RT,»*2)»t 1 


104S0 






B 


IORBC «PATHD, 7 


10440 






TFM 


S8NR*11.1NPUT-I0t« 


10470 


SLP 




AM 


SBNR*11 V 2,10 


10*80 


StNR 




BNR 


•♦20»»-» 


10490 






B7 


SLPX 


10900 






C 


CLERERM,SaNR*li.ll 


10910 






BNE 


SLP 


10910 






TF 


STRM1,SBN*U11 


109)0 






TF 


STR+6.SBNRUI 



TEST FOR RM 

NOT AN ASTERISK -KEEP GOING 
TEST FOR A SECOND ASTERISK 



MOVE INOICATOR RECORD TO DISK AREA 



PUT INOICATOR RECORD 



COMPRESS BLANKS 



86 



10638 


16 


02507 


M0001 


10650 


49 


10682 




10658 


15 


02*97 


00000 


10670 


16 


02507 


N9993 


10682 


25 


02*92 


02*97 


1069* 


26 


02502 


02507 


10706 


12 


02502 


000J7 


10718 


31 


03278 


02*98 


10730 


26 


09201 


03287 


107*2 


26 


09196 


03287 


10754 


12 


09201 


000J1 


10766 


12 


09196 


COOK 8 


10778 


26 


10808 


02*96 


10790 


12 


10808 


000- I 


10802 


26 


00000 


02752 


10814 


25 


02*91 


00*26 


10826 


33 


02*91 


00000 


10838 


I* 


02*91 


000-3 


10850 


*7 


13376 


01300 


10862 


46 


13320 


01200 


1087* 


49 


1326* 




10882 


45 


10906 


02877 


10894 


16 


02877 


000-0 


1C906 


16 


10936 


-2876 


10918 


11 


10936 


000-2 


10930 


33 


COOOO 


CCOOO 


10942 


1* 


10936 


-3038 


10954 


47 


10918 


01300 


10966 


14 


02877 


OOOJ* 


10978 


47 


1392* 


01200 


10990 


31 


17000 


02727 


110C2 


31 


17016 


02876 


11014 


45 


11034 


02879 


11026 


49 


11166 




110)4 


14 


02879 


0J*14 


11046 


47 


11166 


01200 


nosa 


16 


00569 


J1081 


11070 


49 


00566 


J0265 


11082 


31 


14500 


02880 


11094 


14 


11129 


J6459 


1UC4 


12 


11129 


000-2 


11118 


4§ 


11104 


00000 


111)0 


14 


1U2R 


000-0 


11142 


14 


00949 


J1165 


11194 


49 


00920 


J0265 


11144 


14 


11201 


-2877 


una 


11 


11201 


000-2 


into 


49 


11210 


00000 


11203 


49 


11302 




11210 


24 


02701 


1120 J 


11222 


47 


1117a 


01200 


112)4 


2* 


1129) 


11201 


1124* 


24 


11288 


11201 



162-Q-1443 MONITOR I VERSIUN 2 SPS Il-q PHASE A 



10540 




SM 


S TR ♦6t I , 10 




I 0550 




AM 


STH*U, I, 10 




10560 


STR 


TR 


• - • , •- • 




105 70 




B7 


SBNR 




10580 


SLPX 


CM 


SBNR ♦ 1 1 , I NPUT- 


10*2«ll , , 


I 0590 




BL 


• ♦ 36 




10600 




C 


INPLT-10»2» 10, 


CH2*10 


10610 




HE 


C IP 




10620 




CM 


SBNR ♦ 1 I , INPUT- 


10*2»14 


10630 




bl 


• ♦36 




10640 




c 


INPLT- 10*2» 1 3i 


C2*2« I 3 


10650 




BE 


C 2P 




10660 




CM 


SBNR*l 1 , INPUT- 


10*2»15 


10670 




BL 


• ♦ 36 




10680 




C 


INPLT- 10*2»14i 


C3^2»14 


10690 




BE 


C 3P 




10700 




CM 


SBNR^U , INPUT- 


1 0* 2 • I I 


1071 




BL 


• ♦ 36 




10720 




c 


!NPLT-lO*?MOt 


C4^2»10 


10730 




BE 


C4P 




10740 




CM 


SBNR ♦ 1 1 , I NPUT- 


I 0* 2 • I 


10750 




BL 


• ♦36 




10760 




C 


INPLT-10^2«9,C5^2»9 


10770 




BE 


C5P 




10780 




CM 


S8NR*U .INPUT- 


10f2»2Q 


10790 




BL 


• ♦36 




10800 




C 


INPLT-10+2M9, 


C6+2M9 


10810 




BE 


C6P 




10820 




CM 


SBNR ♦ 1 I , INPUT- 


IQ*2M6 


10830 




BL 


• ♦36 




10840 




C 


INPLT-10^2* 15. 


C7+2M5 


10850 




BE 


C 7P 




10860 




CM 


SBNR+U .INPUT- 


10+2#11 


10870 




BL 


• ♦36 




10880 




C 


INPLT- 10*2* 10. 


C8+2»10 


10890 




BE 


C8P 




109C0 




CM 


SBNR ♦ 1 I , INPUT- 


1 0+2*5 


10910 




BL 


• ♦36 




10920 




C 


INPLT-lO+2»4,C9+2»4 


10930 




OE 


C9P 




10940 




CM 


SBNR ♦ 1 1 , INPUT- 


1 0* 2 • 1 7 


10950 




BL 


• + 36 




10960 




C 


INPLT-1C+2* 16* 


C I I ♦ 2 • 1 6 


1097U 




HE 


C 1 IP 




10980 




CM 


SBNRMl.INPUT- 


I 0*2 • i 7 


10990 




BL 


• ♦36 




1 1000 




r. 


INPLT-10*2»16» 


CUA*?'»16 


I 1010 




Hf 


C 1 UP 




I 1020 




CM 


SBNR ♦ 1 1 , INPUT- 


1 0*2 • L 


1 1030 




BL 


• ♦36 




11040 




I 


INPLT-10*2»9,C 12*2»9 


I 1050 




BE 


C 12P 




11060 




CM 


SBNRWi .INPUT- 


I 0*2« I 5 


1 1070 




BL 


• ♦36 




11080 




C 


INPCT-10*2»14, 


C13*2»14 


1 1090 




bE 


C13P 





RECOGNIZE CONTROL STATEMENT 



I 1258 


12 


11288 


000- I 


I 1270 


11 


1 1293 


000- 1 


11282 


31 


00000 


00000 


1 1294 


49 


11190 




1 1 302 


14 


1 1201 


-2899 


11314 


47 


1 1350 


01300 


11326 


24 


02897 


1482 1 


11338 


46 


12644 


01200 


U35C 


14 


11201 


-2905 


11362 


47 


11398 


01300 


11374 


24 


02903 


14849 


11386 


46 


12724 


01200 


I 1398 


14 


1 1201 


-2907 


1 1410 


47 


1 1*46 


01300 


11422 


24 


02905 


14879 


1 1434 


46 


12844 


01200 


1 1446 


14 


11201 


-2899 


11458 


47 


I 1494 


01300 


11470 


24 


02897 


14901 


1 1482 


46 


1 3024 


012C0 


11494 


14 


1 1201 


-2897 


I 15C6 


47 


11542 


01300 


11518 


24 


02895 


14921 


11530 


46 


1 3C44 


01200 


11542 


14 


11201 


-2917 


11554 


47 


11590 


01300 


1 1566 


24 


02915 


14961 


1 1578 


46 


13064 


01200 


11590 


14 


11201 


-2909 


1 16C2 


47 


1 1638 


01300 


11614 


24 


02907 


14993 


1 1626 


46 


13084 


0120C 


1 1638 


14 


11201 


-2899 


1 1650 


47 


1 1686 


01 300 


11662 


24 


02897 


15015 


11674 


46 


13104 


01200 


11686 


14 


11201 


-2887 


11698 


47 


11734 


01300 


11710 


24 


C2885 


15025 


11722 


46 


13124 


01200 


117 34 


14 


11201 


-2V1 I 


1 1746 


47 


11 782 


I 300 


11758 


24 


G2909 


15091 


I 11 7 


46 


13204 


01200 


i 1 7 82 


14 


1 1201 


-291 1 


i 1794 


4 7 


11830 


01300 


i 1806 


24 


02909 


15125 


113 18 


46 


13224 


012C0 


U83C 


14 


11201 


-2b97 


11B42 


47 


11878 


01300 


11854 


24 


02895 


15145 


1 1866 


46 


13244 


01200 


1 1676 


14 


11201 


-2907 


11890 


47 


11926 


01300 


U9C2 


24 


02905 


15175 


I 1914 


46 


13264 


Ol^OC 



1620-1443 MONITOR I VERSION 2 SPS I I-C PHASE A 



11100 
1 11 10 
11120 
11130 

I 1 1 40 
11150 
11160 
11170 

I I 180 
11190 
1 1200 
11210 
11220 
11230 
1 1240 
11250 
11260 
11270 
11280 
1 1290 
11300 
11310 
11320 
11330 
1134U 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11590 
11560 
11570 
H560 
11990 
11600 
11610 
11620 
11630 
11640 
11690 



CM SBNRMl f INPUT-10*2»20 

BL •♦36 

C INPUT-10*2»19,U4 + 2»19 

BE C14P 

CM SBNRHlt INPUT-1Q*2«21 

BL »06 

C INPUT-10*2»20,C15^2»20 

BE C15P 

CM SBNRMl,INPUT-10*2«9 

BL •♦36 

C INPLT-10*2»8,Ci6+2*8 

BE CUP 

CM SBNRM1,INPUT-IQ*2»15 

BL »#36 

C INPUT-10*2» 14, CI 7*2*14 

NOP C17P 

CM SBNR*U» INPUT-10 + 2M2 

BL •♦36 

C INPUT~lO*2Ml,Cl7A*2«ll 

BE C17AP 

CM SBNRMl, INPUT~10*2»15 

BL • ♦36 

C INPLT-10*2M4,C18*2«14 

BE C18P 

CM SBNR + U, INPUT-10*2»16 

BL •♦36 

C INPUT-10*2*15,C19f2M5 

BE C19P 

CM SBNR+U, 1NPUT-10*2»18 

BL • ♦36 

C INPtT~10+2M7,C20*2»i7 

OE C2CP 

CM SBNR+U, |NPUT-10*2»12 

BL • ♦ 36 

C INPUT-10*2MI,C2U2«U 

BE C21P 

CM S8NRM1, 1*PUT-10*2*14 

BL »*36 

C INPUT-10+2»13,C22*2»13 

BE C22P 

CM SBNR+ll, INPUT^lQf2»5 

BL •♦36 

C INPUT-10«-2*4,C23*2»4 

BE Q2 3P 

CM SBNR*ll f !NPUT-10*2»9 

8L ♦♦36 

C lNPliT-10*2»8»C24*2»8 

BE C24? 

CM S8WUU, !NPUT-10»2*5 

BL ♦♦36 

C INPur-lO+7«4, C25*J«4 

BE C25P 

CM SBN**U,t*PUT~l0*2»2? 

BL ♦♦36 

C INPLT- 10* a»26,C26»2»2* 

86 C26P 



85 



11926 


14 


11201 


-2917 


11938 


47 


11974 


01300 


11950 


24 


02915 


15215 


I 1962 


46 


13320 


01200 


11974 


k4 


11201 


-2919 


U986 


4 7 


12022 


01300 


1 1 998 


24 


02917 


15257 


12010 


46 


13 376 


01200 


12022 


14 


11201 


-2895 


12034 


4 7 


12070 


01300 


12046 


24 


02893 


15275 


12058 


46 


13420 


01200 


12070 


14 


11201 


-2907 


12082 


47 


12118 


01300 


12094 


24 


02905 


15305 


121C6 


41 


13440 


OCOOO 


12118 


14 


11201 


-2901 


12130 


47 


12166 


01300 


12142 


24 


02899 


15329 


12154 


46 


13460 


01200 


12166 


14 


11201 


-2907 


12178 


47 


12214 


01300 


12190 


24 


02905 


15359 


122C2 


46 


13480 


01200 


12214 


14 


11201 


-2909 


12226 


47 


12262 


01300 


12238 


24 


02907 


15391 


12250 


46 


13524 


01200 


12262 


14 


11201 


-2913 


12274 


47 


12310 


01300 


12286 


24 


02911 


15427 


12298 


4* 


13544 


01200 


12310 


14 


11201 


-2901 


12322 


47 


12358 


01300 


12334 


24 


02899 


15451 


12346 


4* 


13720 


01200 


12398 


14 


11201 


-2905 


12370 


47 


1240* 


01300 


12382 


24 


02903 


13479 


12394 


4* 


13740 


01200 


12406 


14 


11201 


-2887 


12418 


47 


12494 


01300 


12430 


24 


02889 


19489 


12442 


4* 


137*0 


01200 


12494 


14 


11201 


-2899 


124*4 


47 


12902 


01300 


12478 


24 


02893 


19507 


12490 


4* 


1381* 


01200 


129C2 


14 


11201 


-2887 


12914 


47 


12950 


01300 


1292* 


24 


02889 


19917 


12938 


4* 


13884 


01200 


12990 


14 


11201 


-2931 


129*2 


47 


12998 


01300 


12974 


24 


02929 


19971 


1298* 


4* 


13904 


01200 



1620- 1443 MCNITOR I VERSION 2 SPS I I -C PHASE * 



PACE 



1 1660 




TR 


B9MAD*5C0» IDMES-l 




1 2598 


3 i 


1 7000 


126 30 


lift 




TDM 


B9MAD + 513, OOOOO, , BLANK 


THE GM 






17013 


nnnon 


1 1680 




87 


PHASE 




12622 


49 


156 16 




I 1690 


I c ts 


CAC 07, MOP 




12631 






X 2 


I I 700 


C 1 P 


(ID)' 
TFH OBJCRE, 0,, 


OBJECT CORE N 


12644 


16 




-rnnn 


11710 




TD 


QB JCRE-4, INPUT- 10»2» 1 1 




12656 


25 


} 


02899 


11720 




SF 


OBJCRE-4 




1 j!an 


?f 




c\r\(\t\r\ 
uuuuu 


1 1 730 




CM 


OBJCRE ,20000 










n? inn 


11740 




BNL 


• ♦24 




1 


46 






11750 




TFM 


OBJCRE , 20000 




127C4 






•trnnn 


1 1 760 




R7 


Pt-ASE 




12 716 


49 


156 16 




1 1 7 7 Q 


C2P 


HNR 


•♦2Ct INPUT-10*2»15, , 


jUBKUUl 1 nC nU~™Cft nn 


12724 


45 


12 744 


0290 7 


11780 




67 


C2P I 




1 ?7lt 




i WX\ 




L 1/90 




C 


C70, INPUT- 10*2* 15 










02907 


11800 




HNH 


C2P2 




1 ?7<A 

i ■> T/!a 




17 Ann 


nrn°n 


11810 


C 2P I 


TFM 


SUBNCOO, 1C 












1 1820 




TD 


SUttNO, INPUT-10*2»14 




1? 7 a n 


fa 




njon* 


1 1830 




B7 


Pt-ASE 




1 JTQ) 




15616 




1 1840 


C2P 2 


TD 


SUBNU,INPUT-10*2«15 




i ?Ann 








11850 




TD 


SUBN0-1,INPUT-1C»2»14 




1 5fi 1 






02905 


L 1 860 




SF 


SLBNO- 1 




l ? 824 


32 




nnnnn 


11870 




t>7 


PHASE 






J' 






11680 


C3P 


BNR 


•♦20, INPUT-10+2»16, , 


MANTISSA LENGTH NN 








02909 


1 1890 




R7 


C3P1 






49 


1 •) AA 




1 19C0 




C 


C70, INPUT-10^2M6 




13 117 Ik 


24 


1 **7» 


n i i ft! 


11910 




BNH 


C3P2 






^ ^ 


1 7Q5rt 


ftfti « 


1 1920 


C3P 1 


TFM 


L ,00, 10 




12888 


1 6 


02520 


000- 


1 1930 




TD 


L , INPUT-10»2M5 




12900 


25 


02520 


0290 7 


1 1940 




B7 


C3P3 




12912 


49 


12*56 




1 1950 


C3P2 


TD 


L , INPUT-10+2*16 




12920 


25 


02520 


02909 


1 1960 




TC 


1-1.1NPUT-10+2M5 




12932 


25 


02519 


0290 7 


11970 




SF 


L - I 




12944 


32 


02519 


CCOOO 


1 1980 


C3P3 


CM 


L ,2, 10 




12956 


14 


02520 


000- 2 


1 1990 




8L 


• ♦ 36 




1 2 968 


4 7 


1 3004 


1 300 


12000 




CM 


L , <*b, 10 




12980 


1 4 


02520 


00OM5 


12010 




BMW 


• ♦ ?<• 




1 2992 


4 7 


1 30 16 


01100 


12020 




TF 


L ,MOML 




1 3004 


26 


02520 


1604 1 


12030 




B7 


PHASE 




13016 


49 


15616 




12040 


C4P 


TD 


NOISE , INPUT-10+2»1 1 , , 


NOISE DIGIT N 


13024 


25 


02521 


2899 


12050 




B7 


PHASE 




1 30 36 


49 


15616 




12060 


C5P 


TOM 


ERSTSw, 1*11, 


ERROR STOP 


I 3044 


15 


02476 


0000 J 


12070 




B7 


PHASE 




1 3056 


49 


156 16 




12080 


C6P 


TDM 


RELSM.1,11, 


ASSEMBLE RELOCATABLE 


13064 


15 


02478 


0000 J 


12090 




B7 


PHASE 




1 30 76 


49 


15616 




L' 1 


C7P 


TDM 


MOCTOC, I, 11, 


CUTPLT PAPER TAPE 


1 3084 


15 


1602 3 


0000 J 


i ? u n 




B7 


PHASE 




13096 


49 


15616 




y i 1 > ? o 


C8P 


TDM 


MOCTOCO, 11, 


OUTPLT CARC 


I 3 104 


15 


16023 


0000- 






B7 


PHASE 




13116 


49 


1 56 16 




» :i <•■> 


LOP 


TD 


CTVT ,INPUT^8,, 


CTVT NKNNN 


13124 


25 


02489 


02895 






TD 


CTVT- I, INPUTS 




13136 


25 


02488 


02893 


12i v; 




TC 


CTVT-2, INPUU4 




13148 


25 


02487 


02891 


121-C 




TD 


CTVT-3, INPUT*2 




13160 


25 


02486 


C2889 


12180 




TU 


CTvT-4, INPUT 




13172 


25 


02485 


02887 


12190 




%f 


CTVT-4, 


' 8 11 


13184 


32 


02485 


OCOOO 


12200 




,< 7 


PHASE 




13196 


49 


15616 





1620-1*43 MCNi TOR I VERSION 2 SPS I I-C PHASE A PAGE 



12210 


CUP 


TDM 


STPCSW,!, !, 






PUNCH SYMBCL TABLE 


13204 


15 


02470 


OOOOJ 


12220 




B7 


PHASE 








13216 


49 


15616 




12230 


chap 


TDM 


STPRSW.l, li, 






PRINT SYMBOL TABLE 


13224 


15 


02472 


OOOOJ 


12240 




B7 


PHASE 








13236 


49 


15616 




1225U 


C12P 


row 


INTRSW, 1, I I , 






f N Tf RRLP T XXX 


13244 


15 


02483 


OOQOJ 


12260 




B7 


PHASE 








13256 


49 


15616 




12270 


C13P 


TDM 


CDINSW, 1, 11, 






BtGIN CARO INPUT 


13264 


15 


02474 


CQOOJ 


12280 




TDM 


PT INSW.O 








13276 


15 


02475 


00000 


12290 




TDM 


TV INSW.O 








13288 


15 


02473 


ooooo 


1230U 




TOM 


INC0DE.5 








133C0 


15 


02491 


00005 


12310 




37 


PHASE 








13312 


49 


15616 




12320 


C14P 


TCM 


PTINSW, 1, U. 






BEGIN P.'* HER TAPE INPUT 


13320 


15 


02475 


OOOOJ 


12330 




TOM 


TY INSW.O 








13332 


15 


02473 


OCOOO 


12340 




TCM 


CD INSW.O 








13344 


15 


02474 


OOOOO 


12350 




TCM 


INC00E.3 








13356 


15 


02491 


00003 


12360 




B7 


PHASE 








13368 


49 


15616 




12370 


C15P 


TOM 


TYINSW, 1, 11, 






BEGIN TYPEWRITER INPUT 


13376 


15 


02473 


OOOOJ 


12380 




TOM 


CDINSW, 








13388 


15 


02474 


OOOOO 


12390 




TOM 


PTINSW.O 








13400 


15 


02475 


OCOOO 


12400 




B7 


PHASE 








13412 


49 


15616 




12410 


CUP 


TDM 


LSCCSW, I, 11, 






LIST CARD 


1342C 


15 


02479 


OCOOJ 


12420 




B7 


PHASE 








13432 


49 


15616 




12430 


C17P 


TDM 


LSTYSW, 1, 11, 






LIST TYPEWRITER 


13440 


15 


02480 


OOOOJ 


12440 




B7 


PHASE 








13452 


49 


15616 




12450 


C17AP 


TDM 


LSPRSW, 1,11, 






LIST PRINTER 


13460 


15 


02481 


OCOOJ 


12460 




B7 


PHASE 








! 34 72 


49 


15616 




12470 


C18P 


ONF 


PHASE,ISTAT-30, , 




STORE CORE 1 H AGE 


U*80 


4* 


15616 


02529 


12480 




TD 


ISTAT-30, FLGRM 








134 H2 


25 


02529 


03345 


12490 




TDM 


MODOC. 0,11. 








13504 


15 


16022 


OCOO- 


12500 




87 


PHASE 








13516 


49 


15616 




12510 


C19P 


TDM 


MODOC. 1, 11. 






STORE RELOADABLE 


13524 


15 


16022 


OOOOJ 


12520 




B7 


PHASE 








13536 


49 


5616 




12530 


C20P 


BO 


PHASE. SSTSW... 




SYSTEM SYMBOL TABLE 


13544 


43 


IV 16 


13719 


12540 




TF 


SSTDCFU3.HCLIH 








13556 


26 


izi, 7 


02507 


12550 


C20P2 


SM 


SSTDCFM3.SSTSCT»100*ll 




13568 


12 


1371 » 


-3511 


12560 




TFM 


I0RT.«*23 








13580 


16 


00565 


.3603 


12570 




B 


10GT,SST0F,7 








13592 


49 


00566 


»: 695 


12580 




TF 


C20PIUI.SSTDCF*13 






13606 


26 


13639 


13*1 ? 


12590 




AM 


L20PU1 1,4, 10 








13616 


11 


13639 


000-4 


12600 


C20PI 


S 


PRTL IM#»-a 








13628 


22 


02502 


OOOOO 


12610 




TR 


LIMITS-9.PRTLIM-4 








13640 


31 


03278 


02498 


12620 




S 


LDTR*ll,C20Pl»ll, 


11 






13652 


22 


09201 


1363R 


12630 




S 


LDTR* 6.C20P1+U* 


11 






13664 


22 


09196 


1363R 


12640 




TOM 


SSTSM.l.ll 








13676 


15 


13719 


OOOOJ 


12650 


C20P4 


67 


PHASE 








13688 


49 


15616 




12660 


SSTOF 


OSC 


2,22,, ABSOLUTE 


DISK NOT WRONG LENGTH 


13695 




2 




12670 


C20P3 


22 
OSA 


SSTOCF 








13701 




5 


% 1 
















13701 




J3704 




12610 




OC 










13702 




1 




12690 


SSTOCF 


ODA 


.O.SSTOAO.SSTSCTt 


•— • 






13706 




14 








0JB90 8-35-0000 
















12700 




OC 










13718 




I 





162C-1**3 MONI TOR I VER51UN 2 SPS I I-C PHASE A 



PAGE 



12710 


SSTSW 


OS 


1 




13719 




1 




12720 


C21P 


TOM 


2PSSM.lt Hi T*0 PASS MODE 




13720 


15 


02*77 


OCOOJ 


1 2730 




87 


PHASE 




13732 


*9 


15616 




127*0 


C22P 


T CM 


KiisuBt u lit nu subroutines 




137*0 


15 


02*8* 


OOOOJ 


12750 




87 


phase 




13752 


*9 


15616 




12760 


C23P 


TR 


S8NR + 1WCLERER+I,6i NAME A A A A A A 




1376C 


31 


1 120J 


02701 


1 2 7 70 




SF 


INPLT- I ♦ 2 • 5- 1 




13772 


32 


02886 


OCCOO 


12780 




TF 


MONAME, INP0T-10*2»5*2»5 




1378* 


26 


16035 


02697 


12790 




CF 


INPLT-10*2»5-1 




13796 


33 


02886 


00000 


12800 




B7 


PHASE 




13808 


*9 


15616 




12810 


C2*P 


TC 


MOIDNO, INPUT-l0*2»9*2O,,I D NUMBER NNNN 




13816 


25 


16039 


02901 


12820 




TC 


MOIDNO-l,lNPUT-lC*2«9*2»2 




13828 


25 


16038 


02899 


12830 




TD 


MO10NO-2, INPUT-1Q*2«9*2 




138*0 


25 


16037 


02897 


128*0 




TO 


MOIONO-3, INPUT-10*2»9 




13852 


25 


16036 


02895 


12850 




SF 


MOIONO-3 




1386* 


32 


16036 


00000 


12860 




87 


PHASE 




1 3876 


*9 


15616 




12870 


C25P 


CF 


ISTAT-30,,, L I BR 




1388* 


33 


02529 


00000 


12680 




87 


PHASE 




13896 


*9 


15616 




12890 


C26P 


TDM 


PCNLS*, 1,11, PUNCH RESEQUENCEO 


SOURCE DECK 


I 390* 


15 


02*82 


OOOOJ 


12900 




B7 


PHASE 




1 3916 


*9 


15616 




12910 


0*11*2. 


SF 


INPLT- 1 




1392* 


32 


02886 


00000 


12920 




SF 


INPLT ♦ 1 I 




1 3936 


32 


02898 


00000 


12930 




TFM 


• ♦30, INPUT* I 7 




139*8 


16 


13978 




129*0 




AM 


•♦18,2,10 




13960 


1 1 


13978 


000-2 


12950 




SF 


• - • 




1 3972 


J2 


00000 


00000 


12960 




CM 


• -6 , INPUT* 151 




1398* 


1* 


1 3978 


- 3038 


12970 




BL 


• -36 




13996 


*r 


1 3960 


1 300 


12980 




TFM 


IORT,»*23 




1*0C8 


16 


00565 


J*0 3 1 


12990 




B 


IORBC ,MCAOEF , 7 




1*020 


*9 


00520 


J557* 


1 3000 




BNF 


•♦2*,TYINSW 




1*0 32 


** 


1 *056 




1 3010 




TDM 


2PSSW,0 




1*0** 


15 


02*7 7 


CCCOO 


13020 


• 
















1 3030 


• 


DISK STORAGE SCRATCH SECTOR ASSIGNMENT 












130*0 


• 
















1 3050 




TFM 


IORT,«*23 




1*056 


16 


00565 


J*079 


1 3060 




B 


IOGT.DIM, 7 




1*068 


*9 


00566 


J*776 


13070 




TF 


CYLAV,MQSC T*8*2Q 




1*080 


26 


15599 


16028 


13080 




RCTY 






1*092 


3* 


00000 


00102 


I 3090 




TF 


SCTAV-2.CYLAV, , OBTAIN AVAIL QYL . 


FROM PCMTCR 


1*1C* 


26 


15602 


15599 


1 3100 




A 


SCTAV.SCTAV 




1*116 


2 i 


1560* 


1560* 


13110 




60 


SAS2P.2PSS* 




1* 128 


*3 


1*3*8 


CM ? T 


I 3120 




TFM 


SASC*l 1 , 1PTSPB*SPBL 




1*1*0 


I 6 


1*223 


- 1 5 * 


13130 




CM 


HCL IM.LOLI M* 1 I 76«1 7 




1*152 


1* 


02507 


MC001 


1 31*0 




ol 


•**8 




J * i 6* 


* 7 


1*212 


I 300 


I 3150 




BE 


• ♦ 2*, 




1* I 76 


*6 


1*200 


C 1 200 


11160 




AM 


SASC* 1 1 ,BP20K» 1 PTSPB-BP20*»SPBL 




1*188 


1 i 


1*22 3 


- 7 30Q 


13170 




A 


SASC* I I I 




1*200 


21 


1*223 


1*199 


t 31 BC 


SASC 


CM 


SCTAV,»-» 




1*212 


I* 


1560* 


-cooo 


13190 




BL 


SASX1 




1*22* 


*7 


1*316 


01300 


1 3200 




AM 


STSAV,2»SPBL 




1*236 


11 


15609 


-0080 


1 3210 


SAS1 


AM 


SBMAX,1,10 




1*2*8 


11 


02673 


OCO-l 


1 3220 




AM 


SASC+ll , 1PTSPB 




1*260 


11 


1*223 


- 1500 


1 32 30 




C 


SCTAV,SASC*ll 




1*272 


2* 


1560* 


1*223 


1 32*0 




BL 


SASXl 




1*28* 


*7 


1*316 


01300 


1 32 50 




AM 


STSAV.SPBL 




1*296 


1 1 


15609 


-00*0 


1 3260 




B7 


SAS 1 


1*308 


*9 


1*2*8 





162C-l**3 MONITOR I VERSION 2 SPS Il-D PHASE A 



1 32 70 
1 3280 
1 3290 
1 3300 
13310 
1 3320 
1 3330 
133*0 
1 3350 
13360 
1 3370 
13380 
1 3 390 
I 3*00 
13*10 
13*20 
I 3*30 
1 3**0 
13*50 
13*60 
13*70 
13*80 
13*90 
135C0 
13510 
13520 
13530 
135*0 
13550 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 
136*0 
13650 
13660 

136 70 



SASXl TF 

S 

8 7 

SAS2P TFM 
CM 
BL 
BE 
AM 
A 

SASC2 CM 

BL 



C 

BL 
AM 
87 
TF 
S 



TVPASS TF 

S 

TF 
S 

TF 

TF 

TF 

BNF 

TFM 

TFM 

TFM 

TFM 

BTM 

DIM OSC 

22 

DSA 



INTSAV,SCTAV 
INTSAV, STSAV 
TYPASS 

SASC2*l It 2PTSPB*SPBL 
HCL IM,LBLIM*U76«17 

• **8 

• *2* 

SASC2*ll ,BP20M2PTSP8-BP2Q*»SPBL 

SASC2*ll,*-l 

SCTAV,«-» 

SASX2 

STSAV, 2«SPBL 
SBMAX, 1 ,10 
SASCM1.2PTSPB 
SCTAV,SASC*l 1 

SASX2 

STSAV.SPBL 
SAS2 

INTS4V,SCTAV 
INTSAV.STSAV 
INTSAV, 2PRTI0 

90 

INTSAV, 9* 
•♦23, INTSAV 
•*23,AJUST 
INTSAV, ,10 
SYMTAO.SCTAV 
SYMTAO, STSAV 
IOADOR , SYMTAO 
IOACDR , INTSAV 
B10CF*5, SYMTAO 
B20CF*5, SYMTAO 
0UT0CF*5,I0A00R 
•♦2*.RE1SW 
A90COWt99999 
R2BE*l»*l« 10, 
PROSTM* l,*l , 10, , 
CFFA,NC0CF1 
CFF,P«QSTH 
2,22 

CIMCCF 



13690 OIMDCF OOA , . 01 MOAO , 1 , MOSCT 
0-4800-0 U6000 

DC l*» 



13700 

13710 CI 

13720 C2 

? 3-»?0 €?• 



CHANGE BE TO NOP 
CHANGE B TO NOP 



DAC I .1 t*O8JECTC0ftE 

•OB JEC TCORE 

OAC 14t*SUBftOUUNESET. 

• SUBROUTINE'S^ T 

DAC lit *«A«TI SSAtENGTH 

• HAHTfSS*'. E fc iC*H 



1*316 


26 


1561* 


1560* 


1*328 


22 


1561* 


15609 


1*3*0 


*9 


1*620 




1*3*8 


16 


1**31 


-06*0 


1*360 


I* 


02507 


MCOOl 


1*372 


*7 


1*420 


01300 


1*38* 


*6 


1**08 


01200 


1*396 


11 


1**31 


-2800 


1**08 


21 


1**31 


1**07 


1**20 


I* 


1560* 


-0000 


1**32 


*7 


1*52* 


01300 


1**** 


11 


15609 


-0080 


1**56 


11 


02673 


000- 1 


1**68 


11 


1*223 


-0600 


1**80 


2* 


1560* 


1*223 


1**92 


*? 


1*52* 


01300 


i*5C* 


11 


15609 


-00*0 


1*516 


*9 


1**56 




1*52* 


26 


1561* 


1560* 


1*536 


22 


1561* 


15609 


1*5*8 


13 


1561* 


KCOOO 


1*560 


32 


00090 


COOOO 


1*572 


26 


1561* 


0009* 


1*58* 


25 


1*607 


1561* 


1*596 


25 


1*619 


02399 


1*608 


11 


1561* 


000-0 


1*620 


26 


026*1 


1560* 


1*632 


22 


026*1 


15609 


1*6** 


26 


02636 


026*1 


1*656 


22 


02636 


1561* 


1*668 


26 


10177 


026*1 


1*680 


26 


10193 


026*1 


1*692 


26 


10209 


02636 


1*70* 


4* 


14728 


02*78 


1*716 


16 


02528 


R9999 


1*728 


16 


01713 


000M1 


1*7*0 


16 


01917 


000M1 


1*752 


16 


02629 


-7316 


1*76* 


17 


02592 


-3916 


1*776 




2 




1*782 




5 


X 1 


1*782 




J4784 




14703 




1 




1478* 




14 




14798 




1 




1*801 




11 


x 2 


14821 




14 


X 2 


14891 




15 


X 2 



S2 



162C-1443 MONITOR I VERSION 2 SPS ll-C PHASE A PAGE 



I 3740 C4 


OAC i 1 ••NOI SEDIGI T 


14881 


11 


X 




• NO I SEO I G I T 








13750 C5 


CAC 10,«ERRORST0P 


14903 


10 


x 




• ERROR 5 TOP 








13760 C6 


DAC 20.«ASSE«BLEftElOCATABlE 


14923 


20 


X 




•ASSEMBLERELOCATABLE 








13770 C7 


DAC 16,»0UTPUTPAPERTAPE 


14963 


16 






•OUTPLTPAPERTAPE 








13780 C8 


CAC I 1 i •OUTPUTC ARD 


14995 


1 1 


X 




•OUTPUTC ARD 








13790 C9 


OAC 05,«CTVT 


15017 


5 


X 




• CTVT 








13800 CIO 


OAC 16,«TYPESYMB0LTABLE 


15027 


16 


X 




•TYPESYMBOLTABLE 








13810 Cll 


OAC 17i»P UN CHSYMBOL TABLE 


15059 


17 


X 




•PUNCHSYMBOL TABLE 








1 3820 C1U 


DAC l7,«PRtNT$Y»B0LTABLE 


15093 


17 


X 




• MR INTSYMOOL TABLE 








13830 C12 


DAC 10,MNTERRUPT 


15127 


10 


X 




• INTERRUPT 








1 3840 CI 3 


DAC 15 , »BEGINCARCI NPOT 


15147 


15 


X 




• BEG INC ARD INPUT 








13850 CI* 


OAC 20, "BEGINPAPERTAPE INPUT 


15177 


20 


X 




• BEG INPAPERTAPE INPUT 








13860 C15 


CAC 21,»BEGINTYPEWRITERINPUT 


15217 


21 


X 




•BEGINTYPEWRITERINPUT 








13870 C16 


DAC 09.UISTCARD 


15259 


9 


X 




• L I STCARC 








13880 C17 


CAC 15, «L ISTTYPEWRI TER 


152 77 


15 


X 




• L I5TTYPEWRI TER 








13890 C17A 


OAC 12.«LISTPRINTER 


153C7 


12 


X 




•L I STPR INTER 








13900 C18 


OAC 15, •STORECORE IMAGE 


15331 


15 


X 




•STORECORE I M AGE 








13910 C19 


CAC 16,«ST0REREL0A0ABLE 


15361 


16 


X 




•STORERE LOADABLE 








13920 C20 


CAC 1 8 , * SYSTEMSYMBOL TABLE 


15393 


18 


X 




•SYSTEMSYMBOLTABLE 








13930 C21 


DAC 12,*T*OPASSMOOE 


15429 


12 


X 




•TWOPASSMODE 








13940 C22 


DAC 14,»N0SUBRUUTINES 


15453 


14 


X 




•NOSUGROLTINFS 








13950 C23 


CAC 05, 'NAME 


15481 


5 


X 




• NAME 








13960 C24 


CAC 09,»IDNUMBER 


15491 


9 






• 1DNUMBER 








13970 C25 


CAC 05,»LIBR 


1 55C9 


5 


X 




• L I BR 








13980 C26 


CAC 27 , »PUNCMRE SEQUENCED SOURCE DEC* 


15519 


27 


X 




• PUNCHRESt QUENCEO SOURCE DECK 








I 3990 C70 


DC 2,70 


15573 


2 




14000 MCACEF 


PO 

OSC 2,22 


155 74 


2 




14010 


22 

DS A HCADCF 


1558C 


5 


X 



»3 



162C-1443 MONITOR 1 VERSION 2 SPS Il-C PHASE A 



15580 
15581 



J5582 
I 



14030 


MCACCF 


CCA 


,0,MOS0AD, 1 ,MOSCT 






15582 




14 








0J9663-U1J6000 














14040 




CC 


1 , ' 






15596 




I 




14050 


CYL av 


DC 


3, 2C 






15599 




3 




1406U 


SCTAV 


-20 
DC 


5,0 






156C4 




5 








-0000 














14070 


STSAV 


DC 


5,C 






15609 




5 








-OOCO 














14080 


INTSAV 


CC 


5,0 






15614 




5 








-0000 














14090 




CC 


I, * 






15615 




1 




14100 


PHASE 


TFM 


!ORT,«*23 






15616 


16 


00565 


J5639 


14110 




NOP 


IQPT.CONTR-4,7 






15628 


41 


00532 


J0273 


14120 




TCM 


•-11, 9,,, SET 


BRANCH 


CN 


15640 


15 


15629 


0C009 


14130 




B7 


PHASE A 






15652 


49 


03408 




14140 


EL A I 


SF 


FLGRM 






15660 


32 


03345 


COOOO 


14150 




34 


A IDCF ,00701 






15672 


34 


15720 


00701 


14160 




3P 


A IUCF ,0C702 






15684 


38 


15720 


C0702 


14170 




TRA 








15696 


36 


00000 


00500 














157C8 


49 


00000 


OCOOO 


14180 


AlCCF 


CCA 


,0, A1DAD.A 1SCT.ZEPG 






15720 




14 








OJ86C0J37-230O 














14190 




CC 


It • 






15734 




1 




142C0 




TCC 


FLA 1 






15660 








14210 




DORG 


PR TAD 






10250 








14220 




CS 


5 






10254 




5 




14230 


I NSTRN 


TO 


•♦23.AD0C0W 






10256 


25 


10279 


02528 


14240 




TO 


•♦23.AJUST 






10268 


25 


10291 


02399 


14250 




AM 


ADDC0W,,10 






10280 


11 


02528 


000-0 


14260 




BTM 


EVALAD, •♦12* 4 11 






10292 


17 


05M04 


1030M 


14270 




BTM 


E VALAD , •♦12, 5 11 






10304 


17 


054-4 


10310 


14280 




TF 


AODRStAOOCOW 






10316 


26 


03299 


02528 


14290 




AM 


AODCOWt 1L« 10 






10328 


11 


02528 


000 J 1 


14300 




BTM 


CTEST,»*12 






10340 


11 


07436 


J0352 


14310 




B7 


INSTRN-l, ,6 






10352 


49 


102SN 




14320 


OOINST 


TF 


INPUT2M, ZEPO+29 






10360 


26 


03041 


02329 


14330 




C 


INPLT*14, XB7-3 






10372 


24 


02901 


13650 


14340 




BNE 


• ♦24 






10384 


4? 


10408 


01200 


14390 




SM 


AOOCOW. 5.10 






10396 


12 


02528 


000-5 


14360 




C 


iNPUT*16, XB62-3 






10408 


24 


02903 


14133 


14370 




BNE 


• ♦24 






10420 


47 


10444 


01200 


14380 




S« 


AOOCOW, 10(10 






10432 


12 


02528 


OCOJO 


14390 




B7 


LDLBL 






10444 


49 


08414 




14400 


OOACC 


TF 


INPUT2*2, ZEP0»29 






10452 


24 


03042 


02329 


14410 




SF 


INPLT2^2 






10464 


32 


03042 


00000 


16420 




TDM 


INPUT2.8 






10476 


IS 


03040 


00008 


14430 




CM 


INPLTM2. 59,10, 


FLAG 


OP OF RN1C, RAIC 


10488 


14 


02899 


000M9 


14440 




BNE 


• ♦24 






10500 


47 


10524 


01200 



162C--1443 MONITOR I VERSION- 2 SPS II — C PHASE A PAGE 



1*450 




SF 


JNPLT2M 






10512 


32 


304 1 


ocooo 


14460 




37 


L0L8L 






10524 


49 


08414 




14470 


OOBOMK 


TDM 


INPLT2.4 






105 32 


15 


3040 


OC004 


1448U 




ID 


INPLT?*l, ZEPO»28 






10544 


25 


03041 


02328 


14490 




TD 


INPLT2*6, ZEPQ*29 






1G556 


25 


03046 


02329 


14500 




SF 


INPLT2*6 






10568 


32 


03046 


OCOOO 


14510 




TFM 


INPLT2*4,00, 10 11 






10580 


16 


03044 


000-- 


14 520 




b7 


LDLBL 






10592 


49 


08414 




14-130 


com 


TD" 


INPLT2, 4 






IC6C0 


15 


03040 


OC004 


14540 




TC 


INPLT2M, ZEPO^JC 






10612 


25 


03041 


02330 


14550 




SF 


ZFP0»28 






10624 


32 


02328 


OCCOO 


14560 




TF 


INPLT2^4, ZEPG^29 






10636 


26 


03044 


02329 


1 4570 




SF 


INPLT2*4 






10648 


32 


03044 


OCOOO 


14580 




B7 


LDL3L 






10660 


49 


08414 




14590 


noKnw 


Tn 


INPLT2M, ZFPCW8 






1066ft 


25 


3041 


02328 


14600 




TDM 


INPLT2, 3 






1068C 


15 


03040 


CCC03 


14610 




TC 


INPLT2*4, ZEPO*29 






10692 


25 


03044 


02329 


14620 




SF 


INPLT2*4 






107C4 


32 


03C44 


cccoc 


14630 




TC* 


INPLT2*3iO. 1 1 






10716 


15 


03043 


0000- 


14640 




H7 


LDL ML 






10728 


49 


08414 




14650 


CUK 


TFM 


INPL T ?♦ 1 , 034,9 






10736 


16 


304 1 


00-34 


14660 




TD 


INPLT2*6, Z£P0*29 






10748 


25 


3046 


02329 


14670 




SF 


INPLT2»6 






10760 


32 


03046 


OCOOO 


1 4680 




rn 


1NPLT2*4, /EPO»28 






1C772 


25 


03044 


02328 


14690 




SF 


INPLT2*4 






10784 


32 


03044 


OOCOO 


14 700 




T CM 


INPIT20, C,ll 






10 796 


15 


C3043 


CCCO- 


14710 




87 


LDLBL 






108C8 


49 


08414 




14720 


DOS IOC 


SF 


ZCPLU22 






108 16 


32 


02322 


COOOO 


14730 




TFM 


INPLT2*l, 046,9 






10828 


16 


0304 1 


CO-46 


14740 




CM 


ZFP0»23,*3,1C 






1084C 


14 


02323 


CC0M3 


14750 




ft F 


• ♦72 






10852 


46 


10924 


01200 


14760 




CM 


/ E (H) ♦ ? 5 , 4 2 4 3 , 8 






10864 


14 


02325 


0*243 


14770 




OE 


• ♦ 36 






10876 


46 


10912 


01200 


14780 




CM 


ZFP0»23,42, IC 






10888 


14 


02323 


0C0M2 


14 790 




BE 


•♦24 






109CC 


46 


10924 


01200 


14U00 




TDM 


I NP L r ? ♦ 1 . 7 






10912 


15 


03041 


CC007 


14810 




TFM 


1NPLT2^4, 6C ,101 1 






10924 


16 


C3044 


ocoo- 


14820 




SF 


ZEPC+28 






1C936 


32 


02323 


ocooo 


14830 




TF 


INPLT?^6, Z6P0*29 






10948 


26 


03046 


02329 


14840 




SF 


INPLT2^6 






10960 


32 


03046 


OCOOO 


1485Q 




H 1 


l rn hl 






IC972 


49 


0841* 




14860 


COSVRS 


A* 


AUfiCUw, 12 






10980 


\ 1 


02528 


112 


14870 




TFM 


I N P L T 2 ♦ 1 , 2,10 




* 


10992 


16 


304 1 


OOv 


14UH0 




HO 


•♦ }fc,ZEP(H29 






1 1CC4 


4 j 


1 1040 


02329 


14890 




AM 


ADCCCJH.l? 






1 1016 


1 i 


02528 


-0012 


149C0 




T CM 


INPLT2*t,l 






1 1028 


15 


03041 


0C001 


14910 




HTM 


C TC ST , •♦ 12 






U04C 


1 / 


07436 


J1052 


14920 




H7 


LDLHL 






11052 


49 


08414 




14930 


CPC ISK 


TDM 


INPLT2.3 






U06C 


15 


03040 


00003 


1494 




T L 


INPLT2M, l£PQ+ 2d 






11072 


25 


304 1 


02328 


14950 




TC* 


I N P L T 2 ♦ 4 , 7 , U 






11084 


15 


03044 


OOOOP 


1 4960 




TO* 


I N P t T ? ♦ ), • » i 1 






1 1096 


15 


03043 


ccoo- 


t 4970 




TC 


INP«,72»6, ZcPO+29 






nice 


25 


03046 


02329 


14980 




SF 


INPLT2*6 






11120 


32 


03046 


OCOOO 


14990 




B7 


LDLBL 






11132 


49 


08414 




I 5000 


CMESCL 


TFM 


C F F A , F F 1DCF 




!);» 


11140 


16 


02629 


J 1 164 








16?0- 1443 MCM TGR { 


VERSION 2 


SPS I I -C PHASE A 








PAGE 


15010 




HTM 


CFF jDECL 2 






11152 


17 


02592 


J0256 


I 502U 


FF I CCF 


ODA 


,0, A4DAD, A4SCT , INSTRN 






11164 




14 








0J88bl~?7J0,?56 














1 *> } 




cc 


1 , • 






1 1 1 78 




i 




I 5040 


MCCALL 


TFM 


CFFA, A3DCF 






11180 


16 


02629 


J1204 


15050 




DTM 


CFF,MACR02 






11192 


1 7 


02592 


J0256 


I 506u 


A3CCF 


CCA 


,0,A3OAD,A3SCT, INSTHN 






1 1204 




14 








0J9252^29J0256 














15070 




CC 


I , • 






1121b 




1 




15080 


CGM 


TDM 


INPLT2, 5 






1 1220 


15 


03040 


00005 


15090 




DTM 


EVALAD, •♦12, 4 






1 1232 


1 ? 


05M04 


1 1244 


1510U 




HNF 


DAC3-3?,8SW 






I 1244 


44 


12004 


08037 


15110 




AM 


ACOCOta, 1 






11256 


1 1 


C2528 


-C001 


15120 




r f 


AOukS, AOQCO* 






1 1268 


26 


C3299 


02528 


15130 




B7 


DAC *~32 






1 1280 


49 


12C04 




15140 


MACRO 


TD 


•♦23.ADDCOW 






1 1288 


25 


11311 


02528 


15150 




TC 


•♦23, AJUST 






113C0 


25 


11323 


02399 


15160 




AM 


ADUCOW, ,10 






1 1312 


11 


02528 


000-0 


15170 




SF 


ZEP0+28 






1 1 324 


32 


02328 


00000 


15180 




TF 


INPLT2*6, ZEP0*29 






11336 


26 


3046 


02329 


15190 


• 


















15200 


• 


SEf ONE TO INDICATE SUBROUTINE 


IS REQUIRED 










15210 


• 


















15220 




TFM 


•♦30, ISTAT- 30 






11346 


16 


U378 


-2529 


15230 




A 


• ♦18,ZEP0>29 






U360 


21 


11378 


02329 


15240 




TOM 








11372 


15 


00000 


00001 


15250 




B7 


DSA,,,TQ OSA ROUTINE 


TO COUNT 


NUMBER OF OPERANDS 


11384 


49 


13308 




15260 


« 


evaluate length of das 














15270 


# 


















15280 


CAS 


btm 


EVALA0,»*12,4 






11392 


17 


05M04 


11404 


15290 




TF 


LNTH, ADDKS 






11404 


26 


02387 


03299 


15390 




TF 


TEMPR.LNTH 






11416 


2* 


02571 


02387 


15310 




A 


TEMPR , TEMPR 






11428 


21 


02571 


02571 


15 320 




TDM 


INPLT2, 2 






1 1440 


15 


03040 


00002 


15330 




TO 


IMPUT2»6, ZEP0*29 






11452 


25 


03044 


02329 


15340 




87 


0AC3 






11484 


49 


12034 




15350 


• 


















15360 


« 


EVALUATE LENGTH OF DAC 














15370 


• 


















15380 


CAC 


TDM 


INPLT2, 






11412 


15 


03040 


OCOOO 


15390 




TFM 


STCHARM1, 00,10 






1 1484 


18 


11799 


000-0 


15400 




DAC 


lt» 






11495 




1 


X 2 


15410 




BTM 


EVALAD, •♦12, 4 






1149* 


IT 


05M04 


11508 


15420 




TF 


LNTH* ADDft S 






11508 


2* 


02347 


03299 


15430 




CM 


LNTH.51 






11920 


14 


02347 


-0051 


15440 




BN 


« ♦ 8C 






11912 


47 


11412 


01300 


15450 




TFM 


F VALE R-l, 60000,* 


ER ft, 


LENGTH TOO BIG 


11544 


1* 


07071 


QCOOO 


15460 




DC 


l, r »» 






11959 




I 




15470 




TfH 


LNTH, 00050 






11554 


14 


02347 


-0050 


15480 




TFM 


TEMPR, 100 






115*8 


14 


025T1 


-0100 


15490 


CACSR 


BT 


EPMNT, EPft INI- 1 






11980 


2? 


CT332 


07331 


1*500 




80 


ERCOr . 






11992 


43 


07194 


02474 



1620-1**3 HON I TOR I VERSION 2 SPS Il-C PHASE A 



PAGE 



15510 




B7 


CACR 


1160* 


49 


1 1860 




15520 




A 


ADDRS , ADDR S 


11612 


21 


03299 


03299 


15530 




TF 


TEMPR , ADDR S 


1 162* 


26 


02571 


03299 


155*0 




BNR 


•♦20, INPUT*20 


1 1636 


*5 


1 1656 


02907 


15550 




07 


ER9CAC 


1 16*8 


*9 


1 1668 




L5560 




BNR 


•♦32, INPUW2 


1 1656 


*5 


1 1688 


02909 


15570 


ER9CAC 


TFM 


EVALER-l, 9C0G0,, CONSTANT NCT SPECIFIED 


1 1668 


16 


07071 


RCOOO 


15580 




DC 


It • 


I 1679 




1 




15590 






CACER 


1 1680 


*9 


11580 




15600 




TFM 


• ♦35, INPim 19 


1 1688 


16 


11723 


-2906 


15610 




A 


•♦2 3, TEMPR 


1 1 7C0 


2 1 


1 1723 


02571 


15620 


CHVALO 


TR 


UlT^2 


1 1712 


31 


02220 


00000 


156)0 




BNR 


• ♦32, OUTO 


1172* 


*5 


1 1756 


02221 


156*0 


E 10CAC 


TFM 


EVALER-1, 170CO». MI S-CCLM CF CONSTANT LENGTH 


11736 


16 


C7C71 


J7000 


15650 




DC 


1 , • »• 


1 17*7 




1 




1 5660 




07 


CACER 


1 17*8 


*9 


1 1580 




15670 




BNR 


• ♦2COUT+5 


1 1756 


*5 


1 1 776 


02223 


15680 




B7 


•♦32 


1 1 768 


*9 


1 1800 




15690 




CM 


01M5.23.10 


I 1776 


1* 


02223 


C00K3 


15700 


STCHAR 


BNE 


E 10DAC 


1 1788 


*7 


1 1736 


01200 


15710 




TC 


STCHAR + 11,0UTM 


11800 


25 


11799 


02223 


15720 




AM 


CHVALD*11,3 


11812 


11 


11723 


-0003 


15730 




TFM 


CHVALDM1,,6 10 


1182* 


16 


1172L 


000-0 


157*0 




DC 


l.».» 


11835 




1 




15750 




AM 


CHVALDM1, 1, 10 


11836 


11 


11723 


000-1 


15760 




TR 


lNPLT*21tCHVALD*ll,ll 


11848 


31 


02908 


U72L 


15770 


DACR 


TF 


INPLT2+6, ZEP0^29 


11860 


26 


030*6 


02329 


15710 




TC 


INPUT2+*, LNTH 


11872 


25 


030** 


02387 


15790 




TD 


INPLT2*3, LNTH- 1 


11884 


25 


030*3 


02386 


15S00 




BNR 


DAC3,STCHARMl 


11896 


*5 


12036 


11799 


15810 


• 


ADDRESS ASSIGNED BY PROCESSOR 










15B20 


• 














15830 


NOSINE 


TD 


•♦23, AODCOW 


11908 


25 


11931 


02528 


158*0 




TO 


•♦23, JSTBL 


11920 


25 


119*3 


02*59 


15850 




AM 


AODCOW, ,10 


11932 


11 


02528 


000-0 


15860 




TF 


AOORS, AODCOW 


11944 


26 


03299 


02528 


15870 




A 


AOCCOW, TEMPR 


11956 


21 


02528 


02571 


15880 




SM 


ACCCOM.2,10 


11968 


12 


02528 


000-2 


15890 




BD 


•♦2*,ZEP0^28 


11980 


*3 


1200* 


02328 


15900 




TF 


ADDRS, ADDCOW 


11992 


26 


03299 




15910 




BTM 


CTEST, »M2 


120C4 


17 


07*36 


J2w- 


15920 




TCM 


INPLT2M, 0,11 


12016 


15 


030*1 


0000- 


15930 




B7 


LOLBL 


12028 


*9 


08*1* 




159*0 


DAC3 


BTM 


EVALA0,»+ 12,5 


12036 


17 


05*-* 


120*8 


15950 




uo 


NOSINEtBSW 


12048 


*3 


11908 


08037 


15960 




TD 


LOABStofRLOCSto 


12060 


25 


08036 


08035 


15970 




B7 


CAC3-32 


12072 


*9 


1200* 




15980 
















15990 


• 


EVALUATE LENGTH OF DSB 










16000 


• 














16010 


DSO 


TDM 


INPUT2,* 


12080 


15 


030*0 


0000* 


16020 




TDM 


INPUT2^6, I 


12092 


15 


030*6 


0C001 


16030 




TFM 


EVALER- 1, 70000 4) 7 


121C* 


16 


07071 


POOOO 








1620-1**3 MONITOR I VERSION 2 SPS II-C PHASE A 








PAGE 


160*0 




UC 


It ' #• 


12115 




1 




16050 




BTM 


EVALAD, •♦12, * 


12116 


17 


05MO* 


12128 


16060 




TF 


LNTH, ADDRS 


12128 


26 


02387 


03299 


16070 




BTM 


EVALAD, •♦12, 5 


121*0 


17 


05*-* 


12152 


16080 




TF 


TEMPR, ADDRS 


12152 


26 


02571 


03299 


16090 




BNF 


• ♦*8, DSW 


12164 


** 


12212 


08037 


16100 




BT 


EPRINT, EPRINT-l 


12176 


27 


C7332 


07331 


16110 




BD 


ERCOR, ERSTSW 


12188 


*3 


07196 


02476 


16120 




TFM 


TEMPR, 00001 


12200 


16 


02571 


-0001 


16130 




HTM 


EVALAD, •♦12,5 


12212 


17 


05*-* 


1222* 


161*0 




TO 


LDABSW, RLOC SW 


12224 


25 


08036 


08035 


16150 




DNF 


DAC3-32, BSW 


12236 


44 


1200* 


08037 


16160 




TDM 


LDABSW,l,ll 


12248 


15 


08036 


OOOOJ 


161 70 




TF 


ADDRS, AODCOW 


12260 


26 


03299 


02528 


16180 




A 


ADDRS* LNTH 


12272 


21 


03299 


02387 


16190 




M 


LNTH, TEMPR 


12284 


23 


02387 


02571 


16200 




A 


ADUCOW, 99 


12296 


21 


02528 


00099 


16210 




B7 


CAC3-32 


123C8 


49 


1200* 




16220 


• 














16230 


• 


EVALUATE LENGTH OF OS OR DNB 










162*0 


• 














16250 


OSDNB 


BTM 


EVALAD , •♦ 12 , * 


12316 


17 


05M04 


12328 


16260 




TD 


INPUT2+6, 2EP0*29 


12328 


25 


03046 


02329 


162 70 




TO 


INPUT2*5, ZEP0*28 


12340 


25 


03045 


02328 


16280 




TF 


LNTH, AOORS 


12352 


26 


02387 


03299 


16290 




TDM 


INPLT2, *,ll 


123*4 


15 


03040 


OOOOM 


16300 




BD 


• ♦«*, ZEPQ*29 


* 12376 


43 


12460 


02329 


16310 




CM 


LNTH, 99 


12388 


14 


02387 


-0099 


16320 




BNP 


• ♦60 


12400 


47 


12460 


01100 


16330 




TFM 


EVALER-1, 8CO0O 


12412 


16 


C7C71 


QCOOO 


163*0 




CC 




12423 




1 




16350 




BT 


EPRINT, EPRINT-l 


12424 


27 


07332 


07331 


16360 




BD 


ERCOR, ERSTSW 


12436 


43 


07196 


02476 


16370 




TFM 


LNTH, 00099 


12448 


I* 


02387 


-0099 


16380 


NASS 


BTM 


EVALAD* •♦12, 5 


124*0 


I? 


054-4 


12472 


16190 




TD 


LDABSW, RLOCSW 


12472 


25 


08036 


08035 


16*00 




BNF 


CAC3-32. BSW 


12484 


44 


12004 


08037 


16*10 


• 














16420 


• 


AOORESS ASSIGNED BY PROCESSOR 










16430 


• 














164*0 


0N82 


TF 


AOCRSt AODCOW 


1249* 


2* 


03299 


02528 


16450 




TOP) 


LDABSW, I, 11 


1290* 


15 


08036 


OOOOJ 


16460 




A 


AOOCOW.LNTH 


12920 


21 


02929 


02387 


14*70 




BO 


OSS.ZEPO+28 


12932 


43 


129*4 


02328 


16*80 




A 


ADDRS. LNTH 


12944 


21 


03299 


02387 


16490 




B7 


OAC3-32 


1299* 


49 


12004 




1*500 


OSS 


AM 


ADDRS, 1,10 


129*4 


1 1 


03299 


OOO-l 


1*510 




87 


OAC3-32 


129?* 


49 


12004 




16520 


OORG 


BTM 


EVALAO.^12,* 


12994 


IT 


05*04 


1259* 


1*530 


BNF 


•♦8*,RELSW 


1299* 


44 


12*80 


02478 


16540 




BD 


♦♦72, RLOCSW 


12*09 


43 


12*90 


09039 


1*990 




TP* 


EVALER-2, 71770, , RELOCATION ERROR 


12*20 


1* 


07070 


P1770 


1*560 




BT 


EPRINT.EPRINT-l,, IGNORE ABSOLUTE OORG 


12*12 


IT 


07332 


07331 


1*970 




BO 


ERCOR, ERSTSW 


12*44 


43 


0719* 


0247* 



9> 



I VERSION 2 SPS t I - (. PHASE A PAGE 



16580 




TFM 


|NPLT2t 1,06,10, 


IN RELCCATABlf A$SEM&LV 12656 


16 


030*1 


000-6 


1659U 




BTM 


ULTPUT ,PMAbfcA 


12666 


I? 


09666 


- 3*08 


16600 




TF 


AD0C0*,AI)0RS 


12680 


26 


02528 


03299 


1661 




QTM 


C U ST , t* 12 


12692 


17 


07*36 


J2 70* 


16620 


• 














1 6630 


• 


SET ACDRESS COUNTER TO NEta 


VALUE 








166*0 


• 














166*J 




SM 


AODCOw.1,10 


12 70* 


12 


02528 


000- I 






T0 M 


INPLT2, 1,11 


12 716 


I 




OCOO J 


16670 




BNF 


•♦2*,ADDC0W 


12728 


** 


12752 


02528 


16680 




TFM 


ADDCOW, 99999 


127*0 


16 


02528 


R9999 


16690 




8 7 


UAC 3-20 


12 752 


49 


12016 




16700 


DENCC 


TFM 


CFF A.CA50CF 


12760 


16 


02629 


J278* 


1671 J 




81" 


CFF.OEND 


1 2 7 72 


1 7 


C2592 


J0920 


16720 


CA5CCF 


CCA 


y O,A5OA0,A5SCT, 1NSTRN 


1278* 




1* 








0J8 / 37- 3 1J02S6 










16750 




CC 


1 , ' 


1 2 798 




1 




1 67*0 


• 


CEFINE CONSTANT A NO DEFINE 


SPEC I AL CONSTANT 








16750 


• 














1 6760 


DC 


tcm 


INPLT 2 , 2,11 


128CG 


15 


030*0 


CCOOK 


16770 




T C 


OC - I » ZE PQ ♦ 28 


128 12 


25 


12799 


02328 


16780 




t r 


I N P L T ? ♦ 6 » Z E P Q ♦ 2 9 


1282* 


26 


030*6 


02329 


16790 




BTM 


EVALAD,«* 12,* 


12836 


I 7 


05MO* 


128*8 






TF 


LNTH.ADDRS 






02 36 7 




16810 


CCQN 


TFM 


XfMpR, -00001 


12860 


16 


02571 


-OOOJ 


16820 




AM 


TEMPR , 1 


12872 


11 


02571 


-CCOl 


16830 




TR 


1NPIT+19, INPUT>21 


1288* 


31 


02906 


02908 


168*0 




ONR 


CCN2-36, INPUU20 


12896 


*5 


12976 


C2907 


16850 




CM 


TFMPR ,0 


129C8 


I* 


0257 1 


-0000 


16860 




BNf 


CC N 2 


1292C 


*7 


13012 


C1200 


16870 




TFM 


EVALER-1, 9C000 


12932 


16 


707 1 


ROCOO 


1 6880 




OC 


I , * , • 


129* 3 




1 




16890 




B T 


EPS INT, EPRINT-'l 


129** 


27 


7 3 32 


C 7 3 3 1 






BU 


EKCOR, ERSTSW 










16-UQ 




b 7 


CCN2 


12968 


*9 


13012 




16920 




CM 


INPLT*20, 23,10 


12976 


1* 


C2907 


0C0K3 


16930 




BH 


CCON* 12 


12988 


*6 


12872 


Ci 100 


169*0 




Bl 


CC.CN* 2* 


130C0 


* 1 


1288* 


i 300 


16950 


CCN2 


r 


T£.mpk, lNTm 


no 1 2 


2* 


025 7 1 


2 J 8 7 


16960 




BNP 


t 4 1 r, 


no2* 


* 7 


1 308* 


Ql 100 


16970 




TFM 


EvALFRt-li 170C0 


1 30 36 


16 


7Q 71 


J /OOO 






Ct 


I » ' i * 










16990 




BT 


{-PR INI , 6PR I NT- 1 


t 


27 


07 332 


073 3 1 


I 7000 




HC 


t'RCOR, ERSTSW 


1306C 


* 3 


7 196 


02*76 


I 7010 




IF 


1 NTH, TEMPR 


1 107? 


2 6 


02387 


02571 


I 7020 




CM 


L N T H , S I 


noa* 


1 * 


02387 


-CC51 


1 70 3 




BN 


•♦72 


i 3096 


* 7 


I 3168 


o ; j00 


1 70*0 






;■ vfii ;, ft- 1 , 8CCC0 


moo 


16 


Q70 7i. 


occoo 


i 7u50 




I. C 




nii9 




1 




\ ?OfcC 






t PR In T , E PR I NT- I , , 


E R 8 LENGTH TLC 8 10 1U20 


27 


C 7 3 3 2 


C 7 i 3 I 


I 7070 






ERCCR, ERSTSW 


13132 


*3 


7196 


02*76 


i 7080 






LMh, Q0Q50 


.131** 


16 


2 387 


-0050 



16 20-14*3 MCNITUR I VERSIUN 2 SPS ll-C PHASE A PAGE 



1 7090 




r c m 


TEMPR, 5b 




i 3 i 5 6 


16 


0257 1 


-0050 


I 7 1 GO 




B 1 M 


E v A L A D , •* 12, 5 




1 31 6 H. 


17 


05*~* 


13160 


ifUO 




ir 


t.DA8S*,RL0CS* 




n i a c 


?5» 


08036 


08035 


17 120 




BNF 


CCN J, BSw 




[ilk 2 


** 


1 32 76 


08037 


Wl 30 




TCM 


I A R S m , i , 1 1 




i 3/C* 


15 


080.36 


QGOOJ 


1 71*0 




T F 


AU:.« S » AQDCOw,, 


MACHINE ASSIGNS ACURESS 


13216 


26 


03299 


02528 


i 71 50 




AM 


AOORS , I 




I 1228 


M 


3299 


-COO I 


I 7160 




A 


AC CCU N, LNTH 




l 32*0 


21 


02528 


02387 


17170 




bC 


•♦2*, DC- I 




1 32*2 


* i 


1 32 76 


12799 


17180 




T f 


AOIMS, ADDCQ* 




i 326* 


26 


03299 


G2528 


17190 


CCN 3 


SF 


TFMPR - l 




i nib 


3 2 


02 5 70 


CCCOC 


1 7200 




TF 


1NPLT2**, TEMPR 




l 3288 


26 


30** 


0257 1 


17 2 10 




H7 


DAC2-32 




I 3300 


*9 


1200* 




1 7220 


USA 


TFM 


LNTh, OCOOO 




13 308 


16 


02 387 


-OCOO 


1 72 30 




t3 7 


S A I 




i 3 32 


*9 


133*0 




I 72*0 




TR 


INPITU9, INPUT*2l 




13328 


31 


02906 


2908 


I 7 2 50 


OS A I 


BTM 


t VAL Al) , * 11 




I ',3*0 


1 7 


05M0* 


1 3 35K 


1 7 260 




AM 


I N T f- » 5,10 




13352 


1 1 


02387 


000- 5 


1 72 70 




ONR 


•-36, INPUT + 20 




1 life* 


*5 


1 3328 


02907 


1 7280 


CSA2 


CM 


L.NTF-, 0050 




1 J 3 76 


I* 


02 387 


-0050 


1 7290 




BH 


EROS* 




1 3386 


*6 


13516 


01 100 


1 7300 




TF 


ADuKS, AOOCO* 




13*00 


26 


03299 


02528 


1731U 




AM 


A D D R S » 5, 10 




13*12 


I 1 


03299 


000- 5 


1 7 320 




A 


ACrCOw, LNTH 




13*2* 


21 


02528 


02 387 


I 7 3 30 




TCM 


INP0T2, 1 




13*36 


15 


030*0 


00001 


| 73*0 




BNF 


OAC3-32, ZfcPO*28 




13**6 


** 


1200* 


02328 


1 7 350 




AM 


AODCQn, 19,10 




13*60 


1 I 


02528 


CC0J9 


1 7 360 




Sm 


ACORS, 5 




n*72 


12 


03299 


-C005 


1 73 70 




TOM 


INPLT2, 0*11 




13*8* 


15 


030*0 


OCOO- 


1 7380 




BTM 


CTEST , • ♦ 12 




1 3*96 


I? 


07*36 


J3508 


1 7 390 




B 


LDLBL 




135C8 


*9 


08*1* 


OCOOO 


I 7*00 




nunc 


t- 3 




13516 








1 7*IU 


ERCSA 


TFM 


EVALER-1. ,60000 




13516 


16 


07071 


OCOOO 


1 7*20 




DC 


it * i* 




13^27 




I 




\ 7*30 




8T 


E PR INT.EPR INT- ! 




13126 


27 


7332 


07331 


17**0 




80 


ERCQR, ERSfSW 




135*0 


43 


07196 


02*76 


1 7*50 






LNTH, 0CO50 




13552 


16 


02387 


-C050 


I 7*60 




3 7 


D S A 2*2* 




13564 


49 


13*00 




17*70 


• 
















17*80 




UPFRATION CODE TABLE 












1 7*90 


« 
















1 7 500 


A 


OC 


5, * 1 2 10, , 


AGO A 


13575 




5 








W1210 












17510 




rc 


5,62220i. 


Sta TRACT 5 


13580 




5 






















m?c 






W30. , 


MULTIPLY M 


13585 




5 


























VL 


^,*«290.f 


0! VIDE D 


13590 




5 






















1T540 






S,*'32«0», 


COMPARE C 


13595 




5 








M 52*0 












! 74 >0 




OC 


t - f " . » , 


BRANCH 8 


13600 




5 






















« ""MC 






i< 


CONTROL. K 


13605 




5 





162C-1443 MONITOR I VERSION 2 SPS !l-0 PHASE A 



175 70 


DC 5 » 4 8480 » » 


HAL 1 


H 


13610 












17580 


UU 5 i bLUUU i i 






13615 




OOOCO 






1 3620 


I 7590 


DC 5 » 6COO0 , i 


DUMMY UP COCc 






C 








i 7600 


DC 5 » ' 






1 3625 




- OCC • 








17610 B 


DC 7 t 4 1 54 1 10 » , 


ADD IMMtClATt 


AM 


1 3632 




* I 5 4 I I C 








1 7620 


DC 7 » 6 254 1 20 » » 


cna ifiir i i mmct l nr 
bUBrHALI ll , PfcUl»»Tt 




1 36 39 




I) I 5 *• 1 i 








1 7630 


DC 7,5454130,, 




MM 


1 3646 




H 4 5 4 1 30 








1 764 XB7 


CC 7 i 4 2 7 7490 , i 


i_r o ao ALT u 


6 7 


1 365 3 




* 2 7 7 4 9 








1 7650 


DC 7 » 4 354 1 40 » » 


L U ™ K ■ K fc 1 ^ * c L 1 fll C 


CM 


1 3 660 




M 3 54 1 4 C 








I 7660 


CC 7.63442 50 if 


I R ANbM 1 1 U I U I 1 


T D 


1 366 7 




344250 








17670 


CC 7 i 6 346260 t i 


TRANSMI T FIcLC 


| F 


1 36 74 




U 346260 








1 7680 


DC 7 » 6 359 3 1 » » 


, n a c u f t ocrpon 
IHANbMl I RrCUKU 


T R 


1 368 1 




35 9 3 10 








I 7690 


DC 7 . 4 26 32 70 i » 


BRANCH ANC TRANSMIT 


_ _ 


1 3fe8fl 




M 26 32 70 








1 7700 


CC 7 , 4 24 24 20 » , 


BRANCH BACK 








M 2 4 2 4 2 








17710 


DC 7 t 6 246 320 t i 


SE T Ft AC 




1 3 702 




0246 320 








1 7720 


DC 7 , 4 346 3 30 » » 


CLEAR FLAG 








M 346 3 30 








1 7730 


DC 7 ♦ 04467 lOt i 


MOVE FLAG 




... 
13 




N4467 IC 








I 7740 


CC 7 , 4 2444 30 , » 


BRANCH DIGIT 


BD 


1 372 3 




M24<«4 30 








I 7750 


DC 7 » 4 249460 t t 


BRANCH INCICATQR' 








M249460 








I 7760 


DC 7,4253137,, 


BRANCH LQh 




1 373 7 




M 2 5 3 I 3 7 








1 7770 


DC 7,4255137,, 


BRANCH NtGATIVfc 




, 744 




M 2 5 5 I 3 7 








I 7780 


DC 7 , 4 248 1 16 , , 


BRANCH HIGH 


HH 


1375 1 




M246 1 16 








I 7790 


DC 7,42571 16, , 


BRANCH POSITIVE 


BP 


1 3 758 




M257 1 16 








1 7800 


CC 7 , 4245 1 26 , , 


BRANCH EQLAL 


BE 


1 3 765 




H245126 








17810 


DC 7,<.269l26,, 


BRANCH ZERO 


«z 


I 3 7 72 




M269126 








17820 


DC 7,4265146,, 


BRANCH OVERFLOW 


BV 


1 37 79 




M265146 








17830 


DC 7,4241196,, 


BRANCH ANY C A T A CHECK 


B A 


1 3 766 




H241 196 








17840 


DC 7,-4256704,, 


BRANCH OUT, L AO IR3 


BO 


1 3793 




M2567CM 


1 < 


1 






162C-1443 MONITOR 


I VERSION 2 SPS I I ~ C PHASE A 






17850 XCS 


CC 7, 44620 1 5 , , 


DEFINE SYMBOL 


DS 


13800 




M462015 








1 7860 


DC 7 , -444 3005 , , 


DEFINE CONSTANT 


CC 


I 3807 




M44300N 








17870 


DC 7,-4641031, , 


flcating acd SUB. 


F A 


138 14 




M64 1 3 J 








1 7880 


DC 7 , -466202 1 , , 


FLOATING SUBTRACT SUB. 


F S 


13821 




M6620? J 








1 7890 


DC 7,-4654041,, 


FLOATING MULTIPLY SUB. 


FM 


13828 




M65404J 








1 7900 


CC 7 , - 464405 1 , , 


FLOATING CIVIOE SUB. 


^0 


13835 




M64405 J 








17910 


DC 7,5344280,, 


LCAD DI VI DEND 


LD 


1 384 2 




N34428C 








1 7920 


DC 7, 44541 90 


DIVIDE I MMEC I ATE 


DM 


I 3849 




M454 190 








1 7930 


DC 7,-6241412,, 


SELECT ADDRESS 


S A 


1 3856 




024 141K 








1 7940 


DC 7,-5452614,, 


MASK INTERRUPTS 


MK 


1 386 3 




N4526 IM 








17950 


CC 7,6252412,, 


SEEK 


SK 


1 3870 




02524 12 








1 7960 


DC 7,5955360, , 


READ NUMERICALLY 


RN 


13 877 




N955360 








1 7970 


DC 7 , 594 1 370, , 


READ AL PHAMER I CAL I > 


R A 


1 3884 




N94 1 370 








1 7980 


DC 7, 4455350, , 


DUMP NUMERICALLY 


ON 


13891 




M455350 








1 7990 


CC 7,6655380,, 


WRITE NUMERICALLY 


WN 


1 3898 




0655380 








180C0 


DC 7,6641390,, 


WRITE ALPHAMER I CALL Y 


W A 


13905 




064 I 390 








18010 


DC 7,-4444263, , 


DEF INE DI SK 


CD 


13912 




M44426L 








18020 


CC 7,6060000,, 


DUMMY OP CODE 




13919 




0060000 








18030 


DC 7,6060000,, 


DUMMY OP CODE 




13926 




O06CQ00 








18040 


CC 7,6060000,, 


OUMMY OP CODE 




13933 




0060000 








18050 


DC 7,6060000,, 


DUMMY OP CODE 




13940 




006C000 








18060 


DC 7,' 






1 3947 




-00000' 








18070 C 


DC 9,634654160, , 


TRANSMIT FIELD IMMECIATE 


TrH 


1 3956 




034654 160 








18090 


DC 9,634454150,, 


TRANSMIT CIGIT IMMECIATE 


TOP 


13965 




034454150 








1 8090 






BNF 


13974 




M25546440 








18100 


OC 9,425559450,, 


BRANCH NO RECORD MARK 


BNR 


11983 




M25559450 








18110 


OC 9,425549470,, 


BRANCH NO INOICATOR 


BNl 


13992 




M2554947C 








18120 


OC 9,425548117,, 


BRANCH NOT MJGH 


BNH 


14001 




M25548117 







1 M.2- 



162C-1443 NOK! IQR . I VEBS1UN 2 SPS I I - C PHASE A 



i a l 3 




CC 9, 42555 71 1 7 , , 


BRANCH NOT POSITIVt 


BNP 


1401C 






M2555 M 1 7 








IBhQ 




DC 9,425545127,, 


BRANCH N0 I EQUAL 


BNE 


14019 






*25545 1 2 7 








18150 




DC 9,425569127,, 


BRANCH NOT ZERO 


8NZ 


14028 






"25569127 








18160 




DC 9,425553136,, 


BRANCH NUT LCW 


8NL 


14037 






H25553 I 36 








18170 




DC 9,425555136,, 


BRANCH NOT NECAT I VE 


8NN 


14046 






*25555 1 3t 








18180 




CC 9,426765156,, 


BRANCH EXPONENT CHICK 


BXV 


14055 






M26765 156 








18190 




DC 9,425565147,, 


BRANCH NO OVERFLOW 


8NV 


14064 






M2556 1 ) 14 7 








182CQ 




DC 9,42554 1197,, 


BRANCH NOT ANY CATA CrtCK; 


BN A 


14073 






. »«2554 I 19 7 








182 10 




CC 9, 425343096, , 


BRANCH L AST CAR C 


BLC 


14082 






M253430S6 








18220 




HC 9,42437 1016,, 


BRANCH CCNSCLE SWl TCH 1 ON 


BCl 


14091 






■ M 24 3 7 1 1 1 








18 2 3 




DC 9, 424372026, , 


BRANCH CONSOLE SWITCH 2 GN 


8C2 


14 ICO 






H24372026 








18240 




CC 9,424373016,, 


BRANCH CCNSCIF S N I TCH 3 CN 


BC3 


14109 






" 24 37 30 3fc 








18250 




DC 9,424374046,, 


BRANCH CONSOLE SWITCH 4 ON 


BC4 


14 118 






*2437404t 








18260 




DC 9,426354170, , 


BRANCH AND TRANSMIT, JMM. 


8TM 


14127 






"26 354 1 70 








1 82 70 


X8B2 


Dt 9 , 424272420s , 


2-CHAR. BRANCH BACH 


B02 


14 136 






M2427242C 








18280 




TC 9,-645452604,, 


UNMASK INTERRUPTS 


UMK 


14145 






U4545260M 








18290 




DC 9.55565741C, , 


NO OPERATION 


NOP 


14154 






N556574 10 








18300 




DC 9,-444965011,, 


DIVIDE SUB. 


01 V 


14163 






"449650 1 J 








18510 




DC 9,-46456711 1 , , 


FLOATING NATURAL EXP. SUB. 


FEX 


14172 






M645671U 








18320 




DC 9,-465355131,, 


FLOATING NATURAL LOG. SUB. 


FCN 


14 181 






M6535513J 








18*30 




CC 9, -635941003, , 


TRANSFtR TO LOAD 


TRA 


1419C 






035941001 








18340 


XCSS 


DC 9,446262115,, 


PE F I N6 SPEC I AL SY"BCL 


ess 


14199 






M46262 1 1 5 








1 8 350 




DC 9.-4462431G5, , 


OEF INF SPECI AL CONSTANT 


DSC 


1 4 2 08 






M462431CN 








18360 




DC 9,-444162145,, 


DEFINE ALPHA SYMBOL 


CAS 


14217 






*4416214N 








1 8 370 




DC 9,-444143125,, 


U6F INE ALPHA CONSTANT 


DAC 


1 4226 






M44 14 312N 








1 8 380 




DC 9,-445241035,, 


DEFINE SYMMCLlC ADDRESS 


DSA 


142 35 






M4624103N 








1839C 




l,C 9,- 446242065,, 


PEF INE SYMBOLIC BLOCK 


DSB 


14244 






" 4 6 2 4 2 C 6N 








184CU 




DC 9,445542005,, 


DEFINE NUMERIC 8LAf>K 


CNB 


14253 






M45542CC5 














I '» J 










1620-1443 MONITOR 


I VtRSlON 2 S?S I I-C PHASE A 






18410 




CC 9,-444754075, , 


DEF I NE GROUP MARK 


DGM 


14262 






M447540 7N 








18420 




DC 9,425547550, , 


BRANCH NO GROUP MARK 


BNG 


14271 






M2554755C 








1 84 3 




CC 9,634344018,, 


TRANSFER 10 PROCESS 


TCC 


14 230 






34 3440 18 








» 8440 




DC 9,425659401,, 


BRANCH OUTPUT RECORD MARK 


BOR 


14289 






"2565940 1 








18450 




CC 9,425945411,, 


BRANCH ENC OF RECORD 


BRE 


14298 






"259454 1 1 








18460 




CQ 9,425443421,, 


BRANCH MOCE SHIFT 


BMC 


14307 






"2544342 I 








1 8470 




CC 9,42495944 1,, 


BRANCH READ INPUT READY 


B I R 


143(6 






M2495S»44 1 






18480 




DC 9,424342461, , 


BRANCH SIOC CHANNEL BUSY 


BCB 


14325 






"2434246 I 








18490 




DC 9.62419684C,, 


SELECT ADDRESS AND OPERATE 


SAC 


14 3 34 






02415684C 








185C0 




DC 9,596355662,, 


READ DISK TRACK NUM. W/0 GP. PK . 


RTN 


14343 






N96355662 








18510 




DC 9,594455622, , 


READ DISK WITHOUT GROUP MARK 


RON 


14352 






N94455622 








1B52G 




DC 9,666355862,, 


WRITE DISK TRACK NUM. W/0 GP. MK . 


WTN 


14361 






066355862 








18530 




CC 9,664455822,, 


WRITE DISK WITHOUT GROUP MARK 


WCN 


14370 






064455822 








18540 




DC 9,436355672,, 


CHECK DISK TRACK NUM. W/0 GP. MK . 


CTN 


14379 






H36355672 








18590 




DC 9,434455632, , 


CHECK DISK WITHOUT GROUP MARK 


CCN 


14 368 






M34455632 








18560 




CC 9,634693060,, 


TRANSMIT FLOATING 


m 


1439? 






Q34653C6C 








18570 




DC 9,466293090,, 


FLOATING SHIFT LEFT 


F$L 


14406 






M66253050 








16580 




DC 9,466259080,, 


FLOATING SHIFT RIGHT 


FSR 


14415 






W6625908C 








18590 




DC 9,635562720,, 


TRANSM1 T NUMERIC STRIP 


TNS 


14424 






035562720 








18600 




DC 9,635546730, , 


TRANSMl T NUMERIC FILL 


TNF 


14433 






035546730 








18610 




DC 9,-444441073,, 


DEFINE DISK ADDRESS 


CCA 


14442 






M4444107L 








18620 




DC 9,534494180, , 


LOAD DIVIDEND IMMEDIATE 


I DM 


14491 






N34454180 








18630 




DC 9,-474963013,, 


IOCS READ 


GET 


16460 






W7456301L 








18640 




DC 9, ~57fe463Q23» , 


IOCS WKi TS 


PUT 


14469 






N76463021 








18690 




DC 9,-4*6355053, , 


DEFiMt TYPEWRI TER NUMERIC 


OTN 


14478 






M4635505L 








18660 




DC 9,-444399253,, 


OEF INI CARD NUMERIC 


OCN 


1648? 






R4434925L 








18610 




DC SJ, -446341 353, r 


06 c INE TYPEWRITER ALPHA 


PTA 


16496 






W4634U5L 








18680 




DC 9,-iHMH« s , 


DEFINE CA*0 ALPHA 


OCA 


14*05 



**4 34155t 





1620- 1443 MOM TOR 


I VERSION 2 SPS 1 I -C PHASE A 






18690 


DC 9,-444466063,, 


DEFINE 01 S* WITH WLRC 


COM 


14514 




M4446606L 








167C0 


DC 9.-575944783, , 


PRIMER DUMP PRO 




14523 




N 75944 781 








18710 


DC 9, -575955883m 


PRINTER NUMERIC PRN 




14512 




N7595588L 








18720 


DC 9.-575941983,, 


PRINTER ALPHA PR A 




14541 




N7594198L 








18730 


DC 9,6060600CC, , 


DUMMY OP CODE 




16550 




006060000 








18740 


DC 9,606060000, • 


DUMMY OP CODE 




14559 




0060600C0 








18750 


DC 9,606060000,, 


DUMMY OP CODE 




14568 




006060000 








18760 


PC 9,606060000, , 


DUMMY UP CODE 




14577 




0060600CC 








187 7G 


DC 9,606060000,, 


DUMMY OP CODE 




16586 




006060000 








18780 


DC 9,60606'OGQC', « 


DUMMY OP CCCE 




14595 




0060600CC 








18790 


DC 9 , • 






14604 




-0000000' 








18800 


CC 11,42554371017, , 


BRANCH COSSCLE SWITCH 1 OFF 


BNCl 


14615 




"2554371017 








18810 


DC 11,42554372027,, 


BRANCH COKSCLE SWITCH 2 CFF 


BNC2 , 


14626 




M2554372027 








18820 


OC 11,42554373037*. 


BRANCH CONSCLE SWITCH 3 QFF 


BNC3 


14637 




M2554373037 








1883C 


OC 11,42554374047. , 


BRANCH CPSSCIE SWITCH 4 OFF 


BNC4 


14646 




M2554374047 








18840 


DC 11,42555343097,, 


BRANCH NOT LAST CARC 


8NLC 


14659 




M2555343097 








18850 


DC 11,42556765157,, 


BRANCH NOT EXPONENT CHECK 


BNXV 


14670 




M2556765157 








18860 


DC 11,59556368613,, 


READ NUMERIC TYPEWRITER 


RNTY 


14681 




N9556368613 








18870 


DC 11 » r i9555763633, , 


READ NUMERIC PAPER TAPE 


6NPT 


14692 




N9555763633 








18160 


DC 11 66556368813,, 


WRITE NUMERIC TYPEWRITER 


WNTV 


147C3 




06556368813 








18890 


DC 1 1 ,66555763823, • 


WR 1 TE NUMERIC PAPER TAPE 


WNPT 


14714 




06555763823 








18900 


CC 11,44556368513,, 


DUMP NUMERIC TYPEWRITER 


ONTY 


14725 




"4556368513 








18910 


DC 11, 44555763523, , 


DUMP NUMERIC PAPER TAPE 


CNPT 


14736 




M4555763523 








18920 


DC 1 1,59416368713, , 


READ ALPHA TYPEWRITER 


R AT Y 


14747 




N9416368713 








18930 


DC 11,59415763733,, 


RE AO ALPHA PAPER T A n E 


RAPT 


14758 




N9415763733 








18940 


CC 11,66416368913,, 


WRITE ALPHA TYPEWRITER 


W AT Y 


14 769 




U64 1636891 3 








18950 


DC 11,66415763923,, 


WRITE ALPHA PAPER TAPE 


WAPT 


14780 




06415763923 








18960 


CC 11,66414344943,, 


WRI TE ALPHA CARC 


WACO 


14791 




06414344943 












1 5 








1620- 1443 MONl TGR 


I VERSION 2 SPS I I - C PHASE A 






18970 


OC 11,59414344753,, 


READ ALPHA CARD 


RACO 


148C2 




N9414344753 








18980 


DC 11,44554344543,, 


DUMP NUMERIC CARD 


DNCD 


14813 




M4554344543 








18990 


DC 11,66554 344843,, 


WRI TE NUMERIC CARD 


WNCD 


14 824 




06554344843 








19000 


DC 11,59554344653*, 


READ NUMERIC CARO 


RNCO 


14835 




N9554344653 








19010 


OC 11,63426368184,, 


TABULATE TYPEWRITER 


TBTV 


14846 




034^26368184 








19020 


DC 11,59436368124,, 


RETURN CARRA1CE TYPEWRITER 


RCTV 


14857 




N9436368124 








19030 


OC 11,62576368114, , 


SPACE TYPEWRITER 


SPTV 


14868 




02576368 1 14 








19040 


DC 11,59634755642,, 


READ 01 SK TRACK NUM. W/GP. MK • 


RTGN 


14879 




N9634755642 








19050 


DC 11,59444755602*, 


READ DISK WITH GROUP MARK 


ROGN 


14890 




N9444755602 








19060 


OC 11,66634755842,, 


WRITE DISK TRACK NUM. W/GP. MK • 


WTGN, 


14901 




066 34 755842 








19070 


DC 11,66444755602, , 


WRITE DISK WITH GROUP < MARK 


WOGN 


14912 




06444755802 








19080 


DC 1 1,43634755652, , 


CHECK DISK TRACK NUM. w/GP. MK. 


CTGN 


14921 




M3634755652 








19090 


CC 11,43444755612,, 


CHECK DISK WITH GROUP MARK 


COGN 


14934 




M3444755612 








19100 


OC 11,-42565344714,, 


BRANCH OUT, LOAD IR1 


BQCD 


14945 




M256534471M 








19110 


OC 11,-46625859061,, 


FLOATING SQUARE ROOT SUB. 


FSQR 


14956 




M662585906J 








19120 


DC 11,-46435662071,, 


FLOATING COSINE SUB. 


FCOS 


1496? 




M643566207J 








19130 


OC 11,-46624955081,, 


FLOATING SINE SUB. 


FSfN 


14978 




M662495508J 








19140 


DC 11,-46416355091,, 


FLOATING ARCTANGENT $UB. 


FATN 


14969 




M641635504j 






19150 


OC 11,-46456763101,, 


FLOATING EXP. BASE 10 SUB* 


Ff XT 


15CC0 




M645676310J 








19160 


DC 1 1.-46535647121 • , 


FLOATING LOG. BASE 10 SUB, 


FLOG 


15011 




H653564712J 








191 70 


OC 1 1, -46625962141,, 


FLOATING SHIFT RIGHT SUB • 


FSRS 


15022 




M662596214J 








19160 


OC 11,-46625362151,, 


FLOATING SHIFT LEFT SUB. 


FSLS 


15033 




M662536215J 








1*190 


OC 11,-63465362161,, 


TRANSMIT FLOATING SUB. 


TFLS 


15064 




03465362 16 J 








19200 


OC 11,46616644010, , 


FLOATING AOO 


FAOO 


45055- 




M.64 144440 10 








1*210 


OC 1 1,46626462020 t , 


FLOATING SUBTRACT 


FSUB 


15066 




M.6626442020 








1*220 


OC 11,46946653030,, 


FLOATING *UL?tPL¥ 


PNUL 


150?? 




M6546453030 








19230 


OC 11,46444965090,, 


FLOATING 01*1 OE 


FOIV 


15016 




M6444965090 








19260 


OC 11,42634653070,, 


BkANCH AND TRANSMIT FLOATING 


iTFL 


19099 




N2634653070 













lit • C 1 nki f CDC 1 i.r BUAtC A 






1 925C 


DC' 1 1 ? 6 2 5 3 595 5 8fc0 , # 




sl rn 


15110 




2 5 3 59 5 5 860 








|9260 


DC It »-*?63*662l 71 » , 


BR. AND TRANS* FiOAT. SUB* 


BTFS 


15121 




M 2 6 3*6 h2 1 7 J 










DC. 1 1 i - ** 6241 * 302 5 , , 


DEFINE SPECIAL ALPHA CONSTANT 


OS AC 


15132 




M*6 2* 1 1 * 30 2N 








1 9280 


DC I I » ~ **5659* 70 1 5 » • 


rt c c i n c n u I r. in 


DURG 


* 




M456594 701N 








1 9? 90 X A O 


f - C li,-*8*5*l**385f 


HE 


HE AD 














I 9 500 






SAVE 


15165 




Ut* 165* JlUr 








WHO 


<■■> <- 1 l I "OlDtO Jj")v t l|| 




R$ T R 


15176 




ili0(0 Ji'iUII' 




■ 






p r ii 4 ?s^A(04m . . 

< - V l 1 i 1c ^DIDlilUi f | 




8N0R 


■ 

1 51 87 




* 2 555659*0 1 








1 9 3 3C 


DC 1 1 t * 2 5 5 59* 5* 1 1 « , 


■ gi i^r hi kin i k n ni ocrran 


AN Rc 


15198 










193*0 






8NMC 


I 52C9 




M 2 5 5 5* * 3 4 ? I 








19 3SC 


CC 1 I » * 2 5 5 *95 9*4 I » , 




BN I R 


15220 




W C# ^ , *T7 > *",**1 








19 360 


PC II 4H1Sm;iAI 

Iv V* 1 I i lit J^7<(^1»01 | | 




BCNB 


15231 




M)lKU)ii.l 
^ t *♦ T 3 V *, £ «* O I 








19)70 


L V* 1 1 i 0< M1l1*tOD(|| 


(ci cr r inr Akin i kraf mcut 


SL AP 


152*2 




H J £ 1 4. 1 L. L. L. A. 

U £ !> 3 "t 1 * * « O K> 








1 9380 






IN I C 


1 5253 




"1 t — j *» 7 M 3C5A 










UK. 1 l i "Oil 1<I ]}0<l(^ | | 


Ultl 1 AUUKfcii AND LLM III UPcK, 


SAC0 


1 526* 




02*l*35h*2K 








00 




it I * AU0Ki,*H<0 rHUVlUE UUIPUT i 1 » 


VA0S 


152 75 




f) 3 4* t C A. A. 4. 1 








1 9 * 1 Q 


nr ii k k h 1 1 1 ) 
uu i 1 i o<3 Jo lileu i i 


Sfi LeC T t AS 


SL T A 


1 5286 




025 36 3* 16 IK 








19*20 


U <- 1 1 t - o ^ 3 > s 1 } w c» < <c» » 


ccicrf a nr ucr if f cb 


SL AR 


15297 




253* 1 5 9 6 2K 










uV. lit D(>30]130'«|| 


SELECT REAL-TIME CLCCK 


SL TC 


1 5 3C8 














Uw I u^Oc ? jIj^cO i( i 1 


cc i cr t rriMTArr m r^ir 


St VB 


15 319 




0253*1*26 7* 








1 9* SO 


DC ll»-fc?535**56 82»» 




>L 


1 53 30 




1)25 3 5 * * S 6 8 K 










U I, 1 I |-r)t JJIllJCjf | | 


cc i cr l imqi.t ruiiikici 


SL I C 


15 3*1 




1)253*9* 3 h 5 K 








U I. 1 1 i - T H * I * H * 3 f 5 < t « 


READ ALPHA INPUT CHANNEL 


RA I C 


15 352 




N94 1494 3 75K 








I »0 




uditc uiimcq rr niirfjiiT rbikiLci 
wK 1 1 1 iNU^t K I UU I I L HANNfc L 


WNUC 


I 5 36 3 




i f > 5 5 5 6 * 3 8 5 K 








Q 


u\* i i t 'ooi noi 3i 3f i i 


WOT TP AlDUA riiTDiir ruAi.uci 


WA0C 


15 3 7* 




Q6*156*395K 








19500 


DC 11 , -*3* 15353033. , 


CALL IOCS UR EXEC PUG. ROUTINE 


CALL 


15385 




M 3* 1 y}5 i G 3 L 








19510 


CC H , -6245*552043, , 


ICCS SfcEK DISK 


SEEK 


15 396 




02*5*5^^0*1 








19520 


DC I 1 ,-**V76 3*l*53, , 


DEFINE PAPER TAPS ALPHA 


QPT A 


15VC7 




►1*5763*1*51 







19530 
195*0 
I 9550 
1956G 
1957Q 
19580 
19590 
19600 
19610 
19620 

196 30 
196*0 
19650 
19660 
19670 
19660 
19690 
19700 
19710 
19720 
19730 
197*0 
19T50 
14760 

197 70 
19780 
19790 
19«00 



OC 11, ^'.^'^"d^j, 

M*5 7..V35SlLa 

!"C. \ l ,-**65'.> 3* 31 85 , 

H*6S 4 >3* 3 IriN 

DC I 1 V-**5**562085. 

M*5**56?G8N 

DC 1 1 , *2*3*879136, , 

M2* 3*879 3 36 

DC 1 li*?V356653*6. i 

M2*3 f Jt651*6 

CC. I 1 , ***555**008, , 

M**555**C08 

DC 1 I ,-**575955753 » 

m*5 75955 751 

DC 11 ,-**5759*1953 t 

M*5759*195L 

TC 1 1 ,-6252*957083, 
0252*957081. 
DC 1 l*-6252*157l 83, 
0252*15 71.8L 
DC 11,-6257*95*283, 
0257*95*?«L 
DC 11,-6257*157383, 
0257*15718L 
DC 11,-5 759**62*83, 
N759**62*8L 
DC 11,-57595562583, 
N759556258L 
DC 11,-5759*162683, 
N 759* l*»268L 
DC 11,60606060606,, 
006Q6C6C606 
0C 11,60606060606,, 
00606060606 
DC 11,60606060606,, 
00606060606 
0C 11 ,60606060606 , , 
U060606U606 
DC 1 1, 60606060606 >, 
00606C6C606 
DC 11,60606060606,* 
00606060606 
DC 1 1 ,60606060606 1 » 
006060&0606 
DC 11,60606060606** 
0060606C606 
DC 11,6060^060606,, 
006 060*0606 
DC i, I .C0feC*C*£i60<3t » 
O0fcO!S060&06 
DC I ) ,6060606060* , , 
00&06a£.0!>06 
DC i;»60f4606C606»i 

PC i I »: ' 



t VLRSIUN 2 SPS I I -r PHASE A 
DEFINE PAPER TAPE NUMERIC 
DEFINE VARIABLE LENGTH CONSTANT 
DEFINE MESSAGE 
BRANCH ON CHAN 9 BCH9 
BRANCH ON CHAN 12 8C0V 

DEFINE ENC 
DEFINE PRINTER NUMERIC OPRN 
DEFINE PRINTER ALPHA OPRA 
SKIP PRINTER 1MMECIAIE SKIP 
SKIP PRINTER DELAY SKAP 
SPACE PRINTER IMMEDIATE SP1H 
SPACE PRINTER CELAY SPAP 
PRINTER PUMP NO SPACE PROS 
PRINTER NUMERIC NC SPACE PRNS 
PRINTER ALPHA NO SPACE PRAS 



DPTN 
OVLC 
CMES 



15*18 
15*29 
15*.*0 
15451 
15*62 
15*73 
15*8* 
15*95 
155C6 
15517 
15528 
155,39 
15550 
15561 
15572 



DUMMY 


UP 


COOf 


15583 


DUMMY 


OP 


CODE 


15594 


DUMMY 


UP 


CODE 


15605 


DUMMY 


OP 


COOI 


15616 


DUMMY 


OP 


CODE 


15627 


OUMMY 


OP 


COOf 


19631 


OUMMV 


DP 


CODE 


156*9 


QUMMY 


OP 


COOf 


15460 


DUMMY 


OP 


COOf 


19471 


DUMMY 


OP 


COOf 


1941? 


DUMMV 


OP 


COOf 


15691 


Ou»«Y 


OP 


CQQf 


19704 



19719 



hi* 









1620-1443 MONITOR I VERSION 


2 


SPS 


1 1 -C PHASE A 








PACE 


198 1 


FILE 


34 


FDCF, 0Q701 








15716 


34 


15744 


00 701 


14820 




38 


FOCF, 0C702 








15728 


38 


19744 


CO 702 


198)0 




TRA 










15740 


16 


00000 


00500 
















15752 


49 


ooooo 


ccooo 


1 9840 


FCCF 


DOA 


, « A2DA0 , A2 SC T , 1 NS TRN 








15764 




14 








OJ8800-55J0256 
















1 9850 




TCO 










15716 








1 9860 




OORG 


I NS TRN 








1C256 








1 9870 


MACRO 2 


TFM 


GOOOB 3 ♦ 6 » B T BL 3 








10256 


16 


10298 


JO 304 


1 9880 




TO 


GOODS 3»ll»/EPO»29 








10268 


25 


1030 1 


02 329 


1 9890 




A 


GQUDB 1* 5 , GOUOH 3*11 










21 ' 


10297 


1Q3G3 


1 9900 


G00DB 3 


B 


• - • i 1 1 








1 0292 


49 


0.0. (MA 


000- 




BT BL 3 


8 


TRA i f i 








10104 


49 


10538 


OOOOO 


1 9920 




OORG 


•- I 








10314 








19930 







ioge t * 1 1 ♦ i 








10314 


49 


104 1 8 


ornoo 






OORG 


•~ 1 








10324 








19950 




B 


put, i« ♦ ? 








10324 


_ 


66 


ornoo 

UuUUU 






OORG 


•- 1 








1 C 3 14 


■ 






i ooin 




B 


PC ALL,,, 4 1 








10334 






roooo 


i QQ«n 




OORG 


• - 1 
















1999Q 




B 


SEEK,,, <4 








10344 




10642 


00000 






OORG 


• -1 








10354 








?nni a 




B 


CCARO,,, ♦* 








10)54 






OCCOO 


>nO?n 




OORG 


1 








10364 












B 


00X00,,, ♦ >> 










49 


1 1 142 


orr.oo 

U v w w V 


70040 




OORG 


•-1 








i r 114 

| ? |J 








3nn«n 




B 


DOA,,, ■ *7 










49 


12106 


ornno 

UC 


?nn4n 

\ fu\Vr\ 




OORG 


• - 1 








iri«4 












(J 


PRNT, , , • *6 








10184 




2 


ooooo 


?noAn 




OORG 


•-3 








10 392 








?ooqo 
Vr\\ no 


••• PRINTER BRANCH TABLE AND ROUTINES 
















Vr\ \ i n 


PRNT 


TFM 


PR N T 1*6 , B TBL4 








10392 


16 


10434 


J0440 






TO 


PRNTltll ,ZEP0»28 










25 




..... 


3A1 *n 




A 


PRNM*5 ,PRNTlfll 








10416 




10413 


10439 


ln\ \n 


PRNT I 


B 


•-•,,10 








10428 


49 




000-0 


>oi in 
In 


BTBL4 


B 


S* IP,,, *0 










4Q 


12584 


ooooo 


3ni In 




OORG 


•- 1 








1045C 












B 


SKAP,,, ♦ ! 








1045C 


49 


12596 


orooo 


dai a? 




OORG 


• - 1 








i nl!n 












B 


PKNT4,,, ♦ SPIM 










4 a 


12640 


ooooo 

UU UvU 


anion 
jninn 




OORG 


•- 1 








i n!l Jn 












B 


SPAP,,, ♦ } 








}«? a 




1262a 


nr nflfl 


n i n 




DURG 


1 








inian 








202 20 




B 


PRDS,,, ♦* 












12348 


uuuuu 


202 30 




UORG 


•- 1 








in on 
inlon 


: 






20240 




B 


PRNS,,, *5 












12 380 


nnnnn 
UUUUU 






OORG 


• -1 








i nsrn 












fa 


PR A Si , , *6 








in«iro 




12412 


uuuuu 


202 70 




OORG 


•t'I 








10510 








20280 




8 


PRD , , , ' ♦ 7 








1051C 


49 


12360 


CCOOO 


20290 




CORG 


•-1 








10520 








20300 




B 


PRN , , , ♦ a 








10520 


49 


12392 


ooooo 


20310 




CORG 


•- L 








10530 








20320 




B 


PR A , , , *9 






10!) 


10530 


*9 


12424 


OCCOO 


20330 




OORG 


•-3 ' 






105 38 














lft2C-1443 MONITOR I VERSIUN 


2 


SPS 


I rrf4>fc A 










20340 


• 


TRANSFER INSTRUCTION ROUTINE 
















203 50 


TR A 


TC 


•♦23.ADDCOW 










25 


10561 


02528 


20 360 




TO 


•♦23,AJUST 








» r«!«;n 




10573 


Q2399 


20 370 




AM 


AUUCOW, , 10 










* 




OCO-0 


20380 




TF 


AOURS, ADOCOW 










26 


n i)oo 




20390 




AM 


A0DCOW,41 








in«A4 


1 1 '. 


094911 

n«of l 


-C041 


2Q400 




TFM 


INPLT2M.50, 10 11 










16 




OOON- 


20*10 




B7 


MEXIT 








106, 10 


Vt 


1 OQO? 




2042 


IOGET 


TFM 


INPLt2*6,I0GT 








ir^in 






-0566 


20430 




BTM 


EVALAO, PUTSRJ, 4 11 










17 

■■ 


0«MO4 




20440 


SEEK 


TFM 


INPLT2*6, IUSK 








10642 


16 




-0554 


20450 




BTM 


EVALAO, PUTSRJ, 4 11 








10654 




ntn44 


1083- 


20460 


PUT 


TFM 


INPLT2*6,I0PT 










16 




-0532 


20470 




BTM 


EVALAO, •♦12, 4 11 








1 06 7 8 


1 7 


0*1104 

i i ai2 




20480 




BTM 


MACSHF.PUTSRJ 










I 7 




J0830 


20490 




CM 


INPUT*20,59,10 








10 702 


14 


9OAV 


000N9 


205C0 




BNE 


PUTSRJ 








10714 


?* 


i onto 


1200 


2 05 10 




BTM 


MACSHF, PUTSRJ 








1C726 


1 7 


11414 




20520 




CM 


INPUT»20,42,10 










14 


09007 


000M2 


20530 




BNE 


PUTSRJ 








10750 


^1 


10810 


1200 


20540 




BTM 


MACSHF , PUTSRJ 








1 0762 


1 7 


11816 


JO 8 30 


20550 




CM 


INPLT*20, 43,1Q 








i o J»4 




02907 


CC0M3 


20560 




BNE 


PUTSRJ 










4 7 


10810 


01200 


20570 




BTM 


MACSHF, •♦20 








10798 


1 1 


11816 


J0818 


20580 




B7 


PUTSRJ 








10810 


49 


10830 




20590 




TFM 


INPLT2*6, IORBC 








1 08 18 


16 


03044 


"0520 


20600 


PUTSRJ 


TO 


♦♦23,AD0COw 








108 30 


25 


10853 


02528 


20610 




TO 


•♦23, A JUST 








inacf 


25 


10845 


02399 


20620 




AM 


AOUCOW.,10 












0252 B 


000—0 


20630 




TF 


AODRStAOOCOM 








10866 


26 


03299 


02526 


20640 




AM 


AOOCOH v 23,10 








1CB78 


II 
* * 


02928 


04OK3 


20650 




TFM 


INPUT2*l,07, 10 








10890 




0304 1 


000-7 


20660 


HEX I T 


BTM 


CTEST.«*12 








10902 


IT 


07434 


J0914 


20670 




TFM 


CFFA,NQDCF2 








10914 


16 


02429 


JC936 


20680 




OTM 


CFF ,LDLBL 








1C926 


1 7 


02992 


"8414 


20690 


NCDCF2 


COA 


,0,A20AD,A3SCT, INSTRN 








10939 




14 








0J8800-29J0256 
















20700 




DC 


i,V 








10952 




* 




20710 


CCARO 


TO 


INPUT2*6,2EP0*28 










25 


03044 


02328 


20720 




TOM 


INPLT2*5, 0,11 








10044 


If 






20730 




A 


INPLT2*6 ? INPUT2*6 








iooti 


«i 


03044 


03046 


20740 




TFM 


INPUT2*l,05,lO 








10990 




03041 


000" 5 


20750 




BTM 


EVALAO • •♦12#4 








11 00 2 


if 


03M04 


11014 


20760 




TP 


DCAR0+19.BSW 








11014 


2) 


10973 


09037 


20770 




TO 


LDABSM, RLQCSW 








1 1028) 




04034 


08039 


20710 




TF 


TEMPR, AOORS 








1 1018 


24 


02971 


03299 


20790 




BTH 


EVAIAD V «*12,5 11 








1 1090 


11 


094*4 


1 104K 


20800 




TF 


AUORS, TEMPR 








11042 




03299 


02971 


20810 




BNF 


MEXIT, OCARD^ 19 








11074 




10902 


10973 


20820 




TDM 


LOABSW, It 1 1 








11014 


11 


08034 


00004 


20830 




AM 


A0OCOW,l,10 








UOtt 


11 


0292B 


000-1 


20840 




TF 


AOURS.AODCOW 








11110 


14 


03249 


02929 


20850 




AM 


AOOCOW.7,10 








11122 


11 


0IS2I 


000*7 


20860 




B7 


MEXIT 






110 


11114 


44 


14*02 




20870 


00* CD 


TOM 


INPUT2*5 t 0,ll 






11142 


19 


03049 


0000- 



162C- 1**3 MONITOR I VERSION 2 SPS I l-C PHASE A 



PAGE 



20880 
20890 
20900 
20910 
20920 
20930 
209*0 
20950 
20960 
209 70 
20980 
20990 
21000 
21010 
21020 
21010 
210*0 

210*0 PC AIL 

21060 

21070 

21080 

21090 

21100 

21110 

21120 

21130 

211*0 

21150 

21160 

21170 PCTR 
21180 

21 190 PCALL 1 

21200 

21210 

21220 

212 30 

212*0 

2125C 

2126C PCLPl 
212 70 
21280 
21290 PCC 
21300 
21310 
21320 
I i 30 
213*0 ER22 
21350 

21360 
21 370 
21 380 
21390 
21*00 

21*10 UTBl 



TO 

TFM 

BTM 

TO 

TO 

TF 

BTM 

BTM 

TF 

BNF 

TOM 



8NF 
SM 



BNR 

H7 

CM 

BE 

CH 

BE 



CM 
BE 

TR 

8 7 

CM 

BE 

TDM 

TR 

B7. 

SF 

TFM 

AM 

CM 

BNL 

C 

ONE 



TFM 

DC 

DT 

BD 

TFM 

TFM 

BTM 

DAC 

l ink 



INPU2*6i ZEPO*28 




11154) 


25 


030*6 


02 328 


INPUT2* l,05i 10 




11166 


16 


30*1 


000-5 


EVALAO, •♦ 12,4, 




11171 


17 


05M0* 


11190 


0CARO>19.BSW 




11190 


25 


10973 


08037 


LDABSHtRLOCSH 




11302 


25 


08036 


08035 


TEMPft , AOOR S 




1121* 


26 


02571 


03299 


E VALAO , •♦ 12 » 5 11 




11226 


17 


05*-* 


1123Q 


EVAt.AD,»*l2»5 11 




112 SB 


17 


05*-* 


1125- 


AODRSt TEMPR 




1 1250 


26 


03299 


02571 


MEX|T,0CARDM9 




1 1262 


** 


10902 


10973 


LOABSW, 1, 11 




112 7* 


is 


08036 


OOCO J 


AOOCOW.1,10 




11 286 


1 1 


02528 


000- I 


AOORS.AOOCUW 




11298 


26 


03299 


02528 


AUDCOM, 12,10 




11310 


11 


02528 


C00J2 


•♦2*,BSW 




11322 


** 


113*6 


0803 7 


AD0COM,5, 10 




1133* 


12 


02528 


OCO-5 


MFXIT 




113*6 


*9 


10902 




COLL- 18, THINGS- 2 C 




1135* 


31 


02*2 1 


02*00 


• ♦20, INPUU20 




1 1 366 


* 5 


1 1 386 


0290 7 


PC ALL I 




11378 


*9 


1151* 




INPLT*20,23,10 




11386 


I* 


02907 


OOOK 3 


PC ALL 1 




11 398 


*6 


1151* 


1200 


INPIWO.QO, 10 




11*10 


I* 


02907 


000- 


PC TR 




11*22 


*6 


1 1*9* 


01200 


COL L , INPUT* 20 




11*3* 


26 


02* 39 


02907 


COLL- 1 




11**6 


33 


02*38 


00000 


COLL- I 7, COL L^ I 5 




11*58 


) I 


02*22 


02*2* 


COLL- 17, 7, 10 




1 1*70 


1* 


02*22 


000- 7 


ER2 2 




1 1*82 


*6 


1 1686 


1200 


INP'lT*t9, INPUT + 21 




11*9* 


3 1 




02908 


PC ALL ♦ 12 




1 1 506 


*9 


11 366 




CCLL- I 7,06, 10 




1151* 


1* 


02*22 


000- 6 


• ♦** 




11526 


*6 


1 1570 


1200 


COLL , 




115 38 


1 5 


02* 39 


v v v V v 


CCLL- I 7, COLL- 15 




11550 


3 1 


02*22 


02*2* 


PC ALL I 




1 1562 


*9 


1151* 




COLL- 13 




1 15 70 


32 


02*26 


OCOOO 


PCCM 1,CLTBL*10-18 




1 15 82 


16 


1 16* I 


J 1 75 1 


PCCUl, 18.10 




1159* 


1 1 


1 16* I 


O0OJ8 


PCCUl,CLTBLH0O»l8 




1 1606 


I* 


116*1 


J1823 


E«22 




11618 


*6 


1 1686 


01300 


CGLL-2, •- • 




11630 


24 


2*37 


ccooo 


PCLPl 




1 16*2 


*7 


1159* 


1200 


PCC ♦ 11,5,10 




1 165* 


1 i 


1 16*1 


CCO- 5 


PCC ♦ I 1 




1 1666 


32 


116*1 


oocoo 


'PCC ♦ 11 » ,6 




116 78 


*9 


1 16* J 




EVALER-1, 27200 




11686 


16 


07071 


K7200 


I , • ,• 




11697 




1 




EPR INT.FPRlNT-l 




11698 


27 


C7332 


07331 


ERCOK, ERSTSW 




11710 


*3 


07196 


02*76 


INPUT2**, 06000 




11722 


16 


030** 


-6C00 


C F F A , NCOC F 2 




1173* 


16 


02629 


J0938 


CFF.SNUTCO 




117*6 


17 


02592 


-8*38 


6 , L INK , , , 


TABLE/VECTOR QF CALL STATEMENT 


1 1 759 




6 


X 2 



11 ! 



1620-1**3 MONITOR 1 'VERSION 2 SPS 1 I -€ PHASE A 
DSA CLL INK 



21*30 
21**0 

21*50 
21*60 



DAC 6, LOAD 
LOAD 

OSA CLLOAO 



DAC 6 , E X I T 
EXIT 

CSA CALLEX 



21*70 
21*80 
21*90 
21500 
21510 
21520 
21530 
215*0 
21550 
21560 
21570 
21580 
21590 
21600 
21610 
21620 
21630 
216*0 
21650 
21660 
21670 
21680 
21690 
21700 
21710 
21720 
21 730 
217*0 
21750 
21760 
21770 
2U80 
21790 
21800 
21810 
21820 
21130 
218*0 
21850 
21860 
21870 
21860 
21890 



OS 

MACSHF TR 

BNR 
87 
CM 
BE 

C 

BE 
BB2 
Ctt INK OS 
CLLOAC TO 
TO 
AH 
BTM 
BTM 
TF 
AM 
BNF 
SM 
TFM 
87 

CALLEX TC 
TO 
AM 
TF 
TFM 
AM 
87 

OOA BTM 

SF 

80 

TO 

CF 

TF 

BTM 

BTM 

BTM 

BTM 

TFM 

TF 

BNF 

TO 

TO 



11 



INPLT*19,INPUT*21 

• ♦2C, INPUWO 

MACSHF-1,,6 

INPUT*20,23,10 

MACSHF-1,,6 

CLERER*1,INP0T*2C 

MACSHF 



•♦23,AOUCOW 
•♦2 3, A JUST 
A0pCQW M 10 
E VALAO, •♦ 12,5 
EVALAO, «*12, 5 U 
AOURS.AODCOW 
AOOCOM, 31, 10 
•♦2*,BSW 
A0DCOK.5, 10 
INPUT2*!, 05,10 
ME X I T 

•♦23,ADDCOb 
•♦2 3,AJUST 
AOOCOMfOOtlO 
ADORStAPDCOW 
INP(jT2*1,0*,10 
AOOCOM. 6,10 
ME X I T 

EVALAD.t* 12,* 
OOA 

•*36«BSM 
LOABSW, RLOCS* 
OOA 

00A«23i AOORS 
EVALAO* • «12» 
EVALAO, ♦♦12, 
EVALAO, • ♦12t 
EVALAD, •♦Wt 
INPLT2tl,060,9 
AODRS,ODA*23 
D0AX,00A 

• ♦2 3, AOOCOM 

• ♦23, AJtjST 



5 u 

5 11 
5 11 
5 11 
11 



SELECT OPERANDS 



I J 2 



1177* 




5 


X 1 


1177* 




J189B 




11777 




6 


X 2 


11792 




5 


X 1 


11792 




J 1 898 




I 179* 




6 


X 2 


11810 




5 


X 1 


11810 




J2026 




11815 




5 




11816 


31 


02906 


02908 


11828 


4 b 


118*8 


02907 


118*0 


*9 


1 18 IN 




118*8 


1* 


02907 


0COK3 


11860 


46 


U81N 


01200 


11872 


24 


02 701 


02907 


1188* 


46 


11816 


01200 


11896 


42 






11898 









11898 


25 


11921 


02528 


11910 


2 V 


11933 


02399 


11922 


11 


02528 


OCO-O 


11936 


17 


05*-* 


11940 


1 1966 


17 


054-4 


11950 


11958 


26 


03299 


02528 


11970 


11 


02528 


OOOLl 


11982 


44 


12006 


08037 


1199* 


12 


02529 


000-5 


12006 


16 


03041 


000-5 


12018 


49 


10902 




12026 


25 


12049 


02526 


12038 


25 


12061 


02399 


12050 


11 


02528 


000-0 


12062 


26 


03299 


02526 


12076 


16 


03041 


000-4 


12084 


11 


02528 


000-6 


12098 


49 


10902 




12106 


17 


05*04 


12116 


12118 


32 


12104 


00000 


12130 


43 


12164 


06037 


12142 


25 


08036 


06035 


1215* 


13 


12106 


OCOOO 


12166 


24 


12129 


03299 


12178 


11 


054-4 


1219^ 


12190 


I? 


054-4 


1220K 


12202 


IT 


054-4 


1221M 


12214 


1? 


054-4 


12220 


12226 


16 


03041 


00-6- 


12218 


24 


03299 


12129 


12250 


44 


12322 


12106 


12242 


25 


12265 


02526 


1227* 


25 


1229? 


02399 



1620-1**3 MONITOR I VERSION 2 SPS M-C PHASE A 



PAGE 



21900 




AM 


ADDCQW, 00,10 






12286 


11 


02528 


OOO-O 


21910 




TF 


ADORS, AODCOW 






12298 


26 


03299 


02528 


21920 




AM 


AOUCOW, 13,10 






1231 


tl 


02528 


O0OJ3 


21910 


DC AX 


TFM 


CFFA,NCDCF2 






12322 




02629 


J0938 


21940 




67 


ME X I T 






12)3* 


49 


10902 




21950 


C62S 


oc 


2*62 






12 3*2 




2 




21960 


C66W 


02 

OC 


2,66 






12 3*4 




2 




21970 


C*U 


06 

DC 


2 , * 1 






123*6 




2 




21960 


PR INT 


COMMANDS 














21990 


PRCS 


TDM 


PRNT3M1, 1,11 , 


Q 1 1 IS 1 




123*8 


15 


12551 


0000 J 


22000 


PRC 


TFM 


INPbT2*l ,035,9, 


OP CODE 




12360 


16 


030*1 


00- 35 


22010 




B7 


PRNT2 






12)72 


*9 


12*** 




22020 


PRNS 


TQM 


>RNT3*U, 1,11 , 


CI i IS L 




12380 


15 


12551 


OCOO J 


22030 


PRN 


TFM 


INPLT2* 1,038,9, 


OP CCDE 




12392 


16 


030*1 


00- 38 


220*0 




87 


PRNT2 






12*C* 


*9 


12*** 




?2050 


PR AS 


TOM 


PRNT i* 1 1 , 1,11, 


Q 1 1 IS I 




12*12 


15 


12551 


OCOOJ 


22060 


PR A 


TFM 


I NP LT 2* 1,039,9, 


OP CODE 




12*2* 


16 


030* I 


00- 39 


22070 




87 


PRNT2 






12*36 


*9 


12*** 




22010 


PRNT 2 


TD 


•♦23,ADDCOw, , 


MAKE ACCCOW EVEN 




12*** 


25 


12*67 


02528 


22090 




TO 


• 2 3 » A J U'S T 






12*56 


25 


12*79 


02399 


22100 




AM 


ADD COM, , 10 






12*68 


M 


02528 


000-0 


22110 




BTM 


EVALAO,»* 12,*1 1 






12*80 


17 


05M0* 


12*9K 


22120 




BTM 


E VALAO ,•♦12,511, 


, SHIFT LEAOINC COMMA 




12*92 


17 


05*-* 


1250M 


22130 




TF 


ADDR S , ADDCOW 






1250* 


26 


03299 


02528 


22140 




AM 


ADDCOM.lUlO 






12516 


1 1 


02528 


000J1 


22150 




BTM 


CT£ST,«»12,, 


TEST CORE OVERFLOW 




12528 


17 


07*36 


J2540 


22160 


PRNT3 


TOM 


1NPLT2*6,0 , 1 I , 


MD0IF1EI) TO MOVE 1 TO Qll 




125*0 


15 


0)0*6 


0000- 


22170 




T0« 


INPUT2** , 9 , 1 1 , 


MOVE 08 ANO C9 




12552 


15 


0)0** 


OCOOR 


22180 




TOM 


INPLT2*3,0,ll 






1256* 


15 


0)0*3 


0000- 


22190 




D7 


M E X I T , , , 


RESTORE MAIN PHASE ♦ LO AC 


LABEL 


12576 


*9 


10902 




22200 


PRINTER 


CARRIAGE CONTROLS 












22210 


SKIP 


TFM 


SKAP*23.SK|P1-1- 


10, .MODIFY TABLE REAO OUT MODIFIER 


1258* 


16 


12619 


J2877 


22220 


SKAP 


TFM 


PRN T6* 1 1 ,00012 , , 


MODIFY UPPER LIMIT OF OK 


C FIELD 


12596 


16 


12783 


-0012 


222 30 




TFM 


PRN-T7M1.SKAPI-1 


-10,, MOCIFY TABLE READ 


CUT 


126C8 


16 


128*3 


J2882 


222*0 




6 7 


PRNT* 






12620 


*9 


126*0 




22250 


SPAP 


TFM 


PRNT7M l.SPAPl-l 


-10. , MODIFY TABLE REAO 


CUT 


12626 


16 


126*3 


J3002 


22260 


PRNT* 


T D 


• ♦2 3, ADDCO'w . , 


MAKE AODCOW EVEN 




126*0 


25 


12663 


02528 


2 22, 70 




TC 


•♦23, A JUST 






12652 


25 


12675 


02399 


22280 




AM 


ADDCOW, , 10 






1266* 


11 


02528 


000-0 


22290 




BTM 


E VALAP » •♦ 1 2 • *i 1 , 


TEST P OPERAND 




12676 


17 


05MO* 


1268Q 


223Q0 




BTM 


EVALAD,*^ 12,5, 


GET OPERAND 




12688 


17 


05*-* 


12700 


22310 




CM 


ADDRS.OCQOO, 7, 


IS OP LARGER THAN ZERO 




127C0 


I* 


03299 


-oooo 


22320 




BH 


PRNT6 






12712 


*6 


12772 


01100 


22330 


PRNT5 


TFM 


EVALER-l,5C00O, , 


ERROR 5 




1272* 


16 


07071 


NCOOO 


223*0 




DC 


1 , • »• 






12735 




I 




22350 




6T 


EPR INT , E PR I NT- 1 






12736 


27 


07332 


07331 


22 360 




RD 


ERC QR »E R ST Sw 






127*8 


*3 


7196 


02*76 


22370 




TFM 


AODRS.OCOOl., 


.SET THE C FIELO TC I 




1276C 


16 


0)299 


-0001 


22380 


PRNT6 


CM 


A0DRS,0C0Q3, , 


IS Q LESS THAN * OR 13 MODIFIED 


12772 


1* 


03299 


-0003 


22390 




BH 


PRNT5,,,, 


Np GO TO ERROR 5 




12 78* 


*6 


1272* 


01100 


22*00 




TFM 


INPuT2^ 1,03*, 9, 


MOVE OP CODE 




12796 


16 


030*1 


00-^34 


22*10 




SP 


AODRS-3 




1 ! <> 


12 808 


32 


03296 


00000 



1620-1**3 MONITOR I VERSION 2 SPS I I -C PHASE A PACE 



22*20 




A 


•♦22, ADDRS., 


MODIFY THE MOVE BY 10 TC 120 


12820 


21 


128*2 


03299 


22*30 


PRNT 7 


TR 


INPUT2M.SPIM1 


-t-10,7, MOVE Q MOOIFIER TO INTERMEDIATE 


12832 


31 


030*3 


J2997 


22**0 




TF 


ACCRS.AOPCOW, . 


SAVE THE ACDRESS 


128** 


26 


0)299 


02528 


22*50 




AM 


ADOCOW, 11, 10, 


UP THE CURRENT ACCRESS 


12656 


11 


02528 


000J1 


22*60 




BTM 


CTEST.»*12.» 


TEST CORE OVERFLOW 


12868 


17 


7*36 


J2880 


22*70 




B7 


ME X I T , » . 


RESTORE MAIN PHASE ♦ LOAD LABEL 


12680 


*9 


10902 




22*80 


• • Q 


MODIFIER PRINTER CONTROL DECODE TABLES 










22*90 


SK 1 P 1 


DC 


2.-09, , , 


CHAN 1 


12888 








2250U 




-R 
DC 


3.-71' 




12891 












PJ' 














22510 


SKAP I 


DC 
-R 


2,-09 




1289 3 








22520 




DC 


'3.-41* 




12896 












MJ' 














22530 




PC 


2,-09,,, 


CHAN 2 


12898 








225*0 




-R 
OC 


3,-72' 




12901 












PK * 














22550 




DC 
-R 


2,-09 




129C3 








22560 




PC 
MK » 


3.-42* 




129C6 








2257U 




DC 
-R 


2,-09, , , 


CHAN 3 


12908 








22580 




OC 


3.-73' 




12911 












PL • 














22590 




DC 
-R 


2,-09 




12913 








22600 




DC 


3,-43* 




12916 












ML • 














22610 




DC 


2,-09,,, 


CHAN * 


12918 








22620 




-R 

DC 


3,-74* 




12921 












PM' 














22630 




DC 
-R 


2.^09 




12923 








226*0 




PC 


3,-44* 




12926 












MM' 














22650 




DC 


2,-09,,, 


CHAN 5 


1292S 








22660 




-R 

OC 


3,-75* 




12931 












PN» 














22670 




OC 


2,-09 




12933 








22660 




-R 

OC 


3.-45* 




12436 












MN • 














22690 




OC 


2,-09,,, 


CHAN 6 


12931 








22700 




OC 


3.-76* 




12941 












wo* 














22710 




OC 


2,-09 




129*3 








22720 




-R 

DC 


3»-46* 




129*6 












M0» 




CHAN 7 1 J./f 










22730 




DC 


2.-09,, , 


1294t 









162C- 1443 * ON I TOR 



VERSION 2 SPS ! I C PHASE * 



22740 




OC 

pp 1 


3 


- 77' 








DC 
*R 


2 


-09 




22 760 




DC 
MP' 


3 


-47' 




22770 




DC 
-R 


2 


-09,,, 


CHAN 8 


22780 




DC 
p Q . 


3 


-78' 




22790 




DC 
-R 


2 


♦09 




22800 




DC 
HQ* 


3 


-48' 




22810 




DC 

- R 


2 


-09, , , 


CHAN 9 


22820 




CC 
PR • 


3 


-79. 




22830 




DC 
■ -R 


2 


-09 




22840 




DC 
MR « 


3 


-49' 




2 2850 




CC 
-R 


2 


-09, , , 


CHAN 10 


22860 




DC 
P- • 


3 


-70* 




22870 




DC 
-R 


2 


-09 




22880 




DC 

M- • 


3 


r-40' 




22890 




DC 
-R 


2 


-09, , , 


CHAN 11 


22900 




OC 
LI • 


3 


-n.» 




22910 




CC 
-R 


2 


-09 




22920 




DC 
rL • 


3 


-C3' 




22930 




DC 
-R 


2 


-09, , , 


CHAN 12 


2294Q 




DC 

IM» 


3 


- 34' 




229*0 




DC 
-R 


2 


-09 




22960 




DC 
~m • 


3 


-C4' 




2 29 7C 




DC 
-R 


2 


-09,,, 


SPACE I 


22980 




rc 
\j « 


3 


-51' 




22990 


SPAPl 


CC 

■T'R 


2 


-C9 




23000 




uC 

KJ • 


3 


,-2P 




23010 




DC 
-R 


2 


-09, , , 


SPACE 2 



1 1 :.. 



12951 

12956 
12958 
12961 
12961 
12966 
12968 
129H 
12973 
12976 
12978 
12981 
12983 
12986 
12988 
12991 
12993 
12996 
12998 
130C1 
1300 3 
13CC6 
13008 
1301 1 
13013 
13016 
1.J0U 



162C-1443 KONITOR I VERSIUN 2 SPS II -C PHASE A PACE 



2 302C 




DC 
NK • 


3,-52' 




13021 




3 




23030 




OC 
-R 


2.-C9 




1302 3 




2 




23040 




UC 
OK • 


3,-62 • 




1 3026 




3 




23050 




DC 


2,-09,, , SPACE 3 




13028 




2 




23060 




-R 

DC 


3,-53' 




13031 




3 




23070 




Nl • 

DC 
-R 


2,-09 




1 3033 




2 




2 3080 




DC 


3,-*3' 




1 3036 




3 




2 3090 


FM 


01 • 
34 


FMCCF.00701 




13038 


34 


13086 


00701 


23100 




38 


FMCCF, 00702 




13050 


38 


13086 


00 702 


23110 




TRA 






13062 


36 


OOOOO 


00500 












13074 


49 


OOCOO 


CCOOO 


23120 


fMQCF 


ODA 


, , A3DAD , A 3SC T » I NSTRN 




13086 




14 








0J9252-29J0256 












23130 




TCD 


FM 




13038 








23140 


• 
















23150 




DEFINE MESSAGE 












23160 


• 
















23170 




DORC 


INSTRN 




10256 








23180 


BRANCH 


TABLE FOR OME S,DVLC ,HE AO 












23190 


DECL2 


TFM 


DECL3*6,0ECTAB 




10256 


16 


10298 


40304 


23200 




TO 


0ECL3*11,ZEP0*28 




10268 


25 


10303 


02328 


23210 




A 


DECL3*5,DECL3*ll 




10280 


21 


10297 


10 303 


23220 


0ECL3 


B 


*-t,,10 




10292 


49 


OOOOO 


000-0 


2 32 30 


DECT AB 


B 


DMES, , , *0 




10304 


49 


10682 


OOOOO 


23240 




□ORG 






10314 








2 32 50 




B 


DVLCm, +1 




10314 


49 


12028 


COOOO 


2 3260 




DORC 


1 




10324 








2 32 70 




B 


• **t *2 




10324 


49 


10324 


OOOOO 


23210 




DORG 


•-1 




103)4 








23290 




B 


HEADER , » , ♦ 3 




10334 


49 


12464 


COOOO 


23300 




OORG 


•-3 




10342 








23310 


• ANALYZE CONTROL CHARACTER , SUBROUTINE ANAL 












23320 


ANAL 


CM 


INPUT+24, 4 , IC , 1ST CHECK IF RIGHT PAREN IS PRESENT 


10342 


14 


02911 


0C0-4 


23330 




BNE 


ANAL 1* 12» » , NO LEFT PAREN, ERROR 




10354 


4? 


10414 


01200 


23340 




TF 


ANALUll, INPUT*22, tt*0VE CHARACTER TO ANOTMfR 


L0CAT1CN 


10366 


26 


1041) 


02909 


23350 




TR 


INPUT*l4,lNPUT*23t. POSITION INPUT RECORD 




10)78 


31 


02904 


02910 


23)60 




CM 


ANALl*ll,44,l0, 1 S IT A 




10)90 


14 


1041) 


00014 


23370 


ANAL1 


BNE 


ANAL2,,10, NOT AD, MAY BE GOOO 




104C2 


47 


10494 


012-0 


23310 




TFH 


EVALER-l, 17400, , IT IS A 0, ERROR 




10414 


14 


07071 


J7400 


23390 




OC 


It ' »• 




10425 




1 




23400 




CF 


ANAL* t» RESET STRAY PAREN SWITCH 




10416 


IS 


10)42 


OOOOO 


23410 




BT 


EPRINT,EPRINT-1,» PRINT ERROR MESSAGE 




104)8 


a? 


C7332 


073)1 


23420 




BO 


ERCOR f fRSTSN 




104 SO 


4) 


07194 


02474 


23430 


ANL14 


CM 


DT«-1,0MESC, , BRANCH TO REAP NEXT CHAR 




10442 


14 


11843 


J 1002 


23440 




BE 


DMSB1* * * SCANNING FOR ALPHA MOOE 




104T4 


44 


109M 


01200 


234*0 




B 


OHSNUM 




10404 


49 


11042 


OOOOO 


23460 




OORG 


•-3 


UC 


10414 









1620-1*43 MONl TCR I VERSION 2 SPS ! I-C PHASE A 



PAGE 



23*70 


ANAL2 


CM 


ANAL 1> I t,*l ,10, CHECK TC SEE If CHARACTER LFE BETWEEN A*F 


10*9* 


1* 10*13 


OOOMl 


2 3480 




bl 


ANAL !♦ 12 ♦ » t ■ NU If BRANCH FROM HERE 


10506 


*7 10*1* 


01300 


2 3490 




CM 


ANAL 1*1 1** 7,10, MAY BE (.HfLK FbRTHER 


10518 


1* 10*13 


00OM7 


235CO 




BL 


ANl 1<, , , , OKAY 


10530 


*7 10*62 


01300 


23510 




CM 


ANAL \*l 1,5*,10, CHECK REST OF CHARACTERS SERIALLY 


105*2 


I* 10*13 


OOON* 


23520 




HNE 


ANAL 1 , , , NOT A MODE CHANGE 


1055* 


*? 10598 


01200 


23530 




CM 


DTK- 1, ONE SC.. MODE CHANGE SET UP BRANCH 


10566 


1* 118*3 


J1002 


235*0 




BE 


DM r ,NUM , , , OUNGiNf. FROM ALPHA TO NUMERIC 


105 78 


*6 11062 


01200 


235SO 




R 


PMFS2,,, CHANGING F ROM NUMERIC TC ALFA 


10590 


*9 11238 


CCCOO 


2)560 




1)0.* C 


• - ) 


10598 






235T0 


ANAL 3 


CM 


ANAL! ♦ I 1,5 7, 10, CHK FOR P 


10598 


1* 10*13 


0C0N7 


23580 




HE 


ANL I* » » » LEAVE SUBROUTINE 


10610 


*6 10*62 


01200 


23590 




CM 


ANALl*ll,52,lO» CHECK FOR R,S,,I 


10622 


1* 10*13 


0C0N2 


2 3600 




BL 


ANALIM2,,, ERRCR J F BRANCH 


1063* 


*7 10*1* 


01300 


23610 




CM 


4NAL1H1.63.10, 


106*6 


1* 10*13 


00003 


23620 




BH 


ANAL 1*12,,, ERROR IF BRANCH 


10658 


*6 10*1* 


01100 


23630 




B 


ANL 1*, , , OKAY, R,S, OR T 


1C6 70 


*9 10*62 


occoc 


23640 


ANAL* 


OS 


, ANAL 1*12 


10* 1 * 







23650 


♦ PHASE A DMES PROCESSOR 








2 3660 


0M6S 


BTM 


EVALAD,*+12,*, SCAN ADDRESS UP h RAND 


10682 


17 05MO* 


1069* 


2 3670 




r f 


DIGITS. CIERER*2,. CLEAR DIGIT COLNT 


106 9* 


26 02699 


02702 


23680 




TFM 


OTft-1 ,DMf SC , , SET SWITCH TU HANCLE PCSS IBLE ERROR 


10706 


16 118*3 


J1002 


23690 




fiNR 


t ♦ 2* , INPUT»20, , CHECK if breaker a rm 


10718 


*5 107*2 


02907 


23700 




u 


DM SRM , , , BREAKER A RM, ERROR • INSERT NUM END MESSAGE 


10730 


*9 11*5* 


OCOOO 


237^0 




TDM 


SMOCE,,, INITIALIZE STARTING MUCE SWITCH 


107*2 


15 033*6 


OCOOO 


23720 




BNF 


One SI, BSW,, PROGRAMMER SPECIFIES ACCRESS 


10 75* 


** 10778 


080 3 7 


23730 




TF 


ADORS.AnOCOW, , NC, MOVE LOCATION COUNTER INTO ADDRESS LOC 


10 766 


26 03299 


02528 


237*0 


DMES1 


TFM 


MODE U6.DMSMN1 , , , INITITIALIZE BRANCH IN SU8R0UT iNfc MODE 


10778 


16 117b* 


J1026 


23750 




BTM 


M'ODE', • ♦ I 2 » » FIND MODE 


10790 


17 11730 


J0802 


2 3760 




CM 


INPLT*'2"0t*l , 10, SEE IF ALPHA MODE 


10802 


I* 02907 


OOOMl 


23770 




BE 


DMSALF,,, STARTING MODE ALPHA IF BRANCH. 


1081* 


*6 10862 


01200 


23780 




TFM 


EVALER-1. 17300. .ILLEGAL STARTING MOOE CHARACTER, 


10826 


16 07071 


J73O0 


2 3790 




CC 


1 . • , • 


10837 


1 




2 3800 




BT 


FPR INT.EPRINT-l PRINT ERRCR MESSAGE 


10838 


27 C7332 


07331 


2 38 1 




BD 


MLUR f ERSTSw 


10850 


*J 07196 


02*76 


2 3820 


DMSALF 


BNF 


OMESA, BSW,, SEE CF PROGRAMMER SPEC ACDRESS 


1C862 


** 1093* 


08037 


23830 




TO 


•♦23.ADOCOW, , NC, ADJUST AOCRESS ♦ LOC COUNTER 


1087* 


25 10897 


02528 


238*0 




TD 


•♦22, JSTBL 


10886 


25 10909 


02*59 


2 3850 




AM 


ADDCOW, ,10 


108S8 


11 02528 


OCO-Q 


2 3860 




TF 


ADDRS , AODCGw , , SET ADDRESS OF MESSAGE TO 2N0 IC I T 


10910 


26 3299 


02528 


2 3870 




SM 


ADDCOW, 2, 10, SET LOC. COUNTER TO LOC BEFORE MESSAGE 


10922 


12 02528 


000-2 


23880 


OMESA 


TFM 


MODE 1*6, 0MSB1 ,, , SET-UP .KANCH INST IN SUBROUTINE MQCE 


1093* 


16 1178* 


JC958 


2 3890 




BTM 


MODk ,MOCfc SEARCH FOR CCMMA 


109*6 


17 11730 


J1730 


2 39C0 


CMS R 1 


HTM 


DTW.OMESC SCAN MESSAGE OPERAND 


1C958 


17 118** 


J1002 


2 391 




AM 


DIGITS,'., 10, LEFT PARE N FOUND, LP C ATE DIGIT COUNT BY * 


10970 


11 02699 


000-* 


2 3920 




BNF 


ANAL, ANAL,, STRAY PARE N NOT FOUND IF BRANCH 


10982 


** 103*2 


103*2 


23930 




H 


ANA L <, 


1099* 


*9 10*1* 


coooo 


2 39*0 




OORG 


• - 3 


1 1 C C 2 






23950 


DM ESC 


AM 


ClOllS,?,lO, UPDATE DIGIT COUNT BY 2 


11002 


11 026^99 


000-2 


2 3960 







DM SB I 


1101* 


*9 10958 


00000 


2 3970 


0MSMN1 


TDM 


SMODE.1.10, SET SWITCH FOR ALPHA STARTING MODE 


11026 


15 033*6 


000- I 


23980 




BNF 


DMSNUM.feSW., CHECK IF PROG SPECIFIED ACCRESS 


11038 


44 11062 


08037 


2 3990 




AM 


ADDRS, l, 10. PROCESSOR ASSIGNED, INCREASE ADDRESS 


11050 


11 03299 


000-1 


2*000 


DMSNUM 


BTM 


D TO ,OMt SI 1 , , SC AN ME S SAGE OPERAND 


1 1062 


17 1184* 


J 1 1 1 8 


2*010 




AM 


Pfu . rr. . U), LEFT PARE N FOUND 


1107* 


11 02699 


000-2 



11 7 



162C- 1**3 "CNI TOR 1 VERSICN 2 SPS I I — C PHASE * PAGE 



2*020 




ONF 


ANAL, ANAL,. STRAY PARE N NOT FOUND IF BRANCH 


11086 


** 


10342 


10342 


2*030 




B 


ANAL* 


11098 


*9 


10414 


OCOOO 


2*0*0 




DURG 


• -3 


U1C6 








2*050 




DC 


1 , ' 


11105 




I 




2*060 




BT 


tPKINT, EPKINT-1 


U1C6 


27 


07332 


07331 


2*070 


DM E S I 1 


CM 


INPLT+20,79, , CHECK TO SEE IF CHAR NUMERIC 


11118 


I* 


02907 


-0079 


2*080 




OH 


DM SFR 2 , , , NOT NUMERIC, ERRCR 


11130 


*6 


11664 


01100 


2*090 




CM 


INPUT*20,69, 10 


111*2 


14 


C2907 


00009 


2*100 




BH 


DMS12, ,, NUMERIC IF BRANCH 


1115* 


46 


11214 


01100 


2*110 




CM 


INPUT+20,50,10, CHECK IF -OTHRL-9 


11166 


14 


02907 


OCONO 


2*120 




BL 


DMSER 2, , , NON-NUMERIC IF BRANCH 


11178 


47 


11664 


01300 


2*130 




CM 


INPUT*20,59,10 


11190 


14 


02907 


000N9 


2*1*0 




BH 


UMSER2,,, NOT NUMERIC IF BRANCH 


112C2 


46 


11664 


01100 


2*150 


DMS12 


AM 


DIGITS, 1,10, UPDATE DIGIT COUNT BY CNE 


1121* 


11 


02699 


000- I 


2*160 




B 


DMSNUM 


11226 


49 


11062 


00000 



2*170 • CHECK TO SEE IF ALPHA WILL START IN EVEN LOCATION 



24180 • LOCATION DMSV CONTAINS LOC OF LAST DIGIT STOREC, 



2*190 


DMES2 


TF 


DMSV.DIGITS,, INITIALIZE IT WITH OICIT COUNT. 


11238 


26 


03266 


02699 


2*200 




BNF 


DMES21, BSW,, SEE CF PROGRAMMER SPEC ACCRESS 


11250 


44 


11286 


0803 7 


2*210 




A 


DMSV, ADDCOW, , NO, ADD LOC COUNTER 


11262 


21 


03266 


02528 


24220 




B 


0MES22 


11274 


49 


11334 


00000 


24230 


DMES21 


A 


DMSV. ADDRS,, AOD PROG SPEC ADDRESS 


11286 


21 


03266 


03299 


2*2*0 




SM 


DMSV, I, 10, ADJUST FOR NUMERIC STARTING MODE 


11298 


12 


03266 


000- 1 


2*250 




BD 


•♦2*,SM0DE,, CHECK STARTING MODE 


11310 


43 


11334 


03346 


2*260 




SM 


DMSV, 1,10, ADJUST FOR ALPHA STARTING MODE 


11322 


12 


03266 


000-1 


2*270 


DMES22 


TD 


•♦23, DMSV 


11334 


25 


11357 


03266 


2*280 




TC 


DM SEND- I ,E VODO , , , 


11346 


25 


11429 


02469 


2*290 




RD 


UMSBI,0MSEND-1,,WILL START IN EVEN 


11358 


43 


10958 


11429 


24300 




TFM 


EVALER-1, 17600, , ODD ERROR, PRINT ERROR MESSAGE 


11370 


16 


070 7 1 


J7600 


24310 




DC 


1.' .* 


11381 




1 




24320 




BT 


EPR INT.EPR I NT- 1 


11382 


27 


07332 


07331 


24330 




BD 


ERCOR , ERSTSW 


11394 


43 


07196 


02476 


24340 




AM 


DIGITS, 1,10, ALLOW FOR - 


11406 


11 


02699 


000-1 


24350 




B 


DMSBl 


11418 


49 


10958 


00000 


24360 


DM SEND 


CM 


DIGITS, ,9, SEE IF NO DIGITS ACCUMULATED 


11430 


14 


02699 


00-00 


24370 




BH 


•♦36, , , NO ZERO, OKAY 


11442 


46 


11478 


01100 


2*380 


DMSRM 


AM 


DIGITS, 100,9 


11454 


11 


02699 


OOJOO 


24390 




B 


DMSER 1 * . • ERROR IF BRANCH, NO DIGITS 


11466 


49 


11614 


00000 


24400 




TFM 


I N P U T 2 ♦ 1 , 070,9 11 


11478 


16 


03041 


00-7- 


24410 




TF 


INPLT2*6, OIGI TS 


11490 


26 


03046 


02699 


24420 




BNF 


•♦24, BSW 


11502 


44 


11526 


08037 


24430 




A 


ADDCOW.DIGITS,, UPDATE LQCATICN CCUNTER BY MESSAGE SIZE 


11514 


21 


02528 


02699 


24440 




BTM 


CTEST,«»12 


11526 


17 


07436 


J1538 


24450 




TFM 


CFFA.NCOCF 


11531 


16 


02629 


J 1562 


24460 




BTM 


CFF.LOtBL 


11550 


1 1 


02592 


-8414 


24470 


NCCCF 


DOA 


,0,A2DA0.A4SCT,1NSTRN 


11562 




14 








OJ8800-27J0256 










24480 




OC 
. . 


l.» 


11576 




1 




24490 




TFM 


DIGITS, 100,9, SET DIGIT COUNT TO 100 


11578 


16 


02699 


OOJOO 


24500 




TFM 


EVALER-1.8C000,, Eft 6 MESSAGE. DMES TOO LONG 


115*0 


16 


07071 


QOOOO 


24510 




OC 


I , • 


11601 




1 




24520 




8 


** 2A t 1* 


11602 


49 


11626 


00000 



i62C-l**3 MQNtTOR I VERSION 2 SPS Il-C PHASE A 



PACE 



2*51C 


OM SER 1 


TFM 


E VALER- 1 »9C000 i , ER9 MESSAGE* NO OMES OPERAND 


11614 


16 


07C71 


RCOOO 


2*5*0 




DC 


l»'t*» PRINT ERROR MESSAGE 


11625 




I 




2*550 




BT 


E PR IN T # EPR I NT- 1 


11626 


27 


07332 


07331 


2*560 




BO 


ERCOR , ER STSW 


11611 


AJ 


07196 


02474 


2*570 




B 


0MSRM*2*, , , CONTINUE 


1 1690 


49 


11476 


COOOO 


2*580 


NMOAl 


DC 

-0 


?.o ■ ■ ' ' 


1 1663 




2 




2*590 


0NSER2 


TFM 


EVAlER-l»l 7500 t • ALPHA IN NUMERIC FJELC 


1 1664 


16 


07071 


J 7500 


2*600 




DC 


1 , • ♦• 


1 1679 




1 




2*610 




BT 


EPRINT,EPR!NT-1 M PRINT ERROR MESSAGE 


116 76 


2 1 


07332 


07331 


2*620 




OD 


ERCOR, ER ST SM • 




43 


07 196 


02476 


2*630 




AH 


DIGITS. 2, 10, UPDATE DIGIT COUNT BY 2 FOR END CF MESS 


11 700 


1 1 


02699 


000-2 


2*6*0 




B 


OMSNUM 


11712 


49 


11062 


00000 


2*650 




DC 


5 , 


1 1 728 




5 








-0000 










2*660 


MODE 


TR 


INPLT*l9,INPUT*2l » i MOVE INPUT REQORC LEFT 1 CHAR 


1 1 730 


31 


02906 


02906 


2*670 




BNR 


•♦24, INPUT+20, • ,KOT BLANK, CHECK FQR RM 


117*2 


45 


11766 


02907 


2*680 




b 


OMSRM , , , 


1175* 


49" 


1 1*5* 


00000 


2*690 




CM 


INPUT*20,23, 10, SEARCH FIELD, CHECK FOR COMMA 


11766 


14 


02907 


00OK3 


2*700 


MOCEl 


BE 


,,, COMMA FOUND * BRANCH 


11776 


46 


occoo 


01200 


2*710 




CM 


'INPLT«20* V 10, COMMA NOT FOUND, CHECK FOR BLANK 


1 1790 


14 


02907 


000-0 


2*720 




BE 


MODE,,, BLANK. CHECK NEXT CHARACTER 


1 1 802 


46 


11 730 


01200 


2*730 




TF 


•♦18.N00E-1,,, ALPHA CHAR IN FIELD, RETURN, OR CHECK 


11814 


26 


11832 


H729 


2*7*0 




B 


,,, NEXT CHAR. ACCORDING TO BRANCH 


1 1826 


49 


00000 


OOOOQ 


2*750 


• SUBROUTINE TC SHIFT ONE CHARACTER TO THE LEFT IN INPUT BUFFER 










2*760 




OS 


5 ' ' 


118*2 




5 




2*770 


DTR 


TR 


INPLT*19,INPUT*21,, MOVE OPERAND LEFT 1 CHAR ♦ SEARCH 


11844 


31 


02904 


02906 


2*780 




CM 


DIGITS, 100,9, CHECK DIGIT COUNT 


1 1856 








2*790 




BH 


DMSERI-36,,, BRANCH TC ERRO* ROUTINE 


1 1 868 


46 


11576 


01 100 


2*600 




BNR 


•♦<>C, INPUT*20, , FOR RM 


1 1880 


45 


1 1 900 


02907 


2*810 




B 


DM SEND ,»» RECORD MARK FOUNO, SCAN FIMSHPO 


11892 




1 1*30 


VUUUU 


2*820 




DOR G 


• - 3 


11 900 






2*8 30 




CM 


INPUT ♦20t4,'l0i CHECK FCR STRAY RT PAREN 






02907 


oon-A 


2*8*0 




BNE 


•♦b6 m NOT A STRAY PARE N IF BRANCH 


11912 


47 


1 1 968 


01200 


2*850 




SF 


ANAL,,, SET SWITCH FOR STRAY PAREN FCUNC 


1192* 


32 


10342 


UVUvv 


2*860 




CM 


CTR-l,DMESC 


1 1936 


14 


1 1 84 3 


J 1002 


2*870 




BE 


DM SB I ♦ 1 2 


1 19*8 


46 


10970 


01200 


2*880 




B 


D.M SNUM* 12, , , NUM 


1 1960 


49 


1 107* 


ocooo 


2*890 




DORG 


•-3 


1 1 968 








2*900 




CM 


INPLT*20,2*,10, CHK FOR LEFT PAREN 


1 1968 


1 4 


02907 


000K4 


2*910 




BNE 


•♦'2*, t .NOT A LEFT PAREN 


11980 


4 7 


1200* 


1200 


2*920 




BB 


, , , , LEFT PAREN FpUNC 


1 1992 


42 


00000 


ooooo 


2*930 




TF 


• ♦18.DTR-1, , NOT A I , 


120C* 


26 


12022 


1 1 8 * 3 


2*9*0 







,,, RETURN 


12016 


49 


00000 


ocooo 


2*950 


• 














2*960 


• 














2*970 


• 


DEFINE VARIABLE LENGTH ADDRESS CONSTANT 










2*980 


• 














2*990 


DVLC 


OTM 


EVALAD, •♦12,* 


12028 


17 


05M0* 


12040 


25000 




TO 


LDABSM.RLOCSM 


120*0 


25 


08036 


08035 


25010 




TF 


DVAOBMl, AODRS 


12052 


26 


12*03 


03299 


25020 




CF 


DVSW1 


12064 


33 


12100 


OOOOO 


25030 




RNF 


0VLC2, RSW 111) 


12076 


4* 


12112 


08037 


250*0 




TDM 


LDABSW, I, U 


12088 


15 


08036 


OOOOJ 








162C-1**3 MONITOR I VERSION 2 SPS II-C PHASE A 








PAGE 


25050 


CVASGN 


SF 


DVSWl 


12100 


32 


12100 


OOOOO 


25060 


CVLC2 


BTM 


EVALAD, • ♦ 12,5 


12112 


j / 


054-4 


1 2 124 


2S070 




TF 


DVCKL, AODRS 


12124 


26 


12111 


3299 


25080 




BNF 


DVLP, DVSW1 


12136 


44 


12208 


12100 


25090 




TF 


DVADBUl, ADDCOW,, AOOR I S RT.-MOST POS OF 1ST CON. 


121*8 


26 


1 2*0 3 


02528 


25100 




AM 


D VAOfl Ml , bO 


12160 


11 


12403 


-0050 


25110 




SM 


ADDRS, 50 


12172 


12 


03299 


-0050 


25120 




BNN 


• ♦2* 


12184 


46 


12208 


1 300 


251 30 




A 


D VADB ♦ 1 1 • AODRS 


12196 


2 1 


12403 


03299 


25 1*0 


DVIP 


BNR 


•♦48, INPUU20 


12208 


45 


12256 


02907 


25150 




TFM 


E VALE R- 1 , 9C000 , , ER 9, CCNSTANT NOT SPECIFIED 


j 2220 


16 


C 7071 


RCOOO 


25160 




DC 


1, • ,• 


12231 




1 




251 70 




BT 


EPR INT, EPKINT-1 


12232 


2 7 


07332 


7331 


25180 




BD 


ERCOR, ERSTS* 


1 2244 


43 


07 196 


02*76 


25190 




B TM- 


EVALAO, »*12, 5 11 


1 2256 


17 




1226Q 


25200 




BNR 


•♦20, INPUU20 


1 2268 


45 


12288 


02907 


25210 




B7 


OVEND 


12280 


49 


12320 




25220 




BTM 


EVALAO, ••12, 5 


12288 


17 


054-4 


12300 


25230 




A 


DVCKL, AODRS 


12300 


21 


12111 


03299 


?52*0 




B7 


DVLP 


12312 


49 


12208 




25250 


OVENO 


CM 


DVCKL , 00050 


12320 


14 


12111 


-0050 


25260 




BNP 


• ♦60 


12332 


47 


12392 


1 100 


25270 




TFM 


E VALER- 1, 8CO0O,, ER8, TOTAL LENGTH TOO BIG 


12344 


|6 


07071 


QOOOO 


25280 




DC 


1 , • ,• 


12399 




1 




25290 




BT 


EPR INT, EPRINT-l 


12996 


27 


07332 


07331 


25300 




BD 


ERCOR, ERSTSW 


12366 


43 


07196 


02476 


25310 




TFM 


OVCKL, 50 


12380 


16 


121H 


-0050 


25320 


OVAOB 


TFM 


AOORS, COOOO 


12392 


16 


03299 


-0000 


25330 




BNF 


•♦2*, 0VSW1 


12404 


44 


12429 


12100 


253*0 




A 


ADOCOM, DVCKL 


12414 


21 


02920 


121H 


25350 




TOM 


INPUT2, 8 


12426 


19 


03040 


00008 


25360 




TFM 


CFFA.NCDCF 


12440 


16 


02629 


j 1962 


25370 




BTM 


CFF ,DAC3-32 


12492 


|7 


02992 


J2004 


25380 


OVCKL 


OS 


, DVASGNMl 


12111 




o 




25390 


0VSM1 


OS 


, OVASGN 


12100 









25*00 


• 














25*10 


• 


HEADER ROUTINE 










25*20 


• 














25*30 


HEADER 


TFM 


HE0,,10 


12464 


16 


10237 


000-0 


25**0 




TOM 


HEAOER*T 


12476 


|f 


12471 


OOOOO 


25*50 




BNR 


COMA,lNPUT»20 


12469 


49 


12940 


02907 


25460 




TFM 


INPUT2M. 030,9 11 


12900 


14 


0304 1 


00-3- 


25*70 




TF 


INPUT2*6, HEO 


12912 


24 


0)044 


10237 


29460 




TFM 


CFFA.NCDCF 


12924 


14 


02429 


J 1962 


29490 




BTM 


CFF,SM0TC0 


12914 


17 


02992 


-0490 


2SS00 


COMA 


CM 


INPUT*20,23,10 


12940 


14 


02*07 


00OR1 


29910 




Bf 


HEADER* 36 


12960 


44 


12900 


01200 


29920 


• 


HEAOER OPERAND GREATER THAN ONI CHARACTER 










21930 




•0 


Eft 12 (HEADER + 7 


12972 


41 


12700 


12471 


29940 




CM 


INPUT^20, 9 10 


12904 


14 


02907 


000-0 


29990 




•£ 


• ♦AO 


12904 


44 


12494 


01200 


29940 




CM 


INPUT*20,40,1C 


12400 


14 


07407 


OOOMO 


29970 


• 


SPECIAL CHARACTER USED AS HEADER 










25980 




it. 


EMI t2» 


12420 


41 


12474 


01300 



1620-1**3 MONITOR I VERSION 2 



SPS 



PHASE A 



PAGE 



25590 




TF 


NfO i INPUT* 20 


126 32 


26 


102 3 7 


0290 7 


25600 




T DM 


h E AOE R ♦ 7 i 1 




1 5 


12*71 




25610 




TR 


INPLTU9, INPUT+21 


12656 


31 


02906 


02908 


25620 




R7 


HEADER* 2* 


12668 


*9 


12*88 




25630 


ER 1 1 


TFM 


cuii to. i . i 7 inn 


i » tit 


16 


07071 


J7 100 


256*0 




oc 


1 * * » • 


12687 




1 




25650 










la 




000-0 


25660 






• ♦2o' 


127C0 




12720 




2 56 tO 


_ 


TFM 


t V * L C K — I t 1 1 i U 


12708 


7 

16 


070 7 1 


J7200 


25680 




DC 


I » ' »• 


12 719 








25690 




8 T 


FPU IMTiFPR f Kf — l 


1 2 72 C 


2 7 


rJi i af 




25 700 




BC 


car nfi . ctcrcy 


12732 






02*76 


25710 




^1 


T* C » UC H ▼ JO 


127** 




12500 




25 7 20 


_ y 




c inr c r f» 7 n i 


12752 


3* 


12860 


CC 70 1 






38 


r ^ULr ,00 1Q2 


12 76* 


38 


1 2860 


00702 


257*0 




TR 


OLTAR-l, CLERER»3,2 


127 76 


3 1 


J0256 


02 703 


25750 




AM 


•-12*6, 50, 10 


12788 


1 1 


12782 


00ON0 


25760 




SM 


•♦23, 1, 10 


12800 


12 


12823 


000- I 


\ Win 




CM 


Ct, FRER* 1, 3*, 10 


12812 


1* 


02701 


000L* 






BL 


• -*8 


1282* 


* 7 


12776 


1 300 


25790 




TR A 




12836 


36 


00000 


00500 










128*8 


*9 


00000 


00000 


25800 


F2UCF 


COA 


,0,A*DA0,A*SCT, INSTRN 


12860 




1 * 








0J8881-27J0256 










25810 




TCD 


F2 


12752 
























2 58 30 


* 


SYMBOL TABLE OUTPUT PHASE 










258*0 


* 














25850 




OORG 


INSTRN 


10256 








25860 


U T AR 


CAS 


80 


10257 




80 


X 2 


258 70 




OAC 


1 , ' 


10* 17 




1 


X 2 


25880 


s? i n 


CAS 


3 2 


10*19 




32 


X 2 


25890 




OAC 


12, SYMBOL TABLE 


10*83 




12 


x 2 






SYMBOL TABLE 










25900 




DAS 


36 


105C7 




36 


X 2 


25910 


S T I T 2 


CAS 


3 2 


10579 




32 


X 2 


25920 




UAC 


09, BLOCK 01 


106*3 




9 


x 2 






BLOCK 01 










25930 




CAS 


39 


10661 




39 


X 2 


259*0 


OUTCL 


CAS 


80 


10739 




80 


X 2 


25950 




OAC 


l. # 


10899 




1 


x 2 


■ 

25960 


AL I R 


OAC 


5, CCOOO 


109C 1 




5 


X 2 






CCOOO 










25970 




OAS 


I 


10911 




1 


x 2 


25980 


NACC 


DS 


5 


10916 




5 




25990 


LNCT 


DS 


2 


10918 




2 




260C0 


• 














26010 


• 


E VALLATE ADDRESS OF DEND 










26020 
















26030 


DFNC 


TFM 


INPIT2+1. 30, 10 11 


1 '} \ 10920 


16 


30*1 


0001- 


260*0 




BTM 


EVALAO, •♦ 12,* 


1 10932 


17 


05M0* 


109** 



162C-l**3 MONITOR I VE RSI UN 2 SPS I I-C PHASE A 



26050 




TO 


INPL.T2 + 6, ZEP0*29 


26060 




TO 


INPUT2+5, ZEPO*28 


26070 




BU 


•♦2*,ZEP0»29, , 


26080 




CJTM 


OUTPUT, CSTAT 


26090 




TFM 


CFFA.NCDCFl 


26100 




BTM 


CFF.SNOTCD 


26110 


C ST AT 


BNF 


•♦2*,2PSSW 


26120 




B TM 


2PS0UT , »M2 


26130 




CM 


SBOLT, CO. 10 


261*0 




BE 


CALLA3 


26150 




TC 


OGSV, L0SYMB*1 


26160 




TD 


LOSYMBM, SPSGM 


26170 




NR1TE 


01SK-WLRC-0UTPUT PARTIAL 


26180 




TFM 


I0RT»»*23 


26190 




B 


IORBC.SOEF 1,7 


26200 




TO 


L0SYMB*1, OGSV 


26210 


CALl A3 


RCTY 




26220 


A3STRT 


TFM 


A3HD*ll,ISTAT-l 


26230 


A3B0 


BO 


•♦**,»-■ 


262*0 




TOM 


A3B0*ll,,6 


26250 




OC 


l**t» 


26260 




SM 


A3BD*1U1«10 


26270 




B7 


A3B0 


26280 




TO 


•♦23.MIADD 


26290 




TO 


•♦23,AJUST 


26300 




AM 


HIADD.00,10 


26310 




TO 


•♦23.PICKUP 


26320 




TO 


•♦23.AJUST 


26330 




AM 


PICKUP, ,10 


263*0 




BNF 


•♦20, ISTAT-30 


26350 




87 


• ♦20 


26360 




TF 


MOMAO »Ml ADD 


26370 


MACRIN 


BNF 


•♦68,KILSUB 


26380 




CM 


A3BDM I, I STAT-30 


26390 




BNH 


• ♦V* 


26*00 




TO 


A3BD*l l,A3BO*23,6 


26*10 




SM 


A360*lltl.l0 


26*20 




87 


• -** 


26430 




BO 


ASTOP.ASTSW 


26**0 




BNF 


•♦84.2PSSW 


26*50 




BNF 


•♦36,PTINSh 


26*60 




RCTY 




26*70 




WATY 


PT2NCS 


26*80 




BNF 


•♦36fC0!NSW 


26690 




RCTY 




26500 




MATY 


CD2MCS 


24910 




BO 


STBEGN, STPCSW 


26520 




BNF 


CALLBl.STPRStt 


26530 


STBEGN 


BNF 


STl.STPCSW 


2*960 




WACO 


STIT1,,, 


2*990 




WACO 


OUTCL 


2*9*0 


ST1 


BNF 


ST2.STTYSW 


2*970 




TF* 


ST1T1*2«44,,, 


24580 




OAC 





CHECK FOR TCD 



PUNCH TITLE 



122 



1C9** 


25 


03046 


02329 


10956 


25 


03045 


02328 


10968 


43 


10992 


02329 


10980 


17 


09686 


J1016 


10992 


16 


02629 


-7316 


1100* 


17 


02592 


-8*38 


11016 


4* 


110*0 


02*77 


11028 


17 


09978 


J1040 


110*0 


14 


02643 


ooo-o 


11052 


46 


1112* 


01200 


1106* 


25 


03347 


19998 


11076 


2* 


19998 


02560 


11088 


16 


00565 


Jllll 


11100 


49 


00520 


J0139 


11112 


25 


19998 


033*7 


11124 


34 


coooo 


00102 


11136 


16 


11159 


-2558 


11148 


43 


11192 


ooooo 


11160 


15 


1115R 


ooooo 


11171 




1 




11172 


12 


11199 


000-1 


11184 


49 


11148 




11192 


25 


11215 


02518 


11204 


29 


11227 


02399 


11216 


11 


02518 


ooo-o 


11228 


25 


11251 


02528 


11240 


25 


11263 


02399 


11292 


11 


0252* 


000-0 


1 12*4 


44 


112*4 


02529 


1127* 


49 


1129* 




1126* 


24 


00415 


02518 


1129* 


44 


113*4 


02*84 


11108 


14 


11199 


-2529 


11320 


47 


113*4 


01100 


11332 


29 


1115R 


11171 


11344 


12 


11199 


000*1 


1139* 


49 


11308 




113*4 


43 


12968 


10249 


1137* 


44 


11*60 


02477 


11388 


44 


11424 


02475 


11400 


34 


00000 


00102 


11412 


39 


13013 


00100 


11424 


44 


114*0 


02474 


1143* 


34 


00000 


00102 


11448 


39 


11091 


00 100 


114*0 


43 


114*4 


02470 


11412 


44 


1278* 


02472 


U4S4 


44 


11920 


02470 


1149* 


99 


10419 


00400 


11908 


39 


10719 


00400 


11920 


44 


11*04 


02471 


11932 


1* 


10907 


-oooo 


11949 




I 


X 2 



1620-1443 MONITOR I VERSION 2 SPS I I -C PHASE A 



26590 




RCTY 




26600 




RC TV 




26610 




HA TY 


STITl 


26620 




RCTY 




266 3C 




RC T Y 




26640 


ST2 


CM 


SBOLT t00# 10 


266 50 




BE 


OSYMB-20,,, 0U1PLT 


26660 




TFM 


SBCNT, 00, 10, EX! SIS 


26670 




TF 


8 2DCF ♦ 5 1 8 IDCF ♦ 5 


266S0 


STLCOP 


AM 


SBCNT, I, 10 


26690 




TO 


ST1 T2*40»2, SBCNT 


26700 




ro 


SUT209»2,SBCNT-1 


26710 




HNF 


ST3.STPCSW 


26720 




WACO 


OLTCL 


26730 




k AC D 


OLTCL 


267*0 




* AC D 


STIT2 


26750 




WACO 


OUTCL 




ST3 




LKLUiillYiW 


26770 




RCTY 




26780 




RCTY 




26790 




TFM 


ST IT2»4 1*2 


26800 




OAC 
• 


It* 


26810 




WATY 


STIT2 


26820 




RCTY 




26830 




RCTY 




26840 




TFM 


STIT2*M«2,00il0 ' 


26850 


CRLD 


AM 


B2DCF*5,SPBL 


26860 




C 


SBCNT.SBOUT 


26870 




BH 


FLOAO 


26880 




TD 


OGSV.LOSYMB* I 


26890 




ro 


LOSYMB* USPSGM 


26900 




RfcAD 


DISK-HLRC-READ SYMBOL BLOCK 


26910 




TFM 


10RT,»*23 


26920 




B 


10GT.SDEF2, 7 


26930 




TFM 


L IMITS.LBL1M 


26940 




TFM 


L I M I T S- 5 * MAXL I M 


26950 




TD 


LOSYMB* UDGSV 


26960 




67 


OSYMB-20 


26970 


FLO AD 


TO 


DGSV.LOSYMB* I 


26980 




TO 


LOSYMB* USPSGM 


26990 


• 


RE AO 


DISK-HLRC-PARUAL B LOCK 


27000 




TFM 


10RT,»*23 


27010 




R 


10GT,SDFFI,7 


27020 




TR 


L IMITS-9 f PKTLl M-4 


27030 




TD 


LOSYMB* UDGSV 


27040 




AM 


LIM1TS-5, 17,10 


27050 




07 


ST5 


27060 


0SYM8 


TR 


OUTAR-l ,OUTCL-l 


27070 




TFM 


LNC T, 05, 10 


27080 




TFM 


STLP»6.0OTAR*5«2 


2 7090 


STLP 


TF 


•-• ,L IMI TS-5, 


27100 




AM 


STLP*6, 14,10 


27110 




AM 


LIMITS- 5, 5,10 


27120 




TF 


NAOD.LIMI TS-5 t U 


27130 




TC 


ALIR*8,NADD 



123 



11544 


34 


00000 


00102 


11556 


34 


00000 


00102 


1 1568 


19 


10419 


00100 


11580 


34 


00000 


00102 


11592 


34 


00000 


00 102 


1 1604 


14 


0264 3 


000-0 


11616 


46 


12044 


01200 


11628 


16 


02675 


000-0 


11640 


26 


10193 


10177 


11652 


11 


02675 


000-1 


11664 


25 


10659 


02675 


1 1676 


25 


10657 


026 74 


11688 


44 


11748 


02470 


1 1 7 CO 


19 


10739 


00400 


11712 


39 


10739 


00400 


11724 


39 


10579 


00400 


11736 


39 


10739 


00400 


1 1748 


44 


1 1844 


02471 


11760 


34 


00000 


00102 


11772 


34 


ooooo 


00102 


11784 


16 


10661 


-0000 


11795 




1 


X 2 


11796 


39 


10579 


ooioo 


11808 


34 


OOOOO 


00102 


1 1820 


34 


OOOOO 


00102 


118 32 


16 


10661 


000-0 


1 1844 


1 1 


10193 


-0040' 


11856 


24 


02675 


02643 


1 1868 


46 


11972 


01100 


1 1880 


25 


03347 


19998 


1 1892 


25 


19998 


02560 


1 19C4 


16 


00565 


J .1927 


11916 


49 


00566 


JO 1 4 7 


1192B 


16 


03287 


K0009 


1 1940 


16 


03282 


J5997 


1 1952 


25 


19998 


03 347 


1 1964 


49 


12044 




11972 


25» 


03347 


19998 


11984 


25 


19998 


02560 


11996 


16 


00565 


J2QISS 


12006 


49 


00566 


JOl 39 


1202U 


1 1 


32 76 


Q2«.9« 


12032 


25 


19996 


3 347 


12044 


1 1 


03282 


000 J 7 


12056 


49 


12716 




12064 


31 


10256 


10738 


12C76 


16 


10918 


OCO-5 


12088 


16 


12106 


J0267 


12100 


26 


coooo 


0328K 


121 12 


11 


12106 


0C0J4 


12124 


11 


03282 


000-5 


12136 


26 


10916 


0328K 


12148 


25 


10909 


10916 



1620- 1443 MONITOR I VERSION 2 SPS I I — C PHASE A 



27140 




TD 


ALZR*6,NADD- I 




27150 




TD 


AL ZR *4 ,NADD-2 




27160 




TO 


AL ZR ♦ 2 » NADD- 3 




27170 




TD 


AL ZR*0,NA0D-4 




27180 




TFM 


ALZR* 10,00, 10 




27190 




BNF 


•♦48,NADD 




2 7200 




TFM 


AL ZR* 10,59, 10 




*7210 




BD 


•♦24,R£LSW 




27220 




TFM 


Al ZR* 10,20, 10 




27230 




CF 


ALZR*9 




27240 




CF 


ALZR*8 




27250 




CF 


AL ZR 




27260 




TF 


STLP*6,ALZR*10,6 




272 70 




AM 


STLP + 6, 18, 10 




2 7280 




AM 


LIMITS- 5, 12, 10 




27290 




C 


LIMITS-5,LIMI TS 




27300 




BNL 


• ♦36 




27310 




SM 


LNC T , 1, 10 




27320 




BP 


STLP 




27330 




BNF 


ST4,STPCSW 




27340 




TFM 


IORT,»*23 




27350 




B 


I0PT,0UTAD-4,7 




27360 


ST4 


BNF 


ST4A , STTYSN , , , 


TYPE SVSTEP SVMBCL TABLE 


27370 




WATY 


QUTAR 




27380 




RCTY 






27390 


• • PR INT HEAD ING AND SYSTEM SYMBOL TABLE 


27400 


ST4A 


BNF 


ST5.STPRSW,, 


SMALL ME PRINT SYMBOLS QM 


2 7410 




NOP 


OFLO,,, 


FIRST TIME FALL THROUGH 


27420 




TFM 


I0RT.M23,, 


YES BRING IN THE HEADING 


27430 




B 


I0GT,DSKMD,7 




2 7440 




TOM 


ST4A*l3t9,, 


MODIFY NOP TC BRANCH 


27450 




07 


0FL0M2,, , 


SKIP THE OFLO TEST 


27460 


OFLO 


BNI 


ST4B, 3400, , 


TEST PRINTER CHAN 12 


27470 




BO 


ONE.PGNUM-2 




27480 




BO 


TWCPGNUM-1 




2 7490 




B7 


NONL* 




27500 


ONE 


TOM 


B10MA0M74,7 




2 7510 


TWU 


TDM 


B10MA0*176,7 




2 7520 


NONUM 


TD 


BICMA0*179,PGNUM, , 


, PAGE NUMBER 


27530 




TD 


B 10MAD* 17 7,PGNUM-l 




27540 




TD 


B10MAD* 175.PGNUM-2 




27550 




34 


,0971,, 


SKIP TQ UMMEOIATE 


27560 




34 


♦0962,, 


DOUBLE SPACE AFTER PRINT 


27570 




TFM 


I0RT,»*23,, 


TO IORT -PRINT PAGE HEAD 


27580 




6 


I0PT,PAGE-4,7 




27590 




AM 


PGNUM ,01 t 10 , , 


ADD I TQ PAGE NUMBER 


27600 


ST4B 


TFM 


IORT,«*23., 


FINALLY PRINT SYMBOL TABLE 


27610 




B 


I0PT,SYMT8-4,7, 




27620 


ST5 


C 


L IM I TS-5, LIMI TS 




27630 




BL 


OSYMB 




27640 




CM 


S80UT,00,1C 




27690 




BE 


CALLBl 




27660 




C 


SBCNT, SBOUT 




27670 




BNH 


STLCOP 




27610 


C ALIBI 


BNF 


•♦6C2PSSW 




27690 




BNF 


•♦48tPT!N$M 


12 



12160 


2S 


10907 


10915 


12172 


25 


10905 


10914 


12184 


25 


10903 


1091 3 


12196 


25 


10901 


10912 


12208 


16 


10911 


000-0 


12220 


44 


12268 


10916 


12232 


16 


10911 


000N9 


12244 


43 


12268 


02478 


12256 


16 


10911 


OCOKO 


12268 


33 


10910 


OOOOO 


12280 


33 


10909 


OOOOO 


12292 


3 3 


10901 


ocooo 


123C4 


26 


12100 


1091 1 


12316 


11 


12106 


000J8 


12328 


11 


03282 


000J2 


12 340 


24 


03282 


03287 


12352 


46 


12388 


01300 


12 364 


12 


10918 


000- 1 


12376 


46 


12100 


01100 


12388 


44 


12424 


02470 


124C0 


16 


00565 


J2423 


12412 


49 


00532 


J 300 4 


12424 


44 


12460 


02471 


12436 


39 


10257 


OOIOO 


12448 


34 


OOOOO 


00102 


12460 


44 


12716 


02472 


12472 


41 


12528 


OOOOO 


12414 


16 


00565 


J2507 


12496 


49 


00566 


J3325 


12508 


19 


12471 


CC009 


12520 


49 


12540 




1252B 


47 


12692 


01400 


12540 


43 


12572 


02645 


12552 


41 


129B4 


02646 


12564 


44 


12996 




12572 


19 


10074 


00007 


12SB4 


19 


1007* 


00007 


12596 


25 


10079 


02647 


12606 


25 


10077 


02*4* 


12620 


29 


10079 


02*49 


12612 


14 


OOOOO 


00971 


12644 


14 


OOOOO 


009*2 


12*96 


14 


009*9 


J2674 


12666 


49 


00912 


J3301 


126B0 


11 


02*47 


000-1 


12692 


1* 


009*9 


J2719 


12704 


49 


00912 


J1291 


12716 


24 


01212 


03287 


1272B 


47 


12044 


01300 


1274Q 


14 


01*41 


000-0 


12712 


4* 


12710 


01200 


12764 


14 


02*79 


02*43 


1277* 


47 


11*92 


01100 


12788 


44 


12**8 


02477 


12600 


44 


12848 


02479 



1620- 1**3 MONI TOR 



VERSION 2 SPS II-C PHASf A 



2 7700 
27710 
27720 
27710 
277*0 
27750 
27760 
27770 
27780 
27790 
27100 
27810 
2 7920 

27830 AS TOP 

27(1*0 

27850 

27160 OyTAO 



2 7170 

2 7B8Q PT2MES 
27990 CC2MES 
27900 2STM65 
27910 ASMS 
27920 CB10CF 
27930 



WATY 2STMES 
RCTt 



BNf • ♦^.STPCSW 
BNF •♦8*,LSC0SW 
MACO OUTCL 
WACO Ot'T.Cl 
WACC OUTCL 

NOP GUTCL • , »CHNGE tQ WACO IC PUNCH 1 KORE BLNK LN ApTR SYM TABLE 
NOP OUICL , , *CHNGE TO MACO TC PUNCH I MORE BLNK LN AFTR SYM TABLE 
NOP OUTCL, » »CMNGE TO MACO tC PUNCH 1 MORE BLNK LN AFTR SYM TABLE 
TFM CFFA.C8 IDCF 
BTM CFF,*188 
RCTY 

MATY ASMS 

B MONCAL, ,, CALL EXIT 

DSA OUTAR 



CC 3, 10' 
JO' 

CAC 39 f RE THREAD SOURCE PAPER TAPE FOR PASS 2. 
Rf THREAD SOUtCE PAPER TAPE FCR PASS 2. • 
DAC 32 i RELOAD SOURCE CARDS FOR PASS 2.* 
RELOAD SOURCE CARDS FOR PASS 2.' 
DAC 2*, PRESS START WHEN READY* ' 
PRESS START WHEN READY . * 

DAC 38, DISC AREA TOO SMALL* ASSEMBLY CELETED* 

UISC Aftt A TOO SMALL. ASSEMBLY DELE TEC 

ODA ,0,BIDA0.B1SCT.SB0UTM 

0J8978-21-26** 

DC 1, • 



2 79 AO 


SYMTB 


OS A 


01 TAR 


27950 




OC 


3, 16',,, 






J8« 




27960 


PAGE 


CSA 


B10MADM 


27970 




OC 


3,18' , , , 






J8 1 




2 7980 


DISK CD 


COA 


, I ,B8DADrOC2 






U70GI-02-99C0 


27990 




DC 


I » ' 


26000 


DSKHC 


psc 


2.22,,, 






22 




28010 




OS* 


OISKDD 


28020 




CC 


1, • 


28030 


f 3 


3* 


A5DCF ,00701 


280*0 




38 


A5DCF ,00702 



PR | NT SYMBOL TAQLE LISTING 



PRINT INDICATION ANC PAGE NUMBER 
,B 1 QMAD , , , C^A CF PRINT OUT OFLC 



PAGE OFLO CEFINER FOR SYMBCL TABLE 



I 25 



1620- 1**3 MCMTCR 1 VERSION 2 SPS II-C PHASE A 



28060 A50CF C OA , , A5DAD » A 5SC T , I NS TRN 

0J8737- 31J0256 
28070 TCD F3 



12812 


19 


13155 


00100 


1282* 


3* 


ooooo 


00102 


12816 


*M 


ooooo 


ooooo 


128*8 


** 


129** 


02*70 


12860 


** 


129** 


02*79 


12172 


39 


10739 


00*00 


12816 


19 


10739 


00*00 


12896 


39 


107 39 


00*00 


12908 


* 1 


10739 


0CO0O 


12920 


*1 


10 739 


oopoo 


12<J32 


*l 


10739 


ooooo 


129** 


16 


02629 


J3278 


12956 


17 


02592 


-*188 


12968 


1* 


OOOOO 


00102 


12910 


39 


13203 


00100 


12992 


*9 


00796 


OOOOO 


13008 




5 


X 1 


130C8 




J0257 




13011 




3 




13013 




39 


x 2 


13091 




32 


X 2 


13155 




2* 


X 2 


1320 3 




38 


X 2 


13276 




I* 




13292 




I 




132 97 




5 


X 1 


13297 




J0257 




13 300 




3 




133C5 




5 


X 1 


13305 




-9901 




13 308 




3 




13310 




1* 




1332* 




1 








2 




13331 




5 


X l 


13331 




43310 




1 3332 




1 




1 33 3* 


3* 


13382 


00 701 


133*6 


36 


13382 


00702 








PAGE 


13358 


36 


OOOOO 


00500 


13370 


*9 


COOOO 


COOOO 


13382 




1* 





126 





1620- 1**3 


HON I TOR 


I VERSION 2 


5 PS 11 -C 


1PTSP8 


01500 


ERSTStt 


02*76 


PRCCRE 


2PRT 10 


2C000 


E VALAD 


05*0* 


PftCSTM 


2PS0UT 


04978 


E VALER 


07072 


PRTLIM 


2PTSP8 


00600 


FF 1DCF 


1116* 


PT2MES 


2STMES 


13155 


G00DB2 


Oil 8* 


PT INS* 


5ALPH0 


03399 


G00DB3 


10292 


PUTS R J 


A3STRT 


11136 


HEADER 


12*6* 


RETURN 


ACOCOW 


02528 


[ NCODE 


02*91 


Rf VSKN 


ALFLPt 


0*660 


I NPUT2 


030*0 


RLOCSW 


B10W AO 


09900 


TNSTRN 


10256 


RSYMSW 


BCMSPC 


05772 


1 NTR SM 


02*8) 


2 PASS 


CA5DCF 


1278* 


1 NT SA V 


1561* 


2PBUF 


CALL A 2 


1392* 


I OAQOR 


02636 


2 PRE 


CALL A3 


1112* 


I OCSAD 


19783 


2PSSH 


CALL B I 


12 788 


K| L SUB 


C2*8* 


2PTR 


CALL EX 


12026 


LDABS* 


08036 


2, SECT 


CARDIN 


02668 


LOOSC V 


08926 


2S 


CBIDCF 


I 32 78 


LIMITS 


032 67 


5CHAR 


CD2ME S 


1 3091 


LOPQUT 


03327 


6CHAR 


COINS* 


02*7* 


LOS VM& 


1 9997 


AlCl 


CFFDEF 


0262 3 


L SCO Sm 


02* 79 


A I OAO 


CHVALD 


11712 


L SPR Sw 


02*8 1 


A 1 DCF 


CL ERER 


02 700 


LSTYSta 


02*80 


AISCT 


CLL IN* 


11898 


MACR I N 


112 96 


A20AQ 


LLLOAO 


1 1 898 


MACR02 


1 0256 


A2SCT 


CONMER 


0578* 


MAC SHF 


11816 




COMSPC 


05628 


MAXL I M 


15997 


A3DAC 


CE C T AB 


1030* 


MCADCF 


1 5582 


A3DCF 


I C I T S 




MCAOEF 


1557* 


A3SCT 




0*800 








IHCCF 


1*78* 


HOC TQC 


1602 3 


A*SCT 












D ! SK CO 


13 310 






A50CF 


UME S 1 1 


11118 


MONAME 


1 6035 


A5SCT 


ON E S 2 1 


11286 


HQ NC A L 


CC796 


ACC 


QMES2 2 


1 13 3* 


MONO I S 


160** 


ACCRS 


UMESCL 


111*0 


MO SB NO 


160*3 


A JUST 


UMS AL F 


10862 


MOSOAO 


1 966 3 


ALF LP 


DMSEND 


11*30 


MSTOAD 


189*3 


ALPOP 


DMSER 1 


1 1 6 1 * 


NCDCF 1 


07316 


ALPHA 


DMSER2 


1 1 66* 


NCOCF 2 


10938 


AL ZR 


DMSMN 1 


11026 


NO SI NE 


11908 


ANAL1 


DMSNUM 


1 1062 


08 JCRE 


02*96 


ANAL2 


DOBOMK 


10532 


OPLC TB 


0*91 2 


ANAL) 


COD I SK 


1 1060 


0T2DCF 


1022C 


ANAL* 


UQINST 


10360 


OUTDCP 


1 02 0* 


ANAL 


DOLL AR 


06312 


OUTOF 1 


10155 


ANL1* 




I'JSl h 


0UT0F2 


10163 


ACRS 


OOSVRS 


10980 


OUTPUT 


C9686 


A 


UVASGN 


12100 


PCALL1 


1151* 


ASET 


E 10CAC 


11736 


PCNUS* 


C2*82 


ASMS 


EPRINT 


07332 


PHASE A v 


03*08 


ASR 


ER9CAC 


11668 N 


PHCOAD 


18855 


ASTER 


fcRCHAR 


06*36 


PHCSCT 


00026 


ASTOP 


ERLNTH 


057*8 


PICKUP 


02528 


ASTSU 


ERROIG 


03277 


PROCON 


10882 


810AC 





162C-1**3 


MONI TUR 


I VERSION 2 


SPS II-O 


CLTbL 


11759 


DSKHD 


13325 


ICSK 


CNTR 


10239 


DSS 


1256* 


I ST AT 


COLL 


02*39 


OTR 


118** 


JSTBL 


COMA 


125*8 


OVAOB 


12392 


K 


CON TR 


10277 


DVCKL 


12111 


LABL 


CORM 


03355 


DVENO 


12320 


LAB 


CRLD 


118** 


0VLC2 


12112 


LACCR 


C 


13956 


UVLC 


12028 


LB2 


CSTAT 


11016 


DVLP 


12208 


L8ACC 


CT1 


07*8* 


DVStal 


1210C 


LBCK2 


CTEST 


07*36 


EQDAO 


COOOO 


LBFNC 


CTVT 


02*89 


EQSCT 


0000* 


LBLIM 


CYLAV 


15599 


EQSM 


08359 


LCLBL 


DAC3 


12036 


ER 1 1 


12676 


LCSOK 


OACER 


11580 


ER12 


12708 


LCSR 


OACR 


11860 


ER19 


0961* 


LOTR 


OAC 


11*72 


ER 1 


07*98 


LIM 


DAS 


11392 


ER20 


10C72 


LNCT 


OCARO 


1095* 


ER22 


11686 


LNTM 


DCRN 


13072 


ER2B 


09498. 


L 


DC 


12800 


ER2 


0*28* 


MACRO 


CDA 


12106 


ER 3 


0*8*8 


MEXIT 


OOAX 


12322 


ER4A 


095 9* 


M0CE1 


OOMOO 


111*2 


ER* 


095*6 


MQOE 


0ECL2 


10256 


ERCOR 


07196 


MODOC 


DECL3 


10292 


ERQSA 


13516 


MOMAO 


OECL 


051*8 


ERLAB 


03303 


MOMt 


OENDC 


12760 


EVl 


07108 


MOSCT 


DENO 


10920 


EVODO 


Q2469 


MPYSW 


DGM 


11220 


F20CF 


12860 


MULT 


OGSV 


033*7 


F2 


12752 


MURI 


DIM 


1*776 


F3 


13334 


NAOO 


DISK 


053** 


FDCF 


15764 


NASS 


DMESl 


10778 


FILE 


15716 


NCOCF 


0MES2 


11238 


FLA1 


15660 


NIC 


OMESA 


1093* 


FLGRM 


03345 


NMOAL 


DMESC 


11002 


FLOAO 


11972 


NOISE 


DMES 


10682 


FMOCF 


13016 


NQNEX 


DMS12 


1121* 


FM 


13038 


NONUM 


DMSB1 


10958 


GET1 


038*0 


NUMB 


OMSRM 


11*5* 


GET 


0641* 


OFLO 


DMSV 


032*6 


GOODB 


0*976 


OK 


OMSVM 


03271 


HCLIM 


02507 


ONE 


ON 8 2 


12*96 


MED 


1023T 


ONE I 


DOAOC 


10452 


MIAOD 


029l« 


OH 


DOB I 


10600 


I DMES 


12631 


OP 


DOK 


10736 


INKRM 


02565 


OSYMB 


DOL 


05685 


INPUT 


02187 


OUT AO 


DOROW 


10668 


INSAV 


02 755 


OUTAR 


DORG 


12586 


INST 


0528* 


OUTCL 





1*615 


IOCAL 


00716 


OUT 


OS A I 


13340 


I06ET 


10618 


PAGE 


0SA2 


13376 


IOGI 


00566 


PCALL 


OSA 


13308 


10PT 


00532 


PCC 


0S6 


12080 


IORBC 


00120 


PCK 


OSONB 


11316 


I0R7 


00*6% 


PCIH 



PHASE A 






PAGE 


62 


02*97 


B1DCF 


10172 


CI BP 


1 3460 


03916 


6 1 SC T 


0C021 


C 10 


15331 


02502 


B20A0 


19200 


C19P 


13524 


13013 


B2PCF 


1C 188 


C19 


1 536 1 


02*75 


B2SCT 


00052 


C1P 


12644 


108 30 


B3DA0 


19000 


C 1 


1*601 


05992 


B3MA0 


09100 


C20PI 


13628 


1 109* 


B3SCT 


C0069 


C20P2 


13560 


08035 


B4DA0 


19069 


C20P3 


13701 


080 3* 


B*SCT 


CC053 


C20P* 


13606 


09882 


B5pA0 


19122 


C20P 


13544 


10062 


B5SCT 


0C029 


C20 


15393 


10050 


B60A0 


19151 


C21P 


1 3 720 


02*77 


B6SCT 


0C030 


C 2 1 


15429 


099*2 


B7CAC 


19219 


C22P 


13740 


09626 


B7SCT 


ccoo* 


C22 


15453 


09862 


B60A0 


17001 


C23P 


13760 


Q6562 


B9MA0 


16500 


C 2 3 


1 5* 81 


0659* 


BBACK 


06200 


C24P 


13816 


10682 


BETA 


02696 


C24 


15491 


18600 


BI 


05320 


C25P 


1 3664 


15720 


BN 1 


05320 


C25 


15509 


00137 


BOMK 


05308 


C26P 


1 3 904 


18800 


BP 2 OK 


0C005 . 


C 26 


1551 9 


00055 


B ■■ ' ' 


1 3632 


X2P1 


1 2 766 


111*8 


BSAV 


08390 


C 2P2 




19252 


BSBF 


0836* 


C 2P 


12724 


1 1 20* 


6SCYC 


08 132 


C 2 


14023 


00029 


BSENT 


084 1 3 


r %e \ 






8SHI 








00027 






r \v\ 


i Ids a 


187 37 


BS 


08120 


r\o 


if OKI 


1 3382 


BSW 


08037 


r x 




pOO 3 1 


8 T BL 2 




C*1A 


i jui 


05296 


BTBL 3 


1 C 30* 


C*P 


13024 


03299 


BTBL* 


1 C**0 


C * 


14681 


02399 


BTBL 


05058 


C5P 




0*7 16 


CIO 


1 5027 


C 5 


1*903 


0*616 


C 1 1AP 


I 322* 


C62S 


12342 


02686 


CI I A 


15093 




123** 


1090 1 


CI IP 


1 320* 


C 6P 


I 306* 


10*02 


C 1 1 


1 5059 


C 6 




10*9* 


C 1 2P 


1 324* 


C 70 


15573 


10598 


C 1 2 


15127 


C 7P 




10* 1* 


C I 3P 


1 326^ 


C 7 


1*963 


103*2 


Ci\ 


151*7 


C 8P 


1 31 0* 


10*62 


Ci*P 


1 3 320 


C8 


1*995 


05896 


CI* 


15177 


C9P 


1312* 


13575 


C15P 


1 3376 


C9 


15017 


05956 


C15 


15217 


CCN2 


13012 


13203 


C16P 


13*20 


CCN3 


13276 


0689* 


C16 


15259 


CCON 


12860 


068*6 


C17AP 


13*60 


CFFA 


02629 


12968 


C17A 


15307 


CFF 


02592 




C I 7P 




CHK2 


07152 


1 RQ7A 


C I 7 


* 


CHKNO 


07120 


12 7 










PHASE A 






PAGE 63 


0055* 


PC TR 


11*9* 


SKAP1 


12893 


02559 


PGCON 


0990 1 


SKAP 


12596 








SKIPl 


12 888 




0UACC 

oi ire 




SKIP 


1258* 








SLP 


11178 




DD A 




SLPX 


11302 




OB A< 


12*12 


SMODE 


03346 




PRO 


1 2360 


SMPBL 


00235 


07590 


oa r\K 




SPAP1 


13013 


085 30 


PttW 


12392 


SPAP 


12628 




PRNS 


1 2 380 


SPBL 


000*0 


20009 


PRNT 1 


1 0428 


SPEC 


0580* 




PRNT2 




SPIM1 


13008 


09059 




1 2540 


SPSGM 


02560 


090*6 


PRNT* 


12640 


SREL 


06176 




PRNT5 


1272* 


SSTOF 


13695 


Q8*00 


PRN T6 


12772 


SSTSW 


13719 


1 09 1 8 


PRNT 7 


12832 


ST1 


11520 


02387 


PRNT 


10392 


ST2L 


10850 


Q252Q 


PRT AO 


IC25Q 


ST2 


1160* 


1 1288 


PRTHC 


1C265 


ST3 


11740 


10902 


PUT 


10666 


ST*A 


12460 


1 1778 


R2BE 


03712 


ST4B 


12692 


11730 


R3E 


04036 


ST4 


12424 


16022 


RCTR 


08033 


ST5 


12716 


00* IS 


K09l r K 


07868 


START 


10262 


160* 1 


ROM 


05332 


STCNT 


02513 




READ 1 




STITl 


10419 


08038 




03640 


STIT2 


10579 


06796 


RE AO) 


3*** 


STtP 


12100 


02631 




06 1*4 


STR 


11292 




REL.SW 


02*78 


STSAV 


15609 


12460 




04224 


SUB NO 


02523 


11562 


RLQP 


04272 


SVOG 


09130 


077 32 


RMOP 


04492 


SU2 


07030 


11663 


RMRK 


02975 


SVNT0 


13297 


02521 


RS0O 


03990 


TAP1N 


02660 


00457 


RSCAN 


03909 


TEMPR 


02971 


12596 


SI 


06209 


TEMP 


03393 


02448) 


»*}» 


1*2*8 


TEST! 


06910 


12920 


SAS2P 


1*1*9 


TP ADO 


06962 


04928 


SAS2 


1**96 


TOBB 


06100 


12572 


SASC2 


1**20 


TRA 


10910 


02984 


SASC 


1*212 


TSPEC 


102*0 


04909 


SASX 1 


1*116 


TWO 


1290* 


04396 


S4$X2 


1*92* 


TYPIN 


02692 


1206* 


S6CNT 


02479 


KOI 


102*9 


13009 


SON AX 


02671 


X21 


102*7 


10237 


SINK 


11190 


X33 


102*1 


10719 


SBOUT 


024*1 


X69 


10241 


02219 


SCTAV 


1940* 


X97 


11491 


13309 


S0IF1 


10119 


X802 


14114 


1139* 


S0EF2 


101*7 


XOAS 


1*217 


11430 


SEEK 


1Q442 


XOS 


11900 


02369 


SHP 


0*1*9 


xoss 


1*199 


1199* 


$IOC 


09149 


XHiAD 


1919* 



1 2* 







1620- 1**3 MQNI TOR 


I VERSION 2 


SPS I I - C 


PHASE A 






PAGE 44 


1 EPlJ 


0? 300 


SSTDCF 


I J 704 


STPCS* 


02*70 


SYMT6L 


1 4003 








SST SC T 


C0035 


S T PRS W 




St SCAL 


oc*?*> 


TY»A<^ 1442 A 

i i r m a 9 t ~ wm, W 




053B0 


START2 


1 053* 


STTYS* 


02*71 


TA8FUL 


09112 




SBFACO 


15998 


ST&EGN 


11*8* 


SUBDAD 


0*808 


THINGS 


02*10 




SNCfCC 


08*38 


STCHIR 


I 1 786 


SUBENT 


3261 


TRNUHl 


06 722 




SS.CAD 


18908 


STLOOP 


I 1 632 


SYMT AC 


026*1 


TRNUNB 


066 3 It 





ENC OF ONE ASSEMBLY. 



I 2 



162C-1**3 MONITOR 1 VERS|ON 2 SPS II-C PHASE 8 PAGE I 



000 10 




DORG 2218 






C2218 




UC020 






SYMBOL TABLE PARAMETERS 








000 30 


SPDL 


OS 


. *C>, 




SECTCRS PER BLOCK 


0C04Q 





000*0 


SMPBL 


OS 


♦ 235,, 




SYMBOLS PtR BLOCK 


0023$ 





00O50 


5YMTBL 


OS 


t 16003, 




H I -ORDER POSITION OF SYMBCL TABLE 


160C3 





00060 


LQSYMB 


OS 


, S YMTBL ♦ SMPBL* 17-1 




LO-QRCE* POSITION OF SYMBOLIC BLOCK 


19997 





000 70 


SBFACO 


DS 


, LCSYMR-SPBL»1QC*1 




SYMOCLIC BLCCK CISK ACORESS 


15998 





U0080 


L9L IM 


US 


, LGSYMB* 12, 




LU-OKDER BLCCK LIMIT 


20009 





00090 


MAXL IM 


DS 


. SYMTBL-6, 




MAXIMUM LIMIT 


15997 





COIOO 






EMPIRICAL SECTOR ASSIGNMENT PARAMETERS 






00110 


1PTSPB 


DS 


, 1500. 




1-PASS TOTAL SECTURS PER SYM. BLOCK 


015C0 





00120 


2PTSPB 


DS 


,6CC, 




2-PASS TOTAL SECTORS PER SYM. BLOCK 


00400 





00130 


BP 2 OK 


DS 


.5, 




SYMBOLIC BLOCKS PER 20K CCRE 


000C9 





001*0 


2PRTI0 


OS 


.2CC00. 




2-PASS RATIO— INTERN. /F INAL SECTORS 


20CC0 





00 ISO 


• 




SPS DISC ASSIGNMENT PARAMETERS 






00160 


A1CA0 


DS 


, 18600, 




CONTROL STATEMENTS, PH. A SUBROUTINS 


18600 





00170 


A1SCT 


OS 


,137 






00137 





00180 


A2DAD 


DS 


,18800, 




NORMAL PROCESSING— FREQUENT STMTS . 


18800 





■00190 


A2SCT 


OS 


,55 






C0055 





00200 


A3CA0 


OS 


.19252, 




TKA, CALL, GET-PUT ANQ ASSCC OECL 


19292 





00210 


A3SCT 


DS 


.29 






00029 





00220 


A*CAD 


DS 


•18E81, 




DMES, CVLC PROCESS 


18181 





00230 


A*SCT 


DS 


,27 






0C027 





002*0 


A5CAD 


OS 


,18737, 




DENO. TCC , AND SYMBOL TABLE LIST 


18737 





00250 


A5SCT 


OS 


,31 






00031 





00260 


SSTCAO 


OS 


,18908, 




SYSTEM SYMBOL TABLE 


18908 





00270 


SSTSCT 


OS 


.35 






00035 





00280 


MSTCAO 


OS 


,SSTDA0»SSTSCT, 




MASTER SYMBOL TABLE 


18941 





00290 


WOSDAD 


OS 


.19663, 




MONITOR COMM SECTOR DISK AOORESS 


19663 





003CQ 


81CA0 


OS 


.18978. 




PHASE B INITIALIZATION 


18978 





00310 


B1SCT 


DS 


.21 






CC021 





00320 


B2DAD 


DS 


.19200. 




INPUT, BRANCH TABLE, SCAN 


19200 





00330 


82SCT 


DS 


.52 






00092 





003*0 


B3CAD 


OS 


. 19C00, 




L1NPRT, INST RN, DC, OSDNB. CAS. DORG 


190C0 





0035C 


B3SCT 


DS 


• 69 






00049 





00360 


B3HAD 


DS 


,09100, PHASE B3 MEMORY 


AOORESS 


09100 





00370 


B40A0 


OS 


,19069, 




RSTR.OAC.ALOW.CMES.OSB.OVLC.PGM 


19049 





00380 


B4SCT 


DS 


.53 






00093 





00390 


B90A0 


OS 


. 19122. 




OSA , MACRO. COA.TRA, DENO 


19122 





00400 


B5SCT 


DS 


.29 






00029 





00410 


B40A0 


DS 


•19151. 




CALL L INK , LOAC , EX I T 


19191 





00420 


B6SCT 


DS 


.30 






00010 





00430 


PHASE 


A INITIALIZATION 










00440 


8 70 AO 


OS 


.B20ADM9,,, DISK- 


RESTORE B PARTIAL 


19219 





00490 


87SCT 


OS 


,0*,.. SECTOR 


COUNT-RESTORE B PARTIAL 


00004 





00440 


BBOAD 


OS 


.ITCOl... DJSK- 


PAGE 


OFLO GOOOISS 


17001 





00470 


B9MA0 


OS 


.16900,. 


CORE 


AOORESS TO INITIALIZE 


14900 





00480 


B10MAC 


OS 


.09900.*. 


CORE 


AOORESS OP PAGE OFLO 


09900 





00490 


OIMOAO 


OS 


,0*800, 




OIM ENTRY FOR EQU1V. TABLE 


04B00 





00900 


OIMSCT 


OS 


.1 






oooci 





00910 


fODAO 




.0, 




EQUIVALENCE TABLE 


00000 





00920 


EQSCT 


11 


.. .4.." . . . . 






00004 





009)0 


PHCOAO 


OS 


,18199 






11899 





00940 


PHGSCT 


DS 


.26 






00014 





00990 


SU8OA0 


OS 


. 04101. 




SPS SUBROUTINE OIM ENTRIES 


048C8 





00940 


• 




MONITOR COMMUNICATION 


PARAMETERS 







130 



162C-1**3 MONITOR I VERSION 2 S9S 1 1 -C PHASE B 



PACE 



Q0S70 


MOSCT 


OS 


i 1 6 COO t 




MONITOR COM SECTOR MEMCRY ACPAESS 


160C0 





00580 


NOCOC 


ns 


, muSC T> 22 t 




DISC OUTPUT CODE 


16022 





00590 


"OCTOC 


us 


,MOSCT*23, 




CO-TP OUTPT COOE 


16023 





00600 


NONAME 


OS 


• MOSCT* 35, 




NAME 


16035 





00610 


MO I CNO 


OS 


, MOSCT* 39, 




ID NLM8ER 


16039 





00620 


MOML 


OS 


»MQSCT**l, 




MANT, LENGTH 


160*1 





00630 


M0S8N0 


OS 


,M0SCT**3, 




SUB* SET 


160*3 





006^0 


MONO I S 


OS 


, MOSC T*** , 




mui <;f digit 


1604* 





00650 


MOEXEC 


OS 


• 426, 




EXECLTE CONTROL ANO SPS INPUT 


00*26 





00660 


MUM AO 


us 


» * I 5 » 




MEMORY ADDS 


00*15 





00670 


SY 5CAL 


OS 


,4 75, 




1V&TPM f QMMflM ACT! AM 1 fif A T 1 fitt 


004 75 





00680 


NONEX 


OS 


, * 5 7 i 




NON-EXECUTE FOR JU8 ERROR 


00*5 7 





00690 


PCK 


OS 


, 2 365 






02 365 





Q07C0 


• 




IURT ENTRIES 










00710 


1 OR T 


OS 


,565 











00 720 


I OP T 










00532 





007 30 


IOGT 


c s 


, 56 6 










00 7*0 


I OK QC 


ns 








00520 





00750 


I OS* 


us 


» 554 






no*?* 




00 760 


10CAL 


DS 


, CC 7 1 6 






UO 716 




00 7 70 


MONCAl 


OS 


, CC 796 






QQ796 




00780 


IQCSAQ 


OS 


, 19783, AOORESS 


OF THE LOAPER'CAUIR 


19783 





00790 


• 














00800 


t 




SPS COMMUNICATION 


AREA 








008 1 
















00820 


UUT 


cs 


I 






C2218 


I 


Q0830 




us 


80 






02298 


80 


00840 


Z E PO 










O23C0 


2 






cs 


81 






0238 1 


81 


00860 




oc 


I, • 






02382 


1 


00870 




OS 


5 






02387 


5 


0088 




cc 


t , * 






02388 


1 


00890 


... 


oc 


11.2121212121,, 




INSTRUCTION PARITY TABLE 


02 399 


11 






-2121212121 










09C 




cc 


2 1 , CO 102G 30*05060 7CCC0' 




02*20 


2 1 






-00 1O2O3C05O6O7CCC0 










00910 


COLL 


CS 


19 






02*39 


19 


0092 




DS 


2 






02** I 


2 


009 3C 


HUM R 


CC 


7 , • 






02**8 








-OOCOC • 










009*C 


J S T HL 


DC 


1 1 , 3232323232, , 




ALPHA PARITY TABLE 


02*59 


1 1 






-3232323232 










C095U 


EVQCC 


CC 


lo.cioioioioi,, 




DMES PAR IT Y TABLE 


02*69 


10 






-10101CIC1 








00960 






PKQCESSOR CONTROL 


SWI TCHES 


— FLAGGCO l«0N, UNFL AGGED 0-OFF 






00970 


S TP CSW 


DS 


1 , . 




PUNCH SYMBOL TABLE 


02*70 


1 


00980 


STTYSW 


DS 


1 t . 




TYPE SYMBOL TABLE 


02* 7 I 




00990 


STPRSW 


US 


1 , . 




PRINT SYMBOL TABLE 


02*72 


. 1 ■■ 


OlOCO 


TV INSW 


US 


1 , , 




BEGIN TYPEWRITER INPUT 


02*73 


1 


I 1 


CCINSW 


UC 


1,1., 




BEGIN CARD INPUT 


02*7* 


I 


01020 


PTINSW 


J 

OS 


1, . 




BEGIN PAPER TAPE INPUT 


02*75 


1 


01030 


E«STSW 


LS 


1 , • 




EMROR STOP 


02*76 


I 


010*0 


2PSSW 


DS 


1 , , 




TWO PASS MOPE 


02*77 


1 



131 



162C-1**3 MONITOR 1 VERSION 2 SPS I l-C PHASE B 



01050 


REL Sw 


US 


It , 


ASSEMBLE RELOCATABLE 


02*78 


01060 


L SCCSW 


OS 


1 , , 


LIST CARO 


02*79 


01070 


LSTYSW 


CS 


1 . t 


LI ST TYPEWRITER 


G2*8C 


01080 


L SPRSW 


CS 


1 , , 


L|ST PRINTER 


02*81 


01090 


PCNUSW 


DS 


1, . 


PUNCH RESENTENCED SOURCE lECK 


02*82 


01 100 


INTRSW 


OS 


1 , , 


INTERRUPT 


02*83 


Oil 10 


K I L SUB 


CS 


1 . , 


NO SLBROLT I NES 


02*8* 


01 120 


CTVT 


DC 


5,0 




02*89 






-0000 








Oil 3U 


INCOOE 


DC 


2.5 




02*91 


01 1*0 


08JCRE 


-5 
DS 


5, , 


OBJECT MACHINE SUE 


02*96 


01150 


PROCHF 


OS 


I, , 


PROCESSOR MACHINE SUE 


02*97 


01 160 


P«TL IM 


DS A 






025C2 












025C2 


Oil 7C 


HCL IM 


CSA 


LBL IM 




025C7 



01 180 




CC 


1, • 


02508 


01190 


STCNT 


DC 


5,1,, STATEMENT COUNT 


02513 






-0001 






01200 


HIACC 


DC 


5,0,, HIGH ACORESS 


02518 






-0000 




01210 


L 


OS 


2., LENGTH OF MANTISSA 


02520 


01220 


NOISE 


DS 


1 


02521 


01230 


SUBNO 


OS 


2 


02523 


012*0 


PICKUP 


OS 


5 


02528 


01250 




DC 


1 , I 


02529 


01260 


I ST AT 


J 

DC 


30, C 


02559 






-CCCCOCCCCCOCCCCCOCOOOaCCQCGO' 




01270 


SPSGM 


DGM 




02S60 


01280 


INKRM 


OS 


5 


02565 


01290 




DC 


1 , • 


02566 


01300 


TEMPR 


OS 


5 


02571 


01310 




DC 
t 


I, ' 


02572 


01320 


RMRK 


OS 


3 


02575 


01330 




OC 


l,' 


02576 


013*0 


QNEZ 


DC 


10, 1 


02586 






-OCOQCCCCl 




01350 


• 








01360 


• 


ICCS CALL-LQAO PROCESSOR SECTION-NO NLAC 




01370 


• 








01380 




OS 


5 


02591 


01390 


CFF 


TFM 


IQRT,02S 


02592 


01*00 




B 


10GT, CFFDEF t 7 


0260* 


01*10 




B7 


CFF-i, t 6 


02616 


01*20 


CFFDEF 


DSC 


2,22,, ABSOLUTE OI$K NOT WRONG LENGTH 


02623 






22 






01*30 


CFF A 


CSA 




02629 



-cooo 



10 



13? 









1620-144) MONITOR 1 VERSION 2 SPS II-C PHASE 8 








PAGE 










02629 




-0000 




I **o 




DC 


1 ♦ • 


02630 




I 




01440 


«U« I 


OS 


1 


02631 








0l«60 


ioacor 


OC 


5,0,, FILE ADDRESS OF 1 KTE RMECI ATE OUTPUT 


02636 












-0000 












1 4 7 


SVM T AC 


nc 


J| U<OUU I 1' 1 LC lUUKt )} Ur 5TPDLL 1 (SIC 


0264 1 












- 2 60C 












01 4 MO 


SIUU T 


CC 


2iG 


0264 3 








01490 


PGNUM 


-0 

oc 


4,oC01,». PAGE NUMBER BUCKET 


02647 












-001 












U 1 SCO 


! 














01410 




END SPS COMMUNICATION AREA 










01520 


t 














01*10 


TVPIN 


OS A 


INPl T- 10 


02652 




5 


X 1 














83 




01440 




CC 


3,Cfc« 


02655 








01 550 


TAP IN 


-b • 

CSA 


INPUT- 10 


02660 




5 


X 1 










02660 




- 2 783 




01560 




DC 


3,08* 


02663 




3 




U 1 5 70 


C AR C 1 N 


CSA 


INPUT- 10 


02668 






X 1 














-2783 








CC 


3,1C 


0267 1 




3 








JO • 

CC 


2, IC 














JO 












1600 


AC C CO W 


cs 


5 


026 78 








U1610 


ALPHA 


cs 


10 


02688 




10 




1620 


HET A 


cs 


1C 


02698 




10 




U 1 6 30 


NOPR 6 C 


nc 


I^AIOOCOOCCOCO' 


0271 3 












-04 ioccccccoco • 












_ 


OS 


*> 


02718 










ft tOf| 


CC 


I i C 


02719 




1 




0166U 




CSC 


2 6 , C 


02720 




26 








oooococccococooooooccoccoo 










0167C 




CSC 


27, • 


02746 




2 7 








COOC0CCCC000 0OOCC0CCC0CCCC ' 










01680 




cs 


b 


02 7 8 C 




8 








CAC 


5, . 


02783 




5 


x 2 


01 




DAC 


fc. , 


02793 




b 


x 2 


01710 




DC 


8,0 


0281 1 












-OCCCCCC 










01 720 




00 


,,0246810 


02812 


-0 


-0-0- 


0-0-0 


01710 




00 


,,0246810 


02824 


-0 


-0-0- 


0-0-0 


01 740 




00 


,,0246810 


02836 


-0 


-0-0- 


0-0-0 


0175C 




CO 


,,0246810 


02848 


-0 


-0-0- 


0-0-0 


Ul 760 




00 


, ,C2468 10 j rj 


0286C 


-0 


-0-0- 


0-0-0 








162C-14.43 MONITOR I VERSluN 2 SPS II-C PHASE 6 








PAGE 


017 70 




CO 


, .C246810 


02872 


— 


-o-o- 


0-0- 


01780 




00 


, .Q246B10 


02884 


-0 


-0-0- 




U I 790 




00 


,,C246810 


02896 


-0 


-0-0- 


0— 0— 






GO 


,,G?46810 






-0-0" 




oibio 




CO 


, ,0246810 


02920 


-0 


-0-0- 


o-o-c 


01820 




uo 


.,0246810 


02932 


-0 


-0-0- 


0-0-0 


OlttJO 




00 


,,L246810 


02944 


-0 


-0-0- 


0-0-0 


lti40 




00 


, , C2468 10 


02956 


-0 


-o-o- 


0-Q^O 


1 8 50 




CO 


, .C246810 


02968 


-0 


-0-0- 


o-o- o 


01860 




CC 
-0 


2,0 


02 981 




2 




018 7 




CC 


2,C 


0298 3 




2 




01880 


PACK 


-0 
OSS 


300 


02984 




300 




ni or ^ 




OAS 


I 


03284 




1 


x 2 


1 i U 


IN Of 2 


CAS 


1 


328 7 




1 


X 2 


1 V 1 




CSC 


5C,C 


3288 




50 








OOOCOOOOCOOOOOOOOOCOCOCOOOCCCOOOOOOOOOOOOOOOOOOOOO 










01920 




osc 


50, C 


03338 




50 








ococcccccccccooccocccccccocccooooooooooooooooooooo 










19 30 




CSC 


5C.C 


3388 




50 








ocoooooccooocooooooccocccocooooooooooooooooooooooo 










01940 




DSC 


50, C 


03438 




50 








occccccccccocooooooccccccocccooooooooooooooooooooo 










1950 




osc 


22. • 


03488 




22 








COOCQCCOCOOOCOOCCOOOO • 










01960 


ACCRS 


OS 


11 


03520 




11 




01970 




cc 


It * 


03521 




1 




m <mr> 




TFM 


PCK*10, 19,17 


03522 


10 


02375 


-C019 






8 


PCK ,,26 


03534 


49 


— 236N 


ocooo 


02000 




DC 


I . • 


03546 




1 




02010 


OUKPl 


ns 


♦ IINK*14 


03536 













OS 


1 


01547 




I 




02090 


0IFIN2 


DSC 


2,CC 


03548 




2 








CO 












02040 




OSA 


SUB IN 


03554 




5 


X 1 










03554 




-3564 




02040 




CC 


It* 


01555 




1 




02060 




osc 


2,02 


03556 




2 








02 












02070 




OSA 


SUB IN 


03562 






X 1 










03562 




-3564 




02080 




oc 

1 ' 




03563 




I 




0/ 


<IJR1 M 


ODA 


,0t«-*t2»»-« 


03564 




14 








0-0000-02-0000 










021 00 




oc 


!»• 


03578 




1 




02110 


OWGUT 


osc 


2.02 


03579 




2 








02 












02120 




OSA 


St BOUT 


03485 




5 


x 1 



I 3 U 



162C.tUA3 HON! TOR I VERSION 2 SPS l\"t PHASE B 











03585 


-3588 


02130 




DC 


1, • 


3586 


1 


021*0 


SUBUUT 


ODA 


,0,«-», 3, PACK 


03588 


I* 






0-0000-C 3- 298* 






02150 




CC 


1.' 


3602 


1 


02160 


OEFSM 


DSC 


2,CC 


036C3 


2 






00 








021 70 




D5A 


StOSM 


036C9 


5 










036C9 


-3612 


02180 




DC 


l*' 


03610 


I 


02140 


SUhSm 


CDA 


,0,»-«,SP8l,S8FAUD 


03612 


I* 






O-0CO0-*OJ599B 






02200 




CC 


1 , • 


03626 


1 


02210 


MUK I EL 


ns 


1 


03627 


1 


02220 


INTBUF 


DSC 


9,00000000' 


03628 


9 






00000000' 






02230 




OSS 


191 


03637 


191 


022*0 




DC 


1 , • 


03828 


1 


02250 


ERl A8 


CAS 


6 


03831 


' 6 


02260 




CAC 
♦ • 


2**' 


038*3 


2 


022 70 


10P0UT 


DC 


12,0 


03857 


12 






-CQCCCCLCCCO 






02280 




nc 


* , • 


03861 


* 






-00 • 








02290 


L IMTSP 


DS 


iHCLIM 


025C 7 


o 


02 300 


L !H 


CC 


10, C 


C 3 8 7 I 


10 






-OOOOOOGCO 






02310 




DC 


1 t • 


38 72 


I 


0232U 


L IMSV 


CS 


10 


03882 


10 


02 330 




DC 


1 , • 


03883 


1 


02 3*0 


BL X 


DS 


, SUOUT 


026* 3 


o 


02350 


HEC 


CS 


3 


03886 


3 


02360 


DME Sw 


OS 


I 


03887 


1 


02370 


7TY5 


DC 


5,75 


03892 


5 






-00 75 






02380 


IC 


CC 
-0 


2,0 


389* 


2 


02390 


FRSrAD 


LS 


5 ' ' 


03899 


5 


02*00 


STKLEN 


DS 


5 


03.9C* 


5 


02*10 


LSTAC 


DS 


5 


C39C9 


5 


02*20 


FLGRM 


DC 


1. ' 


03910 


1 


02*30 


PACKAC 


CSA 


PACK, PACK* 75, PACK* 150, PACK* 22 5 


*9lb 


5 










C3915 


-298* 










03920 


-3059 








1 5 


C3925 


-313* 








162C- 1**3 PONl TOR I VERSION 2 SPS II-C PHASE B 














03930 


-3209 


02**0 




DC 


It 1 


3931 


I 


02*50 


PK MOD 


CSS 


26 


03932 


26 


02*60 




DC 


6,0 


03963 


6 






-OOCOO 






02*70 


ISTTCC 


DS 


5 


03968 


5 


02*80 




DC 


1 1 ' 


03969 


1 


02*90 


SFA 


ns 


8 


03977 


8 


02500 




DC 


liO 


3978 


1 



02510 BLKACS CSS 
02520 OSA 



30 

SYMTBL-6 



03979 
0*013 



30 
5 X 



02530 LIHTSF DSA S YM TBL* 1 T SMPBL* 1 1 



025*0 



CC 



02550 BLKCTR OS 2 
02560 DMPCI6 OC 5,0 
-0000 

02570 ABBA DC 5,0 
-0000 

02580 FRSTMT DSC 1,0 


02590 KIRISW DS 1 
02600 X DS 5 

02610 CARQIN OS 1 
02620 VACANT OSS 
02630 COPOEF OSA 



026S0 IN I T I 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

027*0 

02750 

02760 

02770 

02780 

02790 

02800 

02810 

02820 

02830 



1*C 

INPLT2 



DC 

J0« 

TF 

TFM 

TFM 

TFM 

TFM 

TF 

SM 

TFM 

BNF 

TFM, 

TO 

SM 

SF 

BNR 

TR 

TFM 

B 

TR 

AM 



3, 1C» 

ERL AB*10,CLERER*1 1 
HEC, t 10 
SUBOUT*5,0 
INKRM 1 99999 
SLB!N*13, INTBUF 
S0BIN*5, IOADDR 
SUB1N»5,2,10 
AODCOM, 2*01 
•♦2*,RELSW 
ACDCOWt 99999 
DMPDIG-*,PROCRE 
DMPOIG.1,10 
FLGRM 

•♦*8»ISTAT-29 

PKMOO.PACKAD-* 

7TY5t75 

• ♦*a 

PKMUOtPACKAOn 
PKM0D**t25 



136 



0*013 
0*018 



0*018 
Q*019 



0*021 
0*026 



0*032 

0*033 
0A038 
0*039 
0*0*0 
0*18* 

0*18* 
0*187 

0*188 
0*200 
0*212 
0*22* 
0*2 36 
0*268 
0*260 
0*272 
0*28* 
0*296 
0*308 
0*320 
0*332 
0*3** 
0*356 
0*3*8 
0*380 
04192 
0**0* 



J 599 7 

5 X 



K0009 
1 



5 
1 

1*0 
5 X 

-3287 
3 

018*1 
03686 
03593 
02565 
03S77 
03569 
03569 
02676 
0*306 
02676 
0*022 
06026 
01910 
06362 
03632 
03662 
04626 
03632 
03636 



02730 
000-0 
-0000 
66669 
-3626 
02636 
000-2 
-2401 
02476 
66666 
02467 
000-1 
00000 
02530 
03611 
-0075 
OCOOO 
03616 
-0025 









1620-144) MONITOR 1 VERSION 2 SPS Il-C PHASE B 








PAGE 


02140 




TFM 


7TV5«50 


04416 


16 


01892 


•0050 


02850 




TR 


L IM-9.LIMISP-9 


04428 


31 


03662 


02498 


021*0 




TF 


SUB SM*5.SVMTA0 


04440 


26 


0)617 


02641 


0/STO 




TF 


SF A tSVMTAO 


04452 


26 


01977 


02641 


02110 




TF 


ABBA ,PKM0D»4 


04464 


26 


06011 


03936 


02*90 




TO 


INTBUF*200 ( SPSGM 


04476 


29 


01828 


02560 


02900 


• ••• ROUTINE TC HINT FUST PAGE INDICATION FOR LISTING 










02910 




BNF 


ENT«12 f LSPRSH,« TEST FOR LISTING 


04488 


44 


04584 


02461 


02920 




TFM 


PCNLM,CC02,8 


04500 


16 


02647 


0-002 


02910 




TFM 


10RT»**?3 fl GET HE AO RECORO 


04512 


16 


00565 


-4535 


02940 




H 


I0GT,H0PRT,7, , 


04524 


49 


00566 


-4611 


02940 




34 


.0971,, SKIP TO 1 IMMEDIATE 


06516 


}4 


00000 


00971 


02960 




34 


,0962,, OOUBLE SPACE AFTER PRINT 


04548 


34 


CCOOO 


00962 


02970 




TFM 


I0« T , ♦♦2). , TC IORT PRIM PAGE 


04560 


16 


00565 


-4563 


029t0 


ENT 


n 


I0PT,H0DEF-4,7, 


04572 


49 


00512 


-4623 


02990 


• •• 1 


CONTINUE INITIALIIATICN 










0)000 


• 


CALL PHASE 12 










0)010 




TF* 


CFFA,0CFB2 


04584 


16 


02629 


-4608 


0)020 




6TM 


CFF,PHASEB-12 


04596 


17 


02592 


-4188 


0)030 


DCFB2 


COA 


,0,B2DA0,B2SCT ,PHASEB-12 


04608 




14 








0J9200-52-4I88 










0)040 




oc 

• 


l.» 


04622 




1 




03050 


HCDEF 


USA 


B7MA0* I 


04627 




5 


X 1 










04627 




-6089 




0)060 




oc 

J8« 


3,18 , .,» PRINT INDICATION ANC PAGE NUMBER 


04630 




3 




0)070 


MCPRT 


DSC 


2,22,,, DISK DEFINER FCR 1ST PAGE »-EAOING 


04631 




2 




3080 




22 
CSA 


► DPAU 


046 3 7 




) 


x 1 










04637 




-4640 




0)090 




OC 
* 


I > • 


04638 




1 




0)100 


MOPRTl 


CCA 


* 1 »B8DAD,07SCT,H7NAD, i t OOA 1ST PAGE HEADING 


04640 




1 4 








1J7001-04-608B 










0)110 




OC 


It 1 


04654 




I 




0)1 20 


• 


LOAD PHASE Bl TO THE FILE 












F I 


34 


SL0C.701 


04656 




C4704 


0070 1 


0)140 




38 


SLBC.702 


04668 


38 


04704 


00702 


0)150 




TR A 




04680 


36 


00000 


00*00 










ni* irf 


49 


nnnnn 


U UUv w 


Oil hU 


SUBO 


COA 


,0,81CAD,B1SCT, SBOljT* I 














0J8978-21-2644 










0)170 




TCC 


Fl 










3180 




CORG 


I N I T I 


04 IBB 








0)190 




BTM 


GEET,«*12,,CALL PHASE B3 


04 188 




092 10 


-4200 


0)200 


PHASER 


BO 


2PASS,?PSSm 


04200 


43 


04304 


02477 


0)210 


B7MAU 


US 


tPMSEB-12*l9C0tt -RESTORE PARTIAL 


0608b 









0)220 




TFM 


SLBINM3, INPLT-19 


04212 


16 


03577 


-2774 


0)2)0 




AM 


SUBIN^5,2,10 


04224 


11 


03569 


000-2 


0)240 


• 


READ SOURCE STATE KENT F ROM THE FILE 










0)2 SC 




TFM 


IORT, •♦23 * 


04236 


16 


00565 


-4259 








162C-144) MONITOR 1 VERSION 2 SPS 1I-C PHASE B 








PAGE 






a 


10GT,DEF|N,7 


n ... 


49 


00566 


— 3556 






TK 


1 NTBUF , INPUT- I 9 






03626 


02774 






BNG 


G01 , INPUU80, ,CHK.FCR FILE GRP.MRK 


ni?ii4 






0287 3 


r lion 




SM 


SLBIN*5»ltlO 




12 


A14AO 


COO— I 


0))00 




87 


GO I 


04296 




04444 




0)310 


2PA5S 


BNF 


SECRD, PTINSW,, CHK FOR CARU OR TAPfc INPUT 


04 3C4 


44 


04348 


02475 


0))20 


• ACCEPT TAPE INPUT 














TFM 


I0RT,**2) 


043 16 


16 


00565 


-4339 






B 


I0GT,TAPIN-4,7 




49 


00566 


-2656 






B7 


FORM) 


n4i4r 


49 


04372 






• ACCEPT CARD INPUT 










J* 'J: 


SECRD 


TFM 


IORT, ^23 


04)411 


14 


00565 


-437 1 


3310 




ft 


IOGTtCAROIN-4,7 




4Q 








FORWD 


BNR 


• ♦24, INPUT- 10 






04396 


02783 






TF« 


INPUT- 10,0,10 


04384 


16 


02763 


000—0 






CM 


INPUT-10, 14,10 


04 396 


|4. 


02783 


000J4 






BE 


2PASS 


04408 


46 


04304 


01200 






TDM 


•-11,1 


04420 


|i) 


04409 


00001 


3440 




BT 


R SCAN, A SCAN- I 


044 32 


2| 


05744 


05743 


3490 


GO I 


AM 


INKRM.1,10 




1 1 


02565 


000— 1 






BT 


CLOLT.CLOUT-l 


04456 


27 


08126 


08125 


03470 




TM 


INPLT2*156,CLERER*l,, CLEAR THE REMAINS 


04468 


)! 


03443 


02720 


03480 




TDM 


KLRLSU,1,11 


04480 


|) 


04033 


OCOOJ 






TR 


INPLT2-1, INPUT-U 


04492 


31 


032S6 


02782 


n«tnn 




BNF 


•♦24,LSTYSM 


04504 


44 


04528 


02480 






RCTV 




04516 


34 


00000 


00102 


03520 


• 














3530 


• 


CHECK FOR COMMENT STATEMENT 












• 
















CASTER 


BNR 


•♦20, INPUT 


04528 


4^ 


04548 


02793 


a?«aa 




B7 


OK 10 


04540 


49 


04760 




03570 




CM 


INPLT,14,10 


04568 


14 


02793 


0OOJ4 


C )590 




BNE 


CHK 10 


04560 


41 


04760 


01200 




• ••• i 


PRINT 


COMMENTS STATEMENT 










5600 


PRINT) 


8NF 


PCHC0M-24.LSPRSW., SHALL WE PRINT COMMENTS 


065T2 


44 


04492 


02481 


36 10 




TPM 


IORT, •♦2),, YES .LET ER GO 


04584 


16 


005*5 


-4607 


03620 




B 


IOPT.LSTDEF-4,7 


04596 


49 


00532 


J2339 


036)0 




BNI 


PCHCOM-24,3400t« TEST PRINTER CHAN 12 OFLO PAGE 


04608 


41 


04*92 


0)400 


3640 




TFM 


PLNCHU6.PRINT4,, MODIFY BNF TO RETURN HERE 


06620 




12194 


-4668 


3650 




TDM 


PUNCHt+1,9,, MODIFY BNF TO BRANCH 


09632 




12189 


00009 






TF* 


CFFAf PRTAO, , 01 SK CONTROL FIELO PRINT OFLO 


06644 


|4 


02629 


42 172 


A 11* A 




BTM 


CFF.PAGE,, AOORESS TO START OFLO INDICATION 


04696) 


11 


02992 


-627S 


nils a 
1 «^on 


PR1NT4 


TFM 


PUNCH1*A,G0CL RESTORE BNF TO GOCL ADDRESS 


0466 S 


It 


1219* 


J 2 29* 






TOM 


PUNCH 1*1, 4,, MODIFY BRANCH TO BNF 


04*00 


|§ 


12189 


00004 


A1?AA 




BNF 


PHASES. LSCOSW 


066*92 


44 


04200 


02479 


03 r 10 




BT 


REVSCN.REVSCN-l 


06704 


21 


09S94 


05893 




• 


PUNCH COMMENTS CARD 












PCHCON 


BNF 


PHASES »LSCDSW 


06716 


44 


0*200 


02479 


01740 




TF* 


I0AT,«*2) 


0672S 


t* 


009*9 


•4791 






B 


IOPT.COPOEF-4,7 


04740 


49 


00912 


•4100 


0)760 




87 


PHASES 


04752 


49 


06200 




03770 


CMKIO 


TF* 


RLOPMl.INPUT-2 


067*0 


t* 


04819 


-2791 


03790 




AM 


RLOPMl.2,10 


04772 


11 


04819 


000-2 


03790 




CM 


RL0PMl,INPUTM2 


067S6 


1* 


04819 


-2805 


03900 




BE 


RL0PW4 


0979* 


6* 


04812 


012O0 


03910 


SLOP 


BNR 


•-)*••-• 1 38 


06S0S 


41 


06772 


OOOOO 



03820 
03830 
038*0 
03850 
03860 
03870 
03880 
03890 
03900 

03910 RMUP 

03920 

03930 

039*0 

03950 

03960 

03970 

03980 

0J990 

0*000 

0*010 • 

0*020 

0*030 

0*0*0 PULL 10 

0*050 

0*060 

0*070 ERR XX 

0*080 

0*090 

0*100 

U*110 

0*120 

0*1 30 

0*1*0 

0*1 50 

0*160 

0*1 70 • 

0*180 • 

0*190 • 

0*200 NAST 

0*210 

0*220 

0*230 

0*2*0 

0*250 

0*260 

0*270 

0*280 

0*290 M ARK 1 
0*300 
0*310 
0*320 



162C-l**3 MONITOR I VERSION 2 SPS II-C PHASE B 

TF INPUT * 1Q,CLERER * 11 

C CLERER*ll,lNPUT*lC 

OE •♦36 

TF ERLABMO, INPUT* 10 

TFM I NK RM , 

TFM RHOP* I I , INPUT* IC 

AM R*CP*1 I ,2 t 10 

CM RM0P*1 1 , INPUT*20 

BE RMUP*2* 

ttNR • - 36t»-* 

TF lNPUT*18,Cie«E«*7 

BNF NAST.2PSSW 

BNF •♦ 32, INTBUF* 7 

TDM INTBUF*7,0 

87 »*2C 

TK INTBUF , INTBUF* 8 

8NR PULlO, INTBUF 

TFM SLQINM3, I N TBUF 

AM SUB IN *05 , 2 t 10 

RFAD INTERMEDIATE OUTPUT FROM FILE 

TFM IOR T , 2 3 

B IOCT,DEFIN2,7 

HNF NAST, INTBUFW 

TFM EVALER-2, 67670 

BT EPR INT ,EPR I NT- I 

WATY MESS2 
RCTY 

BT F WL) SCN i F WOSCN- I 

TFM IORT,»*23 

B IUGT,TYPIN-*,7 

BC* ERRXX 

CM INPUT , 1*, 10 

BNE »*2* 

TDM INTBUF*7,Q 

B7 CASTER-*8 

TYPE OUT SOURCE STATEMENT 

TF LOPOUT, INPUT-2 

TR INPUT2-1, LOPOUT-9 

TF LOPOUT, INPUT* LC 

TR INPUT2* I 1 , LOPOUT- 1 1 

TF LOPOUTt INPUT*18 

TR INPLT2*25, LOPOUT-7 

TR INPLT205, INPUTMS 

TR VACANT , INPUT* 19 

T CM DMESW 

TF PLACE.ADDCOW 

BNR • *i!* , INPUT*20 

TFM INPU*22.,10 

CC !»',• 



0*330 BT RE VSCN.REVSCN-l 

0*3*0 TLU BNF • ♦ 3 2, I N TBUF ♦ I 

0*350 MD INSTRN, INTBUF* I 

0*360 B7 TBI 1 



0*820 


26 


02803 


02730 


0*8 32 


2* 


02 730 


02803 


0*8** 


46 


04880 


01200 


0*856 


26 


3841 


02 BO 3 


0*868 


16 


02565 


-CCOO 


0*880 


16 


04939 


-2803 


0*892 


11 


04939 


000-2 


0*90* 


I* 


04939 


-2813 


0*916 


*6 


04952 


01200 


0*928 


45 


04892 


OOCOO 


0*9*0 


26 


02811 


02726 


0*952 


44 


05220 


02477 


0*96* 


** 


04996 


03635 


0*976 


15 


03635 


OOCOO 


0*988 


*9 


05008 




0*996 


31 


3628 


03636 


05008 


45 


05068 


03628 


05020 


16 


03577 


-3628 


05032 


1 I 


03569 


000-2 


050** 


16 


00565 


-5067 


05056 


*9 


00566 


-3548 


05068 


4* 


05220 


03635 


05080 


16 


07634 


07670 


05C92 


27 


08022 


0802 1 


05 IC* 


39 


0799 1 


00 100 


051 16 


34 


00000 


00102 


05128 


27 


05904 


05903 


051*0 


16 


00565 


-5163 


05152 


49 


00566 


-26*8 


05 16* 


*6 


05 104 


00*00 


05 I 76 


1* 


02793 


000 J* 


05 188 


47 


05212 


01200 


052CG 


lb 


03635 


00000 


052 12 


49 


04*80 




05220 


26 


03857 


02 791 


052 32 


31 


03286 


038*8 


05?** 


26 


03857 


02803 


05256 


3 I 


03298 


038*6 


05268 


26 


03857 


02811 


05280 


31 


3 312 


03850 


05292 


3 i 


03322 


0281 2 


U53C* 


3 1 


0*0*0 


02812 


05316 


1 5 


03887 


00000 


05328 


26 


09C33 


02678 


053*0 


*5 


0536* 


02813 


05352 


16 


02815 


oco-o 


05 36 3 




1 




0536* 


27 


0585* 


05853 


65376 


** 


05*08 


03629 


05388 


*3 


12*** 


03629 


05*00 


*9 


05558 





162C-l**3 MONITOR I VERSION 2 SPS II-C PHASE 8 PAGE 



0*370 




BNF 


INSTRN, INTBUF 


054C8 


4* 


12*** 


03628 


0*380 




BD 


INSTRN, IWTBUF 


05*20 


43 


12*** 


03628 


0*390 


TBL2 


TFM 


GC0DB2*6,BTBL2 


05*32 


16 


05*7* 


-5*80 


0**00 




TO 


CCoCB2*li,INTBUF*l 


05*** 


25 


05*79 


03629 


0**10 




A 


GCGDB 2* 5 , GU0DB2* 1 I 


05*56 


21 


05*73 


05*79 


0**20 


G00DB2 


B 


i.lC 


05*68 


49 


CCCOO 


OCO-0 


0**30 


BTBL2 


B 


MACRO,,, 


05*80 


49 


1*832 


OCGOO 


0***0 




DORG 


1 


5*90 








0**50 







SAVE,*, *1 


05*90 


*9 


1*916 


OCOOO 


0**60 




OORC 


•- 1 


Q55GG 








0**70 




B 


RSTR , , , *2 


055C0 


49 


1*90* 


OCOOO 


0**80 




CORC 


•~ I 


05510 








0**90 




B 


PCHCOM-12, , ,*3 


05510 


49 


0*70* 


00000 


0*5C0 




OORG 


1 


05520 








0*510 




B 


CALLEX,,,** 


05520 


*9 


1*808 


OCOOO 


0*520 




DORG 


•-1 


05530 








0*530 




B 


MAC2,,,*5 


05530 


*9 


1*952 


00000 


0*5*0 




OORG 


•- I 


055*0 








0*550 







PCHCOM-12, , ,*6 


055*0 


49 


04704 


00000 


0*560 




DORG 


• -1 


05550 








0*570 




B 


L INKSF , , ,*7 


05550 


49 


14 796 


ooood 


0*580 




DORG 


•~3 


0555b 








0*590 


TBL I 


TFM 


G00DB*6,BTBL 


05558 


16 


05600 


-5656 


0*600 




TD 


GOUCB* lit INTBUF 


05570 


25 


05605 


03628 


0*610 




A 


G00DB*5,G00D8*1 1 


05582 


21 


05599 


05605 


0*620 


GOUCB 


B 


. , IC 


0559* 


49 


00000 


000-0 


0*630 




B 


TRA,,,-5 


05606 


49 


14820 


00000 


0*6*0 




DORG 


•- I 


05616 








0*650 




B 


D SDNB , , , -* 


05616 


49 


13332 


00000 


0*660 




DORG 


1 


05626 








0*670 




B 


DENC , , * -3 


05626 


49 


14856 


00000 


0*680 




OURG 


1 


05636 








0*690 




B 


DC,,, -2 


05636 


49 


13840 


00000 


0*700 




OORG 


• - 1 


05646 








04710 




B 


DORG,,, -I 


05646 


49 


13736 


00000 


04720 




DORG 


1 


05656 








04730 


BTBL 


B 


DAC , • , 


05656 


49 


14940 


00000 


04740 




DORG 


•-1 


05666 








0*750 




B 


DSA , , , *1 


05666 


49 


14844 


OCOOO 


0*760 




DORG 


•-1 


05676 








0*770 




B 


CAS,, , *2 


05676 


49 


13540 


00000 


0*780 




OURG 


1 


05686 








0*790 




B 


H E A D » , , *3 


05686 


49 


06002 


OCOOO 


0*800 




OURG 


•-1 


05696 








04810 




B 


DSB * , * ** 


05696 


49 


14784 


00000 


04820 




OORG 


•-1 


05706 








04830 




B 


DGM , , « *5 


057C6 


49 


14880 


00000 


04840 




OORG 


• -1 


05716 








04850 




B 


DDA « * , *6 


05716 


49 


14868 


00000 


0*860 




OORG 


•-1 


05126 








04870 




B 


DMESt f t ♦? 


05726 


49 


14928 


00000 


04890 




DORG 




05716 








04890 




B 


DVLC.i *8 


05716 


49 


14892 


00000 


04900 




DORG 


•-3 


05744 








04910 


ft SC AN 


TFM 


INPUT* 1 40 


1 *" 05755 


16 


02911 


•0000 


04920 




OAC, 






1 


X 2 



1620- 14** MONITOR I 



VERSION 2 SPS I l-C PHASE B 



PAGE 



0**430 




TFM 


• ♦ 3 5 1 I NPllT ♦ 1 *0 


05756 


16 


0579 I 


-2933 


0*9*0 




SM 


•♦23,2 


05768 


12 


05791 


-0002 


0*950 




TF 


RSCANl- I 


05780 


26 


05851 


00000 


0*960 




ou 


RSCAN1 .RSCANl-l 


05792 


*3 


05852 


05851 


0*970 




00 


RSCANl,RSCANl-2 


0580* 


*3 


05852 


05850 


0*980 




TFM 


•-25, .610 


05816 


16 


0579J 


000-0 


0*990 




DC 
• 




05827 




I 




05000 




CM 


RSCAN**7» INPUT+20 


05828 


1* 


05791 


-2813 


05010 




BNE 


RSCAN»2* 


058*0 


*7 


05768 


01200 


05020 


RSCAN1 


682 




05852 


42 






05090 


REvSCN 


TFM 


• ♦35, INPUT2M60 


0585* 


16 


05889 


^3**7 


010*0 




SM 


•♦23,2, 10 


05866 


12 


05889 


0C0-2 


01050 




BNR 


•- 12,»-» 


05878 


*5 


05866 


00000 


05060 




TFM 


•- 1 ,0,610 


05890 


16 


0588R 


000-0 


05070 




BB2 




059C2 


62 








FWOSCN 








26 


02791 


02 728 


05090 




TF 


INPUM0,CLERERK1 


05916 


26 


02803 


02730 


05100 




TF 


INPUT* l8,CltRER» 7 


05928 


26 


02811 


02726 


05110 




TFM 


• ♦3CINPUTM8 


059*C 


16 


05970 


-2811 


05120 




AM 


•♦16,2,10 


05952 


11 


05970 


CCO- 2 


051 30 




TFM 


• - • 


0596* 


16 


00000 


-0000 


051*0 




OAC 


li«,«» 


05975 




I 


* 2 


05150 




CM 


• -6, INPUTS l*C 


05976 


I* 


05970 


-2933 


05160 




BL 


• -36 


0598B 


*7 


05952 


01300 


05170 




BB2 




06000 


♦ 2 






05180 


• 














05190 


• 


HEADER ROUTINE 










05200 


• 














05210 


H E AO 


TF 


HEI) , INTBUF *b 


06002 


26 


03886 


03634 


05220 




TFM 


AUURS 


0601* 


16 


03520 


-0000 


05230 




B7 


ECLAT 1 


06026 


*9 


13796 




052*0 




NOP 




0603* 


*l 


00000 


ooooo 


05250 


SCAN 


TFM 


OPER, 10, 10 


060*6 


16 


090*7 


000J0 


05260 




TFM 


RLOCSW, 0000,8,, 


CLEAR REL0CAT1CN CONTROL AREA 06056 


16 


07950 


0-000 


05270 




TDM 


8S*,l,U 


06C70 


15 


090*8 


OCUOJ 


05280 




SF 


SCAN- 5 


06082 


32 


060*1 


OOOQO 


05290 




TF 


A0URS.CLERER*9 


0609* 


26 


03520 


02728 


05300 




TO 


ALPHA, LNTH*ltt 


RECORO MARK-- ALPHA EMPTY 06106 


25 


02688 


02388 


05310 




BO 


• ♦**, INPUT* 19 


061 IB 


*3 


06162 


02812 


05320 




BO 


•♦32, INPUT+20 


06130 


*3 


06162 


02813 


05330 




TR 


lNPUT+19, INPUT*21 


061*2 


31 


02812 


0281* 


053*0 




07 


• -36 


0615* 


49 


06118 




05350 




BNR 


SCANl-2*, INPUWC 


06162 


*5 


0633* 


02813 


05360 


SCANA 


SF 


ADDRS-* 


0617* 


32 


03516 


OOOOO 


05370 




CM 


RCTR, 00, 1C 


06186 


1* 


079*8 


000-0 


05380 




BE 


SRfl*l2 


06198 


66 


06326 


01200 


05390 




CM 


RCTR, 01,10 


06210 


1* 


079*8 


000- I 


05*00 




BNE 


• ♦2* 


06222 


*7 


062*6 


01200 


05*10 




HNF 


SREL, AOORS 


0623* 


** 


0631* 


03520 


05*20 




CM 


RCTR, -01,10 


062*6 


I* 


079*8 


000-J 


05*30 




bNF 


•♦2*, AOORS 


06258 


** 


06282 


03520 


05**0 




BE 


SREL 


06270 


46 


0631* 


01200 


05*50 




TFM 


EVALER-2, 71770,, 


RELOCATION F RRCH 06282 


16 


C763* 


P1770 


05*60 




BT 


EPR INT ,EPR I NT- 1 


0629* 


27 


08022 


08021 



! 'il 



162C-1**3 MONITOR I VERSION 2 SPS I l-C PHASE 8 PACE 



05*70 




B7 


EV1 


06306 


49 


07672 




05*80 


SREL 


TOM 


KLQCSta,l,ll 


0631* 


15 


07950 


OOOOJ 


05*90 




H7 


SCAN- 1 , ,6 


06326 


*9 


060*N 




05500 




CM 


INPLT^20,23,10 


0633* 


1* 


02813 


00OK3 


U5510 




BE 


SCANA 


063*6 


*6 


0*17* 


01200 


05520 


SCAN I 


CM 


1NPLT+20, 10, lp 


06358 


1* 


02813 


OOOJO 


05530 




BNE 


• ♦** 


06370 


47 


06*1* 


01200 


055*0 




TFM 


OPER, 10, 10 


06382 


16 


090*7 


OOOJO 


05550 




TR 


INPUTM9.INPUT + 21 


06 39* 


31 


02812 


02814 


05560 


EVALOP 


B7 


EVALAO 


06*C6 


49 


06726 




05570 




CM 


INPLT^20,2C,10 


06*1* 


1* 


02813 


OCOKO 


05580 




BNF 


EVALAO 


06*26 


47 


0*72* 


01200 


05590 




TFM 


OPER, 20, 10 


06*38 


16 


090*7 


OOOKO 


05600 




B7 


SCANU36 


06*50 


49 


0639* 




05610 


OIGALF 


BNR 


•♦20, ALPHA 


06*58 


45 


06*78 


02688 


5620 




07 


MOVE 


06*70 


49 


06534 




05630 




M 


ALPHA, BETA 


06*78 


23 


02488 


02698 


056*0 




SF 


90 


06*90 


32 


00090 


OOOOO 


05650 




TF 


ALPHA, 99 


06502 


26 


02688 


00099 


05660 




BO 


SRE1-32,RSYMSW 


0651* 


43 


06282 


07949 


05670 




87 


M0VEM2 


06526 


49 


0654* 




05680 


MOVE 


TF 


ALPHA, BETA 


0653* 


26 


02688 


02698 


05690 




BNR 


•♦20.INPUT+20 


06546 


45 


0656* 


02813 


05700 




B7 


BLOP 


06558 


49 


0**10 




05710 




CM 


INPUT*20, 1*. 10 


06566 


14 


02813 


000J4 


05720 




BNE 


• ♦32 


06578 


47 


0**10 


01200 


05730 




BO 


SREL-32, RSVMSW 


06590 


43 


0*282 


07949 


057*0 




B7 


S0AN1O6 


06602 


49 


0*394 




05750 


BLOP 


CM 


OPER, .10 


06610 


14 


09047 


000-0 


05760 




BE 


SCAN+60 


06622 


46 


0*10* 


01200 


05770 




TO 


•♦13.0PER-1 


06634 


25 


0**47 


090 4* 


05780 


ACCSUB 


20 


AOORS, ALPHA 


06644 


20 


03520 


02*88 


05790 




TF 


ALPHA fCLERER+9 


06698 


26 


02*88 


02728 


05800 




TFM 


OPER , , 10 


06670 


16 


0«047 


000*0 


05810 




BNF 


•♦36,RSVMSW 


06682 


44 


0*711 


07949 


05820 




TO 


•♦13, AODSUB^l 


06694 


29 


0*707 


0**47 


05830 




AM 


RCTR, 1,10 


06706 


11 


07948 


000-1 


058*0 




87 


SCAN+60 


04718 


49 


0*10* 




05850 


EVALAC 


SF 


HE0-2 


06726 


32 


01884 


coooo 


05860 


SF 


OOLLAR 


06738 


32 


070** 


00000 


05870 




TOM 


6Sh,0 


0*790 


19 


09048 


OOOOO 


05880 




TFM 


LABL t 1 f 10 


06762 


t* 


0*891 


000-1 


05890 




TFM 


OOL,, 10 


0*77* 


I* 


0*891 


000-0 


05900 




TR 


C0LL-1I.THINGS-20 


0*78* 


11 


02421 


02400 


05910 




B7 


BCMSPC 


0*798 


49 


0*922 




05920 


• 


CHECK FOR SPECIAL CHARACTER 








OOOPO 


05930 


COMSPC 


CM 


INPLJT*20,70,10 


0*80* 


14 


02811 


059*0 




BL 


SPEC 


0*818 


47 


0*942 


01300 


09990 




TF 


COLL, INPUU2C 


06130 


2* 


02414 


02813 


05960 




CF 


COLL-1 


041*2 


13 


02418 


OOOOO 


09970 


LA8L 


OS 


»• 


06853 









09980 


OOL 


DS 


,•-2 


0*891 









05990 




AM 


DCL.WIO 


0*894 


11 


0*891 


000-1 


08000 




TR 


COLL-17.COLL-19 


0*1** 


31 


02422 


02424 


0*010 




CM 


CQlL-17,7,10 


04878 


14 


02422 


000- 7 


06020 


• 


SYMBOL IN OPERAND CONTAINS MORE THAN SIX CHARACTERS 











142 



1620-1443 MONITOR I VERSION 2 SPS II-C PHASE B 



PAGE 



06030 • OR NLMBER IN OPERAND HAS MORE THAN FIVE DIGITS 







BNE 


•■♦20 




06890 


4 7 


069 10 


1200 






Q7 


CHKNO 




06902 




07720 




06060 




TR 


INPLT*19, INPUT»21 




06910 


31 


02812 


02814 




* 


CHECK TO SEE IF OPERAND IS PRESENT 












06080 


BC S C 


BNR 


COMSPC. INPUT*20 




06922 


45 


06806 


0281 3 


06090 




B7 


GE T 




06934 


49 


07 190 




061 00 


* 


CHECK FOR ♦ OR - 












061 1 


SPEC 


BD 


SI, INPUT* 20 




06942 


43 


06974 


02813 


06120 


* 


CHECK FOR BLANK 












06130 




BD 


CET.INPUTM9 




06954 


43 


07190 


02812 


061*0 




87 


BCMSPC-12 




06966 


49 


06910 




06 1 50 


* 


CHECK FOR COMMA 












061 60 


S 1 


CM 


lNPUT+20,23, 10 




06974 


14 


02813 


000K3 


06170 




BE 


GET 




06986 


46 


07190 


01200 


06 1 80 


• 


CHECK FOR ASTERISK 












06190 




CM 


INPLT+20, 14,10 




06998 


14 


02813 


00QJ4 


06200 




BE 


ASTER 




07010 


46 


07534 


01200 


062 10 


• 


CHECK FOR DOLLAR SIGN 












06220 




CM 


!NPUT*20t 13tlO 




07022 


14 


02813 


000 J 3 


062 30 




BE 


DOLLAR 




07034 


46 


07066 


01200 


062*0 




TDM 


LABL 




07O46 


15 


06853 


00000 


062 50 




87 


C0MSPC*24 




07058 


49 


06830 




06260 


OOLL AR 


CF 


DOLLAR 




7066 


33 


07066 


ooooo 


06270 




BD 


32,DOl 




07078 


43 


07110 


06851 


06280 




TFM 


COLL, , 10 




07090 


16 


02439 


oco-o 


06290 




87 


• ♦44 




07102 


49 


07146 




06300 




CM 


DOL, 1,10 




07110 


14 


06851 


000-1 


06310 




BNE 


DOL L AR- 20 




07122 


47 


07046 


01200 


06320 




SF 


COLL-3 




071 34 


32 


02436 


occoo 


06330 




CF 


HEO-2 




07146 


33 


03884 


ooooo 


06340 




TOM 


LABL 




07158 


15 


0685 3 


ocooo 


06350 




BD 


BCMSPC- 12, DOL 




07170 


43 


06910 


06851 


06360 




B7 


BCMSPC-56 




07182 


4^ 


06666 


06370 


GET 


TDM 


RSYMSW, 




07190 


15 


07949 


ooooo 


06380 




BD 


TRNLMB,LABL 




07202 


43 


07382 


06853 


06390 




A 


COLL- 17, COLL- I 7 




072 14 


21 


02422 


02422 


06400 




BNF 


TRMMM»24,HED-2 




07226 


44 


07362 


03884 


0641Q 




CM 


COLL-14, 12070 




07238 


14 


02425 


J2070 


06420 




BNE 


• ♦44 




07250 


47 


07294 


01200 


06430 




SF 


COLL-? 




07262 


32 


02437 


ocooq 


06440 




SF 


CULL- 13 




72 74 


32 


02426 


ocooo 


06450 




B7 


LB ADO 




07286 


49 


08176 




06460 




TFM 


• ♦3CC0LL-2 




U7294 


16 


07 524 


-2437 


0647C 




S 


♦♦18,C0LL-17 




7 3C6 


22 


07324 


02422 


06480 




TF 


,HEC 




07 318 


26 


00000 


03886 


06490 




B7 


TRMMM+24 




07330 


49 


07362 




06500 


TRMMM 


TR 


COLL-17.COLL-15 




07538 


31 


02422 


02424 


06510 




TDM 


COLL-2,0 




0735C 


15 


02437 


ocooo 


06520 




CNF 


•-24, COLL- 1 3 




07362 


44 


07338 


02426 


06530 




B7 


LBACD 




07374 


49 


08176 




06540 


TRNUMB 


CM 


COLL-14, 6060 




07382 


14 


02425 


-6060 


06550 




BH 


CHKND 




07394 


46 


7 720 


01100 


06560 




TDM 


NLMB-1,,11 




07406 


15 


02447 


CCOO- 


06570 




TFM 


TRNLMUIUCOLL-? 




07418 


16 


07477 


-2437 


06580 




S 


TRNLMUU,C0LL-17 


1 >'i \ 


07430 


22 


07477 


02422 



162C-1443 MONITOR I VERSION 2 SPS II-C PHASE B PAGE 



06590 




S 


TRNUMl-Hl.COLL-l 7 


07442 


22 


07477 


02422 


06600 




TR 


NUMB-5,NUMB-4 


07454 


31 


02443 


02444 


06610 


TRNUM1 


TO 


NUMB-1 


07466 


25 


02447 


OOOOO 


06620 




TR 


COLL-17.COLL-15 


07478 


31 


02422 


02424 


06630 




TF 


•♦23,»-l3 


07490 


26 


07513 


07477 


06640 




BNR 


TRNL'Ml-12 


7502 


45 


07454 


OOOOO 


06650 




TF 


BETA, NUMB-1 


07514 


26 


02698 


02447 


06660 




87 


CICALF 


07526 


49 


06458 




06670 


ASTER 


CM 


D0Lt0,10 


Q75 34 


14 


06851 


000-0 


06680 




BNE 


GET 


07546 


47 


07 HO 


01200 


06690 




TF 


BE T A , AODCOW 


07558 


26 


02698 


02678 


06700 




BNF 


•♦24, RELSta 


75 70 


44 


07594 


02478 


06710 




TDM 


RSYMSW, 1,11 


07582 


15 


07949 


OOOOJ 


06720 




TR 


INPUT+19.INPUU21 


07594 


31 


02812 


02814 


06730 




B7 


DIGALF 


07606 


49 


06458 




06740 


• 














06750 


• 


EVALER IS THE ERROR ROUTINE 










06760 


• 














06770 




DAS 


5 


07615 




5 


X 2 


06780 




BNR 


59CC7 


07624 


45 


59007 


OOOOO 


06790 




DC 


1, • 


07635 




1 




06800 


EVALER 


BT 


EPR INT , EPR I NT- 1 


07636 


27 


08022 


08021 


06810 




SPTY 




07648 


34 


OOOOO 


00101 


06820 




WATY 


CCLL-12 


07660 


39 


02427 


00100 


06830 


EVl 


BD 


C0RER5 ,ERSTSW 


07672 


43 


07796 


02476 


06840 




BNF 


CHKNO, LSTYSW 


07684 


44 


07720 


02480 


06850 




RCTY 




07696 


34 


OOOOO 


00102 


06860 




TBTV 




07708 


34 


OOOOO 


00108 


06870 


CHKNO 


TFM 


AOORS 


07720 


16 


03520 


-0000 


06880 




BNR 


•♦20,INPUT*20 


07712 


45 


07752 


02813 


06890 




B7 


SCAN- 1, ,6 


07744 


49 


0604N 




06900 




CM 


INPUT*20,23,10 


07752 


14 


02813 


000K3 


06910 




BE 


SCAN- I, ,6 


07764 


46 


0604N 


01200 


06920 




TR 


INPUT*l9,!NPUT*2l 


07776 


11 


02812 


02814 


06930 




87 


CHKN0*12,,2 


07788 


49 


-7732 




06940 


C0RER5 


WATY 


RNMESS 


07796 


19 


07951 


00100 


06950 




TF 


AODCOW, PLACE 


07808 


26 


02678 


09011 


06960 




RCTY 




07820 


14 


OOOOO 


00102 


06970 




TR 


INPLT* 19, VACANT 


07832 


31 


02812 


04040 


06980 




WATY 


INPUT-10 


07844 


19 


02781 


00100 


06990 


OOPS 


RCTY 




07*96 


14 


OOOOO 


00102 


07000 




BT 


FWOSCN+ 36.FWDSCN+35 


07868 


27 


05940 


05919 


07010 




WATY 


INPUT- 10 


07880 


19 


02783 


00100 


07020 


• ACCEPT 1 


CORRECTION FROM TYPWRITER 










07030 




RATY 


INPUT*20 


07892 


17 


02811 


00100 


07040 




BC4 


OOPS 


07906 


46 


07856 


00400 


07050 




BTM 


GEET,»*12 


07916 


17 


09210 


-7928 


07060 




TOM 


INTBUF^7,1,11 


07928 


15 


01615 


OOOOJ 


07070 




B7 


G01*12 


07940 


49 


04456 




07080 


RCTR 


DS 


2 


07948 




2 




07090 


RSYMSW 


OS 


I 


07949 




1 




07100 


RLOCSW 


DS 


I ' ' 


07950 




1 




07110 


RNMESS 


OAC 


19, RE-ENTER OPERANDS' 


07953 




IV 


X 2 






RE-I 


ENTER OPERANDS • 










07120 


MESS2 


DAC 


16, RE-ENTEft .STMT* 






16 


X 2 






RE-ENTER STMT • 











1620-1443 MONITOR I VERSION 2 SPS I I - C PHASE 6 



PAGE 



07140 


• 


EPRINT PRINTS THE ERROR MESSAGE ANC REFERENCE TC 










07150 


• 


INDICATE THE STATEMENT IN ERROR 










07160 


t 














07170 


E PR 1 NT 


RCTY 




08022 


34 


00000 


0C102 


07100 




TF 


LOPQuT, 1 NPUT-2 


08034 


26 


03857 


02791 


0M90 




MATY 


LUPOUT-8 


08046 


39 


03849 


00100 


07200 




WATY 


ERL AB 


08058 


39 


03831 


00100 


07210 




MNT Y 


I NKRM- 3 


08070 


38 


02562 


00100 


07220 




MATY 


E VALER-21 


08082 


39 


07615 


00100 


07230 




BO 


•♦24,ERSTSW 


08094 


43 


08118 


024 76 


07240 




SF 


NONE X ti.KUL OBJECT PROG. EXECUTION IF ERROR IS OETECTEO 


08106 


32 


00457 


ooooo 


07250 




BB 




08118 


42 


00000 


00000 


0/2 60 




OORG 


• -3 


08126 








07270 


CI (JU T 


TR 


1NPLT2- I iClERER 


08126 


31 


03286 


02719 


07280 




TR 


INPUT2»52.CLERER»1 


08138 


31 


03339 


02720 


07290 




TR 


INPLT2* 104,CLERER«1 


08150 


31 


03391 


02720 


07300 




TFM 


INPIT2M60,OCCOO, , CLEAR FINAL 


08162 


16 


03447 


-0000 


7 310 




HB2 




OBI 74 


42 






07320 


• 














07330 


• 


THE SYMBOL TABLE IS SEARCHED FOR EQUIVALENCE 










073*0 


• 














07350 


L0ACO 


TFM 


BLKCTR ,0, 10, INI T{ AL I ZE BLOCK COUNTER 


081 76 


16 


04021 


000-0 


07360 




C 


SF A , S YM T AO ,,CHK.T0 SEE IF THIS IS PARTIAL BLOCK 


08188 


24 


03977 


02641 


07370 




BE 


PAR T L 


082C0 


46 


08256 


01200 


07380 




AM 


BLKCTR, 1,10 


08212 


1 I 


04021 


000- 1 


07390 




TR 


L IM-q,L IMTSF-9 


08224 


31 


03862 


04009 


07400 




Tf 


L1M.LIMTSP 


08236 


26 


03871 


02507 


07410 




67 


• ♦20 


08248 


49 


08268 




07420 


PAR TL 


TR 


LIM-9.LIMTSP-9 


08256 


31 


03862 


02498 


07430 




BT 


BSERCH, BSERCH- I , ,T0 BINARY SEARCH ROUTINE TO FIND SYMBOL 


08268 


27 


08752 


08751 


07440 




BO 


GOTIT ,EQSW,,WAS SYMBOL IN TABLE 


08280 


43 


083 76 


08979 


07450 




C 


BSBF-l.LIMTSP 


08292 


24 


09003 


04018 


07460 




BNL 


GOTIT-24 


08304 


46 


08352 


01 300 


07470 




CM 


BIX, 0, 10 


08316 


14 


02643 


000-0 


07480 




ONE 


CF IL 


08328 


47 


08468 


01200 


07490 




TF 


SFA,SUBSM«-5 


08340 


26 


03977 


361 7 


07500 




TFM 


E VALER-2 » 7 5000 » »CANNCT FIND SYMBCL IN SYMBOL TABLE 


08352 


16 


07634 


P5000 


07510 




BT 


E VALfcR »E VALER- 1 


08364 


17 


07636 


07635 


07520 


GO T I T 


TF 


SF A # SUB SM^ 5ft SAVE FILE ADR. OF BLOCK WHERE SYMBOL WAS FUUNC. 


08376 


26 


03977 


0361 7 


07530 




AM 


OSHF-l ,5*10, MOVE SYMBCL ADDRESS 


08 388 


1 1 


09003 


000- 5 


7540 




TF 


DE TA.BSBF-l , H , IMC BETA 


084C0 


26 


C2698 


0900L 


07550 




BNF 


•♦48, RE L Sw 


084 12 


44 


08460 


02478 


07560 




BNF 


•♦36, BETA 


08424 


44 


08460 


02698 


07570 




TOM 


RSYMSh, 1,11 


08436 


1 5 


C 7949 


0000 J 


07580 




CF 


BE TA 


08448 


33 


02698 


ooooo 


07590 




Q7 


1 CALF 


08460 


49 


06458 




07600 


CFU 


TF 


•♦35.SYMTAD ,, INITIALIZE SUB-INSTR. TO READ FIRST FILE BLK 


08468 


26 


00503 


02641 


07610 




AM 


•♦23.SPBL 


06480 


11 


08503 


-0040 


07620 




TFM 


SUH5M^5 


08492 


16 


03617 


-0000 


7630 




TR 


L 1M-9 ,1 IMTSF -9,, INITIALIZE FOR FULL BLOCK 


08504 


31 


03862 


04009 


07640 




C 


SUB SM ♦ 5 , SF A , , CHK. IF THIS BLOCK HAS ALRfcACY BEEN SEARCHEO 


08516 


24 


03617 


03977 


07650 




BE 


CMPCNT 


08528 


46 


08636 


01200 


07660 


• 


SAVE DIGIT AT LOS YMQ* I 










07670 




TU 


MURI , LOSYMR^ 1 


08540 


25 


02631 


19998 


7680 




TC 


L S YMB ♦ I , SPSGM 

i /. p: 


08552 


25 


19998 


02560 



1 4 5 



162C-1443 MONITOR I VERSION 2 SPS Il-C PHASE B PAGE 



07690 


• READ BLOC K OF SYMBOLS FRCM FILE 










07700 


TF" 


I0RT,»»23 


08564 


16 


00565 


-8587 


07710 


B 


I0GT,0EFSM,7 


08576 


49 


00566 


-3603 


7 720 


TC 


LOSYMB* 1 ,MURI 


08588 


25 


19990 


02631 


U7730 


b T 


BSERCH, BSERCH- I 


OB600 


27 


08752 


08751 


7 740 


AM 


BLKCTR, 1, 10 


08612 


11 


04021 


000- I 


07750 


BO 


GOTIT, EOSM 


08624 


43 


08376 


08979 


07760 


CMPCNT C 


BLKCTR, BLX 


086 36 


24 


04021 


02643 


07770 


8H 


GOTIT- 36 


08648 


46 


08 340 


01100 


07780 


BL 


CFILM2 


08660 


47 


08480 


01300 


07790 


C 


SF A , S YMTAO 


08672 


24 


03977 


02641 


7800 


BE 


GOT IT- 36 


08684 


46 


08340 


01200 


07810 


TF 


SUbSM^5,SYMTA0 ,,MOVE FILE ACOR.CF PARTIAL BLOCK TO SUBIN 


08696 


26 


03617 


02641 


07820 


TR 


L IM-9.L IMTSP-9 


08708 


31 


03862 


02498 


07830 


TF 


L IM,LIMTSF 


08720 


26 


03871 


04018 


07840 


B7 


CFIL*48 


08732 


49 


08516 




07850 


• BINARY SYMBOL TABLE SEARCH SUBROUTINE 










07860 


NOP 




08740 


41 


OOOOO 


OOOOO 


07870 


BSERCH TF 


6SBF, CLERER + 5 


00752 


26 


09004 


02724 


07000 


A 


B SBF , LIM 


08764 


21 


09004 


03871 


07890 


A 


BSBF, LIM-5 


08776 


21 


09004 


03866 


07900 


TF 


BSAV, BSBF 


00700 


26 


09010 


09004 


07910 


A 


BSBF , BSBF 


O00CO 


21 


09004 


09004 


07920 


A 


BSBF , BSBF 


00812 


21 


09004 


09004 


07930 


A 


BSBF, BSAV 


08824 


21 


09004 


09010 


07940 


BO 


•♦24, BSBF 


08836 


43 


08860 


09004 


07950 


AM 


BSBF-1, 8,10 


08848 


11 


09003 


000-8 


07960 


SM 


BSBF-l, 8,10 


00060 


12 


09003 


COO- 8 


07970 


C 


BSBF-1, LIM-5 


00872 


24 


09003 


03866 


07980 


BNE 


• ♦26 


08884 


47 


08910 


01200 


07990 


TOM 


EQSfe, 


08896 


IS 


08979 


OOOOO 


08000 


BB2 




08908 


42 






08010 


C 


C0LL-2,BS8F-l,U 


08910 


24 


02437 


0900L 


08020 


BNE 


BSNEQ 


08922 


47 


08948 


01200 


08030 


TOM 


EOSW, 1,11 


08934 


IS 


08979 


OOOOJ 


08040 


HB2 




08946 


42 






08050 


BSNEQ bh 


BSHI 


08948 


4* 


08980 


01100 


08060 


TF 


LIM, BSBF-1 


089*0 


2* 


03871 


09003 


08070 


B7 


BSERCH 


00972 


49 


00792 




08080 


BSHt TF 


LIM-5, BSBF-1 


08800 


24 


03848 


09003 


08090 


B7 


BSERCH 


08982 


49 


08792 




08100 


EOSW OS 


t BSHI-l 


08979 









08110 


8SBF OC 


6,0 


09004 




4 






-OOOOO 










08120 


ISAV OC 


6,0 


09010 




4 






-OOOOO 










08130 


TEST OS 


9 


09015 




9 




00140 


882 OC 


6,424272 


09021 




4 






M24272 










08190 


TTPf OS 


2 


09023 




2 




08180 


TESTA OS 


9 


04028 




9 




08170 


PLACE OS 


9 


09033 




9 




08100 


SUBCNT DS 


5 


09038 




9 




00190 


CNTR OS 


2 


08040 




2 




00200 


TBI END OS 


9 


09041 




9 




08210 


OMR OS 


2 4 /. A 


08047 




2 





162C-1443 MONITOR I VERSION 2 SPS Il-O PHASE B 



PAGE 



08220 BSw 
06230 CSA6UX 

08240 

08250 NMOAl 
08260 SMOCf 
08270 DMSV 
08280 DIGITS OS 



ns l 
use 1 1 i C ' 
OOOOOOOCCO' 
DS i 



OS 
DS 
DS 



08290 INSTRUCTIONS TO BRING IN PHASE B6 

08300 DC 5,123*5 

J2345 

08310 GAT rFM CFF A , OF ADO 3 

08320 RT CFF,GAT-l 

08330 CFACD3 C DA , C , B60AD , Bfc SC T , I N S TRN 

0J9151-3CJ2444 
08340 DC 1,' 



09046 
09049 

09060 
09061 
09062 
09067 
09072 

09077 

090 78 
09090 
091C2 



1 

1 1 

1 
1 
1 
5 
5 



02629 
02592 



-9102 
C9077 



08350 
08360 



08370 GI T 
08380 



INSTRUCTIONS TO BRING IN PHASE B5 
DC 5,12345 
J2345 

TFM C F F A , OF ADD 2 
BT CFF.GIT-l 
08390 CFACD2 DDA , , 8 5DA D , B5 SC T , I N S TRN 

0J9122-29J2444 
08400 DC 

08410 INSTRUCTIONS TO BRING IN PHASE B4 

08420 DC 5,12345 

J2345 

08430 GETT TFM CFFA,DF ADD 
08440 BT CFF ,GE T T- 1 

08450 DFACD UOA » , B4D AD , B 4 SC T , L I NPR T 

0J9069-53-9268 
08460 DC It* 



09122 
09134 
09146 



09166 
09178 
09190 



16 02629 -9146 
?7 02592 09121 
14 



16 02629 -9190 
27 02592 09165 
14 



08480 



08490 GEET 

O85C0 
0851 

08520 DFACC1 

085 30 

08540 • 
08550 F3 
085e0 
08570 

08580 SUB 3 

08590 

08600 
08610 • 



INSTRUCTIONS TO RESTORE PHASE 83 
DC 5,12345 
J2345 

TFM C F F A , DF ADD! 
TFM X.PHASEB 
BT CFF »GEE T- 1 
CDA ,0,B3DAD,B3SCT,B3MAD 
OJ9000-69-9100 
DC l t * 

TO LOAD PHASE 82 TO THE FILE 
34 SU83.701 
38 SU8 3. 702 
TRA 

DDA ,0,B2DAD,B2SCT,PHASEB-12 

0J9200-52-4188 
TCD F3 



DORG F3 

THE ROUTINE WHICH FOLLOWS TAKE S CARE OF ThE 



09209 

09210 
9222 
09234 
09246 

09260 



09262 
09274 
09266 
09298 
C9310 

09262 

09262 



36 



02629 
04038 



-9246 

-4200 



02592 09209 



34 09310 00701 
38 09310 00702 

ocooo 

00000 
14 



C0500 
OCOOO 



I 4 7 









162C- 1443 MONITOR I VERSJUN 


2 SPS II 


-C PHASE B 








PAGE 


08620 


• 


OUTPUT FOR" THE PROCESSOR 














08630 




















08640 




DC 


5,CC0OO 






09266 




5 








-0000 














08650 


L INPRT 


CF 


ADDRS-4 






09268 


33 


03516 


00000 


08660 




CF 


LNTH-4 






09280 


33 


02383 


cocoo 


08670 


• 


















08680 




















08690 




CM 


L INPRT-UDOINST 






09292 


14 


09267 


J0038 


08700 




BE 


OOINST 






09304 


46 


loose 


01200 


08710 


• 


















08720 


• 


















08730 




SF 


LNTh-4 






09316 


32 


02383 


00000 


08740 




SF 


AOURS-4 






09328 


32 


03516 


occoo 


08750 


BRNCH 


B 


LlNPRT-1,,6 






09340 


49 


0926P 


00000 


08760 


DUDS 


BTM 


LST0UT,»»12 PUNCH DS UR 


DNB LIST 


CECK CARD 


09352 


17 


11984 


-9364 


08770 




BD 


X, INTBUF*6,6 






09364 


43 


0403Q 


03634 


08780 




















08790 




GENERATE OUTPUT FOR NUMERIC BLANKS 












08800 


• 


















08810 




AM 


AODRS ,1*10 






09376 


11 


03520 


000-1 


08820 




IF 


FRSTAD, ADDRS 






09388 


26 


03899 


03520 


088^0 




TF 


LSTAO, ADORS 






094CO 


26 


03909 


03520 


08 8 •'■ 




S 


FRSTAD, LNTH 






09412 


22 


03899 


02387 


08850 




. FM 


TYPE, 99, 10 






09424 


16 


09023 


00OR9 


08860 




TFM 


D01NSW3 






094 36 


16 


10111 


-0000 


08870 




BTM 


REL00G.4, 101 1 






09446 


17 


10254 


000- M 


08880 




•'3 I M 


STACKR,9, 10 






09460 


17 


10434 


000-9 


08890 




B7 


X, ,6 






09472 


49 


040 30 




08900 


LNTH2 


DS 


5,CC00O 






00000 




5 




08910 


• 


















08920 


• 


PUNCH THE CONSTANT CARDS 














08930 




















08940 


PCUN 


BTM 


LST0UT,»*12 






09480 


17 


11984 


-9492 


08950 


OOCON 


DS 


•PCON, 






09480 









08960 




TFM 


•♦3C,OUT*2 






09492 


16 


09522 


-2220 


08970 




A 


•♦18. LNTH 






09504 


21 


09522 


02387 


08980 


PCONl 


TO 


,LNTH*l 






09516 


25 


00000 


02388 


08990 




BTM 


RELODG, 2* 1011 






09528 


17 


10254 


000-K 


09000 




BD 


MESOUT.DHESW 






09540 


43 


09780 


03887 


09010 


LUCK 


BTM 


STACKR»9, 10 






095S2 


17 


10434 


000-9 


09020 




B7 


X, ,6 






09564 


49 


04030 




09030 


PDSA 


BTM 


CVACT,»*12 






09572 


17 


11916 


-9584 


09040 




BTM 


LST0UT,»*12 






09584 


17 


11984 


-9596 


09050 




TF 


0UU6,2EP0t5 






09596 


26 


02224 


02305 


09060 




TO 


QUT*7,LNTMM 






09608 


25 


02225 


02388 


09070 




BTM 


«EL0DG,2, 101 1 






09620 


17 


10254 


000-K 


09080 




AM 


C»-SYM»1 1, 1. 10 






09632 


11 


09655 


000-1 


09090 


CHSVM 


BNF 


•♦24»0SAB0X-l 






09644 


44 


09668 


09048 


09100 




BTM 


RElGDG* 3, 1011 






09656 


17 


10254 


000-L 


09110 




BTM 


STACKR*9,10 






09668 


17 


10434 


000-9 


09120 




TFM 


LNT*,5 






09680 


16 


02387 


-0005 


09130 




TR 


*£PO*l, M>Q*6 






09692 


31 


02301 


02306 


09140 




BNR 


•«32 »2EP0*l 






09704 


45 


09736 


02301 


09150 




TDM 


INTBUf r 






09716 


15 


03628 


00000 


09160 




87 


X , » 6 






09728 


49 


040 3Q 





162C-1443 MONITOR I VERSION 2 SPS II-C PHASE § 



PACE 



20 



?u! art 




TF 


FR S TAD f LSTAO 






ft 










AM 


LSTAO.5,10 




09748 


1 1 


niana 


rt _ 


nai on 
n Inn 




AM 


ADDRS, 5, 10 






la 


no *b 


000-5 




CULL c 


B7 


LINPRT 




097 72 


49 






092 1 


* 


THE FOLLOWING ROUTINE HANDLES OLTPLT FOR DMES 














U 


TC 


INPLT2*lOO.UUT*2,27,MOVE OMES 






f , 






092 30 




AM 


•-6,1,10, DATA 




09 792 


1 1 


09786 


000 1 


Q9240 




AM 


•-13,1,10, FROM 




09804 


1 1 


0979 1 


000- 1 


09250 




SM 


LNTH, 1,10, 0UT*2 




09816 


1 2 


02 38 7 




09260 




ONN 


MESOUT,,, TO INPUT2*100 




09828 


46 


09780 


1 300 


092 70 


DOMfcSS 


TF 


LSTAO, FRSTAO 




09840 


26 






09200 




TR 


OUW, INPUT2* 100 




09852 


' * 


02220 


3 387 


092 90 




TFM 


B ANAN* 1 1 , I NPUT2*99 




09864 


1 6 


0997 1 




09300 




SM 


MESUUT*6,2. 10 




098 76 


1 2 


09786 


CCO- 2 


09310 




TFM 


L N TH , 




09886 


16 


02387 


-0000 


09320 




AM 


LSTAO, 1 , 10 




09900 


1 I 


3909 


000- 1 


09330 




AM 


LNTH, I , 10 




09912 


1 I 


02387 


000- 1 


09340 




AM 


UANANH1.1.10 




09924 


1 1 


0997 1 


000- 1 


09350 




c 


BAN AN* 1 1,MESGUT*6 




099 36 


24 


0997 1 


09 786 


09 360 




8NL 


R ANAN ♦ I 2 




09948 


46 


099 72 


1 300 


093 70 


BAN AN 


8NR 


• -60 




09960 


45 


09900 


00000 


09380 




HSR 


•♦24,BANAN» 11,11 




09972 


4 i 


09996 


nnnn J 


09390 




TOM 


OLMPlMl.O.tl 




C9984 


* \ 






09*00 




QTM 


STACHR,9, IC 




09996 


1 7 


104 34 


nnn a 


094 1 




AM 


B A N AN ♦ 1 1,1,10 




1 00C8 


1 1 




nnn i 


09420 




C 


BANAN*1 1,MES0UT»6 




10020 


24 


0997 1 


S !!« 


09430 




BH 


X, ,6 




IC032 


46 


0403Q 


1 100 


09440 




TR 


UUT*2,BANAN*ll,H 




10044 


3 I 


02220 


0997 J 


09450 




TF 


FRSTAO, LSTAD 




10056 


26 


03899 


03909 


09460 




SM 


BANAN* 1 1 , 1 , 10 




1C068 


12 


0997 1 


OCO- 1 


09470 




07 


D0MESS*48 




IC080 


49 


09888 




09480 


• 
















09490 


* 


OUTPlT ROUTINE FOR INSTRUCTIONS ANO LINKAGES 












09500 


• 
















0951 


DQINST 


RTM 


LST0UT,«*12 




10088 


I 7 


1 1984 


JO 100 


09520 




SF 


AODRS-4 




10100 


32 


03516 


ooooo 


09530 




TF 


FRSTAO *AOQRS 




10112 


26 


3899 


3520 


09540 




TF 


LSTAO .ADDRS 




10 124 


26 


3909 


3520 


09550 




AM 


LSTAO ,12 




1C1 36 


1 1 


03909 


-0012 


09560 


NOTYPE 


TO 


D01NST*19,ZEP0*12 




10148 


25 


10107 


02312 


09570 




TC 


ZEPO* 12, LNTH* t 




10160 


25 


02312 


02 388 


U95BU 




TR 


ULT*2 ,ZEPO 




10 172 


3 1 


02220 


02 300 


09590 




TFM 


LNTH, 12 




10184 


16 


02387 


-00 1 2 


09600 




HTM 


REL COG , 1,1011 




10196 


I 7 


10254 


CCO- J 


09610 




bTM 


STACKR,9,10 




1Q2C8 


17 


10434 


000- 9 


09620 




TO 


ZEPU* 12,001 NST* 19 




10220 


25 


02312 


IC 107 


09630 




9NR 


SEC INS , ZE PO* 1 2 




IC232 


45 


10352 


02312 


09640 




B 


X, ,6 




10244 


49 


04030 


OOOOO 


09650 




DOR G 


•- 1 




10254 








09660 


RELOCG 


TO 


IC.RELODG- t 




IC254 


25 


03894 


1C253 


09670 




BNF 


•♦36.KLRLSW 




10266 


44 


10302 


04033 


09680 




3NF 


•♦24,RELSW 




10278 


44 


10302 


02478 


09690 




CF 


IC 




IC290 


33 


03894 


OCOOC 


09700 




RD 


•♦46.RELSW 




IC3C2 


43 


10350 


02478 


09710 




CM 


IC, 1,1011 




1C314 


14 


03894 


000-J 


09720 




HNE 


• ♦24 1 VJ 




10326 


47 


10350 


C1200 








162C-1443 MONITOR I VERSION 2 SPS II-C PHASE B 










P AGfc 


09730 




TDM 


IC,2, 11 




IC338 


15 


03894 


OCOOK 


09740 




BB2 






1C350 


42 






09750 


SEC INS 


BT 


CLOUT , CLOUT- I 




10352 


27 


08126 


08 125 


09760 




TR 


ZEPCZEPO+12 




10364 


31 


02300 


02312 


09770 




AM 


ADDRS, 12 




10376 


1 1 


03520 


-C012 


09780 




RTM 


L S TOUT , • ♦ 1 ? 




1C388 


I 7 


1 1984 


JC40C 


09790 




TF 


FRSTAD. , LSTAO 




1C4C0 


26 


03899 


03909 


09800 




AM 


LSTAO, 12 




1C4 12 


1 1 


03909 


-0012 


0981 




B 


D0INST*60 




10424 


49 


10148 


OOOOO 


09820 




DOR G 


• - 1 




1C434 








09830 


• 
















09840 


* 


THE FOLLOWING ROUTINE ARRANGES THE OBJECT OUTPUT TC THE 


FILE 










09050 


• 
















09860 


S FACKR 


TO 


STNLCn*13,STACKR-t 




1C434 


25 


I 1489 


10433 


09870 




BNF 


NEhCAR.FRSTMT, , GO TO NEWCAR IF THIS IS FIRST ENTRY 




10446 


44 


1 1 100 


04032 


09880 




CM 


7TY5,75, ,CHK. IF CARD IS EMPTY 




&0458 


14 


03892 


-0075 


09890 




BE 


MOD IF I 




1C470 


46 


1 1308 


01200 


01900 




BO 


BRSEO, IC, *CHK . FOR TCO 




10482 


43 


10502 


3894 


09910 




87 


INDAOR 




10494 


49 


10932 




09920 


BRSEO 


C 


TESTAO,FRSTAO,,TEST FOR BREAK IN AOCRESS SEQUENCE 




105C2 


24 


09028 


03899 


099J0 




UNE 


REMAIL 




10514 


4? 


10976 


01200 


09940 




C 


TYPE, IC ,, TEST FOR KIND OF STATEMENT 




10526 


24 


09023 


03894 


09950 




BNE 


NEWIL 




10538 


47 


11044 


01200 


09960 




TFM 


TEST,0 , , DATA IS 




10550 


16 


09015 


-0000 


09970 




TFM 


TRDATA*U,0UT*2 , , C CNT I GUOLS ,G0 DIRECTLY 




10562 


16 


10765 


-2220 


09980 




TCM 


ULT-7,0 ,,TC SEE IF OATA FITS 




IC5 74 


15 


0221 1 


OOOOO 


09990 


FIT 


S 


7TY5, TE ST , , TEST TO SEE IF ACCRS . I ND« LEN ETC 


FITS 


10586 


22 


03892 


09015 


1 0000 




BMP 


SETFRM, ,,NQ, GO TO SET FLAG REC.MARK 




10598 


47 


1 1296 


01100 


100(0 




S 


7TY5 , LNTH ,, NOW SEE IF DATA FITS 




1C610 


22 


03892 


02387 


10020 




BNZ 


• ♦24 




10622 


47 


10646 


01200 


10030 




TFM 


7TY5.75 




10694 


16 


03092 


-00/5 


10040 




BNL 


CHKRM 




10646 


46 


10694 


01300 


10050 




TO 


•♦22, IC, NO, TEST 




10658 


25 


10660 


03094 


10060 




CM 


• ♦8*20000* 79, FOR 




106 70 


14 


10676 


KO-00 


10070 




BNE 


SETFRM.,, CONSTANT 




10682 


47 


11296 


01200 


10080 


CHKRM 


BNR 


TROATA.OUT-7 




10694 


45 


10754 


02211 


10090 




TO 


TRDATA»6,0UT-7,6 




10706 


25 


1076- 


02211 


10100 




AM 


ABBA ,1,10 




10710 


11 


04031 


000-1 


10110 




TOM 


OUT-7,0 




10730 


15 


02211 


OOOOO 


10120 




SM 


TEST, 1,10 




1C742 


12 


09015 


000-1 


10130 


TRCATA 


TR 


ABBA, ,6, MOVE DATA {PLUS ADDR. , I NO. LEN, ETC > TO OUTPUT 


BUFFER 


10754 


31 


0403 J 


OOOOO 


10140 




BNF 


•♦20.7TV5 




1076* 


44 


10766 


03692 


10150 




87 


SPLIT 




10778 


49 


11564 




10160 




A 


STKLEN, LNTH, 6, UPDATE LENGTH 




10706 


21 


0390M 


02367 


10170 




A 


ABBA, TEST 




10790 


21 


04031 


09015 


10100 




A 


ABBA, LNTH 




10010 


21 


04031 


02367 


10190 




TF 


TE S TAD, LSTAO, * STORE AODR.OF LAST POSN.M 




10022 


2* 


09026 


03909 


10200 




TF 


TYPE, IC, .STORE INDIC.CODE. 




10034 


26 


09023 


3694 


10210 




80 


•♦34, IC 




10046 


43 


10062 


03094 


10220 




TO 


TR0ATA*6,FLGRM,6 




10090 


25 




03910 


10230 




TFM 


7TYS.75 




10070 


16 


03692 


-0075 


10240 




TDM 


FRSTMT , 1 * 1 1 




10002 


15 


04032 


OOOOJ 


10290 




BNF 


• »24. DUMP l*ll,,CK. FOR CONST. WHOSE LAST POSN.IS A REC.MRK. 


10094 


44 


10916 


03547 


102*0 




TDM 


TVPE-1, l,ll,SET INDICATOR THAT CONST. HAS RECORO MARK 




10906 


15 


09022 


OOOOJ 


10270 




TOM 


0UMP1*U 




10910 


15 


03547 


OOOOO 


10200 


R6ETRN 


BB2 






10930 


42 







130 



162C-1443 MONITOR I VERSION 2 SRS I I -C PMASf B 



PAGE 



10290 • SET UP FOR IN0ICAT0R A NO A0DRESS--TC0 



10300 


INDACR 


TON 


HUB 1 ♦ 1 I « 6 


109 32 


15 


11167 


CC006 


10310 




TOM 


HUB 1*35,5 


10944 


15 


11191 


00005 


10320 




TFM 


HUB2*l l.OUT-7 


10956 


16 


1 1 '703 


-2211 


10330 




87 


HUB I 


10966 


49 


11156 




10340 


• 


SET IP FOR «EC.MRK.,AODRESS, INDICATOR ANC LENGTH 










10350 


REMAIL 


TO 


0UT-7,LNTH*l 


10976 


25 


02211 


02396 


10360 




TOM 


HUai*ll,9 


10988 


15 


11167 


00009 


10370 




TOM 


HUBl»35i8 


1 1000 


15 


11191 


00006 


10380 




TFM 


HUB2*ll,0UT-6 


11012 


16 


11203 


-2212 


10390 




TF 


OlWtFRSTAD 


11024 


26 


02216 


03899 


10400 




B 


HUB 


11036 


49 


11132 


00000 


10*10 




00 R C 


•-3 


11044 








10420 


• 


SET LP FOR NEW INDICATOR AND LENGTH 










10430 


NEW 11 


TOM 


TYPE- I, , 11, TURN OFF • INOICATCR 


1 1044 


15 


09022 


OOOO- 


10440 




TDM 


HUBl*ll,3 


1 1056 


15 


11167 


00003 


10450 




TOM 


HUB 1*35,2 


11066 


15 


11191 


00002 


10460 




TFM 


HUQ2*ll,0UT-l 


11060 


16 


11203 


-2217 


10470 




8 


H LB 


11092 


49 


11 132 


ooooo 


10480 




OURG 


• -3 


1 1 1 CO 








10490 


• 


SET UP FOR NEW 75-0! Gl T RECORD- NEW ADORfSS , 1 NO . ANO LENGTH. 










10500 


NEwCAR 


TOM 


HUD1*1 1,8 


11100 


15 


11167 


0C008 


10510 




TOM 


HUB 1*35, 7 


11112 


15 


11191 


0CO07 


10520 




B 


RE MA 1 L ♦ 36 


11124 


49 


11012 


ooooo 


10S30 




DORG 


•-3 


11132 








10540 


HUB 


TO 


OUT-l.IC 


11132 


25 


02217 


03894 


10550 




TFM 


OUT*l,0,lO 


11144 


16 


02219 


000-0 


10560 


HUB I 


TFM 


TEST 


1 1 156 


16 


09015 


-0000 


10570 




TF 


STKLEN, ABBA 


11168 


26 


03904 


04031 


10580 




AM 


STKLEN, 


1 1 180 


1 1 


03904 


-0000 


10590 


HUB2 


TFM 


TRDATA* I 1 , 


1 1 192 


16 


10 765 


-0000 


10600 




TO 


•♦22, IC 


11204 


25 


1 1226 


03894 


10610 




CM 


•♦8,40000,79 


1 1216 


14 


11224 


MO- 00 


10620 




8NE 


FIT 


1 1228 


47 


10586 


01200 


10630 




A 


OL T ♦ 1 , LNTH 


1 1240 


21 


02219 


02387 


10640 




A 


0LT+l,D0INST*23 


11252 


21 


02219 


1011 1 


10650 




TF 


D01NST^23,LNTH 


11264 


26 


10U 1 


02387 


10660 




TFM 


L N T H , 


11276 


16 


02387 


-cooo 


10670 




87 


FIT 


1 1266 


49 


10566 




10680 


• 


SET A FLAGGED RECORD MARK TERMINATING ONE CARO 










10690 


SETFRM 


TD 


TRDATA*6,FLGRM,6 


1 1296 


25 


HO 76- 


03910 


1O700 


MOCIF I 


TFM 


/TY5, 75,, INITIALIZE FULL CARO COUNTER 


11308 


16 


03892 


-0075 


10710 




TR 


PKM0D,PKXQD*5 


11320 


31 


03932 


03937 


10720 




BNR 


STNUCO.PKMOD 


11332 


45 


114 76 


03932 


1 7 30 




C 


r :VH IN*5, SUB0UT*5 


11344 


24 


03569 


03593 


1 7 4 u 




BNH 


OVRLAP 


1 i 356 


4 7 


11668 


01100 


10750 


• 


WRITE 3 SECTORS — 4 CARDS — TO THE FILE 










10760 




TFM 


I0RT,**2) 


1.368 


16 


00565 


J 1391 


10770 







IG«6C,l)EF0UT,7 


11380 


49 


00520 


- 3579 


10780 




TFM 


•♦30, INPUT2*99 


1 1392 


16 


11422 


- 3386 


10790 




SM 


•♦18,1,10 


11404 


12 


11422 


000-1 


10800 




TDM 


•-•,o 


11416 


I* 


OOCOO 


OOOOO 


1CS1C 




CM 


• -6, PACK 


11426 


14 


11422 


-2984 


10820 




BNE 


• -36 


11440 


4 7 


11404 


01200 


10830 




AM 


SLB0UT*5, 3, 10 


11452 


11 


03593 


000-3 


10840 




TR 


PKM00.PACKA0-4, .INITIALIZE BUFFER ADDRESSES 


11464 


31 


03932 


0391 1 



15! 



1620-1443 MONITOR I VERSION 2 SPS II-C PHASE B PAGE 



10850 


STNUCD 


TF 


ABBA, PKM0D*4 ( , ADDRESS CF NEW CARD MOVEC TO ABBA 


11476 


26 


040 31 


03936 


10860 




B 


•♦8,, .BRANCH BACK OR CONTINUE 


11488 


49 


11496 


OOOOO 


10870 




DORG 


• - 3 


11496 








10680 




TDM 


OUT-7,0 


11496 


15 


02211 


ooooo 


10890 




BD 


NEWCAR, IC 


115CB 


43 


11100 


03894 


1090U 




TF 


1 S T TCD , ADORS 


11520 


26 


03968 


03520 


10910 




TD 


1STTC0-5, IC 


11532 


25 


03963 


03894 


10920 




TR 


TRDATA+6, ISTTC 0-10,6 


11544 


11 


1076- 


03958 


10930 




87 


REE TRN-60 


11556 


49 


10870 




10940 




ROUTINE TO HANDLE THE CASE WHERE DATA OVERFLOWS FROM ONE 










10950 


• 


CARD TO ANOTHER 










10960 


SPL IT 


A 


LNTH.7TY5 MOVE PARTIAL 


11564 


21 


02387 


03892 


10970 




TFM 


•♦35,OUT*2 DATA 


11576 


16 


11611 


-2220 


10980 




A 


•♦23, LNTH INTO 


11588 


21 


11611 


02387 


10990 




TR 


OUT+2 , , 0UT*2 


11600 


31 


02220 


OOOOO 


1 1000 




A 


FRSTAD, LNTH, , OBTAIN ADDRESS OF NEW FIRST DIGIT 


11612 


21 


03899 


02387 


11010 




CF 


7TY5 


11624 


33 


03892 


ooooo 


1 1020 




A 


STKLEN, LNTH, 6 


11636 


21 


0390M 


02387 


1 1030 




TF 


LNTH, 7TY5 


11648 


26 


02367 


03892 


11040 




B7 


MOD IF I 


11660 


49 


11308 




11050 


• ERROR ROUTINE — FINAL OUTPUT MAS OVERLAPPED INT. OUTPUT 










11060 


OVRLAP 


TFM 


EVALER-2, 72710 


11668 


16 


07634 


P2710 


11070 




BT 


EPR INT , EPR I NT- 1 


11680 


27 


08022 


06021 


1 1080 




B7 


MONCAL 


11692 


49 


00796 




11090 


• 














11100 


• 


NUMERIC TO ALPHA CONVERTER 










11110 


• 














11120 




DS 


5 


11703 




5 




11130 


FILL 


TR 


FILBUF,FILL-1,11 


U7C4 


31 


11960 


U 701 


11140 




TFM 


FCHBUF, 70,10 


11716 


16 


11977 


OOOPO 


11150 




TO 


FCHBUF, FILBUF*4, 11 


11726 


25 


11977 


1196M 


11160 




BNF 


•♦60, FCHBUF 


11740 


44 


11800 


11977 


11170 




TDM 


FCHBUF-l, 5,11 


11752 


IS 


11976 


OOOON 


11180 




CF 


FCHBUF 


11764 


33 


11977 


OOOOO 


11190 




BO 


• ♦24, FCHBUF 


11776 


43 


11800 


11977 


11200 




TOM 


FCHBUF-l, 2,11 


11766 


IS 


11976 


0000K 


11205 




BNG 


•♦24, FCHBUF 


11600 


55 


11824 


11977 


11206 




TFM 


FCHBUF, 47, 10 


11612 


16 


11977 


000M7 


11210 




BNR 


•♦24, FCHBUF 


11824 


45 


11848 


11977 


11220 




TFM 


FCHBUF, 34, 10 


11836 


16 


11977 


000L4 


11230 




TF 


FIL8UFH4, FCHBUF, 6 


11846 


26 


1197* 


11977 


11240 




AM 


FILBUF*4, 1,10 


11860 


11 


11964 


000-1 


11250 




AM 


FILBUF*14, 2,10 


11872 


11 


11974 


000-2 


11260 




C 


F ILBUF*4, FUBUF»9 


11864 


24 


11964 


11969 


11270 




BNH 


FILLM2 


11196 


47 


11716 


01100 


11280 




88 2 




11906 


42 






11290 




OS 


5 ■ 


11914 




S 




11300 


CVACT 


TFM 


ACTFIL*5,ZEP0 


1191* 


14 


12420 


-2300 


11310 




A 


ACTFIL*5,LNTH 


11926 


21 


12420 


02367 


11320 




8TM 


FlLl,ACTFU-4 


11940 


1? 


11704 


J24U 


11330 




B 


CVACT-l, r 6 


11952 


49 


1191N 


OOOOO 


11340 




DORG 


«-3 ' 


1 1960 








11350 


FR8UF 


OSS 


16 


I i960 




16 




11360 


FCHBUF 


OS 


2 ' 


11977 




2 




11370 




OS 


5 


11962 




S 





11380 THE FOLLOWING 'ROUTINE ARRANGES THE OUTPUT OF THf MSTING 



152 



(620-1443 HON I T OR I VERSION 2 SP5 I I - C PHASE B 



PAGE 24 



11390 • DECK 



1 1*00 


I STOUT 


11 TM 


FlLL«ADRF|L-*,,ADOR£SS 


i i 00! 


I ' 


nil* a 




11*10 




TCM 


|NPtT2»2»6 I- 3*42,7 




1 5 




CT007 


1 1*20 




cm 


L I NPH T- 1 ,001 NS T 


1 20CB 


I * 


0926 7 


1 ft n b fl 

•J -ZZ 


1 1*30 




UNE 


LSTCON 


12020 


* 7 


12076 




1 1**0 




HTM 


F ILL tUPF It-*, » OP. CODE 


12 32 


I 7 


1170* 


1 3 14. » 

1 \ 110 


1 1**0 




fo TM 


F ILL ,PF IL-4, |P-FIELD 


1 20** 


1 7 


1170* 




11*60 




HTM 


FILL.,OFlL-*i.O-FlELO 




I 7 




J2395 


11*70 




H7 


PR INT 


12068 


*9 


12100 




u*ao 


ISTCON 


UTM 


F ILL .LNTHFL-* 


12076 


17 


1170* 


J2*27 


11*90 




TDM 


INPLT2*2«67- 3*42, 7 


1 2088 


1 5 


346C 


CCOO 7 


1 1S00 


MINT 


ONF 


PINCMl , L SPHSW , , SHALL WE PRINT 


i 2 1 CO 


** 


12188 


02481 


11510 




TFM 


IORT,«*23,, VES TO PRINT LISTING (IORT) 


12112 


16 


00565 


J2 1 35 


11520 




R 


IOPT.LSTUEF-4,7 


1212* 


*9 


00532 


J2 3 39 


11530 




BN1 


PLNCHl , 3*00 , , TEST PRINTER CHAN 12 OF LQ PAGE 


1 2 1 36 


* 7 


12188 


3*00 


115*0 




TFM 


CF F A i PR TAD » » DISK CCNTRCL FIELC PRINT OFLO 


121*8 


16 


02629 


J 2 1 72 


11550 




HTM 


CFf ,PACE AUORESS TU START CFLO INDICATICN 


12160 


I 7 


02592 


-6278 


11560 


PR T AO 


UUA 


t I 1 80 AO i B /SCT,H7MA0« « t CDA PAGE OFLU TITLE AND PROGRAM 


121 72 




14 








1 J 700 1-04-6088 










1 1570 




cc 


1 ' 


12 186 




1 




11580 


PUNCH 1 


ONF 


GQCL.LSCOSw, , TO PUNCH OR NUT 


12188 


** 


12296 


024 79 


1 1590 




CM 


REVSCN05,INPUT2*2»59, , YES * AKE HCLES 


1 22CO 


I* 


C5889 


- 3405 


1 1 600 




ONH 


PLNCH2 


12212 


4 7 


12260 


01100 


11610 




TFM 


inRT,»*23,. PUNCH STATEMENT ONLY 


1222* 




00565 


J2247 


11620 






lUr I itU°Otr~* , r 


12236 


49 


00532 


-*180 


1 1630 




HT 


CLULT, CLOUT- I , , CLEAR CARO CNLY AREA 


12248 


27 


08126 


08125 


116*0 


PUNCH2 


TR 


INPLT2»2»61-),1NPUT2*M«2*39, , MOVE OBJECT CQCE 


12260 


31 


03406 


03*48 


11650 




TFM 


I0HT,«+23*» PUNCH C0UE-MAY8E STATE CENT 


12272 


16 


00565 


J2295 


11660 




H 


I0PT,C0PDEr-4, 7 


1228* 


*9 


00532 


-4180 


11670 


COCL 


n t 


CLULT .CLOUT- I 


12296 


27 


08126 


08125 


U6S0 




TR 


|NPLT2*156.iCLERER*lit CLEAR THE REMAINS 


12308 


31 


03**3 


02720 


11681 




TFM 


RE VSCN* 35, INPUT2*2»58, , SET POINTER LOW FOR MACRO CUTPUT 


12320 


16 


05889 


-3403 


1 1 690 






LSTQUT— l,,6 


123)2 


*«* 


1 198L 




11700 


LSTCEF 


DSA 


INPLT2 


123*3 




5 


X 1 










123*3 




-3287 




11710 




DC 


3,18',,, PRINT ALPHA LISTING 


123*6 




3 




11720 


ACRFIL 


DSA 


AUUN IIJUR 3 | I IlKU li't ■Ol*<»^t 


12351 




5 


X 3 










12)51 




-3516 












12 356 




- 3S20 












12361 




-3449 




11730 




DC 


I. • 


12362 




I 




117*0 


OPFIL 


DSA 




12 367 




5 


x 3 










12367 




-2300 












12372 




-2 301 












12 3 7 7 




-3461 




11750 




DC 
* 


1 , • 


1237H 




1 




11760 


PFIL 


USA 


Z E PO *2 t ZE PQ* 6 , I NPU T2 ♦ 2 • 70-2 ♦* 2 


123H3 




5 


X 3 










12383 




-2302 










i r> :j 
















U2C-1443 MONITOR I VERSION 2 SPS II-C PHASE B 








PAGE 














-2 306 












12393 




-3*67 




11770 




CC 


l.» 


1239* 




1 




1*780 OF IL 


DSA 


ZfP0*7,ZEP0*l I , lNPUT2*2»76-2*42 


12399 




5 


x 3 










12399 




-2307 












1 2*C* 




- 2 3 1 1 












124C9 




-3479 




1 1 790 




CC 


If ' 


12410 




1 




11800 


ACTFIt 


DSA 


ZEPO*l,»-« ,lNPUT2*2»73-2*42 


12*15 




5 


x 3 










12*15 




-2301 












12*20 




-0000 












12*25 




-3*73 




11810 




DC 


It 1 


12*26 




1 




11820 


INTHFl 


DSA 


LNTK-*,LNTH, I NPU T2 ♦ 2 «6 7-2 »*2 


12431 




5 


X 3 










12*31 




-2383 












12*36 




-2387 












12**1 




-3*61 




11830 




DC 


!»• 


12**2 




I 




116*0 


• 














11850 


• 


ASSEMBLE INSTRUCTION 










11860 


• 














11870 


INSTRN 


TO 


•♦23.AODCOW 


12*** 


25 


12*67 


02678 


11880 




TD 


•♦23.AJUST 


12*56 


25 


12*79 


02399 


11890 




AM 


AD0C0h,,10 


12*68 


11 


02678 


000-0 


11900 




TFM 


L INPR T- I ,D0l NS T 


12*80 


16 


09267 


J0086 


U91Q 




TO 


ZEPOflNTBUF 


12*92 


25 


02300 


03628 


11920 




TD 


ZEP0^1.INTBUF*1 


125C* 


25 


02301 


03629 


11930 




HTM 


SC*N,»*12 


12516 


17 


06046 


J2528 


119*0 




TR 


ZEPC*2,CLERER*43 


12528 


31 


02302 


02762 


11950 




TR 


ZEP0*2,ADDRS-* 


125*0 


31 


02302 


03516 


11960 




CF 


2EP0»2 


12552 


33 


02302 


00000 


11970 




BNF 


•♦24.RLOCSW 


1256* 


** 


12588 


07950 


11980 




SF 


ZCPO 


12576 


32 


02300 


00000 


11990 




TR 


INFLT»l9,INPUTi2l 


12588 


31 


02812 


0281* 


12000 




BTM 


SCAN,»*12 


12600 


17 


06044 


J2612 


12010 




TR 


Z6P0*7,ADDRS-* 


12612 


31 


02307 


03516 


12020 




CF 


2EPO*7 




33 


02307 


00000 


12030 




BNF 


•♦24,RLOCS* 


126316 


64 


12660 


07950 


120*0 




SF 


26P0*l 




32 


02301 


00000 


12050 


• 


SET Tt* O-MOOIFIERS 










12060 


OPCOOE 


TFM 


MVf*OO*6tIEP0*6 




16 


12T50 


-2306 


12070 




TFM 


CHKMOOM l.lNTBUF»l 




16 


12743 


-3629 


12080 


AC01 


AM 


CMtMOOMltl 




11 


12743 


-0001 


120*0 




CM 


CHKM0D*ll,lNT6UF*7 




14 


12743 


-363S 


12100 




BE 


TVFIMS 




46 


12776 


01200 


12110 




AM 


MVEM0D*6.l 




11 


12750 


-0001 


12120 


CHKMOD 


BNF 


AODl 




44 


1266* 


00000 


12130 


MVEMOO 


TO 


,CMCMO)0*lltU 




25 


00000 


12741 


12160 




CF 


MVEMO0*6,,6 1,5^ 




33 


1275- 


00000 



162C- 1443 MCNt TOR I VERSION 2 SPS I I -C PHASE B 



PAGE 



12150 




H7 


AOD I 


12768 


49 


12684 




12160 


TYP INS 


TF 


ADDRS.ADDCOn 


1 27 76 


26 


03520 


02678 


12170 




AM 


ADOCOta, 11 


12786 


11 


02678 


-0011 


12180 




c 


INPLT* 16,862 


12800 


24 


02809 


09021 


12190 




BNE 


CHKB7 


12812 


47 


12844 


01200 


12200 




SM 


AOOCOM, 10, 10 


12824 


12 


02678 


CCO JO 


12210 




B7 


FL AGGR 


12836 


49 


12880 




12220 


CHK87 


CM 


INPlT*14, 4277,8 


12844 


14 


02807 


0M277 


12230 




BNE 


FL AGGR 


12856 


47 


12880 


01200 


12240 




SM 


AD0C0M,5 


12868 


12 


02678 


-0005 


12250 


t 














12260 


• 




CHECK TO SEE IF THERE IS A FLAG QPERANC 










12270 


• 














1 2280 


FL AGGR 


TR 


INPLT*19, INPUT*2l 


12880 


31 


02812 


02814 


12290 




BNR 


•♦20, INPUT+20 


12892 


45 


12912 


0281 3 


12300 




B7 


SEE IN 


129C4 


49 


12956 




12310 




CM 


INPi.W0.23, 10 


12912 


14 


02813 


000K3 


1 2320 




BE 


SEE IM 


12924 


46 


12956 


01200 


1 2330 




HD 


MGRIDR , INPUT* 19 


12916 


4 3 


13112 


02812 


12340 




B7 


FLACf.R 


12948 


49 


12880 




12350 


• 














12360 


• 




SET FLAG IF IMMEDIATE INSTRUCTION 










12370 


• 














12380 


SEE IN 


TC 


•♦21, INTBUF 


12956 


25 


1297 7 


03628 


12390 




CM 


•♦9,1,810 


12 966 


14 


12977 


0-0- 1 


12400 




BNE 


L INPRT 


12980 


47 


09266 


01200 


12410 




C 


• ♦ ? 3 » IN TBUF ♦ I 


12992 


24 


13015 


03629 


12420 




HI 


L INPRT, 1215, 10 


130C4 


46 


09266 


012J5 


12430 




SF 


ZEPOW 


13016 


32 


02307 


ooooo 


12440 




B7 


L INPRT 


1 3026 


49 


09268 




12450 


• 














12460 


• 




SCAN FLAG OPERAND 










12470 


• 














12480 


TRANS 


TR 


INPLT*19,INPUT*2l 


1 3036 


31 


02812 


02614 


1 2490 




BNR 


• ♦20, INPUWC 


13048 


45 


1 3068 


0281 3 


12500 




B7 


L INPRT 


1 3060 


49 


09268 




12510 




BD 


• ♦20, INPUTM9 


13068 


4 3 


13088 


02812 


12520 




B7 


TRANS 


13080 


49 


13036 




1 2530 




CM 


INPLT*20,23,10 


13088 


14 


02813 


00OK3 


12540 




HE 


L INPRT 


131C0 


46 


09268 


01200 


12550 


MGRUDR 


CM 


INPUT ♦20, 7 1,10 


13112 


14 


02813 


00OP1 


12560 




BNE 


ABIE 


13124 


47 


1 3280 


01200 


1 25 70 




BNR 


•♦2C, INPUW2 


13136 


45 


13156 


0281 5 


1 2580 




87 


ABLE 


13148 


49 


I 3280 




12590 




c 


ZERCNE^9, INPUU22 


13156 


24 


1 3 32 1 


G2815 


12600 




BNE 


BAKR 


13166 


4/ 


13212 


01200 


12610 




SF 


ZEPO^ 10 


lUbC 


32 


02 310 


OCCOO 


12620 


CHAR 


TR 


INPUTM9, INPUT+23 


13192 


31 


02812 


02816 


1 2630 




37 


TR ANS ♦ 1 2 


132C4 


49 


13048 


12640 


BAKR 


C 


ZERCNE^ ll.INPUT+22 


13212 


24 


1 3 323 


02815 


12650 




BNE 


ABLE 


1 3224 


4 7 


13280 


01200 








b a ?r i luniiTi 
• ♦/!» »IN*UM24 


1 32 36 


45 


I 3256 


0281 7 


12670 




B7 


ZERONE 


1 3248 


49 


13312 




12680 




C 


ZEK0NEt9,INPUT*24 


1 3256 


24 


1 3321 


0281 7 


12690 




BNE 


ZERONE , r r 


1 3268 


47 


13312 


01200 


12 700 


ABLE 


r D 


•♦l8,INPUT+20 


1 3280 


25 


13298 


02813 








162C-1443 MONITOR I VERSION 2 SPS II-C PHASE B 








PAGE 


12710 




SF 


ZEPC 


I 3292 


12 


02300 


00000 


1 2720 




B7 


TRANS 


133C4 


49 


13036 




12730 


ZERONE 


SF 


ZEPO+1 1, 7071 ,81C 


13312 


32 


02311 


OPOPl 


1 2740 




B7 


CHAR 


1 3324 


49 


13192 




1 2750 


CNT 


DS 


2, CHAR- 1 


13191 




2 




12760 


• 














1 2 770 


• 




EVALUATE LENGTH OF DS OR DNB 










12780 


• 














1 2790 


DSDNB 


8TM 


SCAN, •♦ 12 


13 3 32 


17 


06046 


J3344 


1280U 




TF 


L N T H , ADDR S 


13344 


26 


02387 


03520 


12810 




BD 


•♦48, INTBUF^6 


13356 


4 3 


13404 


03634 


12820 




CM 


LNTH, 100 


13368 


14 


02387 


^0100 


1 2830 




BN 


• ♦24 


1 338Q 


47 


1 3404 


01 300 


12840 




TFM 


LNTH, 99 


13192 


16 


02387 


-0099 


12850 




TR 


INPLiT* 19, I NPUWl 


13404 


31 


02812 


0281 4 


12860 




BTM 


SCAN, •♦ 12 


13416 


17 


06046 


J3428 


12870 




BD 


•♦32.BSW 


13428 


43 


13460 


09Q48 


12880 




TO 


KLRLSH.RLOCS* 


1 344 


25 


04033 


07<>50 


12890 




B7 


PROS 


13452 


49 


13528 




12900 


• 














12910 


• 




ADDRESS ASSIGNED BY PROCESSOR 










12920 


• 














12930 




TF 


ACDRS.ADDCOW 


13460 


26 


03520 


02678 


12940 




A 


ADDCOw , LNTH 


13472 


21 


02678 


02387 


12950 




BD 


DSS.INTBUF+5 


13484 


43 


13516 


03633 


12960 




A 


ADDRS , LNTH 


13496 


21 


03520 


02387 


12970 




B7 


DSSU2 


13508 


49 


13528 




12980 


OSS 


AM 


ADDRS, 1, 10 


13516 


11 


03520 


000- I 


12990 


PROS 


BTM 


L INPRT, DOOS 


1 3528 


17 


09268 


-9352 


1 3000 


• 














13010 


• 




EVALUATE LENGTH OF DAS 










13020 


• 














13030 


OAS 


BTM 


SCAN, 12 


13540 


17 


06046 


J 3552 


1 3040 




TF 


LNTH, ADDRS 


13552 


26 


02387 


03520 


1 3050 




A 


LNTH, LNTH 


13564 


21 


02387 


02367 


13060 




TF 


TEMPR , L NTH 


13576 


26 


02571 


02387 


13070 




BNR 


NOA0D,INPUT*20 


13588 


45 


13680 


02613 


13080 


• ■ 














13090 


• 




ADDRESS ASSIGNED BY PROCESSOR 










13100 


• 














13110 




TD 


•♦23,ADDCOW 


136CQ 


25 


13623 


02678 


13120 




TD 


•♦23,JSTBL 


13612 


25 


13635 


02459 


13130 




AM 


ADDCOW.,10 


13624 


11 


02678 


000-0 


13140 




TF 


AOORS.AODCOW 


13636 


26 


03520 


02678 


13150 




A 


ADDCOW, TEMPR 


13648 


21 


02678 


02571 


13160 




SM 


ADDCOWt 2t 10 


13660 


12 


02678 


000-2 


13170 




87 


PROS 


13672 


49 


13528 




13180 


NOACO 


TR 


INPUT*19, INPUT+21 


13680 


31 


02812 


02814 


13190 




BTM 


SCAN,»»12 


13692 


17 


06046 


J3704 


13200 




BD 


DAS+60,BSM 


13704 


43 


13600 


09048 


13210 




TD 


KLRL SHfRLOCSW 


13716 


25 


04033 


07950 


13220 




B7 


PROS 


13728 


49 


13528 




132 30 


• 














13240 


• 




DEFINE ORIGIN 










13250 


• 




5CAN*«*12 '^6 










13260 


OORG 






13736 


17 


06046 


J3748 



162C-1443 MONITOR I VERSION 2 SPS II-C PHASE 6 PAGE 



1 127o 




TF 


ADOCriW, AODR S 




1 3 748 


26 


C2678 


3520 


1 3280 


• 
















I 12^0 


• 


SET ACDRESS COUNTER 


in kfm 










1 3300 


• 
















1)310 




SM 


ACOCOM, 1,10 




1 3760 


1 7 


026 78 


000" 1 


13320 




3NF 


•♦24,A0nC0ta 




1 3 7 72 




1 1796 


02678 


1 1330 




TFN 


A0UCn«t99999 




1 1 784 


16 


02678 


R9999 


13)40 


ECL AT I 


CF 


ADCRS-4 




1 1 796 




03516 


OCOOO 


I 3350 




BTM 


F ILL.A0RFIL-4 




1 1808 


1 I 


1 1 704 


J234 7 


13360 




TF* 


LSTCJUT-l.PHASEB 




1 1820 




1 1 98 3 


~4200 


1 1370 




B7 


PRINT 




11812 


49 


12100 




I 3380 


• 
















I 3390 


• 


DEFINE CONSTANT ANO 


DEFINE 


tPFT 1 At rnki^TAMT 








I 3400 


• 
















1 1410 


OC 


TC 


DC »?)• INTBUF4-5 




to 






03633 


1 1420 




CF 


CCUMfR 




1 3852 






UbvUv 


1 34)0 




TF* 


SFLAG*11, OOUOO 








* * * 




1 1440 




UTM 


$C AN » • ♦ 1 ? 






17 




1 1 ft It A 


1 3450 




TF 


LNTH.AnnRS 




1 3ARA 


26 




n i«o 


I 3460 




CM 


L N T r , 5 1 




i lor r 
i !ai j 






rn* i 


1 3470 




DL 


• »2<, 








i tail 




1 1480 




TFM 


LNTh.SO 




1 3924 


1 6 


02 387 


•0050 


1 1490 




TR 


ZFPO- I » C LF R f R 




13936 


\ ^ 


02299 


02719 


I 3500 




ro 


Zt PU*5l ,LNTH» 1 




I 3948 


25 


02 351 


02368 


i 




SF 


zfpc 




13960 


32 


02300 


00000 






TFM 


SFLACMt 4 1,10, 




CHANGE SF TC NCP 13972 


16 


14 18 1 


OOOMl 


I 3530 




B7 


TRKrC*12 




13984 


49 


14 168 




1 3540 


CCOMER 


C« 


INPLT»22,23, 10 




13992 


1 4 


02815 


CC0K3 


1 35 50 




BE 


IRREC^24 




140C4 


46 


14 180 


01200 


1 3560 




SH 


TRRfC-7? 




14016 


46 


14084 


01100 


1 35 70 




CM 


INPLW2, 20,10, 




lr - , ON UNlib DIbIT Or CON 1402B 


14 


0281 5 


OOOKO 


1 3580 




8NE 


TRREC ♦ i » 




IGNORE ♦ 14040 


4 7 


14 156 


01200 






SF 


CCOMER 




14052 


12 


1 3992 


00000 






TFM 


SFiAG»l, 32,10, 




CHANGE NOP TO SF 14064 


16 


14161 


00012 






8 7 


IRKEC 




140 76 


49 


14156 




I 3620 


* 
















1 36 30 




COLLECT CONSTANT 












1 3640 


















\ 




TF 


SFLAG*ll,INPUT*?2 




14084 




14191 


0281 5 






ro 


ZEPO*M , INPUT* 22 




14096 


25 


02 35 1 


02815 






CM 


1NPLT*22,60, 10 




14108 


'1* 


02815 


00000 


J 




BP 


• ♦2<, 




14 120 


46 


14 144 


1 100 






SF 


ZFP0**>1 




14132 


12 


02351 


00000 


I 3700 




TH 


ZEPC,ZEPO»l 




14144 




02 300 


02 30 1 


I 3710 


TRR EC 


Tft 


INPLT«19 V I NPUT.*21 




14156 




02812 


02814 


1)720 




BNR 


CCUMER,INPUT*22 




14 168 


it 


13992 


02815 


13730 


SFlag 


SF 


ZEPO*50 




14 180 




02 350 


CCCOO 


I 3740 




CM 


I ,34, 10 




14192 




14191 


0C0L4 


l)7Su 




HNfc 


• ♦7? 




142C4 


:i 


14276 


01200 


13760 




8NF 


■•♦36,.2EPO«"50 




14216 




14252 


02350 


1 3770 




CNF 


•♦24.CCCMFR 




14228 




14252 


13992 


1 3780 




SF 


2EP049 




14240 


12 


02349 


OCGOO 


1 3790 




TD 


ZEP(J*50,LNTM*l 




14252 


25 


02350 


02388 


1 3800 




TC* 


l)UMPl»U, ,11 




14264 


15 


03547 


CCOO- 


1 1810 




SF 


Z6 PO 




. - ■ m 14276 


12 


02 300 


ooooo 


1 1820 




C 


LNTM, I N TBUF f4 




1 •> < 14288 


24 


02387 


03632 








162C- 1443 *ONI TOR 


I VERSILN 2 SPS II-C PHASE B 






PAGE 


1 3830 




BNN 


• ♦36 




14 300 


46 


14 3 36 


1 300 


13840 




IF 


L N T H , 1 N TBUF ♦ 4 




14312 


26 


02387 


3632 


1 3850 




CF 


LNT^-1 




14324 


3 3 


02 386 


OCOOO 


1 3860 




TFM 


• ♦35,VEP0«-5O 




14 3)6 


16 


14 3 71 


-2350 


1 3870 




S 


♦ ♦2 3,LNTH 




14348 


22 


14371 


02387 


I 38HO 




TR 


ZEPC 




14360 


31 


02300 


CCOOO 


1 3890 




HD 


• ♦?<., DC *2l 




14372 


4 i 


14 396 


1 386 3 


I 39C0 




SF 


ZEPCM 




14 384 


32 


02301 


00000 


1 3910 




QNR 


•♦?4,/EP0* 1 




143S6 


45 


14420 


02301 


1 3920 




CF 


ZEPCM 




144C8 


33 


0230 I 


OCOOO 


I 3930 




BNR 


Ch-CK , INPUW2 




14420 


4*> 


14612 


02815 


1 3940 


* 
















1 3950 


* 


AOOKfSS ASSIGNED BY 


PROCt SSCk 








1 396U 


t 
















1 3970 


CO ahc 


TF 


AODRS, ACDCOM 




14432 


26 


3520 


02678 


1 3980 




A 


ACDCOW.LNTH 




14444 


2 1 


02678 


02 387 


I 3990 




TF 


L S T AD , ADDCOW 




14456 


26 


3909 


02678 


14000 




AM 


L S T AD ,1,10 




14468 


11 


03909 


QCO- 1 


14010 




BD 


DSCtDC *23 




14480 


4 3 


14516 


1386 3 


14020 




A 


A0L5RS »LNTM 




14492 


2 1 


0352Q 


02387 


14030 




8 


USLM2 




14504 


49 


14528 


00000 


1 4040 


CS,£ 


AM 


AODRS.1,10 




14516 


1 1 


03520 


OCO- 1 


1 4050 




TR 


0tt*2*|EPO*l 




14528 


11 


02220 


02301 


1 4060; 


'/ 


TF 


FR S TAD , L S TAD 




14540 


26 


0)899 


03909 


1 4 7 6 




S 


FR S TAD ,LNTH 




14552 


22 


03899 


02387 


14080 




HNF 


•♦36.DUMP1* H 




14564 


44 


14600 


03547 


1 4090 




BNR 


• ♦24,?EP0M 




14576 


45 


14600 


02301 


14100 




TOM 


DUMP1U1.1.11 




14588 


15 


03547 


0000 J 


14110 


PROCSA 


OTM 


LINPRT.DOCON 




14600 


17 


09268 


-9480 


14120 


CHECK 


TR 


INPLT>19, INPUT* 2') 




14612 


31 


02812 


02816 


141 30 




a tm 


SCAN, •♦ 12 




14624 


1 7 


06046 


J4636 


14140 




80 


COAhD.OSW 




14636 


41 


14432 


09048 


14150 




TO 


KLRLSMrRLOCSM 




14648 


25 


04033 


07950 


14160 


* 
















14170 


• ■ 


ADDRESS ASSIGNED BY 


PROGRAMMER 








14180 


• 
















14190 




TF 


LSTAD , AOORS 




14660 


26 


03909 


0)520 


14200 




BO 


•♦32, DC *23 




14672 


41 


14704 


1386) 


14210 




AM 


LSTAD ,1,10 




14684 


1 1 


03909 


000- 1 


14220 




37 


DSC ♦ 12 




14696 


49 


14528 




14210 




A 


L S IAD » LNTM 




14704 


2 1 


0)909 


02)87 


14240 




07 


0SO12 




1*716 


49 


14528 




14250 


• •FL 1 P 


BRANCH TABLE 












14260 


DQDSF 


8 TM 


L INPRT.OOOS 




14724 


17 


09268 


-9352 


14270 


OOC.ONF 


BTM 


LINPRT.OOCON 




14 ?)6 


17 


09268 


-9480 


14280 


PCSAF 


BTM 


L INPRT ,PDSA 




14748 


I? 


09268 


-9572 


14290 


PCONF 


BTM 


LINPRT«PCON 




14760 


17 


09268 


-9460 


14100 


UNP 


BTM 


t INPRT, 00 INST 




147T2 


1? 


09268 


J0088 


14)10 


OSB 


BTM 


GETT.OSBF 




147B4 


17 


09166 


-9268 


14120 


IINKSF 


BTM 


GE IT, LINKS 




14796 


11 


09166 


J 39 76 


14330 


CAUEX 


BTM 


GETT.CALEXT 




14808 


IT 


09166 


J4204 


14)40 


TRA 


BTM 


GI1.MTRA 




14B20 


17 


09122 


J3838 


14)50 


MACRO 


BTM 


G I T ,MACROF 




14812 


17 


09122 


J 3084 


14)40 


DSA 


BTM 


GIT ,DSAF 




14844 


I? 


09122 


Jit to 


14)70 


OINC 


BTM 


GIT.DENDF 




1 t W 14B14 


IT- 


09122 


J4498 


14380 


CCA 


BTM 


G1T.0DAF 




14868 


17 


09122 


J3392 



1620-14*3 MONITOR 1 VERSION 2 SPS Il-C PHASE 6 



PACE 







BTM 


GETT.DGMF 






1 7 






44(H 


nwi r 


BTM 


Gf T T.DVLCF 




1*892 


I 7 


09 166 


~96*6 




a <to 

-\ r 


B TM 


GE T T , R S TRF 




14904 


1 7 


09 166 


J02 32 






BTM 


GE TT.SAVEF 




1*916 


1 7 


09166 


^ ? ^ n ^ 


j 44 


DME S 


BTM 


GETT.OMESF 




14928 


1 7 


09 166 


4 1 196 


1**40 


OAC 


QTM 


GETT.OACF 




1*940 


17 


09166 


J 2 950 


1**50 


MAC2 


BTM 


GAT.MACR2 




1*952 


17 


09078 


J2756 


1 4460 


* 


LOAD PHASE B3 TO 


THE FILE 










1**70 


F 2 


34 


SLB2.701 




1*964 


34 


15012 


OC 701 


1**80 




MN 


SUB 2, 702 




14 9 76 


18 


15012 


00 702 


14490 




TR A 






14988 


36 


00000 


00500 












150C0 


49 


00000 


COCOO 


1*500 


SUB2 


CCA 


,0 .B3DAD, B 3SC r , 


B3MAD 


15012 




14 








0J9C0O-69-910O 












1*510 




TCD 


F2 




14964 








1*520 


•••••• 


• • • • » 


PAGE HEADING 


RECCRO AND PHASE 8 PRINT OVERFLOW 










1*530 




DOR G 


B7MA0,,, 




06088 








1*540 


PGARE A 


CAS 


8 2,,,, 


HEADER INFORMATION 


06089 




82 


X 2 


1 4550 


PGCQN 


DAC 


00, PAGE l.i, » 


PAGE CONSTANT 


0625 3 




8 


x 2 






PAGE 


1 












1*560 




CSC 


2,0' 




06268 




2 




1*570 


P AGEP 


0' 

DSA: 


PGARfcA 




062 74 




5 


« 1 












06274 




-6089 




1*580 




DC 


3.18»,., 


PRINT INDICATION ANO PAGE NUMBER 


062 7 7 




3 




1*590 


PAGE 


J8 ' 

TD 


PGCON* 14.PGNUM, 


■ » PAGE NUMBER 


062 78 


25 


06 267 


02647 


1*600 




TD 


PGC0NU2.PGNUM- 


1 ' 


06290 


25 


06 265 


02646 


1*610 




TO 


PGC0N*10,PGNUM* 


2 ' 


06302 


25 


06263 


0264 5 


1*620 




BD 


ONE.PGNUM-2 




06314 


4 3 


06346 


C2645 


1*630 




BO 


TWO.PGNUM-l 




06326 


4 3 


06358 


02646 


1*6*0 




B7 


NONLM 




06338 


49 


06 3 70 




1*650 


ONE 


TOM 


P GC ON ♦ 9 , 7 




06346 


15 


06262 


00007 


1*660 


TWO 


TOM 


PGC ON ♦ I 1 , 7 




06358 


15 


06264 


CCC07 


1*670 


NONUM 


3* 


,0971,, 


SKIP TO 1 IMMEDIATE 


06370 


34 


COCOO 


009 71 


1*680 




34 


,0962,. 


OOUBLE SPACE AFTER PRINT 


06382 


34 


00 000 


00962 


1*690 




TFM 


10RT,»*23., 


TO 10RT-PRINT PAGE 


06394 


16 


00565 


-641 7 


147C0 







1 OP T » P AGE P- 4 , 7 , 


♦ 


064C6 


49 


00532 


-62 70 


1 4710 




AM 


PGNLM ,0 1 ,10,, 


ADD 1 TU PAGE NUMBER 


064 18 


I 1 


02647 


OOO- 1 


1*720 




TFM 


CF F A » RE NU » , 


RESTORE PHASE B PARTIAL 


064 30 


16 


2629 


-6454 


1*730 




BTM 


CFF .PUNCHl, , 


RESUME OUTPUT ROUT I NE 


06442 


17 


02 592 


J 2 188 




RENU 


OOA 


, 1.B70AO.B7SCT, 
















U9219-C*-6088 












1*750 




DC 


1 . ' 




06468 




1 




1*760 




LOAD HE AO ING PHASE 


TC DISK STORAGE 










1*770 


F7 


3* 


SLBD, 701 




06470 


34 


06518 


CO 701 


1*780 




38 


SU80,702 




06482 


38 


06516 


00 702 


1*790 




TRA 






06494 


36 


00000 


00500 












065C6 


49 


oocoo 


CCOOO 


1*800 


suae 


DDA 


. 1.B8DAD.B7SCT, 


B7MAD, , , LOAD 


06518 




14 





1 J7001-04-6088 

14810 TCD F7 06470 

I 5 !) 



1620- 1443 MONITOR I VERSION 2 SPS IItC PHASE B PAGE 



14820 




00 RG 


L INPRT 


09268 








14830 
















14840 


• 


EVALLATF LENGTH OF DSB 










14850 


• 














14860 


DSBF 


BTM 


SCAN, 12 


09268 


17 


C6046 


-9280 


14870 




r f 


LNTH.AODRS 


09280 


26 


02387 


03520 


14880 




TR 


INPUT* 19, I NPUU21 


09292 


31 


02812 


C2814 


14890 




BTM 


SCAN, 12 


09304 


17 


06046 


-9316 


14900 




BNF 


•♦24.BSW 


09316 


44 


09340 


09048 


14910 




TFM 


ADDRS.l 


0932b 


16 


03520 


-COOl 


14920 




M 


LNTH.AODRS 


09340 


2 3 


02387 


03520 


14930 




SF 


95 


09352 


32 


00095 


00000 


14940 




TR 


INPUT+19, INPUU2L 


09364 


31 


02812 


02814 


14950 




BTM 


SCAN, 12 


09376 


17 


06046 


-9 388 


14960 




BNF 


ASINE.BSW 


09388 


44 


09436 


0904 8 


14970 


• 














14980 




AODRESS ASSIGNED BY PROCESSOR 










14990 


• 














15000 




A 


LNTH.ADDCOM 


094C0 


21 


02387 


02678 


15010 




TF 


ADDRS .LNTH 


09412 


26 


03520 


02387 


15020 




A 


A00COW.99 


09424 


21 


02678 


0C099 


15030 
















15040 


• 


AODRESS ASSIGNED BY PROGRAMMER 










15050 


• 














15060 


ASINE 


TF 


LNTH, 99 


094 36 


26 


02387 


00099 


15070 




BTM 


GEE T.OODSF 


09448 


17 


09210 


J4724 


15080 


• 














15090 


• 


DEFINE FILE GROUP MARK 










15100 


• 














15110 


OGMF 


TFM 


LNTH, I 


09460 


16 


02387 


-COOl 


15120 




BTM 


SCAN,»*12 


09472 


17 


06046 


-9484 


15130 




TO 


KLRLSW.RLOCSW 


09484 


25 


04033 


07950 


15140 




BNF 


•♦48.BSW 


09496 


44 


09544 


09048 


15150 




AM 


AOOCOW, 1 


09508 


11 


02678 


-0001 


15160 




TF 


AOORS.ADDCOW 


09520 


26 


3520 


02676 


15170 




TDM 


KLRLSM, 


09532 


15 


04033 


0000 J 


15180 




TF 


FRSTAO ,AODRS 


095*4 


26 


03899 


03520 


15190 




TF 


LSTAD , ADDRS 


09556 


26 


03909 


03520 


15200 




AM 


LSTAD ,1,710 


09568 


11 


03909 


-00-1 


15210 




TO 


0UT+2,SPSGM 


Q9560 


25 


02220 


02560 


15220 




TOM 


0UMPIM1, 1,11 


09592 


15 


03547 


OOOOJ 


15230 




BTM 


GEE T . PCONF 


09604 


17 


09210 


J4760 


15240 


• 














152 50 


• 


DEFINE VARIABLE LENGTH AODRESS CONSTANT 










15260 


• 














15270 


OVLCF 


BTM 


SCAN. •♦12 


09616 


17 


06046 


-9628 


15280 




TD 


KLRLSW,RLOCSW 


09628 


25 


04033 


07950 


15290 




TF 


OVADBF+ll • ADDRS 


09640 


26 


10147 


03520 


15300 




SF 


0VSW2 


09652 


12 


10037 


00000 


15310 




CF 


DVSmI 


096*4 


33 


10036 


00000 


15320 




BNF 


• 06,ftS'M 


09676 


44 


09712 


09046 


15330 


DVASGN 


SF 


0VSM1,,, MACHINE ASSIGNS ADDRESS 


09688 


12 


10016 


00000 


15340 




TOM 


KLRLSW. 1, 11 


09700 


15 


04031 


OOOOJ 


15350 




TR 


INPUT*19» INPUT*2l 


09712 


31 


0.2812 


02614 


13360 




BTM 


SCAN, »*12 


09726 


17 


06046 


-9736 


15370 




TF 


LNTH, APDSS J g |, 


09736 


26 


02387 


03320 



16*0- 1**1 MONITOR I VERSION 2 SPS U-C PHASE B 



PAGE 



32 



15380 




TR 


CLI , CLERER ♦ 1 


097*8 


31 


02218 


02720 


15390 




TFM 


0V!R*6, OUT*? 


09760 


16 


1005* 


-2220 


15*00 


OVLP 


CM 


LNTh, 0C050 


09772 


1* 


02387 


-0050 


1 S410 




BNP 


• ♦*« 


0978* 


*7 


09832 


01100 


15*20 




$M 


LNTH, 50, 10 


09796 


12 


02387 


OOONO 






S 


ADOR S , LNTM 


09808 


22 


03520 


02387 


15**0 




TFM 


LNft-,50 


C9820 


16 


02387 


-0050 


15*50 




BNF 


• *b« 12, DVSW2 


09832 


** 


09928 


10037 


1S*60 




BNF 


•♦36, 0VSM1 


098** 


44 


09880 


10036 


15*70 




TF 


D VAOBF ♦ 1 1 ,A0DC0W 


09856 


26 


101*7 


02678 


15*80 




A 


0VA0BF*U, LNTM 


09868 


21 


101*7 


02387 


15*90 




TF 


LSTAO , OVAOBF*U 


09880 


26 


03909 


101*7 


15500 




S 


L ST AO , LNTH 


09892 


22 


03909 


02387 


15510 




AM 


LSTAO , I 


099C* 


11 


03909 


-0001 


15520 




CF 


DVS*»2 


C9916 


33 


1003 7 


00000 


15530 




TR 


26PO, CLERER»2 


09928 


31 


02 300 


02721 


155*0 




TFM 


0VSF4-6, 2EPO*5t 


099*0 


16 


100*2 


-2351 


15550 




s 


D V SF *6 1 AOORS 


C9952 


22 


100*2 


03520 


15560 




TF 


DVA0M1, AOORS 


0996* 


26 


10071 


03520 


15570 




TR 


INPITU9, INPUT»21 


09976 


31 


02812 


0281* 


155dQ 




ATM 


SCAN, »*12 


09988 


17 


060*6 


JCCOO 


156*0 




CF 


ADDRS-* 


1CCC0 


33 


03516 


00000 


15650 




TF 


ZEPO+50, AUORS 


10012 


26 


02350 


03520 


15660 




CF 


ZEP0*50-9 


1002* 


33 


023*1 


00000 


15670 


OVSF 


SF 


CCCCO.,2 


1C036 


32 


-CCOO 


COOOO 


15680 


DVTB 


TR 


•-• ,0VSF*6,2l 1 


IC0*6 


31 


-0000 


10Q4K 


15690 


OVAO 


AM 


DVTR^6, OCCCO 


10060 


1 1 


1005* 


-CCOO 


15700 




BNR 


•♦20, INPUU20 


10072 


*5 


10092 


0281 3 


15 710 




7 


D VAOBF 


IOCS* 


*9 


101 36 




15720 




TR 


[ NPL T ♦ 19, INPLT^2l 


10092 


31 


C2812 


0281* 


15730 




BTM 


SCAN, «*12 


1010* 


17 


060*6 


J0116 


157*0 




A 


LNTH, AOORS 


10116 


2 1 


02387 


03520 


15750 




8 7 


OVLP 


10128 


49 


C9772 




15760 


CVACHF 


TFM 


ACURS, COOOO 


IC 1 36 


16 


03520 


-COOO 


15770 




A 


LSTAD , LNTH 


101*6 


2 I 


03909 


02387 


15780 




RNF 


•♦2*, DVSttl 


1016C 


** 


1018* 


10036 


15790 




A 


ACOCOW, LNTH 


1C 172 


2 1 


02678 


02387 


15800 




TR 


ZEPGM, 0UT*2 


IC 184 


3 1 


02301 


02220 


15810 




TF 


FR S TAO » L S T AD 


10196 


26 


03899 


3909 


15820 




s 


FHSTAO.LNTH 


102C8 


22 


03899 


02387 


I 5830 




U TM 


Gf E T ,DOCONF 


I C220 


1 7 


092 10 


J*736 


158*0 


CVSta 1 


CS 


, OVSF 


1C036 




c 




15850 


dvsm? 


OS 


, ovsfm 


1003 7 









15860 


RSTKF 


TU 


• *23, AOOCCJW , » AUJUST 


102 32 


2* 


10255 


02678 


15870 




TD 


•♦23, A JUST , , LOCATION 


1C2** 


25 


10267 


02399 








AbUCUilf | lw | L v 11 M T n 










1*890 




TF 


TEMP, AOOCOM 


10268 


26 


02718 


02678 


159C0 




TF 


F R S TAD ,ADUCOW 


1C28C 


26 


03899 


02678 


15910 




AM 


AD0CQta»23,, UPDATE LOC CULNTE R BY MACRO EXPANSICN 


10292 


I l 


02678 


-CU23 


15920 




TF 


LSIAD .ADOCOfc 


103C* 


26 


03909 


02678 


15930 




TR 


ZEPC.RSfN,, MOVE EXPANSION INTC WORK RLKFEk 


10316 


31 


02300 


10*8* 


119*0 




BTM 


SCAN, •♦12,, FIND NUMERIC ECUIV OF 1ST OPERAND 


10328 


17 


060*6 


JO 3*0 


1 5950 




BNF 


• ♦ 2 * » B S W 


103*0 


** 


1036* 


090*8 


1 5960 




TFM 


ADURS,80 


10352 


16 


03520 


-0080 


15970 




CF 


A0URS-* , , ,MOVE 1ST 


1036* 


)3 


035 16 


00000 


15980 




TR 


IE 90*2 « ADOR S-* , , OPERAND INTO MACRO EXPANSION* 


10376 


31 


02302 


03516 








I 6 1 
















.162C-l**3 MONITOR I VERSION 2 SPS II-C PHASE B 








PAGE 


15990 




TR 


INPLT+19, INPUT*21, , GC ANO GET 


1C388 


31 


02812 


0281* 


16000 




BTM 


SCAN, •♦12,, NUMERIC EQUIVALENT OF NEXT CPERANO 


10*00 


17 


060*6 


J0*12 


16010 




TF 


ZEP0M1,ADDRS, , INTO MACRO EXPANSION 


10*12 


26 


0231 1 


03520 


16020 




CF 


ZEPOT 


IC*2* 


33 


02307 


OCOOO 


1602 3 




BNF 


•♦2*,RLUCSW 


10*36 


** 


10*60 


07950 


16025 




SF 


ZEPOM 


10**8 


32 


02301 


ooooo 


16030 




TF 


AODRS , TFMP 


10*60 


26 


03520 


02718 


160*0 




HTM 


GEET, LINP 


10*72 


1 7 


09210 


J*772 


1 6050 


• MACRO EXPANSION FOLLOWS 










16060 


RSIN 


TR 


0,0 


10*8* 


31 


00000 


OOOOO 


1 6070 




TDM 


100,0 


10*96 


15 


CO 100 


OCOOO 


1 6080 




cc 


1, • 


105C8 




1 




1 6090 


SAVEF 


TO 


•♦23,AOOCOM,, ADJUST 


10510 


25 


10533 


02678 


1 6100 




TO 


•♦23»AJUST , , LOCATION 


10522 


25 


105*5 


02399 


161 10 




AM 


ADDCOW,,10, COUNTER 


105 34 


11 


02678 


000-0 


161 20 




TF 


TEMP.AOOCOW 


105*6 


26 


02718 


02678 


16130 




TF 


FR S TAO .ADUCOW 


10558 


26 


03899 


02678 






AM 


ADDCOW,35,, UPDATE COUNTER BY MACRO EXPANSION 


10570 


i l 


02678 


-0035 


161 50 




TF 


L S TAD ,ADOCQW 


10582 


26 


03909 


02676 


161 60 




TR 


ZEPC, SAVIN,, MOVE MACRO EXPANSION INTO WORK BUFFER 


1059* 


31 


02300 


1077* 


16170 




DTM 


SCAN, •♦12,, F.I NO NUMERIC EUUIV OF 1ST OPERAND 


10606 


17 


06046 


J0618 


16180 




CF 


AOORS-*, , , MOVE 1ST 


10618 


33 


03516 


OCOOO 


16190 




TR 


ZEP0M*,ADDRS-*,, OPERA NO INTC MACRO EXPANSION 


10630 


31 


02314 


03516 


16193 




BNF 


•♦2*,RL0CSW 


106*2 


** 


10666 


07950 


16195 




SF 


ZEP0M2 


1065* 


32 


02312 


OOOOO 


16200 




TR 


INPLTM9,lNPUT*2l GO ♦ GET 


10666 


31 


02812 


0281* 


162 10 




BTM 


SCAN, •♦12,, NUMERIC EQUIVALENT OF NEXT CPERANO 


10678 


17 


06046 


J0690 






BNF 


•♦2*,BSW 


10690 


44 


10714 


090*8 


1 62 30 




TFM 


AOORS, 80 


10702 


16 


03520 


-C080 


162*0 




TF 


ZEPO+23, AOORS, , OPERAND INTO MACRO EXPANSION 


1071* 


26 


02323 


03520 


16250 




CF 


ZEP0M9 


10726 


33 


02319 


OOOOO 


16260 




TOM 


ZEPO+ll.O,. MOVE RECORD MARK IN EXPANSICN 


10738 


15 


02311 


OOOOO 


16270 




CC 


I,*** ■ ■ ■ 


107*9 




1 




16280 




TOM 


ouMpmi. i, ii 


10750 


15 


03547 


OOOOJ 


16290 




B 


RSIN-2* 


10762 


49 


10*60 


OOOOO 




• MACRO EXPANSION FOLLOWS 










16310 


SAVIN 


TOM 


1CC.0 


1077* 


15 


C0100 


cccoo 


16320 




TR 




10786 


31 


COOOO 


OOOOO 


16330 




TOM 


100 . 


10798 


15 


00 100 


OOOOO 


1 63*0 




DC 


l,» 


10810 




1 




16350 


• SUBROUTINE TO PROCESS CONTROL CHARACTER PMA 










16360 


AM At 


CM 


INPUT*2*,4,10, 1ST CHECK IF RT. PAREN. IS PRESENT 


10812 


14 


02817 


000-4 


16370 




BN6 


ANAL* , t , NO LEFT PAREN. * ERROR 


1082* 


47 


11072 


01200 


16380 




TF 


ANALl*llrINPUT*22,, MOVE CHAR TO ANOTHER LOCATION 


10836 


26 


10899 


02819 


16990 




TR 


INPLT+ 19, INPUT+23 , , POSITION INPUT RECORD 


108*8 


31 


02812 


02816 


16*00 




TFM 


•♦23.CCMAR,, BEGIN CHECKING CONTROL CHAR. 1ST INITITIALIZE 


10860 


16 


10863 


J 1 19)4 


16*10 




C 


ANAL !♦ 11,,, AOORESSES. CHECK CHARACTERS 


10672 


24 


10695 


OOOOO 


16420 


ANAL 1 


BE 


ANAL2,,10, CHARACTER FOUND 


1088* 


44 


10444 


012-0 


16*30 




CM 


ANALl-l.CCHAR-24,, SEE IF SEARCH IS FINISHEO 


10896 


14 


10863 


J1170 


16**0 




BE 


ANAL*,,, YES, NC CONTROL CHARACTER FOUNO 


10401 


46 


11072 


01200 


16*90 




SM 


ANAL1-1 ,3.10, NOT FINISHfO, MODIFY AOORESS 


10420 


12 


10863 


000-3 


16460 




8 


ANAL 1-12.,. BRANCH BACK TO CONTINUE SEARCH 


10932 


*9 


10672 


OCOOO 


1**70 


ANAL 2 


TF 


ANL 1CM1.ANAL1-1,, PREPARE TO MOVE CONTROL CHARACTER 


109*4 


26 


11003 


108B9 



t ft? 



162C-1443 MONITOR 1 VERSION 2 SPS II-C PHASE B 



PAGE 



16*80 




AM 


DIGITS 


, It 10, 


SET ADDRESS TO MOVE 




10956 


11 


09072 


000- 1 


16490 




TF 


• ♦ 30,DtGI TS, 


, DIG! F 1 NTC OLTPLT BUFFER 




10968 


26 


10998 


09072 


165CQ 




SM 


•♦23,2 


,10, PREPARE TO SET CONTROL CHARACTER IN CUT PUT 


BUFFER 


10980 


12 


11003 


000-2 


16510 


ANL 1C 


ro 






1 NSERT CONTROL DIGIT 




10992 


25 


ooooo 


OOOOO 


16520 


ANL IB 


CM 


ANAL IU It 54, 


10, SEE IF ITS A MODE CHANGE 




1 10C4 


14 


10695 


O0ON4 


16530 




QE 


ANAL3 








11016 


46 


11048 


01200 


16540 


ANL 1 A 


UD 


DMSNUM 


, NMOAL 


,, SCANNING F OR NUM MOOE 




1 1028 


43 


1 1680 


09061 


16550 




87 


0MS81, 


, , SCANNING FOR ALPHA MOOE 




1 1040 


49 


1 14 36 




16560 


AN At 3 


00 


OMf S2,l 


MMOAL t 


t CHANGE FROM ALPHA TC NUMERIC 




11048 


43 


11912 


09061 


16570 







DMSNMl 


t t t CHANGE FROM NUMERIC TC ALPHA 




11060 


49 


1 1668 


OOOOO 


16580 


ANAL 4 


BD 


ANAL 4 1 


, NMOAL 


, , CHECK TO SEE IF ALPHA OR NUMERIC 




11072 


43 


1 1 108 


09061 


16590 




T F 


•♦18,0IGI TS. 


.PREPARE TO CLEAR LCCATICN PREVIOUSLY SET 


WITH 7 


1 1084 


26 


1 1 102 


09072 


16600 




TOM 


, , , CLEAR LOCATION 




1 1096 


IV 


OOOOO 


OOOOO 


16610 


ANAL41 


AM 


DIGITS 


,1,10, 


SET IN NEXT LOCATION 




11108 


11 


09072 


000- I 


16620 




TF 


• ♦ 18*0 IGI TS 






11120 


26 


1 1 1 38 


09072 








• tt 








11132 


15 


COOOO 


OOOOO 


16640 




DSC 


I »■• 








11141 




I 




16650 




CF 


ANAL , , 


, RESET STRAY PAREN SWI TCH 




11144 


33 


10812 


OOOOO 
















11156 




1 1028 


COOOO 


16670 




DSC , 
1 


I , 1 








11 168 








1 6680 




DC 


2,5 7 








11170 




2 


























16690 




nsc 

3 


t. 3 








11171 




I 




16700 




DC 


2,4 3 








11173 




2 








M3 


















16710 




DSC 

4 


1 t 4 








1 I 1 74 




1 




16 720 




DC 


2,42 








11176 












M2 


















16730 




DSC 
5 


1 , 5 








11177 




1 




16740 




DC 


2,4 1 








I I 179 




2 




16750 




Ml 

DSC 
8 


1,6 








11180 




1 




16 760 




DC 


2,5S 








11182 




■ 


























16770 




DSC 
7 


1 , 7 








11183 




I 




16780 




cc 


2,62 








11165 




2 




16790 




02 

rsc 

6 


1,6 








11186 




i 




16800 




DC 


2,6 3 








11188 




2 








03 


















16810 




DSC 
2 


1,2 








11189 




i 




16820 




DC 
N4 


2,54 








11191 




2 




16830 




DSC 
4 


1.9 








11192 




1 




16840 


CCHAR 


CC 


2,4 6 








11194 




2 





162C- 1443 MONITOR I VERSION 2 SPS I I -0 PHASE B PAGE 



16850 


• PROGRAM TO PROCESS 0ME5 , PHASEB 










16860 


DMESF 


BTM 


SCAN, •♦12, .EVALUATE ADDRESS OPERAND TO FIND NUM. VALUE 


11196 


17 


06046 


J 1208 


16870 




TDM 


DMFSW, 1,11, SET SWIYCH TO REPLACE -WITH 


112C8 


15 


03887 


OOOOJ 


16880 




TDM 


SMQDE, .. RESET STARTING MODE Shi TCH 


11220 


15 


09062 


OOOOO 


16890 




TR 


OLT.CLERER,, CLEAR 


112 32 


31 


02218 


02719 


16900 




TR 


0UT*50,CLERER*l , , OUTPUT BUFFER 


11244 


31 


02268 


02720 


16910 




TFM 


DIGITS, OUT* I, , INITIALIZE 


11256 


16 


09072 


-2219 


16920 




BNR 


• ♦24, INPUT»20, , CHECK TC SEE OF BREAKER A RM 


I 126fl 


45 


U292 


02813 


16930 




B 


DMSER1 


11280 


49 


12496 


OOOOO 


16940 




TFM 


M0UE1+6,0MESD, ,FINO STARTING MODE 


11292 


16 


12670 


J 1620 


16950 




BTM 


MODE, •♦ 1 2 


113C4 


1? 


12616 


J1316 


16960 




BNF 


OMESA, BSW, .ALPHA CHAR. IN FIELD, ASSUME ALPHA MOCE • CHECK 


11316 


44 


11400 


09048 


16970 




TDM 


KLRLSW, 1, U 


11328 


15 


0403 3 


OOOOJ 


16980 




TO 


• ♦ 2 3 • ADDCOW , , TO SEE IF ADDRESS CP PRGRAMMER OR PROCESSOR 


11340 


25 


11363 


02678 


16990 




TD 


• ♦23, JSTBL, .ASSIGNED PROCESSOR IF NO BRANCH FROM PREV INST. 


11352 


25 


11375 


02459 


t 7000 




AM 


ADDCOW, , 10, ADJUST LOCATION COUNTER 


1 1364 


11 


02678 


000-0 


17010 




TF 


AODRS , ADDCOW t , SET ADDRESS OF MESSAGE TO 2ND DIGIT 


11376 


26 


03520 


02678 


1 7020 




SM 


ADDCOW, 2, 10, SET LOC COUNTER TO LOC BcFORE MESSAGE 


11388 


12 


02678 


000-2 


17030 


OMESA 


TFM 


MODE 1 +6 , DME SB » . SEARCH FOR COMMA 


U4C0 


16 


12670 


J1424 


1 7040 




BTM 


MODE. MODE,, ENDING FIELD 


11412 


17 


12616 


J2616 


17050 


OMESB 


TDM 


NMOAL,,, SET SWITCH FOR ALPHA FIELD. 


11424 


15 


0906 I 


OOOOO 


17060 


0MSB1 


BTM 


D TR ,DME SC , , SCAN MESSAGE OPERAND 


11436 


17 


12730 


J154J 


17070 




AM 


DIGITS, 1,10, 


1 1448 


11 


09072 


000- 1 


17080 




TF 


•♦18, DIGITS, , PREPARE TC MOVE IN 


11460 


26 


11478 


09072 


17090 




TR 


, DM SB 2- 2 


11472 


31 


OOOOO 


11517 


17100 




AM 


DIGITS, 2, 10, LEFT PARE N UPDATE DIGIT COUNT BY TWO 


11484 


11 


09072 


000-2 


17110 




TF 


• ♦18, DIGITS, . ALLOW FOR CONTROL CHAR IN OUT PUT BUFFER 


11496 


26 


11514 


09072 


17120 




TDM 


,,, INSERT EVERYTHING EXCEPT FINAL CCNTRCL DIGIT 


115C8 


IS 


OOOOO 


ooooo 


17130 




DSC 


2, • ,»-2 


11517 




2 




17140 


0MSB2 


0« 

DSC 
7 


1,7, • 


11519 




1 




17150 




BNF 


ANAL, ANAL,, STRAY PAREK NOT FOUND IF BP ANCH 


11520 


44 


10812 


10812 


17160 




B 


ANAL 4 , , , STRAY PAREN 


115 32 


49 


11072 


00000 


17170 




00 RG 


#-3 


1154C 








17180 


DM ESC 


AM 


DIGITS, 2,10 , UPDATE DIGIT COUNT BY 2 


11540 


11 


09072 


000-2 


17190 




TF 


•♦18, DIGITS,, ALLOW FOR CHARACTER IN OUTPUT BUFFER 


11552 


26 


11570 


09072 


1 7200 




TF 


. INPUt>20t. MOVE CHARACTER FROM INPUT TO OUTPUT BUFF 


11564 


26 


OOOOO 


02813 


17210 




SM 


•-6,1,10, SET UP ADDRESSES TO CLEAR FLAG 


11576 


12 


11570 


000- 1 


17220 




TF 


• ♦ 18, 18, , ♦ CLEAR 


11588 


26 


11606 


11570 


17230 




CF 




11600 


33 


OOOOO 


OOOOO 


17240 




B 


0MSB1... CONTINUE SCAN 


11612 


49 


114 36 


OOOOO 


17250 




DORG 


• -3 ' 


1162C 








17260 


DMESD 


BNF 


0MES1.BSW,, IS IT A PROGRAMMER SPECIFIED ADDRESS 


11620 


44 


11656 


09048 


17270 




TF 


AODRS, ADDCOW, , NO, MOVE LOC. COUNTER INTO ADDRESS LOC. 


11632 


26 


03520 


02676 


17280 




AM 


AODRS. 1,10 


11644 


11 


03520 


000-1 


17290 


0MES1 


TOM 


SMODE.1.10, SET SWITCH FOR NUM STARTING MODE 


11656 


15 


09062 


000-1 


17300 


DMSNMl 


TDM 


NMOAL, 1,10, SET SWITCH FOR NUMERIC MOOE 


11666 


15 


09061 


000- 1 


17310 


DMSNUM 


BTM 


TR .DME S 1 1 ». SCAN MESSAGE OPERAND 


11680 


17 


12730 


J1746 


17320 




AM 


DIGITS. 1,10. LEFT PAREN FOUND, UPDATE DIGIT COUNT BY 2 


11692 


11 


09072 


000- 1 


17330 




TF 


•♦18.0IGITS..ALL0W FOR CONTROL CHAR. IN OUTPUT 8UFP6H 


11704 


26 


11722 


09072 


17340 




TDM 


,,, MOVE TO BUFFER 


11716 


15 


OOOOO 


oeooo 


17350 




DSC 


I. ' ,• 


11727 




I 




17360 




BNF 


ANAL. ANAL,. STRAY PAREN NOT FOUNO IF BRANCH 


11726 


44 


10.812 


10812 


17370 




B 


ANAL4,,, STRAY PAP EN 


11740 


49 


11072 


OOOOO 



16 4 



1620-14*3 MONITOR I VERSION 2 SPS ll-C PHASE B 



PAGE 



36 



I 7)80 




DOUG 


1 


11748 








1 7 190 


OMfcSll 


CM 


INPIWO, 79,10, CHECK TC SEE IF CHAR IS NUMERIC 


1 1748 


14 


02813 


00OP9 


17400 




BH 


0MSER2,,, NOT NUMERIC, ERROR 


11760 


46 


11900 


01100 


17410 




CM 


|NPUT«20,69,10 


11772 


14 


02813 


00009 


17420 




BH 


0MS12, ,, NUMERIC IF BRANCH 


11784 


46 


11856 


01100 


174)0 




CM 


INPUT*20,5C, 10, , CHECK IF -OTHRU-9 


11796 


14 


02813 


OOONO 


17440 




BL 


0MSER2t,» NON-NUMERIC IF BRANCH 


11808 


47 


11900 


01300 


174)0 




CM 


INPUT«20,59,10 


11820 


14 


02813 


000N9 


1 7460 




BH 


UMSER2 * * , NOT NUMERIC IF BRANCH 


11832 


46 


11900 


01100 


17470 




SF 


INPUT*20 


11844 


32 


02813 


00000 


17480 


0MS12 


AM 


DIGITS, I, 10, UPDATE DIGIT COUNT BY ONE 


11856 


11 


09072 


000-1 


17490 




TF 


•♦16.DIGI TS,» ALLCW FOR DIGIT 


11868 


26 


11886 


09072 


17S00 




TD 


, INPUWO,, MOVE DIGIT TO OUT PUT BUFFER 


11880 


25 


00000 


02813 


1 7)10 




B 


DMSNUM,,, BRANCH BACK TO CONTINUE SCAN 


1 1892 


49 


1 1680 


OCOOO 


17520 




DORC 


#- 3 


1 19C0 








1 7)30 


DMSER? 


BTM 


0MSR2, DMSNUM, , PL T END OF MESSAGE I N CUTPUT BUFFER 


1 1900 


17 


12514 


J1680 


1 7540 


ONE 52 


TF 


35.0IGI TS, , NUMERIC TO ALFA MOOE CHANGE, 


11912 


26 


1 1947 


09072 


1 7550 




SM 


• ♦23, OUT* I , , SEE IF ALPHA STARTS IN EVEN LOCATICN 


1 1924 


12 


11947 


-2219 


17560 




TFM 


DMSV,,, INIT. SAVE LOC WITH DIGIT CCUNT 


1 1936 


16 


09067 


-0000 


17570 




BNF 


DMES21,BSW,, SEE IF THERE IS A PROGRAMMER SPEC ADORESS 


1 1948 


44 


11980 


09048 


17580 




A 


DMSV,AODCOW, , NO* ADD LOC COUNTER FOR LOC OF LAST DIGIT 


1 I96C 


21 


09067 


02678 


1 7590 




B7 


DMES22 


11972 


49 


12028 




17600 


C*€S21 


A 


DMSV,ADDRS, ,AOD PRCG ADDRESS FCR LOC CF LAST CIGIT 


1 1980 


21 


09067 


03520 


17610 




SM 


0MSV,1,10, ADJUST FOR NUMERIC STARTING MODE 


1 1992 


12 


09067 


000-1 


17620 




BO 


•♦2*,SM0DE , , CHECK STARTING MODE 


120C4 


43 


12028 


09062 


17630 




SM 


DMSV, 1,10, ADJUST FOR ALPHA STARTING MOCE 


12016 


12 


09067 


000- I 


17640 


DMES22 


TD 


• ♦2 3, DMSV, , SEE IF CHAR WILL START IN EVEN LOC 


12028 


25 


12051 


09067 


17650 




TU 


EVOOD+l.EVOOD 


12040 


25 


02470 


02469 


17660 




BO 


DMESB.E VOnu* 1 , , WILL START IN EVEN LOCATION 


12052 


43 


11*2* 


02470 


1 7670 




AM 


DIGITS, 1.1C, INSERT 


12064 


1 1 


09072 


OOO- 1 


17680 




TF 


•♦ 18»DIGI TS, »- 


12076 


26 


12094 


09072 


17690 




TOM 


,. 11 


12088 


15 


00000 


0000- 


17700 




B 


DMk'SO 


12 ICC 


49 


1 142* 


00000 


17710 




DURG 


• ♦ 1 


12112 








17720 




nc 


2,-C,«-3 


12108 




2 




17730 




DC 


3 , 2 * »• 


12111 




3 




I 7740 


ONfR IN 


-2 • 
TDM 


OLT*100*, PLT IN NUMERIC 


12112 


15 


C231B 


OCOOO 


17750 




DC 


1 , ' , • 


12121 








17760 




TDM 


ULT*101« , , END OF HE SS AGE 


12124 


15 


02319 


COOOO 


1 7770 




CC 
t 


1 , ' , * 


12135 




1 




17780 




B 


DMER1C 


12136 


49 


12196 


00000 


1 7790 


ONER 1 A 


TFM 


0LT«101,,8, CLEAR LAST FOUR DIGITS FCK END OF MESSAGE 


12148 


16 


02319 


0-000 


I 7800 




CF 


OL T «98 


12 160 


)3 


C2316 


ooooc 


17810 




TDM 


CUT«99, , ,MUVE R M F LR 


121 72 


15 


02317 


OCOOO 


11620 




CC 




12183 








17810 




TOM 


OLTUOl 


12184 


15 


02319 


ooooo 


17840 




DC 


1» • ,• 


1219b 




1 




17850 


D*H» IC 


TFM 


DIGITS, 100,, SET DIGIT COUNTER TC 100 


12196 


16 


C9C72 


-0100 


1 7860 




H 


• 4<4t> 


122C8 


49 


12304 


ooooo 


17870 


DMSCNC 


CM 


U 1 1 . 1 T S , U T ♦ 1 , , CHECK IF OPERANC PRESENT 


12220 


14 


09072 


-2219 








1 »» 
















162C-1**3 MCM TCR I VERSION 2 SPS II-C PHASE B 








PAGE 


17880 




ONE 


•♦6C,,» ERROR IF NO MESSAGE OPERAND PRESENT 


12232 


67 


12292 


01200 


1 7890 




80 


DMSER I ,SMQUE , , CHECK MODE 


12244 


43 


12*96 


09062 


1 7900 




TFM 


OUT+5,,, MOVE IN ALPHA END OF MESSAGE 


12256 


16 


02223 


-C0Q0 


17910 




DC 


2 » • »«-2 


12265 




2 




1 7920 




DSC 


2 , • »•- I 


12266 




2 




1 7930 




• 

C F 


OL T ♦ ? 


12268 


3 3 


02220 


CCC00 


1 7940 




TFM 


DIGITS, OUT* 101 


1228C 


16 


09072 


-2 319 


1 7950 




SM 


D IG I TS ,OUT* 1 , , SUBTRACT STARTING LOCATION OF Q/P BUFFER 


12292 


1 2 


09072 


-2219 


1 7960 




TF 


LSTAD , DI G I T S , , MOVE DIGIT COUNT FOR OUTPUT 


123C4 


26 


03909 


09072 


1 7970 




AM 


LSTAD ,1,10, ADO 1 FOR RT LOC ♦ ! 


12316 


1 1 


03909 


GCQ- 1 


1 7960 




ilNF 


DM£NDl,BSW,i CHECK FOR PROGRAMMER SPECIFIED ADDRESS 


12 328 


44 


12376 


090*8 


1 7990 




A 


LSTAD , ADOCOW , ,FGRM RT LOC+1 


123*0 


21 


03909 


02676 


180C0 




A 


ADOCOW»OIGI TS, , UPDATE LOC COUNTER TO LAST DIGIT OF CONSTANT 


12352 


2 1 


02678 


09072 


18010 




n 


0MEND2 


12 364 


49 


12*24 


COOOO 


18020 


DMENO 1 


A 


LSTAD ,ADDRS,» INITIALIZE LEFT MOST WITH PRCG SPEC ACCRESS 


12376 


2 1 


03909 


03520 


18030 




SM 


LSTAO ,1,10, ADJUST FOR NUMERIC STARTING MODE 


1 2 388 


1 2 


03909 


000- 1 


18040 




BO 


•♦2*»SH0DE»» CHECK IF STARTING MOOE ALPHA 


12400 


43 


12*24 


09062 


18050 




SM 


LSTAD ,1,10, UES, ADJUST FUR ALPHA STARTING MODE 


124 12 


12 


03909 


OCO- 1 


18060 


DMEND2 


TF 


FRSTAD , LSTAD FORM LEFT MOST 


1 2424 


26 


03899 


03909 


18070 




s 


FRSTAD ,DIGITS,, ADORESS 


12436 


22 


03899 


09072 


1 8080 




Tf 


LN TH ,0 1 GI TS , , INITIALIZE LENGTH LOC 


12448 


26 


02387 


09072 


18090 




NUP 


MFS0UT*6, 1NPUT2*5 


12460 


41 


09786 


03292 


18100 




NOP 


MES0UT*U,0UT*2 


12472 


41 


09791 


02220 


18110 




ft TM 


GEE T.PCONF 


12484 


1 1 


09210 


J4760 


18120 


DMSER 1 


BTM 


DMSR2*0MSEND*60* , , , PUT END OF MESSAGE IN CUTPUT BUFFER 


12496 


17 


1251* 


J2280 


18130 




DS 


5 


12512 




5 




18140 


0MSR2 


AM 


DIGITS, I, 10 


12514 


11 


09072 


000-1 


18150 




TF 


•♦18, DIGITS 


12526 


26 


12544 


09072 


18160 




TDM 


,*, INSERT 


12538 


is 


00000 


COOOO 


181 70 




DC 


I » ' »• 


12549 




1 




18180 




AM 


DIGITS, I, 10 


12550 


11 


09072 


000-1 


18190 




TF 


•♦18, DIGITS 


12562 


26 


12560 


09072 


1 8200 




TDM 


, , , INSERT 


12574 


15 


00000 


OOOOO 


18210 




DC 
• 


It 1 .* 


12585 




I 




18220 




TF 


• ♦18.0MSR2-1 


12586 


26 


12604 


12513 


11230 




8 




12598 


49 


00000 


OCOOO 


18240 




OC 


3»-O f •• 


126C9 




3 




182S0 




OC 


5,0 


12614 




5 








-ooco 










H260 


MODE 


TR 


INPLU19,INPUU21 , , MOVE INPLT RECCRC LEFT I CHAR 


12616 


31 


02612 


02814 


U270 




RNR 


•♦24.INPUT*20»,*NQT BLANK, CHECK FOR RN 


12626 


49 


12692 


02813 


112 SO 




B 


DMSEN0O6 


12660 


69 


12256 


OOOOO 


16290 




CM 


INPLU20.23.10, SEARCH FIELD* CHECK FOR COMMA 


12652 


16 


02813 


0OOK3 


11300 


HOC El 


OE 


, ,, COMMA FOUNO, BRANCH 


12666 


46 


00000 


01200 


16310 




CM 


INPLU20, ,10, COMMA NOT FOUNO, CHECK FOR BLANK 


12676 


16 


02613 


000-0 


16320 




6E 


MOOE*., BLANK* CHECK NEXT CHARACTER 


12666 


66 


12616 


01200 


16330 




TF 


•♦18.M0DE-1 , , , ALPHA CHAR IN FIELD* RETURN* OR CHECK 


12700 


26 


12716 


12615 


16360 




B 


, ,, NEXT CHAR* ACCORDING TO BRANCH 


12712 


69 


00000 


OOOOO 


16390 


• SUBROUTINE TO SHIFT ONE CHARACTER TO THE LEFT IN INPUT 6UFFER 










16360 




DS 


5 


12726 




5 




16370 


OTR 


TR 


INPLT*l9,INPUT^2l , , MOVE OPERAND LEFT I CHAR ♦ SEARCH 


12730 


31 


02812 


02614 



166 



1620- 1*43 MONITOR I VE RSI ON 2 SPS I 1-0 PHASE B 



PACE 



18380 




TF 


-OMSV.DIGI TS, , CHECH 


NUMBER OF 


DIGITS 








k 2/42 


26 


09067 


09072 


18390 




SM 


DMSV,OUT* 1 














1754 


12 


09067 


-2219 


184C0 




CM 


0«SV, 100,9, CHECH OIGIT COUNT 












W766 


14 


09067 


OOJOO 


18410 




BNH 


•♦36,,, LESS THAN ICO, OKAY, 


ERROR 


IF 


NC 


BRANCH 




12778 


47 


12814 


01100 


18420 




BO 


OME R IN , NMOAL , , TEST 


SWITCH FOR NUM 


OR 


ALPHA, NUM 


IF BR 


.2790 


43 


12112 


09061 


18430 




B 


DMER1A,,, ALPHA IF BRANCH FRM 


HERE 










12802 


49 


12148 


OCOOO 


18440 




BNR 


•♦20,INPUT*20. , FOR 


RM 












12814 


45 


12834 


02813 


18450 




B7 


OMSENO 














12826 


49 


12220 




18460 




CM 


INPUT»20,4, 10, CHECK 


FOR STRAY RT PAREN 






12894 


14 


02813 


OCO-4 


18470 




BNE 


•♦44, , , NOT A STRAY 


PAREN IF 


BRANCH 








12846 


47 


12890 


01200 


18480 




SF 


ANAL,,, SET SWITCH FOR STRAY 


PAREK 


FCUNC 






12858 


32 


10812 


00000 


18490 




BC 


OMSNUM* 12 , NMOAL , , SC ANN ( NG IN 


NUMERIC MOCE IF BRANCH 


12870 


43 


1 1692 


09061 


18500 




B7 


DMSBU12,,, SCANNING 


IN ALPHA 


MOOE 










12882 


49 


1 1448 




18510 




CM 


INPLT*20,24,10, CHK 


FOR LEFT 


PAREN 










12890 


14 


02813 


O0OK4 


18 520 




BNE 


•■♦24,,, NOT A LEFT PAREN 












129C2 


47 


12926 


01200 


18530 




BB 


, LEFT 


PARI N FOUNO 










12914 


42 


00000 


00000 


18540 




TF 


• ♦ I 8.0TR- 1 , , NOT A 


1, ,0R ERROR 










12926 


26 


12944 


12729 


18550 




B 


,,, RETURN 












12938 


49 


00000 


OCOOO 


18560 


• 


























18570 


t 


E VALLATE LENGTH OF OAC 






















18580 


t 


























18590 


CACF 


DTM 


SCAN, •♦ 12 














12950 


17 


06046 


J 2962 


18600 




CM 


AOORS ,51 














12962 


14 


03520 


^C051 


18610 




BNN 


EROAC 














12974 


46 


13738 


01300 


18620 




A 


AOORS , AOORS 














12986 


21 


03520 


03520 


18630 




T F 


TEMPR, AOORS 














12998 


26 


02571 


03520 


1 8640 




BNR 


• ♦ 20 » INPUT*20 














13010 


45 


13030 


0281 3 


18650 




8 7 


• ♦ 20 














1 3022 


49 


1304 2 




18660 




BNR 


OAC 2 , INPUT^22 














13030 


45 


13090 


0281 5 


18670 




CM 


AOORS,0 














13042 


14 


03520 


-cooo 


18680 




BK 


EROACl 














1 3054 


46 


138 30 


01 100 


18690 




















13066 


16 


02815 


-0000 


18700 




OAC 


t , • .• 














13077 




1 


X 2 


18710 




















13078 


16 


0281 3 


OOOK 3 


18720 


C AC 2 


TFM 


•♦35, INPUT* 19 














13090 


16 


13125 


-2812 


18730 




A 


•♦23. TEMPR 














13102 


2 1 


13125 


02571 


18740 


CHVALD 


TR 


0UT*2 














13114 


31 


02220 


OCOOO 


18750 




BNR 


•♦2C,OUT*3 














13126 


45 


13146 


022 21 


18760 




B7 


ERDACM2 














13138 


49 


13750 




1 8770 




BNR 


• ♦PO.OUT* 1 * 














13146 


45 


1 3166 


02223 


18780 




ft7 


• ♦ 3? 














1 3158 


49 


1319C 




18790 




CM 


OLT*5,23,lO 














13166 


14 


02223 


C0CK3 


18800 


S T CHAR 


BNE 


ERDACM2 














13178 


47 


13750 


01200 


18810 




TO 


STCHAR* I 1, OUT* 5 














13190 


25 


1 3189 


02223 


18820 




AM 


CHVALD* 11,3 














132C2 


11 


13125 


-000 3 


18830 




TFM 


CHVALD^ 11, ,610 














13214 


16 


1312N 


OCO-O 


18840 




DC 


I , ' » • 














13225 




I 




18850 




CM 


0LTt3, 34, 10 














1 3226 


14 


02221 


00CL4 


18860 




BNE 


• ♦6Q 














1 3238 


4 7 


13298 


01200 


18870 




TOM 


DLIMPI-* 11,0,11 














1 3250 


15 


03547 


0000- 


18880 




TF 


•♦30CHVALDM1 














13262 


26 


13292 


13125 


18890 




SM 


•♦ 18, 2, 10 














13274 


12 


13292 


0C0-2 


18900 




TFM 


, t 1C 














13286 


16 


coooo 


OCC-0 


18910 




DC 


I , • .• 














13297 




I 






















167 
















162C-1443 MONITOR I 


VERSION 


2 SPS 


I I 


-C 


PHASE B 










PAGE 



18920 


STCHA1 TR 


0LT*2,INPUT*21 


13298 


31 


02220 


02814 


189 30 


TF 


• ♦35.CHVALDMI 


13310 


26 


13345 


13125 


18940 


AM 


•♦23,1 


13322 


1 1 


13345 


-0001 


18950 


TR 


INPLT*19 


13334 


31 


02812 


OCOOO 


18960 


TFM 


•♦42,0UT*4 


13346 


16 


13388 


-2222 


18970 


A 


• ♦30, TEMPR 


13358 


21 


13368 


02571 


18980 


SM 


•♦18,2,10 


13370 


12 


13388 


000-2 


18990 


CF 




11382 


33 


00000 


OCOOO 


19000 


CM 


•-6,0UT*4 


13394 


14 


13388 


-2222 


19010 


BH 


• -36 


13406 


46 


13370 


01100 


19020 


BNR 


DAC3,STCHAR*11 


13418 


45 


13546 


13189 



19030 • AODRESS ASSIGNED BY PROCESSOR 



19040 • 



19050 


N0S1NE 


to 


•♦23.AODCOW 


13430 


25 


13453 


02678 


19060 




TO 


•♦23, JSTBL 


13442 


25 


13465 


02459 


19070 




AM 


ADCC(JW,,10 


13454 


11 


02678 


000-0 


19080 




TF 


AODRS,ADDCOW 


13466 


26 


03520 


02678 


19090 




A 


AOOCOW, TEMPR 


134 78 


21 


02678 


02571 


19100 




SM 


AODCOW,2,10 


13490 


12 


02678 


000-2 


11110 




TF 


L N TH , AOOCOW 


135C2 


26 


02387 


02678 


19120 




BO 


• ♦24, INTBUF*5 


13514 


43 


13538 


03633 


19130 




TF 


AOORS, AOOCOW 


13526 


26 


03520 


02678 


19140 




87 


DAC4 


13538 


49 


13594 




19150 


CAC3 


BTM 


SCAN,»M2 


13546 


17 


06046 


J3558 


19160 




BO 


NOSINE,BSW 


13558 


43 


13430 


09048 


19170 




TO 


KLRLSW,RLOCSW 


13570 


25 


04033 


07950 


19180 




TF 


LNTH, AOORS 


13582 


26 


02387 


03520 


19190 


CAC4 


TF 


FR S TAD , AOORS 


13594 


26 


03899 


03520 


19200 




SM 


FRSTAD ,1 


13606 


12 


03899 


-0001 


19210 




TF 


L S TAD , FRSTAD 


13618 


26 


03909 


03899 


19220 




A 


LSTAO , TEMPR 


13630 


21 


03909 


02571 


192 30 




BO 


•♦72,INTBUF*5 


13642 


43 


13714 


03633 


19240 




TF 


LSTAO , ADDR S 


13654 


26 


03909 


03520 


19250 




AM 


LSTAO ,1 


13666 


11 


03909 


-0001 


19260 




TF 


FRSTAD, LSTAO 


13678 


26 


03899 


03909 


19270 




S 


FRSTAD , TEMPR 


13690 


22 


03899 


02571 


19280 




TF 


AODRS ,LNTH 


13702 


26 


03520 


02387 


19290 




TF 


LNTH, TEMPR 


13714 


26 


02387 


02571 


19300 




BTM 


GEE T ,PCONF 


13726 


17 


09210 


J4760 


19310 


ERCAC 


TFM 


TEMPR, 100 


13738 


16 


02571 


-0100 


19320 




TFM 


• ♦30, INPUU22 


13750 


16 


13780 


-2815 


19330 




A 


•♦18, TEMPR 


13782 


21 


13780 


02571 


19340 


0AC5 


TFM 




13774 


16 


00000 


-0000 


19350 




OAC 


I, • ,♦ 


13789 




1 


X 2 


19360 




i 

SM 


OAC5*6,2,10 


13786 


12 


13780 


000-2 


19370 




BNR 


CHVALD-24,DAC5*6, 11 


13798 


45 


13090 


1378- 


19380 




TOM 


DAC5*6»0,6 


13810 


15 


1378- 


00000 


19390 




B7 


DAC5*12 


13822 


49 


13786 




19400 


EROACl 


TFM 


•♦42, INPUT+22 


13830 


16 


13872 


-2819 


19410 




TF 


NOSINE-37, AOORS 


13842 


2* 


13393 


03520 


19420 




SM 


NQS INE-37,2,10 


13854 


12 


13393 


000-2 


19430 




TFM 


,70.10 


13866 


16 


00000 


OOOPO 


19440 




AM 


•-6,2,10 


13878 


11 


13872 


000-2 


19450 




CM 


NOStNE-37 


13890 


14 


13393 


-0000 


19460 




BNE 


ERDAC 1*24 


US 1*902 


47 


13894 


01200 



1620- 1**3 MONITOR 1 VERSION 2 SPS I I - C PHASE 6 



PAGfc 



I'M 70 


TF 


• ♦ 18.FR0AC U*2 






1391* 


26 


13932 


13872 


19**0 


TFM 








1 3926 


16 


ocooo 


-C0OO 


i 9490 


CAC 
• 


li • »• 






13937 




1 


X 2 


1 9 SCO 


B 


CHVALD-2* 






1 3918 


69 


1 1090 


00000 


19510 


MIU OSC 


2,-16 






1 3950 




2 




19520 


10 
CSA 


| Oft T ,00023 






1 3956 




5 


X 2 












13956 




-0565 














1 396 1 




~0023 




19530 


OSC 


2 % 49 






1 3962 




2 






49 
















195*0 


OSA 


•-• tOCCOO 






I 3968 




5 


X 2 












13968 




-0000 














13973 




-0000 




19550 


OSC 
• 


If' 






I 397* 




1 




19560 


GET PUT 


L 1NKAGE GENERAT ICS 














19570 


LINUS TO 


•♦23.ADDCO*. , 


ADJUST 


ACOCOW 


1 3976 


25 


13999 


02678 


19580 


TO 


•♦23.AJUST 






13988 


?5 


1*01 1 


02399 


19590 


AM 


ADDCOh, , 10i 






1*CC0 


1 1 


02678 


cco-o 


19600 


A 


MIG ♦11.AUDC0W,, 


RE TURN 


AOQRESS 


1*012 


21 


11961 


02678 


19610 


TF 


MIO ♦L8tlNTBUF*6i . 


SET LP 


BR TC IOR 


1*02* 


26 


11968 


03614 


19620 


HTM 


SCAN,** 12 






1*0 36 


t 7 


060*6 


J4048 


19610 


TF 


MIG ♦23.ADDRS 






1*0*8 


26 


11973 


03520 


196*0 


8NF 


•♦24.RL0CSW 






1*060 


** 


1*08* 


07950 


19650 


SF 


M1U »13 






1*072 


12 


11963 


00000 


19660 


TF 


FRSTAD, ADDCUW 






1*08* 


26 


03899 


02678 


19670 


TF 


LSTAO.ADDCOW 






14096 


26 


03909 


02678 


19680 


AM 


LSTAO, 24, 10, 


SET TC 


TOTAL LENGTH 


1*1C8 


11 


01909 


000K4 


19690 


AM 


AOOCOW,23* 10, 


UP ACOCO* TOTAL LENGTH 


1*12C 


11 


02678 


000*3 


19700 


CF 


MIO *2 






1*132 


13 


11952 


OCOOO 


19710 


CF 


MIC *1* 






1*1** 


33 


1396* 


OCOOO 


19720 


TR 


jepo.mio 






1*156 


11 


02300 


13950 


19730 


TF 


AODRS »FRSTAD 






1*168 


26 


01520 


03899 


197*0 


TFM 


X,PHASEB 






1*18G 


16 


0*016 


-4200 


19750 


B TM 


GEET.L INP 






1*192 


17 


09210 


J4772 


19760 


«• GET PL T 


LINKAGE GENERATION E NO 














19770 


CALEXT TU 


•♦23.AOOCOW 






l*2C* 


25 


1*227 


02678 


19780 


TO 


• ♦4; 3, A JUST 






1*216 


25 


14219 


02399 


19790 


AM 


ADDCOfc, , 10 






1*228 


11 


02678 


OCO-O 


19800 


TFM 


MIO ♦18,MUNCAL,f 


BRANCH 


TO MONCALL IN ICRT 


1*2*0 


16 


11968 


-0796 


19810 


CF 


MIL »l* 






1*252 


11 


1196* 


coooo 


19820 


CF 


MIUU9 






1*264 


13 


11969 


00000 


19830 


TR 


2EPC,MI0 *12,, 


BRANCH 


INSTRUCTION 


1*276 


11 


02100 


13962 


198*0 


TF 


ADURS,AOOCO* 






1*288 


26 


01520 


02678 


19850 


AM 


A0UC0N,06, 10, 


B7 




1*3C0 


11 


02678 


000-6 


19860 


B TM 


GEE T.LINP 






1*312 


I 7 


09 210 


J4 7 72 


19870 


• . LOAD PHASE B* TO THE FILE 














19880 


F4 i* 


SLH4, 701 






1*32* 


1* 


14172 


CC701 


19890 


' 38 


SLH4.702 






1*336 


18 


1*372 


00702 


19900 


TR A 








1*3*8 


16 


00000 


00500 












1*360 


*9 


cocoo 


OCOOO 


19910 


Sub* cca 


,0,B*0A0,8*SCT,LINPRT 




it* it 


1*372 




14 





162C-1443 MONITOR I VERSION 2 SPS 1I-C PHASE B PAGE 



19920 




TCD 


F* 


14324 








1993G 




OORG 


INSTRN 


12444 








19940 


RCTAB 


HNF 


•♦36,LSTVSh 


12444 


44 


12480 


02480 


19950 




RCTY 




12456 


34 


00000 


00102 


19960 




TBTY 




12*68 


34 


00000 


00108 


19970 




BB 




12*80 


42 


00000 


OCOOO 


19980 




DORG 


• -9 


12*82 








19990 




DC 


5, 12345 


12*86 




5 








J2345 










20000 


L INKC 


TFM 


L INPRT- l.DOCON 


12488 


16 


09267 


-9480 


20010 




BT 


L INKER, L INKC- I 


125C0 


27 


12632 


12487 


20020 




DS 


5 


12516 




5 




2003C 


L INKCR 


BT 


RC TAB ,RC T AB- 1 


12518 


2 7 


12444 


12443 


20040 




BT 


L INKC ,LINKCR-1 


12530 


27 


12488 


12517 


20050 




OS 


5 


12546 




5 




20060 


L INKC 


TFM 


L I NPRT- I ,PDSA 


12548 


16 


09267 


-9572 


20070 




TFM 


Cl-SYM*! 1, OSABOK-l 


12560 


16 


09655 


-9048 


20080 




TFM 


LNTH.5 


12572 


16 


02187 


-COO 5 


20090 




BT 


L INKER.UNKD-l 


12584 


27 


12612 


12547 


20100 




OS 


5 


126C0 




5 




20110 


Link dr- 


BT 


RCTAB, RCTAB- 1 


12602 


27 


12444 


12443 


20120 




BT 


L INKO.l INKDR- 1 


12614 


27 


12548 


12601 


20130 




OS 


5 


12630 




5 




20140 


unker 


TR 


ZEPt)»l,0UT*2 


12632 


31 


02301 


02220 


20150 




TF 


FRSTAD, LSTAO 


12644 


26 


03899 


01909 


20160 




A 


LSTAO ,LNTH 


12656 


21 


03909 


02187 


20170 




TF 


AODRS, FRSTAD 


12668 


26 


03520 


03899 


20180 




TF 


X.L INKfR-l 


12680 


26 


04038 


12631 


20190 




BTM 


CVACT,LINPRT 


12692 


17 


11916 


-9268 


20200 


MIOCS 


OSC 


2.-16 


127C4 




2 




20210 




10 
CSA 


IORT ,00023 


12710 




5 


X 2 










12710 




-0565 












12715 




-0023 




20220 




DSC 


2.49 


12716 




2 




20230 




49 

OSA 


IOGT , OCOOO 


12722 




5 


X 2 










12722 




-0566 












12727 




-0000 




20240 




DSC 


1.* 


12728 




1 




20250 


MBUK1 


OSA 


01234 


12711 




5 


X 1 










12733 




-1234 




20260 




DSC 

• • •- 


It* 


12734 




1 




202 70 


KSUK2 


OSA 


01234 


12731 




5 


x 1 










12739 




-1234 




20280 




OSC 


l.» 


12740 




I 




20290 


MBUK3 


OSC 


2.12 


12741 




2 









16<-C- 1**3 HON I TOW 1 


VERSION 2 SPS I 1-C PHASE B 








PAGE 


20 300 


MRM OSC 


1 , ' 




127*3 




1 




2 310 


MCI GIT DSC 


lil 




127** 




1 




2.0 3*0 


1 

0P3SW CC 


1 ,0 




12 7*5 




1 




20 3 30 


ACODK T DC 


5, 12 3*5 




12 750 




5 






J23*5 












203*0 


SVACD DC 
J 2 


2,12 




12752 




2 




20350 


M 2 C 1 G DC 


2,12 




12 75* 




2 




20360 


J2 

MACH2 CF 


(,P 3Sw 




12756 


3 3 


127*5 


OOCOO 


20370 


C 


• ♦■2 3, INPUT* 1* 




12 768 


2* 


12791 


02807 


20380 


8 I 


REG, 012**, 10, 


Dl SK CEF INERS 


1 2 780 


*6 


13256 


012M* 


20390 


I 


• ♦22, INPUT* 16 




12792 


?* 


12815 


02809 


20*00 


Bl 


CAL ,0 125 3, 1 , 


L CALL LINK LOAD 


1280* 


*6 


13998 


012N3 


20* 10. 


C 


• ♦2 3, INPUT* 12 




12816 


2* 


12839 


02805 


20*20 


ON 1 


I INKS, 012**, 10, 


OTHER DEFINERS 


12828 


*7 


1 39 76 


012M* 


20*30 


•t CARD TAPE 


T Y Pfc DEFINERS 












20**0 


RTM 


SCAN, •♦ 12 




128*0 


17 


060*6 


J2852 


20*50 


BO 


NCUPP.BSW 




12852 


*3 


12908 


090*8 


20*60 


T D 


M RLSw.RLOCSW 




1286* 


25 


0*0 33 


7950 


20*70 


IFM 


SVALD.OO, 10 




128 76 


16 


12752 


000-0 


20*80 


T F 


ADORKT , ADDRS , , 


PROGRAMMER ASSIGNS AOORESS 


12888 


26 


12 750 


03520 


20*90 


B7 


GO 




129C0 


*9 


129** 




20500 


NOOPP TF 


ADDBKT .AODCOW 




12908 


26 


12750 


02678 


20510 


TFM 


SVADD.0 8,10 




12920 


16 


12752 


0G0-8 


20520 


AM 


ADDBKT, 01, 10 




129 32 


11 


12750 


OCO-l 


205 30 


00 TR 


1NPIT* 19, INPUT*21 




129** 


31 


02812 


0281* 


205*0 


8 f M 


SC. AN, • ♦ 12, , 


L UQK UP MEMORY ADDRESS 


12956 


17 


060*6 


J2968 


20550 


TF 


MRLKl.AODRS 




12968 


26 


12733 


03520 


20560 


TR 


0LT*2,MBUK1-* 




12 98 


31 


02220 


12 729 


20 5 70 


TF 


L STAD, ACOBK T 




12992 


26 


3909 


12750 


20580 


TFM 


L N TH , 00005 




1300* 


16 


02 387 


-0005 


20590 


TO 


DSABOX .RLOCSW 




13016 


25 


090*9 


07950 


20600 


TOM 


INTHUF , 1 




1 3028 


15 


3628 


0C001 


2C6 10 


TR 


/EP0*1,0UT*2 




130*0 


31 


02301 


02220 


20620 


BTM 


L INKD,»* 12 




13052 


17 


125*8 


J306* 


206 30 


SF 


INTBUF*5,,, 


START MO GENERATION 


1 306* 


32 


03633 


00000 


206*0 


TF 


MOLK 3*1 , I N T BUF ♦ t 




1 3076 


26 


127*2 


36 3* 


20650 


•t PRINTER 


DEF INERS 0PRN,0PRA 










20660 


C 


•♦23, INPUT*16, , , 


TEST FOR R IN 3RD POSITION 


13088 


2* 


13111 


02809 


20670 


ON I 


NOPRT, 01259, 10, 


NOT PRINTER CEFINER 


13100 


*/ 


13172 


012N9 


2068U 


TR 


INPLT* 19, I NPUT*2l 




1 3112 


31 


02812 


0281* 


20690 


BTM 


L STCAR,»*12, , 


PICK UP 3RC OPERAND 


1312* 


.. 17 


1*850 


J3136 


20700 


C 


•♦23.LCHAR , , , 


IS IT AN S FOR SPACE SUPPRESS 


13136 


2* 


13159 


1*983 


20710 


BNl 


• +2*, 01262, 10, NO 


00 NOT ADD 


131*8 


*7 


13172 


01202 


20 720 


AM 


MRLK 3* 1 ,08 , 10, 


ADO 8 FOR SPACE -SUPPRESS 


13160 


I 1 


127*2 


000-8 


2 7 10 


NUPRI TR 


OLT*2,MBUK3 




13172 


31 


02220 


127*1 




TF M 


I MH, 00003 , 












20 755 


TO 


OUT**,SPSr,M 




13196 


25 


02222 


02560 


20 7 50 


TDM 


DLMPl*l 1,0,1 1 , 


PRINT GM 


13208 


15 


35*7 


OCOO- 


20760 


A 


ADDCOW, SVAOD 




13220 


21 


02678 


12752 




HTM 


I INKCR,»*12 




132 32 


17 


12518 


J 32** 


20780 


HTM 


GEE T, PHASES 


17 1 


132** 


17 


09210 


-*200 






162C- 1**3 MCNI TGR 1 


VERSION 2 SPS I l-C PHASE 8 








PAGE 


20790 


• • END OF CARD TAPE TYPE DEFINERS 










20800 


• • DISK FILE DECLARATIVES NCT 


CALLS 










208 1 Q 


REG BTM 


SCAN,** 12 




1 3256 


I 7 


060*6 


J3268 


20820 


TD 


0P3SW.BSW 




13268 


25 


127*5 


090*8 


20830 


BD 


NOTOP.BSW 




1 3280 


*3 


1 33 36 


090*8 


208*0 


TO 


KLRL SW, RLOCSW 




1 3292 


25 


0*0i3 


07950 


20850 


TFM 


SVADD.00,10 




1 330* 


16 


12752 


000-0 


20860 


TF 


ADDBKT, AODRS , , 


PRUGR AMMER ASS I GNS ADDRESS 


13316 


26 


12750 


03520 


208 70 


a 


.GONGW 




1 3328 


*9 


13372 


00000 


20880 


DDR G 


• - * 




13335 








20890 


NO TOP TF 


ADDBKT, ADDCOW 




1 3 3 36 


26 


12750 


02678 


20900 


TFM 


SVACD, 08, 10 




13 3*8 


16 


12752 


C00-8 


20910 


AM 


ADDBKT, 01, 10 




13360 


I 1 


12750 


000-1 


20920 


GONGW TR 


INPLT*19, INPUT*21 




13372 


31 


02812 


0281* 


20930 


SF 


INTBUF*5 




1338* 


32 


03633 


00000 


209*0 


TF 


MB LK 3* I , I N TBLF ♦ 6 , , 


CCDE WM FLAG W 


1 3396 


26 


12 7*2 


0363* 


20950 


BTM 


SCAN,«*12 




13*C8 


17 


060*6 


J3*20 


20960 


TF 


MBUK1 , ADDR S , , 


LOAD ACQ OF CCA 


13*20 


26 


12733 


03520 


20970 


■TO 


MDIGIT, RLOCSW 




13*32 


25 


127** 


07950 


20980 


TR 


INPUT*19, INPUT*2l 




13*** 


31 


02812 


0281* 


20990 


BTM 


SCAN,»* 12, , 


SCAN FOR 2NC OPERAND 


13*56 


17 


060*6 


J3*68 


21000 


BNF 


• ♦3t,,OP3Sw 




13*68 


** 


1350* 


127*5 


21010 


R D 


•♦2*,BSW 




13*80 


*3 


1350* 


090*8 


21020 


AM 


SVACD ,05,10, 


UP ACDCCW FCR 3 OPERANDS 


13*92 


11 


12752 


000-5 


2103U 


TD 


0P3SW,BSW,, 


SET LONG LINK SWITCH 


135C* 


25 


127*5 


090*8 


210*0 


TF 


MR UK 2 , ADDR S » , 


LOAD RELOCATION ADORESS 


13516 


26 


12739 


03520 


21050 


•• TEST FOR 


ARM REPOSITION 












21060 


TR 


INPIiT*19, INPUT*21 




13528 


31 


02812 


0281* 


21070 


BTM 


LSTCAR,»*12, , 


PICK UP 3RC OPERANO 


135*0 


17 


1*850 


J3552 


21080 


TF 


M20IG.LCHAR 




13552 


26 


1275* 


1*983 


21090 


TR 


INPLT*19,1NPUT*21 




1356* 


31 


02812 


0281* 


21100 


#• TEST FOR 


ABSOLUTE SECTOR ADDRESS 










211 10 


BTM 


LSTCAR,»*12, , 


PICK UP *TH OPERAND 


135 76 


17 


1*850 


J3588 


21120 


C 


• *2 3,LCMAR 




13588 


2* 


13611 


1*983 


21130 


ONI 


•*2*, 012*1 , 10. 


TEST FOR A ABSOLUTE 


13600 


*7 


1362* 


012M1 


211*0 


TDM 


MBIK3,2,11 




13612 


15 


127*1 


OCCOK 


21 150 


C 


•♦23.M2DIG 




1362* 


2* 


136*7 


1275* 


21160 


HI 


EN, 01259, 10 




13636 


*6 


1 3660 


012N9 


21170 


CF 


MB LK 3 




136*8 


33 


127*1 


00000 


21180 


EN TR 


OCT *2 ,MBUK3, , 


FIRST OPERAND TO LIST 


13660 


31 


02220 


127*1 


21190 


TF 


L S T AD , AODBK T 




136 72 


26 


03909 


12750 


21200 


AM 


AODBKT,02,10 




1368* 


11 


12750 


000-2 


21210 


TFM 


LNTH.02 




13696 


16 


02387 


-0002 


21220 


BTM 


LINKC,»*12 




13708 


17 


12*88 


J3720 


21230 


TR 


0UT*2,MBUKl-*, , 


SECNC OPERAND TO LIST 


13720 


31 


02220 


12729 


212*0 


TFM 


LNTH.05 




13732 


16 


02387 


-0005 


21250 


TO 


DSABOX, MDI GI T 




137** 


25 


090*9 


127** 


21260 


TOM 


INTBUF ,1 




13756 


15 


03628 


0000 1 


21270 


BTM 


L I NKOR , •♦ 1 2 




13768 


17 


12602 


J3780 


21280 


BO 


NOT3,OP3SH 




13780 


43 


13840 


127*5 


21290 


TR 


OUT*2,MBUK2-*» , 


THIRD OPERAND TO LIST 


13792 


31 


02220 


12735 


21300 


TOM 


INTBUF, 1 




13804 


15 


03628 


00001 


21310 


TO 


DSABOX, RLOCSW 




13816 


25 


090*9 


07950 


21320 


BTM 


LINKPR,«*12 




13828 


17 


12602 


J38*0 


21330 


NOT* TR 


0UT*2,MRM,, 


RECORO MARK 


138*0 


31 


02220 


127*3 


213*0 


TFM 


L NTH, 01 




1385? 


16 


02387 


-0001 



1620-1**3 MONITOR I VERSIGN 2 SPS 1I-C PHASE B 



PAGE 44 



21350 TOM DUMP1U1, l.ll 

211*0 A A0DCOW,SVADD 

21370 BTM LlMCR,»*12 

a)HU BTM UfcET.PHASFB 

2l|90 ENC Of DISK OfflNfRS 

21*00 GENERATE CALL LINK AND ICAD 

21*10 RM CC I, • 



21*20 
21*30 
21**0 

21*50 
21*60 
21*70 
21*80 
2 I 490 
21500 
21510 
21520 
21530 
2 1 5*0 
21550 
21560 
21570 
21580 
21590 
21600 
21610 
21620 
2163Q 
216*0 
21650 
21660 
21670 
21660 
21640 
217CO 
21710 

2172G 



FlUATA OSS *0O,RM-*00 
•••• ERROR 2N0 OPERAND CALL 

OC 5,123*5 

J2 345 

ER TFM EVAtER-2, 71780 

EPR INT #6PR | NT- 1 
C0RER5,ERSTSw 
•♦36.LSTVS* 



BT 
HO 
BNF 
RCTV 
T8TV 



CAC 



00 RG 
TO 
TO 



ER- I, 
• -* 



• ♦?3,A0OC0w. , 
•♦23.AJUST 
AM ACDCrito,,10 
TF MlGCSMl.AUDCOW,, 
AH MIUCSM I, 14,10, 
TfM MlOCS*lB,!OCAL , , 
BIN LSTCAR,»*12 
TFM MBLK3*l»32,10, 
C •»?3,LCHAR 
HI •♦2*,01?**,10, 
Sf M8LK 3» I » » , 
TR INPLTM9,INPUT»21 , , 
BTM PCALL,«»12 
BNF fOLNO» 12,ALPHSM, t 
• t R E AO THE DIM ENTRY fOR E QLi I V TABLE 
TfM IURT,»*23 

lOGT.OEfOI M, 7 
CONTU 
2,22 



ADJUST ACOCOW 



RETURN ACORESS 
AOJUST ACCRESS 
SET LP BR TC ICR 

CODE FOR READ NO *LR 

TtST FOR D IN LOAD 

EXECLTE 

SLIDE COMMA 

NO ALPHA INPUT 



B 

87 

C6FCIM DSC 
22 
CSA 



DFA0D6 



21730 DFACD6 C DA , , I MD AO , U I MSC T , F LOA T A 

0-*B00-CU35l2 
217*0 DC 1,' 

21750 CONTU TF Of ADD** 5 , F LOA T A* *5 , , 
21760 TO Of ADD*,f LUATA**0, , 

21770 READ ThE EOLIV TABlh FOR LCUK UP 



EXTRACT EUUIV FILE ADDR 
EXTRACT EOUIV FILE MODUL E 



2 1 780 


RCEOI V 


TFM 


IOR T , • ♦ 2 3 




21 790 




U 


I U<> T , DEFE Q , 7 




21600 




B7 


GCCN 




21610 


DEFt'O 


DSC 


2,22 








22 






2 1820 




CSA 


UFACD* 










162C- 1**3 MONI TOR I 


VERSION 2 SPS II-C PHASE 


21B3C 




uc 


I, ' 




21B*0 


Cf ACO* 


rcA 


.0,EQCAD,EQSCT,FLDATA 






0-0C0C-C*J35l2 




21850 




DC 


1, • 




21860 


GOUN 


ONR 


• ♦<•*» F L DA TA* 1 1 , , 


TEST END OF TABLE 


21B70 




TFM 


IDENT-2, 00000, , 


2ER0 CLT EQUlV BUCKET 


218BU 




D TM 


ER**»12, » 


CPERANC NOT FOUND 


21890 




B 


FOLND* 12 




214C0 




CORG 






21910 




C 


FLOATA* 11 .COtL-2 




21920 




BE 


FOLND 




21930 




TR 


FLDATA.FLDATA* 16 




219*0 




BNR 


GOUN.FLOATA, , 


TEST ENO Of BLCCK 


21950 




AM 


DFA0D**5,0*,10, , 


NEXT BLOCK 


21960 




R7 


ROE Q I V 




21970 


FOUND 


TF 


IDENT-2, FL0ATAM5, , 


LOAD EQUIV NUM 


21980 




SF 


I DENT- 5 




21990 




TF 


MBLK1 , IOENT-2 




22000 




CF 


MBUKI-* 




22010 




TR 


INPLT* 19, INPU7+21 , , 


SLIDE COMMA 


22020 




B TM 


SCAN,»*12 




22030 




TF 


MBLK 2 , ADDR S • , 


SAVE 3RC OPERAND 


220*0 


«• START TO 


OUTPUT 




22050 




IF 


FRSTAO, ADDCOW 




22060 




TF 


ACCRS,A0DCOW 




22070 




TF 


LSTAD.ADDCQW 




22080 




AM 


LSTAO, 24*10, 


SET TO TOTAL LENGTH 


22090 




AM 


AOOCOW, 19, 10 




22100 




CF 


MI0CS*2 




22110 




CF 


MIOCS*!* 




22120 




CF 


MI0CSM9 




22130 




TR 


ZEPO.MIOCS 




221*0 




TFM 


X,»*2* 




22150 




BTM 


L INPRT.OOINST 




22160 


•• OUT PUT 


CONSTANTS 




22170 




TF 


L STAD, AOOCOW 




22190 




AM 


ADDC0W,07,10 




22190 




TFM 


LNTH,07 




22200 




TR 


OUT*2,MBUK3 




22210 




TR 


QUT*4,MBUK1-* 




22220 




BTM 


tlNKCR,*»12 




22210 




BO 


N03,BSW,, 


TEST 3RD OPERANO 


222*0 




TR 


0UT«2,MBUK2-4t, 


OUfPtT 1RD OPERANO 


22250 




TO 


DSADOX.RLOCSW 




222*0 




TOM 


INTBUF , 1 




22270 




AM 


AOOCOW, 05, 10 




22210 




TFM 


LNTH.05 




22290 




BTM 


LINK0R,«*12 




22100 


NO 3 


TR 


0LT42,MRM 




22110 




TOM 


OUMPUll, l.ll 




22120 




TFM 


L NTH, 01 




22110 




BTM 


L!NKCR.«+12 




221*0 




■ TM 


GEE T, PHASES 





17) 



1 386* 


15 


035*7 


OOOOJ 


13876 


21 


02676 


12752 


I 3688 


I 7 


12518 


J 3400 


139C0 


17 


09210 


-*200 


13912 




1 




13512 




*00 




13917 




5 




13916 


16 


0761* 


P1780 


1 3930 


27 


08022 


08021 


139*2 


43 


C7796 


02*76 


I 395* 


** 


11990 


02*80 


1 3966 


3* 


00000 


00102 


13978 


3* 


00000 


00108 


13990 


*9 


1391P 


OCOOO 


13997 








1 3998 


25 


1*021 


02678 


1*010 


25 


1*033 


02399 


1*022 


11 


02678 


COO-0 


1*03* 


26 


12715 


02678 


1*0*6 


11 


12715 


O00J9 


1*056 


16 


12722 


-0716 


1*070 


17 


1*850 


J*062 




1 6 






1*09* 


2* 


1*117 


1*981 


1*1C6 


*6 


1*130 


012M* 


1*118 


32 


127*2 


00000 


1*130 


31 


02812 


0281* 


1*1*2 


1 7 


1 *990 




1*15* 


** 


1**2* 


15 329 


1*166 


16 


00565 


J*189 


1*178 


*9 


00566 


J*197 


1*1 40 




1*220 




1*197 




2 




l*2C3 




5 


X 1 


1*2C 3 




J*20* 




1*2C* 




I* 




1*218 




1 






26 






1*232 


25 


1*28* 


13S52 


1*2** 


16 


00565 


J*267 


1*256 


*9 


00566 


J*275 


1*268 


*9 


1*300 




l*27S 




2 




l*2Bl 




5 


x 1 



17 '» 



1*281 




J428* 




l*?82 




1 




1*28* 




1* 




1*296 




1 




l*3CG 


45 


1*3** 


13523 


1*312 


16 


1533* 


-0000 


1*32* 


17 


13918 


J*336 


1*336 


49 


1**2* 


OCOOO 


1*343 








14344 


24 


13523 


02437 


14356 


46 


14*12 


01200 


14368 


11 


13512 


13528 


14380 


45 


14100 


13512 


14392 


11 


14289 


000-4 


14404 


49 


142*4 




14412 


26 


15334 


13527 


14424 


12 


15331 


00000 


14416 


26 


12733 


15334 


14444 


13 


12729 


00000 


14460 


11 


02812 


02614 


14472 


17 


06046 


J 4484 


14484 


26 


12739 


3520 


14496 


26 


01899 


02678 


14508 


26 


01520 


02678 


14520 


26 


01909 


02678 


14512 


11 


01909 


000K4 


14544 


11 


02678 


0C0J9 


14556 


11 


12706 


OCOOO 


1*568 


11 


12718 


00000 


14580 


11 


12721 


00000 


14592 


11 


02100 


12704 


14604 


16 


04018 


J4628 


14616 


17 


09268 


J0088 


14628 


26 


01909 


02*78 


14640 


11 


02*78 


000-7 


14652 


16 


02187 


-0007 


14664 


11 


02220 


12741 


1467* 


11 


02222 


12729 


14688 


17 


12518 


J* 700 


14700 


41 


14784 


09048 


14712 


11 


02220 


12719 


14724 


29 


09049 


07990 


14714 


If 


01628 


00001 


14748 


11 


02678 


000-9 


14760 


16 


02187 


-0009 


14772 


1? 


12602 


J4784 


14784 


11 


02220 


12741 


1479* 


IS 


01947 


OOOOJ 


14808 


1* 


02187 


-0001 


14820 


17 


12918 


J4832 


14812 


17 


09210 


-4200 



16 20- 1 **3 MONITOR ! VERSION 2 SPS 1 I - C PHASE B PACE 



2 2 ISO 




DC 


5, I 2 3*5 




1 4 8*8 




5 








J23*5 












2 2 160 


L STCAR 




I ( M A R , » 10» 


BLANK THE ONE CHAR BUCKET 


1*850 


16 


1498 3 


000-0 


2 2 3 7 




RNR 


• ♦ 2 t I N PU T ♦ 2 








14882 


02813 


22 380 




87 


NOCAR 




1487* 


49 


14962 




22190 




C 


•♦23, INPUT* 20, , 




1*882 


24 


14905 


0281 3 


22*00 




H 1 


• ♦*8,0l200i 10, 




1*89*. 


46 


14942 


012-0 


22*10 




C 


•♦23, 1NPUU20, , 


TEST COMMA 


1*906 


24 


14929 


0281 3 


22*20 




8 1 


NOCAR, 1223, 10, 




1*918 


46 


1*962 


12K3 






TF 


LCHAR , INPUT*20, , 


SAVE LAST CHARACTER 


1*930 


26 


1*98 3 


02813 


> ?44A 




TR 


INPUT* 19, INPUU21 




1*9*2 


31 


02812 


02814 


? ?4sn 




8 7 


L S TC AR ♦ I 2 




1*95* 


49 


1*862 








TF 


•♦ 18, L STCAR- 1 




1*962 


26 


14980 


14849 






8 


cccco 




1*97* 


49 


00000 


ocooo 


2 2*80 




DORG 


• -3 




1*982 








2 2*90 


L CHAR 


DC 
J2 


2,12,, 


LAST CHARACTER IN OPERAND 


1*983 




2 




2 2 5CQ 




DC 


5, 123*5 




1*988 




5 








J23*5 












2 2 5 10 


P C ALL 


TR 


COLL - 18,THINGS-2C 




1*990 


31 


02421 


02400 


2 2 520 




TR 


ALPhSn, ZEROS,, 


CLEAR BUCKET AND SWITCH CFF 


15002 


31 


15329 


15337 


22530 






•♦20,INPUT*20, 


RM 


1501* 


45 


15034 


0281 3 


225*0 




87 


■PC ALL I 




15026 


*9 


15254 




2 2550 




CM 


INPLWO.23,10, 


COMMA 


1503* 


1* 


02813 


000K3 


22560 










150*6 


*6 


1525* 


01200 


225 70 




CM 


INPLT*20, 00 ,10 




15058 


14 


02813 


000-0 


22580 




8E 


PC TR 




15070 


46 


1523* 


01200 


22590 




T F 


COLL , INPUT+20 




15082 


26 


02*39 


02813 


22600 




CF 


COLL-1 




1509* 


33 


02*38 


00000 


2261 




TR 


CCl L- 17,C0LL-15 




151C6 


31 


02*22 


02*2* 


22620 




TD 


IDfcNT-1 ,INPUT*20 




15118 


25 


15335 


02813 


22630 




TR 


IDENT-6, IDENT-5 




15 130 


31 


15330 


15331 


226*0 




CM 


INPL T*20, 69, 10, 


TEST FOR ALPHA 


151*2 


14 


02813 


00009 


22650 




HH 


• ♦2* 




1515* 


46 


15178 


01100 


22660 




TDM 


ALPHSW,l,ll, 


SET ALPHA SW ON 


15166 


15 


15329 


0000 J 


22670 




CM 


COLL-17,7,10 




15178 


1* 


02*22 


000-7 


22680 




BNE 


PC TR 




15190 


*7 


1523* 


01200 


22690 




TR 


ALPHSW, ZEROS 




152C2 


31 


15329 


15337 


22700 




BTM 


E R » • ♦ 1 2 




1521* 


17 


13918 


J5226 


22 7 1 




B7 


MICH 




15226 


*9 


15322 




22720 


PC TR 


TR 


INPLT ♦ 19, [NPUT + 21 




152 3* 


31 


02812 


0281* 


22 730 




B 


PCALl *2* 




152*6 


*9 


1501* 


CCCOO 


22 7*0 




DURG 


•-3 




1525* 








22150 


PC ALL 1 


CM 


CCLL-17,06, 10 




1525* 


1* 


02*22 


000-6 


22 760 




b-E 


• ♦** 




15266 


*6 


15310 


01200 


2 2 7 7 




TDM 


CCLL.O 




15278 


15 


02*39 


eoooo 


22 780 




IR 


COLL-17.COLL-15 




15290 


31 


02*22 


02*2* 


22790 




B7 


PCALL1 




15 302 


*9 


1525* 




2 2HOO 




SF 


COIL- 1 3 




15310 


32 


02*26 


ocooo 


2 2 M 1 


I I I C H 


B 


PC ALL -I,, 6 




15322 


*9 


1*98R 


00000 






PGR (i 


• - * 




15 329 








2 2 H lij 


ALPHSW 


oc 


1 , G 




15329 




1 




228*0 


ICENT 


DC 


V.CCCOCO 1 




1 5336 




7 








-00000' 












2 *; » 5 


1 ER OS 


DSC 


BtCCCOOOO 1 




15337 




8 








OCOCOOO' 


■17 5 
















U2C- 1** 3 MQNI TOR I 


VERSION 2 SPS Il-C PHASE B 










2 286 


• TO 


LOAD Pf-ASt R6 TO THE DISK FILE 










2 28 7 


f 6 


3* 


St'8 6, 70 1 




153*6 


3* 


1539* 


00 701 


2 2880 




38 


SLD6.702 




15358 


38 


15 39* 


CC702 


22690 




TR A 






15370 


36 


cccoo 


00500 












15382 


*9 


00000 


00000 


229C0 


SUB6 


CDA 


,0 ,B6DAI),B6SCT , INSTRN 




1539* 




1* 








0J9 151- 30J2**A 












2 29 10 




TCO 


F6 




153*6 








22920 




DORG 


MACR2 




12756 








22930 


psap 


( FM 


1RCSA+6 ,96 , 10 




12756 


16 


1293* 


000R6 


229*0 




TR 


DSAB0X,CLERER**3 




12768 


31 


090*9 


02762 


22950 




TFM 


Rl.USA*6,D'SAB0X-l 




12 780 


16 


12866 


-90*8 


2 2 960 




TFM 


CHSYMU l.DSABOX-l 




12792 


16 


09655 


-90*8 


2 29 70 




87 


•♦20 




1280* 


*9 


1282* 




22980 




TR 


INPLT*19 ( INPUT*21 




12812 


31 


02812 


0281* 


22990 


* 
















23000 


• 


COLLECT OPERANDS 












2 301 


• 
















23020 


GQEVAL 


BTM 


SCAN, 12 




1282* 


17 


060*6 


J2836 


2 30 30 




AM 


rRDSA*6,5, 10 




12836 


11 


1293* 


000-5 


2 30*0 




AM 


RL0SA*6, 1, 10 




128*8 


11 


12866 


000-1 


2 30 50 


RLCSA 


TD 


.RIOCSW 




1286C 


25 


00000 


07950 


23060 




CM 


TRDSA>6,51 ,10 




12872 


I* 


1293* 


000N1 


23070 




BL 


TRDSA 




1288* 


47 


12928 


01300 


23080 




TFM 


TR0SA*6,*6, 10 




12896 


16 


12934 


000M6 


23090 




TFM 


RLCSA*6,DSAB0X*9 




129C8 


16 


12866 


-9058 


2 3100 




B7 


TRDSA + 12 




12920 


49 


12940 




2 3110 


TRDSA 


TR 


ZEPC, ADDRS-* 




12928 


31 


02300 


03516 


2 3120 




BNR 


GOEVAL-12.INPUT*20 




129*0 


45 


12812 


02813 


23130 




BNF 


MAC 1, INTBUFU 




12952 


44 


13140 


03629 


2 31*0 




TFM 


LNTH.5 




12964 


16 


02387 


-0005 


23150 




AH 


A0DC0W,5,10 




12976 


11 


02678 


000-5 


23160 




TF 


ADDRS , ADDCOW 




12988 


26 


03520 


02678 


23170 




A 


ADDCOW, TRDSA* 6 




130C0 


21 


02678 


1293* 


23180 




SM 


ADDCOW, 1,10 




13012 


12 


02678 


000- I 


23190 




TF 


FR STAD , AODR S 




13024 


26 


03899 


03520 


23200 




SM 


FRSTAD,* 




13036 


12 


03899 


-000* 


23210 




TF 


L STAD »FRSTAD 




130*8 


26 


03909 


03899 


2 3220 




AM 


L ST AO, 5 




13060 


11 


03909 


-0005 


2 32 30 


KATHV 


BTM 


GEE T , PDSAF 




13072 


17 


09210 


J4748 


2 32*0 


• 
















23250 


« 


SUBROUTINE LINKAGE FOR 


FUNCTIONAL MACROS AND ARITHMETIC MACR 










23260 


• 
















2 32 70 


MACROF 


TD 


•♦2 3, ADDCOW 




13084 


25 


13107 


02678 


2 3280 




TD 


•♦23.AJUST 




13096 


25 


13119 


02399 


2 3290 




AM 


ACOCOW, ( 10 




13108 


11 


02678 


000-0 


2 3300 




TF 


SPQFLD* 1 I, INTBUF + 6 




13120 


26 


13259 


03634 


23310 




B7 


DSAF , , , TO DSA ROUTINE 


TO PICK UP OPERANDS 


13132 


49 


12756 




23320 


• 
















23330 




ASSEMBLE LINKAGE 












233*0 


♦ 
















23350 


MAC! 


TR 


0UT*2,/EP0*1 




13140 


31 


02220 


02301 


23360 




TF 


ADDRS, AOOCOW 




13152 


26 


03520 


02678 


23370 




A 


AOOCOW, TR0SA*6 




13164 


21 


02678 


12934 


23380 




AM 


ADDCOW, 23, 10 


1 7 6 


13176 


11 


02678 


O0OK3 









162C-1443 MOM TCR 


Vf KSI ON ? iFS I I-C PHASE B 






PAGE 


2 3390 




1* 


ZEPO.L INK 




13188 3 


I 02300 


03522 


23400 




A 


ZEP0M1.ADGRS 




13200 2 


I 02311 


03*20 


?i<.io 




MM 


SPOFLDMi.5, 101 I 




(3212 I 


3 132*9 


000-N 


2 3420 




TR 


ZePO*25tOUT*2 




1322* 3 


I 0232* 


02220 


2 34 30 




S 


ZEP0M8.99 




13236 2 


2 0231S 


CC099 


? 3 4 40 


spofl c 


CF 


KPO» 14 




132*8 3 


3 02314 


00000 


2 34'5'C 




TfM 


x,**24 




13260 1 


6 040 38 


J3284 


2 346Q 




■at h ; 


I I N PR T , 00 I N S T 




L 3272 1 


t 09268 


J0O88 


2 347G 




TR 


OLT*2,ZEPO*25 




1328* 3 


I 02220 


0232* 


? 3*80 




AM 


AOCRS , 7, 10 




13296 I 


1 03*20 


0C0-7 


2349U 




TF ' 


I STAO.AODRS 




13308 2 


6 03909 


03*20 


2 3'SCO 




* 1 •* 


I 1NK0R , •♦ 1 2 




13320 I 


7 12602 


J 3 3 32 


2 3M0 




TFM 


I N T H , I 




13332 1 


6 02187 


-C001 


'2352u 




YC 


01 T ♦ 2 » L N Th* I , , MOVE 


REC.MRK. TC CLT»2 


133*4 2 


* 02220 


02388 


23*>30 




T CM 


DLMPl»l I, Ml 




13356 I 


5 03*47 


OOOOJ 


2 3*40 




RTM 


t INKCR » 12 




13368 1 


7 12*18 


J3380 


23**0 




H TM 


OF, E T , PHASED 




13380 1 


7 09210 


-4200 


2 3 560 
















2 35 7 


• 


CEF INE 


DISK ADDRESS 










2 3580 
















2 3500 


DC AF 


B Tm 


SC AN,»* 1 2 




13192 I 


7 06046 


J3404 


2 3600 




tc 


MLR 'J EL iBSW 




114C4 2 


* 03627 


09046 


23MO 




HO 


DOASGN.BSW 




13416 4 


3 13460 


09048 


2 3620 




rc 


KlRLSw.RLOCSw 




13428 2 


* 04033 


079*0 


2 3630 




tf 


L STAOtAODRb 




1344G 2 


6 03909 


03520 


2 36*0 




H7 


0DA2 




134*2 4 


9 13*08 




2 3650 


DC ASCN 


TF 


L STADt ADOCQw 




13460 2 


6 03909 


02678 


2 3660 




TO 


t ♦23,LSTAO 




1 34 72 2 


5 1149* 


03909 


2 16 70 




T 


• ♦ 2 3 » A JUS T 




13484 2 


5 13507 


02 399 


2 3680 




AM 


I St AO ,00 1 10 




13496 I 


1 03909 


OCO-0 


2 3690 


C C A2 


TR 


INPLT'»19»|NPUT*21 




13508 3 


1 02812 


02814 


2 3 700 




BTM 


SC AN, 12 




13*20 I 


7 06046 


J3532 


2 W 1 C 




TO 


DA X-5 , ADDR S 




13532 2 


* 13820 


03*20 


2 3720 




tr 


INPUT ♦l9,lNPLiT>2l 




13*44 ) 


1 02812 


02814 


2 3710 




P TM 


SC AN, 12 




13**6 1 


7 06046 


J3568 


2 3 740 




T F 


UA X ,ADDRS 




13*66 2 


6 1382* 


01*20 


2 3 750 




TR 


INPUT ♦ I 9 , ! NPUT* 2 I 




13*80 3 


1 02812 


02814 


2 3 760 




HTM 


SC AN, • ♦ 12 




13*92 1 


7 06046 


J3604 


2 37 70 




SF 


ADDRS- 2 




136Q4 3 


2 03*16 


ooooo 


2 3 7 80 




TF 


SC T X i AO OR S 




13616 2 


6 13829 


03*20 


2 3740 




TR 


INPLT»19,INPUT*21 




13628 3 


1 C2812 


02814 


2 3800 




ttTM 


SC AN, I 2 




13640 1 


7 06046 


J3652 


2 38 I 




TF 


MAX , AOOR S 




136*2 2 


6 138 3* 


03*20 


2 3 B 2 




TR 


0UT*2, DAX-'j 




13664 3 


1 02220 


1 3820 


2 lb 3 




T FM 


L N T H , 6 




1 3676 I 


6 02387 


-0006 


2 384 




RTM 


L I NKC , • ♦ 1 2 




13688 1 


/ 12486 


J37O0 


2 *850 




TR 


OL T *2 » SC T X- 2 




117C0 1 


I 02220 


13827 


2 38iS0 




T FM 


L N 1 H , 3 




13712 I 


6 02 387 


-CQ03 


2*8 70 




H TM 


L 1 N K C R i • ♦ 1 2 




13724 I 


7 12*18 


J 3 7 36 


2 J880 




TR 


Ot, T *2,MAX-4 




13736 3 


I C222Q 


13811 


2 3840 




TQ 


I) S A F3l J X RLU^SW 




13748 2 


5 09049 


P7950 


2 19C0 




n ? m 


L (NKOft , • ♦ I 2 




1376C I 


7 12602 


4 3 7 72 


2 391 




RNF 


*♦ 36, MURIEL 




13772 * 


4 13808 


3627 


2 3 92U 




U 


ADDCOW.LSTAO 




1378*. 2 


6 02678 


03909 


2 5930 




SM 


AQOCU*, 1 




13796 1 


2 02678 


-0001 


2 1940 




B T M 


Lit T , P H A S f H 


177 


I JSCS 1 


7 09210 


-4200 



1620-1443 MONITOR I VERSION 2 SPS ll~C PHASE B 



23950 D AX OS 
2 3960 DC 



23970 SCTx CS 
2 3980 DC 



23990 MA* OS 
2400u DC 



2401.0 
24020 
24030 
24040 
24050 
2*060 
24070 
24080 
24090 
241C0 
24110 
24120 
24130 
24140 
24150 
24160 
24170 
24180 
24190 
24200 
24210 
24220 
242 30 
24240 
242*0 
24260 
24270 
24280 
24290 
24300 
24310 
24320 
24330 
24340 
24350 
24360 
24370 
24380 
24390 
24400 
24410 
24420 
24430 
24440 
24450 
24460 
24470 



TRANSFFK 
M TR A TD 
TO 



T FM 
TF 
TF 
AM 
CF 
CF 
CF 
TR 
TF 
TFM 
BTM 
*• GENERATE 
TFM 
CF 
TR 
AM 
TF 
AM 
TFM 
BTM 
TF 
AM 
TR 
AM 
TFM 
70 
TOM 
BTM 
TR 
AM i. 
TFM 
TOM 
BTM 

•f GENERATE 

: f m : 

TFM 
TR 
AM 
TFM 
BTM 
TFM 



TO RETURN AODRESS ROUTINE 
» +23, AOOCOW, , 
• ♦23,A.JUST 
ADOCOW, , 10 
M IOCS M l f GOO 19 
MiqCSHl.AODCOW,, 
MIOCStlfl, IUCAL ., 
FRSTAD,A0UCO* 
L STAD.ADDCUW 
L5TAD,24, 10, 
MIUCS*2 
MJOCS* 14 
MI(jCS»19 
7EPO,MfOCS 
ACCRS,F«STAD 
*,»*24 

L INPRT,00INST 
OlSK DEFI AJERS 
MBLK3*l,22, 101 1 , 
MBLH3 

GUT*2fM8UK3 
ADDCOK, 19, 10, 
L STAO» AOOCOW 
A0DCOW.02, 10 
LMTH # 02 
L INKCR, 12 
MBLKlt ADOCOM, , 
MBLK1,06,10 
0uilt2#M8UKl-4 
AOOCOt«f05*LO 
LNTM*05 
OSASOXfREtSW 
IN T8UF t i 
L 1NKDR, #*12 
0UT*2*MRM«» 
AD0C0W,01,10 
LNTH.Ol 

OLMPIU 1, l,U, 
L !NKCR**tl2 

DOA 
QUT*2»|t. 
M8LKUI0CSAD 
OLT*3,MBUKl-4 
AOOCOM f 06»10 
LNTH,06 

M8LKl,003,9, 



ADJUST ACDCOW 



RETURN ACDRESS 
IOR GETS' E^TR V 



SET TQ TOTAL LENGTH 



MOVE ACDCOW TO END OF LINK 



AODRESS pF CCA 



RECORD MARK 



PRINT RM 



DISK ADDRESS 



SECTOR COUNT 



l 3h2» 




6 








I 




i ^ » 




3 
I 




1183* 




5 




1 3836 




1 




1 38 38 


2* 


13861 


02678 


138*0 


2* 


1 3873 


02 399 


13862 


11 


02678 


000-0 


1 3874 


16 


12715 


-0019 


13886 


21 


12715 


02678 


13898 


16 


12722 


-0716 


13910 


26 


03899 


02678 


13922 


26 


03909 


02678 


13934 


11 


03909 


0C0K4 


13946 


13 


12706 


00000 


* 139*8 


33 


12T16 


OOOOO 


13970 


33 


12724 


OOOOO 


13982 


11 


02300 


12704 


13994 


26 


03*20 


01899 


140C6 


16 


04038 


J4030 


14016 


17 


09268 


J0088 


14030 


16 


12742 


OGQKK 


14042 


13 


12741 


OOOOO 


14056 


31 


02220 


12741 


14066 


11 


02678 


0OOJ9 


14078 


26 


03909 


02678 


14090 


11 


02676 


QOQ-2 


14102 


16 


02387 


-0002 


14114 


I? 


12516 


J4126 


14126 


26 


12733 


02678 


14131 


11 


12733 


600-6 


14110 


11 


02229 


1.2729 


14162 


11 


02676 


000-5 


14174 


16 


02167 


-0005 




25 


090§9 


02478 


14196 


1* 


03628 


00001 


WW 


1? 


12602 


J4222 


vmz 


11 


02220 


12743 


14214 


11 


02676 


QOO-1 


1426* 


16 


02367 


-OQOl 


14256 


19 


03147 


OOQOJ 


14270 


1? 


12916 


J4262 


14282 


19 


02220 


00001 


14294 


16 


127)1 


49781 


14306 


11 


02221 


12729 


l>Mf 


U 


62*76 


000-6 


14330 


16 


02107 


-0004 


14342 


1? 


|2fl0 


J4354 


14354 


16 


12711 


00*01 



1620-l*-*3 MONITOR I VERSION 2 SPS I I -C PHASE B 



PAGE 



2**80 




TR 


Ob T +2 tMBUK 1-2 




1*366 


31 


02220 


12731 


2**90 




AM 


ACCCOWt 03,10 




1*378 


11 


02678 


000-3 


2*500 




TFM 


INTH,03 




1*390 


16 


02387 


-0003 


2*510 




rt tm 


I I NKC R » • ♦ 1 2 




1**02 


I 7 


12518 


J** 1 * 


2*520 




TFM 


MBLM.O., 


CURE ADDRESS 


I** 1* 


16 


12733 


-0000 


i ' <» 5 3 . 




TR 


0LT»2,MBUK1-* 




1**26 


3 1 


02220 


12729 


2*5*'b.' 




AM 


ADDC0W,05,10 




1**38 


1 1 


02678 


000-5 


2*550 




TFM 


LNTH.06 




1**50 


16 


02 387 


-0006 


2*560 




TDM 


DUMPl ♦ I 1,0, 11 




1**62 


15 


035*7 


0000- 


2*570 




BTM 


LINKCR»«*12 




1**7* 


1 7 


12518 


J**86 


2*580 




R TM 


GEET, PHASES 




1**86 


1 7 


092 10 


-*200 


2*590 


















2*600 




EVALLATE ADDRESS Of DEND 






























2*620 


DENOF 


BTM 


SCAN,»*12 




1**98 


j 7 


060*6 


J*510 


2*6 30 




CF 


ADDRS-* 




1*510 




03516 


UUvUU 






BTM 


F ILL.ADRFIL-* 




1*522 


I j 


1 1 70* 


J 2 3* 7 






TFM 


LSTOUT- 1,**20 


**.♦• 


it«S*A 




i??nn 


J* 5 5* 






B7 


PRINT 






40 


n»i t a 




2*6 70 




SF 


ADDRS-* 






32 






2*680 




80 


DOTCD, INTBUF*6, , CHECK 


FOR TCD 


: _ 


4 3 




36 3* 






TFM 


T E S TAD 




: _ 


16 


nan?* 








TF 


FRSTAO.HIAOD 




ias on 

i 


26 






5 7 in 

■ 




TFM 


LNTH 






1 6 










TO 


0UT«2.LNTH» I , ,RK.MRK. 




1*6 1* 


25 


02220 


02386 


2*730 




BTM 


REIODG.6,11 




1*626 


1 7 


1025* 


00000 


2*7^0 




BTM 


STACKR.9,10 




1*638 


1 7 


10* 34 


000-9 


2*750 




TOM 


STNUCD*13,2 




1*650 


1 5 


1 1489 


00002 


2* 760 




BT 


MOD IF I , MOD I F I- I 




1*662 


27 


1 1 308 


1 1307 


2*770 




TR 


TRDATA*6,NINES-5,6 




1*67* 


31 


1076- 


14793 


2*780 




TFM 


* 10,999,9 




1*686 


16 


00*10 


00R99 


2*7 90 




TR 


* 16.A00RS-* 




1*698 


3 1 


00* 16 


03516 


2*800 


# 


WRITE F INAL 3 SECTORS TO 


FILE 










2*8 i t 


FINIS 


TFM 


IORT,«*23 




1*710 


16 


00565 


J4733 


2*8 2 




B 


IORBC »DEFOUT, 7 




1*722 


49 


00520 


- 3579 


2*830 




END OF PHASE B .CALL IN 


PHASE C 










2*8*0 




TFM 


CF F A , PH A ZEC 




1*7 3* 


16 


02629 


J* 758 


2*850 




BTM 


CFF.PHASEC 




1*7*6 


17 


02592 


JOOOO 


2*860 


PH AZ EC 


DDA 


,0,PHCDAD,PHCSCT.PHASEC 


1*758 




I* 








0J8855-26J0000 












2*870 




DC 


1,' 




1*772 




1 




2*880 


S I MPL E 


TOM 


TRDATA>6,6,611 




1*7?* 


15 


1076- 


00000 


2*890 




B7 


F IN I S-*8 




1*786 


49 


1*662 




2*900 


NINES 


OC 


6,99999* 




1*798 




6 








R9999* 












2*9 1 


OhS I X 


DC 


6,6 




1*80* 




6 








-00006 












2*920 




DC 


I » * 




1*805 




I 




2*9 30 


DOT CD 


BTM 


R EL ODG . . 1011 




1*806 


17 


1025* 


000— 


i h i * :j 




TFM 


lNTh 




1*818 


16 


02387 


-COOO 


2*950 




TO 


0LT-7.IC 




1*830 


25 


0221 1 


0389* 


2*960 




TR 


01 I-6.ADDRS-* 




1*8*2 


31 


02212 


03516 


.2*970 




BTM 


GEET, LUCK 




1*85* 


17 


09210 


-9552 


2*98 


• TO 


LOAD 


PHASE B5 TO THE FILE 


1 7U 
















1620- 1**3 MONITOR I VERSION 2 SPS II-C PHASE B 








PAGE 


2*990 


F 5 


3* 


SLB5.701 




1*866 


3* 


1*91* 


00701 


c 5 C o 




38 


SUB5.702 




1*878 


38 


1*91* 


00702 


2 501 C 




TR A 






1*890 


36 


00000 


00500 












l*9C2 


49 


00000 


OCOOO 


2 50 20 


SUH5 


CDA 


,C,B5DAD,B5SCT,INSTRN 




1*91* 




1* 








0J9122-29J2*** 












2 *j 3 G 




TCD 


F5 




1*866 








250*0 


P H A S E C 


DORG 


ICOOO , 


READ SECTORS 1*2 OF CBJECT PROGRAM 


100C0 








250 50 




TFM 


IORT .•♦23 




10000 


16 


00565 


J0023 


2 5060 




h 


IOGT ,JHB ,7 




10012 


49 


00566 


J 1818 


2 50 70 




BNR 


DO-12 .ISTAT-29 


BR IF SUBRS REQD 


1002* 


45 


100** 


02530 


25080 




B 7 


SIZE 




1C036 


49 


10376 




25090 




BNR 


D0M2 ,C0 IM i, 


BR IF CARD IMAGE 


100** 


45 


10068 


02529 


2 51 00 


DO 


TDM 


CDIM.-t 




10056 


15 


02529 


0000 J 


251 to 




SF 


*15 • M 


INDICATE SUBRS REQO 


10068 


32 


00* 15 


00000 


2 5 1 20 




TF 


BLF*5 ,BUFU05 


STORE FIRST ACR 


10080 


26 


12**0 


125*0 


2 51 10 




TF 


BUF*80 ,BUF*5 




10092 


26 


12515 


12**0 


25 I SO 




SM 


BUF*5 ,100 ,9, 


CONVERT TO 1 SECTOR BEFORE 


1010* 


12 


12*40 


OOJOO 


251 50 




TDM 


BLF+6 ,2 




10116 


15 


124*1 


00002 


2 5 i 60 




BNF 


•♦2* ,BUF*106 , i 


RELOCATABLE 


10128 


4* 


10152 


125*1 


25170 




TOM 


BUF*6 ,-2 t f 


NON RELOCATABLE 


101*0 


15 


12*41 


OOOOK 


2 5 1 80 




T f 


B LF ♦ 1 * .FRSTCO 


MOVE SPS ID COCE AND LENGTH 


10152 


26 


12**9 


11817 


25190 






TO CARD 1 COLS 6-1* 












25200 




TO 


BUF+81 ,BUF*6 ,, 


CONSTANT INC FOR SECCNO CARD 


1016* 


25 


125 16 


12**1 


25210 




TR 


BUF*82 ,SECCD-3 ,, 


LOADS SECONO CARD C0LS7-25 


10 I 76 


31 


1251 7 


1 1791 


25220 




TO 


BUF+85 ,R MARK , , 


INSERTS RECORD MARK 


10188 


25 


12520 


00*21 


252 30 






WRITE SECTOR 1 AND 2 AFTER SECTOR 1 IS UPDATED 










252*0 




TO 


BUF*2* tRELSW ,, 


-I IF RELOCATABLE OBJ PGM 


10200 


25 


12459 


02478 


2 5 2 5 




TR 


BUF+25 ,C0MDAT*09,, 


MOVE COMMON DATA 


10212 


31 


12460 


02509 


25260 




TF 


B UF *75 ,1 STAT 




1022* 


26 


12510 


02559 


252 70 




TFM 


IORT ,»*23 




10236 


16 


00565 


J0259 


25280 




B 


IORBC ,JH8 ,7 




102*8 


49 


00520 


J181 8 


25290 




RD DIM ENTRIES FOR SUBR 


INCL PICK 










25300 


RCD IM 


TFM 


IORT ,»*23 




10260 


16 


00565 


J0283 


25310 




B 


I0GT ,JHB2 ,7 




10272 


49 


00566 


J1626 


25320 




BNR 


CKSET .ISTAT-28 


BR IF MORE THAN DlVW REQUIRED 


10284 


45 


1 1428 


02531 


25330 




BO 


CKSET*24,ISTAT-36 




10296 


43 


11452 


02523 


25340 




A 


PICKUP tWAH814 


ADO LENGTH OF SOFT DIVIDE TO PICKUP 


10308 


21 


02528 


142*9 


25350 




TFM 


CKMAP+54 .SIZE (t 


SET BRANCH ACR 


10320 


1* 


11622 


J0376 


25360 




TFM 


CKMAP*47,01 




10312 


16 


11615 


-0001 


25370 




TFM 


MAP »WA*1814 




10344 


16 


11383 


J4249 


25380 




6 


CK DIM 




10396 


49 


11532 


00000 


25390 




OORG 


•-* 




10363 








25*00 




BNR 


CALC , ISTAT-29 ,9, 


BR IF LAST REQ SUB NOT PROCESSEO 


10364 


45 


11260 


02N30 


25*10 


INO 


OS 


.• ft 


I STAT POINTER 


10375 









25*20 


SIZE 


TFM 


IORT t»*23 it 


SYS COMM SEC TO ZERO 


10376 


16 


00565 


J0399 


25*30 




B • 


IOGT tCSDOOA ,7 




10388 


49 


00566 


J1834 


25**0 




• PUNCH BLANK RECORDS AFTER LIST DECK 










25*50 




BNF 


HIPICK .LSCDSW 




10400 


44 


10496 


02479 


25*60 




TR 


CLERER+5* tCLERER 




10412 


31 


02773 


02719 


25*70 




TOM 


CLERER*53.0 




10424 


15 


02772 


00000 


25*80 




TR 


CLERER+108 tCLERER 




10436 


31 


02827 


02719 


25*90 




TDM 


CLERER*107 




10*48 


15 


02824 


00000 


25500 




WACO 


CLERER*2 




106*0 


39 


02721 


00400 


25510 




WACO 


CLERER+2 


!8o 


10412 


19 


02721 


00400 



1620-1443 MONITOR I VERSIUN 2 SPS I I-C PHASE 6 



PACE 



25520 




WACO 


CLERER*2 








10484 


39 


02 721 


00400 


2 55 30 




PL ACL HlCMkST ADORE SS 


USED 


IN PICKUP 














C 


H I ADD 


,P1CKUP 








24 


0251 8 








BNH 


• ♦24 








i nsfla 






n i inn 


jlX in 




TF 


PICKUP 


» H I A D 






1 0520 


26 


02528 








5 


CYL1N0ER CHECK 


















CM 


SLB0UT»5 


, ICOO 








14 




- moo 






BNH 


AOK 








* 


* ? 


107 32 


n i i ftft 
* ~z 


25600 




BD 


• ♦20 


,22^PHASEC 






10556 


4 3 


10576 


10022 


25610 




B 7 


AOK 








1 0568 


49 


10 7 32 




2 5620 




CF 


22»PHASEC 








1 05 76 


3 3 


10022 


00000 


2 56 30 




TOM 


23*PMAS6C 


iO 


, 1 1 




1 0588 


l> 


1002 3 


0000* 






TO 


• ♦20 


, 7 I* PHASEC 






10600 


25 


10620 


10073 


* e^4A 




CM 


• *b 


tC5 


,710 




106 1 2 


|* 


i 




'2 




QE 


• ♦24 








1 C624 


46 




* 


2 56 70 




TDM 


23+PHASEC 


.-1 






10636 


1 5 


1002 3 


0000 J 


25680 




RCTY 










1 0648 


34 


00000 


00102 


2569Q 




WATY 


BARF 








1 C660 


34 


12249 


00 100 


2 5700 




RCTY 










10672 


34 


coooo 


00102 


25710 




WATY 


BARF 2 








1 0684 


39 


12335 


00 100 


25720 




H 










1 0696 


48 


00000 


00000 


25730 




BNC 4 


AOK 








IC7C8 


* 7 


10732 


C04Q0 


2 5740 




TDM 


DLP-1 


,2 


• • 


INHI BI T DUP CALL 


10720 


1 5 


11195 


0C002 


25750 


AOK 


SM 


STCNT 


• 1 


* 10 




I C7 32 


1 2 


025 1 3 


000- 1 


2 5760 




TR 


^♦PHASEC 


»403 






1 744 


3 I 


10000 


0040 3 


25770 




RD 


ALL-12 


,SK[P 






10 756 


4 3 


10888 


1 1686 


25780 




S 


OBJCRE 


,PICKUP 






1C768 


22 


02496 


02528 


25790 




TO 


P ICKUP^ 1 


,R MARK 






10780 


2 5 


02529 


00421 


25800 




BNL 


ALL-12. , , 




BR IF 


ObJCRE IS NOT EXCEEDED 


10792 


46 


10888 


01 300 


25810 




TO 


OVER^70.ORJCRE-4 






108C4 


25 


12063 


02492 


25820 




TC 


QVFR^68,0BJCRE-3 






108 16 


25 


12061 


02493 


25810 




TC 


0VfcR^66,0R JCRE-2 






10828 


25 


1 2059 


02494 


258*0 




TO 


0veR^64,0RJCRE-l 






1 B 4 


2:5. 


1 20 5 7 


02495 


25850 




TO ■' 


OVER+62 iOB JCRE 






IC852 


25 


12055 


02496 


25860 




TFM 


IORT,»«23 








1C864 


16 


00565 


J0887 


258 70 




B 


10PT,DEF 5 


.7 






1 CH76 


49 


00532 


J 1 731 


25880 




RCTY 










10888 


34 


00000 


00 102 


25890 


ALL 


WATY 


END 








IC9C0 


39 


I 1845 


oc i oo 


259QG 




)4 


, C0951 , , , 




SPACE 


CNCE 


10912 


34 


,. coooo 


00951 


25910 




LVD 


•♦72, SK IP 








I C924 


43 


10946 


1 1686 


25920 




CF 


P ICKUP-4 








10936 


33 


02524 


OQOOO 


25930 




TFM 


IOHT,«*23 








1C948 


16 


00565 


J0971 


2 594u 




B 


IOPT.DFF 1 


-4 , 7 






IC960 


4SJ 


00532 


J 1 695 


25950 




TFM 


IOKT ,«+23 








I C972 


16 


00565 


J0995 


25960 




B 


IOPT.DFF 2 


-4,7 






1 0984 


49 


00532 


J 1 70 3 


259 70 




8NF 


• ♦ 36 


.RfcLSW 






1 0996 


44 


11032 


02478 


25980 




TFM 


1QRT,**23 








1 1CC8 


16 


00565 


J 1031 


25990 




& 


I0PT,DEF6 


-4,7 






11020 


49 


00532 


J 1 735 


26000 




TF 


AUDRS 


,STCNT 






l!0 32 


26 


03520 


0251 3 


26010 




CF 


ADDRS-4 








1 1044 


3 3 


03516 


ooooo 


26020 






IORIt**23 








I 1056 


16 


00565 


J1079 


260 30 






10PT.DEF 3 


-4 , 7 






1 1068 


49 


005 32 


Jl 711 


26040 




TFM 


IQKT,«*'23 








1 1080 


16 


00565 


JU03 


26050 




B 


10PT,DEF4 


-4,7 






UC92 


49 


00532 


J1719 


26060 




ft V 


• ♦12 








111C4 


46 


11116 


01400 


26070 




TFM 


IORT 


,•♦23 




18 1 


11116 


16 


00565 


J1139 








1620-1443 


MONITOR I 


VERSION 2 SPS I I - C PHASE B 








PAGE 


26080 







IQRBC 


»C SDDDA 


,7 




11128 


49 


00520 


J 1 8 3 4 


26090 




KC TY 








FOLLOWING MACRO TERMINATES PHASE C 


11140 


34 


00000 


00102 


26100 




;BNF 


• ♦2C 


,22^PHAS£C 




BR IF DISK OUTPUT NOT RECL 


11152 


44 


I I 1 72 


1C022 


26110 




B7 


DLP-12 








1 1 164 


49 


1 1 184 




26120 




BNF 


CALC- 20 


,23*PHASEC 




BR IF C THE R OUTPUT NCT REtD 


11172 


44 


1 1220 


10023 


26130 




TDM 


SYSCAL 


.1 






11184 


15 


00475 


ooooi 


261*0 


DUP 


NOP 








RESERVED FOR READING CARD TO ZERO 


11196 


41 


00000 


OOOOO 


26150 




B 


MONCAL 








U2C8 


49 


00796 


CCQOO 


26160 




TDM 


SYSCAL 


♦ 2 


* , 


INHIBIT DUP CALL 


1 1220 


15 


00475 


00002 


26170 




B7 


DUP 








1 1232 


49 


1 1 1 96 




26180 


CALC 


TFM 


CKMAP+54 


, USED 






1 1240 


16 


1 1622 


J 1 360 


26190 




BD 


USED 


, IND 


,11, 


BR IF THIS SU8R USEO 


1 1252 


43 


1 1360 


1037N 


26200 




AM 


IND 


,0.1 


,10, 


AD J I S TAT POINTER FOR NEXT ENTRY 


11264 


1 1 


10375 


000-1 


26210 




AM 


CKMAP^42 


,01 


,10 




1 1276 


11 


1 1610 


000-1 


26220 




SM 


NE 


,01 


,10, 


AUJ NO OF ENTRIES FOR SUBR 


1 1288 


12 


1 1 320 


000- 1 


26230 




BH 


IND-ll 






BR IF MQRE ENTRIES OF SUBR AVAIL 


11 3C0 


46 


10364 


01100 


26240 




AM 


MAP 


,20 


,710, 


OBTAIN NO OF ENTRIES OF NEXT SUBR 


11312 


1 1 


1 1 383 


-OOKO 


26250 


NE 


OS 


2 


,•-3 




NO OF ENTRIES LEFT FOR DIM ENTRY 


1 1320 




2 




26260 




TD 


NE 


,MAP 


,11 




11324 


25 


1 1 320 


1 138L 


26270 




BD 


IND-ll 


, NE 




RETURN TO CHECK ISTAT 


1 1 336 


43 


10364 


1 1 320 


26280 




B 


NE-8 








11348 


49 


11312 


OOOOO 


26290 


USED 


SM 


MAP 


,5 


,10, 


OBTAIN SUBR LENGTH AOD TC TOTAL L 


11360 


12 


1 1383 


000-5 


26300 




A !; 


PICKUP 


,WAM214 


,7 




11372 


21 


02528 


J3649 


26310 


MAP 


DS 




, • 




POINTER FOR SUBROUTINE DIM ENTRY 


11383 









26320 




AM 


MAP 


,25 


,10, 


ADV SLBR PNTR FOR NEXT SUBR 


1 1384 


11 


11383 


000K5 


26330 




A 


IND 


, NE 




AOV ISTAT PNTR FOR BAL OF SUBR ENTS 


11396 


21 


10375 


11320 


26340 




A 


CKMAP*42 


, NE 






1 1 408 


21 


1 1610 


1 1320 


26350 




B 


NE*4 






BR TO SET NE FOR NEXT SUBROUTINE 


1 1420 


49 


1 1 324 


OOOOO 


26360 




OORG 


•-4 








1 1427 








26370 


CKSET 


CM 


ISTAT-36 


,00 


,10, 


CK FOR SOFT DIVIDE PKGE 


1 1428 


14 


02523 


000-0 


26380 




BE 


DELETE 


» 


, * 


YES, BR TO ERROR MESSAGE TYPE OUT 


1 1440 


46 


1 1640 


1200 


26390 




CM 


ISTAT-36 


,02 






11452 


14 


02523 


-C002 


26400 




BL 


CK DIM 




, » 


BR IF FIXEC 6 SPECIFIED 


11464 


47 


11532 


01300 


26410 




TFM 


MAP 


,614+WA 






11476 


16 


11383 


J3049 


26420 




BE 


CK OIM 






BK IF VARIABLE L SPECIFIED 


11488 


46 


1 1532 


01200 


26430 




TFM 


MAP 


,14^WA 






1 15C0 


16 


11363 


J2449 


2644Q 




87 


CK DIM 








11512 


49 


11532 




26450 




SKIP BLANK 


DIM ENTRIES 




■ 


■ 






26460 




AM 


MAP 


,20 






1 1520 


1 1 


1 1383 


—0020 


26470 


CKCIM 


TF 


• ♦35 


,MAP 






1 1532 


26 


11567 


11383 


264S0 




AM 


• ♦23 


,6 






1154* 


11 


11567 


-0006 


26490 




BNR 


CK OIM- 12 








11556 


45 


11520 


OOOOO 


26500 


CKMAP 


TF 


• ♦42 


• MAP 


, , 


INSURE PROPER DIP ENTRIES 


1 1 568 


26 


11610 


1 1383 


26510 




AM 


• ♦30 


.4 






11580 


11 


11610 


-0004 


26520 




TF 


• ♦21 


* I STAT-36 






11992 


26 


11613 


02523 


26530 




CM 




,00 


f t 


INIT AT 01 FOR SOFT OIV 


11604 


14 


00000 


-0000 


26540 




BE 


USEDM2 






BR IF ENTRY OK 


11616 


46 


11172 


01200 


26550 




TFM 


OELETEOO 


Ifault 


• • 


CHANGE DELETE MESSAGE 


1 1628 


16 


11670 


J2139 


26560 


DELETE 


RCTV 










1 1640 


14 


UUOvU 


00102 






SF 


NONEX 


, 


» • 


PREVENTS EXECUTION 


11652 


12 


00457 


OOOOO 


26580 




WATY 


OTHER 








11664 


19 


12067 


00 100 


26590 




TOM 


SKIP 


,-01 






11676 


15 


11666 


OOOOJ 


26600 


SKIP 


OS 


1 


,•-1 




SKIP CLTPUT REFERRG TO CORE IF-1 


11686 




1 




26610 




B7 


SUE 








11688 


49 


10376 




26620 


OEFl 


OSA 


P ICKUP-4 








11699 




5 


X 1 



182 









16 20- 1443 MONITOR I VERSION 2 SPS N-0 PHASE B 










PACE 












1 1699 




•2524 




26610 




oc 


3,22* 




11702 




3 








K 2 • 














266SQ 


def2 


DSA 


CORE 




11707 




5 


X 1 












1170? 




J1879 




26650 




oc 


3, 18* 




lino 




3 








J 8 • 














26660 


C6F3 


OS A 


ADURS-4 




11715 




5 


X 1 












11715 




- 35 16 








DC 
K 2 • 


3,22' 




11718 




3 




26680 


UEF<, 


DSA 


STPM 




11723 




5 


X 1 












1 172 3 




J2195 




26690 




DC 


3,18' 




1 1726 




3 








J8« 














2 ^ 7 


CE f 5 


DSA 


OVER 




117 31 




5 


X 1 












117 31 




J 199 3 




26 n G 




DC 


3,18' 




117 34 




3 








J8 ' 














26 72 


DEF6 


DSA 


RELCRE 




1 1 739 

■ 






X 1 












11739 




J 19 39 




26 7 30 




DC 


3,18' 




11742 












Jb' 














26 7^0 


•FOR SUBROUTINE DIM ENTRIES 












2 6750 


DCAJB 


CD A 


• 1 , SUBDAD, 19 ,MA« 1 




11744 




14 








1-4808- 19J2436 












2f>?6G 




nc 


I ,' 




11758 








267 7 


• FOR READING 2 SECTORS AND MRT SECTOR I 












26780 


CCA1JB 


CDA 


2. BUF*l 




11760 




14 








1-0000-02J2436 












? ? - 




nc 


1 , ' 




117 74 




■ ■"■ 

1 








CDA 


, 1 .MOSDAD, 1 ,0*PHASEC 








14 








I J9663-0 1 JOOOO 












2681 




DC 


1 




11790 




* 






S c C C C 


DC 


4 ,100 , , CONSTANT FOR SECOND CARD 




1179 












-100 


















DC 


6 ,-3002 




BO u 












-0300K 
















DC 


9 ,6012345* 




■ 












-60123*5' 












2 6 8 *0 


LC 


DC 


8 ,67514842 ,, CONSTANT FCR FIRST CARO 




11817 




8 








07514842 












.2 ft b 6 




CS 


,421 




0C421 









268 70 




DS 


,1 STAT-59 , HI ORDER POSITION OF COMMON OATA 


02500 









26880 


r r , 


OS 


, I STAT- 30 




02529 









26890 


JHB 


DSC 


2 ,02 




11818 




2 








02 














26900 




DSA 


DOAUB 




11824 




5 


X 1 


























162C-1443 MCNITOR I VERSION 2 SPS ll-CPHASEB 










PACE 












11824 




J 1760 




'6910 




OC 


1 , • 




11825 








26920 




DSC 


2 ,22 




1 1826 




2 








22 














26930 




DSA 


DDAJB 




11832 




5 


X 1 












11832 




J 1 744 




2694U 




DC 


1 .' 




11833 




1 




26^50 


CSCtCA 


CSC 


2 ,22 




1 1834 




2 








22 














t J 




CSA 


CSDCA 




11840 






X 1 












■ 

1 184C 




J 1 7 76 








DC 


I . * 




1 184 1 




1 








DS 


1 




11842 




1 






END 


CAC 


17, END OF ASSEMBLY. • 




1 1 84 5 




17 


X 2 






END 


OF ASSEMBLY.* 














CORE 


DAC 


30, CORE POSITIONS REQUIRED* 




1 1879 




30 


X 2 








CORE POSITIONS REQUIRED* 












2 


RElCRE 


DAC 


27, PLUS RELOCATION INCREMENT* 




11939 




27 


x 2 






PLUS RELOCATION INCREMENT* 












*. 


OVER 


DAC 


37, EXCEEDED SPECIFIED CAPACITY BY 00000* 




■ 

1 1993 




37 


X 2 






EXCEEDED SPECIFIED CAPACITY BY 00000' 












270 30 


OTHER 


DAC 


36, SUBROUTINES OTHER THAN PCM CIV USED* 




** 




' 14 


■X * 






SUBROUTINES OTHER THAN PGM DIV USIO* 














FAULT 


DAC 


28, NO DIM ENTRY FOR SUBROUTINE* 




12139 












NO DIM ENTRY FOR SUBROUTINE* 














STPN 


DAC 


27, STATEMENTS PROCESSED* 




12 195 




97 
* f 


X. ■ 2 








STATEMENTS PROCESSED * 












2 7060 


8AR F 


DAC 


4 3, MORE THAN 5 CYLINDERS OF RELOADABLE OUTPUT* 




121 




43 


X 2 






MORE 


THAN 5 CYLINDERS OF RELOADABLE OUTPUT* 












} /n ;n 


BARF2 


DAC 


50 , SN4 ON TO DUMP OUTPUT, OFF TO CONTINUE, NO OUTPUT* 


1ZJI9 






i 






SW4 i 


ON TO DUMP OUTPUT, OFF TO CONTINUE , NC OUTPUT* 












2 7080 




DS 


1 ' ' 




. _ ■ 




* 




2 7090 


BUF 


OSS 


19CC 




t lilt 




1900 






MA 


OS 


,BUF , WORK AREA FOR SUBROUTINE 


MAP 


12435 








27110 




OORG 


MA ■ ■ 




12435 










CLOAO 


34 


SUBC .701 SELF LOADER 




124)6 


14 


12484 


00701 


27130 




38 


SUB C .702 




12448 


It 


12414 


00702 


27140 




TRA 






12460 


14 


00000 


00500 












12472 


4*1 


00000 


00000 


27150 


suae 


OOA 


, , PHCDAO .PHCSC T , PHASEC 




12484 




14 








0J8855-26J0000 












27160 




TCO 


CLOAD 




12434 








27170 




DEND 


IN! TI 




04188 









184 





1620- 1**3 


PON 1 TOR 


1 VE M S 1 UN 2 


SPS I I -C 


PHASE B 






PAGE 


56 


- 




DMPD 1 G 


0*026 




1*850 


RNMESS 


C7953 


662 


09021 


t tf ten 




DM$f ,ND 


12220 


i *rr niu 


1 2076 


RSCAN 1 


05852 


BETA 


02*91 


2PRT 10 


2CU00 


DPSER 1 


1 2*96 


STDEF 




RSYMSW 


07^*9 


8 L OP 


0*410 


t* f SP 6 




DM'$FR2 


1 1 9C0 


L S T OU T 




2P ASS 


G*30* 


B L X 


02**3 


ACT F It 


12*15 


DPSNMl 


t 1668 




n?4ftn 
i in!! 


2PSSW 


026? 7 


BP20K 


CCOOS 


ACOftK T 


1 2 750 


DHSNtM 


11680 


HACRCF 




7TV5 


03892 


BUNCH 


091*0 


ACDCQtf 


02678 


DOCONF 


1*736 


HA XL I P 


15997 




rrt 


BR SEQ 


1 0902 


ACDSUB 


066*6 


DOI NST 


10088 


HC I G 1 T 


127** 


A ir» fi 




8 SAV 


09010 


A OH F 1 L 


I 2 35 1 


DOLL AR 


C7066 


HE SOUT 


09780 






B SBF 


09C0* 


AL PHS W 


1 5329 


HOME SS 


098*0 


HGRUCR 


13112 








06910 


ANAL * 1 


111 08 


OSABOX 


C 90* 9 


HOC T OC 


1602 3 


A3CAC 




B S NE Q 


089*6 


ft I ON At) 


0*>9-Q0 


DU13LE V 


09772 


HOC I F I 


1 I 308 


a icr f 


0CQ29 






BCHSPC 


06922 


OVAOBF 


10136 






A*CAC 


1 888 1 


B T8L2 


05*80 


BL K A D S 


03979 


D VA 5GN 


09688 


MO 1 UNO 




A*SCT 


CC02 7 


B TBL 


05*5* 


BL ft C T R 


0*02 i 


ECL A T I 


1 3 796 


HONAHE 


16035 




18 737 


B UF 


12*35 


8SERCM 


08752 


t PR I N T 


08022 


HONC A L 


00796 


a* err 




C ALC 


1 1 2*0 


CALEX T 


1*20* 


E R AC 1 


1 38 30 


MONO I S 


160** 


ABBA 


n*ni i 


C AL 


1 3996 


CALL EX 


I *808 


ERLN TH 


06902 


HOSBNC 


160* 3 


AOI 


i ij»n 




111 9* 


CARCIN 


02668 


6R STSw 


02* 76 


HOSOAC 


19663 


ACC 1 


1 268* 






C ARQL N 


0*039 


E VAL AO 


06726 


HS TOAC 


189*3 


ACCR S 


03520 


r te a 


02*29 


CASTER 


0*528 


E VALER 


C7636 


HUR 1 EL 


3627 


A JDS T 


?r«nn 


r ec 


02592 


CCOMf R 


1 3992 


E VALOP 


06*06 


HVEHOC 








CF IL 




CDINSW 


02* 7* 


FCH8UF 


11977 


NE l»C AR 


111 00 


Al^ o 


ft ? ABA 


CHAR 


1 31 92 


CFFOEF 


02623 


F f; L BUF 


I I 960 


NO PR E C 


0271 3 


AfclAI 


1 nOQA 






CHKMQ.C 


1 2 7 32 


F L AGGR 


12880 


SCS INF 


I 3* 30 


AfcA P 


i rati 




126** 


Cmval d 


1311* 


F LDA T A 


13512 


NCTYPE 


101*8 


AWA 1 

ANAL 3 


110*8 


CMKIO 




CL ERER 


02719 


F R S T A 


03899 


OB JCRE 


02*96 


ANAL* 


11072 


r mm kin 




CMPCNT 


08636 


FRSTCD 


11817 


OPCOCE 


1 2660 


ANAL 


1 08 1 2 


CHKRM 


10*9* 


COMC A r 


02500 


FRSTMT 


C*032 


OVRL AP 


1 1668 


ANL I A 


1 1028 




09*** 


COMSPC 


06806 


F UDSCN 


0590* 


PACK AC 


39 15 


ANL 1 B 


1 100* 


C K 1 M 


1 1532 


COPCE f 


0*1 8* 


bOEVAL 


1282* 


PC AL L 1 


1525* 


ANL 1C 


1 C992 




1 1 5*8 


C0HEK5 


07 796 


G00DB2 


05*68 


PCHCOH 


0*7 16 


AOK 


I C 7 32 


CKSE T 


1 1*28 


CSCCCA 


1183* 


HDPR T 1 


0*6*0 


PCMJSW 


02*82 


AS I NE 


09*36 


C LOAD 


12*3* 


COAUB 


1 1 760 


Ml P I CK 


10*96 


PGAREA 


06089 


ASTER 


753* 


CLOL T 


0812* 


CCASGN 


I 3*60 


I NCODfc 


02*91 


PH AS E B 


0*200 


I C AC 




CNTR 




OEFC I** 


1*197 


I NOAOR 


1 0932 


PHAS EC 


10000 


B 1 SC T 


C02 1 


C NT 


13191 


OEF IN2 


035*8 


I NPUT2 


C328 7 


PHAZEC 


1*758 


B2CAC 


1 9200 




02*39 


DEFOUT 


03579 


I NSTRN 


12*** 


PHC C AC 


I 88 55 


B2SC T 


C0052 


C ONTU 


1*220 


DELETE 


1 1 6*0 


I NT8UF 


C3628 


PHCSCT 


00026 


B3CAC 


1 9000 


CORE 


1 1 879 


LF ACL) I 


092*6 


I NTRSW 


02*83 


P I CKUP 


02528 


B3H AC 


09 100 


C SODA 


1177* 


CFACC2 


091*6 


IOAODR 


02636 


PRCCS A 


I *600 


B 3SC T 


C C069 


C T VT 


02*89 


EFACC3 


09102 


I OC SAO 


1978 J 


PR I NT 3 


0*5 72 


B*C AO 


1 9069 


C VAC T 


1191* 


DFACC* 


1*28* 


K I L SUB 


02*8* 


PRINT* 


0*668 


B*SCT 


00053 


AC2 


1 3090 


LFACD6 


1*20* 


KLRL SW 


0*033 


PRCCR E 


2*9 7 


B5C AD 


19122 


AC 3 


1 35*6 


D I GAL F 


06*58 


L 1 MTSF 


0*0 1 b 


PR I L I H 


02502 


B5SC T 


00029 




1 359* 


C1GI TS 


09072 


L I MT SP 


025C 7 


P T 1 NSW 


02*75 


B6C AC 


19 151 


OAC 5 


13 7 7* 


Ul"CAC 


0*800 


L 1 NKCR 


1251 8 


PULL I C 


05068 


B6SC T 


0C030 


DACF 


12950 


DI«SCT 


COOO 1 


L I NKDR 


12602 


PUNCH1 


12188 


B 7CAC 


19219 


OAC 


1*9*0 


DMENC I 


12376 


L I NKE R 


12632 


PUNCH2 


I 2260 


B 7HAC 


06088 


DAS 


I 35*0 


CMENC? 


12*2* 


L I NKSF 


1* 796 


RCEC I V 


1*2** 


B 7SC T 


OCOO* 


OAX 


1 3825 


C*ER I A 


121*8 


L I NPR T 


09268 


RE E T RN 


1 09 30 


BBC AC 


1 700 1 




0**08 


IJM ERIC 








R E L CR E 


1 19 39 


89H AO 


1 6500 


OC 


1 38*0 


DMER IN 


12112 


lopolt 


C3857 


WELODG 


1025* 


BAKR 


13212 


DCA2 


13506 


DMES1 1 


117*8 


LOSVMB 


19997 


REHAIL 


10976 


BANAN 


09960 


DOAF 


13392 


0MES21 


1 1980 


LSCDSW 


C2*79 


HEVSCN 


0585* 


BARF2 


12335 


ODAJB 


1 1 7** 


DMFS22 


12028 


LSPRSW 


02*81 


RLOCSW 


07950 


BARF 


122*9 


DO A 


1*868 



I(f5 







162C- 1**3 HONI TOR 


I VdRSIUN 2 


SPS II-C 


PHASE B 






PAGE 57 


CEF1 


11699 


FQDAD 


COOCO 


ICSK 


0055* 


NONUM 


06370 


SAVIN 


1077* 


DEF2 


11707 


EQSCT 


0000* 


ISTAT 


02559 


NOOPP 


12908 


SBHAX 


02673 


DEF3 


11715 


EOSW 


08979 


JHB2 


1 1826 


NOPRT 


13172 


SBOUT 


02**3 


CEF* 


11723 


ERDAC 


1 3 738 


JHB 


11818 


NUT 3 


138*0 


SCAN1 


06358 


0EF5 


11731 


ERLAB 


03 831 


JSTBL 


02*59 


NOTOP 


1 3336 


SCANA 


0617* 


DEF6 


11739 


ERR XX 


0510* 


KATHY 


13072 


NUHB 


02**8 


SCAN 


060*6 


REFEO 


1*275 


ER 


13918 


LABL 


06853 


UHSIX 


1*80* 


SCTX 


13*29 


DEF1N 


03556 


EVl 


C7672 


LBACC 


0B176 


ONE 


063*6 


SECCO 


1179* 


DEFS* 


03603 


EVODO 


02*69 


LBLIH 


20009 


ONEZ 


02586 


SECRD 


0*3*6 


DENUF 


1**98 


F I 


0*656 


LCHAR 


1*983 


OOPS 


C7856 


SEE I M 


1295* 


DENC 


1*856 


F2 


1*96* 


L I H 


03871 


0P3SH 


127*5 


SFA 


03977 


DFACD 


09190 


F3 


09262 


L I HS V 


03882 


OPER 


090*7 


SFLAG 


1*180 


OGMF 


09*60 


F * 


1*32* 


L INKC 


12*88 


OPFIL 


12367 


SIZE 


1037* 


DGM 


1*880 


F5 


1*866 


L1NKC 


125*8 


OTHER 


12067 


SKIP 


11*6* 


DHESl 


11656 


F6 


153*6 


L INK 


03522 


OUT 


02218 


SHODE 


09062 


0HES2 


11912 


F7 


06*70 


LINKS 


139 76 


OVER 


11993 


SMPBfe 


002 35 


DMESA 


11*00 


FAULT 


12139 


LINP 


1*772 


PACK 


0298* 


SPBL 


000*0 


DHESB 


11*2* 


FILL 


1170* 


LNTH2 


00000 


PAGEP 


062 7* 


SPEC 


069*2 


DHESC 


115*0 


FINIS 


l*71C 


LNTH 


02387 


PAGE 


06276 


SPLIT 


1156* 


OHESC 


11620 


FIT 


10586 


L 


02520 


PARTL 


08256 


SPSGM 


02560 


DHESF 


11196 


FLGRH 


0391 C 


L ST AD 


3909 


PCALL 


1*990 


SREL 


0631* 


DMES 


1*928 


FORWU 


0*372 


LUCK 


09552 


PCK 


02365 


STCNT 


02513 


DHESW 


03887 


FOUND 


1**12 


H2CIG 


127 5* 


PCONl 


09516 


STPM 


12195 


DNS 12 


11856 


GAT 


09078 


HAC1 


131*0 


PCONF 


1*760 


SUBO 


0*70* 


0HSB1 


11*36 


GEET 


09210 


HAC2 


1*952 


PCON 


09*60 


SUB2 


15012 


0HSB2 


11519 


GET 


07190 


MACR2 


12756 


PCTR 


152 3* 


SU63 


09310 


0HSR2 


1251* 


GETT 


09166 


MACRO 


1*8 32 


POSAF 


1 * 7* 8 


SUB* 


1*372 


o«sv 


090*7 


GIT 


09122 


HAP 


11383 


PCSA 


09572 


SUB5 


1*91* 


OOCON 


09*60 


GO I 


0**** 


HARK1 


05328 


PFIL 


12383 


SUB* 


1539* 


OODSF 


1*72* 


GOAHD 


1**32 


MAX 


13835 


PGCON 


0*293 


SUBC 


12*6* 


DDCS 


09352 


GOCL 


12296 


HBUK1 


12733 


PGNUM 


02**7 


SUBO 


0*516 


OOL 


06851 


GONOM 


13372 


HBUK2 


12739 


PKMOC 


3932 


SUB1N 


035** 


DORG 


13736 


GOOOB 


0559* 


HBUK3 


127*1 


PLACE 


09033 


SUBNO 


02523 


DO 


10056 


GOON 


1*300 


MESS2 


07991 


PROS 


13528 


SU8SM 


03612 


DOTCD 


1*806 


GO 


129** 


HIOCS 


1270* 


PRINT 


12100 


SVAOO 


12T52 


DSAF 


12756 


GOT IT 


08376 


MIO 


13950 


PRTAC 


12172 


TAP IN 


02**0 


OSA 


1*8** 


HCL I H 


02507 


M00E1 


126*4 


OF IL 


12399 


TBI I 


05558 


DSBF 


09268 


HDOEF 


0**2 7 ■ 


MOOE 


12616 


RCTAB 


12*** 


TBL2 


05*32 


DSO 


1*78* 


HDPRT 


0**31 


MODOC 


1*022 


RCTR 


079*6 


TEMPR 


02571 


osc 


1*516 


HEAD 


0*002 


MOMAD 


00*15 


RDCIM 


102*0 


TEMP 


02716 


DSONB 


13332 


HED 


03886 


MOML 


160*1 


REG 


1325* 


TEST 


09015 


DSS 


13516 


HI ADD 


02518 


MOSCT 


16000 


RELStt 


02*76 


TLU 


0537* 


DTR 


12730 


HUB1 


1115* 


MOVE 


0*53* 


RENU 


0**5* 


TRANS 


1303* 


DUMP 1 


03536 


HUB 2 


11192 


MRM 


12.7*3 


RLCSA 


126*0 


TRA 


1*820 


CUP 


11196 


HUB 


11132 


MTRA 


13636 


RLOP 


0*808 


TROSA 


12928 


DVAD 


10060 


IC 


0389* 


MURI 


02631 


RM ARK 


00*21 


TRMMM 


07336 


DVLCF 


09*16 


I DENT 


1533* 


NAST 


05220 


RMOP 


0*928 


TRREC 


1*156 


OVLG 


1*692 


I NO 


10375 


NE 


11320 


RMRK 


02575 


TWO 


0*356 


OVLP 


09772 


I NI T I 


0*188 


NEWIL 


110** 


RM 


13912 


TYPE 


09023 


OVSF 


1003* 


INKRH 


025*5 


NINES 


1*798 


RSCAN 


057** 


TVPIN 


02*52 


DVSfcft 


10036 


INPUT 


02793 


NHOAL 


090*1 


RSIN 


10*6* 


USED 


113*0 


0VSM2 


10037 


IOCAL 


0071* 


N03 


1*78* 


RSTRF 


10232 


WA 


12*35 


OVTR 


100*8 


I OCT 


005** 


NOADO 


13*80 


RSTR 


1*90* 


X 


0*036 


END 


118*5 


I OPT 


00512 


NOCAR 


1*9*2 


SI 


0*97* 


ZEPO 


02900 


E* 


13660 


I0R6C 


00520 


NOISE 


02521 


SAVEF 


10510 


ZEROS 


15337 


EMT 


0*572 


IQtT 


005*5 


NONEX 


00*57 


SAVE 


1*91* 


ZILCH 


15322 



162C-1443 PON I TOR I VERSION 2 SPS II-O PHASE 8 



PAGE 58 



SHFACO 1S998 STACKR 

SEC INS 10352 STCMA1 

SETFRM 11296 STCHAR 

SIMPLE 14774 STKLE * 

SPQFLD 132*8 STNUCO 

SSTCAO 18908 STPCSK 

SSTSCT 00035 STPRSW 

END Of ONE ASSEMBLY. 



187 



162C-1443 MONITOR I VERSION 2 SPS II-C SUBROUTINE SUPERVISOR PAGfc 1 



00030 


COMMON 


DS 


I 


,A01 




0C4C1 




1 




00040 


RM ARK 


OS 




,421 . 


ADR CF RECORD MARK 


00421 




C 




CCJ050 


REL INC 


US 




,434 , , 


AOR CF RELOCATION INCREMENT 


00434 









00060 


SYSCAL 


OS 




,4 75 




00475 









00070 


IORBC 


OS 




,520 




00520 









00080 


IORT 


DS 




,565 




00565 









00090 


IOGT 


OS 




,566 




00566 









00100 


IOCAL 


DS 




,716 




00716 









00 no 


MONCAL 


OS 




,796 




00796 









00120 


BASE 


DS 




*16C0 , 


SCRATCH SEC AOR FOR SUBRS 


01600 









00130 


PCK 


OSB 


5 


,7 ,2365 




02365 




5 


X 7 


00140 


PLUSL 


OS 


2 


, PCK* 3 3 




02398 




2 




00150 


FOR EQ 


OS 




,7280 , 


START CF AREA COMM WITH FORTRAN LOR 


07280 









00160 


SUBVEC 


OSB 


5 


,30 ,PCK - 


150 


02215 




5 


X 30 


00170 


MOD 


OSS 


12CC0 


,8000 , 


AREA FCR SUBR READ IN 


O8000 




12000 




00180 


BUF 


DS 




,M0D-1 




07999 









00190 


RM 1 


DS 


,02210 






02210 









00200 


RM2 


DS 


,02215 






02215 









00210 


SSLOC 


DS 




, 1 7024 , 


LUC CF SUBR SUPER ON DISK 


17024 









00220 




DORG 


24C2 






024C2 








002 30 


XEQ 


TFM 


IORT 


,•♦23 ,, 


RO SUBR FM SCTC 


02402 


16 


C0565 


-2425 


00240 




B 


IOGT 


, OOOAP ,7 




02414 


49 


00566 


-2608 


00250 




A 


0DAP*5 


.SECLST ,7, 


AUJ FILE ADR 


02426 


21 


C2598 


-2674 


00260 




AM 


•-1 


,3 ,, 


PNT TO SEC CNT OF NEXT SUBR 


02438 


11 


02437 


-0003 


00270 




TO 


0CDAP+7 


,DDDAP*12 , t 


PERMIT HIGH CORE TO FURN AOR 


02450 


25 


C2*15 


02620 


00280 


CHECK 


AM 


CHECK*35 


, 1 ,, 


ADJ I STAT REFERENCE 


02462 


11 


02497 


-COOl 


0Q29O 




TFM 


1210 


,480 , , 


ELIMINATE A SEEK IN IORT 


02474 


16 


01210 


-0480 


00300 




BD 


XEQ 


» I STAT M ,7, 


BR IF ANOTHER SUBR TO BE PROCESSED 


02486 


43 


C2402 


-2*41 


00310 




TFM 


439 


#75 




02498 


16 


C0439 


-0075 


00320 




SF 


468 




PREPARE TO LOAD OBJECT PROGRAM 


02510 


32 


00468 


CCCOO 


00330 




TF 


434 


JrESTORM*!! 


RESTORE RELOCATION INCREMENT 


02522 


2* 


€0434 


02633 


00340 




CF 


427 






02534 


33 


C0427 


CO 000 


00350 




TFM 


XEQ*23 


, OOOAR 




02546 


I* 


02425 


-2585 


00360 


EXIT 


87 


XEQ 






02558 


49 


02402 




00370 


OOAR 


OSS 


20 


,, HOLDS DDA 


FOR OBJECT PROG 


02565 




20 




00380 


OOOAR 


DSC 


2 


,-22 




02585 




2 




00390 




2K 
OSA 


OOAR 






02591 




5 


X I 














02591 




-25*5 




00400 




DC 








02592 




1 




00410 


OOAP 


DSC 


1 


,0 ,, 


RO SUBRS RECO FROM SCRATCH 


02593 




I 




00420 






OSA 


BASE 






02598 




5 


X I 














02598 




-1600 




00430 




OC 


3 


,999 




02601 




3 








R99 
















00440 




OSA 


99999 






02*0* 




5 


X I 














02*0* 




R9999 




00450 




OC 


I 






02*07 




1 




00460 


OOOAP 


DSC 


2 


,02 




02*0* 




2 





02 



10434 STTYSM 02*71 TBLENO 09045 TVPINS 1277* 

13298 SUBOAO 04808 TESTAO 09028 VACANT 040*0 

13178 SUBENT 09038 THINGS 02420 Z6R0NE 13312 

03904 SUBOUT 03588 TROAT A 10794 

1147* SVMTAO 02*41 TRNUM 1 074** 

0247O SVMT8L 16003 TRNUM 8 07382 

02472 SYSCAL 00475 TVfNSW 02473 



!8« 



162C-1443 MONITOR I VERSION 2 SPS ll-C SUBROUTINE SUPERVISOR 



PAGE 



00470 


OS A 


CCAP 


tO 






02614 


5 


X 


2 














C2614 


-2593 


















02619 


-CCOC 






00480 


DC 


1 








02620 


1 






0Q49Q REST0R 


OSS 


2C 


,, FOR INFO LOST DURING LOADG OF 


SUBRS 


02621 


20 






Q05C0 tSTATM 


OSC 


30 


,0 ,, IN01CATCRS FCR RfcQO SUBRS 


02641 


30 








oooccocccccooooooooococcocccoo 














00510 


UAC 


ItC 








026 7 3 


1 


* 


2 


005*0 




DORC 


•- 1 


A i t f k ccr icT AT 
t ALIGN )CL 1)1 M 


^FOR 




02672 








00530 sect ST 


OSB 


3 


,30 ,, LIST OF SEC LNGTH 






02674 


3 


X \ 


30 


00540 


OORG 


t-50 








0271 1 








00*50 DDASC 


DC 


1 


iO 






0271 1 


I 






00560 


DC 


5 


, 19663 






02716 


5 








J9663 
















00570 


DC 


3 


, I 






C2 7 19 


3 








-01 


















00580 


nsA 


NA3 








02724 


5 


X 


1 














02724 


-7 300 






00590 


DC 


1 








02725 


I 






00600 OCOASC 


DSC 


2 


,22 t, FUR SYS CO^M SEC 






02726 


2 








22 


















00610 


DSA 


CDASC 








02732 


5 


x 


I 














02 732 


-2711 






00620 


oc 


I 








C273* " 


1 








DC 15 


,0,, SIMULATE DUA ,0,0. 001, HA 














00640 OCA 


use 


I 


,0 ,, Rp OBJECT SECT 1 






02734 


1 






00650 




DC 


5 


C 






02734 


5 








-ooco 
















00660 


DC 


3 


, I 






2 7 1% i 


3 








-01 


















006 70 


CSA 


WA 








02747 


5 


X 


I 














0274 7 


- 7400 






00680 


DC 


I 








0274a 


1 






00690 OCA? 


CSC 


I 


,0 , , RU Dlf 






02 749 


I 






00 7C0 




DC 


5 


,4W0B 






02 754 


5 








-480< 


3 
















00710 


nc 


3 


,6 






02 75 7 


3 








-06 


















00720 


DSA 


WA2 








02 762 


5 


X 


I 














C<?76<! 


-2934 






00730 


DC 


1 








0276 V 


1 






00740 DCAW 


DC 


I 


,0 ,, URT SLHR ON DISK 






02764 


I 







18!) 



162C- 1443 MONI TOR I VERSION 2 SPS I I - C SUBRCUTINE SUPERVISOR PAGE 3 



00750 


CSA 


BASE 






0276S 




5 


X l 












02769 




T-16C0 




00760 


OC 


3 


,0 




C27 72 




3 






-00 
















00770 


DSA 


HOC 






02 77 7 




5 


x l 












C2777 




-8CC0 




00780 


DC 


1 


i ' 




0277B 




1 




00790 OCARS 


OS 


2C 


.00 A , , 


, RU SLBH FCR MODIFICATION 


02734 




20 




00800 CCCA 


DSC 


2 


t22 




C2 7 79 




2 






22 
















00810 


DSA 


DC A 






02 765 




5 


X 1 












02785) 




-2734 




00820 


OC 


I 






02786 




I 




00830 CCCA2 


DSC 


2 


,22 




02787 




2 






22 
















00840 


DSA 


CDA2 






C2793 




5 


x ..' "'''v 












02793 




-2749 




00850 


OC 


I 


» ' 




02 794 




1 




00860 DDDARS 


DSC 


2 


t22 




02795 




2 






22 
















00870 


OSA 


DDARS 






02801 




5 


X 1 












028C1 




-2734 




00880 


OC 
* 


i 


1 1 




02802 




1 




00890 OCOAM 


DSC 


2 


.02 




028G3 




2 






02 
















00900 


OSA 


DOAta 






02809 




5 


X 1 












02809 




-2764 




00910 


DC 


1 


t* 




02810 




1 




00920 NCCOA 


OSA 


MA 






02815 




5 


X 1 












02815 




-7600 




00930 


DC 


3 


.04« 




02818 




3 






USEO IN XEQ 


PORTION OF 


PGM MHEN NCN DISK INPUT 










00950 NODISK 


SF 


469 






02820 


32 


00469 


ccooo 


00960 


TR 


416 


.RES TOR 




02832 


31 


0C616 


02621 


00970 


TR 


428 


.REST OR* 6 




02864 


31 


0C428 


02627 


00980 


TFM 


XEQ*23 


•OODAR 




02856 


16 


02425 


-2585 


00990 


87 


XEQ 






02868 


69 


02402 




01000 


DC 
t 


1 






02875 




I 




010 10 NOOOA 


OSC 


1 


tl 




02876 




1 




01020 


1 

DC 


5 


#19783 




02881 




5 






J9783 















I9U 



162C-1443 MONITOR I VERSION 2 SPS 11-0 SUBROUTINE SUPERVISOR 



PAGE 



4 



10 30 




DC 


3 , 


r 3 






02664 












-03 


















01040 




DC 


6 , 


,Q* 






02890 




6 








-occo* 
















1045 


DRCOOE 


TD 


DDA, 402 








02892 


25 


C2 734 


00402 


01046 




07 


ROFRST 








02904 


4S 


C 3 1 26 




01 050 


MA2 


nORG 


2934 


•600 CHAR 


MA FOR 


DIM ENTRIES CVERLAVG PGP 


29 34 








1060 


SUPER 


TR 


DDAR 


,402 


t * 


SAVE OBJ PRCG 01* ENTRY 


02934 


3 1 


02 565 


CG402 


01070 




TR 


FOREQ 


t 402 


t » 


SAVE FOR FORTRAN AND NOOISK INPUT 


2946 


3 1 


C 7280 




1060 




TF 


OOA *5 


t407 


» , 


STORE CBJ PROG DISK ADR 


02958 


26 


02 739 


00407 


01090 




TD 


DDA 


,402 






02970 


25 


C2734 


C0402 


1 100 




TR 


RE S TOR 


,416 


i t 


SAVE ENTRY AOR 


02982 


31 


G2621 


CC416 


OHIO 




TFM 


10RT 


,•♦23 


t » 


RO SYS COPP SEC TU WA3 


02994 


16 


00565 


-301 7 


01120 







10GT 


,00DASC 


i7 




C3006 


49 


C0566 


-2 12b 


01130 




TD 


IOD 


,428 






3016 


25 


C3C38 


0C428 


01140 




CM 


IOD 


i03 


,71011 




0303C 


14 


C3C38 


-CO-L 


01150 


100 


OS 




.•-3 




I /O DIGIT INCtCATOR 


03036 









01 160 




6H 


ORCOOE 






BR IF PRCG ON DISK 


03042 


46 


C2892 


01100 


01 170 




00 


FOR EX 


,MA3«75 






03054 


4 3 


C 33 18 


C7375 


01180 




no 


FOR EX 


, MA 3* 74 






03066 


43 


C3316 


C7374 


01190 




Tf)M 


DSKSW 


t-1 


t i 


SCT FOR NUN DISK INPUT 


03076 


15 


05980 


COOOJ 


01200 




TFM 


ROFRST»23 


♦N00DA-4 






03C90 


16 


03149 


-2«ll 


01210 




BL 


RD FR ST 




* » 


BR IF PRCG CN CARDS 


C 3102 


47 


C3126 


G 1300 


01220 




TDM 


ND00A»2 


,2 






03114 


15 


C2817 


CCC02 


01230 


ROFRST 


TFM 


IORT 


,•♦23 




READ FIRST RECORD OF OBJECT PROG 


03126 


16 


0C565 


-3149 


01240 




H 


10GT 


.OODA 


,7 




03136 


4* 


C0566 


-2779 


1250 






SAVE CARD 


SEQ NO 


IF NCN OISK INPUT (NCI) 










01260 




ONF 


CAP 


,DSKSk 






03150 


44 


C321C 


C5980 


01270 




SF 


HA ♦ 75 








03162 


3/ 


C74 75 


CCCOO 


01260 




TF 


taA3*98 


•MA* 79 






C 3174 


26 


C7398 


74 79 


01290 




TF* 


IORT 


,•♦23 






03166 


16 


C0565 


-3209 


01300 




H 


10RBC 


.CDDASC 


,7 




03198 


49 


C0520 


-2 726 


01310 




CALC SWE OF UBJECT 


CORE. HIGHEST ADR AVAIL IN CAPM8 










01320 


CAP 


AM 


C AP ♦ 1 5 


,20 


tlO, 


STEP HI ADCRESS BY 20000 


0J21G 


11 


C3225 


OOOKO 


01330 




DC 


2 




.•-3 




032lt 




2 




01340 




TR 


01SS9 


♦ •-5 


• 23, 


HOVfc RECCRC INTO HI ADCRESS 


03222 


31 


-J999 


C321 7 


01350 




BNR 


CAP 


,0 




BR IF NC MR AP AROUND 


GJ214 


4> 


CJ210 


OCOuO 


01360 




TF 


RE DICE ♦ 1 1 


,cap»i e 




SAVE CCINT OF OBJECT CORE CAPACITY 


03246 


2t 


C6C05 


C3228 






C 


SPSTST 


,hAFM3 






3256 


24 


C6464 


C741 3 


01360 




RE 


RD cu 




, , 


BR IF CARU IMAGE SPS PROGRAM 


03770 


46 


C3430 


C1200 


01390 




SF 


SPSTST-5 








03282 


32 


C6459 


OCOOO 


01400 




C 


SPSTST 


,MAF^5 






03294 


24 


06464 


C7405 


0141U 




HE 


CORIM 






BR IF CORE IMAGE SPS PROGRAM 


3306 


46 


C3358 


C1200 


C1420 


FOR EX 


CF 


429 






IORT HOUSKEEP 


3316 


3 J 


C0429 


CCUOO 


01430 




TFM 


w*t 


,•♦19 


, , 


CALL LINK FOR FOR (RAN LOAOER 


033 JO 


16 


CC565 


-3349 


U1440 




n 


IOCAL 


,22001 


,610 




03342 


49 


CU716 


2K0-1 


01450 




CSC 


3 


, 38* 






3354 




3 




01460 


COR IK 


38' 

TH 


MA2«WA 








03356 


31 


C2934 


C7400 


01470 




TF 


WA*70,RMS 








C3 370 


26 


C7470 


06456 


01480 




TR 


MA ♦ 6 , MA 2 








03382 


31 


C7408 


C2934 


01490 




AM 


00AR*5 t It 


10 






03394 


11 


C2570 


CCO- I 


01500 




SM 


DDAR *8 » 1 » 


10 






C3406 


U 


C2573 


COO- I 


01510 




AM 


DDARMl.l 


,10 






34 18 


11 


C2576 


OCO-l 


01520 


ROC TV 


ONF 


#♦24 


,MAF*23 


1 1 


AD J FOR RELCCATICN INCREPfcNT AS REO 


34 30 


44 


03454 


C7423 



till 



01530 
01540 
01550 
01560 
01570 
01580 
Q1590 
01600 
01610 
01620 
01630 
01640 
01650 

1660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 

01 BOO 
01810 
01820 
01830 
01840 
01850 
01860 
01670 
01880 
01690 
01900 
01910 
01920 
01990 
01940 
01950 
01960 
01970 
01960 
01990 
02000 
02010 
02020 
01010 
02040 
02050 
02060 
02070 
02060 



iiitii 



NOISY 
MANTL 



SUBSET 
*••••• 



•••••• 

CKSFT 



RODIM 
•••••• 



162C-1443 MONITOR I VERSION 2 SPS II-C SUBROUTINE SUPERVISOR 



BR IF SUBSET IS AOJ AT EXECUTE T IME 



A 


PICKUP 


,REL INC 






SAVE AREA 428-440, 


CLR 1 


TO 


441 


,421 




TR 


RES TOR ♦& 


,426 




CF 


RESTORE 






BNF 


NOISY 


,77*WA3 




BNF 


MANTL 


,79^WA3 




BNF 


SUBSET 


, al*MA3 


, » 


B7 


CKSET 






TD 


MA* 36 


, 77* MA 3 




R7 


PARAM 






TU 


MA + 35 


, 79* MA 3 


• i 


TO 


MA* 34 


,78* MA 3 




SF 


MA04 






07 


PARAM* I? 






TU 


MA08 


*8UWA3 






SET SECTOR 


AOR FOR 


REQO 




03 AFP • 4808 ,02 VI ■ < 




A NO CONTROL 


TYPEOUT 




BO 


• ♦44 


,WA*3B 


» t 


AM 


0DA2>5 


,18 




TCM 


DDA2»8 


, 1 




B7 


RD DIM 







INSERT NCISE DIGIT 



INSERTS UNITS DIGIT OF LENGTH 
INSERT TENS DIG INCL FLAG 



INSERT SUB SET 10 
IK SET 

• 4814 ,01 FXL ■ 4820 tOO OIV • 4626 



Art IF NOT SCFT OIV SET , 00 



CM 

BH 

TFM 

BE 

CM 

BE 

TFM 

B7 

AM 

TFM 

B 



DELETE 



CM 

BH 

TFM 

CM 

BL 

TFM 

TO 

TO 

TF 

BNR 

TR 

CM 

TFM 

BE 

BH 

BNR 

TOM 

SM 

TFM 

B 

RCTV 



MA*38 
RO DIM 
DDA 2* 5 
RD DIM 
MA* 35 
• ♦32 
MA08 
RO DIM 
DDA2*5 
IORT 
IOGT 
INSIST THAT 



tlO 



BR IF AFP SET (03) 
BR IP VL SET (02) 



FORCE SET 02 
READ REQO OIM ENTRIES 



MA* 35 

• ♦24 
MA* 35 
HA* 35 

• ♦24 
HA* 35 



,6 

,•♦23 

OOOA 2 

MANTISSA LENGTH MEET SPECIFICATIONS 



.02 



,02 
,45 



.45 



.10 



• 10 

• 10 



PCK04,MA08,,, 
PCK*36 ,WA06 
PCK03 ,L 
DELETE » MA 2* 19 
MA 2 ♦600, MA 2 
MA 2 +15 ,01 
RM1 ,-33 
FVLAFP 
VL AFP 

DELETE .ISTAT-26 
SUBNO , 1 
SV ,5 
CAPCK-2,S0FT 
FVLAFP ,60 SET M 



SUBROUTINE SET I.D. 
,, NOISE DIGIT FOR OBJ PGM 
,. ♦L FOR OBJ PGM 



DECOOE SET 

I NO LCC OF RM AT END OF ALPHA 



SET TO 01 FOR SOFT DIV SET 



03442 


21 


C7443 


CC4 34 


03454 


25 


0044 1 


0C421 


03466 


11 


C2627 


00426 


C34 78 


11 


C2626 


ccooo 


03490 


44 


01534 


C7377 


035C2 


44 


03554 


C7379 


03514 


44 


C3598 


07361 


C3526 


49 


C3610 




03534 


25 


C7436 


C7377 


03546 


49 


03502 




3554 


25 


C7435 


07379 


03566 


25 


17434 


C7 378 


03578 


32 


CM 34 


CCCOO 


03590 


49 


03514 




03598 


25 


C7416 


■0 7161. 


03610 


43 


C1654 


C7438 


03622 


11 


C2754 


-C018 


03634 


15 


C2757 


CCCOl 


03646 


49 


03758 




03654 


14 


C7436 


000-2 


C3666 


46 


C17S8 


CI 100 


01678 


16 


C2734 


-4814 


01690 


46 


03731 


01200 


03702 


14 


C7415 


000-6 


01714 


46 


03746 


C1200 


01726 


16 


07436 


CCO- 2 


01718 


4* 


01756 




01746 


U 


C2754 


-C006 


01758 


16 


00365 


-1761 


01770 


49 


00566 


-2767 


01762 


14 


C7413 


000-2 


0S794 


46 


CI616 


01100 


03106 


16 


07433 


CCO-2 


01616 


14 


07435 


000M5 


01610 


47 


C1634 


01300 


01842 


16 


07435 


00OM5 


03654 


25 


02399 


07436 


01666 


25 


02401 


07436 


01676 


26 


02396 


07433 


03690 


45 


04022 


02933 


03902 


11 


03534 


02934 


03914 


14 


02949 


000-1 


01926 


16 


02210 


-003L 


03936 


46 


04270 


01200 


01930 


46 


04102 


01100 


03962 


45 


04022 


07446 


03974 


IS 


04557 


00001 


03966 


12 


05740 


-0003 


03996 


16 


03696 


-6966 


06010 


49 


04270 


06767 


04021 


34 


OCOOO 


00102 



192 



1620-14*3 MONITOR J VERSION 2 SPS I I - C SUBROUTINE SUPERVISOR 



PAGE 



6 



02090 




MA TV 


DELE TE- 1 , 




6, 


TYPE REASON FOR TERMINATION 


4 1 4 


39 


0402 J 


00 100 


02100 




RCTY 










0404t> 


34 


CCCOO 


00 102 


0?l 10 




MATY 


DFATEO , 






TYPE TE RM I NAT ICN 


0405b 


39 


C6 74 1 


CC 100 


Q212G 




RCTY 










4 7 C 


34 


CCOOO 


CC 102 


02 1 30 




TDM 


SYSCAL , 


4 






0408 2 


1 5 


004 75 


CC004 


02 1 AO 




H7 


MONCAL 








04094 


49 


CO 796 




021 50 




CREATE AOC VECTOR FOR 


ADJUSTMENT CF P ANC C OPERANDS 










2 1 60 


VI AFP 


TFM 


RM 1 , 


-147 


» 


IND LCC CF RM AT ENC OF ALPHA 


C4 IC2 


1 6 


02210 


- C 1 4 P 


02170 




SM 


F VI AFP* 35 


98 








[ 2 


04 305 


- 0Q9H 


02180 




A 


IOC 115 


L 


t 


INSERT *L 


04 126 


2 1 


06 315 


C 74 35 


q 2 1 9Q 




A 


LOC 115*50, 


L 






C 4 t 3b 


2 1 


06 365 


C 74 35 


2200 




S 


LOC 1 1 5* 10 


L 


• 


I NSE « T - L 


U4 I 5C 


2 2 


C 6 32 5 


74 35 


2210 




AM 


LOC 1 1 5* 10 


99999 






it I 


1 1 


06 325 


R 9 999 


02220 




AM 


1,00 1 15* 10 


1 










06 325 


- COO 1 






TF 


LOC 1 15*60 


LOCI 1 5* 10 










06375 


06 32 5 






A 


L 


L 


i 


I N SE R T ♦ 2 L 






C 7 4 3 5 


C 74 3 5 






A 


LOC 115*20 


L 






042 IC 


^ J 




074 35 






A 


LOC 115*70 


L 






0422 2 


2 i 


C6385 


74 35 






TF 


LOC 115*30 


LOC115M0 


i 


INSERT -2L 


042 34 


2t 


C6345 


06 32 5 


02280 




A 


L0C115O0 


LOCI 1 5*30 








2 I 


06 34 5 


06 34 5 


02290 




TF 


LOC 115*B0 


LOC I 1 5*30 






04 2 58 


26 


06395 


06 34 S 


2 300 


F VL AF P 


S 


• ♦35 


PICKUP 






04 2 70 


2 2 


C 4 3 5 


C 744 3 






HNH 


• ♦24 








nit 3 of 


4 7 


C 4 3 6 


01100 


2 320 




AM 


P ICKUP 


SECLST-12 




MUVE S PICK |F CHJ PGM SHCRT 




* ' 




- 2662 


2 3 3u 




TF 


DDDAP* I I 


PICKUP 






r L.ir*, 




r 




u2 340 




TF 


SUCi NO- ? 


mA* 38 


, 


STORE SET NC 


04 3 1tt 


It 






02 350 




07 


RD SUB 








04 3 3ij 


49 


C45 10 




02360 


F INAL 


QNR 


CK SUB 


I STAT-30 


7, 


BR IF ANOTHER SUBR RE QC 


C 4 3 3 b 


4 5 


C4 358 


- 7444 


02370 


IND 


OS 








ISTAT PNTR 


04 35^ 









2 380 




87 


CAP CK 
















02390 


CKSUB 


HD 


RD SUB 


IND 


1 I t 


HR IF SOBR IS USED 


C4 35a 


4 3 


C4510 


0434R 


O240Q 




AM 


IND 


I 


10 




U 4 3 7 


I 1 


C4349 


CCC- 1 


02410 




AM 


SUB NO 


1 


10 




G4 36<r 


1 1 






2420 




AM 


DIM, 10,610 






r 


\ ) 






02*30 




AM 


SV*5 


5 






C 4 4 C 6 


1 I 


r 




2440 


S TPSV 


SM 


SV 


5 


10, 


AO J SOBVEC POINTER 


044 1b 


1 2 




r r t 


0245U 




SM 


NF 


I 


10 




044 3C 


1 2 


C44 38 


CCG- 


02460 


NE 


DC 


2 


01 


• -3, 


NO OF ISTAI ENT TO CK FCR SUBR 


U44 3 b 




2 




02470 




- 1 
BM 


CK SUB 








0444 t 


4 6 






02480 


ADJC IM 


AM 


IM 


20 


,10, 


AUJ FOR NE OF NtXT 01* ENTRY 


04454 


I I 


r 7 7 
044 7 


C C OK 


02490 




TU 


NE 


MA 2 ♦ 1 8 


7, 


STORE NE 


04466 


2 5 


C44 )B 


- 2952 


02500 


DIM 


DS 




• 




POINTER FOR NE IN CIM ENTRIES 


C44 7 7 




r 7 «! 




025 10 




TFM 


SV*5 


MOD* 7 






J 4 4 7 b 


I 6 


? « 




02520 




BO 


F INAL 


NE 






U4490 


4 3 


04 3 38 


C4 4 3d 


02530 




B 7 


AD J DIM 






SKIP BLANK CIP r NT RY 


G45C/ 


4^ 


C4454 




02540 


RDSUB 


TF 


RD SU0*35 


DIM 






04510 


26 


C4545 


04477 


02550 




SM 


RD SUB*35 


IB 






04 52^ 


1 2 


04 54 5 


- C I 8 






TR 


DDARS 






MuVfc UIM ENTOV TC CCA FCR RUG SURR 










02570 




CM 


UDARS*17 






CK SLBR NO 


04546 


14 


C2 75 i 


-CCOO 


02580 


SUBNQ 


DS 


4 


• 




Sfc T NO AND SUbR NL 


G4'>5 7 




4 




02590 




ONE 


DELE TE 








4 5 5 it 


4 7 


04022 


C 1200 


2600 




AM 


LOC 115*40 






AOO CORES US E ^Y PKtVlLiUS SUBR 


045 70 


I I 


C63S5 


-COOO 


02610 


P ICKAD 


DS 




• 




NUM HAS CORE.RFCL BY LAST SUBR 


04->ti I 









02620 




A 


LUC 115*50 


PICKAD 




INSERT PICK *l 


04582 


21 


C6365 


C4581 


02630 




A 


LOC 1 15*60 


PICKAD 




INSERT PICK -L 


C4594 


2 I 


C6 3 75 


C458 1 



162C- 1443 MONITOR I VERSIUN 2 SPS I I - C SUBROUTINE SUPERVISOR 



02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02 790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
32960 
02970 
02980 
02990 
03000 
3010 
03020 
03030 
30*0 
030S0 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
3180 
03190 



MOUIFY 
NEW CD 
CARD 

NXTINO 
PNTR 



NOTRM 
INST 

SE TP 
SMPQ 



AOJ 

CTtPNT 



OCK 



A 


LOC 115* 70 


,PICKAC 




INSERT PICK *2L 


04^06 


2 I 


063U5 


04581 


A 


LOC 115*80 


.PICKAD 




INSERT PICK -2L 


U46 I b 


2 I 


06395 


04581 


TF 


PKLP 


,CDAPS*13 




STORE CORES USED OY SUBR 


.04630 


?6 


05653 


C2747 


SET PICKAD 


TO TENS COMPLEMENT OF CCRES USFO 1>Y THIS SUBR 










TF 


PICKAO 


, DDAR S* I 3 






04*4? 


26 


C4 5«l 


02 74 7 


SF 


P ICKAO 








04654 


32 


C4581 


ocooo 


AM 


PICKAD 


, 99999 






04666 


I I 


04501 


R9999 


AM 


P ICKAD 


,1 






046 7b 


1 1 


C4581 


-C001 


TFM 


D0ARS*13 


,MOD 




PUT WORK ARFA CORE ACK INTO DDARS 


04690 


lb 


C2 74 7 


-8000 


TFM 


IQRT 


,•♦23 




RE AO IN SUBROUTINES 


G47C2 


16 


00565 


-4725 


B 


IOGT 


, DDDAR S 


,7 




04714 


49 


0Q566 


- 2 795 


TFM 


IORT 


,•♦23 






04726 


16 


00565 


-4 749 


B 


554 


♦DDDAM 


,7, 


PRE SEEK 


0473b 


49 


C0554 


-2803 


TDM 


SET P*25 


• I 




DISABLE MUDIFCTN 


04750 


15 


04943 


OCOOl 


TDM 


M0D*5 


,-2 




ASHCAN DS A CF EACH SUBR 


04762 


1 5 


08005 


COOOK 


TFM 


CARD 


,BUF*6 


* , 


SET TO FIRST INDICATOR DIGIT 


04774 


16 


C4797 


-8005 


TFM 


PNTR 


• CARD 




SET PNTR TC FIRST INC ON NfcW CARC 


04786 


16 


C4821 


-4797 


DS 








ADR CF FIRST INO FCR NEXT CARC 


04797 









AM 


CARD 


, 75 


,1C, 


AD J ADR OF NEXT CARD 


0479b 


11 


04797 


CC0P5 


DNR 


NOT RM 


,BUF*6 


,7 , 


CK INU CCDE FOR RM 


04810 


45 


04b62 


-80Q5 


US 








POINTS TC SUBR POSITION OF INTEREST 


04b2l 









BNF 


RM 


» PN TR 


ill, 


BK IF BREAK IN SECUENCE 


04822 


44 


C4842 


U402J 


B7 


NEw CD 






OR IF NEM CARC REQUIRED 


U4834 


49 


C4786 




AM 


PNTR 


,6 


,10, 


AUJ FOR NEXT I NO OlGIT 


04842 


I 1 


04821 


000-6 


07 


PNTR-ll 








04854 


4 9 


04810 




BR TU ROUTINE TO PROCESS 


DATA PER INGICATCR DIGIT 










TD 


• ♦17 


, PNTR 


,11 , 


INSERT IND CODE 


04862 


25 


C4879 


0482J 


B7 


L0CU5*5 




,6, 


BR AS I NUl C AT EC 


04874 


49 


C632- 




AM 


PNTR 


,2 


,10, 


AD J FCR LENGTH OF INSTRUCTCN X 


04802 


11 


C4B21 


000-2 


TF 


LNG 


,PNTR 


»ll , 


STORE LENGTH 


04894 


26 


C5227 


0482J 


AM 


PNTR 


, 1 


,10, 


AD J FOR P CPER HI ORDER DIGIT 


04906 


11 


04821 


OCO-l 


AM 


PNTR 


,2 






04918 


11 


04821 


-CO 02 


TDM 


SMPQ 


,-l 


, , 


SfcT TO IND P OPER MOCIFCTN 


04930 


15 


C4 940 


OOOOJ 


OS 


1 


, — 1 






04940 




1 




NOP 


AD J 


,CTL PNT 


,11 , 


BR IF ELG1BLE FOR MODIFICATION 


04942 


41 


04974 


049BN 


AM 


PNTR 


,10 






04954 


11 


C4821 


-0010 


B7 


LNG CK 






04966 


49 


05218 




BO 


• ♦2C 


t 




BR IF MCD OF P FIELD REQC 


04974 


43 


04994 


OCOOO 


OS 


5 


»• 




POINTER FOR SUBR MODIFICATION CONST 


04985 




5 




b 


U CK 








04986 


49 


C5102 


00000 


DORG 


• -4 


, INO FOR 


INDIRECT ADR CONOTN 


04993 








SF 


PNTR 


t 


,6, 


SET FLAG TO DEFINE FIELD 


04994 


32 


0482 J 


OCCOO 


AM 


PNTR 


,4 


,10, 


AOJ FOR LOW END GF FIELD 


050C6 


11 


04821 


C00-n4 


TD 


INO A 


,PNTR 


tilt 


SAVE IND ADR CCNO OF FIELD 


05018 


25 


04993 


0482 J 


CF 


PNTR 




,6, 


REMOVE ANY 1A FLAG 


05030 


33 


C482 J 


00000 


TD 


• ♦22 


• C TLPNT 


,11, 


INSERT CODE FOR MOC ADJUST 


05042 


25 


05064 


0498N 


A 


PNTR 


.LOCI 15*40,6, 


ADD PROPER VALUEILS ♦PICK) 


05054 


21 


0482J 


06355 


BNF 


• ♦24 


1 1 NO A 




WILL PRESERVE NEGATIVE RESULT 


05066 


44 


05090 


04993 


SF 


PNTR 


* 


,6, 


RESTORE INP ADR 


05078 


32 


0482J 


00000 


SM 


PNTR 


,4 


,10, 


PT AT HI ENC OF FIELD 


05090 


12 


04821 


0C0-4 


AM 


PNTR 


,5 


,10, 


AOJ FOR Q FIELC 


051C2 


11 


04821 


000-5 


AM 


CTL PNT 


,1 


,10, 


AUJ FOR NEXT CONTROL OlGIT 


05114 


11 


04985 


000- I 


BNF 


NP INST 


.SMPQ 


t * 


BR IF Q FIELD 


05126 


44 


C5182 


04940 


TON 


SMPQ 


,0 




SET TO Q FIELD 


05138 


15 


04940 


OCCOO 


BNR 


AOJ 


t CTL.PNT 


lilt 


BR IP ELIGIBLE FOR MODIFICATION 


05150 


45 


04974 


0498N 


AM 


PNTR 




• » 


ADJUST FOR Q OPERAND 


05162 


11 


04821 


-0005 



1 9 



162C-1443 HON I TOM I VE RSI UN 2 SPS 11-0 SUBROUTINE SUPERVISOR 



PAGE 



09200 




8 7 


LNG CK 








051 74 


4 9 


05218 




0)210 


NO INST 


cm 


CTL PNT 


C UAR*' 9 






05182 


I* 


C4985 


-6514 


03220 




BL 


LNG CK 








05194 


47 


05218 


01300 


32 30 




TOM 


SET P*25 


• 1 


t t 


01 SABLE MOD I F I C AT ION 


Q52C6 


15 


04943 


CC001 


3240 


LNGCK 


SM 


LNG 


,12 


,10, 


AOJ AVAIL DIGITS OF INST. 


05218 


12 


05227 


CC0J2 


03250 


LNG 


US 


2 


♦ •-2 


♦ 


NU OF UNPROCESSED DIGITS CF INS T RN 


0522 7 




2 




03260 




BNH 


NXT I NO 




1 ♦ 


BR IF ANCTHER INST IS NOT AVAIL 


05230 


4 7 


C4810 


01100 


03270 




B7 


SE T P 








5242 


49 


€4918 




32 BO 


P CON ST 


BNF 


CONST 


,PNIR 


♦ 11 , 


OR IF RELOCATABLE 


0525C 


44 


05310 


C482J 


03290 




SM 


PNTR 


• 3 


,10, 


AU JUS T F CR PSUEOO COMPARE 


05262 


12 


G4821 


000-3 


03300 




CM 


PN TR 


t 3 


.69 




05274 


I* 


C482J 


00-03 


33 10 




RE 


PSUEOO 






BR IF PSUEOO CONSTANT 


05286 


46 


CS354 


01200 


03320 




AM 


PNTR 


.3 


. 1 ♦ 


AD J FOR I NO DIGIT 


05298 


11 


04821 


CCO- 3 


33 30 


CONST 


AM 


PNTR 


.2 


• 10. 


AUJ FOR LENGTH FIELD* 


05)10 


11 


04821 


000-2 


3 340 




A 


PNTR 


iPNTR 


.11 , 


AOJ PNTR BY LENGTH OF CONST 


05 322 


21 


C4821 


04b2J 


03350 




AM 


PNTR 


t 1 


.10 • 


AOJ FOR NEXT INC DIGIT 


05 3 34 


11 


04821 


OCO- 1 


03360 




67 


PNTR- 11 








05 346 


49 


C4810 




03370 






PUT PSUEOO CONSTANT 


INTO CTLAR AND FILL BAL WITH «EC MK S 










03)80 




REPLACE AOR 


WITH ZERO .PREVENT PSCCN FROM BEING LOACEC 










0)390 




A I SO WORKS 


IF PSCON 


1 S SPLI T ON 2 CARD RECORCS 










03400 


PSUEOO 


TF 


CTLAR*59 


tRMS 




SET CCNTRCL AREA TO RECORC MARKS 


05)54 


26 


06524 


C6456 


03410 




AM 


PNTR 


.2 




POINT AT ADM 


05)66 


11 


C4821 


-0002 


03420 




TR 


TCP 


t PN TR 


,11 , 


MOVE PSCCN 


05376 


)l 


C6652 


0482J 


03430 


P 80 TM 


TFM 


PNTR 




,6 7, 


SET AC R TO ZERO 


05)90 


16 


0482J 


-COOO 


03440 




AM 


PNTR 


♦ 3 




PT AT LENGTH 


05402 


1 1 


04821 


-C003 


0)450 




A 


PNTR 


,PNTR 


,11, 


PT AT NEXT IND 


054 14 


21 


C4821 


0482J 


03460 




AM 


PNTR 


• I 






05426 


11 


04821 


-0001 


03470 




«NR 


2ND PC 


i PNTR 


,11, 


BR IF CCNT CR CCL 75 


05438 


4-J 


05494 


C482 J 


03480 


PLQAO 


TR 


CTLAR 


, TCP*4 


* * 


LUAO PSUEOC CCNST TO CONTRCL AR £ A 


05450 


31 


06465 


C6656 


3490 




TOM 


SE r P*25 


t5 






05462 


15 


C4Y43 


00005 


03500 




TFM 


CTL PNT 


♦ CTLAR 






054 74 


16 


C4985 


-6465 


0)510 




B7 


PNTR- I 1 








05486 


'49 


04810 




0)520 


2N0PC 


AM 


PNTR 


, 5 




PT A! IND 


05494 


11 


04821 


-CC05 


03530 




RNF 


P NOT C 


♦ PNTR 


,11 




055C6 


44 


05610 


0482J 


03540 




SM 


PNTR 


. 1 






055U 


12 


C4821 


-0001 


U355U 




TFM 


M0V2NDHI 


. ICPM2 






05530 


16 


C5589 


-6664 


0)560 




TFM 


M(TV2ND*6 


.TCP* 4 






05542 


16 


055H4 


-6656 


03570 




A 


MGV2N0* 1 1 


♦ TCP*) 






05554 


21 


05589 


C6655 


)580 




A 


M0V2ND*6 


, TCP*) 






05566 


21 


05584 


06655 


03590 


MQV2ND 


TR 








CLOSE PSCON 


0557b 


31 


COCOO 


CCCGO 


03600 




AM 


CARO 


t 75 




ADJ FOR NEXT CC 


05590 


11 


04797 


-C075 


3610 




8 7 


PROTM 








056C2 


49 


05)90 




3620 






PSUEOO CONST TERMINATES CARD AND IS NCT CCNT ON NEXT CARD 










36 3Q 


PNQTC 


AM 


CARD 


♦ 75 






C5610 


1 1 


C4 79 7 


-C075 


3640 




TFM 


• *3C 


, TCP*4 






05622 


16 


05652 


-6656 


U 1650 




A 


• ♦1.8 


, TCP*) 






056)4 


21 


C5652 


06655 


03660 




TO 




♦HMS-60 






05646 


25 


OCOOO 


06396 


03670 




i7 


P LOAD 








05*58 


49 


C5450 




3680 


DNB 


AM 


PNTR 


» 3 


,10, 


ADJ FOR NEXT INC CIGIT 


05666 


11 


C4821 


CCO- 3 


J690 




R 7 


PNTR- 11 








05678 


49 


04<H0 




3700 






FORM INFO REOO TO COMPLETE 


LOADING OF SUBROUTINE 










037 10 






AD J ENTRY HOI NTS IN 


SLBVEC 


AS I NO BY CSA AT START OF SUBR. 










0)720 


FORM 


A 


IND 


♦ NF 




ADJ IND FOR ALL ENTRY POINTS 


05686 


21 


C4349 


C44)8 


0)730 




A 


SUB NO 


,NE 




AOJ SUBR NC.FUM ALL ENTRIES 


0569b 


21 


04 55 7 


04438 


03740 


F ILSV 


AM 


Fit SV*35 


♦ 5 


.10 




05710 


11 


C5745 


000-5 


03750 




T,- 


SV 


.PICKUP 


♦ 6 




05722 


26 


C574- 


07443 



i or. 



1620- 1443 MONITOR I VERSION 2 S PS I I — C SUBROUTINE SUPERVISOR PAGE 



3 760 




A 


PCK 


«MQD^7 






05734 


21 


-2365 


08CC7 


03770 


SV 


OS 


5 


♦ •-5 




CONTAINS ADR OF SUBR IN SUBVEC 


05740 




5 




0)780 




SM 


SV 


.5 


10. 


AOJ SUB VECTOR ADR 


05746 


12 


05740 


CCO- 5 


0)790 




SM 


NE 


♦ 1 


10, 


REDUCE NC CF ENTRIES 


05758 


12 


C4438 


CCO- I 


0)800 




BH 


FIL SV 








05770 


46 


C5710 


OliOO 


03810 




TF 


SCT 


»DDARS>8 




RECORO SEC RECC FUR SUBR 


05782 


26 


C580N 


02 742 


3820 




TF 


ODAh+8 


, SECLST 




ENTER SEC-CNT FOR WRT SUBR TC SCRTC 


05794 


26 


02772 


-2674 


6 )830 


SCT 


OS. 


5 






SECTOR COUNT FOR WHOLE SUBROUTINE 


05805 




5 




03840 




TFM 


IORT 


.•♦23 




WRITE MOD SUBR ON SCRATCH 


058C6 


16 


C0565 


-5829 


03850 




B 


IORBC 


.ODDAW 






0581b 


44 


00520 


-2803 


U3860 




A 


D D A W ♦ 5 


,ODAW*b 




INCREASE DISK ADR BY NO SEC 


05830 


21 


02 769 


02 772 


38 70 




AM 


PICKUP 






INCREASE CORE ADR BY SUBR LENGTH 


0584^ 


1 1 


C7443 


-COOO 


3880 


PKUP 


OS 


5 


, • 




TEMP STCRE PROG TOTAL CORES 


0585 3 




5 




3890 




AM 


SCT 


.3 


,10, 


ADJ FOR NEXT SUBR 


U5854 


I I 


C5805 


CCO- 3 


03900 




TDM 


I STATW 


♦ 1 




INDICATE RECD SUBR 


05866 


15 


02641 


CCOOl 


3910 




AM 


• -6 


. 1 






05878 


11 


05872 


-COOl 


3920 




B7 


ADJ OIM 








05b90 


4 9 


C4454 




0)9)0 


CAPCK 


A 


RMl 


»PCK 




RM FCR ALPHA 


0589b 


21 


02210 


02365 


3940 




TF 


RM2 


.PCK 




RM FCR BETA 


059 10 


26 


02215 


02365 


03950 




SM 


RM? 


• 1 






05922 


U 


02215 


-0001 


3960 




MAKE RE 00 


ADJ TO READ 


OBJECT PROGRAM 










03970 




OF 


0DAR*1 3 








059 34 


33 


02 5 78 


occoo 


3980 


OISKCK 


BNF 


• ♦48 


•OSKSM 




BR IF DISK PGM 


05946 


44 


05994 


05980 


0)990 




TR 


EX I T-48 


,NU DISK 






0595b 


31 


02510 


02820 


04000 




SF 


OODAR*l 








05910 


32 


C2586 


00000 


04010 


OSKSW 


OS 


1 


.•-I 




SW HAS -1 WHEN NCN OISK INPUT(NCI) 


05980 




1 




04020 




TR 


DDAR 


.NODOA 






05982 


31 


02565 


C2876 


04030 


REDUCE 


SM 


PICKUP 


•CAP*IB 




RDC KR UZ FM KR AVLB 


05994 


12 


07443 


-3228 


04040 




BV 


• ♦12 








060C6 


46 


C6018 


01400 


04050 




BNH 


XEQ 








06018 


47 


02402 


01100 


04060 




TO 


SI2E*60 


.PICKUP 




MOVE NO OF CORE TO SUE MESSAGE 


06030 


25 


06715 


074*3 


04070 




TO 


SIZE*58 


.PICKUP-1 






06042 


25 


06713 


07442 


04080 




TO 


SIZE+56 


.PICKUP- 2 






06054 


25 


C67U 


07441 


04090 




TD 


SIZE^54 


.PICKUP-1 






06066 


25 


C6709 


C7440 


04100 




TO 


SIZE*52 


.PICKUP-4 






06078 


25 


06707 


C7439 


04110 




TFM 


DELETE* 


18.SI2E 






06090 


16 


040*0 


-6655 


04120 




B7 


DELETE 








06102 


49 


C4022 





04130 ••••«• BELOW I S DUAL PURPOSE VECTOR. EVEN ADR FIELDS ARE ACR OF 
04140 ••♦••• ROUTINES THAT ARE USED FO DECODING INDICATOR CODE 
04150 000 ADR FIELDS ARE SUBR AOJ FOR THE P AND Q OPERANDS CF INST 



04160 


DORG 


6296 




06296 




04170 


CSA 


NEW CD. 


.INST 


06300 


5 










06300 


-6786 










0630S 


-COOO 










06310 


-4882 


04180 LOCUS 


DSA 


O.PCONST .0 


.CONST .0 .DNS ,0 .NYET , O.FORM 


06315 


5 










06315 


-0000 










06320 


-5250 










06325 


-0000 










06330 


-5310 










06335 


-0000 










0*340 


-5666 










06145 


-0000 










06150 





1 96 



1620-144) MONITOR I VERSION 2 SPS I I - C SUOROUTINfc SUPERVISOR 



PAGE 10 































06360 




-5686 




04190 




l)SA 


,NYET, 


i0 ,NVET,0 i NYE T ,0 


06365 




5 


X 7 






























n!l ill 




-fe9ia 


















-CCOO 














06 360 




- 69 1 8 














06385 






















"r-r in 














06395 




-CCOO 




04200 




OC 


1 




06 396 




1 




042 10 


RMS 


DS 


60 


, , 60 RECORD MARKS 


06456 




60 




04220 


SPSTST 


DC 


8 


,67514842 


06464 




8 








07514842 












04230 


CTL AR 


DSS 


168 


, USED FCR SUBR CONTROL CONSTANT 


06465 




188 




04240 


TCP 


OS 




, ,, TEMP STQR FCR PSUCDO CONSTANT 


06652 









04250 


SIZE 


DAC 


43, CORE CAPACITY EXCEEDED OY 00000 LCCATIONS.* 


06655 




4 3 


x 2 






CORE 


CAPACITY 1 


$ XCEEOED BY OCCOO LOCATIONS. 1 










04260 


DEL TED 


DAC 


23, PROGRAM IS TERMINATED.' 


06 74 1 




2 3 


x 2 






PROGRAM IS TERMINATED. • 










04270 


BOSETM 


DAC 


35, SUBR NOT L OCA TED IN SUBROUTINE MAP* 


06 78 7 




35 


X 2 






SUBR 


NOT LOCATED IN SUBROUTINE MAP' 










04280 


NYMES 


DAC 


31, IMPROPER IND CODE IN SUBR 0000* 


06857 




31 


X 2 






IMPROPER IND CODE IN SUOR CCOO 1 










04290 


NYE T 


TD 


NYM£S*58 


, SUB NU 


06916 


25 


06915 


04557 


04300 




TD 


NVMES»56 


, SUB NO- 1 


06930 


25 


C6913 


04556 


04310 




TO 


NYMES*54 


, SUB NO-2 


06942 


25 


C691 1 


04555 


04320 




rtTM 


DELETE 


, N YME S 


06954 


I 7 


04022 


-6657 


04321 


SOFT 


r FM 


RM2 


.goccc 


06966 


16 


022 15 


-0000 


04322 




TFM 


RM I 


.COCCO 


U6970 


16 


C22 10 


-CCOO 


04 32 3 




B7 


DISKCK- 12 




06990 


4S 


05934 




0433U 




DORG 


FORE 




07280 








04340 


LDRMKS 


AM 


• ♦18 


,i 


07280 


1 1 


C7298 


-0001 


04350 




TD 


RMS-59 


.RMS-60 ,2 


07292 


25 


-6397 


06396 


04 360 




CM 


m-t 


,RMS 


7 304 


14 


C 7298 


-6456 


04370 




BL 


LDRMKS 




07316 


47 


C7280 


01300 


04380 




SF 


RMS-60 




U 7326 


32 


06396 


OCOOO 


04390 




34 


DDAL 


,701 ,, LOAD SUBR SUPER CN DISK 


C 7 340 


3<« 


C 7368 


CC701 


04400 




38 


DDAL 


, 702 


07 152 


3H 


C 7388 


CC702 


044 10 




TRA 






7 364 


36 


coooo 


00500 












7 376 


4S 


COOOO 


OCOOO 


04420 


DO AL 


DSC 


I 


,c 


C73B6 




1 




04430 






DSA 


SSLOC 




C 7393 




5 


X 1 












07393 




J7C24 




04440 




DC 


3 


.Obl 


7396 




3 








-51 














04450 




DSA 


XEO-2 




07401 




5 


X 1 












74C I 








04460 




rco 


L DRMK S* 1 2 




7292 








04470 




DORG 


FCJREQ 




0726U 
















197 
















162C- 1443 


MONITOR 1 VERSION 2 S PS II-C SUBROUTINE SUPERVISOR 






PAGE 


04480 




(jS 


20 




07299 




20 




04490 


W A3 


DSS 


100 


SYSTEM COMMUNICATION SECTOR 


C 7300 




100 




04500 


WAF 


OSS 


ICC 


, , FIRST SKIR OF OBJ PGM ( INC RfcCURC) 


C 74C0 




100 




04510 


WA 


DS 




,WAF 


74C0 









04520 


L 


DS 




,HA*35 , ADR CF SPEC KANT LENGTH 


74 35 









U4530 


PICKUP 


DS 




,MA*43 


7443 









04540 


I STAT 


OS 




.KA+74 


7474 









04550 




DENO 


SUPER 




02934 









\*8 



16201*43 MONI TOR I VERSION 2 SPS I I — SUBROUTINE SUPERVISOR 



PAGE 12 



AO JO IN 


0**5* 


RE L INC 


00*3* 


CCOA 


02779 


NE 


0**38 


SUE 


06655 


8DSETM 


0678 7 


RES TOR 


02621 


OOOAW 


02803 


NEHCO 


0*786 


SOF T 


06966 


COMMON 


00401 


2ND PC 


05*9* 


DIM 


0**7 7 


NOCDA 


02876 


SSLOC 


1 702* 


CTLPNT 


0*985 


AOJ 


0*97* 


DNB 


05666 


NOISY 


0353* 


STPSV 


0**18 


DOOARS 


02 795 


BASE 


01600 


OSKSW 


05980 


NOTRM 


0*862 


SUBNO 


0*55 7 


DOOASC 


02726 


HUF 


07999 


EXIT 


02558 


NYET 


06918 


SOBkD 


0*690 


DEL ETE 


0*022 


CAPCK 


05898 


FILSV 


05710 


NYMES 


0685 7 


SUPER 


0293* 


DEL TED 


067*1 


CAP 


03210 


F INAL 


0*338 


PAR AM 


03502 


SV 


057*0 


OISKCK 


059*6 


CARD 


0*797 


FOREQ 


07280 


PBOTH 


05390 


SWPU 


0*9*0 


DRCOOE 


02892 


CHECK 


02*62 


FOREX 


03318 


PCK 


02365 


TCP 


06652 


F VL AFP 


0*2 70 


CKSET 


03610 


FORM 


05686 


PKUP 


05853 


VL AT P 


0*102 


1STATH 


026*1 


CKSUU 


0*358 


I NDA 


0*99 3 


PLOAO 


5*50 


HA2 


0293* 


LDRMKS 


07280 


CONST 


05310 


IND 


0*3*9 


PtUSL 


02398 


W A 3 


Q7300 


L OC 1 1 5 


06 31 5 


COR I M 


0335 8 


INST 


0*882 


PNOTC 


05610 


MAF 


07* CO 


MODIFY 


0*7 7* 


CTLAR 


06*65 


IOCAL 


007 16 


PNTR 


0*821 


MA 


07*00 


MONCAL 


00796 


00 A 2 


027*9 


ICO 


03038 


OCK 


05102 


XEO 


02*02 


MOV 2ND 


05578 


00 A L 


07388 


IOGT 


00566 


ROCTL 


C3*30 


SECLST 


0267* 


NO INST 


05182 


OOAP 


02593 


IORBC 


00520 


ROD IM 


03758 


SE TCUD 


0391* 


NOOISK 


02820 


ODAR 


02565 


ICRT 


00565 


ROSUB 


0*510 


SPSTST 


06*6* 


NXT IND 


0*810 


ODARS 


0273* 


I ST AT 


07*7* 


RM 1 


02210 


SUBStT 


03598 


PCONST 


05250 


OOA 


02 73* 


LNGCK 


05218 


RM2 


02215 


SUBVEC 


02215 


P ICKAO 


0*581 


DOASC 


02711 


LNG 


05227 


RMAKK 


0C*21 


SYSCAL 


00*75 


PICKUP 


07**3 


OOAH 


0276* 


I 


07*35 


RM 


0*8*2 






PSUIOO 


0535* 


0DDA2 


02 787 


MANTL 


0355* 


RMS 


06*56 






RDFRST 


03126 


OOOAP 


02608 


MOD 


08000 


SGT 


05805 






DEDUCE 


0599* 


OODAR 


C2585 


NCOCA 


02815 


SETP 


0*918 







END OF ONE ASSEMBLY. 



1 JJ)J 



SPSLIB 


THE 


SPS II- 


MODIFICATION PROGRAM PRINTER 


PAGE 


1 




oooio* spsin 


1— -THE SPS II-D MODI PICAT ION 


PROGRAM -- 


PRINTER 








00020 


SSTDAO 


OS 


, 18908 








18908 


00000 




00030 


MSTDAD 


OS 


, 189*3 








189*3 


00000 




000*0 


SSTSCT 


DS 


,35 








00035 


00000 




00050 


A2DAD 


OS 


• 18800 








18800 


00000 




00060 


A2SCT 


OS 


,55 








00055 


00000 




00070 


A2DIS 


DS 


,33 








000 33 


00000 




00080 


ZEPO 


OS 


,0 2300 








02300 


00000 




00090 


COLL 


OS 


,02*39 








02*39 


00000 




00100 


TY INSW 


OS 


,02*73 








02*73 


ooooo 




00110 


CD I NSW 


OS 


,0 2*7* 








02*7* 


00000 




00120 


PTINSW 


OS 


,02*75 








02*75 


ooooo 




00130 


PRTL1M 


OS 


,02502 








02502 


ooooo 




001*0 


HCLIM 


OS 


,02507 








02507 


ooooo 




00150 


CLERER 


DS 


,02700 








02700 


ooooo 




00160 


INPUT 


DS 


,02887 








02887 


ooooo 




00170 


LIMITS 


OS 


,03287 








03287 


ooooo 




00180 


AODR S 


OS 


,03299 








03299 


OOOOO 




00190 


LOPOUT 


DS 


,03327 








0J327 


ooooo 




00200 


PHASE A 


DS 


,03*08 








03*08 


ooooo 




00210 


PROSTM 


OS 


,03916 








03916 


ooooo 




00220 


AL FOP 


DS 


,0*616 








0*616 


ooooo 




00230 


ALFLP 


DS 


,0*716 








0*716 


ooooo 




002*0 


ER3 


US 


,0*8*6 








0*8*8 


ooooo 




00250 


ZP 


DS 


,0*8C \ 








0*80* 


ooooo 




00260 


EV AL AO 


OS 


,0 5*C > 








05*0* 


ooooo 




270 


OK 


DS 


,0*9 








0*928 


ooooo 




00280 


EVALER 


OS 


,070 2 








07072 


ooooo 




00290 


LOLBL 


DS 


,08*1* 








08*1* 


ooooo 




00300 


LDTR 


OS 


,09190 








09190 


ooooo 




00310 


ER*A 


DS 


,0959* 








0959* 


ooooo 




00320 


OUTPUT 


DS 


,09686 








09686 


ooooo 




00330 


INSTRN 


OS 


,10256 








10256 


ooooo 




003*0 


START2 


OS 


,1053* 








1053* 


ooooo 




00350 


ST2L 


OS 


, 10850 








10150 


ooooo 




00360 




OORG 


10900 








10900 






00370 


LIBST 


GET 


PHA1 








10900 


10 00565 


J0923 
















10912 


*9 00566 


J3237 


00380 




BTM 


MOOSPS, 


PROCON 






1092* 


17 12376 


J0936 


00390 


PROCON 


BTM 


ROCKt«t20 






10936 


17 12788 


J0956 


00*00 




87 


PHAS6A 








109*8 


*9 03*08 


OOOOO 


00*10 




TPM 


• ♦30ilNPUT-ll 






10956 


16 10986 


-2876 


00*20 




AM 


•♦18t2t 


10 






10968 


11 10986 


000-2 


00*30 




CF 


• -• 








10980 


33 OOOOO 


OOOOO 


00**0 




CM 


*-6, INPUT*1S1 






10992 


I* 10986 


-3038 


00*50 




BL 


• -36 








1100* 


*7 10948 


01300 


00*60 




TFM 


SiNR*ll 


, INPUT-IO,, 


COMPRESS 


BLANKS 


11016 


16 11031 


-2877 


00*70 


SLP 


AM 


SBNA + il 


t2tl0 






11028 


11 11091 


000-2 


00*80 


S8NR 


BNR 


♦♦20, 


■* 






110*0 


*5 11060 


OOOOO 


00*90 




•7 


SLPX 








11052 


69 11160 


OOOOO 


00500 




C 


CLERER*1,SBNR*11,11 






11060 


2* 02701 


11 05 J 


00510 




•ME 


SLP 








11072 


*7 11021 


01200 


00520 




TF 


STR*U, 


SiNR+U 






not* 


26 11163 


11031 



2o o 



SPSLIB 



THE SPS 11-0 MODIFICATION PROGRAM PRINTER 



PAGE 



2 



00530 




TF 


STR*6,SBNR*U 


11096 


26 


11138 


11051 


00540 




SN 


STR*6,1,10 


iiiob 


12 


11138 


000-1 


00550 




AM 


STR + 11,1,10 


11120 


11 


11143 


000-1 


00560 


STR 


TR 


*.*,«.» 


11132 


31 


00000 


00000 


00570 




B7 


SBNR 


11144 


49 


11040 


00000 


00580 




B7 


SBNR 


11152 


49 


11040 


00000 


00590 


SLPX 


CM 


SBNR + U, INPUT-10*2M3 


11160 


14 


11031 


-2903 


00600 




BL 


• ♦36 


11172 


47 


11208 


01300 


00610 




C 


INPUT-10*2»12.C1*2»12 


IP 14 


24 


02901 


11433 


00620 




BE 


C1P 


11196 


46 


11544 


01200 


00630 




CM 


SBNR*11, INPUT-10*2»13 


11206 


14 


11051 


-2903 


00640 




BL 


• ♦36 


11220 


47 


11256 


01300 


00650 




C 


INPuT-lO*2»12iC2*2*12 


11232 


24 


02901 


11459 


00660 




BE 


C2P 


11244 


46 


11716 


01200 


00670 




CM 


SBNR*ll, INPUT-10*2»24 


11256 


14 


11051 


-2925 


00660 




BL 


• ♦36 


11268 


47 


11304 


01300 


00690 




C 


INPUT-10+2»23,C3^2*23 


11280 


24 


02923 


11507 


00700 




Be 


C4P 


11292 


46 


11620 


01200 


00710 




CM 


SBNRM1, 1NPUT-10^2*07 


11304 


14 


11051 


-2891 


00720 




BL 


• ♦36 


11316 


47 


11352 


01300 


00730 




C 


1NPUT-10^2*06iC4+2»0 6 


11326 


24 


02889 


11521 


00740 




BE 


C3P 


1 1 340 


46 


12246 


01200 


00750 




CM 


SBNR* 11»INPUT-10^2*11 


11352 


14 


11051 


-2899 


00760 




BL 


• ♦36 


11364 


47 


11400 


01300 


00770 




C 


INPUT-10^2M0,C5^2»10 


11376 


24 


02897 


11543 


00780 




BE 


C5P 


11388 


46 


12256 


01200 


00790 




B7 


PHASEA 


1 1400 


49 


03408 


00000 


00800 


C 1 


OAC 


I 3,»0EF INEOPCOOE 


11409 


00026 




008 10 


C2 


UAC 


i3i *OELETEOPCOOE 


11435 


00026 




00820 


C3 


OAC 


24 1 *OEF 1 NE SY ST EMS VMBOL TABLE 


1 146 1 


00046 




00830 


C4 


OAC 


07«*ENDLlB 


11509 


00014 




00840 


C5 


OAC 


1 1 1 *L I ST OP CODE 


1152 3 


00022 




00850 


C IP 


GE T 


OPTAR... DPP IMF np mt)F 


11544 


10 


00565 


J 1 56 7 










1 1556 


49 


00566 


j 32 1 3 


00860 




BTM 


MO0SPSt*+12 


11568 


17 


12576 


J 1 580 


00870 


C 1P2 


BTM 


ROCKfbNOClP 


1 1 580 


17 


12788 


J 2978 


00880 




BTM 


ALFUP»»+20 


1159 2 


17 


04616 


Jl 6 1 2 


00 b 90 




B7 


ALR 1 N 


1 1604 


49 


13010 


00000 


00900 




TF 


0PSAV»ZP*1» » 1 1 


11612 


26 


132 76 


04 82K 


00910 




TF 


ZP*1B,60S»6 


1 1624 


26 


0482K 


1 3266 


00920 




SF 


INPUT* 1 1 


11636 


32 


02898 


00000 


009 JO 




BTM 


ALFUPfNOSPAC 


1 1648 


17 


04616 


J3030 


009<»0 




BTM 


EVALAD,*+12,<. 11 


11660 


17 


05M04 


1167K 


00950 




TF 


ZEP0^30,ADDRS 


11672 


26 


02330 


03299 


OOVtoO 




Th 


ZfcPU^27,OPSAV 


11684 


26 


02327 


13276 


00* 10 




TH 


ZH-ni,ZEP03U,6 


11696 


26 


04B1N 


02330 


00980 




o7 


PH« JC A 


11708 


49 


03408 


00000 


009O0 


C?P 


GET 


HPTAB, , , DELETE OP COOE 


11716 


10 


00565 


J1739 










11728 


49 


00566 


J3213 


1000 




BTM 


M0DSPSi»+12 


11740 


17 


12576 


J1752 


01010 


C2P2 


ttTM 


RDCK.ENDC1P 


11752 


17 


12788 


J2978 


01020 




BTM 


AL FOP i NOT I N 


1 1 764 


17 


04616 


J2958 


01030 




TF 


INPUT+18.60S 


11776 


26 


02905 


13268 



2D I 



SPSLIB 


THE 


SPS I I -0 MODIFICATION PROGRAM PRINTER 


PAGE 


3 




01040 




TF 


ZEPO*27,ZP*l«iil 




11788 


26 02327 


0482K 


01050 




TF 


ZP+ll,ZEP0+30,6 




11800 


26 0481N 


02330 


01060 




B7 


PHASE A 




11812 


49 03408 


00000 


01070 


C4P 


TFM 


SSTDCF+5,MSTDAD, , , 


DEFINE SYSTEM SYMBOL TABLE 


11820 


16 12237 


J8943 


01080 




BTM 


MODSPSi *+12 




11832 


17 12576 


J1844 


1090 


C4P1 


TF 


SSTDCF+13.HCLIM 




11844 


26 12245 


02507 


OilOO 




SM 


SSTDCFM3tSSTSCT»100 + ll 




11856 


12 12245 


-3511 


Oil 10 




GET 


SST 




11868 


10 00565 


J1891 












11880 


49 00566 


J2224 


01120 




TF 


C4P02+11,SSTDCF*13 




11892 


26 11927 


12245 


01130 




AM 


C4P02+1U4. 10 




11904 


11 11927 


000-4 


01140 


C4P02 


S 


PR TL I M» *-* 




11916 


22 02502 


00000 


01150 




TR 


L1MI TS-9 f PRTLlM-4 




11928 


31 03278 


02498 


01160 




S 


LDTR^il,C4P02+ll» 11 




11940 


22 09201 


1192P 


01170 




S 


LOTR+ 6.C4P02M1.11 




11952 


22 09196 


1192P 


01180 




TFM 


PMASEA-1,*^12 




11964 


16 03407 


J 1976 


01190 




BTM 


ROCK , C4END 




11976 


17 12786 


J2076 


1200 




AM 


ENTCNT. It 10 




11988 


11 12218 


000- 1 


01210 




CM 


ENTCNT, 150, 9 




12000 


14 12218 


00J50 


01220 




BH 


C20ECT 




12012 


46 12044 


OilOO 


01230 




BTM 


EVALA0»»*12,4 




12024 


17 05M04 


12036 


01240 




87 


LDLBL 




12036 


49 08414 


00000 


01250 


C20ECT 


RCTY 






12044 


34 00000 


00102 


01260 




WATY 


C20EM 




12056 


39 12157 


00100 


01270 




CALL 


EXIT 




12066 


49 00796 


00000 


01280 


C46N0 


TF 


C4P02*11,HCLIM,6 




12076 


26 1192P 


02507 


01290 




S 


C4P02+11,PRTLIM,6 




12088 


22 U92P 


02502 


01300 




SM 


C4P02*li,17,6 10 




12100 


12 1192P 


000 J 7 


01310 




TFM 


SSTDCF*5,SST0AO 




12112 


16 12237 


J8908 


01320 




PUT 


SST,RBC 




12124 


10 00565 


J2147 












12136 


49 00520 


J2224 


01330 




B7 


PRQCON+20 




12148 


49 10956 


00000 


01340 


C20EM 


OAC 


30, LIMIT OF 150 SYMBOLS 


EXCEEDEOi 


12157 


00060 




01350 


ENTCNT 


DC 


3,0 




12218 


00003 




01360 




OS 


5 




12223 


00005 




01370 


SST 


00 


,SSTDCF,,,A 




12224 


00002 22 














12226 


00005 J22 32 












12231 


ooooi a 




01380 


SSTOCF 


00 A 


,0,SST0A0,SSTSCT,*-* 




12232 


00006 0J8908 












12236 


00003 -35 












12241 


00003 -oooo 


01390 




DC 


ltd 




12246 


00001 




01400 


C3P 


CALL 


EXIT 




12246 


49 00796 


00000 


01410 


C5P 


GET 


OPTAB,,, 


LIST OP COOE 


12256 


10 00969 


J2279 












12266 


49 00566 


J3213 


01420 




TFM 


ZP06*6fC»P2 




12260 


16 04644 


J2456 


01430 




TF 


INPUT*18»CL€RER+7 




12292 


26 02409 


02707 


01440 




TF 


LOPOUT t CLCRER +9 




12304 


26 03327 


02709 


01450 




TF 


XC*9,CLERER*1 




12316 


26 12929 


02701 


01460 




TFM 


INPUT*12, 99,10 




12326 


16 02699 


000R9 


01470 




BTM 


ALF0P,**12 




12340 


17 04616 


J2352 


01480 




TFM 


INPUT*14,99,10 




12392 


16 02401 


000R9 


01490 




BTM 


ALF0P,«*12 


2 02 


12364 


17 04616 


J2376 



SPSLIB 



THE SPS 1 I -D MOD -ICATION PROGRAM PRINTER 



PAGE 



01500 




TFM 


1NPUT*16,99, 10 








12376 


16 


02903 


00OR9 


1510 




BTM 


ALF0P,«*12 








12388 


17 


0*616 


J2*00 


01520 




TFM 


INPUT ♦18, 99, 10 








12*00 


16 


02905 


000R9 


i *> 30 




BTM 


ALF0P,**12 








12*12 


17 


0*616 


J 2*2* 


015*0 




TFM 


ZP*36>6,ALFLP 








12*2* 


16 


0*8*6 


-*716 


015*5 




TFM 


PHASEA- 1,PR0C0N 








12*36 


16 


03*07 


J0936 


01550 




B7 


PHASEA 








12**8 


49 


03*08 


00000 


01560 


C5P2 


TF 


LOPOUT-2,Z£PQ*27 








12*56 


26 


03325 


02327 


015 70 




t 


60S-6 , LOPOUT-2 








12*68 


2* 


13262 


03325 


01580 




BE 


ALFLP 








12*80 


*6 


0*716 


01200 


01590 




BD 


•♦2*,**2**9 








12*92 


*3 


12516 


1 2 52 5 


1600 




RCTV 










1250* 


3* 


00000 


00102 


01610 


xc 


AM 


•♦9,2,8 10 








12516 


11 


12525 


0-0-2 


1620 




MATY 


LOPOUT-8 








12528 


39 


03319 


00 1 00 


1630 




MNT Y 


ZE PL)* 28 








1 25*0 


38 


02328 




16*0 




SPTY 












3* 


00000 


ooio? 


01650 




B7 


ALF LP 








1 2 5 6 * 


*9 


0*716 


UUUUU 








5 








125 75 


00005 




016 70 




T F 


"WU 5 1 D, OrrlATO,, 


L UNV t K I 


1 NrU i KUU 1 1 He 




125 76 


26 


03922 


12710 








U*+l,W£,lUt, 


CONVERT 


OP CODE 




12 5 88 


16 


0*929 


0OOM2 


n uon 








LOOK-UP 


ROUT INE 




1 2600 


26 


0*85* 


12718 


n i 7nn 






0UTPUT + 6,BLDLBL.+ 6« » 


CONVERT 


L DL BL ROUT INE 




12612 


26 


09692 


1 2726 


_ 

n ! 7 ?'n 






ER*A+6*BER*+6 








1262* 


26 


09600 


127*2 








t V A L rK ♦ 6 , O t K 9 ♦ 6 , , 


CONVERT 


EVALAD 




12636 


26 


07078 


1273* 








r n A i t * «!• 1 , n UU o r a - 1 








126*8 


26 


03*07 


12575 


7*0 














12660 


26 


10856 


1 2 750 


. 7 




M 


1 ^ a| U • ^ ^ 








12672 


15 


02331 


00000 


1 760 

: 




nr 










126 83 


00001 








1 FM 


*LrUrtjB*BlNul IN 








1 268* 


16 


0*658 


J2958 


1780 




B7 










1 2696 


*9 


1053* 


00000 


1 790 


BPHA 


B 7 










1 270* 


M9 


03* OP 


00000 




BOP 












12 712 


M9 


0*6 IN 


00000 


1 8 1 


fa f R ^ ^ L 


B7 


Pm A SE A » ,0 








12720 


M9 


03*08 


00000 
















12728 


M9 


13050 


00000 


18 30 


8 fc R *» 


k 7 


tor ^ 'n° 








12736 


M9 


13010 


ooooo 


1 8*0 




M7 










1 27** 


M9 


12752 


ooooo 


n i 


is. 


at 


r i *p 








12752 


*7 


131 70 


01 300 


n I !in 






C i * p 








1 276* 


*6 


13126 


01 200 






B 7 


C 1 3P 








12776 


*9 


13082 


ooooo 


1880 














12787 


00 005 




1890 


ROCK 


&NR 


♦♦2*, INPUT- 10 








12788 


*5 


12812 


02877 


1900 




TFM 


INPUT- 10 ,00 , 10 








12800 


16 


02877 


000-0 


1910 




BO 


* •» 36 » T Y I NSM 








12812 


*3 


128*8 


02*73 


1920 




RCTV 










1282* 


3* 


00000 


00102 


01930 




MATY 


INPUT- 10 








12836 


39 


02877 


00100 


19*0 




CM 


lNPUT-10,1*, 10 








128*8 


1* 


02877 


000J* 


1950 




6t 


RDlK-0 1,,6 








12860 


*6 


1278P 


01200 


I960 




SF 


INPUT - t 








12872 


32 


02886 


OOOOO 


01970 




SF 


INPUT* 11 








1288* 


32 


02898 


00000 


1980 




TFM 


•♦30 , INPUT*17 








12896 


16 


12926 


-290* 


01990 




AM 


•♦18,2, 10 








12908 


11 


12926 


000-2 


02000 




SF 


*-» 








12920 


32 


00000 


ooooo 


02010 




CM 


♦~6* INPUT+151 






2 3 


12932 


1* 


12926 


-3038 



SPSLIB 


THfc 


SPS II-D 


MODIFICATION PROGRAM 


PRINTER 


PAGE 








02020 




BL 


*-36 








129** 


*7 


12908 


01300 


02030 




BB2 










12956 


*2 


OOOOO 


OOOOO 


020*0 


NOT IN 


WAT Y 


NOT I NM 








12958 


39 


13353 


00100 


02050 




B7 


PHASEA 








12970 


*9 


03*08 


ooooo 


02060 


ENDC IP 


PUT 


OPTAB.RBC 








12978 


10 


00565 


J3001 
















12990 


*9 


00520 


J3213 


02070 




B7 


PROCON*20 








13002 


*9 


10956 


ooooo 


02080 


ALR1N 


MATY 


AIR! NM 








13010 


39 


1 3279 


00 1 00 


02090 




B7 


PHASEA 








13022 


*9 


03*08 


OOOOO 


02100 


NOSPAC 


MATY 


NOSPM 








13030 


39 


13315 


00100 


02110 




B7 


PHASEA 








130*2 


*9 


03*08 


ooooo 


02120 


ER50ET 


MATY 


UNDSYM 








13050 


39 


13383 


00100 


021 30 




MATY 


COLL-12 








13062 


39 


02*27 


00100 


021*0 




B7 


PHASEA 








1307* 


*9 


03*08 


ooooo 


02150 


C13P 


TDM 


COINS*, 1. 


11 






13082 


15 


02*7* 


00OOJ 


02 160 




TOM 


PTINSW.O 








1309* 


15 


02*75 


ooooo 


021 70 




TDM 


TYINSW ,0 








13106 


15 


02*73 


ooooo 


02180 




B7 


PHASEA 








13118 


*9 


03*08 


ooooo 


02190 


C1*P 


TDM 


PTINSW,1, 


11 






13126 


15 


02*75 


0000J 


02200 




TDM 


C0INSM,0 








13138 


15 


02*7* 


ooooo 


02210 




TDM 


TYINSM ,0 








13150 


15 


02*73 


ooooo 


02220 




B7 


PHASEA 








13162 


*9 


03*08 


ooooo 


02230 


C15P 


TDM 


TY1NSM.1, 


11 






13170 


15 


02473 


OOOOJ 


022*0 




TDM 


CDINSM.O 








13182 


15 


0247* 


ooooo 


02250 




TDM 


PTINSM.O 








1319* 


15 


02*75 


ooooo 


02260 




B7 


PHASEA 








13206 


*9 


03*08 


OOOOO 


02270 


OPT AB 


DO 


,OPTB, ,,A 








13213 


0000 2 22 


















13215 


00005 J3222 
















13220 


00001 a 




02280 


OPTB 


DO A 


,0,A2QAD*A2DlS,A2SCT-.A20lS< 


,INSTRN*100*A2DIS 


13222 


00006 0J8833 
















13228 


0000 3-22 
















13231 


00005 J3556 


02290 




DC 


1»? 








13236 


0000 1 




02300 


PHA1 


DO 


» A 1 DC P 1 1 1 A 






13237 


00002 22 


















13239 


00005 J3*46 
















132*4 


00001 a 




02310 


A IDC F 


00 A 


, 1, 18600, 


86,2300 






132*6 


00006 1J8600 
















13252 


00003 -66 
















13259 


00005 -2300 


02320 




DC 


i,a 








13260 


00001 




02330 


60S 


DC 


8,60606060 






13261 


00008 




02340 


OPSAV 


DC 


8,0 








13276 


00008 




02350 


AIR INM 


OAC 


18, ALREAOY DEFINED! 






13279 


00036 




02360 


NOSPM 


DAC 


19, NO ROOM IN TABLEi 






13315 


00038 




02370 


NOT INM 


OAC 


15, NOT 


IN TABLE9 






13353 


00030 




02380 


UNOSYM 


OAC 


20, UNOE FINED SVMIOL » 






13383 


00040 




02390 




DC NO 


LIBST 








10900 









13422 CORE POSITIONS REQUIRED 
00240 STATEMENTS PROCESSEO 



l U4 



SPS I I -D MONITOR I SUBROUTINE SET 00 



000 10 




USA 


01 VI- 36 








00004 00005 -0100 


00020 




UORG 


• -4 








00000 


00030 




US 




, 2 365 






02365 00000 


000*0 




OS 


100 






BUFFER REOO FOR 


CORE IMAGE OBJ PGM 
00099 00100 


0U05O 




bV 


1 2 






TURN OFF OVFL 


00 100 M6 00112 01400 


00060 




TF 


01 vi*n 


i PCK* 10 






00112 K6 00147 02375 


000 70 




AH 


DI V I* 1 1 


• 0* 






00124 Jl 00147 -0004 


00080 


OIV 1 


TF 


P()ST*H 




• • 


LOAO A ADR 


00136 K6 00315 00000 


00090 




I F M 


INDA0*42 


,•♦20 






00148 JO 01062 -0J68 


00 100 




b7 


! NUAD 








00160 M9 01020 00000 


001 10 




TF 


SUB* 1 1 


. 1 NUA0*59 


.0 1 


.LOAD B 


AOOR 



00168 r KO 0071 1 01079 



00 120 


T F M 


I NUAD* *? t * ♦ 20 




00 18 


JO 


106 2 


-0 200 


00 1 30 


B 7 


INDAU 




00192 


M9 


010 20 


00000 


00140 


T F 


p 0S T *6 • 1 NDAD* 59 


tO 1 


, LOAD ShJFT 

00200 


KO 


00310 


107 9 


00 1 50 


T F M 


IN0AD*4,? » »*2C 




00 212 


JO 


106 2 


-0 232 


00 1 60 


b 7 


I NUAD 




00 224 


M9 


01020 


00000 


00170 


T F 


Sub *6 » 1 NDAD* 59 


,01 , 


,LOAO L& 00232 


KO 


00706 


0107 9 


00 180 


AM 


I v 1 ♦ l I »0 2 tO 10 




00244 


J 1 


00 147 


000-2 


00 190 


T f 


99 , Z EROS 




00 ?5 6 


20 


00099 


01 1 32 


00200 


T F 


66 , ZEROS 




00268 


20 


00066 


Oil 32 


002 10 


T F 


3 7 , Z ER OS 




00280 


20 


000 37 


1132 


00220 


T DM 


* i U 




00292 


15 


0000* 


00000 


002 30 post 


T F 






00304 


26 


00000 


00000 


0U2*0 


T DM 


POST*22 il 


• 09 


003 16 


J5 


00326 


00-0 I 


00250 


T F 


P0bT**»7 t F'QS T ♦ I 1 


iO 1 


003?b 


K 


0035 1 


00 315 


00260 


BNF 


♦ ♦48 • |0 




00340 


M* 


00 388 


00000 


002 70 


TDM 


P0SW2 , 


,0 11 


00352 


J5 


00326 


0000- 


00280 


T F 


•♦18 ,P0ST*6 


,01 


00364 


KO 


00 38 2 


00310 


00290 


CF 






00376 


33 


00000 


00000 


00 300 


T DM 


SUB*1,2.0 




00388 


J5 


00701 : 


00002 


003 10 


TDM 


PQ-11,1.0 




00400 


J5 


00801 


0000 1 


00320 


TF 


•♦2 3, SUB* 1 1 ,0 1 




00*12 


KO 


00*35 


007 1 1 


00330 


bNF 


«**4b , ,0 




00*2* 


M4 


00*72 


00000 


00340 


SM 


P0SW2 .1 


,010 


00*36 


J2 


00326 


000-1 


00350 


TDM 


SUB ♦ 1,1,0 




00**8 


J5 


0070 1 


0000 1 


00360 


TOM 


PU-ll,2iO 




00*60 


J5 


00801 


00002 


00370 


T F 


•♦35 ,POST*fc 


,0 1 


00*72 


KO 


00507 


00310 


00380 


SM 


•♦23.1,010 




00*8* 


J2 


00507 


000-1 


00 390 


bNF 


•-12, ,0 




00*96 


M4 


00*8* 


obooo 


00*00 


1 F 


**35,SUB^ 1 1 ,01 




00508 


KO 


005*3 


007 1 1 


00* 10 


SM 


•♦23,1 ,0 10 




00520 


J2 


005*3 


000-1 


00420 BFLG 


BNF 


•-12, ,0 




005 32 


M* 


00520 


00000 


00* 30 


A 


•- 1 . SUB+6,0 I 




005** 


KJ 


005*3 


00706 


004*0 




BFLG*ll,SUB+ll ,01 




00556 


KK 


00543 


0071 1 


0*50 


C 


BFi.G*l I , BFLG-2'>,0 I 




00568 


KM 


00543 


00507 


00*60 


BNL 


• ♦36 




00580 


M6 


006 16 


01 300 


00* 70 


CF 


BFlG-37 , 


,6 


00592 


13 


00*9N 


ooooo 


00480 


SF 


BF L G ♦ 1 1 , 


,6 


006 04 


L2 


00541 


00000 


00490 


TFM 


SUb**2,NZQ,0 17 




00616 


JO 


00742 


-0756 


00500 


TF 


PQ*e>,BFLG*ll,01 




006 28 


KO 


003 18 


005*3 



SPS 1I-D MONITOR I SUBROUTINE SET 00 



005 10 




bM 


P(J*6, 1 ,0 10 




006*0 


J2 


008 18 


000- 1 


00520 




TF 


EMD*6 ,P0*6,0 1 




00652 


KO 


009 10 


008 18 


00530 




T F 


PU-1 , SUB* 1 1 ,0 1 




0066* 


KO 


008 1 1 


007 1 1 


00540 




TOM 


SET*11,,0 




00676 


J5 


01011 


OOOOO 


00550 




TFM 


♦♦9 , ,0 10 




006 88 


J6 


00697 


000-0 


00560 


SUB 


S 






007 00 


22 


OOOOO 


OOOOO 


00570 




BN 


P0~2*,,0 




007 12 


M7 


00788 


01300 


00580 




AM 


SUtt-3, 1 1 ,0 10 




0072* 


Jl 


00697 


000 J 1 


00590 




BD 


, SUB- 3, 1 




007 36 


4L 


OOOOO 


00697 


00600 




b7 


SET ,,0 




00748 


M9 


01000 


OOOOO 


006 10 


NZQ 


TDM 


SET* 11., 1,0 




00756 


J5 


0101 1 


00001 


00620 




TFM 


SUB^42,SU8,0 17 




00768 


JO 


007*2 


-0700 


00630 




b? 


SUB, ,0 




00780 


M9 


00700 


ooooo 


00640 




TF 


•♦ 18 , SUB.*6,0 1 




00788 


KO 


00806 


00706 


00650 




A 






00800 


21 


OOOOO 


OOOOO 


00660 


PO 


TO 


,bUB-3,l 




00812 


2N 


OOOOO 


00697 


00670 




BNZ 


**24 




008 24 


M7 


00848 


01200 


00680 




tF 


SUB+6 , 


,6 


00836 


L3 


00700 


OOOOO 


00690 




AM 


SU8*6, I ,0 10 




00848 


Jl 


00706 


ooo-i 


00700 




BO 


EMD, SUB^4,0 1 




00860 


ML 


00904 


00704 


007 10 




AM 


P0*6, 1 ,0 10 




00872 


Jl 


008 18 


000-1 


00720 




SF 


PQ*6 , 


,6 


00884 


L2 


008 10 


OOOOO 


00 7 30 




B7 


SUB-12, ,0 




00896 


M9 


00688 


OOOOO 


00740 


EMD 


SF 






00904 


32 


OOOOO 


ooooo 


00750 




80 


•♦36 ,POST+22 




00916 


ML 


009 52 


00326 


00760 




SF 


P0>6 , 


.6 


00928 


L2 


00810 


OOOOO 


00770 




SF 


SET+11,,0 




00940 


L2 


01011 


OOOOO 


00780 




AM 


P0*6, 1,0 10 




00952 


Jl 


00818 


000-1 


00790 




SF 


P0>6 , 


,6 


00964 


L2 


008 1Q 


OOOOO 


00800 




BNF 


•♦24 ,P0ST+22 


,0 1 


00976 


MM 


01000 


00326 


00810 




SF 


99 




00988 


32 


00099 


OOOOO 


00820 


SET 


AM 


•♦H. ,010 




01000 


Jl 


01011 


000-0 


00830 




87 


DIV1 + U , 


,6 


01012 


M9 


0014P 


OOOOO 


00640 


I NO AO 


AM 


DI V 1*1 1 ,0 5 


,0 10 


, INO A DDR ROUTINE 
01020 Jl 


00147 


000-5 


00850 




TF 


•♦23 ,0IV1*U 


iQl 


01032 


KO 


01055 


00147 


00860 




TF 


INDA0*59 , 


tO 


01044 


K6 


01079 


OOOOO 


00870 




BNF 


, IN0AD*59 


.1 


01056 


4M 


OOOOO 


01079 


00880 




CF 


lNUAp+59 ,0 


tO 


01068 


L3 


01079 


OOOOO 


00890 




TF 


1NUAD*59 , INUAU+59 


• 0111 


01080 


KO 


01079 


0107R 


00*00 




ol 


1wUmU*36 , 


.0 


01092 


M9 


01056 


OOOOO 


00910 


ZEROS 


oc 


34 ,0 




01132 


00034 




00<»20 




OENO 


ooou 




000 11 









SP!> 1 I -i> 



mw\ rr.R j subrout Ine SIT 01 







FOR 


OPERANDS A AND B 


ONLY 










00020 •*••*• 


PC* 


AREA 


NAY BE USEO 


AS A 


WORK AREA IF SUBR NOT USED. 


1 F 








SUB-ROUT INES REQUIRED. 


THEN 


THE AREA IS USED AS FOLLOWS 






00040****** 


2401 


NOISE DIGIT 




SOURCE tSUBROUT INE SUPERVISOR 








PCK 


ADR OF PJCK 




SOURCE t SUBROUTINE SUPERVISOR 




000 60 **••** 


P C K 


♦ 5 


A OR F RETURN TO 


SUBR. SOURCE .SUBROUTINE 




00070****** 


PC K 


♦ 10 


ADR OF RETURN TO 


MAINLINE. SOURCE .PR IMARY 


LINKAGE 


00080****** 


PfK 


♦ 15 


ADR OF A OPERAND 


CHARACTERISTIC. SOURCE, PICK 




Q0090****** 


PCK 


♦20 


ADR OF B OPERAND 


CHARACTERISTIC. SOURCE, PICK 








PCK 


♦ 2 5 


ADR OF A OPERAND 


MANT I SSA , SOURCE, PICK 




001 10****** 


PCK 


,♦30 


ADR OF B OPERAND 


MANTISSA. SOURCE, PICK 




00 120* 




PC* 


♦ 31 


RESERVED FOR POSSIBLE RECORD MARK 








130* 




PCK 


♦35 


4 RESERVED 


CORE 














PCK 


16 THRU PCK-90 SUftVIC 


F08 THE 17 FURNISHED SUBROUTINES 




001 50* 








ADR S ARE SUPPLIED BY THE SUBROUTINE SUPERVISOR 








PCK 


-9 1 00 WN TO END OF 


JORT 


MAY BE USED IF NO ADDED 


SUBROUTS 




001 70 


P 


OS 


,0 






00000 


00000 




00180 


PL K 


OSB 


5 ,8 


» 2365 




'02365 


00040 




00190 




OS A 


PICK 






00004 


00005 -0100 


00 200 


E DGAR 


US 


, * -4 






00000 


00000 




002 10 




DORG 


EDGAR 






00000 








00 2 20 




OS 


46 , .WASTE 




00045 


00046 




00230 


ALPHA 


OS 


21 






00066 


000 21 




002*0 


SAVE 


OS 


1 1 






00077 


00011 




002 50 


BETA 


OS 


21 






00098 


000 21 








OS 


1 






00099 


0000 1 




00 2 70 


P 1CK 


T 


40 1 


.BETA* 1-P 


• 1« 


RESET ERROR INDICATOR 
00100 


2N 


00401 


00099 


00280 




TR 


PL**U 


,PCK*10 


till 


MOVE OPERANDS FROM MAINLINE 
















00112 


31 


02376 


0237N 


002^0 




AM 


PCK* 10 


• 11 




CALC RETURN ADR 00124 


1 1 


02375 


-0011 


00300 




BNF 


**44 


#PCK*15 




PROCESS A OPERAND 

00136 


M4 


00180 


02380 


00 3 10 




CP 


PCK + 15 






00148 


33 


02380 


00000 


CO 3 20 




TF 


PC** 15 


»PCK*15 


• 11 


00160 


26 


02 380 


0238r 


00330 




87 


*-36 




.0 


00172 


M9 


001 36 


00000 


003*0 




TF 


PCK*25 


,PCK*15 




A MINUS 2 00 180 


26 


02390 


02380 


00350 




SM 


PCk*25 


t2 




00192 


12 


02390 


-0002 


00 360 




bNF 


*♦<.<» 


,PCK*20 




PROCESS B OPERAND 

00204 


M4 


00248 


02385 


o(, 3 to 




CF 


PCK*20 






00216 


3 3 


02385 


00000 


00 i«0 




TF 


PCKt20 


,PC**20 


, 11 


00228 


26 


02385 


0238N 


00390 




87 


*- 36 






00240 


M9 


00204 


00000 


oo<»oo 




I f 


PCK* 30 


, PCK* 20 




B MINUS 2 00248 


26 


02 395 


02385 


i'OH 1 




SM 


PC K ♦ 30 


.2 


,5, 


DELIBERATE OVERFLOW 

00260 


12 


023R5 


00002 


4 2 




r f 


BETA 


,PCK*20 


, lit 


MOVE B CHAR TO BETA 

00272 


K6 


00098 


2 38N 


004 30 




TF 


BEIA-2 


i PCK* 30 


til. 


MOVE B MANT TO BETA-2 
00284 


K6 


00096 


0239N 


n04*»o 




8V 


PCk*5 




.6, 


RETURN TO SUBROUT INE 

00296 


46 


0237- 


01400 


04 M.) 


S I ON 


BNF 


• ♦24 


,99 


,0 


00308 


M4 


00332 


00099 



SPS II "0 MONITOR I SUBROUTINE SET 01 



00460 




bF 


ALPHA-2 




.0 


00 3 20 


L2 00064 


00000 


00-70 




A-M 


AtPHA-2 


► 00 


,010t SET HP 


EZ INDICATORS 

00332 


Jl 00064 


OOOtO 


00480 


STORE 


TF 


PCK*25 


, ALPHA-2 


.16 


003 44 


20 0239- 


00064 


004W0 




IF 


PCK*15 


►ALPHA 


.16 


00356 


20 0238- 


00066 


00500 




8 


PCK*10 , ,6 






00368 


49 0237N 


00000 


00510 


OV F L 


TDM 


40 1 i 


».l 


ill 


00380 


15 00401 


0000 J 


00520 




1 F 


ALPma-2 


,NlNfeS-2 


,01 


003 92 


KO 00064 


0049 7 


00530 




f F 


ALPHA 


•NINES 


tO I 


00404 


KO 00066 


00499 


00540 




H7 


Z RES* 30 




,06 


004 16 


M9 00470 


00000 


00550 


UNFl 


TDM 


40 I 


. 1 




00424 


15 00401 


00001 


00560 




CF 


99 






004 36 


33 00099 


00000 


00570 


2RES 


TF 


AlPHA-2 


.AZERO-2 


,01 


00448 


KO 00064 


00486 


00580 




T f 


ALPHA 


,AZERO 


.01 


00460 


KO 00066 


00488 


00590 




87 


STORE 


. 


,0 


00472 


M9 00344 


00000 


00600* 


PICK ROUT INE i 


-SHARED CONSTANTS AND 


WORKING STORAGE 






00610 


M3S0IG 


U < 


1 


► 240 1 




02401 


00001 




00620 




DC 


8 


,0000 0000 


00486 


00008 




00630 


A ZE RO 


oc 


? , 


,-99 




00488 


00002 




00640 




UC 


■ 1 -i 


► a 




00489 


00001 




00650 




DC 


8 


,9999 9999 


00497 


00008 




00660 


NINES 


DC 


2 


,99 




00499 


00002 




00670 




DC 


1 


► i . 




00500 


00001 




00680 


ONEZ 


OC 


13, 1000000000000 




00513 


00013 




00690 


LOGE 


DC 


10 


►43 4294 


4819 


00523 


00010 




00700 


LCNl 


f)C 


10 , 


► 7 6925 


0769 


005 33 


00010 




007 JO 


LCN2 


DC 


10 


,9 0909 


0909 


00543 


00010 




00720 


LCN3 


DC 


10 


.11 1111 


Ull 


00553 


00010 




00730 


LCN4 


PC 


10 


.14 2857 


1428 


00563 


00010 




00 740 


LCN5 


OC 


10 


.20 QOOO 


0000 


00573 


00010 




00750 


LCN6 


DC 


10 


.33 3333 


3333 


00583 


00010 




00760 


CZERO 


DC 


1 1 


.0 




00594 


00011 




00770 


F AC 


OS 




.ALPHA 




00066 


00000 




00780 




DC 


8, 10000000 




00602 


00008 




00790 


FLONE 


DC 


2.01 






00604 


00002 




00800 




DC 


l.a 






00605 


00001 




00810 




OEND 


01001 






01001 







SPS I I -0 MONITOR J SUBROUTINE SET 01 



00010 USA DIVW1 00004 00005-0000 

00020 DORG EDGAR 00000 

00030 0IVW1 TR PCK* 11 iPCMl'O til, MOVES DIV OPERANDS INTO PCK ARE A 

00000 31 02 376 02 37N 

00040 AH PCKMO .21 ,, CALC RETURN ADR 00012 11 02375 -0021 

00050 LO PCK*25 ,PCK*15 ,611 00024 28 0239- 0236- 

00060 U PCK*30 ,PCK*20 ,61 1 00036 29 0239N 0238N 

00070 b7 UK* ID , ,6 00048 49 0237N 00000 

00080 OfcNl) 10 1 1 101 I 



SPS 11-0 MCNITUR 1 SUBROUTINE SET 01 



00010 




USA 


FSl 


,FA1 






00004 
00009 


00005 -0000 
00 005 -00 20 


00020 




DORG 


EDGAR 








00000 








00030 


FSl 


TFM 


PCK*5 


, FA 1*20 




,17 


00000 


10 


02370 


-0040 


00040 




B7 


PCK , ,6 








000,12 


49 


0236N 


00000 


00050 


FA1 


TFM 


PCK*5 


, ASCOM 




.17 


00020 


10 


02370 


-0084 


00060 




B7 


PCK 






• 6 


., 00032 


49 


02 36N 


ooooo 


00070 




DC 


50 ,055000 50 50 5000055500 


00555050555005050050 5050505005,350 
















00350 


00050 




00080 




BNF 


ASCUM-12 


» BF T A-2 




• 0, 


CHANGE SIGN AND ADD 

00040 


MM 


00072 


00096 


00090 




CF 


BETA-2 








00052 


L3 


00096 


OOOOO 


00100 




B7 


ASCOM 








00064 


M9 


00084 


OOOOO 


001 10 




SF 


BETA-2 








00072 


L2 


00096 


OOOOO 


00120 


ASCOM 


TF 


ALPHA 


,PCK*15 




til, 


MOVE A OPERAND 00084 


K6 


00066 


0238- 


00 1 30 




TF 


ALPHA-2 


,PCK*25 




.11 


00096 


Kb 


00064 


0239- 


00140 




TDM 


ADD* 1 


, 1 




.0 


00108 


J5 


00313 


00001 


00150 




TFM 


ADD* 11 


, BE T A-2 




.07 


00120 


JO 


00323 


-0096 


00160 




C 


ALPHA 


.BETA 






00132 


KM 


00066 


00098 


00170 




BE 


ADD 






.0, 


CHARACTERISTICS EQUAL 
00 144 


M6 


00312 


01200 


00 180 




BH 


**<»8 






, , 


ALPHA LARGER THAN BETA 
00156 


M6 


00204 


01100 


00190 




TR 


ALPHA-9, 


BETA-9 , , 


SWITCH OPERANDS 00168 


LJ 


00037 


00089 


00200 




TF 


BETA,PCK*15, 1 1 






00180 


K6 


00098 


0238- 


00210 




TF 


BETA-2, PCK*25, 11 






00192 


K6 


00096 


0239- 


00220 




S 


BETA 


, ALPHA 




. . 


SCALE 00204 


KK 


00098 


00066 


00230 




BV 


STORE-12 








00216 


M6 


00332 


01400 


00240 




A 


ADD* 1 1 


.BETA 




.0 


00228 


KJ 


00323 


00098 


00250 




BNF 


**24 


f BETA-2 




.0 


00240 


MM 


00264 


00096 


00260 




TDM 


A0D*1 


,2 




.0 


00252 


J5 


00313 


00002 


00270 




CM 


BETA 


.7 




• 1011 


.CHECK DIFF IN CHARACTERISTICS 


















00264 


J4 


00098 


000-P 


00280 




BL 


STORE-12 








00276 


M7 


00332 


01300 


00290 




TOM 


BETA- 10 


,0 




.11 


00288 


J5 


00088 


0000- 


00300 




CF 


BETA-9 








003 00 


L3 


00069 


00000 


00310 


ADO 


A 


ALPHA-2 








00312 


Kl 


00064 


OOOOO 


00320 




TO 


99 


.ALPHA- 


2 




STORE SIGN 00324 


2N 


00099 


00064 


00330 




DC 


40 ,5 500 5050 55 


50 50505050 5505555050 0050505550 i 


340 


















00340 


00040 




00340 




TFM 


ZRES+30 


, S IGN 






00336 


JO 


00478 


-0306 


00350 




8NV 


NORM 








00340 


M7 


00426 


01400 


00360 




AM 


ALPHA 


f 1 




.10 


00360 


Jl 


00066 


000-1 


00370 




BV 


OVFL 








BR IF CHAR OVERFLOW 




















00372 


M6 


00360 


01400 


00380 




TF 


ALPHA-2 


.ALPHA- 


3 




ADJUST MANTISSA 00384 


KO 


00064 


00063 


00390 




TOM 


ALPHA-9 






.11 


00396 


J5 


00057 


0000 J 


00400 




CF 


ALPHA-8 








00406 


L3 


00056 


OOOOO 


00410 




87 


SIGN 








00420 


M9 


00306 


OOOOO 


00420 


NORM 


HI 


ZRES-12 


* 






BR IF ZERO 004 28 


M6 


00436 


01200 


00430 




CF 


ALPMA-2 






t » 


NORMALIZE 00440 


L3 


00064 


OOOOO 


00440 




TF 


BETA 


! ALPHA 






00452 


KO 


00096 


000*6 


00430 




BD 


• ♦66 


, ALPHA- 


9 


.0 


00464 


"I 


00532 


00057 



SPS I I -0 MONITOR I SUBROUT INE SET 01 



PAGE 5 





T R 


ALPMA-9 


, * i'HA-8 


00*70 


TD 


ALPMA-2 


• NOS DIG 


00*80 


SM 


BETA 


• 1 


00*90 


bNV 


»-48 




00500 


B7 


UNFL 




005 10 


SF 


ALPMA-9 




00520 


TP 


ALPHA 


i BET A 


005 30 


87 


S I GN 




00 5*0 


UfeNO 


10 22 





♦ 10 
.0 



00*76 LJ 00057 00058 

00*88 K5 0006* 02*01 

00500 J2 00098 000-1 

005 12 M7 00*6* 01*00 

0052* M9 00424 00000 

005 32 12 00057 00000 

0054* KO 00066 00098 

00556 M9 00308 00000 
01022 



21 i 



SPS 1 1 


-0 MONITOR I 


SUB ROUT INE 


SET 


01 








000 10 


DSA 


FM1 








0000* 00005 -0000 


00020 


on»a 


F or, AR 








00000 






000 30 FM1 


TFM 


PCK*5 


,•♦20 , 


17 




00000 10 


02370 


-0020 


QU0*0 


b7 


PCK 




6, 


BR TO PICK A NO 


RETURN 


















00012 *9 


02 36N 


00000 


00050 


OC 


30,550 5500050 0000005000 


0500050000,350 


00350 00030 




00060 


TFM 


7R6S*-30 


.SIGN 






00020 JO 


00478 


-0 308 


00070 


M 


PCK+25 


, BETA-2 , 


6, 


MUL MANTISSAS 


000 32 2L 


0239- 


00096 


00080 


BZ 


2RES-12 








000** M6 


004 36 


01200 


00090 


BO 


» ♦ 56 


,8* • 







00056 M3 


00112 


00084 


00100 


TFM 


SAVE 


,01 , 


10 1 1 < 


.CORRECTION FOR 


15 DIGIT PRODUCT 
















00068 J6 


00077 


000-J 


001 10 


SF 


85 








00080 32 


0008 5 


00000 


00120 


TF 


PCK+25 


,92 , 


6 




00092 26 


0239- 


00092 


00130 


B7 


• ♦32 









0010* M9 


00136 


00000 


001*0 


TFM 


SAVE 


,00 i 


10, 


INDICATE 16 DIGIT PRODUCT 


















00112 J6 


00077 


000-0 


00150 


TF 


PCK+25 


»9l , 


6 




00124 26 


0239- 


00091 


00160 


A 


PCK+15 


♦BETA , 


6, 


ADD CHARACTERISTICS 


















00136 2 J 


0238- 


00098 


00170 


BV 


1 + 72 








00148 M6 


00220 


01400 


00180 


A 


PCK+15 


* SAVE , 


6, 


ADJUST CHARACTERISTIC 


















00160 2 J 


0238- 


00077 


00190 


BNF 


#♦24,99 








00172 M4 


00196 


00099 


00200 


SF 


PCK+25, t6 








00184 32 


0239- 


00000 


002 10 


AM 


PCK+25, 00 


,610 






00196 U 


02J9- 


000-0 


00220 


BNV 


PCK+10,,6 








00208 47 


0237N 


01400 


00230 


B.NF 


• ♦20 


rPCK+15 , 


Oil, 


BR IF POSITIVE 


CHARACTERISTIC 
















00220 M4 


00240 


0238- 


002*0 


OC 


6,500550, 


350 






00350 00006 




002 50 


B7 


UNFL 








00232 M9 


00424 


00000 


00260 


A 


PCK+15 


, SAVE , 


6, 


ADJUST CHARACTERISTIC 


















0024 2 J 


0238- 


00077 


00270 


BNN 


OVFL 








00252 M6 


00380 


01300 


00280 


TFM 


PCK+15, 99 


,610 






00264 16 


0238- 


000R9 


00290 


87 


PCK+10,,6 








00276 49 


0237N 


00000 


00300 


DENO 


01041 








01041 







212 



SPS II -0 MONITOR I 



SUBROUTINE SET 01 



000 10 




OSA 


F I) 1 






00004 


00005 -0000 


00020 




UORG 


EDGAR 






00000 






00030 


FD 1 


TFM 


PCX**. 


.•♦20 


i 17 


00000 


10 02370 


-0020 


00040 




B7 


PCK 




,6, 


BR TO PICK AND RETURN 
00012 


49 0236N 


00000 


00050 




UC 


3* t 


50 500 5000 5 


5050505505 0500005000 5050,350 
















00350 


00034 




00060 




TF 


A I PHA.PCK* 15, 1 1 




00020 


K6 00066 


0238- 


00070 




TF 


ALPHA- 2 


i PCk ♦ 2 5 


» 1 1 


00032 


K6 00064 


0239- 


00080 




60 


M AN T 


, BE T A-9 


,0 , 


CK FOR ZERO IV 1 SOR 

00044 


ML 00112 


00089 


00090 




T DM 


40 1 


iO 


,11, 


SET ERROR CODE 00056 


15 00401 


0000- 


00100 




bo 


MAN T - 24 


, ALPHA-9 


,0 , 


CK FOR ZERO OIV IDEND 

00068 


ML 00088 


00057 


00 1 10 




b7 


"5 TOR F 






00080 


M9 00344 


00000 


00 1 20 




AM 


A l PH A 


, 99 




SIMULATE HAKDNARt ZERO 
00088 


I V I DE 
Jl 00066 


-0099 


1 30 




bv 


S TOR fc 






00100 


M6 00344 


01400 


00140 


M AN T 


TFM 


ZRE 30 


, SIGN 




00 11 2 


JO 00478 


-0308 


00 ISO 




LD 


9 1 


, ALPHA-/ 




IV IDE MAN ; 1 b b AS 001 ?4 


20 0009 1 


00064 


00160 







91 


,8ET A-2 




00 1 3 6 


2R 0009 1 


00096 


001 70 




TO 


99 ,9 1 , , 


SAVE SIGN 




00 1*8 


25 00099 


0009 1 


001 80 




bD 


Ch AR - / 4 


.83 


,0 


00 160 


M3 00228 


00083 


CO 1 90 




bZ 


ZKF. S- 12 






00 17/ 


M6 00436 


1 200 


00200 




SF 


84 






MA NT OF A SMALL Ek THAN 
00 184 


MANT OF f 

32 00084 


J 

00000 


002 10 




TF 


AlPuA-/ 


,9 1 




00 196 


Kb 00064 


0009 1 


0/20 




TFM 


r >A VF 


,00 


, 1 


00208 


J6 00077 


000-0 


002 30 




b 1 








00220 


M9 00252 


00000 


CG/40 




UC 


22 , 


50 50550055 


5050555550 50,350 00350 


00022 




00250 




TF 


ALPHA- 2 


,90 




0022b 


Kb 00064 


00090 


00260 




TFM 


SAVE 


,01 


, 10 


00240 


J6 00077 


000-1 


00/70 


Char 


S 


ALPHA, BE TA 




00252 


KK 00066 


00098 


00280 




bv 






,0 , 


BR IF DIFF GREATER THAN 99 
















00264 


M6 00308 


1400 


00290 




A 


ALPHA, SAVE 




00276 


Kj 00066 


00077 


00 300 




BNV 


SIGN 






BR IF STILL LESS THAN 
00288 


100 
M7 00308 


01400 


003 10 




b7 


OVF L 






00300 


M9 00380 


00000 


00 320 




BNP 


OVFl .ALPHA, ,OVFL 


IF EXP 


POSITIVE OR UNFLAGGED ZERO 
















00308 


MM 00380 


00066 


3 30 




A 


alpha, save 




00320 


Kj 00066 


0007 7 


5 <*0 






ZRfc S* 12 






BR IF MANT OF RESULT IS -99 
















003 32 


M6 00460 


1 100 


00350 




b7 


UNF L 






00344 


M9 00424 


00000 


CO 3rO 




U i NO 


10 5 1 






01051 







J i J 



SPS il-D MONITOR 1 SUBROUTINE SET 01 



000 10 




USA 


F SUk 1 








00004 


00005 -0000 


00020 




UORG 


EDGAR 








00 000 






OuO iU 


FSQR 1 


TFM 


P C K ♦ 5 


,♦♦20 




, 1 7 


000 00 


10 02370 


-0020 


0040 




B7 


PCK 






.6, 


BR TO PICK AND RETURN 




















000 12 


49 0236N 


00000 


00050 




DC 


46 ,0555505005 


5000000000 0000000500 0500550000 000005, 


346 
















00346 


00046 




00060 




&0 


•♦32 


,BETA- 


9 


.0 , 


BR NON ZERO ARG 00020 


ML 00052 


00089 


00070 




TFM 


ZRE S+ 30 


• S 1 Ok E 






000 3/ 


JO 00478 


-0344 


00080 




B7 


ZRE S 








BR ZERO ARG 00044 


M9 00448 


00000 


00090 




MM 


BETA 


, 50 




,10 


00052 


J 3 00098 


OOONO 


00 100 




bNF 


* + 36 


•BETA- 


2 


,0 , 


BR IF POSITIVE ARG 




















00064 


MM 00100 


00096 


00 i 10 




CF 


BETA-2 








00076 


L3 00096 


00000 


00 1 20 




TDM 


40 1 


tO 






00088 


15 00401 


00000 


001 30 




BO 


SO 3 


f 98 




,0, 


BR IF CHAR ODD 00 100 


M3 00436 


00098 


00 140 




TFM 


SO 2* 42 


, 89 




,010 


00112 


J6 00178 


00009 


00150 




BNF 


* + 24 


,99 




,0, 


BR IF CHAR POSITIVE 




















00124 


M4 00148 


00099 


00 1 60 


S02 


SF 


97 








SET SIGN OF CHAR 00136 


32 00097 


00000 


00 170 




TF 


PCK* 1 5 


• 97 




• 6, 


STORE RESULTANT CHARACTERISTIC 


















00148 


26 0238- 


00097 


00180 




I DM 


79 


,00 




,10, 


CLEAR WORKING AREA 




















00 160 


18 00079 


000-0 


00190 




TF 




» BET A- 


2 




MOVE MANTISSA INTO 89 OR 90 


















00 17 2 


20 00000 


00096 


00200 




TFM 


LSQ+18 


.81 




,010, 


MANTISSA ADR 00184 


J6 00258 


000Q1 


00210 




TFM 


LSQ+23 


» BE T A- 


10 


,07, 


RESULT ADR 00196 


JO 00263 


-0088 


00220 




TFM 


LSQM-6 


,81 




,010 


00208 


J6 00342 


00001 


00230 




TF 


BETA-2 


•ONEZ- 


4 




SET RESULT EQUAL 1000 00000 


















00220 


KO 00096 


00509 


00240 




B7 


LSOM 








00232 


M9 00348 


00000 


00250 


LSQ 


AM 


LSQ+23 


.2 




• 0610, 


RESULT ♦ 2 00240 


Jl 0026L 


000-2 


00260 




S 










MANTISSA MINUS RESULT 




















00252 


22 00000 


00000 


00270 




8NN 


L SO 






• , 


00264 


M6 00240 


01300 


0O2B0 




CM 


LSQ+23 


»8ETA- 


02 


• 07 


00276 


jM 00263 


-0096 


00290 




8NL 


SOEX 






,0, 


EXIT IF TERMINAL RESULT ADR REACHED 
















00288 


M6 00392 


01300 


00300 




A 


LSO+18 


,LSO*23 


• 01611 


, RESTORE LAST SUBTRACTION 


















00300 


KJ 00250 


0026L 


00310 




CF 


LSG*18 






,0 6, 


00312 


L3 00250 


00000 


00320 




AM 


LSQM-6 


.01 




,010, 


MOVE FLAG RIGHT ONE. 




















00324 


Jl 00342 


000-1 


00330 




SF 










003 36 


32 00000 


00000 


00340 


LSOM 


AM 


LSQ*18 


,02 




,010, 


MANTISSA ADR ♦ 2 00348 


Jl 00258 


000-2 


00350 




AM 


LSQ*23 


,01 




,010, 


RESULT ADR ♦ 1 00360 


Jl 00263 


000-1 


00360 




§M 


LSQ+23 


,09 




,0610, 


RISULT ♦ 9 00372 


J2 0026L 


000-9 


Q0370 




b7 


LSQ*12 








00384 


M9 00252 


00000 


00380 




DC 


14 ,5000000000 


50 50 i 


314 00314 


00014 




00390 


SOEX 


MM 


BETA-2 


•50 




• 10, 


EXIT 00392 


J 3 00096 


OOONO 


00400 




SF 


90 








00404 


32 00090 


00000 



VPS I I - 

004 10 
00420 
00430 S03 
00440 

00460 
00470 
00480 



T0« 



MONITOR 1 
P(K*25 
PCK* 10 
99 

BE T A- 10 



SUBROu* 
,97 



CF 

TFM 

tt7 

Of NO 



BETA-9 
SQ2*42 
SQ2-12 
106 1 



!NE SET 01 
.6, 

• 10. 
til. 



.010 
.0, 



STORE MANT ISSA RESULT 

00416 26 0239- 00097 
RETURN TO MAINLINE PROGRAM 

00428 49 0237N 00000 

CALC RESULT WHEN GIVEN CHAR ODD 

004 36 11 00099 OOONO 

LENGTHEN MANTISSA 

00448 J5 00088 0000- 

00460 L3 00089 00000 

00472 J6 00178 OOORO 

00484 M9 00124 00000 
01061 



SPS I I -D MON I row 1 



iUBKOUTlNt SET 01 



0< vr.no* 


TRANSFORMATION OF HASTINGS APPROX FOR SlNPU/2 








000 2 




USA 


FCUSi .FSlNl 






00 00 4 
000 09 


00005 -0000 
00005 -00 32 


OCu: 30 




DOR G 


t OC AR 






00 00 








(• 'J 4 


F'.. OS I 


T DM 


BNt>* 1,9,0 






00000 


J5 


00 321 


00009 


00u50 




TDM 


F^IN1*68 ,3 


,0 




O00 1 < 


J5 


00 100 


00003 


00060 




87 


FS1N1*24, ,0 






00024 


M9 


00056 


00000 


(100 70 


FS INI 


row 


BNP* 1,1,0 






000 3 2 


J5 


0032 1 


0000 1 


ooo ao 




T DM 


FSlNi*68 ,4 


• 




00044 


J5 


00100 


00004 


,.>>•;.• -jo 




TFM 


•! K 1 5 , *i-20 


.17 






10 


02370 


-0076 


00 too 




b7 


PCK , 


• 6 




0006B 


49 


0236N 


00000 


oo i io 




IX 


46 ,5000545550 


5550000050 


5000000500 


5005500500 500000, 


350 














00.3 5 


00046 




uj1<!0 




CM 


B£ T A , <♦ » 10 l l 






00076 


J4 


00098 


000-M 


00 1 30 




8H 


* *44 , ,0 






■00088 


M6 


00132 


01100 


00140 




TR 


BFTA-9 .FLONE-9 






00 100 


L J 


00089 


00595 


00150 




TR 


AlPHA-9 , BET A-9 






00112 


LJ 


00057 


00089 


(<0 160 




6 7 


STORE 






00 124 


M9 


00344 


00000 


00 170 




TFM 


ZRE S*30, STORE 






00132 


JO 


00478 


-0344 


00 1 80 




CM 


hFTA,08, 10 






00 144 


J4 


00098 


000-8 


00 190 




BNH 


**32, ,0 






00156 


M7 


00188 


01 100 


C0200 




TOM 


40 1 ,0, 11 






00 168 


15 


00401 


0000- 


002 10 




87 


ZRES 






00180 


M9 


00448 


00000 


00220 




CM 


BETA, 02, 10 






00188 


J4 


00098 


000-2 


00230 




BNH 


♦ ♦24, ,0 






00200 


M7 


00224 


01100 


00240 




TOM 


40 1,0 






00212 


15 


00401 


00000 


00250 




M 


RTWOPI ,BETA-2,0, 


REDUCE 




00224 


Kl. 


00771 


00096 


260 




CF 


B3 






00236 


33 


00083 


00000 


002 70 




AM 


BETA, 91 , 10 






00248 


Jl 


00098 


000R1 


00280 




TF 


BNP - 1 , BE T A .0 






00260 


KO 


00319 


00098 


00290 




SM 


BETA, 8, 10 






00272 


J2 


00098 


000-8 


00300 




TF 


•♦18, BETA, 






00284 


KO 


00302 


00098 


003 10 




SF 


*~m 






00296 


32 


00000 


00000 


00320 




TF 


ALPHA- 1 






00308 


K6 


00065 


00000 


003 30 


BNP 


a 


**36,,0 






00320 


M9 


00356 


00000 


00340 




BNF 


RTWOPI-27 ,99,0 






00332 


M4 


00744 


00099 


00 3 SO 




DC 


36 ,50 505050 50 


0055500055 


5050005500 


000050 

00 3 36 


,336 

00036 




00 360 




A 


ALPHA-1 ,CONA, 1 






00344 


KJ 


00065 


00780 


00 3 70 




SF 


ALPHA- 1 






00356 


L2 


00065 


00000 


00 380 




A 


ALPHA-l.CONB, 1 






00368 


KJ 


00065 


00789 


00390 




CF 


ALPHA- 1 






00360 


L3 


00065 


00000 


00400 




S 


ALPHA- 1 , CONA, 1 






00392 


KK 


00065 


00780 


00410 




BV 


♦♦12, ,0 






00404 


M6 


00416 


01400 


00420 




C 


ALPHA-2, AZERO-2 






004 16 


KM 


00064 


00486 


00430 




BE 


ZRES+12 






00428 


M6 


00460 


01200 


00440 




TFM 


+ ♦9,4,010 






00440 


J6 


00449 


000-4 


00450 




M 


ALPHA- I, ALPHA- 1 






00452 


KL 


00065 


00065 


00460 




TF 


SAVE, 90 






004 64 


K6 


00077 


00090 


004 70 




TF 


ALPHA- 10, CONC, 1 






00476 


KO 


00056 


00799 


00480 




TFM 


♦ ♦59,C0NC*10,017 






004 88 


JO 


00547 


-0809 


00490 




M 


SAVE , ALPHA-10 






00500 


KL 


00077 


00056 


00500 




BNF 


•♦24,99 ,0 






00512 


M4 


00536 


00099 



2 i G 



SPS ll-U MONITUR ! SUBROUTINE SET 01 



UU5 1 U 




i F 






005 24 


32 


00090 


00000 


UU ">l 










00 5 3 6 


21 


00090 


00000 


00 b 30 




T F 


ALPHA- 10 t vr. ■ 




005 4 8 


K6 


00056 


00090 


00 s*»o 




AM 


"-13, 10 ,0 10 






Jl 


00547 


000 JO 


on s 50 




SM 


*-i ?3, i ,0 io 




««t 7 3 


J2 


00449 


n? ?nn 


nn«! 7n 




HN Z 


•-«<., ,U 




00584 


M7 


00500 


1 ?00 








28 , 50*550 55050 0555505.000 50555050 


, ic o UU i CO 


00028 










ALPHA- 18 






L 2 


00048 


UU UU U 


nnsqn 






ALPHA- 1 , ALPHA- 10 




006 08 


XL 


00065 








T 


92 » A LPHA* 1 » » 


NORM 




2N 


0009 2 


00067 


006 10 




TR 


ALPHA-9,82 




006 32 


L 1 


00057 


0008 2 


0062 




TFM 


BE T A- 10 »0 1 , 10 




00644 


J6 


00088 


000 - 1 


006 30 




bD 


* «• 56 , ALPH A-9 , 




006 56 


ML 


00712 


0005 7 






T R 


ALPHA-9, ALPHA-6 






L J 


00057 


000 58 


00650 




SH 


BE TA- 10 , 1 » 10 




00680 


J2 


00088 


000-1 


00660 




TD 


ALPHA ,NOS DIG 




00692 


K5 


00066 


0240 1 


00670 




b 7 


*-48 , ,0 




nn7 ? 3 


M9 


00656 


uuuuu 


6 8 




$F 


ALPHA-9 






L 2 


00057 


00000 






y p 


ALPHA, BE T A- 10 






KO 


00066 








b 7 


SIGN 






M9 


00 308 


UUUUU 


nn 7 




SF 


ALPHA- 1 




nn tu 


L2 


0006 5 


nn nnn 
uu uuu 


? 




b 7 


BNP*24, ,0 






M9 


00344 


uuuuu 


00 7 30 


W T W P I 


DC 


9, 159154943 




007 7 1 


00009 










9,250000000 




007 8 


00009 




007bO 


CONb 


uc 


9 , 500000000 






00009 




OC 760 


CONC 


uc 


10 , 397 1067 1 50 




00799 


000 10 




00770 




DC 


10 ,-7657497509 




008 09 


00010 




00780 




OC 


10,8 16022 31 58 




008 19 


000 10 




00790 




DC 


10, -4 13<»lh 77 50 




00829 


00010 




00600 




DC 


10 ,0628 3 1852 T 




00839 


000 10 




008 1C 




UEND 


10 72 




1072 









SPS 11-D MONITOR I 



SUBROUTINE SET 01 



000 10 




DSA 


F ATN1 






00004 


00005 -0000 


0UU20 




DOR G 


EDGAR 






00000 








00030 


FATN1 


T FM 


PCK+5 


,•♦20 


, 1 


00000 


10 


02370 


00020 


00040 




B7 


PCK 




i 6, 


BR TO PICK AND RETURN 




















000 1 2 


49 


0236N 


00000 


00050 




DC 


50 ,0 55550 50 5550000 550 50000005055050505 05 050005 0005050, 350 














00350 


00050 




00060 




BD 


♦ ♦32 


» BE T A-9 


,0 , 


CK FOR ZERO MANTISSA 




















00020 


ML 


00052 


00089 


00070 




TR 


FAC-9 


,A ZERO-9 




00032 


L J 


00057 


00479 


00080 


RETURN 


b7 


STORE 






00044 


M9 


00344 


00000 


00090 




CM 


BETA 


,-3 


, 10, 


IS NUMBER TOO SMALL 




















00052 


J4 


00098 


000-L 


00100 




TR 


FAC-9 


, BE T A-9 




00064 


L J 


00057 


00089 


001 10 




b l 


STORE 






YES 00076 


M7 


00344 


01300 


00 120 




T FM 


TEST+11 . 




,07, 


NO 




















00088 


J6 


001 23 


-0000 


00130 




TD 


Tfc$T*9 


,Z 


,0 , 


STORE S IGN OF M ANT 1 SSA 




















00 100 


KN 


00121 


00096 


00140 


TEST 


CF 


2 






00112 


L3 


00096 


00000 


00150 




CM 


BETA 


• 


, 10, 


IS CHAR POS IT 1VE 001 24 


J4 


00098 


000-0 


00160 




BH 


C PLUS 




tO, 


YES 




















001 36 


M6 


00752 


01100 


00170 




BE 


ZERO C 




•o, 


EQUAL ZERO YES 




















00 148 


M6 


00244 


01200 


00180 




TFM 


TEST 3*11 


,Z 


,07, 


NO CHAR IS NEGATIVE 




















00160 


JO 


00219 


-0096 


00190 




A 


TEST 3*lli 


»BETA 


i0, 


00 172 


KJ 


00219 


00098 


00200 




TFM 


BE T A- 10 


.0 


,10 


00184 


J6 


00088 


000-0 


00210 




CP 


Z-7 


























00196 


L3 


00089 


00000 


00220 


TEST3 


TF 


Z 


























00208 


X.6 


00096 


00000 


002 30 




TDM 


Z-7 , 


,-10 
























00220 


J5 


00089 


0001- 


002*0 




CF 


Z-6 


























002 32 


L3 


00090 


00000 


00250 


ZEROC 


CM 


Z-6 , 


,29 


,10, 






















00244 


J4 


00090 


000K9 


00260 




81 


ARE T* 3 6 , 




,0 


00256 


M7 


00376 


01300 


00270 




MM 


z , 




,10, 


LARGER THAN POINT 29 




















00268 


J3 


00096 


000-6 


00280 




TOM 


90 , 


























00280 


15 


00090 


OOOOJ 


00290 




S 


z 


» SIX 


a, 






















00292 


KK 


00096 


01008 


00300 




TF 


SAVE 


,98 




003 04 


K6 


00077 


00098 


00310 




OC 


50,0 50 500 5000 55500 500 55505055000000555055000000000000,350 














003 50 


00050 




00320 




ID 


91 


tl 




HARDWARE DIVIDE 00316 


20 


00091 


00096 


00330 




D 


92 , 


, SAVE 




003 28 


2R 


00092 


00077 


00340 


ARE T 


TD 


TEST 2-13, 


,99 


,o , 











2 i 



SPS 1 1 -0 MONITOR I 



SUBROUTINE SET 01 



PAGE 13 



00340 K5 00579 00099 



00350 


TF 


2 , 


»90 




F I ft NT n ! f. 1 1\ 




00090 


00360 


SF 


T E S T ♦ 1 1 ■ i 




f i 




















00364 L2 00123 


00000 


00370 


M 


2 , 


,1 






















VJUJ fO *L UUUtO 




00380 


TF 


SAVE ■ 


,9} 




f I cm n if. i t c 


DDAAA K A flflf)77 
UUJOO MO UUU ' * 


nnno i 


00 390 


TFM 


LOOP A* 11 i 




q •y 


n l fit U 1 w 1 la 


UU^vvJ JU UlJ*t*t , 


-0552 


00400 


TFM 


• ♦9 


( 4 


»0 10 , 




















UU4 W J6 004*1 


000-4 


00410 


n 


LCN2-1 i 


► SAVE 






OU4^*» KL 00542 


00077 


00420 LOOP* 


TF 


F AC 








004 36 K6 00066 


00000 


Q0430 




FAC 


» 9 I 






















00448 K2 00066 


0009 1 


0044Q 




FAC 


> SAVE 




SEVENTEEN DIGIT 


PRODUCT 
















00460 KL 00066 


00077 


QQ450 


AM 


LOOP A* 11 i 


i 10 


»0 10 




00472 Jl 00447 


000 JO 




SM 


LOOPA^IS i 


i 1 


fOlOt 




00484 J2 00421 


000-1 


00470 


8N Z 


LOOP A i 




♦ t 




00496 M7 00436 


01200 


00480 


TF 


FAC i 


i ONE Z-3 








♦ 














00508 KO 00066 


00510 


00490 


S 


FAC i 


,91 








• 














00520 K2 00066 


0009 1 


00500 




F AC i 


i Z 








• 














00532 KL 00066 


00096 


005 10 


bNF 


TEST 2 i 


r TEST*1 1 


,01, 


BR IF X HAS LESS 


THAN .29 


» 














00544 MM 00592 


00123 


00520 


BNF 


•♦24 i 


»TEST2" ,, 13 


,01, 


BR IF QUOTIENT HAS POSITIVE 
















00556 MM 00580 


00579 


00530 


SF 


91 
























00568 32 00091 


00000 


00540 


A 


91 


.A CON 1 


tit 




















00580 2J 00091 


00979 


00550 TEST2 


BNF 


♦♦36 i 


> TEST* 10 


,0 1, 


BR IF CHAR NOT 1 


, 2, 3, 4 
















00592 MM 00628 


00122 


00560 


SF 


91 
























00604 32 00091 


00000 


00b 70 


DC 


5O,00500 5OO5OO0000000 505050055OO055O505OO5OO5O5 0O5 0OO,35O 














00350 00050 




00580 


A 


91 , 


,A CON 2 


tit 




















00616 2J 00091 


00989 


00590 


TFM 


FAC 


,01 


,10, 




















00628 J6 00066 


000-1 


00600 


TO 


92 


, BETA* 1 






00640 2N 00092 


00099 


006 10 LOOP* 


BO 


TEST 1-24: 


'82 


,0, 


NORMALIZATION 


















00652 M3 00708 


00082 


00620 


SM 


FAC 


, 1 


tlOt 




















00664 J2 00066 


000-1 


vOh"u) 


r« 


82 


,83 






















00676 31 00082 


00083 


006*0 


TO 


91 


,NOS 010 






00688 25 00091 


0*401 


00650 


87 


LOOP 2 , 




,0, 




















00700 M9 00652 


00000 



■J0e>6'j 




SF 


82 






00708 


32 


00082 


00000 


00670 




TF 


FAC-2 , 


,89 
























00720 


K6 


00064 


00089 


00680 


t e st i 


bNF 


STORE , 


,T£ST*9 , 


> It 


TERMINATE SUBROUTINE CALCULATION 














00732 


MM 


00344 


00121 


006^0 




B7 


SIGNt-12 






00744 


M9 


00320 


00000 


00700 


l PI US 


TF 


91 


,C ZERO-1 , 




CHAR POSITIVE 00752 


20 


00091 


00593 


00? 10 




CM 


BETA , 


,8 , 


i 10, 


00764 


J4 


00098 


000-8 


00720 




BH 


TEST 2*24, 


, < 


rO, 


BR IF CHAR GREATER THAN EIGHT 
















00776 


M6 


00616 


01100 


007 30 




TF 


FAC-2 


,C ZERO-3 , 




ADJUST POSITION OF 1 IN NUMERATOR 














007 88 


KO 


00064 


00591 


00 740 




TFM 


♦♦30 , 


,FAC-10 1 


,0 7, 








t 














008 00 


JO 


008 30 


-0056 


00750 




A 


•♦18 , 


,BETA , 


,0 


00812 


KJ 


008 30 


00098 


00760 




TOM 




























00824 


15 


00000 


00001 


00 7 70 




SF 


FAC-9 


























00836 


L2 


00057 


00000 


00780 




LO 


90 , 


, FAC-2 i 




HARDWARE DIVIDE 00848 


20 


00090 


00064 


00790 







90 


tl 




00860 


2R 


00090 


00096 


00800 




80 


SET VAL i 


,82 ,0, 


BR IF X EQUALS ONE 




















0087 2 


M3 


00952 


00082 


00810 




CM 


BETA , 


,4 1 


,10 


00884 


J4 


00098 


000-4 


00820 




BH 


TEST2+12 


t 1 


»o, 


BR IF CHAR EQUAL 5, 6, 


7, 


8 
















00696 


M6 


00604 


01100 


00830 




DC 


10,5000 5000 50,350 




00350 


00010 




00840 




TP 


Z 


,90 


»» 


ELIMINATE LEADING ZERO 




















0090B 


K6 


00096 


00090 


00850 




SF 


TEST*10 




,0, 






















00920 


L2 


00122 


00000 


00860 




SF 


Z-7 


























00932 


L2 


00069 


00000 


00870 




B7 


ZERO C 




,0, 






















00944 


M9 


00244 


00000 


00880 


SETVAL 


TR 


FAC-9 


,AC0N 1-10 


tit 


SET TO VALUE FOR X EQUAL ONE 
















00952 


LJ 


00057 


00990 


00890 




B7 


TEST 1 






00964 


M9 


00732 


00000 


00900 


AC ONI 


DC 




* 540 419 


500 








t 














00979 


00009 




00910 


AC ON 2 


DC 


10 


, 1 570 796 




, ,ARC TAN OF PI OVER TWO 




















00989 


00010 




00920 




DC 


8 


t 78 539 


• 16 


tt ARC TAN OF PI OVER FOUR 


















00997 


00008 




00990 


AC ON 3 


DC 


3 


tOOi,, 










t 














01000 


00003 




00940 




DC 


• 


,40000000 










t 














01008 


00008 




00950 


2 


OS 




,BETA-2 




0009ft 


00000 




00960 




DEMO 


01091 






01091 









2 in 



SPS II-D MONITOR I SUBROUTINE Sfc T 01 



PAGE 15 



HASTINGS -I'fROX 1 MA T ION 



00020 




USA 


FEXT I 


♦ FEX1 






00004 


00005 -0000 
















00009 


00005 -0020 


00030 




OORG 


EDGAR 








00000 








00040 




oc 


38 ,0500050000 0555505000 5550000000 


00050005 




• 338 
















00338 


00038 




OUWiO 


f-6 XT 1 


TKM 


NuT Z*30 


,ONk Z-2 


,07 




ooooo 


JO 


00114 


-0511 


00060 




u7 


FEX + * 1 2 








00012 


M9 


00032 


OOOOO 


00070 


FFX1 


TFM 


NO T 7*30 


,LOG E 


• 07 




00020 


JO 


00114 


-0523 


OOOftO 




TFM 


or*** 


.•♦20 


,17 




00032 


10 


02370 


-0052 


000 90 




87 


PCK 




,6, 


BR TQ PCK A NO 


RETURN 






















00044 


49 


0236N 


OOOOO 


00100 




fau 


NOT Z 


,0-9 


,0 , 


ZERO CHECK 
























00052 


ML 


00084 


00089 


001 10 




TR 


F AC-9 


, FlDNE-9 






00064 


L J 


00057 


00595 


00120 




B7 


STORE 








00076 


M9 


00344 


OOOOO 


00 1 30 


NOTZ 


CM 


D 


, -8 


,10, 


























00084 


J4 


00098 


000-0 


001^0 




bNH 


F E X 1 *44 








00096 


M7 


00064 


1 1 00 


001 50 






LOGE 


, 0- 2 






00 108 


KL 


005 2 3 


00096 


00 160 




CM 


o 




1 


























00120 




00098 


nn ' - 


00 1 70 




BL 








MUST CALC 
























00132 




00 168 


n \nn 


00 18C 




BNE 






,0 , 


OVER OR UNDER 








' nn 
















00144 


M7 


00604 


1 200 


00 190 




BO 


E RUuT 


1 8 2 


,0 • 


HI ORDER NOT 


ZERO 






















00 156 


M3 


00604 


00082 


00200 




L F 


62 






























00 168 


33 


00082 


OOOOO 


002 10 




TF 


8 1 


tC ZERQ-2 






00180 


20 


0008 1 


00592 


00220 




TFM 


•♦30 


,80 


,010, 


POSITION FLAG 


00192 


J6 


00222 


OOOOO 


00230 




A 


♦ ♦18 


,0 


,0 




00204 


KJ 


00222 


00098 


00240 




SF 
































00216 


32 


OOOOO 


OOOOO 


00250 




AM 


*-6 


,0 1 


,0 10, 


SET CHAR EQUAL 00228 


Jl 


00222 


000-1 


00260 




AM 


*-18 


,01 


• 0610 


•CHAR PLUS ONE 


00240 


Jl 


0022K 


000-1 


002 70 




BV 


E HUUT 




• , 


OVER OR UNDERFLOW 






















00252 


M6 


00604 


01400 


00280 




AM 


*-4<! 


,09 


• 10. 


MOVE MANT AND 


CHAR 






















00264 


Jl 


00222 


000-9 


00290 




OC 


40 ,5050005500 50 55500000 0050550050 


555505 0050 


• 340 
















00340 


00040 




00 iOO 




T F 


FAC*Q 


,*-54 


• 11 




00276 


KO 


00075 


0022K 


00 3 10 




SF 


FAC*1 








00288 


L2 


00067 


OOOOO 


00320 




TFM 


L0UPE>11 


,EXCN1 


.0 17, 


INIT CALC LOOP 00300 


JO 


00347 


-0645 


00 3 30 




TF 


FAC-2 


,C ZERO 






003 12 


KO 


00064 


00594 


00 3 40 




TFM 


LOOPE-3 


,7 


tO 10, 


COUNT 


00324 


J6 


00333 


000-7 


00350 




A 


FAC-2 








003 36 


Kl 


00064 


OOOOO 


00 360 




M 


FAC-2 


,FAC+9 






00348 


KL 


00064 


00075 


003 70 




TF 


FAC-2 


,90 




























00360 


K6 


00064 


00090 


00380 




AM 


LOQPE+ 1 1 


til 


• 010, 


ADJUST LOOP VALVES 









SPS Il-D MONITOR I 



SUBROUTINE SET 01 













00372 


Jl 


00347 


000J1 


00340 


SM 


LOOPE-3 


. 1 


• 010, 


00384 


J2 


00333 


000-1 


00400 


BNZ 


LOOP E 


• 1 


• 


00396 


M7 


00336 


01201 


004 10 


AM 


FAC-i 1 


• 10 


, 10, AOO ONE 


00408 


Jl 


00055 


OOOJO 


00420 


M 


FAC-3 


, FAC-3 




00420 


KL 


00063 


00063 


00430 


SF 


81 






004 32 


32 


00081 


OOOOO 


00440 


TF 


FAC-2 


,88 




00444 


K6 


00064 


00088 


00450 


TD 


FAC+1 


» BE T A+ 1 




00456 


KN 


00067 


00099 


00460* 




CHECK FOR 


NEGATIVE X 










00470 


BNF 


STORE 


• 0-2 




00468 


MM 


00344 


00096 


00480 


C 


88 


.QNEZ-5 




00480 


2M 


00088 


00508 


00490 


BNE 


•♦3 2 




' iO 


00492 


M7 


00524 


01200 


00500 


SM 


F AC 


.1 


.10 


005 04 


J2 


00066 


000-1 


005 10 


8 7 


6ROUT-32 




.0 


00516 


M9 


00572 


ooooo 


0O520 


DC 


20 ,500 50 550 50 


5050555550 ,320 


00320 


00020 




00530 


TF 


SAVE 


,89 




00524 


K6 


00077 


00089 


00 540 


LO 


92 


* ONE Z- 


3 • • HARDWARE DIVIDE 


00536 


20 


00092 


L 

00510 


00550 


U 


9 2 


, SAVE 




00548 


2R 


00092 


0007 7 


00560 


TF 


FAC-2. 90 






00560 


K6 


00064 


00090 


005 70 


SF 


F AC 






00572 


L2 


00066 


ooooo 


00580 


AM 


F AC 


.0 1 


• 10 


00584 


Jl 


00066 


000-1 


00590 


87 


STORE 






005 96 


M9 


00344 


OOOOO 


0O600 E ROUT 


TFM 


ZRES*30, 


STORE 




00604 


JO 


00478 


-0 344 


006 10 


BNF 


OVFL.0-2 






006 16 


MM 


00380 


00096 


00620 


B7 


UNFL 






00628 


M9 


00424 


OOOOO 



00630 EXCN1 

00640 

00650 

00660 

00670 

00680 

00690 

00700 D 
00710 



OC 
DC 
OC 
DC 
OC 
UC 
OC 
OS 

OlENO 



11 
u 
11 
11 
11 
11 
1 1 



• 9326 427,, 
, 2 5549 180., 

• 17 4211 199,, 
, 72 9517 367,, 
, 254 39J5 748,, 
, 662 7308 843,, 
, 1151 2927 760, , 
, BETA 



00645 00011 
00656 00011 



00667 

00678 

00689 

00700 

00711 
00098 
01102 



00011 

000 1 1 

poo 11 

0001 1 

000 1 1 
OOOOO 



222 



SPS I 1 -0 HON I TOR I 



SUBROUTINE SET 01 



PAC6 17 



000 10 




USA 


F LOG 1 


t F l ' 






00004 


00005 -0000 
















00009 


00005 -0020 


00020 




DORG 


tOGAR 








00000 








00030 


FL0G1 


TOM 


MULM-11 


♦ 9 


fO 




00000 


J5 


00513 


00009 


00040 




d7 


F LN !♦ 1 2 




»o 




00012 


M9 


00032 


00000 


00050" 




RELOCATABLE 


SPS FLOATING IN 












00060 


F LN1 


TOM 


MUCM-il 


• 1 


tO 




00020 


J5 


00513 




00070 




TFM 


PCK*5 


.•♦20 


.17 




000 32 


10 


02 370 


0052 


00080 




B7 


PCK 




.6 




00044 


49 


02 36N 


UUUUU 


00090 




oc 


42,500500000000 0550000050 5000550000 5555050550 . : 


350 


















00350 


0004 2 




00100 




CF 


B-7 








00052 


L3 


00089 


UUUUU 


00110 




BO 


•♦56 


• B-7 


.0 , 


BR IF MANT NOT 


ZERO 






















00064 


ML 


00120 


0008 9 


00120 




TOM 


401 ,0 , 1 1 








00076 


15 


00401 


0000 - 


00130 




TF 


PCK*25 


iNNINES 


• 6 




00088 


20 


0239- 


00865 


oouo 




TFM 


PCK*15 


,♦99 


• 610 




00100 


16 


0238- 


000R9 


00150 




87 


PCK* 10 




• 6 




001 12 


49 


0237N 


00000 


00160 




BNF 


EVAL PN 


tB 


.0 , 


BR IF MANT IS 


POS IT IVE 






















00120 


MM 


00156 


00096 


001 70 




CF 


B 








00132 


L3 


00096 


00000 


00180 




TOM 


40 1,0 








00144 


15 


00401 


00000 


00190* 




EVALUATE X 


EQUAL PN 


SO THAT 


X IS GREATER 


THAN 








00200**i**** 


ONE 


HALF ANO 


P EQUALS 


1. 2.4 


• 8 










00210 


EVALPN 


TFM 


L00PL*107 


iCONST 


.017, 




00156 


JO 


00499 


-0813 


00220 




TOM 


B-8 


, 1 


• lit 


SET X EQUAL X 


PLUS ONE 






















00168 


J 5 


00088 


0000 J 


00230 




CM 


B-7 


.15 


.10 




00180 


J4 


00089 


0O0J5 


0Q240 




BNL 


• ♦44 




• , 


BR MODIFIED X 


MORE THAN 3 


HALVES 
















00192 


M6 


00236 


01300 


00250 




A 


B 


• B 




SET X EQUAL X 


PLUS X 






















00204 


KJ 


00096 


00096 


00260 




AM 


LOOPLM07 


ill 


t07, 


STEP IN P FOR 


P EQUAL P*P 




















00216 


Jl 


00499 


-0011 


00270 




B7 


*-60 




fO 




00228 


M9 


00168 


00000 


00280 




TF 


FAC-2 


tB 




























00236 


KO 


00064 


00096 


00290 




S 


FAC-2 


•LCN5-1 


• t 


SET NUMERATOR 


EQUAL X-; 


I 




















00248 


KK 


00064 


00572 


00300 




LD 


89 


•FAC-2 


» ♦ 


HARDWARE 0IV10E 00260 


2Q 


00089 


00064 


003 10 




D 


89 


, B 






00272 


2R 


00089 


00096 


00320 




TF 


B 


.90 






00284 


Kb 


00096 


00090 


00330 




DC 


46, 5050555055 5505005055 


5000000055 0550500005 050555,350 
















00350 


00046 




00340 




SF 


8 








00296 


L2 


00096 


00000 


00350 




SF 


B-9 








00308 


12 


00087 


00000 


00360 




M 


B 


• B 




2 TIMES Z 


00320 


KL 


00096 


00096 


00 3 70 




TF 


SAVE 


• 89 






003 32 


K6 


00077 


00089 


00380 




A 


B 


• B 




2 PLUS Z 


00344 


KJ 


00096 


00096 


00390 




TF 


FAC 


.CZERO-l 






00356 


KO 


00066 


00593 


00400 




TFM 


LOOP L*ll 


, LCN 1 


.07 




00368 


JO 


00403 


-0533 


004 10 




TFM 


• ♦9 


.6 


.010 




00380 


J6 


00389 


000-6 



00*20 


LOOPL 


A 


FAC 






CALC SERIES 


US1 


NG I SQUARED 






















00392 


Kl 


00066 


00000 


00430 




M 


FAC 


» SAVE 










00404 


KL 


00066 


00077 


004<t0 




TF 


FAC 


• 69 










00416 


K6 


00066 


00089 


00450 




AM 


L00PLM1 


» 10 


.0 7 








00428 


Jl 


00403 


-0010 


00460 




SM 


L00PL-3 


• 1 


.010 








00440 


J2 


00389 


000-1 


00470 




BNZ 


LOOP L 




• 








00452 


M7 


00392 


01200 


00480 




M 


FAC 


• B 




CONVERT TO 


ODD 


POWERS 


OF 


2 






















00464 


KL 


00066 


00096 


00490 




S 


89 


.8 










00476 


2K 


00089 


00096 


00500 




TF 


b 












00488 


K6 


00096 


00000 


00 5 10 




S 


b 


,89 










00500 


K2 


00096 


0008 9 


00 520 




NOP 


MULLOG 




.0, 


BR 


IF LOG CALC 


RATHER THAN LN CALC 




















0051 2 


Ml 


00736 


00000 


00530 


MULM 


M 


LNTEN 


• B*2 


.0 








00524 


KL 


00857 


00098 


00540 




A 


99 


• B 










00536 


2J 


00099 


00096 


00550 




C 


97 


»C ZERO 










00548 


2M 


00097 


00594 


00560 




TR 


FAC-9 


.AZERO-9 










00560 


L J 


00057 


00479 


00570 




OC 


38 ,5000000500 0000000000 0000000000 55505055 


♦ 338 






















00338 


00038 




00580 




BE 


STORE 






BR 


IF X WAS 


ONE 


00572 


M6 


00344 


01200 


00590 




TFM 


PCK * I 5 


♦ 03 


',610 






00584 


16 


0238- 


000-3 


00600 




TO 


FLN1*7 


.99 


.0 








00596 


K5 


00027 


00099 


00610 




TO 


99 


• BETA* 1 










00608 


2N 


00099 


00099 


00620 




BO 


♦ ♦56 


,87 


.0 








006 20 


M3 


006 76 


0008 7 


00630 




TR 


87 


,88 










00632 


31 


00087 


00088 


00640 




SM 


PCK+15 


.01 


.610 








00644 


12 


0238- 


000-1 


00650 




TO 


98 


»N0S OIG 










00656 


25 


00098 


02401 


00660 




B7 


♦ -48 












00668 


M9 


006 20 


00000 


00670 




SF 


87 












00676 


32 


00087 


00000 


00680 




BNF 


♦ ♦24 


,FLN1*7 


.01. 


SET 


FLAG 




006 88 


MM 


00712 


00027 


00690 




SF 


94 












00700 


32 


00094 


ooooo 


00700 




TF 


PCK+25 


• 94 


• 6 








00712 


26 


0239- 


00094 


00710 




B 


PCK+10 




.6 








00724 


49 


0237N 


OOOOO 


00720 


MULLOG 


TOM 


79 












007 36 


15 


00079 


OOOOO 


00730 




M 


LOGE 


• B 










00748 


KL 


00523 


00096 


00740 




TF 


B 


,89 










00760 


K6 


00096 


00089 


00750 




SF 


B 












00772 


L2 


00096 


OOOOO 


00760 




M 


0NEZ-2 


.8*2 










007 84 


KL 


00511 


0009S 


00770 




87 


MULM*12 


» 


.0 








00796 


M9 


00536 


OOOOO 


00780 


CONST 


DC 


11 


• 










008 1 3 


00011 




00790 




OC 


11,-6931471805 










00824 


000 1 1 




00800 




OC 


1 1 .-13862943611 










008 35 


00011 




00810 




DC 


11,-20794 


415416 










00846 


00011 




00820 


LNTEN 


OC 


11 ,23025850929 










00837 


00011 




00830 


NNINES 


DC 


8,-99999999 










00865 


00008 




00840 


8 


OS 




.BETA-2 










00096 


00000 




00850 




DENO 


01122 












01122 









224 



SPS 1 1-0 MONITOR I 



SUBROUTINE SET 01 



00010 


USA 


FSRS1 






00004 00005 -0000 


00020 


DORG 


EDGAR 






00000 


00090 FSRS1 


TFA 


P«*5 


,•♦20 


1 17 


00000 10 02370 -0020 


00040 


B7 


PCK 


t 


»6, 


BR TO PICK A NO RETURN 

00012 49 0236N 00000 


00050 


BNF 


• ♦24 


.PCK+15 


.011* 


SAVE FLAG ALPHA F IfeLO 

00020 M4 00044 0238- 


00060 


OC 


12 .5000000000 05 


.312 


00312 00012 


000 TO 


SF 


BETA 






00032 L2 00098 00000 


oooto 


S 


PCK+15 


.PCK+15 


.411. 


ZERO ALPHA F1EL0 00044 22 023B- 0238- 


00090 


SM 


PCK+20 


tl 


t lOt 


LOCATE HI ORDER FLAG FROM B OPERAND 

00054 12 02385 000-1 


00100 


BNF 


•-12 


.PCK+20 


,011 


000*8 M4 00056 0238N 


00110 


CF 


PCK+20 


t 


.6, 


REMOVE FLAG FRON B OPERAND 

00080 33 02 38N 00000 




TF 


HUf 15 


♦ BETA 


.6* 


MOVE FIELD TO A OPERAND 

00092 20 0238- 00098 


00 HO 


B7 


PCK+10 


t 


.6, 


RETURN TO MAINLINE PROGRAM 

00104 49 0237N 00000 


00140 


UENO 


OHM 






01141 



9 



SPS 1 1 -0 MONITOR I SUBROUTINE SET 01 



00010 


OSA 


FSLSl 






)004 00005 -0000 


00020 


OORG 


EOGAR 






00000 


00030 FSLS1 


TFM 


PCK*5 


,•♦20 


t!7 


00000 10 02370 -0020 


00040 


b7 


PCK 




t6. 


BR TO PICK AND RETURN 












00012 49 0236N 00000 


00050 


DC 


14 ,0 550000000 0005 


.314 00314 00014 


00060 


TD 


• -1 


t BETA 


tOt 


SAVE SIGN OF B FIELD 












00020 KN 00019 00098 


00070 


CF 


BETA 






00032 L3 0009B 00000 


00080 


TF 


PCK*30 


tPCK+20 


♦ » 


PROVIDE WORKING AOR OF 8 FIELD 












00044 26 02395 02385 


00090 


SM 


PCK*30 


. 1 


1 1 


SUB TO ESTABLISH LENGTH. 












00056 12 02395 -0001 


00100 


AM 


PCK*15 


1 1 


1 1 


ADJUST A FIELD AOR FOR EACH DIGIT 












00068 11 02380 -0001 


00110 


bNF 


♦-24 


.PCK+30 


.011, 


IN B FIELD 00080 M* 00056 0239N 


00120 


TF 


PCK*15 


« BETA 


.6. 


MOVE b FIELD TO AOJUSTED A FIELO 












00092 20 0238- 00098 


00130 


C 


PCK*15 


,PCK+20 




00104 24 02380 02385 


00140 


BNN 


• ♦44 


t 


.0, 


BR WHEN NO MORE ZEROS REQUIRED 












00116 M6 00160 01300 


00150 


AM 


PCK+15 


t 1 




ADJ ADR OF A FIELD 












00128 11 02380 -0001 


00160 


TOM 


PCK+15 


tO 


.6, 


MOVE IN ZERO KT OF DATA IN A FIELD 












00140 15 0238- 00000 


00170 


t»7 


•-48 




• 


00152 M9 00104 00000 


00180 


BNF 


PCK+10 


!fslsi*i9 


.16, 


RESTORE PROPER SIGN AND 












00160 4M 0237N 00019 


00190 


SF 


PCK+20 




.6. 


RETURN TO MAINLINE 












00172 32 0238N 00000 


00200 


87 


PCK+10 




.6, 


PROGRAM 00184 49 0237N 00000 


00210 


DEND 


01151 






01151 



SPS 1I-D MONITOR 1 SUBROUTINE SET 01 



000 10 


DbA 


TFLSl 






0000* 00005 -oooo 


00020 


UURG 


EOGAR 






00000 


00030 TFLSl 


TFM 


PCK*5 i 


>* + 20 


» 17 


00000 10 02370 -0020 


Q0040 


B7 


PCK , 




»6, 


BR TO PICK AND RETURN 

00012 49 0236N 00000 


00050 


DC 


4 ,0505, 


,304 




003 04 00004 


00060 


TF 


PCK* 15 , 


i BETA 


.6. 


MOVE CHARACTERISTIC 

00020 20 0236- 00098 


000 70 


TF 


PCK*25 


» BE TA-2 


»6, 


MOVE MANTISSA 00032 20 0239- 00096 


OOOHO 


B7 


PCK*10 , 




.6, 


RETURN TO MAINLINE PROGRAM 

00044 49 0237N 00000 


00090 


UEND 


1161 






01161 



227 



bPS 1I-D MONITOR I SUBROUTINE SET 01 



000 10 


USA 


BTFS1 






00004 00005 -0000 


00020 


UORG 


EDGAR 






00000 




00030 a if si 


TFM 


PCK*5 


,♦♦20 


,17 


00000 10 02370 


-0020 


00040 


B7 


PCK 




,6, 


BR TO PICK AND RETURN 

00012 49 0236N 


00000 


OOCO 


SM 


PCK+25 


. 1 




ADJ AOR TO A F I ELD-3 

00020 12 02390 


-0001 


00060 


DC 


6 ,050005*350 




00350 00006 




00C70 


TF 


PCK+25 


f BETA-2 


,6, 


MOVE MANTISSA 00032 20 0239- 


00096 


0008U 


TF 


♦ ♦30 


♦PCK+10 


.0, 


STORE RETURN AOR OF MAINLINE 

00044 K6 00074 


02375 


00090 


BT 


PCK+15 


f BETA 


,6, 


BR A NO MOVE CHARACTERISTIC 

00056 2P 0238- 


00098 


001 DO 


B7 








BR TO MAINLINE WHEN BB OCCURS 

00068 49 00000 


00000 


001 10 


OENO 


01171 






01171 





22S 



SPS ll-O MONITOR 1 SUbROuTlNE SET 02 



OOU 10**** 
00020**** 
0UO30**** 

ouo4o**** 

00050**** 
00060**** 
00070**** 
000*0**** 
00090**** 
00100**** 
00 1 10**** 
001 20* 
00 1 30**** 
00140* 
00 1 5U"*»* 
00 160**** 
00 1 70**"* 



PCK AREA MAY 6fc USED AS A WORK AREA IF SUBR NOT USED. IF 
SUBROUTINES R EU U I R E • THEN THE AREA IS USED AS FOLLOWS 
0240 1 NOISE DIGIT. SOURCE » SUBROUT INE SUPERVISOR 

PCK ADR OF PICK. SOU WCEiSUB ROUT INE SUPERVISOR 

PCK*5 ADR OF RETURN TU SUBR. SOURCE , SUBROUT INE 

PCK*10 ADR OF RETURN TU MAINLINE. SOURCE , PR IMARY LINKAGE 
PCK*15 ADR OF A U PER AND CHARACTERISTIC. SOURCE, PICK 
PCK-*20 A OR OF B OPERAND CHARACTERISTIC. SOURCE, PICK 
PCK*25 ADR OF A OPERAND MANTISSA. SOURCE, PICK 

PCK*3U ADR OF b OPERAND MANTISSA. SOURCE, PICK 

PCK*31 RESERVED FOR POSSIBLE RECORD MARK 
PCK*35 4 RESERVED CORE 

PCK-6 THRU PCK-90 SUBVEC FOR THE 17 FURNISHED SUBROUTINES 

AORS ARE SUPPLIED BY THE SUBROUTINE SUPERVISOR 
PCK-^i QUwN TU tND OF IORT MAY BE USED IF NO ADD F U SUBROUTS 
PICK FUR VARIAHLE LtNGTM SUBROUTINES 
FOR OPERANDS A AND B ONLY 





PCK 


USB 


5 , B 


, 2 365 




02365 


00040 




00 1 90 


NO SO I G 






« 2 40 1 


* 


NOISF DIGIT FOR SUBRS 
02401 


0000 1 




00200 


EDGAR 


UORG 


*♦! 






00000 


















00004 


00005 -0198 


00220 




DORG 








00000 












b 1 






00050 


0005 1 




00240 


P 


U S 





, ALPHA- 


ALPHA 


00000 


00000 




002 50 


SAVE 


US 


50 






00 100 


OOO'O 
















00196 


00096 




002 70 




us 


1 






00 197 


0000 1 




00280 


PICK 


TU 


40 1 


, B E T A + 1 


-P ilt 


RESET ERROR INDICATOR 
00 198 


2N 00401 


00 197 


00290 




TK 


PCK* 11 


, PCK* 10 


,11, 


MOVE OPERANDS F RUM MAINLINE 
















00210 


31 02376 


0237N 


00 300 




AM 


PCK* 10 


, 11 




CALC Kf T URN ADR 00222 


11 02375 


-001 1 


003 10 




BNF 


*♦<♦<» 


,PCK* 1 5 




PROCESS A OPERANO 

002 34 


M4 00278 


02380 


00 320 




CF 


PCK * 1 5 






00246 


33 02380 


00000 


00 330 




TF 


P(.K* lb 


, PCK* IS 


, 1 1 


00258 


26 02380 


0238- 


00 340 




til 


*-3fe 




,0 


00270 


M9 00234 


00000 


00350 




TF 


PCK425 


, PCK* 1 5 




A MINUS 2 00278 


26 02390 


02380 


00360 




SM 


PCK*25 


, 2 




00290 


12 02390 


-0002 


00 370 




BNF 


* *<»4 


,PCK*20 




PROCESS B OPERAND 

00302 


M4 00346 


02385 


00380 




CF 


PCK*20 






003 14 


33 02385 


00000 


00390 




TF 


PCK+20 


,PlK ♦ 20 


, 1 1 


00326 


26 02385 


023RN 


00400 




tl 7 


*-36 






003 38 


M9 00302 


00000 


004 10 




TF 


PCK-t-30 


,P(,K *20 




B MINUS 2 00346 


26 02395 


02385 


00 4 20 




SM 


PCK* 30 


, 2 


,5, 


DELIBERATE OVERFLOW 

00358 


1 2 023R5 


00002 


004 30 




TF 


BETA 


, PCK*?0 


,11, 


MOVE b CHAP Tf] BETA 

00370 


K6 00196 


0238N 


004^0 




TF 


BETA-2 


,PCk*30 


,11, 


MOVE b MANT TO BETA-2 
00382 


K6 00194 


0239N 


4') o 




BV 


PCK + 5 




, b, 


RETURN TO SUBROUTINE 







00394 46 0237- 01400 



00460 


SIGN 


BNF 


**24 


,99 




AFFIX PROPER SIGN 




















00406 


M4 00430 


00099 


04 70 




SF 


ALPHA-2 








00418 


L2 00048 


ooooo 


00480 




AM 


ALPHA-2 


,00 


,10, 


SET INDICATORS 


004 30 


Jl 00048 


000-0 


00490 


STORE 


TF 


PCK+25 


, ALPHA-2 


t 6, 


MOVE ALPHA-2 TO 


A MANT 

00442 


20 0239- 


00048 


00500 




TF 


PCK*15 


.ALPHA 


,6, 


MOVE ALPHA-2 TO 


A CHAR 
00454 


20 0238- 


00050 


005 10 




B7 


PCK*10 




,6 




00466 


49 0237N 


OOOOO 


00520 




DC 


12 


10000000 1 


,312 




00312 


00012 




00530 


OVFL 


TDM 


40 1 


,-1 






00474 


15 00401 


0000 J 


00540 




TF 


PCK*25 


» NI NE -45 


i6. 


t*L 


00486 


20 0239- 


00763 


00550 




TFM 


PCK*15 


,99 


,610 




00498 


16 0238- 


000R9 


00560 




b7 


ZRES+24 








005 10 


M9 00554 


OOOOO 


00570 


UNFL 


TDM 


40 1 


, 1 






00518 


15 00401 


ooodi 


OObHO 


ZRES 


TF 


PCK+25 


,CLR-96 


16, 


, *L 


005 30 


20 02 39- 


00808 


00590 




TFM 


PCK+15 




,610 




00542 


16 0238- 


OOORR 


00600 




AM 


PCK*25 


,00 


,610 




005 54 


11 02 39- 


000-0 


00610 




b7 


PCK* 10 




,6 




00566 


49 0237N 


OOOOO 


00620 




SHARED CONSTANTS 












00630 


ONE Z 


DC 


49 


, 100000X)000000000000000000000000000000000000000000 
















006 21 


00049 




00640 


P I0V2 


DC 


4 7 


, 15707963267948966192313216916397514420985846996 
















00668 


00047 




00650 


LOGE 


DC 


47 


,43429448190 32 5182 7651128918916605 08 2294 3970058 
















007 15 


00047 




00660 


LN10 


DC 


48 


,2 30 25850 92994045684017991454684364 2076011014886 2 
















00763 


00048 




00670 


NINE 


DC 


45 


,9999999^9999999999999999999999999999999999999 


















008 08 


00045 




00680 


CLR 


OS 


9b 






96 ZEROS 


00904 


00096 




00690 




OC 


4* 


,0 


, * 




009 04 


00048 




00700 




OC 


49 


tO 


,♦-47 




00857 


00049 




00710 




DENO 


2001 








02001 







23 H 



SPS Il-U MONITOR I SUBROUTINE SET 02 



PAGE 3 



000 10 


OSA 








00004 00005 *>0000 


00020 


OQRG 


EQGAR 






00000 


00030 DIVW1 


TR 


PCK*U 


»PCK>10 




MOVES 01V OPERANOS INTO PC* AH E A 

00000 31 02376 0237N 


00040 


AM • 


PCK*10 


,21 


» » 


CALC RETURN ADR 00012 11 02375 -0021 


00040 


TF 


85 


,CIR-10 




00024 20 00085 00894 


00060 


ID 


PCK*25 


,PCK*15 


,611 


00036 28 0239- 0238- 


0Q0 70 





PCK*30 


,PCK*20 


,611 


00048 29 0239N 023BN 


00080 


B7 


PCK*10 


» 


,6 


00060 49 0237N 00000 


00090 


OENO 


020 11 






02011 



23 1 



SPS I I -0 MONITOR I SUBROUTINE SET 02 PAGE 4 

000 10 USA FS3 ,FA3 ,FM3 ,FD3 00004 00005 -0000 



00009 00005 -0020 
00014 00005 -0564 
00019 00005 -0748 



00020 




UORG 


EDGAR 






00000 




00030 


FS3 


TFM 


BRANCH+6 


, BRANCHES 


,017, 


SET UP FOR SUBTRACT 
















00000 JO 00106 


-0108 


00040 




87 


FA3*12 




,0 


00012 M9 00032 


00000 


00050 


FA3 


TFM 


BR ANCH+6 


, INAOO 


,017, 


SET UP FOR ADO 00020 JO 00106 


-0152 


00060 




TFM 


PCK + 5 


,♦♦20 


,17 


00032 10 02370 


-0052 


00070 




B7 


PCK 




16 


00044 49 0236N 


00000 


00080 




DC 


44 , 50507070 0005500050 0005550000 7750505550 515005 . 


,346 














00346 00044 




00090 




Tf 


ALPHA-P 


,PCK*15 


,11, 


MOVE A OPERAND CHAR 
















00052 K6 00050 


0238- 


00100 




TF 


ALPMA-2-P 


,PCK*25 


.11. 


MOVE A OPERAND MANT 
















00064 K6 00048 


0239- 


001 10 




TOM 


ALPMA-2f-P 


,0 


,11, 


-I PREPARE FOR LONGER FIELDS 
















00076 J5 00046 


0000- 


00120 




TOM 


BETA-2-P 


,0 


.11. 


-L 00088 J5 00194 


0000- 


00130 


BR ANC H 


87 








00100 49 00000 


00000 


00140 




BNF 


INADD-12 


,BETA-2-P 


,0, 


SWITCH SIGN OF B OPERAND 
















00108 MM 00140 


00194 


00150 




CF 


BETA-2-P 






00120 L3 00194 


00000 


00160 




87 


IN ADO 




,0 


00132 M9 00152 


00000 


00170 




SF 


BETA-2-P 






00140 L2 00194 


00000 


00180 


I N ADD 


TOM 


AOD*l 


,1 


,0 


00152 J5 00345 


00001 


00190 




TFM 


ADD* 1 1 


,BETA-2-P 


,07 


00164 JO 00399 


-0194 


00200 




C 


ALPMA-P 


»BETA-P 




00176 KM 00090 


00196 


00210 




BM 


• ♦60 


, 


,0, 


BR IF A CHAR LARGER THAN B CHAR 
















00168 M6 00246 


01100 


00220 




BE 


AOD 


■t 


,0, 


BR IF CHARS EQUAL 
















00200 M6 00344 


01200 


00230 




TR 


ALPHA- 1-p 


•BETA-l-P 


, i 


-I, -L EXCHANGE FIELDS 
















00212 LJ 00049 


00195 


00240 




TF 


BETA-P 


,PCF>15 


,u 


00224 K6 00196 


0238- 


00250 




TF 


BETA-2-P 


,PCK+25 


ill 


00236 K6 00194 


0239- 


00260 




S 


BETA-P 


, ALPHAS 




00248 KK 00196 


00090 


00270 




BV 


STORE-12- 


P, 




BR IF CHAR D1FF TOO LARGE 
















00260 M6 00430 


01400 


00280 




cr 


BETA-P 


,-99 


,10, 


♦ ♦L 00272 J4 00196 


OOORR 


00290 




BL 


STORE-12- 


P, 


f t 


BR IF CHAR OIFF GREATER THAN L 














00284 M7 00430 


01300 


00300 




A 


ADO* 1 1 


, BETA-P 


,0, 


SHIFT BV CHAR DIFF 
















00296 KJ 00399 


00196 


00310 




DC 


44 ,0 50070500 5 00 50500770 7759905000 5970709090 9990 


,346 














00346 00044 




00320 




BNF 


♦♦24 


.BETA-2-P 


,0 


00306 MM 00332 


00194 


00330 




TD* 


ADD*1 


,2 


tOt 


CHANGE TO SUB IF NEG 
















00320 J5 00349 


00002 


00340 




CP 


BETA-i-P 


» 


9 » 


-L, CLEAR HI ORDER FLAG 





00332 LJ 00199 00000 



232 



SPS ! 1 -U MONITOR 1 SUBROUTINE SET 





ADD 




ALPHA-2-P 






00 360 




UJ 


99 , 


AlPha-<;-P 




00370 




bv 


ADJ , 






00 380 




cf 


ALPHA-2-P . 






00390 




BZ 


ZRES -P 






00400 


NORM 


bu 


ex n , 


AL PHA- 1-P 


» 


(J 4 10 




SF 


ALPHA -P 






004<>0 




T R 


ALPHA- 1-P 


ALPHA -P 


, 


4 3 




T F 


ALPHA - P 


ALPHA-1-P 




oo4«.o 




TO 


ALPHA- 2-P 


NOS DIG 




00450 




SM 


ALPHA -P 


1 


10 


Uu<tbU 




D 1 


NUKM 






Out 70 


AU J 


) F 


*lPh«-2-P 


ALPHA- 3- P 




004*0 




CP 


alpha -p 






00490 




TOM 


Al PHA- 1 -P 


- 1 


t 


UUbOO 




AM 


ALPHA -P 


1 


10. 


00b LO 


EXIT 


BNV 


SIGN 






00520 




bNF 


OVFL -P 


ALPHA -P 




005 30 




b7 


unfl -p 






00540 


FM3 


T FM 


BR ANO + 6 


•♦32 


017 


00550 




T FM 


F I X *25 


12 


09 


00560 




b7 


F03+24 






005 70 




DC 


48 , 5550040250 00 50500C 


00580 




M 


ALPHA-2-P 


BETA-2 -P 




5 90 




bZ 


ZRES -P 






6 




bO 


move-12 


100 


.0 , 


006 10 




TFM 


MOVE* 1 1 


100 


,09, 


0U620 


F I X 


SM 


BETA -P 


tOl 


• 10, 


00630 




bNV 


* + 36 




• 


00640 




SM 


ALPHA -P 


,0 1 


, 10 


00650 




TFM 


BETA -P 


-99 


10 


00660 




bO 


CHGfc 


,FIX*23 


.0 1 


00670 




SF 


101 






00680 




A 


ALPHA -P 


.BETA -P 




00690 


MUVL 


TF 


ALPHA-2-P 


.99 




00700 




b7 


EXIT 




iO 


007 10 


F03 


TFM 


BR ANCH+6 


,* + 56 


.017 


00720 




TFM 


F I X + 2 5 


.111 


.09 


00730 




TFM 


MOVE+11 


♦ 099 


.09, 


00740 




TF 


85 


♦ CLR-106-P 





00344 Kl 00048 00000 

STORE SIGN 00356 2N 00099 00048 

00368 M6 00484 01400 
PROCEED WITH NORMALIZATION 

00380 L 3 00048 00000 
BR IF ZERO SUM 

00392 M6 00530 01200 
,-L BR IF NORMAL I Z A TN COMPLTE 

00404 ML 00532 00049 

L 00416. L2 00050 00000 

L,-L 00428 LJ 00049 00050 

00440 KG 00050 00049 
ENTER NOISE DIGIT 

00452 K5 00048 02401 

00464 J2 00050 000-1 

00476 M9 00404 00000 
SHIFT RIGHT ONE POSITION 

00484 KO 00048 00047 
L , CLEAR EXTRA FLAG 

00496 L3 00050 00000 
L , INSERT HI ORDER ONE WITH FLAG 

00508 J5 00049 OOOOj 

ADJUST CHAR 00520 Jl 00050 000-1 
STORF ALPHA AND AFFIX SIGN 

00532 M7 00406 01400 

00544 MM 00474 00050 

00556 M9 00518 00000 

00564 JO 00106 -0596 

00576 J6 00669 00-12 

00588 M9 00772 00000 
55 52 000000 02 08 00 2 5 2 5 000 204 50 , 34 8 
00348 00048 
MUL MANTISSAS 









00596 


KL 


00048 


00 194 




BR 


IF 


ZERO PRODUCT 










006 08 


M6 


00530 


01200 


.-2L 


BR 


I F 


NORM NOT RE 










00620 


M3 


007 16 


00 100 


-L 






006 3 2 


J6 


00739 


OOJOO 


ADJUST 


CHAR 


BY ONE 












0064*, 


J2 


00 196 


000-1 








00656 


M7 


00692 


01400 








00668 


J2 


00050 


000-1 








00680 


J6 


00196 


OOORR 








00692 


ML 


00908 


00667 


2L 






007 04 


32 


00101 


00000 








00716 


KJ 


00050 


00 196 


» -L 






007 28 


K6 


00048 


00099 








00740 


M9 


00532 


00000 








00748 


JO 


00106 


-0804 








00760 


J6 


00669 


00J11 


,-L 






00772 


J6 


007 39 


00-99 


,2L 






00784 


20 


00085 


00798 



233 



SPS II-U MONITOR I SUBROUTINE SET 02 



00750 


B7 


FA3+12 












00796 


M9 00032 


00000 


00760 


LO 


99 


, ALPHA 


-2-P 




-L 




008 04 


20 00099 


00048 


00770 


U 


99 


» BE T A- 


2 -P 




-I 




00816 


2R 00099 


00194 


00780 


BV 


ZCK 






.0 






008 28 


M6 00928 


01400 


00790 


TD 


99 


.99 






,-L 




00840 


25 00099 


00099 


00800 


BD 


FIX 


.99 




.0, 


.-2L 


00852 


M3 00644 


00099 


008 10 


bZ 


ZRE S 


P 










00864 


M6 00530 


01200 


00820 


DC 


8 


,40550002 


♦ 314 






003 14 


00008 




00830 


SF 


100 








-2L 




00876 


32 00100 


00000 


00840 MOVED 


S 


ALPHA - 


P .BETA 


-P 








00888 


KK 00050 


00196 


00650 


b7 


MOVE 






.0 






00900 


M9 00728 


00000 


00860 CHGE 


TFM 


MOVE+11 


.98 




• • 


, -L 




009 08 


J6 00739 


00098 


00870 


b7 


MOVED 












00920 


M9 00888 


00000 


00880****** 


PCK 


-90 DOWN 


TO END 


OF 


IORT 


MAY BE 


USED IF NO ADDED 


SUBROUTS 




00890****** 


PCK-5 THRU 


PCK-89 


SUBVEC 


FOR THE 


17 


FURNISHED SUBROUTINES 




00900 ZCK 


TDM 


40 1 


.0 




.11. 




SET 


ERROR INDICATOR 




















00928 


15 00401 


0000- 


009 10 


AM 


PCK* 15 


.99 




.6. 


S IMULATE 


HARDWARE OIV AND FORCE 


OVE 


















00940 


U 0238- 


00099 


00920 


bV 


PCK* 10 






.6 






009 52 


46 0237N 


01400 


00930 


DEND 


02024 












02024 







2 3 4 



SPS U-0 MONITOR 1 



SUBROUTINE SET 02 



PAGE 7 



000 10 




USA 


FS0R3 












00004 00005 -0000 


00020 




DORG 


EDGAR 












00000 




000 30 


FSQR3 


TFM 


PCK+5 




,•♦20 








00000 10 02370 


-0020 


000*0 




67 


PCK 










i6t 


BP TO PICK A NO RETURN 






















00012 49 0236N 


00000 


000)0 




OC 


44 


,0 750 50 


053000 0002 


0000000805 040000560000000005.: 


356 




















00350 00044 




00060 




80 


• ♦20 




• BETA 


-I 


-P 


,0, 


,-L 00020 ML 00040 


00195 


00070 




1*7 


ZRE S 


-p! 








i » 


BR IF RESULT ZERO 






















00032 M<* 00530 


00000 


00080 




MM 


BETA 


-Pi 


, 50 






• lOt 


OIV CHAR BY 2 






















00040 J3 00196 


OOONO 


Q0090 




6NF 


• ♦36 




(BETA 


-2 


-P 


,0, 


BR FOR POSITIVE ARG 






















00052 MM 00088 


00194 


00100 




CF 


BETA-2 


-P 










00064 L3 00194 


00000 


00110 




TDM 


401 




,0 






1 1 


SET NEG ARG INDICATOR 






















00076 15 00401 


00000 


00120 




8D 


SQ3 




r98 






•o , 


BR IF CHAR ODO 






















00088 M3 00380 


00098 


00130 




TFM 


SQ2*42 




» 9 7 






♦ 010, 


, -L MOVE MANTISSA ADR 






















00100 J6 00166 


0OOR7 


001*0 




8NF 


• ♦2* 




,99 






♦ » 


BR IF CHAR POSITIVE 






















00112 M4 00136 


00099 


00150 


SO 2 


SF 


97 












00124 32 00097 


00000 


00160 




TF 


PCK*15 




r97 






1 6 1 


STORE RESULT CHAR. PROPER SIGNO 




















00136 26 0238- 


00097 


00170 




TF 


99 




iCLR- 


92- 


p 


* ' 


,21 00148 20 00099 


00812 


00180 




TF 






> BETA 


-2 


-P 




MOVE MANT INTO 97/98 MINUS 


L 




















00160 20 00000 


00194 


00190 




TFM 


LSU>18 




,97 






,010, 


t-2L INITIAL MANT ADR HI ORDER 




















00172 J6 00246 


000R7 


00200 




TF 


LSQ*2 3 




,SQ3* 


IB 




♦ 1 . 


INITIAL RESULT ADR 




















00184 KO 00251 


00 398 


00210 




TF 


LSQM-6 




,LSQ*IB 






INITIAL MANT AOR 






















00196 KO 00330 


00246 


00220 




TF 


BETA-2 


-P 


iONEZ 


~48 


l-P 




.♦L SET RESULT TO ONE L*l DIGITS 




















00208 KO 00194 


00573 


00230 




B7 


LSQM 










tOt 


00220 M9 00336 


00000 


002*0 


ISO 


AM 


LSQ*23 




.2 






,0610, 


ADO 2 TO RESULT 






















00228 Jl 0025J 


000-2 


00250 




S 












» » 


SUB RESULT FROM MANTISSA 






















00240 22 00000 


00000 


00260 




BNN 


LSQ 










.0. 


CONTINUE UNTIL MANT IS NEG 






















00252 M6 00228 


01300 


00270 




CM 


LSQ*23 




t BETA 


-2 


-P 


t07 


00264 JM 00251 


-0194 


00280 




BNL 


SQEX 










.0, 


BR IF TERMINAL RESULT ADR 






















00276 M6 00436 


01300 


00290 




A. 


LSQ*18 




iiSO+23 




,01611 


• RESTORE LAST SUB 






















00288 KJ 00240 


0025J 


00300 




CF 


LSQ* 18 










,06 


00300 L3 00240 


00000 


00310 




AM 


LSQM-6 




.01 






,010, 


REDUCE MANT F I ELD LENGTH ONE 




















00312 Jl 00330 


000-1 


00320 




SF 














00324 32 00000 


00000 



2 3 5 



SPS II -Q MONITOR I SUBROUTINE SET 02 PAGE 8 



00330 


LSQM 


AM 


CSQ*18 




,02 


.010. 


STEP MANTISSA ADR, HI 


ORDER, 


,♦2 
















003 36 Jl 


002*6 


000-2 


00340 




AM 


LSQ +23 




,01 


.010. 


STEP RESULT ADR +1 




















00348 Jl 


00251 


000-1 


00350 




SM 


LSQ+23 




,09 


,0610, 


STEP RESULT -9 




















00360 J2 


0025J 


000-9 


00360 




B7 


LSQ+12 




t 


.0. 


CONT LOOP WITH NEXT 2 DIGITS 
















00372 M9 


002*0 


00000 


00370 




DC 


16 


70700 2000650 20*316 


00316 00016 




00380 


SQ3 


AM 


99 




,50 


,10, 


ADO .5 TO CHAR/2 




















00380 11 


00099 


OOONO 


00390 




TOM 


BETA-2 


-P 


»o 


,211, 


-L. LENGTHEN MANT FOR OOC 


1 CHAR 


















00392 J5 


-0194 


0000- 


00400 




CF 


BETA-1 


-P 




t » 


-L» 00404 L3 


00195 


00000 


00410 




TFM 


SQ2*42 




t98 


.010. 


,-L MOVE MANT AOR 




















00416 J6 


00166 


000R8 


00420 




B7 


SQ2-12 




» 


.0, 


BR TO STORE CHAR ♦ 


IN I T | 


LOOP 
















00428 M9 


00112 


00000 


00430 


SQEX 


TF 


80 




• CLR- 


100-P.t 


,*L 00436 20 


00060 


00804 


00440 




MM 


BETA-2 


-P 


.50 


flO, 


RESULT /2 00448 J3 


00194 


OOONO 


00450 




SF 


98 






1 t 


-I, DEFINE FIELD 




















00460 32 


00098 


00000 


00460 




TF 


PCK*25 




.97 


.6. 


STORE MANT RESULT 




















00472 26 


0239- 


00097 


00*70 




B7 


PCK* 10 






.6. 


RETURN TO MAINLINE 




















0048* 49 


0237N 


00000 


00*80 




DEND 


02061 








02061 







236 



SPS 11- 


u hun now i 




SUBROUTINE SET 


02 








000 1 o 




U i> A 


K. S 3 




> F i> I r 








00004 00005 -oooo 

00009 0000*) -00 32 


2 




UORG 


fc Ob AR 












00000 




OOO 30 


K0S3 


T FM 


(. L F ♦ i I 




> 10 


,09, 




1NIT FOR COS 






















00000 J6 00099 


00-10 


00040 




T FM 


P I K ♦ 5 




> C I F 








00012 10 02370 


-0088 


oooso 




7 


PC* 






,6i 




GO 


TO PICK AND RETURN 

00024 49 0236N 


00000 


('6 


F S I N 3 


1 F M 


( . 1 t- ♦ 1 1 




, -0 1 1 


,09, 




INIT FOR POSITlVfc SIN 






















00032 J6 00099 


00-1 J 


000 70 






f>t**b 




.•♦20 


,17 






00044 10 02370 


-0064 


80 






PCK 






,6, 




GO 


TO PICK AND RETURN 

00056 49 0236N 


00000 


00090 






46 ,050050 7056 


500051 0007 


0507005651 0070510000 505608, 


, 34ft 




















00348 00046 




00 00 




bNF 


• ♦ 36 




,6f T A - 2 


-P 






000*4 MM 00100 


00 194 


1 10 




1 DM 


l F ♦ 1 
L. +1 




.0 


,0 , 




ADJUST FOR NEC SIN 






















00076 J5 00098 


00000 


1 2 


C I F 


c f 














00088 L 3 00 194 


00000 


00 1 30 




CF 


bfc T A- 1 








- L 




00 100 L3 00 195 


00000 








i A V (r 


" P ' 


,Cl« -94- 


P , t 




. ♦ L 


MOVE Lf? 2FRPS TO SAVE 




















onii2 *n coioo 


C08 10 


o o l S 








~ P ' 


,00 


, 10 






00124 J4 00196 


ooo-o 


1 




L 


POZCH 






,0 , 




BR 


I F POS 1 T lVfc OR ZERO CHAR 




















00136 Mh 00760 


1 300 


00 1 70 




CM 


Be TA 


-P 


,00 


,1011, 






00148 J4 00196 


000-- 


18 




bL 


BR D 






,0 , 




BR 


IF CHAR LESS THAN -L 

00160 M7 00208 


01300 


1^0 




T M 


**3C 




, SAVfc 


-P ,07 , 




,-l 


Char between o and -l 

0017^ JO 00202 


-0 100 


(J 2 00 




S 


♦♦18 




, Bfc TA 


-P ,0 






00 184 KK 00 20 2 


00 196 


00 2 10 




TR 






i B E T A - 1 


-P t , 




* -I 


00 196 3 J 00000 


00195 


00220 


BRO 


BO 


* + 24 




, C L F ♦ 1 1 


,0 1, 




BR 


I F SIN ROUT INE 

00208 ML 00232 


00099 


002 30 




A 


SAVfc -P 




r P I nv2-4 


5-P, , 




,+LCONVERT TC SIN 






















00 2 20 KJ 00 100 


00623 


00 2 4 




S 


SAVfc 


-P , 


,TW0PI-45 ,1, 






00232 KK 00100 


00964 


OO^'j 






* - 12 






,0 , 




SUB 


2 P I FROM M ANT UNT I L NEC 




















00244 M6 00232 


1 100 






^ 


SAVfc-1 


-P , 






- 1 




00256 12 00099 


00000 








SAVfc 


-P , 


,P 1 -45 






» ♦ I 


00268 KJ 00100 


009 17 


002 BO 




bN 


•♦36 






,0 






0028C M7 00316 


01300 


00290 




bM 


CLf- 4 10 




.0 1 


,0 10 






00292 J2 00098 


000- 1 


00300 




SF 


SAVfc 


-P 










00304 L2 00100 


00000 


00 3 1 G 




A 


SAVE 


-P , 


, P I 0V2-45-P , i 




,*L 


00316 KJ 00100 


00623 








80 




.CLR-106 


-P , , 




,21 


00328 20 00080 


00798 


00 3 30 




Of. 


48,5552705600 0002202000 


5055000000 0008550000 00560050 , 


348 




















00348 00048 










SAVfc 


-P i 


, SAVfc 


-P 






00340 K i 00100 


00 100 


00 3 50 




r f 


SAVfc 


-P i 


r98 


, 10, 




i -L 


00352 K6 00100 


000R8 


00360 




sF 


SAVE- I 


~P ! 






- L 




00364 L2 00099 


00000 


00 3 70 




T P 


BETA 


-P , 


, ONE 2 -4 7 


-p » , 




- *LSET 


BETA EQUAL 1 PLUS L*l ZERO 





















003 76 


KO 


00196 


00574 


00 3 80 




TR 


AAB-3 




,H34-1 




.01 




00388 


I J 


00907 


01010 


00 3 90 


OVER 


TDM 


SUM+1 




,2 




,011, 




SET FOR SUBTRACT 1 ON 
























00400 


J5 


00473 


OOOOK 


00400 




fF 


99 




,98 




, 10, 




.-L 00412 


26 


00099 


O0OR8 


00410 




TFM 


97 




,0000 




,58, 


-L 


00424 


16 


000R7 


0-000 


00420 




U 


9 8 




, AB 




.15 


,-L 


004 36 


2R 


000R8 


00914 


004 30 




bZ 


DONE 








,0 , 




BR IF QUOTIENT ZERO 
























00448 


M6 


00588 


1 200 


00440 




TF 


ALPHA 


-P 


,95 




. 10 




00460 


K6 


00050 


000R5 


00 4 50 


SUM 


i> 


BETA 


-P 


, ALPHA 


-P 






00472 


KK 


00196 


00050 


00460 




AM 


AAB 




,2 




.0 10 




00484 


Jl 


009 10 


000-2 


0U4 7O 




AM 


AAB-2 




, 2 




.010 




00496 


Jl 


009 08 


000-2 


00^.80 




M 


AAB 




, AAB-2 




,0 1, 




4DIGIT PRODUCT 

00508 


KL 


009 10 


00908 


00490 




TF 


AB 




,99 




.0 




00520 


K6 


009 14 


00099 


00500 




TF 


80 




,CLR-106 


-P 






,2L 00532 


20 


00080 


00798 


00510 




M 


SAVE 


-P 


, ALPHA 


-P 






00544 


KL 


00100 


00050 


00520 




BNF 


OVER 




, SUM* 1 




.01 




00556 


MM 


00400 


00473 


00530 




TDM 


SUM+1 




, 1 




.0 , 




SET TO ADD 00568 


J5 


004 7 3 


0000 1 


00540 




B7 


OVER+12 








tO 




00580 


M9 


00412 


00000 


00550 


DONE- 


C 


BE T A- I 


-P 


,CLR-95- 


P 






,*L 00588 


KM 


00195 


00809 


00560 




BE 


POZCH+60 






,0 , 




BR IF L+l ZEROS 


























00600 


M6 


008 20 


01200 


00570 




TFM 


SAVE 


-P 


tOl 




.10 




006 12 


J6 


00100 


000-1 


00580 




OC 


48,0750775070 0000500505 


5000500051 0000505000 


05057005, 


,350 




















00350 


00048 




00590 




BD 


PLACE-24 


, B E T A- 1 


-P 


»o. 




,-LBR IF NORMALIZATION NOT REO 




















006 24 


ML. 


00692 


00195 


00600 




SM 


SAVE 


-P 


.0 1 




.10 




00636 


J2 


00100 


000-1 


006 10 




TR 


BETA-1 


-P 


, BETA 


-P 




-Li 


,-L 00648 


LJ 


00195 


00196 


00620 




TO 


BETA-1 


-P 


,NOS DIG 








ENTER NO ISE DIGIT 
00660 


K5 


00195 


02401 


00630 




SF 


BETA-1 


-P 








-L 


00672 


L2 


00195 


00000 


00640 




B7 


*-60 












006 84 


M9 


0062A 


00000 


00650 




80 


PLACE 




»CLF*10 




,0 1 




00692 


ML 


007 16 


00098 


00660 




SF 


BETA-2 


-P 










00704 


L2 


00194 


00000 


00670 


PL AC F. 


TF 


PCK+15 




• SAVE 


-P 


.6. 




STORE CHAR 00716 


20 


0238- 


00100 


00680 




TF 


PCK+25 




» BETA-2 


-P 


.6. 




STORE WANT 00728 


20 


0239- 


00194 


00690 




TO 


ALPHA* 1 


-Pi 


,H34*7 




tl* 




RESTORE RM 00740 


KN 


00051 


01018 


00700 




B7 


PCK* 10 


i 


) 




,6, 




RETURN TO MAINLINE 


: PROGRAM 






















00752 


49 


0237N 


00000 


007 10 


POZCH 


CM 


BETA 


-P 


.03 




.10 




00760 


J4 


00196 


000-3 


00720 




BL 


•♦80 








.0. 




BR IF CHAR SMALLER THAN 03 






















00772 


M7 


008 52 


01300 


00730 




CM 


BETA 


-P 


,00 




.10. 




,*L 00784 


J4 


00196 


000-0 


00740 




BNH 


• ♦44 








.0. 




BR IF CHAR LESS OR EQUAL L 






















00796 


M7 


00840 


01100 


00750 




TQM 


401 




,0 




.lit 




CHAR TOO LARGE 

0080S 


15 


00401 


0000- 


00760 




TO 


ALPHA* 1 


-P 


,H34*7 






RESTORE RM 00620 


KN 


00051 


01018 


00770 




B7 


ZPE S 












00832 


M9 


00530 


00000 


00780 




TDM 


401 




,0 








00840 


15 


00401 


00000 



235 



SPS II-O MOM I TOR I 



SUBROUTINE $1T 02 



00790 




TFM 


♦♦42 


♦iAVE-l -P,07, ADJ TO SUB TWO PI FROM MANT 

00852 JO 00894 -0099 


ooeoo 




S 


•♦30 


tIETA -PtOt UNTIL REDUCEO TO NE6 NUMBER 

00084 KK 00894 00198 


00810 




TOM 


BETA-2 


-PtO tilt -L 00878 JS 00194 0000" 


00820 




TP 




♦BETA-2 -P 00888 20 00000 00194 


00810 




B 


8ft 


♦ ,0 00900 M9 00208 00000 


00840 




OORG 


•-4 


00907 


008S0 


AAB 


OS 


4 


00910 00004 


00860 


*B 


OS 


4 


00914 00004 


00870 




OS 


1 


009 IS 00001 


00880 


PI 


DC 


47 


,3141592*53589793238442*433832793028841971*93993 

009*2 00047 


00890 


TWOPI 


•oc 


47 


♦628»18S90717990*4 76929286 76699900976999499B7967 

01009 00047 


00900 


H34 


DC 


2 


tOl 01011 00002 


00910 




oc 


2 


,02 01013 00002 


00920 




DC 


5 


,000 2 § 01018 00009 


00930 




DENO 


02072 


02072 



23 y 



SPS II-O MONITOR I SUBROUTINE SET 02 



00010 




USA 


FATN3 






00004 00005 -0000 


00020 




OORG 


E06AR 






00000 






00030 


FATN3 


TFM 


PCK*5 


,♦♦20 


,17 


00000 10 


02370 


-0020 


00040 




87 


PCK 


t 


,*, 


BR TO PICK AND RETURN 
















00012 49 


0236N 


00000 


00050 




DC 


50 ,0700055050 0000110005 


0576705070 7000065020 51500825, 


350 














00350 00050 




00060 




TFM 


TEST+11 




,08, 


SET INDICATORS 


















00020 J6 


00075 


0-000 


00070 




BO 


♦ ♦20 


,BETA-1 


-PtOt 


i-L 00032 ML 


00052 


00199 


00080 




87 


EOO+12 


t 


1 1 


BR IF 2ER0 MANT 


















00044 M9 


01052 


00000 


00090 




TO 


TEST^9 


tOETA-2 


-PtO, 


SAVE MANT SIGN 


















00092 KN 


00073 


00194 


00100 


TEST 


CF 


BETA-2 


-P 




000*4 L3 


00194 


00000 


00110 




CM 


BETA 


-P, 


tlO 


0007* J4 


00194 


000-0 


00120 




BM 


PCNAR 




tOt 


•R IP CHAR POSITIVE 


















00088 M* 


00836 


01100 


00130 




BE 


ALPH 


t 


tOt 


BR IF CHAR 2ER0 


















00100 M* 


00196 


01200 


00140 




CM 


BETA 


-P, -99999 


♦ 10, 


♦L 00112 J4 


00196 


999RR 


00150 




BL 


EOO 


t 


tOt 


BR IF CHAR LESS THAN 


-u-n 














00124 M7 


01040 


01900 


00160 




TFM 


ALPM-1 


t BETA-2 


-PiOT 


001S* JO 


00195 


-0194 


00170 




A 


ALPM-i 


♦ BETA 


-PtO 


00148 KJ 


00195 


00196 


00180 




TF 


BETA-2 


-PtCLR-96-P tt 


-L,*L CLEAR AREA LEFT 


OP BIT A 














00160 KO 


00194 


OOBOB 


00190 




CF 


BETA-1 


-Pt 


tt 


-L EKPANO BETA BY REMOVING FLAG 














00172 Li 


00199 


00000 


00200 




TF 


BETA-2 


-Pt 


it 


ADJUST BETA FIELD FOR CHAR 
















00184 K* 


00194 


00000 


00210 


ALPH 


SF 


BETA-1 


-Pi 


1 1 


-L CONTRACT SETA IV RESETTNO FLAG 














00196 L2 


00199 


00000 


00220 




CM 


BETA 


-Pt29 


tlOt 


-L 00208 J4 


00196 


0OOK9 


00230 




81 


ATNl-72 


: t 


tOt 


BR IF MANT LESS THAN 


• 29 
















00220 NT 


00992 


01100 


00240 




TF 


79 


,CLR-100-P,t 


♦♦L 00232 20 


00079 


00804 


00250 




MM 


BETA-2 


-Pt6 


tlOt 


6*NANT IN 99 


















00244 J3 


00194 


000-6 


00260 




TOM 


98 


t-1 


tt 


-L 14*»MANT IN 99 


















00216 19 


00098 


OOOOJ 


00270 




S 


BETA-2 


-P,SU-48 


tit 


♦L MANT-* 6 L It ITS 


















00266 KK 


00194 01210 


00280 




TF 


ALPHA 


-P,99 


tt 


10*6*MANT MOVEO TO ALPHA. L^20* 














00210 K6 


00090 


00099 


00290 




TP 


99 


,CLR-94-P »t 


♦2L 2L*2 ZEROS 


















00292 20 


00099 


00910 


00300 




ID 


98 


,BETA-2 


-Pit 


-Lt L DIGITS 1 
















00904 20 


00096 


00194 


00310 




OC 


48 ,2552000855 1218010108 2020055008 5352OOCOO0 5*550855,348 














00148 00< 


)48 




00320 







100 


, ALPHA 


•Pl.t 


-Lt 142 DIGITS 00114 2R 00100 00050 


00330 




TF 


BETA-2 


-Ptt? 


tt 


i-L MANT IS INANT-«*)/f 104**MAn7) 



SPS II-O MONITOR I 



SUBROUTINE SET 02 



PAGE 13 























■00 3 28 K6 00 19* 


00097 


00 3*0 




SF 


TEST* 


1 1 1 




,0 , 






I NO THIS 


CALC MADE 
























003*0 L2 00075 


00000 


00350 




TF 


80 




iCLR- 106-P 






2L 


ZEROS 
























00352 20 00080 


00798 


00360 




M 


BETA- 


2 -P, 


iBETA-2 -P 








SQUARE MANT 0036* K L 0019* 


00 19* 


00370 




TF 


SAVE 


-p 1 


,99 






-I 


SAVE IS 


MANT *M ANT . L DIGITS 






















00376 K6 00100 


00099 


00380 




TF 


ALPHA 


-V | 


, f.LK -95 -P 






♦I 


IN I T ALPHA TO 00 L*l ZEROS 






















00388 KO 00050 


00809 


00390 




T FM 


A T N 1 * 


35 , 


,99999 


i 10, 




2L 




00*00 J6 00*59 


999R9 


00*00 




1 F M 


A T N 1 - 


3 , 


,99999 


t 10, 




♦ L 




00*12 J6 00*21 


999R9 


00410 


ATM 


TF 


99 




.CLK-92-P 






♦ L 


L ** 


ZEROS 
























00*?* 20 00099 


008 12 


00*20 




TFM 


98 




i 10 


. 10, 


- L 






00*36 16 00098 


OOOJO 


00*30 




UM 


9B 








-L 






00**8 19 00098 


-0000 


00**0 




S 


96 




,Al.PHA -P 










00*60 2K C0096 


00050 


00*50 




TF 


ALPHA 


-P i 


,96 








L * 1 


1 G I T S 
























00*72 K6 00050 


00096 


00*e>0 




T F 


80 




, C l R - 1 6 - P 






2L 




00*8* 20 00080 


00798 


00*70 




M 


ALPHA 


-P i 


»SAVF -P 








2L* 1 


DIGITS 
























00*96 K L 00050 


00 100 


00*80 




I F 


ALPm A 


-P 


• 99 






-L 


L*l 


DIGITS 
























00508 Kh 00050 


00099 


00*90 




b" 


A T N I ♦ 


35 , 


r 2 


,010 








005 20 J2 00*59 


000-2 


00500 




SM 


A TN 1 - 


3 


, 1 


,0 10 








00532 J2 00*21 


000-1 


005 10 




BNZ 


ATN1 






,0 , 






BR IF LESS THAN L-l PASSES 






















005** M7 00*2* 


01200 


00520 




TF 


SAVE 


-P , 


, (INEZ -47-P 






*L 


L*2 


DIGITS 
























00556 KO 00100 


0057* 


00 5 30 




s 


SAVE 


-P , 


, AL PhA -P 








ONE MINUS 


SUM OF ( COF F »MANT* 


>*2) 






















00568 KK 00100 


00050 


005*0 




TF 


80 




,ClR- 106-P 






2L 




00580 20 00080 


00798 


00550 




M 


SAVE 


-P , 


i B E T A- 2 -P 








2L*2 


DIGIT PRODUCT 
























00592 K L 00100 


00 19* 


00560 




UC 


*8 ,0000202 100 202650250* 


50**2000*0 0205000000 0008*025, 


3*8 






















003*8 000*8 




005 70 




bNF 


TEST2 




, Tfc ST* 1 1 


,0 1 








0060* MM 00652 


00075 


00580 






TESI2 


-12 ■ 




,0 








006 16 Mfe 006*0 


01300 


00590 




SF 


99 








-L 






00628 32 00099 


00000 


60') 




A 


99 




, T A N6- * 5 


, 1 , 


- L , 


♦ L 


L*l 


DIGITS 
























006*0 2J 00099 


01256 


00 * 10 


TE ST 2 


BNF 


•♦36 




, TEST* 10 


,01 








00652 MM 00688 


0007* 


006^0 




SF 


9'* 








- L 






0066* 32 00099 


00000 


00 6 30 




A 


99 




,P10V2-*5-l 


p , , 


-L , 


*L 


L*2 


DIGITS 
























00676 2J 00099 


00623 


006*0 




r f m 


BETA 


-P i 


, 1 


,10 








00688 J6 00196 


000-1 


h 5 




[ 


100 




, B E T A ♦ 1 - P 




-L 




INSERT 


R M AT 100-L 
























00700 2N 00100 


00197 


00f>60 




80 


TEST 1 


-36 , 


,98 


,0 • 




2L 


BR IF NORMALIZATION NOT REQD 






















007 12 M3 00768 


00098 


Ouo 10 






BE 1 4 


-P i 


, 1 


, 10 








0072* J2 00196 


000-1 


UUO60 




Tk 


9o 




, 9V 




-2L 




21 


00736 31 0009B 


00099 



SPS Il-D MONITOfl 1 



SUBROUTINE SET 02 



00690 




TD 


QQ 




,NflS 01 G 




-L 


INSEAT 


NOISE DIGIT 






















007*8 


25 00099 


0240 1 


00700 




B7 


*-*H 






,0 






00760 


M9 00712 


00000 


00710 




SF 


98 








-2L 




00768 


32 00098 


00000 


00720 




TF 


PCK*25 




.97 


i 6, 




-L 


00780 


26 0239- 


0009 7 


00730 




TF 


PCK+15 




(BETA -P 


,6 






00792 


20 0238- 


00196 


007*0 


TEST 1 


BNF 


• *2* 




»TEST*9 


,01 






008 0* 


MM 008 28 


00073 


00750 




SF 


PCK*25 






,6 






00816 


32 0239- 


00000 


00760 




B7 


PCK* 10 






,6 






COS 28 


49 0237N 


00000 


00770 


PCHAR 


TOM 


TEST*10 




,-1 


,0 , 




INOICATE 


POS IT IVE 
008 36 


CHAR 

J5 00074 


OOOOJ 


00780 




TF 


99 




.CLR-95-P 






2L 


00848 


20 00099 


00809 


00790 




TDM 


100 




,-1 




-2L 


DIVIDEND 


EQUALS . 
00860 


I 

15 00100 


OOOOJ 


00800 




U 


99 




, BETA-2 -P 




-L, 


DIVISOR 


IS MANT 

00872 


2R 00099 


0019* 


008 10 




DC 


*8 ,0**0525000 5250000050 


0000010000 0500555670 


70510005, 


,348 




















003*8 


000*8 




00820 




bD 


**5t> 




,99 


iO , 




2L BR 


IF MAN T IS 100000., 






















0088* 


M3 00940 


00099 


00830 




SF 


100 








-2L 


REDUCE TO L OIGITS 






















00896 


32 00100 


00000 


008*0 




TF 


BETA-2 


-P 


»99 






-L 


00908 


K6 00194 


00099 


00850 




SM 


BETA 


-P 


, 1 


, 10, 




REDUCE CHAR 1 


BY 1 






















009 20 


J2 00196 


000-1 


00860 




B7 


**32 






,0 , 




THESE 3 


00932 


M9 00964 


00000 


00870 




TF 


BETA-2 


-P 


,98 


» 1 




-L INSTRUCTIONS 


GO 






















00940 


K6 00194 


00098 


00880 




SM 


BETA 


-P 


,2 


,10, 






WITH BD 
00952 


ABOVE 
J2 00196 


000-2 


00890 




til 


♦ ♦44 






,0 , 




BR IF OPERAND IS ONE 






















0096* 


M7 01008 


01300 


00900 




BE 


ALPH 






.0 , 




BR IF CHAR REDUCED TO ZERO 






















00976 


M6 00196 


01200 


00910 




SF 


BETA 


-P 








CHAR STILL POSITIVE, MAKE NEG 




















00988 


L2 00196 


00000 


00920 




B7 


TEST+48 












01000 


M9 00112 


00000 


00930 




TFM 


PCK*15 






• 610, 




STORE 


01008 


16 0238- 


000-0 


009*0 




TF 


PCK*25 




,PI0V4-45 


,16, 




♦ L 


010 20 


20 0239- 


01301 


00950 




B7 


TEST1 












01032 


M9 00804 


00000 


00960 


EOD 


BD 


* + 32 




,TEST*10 


,01, 




BR IF RESULT MORE 


THAN PI0V2 




















01040 


ML 0107 2 


00074 


00970 




TP 


PCK*25 




» BETA-2 -P 


,6 






01052 


20 0239- 


00194 


00980 




b7 


TEST1-12 










01064 


M9 00792 


00000 


00990 




TF 


ALPHA 


-P . 


,BETA-2 -P 








01072 


KO 00050 


00194 


01000 




TF 


BETA-2 


-P, 


,PI0V2-46- 


Pit 




♦ L L*l 


DIGITS 
01084 


KO 00194 


00622 


01010 




Cf 


ALPHA- 1 


-P 


r 


t t 


-L 




01096 


L3 00049 


00000 


01020 




TOM 


ALPHA 


-P 




tilt 


-L 




01108 


J 5 00050 


0000- 


01030 




CM 


BETA 


-P,00 


,1011, 


t 


♦ L 


01120 


J4 00196 


000 — 


01040 




8NH 


♦ ♦48 






tO 






01132 


M7 01180 


01100 


01050 




TFM 


♦ ♦35 




, ALPHA -P,0 7 






01144 


JO 01179 


-0050 


01060 




OC 


10 ,0550050000,310 








00310 


00010 





2 42 



SP* 1 .1-0 MONITOR 1 SUBROUTINE SET 02 



01070 




A 


•♦23 


♦ tot t A -P,0 


01156 KJ >H 


. 96 


01080 




s 


BETA-2 


-P 


01168 K2 .'0 1S4 


OOG . 


01090 




TF 


PCK*23 


♦ BET A- 3 -P,6 


01180 2C 0239- 


0019^ 


01100 




TFM 


PCKM5 


• 1 (610 


01192 16 0238- 


000-1 


Oil 10 




B 


TEST 1 


r tO 


01204 M9 00804 


00000 


01120 




DORG 


• -4 




01211 




01130 


six 


OC 


45 


, 60000000000 OOOOQOO 000000000000000000000000000 














01255 00045 




01140 


T AN 6 


oc 


46 


,540* 19500 2 705841 5544357836*6085 999 10 135 148 2514 














01301 00046 




01150 


P I OVA 


OC 


45 


,785398163397448309615660845819 


875721049292349 
01346 00045 




01160 




06 NO 


02091 




02091 





2 4 3 



SPS ' 11-6 MONITOR I SUBROUTINE SET 02 



COO 10 




OSA 


FEXT3 


FEX3 




00004 00005 -0020 














00009 00005 -0000 


00020 




OORG 


EDGAR 






00000 


000 30 


FfX3 


TOM 


SETUP* 1 


1 


,0 , 


ALLOW MUL BY LOG E FOR EXP 














00000 J5 00145 00001 


00040 




B7 


FEXT3+12 




iO 


00012 M9 00032 00000 


00050 


FEXT3 


TDM 


SETUP+1 


9 


,0, 


PREVENT MUL BY LOG E FOR EXT 














00020 J5 00145 00009 


00060 




TFM 


PCK*5 


♦ ♦20 


.17 


00032 10 02370 -0052 


00070 




B7 


PCK 




,6, 


BR TO PICK AND RETURN 














00044 49 02 36N 00000 


00080 




DC 


46,005607000 5 


50 20 250008 


5604504052 0052510050 000050 • 348 














00348 00046 


00090 




TFM 


PCK*15 


1 


.610 


00052 16 0238- 000-1 


00 100 




TF 


ALPMA-2-P 


ONEZ 


-45-P,, 


(♦L ONE. 1*4 DIGIT MANTISSA 














00064 KO 00048 00576 


00110 




BD 


• ♦20 


BETA 


-1 -P»0f 


,-L 00076 ML 00096 00195 


00120 




B7 


GOBACK-12 




» » 


BR IF MANT ZERO 














00088 M9 01004 00000 


00130 




TO 


RECIP-l 


BETA 


-2 -PtO, 


NON ZERO MANTISSA 














00096 KN 00867 00194 


00140 




CF 


BETA-2 -P 






00108 L3 00194 OOOOO 


00150 




TFM 


101 






-L 00120 16 00101 -0000 


00160 




TF 


97 


BETA 


-2 -P.» 


-L L+4 OIGITS IN 101-L 














00132 20 00097 00194 


00170 


SETUP 


B 


♦ ♦92 




(0, 


MUL BY LOG E IF EXP 














00144 M9 00236 OOOOO 


00180 




TF 


80 


UR- 


106-Pti 


,21 00156 20 00080 00798 


00190 




M 


BETA-2 -P 


LOGE 


-45-P,, 


(♦L 2L+2 OIGIT PROOUCT 














00166 KL 00194 00670 


00200 




BO 


• ♦56 


»98 


,0, 


(-2L BR IF HIORDER NOT ZERO 














00160 M3 00236 00098 


00210 




SM 


BETA -P 


1 


,10 


00192 J2 00196 000-1 


00220 




SF 


99 




1 1 


-2L, 00204 32 00099 OOOOO 


00230 




TF 


BETA-2 -P 


102 


t ♦ 


,-L MOVE L+4 OIGITS 














00216 K6 00194 00102 


00240 




B7 


• ♦20 




iO 


00228 M9 00248 OOOOO 


00250 




TF 


BETA-2 -P 


101 


1 1 


(-L MOVE 1+4 OIGITS 














00236 K6 00194 00101 


00260 




CM 


BE T A *P 


,-00 


.1011 


(♦I 0024B J4 00196 000 — 


00270 




BNH 


GOBACK-12 




(Oi 


BR IF CHAR LESS THAN -L 














00260 M7 01004 01100 


00280 




CM 


BETA -P 




,10, 


00272 J4 00196 000-0 


00290 




BE 


CALC 


» 


.0, 


BR IF CHAR ZERO 














00284 M6 00468 01200 


00300 




61 


CALC*6t 


r 


(0« 


BR IF CHAR BETWEEN -L AND ZERO 














00296 M7 00536 01300 


00310 




CM 


BETA -P 


► 2 


,10 


00)08 J4 00196 000-2 


00320 




BM 


E12 




.0, 


BR IF CHAR LARGER THAN 2 














00)20 M6 00436 01100 


00330 




Bl 


• ♦44 




•0( 


BR IF CHAR BETWEEN AND +1 














00332 M7 00376 01300 


003*0 




OC 


46 f 07770070 


7007770OS0 


3090007000 7000000505 76709070* 348 



SPS Il-U MONITOR 1 



SUBROUTINE SET 02 



PAGE 17 



00 3 50 










-4 - 


6, 


f - 1 


CHAR FUUALS + 2 




















00344 2. J 0238- 


00192 


00 3 60 




T R 




„p 




* 


- L » - L 


SHIFT LEFT 2 POSITIONS 


















00356 LJ 00191 


0019 3 






B 7 


6 12-12 










00368 M9 00424 


00000 


nn \ an 
00380 




TOM 


BE T A-6 


~ P 




1 1 i 


- 1 


CHAR EQUALS *1 




















00376 J5 00190 


0000- 


00 390 




CF 


BETA-5 


-P 




♦ 


-L 


00388 L3 00191 


00000 


00400 




* 


PCX* I 5 




BETA-5 - P 


6 


» - L 


00400 2J 0238- 


00191 


004 10 




T R 


BE T A- 5 


-P 


BETA-4 -P 


• 


-L.-L 


SHlFT LEFT 1 POSITION 




















00412 LJ 00191 


00192 


00420 




BNV 


•♦32 






» 


BR 


IF ADJ CHAR DOES NOT OVFLOW 


















00424 M7 00456 


01400 


004 30 


E 1 2 


BNF 


OV F L 


-P 


»R EC I P- 1 


1 t 


BR 


IF MANT POSITIVE 




















00436 MM 00474 


00887 


00440 




b 7 


UNFl 


-P 








00448 M9 00518 


00000 


004 50 




SF 


BE T A- 5 


-P 




• 


-2L 


00456 L2 00191 


00000 


00460 


C ALC 


T FM 


* *9 






0810 


INIT SIZE INO 




















00468 J6 00477 


0-0,-0 


004 70 




cm 


BE TA-4 


~ P 


34 


1 i 


-L 


00480 J4 00192 


000L4 


00480 




bl 


GOR 






» 


BR 


IF BETA LESS THAN .34 *CHAR 


















00492 M7 00608 


01 300 


00490 




SM 


BE T A- 4 


~^ 


34 


10 » 


- 1 ADJ 


BETA BY -.34 




















00504 J2 00192 


O00L4 


00500 




AM 


CAL09 




1 


• 10 » 


STEP SIZE I NO 




















00516 Jl 00477 


000- 1 


005 10 




tt7 


CALC* I 2 






i 


CONTINUE REDUCTION OF BETA 




















005 28 M9 00480 


00000 


00520 




TFM 


•♦59 




BETA-* -P 


07, 


PROCESS IF CHAR NEG 




















005 36 JO 00595 


-0192 


00530 




A 


• ♦47 




BETA -P 







00548 KJ 00595 


00 196 


00540 




TF 


BE T A-6 


-P 


,CLR-96-P 


» » 


-L,*L 


L*4 DIGIT FIELD 




















00560 K0 00190 


0080.3 


00550 




CF 


BETA-5 


-P 






-L 


00572 L3 00191 


00000 


00560 




TF 


BETA-4 


-P 






SHIFT RIGHT W R T CHAR SIZE 


















00584 K6 00192 


00000 


5 7 




SF 


BfcTA-5 


-P 






- L 


00596 L 2 0019 1 


00000 


00580 




UC 


44,0856405252 0055085502 


2020005000 0000000851 4052 , 


348 


















00348 00044 




00590 


GORD 


T F 


80 




.CIK-106-P 




,2L 


00608 20 00080 


00798 


00600 






BETA-4 


-P 


LN10-46-P 


• 




?L*4 DIGIT PRODUCT 




















00620 XL 00192 


0071 7 


00610 




SF 


97 








-2L 


006^2 32 00097 


00000 


00620 




T F 


SAVE 


-P 


f 99 






1*4 DIGIT FIELDS 




















00644 K6 00 100 


00099 


00 6 30 




TF 


B F. T A- 2 


-P 


• 99 






00656 K6 00194 


00099 


6 4 




TFM 


F Af T ♦ 1 1 




t2 


,0 10 




00668 J6 00751 


000-2 






A 




-P 


,SAVfc -P 






00680 KJ 00048 


00100 


00660 




TF 


8 




iCLK- 106-P 




,2L 


00692 20 00080 


00798 


006 70 




M 


SAVE 


-P 


i BE TA-2 -P 






2L*8 DIGIT PRODUCT 




















00704 Kt. 00 100 


00 194 


00680 






99 




.96 






1*6 DIGIT DIVIDEND 





SPS Il-U MOMFUK 1 



SUBKOUTINE SET 02 

















007 16 26 00099 00096 


00690 


TFM 


96 






. 10, 


-L 


00728 16 00096 000-0 


00 700 FACT 


DM 


97 








-L 


2 OIGIT DIVISOR. L*4 QUOTIENT 

00740 19 00097 -0000 


00 7 10 


bZ 


F AC T ♦ 56 






.0 , 




BR WHEN TFRM REDUCES TO ZERO 

00752 M6 00796 01200 


00720 


TF 


SAVE 


-P 


97 






L*4 DIGIT FIELD 

00764 K6 00100 00097 


00730 


AM 


FACT*1 1 




1 


»010 




00776 Jl 00751 000-1 


00740 


b7 


FACT-60 






• , 




CALC NE > T TERM 

00788 M9 00680 00000 


OU750 


CM 


CALC*9 






• 010 




00796 J4 00477 000-0 


00 /60 


bt 


RECIP 






• o, 




BR IF FURTHiR AOJ NOT REQUIRED 

00808 M6 00888 01200 


00770 


TF 


80 




CLR-106-P 






2LA0JUST FOR REDUCTNS BY .34 

00820 20 00080 00798 


007B0 


M 


AlPHA-4 


-P 


TEN34-45 


,1 




I 2L*4 DIGIT PRODUCT 

00832 KL 00046 01024 


00790 


SF 


97 








-2L 


2L*3 DIGITS 00844 32 00097 00000 


ooeoo 


TF 


ALPHA-4 


-P 


98 






-I 1*2 DIGITS 

00856 K6 00046 00098 


00810 


SM 


CALC+9 




1 


,010, 




REDUCE INDICATOR 

00868 J2 00477 000-1 


00820 


b7 


*-84 






• 




00880 M9 00796 00000 



00830 
00840 REC IP 

00850 

00860 

00o70 

00880 

00890 

00900 

00910 

00920 



00930 
00940 



DC 
BNF 



TF 
1 FM 
D 

BV 
TF 
AM 
B7 
AM 



22, 0000084025 000200000005 
G0BACK-12.RECIP-1 .0 1 t 

PCK+15 , 

99 ,CLR-94-P 
V* ,10 

100 t ALPHA-4-P 
GOfUCK-24, 
PCK+25 ,97 

.1 



PCK+15 
PCK+10 



TF 

00950 GOB AC K B 



PCK*15 
PCK+25 



,ALPHA-6-P 



10, 



00960 OORG 
00970 TEN34 DC 



DENO 02102 



350 00350 00022 

BR IF MANT MAS POSITIVE 

00888 MM 01004 00887 
MAKE CHAR NEGATIVE 

00900 32 0238- 00000 
,2LCALC RECIPROCAL IF NEG MANT 

00912 20 00099 00810 
2Lt 21*2 DIGIT DIVIDEND 

009 24 16 00099 000 JO 
L, L+2 DIGIT DIVISOR 

009 36 2R 00100 00046 
BR IF ORIG OPER 1 OR 1/LOGE 

00948 M6 00992 01400 
,-L STORE RESULT MANTISSA 

00960 26 0239- 00097 
REOUCE CHAR BY ONE 

00972 11 0238- 000-1 
RETURN TO MAINL INE 

00984 49 02 37N 00000 
00992 11 0238- 000-2 
STORE RESULT MANTISSA 

01004 20 0239- 00044 
,6, RETURN TO MAINLINE 

01016 49 02 37N 00000 
01023 

21877616239495525622261149163841873167118056246 

01069 00047 
02102 



610, 
6, 



610 
6, 



24t 



SPS 1 1-0 MONITOR I 



SURROUT INI SET 02 



PAGE 19 



000 10 




OS* 


flog 3 < 


t F t. H 3 






00004 00005 -0000 
















00009 00005-0020 


00020 




00ft G 


EDGAR 








00000 


ooo lo 


FLQG3 


1 DM 


CORN* I , 


, 1 


tOt 


SET FOR COMMON LOG 
















00000 J5 00609 0000 1 


000*0 




87 


•♦■20 , 




iO 




00012 M9 00032 00000 


00050 


FLN3 


TOM 


COftN^l , 


>9 


,0, 


SET FOR NATURAL LOG 
















000 20 J5 00609 00009 


00060 




TFM 


PCK*5 , 


,♦♦20 


• 17 




00032 10 02370 -0052 


C0070 




B7 


PCK , 


> ' 


t6t 


BR TO 


P ICK ANO RETURN 
















00044 49 0236N 00000 


0G060 




OC 


30 ,0700060050 0500500105 7070700055 ,350 
















00350 00030 


00090 




»n 


• ♦56 , 


> BETA- 1 -P 


.0, 


t-l 


BR IF NON ZERO ARG 
















00052 ML 00108 00195 









■401 


• 


.11, 




SET 1N0 FOR LOG OR LN OF ZERO. 
















00064 15 00401 0000- 


00 1 10 




IF 


■ PCK*25 


.NINE-45-P 


»6» 


t+L 


STORE MANTISSA 
















00076 20 0239- 00763 


oo I'm 




bF 


PCK*25 




i 6* 




WITH NEG S 1GN 
















00088 32 0239- 00000 


GO 1 30 




B7. 


OVF| >24-P ( 






BR TO 


STORE CHAR ANO RTN TO MAINLNE 
















00100 M9 00498 00000 


00 1 *0 




BNF 


•♦36 


r B 6 T A - 2 -P 


• Ot 


BR IF 


MANT POSITIVE 
















00108 MM 00144 00194 


00 1 50 




TQM 


401 , 


»0 


i i 




SET INO FOR NEGATIVE 
















00120 15 00401 00000 


00 I 60 




CF 


SETA-2 -P, 








MAKE POSITIVE 
















00132 L3 00194 00000 


•J 1 10 




TFM 


CORN- 2 5 , 


,CZER0-45 


,017, 


♦L 


INITIALIZE 00144 JO 00583 -0914 


00 ICC 




T F 


GOAL- 13 , 


»B€TA -P 


,0, 




SAVE CHAR 00156 KO 00831 00196 


00) 90 




CF 


BETA-1 -P, 


i 




-Lt 


IXPANO FIELO TO L*l DIGITS 
















00168 L3 00195 00000 


00200 




TOM 


BETA-2 -Pi 


t 1 


tilt 


-L, 


ADO 1.0 00180 J5 00194 OOOOJ 


OC i .! 




C. M 


BETA-1 -P, 


.15 


,10, 


-Lt 


00192 J4 00195 000J5 


00*20 




bNL 


•♦44 i 




,0, 




BR IF MOO MANT NOT LESS 1.5 
















00204 M6 00248 01300 


QQii iO 




A 


btT A-j! -P, 


, BE T A-2 -Pi 






DOUBLE MANT. L*l DIGITS 
















00216 KJ 00194 00194 


00 24 




AM 


CORN-25 , 


► 48 


,010, 




ADJ FOR NEXT CONSTANT 
















00228 Jl 00583 000M8 


0025C 




67 


*-60 , 




,0 




00240 M9 00180 00000 


00260 




DC 


42,56 70 55082 52 5 520 85552 550103 


5106202050 085552, 350 
















00350 00042 


002 70 




TF 


ALPHA -P, 


,0NEZ-48-Pi 




,*L 


L + l DIGITS 
















00248 KO 00050 00573 


•;02 30 




•ON 


ALPHA -P, 


,2 1 


I lit 


-L t 


CONVERT TO TWOZ 
















00260 J5 00050 OOOOK 








ALPHA "P, 


,8fcTA-2 -Pi 






2.0 MINUS MOD MANT (2.0-Z) 
















00272 KK 00050 00194 


GG300 




TF 


99 , 


rCLR-93-P 


1 t 


t2L 


00284 20 00099 00811 


00310 




LO 


97 , 


, ALPHA -P, 


1 1 


-Lt 


00296 20 00097 00050 


003^0 







98 , 


, BE T A- 2 -P, 




-Lt 


12.0-ZWZ EQUALS Y 



2 47 



00308 2R 00098 00 194 



00 3 30 




TF 


BETA 


-Pi 


»98 






,-L L+2 DIGITS 


















00320 K6 00196 00098 


00 3*0 




TF 


80 




,CLR-106-P 


it 




,2L 00332 20 00080 00798 


OOiiO 




M 


BETA 


-P i 


, BET A -P 






2L+4 DIGITS 


















00344 KL 00196 00196 


00360 




TF 


SAVE 


-Pi 


>97 






,-L Y«*2 L*2 DIGITS 


















00356 K6 00100 00097 


00 3 70 




A 


BETA 


-P, 


, BETA -P 


1 1 




DOUBLE Y 00368 KJ 00196 00196 


00380 


COUN 


If M 


• ♦9 




,99999 


,010, 




,+LlNlTIALlZE COUNT TO L-l TERMS 


















00380 J6 00389 999R9 


00 3**0 




TFM 


COUN^Tl 




,99999 


tOlOt 




,2L 00392 J6 00451 999R9 


004 OO 




TF 


ALPHA 


-Pi 


>CZERQ-46 


1 1 




,*L L+2 DIGITS. ZERO ALPHA 


















00404 KO 00050 00913 


004 10 




TF 


99 




,CLR-92-P 






,*L 00416 20 00099 00812 


00420 




TFM 


98 


i 


► 10 


,10, 


-L 


, OBTAIN RECIPROCAL TERM 


















00428 16 00098 OOOJO 


00430 




DM 


98 








-L 


t 00440 19 00098 -0000 


UO440 






ALPHA 


-P i 


* 9 7 


I t 




L*2 DIGITS TO PREV TOTAL 


















00452 Kl 00050 00097 


00*!>0 




T f 


SO 




,CIR-106-P 






,2L PRODUCT OF Y*»2 AND TOTAL OF 


















00464 20 00080 00798 


004 60 




M 


ALPHA 


-P , 


,SAVE -P 


1 1 




PREV IOUSLY CALC TERMS 


















00476 KL 00050 00100 


00470 




TF 


ALPHA 


-Pi 


• 97 






,-L L*2 DIGITS STORED TOTAL 


















00488 K6 00050 0009 7 


00480 




SM 


C0UN+71 




,2 


,010, 




REDUCE OIVISOR 


















00500 J2 00451 000-2 






SM 


CO UN «9 




, 1 


,010, 




REDUCE NO OF UNCALC TERMS 


















00512 J2 00389 000-1 


00500 




BNZ 


COUN* 36 




i 


,0, 


BR 


IF L-l TERMS NOT CALC 


















005 24 M7 00416 01200 


005 iO 




OC 


46, 08552550 5052000865 


5250066005 5050605000 07770050 ,350 


















00350 00046 


00520 




TP 


80 




,CLR-106-P 






,2L 00536 20 00080 0079B 


00530 




M 


ALPHA 


-P 


i BETA -P 


ft 




2V • SUM OF L-l TERMS 


















00548 KL 00050 00196 






h 


97 




, 8 £ T A -P 




-L 


ADO 2V TO ABOVE PRODUCT. L*2 


















00560 2 J 00097 00196 


00550 




VF 


BETA 


-P. 








SET WITH PROPER CONSTANT L*3 


















00572 K6 00196 00000 






SF 


*EU 


~P 








00564 12 00196 00000 


00570 




S 


BETA 


«P 


,97 






,-L SUB ACCUM TOTAL FROM CONSTANT 


















00596 K2 00196 00097 


00580 


CORN 


b 


NLG 






,0, 


BR 


IF FINDING NATURAL LOG 


















00608 M9 00S76 00000 


00590 




It 


80 




,ClR-106-P 






,21 00*20 20 00080 00798 


006O0 




M 


LOU-45 


~P 


t BETA -P 


» t 


♦ L 


, 006 32 KL 00670 00196 


00610 




Xr 


BETA 


-P 


.97 


1 1 




L+3 DIGITS 00644 K6 00196 00097 


00620 




SF 


BETA 


-P 








00656 L2 00196 00000 


00630 




TF 


80 




tCLR-100-P 


1 1 




,*L 00668 20 00080 00804 


Ot«t*0 




'A 


ONE i- 46 


-P 


,60Al-lS 


tit 


♦L 


, ORIG CHAR • ONE* L*5 DIGITS 



00660 KL 00S75 00611 



246 



SPS ll-D MONITOR 1 



SUBROUTINE SET 02 



PAGE 21 



006*0 


PIUS 


A 


99 


r Ht T A -P 




00692 2J 00099 


00196 


00660 




TF 


BETA -P 


,99 , , 




PREPARE FOR NORMALIZATION 
















0070* K6 00196 


00099 


00670 




CP 


BETA -P 






00716 13 00196 


00000 


00680 




C 


CLR-92 -P 


t98 




i *L 00728 K* 00812 


00098 


00690 




BE 


ZRES -P 




BP 


IF L** ZEROS 007*0 M6 00530 


01200 


00700 




TFM 


PCKM5 


,3 ,610, 




SET CHAR OF 3 
















00752 16 0238- 


000-3 


007 10 




ttU 


G0AL-2* 


, BE T A- 4 -P,0, 




,-L BR IF Hi ORDER DIGIT NON-, 


ZERO 














0076* ML 00820 


00192 


00720 




Tft 


BETA-* -P 


, BE T A- 3 -P, , 


-L i 


,-L 00776 LJ 00192 


00193 


00730 




SM 


PCK*i5 


.1 t610 




00788 12 0238- 


000-1 


007*0 




TO 


BETA -P 


,NOS DIG ,, 




1NSERT NOISE DIGIT 
















00800 K5 00196 


02*01 


00750 




b7 


*-4B 


,0 , 




CONTINUE NORMAL I 2 A T ION 
















008 12 M9 00764 


00000 


00760 




DC 


14 ,7005000000 0660 , 


,350 


00350 00014 




00770 




SF 


BETA-*. -P 


» i » 


-Li 


> SET FIELD OEF INI TION 
















00820 L2 00192 


00000 


00780 




TF 


PCKt25 


, BE TA-5 -P,6, 




STORE M ANT 00832 20 0239- 


00191 


00790 


GOAL 


ttNF 


PCR* 10 


•^9 ,6, 


AFFIX SIGN AND RETURN TO MAINLINE 














00844 44 0237N 


00099 


00800 




SP 


PCK*25 


, ,6 




00856 32 0239- 


00000 


008 10 




87 


P C K ♦ 10 


, ,6 




00868 49 0237N 


00000 


00820 


NLG 


T F 


60 


.CLR-100-P, , 




,*L CONVERSION FOR IN 
















00876 20 00080 


0080* 


00830 




M 


LN10-45-P 


.GQAL-13 ,, 


♦ L 


, L*5 DIGITS 00888 KL 00718 


008 31 


00840 







PLUS 


,0 , 




RETURN TO COMMON SECTION 
















00900 M9 00692 


00000 


00850 


LJERO 


uc 


48 


,0 




00959 00048 




00860 




uc 


48 ,-69 31 47 180 55994.53094 1 72 321 214581 765680755 0013*36 
















01007 00048 




00870 




DC 


48 ,-1 386294361 1 198 906188 344 642429163 5313615 10002687 2 
















01055 00048 




00880 




UC 


48 ,-207944 154 16798 359282 516963643 7452970422650040308 
















01103 ' 000*8 




00890 




UENO 


02122 






02122 





2 # li 



SMS I 1-0 MONITOR i SUBROUTINE SET 02 PAGE 22 



( ,iG i 


USA 


PSRS3 






00004 


00005 -0000 


00020 


OORG 


EDGAR 






00000 






000 30 FSRS3 


T FM 


PCK + 5 


»»*20 




SET FOR RIGHT SHIFT 
















00000 


10 02370 


-0020 


00040 


B7 


PC* 




,6, 


BR TO PICK AND RETURN 
















00012 


*9 0236N 


00000 


000 5 


UC 


14 ,5000 


0000000 5 


♦ 320 


00320 


0001* 




00060 


to*P 


• ♦24 


,PCK*15 


♦ Oil, 


RETAIN PROPER SIGN 
















00020 


M4 0004* 


0238- 


OUO 70 


SF 


BETA 


P 




000 32 


L2 00196 


00000 




S 


PCK+15 


,PCK-15 


,611, 


CLEAR A FIELD TO ZEROS 
















000** 


22 0238- 


0238- 


00090 


SM 


PCK*20 


, 1 


,10, 


FIND AND CLEAR HI ORDER F I AG 














00056 


12 02385 


000-1 


no i oo 


BNF 


*-l 2 


,PCK*20 


,0 11, 


IN B FIELO 00068 


M4 00056 


0238N 


00 1 10 


CF 


P.CK*20 




,6 


00080 


33 0238N 


00000 


i 01 ?r. 


T F 


PCK* 1 5 


, BE T A 


-P,6, 


STORE 00092 


20 0238- 


00196 


1 *o 


B7 


P C K «■ 1 




,6, 


RETURN T MAINLINE 
















00 10* 


*9 0237N 


00000 


00 140 


D E NO 


02141 






021*1 







25 



SPS 1.1*0 MONITOR 1 



suit out me sct 02 



PAGI 23 



00010 




DSA 


FUS 






00004 


00005 -0000 


00020 




DORG 


EDGAR 






00000 




00030 




TFM 


PCIUS 


.•♦20 1 


17 


00000 


10 02370 -0020 


00040 




B7 


PC* 


* . 1 


6 


00012 


49 0236N 00000 


00050 




DC 


14 ,0550000000000 5 i 


• 314 


00314 


00014 


00060 




TO 


CI *19 


♦•ETA -Pi 


>0t 


SAVE SIGN OF B 00020 


KN 00159 00196 


00070 




CF 


SETA 


-P 




00032 


L3 00196 00000 


00060 




TF 


• ♦47 


♦ PCIU20 1 


1 » 


AO J A ADR TO LO ORDER AOR IN 














00044 


K6 00091 02385 


00090 




SM 


•♦3 5 


»1 1 


iOIO, 


ACCORDANCE WITH B FIELO LENGTH 














00056 


J2 00091 000-1 


00100 




AM 


PCK*15 


♦ 1 




00068 


11 02380 -0001 


00 1 10 




BNP 


•-24 




-0 


00080 


M4 00056 00000 


00120 




TF 


PCK*1* 


(BETA -p! 


>4, 


STORE 00092 


20 0238- 00196 


00130 




C 


PCX* 15 


t *.«♦■» 1 


, , 


CLEAR LO ORDER 8 FIELD 


AND A FIELD 














00104 


24 02380 02385 


00140 




BNL 


CL .-♦20 




,0 


00116 


M6 00160 01300 


001 50 




AM 


PCK+15 


tl ! 


,10 


00128 


11 02380 000-1 


00160 


CI 


TOM 


PCIU15 


tO < 


16 


00140 


15 0298- 00000 


00 i 70 




87 


CL -36 




>0 


00152 


M9 00104 00000 


ota so 




BNF 


►a**io 


• CL *19 i 


,16, 


SET SIGN ANO EXIT 
















00160 


4M 0237N 00159 


00190 




SF 


PCK+20 




>6 


00172 


32 0236N 00000 


00200 




R7 






>6 


00184 


49 0237N 00000 


00210 




OENp 


02151 






02151 


















2 


sps n- 


-0 MONITOR I 


SUBROUTINE SET 


02 




00 rt 10 




DSA 


TFI.S3 






00004 


00005 -0000 


000 20 




OORG 


EDGAR 






00000 




00010 


TKS3 


TFM 


PCM5 


,•♦20 , 


,17, 


BR TO PICK AND RETURN 
















00000 


10 02370 -0020 


000*0 




tt7 


PCK 




,6 


00012 


49 0236N 00000 


0005Q 




OC 


4 


',050 5 


• 324 


00324 


00004 


00060 




TF 


PCK*25 


♦BETA-2 -P 


»6, 


MOVE 8-2 TO A-2 00020 


20 0239- 00194 


00070 




TF 


PCK+15 


,8ETA -Pi 


.6, 


MOVE 8 TO A 00032 


20 0238- 00196 


00030 




87 


PCKMO 


? 


,6, 


RETURN TO MAINLINE 














00044 


49 0237N 00000 


00090 




DfcNO 


02161 






02161 





252 



SPS II-D MONITOR I 



SUBROUTINE SET 02 





DSA 


BTFS3 






00004 


00005 -0000 


00020 


tfm** 


EDGAR 






00000 










PCK*5 


♦ •♦20 


#17 


00000 


10 02370 


-0020 


00040 


87 


PCK 




• 6 


00012 


49 0236N 


00000 


00050 


oc 


8 


,000 50005 ,350 


00190 


00008 




00060 


SM 


PCK*25 


tl 


1 1 


AOJ FOR A- 3 00020 


12 02390 


-0001 


00070 


TF 


PCK*25 


,BETA-2 


-P|6, 


MOVE 8-2 TO A-3 00032 


20 0239- 


00194 






• ♦30 


♦PCK+10 


*o. 


SAVE MAINLINE RETURN ADR 














00044 


K6 00074 


02375 


00090 


BT 


PCK*15 


.BETA 


-P. 6, 


BT TO OESIREO LOG 

00056 


2P 0238- 


00196 


00100 


B7 






1 » 


RETURN TO MAIN LINE 

00068 


49 00000 


00000 


00110 


OENO 


02171 






02171 







25 



SPS II-D MONITOR I 



SUBROUTINE SET 03 



000 10 *•**»» 

00020****** 

00030****** 

00040****** 

00050****** 

00060****** 

00070****** 

00080****** 

00090****** 

00100****** 

00110****** 

00120* 

00130****** 

00140* 

00150****** 

00160* SPS 

00170****** 

00180 

00190 EDGAR 
00200 PCK 
00210 NOSOIG 
00220 

00230 ALPHA 
00240 P 
00250 SAVE 
00260 BETA 
00270 

00280 PICK 

00290 

00300 

00310 

00320 

00330 

00340 OVFL 

00350 

00360 

00370 

00380 

00390 UNFL 
00400 ZRES 
00410 
00420 
00430 

00440 *•••*• 
00450 ONEZ 

00460 PI0V2 



PCK AREA MAY BE USEO AS A WORK AREA IF SUBR NOT USED. IF 
SUBROUTINES REQUlR EO. THEN THE AREA IS USED AS FOLLOWS 
02401 NOISE DIGIT. SOURCE • SUBROUT INE SUPERVISOR 

PCK ADR OF PICK. SOURCE » SUBROUT INE SUPERVISOR 

PCK + 5 ADR OF RETURN TO SUBR. SOURCE * SUBROUT I NE 

PCK+10 ADR OF RETURN TO MAINLINE. SOURCE t PR IMARY LINKAGE 
PCK+15 AOR OF A OPERANO CHARACTERISTIC. SOURCE , PICK 
PCK+20 ADR OF 8 OPERAND CHARACTERISTIC. SOURCE, PICK 
PCK+25 AOR OF A OPERANO MANTISSA. SOURCE, PICK 

PCK+30 ADR OF B OPERANO MANTISSA. SOURCE, PICK 

PCK+31 RESERVED FOR POSSIBLE RECORD MARK 
PCK+35 4 RESERVED CORE 

PCK-6 THRU PCK-90 SUBVEC FOR THE 17 FURN I SHED SUBROUTINES 

AORS ARE SUPPLIED BY THE SUBROUTINE SUPERVISOR 
PCK-91 DOWN TO END OF IORT MAY BE USED IF NO ADDED SUBROUTS 
I SUBROUTINES - AUTO FLOATING POINT 4 MAY 1963 . .JHB 
FOR OPERANOS A AND B ONLY 

PICK 00004 00005 -0198 

,*-4 00000 00000 

5 ,6 ,2365 02365 00040 

,02*01 02401 00000 

EDGAR 00000 
51 00050 00051 

tALPHA-ALPHA 00000 00000 
50 00100 00050 
96 00196 00096 

1 00197 00001 
401 »BETA+1-P tl* RESET ERROR INDICATOR 

00198 2N 00401 00197 
MOVE OPERANOS FROM MAINLINE 

00210 31 02376 0237N 
AM PCK* 10 ,11 ,5, CALC RETURN ADR AND OVERFLOW 

00222 11 023P5 00011 
TFL BETA tPCK+20 tilt MOVE 8 TO BETA 

00234 -6 00196 0238N 
BV PCK +5 * ,6, RETURN TO SUBROUTINE 

00246 46 0237- 01400 

tOO 100 1 10000020 .350 
t-i 

• t* *L 
tNINE-43 16, ,*L 

* ♦.» t*L 



DSA 
DS 
DSB 
DS 

DORG 

OS 

DS 

DS 

DS 

DS 

TO 

TR 



PCK*ll ,PCK*10 ,11, 



OC 
TDM 
SF 
TFL 
CF 
87 
TOM 
SF 
TFL 
CF 
87 



14 
401 

NINE-44 
PCM-15 
NINE-45 
PCK* 10 
401 
CLR*1 
PCK>15 
•-18 
PCK* 10 



•CLR *2 



,6 
,6 
»6 



00350 00014 
00258 15 00401 0000 J 
00270 L2 00560 00000 
00282 00 0238- 00561 
00294 L3 00559 00000 
00306 49 0237N 00000 
00314 15 00401 00001 
00326 L2 00703 00000 
00338 00 0238- 00704 
00350 L3 0033K 00000 
00362 49 0237N 00000 



SHARED CONSTANTS 

DC 49 .1000000000000000000000000000000000000000000000000 

00417 00049 

OC 47 ,15707963267948966192313216916397514420985846996 

00464 00047 



SI'S 11*0 MONITOR 1 SUBROUTINE SET 03 



00470 


LOGE 


OC 


47 


t 43429*48 190 1251 82 765 11289 189 1660508 229439700580 










0051 1 00047 


00*80 


IN-: 10 


QC 


48 


t 2302585092994045684017 991454684364207601 10148862 










00559 00048 


00490 


NINE 


OC 


45 


,999999999999999999999999999999999999999999999 










00604 00045 


00500 




DC 


2 


,99 00606 00002 


00510 


CLR 


OS 


96 


t, 96 ZERQS 00702 00096 


00520 




OC 


48 


,0 ,• 007 02 00048 


00530 




DC 


49 


,0 ,»-47 00655 00049 


00540 




OC 


2 


,-99 007 04 00002 


00550 




DENO 


03001 


03001 



255 



SPS ,11-0' MONITOR I SUBROUTINE SET 03 



00010 


DSA 


oim 






00004 00005 -0000 


00020 


OORG 


EDGAR 






00000 


00030 0IVM1 


TR 


PCK+U 


,PCKt 10 


tilt 


MOVES DIV OPERANDS INTO PCK AREA 

00000 31 02376 0237N 


00040 


AM 


PCKtlO 


,21 




CALC RETURN ADR 00012 11 02375 -0021 


00050 


IF 


85 


,CL R-lO 




0002* 20 00085 00692 


00060 


10 


PCK*25 


,PCK*15 


,611 


00036 28 0239- 0238- 


00070 





PCR+30 


,PCK*20 


,611 


00048 29 0239N 0238N 


00080 


87 


PCK*10 


t 


f 6 


00060 49 0237N 00000 


00090 


DENO 


30 1 1 






03011 



SPS ll-D MONITOR I SUBROUTINE SET 03 

00010 OSA FS3 ,Fk} ,FM3 ,FD3 00004 00005 -0000 

00009 00005 -0020 

0001* 00005 -0040 

00019 00005 -0060 



00020 




OORG 


EDGAR 






00000 








00030 


FS3 


TDM 


FL0P*1 


i2 




00000 


J5 


00 1 1 7 


00002 


00040 




B7 


MOVE+12 






00012 


M9 


00084 


00000 


00050 


F A3 


TOM 


FLOP* 1 


, 1 




00020 


J5 


00 117 


0000 1 


00060 




B7 


M0VE*12 






00032 


M9 


00084 


00000 


00070 


FM3 


TOM 


FLOP+1 


, 3 




0004 


J 5 


00117 


000.0 3 


00080 




B7 


MOVE 






00052 


M9 


00072 


00000 


00090 




uc 


4,0005, 


3 50 




00350 


00004 




00100 


FD3 


TOM 


FLOP+1 


,9 




00060 


J5 


00117 


00009 


001 10 


MOVE 


TF 


79 


»CL R-17 




00072 


20 


00079 


00685 


00120 




TFM 


PCK*5 


tFLOP-12 




00084 


10 


02370 


-0104 


00130 




B7 


PCK 


i 


.6 


00096 


49 


02 36N 


ooooo 


00140 




bxv 


•♦12 






00104 


M6 


00116 


01500 


00150 


FLOP 


FAOD 


PCK*15 


,PCK*20 


,611 


00116 


01 


0238- 


0238N 


00 160 




BV 


2 AODI V 






00128 


M6 


00196 


01400 


001 70 




BNXV 


PO*10 




• 6 


00140 


47 


0237N 


01500 


00 180 




TDM 


40 1 


i-l 




00152 


15 


00401 


OOOOJ 


00190 




BNF 


PCK*10 


fPCK*15 


,611 


00 164 


4* 


0237N 


0238- 


00200 


UNFLO 


CF 


40 1 


tOOOO 


,810 


00176 


33 


00401 


0-0-0 


002 10 




B7 


PCK+10 




• 6 


00 188 


49 


0237N 


OOOOO 


00220 


ZROD I V 


TDM 


40 1 


• 


til 


00196 


15 


00401 


0000- 


00230 




FADD 


PCK*15 


,UNFL0*11 


,6 


00208 


OJ 


0238- 


00 187 


00240 




BNZ 


PCKMO 




i 6 


00220 


47 


0237N 


01200 


00250 




TFM 


PCK*15 


,99 


,61011 


00232 


16 


0238- 


OOORR 


00260 




B7 


PCK*10 




• 6 


00244 


49 


0237N 


OOOOO 


00270 




DEND 


03024 






03024 









SPS II-O MONITOR I SUBROUTINE SET 03 



000 10 




DSA 


FS0R3 








00004 00005 -0000 


00020 




DORG 


EOGAR 








OOOOO 




00030 


FS0R3 


TFM 


PCK + 5 




,♦•►20 


t 17 


OOOOO 10 02370 


-0020 


00040 




B7 


PCK 






» 6, 


BR TO PICK AND RETURN 


















00012 49 0236N 


OOOOO 


00050 




UC 


44 


,075050 0550000002 


0000000B05 040000560000000005* 350 
















00350 00044 




00060 




BD 


♦ ♦20 




, BET A- 1 


-P»0» 


,-L 00020 ML 00040 


00195 


00070 




til 


ZRE S 


-Pi 






BR IF RESULT ZERO 


















00032 M9 00326 


OOOOO 


00080 




MM 


BETA 


-P i 


,50 


, 10, 


DIV CHAR BY 2 


















00040 J3 00196 


OOONO 


00090 




BNF 


**36 




,BETA-2 


-PtO, 


BR FOR POSITIVE ARG 


















00052 MM 00088 


00194 


00100 




CF 


BETA-2 


-P 






00064 L3 00194 


OOOOO 


001 10 




TDM 


40 1 




,0 




SET NEG ARG INDICATOR 


















00076 15 00401 


OOOOO 


00120 




bD 


SQ3 




,98 


,0, 


BR IF CHAR ODD 


















00088 M3 00380 


00098 


00130 




TFM 


SQ2+42 




,97 


,010, 


,-L MOVE M ANT I SSA ADR 


















00100 J6 00166 


000R7 


00140 




BNF 


♦ ♦24 




.99 


,0, 


BR IF CHAR POSIT IVE 


















00112 M4 00136 


00099 


00150 


S02 


SF 


97 








00124 32 00097 


OOOOO 


00160 




TF 


SOEX+47 




t97 


• t 


STORE RESULT CHAR 


















00136 K6 0048 3 


0009 7 


00170 




TF 


99 




.CLR-92- 


p «• 


,2L 00 148 20 00099 


00610 


00180 




TF 






, BET A-2 




MOVE MANT INTO 97/98 MINUS 


L 
















00160 20 OOOOO 


00194 


00190 




TFM 


LSQ+18 




»97 


,010, 


,-2L INITIAL MANT ADR HI ORDER 


















00172 J6 00246 


000R7 


00200 




TF 


LSO+23 




, SO 3* 18 


tOl, 


INITIAL RESULT ADR 


















00184 KO 00251 


00398 


002 10 




TF 


LSQM-6 




, LSO* 18 


♦ t 


INITIAL MANT AOR 


















00196 KO 00330 


00246 


00220 




TF 


BETA-2 


-P 


.0NEZ-4 8-P,. 


,*L SET RESULT TO ONE L* 1 DIGITS 
















00208 KO 00194 


00369 


00230 




B7 


L SQM 






t0 f 


00220 M9 00336 


OOOOO 


00240 


LSO 


AM 


LSQ+23 




,2 


,0610, 


ADD 2 TO RESULT 


















00228 Jl 0025J 


000-2 


10250 




S 








1 1 


SUB RESULT FROM MANTISSA 


















00240 22 OOOOO 


OOOOO 


>02 60 




BNN 


LSQ 






,0, 


CONTINUE UNTIL MANT IS NEG 


















00252 M6 00228 


01300 


00270 




CH 


LSQ*23 




iBETA-2 


-Pi07 


00264 JM 00291 


-0194 


00280 




BNL 


SO EX 




t 


»0f 


BR IF TERMINAL RESULT AOR 


















00276 M6 00436 


01300 


00290 




A 


LSQ4-18 




,LSQ*23 


»ouu 


» RESTORE LAST SUB 


















00288 KJ 00240 


0025J 


OUJUO 




L> 


LiU*i8 






,06 


00300 13 00240 


OOOOO 


00310 




*M 


LiWn-6 




',01 


fOlO* 


REDUCE MANT FIELD LENGTH ONE 














00312 Jl 00330 


000-1 


00320 




SF 










00324 32 OOOOO 


OOOOO 



SPS 11-0 HON I TDR I 



SUBROUTINE SET 01 



00*30 


LSQM 


AM 


t SO ♦ 1 8 






.0 10, 




STEP MANT ISSA ADR, Hi 

003 36 J I 


OROER 
00246 


,♦2 

000-2 


U0 3V0 




AM 


I SQ + 2 3 




tU I 


• 010, 




STEP .RESUl t ADR *1 

00348 Jl 


00251 


000-1 


00 3 50 




SM 


150**3 




♦ 09 


.0610, 




STEP RESULT -9 

00360 J2 


0025J 


000-9 


00360 






LSGM2 






,0, 




CONT LOOP WITH NEXT 


2 DIGITS 


















00372 M9 


00240 


00000 


00370 




oc 


16 , 


707002000650 20,316 




00316 00016 




00 380 


S03 


AM 


99 




,50 


• 10, 




ADO .5 TO ChAR/2 

00380 11 


00099 


OOONO 


00390 




TDM 


BETA-2 


-P 


,0 


» 2 1 1 » 


-Li 


. LENGTHEN MANT FOR 000 CHAR 




















00392 J5 


-0194 


0000- 


00400 




CF 


BETA^l 


-P 






- 1 1 


00404 L3 


00195 


00000 


00410 




TFM 


$02*42 




.98 


!oio. 




,-L MOVE MANT ADR 

004 16 J6 


00166 


000R6 


00420 




&7 


SU2-12 






• 0, 




8R TO STORE CHAR ♦ 


IN I T LOOP 


















004 28 M9 


00112 


00000 


00430 


SQEX 


TF 


80 




iCLR 


-lOO-P,, 


i 


,*L 00436 20 


00080 


00602 


00440 




mm 


BE T A-2 


-P 


,50 


.10, 




RESULT 12 00448 J3 


00194 


OOONO 


00450 




SF 


98 








-L< 


, DEFINE FIELD 

00460 32 


00098 


ooooo 


004 60 




T F M 


99 






» » 




INSERTS CHAR 

00472 16 


00099 


-0000 


00470 




rF l 


PCK*15 




,99 


,6, 




STORE RESULT 

0048* 06 


0238- 


00099 


00480 




B7 


PCK* 10 






• 6, 




RETURN TO MAINLINE 
004 96 49 


0237N 


OOOOO 


00490 




UfcNO 


0306 1 










03061 







25 



iPi ii-d MONiiUH i subroutine set 03 



OUvJ 10 




D i» A 


H0S3 




• F SIN3 






00004 00005 -0000 


















00009 00005 -0032 


00020 




DO RG 


EDGAR 










OOOOO 




000 *iO 


K0S3 


TFM 


CLF + U 




• 010 


.0 9, 




IN IT FOR COS 




















OOOOO J6 00099 


00-10 


'ooo.* a 




T FM 


PCK*5 




,CLF 


.17 




00012 10 02370 


-0088 


00050 






PCK 






.6. 




GO TO PICK AND RETURN 




















00024 49 0236N 


OOOOO 


00060 


FSIN3 


TFM 


ClF+l 1 




.-Oil.' 


.09, 




INIT FOR POSITIVE SIN 




















000 32 J6 00099 


00-1J 


000 70 




TFM 


PCK* 5 




,•♦20 


.17 




00044 10 02370 


-0064 


00080 




67 


PCK 






.6, 




GO TO PICK AND RETURN 




















00056 49 0236N 


OOOOO 


00090 




OC 


46 ,0 500 50 7056 


5000 510007 


0507 005651 0070510000 505608, 


348 


















00348 00046 




00100 




&NF 


•♦36. 




♦BETA-2 


-P 




00064 MM 00100 


00194 


00 uo 




TDM 


ClF*10 




.0 


.0 » 




ADJUST FOR NEG SIN 




















00076 J5 00098 


OOOOO 


00120 


CIF 


CF 


BE f A- 2 


~P 








00088 L3 00194 


OOOOO 


OU I iO 




CF 


dfeTA-1 


-P 






-L 


00100 L3 00195 


OOOOO 


obiio 




TF 


SAVE 


-P 


,ClK-94 


-P "» 




.♦L MOVE 1*2 ZEROS TO SAVE 


















00112 KO 00100 


00608 


00150 




CM 


BETA 


-P 


.00 


.10 




00124 J4 00196 


000-0 


00160 




BNL 


POZCH 






.0. 




BR IF POSITIVE OR ZERO CHAR 


















00136 M6 00760 


01300 


00170 




CM 


BETA 


-P 


• 00 


.1011, 




,+L 00148 J4 00196 


000 — 


00180 




BL 


BRD 






.0, 




BR IF CHAR LESS THAN -L 




















00160 M7 00208 


01300 


00190 




TFM 


♦ ♦30 




.SAVE 


-P. 07. 




CHAR BETWEEN AND -L 




















00172 JO 00202 


-0100 


00200 




S 


*tl8 




»BE f A 


-P.0 




00184 KK 00202 


00196 


00210 




TR 






, BETA- 1 


-P.. 




,-L 00196 3 J OOOOO 


00195 


00220 


BRO 


BO 


* + 24 




»CLF*11 


.01. 




BR IF S IN ROUTINE 




















00208 ML 00232 


00099 


00230 




A 


SAVE-P 




♦PI0V2* 


45- P.. 




.♦ICONVEAT TO SIN 




















00220 Kj 00100 


00419 


00240 




S 


SAVE 


-P 


•TWOPl- 


49 .1. 




.♦I 00232 KK 00100 


00964 


00250 




BH 


♦ -12 






.0, 




SUB 2 PI FROM MANT UNTIL NEG 


















00244 M6 00232 


01100 


00260 




SF 


SAVE -1 


-P 






-I 


00256 12 00099 


OOOOO 


00270 




A 


SAVE 


-P 


'.Pl-45 


. . 




.♦I 00268 K J 00100 


00917 


00280 




BN 


• ♦36 






.0 




00280 M7 00316 


01300 


00290 




SM 


CtF*lO 




,01 


.010 




00292 J2 00098 


000-1 


00300 




SF 


SAVE 


-P 








00304 L2 00100 


OOOOO 


00310 




A 


SAVE 


-P 


.PI0V2- 


45-P«» 




.♦I 00316 Kj 00100 


004 It 


00320 




TF 


• 




.CLR-106-P,, 




,2L 0C32B 20 OOOBO 


005*6 


00330 




OC 


48,5552705600 0002202000 


5055000000 0008550000 00560050 , 


,348 


















00341 00046 




00340 




M 


SAVE 


-P 


t SAVE 


-P 




00340 KL 00100 


00100 


00350 




Tf 


SAVE 


~P 


• 96 


.10, 




i-L 00352 K6 00100 


OOORB 


00360 




SF 


SAVE-i 


-P 




» t 


-L 


00364 L2 00099 


OOOOO 


00370 




TF 


BETA 


-P 


,0NfcZ«4T-P.t 




.♦LSET BETA EQUAL 1 PLUS L*i ZERO 


















00376 KO 00196 


00370 



SPS II-D MONITOR I SUBROUTINE SET 03 



PAGE 8 



00 380 




TR 


AAB- 3 




(H 34- l 




• 1 




00388 


L J 


00907 


01010 


00390 


OVER 


T DM 


SUM* I 




, 2 




»0 1 1 1 


SET FOR SUBTRACTION 
























00400 


J 5 


0047 3 


0000 K 


00400 




TF 


99 




,98 




> 1 o» 


• "L 


004 12 


26 


00099 


000R8 


00410 




TFM 


97 




,0000 




• 58, 




00424 


16 


000R7 


0-000 


00420 




u 


98 




i AB 




► 15 i 




004 36 


2R 


000R8 


00914 


00430 




BZ 


DONE 








• , 


BR I F 


QUOTIENT ZERO 
























00448 




00586 


01200 


00440 




1 F 


ALPHA 


-P i 


>95 




• 10 




00460 


K6 


00050 


000R5 


00450 


SUM 


s 


BE TA 


-P i 


, ALPHA 


-P 






00472 


KK 


00196 


00050 


00460 




AM 


AAB 




,2 




• 10 




00484 


Jl 


009 10 


000-2 


00470 




AM 


AAB- 2 




, 2 




,010 




,004 96 


Jl 


009 08 


000-2 


00460 




M 


AAB 




» AAB- 2 




»0 1 » 


4DIGIT 


PRODUCT 

005 08 


KL 


009 1 


00908 


004 90 




j f. 


AB 




,99 




tO 




00520 


Kb 


009 1 4 


00099 






T f. 


80 






_ p 




• 2L 


005 32 


20 


UUuu U 










SAVE 


-P , 


rALPHA 


-P 






00544 


KL 


00100 










OVER 




»SUM*1 




,01 




00556 


MM 


00400 


0047 3 


00530 






SUM* I 




» 1 




• , 


SET TO ADO 00568 


J 5 


00473 


00001 






7 


0VER*12 








tO 




00580 


M9 


004 12 


00000 




DONE 




BETA-1 


-P , 


► CLR-95- 


P 




, ♦ L 


005*8 


K* 


00195 


00607 


00560 




BE 


P0ZCH*60 , 






iO , 


BR IF 


L*l ZEROS 


























00600 


M6 


00820 


01200 


005 70 






SAVE 


-P 


.01 




• 10 




006 12 


J6 


00100 


000-1 






oc 


48,0750775070 0000505505 


5000500051 


0000505000 


05057005, 


,350 




















003 50 


00048 




00590 




BD 


PlACE-24 , 


rBETA-1 


-P 


• , 


,-LBR IF 


NORMAL 1 Z AT ION NCT R E 




















006 24 


ML 


00692 


00195 


00600 




SM 


SAVE 


-P 


,0 1 




, 10 




00636 


J2 


00100 


000-1 


006 10 




TR 


BETA-1 


-P. 


.BETA 


-P 




-L , -L 


00648 


LJ 


00195 


00196 


00620 




TO 


BETA- 1 


-P 


»NOS DIG 






ENTER 


NOISE DIGIT 
00660 


K5 


00195 


02401 


00630 




SF 


BETA-1 


-P 








-L 


00672 


L2 


00195 


00000 


006*0 




B7 


• -60 












006 84 


M9 


00624 


00000 


00650 




BD 


PLACE 




,CLF*10 




.0 1 




00692 


ML 


007 16 


00098 


00660 




^ 


BETA-? 


-P 










007 04 


L2 


00194 


00000 


006 70 






BETA 


-P 


, SAVE 


-P 




STORE 


CHAR 00716 


KO 


00196 


00100 


00 6 80 




T t 


PC**15 




.BETA 


-P 


,6. 


STORF 


RESULT 

00728 


00 


0238- 


00196 






TO 


ALPHA* 1 


-P 


.H34+7 




, 1 . 


RESTORE PM 00740 


KN 


00051 


01018 


00700 




b7 


PCK* 10 








.6, 


RETURN TO MAINLINE PROGRAM 






















00752 


49 


0237N 


00000 


00710 


PD ZC H 


CM 


BETA 


-P 


.03 




• 10 




00760 


J4 


00196 


000-3 


7 2 




BL 


♦ ♦80 








• 0. 


BR IF 


CHAR SMALLER THAN 03 






















00772 


M7 


00852 


01300 


00 7 iO 




CM 


BETA 


-P 


,00 




• 10, 


, *L 


007 84 


J4 


00196 


000-0 


00 740 




BNH 


»*44 








• , 


BR IF 


CHAR LESS OR EQUAL L 






















007 96 


M7 


00840 


01100 


00750 




TDM 


40 1 




,0 




,11, 


CHAR TOO LARGE 


























008 08 


15 


00401 


0000- 


00760 




TD 


ALPHA* 1 


-P 


,H34*7 






RESTORE RM 


00820 


KN 


00051 


01018 


00770 




B7 


ZRES 












008 32 


M9 


00326 


00000 


007A0 




TOM 


40 1 




,0 








00840 


15 


00401 


00000 



2 G i 



SPS II-D MONITOR I SUBROUTINE SET 03 PAGE 9 



00790 




TFM 


♦ ♦42 


•SAVE-1 -P,07, 


ADJ TO SUB TWO PI FROM MANT 

00852 JO 00894 -0099 


00800 




S 


• ♦30 


♦BETA -P t 0, 


UNTIL REDUCED TO NEG NUMBER 

00864 KK 00894 00196 


008 10 




TDM 


BETA-2 


-P.0 ,11, 


- L 00876 J5 00194 0000- 


00820 




TF 




•BETA-2 -P 


00888 20 00000 00194 


00830 




B 


BRD 


. ,0 


00900 M9 00208 00000 


00840 




DORG 


*-4 




009 07 


00850 


AAB 


OS 


4 




00910 00004 


00860 


AB 


OS 


4 




00914 00004 


00870 




DS 


1 




00915 00001 


00880 


PI 


OC 


47 


•3141592653589793238462643383279502884 197 1693993 












00962 00047 


00890 


TWOPI 


OC 


47 


,628 3185 30 717958647692 52 86766559005768 394338798 7 












01009 00047 


00900 


H34 


DC 


2 


• 01 


01011 00002 


00910 




DC 


2 


,02 


01013 00002 


00920 




DC 


5 


,000 2a) 


01018 00005 


00930 




DEND 


03072 




03072 



2(|2 



sps i i 


HON I TOR I 




SUBROUTINE SET 


03 




COO 1U 




USA 


FATN3 












00004 00005 -0000 


00020 




dorg 


EDGAR 












00000 


00030 


f Al Mi 


TFM 


PCK*S 




• ♦♦20 




,17 




00000 10 02370 -0020 


00040 




B7 


PCK 








,6, 




BR TO PICK ANO RETURN 




















00012 49 0236N 00000 


00050 




OC 


50 ,0700055050 0000510005 


0576705070 7000065020 51500825,350 




















00350 00050 


00060 




TFM 


TESTfll 








,06, 




SET INDICATORS 




















00020 J6 00075 0-000 


000 70 




BO 


• ♦20 




iBETA-I 


-P 


,0 i 




,-L 00032 ML 00052 00195 


00080 




b r 












00044 M9 00816 00000 


00090 




TO 


TEST+9 




r BETA-2 


-P 


,0 , 




SAVE MANT SIGN 




















00052 KN 00073 00194 


00100 


TEST 


CF 


BE TA-2 


-P 










00064 L3 00194 00000 


001 10 




CM 


BETA 


-P 






♦ 10 




00076 J4 00196 000-0 


00120 




: «h 


PC MAR 








• 0, 




BR IF CHAR POSITIVE 




















OOOBB M6 00836 01100 


00130 




Be 


ALPH 








,0 , 




BR IF CHAR ZERO 




















00100 M6 00 196 01200 


00140 




CM 


BETA 


-P. 


, -99999 




,10, 




♦ L 00112 J4 00196 999RR 


001 50 




Bi 


F. 00 








.0 i 




BR IF CHAR LESS THAN -U-l) 




















00124 M7 01040 01300 


00160 




TFM 


AtPH-1 




»IETA^2 


*P 


,07 




00136 JO 00195 -0194 


00170 




A 


AlPM-1 


i 


r BETA 


-P 


,0 




00148 KJ 00195 00196 


00180 




TF 


BET A- 2 


-Pi 


.CLR-9*- 


P 


t » 


-Li 


,*L CLEAR AREA LEFT OF BETA 




















00160 KO 00194 00606 


00190 




CF 


BETA-1 


-P , 






♦ i 


-L 


EXPAND BETA BY REMOVING FLAG 




















00172 L3 00195 00000 


00200 




IF 


BE'TA« 2 


-P . 






» t 




ADJUST BETA FIELD FOR CHAR 




















00184 K6 00194 00000 


00210 


ALPH 


SF 


BETA-1 


"Pi 






» » 


-L 


CONTRACT BETA BY RESETTNG FLAG 




















00196 L2 00195 00000 


00220 




CM 


BETA 


-P 


► 29 




tlO, 


-L 


00208 J4 00196 000K9 


00230 




BL 


ATNl-72 








• Of 




BR IF MANT LESS THAN .29 




















00220 M7 00352 01300 


00240 




TF 


79 




,CLR-100 


-P 




i 


,*L 00232 20 00079 00602 


00250 




MM 


BET A- 2 


-P i 


>6 




,10, 




6*MANT IN 99 




















00244 J3 00194 000-6 


00260 




TDM 


98 




. - 1 






-L 


1*6»MANT IN 99 




















00256 15 00098 OOOOJ 


00270 




S 


BET A- 2 


-P , 


rSlX-45 




tit 




♦ L MANT- .6 L OIGITS 




















00268 KK 00194 01190 


00280 




TF 


ALPHA 


-P 


• 99 








10*6*MANT MOVED TO ALPHA. L + 2DG 




















00280 K6 00050 00099 


00290 




TF 


99 




•CLR-94- 


P 


It 




,21 21+2 ZEROS 




















00292 20 00099 00608 


00 300 




LU 


98 




•BETA-2 




t t 


-Li 


, L DIGITS 1 




















00304 2U 00098 00194 


Ou3 10 




PL 


*6 ,<;S!>2G0O855 5256030106 


2020055008 5552000000 56550855,348 




















00348 00048 


0G"9?0 




D 


100 




i ALPHA 


-P 


t , 


-Li 


i L+2 DIGITS 00316 2R 00100 00050 


003 30 




TF 


BPTA-2 


-P 


,97 








,-L MANT IS 1 M ANT- .6 ) / 1 10*6* MA NT) 



00328 K6 00194 00097 



2 U J 



SPS H- 


MONI TOR I 




SUBROUTINE SET 


03 


















Tf ST* 11 




, ,0, 






INO THIS CALC MADE 






















00340 


L2 


00075 


00000 


00350 




TF 


80 




.CLR-106-P,, 




»2L 


ZEROS 
























00352 


20 


00080 


00596 


Gu3fe0 




M 


BETA-2 


-P 


,BETA-2 -P,, 




SQUARE MANT 00364 


KL 


00194 


00194 


00 3 70 




TF 


SAVE 


-P 


t99 ,, 




• ~L 


SAVE IS MANT*MANT» L 


DIGITS 


















00376 


K6 


00100 


00099 


00380 




TF 


ALPHA 


-P 


,CLR-95 -P,, 






INIT ALPHA TO 00 L*l ZEROS 


















00388 


KO 


00050 


00607 


fit) 3 90 




TM 


ATN1+35 




,99999 ,10, 




,21 


00400 


J6 


004 59 


999R9 


.v '-.or? 






ATN1-3 




,99999 ,10, 




,*L 


00M2 


Jfc 


00421 


999R9 


004 iO 


ATNil 


IF 


99 




,CtR~92-P ,, 




»H 


L+4 ZEROS 
























00424 


20 


00099 


00610 


00420 




TFM 


98 




,10 ,10, 


-L 




004 36 


16 


00098 


OOOJO 


004 30 




DM 


98 




t tt 


-L 




00446 


19 


00098 


-0000 


00440 




S 


96 




,ALPHA -P 






00460 


2K 


00096 


00050 


00450 




TF 


ALPHA 


-P 


• 96 ♦» 






L*l DIGITS 
























00472 


K6 


00050 


00096 


G0400 




n 






,CI.*~106-P, , 




,2L 


00464 


20 


00080 


00596 


wd>7U 




Pi 


A t. Hi* 




■SAVE ~P,, 






2L + 1 OIGITS 
























00496 


KL 


00050 


00100 


004*0 






ALPHA 


•P 


• 99 , , 




,-L 


L*l OIGITS 
























00508 


K6 


00050 


00099 


00490 




i»» 


A T N 1 ♦ J 5 




,2 ,010 






005 20 


J2 


004 59 


000-2 


00500 




SM 


ATN1-3 




,1 ,010 






00532 


J2 


00421 


000-1 


00510 




BNZ 


ATN1 




t 1 t 






BR IF LESS THAN L 


-1 


PASSES 


















00544 


M7 


00424 


01200 


00520 




TF 


SAVE 


-P 


,0NEZ-47-P,t 




• ♦L 


L*2 DIGITS 
























00556 


KO 


00100 


00370 






S 


SAV* 


-P 


.ALPHA -P,» 




ONE MINUS SUM OF 1 C0£F*MANT»*2 ) 


















00566 


KK 


00100 


00050 


00540 




TF 


80 




,CLR-10*-P,t 




• 2L 


00580 


20 


00060 


00596 


00550 




M 


SAVE 


-P 


,Bf TA-2 -P., 






2L+2 DIGIT PRODUCT 




















00592 


Kl 


00100 


00194 


00560 




DC 


48 ,0000202100 202650 2504 5044200040 5200500500 


00064025 


,348 


















00346 


00046 




00570 




BNF 


T6ST2 




tTfST*ll ,01 






00604 


MM 


00652 


00075 


00580 




6HH 


TEST 2 12 


, ,0 






00616 


M6 


00640 


01300 


00590 




SF 


99 




t it 


-L 




00626 


32 


00099 


00000 


C0600 




A. 


99 




, TANA- 4 5 ,1» 


-L 


.♦I 


L*l DIGITS 
























00640 


2J 


00099 


0123* 


»/0 A 10 




©WF 


•♦3* 




»TEST*10 ,01 






00652 


MM 


00*66 


00074 


00620 




SP 


99 




t it 


-L 




00664 


32 


00099 


00000 


00610 




A 


99 




,RI0V2-45-P, , 


-L 


t*L 


L>2 OIGITS 
























00*76 


2J 


00099 


00419 


00640 




TFM 


BETA 




,1 tlO 






00666 


J* 


0019* 


000-1 


00650 




fD 


100 




,BETA*1 -P,, 


-L 




INSERT ft* AT 100-L 






















007 00 


2N 


00100 


00197 


00660 




f»0 


TESTW4 


,98 f , 


t 


-21 


BR IF NORMALIZATION NOT 1 


IEOD 


















00712 


MS 


007*6 


00098 


00470 




s« 


BETA 




,1 flO 






00724 


J2 


0019* 


000-1 


00680 




TR 


98 




♦ ti 


-2L»- 


21 007 36 


31 


00096 


00099 



SPS 11-0 MONITOR 1 SUBROUTINE SET 03 



00690 




TO 


99 




NO 4 *) DIG t, 


-L INSEAT 


NOISE DIGIT 


















00748 


25 00099 


02401 


00700 




67 


*-48 


• 


• 




00760 


M9 00712 


00000 


00710 




SF 


98 






-2L 


00768 


32 00098 


00000 


00720 




TF 


BETA-2 


-P , 


97 /, 


, - L 


00780 


K6 00194 


0009 7 


00730 


TEST I 


BNF 


♦ ♦24 


< 


TEST+9 ,01 




0079^ 


MM 00816 


0007 3 


007*0 




SF 


Bfc T A-2 


-P 






00804 


L2 00194 


00000 


00750 




TFl 


PCK*15 




BETA -P,6 




00816 


00 0238- 


00196 


00760 




67 


PCK*10 




16 




006 28 


49 0237N 


00000 


00770 


PCHAR 


TDM 


TEST+10 




-1 .0, 


INDICATE 


POS IT IVE 
008 36 


CHAR 

J5 00074 


0000 J 


00780 




TF 


99 




CLR-95-P ,, 


.21 


00848 


20 00099 


00607 


00790 




TOM 


100 




-1 M 


-2L DIVIDEND 


EQUALS .1 
00860 


15 00 100 


0000 J 


00600 







99 




BETA-2 -P,, 


-It DIVISOR 


IS MANT 

00872 


2R 00099 


00194 


008 10 




DC 


44 ,0440525000 5250000050 


0050510000 


555670 


70510005, 


i 348 
















00348 


00044 




00820 




60 


• ♦56 




99 ,0, 


t-2L BR 


IF MANT IS 100000.. 


















00884 


M3 00940 


00099 


00830 




SF 


100 




< » , 


-2L REDUCE TO L OIGITS 


















00896 


32 00100 


00000 








BE U-2 


-P i 


>99 , , 


,-L 


009 08 


K6 00194 


00099 


00850 




SM 


BETA 


-P , 


il tlO, 


REDUCE CHAR BY 1 


















009 20 


J2 00196 


000- 1 


00 860 




6 7 


•♦32 




i tO , 


THESE 3 


00932 


M9 00964 


uuuuu 


00870 




If 


BETA-2 


-P , 


.98 , , 


,-L INSTRUCTIONS 


GO 


















00940 


K6 00194 


00098 


00880 




SM 


BETA 


-P , 


»2 »10, 




WITH BD 

00952 


ABOVE 

J2 00 196 


000-2 


008^0 




b L 


* + 4<» 




.0, 


BR IF OPERAND IS ONE 


















00964 


M7 01008 


01300 


00900 




6E 


A L PH 




> .0, 


BR IF CHAR REDUCED TO ZERO 


















00976 


M6 00196 


01200 








BETA 


-P < 




CHAR STILL POSITIVE, MAKE NEC 
















00988 


L2 00 196 


00000 


00920 




B7 


TfcST*4B 






1000 


M9 00112 


00000 






T FH 


BETA 


-P 


. 10. 


STORE CHAR 01008 


J6 00196 


000-0 


00 940 




TF 


BETA-2 


-P 


,PinV4-45 


.♦L 


01020 


KO 00194 


01281 


00950 




B7 


TEST1 








01032 


M<J 00792 


00000 


00960 


f OD 


BNF 


TEST I 




, TEST* 10 


BR IF RESULT MORE 


THAN PI0V2 
















01040 


MM 00792 


00074 


009 70 




j f 


ALPHA 


-P 


i BETA-2 -P 




01052 


KO 00050 


00194 


009 8 




T ^ 


BETA-2 


-P 


,PI0V2-46-P, , 


.♦L L*2 


DIGITS 
01064 


KO 00194 


00418 


00990 




C F 


ALPHA- 1 


-P 




-L 


01076 


L3 00049 


00000 


01000 




TOM 


ALPHA 


-P 


. ,11. 


-L 


01088 


J5 00050 


0000- 


010 10 




CM 


BETA 


-P 


,00 ,1011, 


.♦L 


01100 


J4 00196 


000 — 


1020 




BNH 


• ♦48 




. .0 




01112 


M7 01160 


01100 


10 30 




TFM 


♦ ♦35 




.ALPHA -P.07 




01124 


JO 01159 


-0050 


1040 




OC 


10 




,0550555000 , 


350 


003 50 


00010 




01050 




A 


♦♦23 




, B E T A -P,0 




01136 


KJ 01159 


00196 


1060 




S 


BETA-2 


-P 






01148 


K2 00194 


00000 



2 5 



SPS 11-0 MONITOR I SUBROUTINE SET 03 



1070 




TF 


BETA-2 


-P.BETA-3 -P 01160 KO 00194 


00193 


01080 




TFM 


BETA 


-P.Ol , 10 01172 J6 00196 


000-1 


1090 




B 


TEST1 


, ,0 01184 M9 00792 


00000 


01 100 




DORG 


*-4 


01191 




Oil 10 


SIX 


DC 


45 


,60000000000 0000000000000000000000000000000000 

01235 00045 




0U20 


TAN6 


OC 


46 


,540 419500270584155443578364608599910135148 2514 

01281 00046 




01130 


P I0V4 


OC 


45 


,78 5398163397448 309615660845819875721049292349 

01326 00045 




01140 




OEND 


3091 


03091 





SPS II -0 AON I TOR I 



SUBROUTINE SET 03 



PAGE 14 



000 10 




□ SA 


F6XT3 , 


► fcX3 










00004 00005 -0020 




















00009 00005 -0000 


00020 




DORG 


EDGAR 












00000 


00030 


FEX3 


TON 


SETUPU , 


1 






tOt 


ALLOW NUL BY LOG E FOR EXP 




















00000 JS 00145 00001 


00040 




67 


FEXT3*12 , 








»o 




006l2 N9 00032 00000 


00050 


FEXT3 


TON 


SETUP*1 . 


.9 






fOt 


PREVENT NUL BY LOG E FOR EXT 




















00020 J5 00145 00009 


00060 




TFN 


PCK*5 


,•♦20 






♦ 17 




00032 10 02370 -0052 


00070 




B7 


PCK , 








,6, 


BR 


TO PICK AND RETURN 




















00044 49 0236N 00000 


00080 




DC 


46,005607000 5 


50 20 2 50 008 


5604504052 0052510050 000050 , 348 




















00348 00046 


00090 




TFN 


GOBACK-1 i 


>0 1 






1 10 




00052 J6 01027 000-1 


00100 




TF 


ALPHA-2-P i 


, QNE2 


-45 


-P 






ONE* L^4 DIGIT NANTISSA 




















00064 KO 00046 00372 


001 10 




BO 


• ♦20 


AFT A 




-P 


♦o » 






00120 




B7 


bUBACK- I l ( 










* AA 


IE HtUT lean 




















AAAii Ma A 1 A 1 1 AAAAA 

00006 M¥ 01016 00000 


00130 




TO 


R E C I P - 1 i 


> B E T A 




-P 


*o » 


NON 


it AO WAN 1 i 55A 




















00096 KN 00887 00194 


00140 




CF 


BE T A- 2 -P 












AA1AI 1 ? AAlfli AAAAA 

OOIOB L3 00 1^4 OOOOO 


00 1 50 




TFN 


101 i 








» i 


-L 


00120 16 00101 -0000 


00160 




TF 


97 


>BETA 


-2 




* • 


-L 


L+4 DIGITS IN 101-L 




















00132 20 00097 00194 


00170 


SETUP 


B 


• ♦92 








• Ot 




WUL BY LUG c Ir EXr 




















00144 N9 002 36 00000 


00180 




TF 


80 


iCLR- 


106 


- P 




i2L 


00156 20 00080 00596 


00190 




N 


BETA--2 -P i 


t LOGE 


-45 


«P 


♦ ♦ 


• ♦L 


2L+2 DIGIT PROOUCT 




















00168 KL 00194 00466 


00200 




BO 


• ♦ 56 i 


» 98 






i o , 


t-2L 


BR IF HIOROER NOT ZERO 




















00180 N3 00236 00098 


002 10 




SN 


BETA -P, 


> 1 






• 10 




00192 J2 00196 000-1 


00220 




SF 


99 








II 


-2L. 


00204 32 00099 00000 


00230 




TF 


BETA-2 -Pi 


,102 








»-L 


WOVE 1*4 DIGITS 




















00216 Kb 00194 00102 


00240 




B7 


•♦20 , 








.0 




00226 N9 00248 00000 


002 50 




TF 


BET A* 2 -P 


,101 






1 * 


♦ rL 


WOVE L+4 DIGITS 




















00236 K6 00194 00101 


00260 




CN 


BETA -P, 


,-00 






,1011 


♦ ♦L 


00248 J4 00196 000 — 


00270 




BNM 


GOBACK-12, 


t 






.0, 


BR 


IF CHAR LESS THAN -L 




















00260 N7 01016 01100 


00280 




CN 


BETA -P 








,10, 




00272 J4 00196 000-0 


00290 




BE 


CALC 








,0, 


BR 


IF CHAR ZERO 




















00284 N6 00466 01200 


00300 




BL 


CALC+68 








tO, 


BR 


IF CHAR BETWEEN -L AND ZERO 




















00296 N7 00536 01300 


003 10 




CN 


BETA -P 








,10 




00308 J4 00196 000-2 


00 320 




BH 


E 1 2 








.0, 


BR 


IF CHAR LARGER THAN 2 




















00320 N6 00436 01100 


C0330 




BL 


• ♦44 








iO» 


BR 


IF CHAR BETWEEN ANO +2 




















00332 N7 00376 01300 


00340 




DC 


46, 07770070 


7007770050 


5090007000 7000000505 76705070* 348 



SPS II-O MONITOR I SUBROUTINE SET 03 PAGE 15 



















00348 00046 




00350 




A 


GOBACK- 


1 1 


iBETA-4 -P,, 


• 


-L 


CHAR EQUALS P2 




















00344 KJ 01027 


00192 


00360 




TR 


BETA-5 


-P. 


•BETA- 3 -P», 


-Li 


-I 


SHIFT LEFT 2 POSITIONS 


















00356 LJ 00191 


00193 


00370 




B7 


E 12- 1 2 










00368 N9 00424 


OOOOO 


00380 




TDM 


BETA-6 


-Pi 


• lit 


-L 




CHAR EQUALS ♦ ! 




















00376 J5 00190 


0000- 


00390 




CF 


BETA-5 


-Pi 




-L 




00388 L3 00191 


00000 


00400 




A 


GOBACK- 




!bETA-5 -p!! 




-L 


00400 KJ 01027 


00191 


00410 




TR 


BETA-5 


-Pi 


•BETA-4 -P., 


-Li 


-L 


SHIFT LEFT 1 POSITION 




















00412 LJ 00191 


00192 


00420 




BNV 


•♦32 


1 


1 iO t 




6R 


IF AOJ CHAR DOES NOT OVFLOW 


















00424 N7 00456 


01400 


00430 


E 12 


BNF 


OVPL 


-P 


,RECIP-1 tli 




8R 


IF NANT POSITIVE 




















00436 NN 00258 


00887 


00440 




B7 


UNFL 


-P 








00448 N9 00314 


OOOOO 


004 50 




SF 


BETA-5 


-P 


• 11 


-2L 


00456 L2 00191 


OOOOO 


00460 


CALC 


TFN 


• ♦9 




r ,0810 




INIT SIZE INO 




















00468 J6 00477 


0-0-0 


004 70 




CM 


BETA-4 


-P, 


•34 ,10, 


-L 




00480 J4 00192 


0O0L4 


00480 




BL 


GORO 




• 1O1 




BR 


IF BETA LESS THAN .34 ♦CHAR 


















00492 NT 00606 


01300 


00490 




SN 


BETA-4 


"*} 


i34 ,10, 


-L 


ADJ 


BETA BY -.34 




















00504 J2 00192 


000L4 


00500 




AN 


CALC+9 




• 1 .010, 




STEP SIZE INO 




















00516 Jl 00477 


000- 1 


00510 




B7 


CALCM2 




• tOi 




CONTINUE REDUCTION OF BETA 




















005 28 N9 00480 


OOOOO 


00520 




TFN 


• ♦59 


1 


,6ETA-4 -PiOTi 




PROCESS IF CHAR NEG 




















005 36 JO 00595 


-0192 


00330 




A 


*♦«♦/ 




•BETA -PiO 






00546 KJ 00595 


00196 


00t>40 




TF 


dkTM-6 


-P 


rCLR-96-P .1 


-Li 


♦ L 


L+4 DIGIT FIELD 




















00560 KO 00190 


00606 


00550 




CF 


BETA-5 


-Pi 


• 11 


-L 




00572 L3 00191 


OOOOO 


00960 




TF 


RETA-4 


-P 


1 n 




SHIFT RIGHT M R T CHAR SIZE 


















00584 K6 00192 


OOOOO 


00570 




SF 


BETA-5 


-P 


• 11 


-L 




00596 L2 00191 


OOOOO 


00580 




OC 


44,0 6 5 640 52 52 5 50 6 5 3 02 


2020005000 0000000651 4052 , 


,346 


















00346 00044 




00590 


GORO 


TF 


60 




»CLRM06-Pn 


♦ 


21 


00606 20 00060 


00996 


00600 




N 


BETA-4 


-P 


,LN10-46-P,, 


♦ 


♦ L 


2L+4 OIGIT PRODUCT 




















00620 KL 00192 


00913 


00610 




SF 


97 




• ii 


-2L 


00692 32 00097 


OOOOO 


00620 




TF 


SAVE 


-P 


.99 •» 


• 


-L 


L*4 OIGIT FIELDS 




















00644 K6 OOiOO 


000*9 


00630 




TF 


BETA-2 


-P 


iff »» 


• 


-L 


0065* K6 001*4 


000** 


00640 




TFN 


FACmi 




• 2 tOlO 






00666 JA O0T91 


000-2 


00650 




A 


ALPHA-2 


-P 


•SAVE -P 






00660 KJ 00046) 


00100 


00660 




TF 


60 




iCLR-106-Pn 


t 


21 


00692 20 00060 


009*6 


00670 




M 


SAVE 


-P 


tilTA-2 -Pti 






21+6 DIGIT PROOUCT 




















00704 KL 00100 


001*4 


00680 




TF 


** 




.9* it 


» 


-I 


I** OIGIT OIVIOENO 





2G& 



SPS H-0 MONITOR 1 



SUBROUTINE SET 03 



007 16 26 00099 00096 



0O690 




TFM 


96 






, 10. 


- L 00728 16 


00096 


000-0 


00700 


FACT 


DM 


97 






i ♦ 


-L 2 OIGIT DIVISOR. 1*4 


QUOTIENT 
















00740 19 


00097 


-0000 


00 7 10 




til 


F ACT+56 






,0. 


BR WHEN TERM REDUCES 


TO ZERO 
















00752 M6 


00796 


01200 


00 720 




T F 


SAVE 


-P 


t97 


» » 


L*4 DIGIT FIELD 




















00764 K6 


00 100 


00097 


00 7 30 




AM 


FACT*1 I 




• 1 


• 10 


007 76 Jl 


00751 


000-1 


UO 740 




a 7 


F ACT -60 






,0 i 


CALC NEXT TERM 




















00788 M9 


00680 


00000 


00 750 




CM 


CALC*9 






,0 10 


00796 J4 


004 77 


000-0 


00760 




BE 


RECIP 






• 0, 


BR IF FURTHER AD J NOT REQUIRED 
















00808 M6 


00888 


01200 


00770 




T F 


80 




.CLR-106-P 




, 2LADJUST FOR REDUCTNS BY .34 


















00820 20 


00080 


00596 


00 780 




M 


ALPHA-4 


-P 


.TEN34-45 


,1 


,1 2L*4 DIGIT PRODUCT 




















00832 KL 


00046 


01048 


00790 




i>F 


97 








-2L 2L*3 DIGITS 00844 32 


00097 


00000 


00800 




TF 


ALPHA-* 


-P 


,98 




,-L L*2 DIGITS 




















00856 K6 


00046 


00098 


008 10 




SM 


CALC*9 




, 1 


tOlOi 


REDUCE INDICATOR 




















00868 J2 


00477 


000-1 


00820 




B7 


*-84 






fO 


00880 M9 


00796 


00000 


00830 




UC 


26, 0000084025 0000000200 


005005 ,350 00350 00026 




00840 


R EC IP 


BNF 


GOBACK- 


1 2 


fREC I P-l 


,0 1, 


BR IF MANT MAS POSITIVE 


















00888 MM 


01016 


00887 


00850 




SF 


GOBACK- 


1 






MAKE CHAR NEGAT I VE 




















00900 L2 


01027 


00000 


00860 




TF 


99 




»CL« -94-P 




,2LCALC RECIPROCAL IF NEG MANT 
















009 12 20 


00099 


00608 


00870 




TFM 


99 




, 10 


, 10, 


-2L, 2L*2 DIGIT DIVIDEND 




















00924 16 


00099 


OOOJO 


008H0 







100 




,ALPHA-4-P 




-L, 1*2 DIGIT DIVISOR 




















009 36 2R 


00100 


00046 


00890 




BV 


GOBACK- 


24 




,0, 


BR IF OR I G OPER 1 OR 


1/LOGE 
















00948 M6 


01004 


01400 


00900 




AM 


GOBACK- 


1 


,0 1 


,10 


00960 Jl 


01027 


000-1 


009 10 




T F 


"■♦23 




.G08ACK- I 


,6 


00972 KO 


0099N 


01027 


00920 




TFL 


PCK*15 




♦ 99 


,6, 


,-L STORE RESULT 




















00984 06 


0238- 


00099 


00930 




B7 


PCK-f 10 






,6, 


RETURN TO MAINLINE 




















00996 49 


0237N 


00000 


00940 




AM 


GQBACK- 


1 . 


2, 10 




01004 Jl 


01027 


000-2 


00950 




TFM 


ALPHA-4 


-P 






01016 J6 


00046 


-0000 


00960 


GOB ACK 


TFL 


PCK*15 




,ALPHA-4-P 


,6, 


STORE RESULT 




















01028 00 


0238- 


00046 


009 7 




B7 


PCK+ 10 






,6, 


RETURN TO MAINL INE 




















01O4O 49 


0237N 


00000 


00980 


TENJ4 


oc 


47 




,2187761623949552562 226114916384 187 3 167 1 18056246 
















01093 00047 




00990 




OEND 


03102 








03 102 







2\i 



SPS II-D MONITOR 1 SUBROUTINE SET 03 



oOO 10 




OSA 


FL0G3 


,FLN3 


00004 00005 -0000 












00009 00005 -0020 


00020 




UORG 


EDGAR 




00000 




■) 30 


FL0G3 


TOM 


CORN-M , 


. 1 ,0 , 


SET FOR COMMON LOG 














00000 J 5 00597 


0000 1 


00040 




B7 


•♦20 


> ,0 


00012 M9 00032 


00000 


00050 


FLN3 


TUM 


CORN+1 


,9 ,0 , 


SET FOR NATURAL LOG 














00020 J5 00597 


00009 


00060 




TFM 


PCK + 5 


,•♦20 ,17 


00032 10 02370 


-0052 


00070 




B7 


PCK , 


> ,6, 


BR TO PICK AND RETURN 














00044 49 0236N 


00000 


00080 




DC 


28 ,0700 


60 50 500 50 0105 


7070700055 ,350 














00350 00028 




00090 




bl) 


• ♦44 


, BE T A- 1 -P,, 


,-L BR IF NON ZERO ARG 














00052 ML 00096 


00195 


00 100 




TDM 


40 1 


,0 ,11, 


SET IND FOR LOG OR LN OF ZERO. 












00064 15 00401 


0000- 


001 10 




SF 


NINE-45-P 




PL SET UP TO STROE NEG NINES 














00076 L2 00559 


ooooo 


00 1.^0 




67 


0VFL+12-P 




BR TO STORE AND RTN TO MAINLIN 












00088 M9 00270 


00000 


001 30 




BNF 


* + 36 , 


»BETA-2 -P»0, 


BR IF MANT POSITIVE 














00096 MM 00132 


00194 


00 140 




TOM 


40 I 


,0 , , 


SET INO FOR NEGATIVE 














00 108 15 00401 


00000 


00150 




CF 


BETA-2 -P, 




MAKE POSITIVE 














00120 L3 00194 


00000 


00 160 




TFM 


CORN-25 , 


,CZER0-45 ,017, 


♦I INITIALIZE 00132 JO 00571 


-0914 


00170 




TF 


GOAL-13 , 


r BETA -P,0, 


SAVE CHAR 00144 KO 00819 


00196 


00180 




CF 


BETA-1 -Pi 




-L. EXPAND FIELD TO L*l OIGITS 












00156 L3 00195 


00000 


00190 




TDM 


BETA-2 -P, 


,1 till 


-L, ADD 1.0 00168 J5 00194 


OOOOJ 


00200 




CM 


BETA-l -P, 


,15 ,10, 


-I, 00180 J4 00195 


000J5 


00210 




BNL 


* ♦ 44 , 


, ,o, 


BR IF MOD MANT NOT LESS 1, 


,5 












00192 M6 00236 


01300 


00220 




A 


BETA-2 -P 


» BETA-2 -P,, 


DOUBLE MANT. L+l OIGITS 














00204 KJ 00194 


00194 


00230 




AM 


CORN-25 , 


,48 ,010, 


ADJ FOR NEXT CONSTANT 














00216 Jl 00571 


000M8 


00240 




B7 


*-60 , 


» ,0 


00228 M9 00168 


00000 


00250 




DC 


42,56705508252552085552550103 5106202050 085552* 350 














003 50 00042 




00260 




TF 


ALPHA -P, 


,0NEZ-48-P,, 


,*L L+l DIGITS 














002 36 KO 00050 


00369 


00270 




TOM 


ALPHA -P, 


.2 ,11. 


-L, CONVERT TO TWOZ 














00248 J5 OOOSO 


OOOOK 


00280 




S 


ALPHA -P, 


(BETA-2 -Pit 


2.0 MINUS MOO MANT (2.0-2) 












00260 KK 00050 


00194 


00290 




TF 


99 , 


.CLR-9J-P , , 


,2L 00272 20 00099 


00609 


00300 




lD 


97 , 


> ALPHA -Pit 


-Lt 00284 2Q 00097 


00050 


00310 




D 


98 , 


,8ETA-2. -P,, 


-Lt <2.0-Z>/2 EQUALS V 














00296 2R 00098 


00194 


00320 




TF 


BETA -P, 


,98 , , 


,-L L*2 OIGITS 





2 70 



SPS 11-0 MONITOR I 



SUBROUTINE SET 03 



PAGE 18 



00308 K6 00196 00098 



00 330 




TF 


80 




CLR-106-P, 






2L 00320 20 00080 00596 


00340 




M 


BETA 


-p| 


BETA -Pi 






2L+4 OIGITS 


















00332 KL 00196 00196 


00350 




T F 


SAVE 


-P , 


, 9 7 i 






,-L V*«2 L*2 OIGITS 


















00344 K6 00100 0009 7 


00 360 




A 


BETA 


-P , 


, BETA -Pi 






DOUBLE Y 00356 KJ 00196 00196 


00370 


COUN 


TFM 


• ♦ 9 




,99999 ( 


iO 1 0% 




♦LlNlTlALlft COUNT TO L - 1 TERMS 


















00368 J6 00377 999R9 


00380 




TFM 


C UN ♦ 7 I 




,99999 , 


>0 10% 




2L 00380 J6 00439 999R9 


00 390 




TF 


ALPHA 


-P i 


CZER0-46 < 






i*l L*2 OIGITS* ZERO ALPHA 


















00392 KO 00050 00913 


00^00 




T F 


99 




>CLR-92-P i 






(♦L 00404 20 00099 00610 


004 10 




TFN 


98 




i 10 i 


, jo, 


-Li 


OBTAIN RECIPROCAL TERM 


















00416 16 00098 000 JO 


00420 




DM 


98 








-L i 


, 004 28 19 00098 -0000 


004 30 




A 


ALPHA 


-P • 


,97 






L+2 OIGITS TO PREV TOTAL 


















00440 Kl 00050 0009 7 


00 44 




T F 


80 










,2L PROOUCT OP Y**2 ANO TOTAL OF 


















00452 20 00080 00596 






M 


ALPHA 


~P , 


.SAVE -P 






PREVIOUSLY L ALC TERMS 


















00464 KL 00050 00100 






T F 


ALPHA 


-9 . 


r97 


1 » 




,-L L*2 OIGITS STOREO TOTAL 


















00476 K6 00050 0009 7 






SM 


COUN+71 




>2 


,0 10, 




REDUCE DIVISOR 


















00488 J2 00439 000-2 


00 






C0UN*9 




.1 


,010, 




REDUCE NO OF UNCALC TERMS 


















00500 J2 00377 000-1 


00490 




»JN Z 


C0UN*36 






tO, 


BR 


IP L-l TERMS NOT CALC 


















00512 M7 00404 01200 


00 5 00 




DC 


46, 08552550 5052000865 


5250066005 5050605000 07770050,350 


















00350 00046 


005 10 




T F 


80 




iCLR-106^P 


t » 




,2L 00524 20 00080 00596 


00 520 




M 


ALPHA 


-P 


»BETA -P 


t , 




2V * SUM OF L-l TERMS 


















00536 KL 00050 00196 








97 




iBETA -P 




-L 


ADD 2Y TO ABOVE PRODUCT. L+2 


















00548 2J 00097 00196 








BETA 


-P 








SET WITH PROPER CONSTANT 1*3 


















00560 K6 00196 00000 






SF 


BETA 


-P 








00572 L2 00196 00000 


00560 






BETA 


~P 


t97 


, » 




,-L SUB ACCUM TOTAL FROM CONSTANT 


















00584 K2 00196 00097 


005 70 


CORN 


8 


NLG 






,0, 


BR 


IF FINDING NATURAL LOG 


















00596 M9 00876 00000 


00560 




T F 


80 




tCLR-106-P 






,2L 00608 20 00080 00596 


00 590 




M 


LOGE-45 


-P 


♦ BETA -P 




♦Li 


, 00620 KL 00466 00196 


00 600 




T F 


BETA 


-P 


,97 






,-L LO OIGITS 00632 K6 00196 00097 


00A U) 




■ if 


BETA 


-P 








00644 L2 00196 00000 


00620 




TF 


80 




♦CLR-100-P 






•♦L 00656 20 00080 00602 


00630 




X . 


ONEZ-46 


-P 


♦GOAL-13 


a, 


♦Li 


i ORIG CHAR * ONE. L*5 OIGITS 


















00668 KL 00371 00819 


00640 


PLUS 


A 


99 




«BETA -P 






00680 2J 00099 00196 


00650 




TH 


BETA 


-P 


,99 






PREPARE FOR NORMALIZATION 



27! 



SPS II-D MONITOR I SUBROUTINE SET 03 PAGE 19 

00692 K6 00196 00099 



00660 




CF 


BETA 


-P 






00704 L3 00196 


00000 


006 70 




C 


CLR>92 


-P 


,98 ,, 




♦L 00716 K4 00610 


00098 


00680 




BE 


ZRES 


-P< 




BR 


IF L*5 ZEROS 00728 M6 00326 


01200 


00690 




TFM 


GOAL-1 




,03 ,10, 




SET CHAR EQUAL 3 


















00740 J6 008 31 


000-3 


00700 




BD 


GOAL-24 




,BETA-4 -P,0, 




-L BR IF HI ORDER DIGIT NON-ZERO 
















00752 ML 00608 


00192 


00710 




TR 


BETA-4 


-Pi 


,6ETA-3 -P,, 




-L 00764 LJ 00192 


00193 


00 720 




SM 


GOAL-l 




,01 ,10, 




REDUCE CHAR 00776 J2 008 31 


000- 1 


00730 




TO 


BETA 


~p! 


,NOS DIG ti 




INSERT NOISE DIGIT 


















0078B K5 00196 


02401 


007*0 




B7 


*-48 




,0, 




CONTINUE NORMALIZATION 


















008 00 M9 00752 


00000 


00750 




QC 


16 




,70 5000 500 5000660 


,350 00350 00016 




00760 




SF 


BETA-4 


-p 




-L, 


SET FIELD DEFINITION 


















00808 L2 00192 


00000 


00770 




TFM 


BETA-3 








008 20 J6 0019 3 


-0000 


00 780 


GOAL 


8NF 


• ♦24 




,99 , , 


AFFIX SIGN ANO RTN TO MAINLINE 


















008 32 M4 006 56 


00099 


00790 




SF 


BETA- 5 


-? 






00844 L2 00191 


00000 


00800 




TFL 


PCK>15 




, BET A-3 -P,6 




00856 00 0238- 


00193 


00810 




B? 


PCK*10 




» »6 




00668 49 0237N 


00000 


00820 


NLG 


TF 


80 




,CLR-100-P,» 


i 


tL CONVERSION FOR LN 


















00876 20 00060 


00602 


00830 




M 


LN10-45 


-p 


,G0AL-13 , » 


♦ L, 


L+5 DIGITS 00686 KL 00514 


00819 


00840 




B 


PLUS 




, »0, 




RETURN TO COMMON SECTION 


















00900 M9 00660 


00000 


00850 


CZERC) 


UC 


48 




,0 




00959 00048 




00*60 




uc 


'.b, -6931 ^71805599453094172321214581765680755001 3436 


















01007 00048 




00870 




DC 


48,-138629436111989061883446424291635313615100026872 


















01055 00046 




00880 




DC 


4A,-?079441 541679I359282516963643745297042265OO40308 


















01103 00048 




00890 




OEND 


03122 








03122 





272 



SPS 1 1 -D MONITOR I SUBROUTINE SET 03 



PAGE 20 



00010 OSA FSRS ,FSLS ,TFLS ,BTFS 00004 00009 -0000 

00009 00005 -0020 

00014 00005 -0040 

00019 00005 -0094 



00020 




OOR G 


EDGAR 






00000 








00030 


F$KS 


TOM 


FLOAT*25 


*8 




net no a 


J' 


00077 


00008 


00040 




B7 


FLOAT 






000 1 2 






AAAAA 




c c 




FL0AT»25 


♦ 5 




00020 


J5 


00077 


00005 


00040 




B7 


FLOAT 






00032 


M9 


00052 


OAAAA 


00070 


tfls 


TOM 


FL0AT*25 


• 6 




00040 


J5 


00077 


00006 


00080 


FLOAT 


Tft 


PCK*11 


»PCK*10 


ill 


00052 


31 


02376 


0237N 


00090 




AM 


PCIU10 


ill 




00064 


11 


02375 


-0011 


00100 




FSR 


PCK*15 


»PCR*20 


.611 


00076 


01 


0238- 


0238N 


001 10 




B7 


PCK4 10 




,6* RETURN TO » 


IAINL INE 

oooei 


49 


0237N 


00000 


00120 


BTFS 


IR 


PCK*11,PCK*10. 11 




00096 


31 


02376 


0237N 


00130 




AM 


PCK*10, 11 






001 OB 


11 


02375 


-oou 


00140 




TF 


•♦30,PCK*10 




00120 


K6 


00150 


02375 


00150 




BTFL 


PCK*15,PCK*20,6ll 




00132 


07 


0238- 


0238N 


00160 




B7 








00144 


49 


00000 


ooooo 


00170 




UfcNO 


3144 






03144 









27 1 



1620-1441 MONITOR I VERSION 2 FORTRAN 1 1 -C PHASE 1-A 



00010 
j(>020 
000 JO 

cno4i. 

OOOSO 

l'006O 

J0070 

00080 
00090 
00 100 
OGllO 
U0 120 
00 I JO 



pukmsw 

FACMC 

LIST 

f»RST 

UlCPRf 

Ml 



1620 FORTRAN 
OORG 022 1A 
DC 5 , 
-0 U- 

OC 3,1,« 

-01 

OSC I 

2 

DC 2 
07 

OSC 6 
000008 
OS 
OS 
OS 



PHASE 1-A 



.2 



, PliRMSW 

» PGKM >to* 1 
,PGRMSW«2 
.PGRMSWM 
v Pr,RK>W«4 
2 , 



0J14C 

00 15C to 

00 160 ttfcCLG 



00 I 70 
03180 
00190 
00200 
00210 

0022O 

00230 

00240 



SAVSYM 

LENGTH 

KLNO 

KLNG 

PRCGST 

Cu*ADD 

USFOFS 

SURFCT 



DS 
DS 
DC 
-0 

DC 5 ,0 

-0000 

DC 2 ,0 
-0 

DC 3 tCOC 
-00 

OS 12 .RECLG 
OS 5 
OS 2 
OS 2 

DC 5 ,00000 
-0000 

OC 5 ,19999 
J99Y9 

OSC 30 ,0 
000000000000000000000000000000 



OC 



OS 
DS 
OS 
OS 
OS 



00250 PUSrSN OSC 


00260 MW 
00270 FP2 
00280 FfcND 
00290 LSIAD 
00 300 P2PTR 
00110 FCTFNO OS 
00 320 OS 
00 330 FNON 
00340 
00 350 
00360 
00170 
00180 JAY 



1 



• 



00390 NUOC 



TF 
TPN 
B 
B 

OORG • 
OSC 1 
2 

OC 5 
J599<* 
OS 5 



•♦42,FM0N-l , 
!0RT,««23 
I0GT,,7 



SETUP ROUTINE ENTRY 

CO TO EXECUTE CALLED ROUTINE 

274 



02218 
02222 



02226 

02226 

02227 

02228 

02229 C 

02230 
02233 2 

02238 5 

02240 2 

02243 3 

02243 12 

02248 5 

02250 2 

02252 2 

02257 5 

02262 5 

022*3 30 



02294 I 

02244 2 
02298 2 
02303 5 
02308 S 
02311 5 
02318 5 
02321 5 

02329 2* 023*6 02323 

0231* 1* 003*5 -2359 

02348 49 003** -0000 

023*0 99 OOOOO OOOOO 
023*7 

021*7 I 



021T2 
02377 









1620-1**3 MONITOR I 


VERSILN 2 FORTRAN I I - D PHASE i-A 








FACE 














02382 




5 






U1SKSW 


DSC 


I , 






02383 




I 




00* JO 


MULQEF 


OC 


1,0 






0238* 




1 




0P**0 


INT0P1 


DSC 



l.C 






02385 




I 




00*50 




OC 


5,00600 






02390 




5 








-0600 














00*60 




OC 


1,001 






02393 




3 








-01 
















00 4 70 




1)5 A 


CARD 






02398 




5 


X 1 














02398 




J5036 




00*80 




OC 


I , • 






02399 




1 




00*90 


CALLP2 


TFM 


FMf)N*i5,BLK8 






02*00 


16 


02 359 


-2461 


00500 




8 T M 


FMUN,CALLP2 






02412 


1 7 


02324 


-2400 


00510 


INH1V 


OS 


1 






02*24 




I 


00 520 


• 




1 NO 1 V n FOR CARDS, 


1 FOR 


TYPEWRITER, 










0053O 


• 




FLAGGED 1 FOR 


PAPER TAPE 










005*0 


TUG NT 


OC 


5 ,00000 






02*29 




5 








-0 000 














00550 


E N T L N 


OS 


,KfCLG*5 






02248 




o 




00560 


AFTBL 


OS 


, 1*035 






15035 




o 




00570 


CHI 


OAS 


*1C ,151 39 






15139 




430 


X 2 


00580 


CHI5 


OS 


.CHJWOO 






15839 









00590 


CHIENO 


OS 


• CM 1*860 






15999 




g 




00600 


CARD 


OS 


.CHI-101 






15036 




Q 




00610 


1UCAL 


OS 


,716 






00716 




g 




00620 


iur,T 


OS 


,566 






00566 




o 




00610 


lURBC 


OS 


, 5<f0 






00520 




o 




006*0 


lUPT 


OS 


, b!2 






00532 




o 




00650 


lUSK 


OS 


,55* 






00554 




o 




00660 


LKRET 


OS 


,602 






00602 









00670 


luR T 


OS 


, 5b5 






00565 




o 




006(10 


MONCAL 


US 


, 7^6 






00796 




c 




00 690 


E86**0 


TfM 


FMON* 35, , ,OLK 7 






02430 


16 


02 359 


-0000 


00 7 00 




HTM 


FMUN ,t 86**0 






02*42 


17 


02324 


-2430 


i>0 7 1 


bL K 8 


OS 


,f H6**0» 1 1 






02461 









G07<!0 


PRSCAN 


TFM 


FMQN* 15 t PHD OA T 






02*5* 


16 


02359 


-2478 


C'O 7 10 




BTM 


FMuN ,l05lifit 


CALL 


IN PHASEB AND EXECUTE 


02*66 


17 


02324 


J0512 


00 7*0 


PHPDAT 


DSC 


2.22 






02*78 




2 


00 750 




22 
DSA 


PHrtOOA 






02*8* 




5 


X I 














02*84 




-2486 




00 760 




OC 


1 • ' 






02*85 




l 




00 17.) 


PHHODA 


OSC 




1,0 






02*86 




I 




00 78 




OC 


s,i/?oo 






02491 




5 








J7200 














JO 7^0 




OC 
-8* 


1,0H* , , , 


SECTOR COUNT QF PHASEB 


02*9* 




3 




00 8 00 




OSA 


E86**0 






02*99 




5 


X 1 








I 620- 1**1 MONI ICR 1 


VERSION 2 FCRTRAN I I - H PHASE l-A 








PAGE 














02*99 




-243C 




OOH 10 




DC 


I i * 






02500 




1 




00820 




OS 


, 1 M*0 






1 7340 









00 8 30 


H 7SC r 


OS 


, 1 






00003 









008*0 


PKTAO 


00 A 


, I ,B80AD,H7SCT,Nll** 




02502 




1* 








i j n*o-o w.> »o 














00 8 50 




OC 


1 r ' 






02516 




I 




OOShT 


PR T HO 


OSC 
22 


2,22, , , 


READ 


PAGtf OFLC 


02517 




2 




00 B 7 




OSA 


PR T AO 






02523 




5 


X I 














02523 




-2502 




00880 




DC 


1 , ' 






02524 




1 




00890 


Nil 


BV 


• ♦12 






02526 


46 


02 538 


01400 


00900 




TOM 


OOOCO ,0 






02538 


15 


00000 


00000 


00910 




AM 


•♦l« ,20000 


,7, 


CALCULATE MEMORY SIZE 


02550 


u 


02568 


xoooo 


O0920 




TR 


1 , A LPHRM- 1 


• 26 




02562 


31 


-OOOJ 


05679 


00 910 




BNR 


•-2* ,0 






02574 


45 


02550 


00000 


009*0 




TF 


STHl ,»-l8 






02586 


26 


02377 


02568 


U0950 




TF 


INDDA»13 ,STHL 






02598 


26 


05746 


02377 


00960 




SM 


1NUDA*13 ,999 


• 9 




02610 


12 


05746 


00R99 


00970 




TFM 


1 OR T ,«*21 






02622 


16 


00565 


-2645 


00980 




B 


I OCT * I NO ATA 


• 7, 


INITIALIZE SYMBOL TABLE 


02634 


49 


00566 


-5725 


00990 




SM 


INDOAHO ,1 


• 10 




02646 


12 


05743 


000- 1 


01 000 




C 


INOOAMl ,NX10C 






02658 


24 


05746 


02372 


01010 




BNL 


• -*8 






02670 


46 


02622 


01300 


01020 




TOM 


8UFSCS*100,«-» 






02682 


is 


06318 


00000 


01030 


OK MK 


DGM 


• 






02693 




I 




010*0 




TO 


BUFEOT^BOO.GRMK 






02694 


25 


07120 


02693 


01050 




TO 


BUFDIM* 100.GRMK 






02706 


25 


07222 


0269) 


01060 




TF 


Till tSTUL 






02718 


26 


02913 


02377 


01070 




TF 


FCIENO , STPL 






02730 


26 


02318 


02377 


01080 




TFM 


I0RT ,.»21 






02742 


16 


00565 


-2765 


01090 




B 


1 OCT ,01 MOAT 


.7, 


GET FIRST 5 DIM ENTRIES 


0275* 


49 


00566 


-5748 


01 100 




TF 


01 MOD A* 5 ,BUF0IM**5 


t » 


IN EQUIVALENCE TABLE DIM ENTRY 


02766 


26 


05761 


07167 


01 110 




TO 


DIMOOA ,BUFD|M*40 






02771 


25 


OS 756 


07162 


01 120 




TFM 


DIM00A+8 ,00R 


.9 




02790 


16 


05764 


00-08 


01 1 30 




TFM 


DIMOOA* 13.BUFF0T 






02802 


16 


05769 


-6)20 


01 1*0 




TFM 


I OK T ••♦23 






02614 


16 


00565 


-28)7 


01150 




8 


I0GT ,01 MOAT 


.?• 


GET 8 SECTORS OF EQUIV. TABLE 


02626 


69 


00966 


-5768 


01 160 


.VI 1* 


AM 


•♦18 ,16 


• 10, 


LOAO SYM TABLE FROM EQUIV TABLE 


02818 


11 


02956 


000 J6 


01170 




C 


BIIFEQT-D ,12NINE 


,2, 


IS ENTRY ALL NINES 


02890 


24 


•6319 


06009 


01180 




BE 


RDONE , 


t » 


YES 


02662 


46 


0)258 


01200 


01 190 




TF 


• ♦30 ( N114H8 


• t 


WO 


02874 


26 


02904 


02896 


01200 




AM 


•♦18 ,0* 


• 10 




02888 


11 


02904 


000*4 


01210 




SM 


DUMMY ,09 


,10, 


DETERMINE SUBROUTINE ACORESS 


02898 


12 


99999 


000-9 


01220 




MM 


•-6 »05 


• 610 




02910 


13 


0290M 


000-5 


01230 




SF 


95 






02922 


32 


00095 


00000 


01240 


rut 


OS 


5 •• 


» 


SYMBOL TABLE POINTER 


0291) 




5 




01250 




AM 


99 , fcNTLN-5 






02914 


11 


00099 


-2241 


012*0 




TF 


mi ,99 


• 6. 


STORE SU8R. ADDRESS IN SVM TABLE 


02946 


26 


0293L 


00099 


01270 




SM 


Till »5 


• 10 




029SB 


12 


0291) 


000-9 


01290 




TF 


T 1 12 ,Nll*M8 


• • 


ELIMINATE BLANKS FROM NAME 


02970 


26 


0)065 


02896 



27C 



1620- MONITOR I VERSION 2 FORTRAN ll-C PHASE 1-A 



PAGE 



i \r\r\ 




SM 


T 1 1 2 • 


1 2 


* I 


02982 


12 


03065 


000J2 




LUflP4 1 




T 1 1 2 ( 


02 


* 10 


02994 


11 


03065 


000-2 


ni iin 
J 




jj 


T 1 I 2 t 


Nil ? 1 8 




03006 


24 


03065 


02856 


ft! 






N 1 1 42 






03018 


46 


03102 


01100 


1 J 30 






T I 1 3 , 


1112 




03030 


26 


03089 


03065 


ni iin 






T 1 1 3 t 




* 10 


03042 


12 


03089 


000-1 


ni \lr\ 




cc 


T I 1 3 t 




• 6 


03054 


32 


0308R 


00000 




I 1 1 2 


nc 


5 , 


* 




03065 




5 




ni iin 




r 


T I 1 2 * 


oo 


,610 


03066 


14 


0306N 


000-0 








T 1 1 3 , 




|6 


03078 


33 


0308R 


00000 




1113 










03089 




5 








BNE 


L00P4 1 






3090 


47 


02994 


01200 


ni i. i a 


N 1 1 42 


SM 


T 1 1 2 , 


02 


* 10 


03102 


12 


03065 


000-2 


01420 




TP 


T 1 1 3 , 


Nl 14* 18 




03114 


26 


03089 


02856 


014 30 




SM 


T 1 1 3 i 


1 1 


* 10 


03126 


12 


03089 


000J1 


01440 




SF 


T I 1 3 f 




»6 


03138 


32 


0308R 


00000 


01450 


T i 14 


DS 


5 , 






03149 




5 




U 1 460 




TF 


T 1 I 4 , 


T112 




03150 


26 


03149 


03065 


014 70 




S 


T I I 4 , 


T113 




03162 


22 


03149 


03089 


01480 




AH 


T 1 I 4 , 


01 


,10 


03174 


11 


03149 


000- 1 


01 490 




A 


NXltlC , 


Tl 14 




03186 


21 


02372 


03149 


01 500 




TF 


NX LUC , 


T112 


,611, STORE SUBR. NAME IN NAME TABLE 


03198 


26 


0237K 


0306N 


01 510 




TF 


Till , 


NXlOC 


,6, STORE POINTER IN SYM. TABLE 


03210 


26 


0293L 


02372 


01520 




SM 


Till , 


05 


,10 


03222 


12 


02933 


000-5 


01530 




TF 


FCTEND , 


Till 




03234 


26 


02318 


02933 


01 540 




AM 


THCNT , 


01 


,10, UPDATE TABLE COUNT 


03246 


11 


02429 


000-1 


01 550 


WOONE 


CM 


NU4*lfl , 


BUFFQT*795 


03258 


14 


02856 


-7115 


01 560 




BL 


NI 14 






03270 


47 


02838 


01300 


01 570 




SM 


FCTEND , 


05 


• 10 


03282 


12 


02318 


000-5 


01 5R0 




SM 


•♦18 , 


02 


,10, INITIALIZE RE AC IN AREA 


03294 


12 


03312 


000-2 


01 590 




TFM 


CMIENO , 


00 


,210 


03306 


16 


J5999 


000-0 


01600 




CM 


• -6 , 


CHI 




03318 


14 


03312 


J5139 


01610 




BNl 


• - 16 






03330 


46 


03294 


01300 


01620 




TF 


CH| END , 


ALPHRM 




03342 


26 


15999 


05680 


01630 




TFM 


IORT,**23, 




GET HEAD 


03354 


16 


00565 


-337 7 


01640 




B 


10GT.PRTHC 


», 7 




03366 


49 


00566 


-2517 


01 650 




TR 


Nil *4 .CH16N0-162 , , , 


BLANK HEADING SECTOR 


03378 


31 


02530 


15837 


ul 660 




TFM 


Nl 1*4*163, 




CLEAR RM 


03390 


16 


02693 


-0000 


01670 




TFM 


If)RT,»*2 3, 




PUT CLEARED HEADING 


03402 


16 


00565 


-3425 


01 680 




B 


10KBC » P R THU , 7 




03414 


4 J 


00520 


2517 


01690 




34 


.0971 , , 




SKIP TO I IMMEDIATE 


03426 


34 


00000 


o ^71 


01 700 




TO 


INPUTD , 


426 


,, DETERMINE INPUT OEVICE 


03438 


25 


0601 1 


00%. 


01710 




CF 


INPUTU 






03450 


33 


06011 


00000 


CI 720 




CM 


INPUTD , 


01 


* 10 


03462 


14 


06011 


000- 1 


01 730 




HE 


I P T Y 






03474 


46 


03574 


01200 


01 740 




CM 


INPUTD , 


03 


1 10 


03486 


14 


06011 


00O-3 


01 750 




BE 


1 PPT 






3498 


46 


03 542 


01200 


01 760 




TOM 


I NO IV , 





, , CARD 1 NPUT 


03510 


15 


02424 


00000 


01 770 




TFM 


N21KEY-1 t 


10 


,10 


03522 


16 


06018 


OOOJO 


01 780 




B 


Nl ? 






03534 


49 


03 598 


v 00000 


01 790 




00 RG 


• -4 






03541 








01 790 




00 RG 


• -4 






03541 














1N0IV , 


J 


,11, PAPER TAPE INPUT 




1 5 






018 10 




TFM 


N21KEY-1 , 


08 


• 10 


03554 


16 


06018 


cod- 8 


01 820 




B 


N12 






03566 


49 


03598 


00000 


01 8 30 




OORG 


• -4 






03573 








01 840 


IPTV 


TOM 


I NO IV , 


1 


,, TYPEWRITER INPUT 2 7 7 


03574 


15 


02424 


C0001 








1620- 1443 


MONITOR I 


VERSION 2 FORTRAN I I — C PHASE 1-A 








PAGE 


01 850 




TFM 


N21KEY-1 , 


06 


,10 


03586 


16 


06018 


000-6 


01 860 


NI? 


TFM 


IORT , 


•♦23 




03598 


16 


00565 


-3621 


01870 




B 


I OCT i 


SCSOAT 


,7, GET SYSTEM COMMUNICATION SECTOR 


03610 


49 


00566 


-5771 


01 880 




TO 


C0MA0O-4 , 


BUFSCS*76 


,, MOVE OBJECT TIME MACHINE SIZE 


03622 


25 


02258 


06294 


01 890 




TF 


COPST , 


COMADO 




03634 


26 


02382 


02262 


01 900 




TR 


BUFSCS , 


INIT 


,, SET UP DIM IN SYS COMM SECTOR 


03646 


31 


06218 


05795 


01910 




TR 


00402 , 


INIT-1 


,, SET UP DIM IN SYS COMM AREA 


03658 


31 


00402 


05794 


01920 




TF 


FUNG , 


BUFSCS*46 


, , MOVE F 


03670 


26 


02250 


06264 


01930 




TF 


KLNG , 


BUFSCS*48 


,, MUVfc K 


03682 


26 


02252 


06266 


01940 




TO 


B IGPRT,BUFSCS*65, ,SET PRINTER SIZE 


03694 


25 


02230 


06283 


01 950 


N21 


CM 


INPUTO , 


01 


.10 


03706 


14 


06011 


OOO-l 


01 960 




BM E 


• ♦24 






03718 


47 


037*2 


01200 


01 970 




RCTY 








03730 


34 


00000 


00102 


01 980 




TFM 


IORT , 


• ♦23 


,, READ AN INPUT RECORD 


03742 


16 


00565 


-3765 


01 990 




B 


I OCT , 


N21KEV-7 


,7, USING IORT. 


03754 


49 


00566 


-6012 


02 000 




CM 


INPUTO , 


01 


tlO 


03766 


14 


0601 1 


000-1 


C2010 




BNE 


• ♦24 






03778 


47 


03802 


01200 


02020 




BC 4 


N21*24 , 




, , ALLOWS GOOF SWITCH 


03790 


46 


03730 


00400 


02030 




CM 


CHI , 


14 


,10, IS THIS A CONTROL STATEMENT 


03802 


14 


15139 


000J4 


02040 




BNE 


CALL PI , 




, , NO, CALL IN PASS I 


03814 


47 


04212 


01200 


02050 




CF 


C H | ♦ 3 






3826 


33 


15142 


00000 


02060 




CM 


CHI *4, 5762 


.8, IS 


THIS APSTSN STATEMENT 


03838 


14 


15143 


0N762 


02070 




BE 


WASS , 




,. YES 


03850 


46 


04424 


01200 


02080 




CM 


CHl*4,5756,8, IS 


THIS A POBJP ST. 


03862 


14 


15143 


0N756 


02090 




BE 


WAOBJP , 




YES 


03874 


46 


04584 


01200 


02100 




CM 


CHI*4,5344,8» IS 


THIS A LOIS* ST. 


03886 


14 


15143 


0N344 


02110 




BC 


WAOK , 




YES 


03898 


46 


04788 


01200 


02120 




CM 


CHI ♦4,4641 


, 8 , I S 


THIS A FAN05 ST. 


03910 


14 


15143 


0M641 


02130 




BE 


FKTEST , 




, , Yt 


0)922 


46 


05096 


01200 


02140 




CM 


CHI ♦4,4946,8* IF 


TRACE 


03934 


14 


15143 


0M946 


02 I 50 




BNE 


•♦24, , , 


NO 




3946 


47 


03970 


01200 


02160 




BTM 


CDCTL, IFTRC 




3958 


17 


04084 


-2226 


02170 




CM 


CHI ♦4,4153.8, ALL 


STATEMENT MAP 


3970 


14 


15143 


0M153 


02180 




BNE 


•♦24,,, 


NO 




03982 


47 


04006 


01200 


02190 




BTM 


CDCTL, PRST 




3994 


17 


04084 


-2229 


02200 




CM 


CHI *4, 4159, ft, ARITHMETIC TRACE 


04006 


14 


15143 


0M159 


02210 




BNE 


•♦24, , , 


NO 




04018 


47 


04042 


01200 


02 220 




BTM 


COCTL, FACTRC 




04030 


17 


04084 


-2227 


02230 




CM 


CHl*4,5349,8. LIST PRINTER 


04042 


14 


15143 


ON 349 


02240 




BNE 


CDCTL*24,, 


, NO 




04054 


47 


04108 


01200 


02250 




BTM 


CDCTL, LI ST 




04066 


17 


04084 


-2228 


02260 




DC 


5,0 






04082 




5 








-0000 














02270 


COCTL 


TOM 


•-1,1,611 






04084 


15 


0408L 


OOOOJ 


02 280 




BTM 


PGH02,N2l 






04096 


17 


05694 


-3706 


022«»0 




CM 


CHI»2, 14,10, 


TEST FOR •• 


04108 


14 


15141 


0OOJ4 


02 300 




BE 


PGHD, ,, 




VES PAGE HE AOING 


04 120 


46 


05508 


01200 


02310 




RCTY 






NO, INVALIO CTL. ST. 


04132 


14 


00000 


00102 


02 320 




TF 


CHI ♦ 32 ! 


i ALPHRM 




04144 


26 


15171 


05680 


02 330 




WA TV 


CMI 






04156 


39 


15139 


00 1 00 


02 340 




RCTY 








04168 


34 


00000 


00102 


02350 




WATV 


ERMESl , 




,, ERROR, INVALIO CONTROL STATEMENT 


041SO 


39 


05819 


001 00 


02 360 




H 








04192 


48 


00000 


00000 


02 370 




B 


N21 , 




BR. TO READ NEXT STATEMENT 


04204 


49 


03706 


00000 


02 380 




DORG 


• -4 






04211 








02 390 


CALL PI 


SF 


CH1*3 






04212 


32 


15142 


00000 



1620-1**3 MQNI TO* | VERSION 2 FORTRAN 11-0 PHASE 



PAGE 



6 









C w | ♦ s 










06226 


12 


1 5 1*4 


A A AAA 
00000 


02*10 




SF 


CM I ♦ 7 










06216 


32 


15146 


00000 






SF 


CM| »9 










06268 


32 


15148 


00000 






BO 


• ♦*8 


» 1 NOI V 


» i 


CARO INPUT 




06260 


43 


04308 


02626 






TF 


Chi ♦ 160 


, ALPHRM 


t , 


YES. MOVE INPUT RECORO 




0*272 


26 


15299 


05680 






TR 


CH| 5- I 


iCH|-l 


, < 


TO CHI5 




06286 


31 


15818 


15118 






TF M 


Chi ♦ 160 


,00 


,10, 


ERASE RECORD MARK 




06296 


16 


15299 


000-0 






TF 


F P2 


i>LSG 






0*108 


26 


02298 


02250 


02 *80 




A* 


F P 2 


• 02 


.10, 


CALCULATE F PLUS TWO 




06320 


11 


02298 


000-2 


02*90 




TF 


* 


.KLNG 








06332 


26 


02240 


02252 






C 


FP2 


. * L NG 








0*366 


26 


02298 


02252 


02 510 




BNM 


• ♦2* 










06356 


67 


04180 


on oo 


0? 520 




TF 


M 


iFP2 




CALCULATE W, WORO SIZE FOR DISK 10 


06368 


26 


02240 


02298 


0? 5 3Q 




TF 


WW 


ttt 








06180 


26 


0229* 


02260 


0? 5*0 




TF M 


IOMT 


,•♦21 








06392 


16 


00565 


-4415 


02 550 




B 


IOPT 


•SCSDAT 


,7 , 


PUT SYSTEM COMMUNICATION SECTOR 


06606 


69 


00532 


-5771 


02 560 




B 


PRSCAN 










06616 


69 


02654 


00000 


0? 570 




DORG 


• -* 










0**23 








02 580 


WASS 


f F 


CH| ♦ 1* 


* ALPHRM 








06626 


26 


15153 


05680 


« % *!?^ 




BTM 


PGH02 


.•♦12 


• » 


GO TO PRINT PSTSN 




06616 


17 


05696 


-6668 


02 600 




CM 


C h l ♦ 1 2 


. 72 


,10. 


IS DEVICE CCOE PAPER TAPE 




06*68 


16 


15151 


000P2 


02610 




BE 


WAS S2 


. 




YES 




06660 


66 


06566 


01200 


02620 




CM 


Cm I ♦ l 2 


. 7* 


,10, 


NO, IS DEVICE CODE CARDS 




06672 


16 


15151 


000P6 


02630 




BE 


WASS2 




» . 


YES 




06*8* 


66 


06566 


01200 


026*0 




KC TY 












06*96 


34 


ooooc 


00102 


02650 




MA TV 


CH| 










06508 


39 


15139 


00100 


02 660 




RCTY 






* t 


ERROR, INVALID OUTPUT DEVICE 


CODE 


06520 


34 


00000 


00102 


02670 




MATY 


ERMES3 










06512 


39 


05935 


00100 


02660 




H 












0656* 


46 


00000 


00000 


02690 




B 


N21 




» • 


BR. TO READ NEXT STATEMENT 




06556 


49 


03706 


00000 


02 700 




DORG 


• -* 








06561 








02 710 


WASS2 


TO 


PUSTSN 


.CHU12 








06566 


25 


02294 


15151 


02 720 




H 


N21 










06576 


49 


03706 


00000 


u2 730 




DOUG 


•-* 










06581 








02 7*0 


WAOB JP 


TDM 


JAY 


. 1 




nni) irrtny ocrtn iac r 

UUr »t 1 IU1 KCUUIKCl 




06586 


15 


02367 


00001 


02 750 




TF 


CHUU 


.ALPHRM 








06596 


26 


15153 


05660 


02 760 




BTM 


PGH0?i*»12.. . 


GO TO 


PRINT POBJP 




06608 


17 


05694 


-4620 


0? 770 




CM 


CHIH2 


.72 


,10, 


IS DEVICE CODE PAPER TAPE 




0*620 


14 


15151 


000P2 


0? 780 




HNE 


•♦32 






NO 




0*612 


47 


04666 


01200 


02 790 




TOM 


8UFSCS*23 


, I 


.11, 


YES 




0*666 


15 


06261 


OOOOJ 


02800 




B 


N21 










0*656 


49 


03706 


00000 


02 8 10 




DORG 


• -* 










06663 








02 820 




CM 


CHI ♦ 12 


t 74 


,10, 


IS DEVICE CODE CARCS 




0*666 


14 


15151 


000P4 


02830 




BNfc 


• ♦32 






NO 




06676 


47 


04708 


01200 


02 8*0 




TOM 


BUFSCS*23 


• 


• lit 


YES 




0*688 


15 


06241 


0000- 


02850 




B 


H2 I 










06700 


49 


03706 


00000 


02 860 




DORG 


• -* 










06707 








02870 




TOM 


BUFSCS^23 


.0 


• 1 1 






06 708 


is 


06241 


0000- 


02880 




RCTY 












06720 


34 


00000 


00102 


02890 




WATY 


CHI 










06732 


39 


15139 


00100 


02900 




RCTY 








ERROR, INVALID OUTPUT DEVICE 


CODE 


0676* 


34 


00000 


00102 






WA T Y 


ERMFS3 








06756 


39 


05935 


00100 


02 920 




H 












06768 


48 


00000 


00000 


02930 




B 


N2t 






BR. TO RE AC NEXT STATEMENT 




06780 


49 


03706 


00000 


02 9*0 




00 RG 


• -* 








0*78 7 








02950 


MADK 


TOM 


BUF SCS^22 


, I 


.11. 


SET UP TO LOAD OBJECT PROG. 


ON OK. 


0*788 


1* 


0624 C 


OOOOJ 














2 7!J 


















1620-1**3 


*tini ro« 


I VERSION 2' FORTRAN 11-13 PHASE I 


-A 








PAGE 


02960 




TOM 


JAY 


, l 




UUP ACTION RfcQUIREC 




06800 


15 


02367 


00001 


02 970 




TF 


CHI ♦ J2 


.ALPHKM 








0*812 


26 


15171 


05680 


02980 




BTM 


PGM02,«» 12. . 


GO TO 


PRINT LOISK 




0*82* 


17 


05694 


-4836 


02990 




BNR 


• ♦2* 


»CH|*12 


.7, 


ELIMINATE RECURD MIRKS 




0*836 


45 


04860 


J5151 


03000 




TFM 


•-1 


,00 


• 610 






048*8 


16 


0484P 


000-0 


03010 




AM 


• -13 


,2 


.10 






06860 


11 


04847 


000-2 


0302O 




CM 


• -25 


»CH|»}0 








06872 


14 


04847 


J5169 


03 30. 




BNH 


• -*8 










06886 


47 


04836 


01100 


030*0 




CF 


CH|*13 










06896 


33 


15152 


00000 


03050 




CF 


CH 1 ♦ I 5 










0*908 


33 


15154 


00000 


01060 




CF 


CHI ♦ 1 7 










O6920 


33 


15156 


00000 


03070 




CF 


CH I ♦ 1 9 










06932 


33 


15158 


00000 


03080 




CF 


CH| *2l 










06966 


33 


15160 


00000 


03090 




TF 


BUF SCSM6 


tCH|»22 








04956 


26 


06253 


15161 


03 100 




SF 


CHIM3 










06968 


32 


15152 


00000 


3110 




SF 


CHl»l!> 










06980 


32 


15156 


00000 


3120 




SF 


CH| ♦ I 7 










06992 


32 


15156 


00000 


03130 




SF 


C H I • I 9 










05006 


32 


15158 


00000 


031*0 




SF 


CH|*21 










05016 


32 


15160 


00000 


03150 




TO 


BUFSCS*36 


»CHU2* 








05028 


25 


06254 


15163 


03 160 




ro 


BUF SCS07 


»CH|«26 








05060 


25 


06255 


15165 


03170 




TO 


BUF SCS*3B 


tCH|*2B' 








05052 


25 


06256 


15167 


03180 




TO 


8UFSCSM9 


»CM|*|0 








05066 


25 


06257 


15169 


03 190 




SF 


BUFSCS*J6 










05076 


32 


06256 


00000 


0320O 




B 


N21 










05088 


69 


03706 


00000 


03 210 




UORG 


• -* 










05095 








03220 


FKTEST 


TF 


CM | ♦ 20 


.ALPMR* 








05096 


26 


15159 


05680 


03230 




BTM 


PGHQ2,»*12. , 


GO TO 


PRINT FANOK 




05108 


17 


05696 


-5120 


032*0 




TO 


FWORK-l 


tCHUU 








05120 


25 


05814 


15150 


03250 




TO 


F WORK 


,CHI»1 3 








05112 


25 


05815 


15152 


03260 




CF 


F WORK 










05166 


33 


05815 


00000 


03270 




CM 


F WORK 


i77 


,10, 


IS F NUMERIC 




05156 


16 


05815 


0OOP7 


03280 




BNE 


N31 


t 


, * 


NU. ERROR 




05168 


67 


05440 


01200 


03290 




TO 


FWORK-l 


tCHUU 


. . 


YES. LOAO F 




05180 


25 


05814 


15151 


03300 




SF 


FWORK-l 










05192 


12 


05814 


00000 


OHIO 




TO 


F WORK 


• CH|»h 








05206 


25 


05815 


15151 


03320 




CM 


F WORK 


.02 


,10. 


F IN RANGE 




05216 


16 


05815 


000-2 


03330 




BL 


Nil 


t 


• t 


NO. ERROR 




05228 


67 


05660 


01100 


031*0 




CM 


FWORK 


,28 


.10 






0S260 


16 


05*15 


0OOK8 


03150 




BH 


N31 




It 


NO. ERROR 




05252 


6* 


05660 


01100 


01160 




TF 


FLNG 


, FWORK 


• • 


YES. MOVE F TO FORTRAN COP. 


AREA 


05266 


26 


02250 


05*15 


01170 




TO 


K WORK- I 


.CHU15 








05276 


25 


05*1* 


15154 


01180 




TO 


KWORK 


.CMU17 








05288 


25 


05*17 


1515* 


01190 




CF 


KWORK 










05100 


11 


05*17 


00000 


03600 




CM 


KWORK 


.77 


.10. 


IS K NUMERIC 




05112 


14 


05*17 


0OOP7 


03610 




BNE 


Nil 


» 




NO. ERROR 




05126 


*7 


05660 


01200 


01620 




TO 


KWORK-l 


.CHI* 16 


t ft 


YES. LOAO K 




0531* 


25 


05*1* 


15155 


01630 




SF 


KWORK- 1 










05168 


12 


05816 


00000 


01660 




TO 


KWORK 


,CMi*ia 








051*0 


25 


05*17 


15157 


01650 




CM 


KWORK 


,0* 


.10, 


K IN RANGE 




05172 


14 


05*17 


000-6 


01660 




at 


Nil 


f 


1 1 


NOt ERROR 




05116 


67 


09660 


01100 


01670 




c« 


KWORK 


.to 


tlO 






05196 


14 


05*17 


OOOJO 


03*80 




*M 


Nil 




1 * 


NO. ERROR 




05408 


6* 


09660 


01100 


03*90 




TIF 


KING 


i KWORK 


t ft 


YES, MOVE K TO FORTRAN COM. 


AREA 


05620 


26 


02252 


05*17 


01900 




8 


N21 


» 


t • 


•R. TQ REAO NEXT STATEMENT 




05*12 


69 


0170* 


00000 


01910 




DORG 


• -6 










05639 









280 



1620-1443 MONITOR I VERMUN 2 FORTRAN I I - PHASE l-A 



PACE 



J 520 


Nil 


RC TV 




*« ERROR. F OR K OUTSIDE RANGE 


05440 




AA AAA 

00000 


00102 


3 5 30 




MA TY 


CHI 




05452 


39 


15139 


001 00 


OB 540 




RC TV 






5464 


14 


AA AAA 
00000 


00102 


05 550 




MATY 


ERMES2 




54 76 




058T9 


00100 


01 560 




M 








T 


AA AA A 

00000 


00000 


U3 5 70 




B 


N21 , 


BR. TC REAO NEXT STATEMENT 


05t>00 


49 


03 706 


00000 


03580 




DO KG 


• -4 




05507 








05 590 


• • ROUTINE 


TO PRINT AND STORE 


THE PAGE HEADING 










05600 


PQHQ 


TF 


CHI ♦<,♦ 160» AlPHRM 




05508 


26 


15303 


05680 


03610 


• • THt 


: CEAftED RECURO IS STUt 


IN CORE 










03620 




TR 


N I I »CH | - I , , 


LOAD HEADER 


05520 


3 I 


02526 


15138 


03630 




TFM 


IORT,«f23, , 


PRINT HEADER 


05532 


16 


00565 


-5555 


03640 




6 


I DP T i HE AD-4 . 7 




05544 


49 


00532 


- 5671 


03650 






L M l ♦«♦♦ 1 OU • U i 19, 


CLEAR RM 


05556 


16 


15)03 


ooo-o 


03660 


RfcVSCN 


TF M 


•♦b9.Nl l»4» 16). , 


CLEAR RM 


05568 


16 


05627 


-2693 


03670 




SM 


•♦47,2, 10 




05580 


12 


05627 


C00-2 


03680 




CM 


•♦ 35.Nl 1*5 




05592 


14 


05627 


-2529 


03690 




BL 


PUT 




05604 


♦ 7 


05640 


01300 


03700 




BNR 


•-36, •-• 




05616 


45 


05980 


00000 


03710 




TFM 


•-1,0,610 




05628 


16 


0562P 


OOO-O 


03720 


PUT 


TF M 


IORT,**23 t , 


WRITE BACK TO OISK 


05640 


16 


00565 


-5663 


03730 




B 


I OR BC » PR THD , 7 




05652 


49 


00520 


-2517 


03740 




H7 


N21 




05664 


49 


03706 




03750 


HfcAO 


OS A 


Nl 1* I 




05675 




5 


X I 












05675 




-2527 




03 760 




DC 


3,18',.. 


DEFINER TO PRINT HE AO 1 NO 


05678 




3 




03 770 


ALPMRM 


J8* 

DC 


2 .0' 




05680 




2 




03 780 


PGHQ3 


DSA 


CH| 




05685 




5 


X 1 












05685 




J5 139 




03790 




DC 


3,18',, 


CONTROL RECORD PRINT DEFINER 


05688 




3 




03 800 




JR« 

OC 


5, 12345 




05693 




5 








J2 34 5 












03810 


PGH02 


TFM 


IORT ,•♦23, ,. 


NORMAL CONTROL RECORD PRINT ROUTINE 


05694 


16 


00565 


-5717 


03820 




B 


IOPT.PGH03-4.7, 




05706 


49 


00532 


-5681 


03830 




B7 


PGH02- 1 . .6 




05718 


49 


0569L 




03840 


InDA TA 


DSC 


2 ,22 




05725 




2 




03850 




22 

DSA 


1 NOD A 




05731 




5 


X 1 












5 7 31 




- 5 7 3 3 




03860 




OC 


1 , ' 




05732 




1 




03870 


INDOA 


DSC 


I .0 




05 733 




1 




03880 






')C 


5 ,17330 




05738 




5 








J7 3 JO 












3 890 




OC 


3 ,010 




05741 




3 








-10 














03900 




DS 






05746 




5 




03910 




DC 




? ft 1 


05747 




I 





1620-1443 MONITOR I VERSION 2 FORTRAN I I - C PHASE l-A PAGE 



03920 


U I MOAT 


DSC 2 


,20 




05748 


2 






20 










03930 




DSA D I KDDA 






05754 


5 












05754 


-5756 


03940 




DC I 






05755 


1 


03950 


1 MOD A 


DSC 1 


• 




05756 


1 


03960 






DC 5 


,04800 




05761 


5 






-4800 










03970 




DC 3 


,001 




05764 


3 






-01 










03980 




OSA BUFDIK 






05769 


5 












05769 


-7122 


03990 




DC I 






05770 


1 


04000 


SCSPAT 


OSC 2 


,20 




05771 


2 


04010 




20 

DSA SCSDOA 






05777 


5 












05777 


-5779 


04020 




DC I 






05778 


I 


04030 


SCSODA 


DSC I 


,0 




05779 


I 


04040 






DC 5 


,19663 




05784 


5 






J9663 










04050 




OC 3 


,001 




05787 


3 






-01 










04060 




DSA RUFSCS 






05792 


5 












05792 


-6218 


04070 




OC I 






05793 


1 


04080 




DSC I 


, 1 




05794 




04 090 




I 

OC 5 


,00000 




05799 


5 






-0000 










04100 


INI T 


DS 


,•-4 




05795 





04110 




DC 3 


,999 




09802 


3 






R99 










04120 




OC 5 


,-99999 




05807 


9 






R999R 










04130 




OC 6 


,00000* 




05813 


6 






-0000* 










04140 


fmdrk 


OS 2 






09815 


2 


04150 


KMOftK 


OS 2 






09817 


2 


04160 


ERMES1 


OAC 30, ERROR, 


INVALID CONTROL RECORD' 




09819 


30 






ERROR, INVALID 


CONTROL RECORD* 






28 


04 1 70 


ERMES2 


OAC 28, ERROR* 


F OR K OUTSIDE RANGE* 




05879 






ERROR, F OR K 


OUTSIOE RANGE* 








04180 


ERMES3 


OAC 32, ERROR, 


INVALID OUTPUT UNIT CQOE* 




05935 


32 






ERROR, INVALID 


OUTPUT UNIT CODE* 






12 


04190 


12N1NE 


DC 12 


,999999999999 


282 


06009 






R99999999999 











1620- 1**3 MOMTOR I VE«V|UN 2 FORTRAN II-C PHASE l.-A 



PAGE 10 



0*200 


1NPUTD 


oc 

-0 


2 


,00 




060 I 1 


0*210 




f)S A 


Cm I 






06L16 














06016 


0*220 


\2lKfcY 


oc 

-0 • 


3 


,00' 




06019 


0*230 




00 KG 


06218 






06218 


0*2*0 


bOFSCS 


DSS 


100 






06218 


0*250 




OS 


2 






06319 


0*260 


OuFEUT 


OS s 


800 








0*270 




OS 


2 






07121 


0*280 


bUFDIM 


DSS 


100 






07122 


0*290 




OS 


2 






07223 


0*100 




OS 




,91999 




99999 


0*310 




OOKG 


46O00 






1 6000 


0* 920 


PHADDA 


DSC 




ltO 






1 6000 


0*3 30 




oc 


5, 1 7290 












J7290 








0* 3*0 




DC 


3,050 






1 6C08 






-50 










0*350 




DC 


5,02218 






1 60 1 9 






-2218 








0* 960 




DC 


I 








0* 3 70 




DC 


I 






16015 


0* 180 




DC 


I 






16016 


0* 390 




DC 


I 






16017 


0**00 




OC 


I 


, • 




16018 


0** lo 




use 


* 


,0000 




16019 






OOOu 










0**20 


,<tCMKS 


DSC 



I 


, o 




16023 


0**30 


LU.PHA 


SF 


1ECMKS- 






1602* 


0***0 




TDM 


GRMK 






16036 


0**50 




DGM 








160*7 


0**60 




TFM 


• ♦18 


,BUf SCb*999 




160*8 


0**70 




TF 


DU M M Y 


.RfCMKS ,, 


Slf SYMBOL TAbt.6 fC RECORD MARKS 


16060 


0**80 




SM 


t-6 


,10 ,10 




16072 


0* *90 




CM 


• -18 


,13UFSCS-1 




1 608* 


0*500 




ONE 


• -36 






16 096 


0*510 




< 


PHAOOA, 


701 




16108 


0*520 




WN 


PHAOOA, 


702 




16120 


0*530 




TR A 








16132 














161** 


0*5*0 




TCO 


IDPMA 






1602* 



100 
800 



32 


1601* 


00000 


15 


02693 


00000 


16 


16066 


-7217 


26 


99999 




1? 


16066 


00040 


1* 


16066 


-6217 


* 7 


16060 


01200 


3* 


16000 


00 701 


38 


1600C 


00702 


36 


00000 


00500 


*9 


OOOOC 


00000 



2 8 \ 







1620- 1**3 TIN I FC* 


1 VC RSI UN 2 


FORT HAN 


11 -C PHASE 


1-A 






PAGE 


1 1 


l2N!Nt 


0600* 


LFNGTH 


022*8 


DUMMY 


9999V 




KWORK 


05817 


R6CLG 


022*3 


ALPHRM 


05680 


LCUP*1 


02)9* 


ENUN 


022*8 




LDPHA 


1602* 


STflL 


02377 


h 1 a*"* T 


022 3o 


MCNCAL 


00796 


FRRET 


00602 




LIST 


02228 


Till 


02933 


HUFL IM 


7122 


HJLDfcF 


02 38* 


F L M» 


02250 




LSTAO 


02308 


U12 


03065 


CUFLOT 


0632g 


N21KE Y 


06019 


F VON 


02 32* 




n 1 1 * 2 


03102 


Ml 3 


03089 


MUF SCS 


062 1 d 


PGKMSh 


02226 


FP? 


02298 




Hi ih 


23 3b 


TIU 


031*9 


CAcLP I 


0*2 1<? 


PHAOOA 


16000 


FdORK 


058 15 




Nil 


02526 


reXNT 


02*29 


CALLP2 


02*00 


PHKOAT 


02*78 


'"jRMK 


02693 




Ml? 


03598 


VEND 


02 303 


CHI END 


1 59 -n 


PHPDOA 


02*86 


MEAD 


5675 




Nl 


0223 * 


*AQK 


0*788 


COMAPD 


C2262 


PRLGST 


02257 


IFTRC 


Q2226 




H21 


03706 


WASS2 


0*56* 


'.>l»U\1 


057*0 


PRSQAN 


02*5* 


INDOA 


05733 




N 2 


02238 


WASS 


0*42* 


OlMUPA 


05756 


PUSTSN 


0229* 


I NO IV 


02*2* 




Hil 


05**0 


W 


022*0 


01 b*SW 


02383 


KECMKS 


16023 


IM T 


05795 




NXLUC 


02 372 




02296 


t 8 6**0 


02*30 


REVSCN 


05568 


1 OC AL 


00716 




P2P>TR 


2 31 3 


SAVSYM 


022*3 


E'lMfcSl 


58 I'i 


AFTUL 


15035 


I OCT 


0U566 




PGHD2 


0569* 


SCSOAT 


05771 




0587W 


H7SCT 


00003 


IUPT 


00532 




PGHO 3 


05685 


SC. SODA 


05779 


LWMLS3 


05935 


BftOAD 


1 73*0 


ICRBC 


00520 




PGHD 


055C8 


SU8FCT 


02293 


F AC UC 


02227 


0LK8 


02*61 


IORT 


00565 




PGNUM 


02222 


USEDFS 


0226 3 


FCTLNU 


0<?3l« 


CA*l) 


1 50 36 


ICSK 


0C55* 




P*ST 


02229 


WAOBJP 


0*58* 


FK TL C T 


05096 


CDC T L 


0*08* 


I PP T 


035*2 




PR TAD 


2 502 






1NDATA 


05721 


CHI5 


15839 


1PTY 


0357* 




PR THD 


02517 






INPUTD 


060 11 


CH| 


15139 


JAY 


02367 




put 


056*0 






INTUPl 


02385 


COM i T 


02382 


KLNG 


02252 




RDQNf 


03258 







F. NO OF ONfc ASSfcMilLY, 



1620-1**1 MONITOR I VERSION 2 FORTRAN I 1-0 PHASE 1-B 



PAGE 



uOO 10 




1620 


FORTRAN I 1 - D 


PHASE 1 


-B 














00020 




OORG 


02?1« 










02218 








00010 




oc 


5 


,-100 










02222 




5 








-01L- 






















000*0 


PCNUH 


oc 


3, 


1 »• 










02222 




3 








-01 






















00050 




oc 


1 


*2 










02223 




1 




00060 




K 

OC 


2 


#67 










02225 




2 








07 






















00070 




OC 


6 


,987898 










02231 




6 








R87B98 




















00080 


Nl 


DC 


I 


iO 










02233 




2 




00090 




-0 
DC 


5 


,0 










02238 




5 








-0000 




















00100 


to 


DC 


2 


,0 










022*0 




2 




00110 


RfcCLG 


-0 
DC 


3 


,000 










022*3 




3 








-00 






















00120 


SAVS YM 


OS 


12 


,RECLG 










022*3 




12 




00130 


LENGTH 


OS 


5 












022*8 




5 




001*0 


fin; 


OS 


2 












02250 




2 




00150 


KLNG 


OS 


2 












02252 




2 




00 160 


PRDGST 


DC 


5 


,00000 










02257 




5 








-0000 




















00170 


COMAOD 


DS 


5 












02262 




5 




00 180 


UbEOFS 


OSC 


30 


,0 










02263 




30 








ooooooooooocoooooooooooooooooo 
















00190 


SuHFCT 


oc 


1 


,0 










02291 




1 




00200 


PUSTSN 


OS 


1 












0229* 




1 




00210 




ns 


2 












02296 




2 




00220 


FP2 


OS 


2 












02298 




2 




00 230 


T fcNO 


OS 


5 












02303 




5 




002*0 


LSTAD 


OS 


5 












02308 




5 




002 50 




OS 


5 












02313 




5 




00260 


FCTEND 


DS 


5 












02318 




5 




00270 




DS 


5 












02323 




5 




00280 


FMON 


TF 




*2,Ff*0N-l , , 


SETUP 


ROUT 1 NE 


ENTRY 




0232* 


26 


02 366 


02323 


00290 




TFM 


IORT, **23 










02336 


16 


00565 


-235'? 


00 100 




B 


IUGT, ,7 










023*8 


*9 


00566 


-0000 


00 310 




8 






GO TO 


EXECUTE 


C AILED 


ROUT INE 


02360 


*9 


00000 


00000 


00 320 




DQRG 


• - 


* 










02367 








00330 


JAY 


OS 


1 












02367 




1 




00 3*0 


NALOC 


DS 














02372 




5 




00 350 


S TOL 


DS 














02377 




5 




00 360 


CUMST 


DS 


5 












02382 




5 




00370 


UI SKSta 


DC 


I , 













02383 




1 




00380 


MUl OEF 


DC 


1 , 













0238* 




1 




00 390 


INTUP 1 


OSC 


1 , 













02385 




I 




00*00 






DC 


5, 


00600 










02390 




5 








-0600 










2&ri 











1620-1**3 MONITOR 1 VFRSIUN 2 FORTRAN I l-C PHASE 1-B 



00*10 




DC 


3,001 






-01 




00*20 




DS A 


CARD 


00*30 




DC 


1 , • 


00**0 


CALLP2 


TFM 


FMON*35,BLK8 


00*50 




BTM 


FM0N.CALLP2 


qo*60 


INPIV 


DS 


1 


00*70 




1 


MDIV - FOR CARDS, 1 FOR TYPEWRITER, 


00*80 






FLAGGED 3 FOR PAPER TAPE 


00*90 


TbCNT 


DS 


5 


00500 


ENTLOG 


DS 


,RECLG*5 


00510 


AFTBL 


DS 


,15035 


00520 


CHI 


DAS 


430,15139 


00530 


CHI5 


DS 


,CH1*700 


005*0 


CARD 


OS 


,CH|-103 


00550 


luCAL 


OS 


,716 


00560 


I OCT 


OS 


, 566 


00570 


IUR8C 


OS 


,520 


00580 


10PT 


DS 


,532 


00 590 


IL.SK 


OS 


,55* 


00600 


tKREI 


OS 


,602 


00610 


luRT 


DS 


,565 


00620 


LIST 


DS 


.2228 


00630 


BIGPRT 


OS 


,2230 


006*0 


MQNCAL 


DS 


, 796 


00650 


fc*6**0 


TFM 


FMON*35 ,BLK7 


00660 




BTM 


FHON ,£86**0 


00670 


BLK8 


OS 


,E86**0*3l 


00680 


FLIP1 


OS 


,171*0,,, FLIP DISK ADORESS 


00690 


FLOPl 


OS 


,17200*7,,, FLOP (RESTORE DISK 


00 700 


FLIP2 


OS 


,E864*0*700,,, FLIP CORE ADDRESS 


00710 


FLIP 


TFM 


BLK9A*5,FLIPl 


00720 


FLOP 


TFM 


IORT, •♦23,, BRING IN GENERAL 1 


00730 




B 


IOGT,BLK9,7 


007*0 


RE TR 


B7 


• -• 


00750 


• • TO 1 


FLIP 


TFM RETRN-5 tPRI NT ROUT INE- TFM RETRNi 


00760 


• • TO 1 


RESTORE TFM BLK9A4-5, PARTI AL DISK AODRESS-TI 


00770 


BLK9 


OSC 


2.22 






22 




00780 




OSA 


BLK9A 


00790 




OC 


lt« 


00800 


BLK9A 


OSC 


l.G 


00810 






OSA 


FLIPl 


00820 




oc 


3,011 






-11 




00830 




OSA 


FLIP2 



-5, RETRN B7FL0P 



280 



02393 




3 




02398 




5 


X 1 


02398 




J5036 




02399 




1 




02*00 


16 


02359 


^2*61 


02*12 


17 


0232* 


-2*00 


02*2* 




I 




02*29 




5 




022*8 









15035 









15139 




430 


X 2 


15839 









15036 









00716 









00566 









00520 









00532 









0055* 









00602 









00565 









02228 









02230 




c 




00796 









02*30 


16 


02359 


-9760 


02**2 


17 


0232* 


^2430 


02*61 









173*0 









17207 









03130 









02*5* 


16 


02510 


J 7 340 


02*66 


16 


00965 


-2489 


02*78 


*9 


00966 


-2497 


02*90 


*9 


00000 




02*97 




2 




02503 




5 


X 1 


02503 




^2905 




0290* 




1 




02505 




1 




02510 




5 


X 1 


02510 




J 7 3*0 




02513 




3 




02518 




9 


X 1 



1620-1**3 MOMICR I VkRSlUN 2 FORTRAN ll-C PHASE l- 



DC 



1 , 



02518 
02519 



-3HO 



00850 
00860 
U0870 



00880 PRTCHI 
00890 
00900 
00910 
00920 
0Q9SQ 

009*0 Ufc^CHI 



P« I N r CHJ UK CHI 1 ) 
CALL TU PR INT IS 

DC 5,123*5 

J2'34* 

TFM |CMT,»*23 



TFM UfFCMl.CHl (OR CH15), 



b 

BN ] 

TFM 

bT 

07 

OSA 



IOPT,DEFCH|-*, 
•♦ 32, Q)*00 

R e r r ♦6,couFin 

FLIP , , , 
PRTCHI -I , ,6, 
CHI 



00950 




DC 


3 , 


18« , , , 






J8 • 






00960 


kSNOPL 


DC 


* , 









-000 






00970 




DC 


1 . 




00980 


CtNO 


DC 


2 , 









-0 






00990 


HLOC 


DC 


5 , 









-0000 




01 000 


TK INO 


DSC 


1 . 


u 


otoio 


NU ini; 




JSC 


1 , 





01020 


MS* 




DSC 


1 . 


J 


01 030 


CKENO 




OSC 


1 , 





J I 0*0 


PARC-NT 




DC 


3, 









-00 






oi 050 


T LHP 


DC 


5 , 









-ooco 




01 060 


rtH»>5 


DC 


5, 









-0000 




I 070 


ft t r. i n 


bTM 


PUT, 0132,811, 


i. 1 OHO 


utr, ina 


TFM 


PARCNT , 0,9 


01 090 




BD 


MOO AFT, SINGS I 


ci too 




TF 


SUbS*,ZERl 3*2 


01 I 10 




BD 


B A 


, I NO I V 


01 l?0 




TDM 


CHI •>♦!** 


01130 




DC 


1 , 




01 1*0 




!R 


CHI- I , CHI 1- 1 


01 150 




[1 


READl*2* 


01 160 




DORG 






01 170 


UA 


RC T Y 






Dl IftO 


I iNO 


US 






C 1 190 




DC 


1 , 





CALL TC OVERFLOW ROUT INF 
WFTURN TO PRIM CALLt» 



CHI PRINT OFFINER 



SEMI COLON 



TFM IURT,»*23 



0252* 




5 




02526 


16 


00565 


-25*9 


02538 


* V 


00532 


-2589 


02550 


* 7 


C2582 


3*00 


02562 


16 


02*96 


- 3 78* 


0257* 


*9 


02*5* 




02582 


*9 


0252N 




02593 




5 


X t 


02593 




J51 39 




02 596 




3 




02600 








2 601 




I 




2 60 3 




2 




















02610 




1 




02611 




1 




02b 12 




I 












02620 




5 




02625 




5 




C2626 


i 7 


0905C 


C- I 3K 


26 38 


1 6 


0261 5 


00-00 


02650 


* 3 


09808 


C9998 


02662 


2e> 


100 12 


09997 


2 6 7 4 


* i 


C ? 1 \ A 


C«:*24 


'0 2 6 83 




15^*3 


00000 


02 1 9 ? 




1 




02698 


31 


151 38 


15838 


02 no 


*^ 


C2902 


00000 


027k/ 








02 7 18 




OOOOC 


CC102 


0272* 




c 




02/25 




1 




27 30 


16 


00565 


-2 7 5 3 



01 21o 




fi 


10GT,UK0ATA~*,7 


, R£ AD SIATCMENTS FKOM TYPt-WklTEM 


02 7*2 


*9 


00566 


-9783 


ul 220 




BC* 


•-36,,, 


ALLOHS GOUF SWI T CH 


0275* 


*6 


02 718 


00*00 


i- 1 2 30 


CALL 


p/r 


TYPE PRINT ROUTINE FROM DlbK-RtTURN lb TO LNGPRT 










ul 2*0 




BNF 


LNGPRT.L I ST, , 


TOTAL LISTING 


2 766 


** 


02 798 


02228 


01 250 




TFM 


RtTR ♦6.SCM 




02 776 


16 


C2*96 


-3828 


Oi 260 




R7 


FLIP 




02790 


49 


C2*5«. 




01270 


L Nf.PW 1 


CM 


CHl,*3,10, 


TEST FOR COMMbNI 


2 793 


1*' 


151 39 


CG0*5 


1 280 




BNF 


t E AOS L 




o t ft i ■ 




3 098 


01200 


01 290 




CM 


CHI ♦2,0, 10, 




2 8 1 2 


I* 


1 5 J * I 


000-0 


CI 100 




BNfc 


LEAOBL 




0283* 


* 7 


03 09B 


CI 200 


013 10 




CM 


CHI ♦*,0, 10, 




028*6 


1* 


151*3 


000-0 


01 320 




BF 


BFGINA 




02658 


*6 


02638 


01200 


1 330 




H 


LFAOBL 




02870 


*9 


03098 


oooco 


01 3*0 




OORG 


• -3 




02878 








1 150 


R £ A i ■) I 


TFM 


I()ff T ,»»23 




C2H7* 


16 


00565 


-2901 


01 360 




b 


I0GT,CD0ATA-*,7 


, READ FIRST CA«D 


2 890 


*9 


00566 


-9791 


01 370 




TFM 


• ♦15, CHI ♦!** 




2 902 


16 


02 937 


J5283 


01 380 




SM 


•♦23,2, 10 




291* 


12 


02937 


000-2 


01 390 




TF 


CKFNU 




02926 


26 


02612 


OCOCO 


01 *00 




BO 


• ♦56 .CKEND, , 


SCAN RACK 10 PLACE RECORD MARK 


02938 


43 


0299* 


02612 


01*10 




RO 


• ♦** » QK£ ND- 1 




02990 


*3 


0299* 


026* 1 


01*20 




CM 


CKRM-l,CHI 




2962 


I* 


02937 


J5139 


01 * JO 




BH 


CKRM-2*,,, 


CHECK FOR BLANK CARC 


0297* 


*6 


0291* 


on no 


01 **0 




B 


READ1,,, 




02986 


*9 


02878 


00000 


01 *50 




DO KG 


• -3 




0299* 








01 *6o 




AM 


CKRM-l ( 2 




0299* 


1 1 


02937 


-0002 


01 *70 




TDM 


CKKM-l ,,t> 




03006 


15 


0293P 


00000 


01*80 




DC 


I , ' t • 




03017 




i 




01*90 




BNF 


• ♦** ♦LIST,, 


TOTAL LISTING 


3C18 


** 


03062 


02228 


01 500 




H«lNf CARDS F R(jM 


CHI 










01510 




TFM 


DEFCHI ,CHI , , 


MODIFY PRINT DEFINE* 


30 30 


16 


02593 


J5139 


01520 




TFM 


PRTCH|-l,«>20 




030*2 


16 


02525 


-3062 


01 530 




b7 


PRTCHI 




0305* 


*9 


02526 




01 5*0 




CM 


CH!,*3,10 




03062 


1* 


15139 


000M3 


01550 




BE 


REA01 




0307* 


*6 


02878 


01200 


01 560 




TDM 


CH|*9«0 V 11 




03086 


15 


151*8 


0000- 


01 570 


LtADBL 


BO 


•♦32.CHI 




3098 


*3 


03130 


15139 


0158C 




TR 


CH|-l,CH!*l 




03110 


31 


15138 


151*0 


U1590 




B 


• -2* 




03122 


*9 


03 098 


00000 


01600 




DOK& 


•-3 




03130 








01610 




AM 


ESNOPL, 1 ,10 




03130 


11 


02600 


000-1 


01620 




CM 


CM! ,69,10 




031*2 


14 


15139 


00009 


01630 




8NH 


CSPVA-12,,, 


BRANCH IF NO Sf#TE«6NT NUMBER 


315* 


47 


03622 


01100 


016*0 




SF 


OUTSW 




03166 


32 


0703* 


00000 


01650 




OTM 


CSTNQ,*M2 f , 


OUTPUT STATEMENT NUMBER 


03178 


17 


05*12 


-3190 


01660 




BTM 


PUT, 13*, 8, 


COLON 


03190 


17 


09050 


0-134 


01670 




TF 


ESNO.SYM 




03202 


26 


0272* 


09979 


01680 




TFM 


ESNOPLtO«8 




0321* 


16 


02600 


0-000 


01690 




TDM 


NOinn, i ,U 




03226 


15 


02610 


OOOOJ 


01 700 




AM 


S**D0.5,IG 




03238 


11 


07208 


000-5 


01710 




80 


'Sr*fc*tS*ADQ»ll» 


TEST IF STATEMENT NO. MAS USED BEFORE 


03250 


4 3 


03410 


07200 


01 720 




TDK 


SMAOOt 1*6, 


SET INDICATOR THAT ST A. NO. APPEARED 


03262 


15 


0720Q 


00001 


01 730 




S« 






032?* 


12 


07208 


000*2 


017*0 




BO 


»*20 f SM0D,U 




03286 


43 


03306 


0720Q 


01750 




t? 


* +** 




03298 


*9 


03342 


00000 



1620-144) MONITOR I VERSION 2 FOttTRAN I I - C PHASE 1-8 



PAGE 



5 



01 760 




UORG 


• - 3 


03306 








01770 




BTM 


PUT, 140, 8, DUMMY 


03306 


I 1 


09050 


0-140 


01 780 




TOM 


SMAOD.0,6 


03318 


15 


0720Q 


00000 


01 790 




TOM 


DO TR AN, I 


03330 


15 


09999 


00001 


01800 




AM 


SMAD0.1.10 


03342 


11 


07208 


000-1 


01810 




BD 


FORM, SMADDt 1 1 


03354 


43 


03510 


07200 


01820 


LEAO* 


CM 


CHI ,0,10, 


03366 


14 


15139 


000-0 


018)0 




BNE 


STNER»20 


03378 


47 


0343C 


01200 


01840 




TR 


CM|-l,CMI*l 


3 390 


31 


15138 


15140 


01850 




B 


•-36 


0B402 


49 


0)366 


00000 


01860 




DORG 


• -3 


03410 








01870 


STNER 


TFM 


SPGSM 1 ,076,9 


03410 


16 


09339 


00-76 


01880 




B 


SPERRU2,,, 


STATEMENT NO* PREVIOUSLY USED 03422 


49 


09256 


00000 


01890 




DORG 


• -3 


03430 








01900 




CM 


CHI ,46, 10 


03430 


14 


15139 


000M6 


01910 




BNE 


CSPVA 


03442 


47 


03634 


01200 


01920 




BTM 


C0LNAM.6, 10 


03454 


17 


04662 


000-6 


01930 




C 


SVM.FMTCST 


03466 


24 


09979 


09929 


01 940 




BV 


CSPVA 


03478 


46 


03634 


01400 


01950 




BE 


FORMAT 


03490 


46 


10392 


01200 


01960 




B 


CSPVA 


03502 


49 


03634 


00000 


01970 




OORG 


• - 3 


03510 








01980 


FORM 


CM 


CHI ,00, 10, 


SHIFT UFF BLANKS 03510 


14 


15139 


000-0 


01 990 




BNE 


• ♦32 


03522 


47 


03554 


01200 


02000 




TR 


CH1-1 V CHI*1 


03534 


31 


151 38 


15140 


02010 




B 


• - 36 


03546 


49 


03510 


00000 


02020 




OORG 


• -3 


03554 








02030 




BTM 


C0LNAM,6,10 


03554 


17 


04662 


000-6 


02040 




C 


SVM.FMTCST, , 


MUST BE FQRMANT STATEMENT 03566 


24 


09979 


09929 


02050 




BV 


• ♦24 


03578 


46 


03602 


01400 


02 060 




BE 


FORMAT 


03590 


46 


10392 


01200 


02070 




TFM 


SPGS*l I ,277,9 


03602 


16 


09339 


00K77 


02080 




U 


SPPRRM2, , , 


ELSE ERROR 27 03614 


49 


09256 


00000 


02090 




OORG 


• -3 


03622 








02 100 




TOM 


NO 1 NO , 


03622 


15 


02610 


00000 


02110 


CSPVA 


TFM 


X*ll,CH| , 


03634 


16 


08149 


J5139 


02120 




AM 


XM 1,2, LO 


03646 


11 


08149 


000-2 


02130 




BNR 


•♦44,X*ll, 1 1 


03658 


45 


03702 


0814* 


02140 




TFM 


X+ll ,37,610 


03670 


16 


0814R 


OOOLT 


02150 




TR 


X+Ll .AVOID, 6, 


AVOIO * FLAG 3*7, FLAGOtRECMARK 03682 


31 


0814R 


06032 


02160 




b 


DECOOE 


03694 


49 


03794 


00000 


02170 




DORG 


•-3 


03702 








U2180 




CM 


X ♦ 1 1 ,0,61Q 


03702 


14 


0814R 


000-0 


02190 




BNE 


CSPVAM2 


03714 


47 


03646 


01200 


02200 




TF 


•♦54,X*ll 


03726 


26 


03780 


08149 


02210 




TF 


•♦47, »*42 


03738 


26 


03785 


03780 


02 220 




AM 


*♦ 35, 1 t 10 


03 750 


1 1 


03785 


000- 1 


02230 




SM 


•♦18,1,10 


03762 


12 


03780 


000- 1 


02240 




TR 




ELIMINATE BLANKS 03774 


31 


00000 


00000 


02250 




B 


CSPVA+24 


03786 


49 


03658 


00000 


02260 




DORG 


• -3 


03794 








02270 


UfcCOOE 


TFM 


•♦35.CMI-2 


3 794 


16 


03829 


J5137 


02280 




AM 


•♦23,2,10 


03806 


u 


03829 


000-2 


02290 




BNR 


• ♦<»0 


03818 


45 


03838 


00000 


02 300 




8 


• ♦80 


03830 


49 


03910 


00000 


02310 




DORG 


• -3 


03838 














1620-1443 MONITOR 1 


VERSION 2 FORTRAN I I -0 PHASE 1-8 






PAGE 


02 320 




CM 


DECODE* 35,40,610 


03838 


14 


0382R 


OOOMO 


02 330 




BH 


DECUDE^12 


03850 


46 


03806 


01 100 


02)40 




CM 


DECODE ♦ 35, 3 ), 610 


03862 


14 


0382R 


000L3 


02 350 




BNE 


• ♦b6 


03874 


47 


03930 


01200 


02 360 




CM 


PARCNT, 0* 10 


03886 


14 


02615 


000-0 


02 370 




BE 


DECOOA 


03898 


46 


04018 


01200 


02 380 




TFM 


PARCNT,0,9 


03910 


16 


02615 


00-00 


02 390 







NONARI 


03922 


49 


04144 


00000 


02400 




DORG 


• -3 


03930 








024 10 




CM 


OECODE* 35,24,610 


03930 


14 


0382R 


000K4 


02 420 




BNE 


• ♦32 


03942 


47 


03974 


01200 


02430 




AM 


PARCNT , 1,10 


03954 


u 


02615 


000-1 


02 440 




B 


DECODE^ 12 


03966 


49 


03806 


00000 


02450 




DORG 


• - 3 


03974 








02460 




CM 


OECOOE^ 35,4,610 


03974 


14 


0382R 


000-4 


02470 




BNE 


DECODE^ 12 


03986 


47 


03806 


01200 


02480 




SM 


PARCNT, 1*10 


03998 


12 


02615 


000-1 


02490 




B 


DECODE+12 


04010 


49 


03806 


00000 


02500 




OORG 


•-3 


04018 








02510 


DtCOOA 


AM 


DECOOE* 35,2 , 10 


04018 


11 


03829 


000-2 


02520 




BNR 


• ♦20,DECODE + 35» 1 1 


04030 


45 


04050 


0382R 


02530 




B 


CKCTAK 


04042 


49 


04098 


ooooo 


02 540 




DORG 


• -3 


04050 








02550 




CM 


DECODE* 35,2 3,610 


04050 


14 


0382R 


000K3 


02560 




BE 


DOO 


04062 


46 


10416 


01200 


02 570 




CM 


DECODE* 35,24,610 


04074 


14 


0382R 


00OK4 


02 580 




BNE 


OECUDA 


04086 


47 


04018 


01200 


02 590 


CKCTAR 


BD 


A SCAN, 1N0I V 


04098 


43 


10440 


02424 


02600 




BTM 


CKCNTU, 0,10 


04110 


17 


04842 


ooo-o 


02610 




B 


A SCAN 


04122 


49 


10440 


ooooo 


02620 




DORG 


• -3 


04130 








02630 




DS 


14,,, NONARI MUST 


BE AT LEAST -04144- 04143 




14 




02640 


NUNAR I 


TFM 


LU6,THST 


04144 


16 


04234 


-4658 


02650 




CF 


CHl + 1 


04156 


33 


15140 


ooooo 


02660 




CF 


CHIO 


04168 


33 


15142 


ooooo 


02670 




c 


CHI ♦4,ENDCT*4 


04180 


24 


1514) 


09939 


02680 




BE 


END 


04192 


46 


09474 


01200 


02690 




BD 


•♦24,INDIV 


04204 


43 


04228 


02424 


02 700 




BTM 


CKCNTU, 0,10 


04216 


17 


04842 


000-0 


02710 


LI 


C 


TBST,CH|*4 


04228 


24 


04*58 


1514) 


02 720 




BE 


L2 


04240 


46 


04)00 


01200 


027.30 




SM 


L 1+6, 1 1 t 10 


04292 


12 


042)4 


OOOJl 


02 740 




BNR 


Ll.Ll*6tll 


042*4 


45 


04228 


0423M 


02750 




TR 


CH1-I.CHU5 


0427* 


11 


191)8 


15144 


02760 


ERR01 


BTM 


ERROR, 071, 9 


04288 


17 


09)50 


00-71 


02 770 


12 


CM 


LU6.TBCM 


04)00 


14 


042)4 


-4504 


02 78Q 




BNH 


• ♦72 


04312 


47 


04384 


01100 


02790 




TOM 


STSN,0,, 


SET SINGLE STATEMENT SWITCH OFF 04324 


15 


09*41 


OOOOO 


02800 




BNF 


•♦48.TRIND 


04)1* 


44 


04)84 


02*09 


02810 




TOM 


TRINOtO 


04348 


15 


02*09 


OOOOO 


02820 




BO 


•♦24,N0IND 


04)*0 


43 


04)84 


02*10 


028)0 




BTM 


ERROR2,572,9, 


MISSING STATEMENT NUMBER AFTER TRANSFER 04)72 


17 


0940* 


00N72 


02840 




SM 


Ll****tl0 


04384 


U 


042)4 


000-6 


02850 




TR 


CM1-I.CMU5 


04396 


31 


191)8 


19144 


028*0 




SF 


LU*tAFTBL*5.7 


04408 


32 


042)4 


J9040 


02870 


STAFT 


OS 


5 *• 


04419 




9 





1 1I il 



1620-1443 MONITOR I VERSION 2 FORTRAN Il-C PHASE l-B 



PAGE 



02880 
02890 
02900 



02920 
02930 

02940 
02950 

02960 
02970 



tt Ll*6,,6 
DORG »-4 
OC 1 , * 

OS A NONARA 



OC 6,466455, 

M66455 

OSA NONARA 



OC 6,626442,, 

026442 

OSA NONARA 



OC 6.44**46,, DEFINE 

M44546 

OS A NONARA 



04420 49 

04427 

04427 



04432 
04438 



04443 
04449 



04454 
04460 



J0224 
6 



042 3* 00000 
I 

5 X I 

J0224 
6 



J0224 
6 



03000 
03010 

03020 
03030 

0*040 TbCM 



OC 6*455864, 

M55864 

OSA COMMON 



OC 6,435654, 

M35654 

OSA 01* 



OC 6,444954,, 

M44954 

OS A RETURN 



OC 6,594563, 

N94563 

OSA NONARA 



EQUIVALENCE 



1 PENS ION 



04465 
04471 



04476 
04482 



04487 
04493 



04498 
04504 



J0224 
6 



5 X 
J0272 



J0248 
6 



5 x 
J0368 



03060 
03070 



OC 6,626356, 

026J56 

OS A NONARA 



04509 
04515 



J0224 
6 



03080 
03090 

03100 
03110 



OC 6,574164, 

N74164 

OSA DKIO 



OC 6,464955, 

M64955 

OSA DKIO 



04520 
04526 



04531 



04531 
04537 



J0224 
6 



J0488 
6 



03120 
01130 



1620-1443 MONITOR I VERSION 2 FORTRAN II-C PHASE l-B 



OC 6,464563, 
M64563 

OS A DKIO 



04542 
04548. 



J0488 

6 



03140 
& J I 50 

03160 
03170 



DC 6,594543* 

N94t>43 
OS A I0UT 



OC 6,414343, 

M14343 

OSA IOUT 



DC 6,576455, 

N76455 

OSA i OUT 



04553 
04 559 



04564 
04570 



04575 
04581 



J0488 
6 

5 X 

J0200 
6 

5 X 
J0200 



03200 
03210 

03220 
03230 

03240 
03250 



OC 6,636857, 

036857 

OS A I OUT 



DC 6,575949, 

N75949 

OSA IOUT 



OC 6,594541, 

N94541 

USA NONARA 



04586 
04592 



04597 
04603 



04608 
04614 



J0200 
6 



J0200 
6 



5 X 
J0200 



03260 
03270 

03280 
03290 



OC 6,435655,, CONTINUE 

M35655 

OSA CALL 



DC 6,434153,, 

M34153 

OSA GOTO 



OC 6,475663,, GOTO 

M75663 

OSA IF 



03 320 TBST OC 6,494624,, 
M94624 

03330 OS 2 

03340 CQINAM TFN •♦42, S**-26, 

03350 TF* •♦35,CMl 



COLLECT NAMES TO DETERMINE TYPE OF STMNT 



04619 
04625 



04630 
04636 



04641 
04647 



04652 
04658 

04660 
04662 
04674 



J0224 
6 



5 X 
J0344 



J0320 
6 



5 X 

J0296 



16 04704 -995) 
16 04704 J5139 



2U2 



1620-1**1 MONITOR I VERSION 2 FORTRAN 11-0 PHASE 1-6 



PAGE 



01 S60 




AM 


•♦18.2.10 




0*686 


11 


0*70* 


000-2 


01170 




TF 


.CH| t 7 




0*698 


26 


00000 


J5139 


011B0 




AM 


•-1,2,10 




0*710 


11 


0*709 


000-2 


03190 




BNR 


•♦20,«-l3, 11 




0*722 


*5 


0*7*2 


0*70R 


01*00 




R 


•♦32 




0*73* 


*9 


0*766 


OOOOO 


01*10 




OORG 


• -3 




0*7*2 








01*20 




SM 


COlNAM-l, 1,10 




0*7*2 


12 


0*661 


000-1 


01*10 




8NZ 


C01NAM«2* 




0*75* 


*7 


0*686 


01200 


01**0 




TF M 


•♦30.SYM-25 




0*766 


16 


0*796 


-995* 


01*50 




AM 


•♦18,2, 10 




0*778 


11 


0*796 


000-2 


01*60 




CF 






0*790 


31 


00000 


OOOOO 


01*70 


OUTSCE 


OS 


5 




0*801 




5 




01*80 




c 


•-6,C0LNAM**2 




0*802 


2* 


0*796 


0*70* 


01*90 




BNH 


• -36 




0*81* 


*7 


0*778 


01100 


01 500 




TF 


SVM,CULNAM**2, I i 




0*826 


26 


09979 


C*70M 


01510 




88 






0*838 


*2 


00000 


OOOOO 


01520 




DOUG 


• -9 




0*8*0 








01510 


• ••• 


CHECK F OR CONTINUATIUN CARDS •••• 












015*0 




US 


2 




0*8*1 




2 




01550 


CKCNTy 


TF M 






0*8*2 


16 


00565 


-*865 


01 560 




R 


I OG T , C 5DA T A-* , 7 




0*85* 


*9 


00566 


-9799 


01570 




BD 


CKCNI ,CH|5*10 




0*866 


* 3 


0*928 


1 58*9 


01580 




TF M 


CCNO.O, 10 




0*878 


16 


02603 


000-0 


01590 




CM 


CHI5,*3, 10 




0*890 


14 


15839 


000M3 


01600 




BE 


• ♦2* 




0*902 


*6 


0*926 


01200 


01610 




TOM 


CH|5*9, 0,11 




0*91* 


1 5 


1 58*8 


0000- 


03620 




BB 






0*926 


*2 


ooooo 


00000 


01630 




DOR G 


•-10 




0*92 7 








016*0 


c * r. n i 


CM 


CCN0,04,IQ, TEST FUR MGRE THAN 


* CONTINUATION CAKOS 


0*928 


1* 


02603 


0Q0-* 


03 650 




B.Nfc 


• ♦68 




0*9*0 


4 7 


05008 


01200 


03 660 




CM 


CH15,*3, 10 




0*952 


I* 


15839 


00OM3 


03670 




BE 


• ♦** 




0*96* 


*6 


05008 


01200 


03 680 




TF M 


CCNO.0,10 




0*976 


16 


02603 


000-0 


03690 




TF M 


SPGSUl.273,9 




0*988 


16 


09339 


00*73 


03 700 




B 


SPfcRRM2 




05000 


*9 


09256 


OOOOO 


03710 




OORG 


• -3 




05008 








03 720 




TFM 


•♦*7,CM15*l** 




05008 


16 


05055 


J598 3 


03730 




BD 


CKCN2^68,FMSW 




05020 


*3 


0512* 


10002 


037*0 




SM 


•♦23,2,10 




05032 


12 


05055 


ooo ■? 


03 750 




TF 


CKEND 




50** 


26 


02612 


OOOOO 


3 760 


CKC.N2 


BD 


• ♦*>6,CKEND 




05056 


* 3 


05112 


02612 


03 7 70 




BD 


•♦**,CKEN0-l 




5068 


43 


05112 


0261 1 


3 780 




CM 


CKCN2-1 ,CH|5*12 




50 80 


1* 


05055 


J585 1 


03 790 




BH 


CKCN2-2* 




5092 


*6 


05032 


01 100 


J800 




B 


CKCNTU 




510* 


49 


0*8*2 


OOOOO 


03810 




DORG 


• -3 




05112 








03820 




AM 


CKCN2-1 ,2.10 




05112 


1 1 


C5055 


000-2 


03830 




TOM 


CKCN2-1 ,,6 




0512* 


15 


0505N 


OOOOO 


038*0 




DC 


1 , ' t • 




05135 




1 




03850 




BNF 


•♦A*, LIST,, TOTAL LISTING 




05136 


** 


05180 


0222* 


03860 


• • 


PRIST CARDS FROM CHI5 












03870 




TFM 


DE F CM 1 , CM | 5 




051*8 


16 


02593 


J5839 


03880 




TFM 


PRTCHI-1,«»20 




05160 


16 


02525 


-5180 


01890 




H7 


PRTCHl 


2 !) J 


05172 


*9 


02526 




01900 




CM 


CHI 5,*3, 10, 


05180 


1* 


15839 


000M3 



1620-1**3 MONITOR I VERS I ON 2 FORTRAN JI-C PHASE IrB PAGE 



03910 




BE 


CKCNTU 




05192 


*6 


0*8*2 


01200 


03920 




AM 


CCNO, I, 10 




0520* 


11 


02603 


000-1 


03930 




BD 


CKCN* ,FMSW 




05216 


*3 


05352 


10002 


039*0 




TFM 


•♦35,CH|5*10 




05228 


16 


05263 


J5840 


03950 




AM 


•♦23,2, 10 




052*0 


11 


05263 


000-2 


03960 


CKCNI 


BNR 


• ♦** , 




05252 


*5 


05296 


OOOOO 


03970 




TFM 


X ♦ 1 L ,37,610 




0526* 


16 


08l*R 


000L7 


03980 




TR 


X ♦ I 1 ,AVCID,6 




05276 


31 


081*R 


06032 


03990 




B 


CKCNTU 




05288 


*9 


0*8*2 


OOOOO 


0*000 




DORG 


• -3 




05296 








0*010 




CM 


CKCN3M 1 ,0,610 , 


CHECK FOR BLANKS AND MOVE NON BLANK 


05296 


1* 


0526L 


000-0 


0*020 




BE 


CKCN3-12, , , 


TO SCAN AREA 


05308 


*6 


052*0 


01200 


0*030 




TF 


X ♦ 1 1 ,CKCNlMli 


,611 


05320 


26 


081*R 


0526L 


0*0*0 




AM 


X ♦ i L ,2,10 




05112 


11 


081*9 


000-2 


0*050 




B 


CKCN1-1 2 




05 3** 


*9 


05240 


OOOOO 


0*060 




DORG 


• -3 




05352 








0*070 


CKCN* 


TF 


• ♦30.XUI 




C5352 


26 


05382 


081*9 


0*080 




SM 


•♦18,1,10 




0536* 


12 


05382 


000-1 


0*090 




TR 


.CH15+1 1 




05376 


31 


OOOOO 


15850 


0* 100 




AM 


X*ll ,132,9 




05388 


11 


081*9 


00J32 


0*110 




B 


CKCNTU 




05*00 


*9 


0*8*2 


OOOOO 


0*120 




THE FOLLOWING IS USED TO COLLECT STATEMENT NUMBERS ••••• 










0*130 


CSTNO 


TF 


CSORN-1 , 


SET UP RETURN ADDRESS 


05*12 


26 


05703 


05*11 


0* 1*0 




BO 


•♦32, CHI 




05*2* 


*3 


05456 


15139 


0*150 




TR 


CHI-LCMIM,, 


SHIFT OFF LEADING i EROS 


05*36 


31 


15138 


151*0 


0* 160 




B 


• -2* 




05**8 


*9 


05424 


OOOOO 


0*170 




DORG 


• -3 




05*56 








0* 180 




TFM 


SVM-l*, 0000,8 




05*56 


16 


09965 


0-000 


0*190 




TFM 


CSTN01*6t SVM-14 




05*68 


16 


05522 


-9965 


0*200 




CM 


CHI ,69, 10 




05*80 


1* 


15139 


00009 


0*210 




BNH 


CSTNOIMO* 




05*92 


*7 


05620 


CllOO 


0*220 




AM 


•♦18,1,10 




0550* 


11 


05522 


000-1 


0*230 


CSTNOl 


TO 


,CH! 




05516 


25 


OOOOC 


15139 


0*2*0 




TR 


CHI-1,CHU1 




05528 


31 


15138 


151*0 


0*250 




BNR 


•♦20»CHI^2 




055*0 


*5 


05560 


151*1 


0*260 




B 


• ♦32 




05552 


*9 


05584 


OOOOO 


0*270 




DORG 


• -3 




05560 








0*280 




CM 


CHI ,69, 10 




05560 


I* 


15139 


00009 


0*290 




BH 


CSTNOl-12 




05572 


46 


05504 


01100 


0*300 




CM 


CSTN0U6.SVM-10 




0558* 


14 


05522 


-9969 


0*310 




BNH 


• ♦2* 




05596 


47 


05620 


01100 


0*320 




BTM 


ERR0R2, 576,9, 


STATEMENT NO GREATER THAN * DIGITS 


05608 


17 


09406 


00N76 


0*330 




TF 


SYM,CSTN0l*6,U 




05620 


26 


09979 


0552K 


0*3*0 




SF 


SVM-3 




05632 


32 


09976 


OOOOO 


0*350 


RTSM 


OS 


1 ,•-* 




056 39 




I 




0*360 


fcKSW 


OS 


l f — i 




056*0 




1 




0*370 


STSN 


DC 


l tit •-2 




056*1 




I 




0*380 


STC 


J 

DC 


2 ,00,* 




056*3 




2 




0*390 




-0 
BD 


CSTNO-l ,DIMSW,6, 


EXIT IF IN DIMENSION STATEMENT 


056*4 


43 


054U 


10004 


0**00 




TOW 


FXORFL , 2 




05656 


15 


06419 


00002 


0**10 




TOM 


VARSW.l,, 


EXIT TO LOOK UP STATEMENT NUMBER 


05668 


15 


07581 


0000 1 


0**20 




TOM 


STNOSW, 1 




05680 


15 


10003 


00001 


04*30 




B 


SMTIU 




05692 


49 


06954 


OOOOO 


0***0 


CSORN 


BO 


•♦24,EQU$W 


2 a •'• 


05704 


43 


05728 


10008 



1620- 1441 MONITOR I VERSION 2 FORTRAN ll-C PHASE l-B 



PAGE 







In* 


SCHI , CH I f | 


INITIALIZE IF NOT IN EQUIVALENCE 


05716 


16 


0601 5 


J5 1 19 


n22rn 








INITIALIZE FIX OR FLOAT SWITCH 


05 728 


1 5 


06419 


00000 






CM 


SCH I , 1*610* 




05740 


14 


0601N 


000- 1 






BE 


NU*8ER 




05752 


46 


061 16 


01200 


0*490 




CM 


SCHI t69*610t 




05764 


14 


0601N 


00009 


04 500 




BH 


NUMBER 




05776 


46 


061 16 


01 100 


04510 




CM 


SCHI ,48*610, 


TEST FOR F|X VAR 


05788 


14 


0601N 


00OM8 


04 520 




BNM 


CS 




5800 


47 


05848 


01 100 


04 510 




CM 


SCH| ,55*610 




05812 


14 


0601N 


000N5 


04 540 




BH 


CS 




05824 


46 


05848 


CI 100 


04550 




TOM 


FX0RFL,2«* 


SET F XORFL TO FIX VAR 


05816 


15 


06419 


00002 


04 560 


CS 


TFM 


SMLNG,0«10* 


INITIALIZE SYMBOL LENGTH COUNT 


05848 


16 


05911 


000-0 


04 5 70 




TFM 


SAL T*6, SVM- 12 




05860 


16 


05914 


-9967 


04 5S0 




TFM 


SAL T* 18, SVM- 1 1 




05872 


16 


05926 


-9966 


04 590 




AM 


SALT»o,2,10 




05B84 


1 1 


05914 


000-2 


04600 




AM 


SAL T* 18, 2, 10 




05896 


11 


05926 


000-2 


04610 


SAL T 


TF 


* Sf. H | , 1 1 , 




05908 


26 


00000 


0601N 


04620 




CF 






05920 


33 


00000 


COOOO 


04610 


bMLNG 


OS 


, • 




05931 









04640 




AM 


SMLNG,2*10 




05912 


I I 


05911 


000-2 


04650 




AM 


SCHI ,2*10 




05944 


11 


06015 


000-2 


04 660 




CM 


SCHI ,40,610 




05956 


14 


0601N 


OOOMO 


04670 




BNM 


• ♦56 




05968 


47 


06024 


01100 


04680 




CM 


SMLNG, 12,10 




05980 


1* 


05911 


000J2 


04690 




BL 


SALT-24 




05992 


47 


05884 


01100 


04 700 




SF 


SVM- I 1 




06004 


32 


09968 


COOOO 


04710 


SCHI 


OS 


, * 




06015 









04 720 




B 


SC2 




06016 


49 


06 1 04 


00000 


04 7 JO 




DORG 


• -3 




06024 








04 740 




SF 


SVM- 1 I 




06024 


32 


09968 


00000 


04 750 


AVOIO 


DC 
17 


2, 17, 3 




06032 




2 




04 760 




nc 
- ' 


2, • 




06014 




2 




04 770 




TF 


SVM, SAL T »6 , 1 1 , 




06036 


26 


09979 


0591M 


04 780 




TOM 


VAMSM,0 




06048 


15 


07581 


00000 


04 790 




BO 


SMTLU, EQUSfc, , 


TEST TO SEE IF 


06060 


41 


06954 


10008 


04800 




SM 


SCH 1,1,10, 


SYMBOL IS TO BE 


06072 


12 


06015 


000-1 


04810 




TR 


CHI- 1 ,SCH| ,11, 


shifted off 


06084 


11 


15118 


060 IN 


04820 




B 


SMTLU 




06096 


49 


06954 


00000 


04 810 




DORG 


• - J 




06104 








04840 


SC2 


BT M 


ERROR ,78,9 


NAME GREATER THAN 6 CHARACTERS 


06104 


I 7 


0915C 


00-78 


04 850 


NUMBER 


TOP 


VARSW , 1 , , 


SfcT VARIABLE SW. TU INDICATE LITERAL 


061 16 


15 


07581 


00001 


04 860 




TF 


SVM , Z LH S YM+ I 




06128 


26 


09979 


06954 


04 870 




TFM 


NUMB 1 »6 , S VM-29 




06140 


16 


06274 


-9950 


0* 880 




CM 


CH I , 70, 10 , 


TEST FOR LEADING ZEROS 


06 152 


14 


15119 


OOOPO 


04 890 




BNE 


• ♦ 32 




06164 


47 


06196 


01200 


04 100 




TR 


CH|- 1 , CHI ♦ | 




061 76 


31 


15138 


15140 


04910 




B 


• -36 




06188 


49 


06152 


00000 


04920 




DORG 


• -3 




06196 








04910 


NUMB 


CM 


CHI ,3, 10 




06 196 


14 


151 19 


000-3 


04940 




BE 


FLNUMH 




06208 


46 


06428 


01200 


04950 




CM 


CHI ,69, 10 




06220 


14 


15119 


00009 


04 960 




BNH 


FXNUMB 




06232 


47 


06324 


CllOO 


04970 




CM 


NUM8l»6,<iYK*l 




06244 


|4 


06274 


-9980 


04980 




BNL 


•♦24 




06256 


46 


06280 


01300 








1620-1441 MONITOR 1 


I VERSION 2 FORTRAN Il-C PHASE l-H 








PAGE 


04 990 


NUMBl 


TO 


»CHI , , 


COLLECT MANTISSA 


06268 


25 


00000 


15139 


05000 




TR 


CHI-UCHIM 




06280 


31 


15138 


15140 


05010 




AM 


NUMBU6,1,10 




06292 


11 


06274 


000-1 


05020 


NUMB5 


AM 


SYHV10,l,10 




06304 


11 


09949 


000-1 


05010 




B 


NUMB 




06316 


49 


06196 


00000 


05040 




DORG 


• -3 




06324 








05050 


FXNUMB 


TDM 


FX0RFL,2, . 


SET FIX OR FLOAT SW TO FIX CONST 


06324 


15 


06419 


00002 


05060 




SM 


SYM-30, 1, 10 




06 336 


12 


09949 


COO- I 


05070 




C 


KLNG, SYM-10, , 


TEST IF FIX NUMBER EXCEEDS K 


06348 


24 


02252 


09949 


05080 




HNL 


• ♦24 




06360 


46 


C6 384 


01 300 


05090 




BTM 


ERROR, 177, 


FIXED POINT NUMBER GREATER THAN K 


06172 


17 


09350 


00J77 


05100 




TF 


SY«-10,TENZ 




06384 


26 


09949 


09991 


05110 




TF 


SYMM,NUM81*6,ll, 


RIGHT JUSTIFY VALUE 


06196 


26 


09980 


0627M 


05120 




SF 


SYM*l ,,2 




06408 


12 


-9980 


00000 


05 110 


MODE 


DC 


2,0,*>-? 




064 17 




2 




05140 


fxorfl 


-0 
OC 


2.0,» 




06419 




2 




05150 




-0 
B 


SMTLU 




06420 


49 


06954 


00000 


05160 




OORG 


• -3 




0642« 








05170 


FLNUMB 


TFM 


VARBR^6,NUMB1 




06428 


16 


06518 


-64 76 


05180 




CM 


SYM-lo, I, 10 




06440 


14 


09949 


000-1 


05190 




BE 


• ♦24 




06452 


46 


06476 


01200 


05200 




TFM 


VARBR^6,NUM82M2 




06464 


16 


06518 


-6584 


05210 


NU»B1 


SM 


SVM-30. It 10 




06476 


12 


09949 


000-1 


05220 




TR 


chi-i,chui 




06488 


11 


15118 


15140 


05210 




CM 


CHI ,70, 10 




06500 


14 


15119 


OOOPO 


05240 


VARBK 


HE 


ti* 


BRANCH BACK TO SHIFT OFF LEADING ZEROS 


06512 


46 


00000 


01200 


05250 




BNH 


CMP AR 




06524 


47 


06604 


01100 


05260 




TFM 


VARBK*6,NUMR2*12 




06536 


16 


06518 


-6584 


05270 




CM 


NUMBU6.SVMM 




06548 


14 


062 74 


-9980 


05280 




BNL 


• ♦24 




06560 


46 


06584 


01100 


05290 


NUMB2 


TO 


NUMBU6.CHI ,6, 


COLLECT NUMBER 


06572 


25 


0627M 


15139 


05100 




AM 


NUMBl ♦6*1*10 




06584 


11 


06274 


000-1 


05110 




B 


NUMB3M2 




06596 


49 


06488 


COOOO 


05120 




OORG 






06604 








05110 


CMPAR 


CM 


CHI, 45, 10, 


TEST FOR E TYPE 


06604 


14 


15119 


000M5 


05140 




BNE 


PLUSM2 




06616 


47 


06844 


01200 


05150 




TFM 


PLU$*ll»0,10 




06628 


16 


06843 


000-0 


05160 




TOM 


PLUS*1, I 




06640 


15 


06833 


00001 


05170 




CM 


CHI«2,20t 10 




06652 


14 


15141 


OOOKO 


05180 




BL 


• ♦36 




06664 


47 


06700 


01300 


05190 




BNE 


♦ ♦16 




06676 


47 


06712 


01200 


05400 




TOM 


PLUSM,2 




06688 


IS 


06833 


00002 


05410 




TR 


CMI-l,CMUl 




06700 


31 


15138 


15140 


05420 




CM 


CH1*2,69, 10 




06712 


14 


15141 


00009 


054)0 




BH 


• ♦24 




06724 


46 


06748 


01 100 


05440 


EXCESS* 


BTM 


ERROR, 178,9, 


INVALID EXPONENT 


06716 


17 


09350 


00J78 


05450 




TO 


Bi nc 4 I l rut A ) 






25 


06843 


15141 


05460 




TR 


CMI-I.CMI41 




06760 


31 


15138 


15142 


05470 




CM 


CHI, 69, 10 




06772 


14 


15139 


00009 


05480 




BNH 


PLUS 




06784 


47 


04832 


01100 


05490 




S 


PLUS*10»PLUS*U 




06796 


22 


06842 


06843 


05 500 




TO 


PLUSttl,CH! 




06808 


25 


04843 


15139 


05510 




TR 


CHI-1,CHI*1 


2J)6 


06820 


31 


15138 


15140 


05520 


PLUS 


AM 




06832 


11 


09949 


-oooo 



1620-1443 MONITOR I VERSION 2 FORTMAN ll-C PHASE l-B PACE 13 



J5530 




TF 


SYM.SVM-30 


06844 


26 


09979 


Q9949 


05540 




SF 


SVM-29 


06856 


32 


09950 


00000 






FF 


SYM-2.SYM-30, 7 


06868 


26 


09977 


-9949 


U5560 




BV 


EXCESS 


06880 


46 


06736 


01400 


05570 




BD 


SMTLUiSYM-29 








09950 


05 580 




TFM 


SYM,99, 1011 


06904 


1 6 


09979 


OOORR 






8 


SMTLU 


06916 


49 


06954 


00000 


05 600 




OORG 


• - 1 










05610 




OC 


30,0 


0695 3 




30 








-OOOOOOOOOOOOOOOOOOOOOOOOOOOOO 










05 6?0 




OC 


3.010.ZERSYM-28 


06 




• 




05630 




SYMBOL TABLE LOOK UP •••••• 










05640 


* 




• 










05650 


SNTLU 


TFM 


MODAD.STBL-4 




J 


07885 


-2373 


05660 




TF M 


SMAOO 




: 


07208 


-0000 


05670 




TFM 


SMCNT, STBL-6 


0697 


16 


0726 1 


-2 371 


05680 




MODAO IS USED 10 TEST FOR FIX OR FLOAT 










05690 




SMAOO WILL CONTAIN THE AOORESS CF IMF. $YMf»OL ENTRY AT EXIT 










05700 


• • 


SMCNT IS USED fO FIND VARIABLE OR LITERAL 










05 710 




TF 


L STEN, TBCNT 


06990 


26 


07025 




05720 




AM 


LSTFN,1,10 


700? 


1 1 


07025 


000- I 


P5 710 




CF 


DMVAR 


7014 


33 


06090 


00000 


05 740 


LSTEN 


OS 


( • 


7025 









05750 




B 


SML00PO6 


07026 


49 


07070 


AAA A A 

00000 


05760 




OORG 


• -3 


07034 








05 770 


SMLOOP 


SM 


SMC NT, 10t 10 


7034 


12 


07261 


000 JO 


05 780 


OUTSW 


OS 


t SMLOOP 


07034 









05 790 




SM 


MOOAD ,10, 10 


7046 


12 


07885 


000 JO 


05800 




AM 


SMAOO, 10, 10 


07058 


1 1 


07206 


000 JO 


05 810 




SM 


LSTEN,1,10 


7070 


12 


07025 


000— 1 


05820 




RH 


JOE 


7082 


46 


07 1 70 


01 100 


05830 




TF 


•♦35, SMCNT 


07094 


26 


07129 


07261 


05840 




SM 


•♦23,50, 10 


7106 


12 


07129 


OOONO 


05850 




BNR 


TBLFUL 


07118 


45 


07 1 50 


00000 


05860 




AM 


TBCNT, 1 , 10 


7130 


1 1 


02429 


000- 1 


05870 




B 


AOVAR 


07142 


49 


0809C 


AA AAA 
00000 


05880 




OORG 


• - 3 


07 150 








05890 


IBIPUL 


BTM 


ERH0R2, 74,9, 


07150 


1 7 


09406 


00- 74 


0^900 




H 


MONCAL... ABORT JOB CAN NOT CO ON 


7162 


49 


00796 


00c 1 


05910 




OORG 


• - 3 


7170 








05920 


JUF 


BO 


L 1 TFRL, VARSW,, BRANCH IF SYMBOL IS A CONSTANT 


7170 








05910 




BNF 


•♦20, SMCNT, 11 , FLAG AT SMCNT IMPLIES CONSTANT 


7182 




07202 


0726J 


059*0 




B 


SMLOOP 


7 194 


49 


07034 


AAA A A 

00000 


05950 




OORG 


• -3 


07202 








05960 




C 


, SVM 


07202 


24 


00000 


09079 


05970 


SM AOD 


OS 


.•-5 


07208 









05980 




BV 


SMLCOP 


07214 


46 


07034 


01400 


05990 




BNE 


SMLOOP 


07226 


47 


07034 


01200 


06000 




TDM 


INSw.l,, SET DIGIT IN INSW IF VARIABLE FOUNO 


07238 


15 


02611 


00001 


06010 




CF 


SMADD 


07250 


33 


07208 


00000 


06020 


SMCNT 


OS 


f • 


07261 









06030 




c 


SMADD, FOUND, , TEST (F SYMBOL WA' LIBRARY FUNCT 


07262 


24 


07208 


02318 


06040 




RH 


FC TEST, , , 




46 






06050 




AM 


SMCNT, 3, 10 


7286 


1 1 


07261 




06060 




BO 


C SORN- I ,DIMSta,6, RETURN IF IN D 1Mb flu I ON STATEMENT 

2!) 7 


7298 


4 3 


0570L 


10004 








1620-1443 MONITOR 1 VERSION 2 FORTRAN I I - C PHASE l-B 








PAGE 


06070 




BD 


•♦32,EQUSW 


07110 


43 


07342 


10008 


06080 




CM 


CHI ,24, 10 


7 32? 


14 


15139 




06090 




B 


• ♦20 


7 334 


49 


07354 


00000 


06 100 




OORG 


• - i 


07342 








06 I 10 




CM 


SCHI ,24,610 


1 342 


14 


0601N 


000X4 


06 120 




BNR 


•♦20, SMCNT, 11 


07 354 


45 


07374 


0726J 


06 I 30 




B 


FCTST 


7 366 


49 


07946 


00000 


06 140 




OORG 


•-3 


07374 








06 150 




BE 


D I MERR ♦ 1 2 


7 374 


46 


07478 


01200 


06 160 




BO 


•♦^0. SMCNT, 11 , TEST FOR DIM VARIABLE 


7386 


43 


07406 


0726J 


06170 




B 


LUXIT 


07398 


49 


07522 


00000 


06 180 




OORG 


• -4 


07405 








06 190 


FNTSW2 


DSC 


1,0 


07405 




1 




06200 






HO 


LUXIT, I OS W,, DIM VAR USEO W/0 DIM IN I/O STATEMENT 


07406 


41 


07522 


1001 1 


06210 




80 


LUXIT, FNTSW2 


07410 


43 


07522 


07405 


06220 




HD 


LUXIT ,CALLSW,, DIM VAR USED W/0 l M IN CALL 


074 30 


4 3 


07522 


10009 


06 2 30 




BD 


CPMF.COMSW,, SAME FOR COMMON 


07442 


43 


1 1968 


10010 


06240 




BD 


L UX I T- 1 2, EOUSW 


07454 


43 


0751C 


10008 


06250 


DIMERR 


BTM 


ERROR, 73, 9, DIMENSIONED VAR USED WITH OUT SUBSCRIPT 


7466 


17 


09350 


00-73 


06260 




BD 


COME R2 , COMS W 


0747R 


4 3 


09462 


100L0 


06270 




BD 


•♦20, SMCNT, 11 


07490 


43 


07510 


0726J 


06280 




B 


D I MERR 


07502 


49 


07466 


00000 


06290 




OORG 


• -3 


07510 








06300 




SF 


DMVAR,,, SET DIMENSION VARIABLE SWITCH 


07510 


32 


08090 


00000 


06310 




EXIT FROM TABLE LOCK UP •••••• 










06 320 


LUXIT 


BNF 


CSORN-l ,0UTSW,6, EXIT IF OUTSW NOT bFT 


07522 


44 


0570L 


07034 


06330 




CF 


OUTSW 


07534 


33 


07034 


00000 


06 340 




BT 


PUT.SMAOO-l 


07546 


27 


09050 


07207 


06350 




BNF 


•♦44 , DMVAR 


07S58 


44 


07602 


08090 


06360 




CF 


DMVAR 


07570 


33 


06090 


00000 


06370 


VARSW 


OS 


»• 


07581 









06380 




TF 


OUTSCE, CSORN-l 


07582 


26 


04801 


05703 


06 390 




B 


OUTSC 


07594 


49 


10464 


00000 


06400 




OORG 


• -3 


07602 








06410 




BNF 


•♦32 ,FNTSW,, TEST IF SYMBOL WAS A FUNCTION NAME 


07602 


4* 


07634 


10000 


06420 




BTM 


PUT ,0154,8, ARITH STATEMENT CAl L 


07614 


17 


09050 


0- 1 54 


06430 




B 


CSORN-l, ,6 


07626 


49 


0570L 


00000 


06440 




DORG 


• -3 


07634 








06450 




BO 


•♦20.FNTSW,, DIGIT ANO NO FLAG IMPLIES SUBPROGRAM 


07634 


43 


07654 


10030 


06460 




B • 


CSORN-l , .6 


07646 


49 


0570L 


00000 


06470 




DORG 


• -3 


07654 








06480 




BO 


AERR 1 ,OMM, , STATEMENT FUNCTION PREV OEFINED 


07654 


43 


09450 


10007 


06490 




BTM 


PUT ,015 3,8, FUNCTION OPERATOR CALL 


07666 


17 


09050 


0-153 


06500 




B 


CSORN-l , ,6 


07678 


69 


0570L 


#IA AAA 
00000 


06510 




OORG 


• -3 


07686 








06920 


•••••• 


SEARCH SYMBOL TABLE FOR CONSTANTS •••••« 










06530 


LITFRl 


BNF 


SMLOOP, SMCNT, 11, CONSTS HAVE FLAG 


0768* 


44 


07034 


0726J 


06540 




80 


LUSTNO.STNOSW,, BRANCH IF LOOK ING-UP STATEMENT NUMBER 


07698 


43 


0B710 


10003 


06550 




BO 


FXLIT.FXORFL,, BR IF SEARCH IMG FOR FIXED CONST 


07710 


43 


06024 


0*419 


06560 




60 


SMLOOP, MOOAD, 11, 


07722 


43 


07034 


0788N 


06570 


LITF 


C 


SMA0D.SVM.6. COMPARE CHARACTERISTICS 


07714 


24 


0720Q 


0«?979 


06580 




BNE 


SMLOOP 


07746 


47 


07014 


01200 


06590 




TF 


AOS AVE. SMAOO 


0775B 


24 


0B4BS 


07208 


06600 




CF 


AOSAVE 


07770 


33 


0B4B5 


00000 


06610 




CF 


SMCNT i t 6 


07782 


13 


0726J 


00000 



1620-14*1 MQMTCR I VERSION 2 FORTRAN II-C PHASE 1-8 



PAGE 



06620 




SM 


AOS AVE, 2 t 6l0 




0779* 


12 


O040N 


000*2 


066)0 




c 


SMAOO iSYM-2,6t 


COMPARE MANTISSA 


07806 


2* 


07200 


09977 


066*0 




Bf 


• ♦** 




07H18 


*6 


07062 


01200 


066)0 




AM 


AOSAVE •2*610 




078)0 


1 1 


O040N 


000*2 


06660 




SF 


SMCNT,, 6 




078*2 


32 


0726J 


00000 


06670 




8 


SMLOOP 




785* 


*9 


07034 


00000 


06600 




DOUG 


»- 3 




07862 








06690 




AM 


AOSAVE, 2,610 




7862 


1 1 


0848N 


000-2 


06 700 




SF 


SMCNT,,6 




0787* 


32 


0726J 


00000 


06 710 


MUPAO 


PS 


f • 




7885 




o 




06 720 




TOM 


IN&Wt } 




07886 


1 5 


0261 1 


00001 


06 7)0 


E J706 1 


CF 


SMAOO 




7098 


j j 


07200 


vVUVU 


06 7*0 




CM 


CH|,2*,Lp 




7910 


|4 


15139 


00OK4 


06 750 




BSE 


LUXIT 




7922 


47 


07522 


1 200 


06 760 




BT M 


ERROR, 378,9 




793* 


I J 


09350 


OOL 70 


06 7 70 


••»»•« 


1EST FOR SINGLE STATEMENT PUNC T I CN OR FUNCTION SUBROUTINE 










06 780 


FCT S T 


BE 


• ♦36 




79*6 


*6 


07902 


01200 


06790 




HO 


• »2*, CALLS* 




7958 


4 3 


07902 


1 0009 


06800 


EHR09 


BTM 


ERROR, 079, 9, 


INCORRECT USE OF SUBPROGRAM NAME 


7970 


| 7 


09)50 


00-79 


068 10 




TOM 


FNT SW , 1 , , 


FUNCTION SUBROUT 1 NL 


7982 


I 5 


10000 


0000 1 


06820 




BNF 


LUXI T , SMC NT , 1 1 




799* 




07522 


0726 J 


06830 




5F 


FNTSW,,, 




n Ann#» 


12 


10000 


UUUVV 


068*0 




B 


LUXIT 




nani!! 


♦ 9 


07522 


nnnnn 


06850 




00 RG 


• -3 














. . . . 


HO 


•♦20,MODAO,ll, 


DIGIT IN01CATES FIX VAR 


08026 


* 3 


080*6 


0788N 


06870 




B 


SMLOOP 




08038 


*9 


0703* 


yuuuo 


06 880 




OORG 


• -) 




080*6 








06890 




BNF 


SMLOOP, MOOAO, 1 1 , 


TF S T FOR STATEMFNT NO. 


na^Ka 




0703* 


O780N 


n£<!?n 




C 


SMAOO » S YM 1 6 
















BNfc 


SMLOOP 




nanrn 






1200 


n _ 




ft 


E 37061 




nana? 
08082 


*9 


07898 


00000 


n »n 




OORG 


»- i 




8C90 










****** 


ENTRY TO ADO A NEW 












_ 


"J 


CF 


SMAOO 




8090 




07208 


OOOQO 


06960 




OS 


, AO VAX 




na?n 5 








06 970 




TOM 


INSW.O 




no i i f 




ii 


UUUUU 


06980 




AM 


SMCNT,3, 10 






ii 


nt>A i 








TO 


M00A0,FX0RFL,6, 




n a i ji 


^* 


ftTa AM 


06*19 


07 000 


g 


SF 


MOOAO, ,6 




Oft 1 


32 


0788W 


nnnnn 


070 10 




BO 


ADL1T,VARSW,, 


ORANCH TO AOO CONSTANT 


_ _ . ,._ 




_ _ r 




U7020 




A 


NXLOC .SMLNG, , 


MOD SYMBOL STCRAGE BY NUMBER OF CHAR 


08 162 


21 


02372 


05931 


070)0 




TF 


NXLOC, SYM,6, 


MOVE SYMBOL INTO SYM STCRAGE 


0817* 


26 


0237K 


09979 


07 0*0 


AUVLQP 


IF 


SMAOO, NXLOC, 6, 


MOVE ACO OF SYM INTO SYMBOL TABLE 


OB 1 86 


26 


072 OQ 




07 050 




BO 


AOVARl ,OIMSW, , 


TEST IF IN .DIMENSION STATEMENT 








1000* 


07060 




H 


ADVAR2 




08210 


*9 


ftlOAA 




07070 




oo«r, 


• -3 




082 1 R 








07080 


AUV AK I 


SM 


SMAOO, 10, 10 




082 1 H 


1 2 


07206 


OOOJO 


07090 




AM 


TBCNT, 1 , 10 




OB230 


11 


02*29 


000-1 


07 100 




T F 


SMADO , NXLOC ,6, 


PLACE DOUBLE ENTRY FOR CIMENSION VAR 


082*2 


26 


07200 


02372 


07 1 IC 




AM 


SMAOO.IO, IQ 




0825* 


11 


07208 


OOOJO 


07 120 


AUVAM2 


BO 


AOSURP, SUBSW,, 


TEST IF IN SUBROUTINE .STATEMENT 


08266 


*i 


08*62 


10012 


07 1 30 




00 


CSORN-l , DIMS*, 6, 


GOTO COLLECT DIMFNSIONS IF IN DIM 


08278 


*3 


0570L 


1000* 


07 1*0 


SETINC 


BNF 


•♦2*,C0MSM, , 


TEST IF IN CCfMON 


08290 


** 


08)1* 


10010 


ti 7 I 50 




SF 


SMCNT, ,6, 


SET FLAG ON INDICATOR IF COMMON VARIABLE 


08 302 


)2 


0726J 


00000 


07 160 


SUPTST 


BO 


•♦32 ,EQUSw,, 




0831* 


*3 


08346 


10008 


07 170 




CM 


CH| ,2*, 10 




OH 326 


1 * 


151)9 


OOOK* 








1620- 1**3 MONI TU« 


I VtrRSlUN 2 FUKTKAN I I - C ^HASfc l-B 










7 180 




B 


•♦20 




08 3 38 


*9 


08)58 


UUUUU 


07 190 




OORG 


• - J 




083*6 








07200 




CM 


bCHI ,2*, 610 




083*6 


1* 


0601N 


OOOK* 


(7210 




BNE 


LUXIT 










1 200 


07 220 




RO 


SUBTR.tQUSW, , 




na 


* 3 


I: 


1 0008 


7 2 30 




BO 


LUXIT, SUtySk,, 


00 NOT SfcT SW1FCH IF IN DECLARATION STMT 


8 382 


* ) 


7522 


100 1 2 


7 2*0 




BO 


C0"FR2»C0M$W 






t c 






U 7 2 50 




TOM 


FN r S- , 1 , , 


SET SWITCH FQK FUNCTION NAME lA» 


? « 


1 5 


10000 








TDM 


SMCNT, ,6 




08*18 


1 5 


0726 J 


00000 


7 270 




OC 






08*2*? 




1 




07280 




BO 


ASC21 ,OMM 




08*30 


*3 


13282 


10007 






H 


LUX I T, 




08**2 


*9 


07522 


00000 


07 300 




OORG 


• - i 












0/310 


SUfl T K 


HTM 


ERROR, I 70,9, 


DIM VAR IN EUUIV W/G PREVIUUS DIMENSIONS 


r>a*fcT 


1 


0935C 


OOJ 70 


07 3 20 




ENTRY TO PLACE VARIABLE IN SUBROUTINE DEFINITION IN TABLE 










07 3)0 




THESE VARIABLE ARE 


PLACID IN TWICE BECAUSE OF POSSIBLE 














DIMENSIONING LATFR 












07 350 


AUSU8P 


BNF 


•♦A*,SUBSW 




a 

na if 




i ftrti t 


1001 2 


07 360 




CF 


SUBSW 








10012 


UUUUU 




^ _ 


OS 


»• 




08*85 







07 380 




AM 


SMAOO, 10, 10 




08*86 


1 1 


07208 


COOJO 


07 390 




B 


SETINO 




natnA 


*9 


0829C 


UUUUU 






OORG 


• -3 




na«n!i! 












SF 


SUBSW 




natli a 






nnnnn 
UUUUU 


07470 




SM 


SMADO, 10, 10 






12 










AM 


TBCNT, 1,10 




nacin 


1 1 




ooo J i 


07**0 




B 


AOVLOP, , , 


BRANCH TO PLACE SYMBOL IN SECOND TIME 


nail? 


*9 


nai a 
081 86 


UUUUU 


07*50 




DORG 






na*«n 












ENTRY TO PLACE CONSTANTS IN FABLE ••••• 












AOl I T 


BD 


ADSTN,STNQSW, , 


BRANCH TO AOO STATEMENT NUMBER 


na^I? 


A3 


nalia 




07*80 




BO 


AOXL I T , F XORFL , , 


BRANCH TO AOC FIX CONST 


na^if 


*j 






07*90 




A 


NXLOC f FLNG 










n??in 


07 500 




TF 


NXL0C,SVM-2,6, 


MOVE IN FLOATING MANTISSA 




*L 


n?^7K 
n^*77 


AQOT7 


075 10 




AM 


NXLOC, 2, 10 




na^oa 


i i 




nrm » 


07520 




TF 


SMAOO, NXLOC ,6, 


SET SVM AOO INTO TABLE 


08610 


94 


07200 


02372 


07 5 30 


AOL 1 T 1 


TF 


NXLOC t S YMf 6 , 


MOVE CHARACTERISTIC OR FIX CONST 


00622 




02 37K 


09979 


07 5*0 




SM 


SMAOO, I, 10 












07 550 




SP 


SMAOO, ,6 




086*6 




07^00 


nnnnn 


07560 




AM 


SMAOO, I, 10 




08658 


11 


07200 


COO— 1 


07570 




6 


€37061*12 




00670 


4Q 


07910 


QOAfiA 
WUWv 


07580 




OORG 


• -3 












07590 


AOXL I T 


A 


NXLOC, KLNG 




00670 


2 1 


02372 


02252 


07600 




TF 


SMADO, NXLOC, 6 






26 




02372 


076 1Q 




B 


AOL IT! 




00702 


49 


08622 


QOOOO 
UvUVW 


07620 




OORG 


•-3 




00710 








076)0 




ENTER WHEN LOOKING 












076*0 


LUSTNO 


BNF 


•♦20, MOOAO, It, 




00710 


** 


0873Q 


O780N 


07650 




B 


SMLOOP 




08722 


49 


0703* 


00000 


07660 




OORG 






00730 








07670 




C 


SMADO, SYM,6 




00730 


24 


0720Q 


09979 


07680 




BNE 


SMLOOP 




087*2 


47 


0703* 


01200 


07690 




TOM 


SfNOSW,Q 




0075* 


15 


10003 


00000 


07 700 




6 


137061-12, ,» 


BRANCH TO SET INSW AND GO TO LUXIT 


08766 


49 


07006 


00000 


07710 




OORG 


• -3 




0077* 









07720 •••••• ENTER TO AOO STATEMENT NUMBER 



3 



1620-1443 MONITOR I VERSION 2 FORTRAN I I C PHASE l-B 



PAGE 





ADST>i 




kj i nr i» in 
■N XI Ul» t *» • 1 




08 774 




02 372 




rt7 7AA 






bMADi) f N XLUC , 6 , 


malic € v iukif kin innictc tn riti c 
MOVE STAMNi N0» •DDHtaa 1U lADlc 




26 




02 3 72 








MOO AD , 1 6 • 


n (it ct AC CM Cf AfCMCHIf killMMCa 

ILcA* rLAu rim SIAlcwfcNI NUHoCB 


08798 


j I 


0788N 


nonnn 






■mi* 


c nunc u n 






| £ 


1 0003 


uu uuu 


7 Jin 






ADLIT1 




n if 




06622 


nnonn 
uuuuu 








fc RKOR i 3 74 t 9 » 


ILLEGAL U5t Or rUNLMUN N»Mt 










A77QH 




«n 


m _ 1 ■) rnyfu 

•"Iti LUnsM t » 








06834 


1 00 1 








• - 24 i EQUS H t » 


c i t uiyl ■ ii c ni i f li 
rUNCf WAPC |i» tUUIV 






06834 


10008 


07810 




n 




1 


n«A7n 

JJJ " 




08834 


10004 


07 820 




an 


• -48, 1 U SW 












07 8)0 




an 
BO 


cr fee r. i 9 nun 
rClcjl-l c »DMP 








08834 


1 0007 


07840 




CM 


CHI, 24 1 1 






14 


mil' 




07 850 




BNE 


FCTEST-12 




naat m 








07 860 




Tf 


• ♦35, SM AOO 




naaan 


26 






07870 




AM 


•♦23,5,10 




naa j 


1 1 




000 5 


07880 




Tf 


TFMP , , , 






26 


0262C 


AnnAn 
UUOUU 


07 890 




!>M 


TEMP , EN TL0G-5 




08966 


12 


02620 


-2243 


07900 




MM 


TEMP 10 




08978 


1 3 


02620 


000-2 


07 91 




SF 


9 7 






32 


00097 


AnnnA 
UUUUu 


07920 


RfcF 


DS 


' * 




0900 1 




C 




07 930 




TFM 


• ♦ )0,USEDF S- I 




09002 


16 


09032 


-2262 


07 940 




A 


•♦18,^8 




0901 4 


21 


09032 


00098 


07 950 




TOM 


t 1 t 10 • 


SET INDICATOR FOR FUNCTION USED 


09026 


15 


t\ *\ i\ n r\ 
00000 


000-1 


07960 




6 


L UX I T 




09038 


49 


07522 


00000 


07970 


PUT 


BO 


E XI T »ERSW 




09050 


43 


09228 


05640 


07980 




TF 


PUTOUT, PUT- 1 




09062 


26 


09344 


09049 


07990 




B 


E94270 




09074 


49 


09094 


00000 


08 000 




OORC 


• - » 




09082 








08010 




TF 


PUTOUT % PUT-2 




09082 


26 


09344 


09048 


08020 


1*4270 


TR 


C ARD»PUTOUT-3,2 




09094 


31 


J5036 


09341 


08030 




AM 


• -6,4 1 1 




09106 


11 


09100 


000-4 


08040 




CM 


1 8,CARD*100 




09118 


14 


0910C 


J51 36 


08050 




BE 


• ♦14 




09130 


46 


09144 


01200 


08060 




B8 






09142 


42 


00000 


00000 


08070 




OORG 


• -9 




09144 








08080 




TFM 


I0RT,»*23 




09144 


16 


00565 


-9167 


08090 




B 


I0PT, INT0P.7 




09156 


49 


00532 


-9235 


08100 




AM 


INTOP 1*5* 1 1 10 




09168 


11 


02390 


000- 1 


08110 




B 


•♦16,00200, , 


C9T7 ST ON S« 2 


09180 


49 


09216 


00200 


08 120 




RC TY 






09 192 


34 


00000 


00102 


UR130 




WNTY 


CAKD 




09204 


38 


15036 


OOlv. 


08140 




TFM 


E94270^6,CAR0 




09216 


16 


09100 


J5036 


08 150 


fc* 1 T 


AB 


E flfc44 




09228 


42 


02430 


coooo 


08 160 




OORG 


• -4 




09235 








08 170 


INTOP 


OSC 


2 , 02 




09235 




2 




08 180 




02 
OS A 


1 NTCP 1 




0924 1 






X I 












09241 




-2385 








DC 














08200 


iPCRR 


TFM 


SPGS*ll ,071 ,9 




09244 


16 


09339 


00-71 


08210 




80 


SPGS, INDIV 




09256 


43 


09328 


02424 


08220 




TFM 


IORT, »*23 




09268 


16 


00565 


-9291 


08230 




B 


lOGT ,C5DATA-4,7 , 


CHECK FOR CONTINUATION CAROS 


09260 


49 


00566 


-9799 


08240 




CM 


CMl 5,43,10 




09292 


14 


15839 


000M? 










3 V I 
















1620-1443 MONI TOR 1 


VERSION 2 FORTRAN II-C PHASE l-B 








PAGE 


08250 




BE 


• ♦24 




09304 


46 


09328 


01200 


08260 




BO 


SPERR*24,CHI5*10 




09316 


43 


09268 


15849 


08270 


SPRS 


BTM 


ERROR, 071, 9 




09328 


17 


09350 


00-71 


08280 


PUTOUT 


DC 


5,0 




09344 




5 








-0000 












08290 




OC 


t . • 




09345 




1 




08 100 




OS 


4 




09349 




4 




08 110 


ERROR 


TOM 


ERSW, 1 




09350 


15 


05640 


00001 


08120 




TOM 


E 94620+1, 9 




09362 


15 


09395 


00009 


08 130 


• CALL 


ERROR PRINT OUT OF OISK 


-RETURN IS TO E94620 










08140 




TFM 


RE TR ♦b.ERl t, 


SET BRANCH TC ERROR MESSAGE 


09374 


16 


02496 


-3486 


08 350 




B7 


FLIP 




09386 


49 


02454 




08 360 


E94620 


B 


BEG I NA 




09394 


49 


02638 


00000 


08370 


ERR0R2 


TOM 


E94620+l,2 




09406 


15 


09395 


00002 


08380 




TOM 


JAY, 4 




09418 


15 


02367 


00004 


08 390 




TF 


ERR0R-1,ERR0R2-1,, 


TRANSMIT THE ERROR NUMBER 


09430 


26 


09349 


09405 


08400 




B 


ERROR+24 




09442 


49 


09374 


00000 


08410 




OORG 


• -3 




09450 








08420 


AERK1 


BTM 


ERROR, 376,9 




09450 


17 


09350 


00L76 


08430 


COMER 


BTM 


ERROR, 372, 9, 


INCORRECT COMMON STATEMENT 


09462 


17 


09350 


00L72 


08440 


C0MER2 


DS 


, COMER 




09462 









08450 


END 


BD 


•♦20.SUBFCT 




09474 


43 


09494 


02293 


08460 




B 


•♦32 




09486 


49 


09518 


00000 


08470 




DORG 


• -1 




09494 








08480 




BO 


•♦24,RTSW 




09494 


43 


09518 


05639 


08490 




BTM 


ERR0R2, 578,9 




09506 


17 


09406 


00N78 


08 500 




BV 


•♦12 




09518 


46 


09530 


01400 


08510 




BO 


MONCAL .ERSW,, 


SKIP STORAGE ALLOCATION IF PROG HAO ERR 


09530 


43 


00796 


05640 


08 520 




BTM 


PUT, 141, 8, END 




09542 


17 


09050 


0-141 


08530 




BTM 


PUT, 140, 8, DUMMY 


09554 


17 


09090 


0-140 


08540 




BTM 


PUT, 0132, 81 1 , 


SEMI COLON 


09566 


17 


09050 


0-13K 


08550 




CM 


E94270+6.CAR0 




09578 


14 


09100 


J5036 


08560 




BE 


E86440,,, EXIT TO 


STORAGE ALLOCATION 


09590 


46 


02430 


01200 


08570 




TOM 


EXlt*l,9 




09602 


15 


09229 


00009 


08580 




B 


E942T0*50 




09614 


49 


09144 


00000 


08590 




OORG 


• -3 




09622 








08600 


BLK I 


DSC 


2,22 




09622 




2 




08610 




22 
OS A 


BLKIA 




09628 




5 


X 1 












09628 




-9630 




08620 




OC 
• 


It* 




09629 




I 




08630 


BLKIA 


OSC 


1*0 




09630 




1 




08640 






OC 


5,17600 




09635 




5 








J7600 












08650 




OC 


3 .043 




09638 




3 




08660 




-43 
OSA 


IOUT 




09643 




5 


X I 












09643 




J020C 




08670 




OC 
• 


It' 




09644 




I 




08680 


BLK 2 


OSC 


2.22 


302 


0964S 




2 








22 















I 620- l<.*» J MONITOR I VERSION 2 FUttfRAN I I - C PHASE 1-B 



08690 




USA 


BLK2A 


09651 










09651 


08 700 




oc 


l,» 


0965? 


u« 710 


BlK 2 A 


U5C 


1,0 


0965 3 













08 720 




OC 


5,17400 


09658 






J74C0 




08 7 30 




DC 


3,046 








-46 






OH 740 






10UT 


09666 










09666 


08 75C 




OC 


I . • 


09667 


_ 




DSC 


2*12 


09668 






22 






08 7 70 




OS A 


bl* JA 


09674 










09674 


08780 




DC 
T 


\>* 


09675 


(■H 790 




osc 


1.0 


09676 













08800 




OC 


5,1 74-jO 


09681 






J7450 




i 8 8 1 




DC 


1,046 


09684 






-46 






08820 




OSA 


Idut 


09689 










09689 


088 *0 




DC 


I . • 


09690 


08840 


HIK4 


OSC 


2,22 


09691 






2? 






088b0 




ns a 


BIK4A 


09697 










09697 


08860 




OC 


1 , • 


09698 


U8870 


BLK4A 


u*> c 


1 , 


09699 


0H880 






OC 


5, 17500 


09704 






J75C 







OH 8 90 




DC 


3,046 


9 707 






-46 






08901 




USA 


mui 


09712 










09712 


1)8 9 I j 




DC 


i , • 


09711 




IK* r > 


use 


2,?2 


09714 






2? 






0»9M> 




i;sa 


»t*5A 


3 II J 09720 



1620-144) M 0N I 1 f!R I VEHSION 2 FORTRAN I 1 - C PHASt l-B 











09720 


<M940 




oc 


I , * 


09721 


08 9VJ 


ULK5A 


osc 


1,0 


09722 


O8'*<>0 






oc 


5, I 76 50 


09727 










08 9 70 




oc 


3, 04 6 


00730 






-46 






0H98O 




OS A 


IOt)l 


09735 










09735 


08990 




DC 




09736 


09000 


HLK6 


DSC 


2,22 


09737 






22 






09010 




OS A 


Bl«6A 


09743 










09743 


09 020 




nc 


1 , » 


09744 


09030 


HLK6A 


osc 


1,0 


09745 


09040 






oc 


5 t I 75*0 


09750 






J71*0 




09050 




DC 


3,046 


09753 






-46 






09060 




dsa 


luur 


09758 










09758 


09070 




oc 


i , • 


09759 


09080 


ML K 7, 


DSC 


2,22 


09760 




22 






09090 




OSA 


BLK7A 


09766 










09766 


09100 




OC 


1 , • 


09767 


09110 


HLK7A 


OSC 


1,0 


09768 













09120 




OC 


5,17700 


09771 






J7700 




09130 




OC 


3 , 100 


Q9776 






JOO 






09140 




DSA 


E86440 


097il 










09781 


09150 




DC 


l,« 


09782 


09160 


UROAT A 


OSA 


CM1 


09717 










09717 


09170 




OC 
~6« 


J f 06* 




09110 


COOATA 


OSA 


CHI 


09795 



PACE 

5 X 

-9651 
1 

1 

5 

1 

5 X 

J020C 
1 

2 

5 X 

-9676 
I 

1 

5 

3 

5 X 

J0200 
1 

2 

5 X 

-9699 
I 

1 

5 

3 

5 X 

J020C 
I 

2 

5 X 

PAGE 

-9722 
I 

1 

5 

3 

5 X 

J0200 
1 

2 

5 X 

-9745 

1 

I 
5 
1 

5 X 

J0200 
I 

2 

5 X 

-9768 
1 

1 

5 

3 

5 X 

-?630 
I 

5 X 

J5139 
1 

5 X 



1620- 144) MONITOR I VERSION 2 FMTIAN 11*0 PHASE l-B 



PAGE 















J,5 1 39 




1 








09798 




3 








JO • 












09 200 


C5DAT A 


OS A 


CHI 5 






















J5B39 












ft QJtftA 

09806 












JO • 
















TFM 


• ♦ 35, AF TBL + 5 


09808 


16 


0984 3 


J5040 






SH 


•♦23.5, 10 


09820 


12 


09863 


000*5 


09240 




TF 


• ♦ 1 8 » , 


098 32 


26 


09850 


MA AAA 

00000 


09250 




AM 


.2,10 


09844 


11 


00000 


000-2 


09260 




C 


•-13 v siafi 


09856 


24 


09843 


04419 






BH 


• -48 


09868 


46 


09820 


01 100 






TFM 


STAFT.AFTRt,** 


o 'J R a o 


16 


044 19 


J5040 


na ion 




n 


BEf.|N*36 


09892 


49 


02662 


A A A A A 
00000 


09 100 




OORG 


• -4 


09899 








09 110 


fcHMtS 


OAC 


9, f RROR 00 # 


09S01 




9 


x 2 






ERROR OO 1 










09 320 


FM T C ST 


DC 


12,465659544163 


9 9 «? 9 




12 








M65659S44163 










09330 


PlUSS 


OAC 


2,* * 


09031 




2 


X 2 


09340 


ENOCT 


OAC 


3.EN0 


09935 




3 


X 2 






ENO 












09350 


svm 


DS 


40 


09979 




40 




09 360 




OS 


2 


09981 




2 




09370 




DC 


16,0 


09997 




16 








-OOOOOOOOCOOOOOO 










09380 


ZtRl) 


OS 


.•-2 


09995 









09390 


TtNZ 


OS 


,•-6 


09991 









09400 


SINGS! 


DC 


1.0 


0'J998 




1 




094 IU 


OUTRAN 


DSC 


U 


0999^ 




1 




09420 


F,vTS»i 




osc 




ltO 


10000 








09430 


FNTSrfl 


osc 




ItO 


10001 




1 




09440 




osc 


1.0 


10002 




1 




0945U 


SINOSX 




osc 




1,0 


10G01 




1 




ij9460 


Q1 M S* 


JSC 


1,0 


I G C 4 




1 




H44 70 


IKS* 




osc 




1 r , o <i 




1 




09480 


CGTG 




osc 


1,0 


10l06 




I 




09490 


UMM 


J 

DSC 


I .0 


inooT 




1 




U9500 






DSC 


1,0 


10C08 




1 




09510 


CALLS* 




DSC 


1,0 


10009 




1 













3 «5 








09520 




DSC 


1 ,0 


1 CO 1 




1 






















1620-1443 MONITOR I VERSION 2 FORTRAN 11*0 PHASE 1*8 PAGE 



09 5 30 


IQSrf 


OSC 


I ,0 






icon 




1 




09540 


SuRSW 




OSC 



1,0 






10012 




1 




0955<: 




00*G 


10200 






10200 








09560 


lOtlT 


TFM 


FMON* 35.BLK4 






10200 


16 


02359 


-9691 


09570 




BTM 


FMON , IUUT 






I Oil 2 


17 


02 324 


J0200 


09580 


NQNARA 


TFM 


FMON* 35,BlK2 






10224 


16 


02359 


-9645 


09590 




BTM 


FMON . NONAR A 






1 Hi- 36 


17 


02 324 


J0224 


09600 


DIM 


TFM 


FM0N*i5,0lKl 






10248 


16 


02359 


-9622 


09610 




BTM 


FMON.OIM 






10260 


17 


02324 


J0248 


09620 


COMMON 


TFM 


fmon*35,blk| 






10272 


16 


02359 


-9622 


09630 




BTM 


FMON, COMMON 






10284 


17 


02324 


J0272 


09640 


IF 


TFM 


FMON*35,BLK6 






10^96 


16 


02359 


-9737 


09650 




BTM 


FMON, IF 






10 JOB 


17 


02324 


J0296 


09660 


GUTO 


TFM 


FMON* 3r>,BL*6 






10J2Q 


16 


02359 


-9737 


09670 




BTM 


FMON, GOTO 






10332 


1? 


02324 


J0320 


09680 


CAIL 


TFM 


FM0N*35 t 8LK6 






10344 


16 


02359 


-9737 


09690 




BTM 


FMON, CALL 






10356 


17 


02324 


J0344 


09700 


Rfc TURN 


TFM 


FM(1N*J5,BLK6 






10368 


16 


02 359 


-9737 


09710 




BTM 


FMON, RE TURN 






10380 


17 


02324 


J0368 


09720 


FORMAT 


TFM 


FMON* i5,BLM 






10392 


16 


02359 


-9622 


09730 




BTM 


FMON, FORMAT 






10404 


17 


02324 


J0392 


09740 


UCO 


TFM 


FMON* 45 i BLK4 






10416 


16 


02359 


-9691 


09750 




BTM 


FMON, 000 






10428 


17 


02324 


J0416 


09760 


ASCAN 


TFM 


FMON*35,BLK3 






10440 


16 


02359 


-9668 


09770 




BTM 


FMON, ASCAN 






10452 


17 


02324 


J044Q 


09780 


LUTSC 


TFM 


FMON*35,BLK3 






10464 


16 


02359 


-9668 


09790 




BTM 


FMON.OUTSC 






10476 


17 


02324 


J0464 


09800 


OKIO 


TFM 


FM0N*35,6LK5 






10488 


16 


02559 


-9714 


09810 




BTM 


FMON, OK |0 






10500 


17 


02 324 


J0488 


09820 


• • INI 


ITIALI2ATI0N PHASE l- 


B 












098 30 


PRSCAN 


BNF 


PRSCN1,LIST«, 


TQT At 11 


bTlNG 


10512 


44 


10544 


02228 


09840 




TFM 


RE IR ♦tttNITAL, 


, PRINT 


OUT THE HEAD 


10524 


16 


02496 


-4098 


09850 




B7 


FLIP 






10536 


49 


02454 




09860 


PRSCN1 


SF 


00457 






10544 


32 


00457 


00000 


09870 




TOM 


00475,2,,, SET 


SiYSCAt 




10554 


15 


00475 


00002 


09880 




BO 


•♦20, 1N0IV 






10568 


43 


10588 


02424 


09890 




B 


• ♦56 






10580 


49 


10636 


00000 


09900 




OORG 


• -3 






10588 








09910 




BNF 


•♦48, INpIV 






10588 


44 


10696 


02424 


09920 




TFM 


B A* 1,41, 10 






10600 


16 


02719 


000M1 


09930 




TFM 


BA07.41, 10 






10612 


16 


02755 


OOOMl 


09940 




TFM 


UR0ATA*2,08, 10 






10624 


16 


09789 


000-8 


09950 




TF 


SMTLU*1 1 1 STBL 






10636 


26 


06965 


02377 


0996C 




SM 


SMTLU*ll,4,lO 






10648 


12 


06965 


000-4 


09970 




S 


SMTLU*23t STBl 






10660 


22 


06977 


02)77 


09980 




AM 


SMTLU*23,05,I0 






10672 


11 


06977 


000-5 


09990 




IF 


SMTLU*35,STBL 






10684 


26 


06989 


02*77 


10000 




S« 


SMTLU*35,6, 10 






10696 


12 


06989 


000-6 


10010 




S 


FX0RFL-5.KLNG 






10708 


22 


06414 


02252 


10020 




A 


PLUS*47,FLNG 






10720 


21 


06879 


02250 


10030 




80 


BA*48,IN0IM 






10732 


63 


02744 


02424 


10040 




• 


8EGINA 






10744 


69 


02410' 


ooooo 


10050 




OORG 


• -J 




30* 


10752 








10060 




OORG 


16000 




16000 









1620- 144) tfONMOft I VERSION 2 FORTRAN M-C PHASE 1-H PAGE 



10070 


PHPOA T 


use 

2? 


2t?2 




1 6000 




2 




10010 




OS A 


PH60DA 




16006 




5 


X 1 












16006 




J6008 




10090 




DC 


L« 




16007 




1 




10100 


PHPOOA 


DSC 


1,0 




16008 




1 




10 1 10 





UC 


5. 17200 




16013 




5 








J72C0 












10 120 




OC 


3,H4 




16016 




3 








-84 














10130 




OS A 


ft 864*0 




1602 1 




5 


x I 












16021 




-24)0 




10 MO 




OC 


l» ' 




16022 




I 




10150 


LUPHH 


TFM 


in«T,»»23 




16024 


16 


00565 


J6047 


10 160 




H 


IOPT , PHBOAT , 7 




1 6036 


49 


005)2 


J6000 


IQITO 




TRA 






16048 


36 


00000 


00500 












16060 


49 


OOOOC 


00000 


10 UO 




TCO 


IDPHH 




16024 








10190 


• 


UUT OF CORF BLOCK I 


CONTAINS THE FOLLOWING 










10200 


• 


DIMENSION 












10210 


• 


COMMON 












10220 


• 


FOKMAT 












102. 30 




OORG 


10UT 




1 0200 








10240 




TFM, 


FMIIN* 35 |BLK4 


t 1 1 OUT 


10200 


16 


02 359 


-9691 


10250 




BTM 


FMON, 10UT 




102 12 


I j 


02 324 


J0200 


10260 




IFM 


FMON*35 t BLK2 




10224 


16 


02 359 


-9645 


1027Q 






FMON, NONARA 




1 02 36 


j 7 


02 324 




10280 




CF 


STSN 


, , ,OIM 


10248 




0564 1 


uuuvw 


10290 




H 


OIMFN 




10260 


49 


10512 


vUUVU 


10 300 




CF 


STSN 


, , , COMMON 


10272 






nnnnn 


10 310 




B 


COMMfN 




10284 


49 


1 1576 


V V v V w 


10 320 




tfm 


FMUN*35,BLK6 


, ,IF 


10296 


16 


02359 


-9737 


10330 




BTM 


FMON, IF 




1 308 


1 7 


02324 


J0296 


10340 




TFM 


FMUN*35,BU6 


M r »OTO 


10320 


16 


02359 


-9737 


10350 




ATM 


FMON.GUTD 




10332 


I 7 


02324 


J0320 


10360 




TFM 


FMUN^i5,0LK6 


, ,CALL 


1 344 


1 6 


02359 


-97)7 


10370 




BTM 


FMON, CALL 




10356 


1 7 


02)24 


J0344 


10 380 




IFM 


FMON»35,BL*6 


t i RC TURN 


10368 


16 


02359 


-9737 


10 390 




BTM 


FMQN.RE f URN 




10380 


1 7 


02324 


J0366 


10400 




CF 


FRCQSM 


, , ,FORMAT 


10392 


3 3 


14218 


00000 


10410 




B 


FOMAT 




10404 


49 


12146 


00000 


10420 




IFM 


FM0Nti5,BtK4 


. iOOO 


10416 


16 


02)59 


-9691 


10430 




BTM 


FMCN,000 




10428 


17 


02)24 


J0416 


1044O 




TFM 


FMl)N*35,BLK3, , 


ASCAN 


10440 


16 


02)59 


-9668 


10450 




BTM 


FMON, ASCAN 




10452 


17 


02324 


J0440 


10460 




TFM 


FMON*35,RLKl, f 


OUTSC 


10464 


16 


02)59 


-9668 


10*70 




HTM 


FMQN.CUTSC 




10476 


17 


02324 


J0464 


10480 




TFM 


fM(»N* Jt»,BtK«i 


i.OKIO 


10488 


16 


02359 


-9714 


10490 




BTM 


FMON , 10 




10500 


17 


02)24 


J0488 


10500 


• 


ENTRY TO OECPMPOSE 




















3 7 
















1620-1443 MCN| fOR 


I VERS 1 UN 2 FORTRAN II-D PHASE 1-B 








PAGE 


10510 


C1»EN 


BTM 


C0LNAM,6, 10 




10512 


17 


04662 


000-6 


10520 




C 


SVM,FNS10N*10 




1 0524 


24 


09979 


1 1575 


10530 




BV 


EKR01 




1 0536 


46 


04286 


1400 


10540 




BNE 


ERKOl 




1 0548 


47 


04288 


01200 


1055Q 




T* 


CH|-1,CH|»11 




10560 


3 1 


15136 


15150 


10560 




TOM 


OlMSW.l 




1 0572 


1 5 


1 0004 




10570 




BN* 


•♦36,CM|*2 




1 0584 


45 


10620 


15141 


10580 


01*1 


BTM 


ERR0R»072,9, 




10596 


I 7 


0935C 


00-72 


10590 




BTM 


ERROR, 2 70.9 




1 0608 


1 7 


0935C 


OOK 70 


10600 




CM 


CH( ( 4U*10 




1 0620 


14 


15139 


OOOMO 


10610 




HNH 


• -24 




1 0632 


4 7 


10608 


01 100 


10620 




CM 


CHI,6S),10 




1 0644 


14 


15139 


00009 


10630 




8H 


01*1*12 




10656 


46 


10608 


1 100 


1064C 




BTM 


CS<)RN.»*12 




1066ft 


I 7 


05704 


J0680 


10650 


St TOM 


HO 


DIM2, INSM, , 


BRANCH IF SYM WAS AIREACY IN TABLE 


1 0680 


43 


11464 


0261 1 


10660 




TOM 


SMCNT.l ,6, 




1 0692 


I 5 


0726 J 


00001 


10670 




T F 


40S4VE,$NA00,tl« 




10704 


26 


08485 


07200 


10680 




SM 


SMAD0.05, 10 




10 716 


12 


07208 


000-5 


10690 




f F M 


SMAOD ,1,67 




1 728 


16 


07200 


-0001 


10700 




CM 


CHI, 24, 10 




1 0740 


14 


15139 


000K4 


10710 




BNE 


01*1 




10752 


47 


10596 


01200 


10 720 




SF 


DIM! 




10764 


32 


10596 


00000 


10 730 




SF 


SE TOM 




10776 


32 


10660 


00000 


10740 


SO 


TR 


CM|-1,CMIM , , 


SHIFT OFF LEFT PARN OR COMMA 


1 0788 


3 1 


15136 


15140 


10 750 




CM 


CH| ,69, IP, 


TEST FOR ABSOLUTE 


10H00 


14 


15139 


00009 


10 760 




BNH 


SET0M2t24 




10812 


47 


10660 


01 100 


10770 




BTM 


CSTN0,*tl2 




10824 


1 7 


05412 


J0636 


10780 


SfcTi)M2 


CM 


SYM,Q,10 




1 08 36 


14 


09979 


000-0 


10790 


BNE 


• ♦24 




1 0848 


4 7 


10872 


01200 


10800 




BTM 


ERROR ,179,9 




1 0860 


|7 


0935Q 


00J79 


10810 




AM 


ADSAVEt §t!0 




10872 


1 1 


06465 


000-5 


10820 




TOM 


SVM-4,0,11 




1 0814 


15 


09979 


0000* 


10830 




CF 


SVM-l 




10896 


33 


09976 


00000 


10840 




TF 


ADSAVE.SYM.6 




10908 


26 


0648N 


09979 


10850 




AM 


NXLQC»5,|0 




10920 


1 1 


02372 


000*5 


10860 




TF 


TEMP.SVM 




109)2 


26 


02620 


09979 


10870 




CM 


CHI, 04, 10 




10944 


|4 


191 39 


000*4 


10880 




BE 


MOVO|M 




10996 


46 


11116 


01200 


10890 




CM 


CH|,?3,10 




10968 


14 


191)9 


OOOK) 


10900 




8N6 


QIM1 




10910 


47 


10996 


01200 


10910 




BMF 


fENOIM.DIMl,, 


TEST FOR SECOND DIMENSION 


10992 


44 


11072 


10996 


10920 




TOM 


SMCNT.2,4 




1 1004 


|% 


0726J 


00002 


109)0 


StTDHl 


M 


$MA00,T|M*,6 




11016 


23 


0720Q 


02620 


10940 




SF 


96 




11028 


32 


00099 


00000 


10950 




IF 


SMAOO.99,6, 




1 1040 


26 


0720Q 


00099 


10960 




CF 


DIMI 




1 1012 


33 


10996 


00000 


10970 




B 


SO 




H064 


49 


10766 


00000 


10980 




OOftC 


••1 




11072 








10990 


GENDIM 




SET0M2»24 ( SCT0Mi» 


TEST FOR TMIRO OlMfNSION 


11072 


44 


10660 


10660 


11000 




TOM 


SMCNT.3,4 




3 !*•* 


IS 


0726J 


00003 


11010 




CF 


SEfOM 




llUT- 


s% 


10660 


00000 


11020 




• 


SET0M3 




11 108 


** 


11016 


00000 


11030 




OORC 


•~3 




11116 








11040 


MGVOlM 


M 


$M 400, TEMP, 6 




11116 


23 


07209 


02620 


11010 




SF 


95 


3<»5 


11126 


12 


00069 


OOOOO 


11040 




TF 


SMA00,99,6 


11140 


26 


072M 


00099 









16^0-144^ MONITOR 


1 VERSION 2 FORTRAN Il-C PMASl I'R 








PAGE 


1 1070 




TR 


CM| - | ,CHJ ♦ I 




1 1 152 


31 


151 38 


15140 


1 1 080 




TO 


D 1 M T P i SMCNT til 




11164 


25 


11 185 


0726J 


1 1 090 




CM 


D 1 * TP 1 0002 1 810 




II 1 76 


14 


11 185 


0-0-2 


1 1 100 


DIWTP 


OS 


• • - 2 




1 1 185 




o 




U 110 




BH 


SETDM4, , , 


3 DIMENSIONS 


1 1 186 


46 


11276 


01 100 


11 120 




BE 


• ♦32 1 1 1 


2 DIMENSIONS 


1 1200 


46 


11232 


01200 


1 1 DO 




TFM 


ADSAVE t 1 *67 1 


I DIMENSION 


11212 


16 


0846N 


-0001 


1 1 140 




e 


SE TDMb* 1 2 




1 1224 


49 


11 396 


00000 


11 150 




OORG 


• -4 




11231 








1 1 160 




jf 


TEMP t ADSAVE 




1 12)2 


26 


02620 


08465 


11 170 




SM 


TEMP i 5t 10 




1 1244 


12 


02620 


000-5 


1 1 160 




|f 


ADSAVE»TEMP,61| 




1 1256 


26 


0646N 


0262- 


1 1 190 






SE TDM* 




1 1268 


49 


1 1 364 


00000 


1 1 200 




OORG 


• -4 




1 1275 








11210 


SE T0M4 


If 


TEMP, ADSAVE 




1 1276 


26 


02620 


06485 


1 1 220 




SM 


ADSAVE , 5# 10 




1 1268 


12 


06485 


000-5 


1 1 230 




SM 


TEMPt 10t 10 




1 1 300 


12 


02620 


OOOJO 


1 1 240 




H 


TEMP, AO SAVE, 611 




11312 


2) 


0262- 


0646N 


1 1 250 




5P 


95 




1 1 324 


32 


00095 


00000 


1 1 260 




TF 


NXLOC ,99,6 




1 1 336 


26 


0237K 


00099 


1 1 270 




j|e 


ADSAVEtTEMPt611 




1 1 348 


26 


0848N 


0262- 


11280 




TP 


TEMP* NXLOC 1 6 1 1 




I 1 360 


26 


0262- 


0237K 


1 1 290 






TEMPt ADSAVE 1 6 1 1 




I 1 372 


2 L 


0262- 


0848N 




Tf)M% 




i tup. i ./,m 




I 1 384 


1 I 


0262- 


000- 1 


11310 




AM 






1 I 396 


1 1 


02372 


000-5 


11320 






m vi nr . (Minn .ai i 




1 1408 


26 


0237K 


0720Q 


113 30 






t l7H.f HI »7 




I 1 420 


45 


1 1440 


15141 


1 1 340 




g 


BEG I NA 




1 1 4 32 


49 


02638 


00000 




















1 1 360 




CM 


CHI 23 10 




1 1 440 


1 4 


151 39 


000K3 


11370 




BNE 


D IM 1 




1 1 452 


4 7 


10596 


01200 






TR 






1 1 464 


3 1 


15138 


15140 


1 1 390 




Q 


DI H 1 *24 




1 1476 


49 


10620 


00000 


1 1