file: agt_text_tape_13Jan76.octal.adage.txt
options: -octal -adage -linesize=40 -dataspace=5
 1455: 0000100011 4664562021 1361200425 3414400000 0040465762 6462415615 0040414441 4745404570   + tFTN01"Q0&5,'     FORTRANr  ADAGE EX
       6445564445 4440465762 6462415640 5166404357 5560515445 6240465762 4041476440 4155576337 TENDED FORTRAN IV COMPILER FOR AGT AMOS/
       2240445163 5340637163 6445556315 0040623641 3646363440 5036443653 3615151515 1515151515 2 DISK SYSTEMSr  R.A.F., H.D.K.rrrrrrrrr
       0040624566 3640443440 4021405241 5640272340 4040162163 6440574646 5143514154 4043656364   REV. D,  1 JAN 73   (1ST OFFICIAL CUST
       5755456240 6245544541 6345344050 4163404665 5454404441 6441406364 4164455545 5664171515 OMER RELEASE, HAS FULL DATA STATEMENT)rr
       0040624566 3640433440 2130404445 4340272240 4040165665 5545625765 6340435762 6245436451   REV. C, 18 DEC 72   (NUMEROUS CORRECTI
       5756633440 6556624554 4541634544 1715151515 0040624566 3640423440 4027405657 6640272240 ONS, UNRELEASED)rrrr  REV. B,  7 NOV 72 
       4040164651 6263644046 6554544051 5664456256 4154406245 5445416345 1715151515 0040624566   (FIRST FULL INTERNAL RELEASE)rrrr  REV
       3640413440 2224406345 6040272240 4040166062 4554515551 5641627140 5156644562 5641544062 . A, 24 SEP 72   (PRELIMINARY INTERNAL R
       4554454163 4517151515 1515151515 0040605441 4345404365 6262455664 4062456651 6351575640 ELEASE)rrrrrrrr  PLACE CURRENT REVISION 
       5445664554 4041564440 4441644540 5156406041 6363402140 6471604557 6564404245 5457674041 LEVEL AND DATE IN PASS 1 TYPEOUT BELOW A
       5644405156 1515151515 0040404063 6441564441 6244406357 6562434540 5451636451 5647406451 ND INrrrrr    STANDARD SOURCE LISTING TI
       6454456340 5756406041 4745402315 1515151515 0040050505 4056576445 4005050515 0040404044 TLES ON PAGE 3rrrrrr  *** NOTE ***r    D
       6545406457 4064504540 6351724540 5746406450 5163406062 5747624155 3440414445 6064406645 UE TO THE SIZE OF THIS PROGRAM, ADEPT VE
       6263515756 4023344016 6351556054 5146514544 4041444560 6415151515 0040404041 6363455542 RSION 3, (SIMPLIFIED ADEPTrrrr    ASSEMB
       5445621734 4055656364 4042454065 6345444064 5740416363 4555425445 4057564021 2653406371 LER), MUST BE USED TO ASSEMBLE ON 16K SY
       6364455563 3640405045 5643453440 5657404144 4560641515 0040404063 6462515647 4041436451 STEMS.  HENCE, NO ADEPTrr    STRING ACTI
       5756405760 4562416457 6263344016 5541436257 1463344051 6245604541 6414633440 4564433617 ON OPERATORS, (MACRO'S, IREPEAT'S, ETC.)
       3440554171 4041606045 4162405156 4064505163 1515151515 0040404064 4570643640 4057564023 , MAY APPEAR IN THISrrrrr    TEXT.  ON 3
       2253406371 6364455563 3440416363 4555425471 4064515545 4067515454 4042454063 5057626445 2K SYSTEMS, ASSEMBLY TIME WILL BE SHORTE
       5645444043 5756635144 4562414254 7140514615 0040404041 4445606440 6645626351 5756402340 NED CONSIDERABLY IFr    ADEPT VERSION 3 
       5163406563 4544361515 1515151515 4570606556 4745151515 1515151515 1164516454 4511465762 IS USED.rrrrrrrEXPUNGErrrrrrrrtTITLEtFOR
       6462415615 1515151515 1515151515 0040435756 4451645157 5641544066 4562635157 5640444546 TRANrrrrrrrrrrr  CONDITIONAL VERSION DEF
       5156516451 5756403636 3615151515 1515151515 5146604163 6321151515 6471604557 6564401415 INITION ...rrrrrrrrrIFPASS1rrrTYPEOUT 'r
       4163634555 4254714057 4640415557 6337224046 5762646241 5640435755 6051544562 4016624566 ASSEMBLY OF AMOS/2 FORTRAN COMPILER (REV
       3640443440 2140524156 4027231740 3636361515 1515151515 4040664562 6351575640 2140354046 . D, 1 JAN 73) ...rrrrrrr  VERSION 1 - F
       5762402322 5340445163 5340637163 6445556315 4040664562 6351575640 2240354046 5762402126 OR 32K DISK SYSTEMSr  VERSION 2 - FOR 16
       5340445163 5340637163 6445556315 1515151515 6471604540 5156406645 6263515756 4056655542 K DISK SYSTEMSrrrrrrTYPE IN VERSION NUMB
       4562344043 3762403636 3640141515 1515151515 6645626351 5756403340 6471604551 5615151515 ER, C/R ... 'rrrrrrrVERSION = TYPEINrrrr
       1515151515 6621403340 6645626351 5756142111 0066456263 5157564021 4046544147 1515151515 rrrrrV1 = VERSION'1t VERSION 1 FLAGrrrrr
       6622403340 6645626351 5756142211 0066456263 5157564022 4046544147 1515151515 1515151515 V2 = VERSION'2t VERSION 2 FLAGrrrrrrrrrr
       5146724562 5740406621 0566221515 4554634515 6471604557 6564401415 5154544547 4154406645 IFZERO  V1*V2rrELSErTYPEOUT 'rILLEGAL VE
       6263515756 4063604543 5146514544 3614151515 6364576015 4556444315 1515151515 4554634515 RSION SPECIFIED.'rrrSTOPrENDCrrrrrrELSEr
       1515151515 6645626351 5756403340 6645626351 5756110044 4546515645 4057656460 6564406645 rrrrrVERSION = VERSIONt DEFINE OUTPUT VE
       6263515756 4056573640 5156406041 6363402215 1515151515 4556444315 1515151515 1515151515 RSION NO. IN PASS 2rrrrrrENDCrrrrrrrrrrr
       7777700000 1112757406 1112757406 1112757406 1112757406 1112757406 1112757406 1112757406 bbX  t?@#:t?@#:t?@#:t?@#:t?@#:t?@#:t?@#:
       1112757406 1112757406 1112757406                                                        t?@#:t?@#:t?@#:
 1670: 0000200011 4664562021 1361200500 3414400000 0040455664 6271406057 5156646315 1515151515   0 tFTN01"Q0* ,'     ENTRY POINTSrrrrrr
       1145566462 7111465762 6462415611 0055415156 4043575560 5154456240 4556646271 1515151515 tENTRYtFORTRANt MAIN COMPILER ENTRYrrrrr
       1145566462 7111465762 6462415663 1100635156 4754453543 5755605154 4164515756 4045566462 tENTRYtFORTRANSt SINGLE-COMPILATION ENTR
       7115151515 1145566462 7111465762 6455416011 0057656460 6564406371 5542575463 4055416040 YrrrrtENTRYtFORTMAPt OUTPUT SYMBOLS MAP 
       4556646271 1515151515 1145566462 7111465762 6463715563 1100576564 6065644062 5463715540 ENTRYrrrrrtENTRYtFORTSYMSt OUTPUT RLSYM 
       6371554257 5463404556 6462711515 1515151515 1145566462 7111545163 6446544147 1100545163 SYMBOLS ENTRYrrrrrrrtENTRYtLISTFLAGt LIS
       6451564740 5765646065 6440555744 4540465441 4715151515 1145566462 7111554160 4654414711 TING OUTPUT MODE FLAGrrrrtENTRYtMAPFLAGt
       0063715542 5754634055 4160404654 4147151515 1145566462 7111637155 6346544147 1100625463  SYMBOLS MAP FLAGrrrtENTRYtSYMSFLAGt RLS
       7155405765 6460656440 4654414715 1515151515 1145566462 7111457064 6241435762 4511004570 YM OUTPUT FLAGrrrrrrtENTRYtEXTRACOREt EX
       6462414043 5762454041 4664456240 6441425445 4041545457 4341645157 5615151515 1145566462 TRA CORE AFTER TABLE ALLOCATIONrrrrtENTR
       7111446062 2446544147 1100446062 2440606257 4345636357 6240465441 4740164657 6240574252 YtDPR4FLAGt DPR4 PROCESSOR FLAG (FOR OBJ
       4364404357 4445171515 1145566462 7111576463 4562465441 4711005764 6340456262 5762406365 CT CODE)rrtENTRYtOTSERFLAGt OTS ERROR SU
       6060576264 4046544147 1515151515 1145566462 7111635057 6264465441 4711006350 5762644051 PPORT FLAGrrrrrtENTRYtSHORTFLAGt SHORT I
       5664454745 6240555744 4540465441 4715151515 1145566462 7111574654 5767465441 4711004162 NTEGER MODE FLAGrrrrtENTRYtOFLOWFLAGt AR
       5164505545 6451434057 6645624654 5767404562 6257624046 5441471515 1145566462 7111636542 ITHMETIC OVERFLOW ERROR FLAGrrtENTRYtSUB
       6346544147 1100574252 4543643564 5155454063 6542634362 5160644043 5045435351 5647404654 SFLAGt OBJECT-TIME SUBSCRIPT CHECKING FL
       4147151515 1515151515 1515151515 0040555645 5557565143 4054516364 5156474044 4566514345 AGrrrrrrrrrrrrr  MNEMONIC LISTING DEVICE
       4060516657 6440604162 4155456445 6263151515 1515151515 5743506066 4033402720 2020201111  PIVOT PARAMETERSrrrrrrrrOCHPV = 70000tt
       0057656460 6564404155 5763404350 4162401643 4154544544 4046625755 4073574350 1715151515  OUTPUT AMOS CHAR (CALLED FROM $OCH)rrrr
       6041476066 4033402720 2020211111 0057656460 6564406041 4745151515 6556636066 4033402720 PAGPV = 70001tt OUTPUT PAGErrrUNSPV = 70
       2020221111 0065566345 5445436440 5451636451 5647404445 6651434515 6441426066 4033402720 002tt UNSELECT LISTING DEVICErTABPV = 70
       2020231111 0064414240 6457404357 5465555640 6057635164 5157561515 4163436066 4033402720 003tt TAB TO COLUMN POSITIONrrASCPV = 70
       2020241111 0057656460 6564404163 4351514043 5041624143 6445621515 5451566066 4033402720 004tt OUTPUT ASCII CHARACTERrrLINPV = 70
       2020251111 0057656460 6564405451 5645401656 5740604147 5156471715 5054646066 4033402720 005tt OUTPUT LINE (NO PAGING)rHLTPV = 70
       2020261111 0050415464 4044456651 4345151515 4350436066 4033402720 2020271111 0043504162 006tt HALT DEVICErrrCHCPV = 70007tt CHAR
       4143644562 4043576556 6445621515 5456436066 4033402720 2021201111 0054515645 4043576556 ACTER COUNTERrrLNCPV = 70010tt LINE COUN
       6445621515 5570546066 4033402720 2021211111 0055417051 5565554054 5156456340 6045624060 TERrrMXLPV = 70011tt MAXIMUM LINES PER P
       4147451515 4263716066 4033402720 2021221111 0062454154 3564515545 4044456651 4345404265 AGErrBSYPV = 70012tt REAL-TIME DEVICE BU
       6371404654 4147151515 1515151515 1515151515 0040555163 4345545441 5645576563 4060416241 SY FLAGrrrrrrrrrrrrr  MISCELLANEOUS PARA
       5545644562 6315151515 1515151515 4162576066 4033402727 2727211111 0041625164 5055456451 METERSrrrrrrrrrAROPV = 77771tt ARITHMETI
       4340576645 6246545767 4060516657 6415151515 5454456663 4033403036 1111110055 4170515565 C OVERFLOW PIVOTrrrrLLEVS = 8.ttt MAXIMU
       5540545164 4562415440 6065635035 4457675640 5445664554 6315151515 5441604454 4033403036 M LITERAL PUSH-DOWN LEVELSrrrrLAPDL = 8.
       1111110055 4170404144 4560644063 6542354570 6062406065 6350354457 6756405445 6645546315 ttt MAX ADEPT SUB-EXPR PUSH-DOWN LEVELSr
       5763645354 4033402220 2011111100 5760456241 6457624060 6563503544 5767564063 6441435340 OSTKL = 200ttt OPERATOR PUSH-DOWN STACK 
       5445564764 5015151515 5463456263 4033402320 1111110055 4170515565 5540456262 5762634060 LENGTHrrrrLSERS = 30ttt MAXIMUM ERRORS P
       4562405451 6364515647 4054515645 1515151515 1515151515 5265556021 4033402021 2020200350 ER LISTING LINErrrrrrrrrrJUMP1 = 01000!H
       1452655560 1111005265 5560406457 4057664562 5441714056 5736402140 1646576662 5471404162 'JUMPtt JUMP TO OVERLAY NO. 1 (FOVRLY AR
       4717151515 5265556022 4033402022 2020200350 1452655560 1111005265 5560406457 4057664562 G)rrrJUMP2 = 02000!H'JUMPtt JUMP TO OVER
       5441714056 5736402240 1646576662 5471404162 4717151515 5265556023 4033402023 2020200350 LAY NO. 2 (FOVRLY ARG)rrrJUMP3 = 03000!H
       1452655560 1111005265 5560406457 4057664562 5441714056 5736402340 1646576662 5471404162 'JUMPtt JUMP TO OVERLAY NO. 3 (FOVRLY AR
       4717151515 1515151515 1515151515 7777700000 4165564260 4165564260 4165564260 4165564260 G)rrrrrrrrrrrrrbbX  AUNBPAUNBPAUNBPAUNBP
       4165564260 4165564260 4165564260 4165564260 4165564260 4165564260                       AUNBPAUNBPAUNBPAUNBPAUNBPAUNBP
 1035: 0000300011 4664562021 1361200301 3414400000 0011050505 0505404063 6441626440 5746406245   8 tFTN01"Q0!%,'    t*****  START OF RE
       6351444556 6440634543 6451575640 4357445156 4740400505 0505051515 1515151515 1515151515 SIDENT SECTION CODING  *****rrrrrrrrrrrr
       1515151515 1515151515 0040636441 5644416244 4064516454 4540465762 4046576264 6241564063 rrrrrrrrrr  STANDARD TITLE FOR FORTRAN S
       5765624345 4060625747 6241554054 5163645156 4763151515 0040404016 6245666351 5756404156 OURCE PROGRAM LISTINGSrrr    (REVSION AN
       4440444164 4540635057 6554444050 4166454046 5762553440 1362456636 4070344044 4140555756 D DATE SHOULD HAVE FORM, "REV. X, DA MON
       4071621317 1515151515 1515151515 6364516454 0615151515 1515151515 5146724562 5740662134  YR")rrrrrrrrrrSTITL:rrrrrrrrrIFZERO V1,
       1163646251 5647401441 4441474540 4657626462 4156405166 4016664562 6336402134 4062456636 tSTRING 'ADAGE FORTRAN IV (VERS. 1, REV.
       4044344021 4052415640 2723171415 4554634511 6364625156 4740144144 4147454046 5762646241  D, 1 JAN 73)'rELSEtSTRING 'ADAGE FORTRA
       5640516640 1666456263 3640223440 6245663640 4434402140 5241564027 2317144040 4556444315 N IV (VERS. 2, REV. D, 1 JAN 73)'  ENDCr
       1515151515 6364516445 0615151515 6364516443 4033402425 3611111100 5657364057 4640435041 rrrrrSTITE:rrrrSTITC = 45.ttt NO. OF CHA
       6241436445 6263405156 4063644156 4441624440 6451645445 1515151515 1515151515 1515151515 RACTERS IN STANDARD TITLErrrrrrrrrrrrrrr
       1515151515 0040435755 6051544562 4041624765 5545566440 4654414763 4041564440 4357566462 rrrrr  COMPILER ARGUMENT FLAGS AND CONTR
       5754405760 6451575640 4556646271 3560575156 6463151515 1515151515 5451636446 5441470611 OL OPTION ENTRY-POINTSrrrrrrrrLISTFLAG:t
       1122110054 5163645156 4740576564 6065644041 6247401654 5756474045 6262576263 1715151515 t2t LISTING OUTPUT ARG (LONG ERRORS)rrrr
       5541604654 4147061111 2111006371 5542575463 4055416040 4162474016 5657405541 6017151515 MAPFLAG:tt1t SYMBOLS MAP ARG (NO MAP)rrr
       6371556346 5441470611 1121110062 5463715540 5765646065 6440416247 4016565740 6254637155 SYMSFLAG:tt1t RLSYM OUTPUT ARG (NO RLSYM
       4046515445 1715151515 1515151515 4460622446 5441470611 1120110044 6062244046 5441474016  FILE)rrrrrrrrrDPR4FLAG:tt0t DPR4 FLAG (
       4357556051 5445404657 6240446062 2217151515 5764634562 4654414706 1111352211 0063644440 COMPILE FOR DPR2)rrrOTSERFLAG:tt-2t STD 
       5764634045 6262576240 6365606057 6264401654 5756474045 6262576263 1715151515 6350576264 OTS ERROR SUPPORT (LONG ERRORS)rrrrSHORT
       4654414706 1111352011 0051566445 4745624041 6251645055 4564514340 5557444540 1663505762 FLAG:tt-0t INTEGER ARITHMETIC MODE (SHOR
       6417151515 5746545767 4654414706 1111201100 4162516450 5545645143 4057664562 4654576740 T)rrrOFLOWFLAG:tt0t ARITHMETIC OVERFLOW 
       4562625762 6340165746 4617151515 6365426346 5441470611 1120110057 4252454364 3564515545 ERRORS (OFF)rrrSUBSFLAG:tt0t OBJECT-TIME
       4063654263 4362516064 4043504543 5363401657 4646171515 1515151515 4570646241 4357624506  SUBSCRIPT CHECKS (OFF)rrrrrrrEXTRACORE:
       1111212020 1100466245 4540435762 4540645740 5445416645 4046576240 6563456240 6471604551 tt100t FREE CORE TO LEAVE FOR USER TYPEI
       5663151515 1515151515 1515151515 1515151515 7777700000 6327026321 6327026321 6327026321 NSrrrrrrrrrrrrrrrrrrbbX  S7cS1S7cS1S7cS1
       6327026321 6327026321 6327026321 6327026321 6327026321 6327026321 6327026321            S7cS1S7cS1S7cS1S7cS1S7cS1S7cS1S7cS1
 1755: 0000400011 4664562021 1361200521 3414400000 0040624541 4440636441 6264405746 4056457064     tFTN01"Q0*1,'     READ START OF NEXT
       4046576264 6241564043 4162444064 5740444564 4562555156 4540516463 4064716045 1515151515  FORTRAN CARD TO DETERMINE ITS TYPErrrrr
       0040404062 4564656256 6340363636 1515151515 0040404040 4016211740 4043575555 4556643440     RETURNS ...rrrrr      (1)  COMMENT, 
       4357566462 5754344041 4445606434 4045564435 5746356445 7064344057 6240564570 6440515651 CONTROL, ADEPT, END-OF-TEXT, OR NEXT INI
       6451415440 4657626462 4156404341 6244151515 0040404040 4040404040 4067516450 4044516360 TIAL FORTRAN CARDrrr           WITH DISP
       4164435040 6457406062 5743456363 5762405156 4062434462 6415151515 0040404040 4016221740 ATCH TO PROCESSOR IN RCDRTrrrr      (2) 
       4043575664 5156654164 5157564043 4162441515 1515151515 6243446264 0611526555 6011564567  CONTINUATION CARDrrrrrrrRCDRT:tJUMPtNEW
       4344110060 6257434563 6351564740 6257656451 5645404451 6360416443 5040624564 6562561515 CDt PROCESSING ROUTINE DISPATCH RETURNrr
       1515151515 6243440611 5265556011 3611004556 6462711515 1152606362 1163644362 4411006364 rrrrrRCD:tJUMPt.t ENTRYrrtJPSRtSTCRDt ST
       4162644056 4567404341 6244151515 1141627057 1446111100 4354454162 4036363615 1141625544 ART NEW CARDrrrtARXO'Ftt CLEAR ...rtARMD
       1146434446 4711004040 1346134043 4162444046 5441471515 1141625544 1141434446 4711004040 tFCDFGt   "F" CARD FLAGrrtARMDtACDFGt   
       1341134043 4162444046 5441471515 1141625544 1141446064 4611004040 4144456064 4055574445 "A" CARD FLAGrrtARMDtADPTFt   ADEPT MODE
       4046544147 1515151515 1515151515 1155444162 1446115442 5442463521 1100634564 6560406064  FLAGrrrrrrrrrrtMDAR'FtLBLBF-1t SETUP PT
       6240645740 6364416445 5545566440 5441424554 4042654646 4562151515 1141625544 1162434431 R TO STATEMENT LABEL BUFFERrrrtARMDtRCD9
       3115151515 1155444162 1446112511 0063456465 6040435664 4046576240 2540435041 6263405156 9rrrrtMDAR'Ft5t SETUP CNT FOR 5 CHARS IN
       4054414245 5440465145 5444151515 1141625544 1456116243 4431301515 1515151515 1152606362  LABEL FIELDrrrtARMD'NtRCD98rrrrrrrtJPSR
       1147434346 1100474564 4046516263 6440434162 4440435041 6241436445 6240363636 1515151515 tGCCFt GET FIRST CARD CHARACTER ...rrrrr
       1152655560 1145647043 4411004040 5146404557 6434406345 6440445163 6041644350 4041564440 tJUMPtETXCDt   IF EOT, SET DISPATCH AND 
       6245646562 5615151515 1152655560 1162434423 1100404043 3762344045 5644405746 4043416244 RETURNrrrrtJUMPtRCD3t   C/R, END OF CARD
       1515151515 1152655560 1162434422 1100404063 5351604051 4640425441 5653404350 4162414364 rrrrrtJUMPtRCD2t   SKIP IF BLANK CHARACT
       4562151515 1515151515 1152606362 1144636043 5011004554 6345344043 5045435340 4657624063 ERrrrrrrrrtJPSRtDSPCHt ELSE, CHECK FOR S
       6045435141 5440445163 6041644350 4036363615 1102430350 1143556443 4411004040 1343133440 PECIAL DISPATCH ...rtcC!HtCMTCDt   "C", 
       4357555545 5664404341 6244151515 1102460350 1143645443 4411004040 1346133440 4357566462 COMMENT CARDrrrtcF!HtCTLCDt   "F", CONTR
       5754404341 6244151515 1102540350 1143645443 4411004040 1354133440 4357566462 5754404341 OL CARDrrrtcL!HtCTLCDt   "L", CONTROL CA
       6244151515 1102410350 1141446043 4411004040 1341133440 4144456064 4043416244 1515151515 RDrrrtcA!HtADPCDt   "A", ADEPT CARDrrrrr
       1102730350 1143556443 4411004040 1373133440 4357555545 5664404341 6244151515 1102050350 tc$!HtCMTCDt   "$", COMMENT CARDrrrtc*!H
       1143556443 4411004040 1305133440 4357555545 5664404341 6244151515 1120200350 1143556443 tCMTCDt   "*", COMMENT CARDrrrt00!HtCMTC
       4411004040 5445466440 4262414353 4564344043 5755554556 6440434162 4415151515 1135201111 Dt   LEFT BRACKET, COMMENT CARDrrrrt-0tt
       0040401645 5644405746 4044516360 4164435040 5451636417 1515151515 1515151515 1141625544    (END OF DISPATCH LIST)rrrrrrrrrrtARMD
       1457114743 4363661100 5764504562 3440634564 4064574062 4535624541 4440435041 6241436445 'OtGCCSVt OTHER, SET TO RE-READ CHARACTE
       6215151515 1515151515 6243442106 1152606362 1147434311 0047456440 5645706440 4341624440 RrrrrrrrrrRCD1:tJPSRtGCCt GET NEXT CARD 
       4350416241 4364456240 3636361515 1152655560 1162434423 1100404043 3762344045 5644405746 CHARACTER ...rrtJUMPtRCD3t   C/R, END OF
       4043416244 1515151515 1152655560 1136102211 0040406353 5160405146 4042544156 5315151515  CARDrrrrrtJUMPt.+2t   SKIP IF BLANKrrrr
       1141625544 1451147011 6243443131 1100404045 5463453440 6341664540 4350416240 5156405441 tARMD'I'XtRCD99t   ELSE, SAVE CHAR IN LA
       4245544042 6546464562 1515151515 1515151515 6243442206 1155444162 1470145611 6243443130 BEL BUFFERrrrrrrrrrrRCD2:tMDAR'X'NtRCD98
       1100544142 4554404651 4554444044 5756454012 1515151515 1152605463 1162434421 1100565734 t LABEL FIELD DONE ?rrrrrtJPLStRCD1t NO,
       4054575760 4046576240 5645706440 4350416215 1515151515 1152606362 1147434311 0071456334  LOOP FOR NEXT CHARrrrrrrtJPSRtGCCt YES,
       4047456440 5645706440 4350416240 1643575465 5556402617 4036363615 6243442306 1141625544  GET NEXT CHAR (COLUMN 6) ...rRCD3:tARMD
       1457114743 4363661100 4040433762 3440634564 4064574062 4535624541 4434406462 4541644041 'OtGCCSVt   C/R, SET TO RE-READ, TREAT A
       6340636043 1515151515 1152655560 1162434424 1100404052 6555604051 4640425441 5653401651 S SPCrrrrrtJUMPtRCD4t   JUMP IF BLANK (I
       5651645141 5440434162 4417151515 1515151515 1155447057 1446110220 1100724562 5740435041 NITIAL CARD)rrrrrrrrtMDXO'Ftc0t ZERO CHA
       6241436445 6240121515 1152605463 1162434425 1100565734 4043575664 5156654164 5157563440 RACTER ?rrtJPLStRCD5t NO, CONTINUATION, 
       5265556040 6457406245 6465625615 1515151515 7777700000 0512537316 0512537316 0512537316 JUMP TO RETURNrrrrrrbbX  *?K$(*?K$(*?K$(
       0512537316 0512537316 0512537316 0512537316 0512537316 0512537316 0512537316            *?K$(*?K$(*?K$(*?K$(*?K$(*?K$(*?K$(
 1400: 0000500011 4664562021 1361200412 3414400000 6243442406 1141625544 1457145114 7011624344   H tFTN01"Q0&?,'   RCD4:tARMD'O'I'XtRCD
       3131110056 4567406364 5556643440 6345644045 5644405746 4054414245 5440426546 4645621515 99t NEW STMNT, SET END OF LABEL BUFFERrr
       1152655560 1156706443 4411004757 4063456440 5645674043 4162444044 5163604164 4350404156 tJUMPtNXTCDt GO SET NEW CARD DISPATCH AN
       4440624564 6562561515 1515151515 6243442506 1152606362 1154636445 6211004357 5664515665 D RETURNrrrrrrrRCD5:tJPSRtLSTERt CONTINU
       4164515756 3440545163 6440456262 6340575640 5441636440 4341624415 1141625544 1457115442 ATION, LIST ERRS ON LAST CARDrtARMD'OtLB
       5442461100 6345644056 5740636441 6445554556 6440544142 4554405756 4043416244 1515151515 LBFt SET NO STATEMENT LABEL ON CARDrrrrr
       1155445162 1470116243 4411006245 6465625640 1622174046 5762404357 5664515665 4164515756 tMDIR'XtRCDt RETURN (2) FOR CONTINUATION
       4043416244 1515151515 1515151515 6243443131 0611112011 0064455560 4063645762 4147451515  CARDrrrrrrrrrrRCD99:tt0t TEMP STORAGErr
       6243443130 0611112011 0064455560 4063645762 4147451515 1515151515 5442544246 0611545743 RCD98:tt0t TEMP STORAGErrrrrrrLBLBF:tLOC
       1136102511 0063644164 4555455664 4054414245 5440426546 4645624016 4357546340 2135645735 t.+5t STATEMENT LABEL BUFFER (COLS 1-TO-
       2517151515 1111352011 0045564440 5746405441 4245544042 6546464046 5441471515 1515151515 5)rrrtt-0t END OF LABEL BUFF FLAGrrrrrrr
       1515151515 0040636441 6264406245 4144515647 4056456740 4341624415 1515151515 6364436244 rrrrr  START READING NEW CARDrrrrrrSTCRD
       0611526555 6011361100 4556646271 1515151515 1152606362 1154636454 5611005451 6364406062 :tJUMPt.t ENTRYrrrrrtJPSRtLSTLNt LIST PR
       4566515765 6340545156 4515151515 1141625544 1457115645 6743461100 6345644056 4567404341 EVIOUS LINErrrrtARMD'OtNEWCFt SET NEW CA
       6244404654 4147151515 1155444162 1143575463 1100634166 4540435754 6555564056 5736404657 RD FLAGrrrtMDARtCOLSt SAVE COLUMN NO. FO
       6240456262 5762406245 6057626451 5647151515 1141625544 1163435754 6315151515 3660625157 R ERROR REPORTINGrrrtARMDtSCOLSrrrr.PRIO
       6006115544 4162117360 6251576011 0041546357 4043656262 4556644060 4147454056 5736151515 P:tMDARt$PRIOPt ALSO CURRENT PAGE NO.rrr
       1141625544 1163604147 4515151515 3660625157 5406115544 4162117360 6251575411 0041564440 tARMDtSPAGErrrr.PRIOL:tMDARt$PRIOLt AND 
       4365626245 5664405451 5645405657 3615151515 1141625544 1163545156 4515151515 1155445162 CURRENT LINE NO.rrrrtARMDtSLINErrrrtMDIR
       1163644362 4411006245 6465625615 1515151515 1515151515 0040606257 4345636340 4357555545 tSTCRDt RETURNrrrrrrrrrrr  PROCESS COMME
       5664404341 6244403636 3615151515 1515151515 4355644344 0611526063 6211624344 6264110062 NT CARD ...rrrrrrrrrCMTCD:tJPSRtRCDRTt R
       4564656256 4041564440 6345644056 4567404341 6244404451 6360416443 5015151515 1152606362 ETURN AND SET NEW CARD DISPATCHrrrrtJPSR
       1154636445 6211005451 6364404562 6257626340 5756405441 6364405451 5645151515 1141625544 tLSTERt LIST ERRORS ON LAST LINErrrtARMD
       1457116441 4227461100 6345644046 5762406441 4240645740 4357544027 4057565471 1515151515 'OtTAB7Ft SET FOR TAB TO COL 7 ONLYrrrrr
       1515151515 1515151515 0040635351 6040645740 4556444057 4640434162 4440363636 1515151515 rrrrrrrrrr  SKIP TO END OF CARD ...rrrrr
       1515151515 6353604344 0611526063 6211474343 1100474564 4056457064 4043416244 4043504162 rrrrrSKPCD:tJPSRtGCCt GET NEXT CARD CHAR
       4143644562 4036363615 1152655560 1156456743 4411004040 5146404337 6234404757 4062454144 ACTER ...rtJUMPtNEWCDt   IF C/R, GO READ
       4056457064 4043416244 1515151515 1152655560 1163536043 4411004040 5146404254 4156534057  NEXT CARDrrrrrtJUMPtSKPCDt   IF BLANK O
       6240644142 3440514756 5762451515 1152655560 1163536043 4411004040 5146405764 5045623440 R TAB, IGNORErrtJUMPtSKPCDt   IF OTHER, 
       5147565762 4515151515 1515151515 1515151515 0040414257 6264404341 6244406343 4156403636 IGNORErrrrrrrrrrrrrr  ABORT CARD SCAN ..
       3615151515 1515151515 4142644344 0611554441 6211564567 4346110056 4567404341 6244406045 .rrrrrrrrrABTCD:tMDARtNEWCFt NEW CARD PE
       5644515647 4012151515 1141565162 1162434462 6411007145 6334404451 6360416443 5040645740 NDING ?rrrtANIRtRCDRTt YES, DISPATCH TO 
       6062574345 6363405164 1515151515 1152655560 1163536043 4411004554 6345344052 6555604064 PROCESS ITrrrrrtJUMPtSKPCDt ELSE, JUMP T
       5740635351 6040434162 4415151515 1515151515 1515151515 7777700000 2512712503 2512712503 O SKIP CARDrrrrrrrrrrrrrrbbX  5?Y5!5?Y5!
       2512712503 2512712503 2512712503 2512712503 2512712503 2512712503 2512712503 2512712503 5?Y5!5?Y5!5?Y5!5?Y5!5?Y5!5?Y5!5?Y5!5?Y5!
 1475: 0000600011 4664562021 1361200431 3414400000 0040624541 4440564567 4046576264 6241564043   P tFTN01"Q0&9,'     READ NEW FORTRAN C
       4162444036 3636151515 1515151515 5645674344 0611526063 6211624344 1100624541 4440636441 ARD ...rrrrrrrrNEWCD:tJPSRtRCDt READ STA
       6264405746 4056457064 4043416244 1515151515 1155445162 1162434462 6411004451 6360416443 RT OF NEXT CARDrrrrrtMDIRtRCDRTt DISPATC
       5040645740 6062574345 6363405146 4056456740 4341624415 1515151515 1152606362 1145626257 H TO PROCESS IF NEW CARDrrrrrrtJPSRtERRO
       6211004554 6345344067 4162565156 4740456262 5762401641 4257626463 4043416244 1715151515 Rt ELSE, WARNING ERROR (ABORTS CARD)rrrr
       1111456225 1100404016 5154544547 4154404357 5664515665 4164515756 4043416244 1715151515 ttER5t   (ILLEGAL CONTINUATION CARD)rrrr
       1515151515 1515151515 0040606257 4345636340 5645706440 4657626462 4156406364 4164455545 rrrrrrrrrr  PROCESS NEXT FORTRAN STATEME
       5664403636 3615151515 1515151515 5670644344 0611526063 6211624344 6264110062 4564656256 NT ...rrrrrrrrrNXTCD:tJPSRtRCDRTt RETURN
       4046625755 4062434440 4156444063 4564404451 6360416443 5015151515 1152606362 1154636445  FROM RCD AND SET DISPATCHrrrrtJPSRtLSTE
       6211005451 6364404562 6257626340 5756405441 6364404341 6244151515 1515151515 1515151515 Rt LIST ERRORS ON LAST CARDrrrrrrrrrrrrr
       1515151515 0040435755 6065644540 4156444063 4166454063 6441644555 4556644054 4142455440 rrrrr  COMPUTE AND SAVE STATEMENT LABEL 
       3636361515 1515151515 5670644321 0611416255 4414571154 4142455411 0063456440 5657406364 ...rrrrrrrNXTC1:tARMD'OtLABELt SET NO ST
       4164455545 5664405441 4245541515 1155444162 1154425442 4611004156 7140544142 4554405756 ATEMENT LABELrrtMDARtLBLBFt ANY LABEL ON
       4064505163 4043416244 4012151515 1152604156 1163434156 1100565734 4052655560 4064574063  THIS CARD ?rrrtJPANtSCANt NO, JUMP TO S
       6441626440 6364416445 5545566440 6343415615 1515151515 1141625544 1457116445 5522110045 TART STATEMENT SCANrrrrrrtARMD'OtTEM2t E
       5463453440 5156516451 4154517245 4054414245 5440664154 6545151515 1155444162 1446115442 LSE, INITIALIZE LABEL VALUErrrtMDAR'FtLB
       5442463521 1100634564 6560406057 5156644562 4064574054 4142455440 4265464645 6215151515 LBF-1t SETUP POINTER TO LABEL BUFFERrrrr
       1141625544 1164455521 1515151515 1515151515 5670644322 0611554441 6214511470 1164455521 tARMDtTEM1rrrrrrrrrrNXTC2:tMDAR'I'XtTEM1
       1100464564 4350405645 7064404350 4162405156 4063644164 4555455664 4054414245 5415151515 t FETCH NEXT CHAR IN STATEMENT LABELrrrr
       1141625544 1457115442 5442461100 6345644056 5740544142 4554404657 6240564570 6440636455 tARMD'OtLBLBFt SET NO LABEL FOR NEXT STM
       5664405756 4043416244 1515151515 1152604156 1156706443 2411005265 5560405756 4045564440 NT ON CARDrrrrrtJPANtNXTC4t JUMP ON END 
       5746405441 4245544046 5145544415 1515151515 1155447057 1143222011 0047456440 4451475164 OF LABEL FIELDrrrrrrtMDXOtC20t GET DIGIT
       4066415465 4515151515 1141625544 1164455523 1100634166 4515151515 1155444163 1446145611  VALUErrrrtARMDtTEM3t SAVErrrrtMDAS'F'Nt
       3136110056 6555456251 4340121515 1152604156 1156706443 2311007145 6334406353 5160151515 9.t NUMERIC ?rrtJPANtNXTC3t YES, SKIPrrr
       1515151515 1152606362 1145626257 6211005657 3440624560 5762644051 5454454741 5440435041 rrrrrtJPSRtERRORt NO, REPORT ILLEGAL CHA
       6240515640 5441424554 1515151515 1111456226 1515151515 1152655560 1163434156 1100415644 R IN LABELrrrrrttER6rrrrrtJUMPtSCANt AND
       4051475657 6245405441 4245541515 1515151515 5670644323 0611554441 6211644555 2211004645  IGNORE LABELrrrrrrrNXTC3:tMDARtTEM2t FE
       6443504054 4142455440 6641546545 1515151515 1155607151 1125110055 6554645160 5471400540 TCH LABEL VALUErrrrrtMPYIt5t MULTIPLY * 
       2120361515 1156575760 1515151515 1155444163 1164455523 1100414444 4056456740 4451475164 10.rrtNOOPrrrrrtMDAStTEM3t ADD NEW DIGIT
       1515151515 1141625544 1164455522 1100634166 4540564567 4054414245 5440664154 6545151515 rrrrrtARMDtTEM2t SAVE NEW LABEL VALUErrr
       1152655560 1156706443 2211005457 5760404657 6240564570 6440445147 5164151515 1515151515 tJUMPtNXTC2t LOOP FOR NEXT DIGITrrrrrrrr
       5670644324 0611554441 6211644555 2211005441 4245544066 4154654540 7245625740 1215151515 NXTC4:tMDARtTEM2t LABEL VALUE ZERO ?rrrr
       1152604156 1156706443 2511007145 6334405265 5560404657 6240456262 5762151515 1515151515 tJPANtNXTC5t YES, JUMP FOR ERRORrrrrrrrr
       1152606362 1163645442 5411004554 6345344063 6457624540 5441424554 4051564054 4142455440 tJPSRtSTLBLt ELSE, STORE LABEL IN LABEL 
       6441425445 1515151515 1141625544 1154414245 5411006341 6645406057 5156644562 4064574064 TABLErrrrrtARMDtLABELt SAVE POINTER TO T
       4142544540 4556646271 1515151515 1515151515 7777700000 7732746265 7732746265 7732746265 ABLE ENTRYrrrrrrrrrrbbX  b;#RUb;#RUb;#RU
       7732746265 7732746265 7732746265 7732746265 7732746265 7732746265 7732746265            b;#RUb;#RUb;#RUb;#RUb;#RUb;#RUb;#RU
 1260: 0000700011 4664562021 1361200356 3414400000 1155444162 1451145311 5441424554 1100544142   X tFTN01"Q0!N,'   tMDAR'I'KtLABELt LAB
       4554406062 4566515765 6354714044 4546515645 4440121515 1141565162 1156706443 2111007145 EL PREVIOUSLY DEFINED ?rrtANIRtNXTC1t YE
       6334406345 6440565740 6364416445 5545566440 5441424554 1515151515 1152634156 1145626257 S, SET NO STATEMENT LABELrrrrrtJSANtERRO
       6211004156 4440624560 5762644067 4162565156 4740456262 5762151515 1111456231 1100404016 Rt AND REPORT WARNING ERRORrrrttER9t   (
       4465605451 4341644540 5441424554 1715151515 1152655560 1163434156 1100475740 6364416264 DUPLICATE LABEL)rrrrtJUMPtSCANt GO START
       4063644164 4555455664 4063434156 1515151515 1515151515 5670644325 0611526063 6211456262  STATEMENT SCANrrrrrrrrrrNXTC5:tJPSRtERR
       5762110067 4162565156 4740456262 5762151515 1111456227 1100404016 7245625740 6364416445 ORt WARNING ERRORrrrttER7t   (ZERO STATE
       5545566440 5441424554 1715151515 1515151515 1515151515 0040636441 6264406343 4156565156 MENT LABEL)rrrrrrrrrrrrrr  START SCANNIN
       4740564567 4046576264 6241564063 6441644555 4556644036 3636151515 1515151515 6343415606 G NEW FORTRAN STATEMENT ...rrrrrrrrSCAN:
       1152606362 1163434156 5111005156 5164514154 5172454046 5762406364 4164455545 5664406343 tJPSRtSCANIt INITIALIZE FOR STATEMENT SC
       4156151515 1152606362 1145555164 5111005156 5164514154 5172454046 5762404570 4543404357 ANrrrtJPSRtEMITIt INITIALIZE FOR EXEC CO
       4445404555 5163635157 5615151515 1141627057 1446111100 4354454162 4036363615 1141625544 DE EMISSIONrrrrtARXO'Ftt CLEAR ...rtARMD
       1164716045 4611004040 6471604540 6364416445 5545566440 4654414715 1141625544 1151434154 tTYPEFt   TYPE STATEMENT FLAGrtARMDtICAL
       4611004040 5156646251 5663514340 6365426257 6564515645 4043415454 4046544147 1515151515 Ft   INTRINSIC SUBROUTINE CALL FLAGrrrrr
       1141625544 1144576346 4711004040 4457406364 4164455545 5664404654 4147151515 1141625544 tARMDtDOSFGt   DO STATEMENT FLAGrrrtARMD
       1163624546 4711004040 6351564754 4540624546 4046544147 4046576240 6057545163 5015151515 tSREFGt   SINGLE REF FLAG FOR POLISHrrrr
       1141625544 1145616563 4611004040 4163635147 5655455664 4046544147 4046576240 6057545163 tARMDtEQUSFt   ASSIGNMENT FLAG FOR POLIS
       5015151515 1141625544 1143415454 4611004040 4341545440 6364416445 5545566440 4654414740 HrrrrtARMDtCALLFt   CALL STATEMENT FLAG 
       4657624060 5754516350 1515151515 1141625544 1144516360 4611004040 4451636054 4171406364 FOR POLISHrrrrrtARMDtDISPFt   DISPLAY ST
       4164455545 5664404654 4147404657 6240605754 5163501515 1141625544 1163434654 4711004040 ATEMENT FLAG FOR POLISHrrtARMDtSCFLGt   
       6360454351 4154406364 6251564740 4357566364 4156644046 5441471515 1515151515 1152606362 SPECIAL STRING CONSTANT FLAGrrrrrrrtJPSR
       1147436364 1100634341 5640645740 2163644056 5756354254 4156534043 5041624057 5640545156 tGCSTt SCAN TO 1ST NON-BLANK CHAR ON LIN
       4515151515 1152655560 1163434156 2711004040 5265556040 5146404337 6215151515 1515151515 ErrrrtJUMPtSCAN7t   JUMP IF C/Rrrrrrrrrr
       1155447057 1446112123 1100516340 5164404457 6542544535 6165576445 4012151515 1152605463 tMDXO'Ft13t IS IT DOUBLE-QUOTE ?rrrtJPLS
       1163434156 5311005657 3440475740 4745644053 4571675762 4415151515 1515151515 1155444162 tSCANKt NO, GO GET KEYWORDrrrrrrrrrtMDAR
       1456114441 6441461100 4441644122 4437234440 5557444540 1215151515 1152604156 1151544743 'NtDATAFt DATA2D/3D MODE ?rrrrtJPANtILGC
       5011005657 3440515454 4547415440 4350416241 4364456215 1515151515 1155444162 1446112711 Ht NO, ILLEGAL CHARACTERrrrrrrtMDAR'Ft7t
       0071456334 4063456465 6040465441 4740465762 4041634351 5140636462 5156471515 1141625544  YES, SETUP FLAG FOR ASCII STRINGrrtARMD
       1450115345 7146471100 4040515640 4441644122 4437444164 4123444055 5744451515 1152655560 'HtKEYFGt   IN DATA2D/DATA3D MODErrtJUMP
       1144416444 6311004757 4060625743 4563634041 6343515140 6364625156 4715151515 1515151515 tDATDSt GO PROCESS ASCII STRINGrrrrrrrrr
       1515151515 7777700000 6573342535 6573342535 6573342535 6573342535 6573342535 6573342535 rrrrrbbX  U$,5-U$,5-U$,5-U$,5-U$,5-U$,5-
       6573342535 6573342535 6573342535 6573342535                                             U$,5-U$,5-U$,5-U$,5-
 1565: 0001000011 4664562021 1361200453 3414400000 0040474564 4053457167 5762444036 3636151515  %  tFTN01"Q0&K,'     GET KEYWORD ...rrr
       1515151515 6343415653 0611416255 4414571147 4363636611 0063416645 4043504162 4143644562 rrrrrSCANK:tARMD'OtGCSSVt SAVE CHARACTER
       1515151515 1141625544 1457116343 4156461100 6345644063 4341564055 5744454046 5441471515 rrrrrtARMD'OtSCANFt SET SCAN MODE FLAGrr
       1152606362 1147637155 4111004745 6440415460 5041554562 5143406371 5542575415 1515151515 tJPSRtGSYMAt GET ALPHAMERIC SYMBOLrrrrrr
       1155444162 1163435041 6211004645 6443504044 4554515545 6445621515 1155447057 1446110233 tMDARtSCHARt FETCH DELIMETERrrtMDXO'Ftc=
       1100456165 4154406351 4756401215 1152605463 1136102311 0056573440 6353516015 1515151515 t EQUAL SIGN ?rtJPLSt.+3t NO, SKIPrrrrrr
       6343415621 0611554441 6211534571 4163110071 4563344046 4564435040 4654414763 4046576240 SCAN1:tMDARtKEYASt YES, FETCH FLAGS FOR 
       4163635147 5655566440 6364555664 1515151515 1152655560 1163434156 3011005265 5560406457 ASSIGNMNT STMNTrrrrrtJUMPtSCAN8t JUMP TO
       4060625743 4563631515 1515151515 1155447057 1446110233 1402341100 4445545155 4564456240  PROCESSrrrrrrrtMDXO'Ftc='c,t DELIMETER 
       3340435755 5541401215 1152605463 1163434156 2141110056 5734406353 5160151515 1515151515 = COMMA ?rtJPLStSCAN1At NO, SKIPrrrrrrrr
       1141625544 1163434156 4611007145 6334404354 4541624063 4341564055 5744454046 5441471515 tARMDtSCANFt YES, CLEAR SCAN MODE FLAGrr
       1155444162 1456115146 5441471100 5156404156 4013514613 4063644164 4555455664 4012151515 tMDAR'NtIFLAGt IN AN "IF" STATEMENT ?rrr
       1152604156 1151462111 0071456334 4052655560 4046576240 2235405762 4023354262 4156435040 tJPANtIF1t YES, JUMP FOR 2- OR 3-BRANCH 
       1351461315 1152655560 1151544743 5011004554 6345344051 5454454741 5440444554 5155456445 "IF"rtJUMPtILGCHt ELSE, ILLEGAL DELIMETE
       6215151515 1515151515 6343415621 4106115544 7057144611 0234140216 1100444554 5155456445 RrrrrrrrrrSCAN1A:tMDXO'Ftc,'c(t DELIMETE
       6240334054 4546644060 4162455640 1215151515 1155444162 1457145011 6371554223 1100415644 R = LEFT PAREN ?rrrrtMDAR'O'HtSYMB3t AND
       4056576440 6450624545 3567576244 4063715542 5754401215 1141625544 1164455521 1100565734  NOT THREE-WORD SYMBOL ?rtARMDtTEM1t NO,
       4063456440 4654414715 1152605463 1163434156 2211004156 4440475740 5457575365 6040515640  SET FLAGrtJPLStSCAN2t AND GO LOOKUP IN 
       5345716757 6244406441 4254456315 1515151515 1152606362 1163656263 7155110071 4563344051 KEYWORD TABLESrrrrrrtJPSRtSURSYMt YES, I
       6340516440 5156406371 5542575440 6441425445 4012151515 1152655560 1163434156 2211005657 S IT IN SYMBOL TABLE ?rrrtJUMPtSCAN2t NO
       3440475740 4350454353 4051464053 4571675762 4415151515 1515151515 1155444162 1163556471 , GO CHECK IF KEYWORDrrrrrrrrrtMDARtSMTY
       4611007145 6334404645 6443504063 7155425754 4064716045 1515151515 1155447057 1446112211 Ft YES, FETCH SYMBOL TYPErrrrrtMDXO'Ft2t
       0041626241 7140121515 1152605463 1136102211 0056573440 4757404350 4543534051 4640534571  ARRAY ?rrtJPLSt.+2t NO, GO CHECK IF KEY
       6757624415 1152655560 1163434156 2111007145 6334404163 6365554540 4163635147 5655455664 WORDrtJUMPtSCAN1t YES, ASSUME ASSIGNMENT
       4063644164 4555455664 1515151515 1515151515 1155444162 1157564654 4711001357 5613406364  STATEMENTrrrrrrrrrrtMDARtONFLGt "ON" ST
       4164455545 5664401215 1152604156 1163434156 2211005657 3440635351 6015151515 1515151515 ATEMENT ?rtJPANtSCAN2t NO, SKIPrrrrrrrrr
       1155444162 1163556471 4611007145 6334404645 6443504063 7155425754 4064716045 1515151515 tMDARtSMTYFt YES, FETCH SYMBOL TYPErrrrr
       1155447057 1446112311 0046655643 6451575640 6245464562 4556434540 1215151515 1152605463 tMDXO'Ft3t FUNCTION REFERENCE ?rrrrtJPLS
       1136102211 0056573440 4757404350 4543534051 4640534571 6757624415 1152655560 1163434156 t.+2t NO, GO CHECK IF KEYWORDrtJUMPtSCAN
       2111004554 6345344054 4564404163 6351475655 4556644064 4153454043 4162454057 4640516415 1t ELSE, LET ASSIGNMENT TAKE CARE OF ITr
       1515151515 6343415622 0611526063 6211636562 5345711100 5457575365 6040515640 5345716757 rrrrrSCAN2:tJPSRtSURKEYt LOOKUP IN KEYWO
       6244406441 4254451515 1152655560 1163434156 2511006353 5160405146 4056576440 4657655644 RD TABLErrtJUMPtSCAN5t SKIP IF NOT FOUND
       1515151515 1515151515 6343415623 0611554441 6211644555 2111004445 5451554564 4562403340 rrrrrrrrrrSCAN3:tMDARtTEM1t DELIMETER = 
       5445466440 6041624556 4012151515 1152605463 1163434156 2411005657 3440526555 6040645740 LEFT PAREN ?rrrtJPLStSCAN4t NO, JUMP TO 
       6062574345 6363405345 7167576244 1515151515 1515151515 1155444162 1451145611 4263656260 PROCESS KEYWORDrrrrrrrrrrtMDAR'I'NtBSURP
       1100714563 3440534571 6757624440 4154545767 6340544546 6440604162 4556151515 1141625463 t YES, KEYWORD ALLOWS LEFT PARENrrrtARLS
       1123110040 4041634044 4554515545 6445624012 1515151515 1152604156 1163434156 2611005657 t3t   AS DELIMETER ?rrrrrtJPANtSCAN6t NO
       3440636441 6445554556 6440466556 4364515756 1515151515 1515151515 7777700000 7506226102 , STATEMENT FUNCTIONrrrrrrrrrrbbX  @:2Qc
       7506226102 7506226102 7506226102 7506226102 7506226102 7506226102 7506226102 7506226102 @:2Qc@:2Qc@:2Qc@:2Qc@:2Qc@:2Qc@:2Qc@:2Qc
       7506226102                                                                              @:2Qc
 1775: 0001100011 4664562021 1361200525 3414400000 6343415624 0611554441 6214511142 6365626011  %+ tFTN01"Q0*5,'   SCAN4:tMDAR'ItBSURPt
       0046576556 4434404645 6443504053 4571675762 4440465441 4763151515 1152655560 1163434156  FOUND, FETCH KEYWORD FLAGSrrrtJUMPtSCAN
       3011005265 5560406457 4060625743 4563634063 6441644555 4556641515 1515151515 6343415625 8t JUMP TO PROCESS STATEMENTrrrrrrrSCAN5
       0611526063 6211636562 5156631100 5156646251 5663514340 6365426257 6564515645 4012151515 :tJPSRtSURINSt INTRINSIC SUBROUTINE ?rrr
       1152655560 1136102211 0056573440 6353516015 1152655560 1163434156 2311007145 6334405265 tJUMPt.+2t NO, SKIPrtJUMPtSCAN3t YES, JU
       5560406457 4046456443 5040465441 4763151515 1515151515 1155444162 1456115756 4654471100 MP TO FETCH FLAGSrrrrrrrrtMDAR'NtONFLGt 
       1357561340 6364416445 5545566440 1215151515 1152604156 1163434156 2111007145 6334405445 "ON" STATEMENT ?rrrrtJPANtSCAN1t YES, LE
       6440416363 5147565545 5664405041 5644544540 4570606245 6363145615 1515151515 1155444162 T ASSIGNMENT HANDLE EXPRESS'NrrrrrrtMDAR
       1164455521 1100565764 4046576556 4434404445 5451554564 4562403340 5445466440 6041624556 tTEM1t NOT FOUND, DELIMETER = LEFT PAREN
       4012151515 1152605463 1153457145 6211005657 3440456262 5762401653 4571675762 4440565764  ?rrrtJPLStKEYERt NO, ERROR (KEYWORD NOT
       4062454357 4756517245 4417151515 1515151515 6343415626 0611554441 6211534571 4146110071  RECOGNIZED)rrrrrrrrSCAN6:tMDARtKEYAFt Y
       4563344046 4564435040 4654414763 4046576240 6364555664 4046655643 6451575615 1152655560 ES, FETCH FLAGS FOR STMNT FUNCTIONrtJUMP
       1163434156 3011005265 5560406457 4060625743 4563634063 6441644555 4556644046 6556436451 tSCAN8t JUMP TO PROCESS STATEMENT FUNCTI
       5756151515 1515151515 6343415627 0611554441 6211544142 4554110042 5441565340 6364416445 ONrrrrrrrrSCAN7:tMDARtLABELt BLANK STATE
       5545566434 4041567140 6364555664 4054414245 5440121515 1141565162 1162434462 6411005657 MENT, ANY STMNT LABEL ?rrtANIRtRCDRTt NO
       3440445740 5645706440 4341624415 1515151515 1155444162 1153457143 4611004554 6345344046 , DO NEXT CARDrrrrrrtMDARtKEYCFt ELSE, F
       4564435040 1343575664 5156654513 4063645556 6440465441 4763151515 1515151515 6343415630 ETCH "CONTINUE" STMNT FLAGSrrrrrrrrSCAN8
       0611416255 4411534571 4647110063 4166454053 4571675762 4440465441 4763404156 4440445163 :tARMDtKEYFGt SAVE KEYWORD FLAGS AND DIS
       6041644350 4041444462 1515151515 1152604156 1163434156 2122110052 6555604064 5740445163 PATCH ADDRrrrrrtJPANtSCAN12t JUMP TO DIS
       6041644350 4051464060 4162645141 5440534571 6757624415 1515151515 1141624162 1453145614 PATCH IF PARTIAL KEYWORDrrrrrrtARAR'K'N'
       4611110056 5764404140 6365426062 5747624155 4050454144 4562405345 7167576244 4012151515 Ftt NOT A SUBPROGRAM HEADER KEYWORD ?rrr
       1155447057 1441115760 6446471100 4156444057 6564606564 4056576440 6364416264 4544407145 tMDXO'AtOPTFGt AND OUTPUT NOT STARTED YE
       6440121515 1152634156 1163554151 5611007145 6334406364 4162644041 4055415156 4060625747 T ?rrtJSANtSMAINt YES, START A MAIN PROG
       6241551515 1515151515 1515151515 0040604562 4657625540 4745564562 4154406062 4535445163 RAMrrrrrrrrrrrr  PERFORM GENERAL PRE-DIS
       6041644350 4060625743 4563635156 4740363636 1515151515 1515151515 1141627057 1446111100 PATCH PROCESSING ...rrrrrrrrrrtARXO'Ftt 
       4354454162 4063434156 4055574445 1515151515 1141625544 1163434156 4615151515 1155444162 CLEAR SCAN MODErrrrrtARMDtSCANFrrrrtMDAR
       1151465441 4711005657 6440414664 4562404140 5457475143 4154405146 4012151515 1155444162 tIFLAGt NOT AFTER A LOGICAL IF ?rrrtMDAR
       1441115756 4654471100 4156444056 5764404146 6445624041 5640135756 1340636441 6445554556 'AtONFLGt AND NOT AFTER AN "ON" STATEMEN
       6440121515 1141565162 1145625762 2611007145 6334404354 4541624046 5162636440 4562625762 T ?rrtANIRtEROR6t YES, CLEAR FIRST ERROR
       4046544147 1515151515 1141564162 1470116364 5543641100 4156444051 5644457040 6364416445  FLAGrrrrrtANAR'XtSTMCTt AND INDEX STATE
       5545566440 4357655664 1515151515 1515151515 1155444162 1456114441 6441461100 5156404441 MENT COUNTrrrrrrrrrrtMDAR'NtDATAFt IN DA
       6441224437 4441644123 4440444546 5156516451 5756401215 1152604156 1163434156 3111005657 TA2D/DATA3D DEFINITION ?rtJPANtSCAN9t NO
       3440635351 6015151515 1515151515 1155444162 1450145611 5345714647 1100714563 3440464564 , SKIPrrrrrrrrrtMDAR'H'NtKEYFGt YES, FET
       4350405345 7167576244 4046544147 6315151515 1155444162 1441144611 2220110041 5454576745 CH KEYWORD FLAGSrrrrtMDAR'A'Ft20t ALLOWE
       4440515640 4441644140 4445465156 5164515756 4012151515 1152635463 1145626257 6211005657 D IN DATA DEFINITION ?rrrtJSLStERRORt NO
       3440464164 4154404562 6257621515 1111456221 2722110040 4016515454 4547415440 6364416445 , FATAL ERRORrrttER172t   (ILLEGAL STATE
       5545566440 5156404441 6441404445 4614561715 1152655560 1144416444 6311004554 6345344057 MENT IN DATA DEF'N)rtJUMPtDATDSt ELSE, O
       5334405265 5560406457 4044416441 4044516360 4164435015 1515151515 6343415631 0611554441 K, JUMP TO DATA DISPATCHrrrrrrSCAN9:tMDA
       6214531153 4571464711 0054454741 5440636441 6445554556 6440515640 5657625541 5440415644 R'KtKEYFGt LEGAL STATEMENT IN NORMAL AND
       4051554147 4515151515 1141624162 1442144614 5611110040 4063654260 6257476241 5563401215  IMAGErrrrtARAR'B'F'Ntt   SUBPROGRAMS ?r
       1152604156 1163434156 2125110071 4563344063 5351601515 1515151515 1155444162 1163426064 tJPANtSCAN15t YES, SKIPrrrrrrrtMDARtSBPT
       7111005657 3440425457 4353404441 6441406365 4260625747 6241554012 1515151515 1152604156 Yt NO, BLOCK DATA SUBPROGRAM ?rrrrrtJPAN
       1142534445 6211007145 6334405154 5445474154 4063644164 4555455664 1515151515 1515151515 tBKDERt YES, ILLEGAL STATEMENTrrrrrrrrrr
       7777700000 6430012224 6430012224 6430012224 6430012224 6430012224 6430012224 6430012224 bbX  T8%24T8%24T8%24T8%24T8%24T8%24T8%24
       6430012224 6430012224 6430012224                                                        T8%24T8%24T8%24
 1475: 0001200011 4664562021 1361200431 3414400000 1155444162 1453115345 7146471100 4645644350  %0 tFTN01"Q0&9,'   tMDAR'KtKEYFGt FETCH
       4053457167 5762444046 5441476315 1141625463 1122110063 5051466440 5156406365 4260625747  KEYWORD FLAGSrtARLSt2t SHIFT IN SUBPROG
       6241554064 7160454042 5164151515 1155447057 1456115155 4746471100 6341554540 4163404365 RAM TYPE BITrrrtMDXO'NtIMGFGt SAME AS CU
       6262455664 4055574445 4012151515 1152604156 1163434156 2125110071 4563344057 5334406353 RRENT MODE ?rrrtJPANtSCAN15t YES, OK, SK
       5160151515 1515151515 1155444162 1151554746 4711005657 3440515541 4745405557 4445401215 IPrrrrrrrrtMDARtIMGFGt NO, IMAGE MODE ?r
       1152634156 1145626257 6211007145 6334404641 6441544045 6262576215 1111456221 2525110040 tJSANtERRORt YES, FATAL ERRORrttER155t  
       4016565764 4041545457 6745444051 5640515541 4745405557 4445171515 1515151515 1155444162  (NOT ALLOWED IN IMAGE MODE)rrrrrrrtMDAR
       1456115143 4154461100 4554634534 4013434154 5413405746 4051566364 6251566351 4340636542 'NtICALFt ELSE, "CALL" OF INSTRINSIC SUB
       4012151515 1152634156 1145626257 6211005657 3440464164 4154404562 6257621515 1111456221  ?rrrtJSANtERRORt NO, FATAL ERRORrrttER1
       2526110040 4016575654 7140415454 5767454440 5156405155 4147454055 5744451715 1515151515 56t   (ONLY ALLOWED IN IMAGE MODE)rrrrrr
       1141625544 1457116371 5563661100 7145633440 6341664540 6371554257 5440465762 4062453562 tARMD'OtSYMSVt YES, SAVE SYMBOL FOR RE-R
       4541441515 1155444162 1153457143 5411004163 6365554540 5657625541 5440636542 6257656451 EADrrtMDARtKEYCLt ASSUME NORMAL SUBROUTI
       5645404341 5454151515 1141625544 1153457146 4711004156 4440634564 4053457167 5762444046 NE CALLrrrtARMDtKEYFGt AND SET KEYWORD F
       5441476340 4657624051 6415151515 1515151515 6343415621 2506115544 4162144211 5345714647 LAGS FOR ITrrrrrrrrrSCAN15:tMDAR'BtKEYFG
       1100457045 4365644142 5445406364 4164455545 5664401215 1152604156 1163434156 2121110071 t EXECUTABLE STATEMENT ?rtJPANtSCAN11t Y
       4563344052 6555601515 1515151515 1515151515 0040606245 3560625743 4563634063 6045435146 ES, JUMPrrrrrrrrrrrr  PRE-PROCESS SPECIF
       5143416451 5756406364 4164455545 5664403636 3615151515 1515151515 5146724562 5740662211 ICATION STATEMENT ...rrrrrrrrrIFZERO V2t
       1111005156 4063454755 4556644544 4043575560 5154456234 1515151515 1155444162 1446111652 tt IN SEGMENTED COMPILER,rrrrrtMDAR'Ft(J
       6555602103 5017110040 4063456465 6040526555 6040645740 6062574345 6363405156 1515151515 UMP1!H)t   SETUP JUMP TO PROCESS INrrrrr
       1141625544 1163434156 2123110040 4040405766 4562544171 4021151515 4556444315 1155444162 tARMDtSCAN13t     OVERLAY 1rrrENDCrtMDAR
       1151465441 4711004146 6445624054 5747514341 5440514640 1215151515 1155444162 1441115756 tIFLAGt AFTER LOGICAL IF ?rrrrtMDAR'AtON
       4654471100 5762404146 6445624041 5640135756 1340636441 6445554556 6440121515 1152604156 FLGt OR AFTER AN "ON" STATEMENT ?rrtJPAN
       1136102311 0056573440 6353516015 1515151515 1152606362 1145626257 6211004554 6345344046 t.+3t NO, SKIPrrrrrrtJPSRtERRORt ELSE, F
       4164415440 4562625762 1515151515 1111456221 2721110040 4016515454 4547415440 6360454340 ATAL ERRORrrrrrttER171t   (ILLEGAL SPEC 
       6364416445 5545566417 1515151515 1515151515 1155444162 1442115345 7146471100 4645644350 STATEMENT)rrrrrrrrrrtMDAR'BtKEYFGt FETCH
       4053457167 5762444046 5441476315 1141624162 1442144611 1100465762 5541644063 6441644555  KEYWORD FLAGSrtARAR'B'Ftt FORMAT STATEM
       4556644012 1515151515 1155444162 1457115441 4245541100 5762405657 4063644164 4555455664 ENT ?rrrrrtMDAR'OtLABELt OR NO STATEMENT
       4054414245 5440575640 4341624440 1215151515 1152604156 1136102411 0071456334 4057533440  LABEL ON CARD ?rrrrtJPANt.+4t YES, OK, 
       6353516015 1515151515 1152606362 1145626257 6211004554 6345344067 4162565156 4740456262 SKIPrrrrrrtJPSRtERRORt ELSE, WARNING ERR
       5762151515 1111456221 2411004040 1663644164 4555455664 4043415656 5764404245 4054414245 ORrrrttER14t   (STATEMENT CANNOT BE LABE
       5454454417 1515151515 1141625544 1457115441 4245541100 6345644056 5740636441 6445554556 LLED)rrrrrtARMD'OtLABELt SET NO STATEMEN
       6440544142 4554151515 1515151515 1155444162 1456115345 7146471100 4645644350 4053457167 T LABELrrrrrrrrtMDAR'NtKEYFGt FETCH KEYW
       5762444046 5441476315 1141625463 1124110063 6441644555 4556644045 5551646340 4357444540 ORD FLAGSrtARLSt4t STATEMENT EMITS CODE 
       1215151515 1152634156 1154635457 4311005657 3440634166 4540545743 4043576556 6445624046 ?rrrrtJSANtLSLOCt NO, SAVE LOC COUNTER F
       5762405451 6364515647 1515151515 1152655560 1163434156 2122110052 6555604064 5740445163 OR LISTINGrrrrrtJUMPtSCAN12t JUMP TO DIS
       6041644350 1515151515 1515151515 1515151515 7777700000 4333661466 4333661466 4333661466 PATCHrrrrrrrrrrrrrrrbbX  C=V'VC=V'VC=V'V
       4333661466 4333661466 4333661466 4333661466 4333661466 4333661466 4333661466            C=V'VC=V'VC=V'VC=V'VC=V'VC=V'VC=V'V
 1545: 0001300011 4664562021 1361200447 3414400000 0040606245 3560625743 4563634045 7045436564  %8 tFTN01"Q0&G,'     PRE-PROCESS EXECUT
       4142544540 6364416445 5545566440 3636361515 1515151515 6343415621 2106151515 5146724562 ABLE STATEMENT ...rrrrrrrSCAN11:rrrIFZER
       5740662211 1111005156 4063454755 4556644544 4043575560 5154456234 1515151515 1155444162 O V2ttt IN SEGMENTED COMPILER,rrrrrtMDAR
       1446111652 6555602203 5017110040 4063456465 6040526555 6040645740 6062574345 6363405156 'Ft(JUMP2!H)t   SETUP JUMP TO PROCESS IN
       1515151515 1141625544 1163434156 2123110040 4040405766 4562544171 4022151515 4556444315 rrrrrtARMDtSCAN13t     OVERLAY 2rrrENDCr
       1155444162 1163426064 7111004254 5743534044 4164414063 6542606257 4762415540 1215151515 tMDARtSBPTYt BLOCK DATA SUBPROGRAM ?rrrr
       4253444562 0611526341 5611456262 5762110071 4563344045 6262576240 1641425762 6463404341 BKDER:tJSANtERRORt YES, ERROR (ABORTS CA
       6244171515 1111456225 2011004040 1651545445 4741544063 6441644555 4556644051 5640425457 RD)rrttER50t   (ILLEGAL STATEMENT IN BLO
       4353404441 6441171515 1515151515 1155444162 1151465441 4711004146 6445624054 5747514341 CK DATA)rrrrrrrtMDARtIFLAGt AFTER LOGICA
       5440514640 1215151515 1155444162 1441115756 4654471100 5762404146 6445624013 5756134063 L IF ?rrrrtMDAR'AtONFLGt OR AFTER "ON" S
       6441644555 4556644012 1515151515 1152604156 1136102215 1152655560 1163434156 2122110063 TATEMENT ?rrrrrtJPANt.+2rtJUMPtSCAN12t S
       5351604051 4640714563 1515151515 1515151515 1152606362 1141545457 4311006045 6246576255 KIP IF YESrrrrrrrrrrtJPSRtALLOCt PERFORM
       4041567140 6045564451 5647406371 5542575440 4154545743 4164145615 1152606362 1144575044  ANY PENDING SYMBOL ALLOCAT'NrtJPSRtDOHD
       6211005765 6460656440 5045414445 6240435744 4540514640 6045564451 5647151515 1155444162 Rt OUTPUT HEADER CODE IF PENDINGrrrtMDAR
       1154414245 5411005657 4063644164 4555455664 4054414245 5440121515 1155447057 1441114654 tLABELt NO STATEMENT LABEL ?rrtMDXO'AtFL
       5767461100 4156444046 5457674056 5764406345 6440121515 1152634156 1145626257 6211007145 OWFt AND FLOW NOT SET ?rrtJSANtERRORt YE
       6334406741 6256515647 4045626257 6215151515 1111456221 2311004040 1663644164 4555455664 S, WARNING ERRORrrrrttER13t   (STATEMENT
       4063505765 5444404245 4054414245 5454454417 1515151515 1515151515 0040445163 6041644350  SHOULD BE LABELLED)rrrrrrrrrr  DISPATCH
       4064574060 6257434563 6351564740 6257656451 5645403636 3615151515 1515151515 6343415621  TO PROCESSING ROUTINE ...rrrrrrrrrSCAN1
       2206115544 4162115345 7146471100 6062574345 6363515647 4062576564 5156454051 5560544555 2:tMDARtKEYFGt PROCESSING ROUTINE IMPLEM
       4556644544 4012151515 1152605463 1136102311 0071456334 4063535160 1515151515 1515151515 ENTED ?rrrtJPLSt.+3t YES, SKIPrrrrrrrrrr
       1152606362 1145626257 6211005657 3440456262 5762401641 4257626463 4043416244 1715151515 tJPSRtERRORt NO, ERROR (ABORTS CARD)rrrr
       1111456221 2611004040 1643575560 5154456240 4341561464 4050415644 5445406364 4164455545 ttER16t   (COMPILER CAN'T HANDLE STATEME
       5664171515 5146724562 5740662115 1152604156 1163434156 2122411100 6353516040 5146406041 NT)rrIFZERO V1rtJPANtSCAN12At SKIP IF PA
       6264514154 4053457167 5762441515 4554634511 5260415611 6343415621 2415151515 4556444315 RTIAL KEYWORDrrELSEtJPANtSCAN14rrrrENDCr
       1141624162 1450144611 1100474564 4053457167 5762444046 5441476315 1155444162 1441144611 tARAR'H'Ftt GET KEYWORD FLAGSrtMDAR'A'Ft
       2420110063 6045435141 5440515664 6251566351 4340466556 4364515756 4043415454 4012151515 40t SPECIAL INTRINSIC FUNCTION CALL ?rrr
       1152605463 1147624663 4270110071 4563344052 6555604064 5740606257 4345636315 1515151515 tJPLStGRFSBXt YES, JUMP TO PROCESSrrrrrr
       6343415621 2241061155 4441621450 1153457146 4711004554 6345344046 4564435040 5345716757 SCAN12A:tMDAR'HtKEYFGt ELSE, FETCH KEYWO
       6244406441 4254454045 5664627115 1155444162 1441145011 4155416353 1100554163 5340445163 RD TABLE ENTRYrtMDAR'A'HtAMASKt MASK DIS
       6041644350 4041444462 4563631515 5146724562 5740662115 1155444163 1446112420 1100465762 PATCH ADDRESSrrIFZERO V1rtMDAS'Ft40t FOR
       5540526555 6040515663 6462654364 5157561515 1141625162 1450144611 1100526555 6040645740 M JUMP INSTRUCTIONrrtARIR'H'Ftt JUMP TO 
       6062574345 6363406364 4164455545 5664151515 4554634515 1155444163 1163434156 2123110046 PROCESS STATEMENTrrrELSErtMDAStSCAN13t F
       5762554057 6645625441 7140526555 6040515663 6462654364 5157561515 1141625544 1450113610 ORM OVERLAY JUMP INSTRUCTIONrrtARMD'Ht.+
       2211006341 6645404657 6240576645 6254417140 5457414445 6215151515 1152606362 1146576662 2t SAVE FOR OVERLAY LOADERrrrrtJPSRtFOVR
       5471110044 5163604164 4350406457 4057664562 5441714062 5765645156 4515151515 6343415621 LYt DISPATCH TO OVERLAY ROUTINErrrrSCAN1
       2306115265 5560111100 5766456254 4171405657 3640415644 4044516360 4164435040 5156636462 3:tJUMPtt OVERLAY NO. AND DISPATCH INSTR
       1515151515 1515151515 7777700000 2345443474 2345443474 2345443474 2345443474 2345443474 rrrrrrrrrrbbX  3ED,#3ED,#3ED,#3ED,#3ED,#
       2345443474 2345443474 2345443474 2345443474 2345443474                                  3ED,#3ED,#3ED,#3ED,#3ED,#
 1255: 0001400011 4664562021 1361200355 3414400000 6343415621 2406115544 4162144114 5411110051  %  tFTN01"Q0!M,'   SCAN14:tMDAR'A'Ltt I
       4640604162 6451415440 5345716757 6244344055 4163534044 5163604164 4350151515 1123272020 F PARTIAL KEYWORD, MASK DISPATCHrrrt3700
       2003501127 2727272711 0040404144 4462456363 4041564440 5766456254 4171405657 3615151515 0!Ht77777t   ADDRESS AND OVERLAY NO.rrrr
       1155444162 1457145011 4324201100 4657625540 5265556040 5156636462 6543645157 5615151515 tMDAR'O'HtC40t FORM JUMP INSTRUCTIONrrrr
       1141625544 1163434156 2123110041 5644406341 6645404657 6240576645 6254417140 5457414445 tARMDtSCAN13t AND SAVE FOR OVERLAY LOADE
       6215151515 1141624162 1453144611 1100624563 5144456340 5156406245 6351444556 6440121515 RrrrrtARAR'K'Ftt RESIDES IN RESIDENT ?rr
       1155444162 1441144611 2727151515 1152605463 1163434156 2123352111 0056573440 5265556040 tMDAR'A'Ft77rrrtJPLStSCAN13-1t NO, JUMP 
       6457405457 4144405766 4562544171 4041564440 4556644562 1515151515 1155445162 1163434156 TO LOAD OVERLAY AND ENTERrrrrrtMDIRtSCAN
       2123110045 5463453440 5265636440 4451636041 6443504064 5740606257 4345636315 4556444315 13t ELSE, JUST DISPATCH TO PROCESSrENDCr
       1515151515 1515151515 0040515651 6451415451 7245404657 6240636441 6445554556 6440634341 rrrrrrrrrr  INITIALIZE FOR STATEMENT SCA
       5615151515 1515151515 6343415651 0611526555 6011361100 4556646271 1515151515 1141627057 NrrrrrrrrrSCANI:tJUMPt.t ENTRYrrrrrtARXO
       1446111100 4354454162 4036363615 1141625544 1163434156 4611004040 6343415640 5557444540 'Ftt CLEAR ...rtARMDtSCANFt   SCAN MODE 
       4654414715 1141625544 1150575446 4711004040 5057545445 6251645040 4570604156 6351575640 FLAGrtARMDtHOLFGt   HOLLERITH EXPANSION 
       4654414715 1141625544 1147436363 6611004040 6341664544 4063644164 4555455664 4043504162 FLAGrtARMDtGCSSVt   SAVED STATEMENT CHAR
       4143644562 4046544147 1515151515 1141625544 1147436350 4611004040 4556444057 4640434162 ACTER FLAGrrrrrtARMDtGCSHFt   END OF CAR
       4440505754 5445625164 5040465441 4715151515 1141625544 1147436360 5311004040 4657625541 D HOLLERITH FLAGrrrrtARMDtGCSPKt   FORMA
       6440604143 5351564740 5057575315 1141625544 1163715563 6611004040 6341664544 4063715542 T PACKING HOOKrtARMDtSYMSVt   SAVED SYMB
       5754151515 1155444162 1152634743 6311006345 6465604056 5762554154 4047456440 4350416241 OLrrrtMDARtJSGCSt SETUP NORMAL GET CHARA
       4364456240 4341545415 1141625544 1147566555 2311004040 5156404756 6555406257 6564515645 CTER CALLrtARMDtGNUM3t   IN GNUM ROUTINE
       1515151515 1155445162 1163434156 5111006245 6465625615 1515151515 1515151515 0040515651 rrrrrtMDIRtSCANIt RETURNrrrrrrrrrrr  INI
       6451415451 7245404657 6240455551 6363515756 4057464045 7045436564 4142544540 4357444515 TIALIZE FOR EMISSION OF EXECUTABLE CODEr
       1515151515 4555516451 0611526555 6011361100 4556646271 1515151515 1141627057 1446111100 rrrrrEMITI:tJUMPt.t ENTRYrrrrrtARXO'Ftt 
       4354454162 4036363615 1141625544 1144465442 4611004040 5441424554 4044454651 5645441515 CLEAR ...rtARMDtDFLBFt   LABEL DEFINEDrr
       1141625544 1163456441 5510211100 4040634564 4155405057 5753151515 1141625544 1457115146 tARMDtSETAM+1t   SETAM HOOKrrrtARMD'OtIF
       5441471100 6345644056 5740545747 5143415440 5146151515 1141625544 1457115756 4654471100 LAGt SET NO LOGICAL IFrrrtARMD'OtONFLGt 
       6345644056 5740135756 1340636441 6445554556 6415151515 1155444162 1164455544 5711006245 SET NO "ON" STATEMENTrrrrtMDARtTEMDOt RE
       6345644064 4555604066 4162514142 5445406057 5156644562 1515151515 1141625544 1164455560 SET TEMP VARIABLE POINTERrrrrrtARMDtTEMP
       6411004040 6457405541 6253404164 4064576040 5746405441 6364404457 4054575760 1515151515 Tt   TO MARK AT TOP OF LAST DO LOOPrrrrr
       1155444162 1150466245 6011004555 6064714060 5754516350 4063644143 5315151515 1141625544 tMDARtHFREPt EMPTY POLISH STACKrrrrtARMD
       1160466245 6015151515 1155445162 1145555164 5111006245 6465625615 1515151515 1515151515 tPFREPrrrrtMDIRtEMITIt RETURNrrrrrrrrrrr
       7777700000 6354130067 6354130067 6354130067 6354130067 6354130067 6354130067 6354130067 bbX  SL" WSL" WSL" WSL" WSL" WSL" WSL" W
       6354130067 6354130067 6354130067                                                        SL" WSL" WSL" W
  850: 0001500011 4664562021 1361200234 3414400000 0040434154 5440636441 6445554556 6440606245  %H tFTN01"Q0c,,'     CALL STATEMENT PRE
       3560625743 4563635762 4036363615 1515151515 4341545460 0611526063 6211425463 5360110063 -PROCESSOR ...rrrrrrCALLP:tJPSRtBLSKPt S
       5351604044 4554515540 5146404254 4156531515 1141627057 1446111100 6245634564 4063434156 KIP DELIM IF BLANKrrtARXO'Ftt RESET SCAN
       4055574445 1515151515 1141625544 1163434156 4615151515 1152606362 1147637155 4111004745  MODErrrrrtARMDtSCANFrrrrtJPSRtGSYMAt GE
       6440134341 5454454413 4063715542 5754151515 1155444162 1163715542 4611004156 7140606245 T "CALLED" SYMBOLrrrtMDARtSYMBFt ANY PRE
       4651704012 1515151515 1152605463 1143415460 2111007145 6334406353 5160151515 1515151515 FIX ?rrrrrtJPLStCALP1t YES, SKIPrrrrrrrr
       1152606362 1163656263 7155110063 4541624350 4046576240 6371554257 5440515640 6371554257 tJPSRtSURSYMt SEARCH FOR SYMBOL IN SYMBO
       5440644142 5445151515 1152655560 1143415460 2211006353 5160405146 4056576440 4657655644 L TABLErrrtJUMPtCALP2t SKIP IF NOT FOUND
       1515151515 1515151515 1155444162 1163556471 4611004657 6556443440 6471604540 6556535657 rrrrrrrrrrtMDARtSMTYFt FOUND, TYPE UNKNO
       6756401215 1154637057 1143241100 5762406365 4262576564 5156454012 1515151515 1152605463 WN ?rtLSXOtC4t OR SUBROUTINE ?rrrrrtJPLS
       1143415460 2211005657 3440556563 6440424540 5156636462 5156635143 4053457167 5762441515 tCALP2t NO, MUST BE INSTRINSIC KEYWORDrr
       1515151515 4341546021 0611416255 4414571163 7155636611 0045546345 3440634166 4540637155 rrrrrCALP1:tARMD'OtSYMSVt ELSE, SAVE SYM
       4257541515 1155444162 1153457143 5411004645 6443504043 4154544063 6441644555 4556644046 BOLrrtMDARtKEYCLt FETCH CALL STATEMENT F
       5441476315 1152655560 1163434156 3011005265 5560404241 4353405156 6457406343 4156151515 LAGSrtJUMPtSCAN8t JUMP BACK INTO SCANrrr
       1515151515 4341546022 0611526063 6211636562 5156631100 5156636462 5156635143 4063654262 rrrrrCALP2:tJPSRtSURINSt INSTRINSIC SUBR
       5765645156 4540121515 1152655560 1143415460 2111005657 3440556563 6440424540 6365426257 OUTINE ?rrtJUMPtCALP1t NO, MUST BE SUBRO
       6564515645 1515151515 1515151515 1141625544 1457116343 4156461100 7145633440 6345644063 UTINErrrrrrrrrrtARMD'OtSCANFt YES, SET S
       4341564055 5744454041 4741515615 1141625544 1457115143 4154461100 6345644051 5664625156 CAN MODE AGAINrtARMD'OtICALFt SET INTRIN
       6351434063 6542404341 5454454440 4654414715 1152655560 1163434156 2411005265 5560404241 SIC SUB CALLED FLAGrtJUMPtSCAN4t JUMP BA
       4353406457 4060625743 4563634053 4571675762 4415151515 1515151515 1515151515 7777700000 CK TO PROCESS KEYWORDrrrrrrrrrrrrrrbbX  
       5607616436 5607616436 5607616436 5607616436 5607616436 5607616436 5607616436 5607616436 N_QT.N_QT.N_QT.N_QT.N_QT.N_QT.N_QT.N_QT.
       5607616436 5607616436                                                                   N_QT.N_QT.
 1200: 0001600011 4664562021 1361200342 3414400000 0040606257 4345636340 4556444057 4640644570  %P tFTN01"Q0!B,'     PROCESS END OF TEX
       6440363636 1515151515 1515151515 4564704344 0611526063 6211624344 6264110062 4564656256 T ...rrrrrrrrrrETXCD:tJPSRtRCDRTt RETURN
       4041564440 6345644056 4570644043 4162444044 5163604164 4350151515 1515151515 4564704321  AND SET NEXT CARD DISPATCHrrrrrrrrETXC1
       0611554441 6214561157 6064464711 0057656460 6564406364 4162644544 4012151515 1152634156 :tMDAR'NtOPTFGt OUTPUT STARTED ?rrrtJSAN
       1145626257 6211005657 3440456262 5762401664 4562555156 4154171515 1111456225 2711004040 tERRORt NO, ERROR (TERMINAL)rrttER57t   
       1656574063 6441644555 4556646340 5156406365 4260625747 6241551715 1515151515 1152606362 (NO STATEMENTS IN SUBPROGRAM)rrrrrrtJPSR
       1145626257 6211007145 6334406741 6256515647 4045626257 6215151515 1111456225 2611004040 tERRORt YES, WARNING ERRORrrrrttER56t   
       1645564440 6364416445 5545566440 5551636351 5647171515 1515151515 5146724562 5740662234 (END STATEMENT MISSING)rrrrrrrIFZERO V2,
       1152606362 1146576662 5471114556 4443151515 1152655560 2111455644 6311005265 5560404163 tJPSRtFOVRLYtENDCrrrtJUMP1tENDSt JUMP AS
       4051464045 5644406364 4164455545 5664406062 4563455664 1515151515 1515151515 1515151515  IF END STATEMENT PRESENTrrrrrrrrrrrrrrr
       0040606257 4345636340 1345564413 4053457167 5762444036 3636151515 1515151515 4556446006   PROCESS "END" KEYWORD ...rrrrrrrrENDP:
       1155444162 1163435041 6211004645 6443504044 4554515545 6445621515 1155447057 1446112125 tMDARtSCHARt FETCH DELIMETERrrtMDXO'Ft15
       1100433762 4012151515 1152605463 1145564460 2111005657 3440526555 6040645740 4350454353 t C/R ?rrrtJPLStENDP1t NO, JUMP TO CHECK
       4046576240 1345564440 4651544513 1515151515 1515151515 1155444162 1456115760 6446471100  FOR "END FILE"rrrrrrrrrrtMDAR'NtOPTFGt 
       5445474154 4045564440 6364555664 3440576564 6065644063 6441626445 4440121515 1152604156 LEGAL END STMNT, OUTPUT STARTED ?rrtJPAN
       1145647043 2111005657 3440526555 6040465762 4045626257 6215151515 1515151515 1155444162 tETXC1t NO, JUMP FOR ERRORrrrrrrrrrtMDAR
       1153457156 4411007145 6334404645 6443504046 5441476340 4657624045 5644406364 4164455545 tKEYNDt YES, FETCH FLAGS FOR END STATEME
       5664151515 1152655560 1163434156 3011004156 4440526555 6040645740 6062574345 6363151515 NTrrrtJUMPtSCAN8t AND JUMP TO PROCESSrrr
       1515151515 4556446021 0611526063 6211435345 7160110060 4162645141 5440534571 6757624440 rrrrrENDP1:tJPSRtCKEYPt PARTIAL KEYWORD 
       4657545457 6745444042 7140134651 5445134012 1515151515 1164457064 1137465154 4537151515 FOLLOWED BY "FILE" ?rrrrrtTEXTt/FILE/rrr
       1111201515 1155444162 1153457156 4611007145 6334404645 6443504046 5441476340 4657624013 tt0rrtMDARtKEYNFt YES, FETCH FLAGS FOR "
       4556444651 5445131515 1515151515 1152606362 1143534571 6011006041 6264514154 4053457167 ENDFILE"rrrrrrrtJPSRtCKEYPt PARTIAL KEYW
       5762444046 5754545767 4544404271 4013444164 4113401215 1164457064 1137444164 4137151515 ORD FOLLOWED BY "DATA" ?rtTEXTt/DATA/rrr
       1111201515 1155444162 1153715644 4111007145 6334404645 6443504046 5441476340 4657624013 tt0rrtMDARtKYNDAt YES, FETCH FLAGS FOR "
       4556444441 6441131515 1515151515 1152606362 1143534571 6011006041 6264514154 4053457167 ENDDATA"rrrrrrrtJPSRtCKEYPt PARTIAL KEYW
       5762444046 5754545767 4544404271 4013545163 6413401215 1164457064 1137545163 6437151515 ORD FOLLOWED BY "LIST" ?rtTEXTt/LIST/rrr
       1111201515 1155444162 1153715644 5411007145 6334404645 6443504046 5441476340 4657624013 tt0rrtMDARtKYNDLt YES, FETCH FLAGS FOR "
       4556445451 6364131515 1515151515 1152655560 1153457145 6211005657 3440534571 6757624440 ENDLIST"rrrrrrrtJUMPtKEYERt NO, KEYWORD 
       5657644062 4543574756 5172454415 1515151515 1515151515 7777700000 3616604301 3616604301 NOT RECOGNIZEDrrrrrrrrrrrbbX  .(PC%.(PC%
       3616604301 3616604301 3616604301 3616604301 3616604301 3616604301 3616604301 3616604301 .(PC%.(PC%.(PC%.(PC%.(PC%.(PC%.(PC%.(PC%
 1405: 0001700011 4664562021 1361200413 3414400000 0040435045 4353404657 6240636054 5164405345  %X tFTN01"Q0&",'     CHECK FOR SPLIT KE
       7167576244 1515151515 0040404016 6467574041 6247655545 5664406757 6244634043 5756644151 YWORDrrrrr    (TWO ARGUMENT WORDS CONTAI
       5640644570 6440636462 5156474046 5762402256 4440604162 6440574640 6360545164 4053457167 N TEXT STRING FOR 2ND PART OF SPLIT KEYW
       5762441715 0040404016 2362444041 6247655545 5664404357 5664415156 6340515663 6462406457 ORD)r    (3RD ARGUMENT CONTAINS INSTR TO
       4046456443 5040534571 6757624440 4654414763 3440514640 4657655644 1715151515 0040404062  FETCH KEYWORD FLAGS, IF FOUND)rrrr    R
       4564656256 6340363636 1515151515 0040404040 4051464044 4554515545 6445624056 5764404254 ETURNS ...rrrrr      IF DELIMETER NOT BL
       4156533440 6245646562 5663401656 5764404140 6360545164 4053457167 5762441715 0040404040 ANK, RETURNS (NOT A SPLIT KEYWORD)r     
       4051464063 6054516440 5345716757 6244406645 6251465145 4434405265 5560634042 4143534064  IF SPLIT KEYWORD VERIFIED, JUMPS BACK T
       5740634341 5640656351 5647404162 4765554556 6440465441 4763151515 0040404040 4045546345 O SCAN USING ARGUMENT FLAGSrrr      ELSE
       3440624564 6562566340 6751645040 6371554257 5440634166 4544406457 4041545457 6740415657 , RETURNS WITH SYMBOL SAVED TO ALLOW ANO
       6450456240 4350454353 1515151515 1515151515 4353457160 0611526555 6011361100 4556646271 THER CHECKrrrrrrrrrrCKEYP:tJUMPt.t ENTRY
       1515151515 1155444162 1163715563 6611006371 5542575440 4154624541 4471406341 6645444012 rrrrrtMDARtSYMSVt SYMBOL ALREADY SAVED ?
       1515151515 1152604156 1136102411 0071456334 4063535160 1515151515 1515151515 1155444162 rrrrrtJPANt.+4t YES, SKIPrrrrrrrrrrtMDAR
       1163435041 6211004445 5451554564 4562403340 4254415653 4012151515 1155447057 1446112420 tSCHARt DELIMETER = BLANK ?rrrtMDXO'Ft40
       1515151515 1152605463 1143534571 2111005657 3440526555 6040645740 6245646562 5615151515 rrrrrtJPLStCKEY1t NO, JUMP TO RETURNrrrr
       1515151515 1152606362 1147637155 4111004745 6440564570 6440415460 5041554562 5143406371 rrrrrtJPSRtGSYMAt GET NEXT ALPHAMERIC SY
       5542575415 1155444162 1450116371 5542231100 5557624540 6450415640 6445564043 5041626340 MBOLrtMDAR'HtSYMB3t MORE THAN TEN CHARS 
       1215151515 1152605463 1147634562 2111007145 6334404562 6257621515 1515151515 1155444162 ?rrrrtJPLStGSER1t YES, ERRORrrrrrrrtMDAR
       1163715542 2111005657 3440464564 4350402163 6440637155 4257544067 5762441515 1155447057 tSYMB1t NO, FETCH 1ST SYMBOL WORDrrtMDXO
       1451114353 4571601100 4357556041 6245406751 6450402163 6440416247 6555455664 1515151515 'ItCKEYPt COMPARE WITH 1ST ARGUMENTrrrrr
       1141624162 1450145714 7011435345 7160110055 4164435040 1215151515 1154634162 1470114353 tARAR'H'O'XtCKEYPt MATCH ?rrrrtLSAR'XtCK
       4571601100 5657344051 5644457040 6457406245 6465625615 1152605463 1143534571 2211004156 EYPt NO, INDEX TO RETURNrtJPLStCKEY2t AN
       4440526555 6040645740 6341664540 6371554257 5415151515 1515151515 1155444162 1163715542 D JUMP TO SAVE SYMBOLrrrrrrrrrtMDARtSYMB
       2211007145 6334404645 6443504022 5644406371 5542575440 6757624415 1155447057 1451114353 2t YES, FETCH 2ND SYMBOL WORDrtMDXO'ItCK
       4571601100 5541644350 4563402256 4440416247 6555455664 4067576244 4012151515 1141624162 EYPt MATCHES 2ND ARGUMENT WORD ?rrrtARAR
       1450145714 7011435345 7160151515 1152605463 1143534571 2211005657 3440526555 6040645740 'H'O'XtCKEYPrrrtJPLStCKEY2t NO, JUMP TO 
       6341664540 6371554257 5440415644 4062456465 6256151515 1515151515 1155445162 1451114353 SAVE SYMBOL AND RETURNrrrrrrrrtMDIR'ItCK
       4571601100 7145633440 4645644350 4053457167 5762444046 5441476315 1152655560 1163434156 EYPt YES, FETCH KEYWORD FLAGSrtJUMPtSCAN
       3011004156 4440475740 6062574345 6363151515 1515151515 4353457121 0611554441 6211435345 8t AND GO PROCESSrrrrrrrrCKEY1:tMDARtCKE
       7160110021 6364406757 6244404445 5451554564 4562405657 6440425441 5653341515 1155444163 YPt 1ST WORD DELIMETER NOT BLANK,rrtMDAS
       1446112311 0051564445 7040624564 6562561515 1141625162 1446111100 4156444062 4564656256 'Ft3t INDEX RETURNrrtARIR'Ftt AND RETURN
       3440565764 4046576556 4415151515 1515151515 4353457122 0611416255 4414571163 7155636611 , NOT FOUNDrrrrrrrrrCKEY2:tARMD'OtSYMSVt
       0056574063 7155425754 4055416443 5034406341 6645406371 5542575415 1155445162 1470114353  NO SYMBOL MATCH, SAVE SYMBOLrtMDIR'XtCK
       4571601100 4156444062 4564656256 1515151515 1515151515 1515151515 7777700000 7631221512 EYPt AND RETURNrrrrrrrrrrrrrrrbbX  +92r?
       7631221512 7631221512 7631221512 7631221512 7631221512 7631221512 7631221512 7631221512 +92r?+92r?+92r?+92r?+92r?+92r?+92r?+92r?
       7631221512                                                                              +92r?
 1350: 0002000011 4664562021 1361200400 3414400000 0040534571 6757624440 4562625762 4036363615  c  tFTN01"Q0& ,'     KEYWORD ERROR ...r
       1515151515 5345714562 0611526063 6211456262 5762110046 4164415440 4562625762 4016414257 rrrrrKEYER:tJPSRtERRORt FATAL ERROR (ABO
       6264634043 4162441715 1111456221 2711004040 1653457167 5762444056 5764406245 4357475651 RTS CARD)rttER17t   (KEYWORD NOT RECOGNI
       7245441715 1515151515 1515151515 0040637156 6441704045 6262576240 3636361515 1515151515 ZED)rrrrrrrrrrr  SYNTAX ERROR ...rrrrrrr
       5154474350 0611554441 6211634350 4162110046 4564435040 4350416241 4364456215 1155447057 ILGCH:tMDARtSCHARt FETCH CHARACTERrtMDXO
       1446112125 1100433762 4012151515 1152635463 1145626257 6211007145 6334405154 5445474154 'Ft15t C/R ?rrrtJSLStERRORt YES, ILLEGAL
       4045564440 5746406364 4164455545 5664151515 1111456221 2215151515 1515151515 1152606362  END OF STATEMENTrrrttER12rrrrrrrrrtJPSR
       1145626257 6211005657 3440515454 4547415440 4350416240 4562625762 1515151515 1111456222 tERRORt NO, ILLEGAL CHAR ERRORrrrrrttER2
       2115151515 1515151515 1515151515 0040555163 6351564740 4357555541 4036363615 1515151515 1rrrrrrrrrrrrrr  MISSING COMMA ...rrrrrr
       4357554562 0611526555 6011361100 4556646271 1515151515 4350634166 0611416255 4414571147 COMER:tJUMPt.t ENTRYrrrrrCHSAV:tARMD'OtG
       4363636611 0063456440 6457406245 3562454144 4054416364 4043504162 4143644562 1515151515 CSSVt SET TO RE-READ LAST CHARACTERrrrrr
       1152606362 1145626257 6211006245 6057626440 4562625762 1515151515 1111456222 2215151515 tJPSRtERRORt REPORT ERRORrrrrrttER22rrrr
       1155445162 1143575545 6211006245 6465625640 6457404341 5454456215 1515151515 1515151515 tMDIRtCOMERt RETURN TO CALLERrrrrrrrrrrr
       0040635351 6040425441 5653404445 5451554564 4562403636 3615151515 1515151515 4254635360   SKIP BLANK DELIMETER ...rrrrrrrrrBLSKP
       0611526555 6011361100 4556646271 1515151515 1155444162 1163435041 6211004645 6443504054 :tJUMPt.t ENTRYrrrrrtMDARtSCHARt FETCH L
       4163644063 6441644555 4556644043 5041621515 1155447057 1446112420 1100516340 5164404140 AST STATEMENT CHARrrtMDXO'Ft40t IS IT A 
       4254415653 4012151515 1154635162 1143506341 6611005657 3440634564 4064574062 4535624541 BLANK ?rrrtLSIRtCHSAVt NO, SET TO RE-REA
       4440516415 1155445162 1142546353 6011007145 6334406245 6465625615 1515151515 1515151515 D ITrtMDIRtBLSKPt YES, RETURNrrrrrrrrrrr
       0040606257 4345636340 4144456064 3555574445 4043416244 4036363615 1515151515 4144604344   PROCESS ADEPT-MODE CARD ...rrrrrrADPCD
       0611526063 6211624344 6264110062 4564656256 4046625755 4062434440 4156444063 4564404341 :tJPSRtRCDRTt RETURN FROM RCD AND SET CA
       6244404463 6043501515 1152606362 1154636445 6211005451 6364404562 6257626340 5756405441 RD DSPCHrrtJPSRtLSTERt LIST ERRORS ON LA
       6364405451 5645151515 1155444162 1144416441 4611004441 6441224437 2344405557 4445401215 ST LINErrrtMDARtDATAFt DATA2D/3D MODE ?r
       1152634156 1145626257 6211007145 6334404641 6441544045 6262576215 1111456222 2221110040 tJSANtERRORt YES, FATAL ERRORrttER221t  
       4016414445 6064405557 4445405154 5445474154 4051564044 4164414044 4546145617 1515151515  (ADEPT MODE ILLEGAL IN DATA DEF'N)rrrrr
       1515151515 1152606362 1145555164 5111006062 4560416245 4046576240 4357444540 4555516363 rrrrrtJPSRtEMITIt PREPARE FOR CODE EMISS
       5157561515 1141625544 1457115441 4245541100 6345644056 5740636441 6445554556 6440544142 IONrrtARMD'OtLABELt SET NO STATEMENT LAB
       4554151515 1155444162 1456115760 6446471100 5765646065 6440636441 6264454440 7145644012 ELrrrtMDAR'NtOPTFGt OUTPUT STARTED YET ?
       1515151515 1152634156 1163554151 5611005657 3440416363 6555454046 5762645541 5156151515 rrrrrtJSANtSMAINt NO, ASSUME FORTMAINrrr
       1515151515 1152606362 1141545457 4311004154 5457434164 4540664162 5141425445 6315151515 rrrrrtJPSRtALLOCt ALLOCATE VARIABLESrrrr
       1152606362 1144575044 6211005765 6460656440 5045414445 6240435744 4534405146 4060455644 tJPSRtDOHDRt OUTPUT HEADER CODE, IF PEND
       5156471515 5146724562 5740662234 1152606362 1146576662 5471114556 4443151515 1152655560 INGrrIFZERO V2,tJPSRtFOVRLYtENDCrrrtJUMP
       2311414460 4344701100 5265556040 4657624041 4445606435 5557444540 6062574345 6363515647 3tADPCDXt JUMP FOR ADEPT-MODE PROCESSING
       1515151515 1515151515 1515151515 7777700000 1031105677 1031105677 1031105677 1031105677 rrrrrrrrrrrrrrrbbX  +9+Nb+9+Nb+9+Nb+9+Nb
       1031105677 1031105677 1031105677 1031105677 1031105677 1031105677                       +9+Nb+9+Nb+9+Nb+9+Nb+9+Nb+9+Nb
 1385: 0002100011 4664562021 1361200407 3414400000 0040474564 4056457064 4063576562 4345404350  c+ tFTN01"Q0&_,'     GET NEXT SOURCE CH
       4162414364 4562401655 5763644042 4163514340 5445664554 1715151515 0040404062 4564656256 ARACTER (MOST BASIC LEVEL)rrrr    RETURN
       6340363636 1515151515 0040404040 4016211740 4045564435 5746356445 7064151515 0040404040 S ...rrrrr      (1)  END-OF-TEXTrrr     
       4016221740 4043504162 4051564041 6240415644 4047435041 6215151515 1515151515 4743500611  (2)  CHAR IN AR AND GCHARrrrrrrrrrGCH:t
       5265556011 3611004556 6462711515 1155444162 1456114743 5063661100 5441636440 4350416240 JUMPt.t ENTRYrrtMDAR'NtGCHSVt LAST CHAR 
       6341664544 4012151515 1152604156 1136102411 0056573440 6353516015 1515151515 1141625544 SAVED ?rrrtJPANt.+4t NO, SKIPrrrrrrtARMD
       1147435063 6611007145 6334404354 4541624063 4166454046 5441471515 1155444162 1147435041 tGCHSVt YES, CLEAR SAVE FLAGrrtMDARtGCHA
       6211004645 6443504054 4163644043 5041624143 6445621515 1152655560 1136102211 0041564440 Rt FETCH LAST CHARACTERrrtJUMPt.+2t AND 
       6353516015 1515151515 3651435006 1152606362 1173514350 1100515660 6564405645 7064406357 SKIPrrrrrr.ICH:tJPSRt$ICHt INPUT NEXT SO
       6562434540 4350416215 1155447057 1446112727 1100272740 4357444540 1215151515 1152605463 URCE CHARrtMDXO'Ft77t 77 CODE ?rrrrtJPLS
       1136102411 0056573440 6353516015 1515151515 1141624162 1470114357 5463110071 4563344051 t.+4t NO, SKIPrrrrrrtARAR'XtCOLSt YES, I
       5644457040 4357546555 5640435765 5664456215 1152606362 1145626257 6211006445 6255515641 NDEX COLUMN COUNTERrtJPSRtERRORt TERMINA
       5440456262 5762151515 1111456221 1100404016 5154544547 4154404350 4162414364 4562171515 L ERRORrrrttER1t   (ILLEGAL CHARACTER)rr
       1515151515 1155447057 1446112727 1100624563 6457624540 4350416215 1141625544 1147435041 rrrrrtMDXO'Ft77t RESTORE CHARrtARMDtGCHA
       6211006341 6645151515 1155445162 1470114743 5011006245 6465625640 1622174067 5164504043 Rt SAVErrrtMDIR'XtGCHt RETURN (2) WITH C
       5041624051 5640416240 4156444047 4350416215 1515151515 4743504162 0611112011 0051566065 HAR IN AR AND GCHARrrrrrrGCHAR:tt0t INPU
       6440635765 6243454043 5041624143 6445621515 4743506366 0611112011 0063416645 4440435041 T SOURCE CHARACTERrrGCHSV:tt0t SAVED CHA
       6241436445 6240465441 4715151515 1515151515 1515151515 0040474564 4056457064 4063576562 RACTER FLAGrrrrrrrrrrrrrr  GET NEXT SOUR
       4345404350 4162406751 6450406445 6255515641 5440456262 5762405756 4045564440 5746406445 CE CHAR WITH TERMINAL ERROR ON END OF TE
       7064151515 1515151515 4743506406 1152655560 1136110045 5664627115 1152606362 1147435011 XTrrrrrrrrGCHT:tJUMPt.t ENTRYrtJPSRtGCHt
       0047456440 5645706440 6357656243 4540435041 6241436445 6215151515 1152655560 1136102211  GET NEXT SOURCE CHARACTERrrrrtJUMPt.+2t
       0063535160 4051464045 5644355746 3564457064 1515151515 1155445162 1147435064 1100455463  SKIP IF END-OF-TEXTrrrrrtMDIRtGCHTt ELS
       4534406245 6465625615 1152606362 1145626257 6211006445 6255515641 5440456262 5762151515 E, RETURNrtJPSRtERRORt TERMINAL ERRORrrr
       1111456222 1100404016 4556443557 4635644570 6440515640 5551444454 4540574640 5451564517 ttER2t   (END-OF-TEXT IN MIDDLE OF LINE)
       1515151515 1515151515 1515151515 0040606251 5740455644 3557463564 4570643745 6262576240 rrrrrrrrrrrrrrr  PRIO END-OF-TEXT/ERROR 
       5057575315 1515151515 4743455764 0611416241 6214501457 1446111100 4162405657 5635724562 HOOKrrrrrrGCEOT:tARAR'H'O'Ftt AR NON-ZER
       5740121515 1152605463 1136102311 0071456334 4063535160 1515151515 1515151515 1141625544 O ?rrtJPLSt.+3t YES, SKIPrrrrrrrrrrtARMD
       1457114564 7046471100 4554634534 4045564435 5746356445 7064344063 4564404654 4147151515 'OtETXFGt ELSE, END-OF-TEXT, SET FLAGrrr
       1155445162 1147435011 0041564440 6245646562 5640162117 4046625755 4047435015 1515151515 tMDIRtGCHt AND RETURN (1) FROM GCHrrrrrr
       1155447057 1446112511 0057604562 4164576240 4142576264 4012151515 1152635463 1145626257 tMDXO'Ft5t OPERATOR ABORT ?rrrtJSLStERRO
       6211005657 3440644562 5551564154 4045626257 6215151515 1111456223 1100404016 6062515740 Rt NO, TERMINAL ERRORrrrrttER3t   (PRIO 
       4451635340 4562625762 1715151515 1152606362 1145626257 6211007145 6334406445 6255515641 DISK ERROR)rrrrtJPSRtERRORt YES, TERMINA
       5440456262 5762151515 1111456224 1100404016 5760456241 6457624041 4257626417 1515151515 L ERRORrrrttER4t   (OPERATOR ABORT)rrrrr
       1515151515 1515151515 7777700000 2643453372 2643453372 2643453372 2643453372 2643453372 rrrrrrrrrrbbX  6CE=Z6CE=Z6CE=Z6CE=Z6CE=Z
       2643453372 2643453372 2643453372 2643453372 2643453372                                  6CE=Z6CE=Z6CE=Z6CE=Z6CE=Z
 1315: 0002200011 4664562021 1361200371 3414400000 0040474564 4046516263 6440435041 6241436445  c0 tFTN01"Q0!Y,'     GET FIRST CHARACTE
       6240466257 5540465762 6462415640 4341624415 0040404062 4564656256 6340363636 1515151515 R FROM FORTRAN CARDr    RETURNS ...rrrrr
       0040404040 4016211740 4045564435 5746356445 7064151515 0040404040 4016221740 4043376240       (1)  END-OF-TEXTrrr      (2)  C/R 
       1641546357 4051564047 4350416217 1515151515 0040404040 4016231740 4042544156 5340576240 (ALSO IN GCHAR)rrrrr      (3)  BLANK OR 
       6441424016 5156404162 4041564440 4743504162 1715151515 0040404040 4016241740 4057645045 TAB (IN AR AND GCHAR)rrrr      (4)  OTHE
       6240165156 4041624041 5644404743 5041621715 1515151515 4743434606 1152655560 1136110045 R (IN AR AND GCHAR)rrrrrrGCCF:tJUMPt.t E
       5664627115 1141627057 1446111100 4354454162 4036363615 1141625544 1143575463 1100404043 NTRYrtARXO'Ftt CLEAR ...rtARMDtCOLSt   C
       5754655556 4043576556 6445621515 1141625544 1147434363 6611004040 6341664544 4043416244 OLUMN COUNTERrrtARMDtGCCSVt   SAVED CARD
       4043504162 4143644562 4046544147 1515151515 1141625544 1147436441 4211004040 5156516451  CHARACTER FLAGrrrrrtARMDtGCTABt   INITI
       4154406441 4240465145 5444404654 4147151515 1141625544 1164414227 4611004040 6441424064 AL TAB FIELD FLAGrrrtARMDtTAB7Ft   TAB T
       5740435754 4027405756 5471404654 4147151515 1141625544 1154516446 4711004040 5451644562 O COL 7 ONLY FLAGrrrtARMDtLITFGt   LITER
       4154404570 6041566351 5756404654 4147151515 1515151515 1141624162 1470115456 4356641100 AL EXPANSION FLAGrrrrrrrrtARAR'XtLNCNTt 
       5156444570 4054515645 4043576556 6445621515 1152606362 1147435011 0047456440 5645706440 INDEX LINE COUNTERrrtJPSRtGCHt GET NEXT 
       6357656243 4540435041 6215151515 1155445162 1147434346 1100404062 4564656256 4016211740 SOURCE CHARrrrrtMDIRtGCCFt   RETURN (1) 
       5146404556 4435574635 6445706415 1515151515 1155444262 1450117360 6251576011 0060544143 IF END-OF-TEXTrrrrrrtMDBR'Ht$PRIOPt PLAC
       4540635765 6243454060 4147450350 4054515645 1515151515 1155444262 1457117360 6251575411 E SOURCE PAGE!H LINErrrrrtMDBR'Ot$PRIOLt
       0040405156 4042624054 5147506463 1515151515 1515151515 1155444162 1456114463 6046471100    IN BR LIGHTSrrrrrrrrrrtMDAR'NtDSPFGt 
       4451636054 4171515647 4012151515 1152604156 1147434346 2111005657 3440635351 6015151515 DISPLAYING ?rrrtJPANtGCCF1t NO, SKIPrrrr
       1515151515 1155444162 1146566367 6311007145 6334404645 6443504057 5444406367 5164435045 rrrrrtMDARtFNSWSt YES, FETCH OLD SWITCHE
       6340645740 4162151515 1155445143 1457145011 4324201100 6345644064 5740624541 4440465663 S TO ARrrrtMDIC'O'HtC40t SET TO READ FNS
       4021352125 1515151515 1163255544 1450114656 6367631100 6341664540 5645674063 6751644350  1-15rrrrrtS5MD'HtFNSWSt SAVE NEW SWITCH
       4563151515 1155447057 1457114656 6367631100 4745644060 5763516451 6645406462 4156635164 ESrrrtMDXO'OtFNSWSt GET POSITIVE TRANSIT
       5157566315 1155444162 1441144611 2127272727 1100554163 5340465663 4023352125 1515151515 IONSrtMDAR'A'Ft17777t MASK FNS 3-15rrrrr
       1152605463 1147434346 2211006353 5160405146 4041567140 6367516443 5045634050 5164151515 tJPLStGCCF2t SKIP IF ANY SWITCHES HITrrr
       1515151515 4743434621 0611554441 6214701147 4343461100 5156444570 4062456465 6256405457 rrrrrGCCF1:tMDAR'XtGCCFt INDEX RETURN LO
       4341645157 5615151515 1141625544 1147434311 0063416645 4046576240 6245646562 5640466257 CATIONrrrrtARMDtGCCt SAVE FOR RETURN FRO
       5540474343 1515151515 1155444162 1147435041 6211004645 6443504043 5041621515 1152655560 M GCCrrrrrtMDARtGCHARt FETCH CHARrrtJUMP
       1147434323 1100526555 6040515664 5740474343 4064574060 6257434563 6315151515 1515151515 tGCC3t JUMP INTO GCC TO PROCESSrrrrrrrrr
       4743434622 0611526063 6211734463 6067641100 5756406367 5164435040 5051643440 4451636054 GCCF2:tJPSRt$DSPWTt ON SWITCH HIT, DISPL
       4171406343 6245455615 1152606362 1144636743 5311005756 4046566340 5051643440 4350454353 AY SCREENrtJPSRtDSWCKt ON FNS HIT, CHECK
       4046576240 5451636463 1515151515 1152655560 1147434346 2111006450 4556405265 5560406457  FOR LISTSrrrrrtJUMPtGCCF1t THEN JUMP TO
       4043575664 5156654515 1515151515 1515151515 7777700000 0240255753 0240255753 0240255753  CONTINUErrrrrrrrrrrbbX  c 5OKc 5OKc 5OK
       0240255753 0240255753 0240255753 0240255753 0240255753 0240255753 0240255753            c 5OKc 5OKc 5OKc 5OKc 5OKc 5OKc 5OK
 1280: 0002300011 4664562021 1361200362 3414400000 0040474564 4056457064 4043504162 4143644562  c8 tFTN01"Q0!R,'     GET NEXT CHARACTER
       4046625755 4046576264 6241564043 4162441515 0040404062 4564656256 6340363636 1515151515  FROM FORTRAN CARDrr    RETURNS ...rrrrr
       0040404040 4016211740 4043376240 1641546357 4051564047 4350416217 1515151515 0040404040       (1)  C/R (ALSO IN GCHAR)rrrrr     
       4016221740 4042544156 5340576240 6441424016 5156404162 4041564440 4743504162 1715151515  (2)  BLANK OR TAB (IN AR AND GCHAR)rrrr
       0040404040 4016231740 4057645045 6240165156 4041624041 5644404743 5041621715 1515151515       (3)  OTHER (IN AR AND GCHAR)rrrrrr
       4743430611 5265556011 3611004556 6462711515 1155444162 1456114743 4363661100 5441636440 GCC:tJUMPt.t ENTRYrrtMDAR'NtGCCSVt LAST 
       4350416240 6341664544 4012151515 1152604156 1147434321 1100565734 4063535160 1515151515 CHAR SAVED ?rrrtJPANtGCC1t NO, SKIPrrrrr
       1515151515 1141625544 1147434363 6611007145 6334404354 4541624063 4166454440 4350416240 rrrrrtARMDtGCCSVt YES, CLEAR SAVED CHAR 
       4654414715 1155444162 1147435041 6211004645 6443504043 5041621515 1155447057 1446112125 FLAGrtMDARtGCHARt FETCH CHARrrtMDXO'Ft15
       1100433762 4012151515 1152605463 1147434326 1100565734 4052655560 4064574043 5045435340 t C/R ?rrrtJPLStGCC6t NO, JUMP TO CHECK 
       4657624064 4142405762 4063604143 4515151515 1515151515 1155445162 1147434311 0071456334 FOR TAB OR SPACErrrrrrrrrtMDIRtGCCt YES,
       4062456465 6256401621 1715151515 1515151515 4743432106 1155444162 1147436441 4211006360  RETURN (1)rrrrrrrrrGCC1:tMDARtGCTABt SP
       4143515647 4065604064 5740515651 6451415440 6441424012 1515151515 1152605463 1147434324 ACING UP TO INITIAL TAB ?rrrrrtJPLStGCC4
       1100714563 3440526555 6015151515 1515151515 4743432206 1152606362 1147435064 1100464564 t YES, JUMPrrrrrrrrrGCC2:tJPSRtGCHTt FET
       4350405645 7064406357 6562434540 4350416240 1645576440 5154544547 4154171515 1515151515 CH NEXT SOURCE CHAR (EOT ILLEGAL)rrrrrrr
       4743432306 1155447057 1446112125 1100433762 4012151515 1152605463 1136102211 0056573440 GCC3:tMDXO'Ft15t C/R ?rrrtJPLSt.+2t NO, 
       6353516015 1515151515 1155445162 1147434311 0071456334 4062456465 6256401621 1715151515 SKIPrrrrrrtMDIRtGCCt YES, RETURN (1)rrrr
       1515151515 1155447057 1446112125 1421211100 6441424012 1515151515 1152605463 1147434325 rrrrrtMDXO'Ft15'11t TAB ?rrrrrtJPLStGCC5
       1100565734 4052655560 1515151515 1515151515 1155444162 1456114357 5463110071 4563344060 t NO, JUMPrrrrrrrrrrtMDAR'NtCOLSt YES, P
       4163644043 5754655556 4026401215 1155444163 1446112615 1155444162 1457114144 6064461100 AST COLUMN 6 ?rtMDAS'Ft6rtMDAR'OtADPTFt 
       5762405156 4041444560 6440555744 4540121515 1152604156 1147434325 1100714563 3440635351 OR IN ADEPT MODE ?rrtJPANtGCC5t YES, SKI
       6040166441 4240516340 6351475651 4651434156 6417151515 1515151515 1155444162 1446112511 P (TAB IS SIGNIFICANT)rrrrrrrrtMDAR'Ft5t
       0063456440 6441424046 5145544440 4556444064 5740435754 4025151515 1141625544 1147436441  SET TAB FIELD END TO COL 5rrrtARMDtGCTA
       4215151515 1152606362 1147435064 1100474564 4056457064 4043504162 1515151515 1141625544 BrrrrtJPSRtGCHTt GET NEXT CHARrrrrrtARMD
       1147436442 6311006341 6645405164 1515151515 1515151515 1155447057 1456114322 2011005645 tGCTBSt SAVE ITrrrrrrrrrrtMDXO'NtC20t NE
       7064404350 4162405657 6440566555 4562514340 1215151515 1155444163 1446112120 3615151515 XT CHAR NOT NUMERIC ?rrrrtMDAS'Ft10.rrrr
       1155444162 1457116441 4227461100 5762405565 6364404154 6741716340 6441424064 5740435754 tMDAR'OtTAB7Ft OR MUST ALWAYS TAB TO COL
       4027401215 1141564162 1470114743 6441421100 7145633440 5156444570 4045564440 6441424043  7 ?rtANAR'XtGCTABt YES, INDEX END TAB C
       5754655556 1515151515 1515151515 1155444162 1143242011 0063456440 4350416240 6457406245 OLUMNrrrrrrrrrrtMDARtC40t SET CHAR TO RE
       6465625640 6457404254 4156531515 1141625544 1147435041 6215151515 1155444162 1147436441 TURN TO BLANKrrtARMDtGCHARrrrrtMDARtGCTA
       4211004645 6443504064 4142404357 5465555615 1515151515 7777700000 2521475765 2521475765 Bt FETCH TAB COLUMNrrrrrrbbX  51GOU51GOU
       2521475765 2521475765 2521475765 2521475765 2521475765 2521475765 2521475765 2521475765 51GOU51GOU51GOU51GOU51GOU51GOU51GOU51GOU
  905: 0002400011 4664562021 1361200247 3414400000 4743432406 1155447057 1143575463 1100436562  c  tFTN01"Q0cG,'   GCC4:tMDXOtCOLSt CUR
       6240435754 4033405441 6364405156 4064414240 4651455444 4012151515 1152605463 1147434325 R COL = LAST IN TAB FIELD ?rrrtJPLStGCC5
       1100565734 4047574062 4564656256 4042544156 5315151515 1515151515 1141625544 1147436441 t NO, GO RETURN BLANKrrrrrrrrrtARMDtGCTA
       4211007145 6334406245 6345644064 4142404654 4147151515 1155444162 1147436442 6311004645 Bt YES, RESET TAB FLAGrrrtMDARtGCTBSt FE
       6443504063 4166454440 4350416215 1141625544 1147435041 6211006345 6440416340 4365626245 TCH SAVED CHARrtARMDtGCHARt SET AS CURRE
       5664151515 1152655560 1147434323 1100526555 6040645740 6062574345 6363151515 1515151515 NTrrrtJUMPtGCC3t JUMP TO PROCESSrrrrrrrr
       4743432506 1155444162 1154636446 4711005451 6364515647 4063576562 4345406364 4164455545 GCC5:tMDARtLSTFGt LISTING SOURCE STATEME
       5664634012 1515151515 1152634156 1154435063 6611007145 6334406341 6645404350 4162404657 NTS ?rrrrrtJSANtLCHSVt YES, SAVE CHAR FO
       6240545163 6451564715 1515151515 1155444162 1470145611 4357546311 0042655560 4043575465 R LISTINGrrrrrrtMDAR'X'NtCOLSt BUMP COLU
       5556405657 3615151515 1155444163 1446112723 3611006041 6364404357 5465555640 2722401215 MN NO.rrrrtMDAS'Ft73.t PAST COLUMN 72 ?r
       1152604156 1147434322 1100714563 3440526555 6040465762 4056457064 4016635351 6040645740 tJPANtGCC2t YES, JUMP FOR NEXT (SKIP TO 
       4337621715 1515151515 4743432606 1155444162 1147435041 6211004645 6443504043 5041621515 C/R)rrrrrrGCC6:tMDARtGCHARt FETCH CHARrr
       1155447057 1446112121 1100644142 4012151515 1154637057 1143242070 2121110057 6240425441 tMDXO'Ft11t TAB ?rrrtLSXOtC40X11t OR BLA
       5653401215 1154634162 1470114743 4311005657 3440634564 4046576240 6245646562 5640162317 NK ?rtLSAR'XtGCCt NO, SET FOR RETURN (3)
       1515151515 1515151515 1155444162 1147435041 6211006245 6465625640 6751645040 4350416240 rrrrrrrrrrtMDARtGCHARt RETURN WITH CHAR 
       5156404162 1515151515 1155445162 1470114743 4311006245 6440162217 4051464064 4142405762 IN ARrrrrrtMDIR'XtGCCt RET (2) IF TAB OR
       4042545653 3440455463 4540624564 4016231715 1515151515 4357546306 1111201100 4357546555  BLNK, ELSE RET (3)rrrrrrCOLS:tt0t COLUM
       5640435765 5664456215 4743436366 0611112011 0063416645 4043504162 4143644562 4046544147 N COUNTERrGCCSV:tt0t SAVE CHARACTER FLAG
       1515151515 4743644142 0611112011 0064414240 4651455444 4046544147 4041564440 4357546555 rrrrrGCTAB:tt0t TAB FIELD FLAG AND COLUM
       5640565736 1515151515 4743644263 0611112011 0063416645 4440435041 6240414664 4562406441 N NO.rrrrrGCTBS:tt0t SAVED CHAR AFTER TA
       4215151515 6441422746 0611112011 0046576243 4540644142 4064574043 5754402740 4654414715 BrrrrTAB7F:tt0t FORCE TAB TO COL 7 FLAGr
       1515151515 1515151515 7777700000 1263130021 1263130021 1263130021 1263130021 1263130021 rrrrrrrrrrbbX  ?S" 1?S" 1?S" 1?S" 1?S" 1
       1263130021 1263130021 1263130021 1263130021 1263130021                                  ?S" 1?S" 1?S" 1?S" 1?S" 1
 1325: 0002500011 4664562021 1361200373 3414400000 0040474564 4045706041 5644454440 4341624440  cH tFTN01"Q0!$,'     GET EXPANDED CARD 
       4350416241 4364456240 1667516450 4054516445 6241544045 7060415663 5157561715 0040404062 CHARACTER (WITH LITERAL EXPANSION)r    R
       4564656256 6340164350 4162404357 4445405156 4041621740 3636361515 0040404040 4016211740 ETURNS (CHAR CODE IN AR) ...rr      (1) 
       4043376215 0040404040 4016221740 4042544156 5340576240 6441421515 0040404040 4016231740  C/Rr      (2)  BLANK OR TABrr      (3) 
       4057645045 6215151515 1515151515 4743450611 5265556011 3611004556 6462711515 1155444162  OTHERrrrrrrrrrGCE:tJUMPt.t ENTRYrrtMDAR
       1456115451 6446471100 5451644562 4154405557 4445401215 1152604156 1147434522 1100565734 'NtLITFGt LITERAL MODE ?rtJPANtGCE2t NO,
       4052655560 4046576240 4341624440 4350416215 1515151515 1155444162 1154516443 6411006350  JUMP FOR CARD CHARrrrrrrtMDARtLITCTt SH
       5146644043 5765566440 3340204012 1515151515 1152605463 1136102311 0056573440 6353516015 IFT COUNT = 0 ?rrrrrtJPLSt.+3t NO, SKIPr
       1515151515 1141624162 1470115451 6446601100 7145633440 5156444570 4046456443 5040606462 rrrrrtARAR'XtLITFPt YES, INDEX FETCH PTR
       1515151515 1155444163 1446112320 3611006345 6440635051 4664404657 6240216364 4043504162 rrrrrtMDAS'Ft30.t SET SHIFT FOR 1ST CHAR
       4057464056 4570644067 5762441515 1515151515 1155444163 1446145611 2611004445 4362455545  OF NEXT WORDrrrrrrrtMDAS'F'Nt6t DECREME
       5664406350 5146644043 5664404657 6240564570 6440435041 6215151515 1141625544 1154516443 NT SHIFT CNT FOR NEXT CHARrrrrtARMDtLITC
       6411006341 6645405645 6740625147 5064406350 5146644051 5663646215 1155444162 1451115451 Tt SAVE NEW RIGHT SHIFT INSTRrtMDAR'ItLI
       6446601100 4645644350 4043656262 4054516445 6241544063 6462515647 4067576244 1515151515 TFPt FETCH CURR LITERAL STRING WORDrrrrr
       1515151515 5451644364 0611416262 6311110063 5051466440 6457404745 6440436562 6240435041 rrrrrLITCT:tARRStt SHIFT TO GET CURR CHA
       6215151515 1156575760 1111004040 1667415164 4046576240 6350514664 4043575560 5445644540 RrrrrtNOOPtt   (WAIT FOR SHIFT COMPLETE 
       5756404460 6222171515 1155444162 1441114327 2711005541 6353404350 4162414364 4562151515 ON DPR2)rrtMDAR'AtC77t MASK CHARACTERrrr
       1141625544 1163435041 6211006341 6645404570 6041564445 4440435041 6215151515 1155447057 tARMDtSCHARt SAVE EXPANDED CHARrrrrtMDXO
       1446112125 1100455644 4057464063 6462515647 4012151515 1152605463 1147434521 1100565734 'Ft15t END OF STRING ?rrrtJPLStGCE1t NO,
       4063535160 1515151515 1515151515 1155444162 1456115451 6446471100 7145633440 4645644350  SKIPrrrrrrrrrrtMDAR'NtLITFGt YES, FETCH
       4063416645 4440636462 5156474044 4554515545 6445621515 1141625544 1163435041 6211006345  SAVED STRING DELIMETERrrtARMDtSCHARt SE
       6440416340 4365626240 4350416215 1515151515 1155444162 1451145611 5451646060 1100464564 T AS CURR CHARrrrrrrtMDAR'I'NtLITPPt FET
       4350404654 4147405756 4064576040 5746405451 6445624154 1515151515 1141625544 1456115451 CH FLAG ON TOP OF LITERALrrrrrtARMD'NtLI
       6446471100 4040606563 5035445767 5640636441 4353151515 1152604156 1147434521 1100526555 TFGt   PUSH-DOWN STACKrrrtJPANtGCE1t JUM
       6040514640 5657674057 6564405746 4054516445 6241544055 5744451515 1515151515 1155444162 P IF NOW OUT OF LITERAL MODErrrrrrrtMDAR
       1154516460 6011004645 6443504060 6563503544 5767564060 5751566445 6215151515 1155444163 tLITPPt FETCH PUSH-DOWN POINTERrrrrtMDAS
       1446145611 2311006057 6040445767 5640645740 5441636440 4556646271 1515151515 1141625544 'F'Nt3t POP DOWN TO LAST ENTRYrrrrrtARMD
       1154516460 6011006341 6645405645 6740606563 5035445767 5640605751 5664456215 1141625544 tLITPPt SAVE NEW PUSH-DOWN POINTERrtARMD
       1154516443 6411004154 6357404657 6240515644 4570515647 1515151515 1155444162 1451147011 tLITCTt ALSO FOR INDEXINGrrrrrtMDAR'I'Xt
       5451644364 1100605760 4036363615 1141625544 1154516446 6011004040 4645644350 4060575156 LITCTt POP ...rtARMDtLITFPt   FETCH POIN
       6445621515 1155444162 1451147011 5451644364 1515151515 1141625544 1154516443 6411004040 TERrrtMDAR'I'XtLITCTrrrrrtARMDtLITCTt   
       4350416241 4364456240 6350514664 4043576556 6415151515 1515151515 7777700000 4567500775 CHARACTER SHIFT COUNTrrrrrrrrrbbX  EWH_@
       4567500775 4567500775 4567500775 4567500775 4567500775 4567500775 4567500775 4567500775 EWH_@EWH_@EWH_@EWH_@EWH_@EWH_@EWH_@EWH_@
       4567500775                                                                              EWH_@
  655: 0002600011 4664562021 1361200165 3414400000 4743452106 1155444162 1163435041 6211004645  cP tFTN01"Q0%U,'   GCE1:tMDARtSCHARt FE
       6443504045 7060415644 4544404350 4162151515 1155447057 1446112420 1100435041 6240334042 TCH EXPANDED CHARrrrtMDXO'Ft40t CHAR = B
       5441565340 1215151515 1154637057 1143242070 2121110057 6240644142 4012151515 1154634162 LANK ?rrrrtLSXOtC40X11t OR TAB ?rrrtLSAR
       1470114743 4511005657 3440515644 4570406245 6465625615 1515151515 1155444162 1163435041 'XtGCEt NO, INDEX RETURNrrrrrrtMDARtSCHA
       6211004645 6443504043 5041621515 1155445162 1470114743 4511006245 6465625640 1622174051 Rt FETCH CHARrrtMDIR'XtGCEt RETURN (2) I
       4640425441 5653344045 5463454062 4564401623 1715151515 1515151515 4743452206 1155444162 F BLANK, ELSE RET (3)rrrrrrrrrGCE2:tMDAR
       1147434511 0056576440 5156405451 6445624154 4055574445 3440634166 4540624564 6562561515 tGCEt NOT IN LITERAL MODE, SAVE RETURNrr
       1141625544 1147434311 0040404657 6240474343 1515151515 1152655560 1147434310 2111004156 tARMDtGCCt   FOR GCCrrrrrtJUMPtGCC+1t AN
       4440526555 6040515664 5740474343 4064574047 4564404341 6244404350 4162151515 1515151515 D JUMP INTO GCC TO GET CARD CHARrrrrrrrr
       5451644647 0611112011 0054516445 6241544046 5441474041 5644406341 6645444045 5763404350 LITFG:tt0t LITERAL FLAG AND SAVED EOS CH
       4162151515 5451644660 0611112011 0054516445 6241544063 6462515647 4046456443 5040605751 ARrrrLITFP:tt0t LITERAL STRING FETCH POI
       5664456215 5451646060 0611112011 0054516445 6241544060 6563503544 5767564064 4142544540 NTERrLITPP:tt0t LITERAL PUSH-DOWN TABLE 
       6057515664 4562151515 1515151515 5451646063 0611112011 0054516445 6241544060 6563503544 POINTERrrrrrrrrLITPS:tt0t LITERAL PUSH-D
       5767564063 6441435340 3636361515 1154574311 2305545445 6663401040 3611004040 1664506245 OWN STACK ...rrtLOCt3*LLEVS + .t   (THRE
       4540675762 4463375445 6645541715 5451646045 4033403635 2115151515 1515151515 1515151515 E WORDS/LEVEL)rLITPE = .-1rrrrrrrrrrrrrr
       7777700000 4437600242 4437600242 4437600242 4437600242 4437600242 4437600242 4437600242 bbX  D/PcBD/PcBD/PcBD/PcBD/PcBD/PcBD/PcB
       4437600242 4437600242 4437600242                                                        D/PcBD/PcBD/PcB
 1460: 0002700011 4664562021 1361200426 3414400000 0040474564 4056457064 4063644164 4555455664  cX tFTN01"Q0&6,'     GET NEXT STATEMENT
       4043504162 4143644562 1515151515 1515151515 4743630611 5265556011 3611004556 6462711515  CHARACTERrrrrrrrrrrGCS:tJUMPt.t ENTRYrr
       1155444162 1456114743 6363661100 6341664544 4043504162 4046625755 4054416364 4043415454 tMDAR'NtGCSSVt SAVED CHAR FROM LAST CALL
       4012151515 1152604156 1147436321 1100565734 4052655560 1515151515 1515151515 1141625544  ?rrrtJPANtGCS1t NO, JUMPrrrrrrrrrrtARMD
       1147436363 6611007145 6334404354 4541624063 4166454440 4350416240 4654414715 1155444162 tGCSSVt YES, CLEAR SAVED CHAR FLAGrtMDAR
       1163435041 6211004645 6443504060 6245665157 6563404350 4162414364 4562151515 1155445162 tSCHARt FETCH PREVIOUS CHARACTERrrrtMDIR
       1147436311 0062456465 6256151515 1515151515 4743632106 1155444162 1147436350 4611004651 tGCSt RETURNrrrrrrrrGCS1:tMDARtGCSHFt FI
       5454515647 4057656440 4254415653 6340416440 4556444057 4640434162 4440121515 1152604156 LLING OUT BLANKS AT END OF CARD ?rrtJPAN
       1147436321 2411007145 6334405265 5560151515 1515151515 4743632206 1152606362 1147434511 tGCS14t YES, JUMPrrrrrrrrGCS2:tJPSRtGCEt
       0047456440 5645706440 4570604156 4445444043 5041624143 6445621515 1152655560 1147436321  GET NEXT EXPANDED CHARACTERrrtJUMPtGCS1
       2111005265 5560405146 4045564440 5746404341 6244151515 1152655560 1147436325 1100526555 1t JUMP IF END OF CARDrrrtJUMPtGCS5t JUM
       6040514640 4254415653 4057624064 4142151515 1515151515 4743632306 1141625544 1163435041 P IF BLANK OR TABrrrrrrrrGCS3:tARMDtSCHA
       6211006341 6645404350 4162414364 4562151515 1155447057 1446110232 1100634555 5135435754 Rt SAVE CHARACTERrrrtMDXO'Ftc;t SEMI-COL
       5756401215 1155444162 1457115057 5446471100 4156444056 5764405156 4050575454 4562516450 ON ?rtMDAR'OtHOLFGt AND NOT IN HOLLERITH
       4063646251 5647401215 1152605463 1147436326 1100565734 4063535160 1515151515 1515151515  STRING ?rtJPLStGCS6t NO, SKIPrrrrrrrrrr
       4743632406 1155444162 1143212511 0071456334 4063456440 4350416240 3340433762 1515151515 GCS4:tMDARtC15t YES, SET CHAR = C/Rrrrrr
       1152655560 1147436321 2011005265 5560406457 4062456465 6256151515 1515151515 4743632506 tJUMPtGCS10t JUMP TO RETURNrrrrrrrrGCS5:
       1141625544 1163435041 6211006341 6645404254 4156534057 6240644142 1515151515 1155444162 tARMDtSCHARt SAVE BLANK OR TABrrrrrtMDAR
       1456115057 5446471100 5057545445 6251645040 4254415653 4012151515 1152604156 1136102411 'NtHOLFGt HOLLERITH BLANK ?rrrtJPANt.+4t
       0056573440 6353516040 1671456334 4063514756 5146514341 5664171515 1515151515 4743632606  NO, SKIP (YES, SIGNIFICANT)rrrrrrrGCS6:
       1155444162 1163435041 6211004645 6443504043 5041624143 6445621515 4743636053 0611565757 tMDARtSCHARt FETCH CHARACTERrrGCSPK:tNOO
       6011110045 7045436564 4540604143 5351564740 5156636462 4051464051 5640465762 5541641515 Ptt EXECUTE PACKING INSTR IF IN FORMATrr
       1155445162 1147436311 0062456465 6256151515 1515151515 1155444162 1456116343 4156461100 tMDIRtGCSt RETURNrrrrrrrrtMDAR'NtSCANFt 
       5156406343 4156405557 4445401215 1152604156 1147436322 1100565734 4051475657 6245404254 IN SCAN MODE ?rtJPANtGCS2t NO, IGNORE BL
       4156533440 5457576040 4657624056 4570641515 1515151515 4743632706 1152606362 1147434511 ANK, LOOP FOR NEXTrrrrrrrGCS7:tJPSRtGCEt
       0071456334 4047456440 5645706440 4350416241 4364456215 1152655560 1147436321 2211004040  YES, GET NEXT CHARACTERrtJUMPtGCS12t   
       5265556040 5146404556 4440574640 4341624415 1152655560 1136352211 0040406353 5160404254 JUMP IF END OF CARDrtJUMPt.-2t   SKIP BL
       4156536340 5762406441 4263151515 1515151515 1152606362 1143506471 6011004350 4543534064 ANKS OR TABSrrrrrrrrtJPSRtCHTYPt CHECK T
       7160454057 4640564570 6440565756 3542544156 5340435041 6215151515 1152655560 1147436323 YPE OF NEXT NON-BLANK CHARrrrrtJUMPtGCS3
       1100404051 4640636045 4351415434 4062456465 6256405164 1515151515 1156575760 1111004040 t   IF SPECIAL, RETURN ITrrrrrtNOOPtt   
       5146404154 6050415665 5545625143 4036363615 1515151515 1155444162 1456115451 6446471100 IF ALPHANUMERIC ...rrrrrrtMDAR'NtLITFGt 
       5451644562 4154405557 4445401215 1152604156 1147436330 1100565734 4052655560 1515151515 LITERAL MODE ?rtJPANtGCS8t NO, JUMPrrrrr
       1515151515 1155444162 1154516443 6411007145 6334404265 5560405451 6445624154 4063505146 rrrrrtMDARtLITCTt YES, BUMP LITERAL SHIF
       6440435765 5664151515 1155444163 1446112611 0040406457 4062453562 4541444043 5041624143 T COUNTrrrtMDAS'Ft6t   TO RE-READ CHARAC
       6445621515 1141625544 1154516443 6415151515 1152655560 1136102211 0063535160 1515151515 TERrrtARMDtLITCTrrrrtJUMPt.+2t SKIPrrrrr
       1515151515 7777700000 0616162141 0616162141 0616162141 0616162141 0616162141 0616162141 rrrrrbbX  :((1A:((1A:((1A:((1A:((1A:((1A
       0616162141 0616162141 0616162141 0616162141                                             :((1A:((1A:((1A:((1A
 1570: 0003000011 4664562021 1361200454 3414400000 4743633006 1141625544 1457114743 4363661100  !  tFTN01"Q0&L,'   GCS8:tARMD'OtGCCSVt 
       6345644064 5740624535 6245414440 4341624440 4350416241 4364456215 1515151515 4743633106 SET TO RE-READ CARD CHARACTERrrrrrrGCS9:
       1155444162 1143242011 0046456443 5040425441 5653404350 4162414364 4562151515 1515151515 tMDARtC40t FETCH BLANK CHARACTERrrrrrrrr
       4743632120 0611416255 4411634350 4162110063 4166454043 5041624143 6445621515 1152655560 GCS10:tARMDtSCHARt SAVE CHARACTERrrtJUMP
       1147436360 5311005265 5560406457 4062456465 6256151515 1515151515 4743632121 0611554441 tGCSPKt JUMP TO RETURNrrrrrrrrGCS11:tMDA
       6214561163 4341564611 0045564440 5746404341 6244344063 4341564055 5744454012 1515151515 R'NtSCANFt END OF CARD, SCAN MODE ?rrrrr
       1152604156 1147436321 2311005657 3440635351 6015151515 1515151515 4743632122 0611526063 tJPANtGCS13t NO, SKIPrrrrrrrrrGCS12:tJPS
       6211624344 1100433762 4067505154 4540635351 6060515647 4063434156 4042544156 5363341515 RtRCDt C/R WHILE SKIPPING SCAN BLANKS,rr
       1152655560 1147436324 1100404062 4541444056 4570643440 5146405645 6740434162 4434406245 tJUMPtGCS4t   READ NEXT, IF NEW CARD, RE
       6465625640 4337621515 1152655560 1147436327 1100404054 5757604051 4640435756 6451566541 TURN C/RrrtJUMPtGCS7t   LOOP IF CONTINUA
       6451575640 4341624415 1515151515 4743632123 0611554441 6214561150 5754464711 0043376240 TION CARDrrrrrrGCS13:tMDAR'NtHOLFGt C/R 
       5156405057 5454456251 6450406364 6251564740 1215151515 1152604156 1147436321 2511005657 IN HOLLERITH STRING ?rrrrtJPANtGCS15t NO
       3440526555 6015151515 1515151515 1141625544 1457114743 6350461100 6345644050 5754544562 , JUMPrrrrrrrrrtARMD'OtGCSHFt SET HOLLER
       5164504045 5644404651 4554444046 5441471515 1515151515 4743632124 0611554441 6214701143 ITH END FIELD FLAGrrrrrrrGCS14:tMDAR'XtC
       5754631100 4645644350 4041564440 5156444570 4043575465 5556405657 3615151515 1155444163 OLSt FETCH AND INDEX COLUMN NO.rrrrtMDAS
       1446145611 2722361100 6041636440 4357546555 5640272240 1215151515 1155444162 1441115057 'F'Nt72.t PAST COLUMN 72 ?rrrrtMDAR'AtHO
       5446471100 5762405057 5454456251 6450405557 4445406245 6345644012 1515151515 1152604156 LFGt OR HOLLERITH MODE RESET ?rrrrrtJPAN
       1147436331 1100565734 4052655560 4064574062 4564656256 4042544156 5315151515 1515151515 tGCS9t NO, JUMP TO RETURN BLANKrrrrrrrrr
       1141625544 1147436350 4611007145 6334406245 6345644042 5441565340 4570604156 6351575640 tARMDtGCSHFt YES, RESET BLANK EXPANSION 
       4654414715 1515151515 4743632125 0611554441 6211464344 4647110043 5755605154 4562404357 FLAGrrrrrrGCS15:tMDARtFCDFGt COMPILER CO
       5664625754 4043416244 4012151515 1152604156 1147436324 1100714563 3440624564 6562564043 NTROL CARD ?rrrtJPANtGCS4t YES, RETURN C
       3762151515 1515151515 1152606362 1162434411 0062454144 4056457064 4043416244 1515151515 /RrrrrrrrrtJPSRtRCDt READ NEXT CARDrrrrr
       1152655560 1147436324 1100564567 4063644164 4555455664 3440475740 6245646562 5640433762 tJUMPtGCS4t NEW STATEMENT, GO RETURN C/R
       1515151515 1152655560 1147436322 1100435756 6451566541 6451575634 4060625743 4563634056 rrrrrtJUMPtGCS2t CONTINUATION, PROCESS N
       4570644043 5041621515 1515151515 6343504162 0611112011 0063644164 4555455664 4043504162 EXT CHARrrrrrrrSCHAR:tt0t STATEMENT CHAR
       4143644562 1515151515 4743636366 0611112011 0063644164 4555455664 4043504162 4143644562 ACTERrrrrrGCSSV:tt0t STATEMENT CHARACTER
       4063416645 4440465441 4715151515 4743635046 0611112011 0045564440 5746404341 6244405057  SAVED FLAGrrrrGCSHF:tt0t END OF CARD HO
       5454456251 6450404651 4554444046 5441471515 5057544647 0611112011 0050575454 4562516450 LLERITH FIELD FLAGrrHOLFG:tt0t HOLLERITH
       4045706041 5663515756 4046544147 1515151515 1515151515 1515151515 0040474564 4056457064  EXPANSION FLAGrrrrrrrrrrrrrrr  GET NEXT
       4063644164 4555455664 4043504162 4143644562 4041564440 6445636440 4657624045 5644405746  STATEMENT CHARACTER AND TEST FOR END OF
       4063644164 4555455664 1515151515 0040404062 4564656256 6340363636 1515151515 0040404040  STATEMENTrrrrr    RETURNS ...rrrrr     
       4016211740 4045564440 5746406364 4164455545 5664401643 3762171515 0040404040 4016221740  (1)  END OF STATEMENT (C/R)rr      (2) 
       4057645045 6240435041 6241436445 6240165156 4041621715 1515151515 4743636406 1152655560  OTHER CHARACTER (IN AR)rrrrrrGCST:tJUMP
       1136110045 5664627115 5263474363 0611526063 6211474363 1100474564 4063644164 4555455664 t.t ENTRYrJSGCS:tJPSRtGCSt GET STATEMENT
       4043504162 4143644562 1515151515 1155447057 1446112125 1100433762 4012151515 1152605463  CHARACTERrrrrrtMDXO'Ft15t C/R ?rrrtJPLS
       1136102211 0056573440 6353516015 1155445162 1147436364 1100714563 3440624564 6562564016 t.+2t NO, SKIPrtMDIRtGCSTt YES, RETURN (
       2117151515 1515151515 1155447057 1446112125 1100624563 6457624540 4350416241 4364456215 1)rrrrrrrrtMDXO'Ft15t RESTORE CHARACTERr
       1155445162 1470114743 6364110062 4564656256 4016221715 1515151515 1515151515 7777700000 tMDIR'XtGCSTt RETURN (2)rrrrrrrrrrrbbX  
       2350150765 2350150765 2350150765 2350150765 2350150765 2350150765 2350150765 2350150765 3Hr_U3Hr_U3Hr_U3Hr_U3Hr_U3Hr_U3Hr_U3Hr_U
       2350150765 2350150765                                                                   3Hr_U3Hr_U
 1315: 0003100011 4664562021 1361200371 3414400000 0040474564 4063715542 5754401642 4163514317  !+ tFTN01"Q0!Y,'     GET SYMBOL (BASIC)
       1515151515 0040404062 4564656256 6340363636 1515151515 0040404040 4016211740 4063604543 rrrrr    RETURNS ...rrrrr      (1)  SPEC
       5141544043 5041624143 6445621515 0040404040 4016221740 4056655545 6251434043 5041624143 IAL CHARACTERrr      (2)  NUMERIC CHARAC
       6445621515 0040404040 4016231740 4057564535 6757624440 6371554257 5440165156 4063715542 TERrr      (3)  ONE-WORD SYMBOL (IN SYMB
       2134406371 5542224033 4063715542 2340334020 1715151515 0040404040 4016241740 4064675735 1, SYMB2 = SYMB3 = 0)rrrr      (4)  TWO-
       6757624440 6371554257 5440165156 4063715542 2140415644 4063715542 2234406371 5542234033 WORD SYMBOL (IN SYMB1 AND SYMB2, SYMB3 =
       4020171515 0040404040 4016251740 4064506245 4535675762 4440637155 4257544016 5156406371  0)rr      (5)  THREE-WORD SYMBOL (IN SY
       5542213440 6371554222 3440637155 4223171515 1515151515 4763061152 6555601136 1100455664 MB1, SYMB2, SYMB3)rrrrrrrGS:tJUMPt.t ENT
       6271151515 1141627057 1446111100 4354454162 4036363615 4763210611 4162554411 6371554221 RYrrrtARXO'Ftt CLEAR ...rGS1:tARMDtSYMB1
       1100404067 5762444021 4042654646 4562151515 1141625544 1163715542 2211004040 6757624440 t   WORD 1 BUFFERrrrtARMDtSYMB2t   WORD 
       2240426546 4645621515 1141625544 1163715542 2311004040 6757624440 2340426546 4645621515 2 BUFFERrrtARMDtSYMB3t   WORD 3 BUFFERrr
       1152606362 1147436311 0047456440 5645706440 6364416445 5545566440 4350416241 4364456215 tJPSRtGCSt GET NEXT STATEMENT CHARACTERr
       1152606362 1143506471 6011004350 4543534043 5041624143 6445624064 7160454036 3636151515 tJPSRtCHTYPt CHECK CHARACTER TYPE ...rrr
       1155445162 1147631100 4040514640 6360454351 4154344062 4564656256 4016211715 1155445162 tMDIRtGSt   IF SPECIAL, RETURN (1)rtMDIR
       1470114763 1100404051 4640445147 5164344062 4564656256 4016221715 1515151515 1155444162 'XtGSt   IF DIGIT, RETURN (2)rrrrrrtMDAR
       1147632111 0051565164 5141545172 4540636457 6245405156 6364624046 5762402163 6415151515 tGS1t INITIALIZE STORE INSTR FOR 1STrrrr
       1141625544 1147632411 0040406371 5542575440 6341664540 4265464645 6215151515 1515151515 tARMDtGS4t   SYMBOL SAVE BUFFERrrrrrrrrr
       4763220611 5544416214 4611251100 6345646560 4043576556 6440465762 4046516645 4043504162 GS2:tMDAR'Ft5t SETUP COUNT FOR FIVE CHAR
       4143644562 6315151515 1141625544 1456114763 3131151515 1141624162 1470114763 1100515644 ACTERSrrrrtARMD'NtGS99rrrtARAR'XtGSt IND
       4570406457 4056457064 4062456465 6256151515 1515151515 4763230611 5544416211 6343504162 EX TO NEXT RETURNrrrrrrrrGS3:tMDARtSCHAR
       1100464564 4350405441 6364404350 4162414364 4562151515 1155444162 1457145314 5111361021 t FETCH LAST CHARACTERrrrtMDAR'O'K'It.+1
       1100435755 4251564540 6751645040 4365626245 5664406371 5542575415 1515151515 4763240611 t COMBINE WITH CURRENT SYMBOLrrrrrrGS4:t
       4162554411 1100634166 4540637155 4257541515 1515151515 1152606362 1147436311 0047456440 ARMDtt SAVE SYMBOLrrrrrrrtJPSRtGCSt GET 
       5645706440 6364416445 5545566440 4350416241 4364456215 1152606362 1143506471 6011004350 NEXT STATEMENT CHARACTERrtJPSRtCHTYPt CH
       4543534043 5041624143 6445624064 7160454036 3636151515 1152655560 1147632511 0040405146 ECK CHARACTER TYPE ...rrrtJUMPtGS5t   IF
       4063604543 5141543440 4757404651 5651635040 6560151515 1156575760 1111004040 5146404451  SPECIAL, GO FINISH UPrrrtNOOPtt   IF DI
       4751644057 6240544564 6445623440 3636361515 1515151515 1155444162 1470145611 4763313111 GIT OR LETTER, ...rrrrrrrtMDAR'X'NtGS99t
       0060414353 4544404651 6645404350 4162634012 1515151515 1152605463 1147632311 0056573440  PACKED FIVE CHARS ?rrrrrtJPLStGS3t NO, 
       5457576015 1515151515 1155444162 1470114763 2411007145 6334405156 4445704063 7155425754 LOOPrrrrrrtMDAR'XtGS4t YES, INDEX SYMBOL
       4067576244 4060575156 6445621515 1155447057 1446116371 5542231021 1100445756 4540645062  WORD POINTERrrtMDXO'FtSYMB3+1t DONE THR
       4545406757 6244634012 1515151515 1152605463 1147632211 0056573440 6245604541 6440465762 EE WORDS ?rrrrrtJPLStGS2t NO, REPEAT FOR
       4056457064 4067576244 1515151515 1515151515 7777700000 1603663344 1603663344 1603663344  NEXT WORDrrrrrrrrrrbbX  (!V=D(!V=D(!V=D
       1603663344 1603663344 1603663344 1603663344 1603663344 1603663344 1603663344            (!V=D(!V=D(!V=D(!V=D(!V=D(!V=D(!V=D
  495: 0003200011 4664562021 1361200125 3414400000 4763456221 0611526063 6211456262 5762110071  !0 tFTN01"Q0%5,'   GSER1:tJPSRtERRORt Y
       4563344045 6262576215 1111456221 2011004040 1663715542 5754406457 5740545756 4717151515 ES, ERRORrttER10t   (SYMBOL TOO LONG)rrr
       1515151515 1155444162 1451145311 4763241100 6257644164 4540436562 6245566440 6371554257 rrrrrtMDAR'I'KtGS4t ROTATE CURRENT SYMBO
       5440675762 4440575645 4043504162 1515151515 1141625544 1451114763 2411006364 5762454063 L WORD ONE CHARrrrrrtARMD'ItGS4t STORE S
       7155425754 4067576244 1515151515 1515151515 4763250611 5544416214 7014561147 6331311100 YMBOL WORDrrrrrrrrrrGS5:tMDAR'X'NtGS99t 
       4556444057 4640637155 4257543440 6757624440 4651545445 4440121515 1152605463 1136352311 END OF SYMBOL, WORD FILLED ?rrtJPLSt.-3t
       0056573440 5457576040 6457405445 4664355265 6364514671 4063715542 5754151515 1515151515  NO, LOOP TO LEFT-JUSTIFY SYMBOLrrrrrrrr
       1155445162 1470114763 1100714563 3440644153 4540436562 6245566440 6245646562 5615151515 tMDIR'XtGSt YES, TAKE CURRENT RETURNrrrr
       1515151515 4763313106 1111201100 6445556040 6364576241 4745151515 1515151515 6371554221 rrrrrGS99:tt0t TEMP STORAGErrrrrrrrSYMB1
       0611112011 0063715542 5754406757 6244402115 6371554222 0611112011 0063715542 5754406757 :tt0t SYMBOL WORD 1rSYMB2:tt0t SYMBOL WO
       6244402215 6371554223 0611112011 0063715542 5754406757 6244402315 1515151515 1515151515 RD 2rSYMB3:tt0t SYMBOL WORD 3rrrrrrrrrrr
       7777700000 2157274040 2157274040 2157274040 2157274040 2157274040 2157274040 2157274040 bbX  1O7  1O7  1O7  1O7  1O7  1O7  1O7  
       2157274040 2157274040 2157274040                                                        1O7  1O7  1O7  
 1565: 0003300011 4664562021 1361200453 3414400000 0040474564 4063715542 5754404156 4440545757  !8 tFTN01"Q0&K,'     GET SYMBOL AND LOO
       5365604051 5640545164 4562415440 6441425445 1515151515 0040404016 6371554257 5440415462 KUP IN LITERAL TABLErrrrr    (SYMBOL ALR
       4541447140 6062456345 5664405146 4051564041 4445606440 5557444517 1515151515 0015151515 EADY PRESENT IF IN ADEPT MODE)rrrrr rrrr
       0040404062 4564656256 6340363636 1515151515 0040404040 4016211740 4063604543 5141544043     RETURNS ...rrrrr      (1)  SPECIAL C
       5041624143 6445621515 0040404040 4016221740 4056655545 6251434043 5041624143 6445621515 HARACTERrr      (2)  NUMERIC CHARACTERrr
       0040404040 4016231740 4056575635 5451644562 4154406371 5542575440 1651564063 7155422134       (3)  NON-LITERAL SYMBOL (IN SYMB1,
       4063715542 2234404156 4440637155 4223171515 0040404040 4016241740 4054516445 6241544063  SYMB2, AND SYMB3)rr      (4)  LITERAL S
       7155425754 4016515640 6371554221 3440637155 4222344041 5644406371 5542231715 1515151515 YMBOL (IN SYMB1, SYMB2, AND SYMB3)rrrrrr
       4763540611 5265556011 3611004556 6462711515 1155444162 1141446064 4611004144 4560644055 GSL:tJUMPt.t ENTRYrrtMDARtADPTFt ADEPT M
       5744454012 1515151515 1152604156 1147635425 1100714563 3440526555 6015151515 1515151515 ODE ?rrrrrtJPANtGSL5t YES, JUMPrrrrrrrrr
       1152606362 1147631100 4745644042 4163514340 6371554257 5440363636 1515151515 1155445162 tJPSRtGSt GET BASIC SYMBOL ...rrrrrtMDIR
       1147635411 0040406360 4543514154 3440624564 6562564016 2117151515 1155445162 1470114763 tGSLt   SPECIAL, RETURN (1)rrrtMDIR'XtGS
       5411004040 4451475164 3440624564 6562564016 2217151515 1152655560 1147635421 1100404051 Lt   DIGIT, RETURN (2)rrrtJUMPtGSL1t   I
       4640575645 4067576244 3440526555 6040645740 5457575365 6015151515 1152655560 1147635422 F ONE WORD, JUMP TO LOOKUPrrrrtJUMPtGSL2
       1100404064 6757356757 6244344052 6555604064 5740545757 5365601515 1515151515 4763542006 t   TWO-WORD, JUMP TO LOOKUPrrrrrrrGSL0:
       1155444162 1446115451 6442231100 5457575365 6040233567 5762444063 7155425754 1515151515 tMDAR'FtLITB3t LOOKUP 3-WORD SYMBOLrrrrr
       1152606362 1163656243 2311004040 5156405451 6445624154 4064414254 4515151515 1155444162 tJPSRtSURC3t   IN LITERAL TABLErrrrtMDAR
       1163715542 2115151515 1155444162 1163715542 2215151515 1155444162 1163715542 2315151515 tSYMB1rrrrtMDARtSYMB2rrrrtMDARtSYMB3rrrr
       1152655560 1147635424 1100565764 4046576556 4434405265 5560406457 4062456465 6256151515 tJUMPtGSL4t NOT FOUND, JUMP TO RETURNrrr
       1152655560 1147635423 1100465765 5644344052 6555604064 5740455663 6441644540 5451644562 tJUMPtGSL3t FOUND, JUMP TO ENSTATE LITER
       4154151515 1515151515 4763542206 1155444162 1446115451 6442221100 5457575365 6040223567 ALrrrrrrrrGSL2:tMDAR'FtLITB2t LOOKUP 2-W
       5762444063 7155425754 4051561515 1152606362 1163656243 2211004040 5451644562 4154406441 ORD SYMBOL INrrtJPSRtSURC2t   LITERAL TA
       4254451515 1155444162 1163715542 2115151515 1155444162 1163715542 2215151515 1152655560 BLErrtMDARtSYMB1rrrrtMDARtSYMB2rrrrtJUMP
       1147635424 1100565764 4046576556 4434405265 5560406457 4062456465 6256151515 1152655560 tGSL4t NOT FOUND, JUMP TO RETURNrrrtJUMP
       1147635423 1100465765 5644344052 6555604064 5740455663 6441644540 5451644562 4154151515 tGSL3t FOUND, JUMP TO ENSTATE LITERALrrr
       1515151515 4763542106 1155444162 1446115451 6442211100 5457575365 6040213567 5762444063 rrrrrGSL1:tMDAR'FtLITB1t LOOKUP 1-WORD S
       7155425754 4051561515 1152606362 1163656243 2111004040 5451644562 4154406441 4254451515 YMBOL INrrtJPSRtSURC1t   LITERAL TABLErr
       1155444162 1163715542 2115151515 1152655560 1147635424 1100565764 4046576556 4434405265 tMDARtSYMB1rrrrtJUMPtGSL4t NOT FOUND, JU
       5560406457 4062456465 6256151515 1515151515 4763542306 1155444162 1451145611 6365626011 MP TO RETURNrrrrrrrrGSL3:tMDAR'I'NtSURPt
       0046576556 4434406365 6045626345 4445444054 5164456241 5440121515 1141564162 1470114763  FOUND, SUPERSEDED LITERAL ?rrtANAR'XtGS
       5411005657 3440575334 4051564445 7040624564 6562561515 1515151515 4763542406 1141624162 Lt NO, OK, INDEX RETURNrrrrrrrGSL4:tARAR
       1470114763 5411005156 4445704064 5740606257 6045624062 4564656256 1515151515 1155445162 'XtGSLt INDEX TO PROPER RETURNrrrrrtMDIR
       1470114763 5411004156 4440624564 6562561515 1515151515 4763542506 1155444162 1450116371 'XtGSLt AND RETURNrrrrrrrGSL5:tMDAR'HtSY
       5542231100 6450624545 4067576244 4063715542 5754401215 1152605463 1147635420 1100714563 MB3t THREE WORD SYMBOL ?rtJPLStGSL0t YES
       3440475740 6062574345 6363151515 1515151515 1155444162 1450116371 5542221100 5657344064 , GO PROCESSrrrrrrrrtMDAR'HtSYMB2t NO, T
       6757356757 6244406371 5542575440 1215151515 1152605463 1147635422 1100714563 3440475740 WO-WORD SYMBOL ?rrrrtJPLStGSL2t YES, GO 
       6062574345 6363151515 1515151515 1152655560 1147635421 1100565734 4047574060 6257434563 PROCESSrrrrrrrrtJUMPtGSL1t NO, GO PROCES
       6340575645 3567576244 4063715542 5754151515 1515151515 1515151515 7777700000 3673150220 S ONE-WORD SYMBOLrrrrrrrrrrrrrbbX  .$rc0
       3673150220 3673150220 3673150220 3673150220 3673150220 3673150220 3673150220 3673150220 .$rc0.$rc0.$rc0.$rc0.$rc0.$rc0.$rc0.$rc0
       3673150220                                                                              .$rc0
 1675: 0003400011 4664562021 1361200501 3414400000 0040474564 4063715542 5754404570 6041564445  !  tFTN01"Q0*%,'     GET SYMBOL EXPANDE
       4440166751 6450405451 6445624154 4064414254 4540545757 5365604041 5644404570 6041566351 D (WITH LITERAL TABLE LOOKUP AND EXPANSI
       5756171515 0040404062 4564656256 6340363636 1515151515 0040404040 4016211740 4063604543 ON)rr    RETURNS ...rrrrr      (1)  SPEC
       5141544043 5041624143 6445624016 4154635734 4051464041 4445606440 5557444540 4156444054 IAL CHARACTER (ALSO, IF ADEPT MODE AND L
       5164456241 5440636441 6264454417 1515151515 0040404040 4016221740 4056655545 6251434043 ITERAL STARTED)rrrrr      (2)  NUMERIC C
       5041624143 6445621515 0040404040 4016231740 4066415451 4440637155 4257544016 5156406371 HARACTERrr      (3)  VALID SYMBOL (IN SY
       5542213440 6371554222 3440415644 4063715542 2317151515 1515151515 4763450611 5265556011 MB1, SYMB2, AND SYMB3)rrrrrrrrGSE:tJUMPt
       3611004556 6462711515 1152606362 1147635411 0047456440 4241635143 4063715540 4156444043 .t ENTRYrrtJPSRtGSLt GET BASIC SYM AND C
       5053405146 4054516445 6241544036 3636151515 1155445162 1147634511 0040405146 4063604543 HK IF LITERAL ...rrrtMDIRtGSEt   IF SPEC
       5141543440 6245646562 5640162117 1515151515 1155445162 1470114763 4511004040 5146405665 IAL, RETURN (1)rrrrrtMDIR'XtGSEt   IF NU
       5545625143 3440624564 6562564016 2217151515 1152655560 1147634523 1100404056 5764404140 MERIC, RETURN (2)rrrtJUMPtGSE3t   NOT A 
       5451644562 4154344052 6555604064 5740624564 6562561515 1515151515 1155444162 1456115451 LITERAL, JUMP TO RETURNrrrrrrrtMDAR'NtLI
       6446471100 4154624541 4471405156 4054516445 6241544045 7060415663 5157564012 1515151515 TFGt ALREADY IN LITERAL EXPANSION ?rrrrr
       1152604156 1147634521 1100565734 4063535160 1515151515 1515151515 1155444162 1154516460 tJPANtGSE1t NO, SKIPrrrrrrrrrrtMDARtLITP
       6011007145 6334404645 6443504060 6563504044 5767564060 5751566445 6215151515 1155447057 Pt YES, FETCH PUSH DOWN POINTERrrrrtMDXO
       1446115451 6460451100 6065635035 4457675640 6441425445 4046655454 4012151515 1152605463 'FtLITPEt PUSH-DOWN TABLE FULL ?rrrtJPLS
       1136102311 0056573440 6353516015 1515151515 1152606362 1145626257 6211007145 6334404562 t.+3t NO, SKIPrrrrrrtJPSRtERRORt YES, ER
       6257621515 1111456224 2511004040 1664575740 5541567140 5645636445 4440545164 4562415463 RORrrttER45t   (TOO MANY NESTED LITERALS
       1715151515 1515151515 1155444162 1154516446 6011006065 6350403636 3615151515 1141625544 )rrrrrrrrrtMDARtLITFPt PUSH ...rrrrtARMD
       1451147011 5451646060 1100404054 5164456241 5440636462 5156474046 4564435040 6057515664 'I'XtLITPPt   LITERAL STRING FETCH POINT
       4562151515 1155444162 1154516443 6415151515 1141625544 1451147011 5451646060 1100404043 ERrrrtMDARtLITCTrrrrtARMD'I'XtLITPPt   C
       5041624063 5051466440 4357655664 1515151515 1155444162 1154516446 4715151515 1141625544 HAR SHIFT COUNTrrrrrtMDARtLITFGrrrrtARMD
       1451147011 5451646060 1100404063 4166454440 4556444043 5041624143 6445621515 1152655560 'I'XtLITPPt   SAVED END CHARACTERrrtJUMP
       1147634522 1100526555 6040645740 6345644056 4567405451 6445624154 1515151515 1515151515 tGSE2t JUMP TO SET NEW LITERALrrrrrrrrrr
       4763452106 1155444162 1446115451 6460631100 4651626364 4056456740 5451644562 4154341515 GSE1:tMDAR'FtLITPSt FIRST NEW LITERAL,rr
       1141625544 1154516460 6011004040 5156516451 4154517245 4060656350 3544576756 4060575156 tARMDtLITPPt   INITIALIZE PUSH-DOWN POIN
       6445621515 1515151515 4763452206 1155444162 1454111100 5451644562 4154404657 6556443415 TERrrrrrrrGSE2:tMDAR'Ltt LITERAL FOUND,r
       1141626263 1120110040 4063456440 4350416241 4364456240 6350514664 4064574045 5644151515 tARRSt0t   SET CHARACTER SHIFT TO ENDrrr
       1141625544 1154516443 6411004040 5746406757 6244151515 1155444162 1163656260 2111004645 tARMDtLITCTt   OF WORDrrrtMDARtSURP1t FE
       6443504041 4444623521 4057464054 5164456241 5440636462 5156471515 1141625544 1154516446 TCH ADDR-1 OF LITERAL STRINGrrtARMDtLITF
       6011006341 6645405451 6445624154 4046456443 5040605751 5664456215 1155444162 1163435041 Pt SAVE LITERAL FETCH POINTERrtMDARtSCHA
       6211004645 6443504044 4554515545 6445621515 1141625544 1456115451 6446471100 6341664540 Rt FETCH DELIMETERrrtARMD'NtLITFGt SAVE 
       4156444063 4564405451 6445624154 4055574445 4046544147 1515151515 1155444162 1141446064 AND SET LITERAL MODE FLAGrrrrrtMDARtADPT
       4611004144 4560644055 5744454012 1515151515 1141565162 1147634511 0071456334 4062456465 Ft ADEPT MODE ?rrrrrtANIRtGSEt YES, RETU
       6256401621 1715151515 1515151515 1152655560 1147634510 2111005657 3440526555 6040645740 RN (1)rrrrrrrrrtJUMPtGSE+1t NO, JUMP TO 
       4745644045 7060415644 4544406371 5542575415 1515151515 4763452306 1141624162 1470114763 GET EXPANDED SYMBOLrrrrrrGSE3:tARAR'XtGS
       4511006371 5542575440 5657644041 4054516445 6241543415 1155445162 1470114763 4511004040 Et SYMBOL NOT A LITERAL,rtMDIR'XtGSEt   
       6245646562 5640162317 1515151515 1515151515 5451644221 0611112011 0057564535 6757624440 RETURN (3)rrrrrrrrrrLITB1:tt0t ONE-WORD 
       5451644562 4154634064 4142544515 5451644222 0611112011 0064675735 6757624440 5451644562 LITERALS TABLErLITB2:tt0t TWO-WORD LITER
       4154634064 4142544515 5451644223 0611112011 0064506245 4535675762 4440545164 4562415463 ALS TABLErLITB3:tt0t THREE-WORD LITERALS
       4064414254 4515151515 1515151515 1515151515 7777700000 4306577250 4306577250 4306577250  TABLErrrrrrrrrrrrrrbbX  C:OZHC:OZHC:OZH
       4306577250 4306577250 4306577250 4306577250 4306577250 4306577250 4306577250            C:OZHC:OZHC:OZHC:OZHC:OZHC:OZHC:OZH
 1500: 0003500011 4664562021 1361200436 3414400000 0040474564 4046576264 6241564063 7155425754  !H tFTN01"Q0&.,'     GET FORTRAN SYMBOL
       1515151515 0040404062 4564656256 6340363636 1515151515 0040404040 4016211740 4063604543 rrrrr    RETURNS ...rrrrr      (1)  SPEC
       5141544043 5041624143 6445621515 0040404040 4016221740 4056655545 6251434043 5041624143 IAL CHARACTERrr      (2)  NUMERIC CHARAC
       6445624016 5541714050 4166454063 7155424640 3340244057 6240303440 6345454042 4554576717 TER (MAY HAVE SYMBF = 4 OR 8, SEE BELOW)
       1515151515 0040404040 4016231740 4066415451 4440637155 4257544016 5156406371 5542213440 rrrrr      (3)  VALID SYMBOL (IN SYMB1, 
       6371554222 3440415644 4063715542 2317151515 0040404057 5640624564 6562564023 4063715542 SYMB2, AND SYMB3)rrr    ON RETURN 3 SYMB
       4640675154 5440424540 6345644056 5756357245 6257405146 4064504562 4540516340 4115151515 F WILL BE SET NON-ZERO IF THERE IS Arrrr
       0040404040 4060624546 5170405756 4064504540 6371554257 5434404163 4046575454 5767634036       PREFIX ON THE SYMBOL, AS FOLLOWS .
       3636151515 0040404040 4040406371 5542464033 4021344022 3440576240 2340465762 4073344073 ..rrr        SYMBF = 1, 2, OR 3 FOR $, $
       7334405762 4073737315 0040404040 4040406371 5542464033 4024404657 6240754016 6054656340 $, OR $$$r        SYMBF = 4 FOR @ (PLUS 
       2134402234 4057624023 1715151515 0040404040 4040406371 5542464033 4030404657 6240744016 1, 2, OR 3)rrrr        SYMBF = 8 FOR # (
       6054656340 2134402234 4057624023 1715151515 1515151515 4763715506 1152655560 1136110045 PLUS 1, 2, OR 3)rrrrrrrrrGSYM:tJUMPt.t E
       5664627115 1155444162 1456116371 5563661100 6341664544 4063715542 5754404662 5755405441 NTRYrtMDAR'NtSYMSVt SAVED SYMBOL FROM LA
       6364404341 5454401215 1152604156 1147637155 2011005657 3440635351 6015151515 1515151515 ST CALL ?rtJPANtGSYM0t NO, SKIPrrrrrrrrr
       1141625544 1163715563 6611007145 6334404354 4541624063 4166454046 5441471515 1155444162 tARMDtSYMSVt YES, CLEAR SAVE FLAGrrtMDAR
       1450116371 5542211100 4156714063 7155425754 4012151515 1152605463 1147637155 2111007145 'HtSYMB1t ANY SYMBOL ?rrrtJPLStGSYM1t YE
       6334405265 5560406457 4062456465 6256151515 1515151515 1155444162 1163435041 6211005657 S, JUMP TO RETURNrrrrrrrrtMDARtSCHARt NO
       3440464564 4350405441 6364404350 4162151515 1152606362 1143506471 6011004350 4543534051 , FETCH LAST CHARrrrtJPSRtCHTYPt CHECK I
       6463406471 6045151515 1155445162 1147637155 1100404051 4640636045 4351415434 4062456465 TS TYPErrrtMDIRtGSYMt   IF SPECIAL, RETU
       6256401621 1715151515 1155445162 1470114763 7155110040 4051464044 5147516434 4062456465 RN (1)rrrrtMDIR'XtGSYMt   IF DIGIT, RETU
       6256401622 1715151515 1152655560 1136110040 4016635057 6554444056 5764404745 6440504562 RN (2)rrrrtJUMPt.t   (SHOULD NOT GET HER
       4517151515 1515151515 4763715520 0611416255 4414561163 7155424611 0043544541 6240606245 E)rrrrrrrrGSYM0:tARMD'NtSYMBFt CLEAR PRE
       4651704046 5441476315 1152606362 1147634511 0047456440 4570604156 4445444063 7155425754 FIX FLAGSrtJPSRtGSEt GET EXPANDED SYMBOL
       4036363615 1152655560 1147637155 2211004040 5146406360 4543514154 3440435045 4353405146  ...rtJUMPtGSYM2t   IF SPECIAL, CHECK IF
       4060624546 5170151515 1155445162 1470114763 7155110040 4051464044 5147516434 4062456465  PREFIXrrrtMDIR'XtGSYMt   IF DIGIT, RETU
       6256401622 1715151515 1515151515 4763715521 0611416241 6214701147 6371551100 5146404154 RN (2)rrrrrrrrrGSYM1:tARAR'XtGSYMt IF AL
       6050415665 5545625143 4063715542 5754344051 5644457040 6245646562 5615151515 1155445162 PHANUMERIC SYMBOL, INDEX RETURNrrrrtMDIR
       1470114763 7155110040 4041564440 6245646562 5640162317 1515151515 1515151515 4763715522 'XtGSYMt   AND RETURN (3)rrrrrrrrrrGSYM2
       0611554470 5714461102 7511004164 3563514756 4060624546 5170401215 1152605463 1147637155 :tMDXO'Ftc@t AT-SIGN PREFIX ?rtJPLStGSYM
       2311005657 3440526555 6015151515 1515151515 1155444162 1143241100 7145633440 6345644060 3t NO, JUMPrrrrrrrrrtMDARtC4t YES, SET P
       6245465170 4046544147 1515151515 1141625544 1163715542 4615151515 1141625544 1163434156 REFIX FLAGrrrrrtARMDtSYMBFrrrrtARMDtSCAN
       4611004156 4440624563 4564406343 4156405557 4445151515 1152606362 1147634511 0047456440 Ft AND RESET SCAN MODErrrtJPSRtGSEt GET 
       5645706440 6371554257 5415151515 1152655560 1147637155 2411004040 5146406360 4543514154 NEXT SYMBOLrrrrtJUMPtGSYM4t   IF SPECIAL
       3440434156 4057565471 4042454073 3440526555 6015151515 1155445162 1470114763 7155110040 , CAN ONLY BE $, JUMPrrrrtMDIR'XtGSYMt  
       4051464056 6555456251 4334405441 4245544043 5756636434 4062456440 1622171515 1152655560  IF NUMERIC, LABEL CONST, RET (2)rrtJUMP
       1147637155 2111004040 4154605041 4245645143 3440475740 6245646562 5640162317 1515151515 tGSYM1t   ALPHABETIC, GO RETURN (3)rrrrr
       1515151515 7777700000 3157243662 3157243662 3157243662 3157243662 3157243662 3157243662 rrrrrbbX  9O4.R9O4.R9O4.R9O4.R9O4.R9O4.R
       3157243662 3157243662 3157243662 3157243662                                             9O4.R9O4.R9O4.R9O4.R
 1360: 0003600011 4664562021 1361200402 3414400000 4763715523 0611554470 5714461102 7514021374  !P tFTN01"Q0&c,'   GSYM3:tMDXO'Ftc@'c"#
       1311006057 5156644562 4060624546 5170401215 1152605463 1147637155 2411005657 3440475740 "t POINTER PREFIX ?rtJPLStGSYM4t NO, GO 
       4350454353 4051464045 7064406245 4640606245 4651701515 1515151515 1155444162 1442114324 CHECK IF EXT REF PREFIXrrrrrrrtMDAR'BtC4
       1100714563 3440634564 4060624546 5170404654 4147151515 1141625544 1163715542 4615151515 t YES, SET PREFIX FLAGrrrtARMDtSYMBFrrrr
       1141625544 1163434156 4611004156 4440624563 4564406343 4156405557 4445151515 1152606362 tARMDtSCANFt AND RESET SCAN MODErrrtJPSR
       1147634511 0047456440 5645706440 6371554257 5415151515 1152655560 1136102311 0040405146 tGSEt GET NEXT SYMBOLrrrrtJUMPt.+3t   IF
       4063604543 5141543440 4341564057 5654714042 4540733440 6353516015 1155445162 1470114763  SPECIAL, CAN ONLY BE $, SKIPrtMDIR'XtGS
       7155110040 4056655545 6251433440 4561655166 4041444462 4060646234 4062456440 1622171515 YMt   NUMERIC, EQUIV ADDR PTR, RET (2)rr
       1152655560 1147637155 2111004040 5146404154 6050414245 6451433440 4757406245 6465625640 tJUMPtGSYM1t   IF ALPHABETIC, GO RETURN 
       1623171515 1515151515 4763715524 0611554441 6211634350 4162110046 4564435040 5441636440 (3)rrrrrrrGSYM4:tMDARtSCHARt FETCH LAST 
       4350416241 4364456240 1663604543 5141541715 1155447057 1446110273 1100516340 5164404140 CHARACTER (SPECIAL)rtMDXO'Ftc$t IS IT A 
       4457545441 6240635147 5640121515 1152605463 1147637155 2511005657 3440526555 6015151515 DOLLAR SIGN ?rrtJPLStGSYM5t NO, JUMPrrrr
       1515151515 1155444162 1470116371 5542461100 7145633440 5156444570 4060624546 5170404654 rrrrrtMDAR'XtSYMBFt YES, INDEX PREFIX FL
       4147151515 1141625544 1163434156 4611004156 4440624563 4564406343 4156405557 4445151515 AGrrrtARMDtSCANFt AND RESET SCAN MODErrr
       1155444162 1441144611 2311005557 6245406450 4156402340 4457545441 6235635147 5663401215 tMDAR'A'Ft3t MORE THAN 3 DOLLAR-SIGNS ?r
       1152605463 1136102311 0056573440 6353516015 1515151515 4763456222 0611526063 6211456262 tJPLSt.+3t NO, SKIPrrrrrrGSER2:tJPSRtERR
       5762110045 6262576215 1111456221 2111004040 1651545445 4741544073 3474347540 6563414745 ORt ERRORrttER11t   (ILLEGAL $,#,@ USAGE
       1715151515 1515151515 1152606362 1147634511 0047456440 5645706440 6371554257 5415151515 )rrrrrrrrrtJPSRtGSEt GET NEXT SYMBOLrrrr
       1152655560 1147637155 2410211100 4040636045 4351415434 4043534051 4640415657 6450456240 tJUMPtGSYM4+1t   SPECIAL, CK IF ANOTHER 
       4457545441 6235635147 5615151515 1152655560 1147634562 2211004040 5665554562 5143344051 DOLLAR-SIGNrrrrtJUMPtGSER2t   NUMERIC, I
       5454454741 5415151515 1152655560 1147637155 2111004040 5445646445 6234404757 4062456465 LLEGALrrrrtJUMPtGSYM1t   LETTER, GO RETU
       6256401623 1715151515 1515151515 4763715525 0611554441 6211637155 4246110056 5764404457 RN (3)rrrrrrrrrGSYM5:tMDARtSYMBFt NOT DO
       5454416235 6351475634 4041567140 5764504562 4060624546 5170401215 1152605463 1147634562 LLAR-SIGN, ANY OTHER PREFIX ?rtJPLStGSER
       2211007145 6334405154 5445474154 4065634147 4515151515 1155445162 1147637155 1100565734 2t YES, ILLEGAL USAGErrrrtMDIRtGSYMt NO,
       4062456465 6256401621 1734406360 4543514154 1515151515 1515151515 6371556366 0611112011  RETURN (1), SPECIALrrrrrrrrrrSYMSV:tt0t
       0063715542 5754406341 6645444046 5441471515 6371554246 0611112011 0063715542 5754406062  SYMBOL SAVED FLAGrrSYMBF:tt0t SYMBOL PR
       4546517040 4654414715 1515151515 1515151515 0040474564 4046576264 6241564063 7155425754 EFIX FLAGrrrrrrrrrrr  GET FORTRAN SYMBOL
       4067516450 4063715664 4170404562 6257624051 4640565764 4041546050 4142456451 4315151515  WITH SYNTAX ERROR IF NOT ALPHABETICrrrr
       1515151515 4763715541 0611526555 6011361100 4556646271 1515151515 1152606362 1147637155 rrrrrGSYMA:tJUMPt.t ENTRYrrrrrtJPSRtGSYM
       1100474564 4056457064 4063715542 5754403636 3615151515 1152655560 1151544743 5011004040 t GET NEXT SYMBOL ...rrrrtJUMPtILGCHt   
       6360454351 4154344063 7156644170 4045626257 6215151515 1152655560 1151544743 5011004040 SPECIAL, SYNTAX ERRORrrrrtJUMPtILGCHt   
       4451475164 3440637156 6441704045 6262576215 1155445162 1147637155 4111004040 4154605041 DIGIT, SYNTAX ERRORrtMDIRtGSYMAt   ALPHA
       3440575334 4062456465 6256151515 1515151515 1515151515 7777700000 3444272654 3444272654 , OK, RETURNrrrrrrrrrrrrrbbX  ,D76L,D76L
       3444272654 3444272654 3444272654 3444272654 3444272654 3444272654 3444272654 3444272654 ,D76L,D76L,D76L,D76L,D76L,D76L,D76L,D76L
 1315: 0003700011 4664562021 1361200371 3414400000 0040634541 6243504046 5762405756 4540675762  !X tFTN01"Q0!Y,'     SEARCH FOR ONE WOR
       4440637155 4257544016 4144446240 5746402163 6440606462 4051564041 6234404162 4740515663 D SYMBOL (ADDR OF 1ST PTR IN AR, ARG INS
       6462406457 4046456443 5040637155 4257541715 0040404062 4564656256 6340363636 1515151515 TR TO FETCH SYMBOL)r    RETURNS ...rrrrr
       0040404040 4016211740 4056576440 4657655644 1515151515 0040404040 4016221740 4046576556       (1)  NOT FOUNDrrrrr      (2)  FOUN
       4415151515 0040404057 5640624564 6562563440 6365626040 4357566441 5156634041 4444624563 Drrrr    ON RETURN, SURP CONTAINS ADDRES
       6340574640 4556646271 4051464046 5765564434 4057624057 4640564570 6440455664 6271341515 S OF ENTRY IF FOUND, OR OF NEXT ENTRY,rr
       0040404040 4040401660 5763635142 5471407245 6257173440 5146405657 6440465765 5644321515         (POSSIBLY ZERO), IF NOT FOUND;rr
       0040404040 4063656260 2240435756 6441515663 4041444462 4563634057 4640606245 6651576563       SURP2 CONTAINS ADDRESS OF PREVIOUS
       4045566462 7140166750 5143504060 5751566463 4064574063 6562601732 1515151515 0040404040  ENTRY (WHICH POINTS TO SURP);rrrrr     
       4063656260 2140435756 6441515663 4041444462 4563634057 4640637155 4257544051 4640465765  SURP1 CONTAINS ADDRESS OF SYMBOL IF FOU
       5644344057 6240724562 5740514640 5657644046 5765564436 1515151515 1515151515 6365624321 ND, OR ZERO IF NOT FOUND.rrrrrrrrrrSURC1
       0611526555 6011361100 4556646271 1515151515 1141625544 1163656260 2211006364 5762454041 :tJUMPt.t ENTRYrrrrrtARMDtSURP2t STORE A
       4444624563 6340574640 5156516451 4154406345 4162435040 6064621515 1155445162 1451116365 DDRESS OF INITIAL SEARCH PTRrrtMDIR'ItSU
       6243211100 4645644350 4041624765 5545566440 6641546545 1515151515 1141625544 1164552111 RC1t FETCH ARGUMENT VALUErrrrrtARMDtTM1t
       0063416645 1515151515 1152655560 1163656243 2511005265 5560406457 4063644162 6465601515  SAVErrrrrtJUMPtSURC5t JUMP TO STARTUPrr
       1515151515 6365624324 0611554441 6211645521 1100464564 4350404162 4765554556 6440664154 rrrrrSURC4:tMDARtTM1t FETCH ARGUMENT VAL
       6545151515 1152606362 1155416443 5011004357 5560416245 4067516450 4064414254 4540455664 UErrrtJPSRtMATCHt COMPARE WITH TABLE ENT
       6271151515 1141624162 1470116365 6243211100 4657655644 3440624564 6562564016 2217151515 RYrrrtARAR'XtSURC1t FOUND, RETURN (2)rrr
       1155445162 1470116365 6243211100 5445636340 6450415640 6441425445 4045566462 7134406245 tMDIR'XtSURC1t LESS THAN TABLE ENTRY, RE
       6465625640 1621171515 1515151515 1155444162 1163656260 1100364764 3640644142 5445344046 TURN (1)rrrrrrrtMDARtSURPt .GT. TABLE, F
       4564435040 4365626240 6345416243 5040606462 1515151515 1141625544 1163656260 2211006341 ETCH CURR SEARCH PTRrrrrrtARMDtSURP2t SA
       6645404163 4041444462 4057464056 4570644054 5156534060 6462151515 1515151515 6365624325 VE AS ADDR OF NEXT LINK PTRrrrrrrrrSURC5
       0611554441 6214511163 6562602211 0046456443 5040564570 6440644142 5445405451 5653151515 :tMDAR'ItSURP2t FETCH NEXT TABLE LINKrrr
       1155444162 1441114155 4163531100 5541635315 1141625544 1163656260 1100634166 4540416340 tMDAR'AtAMASKt MASKrtARMDtSURPt SAVE AS 
       4365626245 5664406441 4254454045 5664627115 1141625544 1163656260 2111004156 4440465762 CURRENT TABLE ENTRYrtARMDtSURP1t AND FOR
       4051564445 7051564715 1152605463 1163656243 2411004556 4440574640 6441425445 4012344056  INDEXINGrtJPLStSURC4t END OF TABLE ?, N
       5740545757 6015151515 1515151515 1155445162 1470116365 6243211100 7145633440 6245646562 O LOOPrrrrrrrrrtMDIR'XtSURC1t YES, RETUR
       5640162117 3440565764 4046576556 4415151515 1515151515 1515151515 6365626006 1111201100 N (1), NOT FOUNDrrrrrrrrrrrrrrSURP:tt0t 
       6057515664 4562406457 4043656262 4556644064 4142544540 4556646271 1515151515 6365626021 POINTER TO CURRENT TABLE ENTRYrrrrrSURP1
       0611112011 0060575156 6445624064 5740436562 6240554164 4350406641 5465454051 5640455664 :tt0t POINTER TO CURR MATCH VALUE IN ENT
       6271151515 6365626022 0611112011 0041444462 4563634057 4640545156 5340606462 4064574043 RYrrrSURP2:tt0t ADDRESS OF LINK PTR TO C
       6562624045 5664627115 1515151515 1515151515 7777700000 6012470340 6012470340 6012470340 URR ENTRYrrrrrrrrrrrbbX  P?G! P?G! P?G! 
       6012470340 6012470340 6012470340 6012470340 6012470340 6012470340 6012470340            P?G! P?G! P?G! P?G! P?G! P?G! P?G! 
 1485: 0004000011 4664562021 1361200433 3414400000 0040634541 6243504046 5762402235 6757624440  &  tFTN01"Q0&=,'     SEARCH FOR 2-WORD 
       6371554257 5440164144 4462405746 4021636440 6064624051 5640416234 4022404162 4740515663 SYMBOL (ADDR OF 1ST PTR IN AR, 2 ARG INS
       6462146340 6457404645 6443504063 7155631715 0040404062 4564656256 6340363636 4040634155 TR'S TO FETCH SYMS)r    RETURNS ...  SAM
       4540416340 6365624321 3440414257 6645151515 1515151515 6365624322 0611526555 6011361100 E AS SURC1, ABOVErrrrrrrrSURC2:tJUMPt.t 
       4556646271 1515151515 1141625544 1163656260 1100634166 4540515651 6451415440 6345416243 ENTRYrrrrrtARMDtSURPt SAVE INITIAL SEARC
       5040605751 5664456215 1155445162 1451116365 6243221100 4645644350 4021636440 6757624415 H POINTERrtMDIR'ItSURC2t FETCH 1ST WORDr
       1141625544 1164552111 0063416645 1515151515 1155445162 1451147011 6365624322 1100464564 tARMDtTM1t SAVErrrrrtMDIR'I'XtSURC2t FET
       4350402256 4440637155 4257544067 5762441515 1141625544 1164552211 0063416645 1515151515 CH 2ND SYMBOL WORDrrtARMDtTM2t SAVErrrrr
       1515151515 6365624327 0611554441 6211636562 6011006345 4162435040 4657624021 6364406757 rrrrrSURC7:tMDARtSURPt SEARCH FOR 1ST WO
       6244405156 4064414254 4515151515 1152606362 1163656243 2115151515 1155444162 1164552115 RD IN TABLErrrrtJPSRtSURC1rrrrtMDARtTM1r
       1515151515 1155445162 1470116365 6243221100 5657644046 5765564434 4062456465 6256401621 rrrrrtMDIR'XtSURC2t NOT FOUND, RETURN (1
       1715151515 1515151515 1155444162 1164552211 0046576556 4434404645 6443504022 5644406371 )rrrrrrrrrtMDARtTM2t FOUND, FETCH 2ND SY
       5542575440 6757624415 1152606362 1155416443 5011004357 5560416245 4067516450 4022564440 MBOL WORDrtJPSRtMATCHt COMPARE WITH 2ND 
       6441425445 4067576244 1515151515 1141624162 1470116365 6243221100 4040554164 4350344062 TABLE WORDrrrrrtARAR'XtSURC2t   MATCH, R
       4564656256 4016221734 4046576556 4415151515 1155445162 1470116365 6243221100 4040544563 ETURN (2), FOUNDrrrrtMDIR'XtSURC2t   LES
       6340645041 5640644142 5445406757 6244344062 4564656256 4016211715 1152655560 1163656243 S THAN TABLE WORD, RETURN (1)rtJUMPtSURC
       2711004040 3647643640 6441425445 4067576244 3440534545 6040634541 6243505156 4715151515 7t   .GT. TABLE WORD, KEEP SEARCHINGrrrr
       1515151515 1515151515 0040634541 6243504046 5762402335 6757624440 6371554257 5440164144 rrrrrrrrrr  SEARCH FOR 3-WORD SYMBOL (AD
       4462405746 4021636440 6064624051 5640416234 4023404162 4740515663 6462146340 6457404645 DR OF 1ST PTR IN AR, 3 ARG INSTR'S TO FE
       6443504063 7155631715 0040404062 4564656256 6340363636 4040634155 4540416340 6365624321 TCH SYMS)r    RETURNS ...  SAME AS SURC1
       3440414257 6645151515 1515151515 6365624323 0611526555 6011361100 4556646271 1515151515 , ABOVErrrrrrrrSURC3:tJUMPt.t ENTRYrrrrr
       1141625544 1163656260 1100634166 4540515651 6451415440 6345416243 5040605751 5664456215 tARMDtSURPt SAVE INITIAL SEARCH POINTERr
       1155445162 1451116365 6243231100 4645644350 4021636440 6757624415 1141625544 1164552111 tMDIR'ItSURC3t FETCH 1ST WORDrtARMDtTM1t
       0063416645 1515151515 1155445162 1451147011 6365624323 1100464564 4350402256 4440637155  SAVErrrrrtMDIR'I'XtSURC3t FETCH 2ND SYM
       4257544067 5762441515 1141625544 1164552211 0063416645 1515151515 1155445162 1451147011 BOL WORDrrtARMDtTM2t SAVErrrrrtMDIR'I'Xt
       6365624323 1100464564 4350402362 4440637155 4257544067 5762441515 1141625544 1164552311 SURC3t FETCH 3RD SYMBOL WORDrrtARMDtTM3t
       0063416645 1515151515 1515151515 6365624330 0611554441 6211636562 6011006345 4162435040  SAVErrrrrrrrrrSURC8:tMDARtSURPt SEARCH 
       4657624021 6364404156 4440225644 4067576244 6315151515 1152606362 1163656243 2215151515 FOR 1ST AND 2ND WORDSrrrrtJPSRtSURC2rrrr
       1155444162 1164552115 1155444162 1164552215 1515151515 1155445162 1470116365 6243231100 tMDARtTM1rtMDARtTM2rrrrrrtMDIR'XtSURC3t 
       5657644046 5765564434 4062456465 6256401621 1715151515 1515151515 1155444162 1164552311 NOT FOUND, RETURN (1)rrrrrrrrrtMDARtTM3t
       0046576556 4434404645 6443504023 6244406371 5542575440 6757624415 1152606362 1155416443  FOUND, FETCH 3RD SYMBOL WORDrtJPSRtMATC
       5011004357 5560416245 4067516450 4023624440 6441425445 4067576244 1515151515 1141624162 Ht COMPARE WITH 3RD TABLE WORDrrrrrtARAR
       1470116365 6243231100 4040554164 4350344062 4564656256 4016221734 4046576556 4415151515 'XtSURC3t   MATCH, RETURN (2), FOUNDrrrr
       1155445162 1470116365 6243231100 4040544563 6340645041 5640644142 5445406757 6244344062 tMDIR'XtSURC3t   LESS THAN TABLE WORD, R
       4564656256 4016211715 1152655560 1163656243 3011004040 3647643640 6442415445 4067576244 ETURN (1)rtJUMPtSURC8t   .GT. TBALE WORD
       3440534545 6040634541 6243505156 4715151515 1515151515 1515151515 7777700000 4050063507 , KEEP SEARCHINGrrrrrrrrrrrrrrbbX   H:-_
       4050063507 4050063507 4050063507 4050063507 4050063507 4050063507 4050063507 4050063507  H:-_ H:-_ H:-_ H:-_ H:-_ H:-_ H:-_ H:-_
       4050063507                                                                               H:-_
  925: 0004100011 4664562021 1361200253 3414400000 0040435755 6041624540 6371554257 5440675762  &+ tFTN01"Q0cK,'     COMPARE SYMBOL WOR
       4440645740 6441425445 4016644563 6440664154 6545405156 4041623440 6365626021 4060575156 D TO TABLE (TEST VALUE IN AR, SURP1 POIN
       6463406457 4064414254 4540664154 6545171515 0040404062 4564656256 6340363636 1515151515 TS TO TABLE VALUE)rr    RETURNS ...rrrrr
       0040404040 4016211740 4064456364 4066415465 4540364561 3640644142 5445406757 6244151515       (1)  TEST VALUE .EQ. TABLE WORDrrr
       0040404040 4016221740 4064456364 4066415465 4540365464 3640644142 5445406757 6244401663       (2)  TEST VALUE .LT. TABLE WORD (S
       6562602140 3340201715 0040404040 4016231740 4064456364 4066415465 4540364764 3640644142 URP1 = 0)r      (3)  TEST VALUE .GT. TAB
       5445406757 6244151515 1515151515 5541644350 0611526555 6011361100 4556646271 1515151515 LE WORDrrrrrrrrMATCH:tJUMPt.t ENTRYrrrrr
       1155447057 1451147011 6365626021 1100634155 4540635147 5640416340 6441425445 4067576244 tMDXO'I'XtSURP1t SAME SIGN AS TABLE WORD
       4012151515 1152604156 1155416443 2211005657 3440565740 5541644350 3440635351 6015151515  ?rrrtJPANtMATC2t NO, NO MATCH, SKIPrrrr
       1515151515 1155447057 1451116365 6260211100 7145633440 6245636457 6245406445 6364406371 rrrrrtMDXO'ItSURP1t YES, RESTORE TEST SY
       5542575415 1155444145 1451145611 6365626021 1100364764 3640644142 5445406371 5542575440 MBOLrtMDAE'I'NtSURP1t .GT. TABLE SYMBOL 
       1215151515 1152604156 1136102311 0056573440 6353516015 1515151515 5541644321 0611416241 ?rrrrtJPANt.+3t NO, SKIPrrrrrrMATC1:tARA
       6214701155 4164435011 0071456334 4051564445 7040624564 6562561515 1155445162 1470115541 R'XtMATCHt YES, INDEX RETURNrrtMDIR'XtMA
       6443501100 4156444062 4564656256 4016231715 1515151515 1155444163 1446112111 0045704143 TCHt AND RETURN (3)rrrrrrtMDAS'Ft1t EXAC
       6440554164 4350401215 1152604156 1155416443 2311005657 3440526555 6040465762 4036546436 T MATCH ?rtJPANtMATC3t NO, JUMP FOR .LT.
       4062456465 6256151515 1515151515 1155445162 1155416443 5011007145 6334406245 6465625640  RETURNrrrrrrrrtMDIRtMATCHt YES, RETURN 
       1621171515 1515151515 5541644322 0611554470 5714511163 6562602111 0044514646 4063514756 (1)rrrrrrrMATC2:tMDXO'ItSURP1t DIFF SIGN
       6334406445 6364406757 6244405645 4741645166 4540121515 1152604156 1155416443 2111007145 S, TEST WORD NEGATIVE ?rrtJPANtMATC1t YE
       6334405265 5560406457 4064415345 4036476436 4062456465 6256151515 1515151515 5541644323 S, JUMP TO TAKE .GT. RETURNrrrrrrrrMATC3
       0611416270 5714461111 0064456364 4067576244 4036546436 4063715542 5754406757 6244151515 :tARXO'Ftt TEST WORD .LT. SYMBOL WORDrrr
       1141625544 1163656260 2111004354 4541624046 5765564440 4654414715 1155445162 1470115541 tARMDtSURP1t CLEAR FOUND FLAGrtMDIR'XtMA
       6443501100 4156444062 4564656256 4016221715 1515151515 1515151515 7777700000 7337326065 TCHt AND RETURN (2)rrrrrrrrrrrbbX  $/;PU
       7337326065 7337326065 7337326065 7337326065 7337326065 7337326065 7337326065 7337326065 $/;PU$/;PU$/;PU$/;PU$/;PU$/;PU$/;PU$/;PU
       7337326065                                                                              $/;PU
 1300: 0004200011 4664562021 1361200366 3414400000 0040425156 4162714063 4541624350 4046576240  &0 tFTN01"Q0!V,'     BINARY SEARCH FOR 
       5756453567 5762444063 7155425754 1515151515 0040404016 5544416214 4640644142 5445405156 ONE-WORD SYMBOLrrrrr    (MDAR'F TABLE IN
       4041623440 5544416214 4640455644 1021405156 4041624717 1515151515 0040404062 4564656256  AR, MDAR'F END+1 IN ARG)rrrrr    RETURN
       6340363636 1515151515 0040404040 4016211740 4056576440 4657655644 1515151515 0040404040 S ...rrrrr      (1)  NOT FOUNDrrrrr     
       4016221740 4046576556 4440164263 6562604060 5751566463 4064574022 5644404556 6462714067  (2)  FOUND (BSURP POINTS TO 2ND ENTRY W
       5762441715 1515151515 4263656221 0611526555 6011361100 4556646271 1515151515 1141625544 ORD)rrrrrrBSUR1:tJUMPt.t ENTRYrrrrrtARMD
       1142636562 4211006341 6645404245 4751564060 5751566445 6215151515 1155444162 1451114263 tBSURBt SAVE BEGIN POINTERrrrrtMDAR'ItBS
       6562211100 4645644350 4041624715 1515151515 4263656223 0611416255 4411426365 6245110063 UR1t FETCH ARGrrrrrrBSUR3:tARMDtBSUREt S
       4166454056 4567404556 4440605751 5664456215 1155444145 1456114263 6562421100 4357556065 AVE NEW END POINTERrtMDAE'NtBSURBt COMPU
       6445405657 3640675762 4463406457 4063454162 4350151515 1515151515 4263656224 0611415651 TE NO. WORDS TO SEARCHrrrrrrrrBSUR4:tANI
       6214701142 6365622111 0042454751 5633455644 3440624564 6562564016 2117344056 5764404657 R'XtBSUR1t BEGIN=END, RETURN (1), NOT FO
       6556441515 1515151515 1141626263 1122110044 5166514445 4056573640 4556646251 4563404271 UNDrrrrrrrtARRSt2t DIVIDE NO. ENTRIES BY
       4064675715 1141624162 1442144611 1100445765 4254454046 5762406467 5735675762 4440455664  TWOrtARAR'B'Ftt DOUBLE FOR TWO-WORD ENT
       6251456315 1155444145 1142636562 4211004144 4440424547 5156404144 4462456363 1515151515 RIESrtMDAEtBSURBt ADD BEGIN ADDRESSrrrrr
       1141625544 1142636562 6011006341 6645405645 6740634541 6243504041 4444624563 6315151515 tARMDtBSURPt SAVE NEW SEARCH ADDRESSrrrr
       1515151515 1155444162 1451114263 6562601100 4645644350 4063715542 5754404662 5755406441 rrrrrtMDAR'ItBSURPt FETCH SYMBOL FROM TA
       4254451515 1155444145 1456116371 5542211100 3654453640 4365626240 6371554257 5440121515 BLErrtMDAE'NtSYMB1t .LE. CURR SYMBOL ?rr
       1152604156 1136102311 0071456334 4052655560 4064574043 5045435340 4657624055 4164435015 tJPANt.+3t YES, JUMP TO CHECK FOR MATCHr
       1515151515 1155444162 1142636562 6011005657 3440464564 4350406345 4162435040 6057515664 rrrrrtMDARtBSURPt NO, FETCH SEARCH POINT
       4562151515 1152655560 1142636562 2311005265 5560406457 4063456440 4163405645 6740455644 ERrrrtJUMPtBSUR3t JUMP TO SET AS NEW END
       1515151515 1515151515 1141624162 1456147011 4263656260 1100515644 4570406345 4162435040 rrrrrrrrrrtARAR'N'XtBSURPt INDEX SEARCH 
       6057515664 4562406457 4066415465 4540675762 4415151515 1141624162 1450145714 4611110045 POINTER TO VALUE WORDrrrrtARAR'H'O'Ftt E
       7041436440 5541644350 4012151515 1152605463 1136102311 0056573440 6353516015 1515151515 XACT MATCH ?rrrtJPLSt.+3t NO, SKIPrrrrrr
       1141624162 1470114263 6562211100 7145633440 5156444570 4062456465 6256151515 1155445162 tARAR'XtBSUR1t YES, INDEX RETURNrrrtMDIR
       1470114263 6562211100 6245646562 5640162217 3440465765 5644151515 1515151515 1155444162 'XtBSUR1t RETURN (2), FOUNDrrrrrrrrtMDAR
       1470145611 4263656260 1100515644 4570406345 4162435040 6064624064 5740564570 6440455664 'X'NtBSURPt INDEX SEARCH PTR TO NEXT ENT
       6271151515 1141625544 1456114263 6562421100 6341664540 4163405645 6740424547 5156151515 RYrrrtARMD'NtBSURBt SAVE AS NEW BEGINrrr
       1155444145 1142636562 4511004357 5560656445 4056456740 5657364067 5762446340 6457406345 tMDAEtBSUREt COMPUTE NEW NO. WORDS TO SE
       4162435015 1152655560 1142636562 2411005265 5560406457 4064456364 4046576240 5657564540 ARCHrtJUMPtBSUR4t JUMP TO TEST FOR NONE 
       5445466415 1515151515 4263656260 0611112011 0063454162 4350406057 5156644562 1515151515 LEFTrrrrrrBSURP:tt0t SEARCH POINTERrrrrr
       4263656242 0611112011 0042454751 5640634541 6243504060 5751566445 6215151515 1515151515 BSURB:tt0t BEGIN SEARCH POINTERrrrrrrrrr
       1515151515 7777700000 5066035112 5066035112 5066035112 5066035112 5066035112 5066035112 rrrrrbbX  HV!I?HV!I?HV!I?HV!I?HV!I?HV!I?
       5066035112 5066035112 5066035112 5066035112                                             HV!I?HV!I?HV!I?HV!I?
 1395: 0004300011 4664562021 1361200411 3414400000 0040425156 4162714063 4541624350 4046576240  &8 tFTN01"Q0&t,'     BINARY SEARCH FOR 
       6467573567 5762444063 7155425754 1515151515 0040404016 5544416214 4640644142 5445405156 TWO-WORD SYMBOLrrrrr    (MDAR'F TABLE IN
       4041623440 5544416214 4640455644 1021405156 4041624717 1515151515 0040404062 4564656256  AR, MDAR'F END+1 IN ARG)rrrrr    RETURN
       6340363636 1515151515 0040404040 4016211740 4056576440 4657655644 1515151515 0040404040 S ...rrrrr      (1)  NOT FOUNDrrrrr     
       4016221740 4046576556 4440164263 6562604060 5751566463 4064574066 4154654540 6757624440  (2)  FOUND (BSURP POINTS TO VALUE WORD 
       5156406441 4254454045 7064455663 5157561715 1515151515 4263656222 0611526555 6011361100 IN TABLE EXTENSION)rrrrrrBSUR2:tJUMPt.t 
       4556646271 1515151515 1141625544 1164552111 0063416645 4064414254 4540636441 6264151515 ENTRYrrrrrtARMDtTM1t SAVE TABLE STARTrrr
       1141625544 1142636562 4211004154 6357404163 4063454162 4350404245 4751564060 5751566445 tARMDtBSURBt ALSO AS SEARCH BEGIN POINTE
       6215151515 1155444162 1451114263 6562221100 4645644350 4041624715 1141625544 1164552211 RrrrrtMDAR'ItBSUR2t FETCH ARGrtARMDtTM2t
       0063416645 4064414254 4540455644 1515151515 1515151515 4263656225 0611416255 4411426365  SAVE TABLE ENDrrrrrrrrrrBSUR5:tARMDtBSU
       6245110063 4166454063 4541624350 4045564440 6057515664 4562151515 1155444162 1142636562 REt SAVE SEARCH END POINTERrrrtMDARtBSUR
       4211004645 6443504063 4541624350 4042454751 5640414444 6215151515 1515151515 4263656226 Bt FETCH SEARCH BEGIN ADDRrrrrrrrrrBSUR6
       0611526063 6211426365 6221110063 4541624350 4046576240 4651626364 4063715542 5754406757 :tJPSRtBSUR1t SEARCH FOR FIRST SYMBOL WO
       6244151515 4263656245 0611554441 6214461111 0040401641 6247405156 6364624064 5740464564 RDrrrBSURE:tMDAR'Ftt   (ARG INSTR TO FET
       4350404556 4440414444 6217151515 1515151515 1155445162 1470114263 6562221100 5657644046 CH END ADDR)rrrrrrrrtMDIR'XtBSUR2t NOT F
       5765564434 4062456465 6256401621 1715151515 1515151515 1155444162 1451114263 6562601100 OUND, RETURN (1)rrrrrrrrrtMDAR'ItBSURPt 
       4645644350 4022564440 6441425445 4067576244 1515151515 1155444145 1456116371 5542221100 FETCH 2ND TABLE WORDrrrrrtMDAE'NtSYMB2t 
       3654453640 2256444063 7155425754 4067576244 4012151515 1152604156 1136102411 0071456334 .LE. 2ND SYMBOL WORD ?rrrtJPANt.+4t YES,
       4052655560 4046576240 5541644350 4043504543 5315151515 1515151515 1155444162 1142636562  JUMP FOR MATCH CHECKrrrrrrrrrtMDARtBSUR
       6011005657 3440464564 4350406345 4162435040 6057515664 4562151515 1155444163 1446145611 Pt NO, FETCH SEARCH POINTERrrrtMDAS'F'Nt
       2111004445 4362455545 5664406457 4046516263 6440455664 6271406757 6244151515 1152655560 1t DECREMENT TO FIRST ENTRY WORDrrrtJUMP
       1142636562 2511005265 5560406457 4063456440 4163405645 6740455644 4041564440 6245356345 tBSUR5t JUMP TO SET AS NEW END AND RE-SE
       4162435015 1515151515 1155444163 1446112111 0045704143 6440554164 4350401215 1152604156 ARCHrrrrrrtMDAS'Ft1t EXACT MATCH ?rtJPAN
       1142636562 2711005657 3440635351 6015151515 1515151515 1155444162 1142636562 6011007145 tBSUR7t NO, SKIPrrrrrrrrrtMDARtBSURPt YE
       6334404645 6443504063 4541624350 4060575156 6445621515 1155444163 1446145611 2111004445 S, FETCH SEARCH POINTERrrtMDAS'F'Nt1t DE
       4362455545 5664406457 4046516263 6440455664 6271406757 6244151515 1155444145 1456116455 CREMENT TO FIRST ENTRY WORDrrrtMDAE'NtTM
       2111006365 4264624143 6440644142 5445406364 4162641515 1141626263 1121110043 5755606564 1t SUBTRACT TABLE STARTrrtARRSt1t COMPUT
       4540455664 6271405657 3615151515 1155444145 1164552211 0047456440 4144446240 5156406441 E ENTRY NO.rrrrtMDAEtTM2t GET ADDR IN TA
       4254454045 7064455663 5157561515 1141625544 1142636562 6011006341 6645406057 5156644562 BLE EXTENSIONrrtARMDtBSURPt SAVE POINTER
       4064574066 4154654540 6757624415 1141624162 1470114263 6562221100 5156444570 4062456465  TO VALUE WORDrtARAR'XtBSUR2t INDEX RETU
       6256151515 1155445162 1470114263 6562221100 6245646562 5640162217 3440465765 5644151515 RNrrrtMDIR'XtBSUR2t RETURN (2), FOUNDrrr
       1515151515 4263656227 0611554441 6214701142 6365626011 0042655560 4063454162 4350406064 rrrrrBSUR7:tMDAR'XtBSURPt BUMP SEARCH PT
       6240645740 5645706440 4556646271 1515151515 1152655560 1142636562 2611006345 4162435040 R TO NEXT ENTRYrrrrrtJUMPtBSUR6t SEARCH 
       4147415156 1515151515 1515151515 1515151515 7777700000 1305412102 1305412102 1305412102 AGAINrrrrrrrrrrrrrrrbbX  "*A1c"*A1c"*A1c
       1305412102 1305412102 1305412102 1305412102 1305412102 1305412102 1305412102            "*A1c"*A1c"*A1c"*A1c"*A1c"*A1c"*A1c
 1090: 0004400011 4664562021 1361200314 3414400000 0040634541 6243504046 5762405345 7167576244  &  tFTN01"Q0!','     SEARCH FOR KEYWORD
       1515151515 0040404062 4564656256 6340363636 1515151515 0040404040 4016211740 4056576440 rrrrr    RETURNS ...rrrrr      (1)  NOT 
       4657655644 1515151515 0040404040 4016221740 4046576556 4415151515 1515151515 6365625345 FOUNDrrrrr      (2)  FOUNDrrrrrrrrrSURKE
       7106115265 5560113611 0045566462 7115151515 1155444162 1163715542 4611004156 7140606245 Y:tJUMPt.t ENTRYrrrrtMDARtSYMBFt ANY PRE
       4651704057 5640637155 4257544012 1515151515 1154635162 1163656253 4571110071 4563344062 FIX ON SYMBOL ?rrrrrtLSIRtSURKEYt YES, R
       4564656256 4016434156 1464404245 4041405345 7167576244 1715151515 1515151515 1155444162 ETURN (CAN'T BE A KEYWORD)rrrrrrrrrtMDAR
       1450116371 5542231100 6450624545 3567576244 4063715542 5754401215 1152605463 1163656253 'HtSYMB3t THREE-WORD SYMBOL ?rtJPLStSURK
       2311007145 6334405265 5560406457 4063454162 4350402335 6757624440 6441425445 1515151515 3t YES, JUMP TO SEARCH 3-WORD TABLErrrrr
       1515151515 1155444162 1450116371 5542221100 6467573567 5762444063 7155425754 4012151515 rrrrrtMDAR'HtSYMB2t TWO-WORD SYMBOL ?rrr
       1152605463 1163656253 2211007145 6334405265 5560406457 4063454162 4350402235 6757624440 tJPLStSURK2t YES, JUMP TO SEARCH 2-WORD 
       6441425445 1515151515 1515151515 1155444162 1446115345 7121641100 4554634534 4063454162 TABLErrrrrrrrrrtMDAR'FtKEY1Tt ELSE, SEAR
       4350405156 4057564535 6757624440 5345716757 6244151515 1152606362 1142636562 2111004040 CH IN ONE-WORD KEYWORDrrrtJPSRtBSUR1t   
       6441425445 1515151515 1155444162 1446115345 7121451515 1155445162 1163656253 4571110056 TABLErrrrrtMDAR'FtKEY1ErrtMDIRtSURKEYt N
       5764404657 6556443440 6245646562 5640162117 1515151515 1155445162 1470116365 6253457111 OT FOUND, RETURN (1)rrrrrtMDIR'XtSURKEYt
       0046576556 4434406245 6465625640 1622171515 1515151515 6365625322 0611554441 6214461153  FOUND, RETURN (2)rrrrrrrSURK2:tMDAR'FtK
       4571226411 0063454162 4350405156 4064675735 6757624440 5345716757 6244406441 4254451515 EY2Tt SEARCH IN TWO-WORD KEYWORD TABLErr
       1152606362 1142636562 2215151515 1155444162 1446115345 7122451515 1155445162 1163656253 tJPSRtBSUR2rrrrtMDAR'FtKEY2ErrtMDIRtSURK
       4571110056 5764404657 6556443440 6245646562 5640162117 1515151515 1155445162 1470116365 EYt NOT FOUND, RETURN (1)rrrrrtMDIR'XtSU
       6253457111 0046576556 4434406245 6465625640 1622171515 1515151515 6365625323 0611554441 RKEYt FOUND, RETURN (2)rrrrrrrSURK3:tMDA
       6214461153 4571236411 0063454162 4350405156 4064506245 4535675762 4440534571 6757624440 R'FtKEY3Tt SEARCH IN THREE-WORD KEYWORD 
       6441425445 1515151515 1152606362 1163656243 2315151515 1155444162 1163715542 2115151515 TABLErrrrrtJPSRtSURC3rrrrtMDARtSYMB1rrrr
       1155444162 1163715542 2215151515 1155444162 1163715542 2315151515 1155445162 1163656253 tMDARtSYMB2rrrrtMDARtSYMB3rrrrtMDIRtSURK
       4571110056 5764404657 6556443440 6245646562 5640162117 1515151515 1515151515 1155444162 EYt NOT FOUND, RETURN (1)rrrrrrrrrrtMDAR
       1470116365 6260211100 4657655644 3440515644 4570406345 4162435040 6057515664 4562151515 'XtSURP1t FOUND, INDEX SEARCH POINTERrrr
       1141625544 1142636562 6011004040 6457404654 4147634067 5762441515 1155445162 1470116365 tARMDtBSURPt   TO FLAGS WORDrrtMDIR'XtSU
       6253457111 0041564440 6245646562 5640162217 1515151515 1515151515 1515151515 7777700000 RKEYt AND RETURN (2)rrrrrrrrrrrrrrrbbX  
       2353074377 2353074377 2353074377 2353074377 2353074377 2353074377 2353074377 2353074377 3K_Cb3K_Cb3K_Cb3K_Cb3K_Cb3K_Cb3K_Cb3K_Cb
       2353074377 2353074377                                                                   3K_Cb3K_Cb
  715: 0004500011 4664562021 1361200201 3414400000 0040634541 6243504046 5762405156 6462515663  &H tFTN01"Q0c%,'     SEARCH FOR INTRINS
       5143406365 4262576564 5156451515 0040404062 4564656256 6340363636 1515151515 0040404040 IC SUBROUTINErr    RETURNS ...rrrrr     
       4016211740 4056576440 4657655644 1515151515 0040404040 4016221740 4046576556 4415151515  (1)  NOT FOUNDrrrrr      (2)  FOUNDrrrr
       1515151515 6365625156 6306115265 5560113611 0045566462 7115151515 1155444162 1163715542 rrrrrSURINS:tJUMPt.t ENTRYrrrrtMDARtSYMB
       4611004156 7140606245 4651704057 5640637155 4257544012 1515151515 1154635162 1163656251 Ft ANY PREFIX ON SYMBOL ?rrrrrtLSIRtSURI
       5663110071 4563344062 4564656256 4016434156 1464404245 4041564051 5664625663 4063654217 NSt YES, RETURN (CAN'T BE AN INTRNS SUB)
       1515151515 1515151515 1155444162 1450116371 5542221100 6467573567 5762444063 7155425754 rrrrrrrrrrtMDAR'HtSYMB2t TWO-WORD SYMBOL
       4012151515 1152605463 1163656251 2211007145 6334406353 5160151515 1515151515 1155444162  ?rrrtJPLStSURI2t YES, SKIPrrrrrrrrtMDAR
       1446115156 6321641100 5657344054 5757533565 6040515640 5756453567 5762444064 4142544515 'FtINS1Tt NO, LOOK-UP IN ONE-WORD TABLEr
       1152606362 1142636562 2115151515 1155444162 1446115156 6321451515 1155445162 1163656251 tJPSRtBSUR1rrrrtMDAR'FtINS1ErrtMDIRtSURI
       5663110056 5764404657 6556443440 6245646562 5640162117 1515151515 1155445162 1470116365 NSt NOT FOUND, RETURN (1)rrrrrtMDIR'XtSU
       6251566311 0046576556 4434406245 6465625640 1622171515 1515151515 6365625122 0611554441 RINSt FOUND, RETURN (2)rrrrrrrSURI2:tMDA
       6214461151 5663226411 0054575753 3565604051 5640646757 3567576244 4051566462 5156635143 R'FtINS2Tt LOOK-UP IN TWO-WORD INTRINSIC
       1515151515 1152606362 1142636562 2211004040 6365426257 6564515645 4064414254 4515151515 rrrrrtJPSRtBSUR2t   SUBROUTINE TABLErrrr
       1155444162 1446115156 6322451515 1155445162 1163656251 5663110056 5764404657 6556443440 tMDAR'FtINS2ErrtMDIRtSURINSt NOT FOUND, 
       6245646562 5640162117 1515151515 1155445162 1470116365 6251566311 0046576556 4434406245 RETURN (1)rrrrrtMDIR'XtSURINSt FOUND, RE
       6465625640 1622171515 1515151515 1515151515 7777700000 6622325531 6622325531 6622325531 TURN (2)rrrrrrrrrrrrbbX  V2;M9V2;M9V2;M9
       6622325531 6622325531 6622325531 6622325531 6622325531 6622325531 6622325531            V2;M9V2;M9V2;M9V2;M9V2;M9V2;M9V2;M9
  980: 0004600011 4664562021 1361200266 3414400000 0040634541 6243504046 5762404657 6264624156  &P tFTN01"Q0cV,'     SEARCH FOR FORTRAN
       4063715542 5754151515 0040404062 4564656256 6340363636 1515151515 0040404040 4016211740  SYMBOLrrr    RETURNS ...rrrrr      (1) 
       4056576440 4657655644 1515151515 0040404040 4016221740 4046576556 4415151515 1515151515  NOT FOUNDrrrrr      (2)  FOUNDrrrrrrrrr
       6365626371 5506115265 5560113611 0045566462 7115151515 1155444162 1450116371 5542231100 SURSYM:tJUMPt.t ENTRYrrrrtMDAR'HtSYMB3t 
       6450624545 3567576244 4063715542 5754401215 1152605463 1147634562 2111007145 6334404562 THREE-WORD SYMBOL ?rtJPLStGSER1t YES, ER
       6257624016 6457574054 5756471715 1515151515 1141625544 1163556471 4611004354 4541624063 ROR (TOO LONG)rrrrrrtARMDtSMTYFt CLEAR S
       7155425754 4064716045 4046544147 1515151515 1155444162 1450116371 5542221100 6467573567 YMBOL TYPE FLAGrrrrrtMDAR'HtSYMB2t TWO-W
       5762444063 7155425754 4012151515 1152605463 1163656263 2211007145 6334406353 5160151515 ORD SYMBOL ?rrrtJPLStSURS2t YES, SKIPrrr
       1515151515 1155444162 1446116355 6442211100 5657344054 5757533565 6040515640 5756453567 rrrrrtMDAR'FtSMTB1t NO, LOOK-UP IN ONE-W
       5762444063 7155425754 4064414254 4515151515 1152606362 1163656243 2115151515 1155444162 ORD SYMBOL TABLErrrrtJPSRtSURC1rrrrtMDAR
       1163715542 2115151515 1155445162 1163656263 7155110056 5764404657 6556443440 6245646562 tSYMB1rrrrtMDIRtSURSYMt NOT FOUND, RETUR
       5640162117 1515151515 1152655560 1163656263 2311004657 6556443440 5265556040 6457404745 N (1)rrrrrtJUMPtSURS3t FOUND, JUMP TO GE
       6440637155 4257544064 7160451515 1515151515 6365626322 0611554441 6214461163 5564422211 T SYMBOL TYPErrrrrrrSURS2:tMDAR'FtSMTB2t
       0054575753 3565604051 5640646757 3567576244 4063715542 5754406441 4254451515 1152606362  LOOK-UP IN TWO-WORD SYMBOL TABLErrtJPSR
       1163656243 2215151515 1155444162 1163715542 2115151515 1155444162 1163715542 2215151515 tSURC2rrrrtMDARtSYMB1rrrrtMDARtSYMB2rrrr
       1155445162 1163656263 7155110056 5764404657 6556443440 6245646562 5640162117 1515151515 tMDIRtSURSYMt NOT FOUND, RETURN (1)rrrrr
       1515151515 6365626323 0611554441 6214511163 6562601100 6371554257 5440465765 5644344046 rrrrrSURS3:tMDAR'ItSURPt SYMBOL FOUND, F
       4564435040 4654414763 1515151515 1141625463 1123110063 5051466440 5156406371 5542575440 ETCH FLAGSrrrrrtARLSt3t SHIFT IN SYMBOL 
       6471604515 1155444162 1441114327 1100554163 5315151515 1141625544 1163556471 4611006341 TYPErtMDAR'AtC7t MASKrrrrtARMDtSMTYFt SA
       6645406371 5542575440 6471604515 1155445162 1470116365 6263715511 0041564440 6245646562 VE SYMBOL TYPErtMDIR'XtSURSYMt AND RETUR
       5640162217 1515151515 1515151515 6355644221 0611112011 0057564535 6757624440 6371554257 N (2)rrrrrrrrrrSMTB1:tt0t ONE-WORD SYMBO
       5440644142 5445151515 6355644222 0611112011 0064675735 6757624440 6371554257 5440644142 L TABLErrrSMTB2:tt0t TWO-WORD SYMBOL TAB
       5445151515 6355647146 0611112011 0063715542 5754406471 6045404654 4147151515 1515151515 LErrrSMTYF:tt0t SYMBOL TYPE FLAGrrrrrrrr
       1515151515 7777700000 7150715617 7150715617 7150715617 7150715617 7150715617 7150715617 rrrrrbbX  YHYN)YHYN)YHYN)YHYN)YHYN)YHYN)
       7150715617 7150715617 7150715617 7150715617                                             YHYN)YHYN)YHYN)YHYN)
  965: 0004700011 4664562021 1361200263 3414400000 0040636457 6245404365 6262455664 4063715542  &X tFTN01"Q0cS,'     STORE CURRENT SYMB
       5754405156 4063715542 5754406441 4254451515 1515151515 6364637155 0611526555 6011361100 OL IN SYMBOL TABLErrrrrrrSTSYM:tJUMPt.t 
       4556646271 1515151515 1155444162 1450116371 5542221100 6467573567 5762444063 7155425754 ENTRYrrrrrtMDAR'HtSYMB2t TWO-WORD SYMBOL
       4012151515 1154634162 1143211100 7145633440 6345644046 5762402540 6757624463 4056454544  ?rrrtLSARtC1t YES, SET FOR 5 WORDS NEED
       4544151515 1155444163 1446112411 0045546345 3440575654 7140244067 5762446315 1141625544 EDrrrtMDAS'Ft4t ELSE, ONLY 4 WORDSrtARMD
       1136102211 0063416645 4056573640 6757624463 4062456165 5162454440 4657624045 5664627115 t.+2t SAVE NO. WORDS REQUIRED FOR ENTRYr
       1152606362 1147466245 4511004745 6440645041 6440556543 5040466245 4540435762 4515151515 tJPSRtGFREEt GET THAT MUCH FREE CORErrrr
       1111201515 1515151515 1141625544 1163656260 2111006341 6645405645 6740455664 6271406057 tt0rrrrrrrtARMDtSURP1t SAVE NEW ENTRY PO
       5156644562 1515151515 1141627057 1446111100 4354454162 4036363615 1141625544 1451116365 INTERrrrrrtARXO'Ftt CLEAR ...rtARMD'ItSU
       6260211100 4040425457 4353375746 4663456440 6757624415 1141625544 1451147011 6365626021 RP1t   BLOCK/OFFSET WORDrtARMD'I'XtSURP1
       1100404066 4154654540 6757624415 1155444162 1163656260 1100464564 4350405451 5653406457 t   VALUE WORDrtMDARtSURPt FETCH LINK TO
       4056457064 4063715542 5754151515 1141625544 1451147011 6365626021 1100634166 4540515640  NEXT SYMBOLrrrtARMD'I'XtSURP1t SAVE IN 
       4556646271 4016675164 5040465441 4763403340 2017151515 1155444162 1451116365 6260221100 ENTRY (WITH FLAGS = 0)rrrtMDAR'ItSURP2t 
       4645644350 4060624566 5157656340 5451565340 6757624415 1155444162 1441145011 4155416353 FETCH PREVIOUS LINK WORDrtMDAR'A'HtAMASK
       1100554163 5340465441 4740425164 6315151515 1155444162 1457116365 6260211100 4357554251 t MASK FLAG BITSrrrrtMDAR'OtSURP1t COMBI
       5645405451 5653406457 4064505163 4045566462 7115151515 1141625544 1451116365 6260221100 NE LINK TO THIS ENTRYrrrrtARMD'ItSURP2t 
       6245636457 6245406062 4566515765 6340545156 5315151515 1155444162 1163656260 2111006341 RESTORE PREVIOUS LINKrrrrtMDARtSURP1t SA
       6645406057 5156644562 4064574056 4567406371 5542575414 6315151515 1141625544 1163656260 VE POINTER TO NEW SYMBOL'SrrrrtARMDtSURP
       1100404054 5156534067 5762441515 1515151515 1155444162 1450116371 5542211100 4745644046 t   LINK WORDrrrrrrrtMDAR'HtSYMB1t GET F
       5162636440 5641554540 6757624415 1141625544 1450145114 7011636562 6021110063 6457624540 IRST NAME WORDrtARMD'H'I'XtSURP1t STORE 
       5156404556 6462711515 1155444162 1450116371 5542221100 4156714022 5644405641 5545406757 IN ENTRYrrtMDAR'HtSYMB2t ANY 2ND NAME WO
       6244401215 1154635162 1136352211 0071456334 4063645762 4540515640 4556646271 1515151515 RD ?rtLSIRt.-2t YES, STORE IN ENTRYrrrrr
       1155445162 1163646371 5511006245 6465625615 1515151515 1515151515 7777700000 6232460334 tMDIRtSTSYMt RETURNrrrrrrrrrrrbbX  R;F!,
       6232460334 6232460334 6232460334 6232460334 6232460334 6232460334 6232460334 6232460334 R;F!,R;F!,R;F!,R;F!,R;F!,R;F!,R;F!,R;F!,
       6232460334                                                                              R;F!,
 1285: 0005000011 4664562021 1361200363 3414400000 0040444546 5156454063 7155425754 1515151515  *  tFTN01"Q0!S,'     DEFINE SYMBOLrrrrr
       1515151515 4446637155 0611526555 6011361100 4556646271 1515151515 1141625544 1164552111 rrrrrDFSYM:tJUMPt.t ENTRYrrrrrtARMDtTM1t
       0063416645 4064414254 4540605751 5664456215 1155444163 1446145611 2111004445 4362455545  SAVE TABLE POINTERrtMDAS'F'Nt1t DECREME
       5664406457 4066415465 4540675762 4415151515 1141625544 1164552211 0063416645 4066415465 NT TO VALUE WORDrrrrtARMDtTM2t SAVE VALU
       4540605751 5664456215 1155444163 1446145611 2111004445 4362455545 5664406457 4022564440 E POINTERrtMDAS'F'Nt1t DECREMENT TO 2ND 
       4350415156 4067576244 1515151515 1141625544 1164552315 1155444162 1157545743 1100576564 CHAIN WORDrrrrrtARMDtTM3rtMDARtOLOCt OUT
       6065644044 6257606045 4440121515 1141565162 1144466371 5511007145 6334406245 6465625634 PUT DROPPED ?rrtANIRtDFSYMt YES, RETURN,
       4056574041 4364515756 1515151515 1515151515 1155444162 1451116455 2111004554 6345344046  NO ACTIONrrrrrrrrrrtMDAR'ItTM1t ELSE, F
       4564435040 4654414763 1515151515 1155444162 1457114342 2611006345 6440444546 5156454440 ETCH FLAGSrrrrrtMDAR'OtCB6t SET DEFINED 
       4251641515 1141625544 1451116455 2111006341 6645405645 6740465441 4763151515 1141624162 BITrrtARMD'ItTM1t SAVE NEW FLAGSrrrtARAR
       1453144611 1100474564 4063715542 5754406471 6045151515 1155444162 1441144611 2720110055 'K'Ftt GET SYMBOL TYPErrrtMDAR'A'Ft70t M
       4163531515 1155447057 1446112520 1100515541 4745401215 1155444162 1457114144 6064461100 ASKrrtMDXO'Ft50t IMAGE ?rtMDAR'OtADPTFt 
       4156444056 5764405156 4041444560 6440555744 4540121515 1141625544 1164552411 0056573440 AND NOT IN ADEPT MODE ?rrtARMDtTM4t NO, 
       6345644046 5441471515 1152605463 1136102411 0041564440 6353516015 1515151515 1155444162 SET FLAGrrtJPLSt.+4t AND SKIPrrrrrrtMDAR
       1456115754 5743110071 4563344044 4543624555 4556644057 5457434064 5740646265 4540414444 'NtOLOCt YES, DECREMENT OLOC TO TRUE ADD
       6245636315 1155444163 1446112115 1141625544 1456115754 5743151515 1515151515 1155444162 RESSrtMDAS'Ft1rtARMD'NtOLOCrrrrrrrrtMDAR
       1451145014 5611645521 1100624546 4562455643 4544404457 6542544535 6757624440 1215151515 'I'H'NtTM1t REFERENCED DOUBLE-WORD ?rrrr
       1155444162 1441144611 2120151515 1152605463 1136102311 0056573440 6353516015 1515151515 tMDAR'A'Ft10rrrtJPLSt.+3t NO, SKIPrrrrrr
       1155444162 1451116455 2311007145 6334404645 6443504064 6757356757 6244404350 4151561515 tMDAR'ItTM3t YES, FETCH TWO-WORD CHAINrr
       1152606362 1143504156 2211004156 4440435041 5156405164 4042414353 1515151515 1515151515 tJPSRtCHAN2t AND CHAIN IT BACKrrrrrrrrrr
       1155444162 1451145014 5611645521 1100624546 4562455643 4544405657 6255415440 1215151515 tMDAR'I'H'NtTM1t REFERENCED NORMAL ?rrrr
       1155444162 1441144611 2220151515 1152605463 1136102311 0056573440 5265556040 6457406345 tMDAR'A'Ft20rrrtJPLSt.+3t NO, JUMP TO SE
       6440444546 5156454415 1515151515 1155444162 1451116455 2211004645 6443504063 5156475445 T DEFINEDrrrrrrtMDAR'ItTM2t FETCH SINGLE
       4067576244 4043504151 5615151515 1152606362 1143504151 5611004350 4151564051 6440424143  WORD CHAINrrrrtJPSRtCHAINt CHAIN IT BAC
       5315151515 1515151515 1155444162 1451116455 2211005657 3440464564 4350406641 5465454067 KrrrrrrrrrtMDAR'ItTM2t NO, FETCH VALUE W
       5762441515 1155444162 1441145011 4155416353 1100554163 5340576564 4043504151 5640414444 ORDrrtMDAR'A'HtAMASKt MASK OUT CHAIN ADD
       6245636315 1155444162 1457115754 5743110043 5755425156 4540436562 6245566440 5443151515 RESSrtMDAR'OtOLOCt COMBINE CURRENT LCrrr
       1141625544 1451116455 2211006341 6645405156 4066415465 4540675762 4415151515 1155444162 tARMD'ItTM2t SAVE IN VALUE WORDrrrrtMDAR
       1164552411 0051554147 4540121515 1154635162 1144466371 5511005657 3440624564 6562561515 tTM4t IMAGE ?rrtLSIRtDFSYMt NO, RETURNrr
       1515151515 1141624162 1470115754 5743110071 4563344062 4563645762 4540646265 4540544315 rrrrrtARAR'XtOLOCt YES, RESTORE TRUE LCr
       1155445162 1144466371 5511006245 6465625615 1515151515 1515151515 7777700000 5703701653 tMDIRtDFSYMt RETURNrrrrrrrrrrrbbX  O!X(K
       5703701653 5703701653 5703701653 5703701653 5703701653 5703701653 5703701653 5703701653 O!X(KO!X(KO!X(KO!X(KO!X(KO!X(KO!X(KO!X(K
       5703701653                                                                              O!X(K
 1530: 0005100011 4664562021 1361200444 3414400000 0040444546 5156454063 6441644555 4556644054  *+ tFTN01"Q0&D,'     DEFINE STATEMENT L
       4142455415 1515151515 4446544254 0611526555 6011361100 4556646271 1515151515 1155444162 ABELrrrrrrDFLBL:tJUMPt.t ENTRYrrrrrtMDAR
       1144465442 4611005441 4245544041 5462454144 7140444546 5156454440 1215151515 1141565162 tDFLBFt LABEL ALREADY DEFINED ?rrrrtANIR
       1144465442 5411007145 6334406245 6465625615 1515151515 1141625544 1457114446 5442461100 tDFLBLt YES, RETURNrrrrrrtARMD'OtDFLBFt 
       4554634534 4063456440 5441424554 4044454651 5645441515 1152606362 1154635457 4311006341 ELSE, SET LABEL DEFINEDrrtJPSRtLSLOCt SA
       6645405457 4341645157 5640435765 5664456240 4657624054 5163645156 4715151515 1155444162 VE LOCATION COUNTER FOR LISTINGrrrrtMDAR
       1154414245 5411004156 7140636441 6445554556 6440544142 4554401215 1141565162 1144465442 tLABELt ANY STATEMENT LABEL ?rtANIRtDFLB
       5411005657 3440624564 6562561515 1515151515 1155444162 1456115754 5743110071 4563344057 Lt NO, RETURNrrrrrrrtMDAR'NtOLOCt YES, O
       6564606564 4063645760 6045444012 1515151515 1152604156 1144465442 2211005657 3440635351 UTPUT STOPPED ?rrrrrtJPANtDFLB2t NO, SKI
       6015151515 1515151515 1155444162 1451115441 4245541100 7145633440 6345644054 4142455440 PrrrrrrrrrtMDAR'ItLABELt YES, SET LABEL 
       4445465156 4544151515 1155444162 1457114342 2611006457 4041665751 4440455644 4057464043 DEFINEDrrrtMDAR'OtCB6t TO AVOID END OF C
       5755605154 4540456262 5762151515 1141625544 1451115441 4245541515 1155444162 1154414245 OMPILE ERRORrrrtARMD'ItLABELrrtMDARtLABE
       5411004645 6443504054 4142455440 6441425445 4060575156 6445621515 1155444163 1446145611 Lt FETCH LABEL TABLE POINTERrrtMDAS'F'Nt
       2111004445 4362455545 5664406457 4066415465 4540675762 4415151515 1141625544 1164552111 1t DECREMENT TO VALUE WORDrrrrtARMDtTM1t
       0063416645 4060575156 6445621515 1155444162 1451116455 2111006345 6440664154 6545403340  SAVE POINTERrrtMDAR'ItTM1t SET VALUE = 
       2015151515 1155444162 1441145011 4155416353 1515151515 1141625544 1451116455 2115151515 0rrrrtMDAR'A'HtAMASKrrrrrtARMD'ItTM1rrrr
       1515151515 4446544222 0611554441 6211544142 4554110046 4564435040 5441424554 4064414254 rrrrrDFLB2:tMDARtLABELt FETCH LABEL TABL
       4540605751 5664456215 1152606362 1144466371 5511004445 4651564540 5441424554 4041644043 E POINTERrtJPSRtDFSYMt DEFINE LABEL AT C
       6562624556 6440545743 1515151515 1155444162 1451144214 5611544142 4554110054 4142455440 URRENT LOCrrrrrtMDAR'I'B'NtLABELt LABEL 
       6245464562 4556434544 4051564041 5640414444 6240435756 6364401215 1141624162 1442144615 REFERENCED IN AN ADDR CONST ?rtARAR'B'Fr
       1152604156 1144465442 2111005657 3440635351 6015151515 1515151515 1155444162 1154414245 tJPANtDFLB1t NO, SKIPrrrrrrrrrtMDARtLABE
       5411007145 6334404645 6443504060 6462406457 4054414245 5440455664 6271151515 1155444163 Lt YES, FETCH PTR TO LABEL ENTRYrrrtMDAS
       1446145611 2111004445 4362455545 5664406457 4062455443 5756406057 5156644562 4067576244 'F'Nt1t DECREMENT TO RELCON POINTER WORD
       1515151515 1141625544 1164552111 0063416645 4060575156 6445621515 1155444162 1451145011 rrrrrtARMDtTM1t SAVE POINTERrrtMDAR'I'Ht
       6455211100 4645644350 4060575156 6445624064 5740414444 6245636340 4357566364 4156641515 TM1t FETCH POINTER TO ADDRESS CONSTANTrr
       1155444162 1441144611 2727272727 1100554163 5315151515 1141625544 1164552111 0063416645 tMDAR'A'Ft77777t MASKrrrrtARMDtTM1t SAVE
       1515151515 1155444162 1157545743 1100464564 4350404365 6262455664 4054431515 1155444162 rrrrrtMDARtOLOCt FETCH CURRENT LCrrtMDAR
       1457145011 4324201100 4357554251 5645405265 5560405156 6364621515 1141625544 1451147011 'O'HtC40t COMBINE JUMP INSTRrrtARMD'I'Xt
       6455211100 6364576245 4051564062 4554574340 4357566364 4064414254 4515151515 1515151515 TM1t STORE IN RELOC CONST TABLErrrrrrrrr
       4446544221 0611554441 6214511453 1154414245 5411004645 6443504054 4142455440 4654414763 DFLB1:tMDAR'I'KtLABELt FETCH LABEL FLAGS
       1515151515 1141624162 1442145614 4611110062 4546456245 5643454440 5156404140 6245414437 rrrrrtARAR'B'N'Ftt REFERENCED IN A READ/
       6762516445 4012151515 1141565162 1144465442 5411005657 3440575334 4062456465 6256151515 WRITE ?rrrtANIRtDFLBLt NO, OK, RETURNrrr
       1515151515 1155444162 1442115345 7146471100 7145633440 4645644350 4053457167 5762444046 rrrrrtMDAR'BtKEYFGt YES, FETCH KEYWORD F
       5441476315 1141624162 1442144611 1100465762 5541644063 6441644555 4556644012 1515151515 LAGSrtARAR'B'Ftt FORMAT STATEMENT ?rrrrr
       1141565162 1144465442 5411007145 6334405753 3440624564 6562561515 1515151515 1152606362 tANIRtDFLBLt YES, OK, RETURNrrrrrrrtJPSR
       1145626257 6211005657 3440674162 5651564740 4562625762 1515151515 1111456227 2211004040 tERRORt NO, WARNING ERRORrrrrrttER72t   
       1654414245 5440635057 6554444042 4540575640 4140465762 5541641715 1515151515 7777700000 (LABEL SHOULD BE ON A FORMAT)rrrrrrbbX  
       0557741612 0557741612 0557741612 0557741612 0557741612 0557741612 0557741612 0557741612 *O#(?*O#(?*O#(?*O#(?*O#(?*O#(?*O#(?*O#(?
       0557741612 0557741612                                                                   *O#(?*O#(?
 1455: 0005200011 4664562021 1361200425 3414400000 1155444162 1451145011 5441424554 1100474564  *0 tFTN01"Q0&5,'   tMDAR'I'HtLABELt GET
       4054414245 5440465441 4763151515 1155447057 1441114321 2423110055 4163534057 6564406245  LABEL FLAGSrrrtMDXO'AtC143t MASK OUT RE
       4144376762 5164454042 5164631515 1155447057 1441145311 4322110055 4163534057 6564404657 AD/WRITE BITSrrtMDXO'A'KtC2t MASK OUT FO
       6255416440 4251641515 1141625544 1451145011 5441424554 1100634166 4540564567 4046544147 RMAT BITrrtARMD'I'HtLABELt SAVE NEW FLAG
       6315151515 1155445162 1144465442 5411006245 6465625615 1515151515 4446544246 0611112011 SrrrrtMDIRtDFLBLt RETURNrrrrrrDFLBF:tt0t
       0043656262 4556644054 4142455440 4445465156 4544404654 4147151515 5442546442 0611112011  CURRENT LABEL DEFINED FLAGrrrLBLTB:tt0t
       0063644164 4555455664 4054414245 5440644142 5445151515 5441424554 0611112011 0043656262  STATEMENT LABEL TABLErrrLABEL:tt0t CURR
       4556644063 6441644555 4556644054 4142455440 6057515664 4562151515 1515151515 1515151515 ENT STATEMENT LABEL POINTERrrrrrrrrrrrrr
       0040474564 4063644164 4555455664 4054414245 5440415644 4054575753 6560405156 4054414245   GET STATEMENT LABEL AND LOOKUP IN LABE
       5440644142 5445151515 1515151515 4754414254 0611526555 6011361100 4556646271 4016216364 L TABLErrrrrrrrGLABL:tJUMPt.t ENTRY (1ST
       4044514751 6440515640 6343504162 1715151515 1152606362 1147566555 1100435754 5445436440  DIGIT IN SCHAR)rrrrtJPSRtGNUMt COLLECT 
       4451475164 6315151515 1152655560 1136102111 0041564440 6364576040 5756404445 4351554154 DIGITSrrrrtJUMPt.+1t AND STOP ON DECIMAL
       4060575156 6415151515 1515151515 1155444162 1156655543 6411004156 7140635147 5651465143  POINTrrrrrrrrrtMDARtNUMCTt ANY SIGNIFIC
       4156644044 5147516463 4012151515 1154634163 1456114325 1100415644 4046516645 4057624054 ANT DIGITS ?rrrtLSAS'NtC5t AND FIVE OR L
       4563634012 1515151515 1152604156 1136102311 0071456334 4057533440 6353516015 1515151515 ESS ?rrrrrtJPANt.+3t YES, OK, SKIPrrrrrr
       1152606362 1145626257 6211004554 6345344046 4164415440 4562625762 1515151515 1111456221 tJPSRtERRORt ELSE, FATAL ERRORrrrrrttER1
       2024110040 4016515454 4547415440 6364416445 5545566440 5441424554 1715151515 1515151515 04t   (ILLEGAL STATEMENT LABEL)rrrrrrrrr
       1152606362 1147515664 5611004745 6440515664 4547456240 6641546545 1515151515 1152606362 tJPSRtGINTNt GET INTEGER VALUErrrrrtJPSR
       1163645442 5411006364 5762454051 5640544142 4554406441 4254451515 1155445162 1147544142 tSTLBLt STORE IN LABEL TABLErrtMDIRtGLAB
       5411006245 6465625640 1664414254 4540606462 4051564041 6217151515 1515151515 1515151515 Lt RETURN (TABLE PTR IN AR)rrrrrrrrrrrrr
       0040636457 6245406364 4164455545 5664405441 4245544051 5640544142 4554406441 4254451515   STORE STATEMENT LABEL IN LABEL TABLErr
       1515151515 6364544254 0611526555 6011361100 4556646271 1515151515 1141625544 1163645442 rrrrrSTLBL:tJUMPt.t ENTRYrrrrrtARMDtSTLB
       3111006341 6645405441 4245544066 4154654515 1155444162 1446115442 5464421100 5457575365 9t SAVE LABEL VALUErtMDAR'FtLBLTBt LOOKU
       6040515640 5441424554 4064414254 4515151515 1152606362 1163656243 2115151515 1155444162 P IN LABEL TABLErrrrtJPSRtSURC1rrrrtMDAR
       1163645442 3115151515 1152655560 1136102311 0063535160 4051464056 5764404657 6556441515 tSTLB9rrrrtJUMPt.+3t SKIP IF NOT FOUNDrr
       1515151515 1155444162 1451145611 6365626011 0044454651 5645444051 5640606245 6651576563 rrrrrtMDAR'I'NtSURPt DEFINED IN PREVIOUS
       4063654260 6257476241 5540121515 1152604156 1163645442 2111005657 3440575334 4052655560  SUBPROGRAM ?rrtJPANtSTLB1t NO, OK, JUMP
       4064574062 4564656256 4060575156 6445621515 1515151515 1152606362 1147466245 4511005657  TO RETURN POINTERrrrrrrrtJPSRtGFREEt NO
       6440465765 5644344047 4564402340 4662454540 6757624463 1515151515 1111231515 1141625544 T FOUND, GET 3 FREE WORDSrrrrrtt3rrtARMD
       1163656260 2111006341 6645406057 5156644562 1515151515 1141627057 1446111100 4354454162 tSURP1t SAVE POINTERrrrrrtARXO'Ftt CLEAR
       4043504151 5640675762 4415151515 1141625544 1451116365 6260211515 1155444162 1163656260  CHAIN WORDrrrrtARMD'ItSURP1rrtMDARtSURP
       1100464564 4350405451 5653406457 4056457064 4045566462 7115151515 1141625544 1451147011 t FETCH LINK TO NEXT ENTRYrrrrtARMD'I'Xt
       6365626021 1100634166 4540416340 5645674054 5156531515 1155447057 1451116365 6260221100 SURP1t SAVE AS NEW LINKrrtMDXO'ItSURP2t 
       4354454162 4057656440 6062456651 5765634054 5156531515 1155444162 1457116365 6260211100 CLEAR OUT PREVIOUS LINKrrtMDAR'OtSURP1t 
       4156444063 4564405156 4056456740 5451565315 1141625544 1451116365 6260221515 1515151515 AND SET IN NEW LINKrtARMD'ItSURP2rrrrrrr
       7777700000 5107215325 5107215325 5107215325 5107215325 5107215325 5107215325 5107215325 bbX  I_1K5I_1K5I_1K5I_1K5I_1K5I_1K5I_1K5
       5107215325 5107215325 5107215325                                                        I_1K5I_1K5I_1K5
  930: 0005300011 4664562021 1361200254 3414400000 1155444162 1163656260 2111006341 6645405645  *8 tFTN01"Q0cL,'   tMDARtSURP1t SAVE NE
       6740455664 6271406057 5156644562 1515151515 1141625544 1163656260 1515151515 1155444162 W ENTRY POINTERrrrrrtARMDtSURPrrrrrtMDAR
       1163645442 3111004645 6443504054 4142455440 6641546545 1515151515 1141625544 1451147011 tSTLB9t FETCH LABEL VALUErrrrrtARMD'I'Xt
       6365626021 1100415644 4063645762 4515151515 1515151515 6364544221 0611554441 6211636562 SURP1t AND STORErrrrrrrrrSTLB1:tMDARtSUR
       6011004645 6443504054 4142455440 6441425445 4060575156 6445624064 5740416215 1155445162 Pt FETCH LABEL TABLE POINTER TO ARrtMDIR
       1163645442 5411004156 4440624564 6562561515 1515151515 6364544231 0611112011 0064455560 tSTLBLt AND RETURNrrrrrrrSTLB9:tt0t TEMP
       4063645762 4147451515 1515151515 1515151515 0040474564 4064455560 5762416271 4066416251  STORAGErrrrrrrrrrrr  GET TEMPORARY VARI
       4142544515 1515151515 4764455560 0611526555 6011361100 4556646271 1515151515 1155444162 ABLErrrrrrGTEMP:tJUMPt.t ENTRYrrrrrtMDAR
       1451116445 5560641100 4745644060 5751566445 6240645740 5645706440 6445556040 6641625141 'ItTEMPTt GET POINTER TO NEXT TEMP VARIA
       4254451515 1152605463 1147644555 2111005265 5560405146 4041567115 1515151515 1152606362 BLErrtJPLStGTEM1t JUMP IF ANYrrrrrrtJPSR
       1147466245 4511004554 6345344047 4564402240 4662454540 6757624463 4046576240 5645706415 tGFREEt ELSE, GET 2 FREE WORDS FOR NEXTr
       1111221100 4040644555 6040664162 5141425445 1515151515 1141625544 1164552111 0063416645 tt2t   TEMP VARIABLErrrrrtARMDtTM1t SAVE
       4064414254 4540605751 5664456215 1141627057 1446111100 4354454162 4042576450 4067576244  TABLE POINTERrtARXO'Ftt CLEAR BOTH WORD
       6315151515 1141625544 1451116455 2115151515 1141625544 1451147011 6455211515 1155444162 SrrrrtARMD'ItTM1rrrrtARMD'I'XtTM1rrtMDAR
       1451116445 5560641100 4645644350 4060624566 5157656340 5451565340 6757624415 1155444162 'ItTEMPTt FETCH PREVIOUS LINK WORDrtMDAR
       1457116455 2111004357 5542515645 4054515653 4064574056 4567404556 6462711515 1141625544 'OtTM1t COMBINE LINK TO NEW ENTRYrrtARMD
       1451116445 5560641100 6341664540 5441636440 5451565340 6757624415 1515151515 4764455521 'ItTEMPTt SAVE LAST LINK WORDrrrrrrGTEM1
       0611554441 6214411141 5541635311 0055416353 4060575156 6445624064 5740564570 6440644555 :tMDAR'AtAMASKt MASK POINTER TO NEXT TEM
       6040664162 5141425445 1515151515 1141625544 1164455560 6411004556 6364416445 4041634043 P VARIABLErrrrrtARMDtTEMPTt ENSTATE AS C
       6562624556 6415151515 1155445162 1147644555 6011006245 6465625615 1515151515 6445556442 URRENTrrrrtMDIRtGTEMPt RETURNrrrrrrTEMTB
       0611112011 0064455560 4063645762 4147454064 4142544540 5045414415 6445556064 0611112011 :tt0t TEMP STORAGE TABLE HEADrTEMPT:tt0t
       0043656262 4064455560 4064414254 4540605751 5664456215 1515151515 1515151515 7777700000  CURR TEMP TABLE POINTERrrrrrrrrrrrbbX  
       7146150142 7146150142 7146150142 7146150142 7146150142 7146150142 7146150142 7146150142 YFr%BYFr%BYFr%BYFr%BYFr%BYFr%BYFr%BYFr%B
       7146150142 7146150142                                                                   YFr%BYFr%B
 1190: 0005400011 4664562021 1361200340 3414400000 0040576564 6065644064 4555605762 4162714066  *  tFTN01"Q0! ,'     OUTPUT TEMPORARY V
       4162514142 5445404154 5457434164 5157566315 1515151515 5764455560 0611526555 6011361100 ARIABLE ALLOCATIONSrrrrrrOTEMP:tJUMPt.t 
       4556646271 4016504541 4440574640 4350415156 4060646240 5156404162 1715151515 1141625544 ENTRY (HEAD OF CHAIN PTR IN AR)rrrrtARMD
       1164455560 6411006245 5445416345 4064505163 4043504151 5640466257 5540645045 4064414254 tTEMPTt RELEASE THIS CHAIN FROM THE TABL
       4515151515 1141625544 1164455544 5711004154 6357404457 4063645762 4147451515 1155444162 ErrrrtARMDtTEMDOt ALSO DO STORAGErrtMDAR
       1451116445 5560641100 4645644350 4060646240 6457404651 6263644064 4555604057 5640435041 'ItTEMPTt FETCH PTR TO FIRST TEMP ON CHA
       5156151515 1152655560 1157645560 2210211100 5265556040 5156645740 5457576015 1515151515 INrrrtJUMPtOTMP2+1t JUMP INTO LOOPrrrrrr
       5764556021 0611416255 4411576455 6031110063 4166454060 6462406457 4056457064 4064455560 OTMP1:tARMDtOTMP9t SAVE PTR TO NEXT TEMP
       4064414254 4540455664 6271151515 1155444163 1446145611 2111004445 4362455545 5664406457  TABLE ENTRYrrrtMDAS'F'Nt1t DECREMENT TO
       4066415465 4540675762 4415151515 1141625544 1157645560 3011004156 4440634166 4540605751  VALUE WORDrrrrtARMDtOTMP8t AND SAVE POI
       5664456215 1155444162 1451145011 5764556031 1100464564 4350405645 7064405451 5653406057 NTERrtMDAR'I'HtOTMP9t FETCH NEXT LINK PO
       5156644562 1515151515 1155444162 1441145011 4155416353 1100554163 5315151515 1141625544 INTERrrrrrtMDAR'A'HtAMASKt MASKrrrrtARMD
       1450115764 5560271100 6341664515 1155447057 1451145011 5764556031 1100624546 4562455643 'HtOTMP7t SAVErtMDXO'I'HtOTMP9t REFERENC
       4544405156 4064505163 4063654260 6257476241 5540121515 1152605463 1136102211 0071456334 ED IN THIS SUBPROGRAM ?rrtJPLSt.+2t YES,
       4043575664 5156654515 1152655560 1157645560 2211005657 3440635351 6015151515 1515151515  CONTINUErtJUMPtOTMP2t NO, SKIPrrrrrrrrr
       1155444162 1157645560 3111004645 6443504064 4555604064 4142544540 6057515664 4562151515 tMDARtOTMP9t FETCH TEMP TABLE POINTERrrr
       1152606362 1144466371 5511004445 4651564540 6445556040 6641625141 4254454041 6440436562 tJPSRtDFSYMt DEFINE TEMP VARIABLE AT CUR
       6245566440 5443151515 1152606362 1163536054 4311006353 5160405756 4540545743 4164515756 RENT LCrrrtJPSRtSKPLCt SKIP ONE LOCATION
       1515151515 1155444162 1145564446 4711005441 6364406365 4260625747 6241554012 1515151515 rrrrrtMDARtENDFGt LAST SUBPROGRAM ?rrrrr
       1152604156 1157645560 2211007145 6334406353 5160401654 4541664540 6445556063 4046576240 tJPANtOTMP2t YES, SKIP (LEAVE TEMPS FOR 
       6254637155 6317151515 1515151515 1141625544 1451115764 5560301100 4554634534 4043544541 RLSYMS)rrrrrrrrtARMD'ItOTMP8t ELSE, CLEA
       6240664154 4067576244 4051564064 4142544540 4556646271 1515151515 1155444162 1157645560 R VAL WORD IN TABLE ENTRYrrrrrtMDARtOTMP
       2711004645 6443504054 5156534067 5762441515 1141625544 1451115764 5560311100 4354454162 7t FETCH LINK WORDrrtARMD'ItOTMP9t CLEAR
       4057656440 4654414763 4051564064 4555604064 4142544515 1515151515 5764556022 0611554441  OUT FLAGS IN TEMP TABLErrrrrrOTMP2:tMDA
       6211576455 6027110041 5671405557 6245406445 5560406641 6251414254 4563401215 1152605463 RtOTMP7t ANY MORE TEMP VARIABLES ?rtJPLS
       1157645560 2111007145 6334405457 5760404657 6240564570 6415151515 1515151515 1155445162 tOTMP1t YES, LOOP FOR NEXTrrrrrrrrrtMDIR
       1157644555 6011004554 6345344062 4564656256 1515151515 1515151515 1515151515 5764556031 tOTEMPt ELSE, RETURNrrrrrrrrrrrrrrrOTMP9
       0611112011 0064455560 4063645762 4147454036 3636151515 5764556030 0611112015 5764556027 :tt0t TEMP STORAGE ...rrrOTMP8:tt0rOTMP7
       0611112015 1515151515 1515151515 7777700000 5564554446 5564554446 5564554446 5564554446 :tt0rrrrrrrrrrrbbX  MTMDFMTMDFMTMDFMTMDF
       5564554446 5564554446 5564554446 5564554446 5564554446 5564554446                       MTMDFMTMDFMTMDFMTMDFMTMDFMTMDF
  925: 0005500011 4664562021 1361200253 3414400000 0040474564 4062455457 4341644142 5445404357  *H tFTN01"Q0cK,'     GET RELOCATABLE CO
       5663644156 6440455664 6271151515 1515151515 4762544364 0611526555 6011361100 4556646271 NSTANT ENTRYrrrrrrrrGRLCT:tJUMPt.t ENTRY
       1515151515 1155444162 1451116254 4364601100 4156714055 5762454041 6641515441 4254454045 rrrrrtMDAR'ItRLCTPt ANY MORE AVAILABLE E
       5664625145 6340121515 1152605463 1147625443 2111007145 6334406353 5160151515 1515151515 NTRIES ?rrtJPLStGRLC1t YES, SKIPrrrrrrrr
       1152606362 1147466245 4511005657 3440474564 4046624545 4043576245 4046576240 2340675762 tJPSRtGFREEt NO, GET FREE CORE FOR 3 WOR
       4463151515 1111231515 1141625544 1164552111 0063416645 4060575156 6445621515 1141627057 DSrrrtt3rrtARMDtTM1t SAVE POINTERrrtARXO
       1446111100 4354454162 4054515653 4067576244 1515151515 1141625544 1451147011 6455211515 'Ftt CLEAR LINK WORDrrrrrtARMD'I'XtTM1rr
       1155444162 1451116254 4364601100 4745644060 6245665157 6563406457 6040574640 6441425445 tMDAR'ItRLCTPt GET PREVIOUS TOP OF TABLE
       1515151515 1155444162 1457116455 2111004357 5542515645 4054515653 4064574056 4567404556 rrrrrtMDAR'OtTM1t COMBINE LINK TO NEW EN
       6462711515 1141625544 1451116254 4364601100 4156444063 6457624515 1515151515 4762544321 TRYrrtARMD'ItRLCTPt AND STORErrrrrrGRLC1
       0611554441 6214411141 5541635311 0055416353 4056456740 6457604060 5751566445 6215151515 :tMDAR'AtAMASKt MASK NEW TOP POINTERrrrr
       1141625544 1162544364 6011004156 4440634166 4515151515 1155444163 1446145611 2111004445 tARMDtRLCTPt AND SAVErrrrtMDAS'F'Nt1t DE
       4362455545 5664406457 4043504151 5640675762 4415151515 1141625544 1164552111 0041564440 CREMENT TO CHAIN WORDrrrrtARMDtTM1t AND 
       6341664540 6057515664 4562151515 1141627057 1446151515 1141625544 1451116455 2111004354 SAVE POINTERrrrtARXO'FrrrtARMD'ItTM1t CL
       4541624043 5041515640 6757624415 1155444162 1451147011 6455211100 4645644350 4054515653 EAR CHAIN WORDrtMDAR'I'XtTM1t FETCH LINK
       4067576244 1515151515 1155444162 1441114155 4163531100 4354454162 4046544147 6315151515  WORDrrrrrtMDAR'AtAMASKt CLEAR FLAGSrrrr
       1141625544 1451116455 2111004156 4440634166 4515151515 1141627057 1446111100 4354454162 tARMD'ItTM1t AND SAVErrrrtARXO'Ftt CLEAR
       4066415465 4540675762 4415151515 1141625544 1451147011 6455211515 1155444162 1162544364  VALUE WORDrrrrtARMD'I'XtTM1rrtMDARtRLCT
       6011004645 6443504064 4142544540 6057515664 4562151515 1155445162 1147625443 6411004156 Pt FETCH TABLE POINTERrrrtMDIRtGRLCTt AN
       4440624564 6562561515 1515151515 6254436442 0611112011 0062455457 4341644142 5445404357 D RETURNrrrrrrrRLCTB:tt0t RELOCATABLE CO
       5663644156 6463406441 4254451515 6254436460 0611112011 0060575156 6445624064 5740544163 NSTANTS TABLErrRLCTP:tt0t POINTER TO LAS
       6440455664 6271405156 4064414254 4515151515 1515151515 1515151515 7777700000 0302551726 T ENTRY IN TABLErrrrrrrrrrrrrrbbX  !cM)6
       0302551726 0302551726 0302551726 0302551726 0302551726 0302551726 0302551726 0302551726 !cM)6!cM)6!cM)6!cM)6!cM)6!cM)6!cM)6!cM)6
       0302551726                                                                              !cM)6
 1525: 0005600011 4664562021 1361200443 3414400000 0040636457 6245405756 4535675762 4440435756  *P tFTN01"Q0&C,'     STORE ONE-WORD CON
       6364415664 4051564043 5756636441 5664406441 4254451515 1515151515 6364435756 0611526555 STANT IN CONSTANT TABLErrrrrrrSTCON:tJUM
       6011361100 4556646271 1515151515 1141625544 1163644357 3111006341 6645406641 5465451515 Pt.t ENTRYrrrrrtARMDtSTCO9t SAVE VALUErr
       1155444162 1446114356 6442221100 5457575365 6040515640 6467573567 5762444043 5756636441 tMDAR'FtCNTB2t LOOKUP IN TWO-WORD CONSTA
       5664406441 4254451515 1152606362 1163656243 2115151515 1155444162 1163644357 3115151515 NT TABLErrtJPSRtSURC1rrrrtMDARtSTCO9rrrr
       1152655560 1136102211 0063535160 4051464056 5764404657 6556441515 1152655560 1163644357 tJUMPt.+2t SKIP IF NOT FOUNDrrtJUMPtSTCO
       2211004554 6345344052 6555604064 5740624564 6562564067 5164504060 6462405156 4041621515 2t ELSE, JUMP TO RETURN WITH PTR IN ARrr
       1515151515 1155444162 1446114356 6442211100 5457575365 6040515640 5756453567 5762444064 rrrrrtMDAR'FtCNTB1t LOOKUP IN ONE-WORD T
       4142544515 1152606362 1163656243 2115151515 1155444162 1163644357 3115151515 1152655560 ABLErtJPSRtSURC1rrrrtMDARtSTCO9rrrrtJUMP
       1136102211 0063535160 4051464056 5764404657 6556441515 1152655560 1163644357 2211004657 t.+2t SKIP IF NOT FOUNDrrtJUMPtSTCO2t FO
       6556443440 5265556040 6457406245 6465625615 1515151515 1141627057 1454111100 4354454162 UND, JUMP TO RETURNrrrrrrtARXO'Ltt CLEAR
       4046544147 4046576240 5756453567 5762444064 4142544515 6364435721 0611554441 6211432111  FLAG FOR ONE-WORD TABLErSTCO1:tMDARtC1t
       0063456440 4654414740 4657624064 6757356757 6244406441 4254451515 1141625544 1456116364  SET FLAG FOR TWO-WORD TABLErrtARMD'NtST
       4357271100 6341664540 6441425445 4046544147 1515151515 1155444163 1446112311 0063456440 CO7t SAVE TABLE FLAGrrrrrtMDAS'Ft3t SET 
       4657624023 4057624024 4067576244 6340465762 4064414254 4540455664 6271151515 1141625544 FOR 3 OR 4 WORDS FOR TABLE ENTRYrrrtARMD
       1136102211 0063416645 4051564043 4154541515 1152606362 1147466245 4511004745 6440466245 t.+2t SAVE IN CALLrrtJPSRtGFREEt GET FRE
       4540435762 4515151515 1111231515 1141625544 1163656260 2111006341 6645406057 5156644562 E CORErrrrtt3rrtARMDtSURP1t SAVE POINTER
       1515151515 1141627057 1446111100 4354454162 4062454645 6245564345 4067576244 1515151515 rrrrrtARXO'Ftt CLEAR REFERENCE WORDrrrrr
       1141625544 1451116365 6260211515 1155444162 1451116365 6260221100 4645644350 4060624566 tARMD'ItSURP1rrtMDAR'ItSURP2t FETCH PREV
       4054515653 4067576244 1515151515 1155444162 1441145011 4155416353 1100554163 5340576564  LINK WORDrrrrrtMDAR'A'HtAMASKt MASK OUT
       4057544440 5451565315 1155444162 1457147011 6365626021 1100634564 4051564054 5156534064  OLD LINKrtMDAR'O'XtSURP1t SET IN LINK T
       5740564567 4045566462 7115151515 1141625544 1451116365 6260221100 6341664540 6062456640 O NEW ENTRYrrrrtARMD'ItSURP2t SAVE PREV 
       5451565315 1155444162 1163656260 1100464564 4350405451 5653406457 4056457064 4045566462 LINKrtMDARtSURPt FETCH LINK TO NEXT ENTR
       7115151515 1141625544 1451116365 6260211100 6341664540 5156405645 6740455664 6271146340 YrrrrtARMD'ItSURP1t SAVE IN NEW ENTRY'S 
       5451565315 1155444162 1163656260 2111004645 6443504064 4142544540 6057515664 4562151515 LINKrtMDARtSURP1t FETCH TABLE POINTERrrr
       1141625544 1163656260 1100634166 4540465762 4051564445 7051564715 1155444162 1163644357 tARMDtSURPt SAVE FOR INDEXINGrtMDARtSTCO
       3111004645 6443504043 5756636441 5664406641 5465451515 1141625544 1451147011 6365626021 9t FETCH CONSTANT VALUErrtARMD'I'XtSURP1
       1100636457 6245405156 4064414254 4515151515 1155444162 1470145014 5611636443 5727110064 t STORE IN TABLErrrrtMDAR'X'H'NtSTCO7t T
       6757356757 6244404357 5663644156 6440121515 1152604156 1163644357 2211005657 3440635351 WO-WORD CONSTANT ?rrtJPANtSTCO2t NO, SKI
       6015151515 1515151515 1155444162 1163644357 3011007145 6334404645 6443504022 5644406757 PrrrrrrrrrtMDARtSTCO8t YES, FETCH 2ND WO
       6244406641 5465451515 1141625544 1451147011 6365626021 1100636457 6245405156 4064414254 RD VALUErrtARMD'I'XtSURP1t STORE IN TABL
       4515151515 1515151515 6364435722 0611554441 6211636562 6011004645 6443504064 4142544540 ErrrrrrrrrSTCO2:tMDARtSURPt FETCH TABLE 
       6057515664 4562406457 4041621515 1155445162 1163644357 5611004156 4440624564 6562561515 POINTER TO ARrrtMDIRtSTCONt AND RETURNrr
       1515151515 4356644221 0611112011 0057564535 6757624440 4357566364 4156646340 6441425445 rrrrrCNTB1:tt0t ONE-WORD CONSTANTS TABLE
       1515151515 4356644222 0611112011 0064675735 6757624440 4357566364 4156646340 6441425445 rrrrrCNTB2:tt0t TWO-WORD CONSTANTS TABLE
       1515151515 1515151515 6364435731 0611112011 0064455560 4063645762 4147454036 3636151515 rrrrrrrrrrSTCO9:tt0t TEMP STORAGE ...rrr
       6364435730 0611112015 6364435727 0611112015 1515151515 1515151515 7777700000 0354607310 STCO8:tt0rSTCO7:tt0rrrrrrrrrrrbbX  !LP$+
       0354607310 0354607310 0354607310 0354607310 0354607310 0354607310 0354607310 0354607310 !LP$+!LP$+!LP$+!LP$+!LP$+!LP$+!LP$+!LP$+
       0354607310                                                                              !LP$+
 1035: 0005700011 4664562021 1361200301 3414400000 0040636457 6245406467 5735675762 4440435756  *X tFTN01"Q0!%,'     STORE TWO-WORD CON
       6364415664 1515151515 1515151515 6364435622 0611526555 6011361100 4556646271 1515151515 STANTrrrrrrrrrrSTCN2:tJUMPt.t ENTRYrrrrr
       1141625544 1163644357 3111006341 6645402163 6440675762 4440664154 6545151515 1155445162 tARMDtSTCO9t SAVE 1ST WORD VALUErrrtMDIR
       1451116364 4356221100 4645644350 4022564440 6757624440 6641546545 1515151515 1141625544 'ItSTCN2t FETCH 2ND WORD VALUErrrrrtARMD
       1163644357 3011006341 6645151515 1155444162 1470116364 4356221100 5156444570 4045566462 tSTCO8t SAVErrrtMDAR'XtSTCN2t INDEX ENTR
       7135605751 5664151515 1141625544 1163644357 5611004156 4440634166 4540465762 4062456465 Y-POINTrrrtARMDtSTCONt AND SAVE FOR RETU
       6256404662 5755406364 4357561515 1515151515 1155444162 1446114356 6442221100 5457575365 RN FROM STCONrrrrrrrtMDAR'FtCNTB2t LOOKU
       6040515640 6467573567 5762444043 5756636441 5664406441 4254451515 1152606362 1163656243 P IN TWO-WORD CONSTANT TABLErrtJPSRtSURC
       2215151515 1155444162 1163644357 3115151515 1155444162 1163644357 3015151515 1152655560 2rrrrtMDARtSTCO9rrrrtMDARtSTCO8rrrrtJUMP
       1163644357 2111005657 6440465765 5644344052 6555604064 5740636457 6245151515 1152655560 tSTCO1t NOT FOUND, JUMP TO STORErrrtJUMP
       1163644357 2211004657 6556443440 5265556040 6457406245 6465625615 1515151515 1515151515 tSTCO2t FOUND, JUMP TO RETURNrrrrrrrrrrr
       0040415454 5743416445 4063645762 4147454046 5762406641 6251414254 4515151515 1515151515   ALLOCATE STORAGE FOR VARIABLErrrrrrrrr
       4154664162 0611526555 6011361100 4556646271 1515151515 1141625544 1141546631 3111006341 ALVAR:tJUMPt.t ENTRYrrrrrtARMDtALV99t SA
       6645406057 5156644562 4064574063 7155425754 1515151515 1152606362 1144466371 5511004445 VE POINTER TO SYMBOLrrrrrtJPSRtDFSYMt DE
       4651564540 5164404164 4043656262 4556644054 4315151515 1152606362 1163536054 4311006353 FINE IT AT CURRENT LCrrrrtJPSRtSKPLCt SK
       5160405756 4540545743 4046576240 6364576241 4745151515 1155444162 1451114154 6631311100 IP ONE LOC FOR STORAGErrrtMDAR'ItALV99t 
       4645644350 4063715542 5754146340 4654414763 1515151515 1155444162 1457114342 2211006345 FETCH SYMBOL'S FLAGSrrrrrtMDAR'OtCB2t SE
       6440637155 4257544064 7160454033 4066416251 4142544515 1141625544 1451114154 6631311100 T SYMBOL TYPE = VARIABLErtARMD'ItALV99t 
       6345644056 4567406371 5542575440 6471604515 1155444162 1141546631 3111004645 6443504063 SET NEW SYMBOL TYPErtMDARtALV99t FETCH S
       7155425754 4060575156 6445621515 1152606362 1147446471 6011004745 6440637155 4257541463 YMBOL POINTERrrtJPSRtGDTYPt GET SYMBOL'S
       4044416441 4064716045 1515151515 1155444163 1446145611 2411006467 5735675762 4440444164  DATA TYPErrrrrtMDAS'F'Nt4t TWO-WORD DAT
       4140647160 4540121515 1141565162 1141546641 6211005657 3440624564 6562561515 1515151515 A TYPE ?rrtANIRtALVARt NO, RETURNrrrrrrr
       1152606362 1163536054 4311007145 6334406353 5160404156 5764504562 4054574315 1155445162 tJPSRtSKPLCt YES, SKIP ANOTHER LOCrtMDIR
       1141546641 6211004156 4440624564 6562561515 1515151515 4154663131 0611112011 0064455560 tALVARt AND RETURNrrrrrrrALV99:tt0t TEMP
       4063645762 4147451515 1515151515 1515151515 7777700000 7611232565 7611232565 7611232565  STORAGErrrrrrrrrrrrbbX  +t35U+t35U+t35U
       7611232565 7611232565 7611232565 7611232565 7611232565 7611232565 7611232565            +t35U+t35U+t35U+t35U+t35U+t35U+t35U
 1180: 0006000011 4664562021 1361200336 3414400000 0040636741 6040414063 7155425754 4067516450  :  tFTN01"Q0!.,'     SWAP A SYMBOL WITH
       4044656054 5143416445 4046575454 5767515647 4063715542 5754405156 4064414254 4515151515  DUPLICATE FOLLOWING SYMBOL IN TABLErrrr
       1515151515 6367416006 1152655560 1136110045 5664627115 1155444162 1441114155 4163531100 rrrrrSWAP:tJUMPt.t ENTRYrtMDAR'AtAMASKt 
       5541635340 4651626364 4063715542 5754406057 5156644562 1515151515 1141625544 1163674160 MASK FIRST SYMBOL POINTERrrrrrtARMDtSWAP
       3111006341 6645151515 1155444162 1451116367 4160311100 4745644044 6560545143 4164454063 9t SAVErrrtMDAR'ItSWAP9t GET DUPLICATE S
       7155425754 4060575156 6445621515 1155444162 1441114155 4163531100 5541635315 1141625544 YMBOL POINTERrrtMDAR'AtAMASKt MASKrtARMD
       1163674160 3011006341 6645151515 1155447057 1451116367 4160311100 4354454162 4057656440 tSWAP8t SAVErrrtMDXO'ItSWAP9t CLEAR OUT 
       5451565340 6457404465 6054514341 6445151515 1141625544 1451116367 4160311100 4156444063 LINK TO DUPLICATErrrtARMD'ItSWAP9t AND S
       4166454046 5162636440 6371554257 5414634046 5441476315 1155444162 1451116367 4160301100 AVE FIRST SYMBOL'S FLAGSrtMDAR'ItSWAP8t 
       4645644350 4044656054 5143416445 1463405451 5653406757 6244151515 1155444162 1441114155 FETCH DUPLICATE'S LINK WORDrrrtMDAR'AtAM
       4163531100 5541635315 1155444162 1457145111 6367416031 1100435755 4251564540 6751645040 ASKt MASKrtMDAR'O'ItSWAP9t COMBINE WITH 
       4651626364 4063715542 5754631463 4046544147 6315151515 1141625544 1451116367 4160311100 FIRST SYMBOLS'S FLAGSrrrrtARMD'ItSWAP9t 
       4156444063 4166454056 4567405451 5653405156 4046516263 6440637155 4257541515 1155444162 AND SAVE NEW LINK IN FIRST SYMBOLrrtMDAR
       1451116367 4160301100 4645644350 4044656054 5143416445 1463405451 5653406757 6244151515 'ItSWAP8t FETCH DUPLICATE'S LINK WORDrrr
       1155444162 1441145011 4155416353 1100554163 5340576564 4057544440 5451565315 1155444162 tMDAR'A'HtAMASKt MASK OUT OLD LINKrtMDAR
       1457116367 4160311100 4357554251 5645406751 6450405451 5653406457 4046516263 6440637155 'OtSWAP9t COMBINE WITH LINK TO FIRST SYM
       4257541515 1141625544 1451116367 4160301100 6341664540 5156404465 6054514341 6445146340 BOLrrtARMD'ItSWAP8t SAVE IN DUPLICATE'S 
       5451565340 6757624415 1515151515 1152606362 1146446351 5611005156 5164514154 5172454046 LINK WORDrrrrrrtJPSRtFDSINt INITIALIZE F
       4463715540 6257656451 5645151515 1515151515 6367416021 0611526063 6211464463 7155110047 DSYM ROUTINErrrrrrrrSWAP1:tJPSRtFDSYMt G
       4564405645 7064406371 5542575415 1152655560 1136110040 4016635057 6554444056 5764404745 ET NEXT SYMBOLrtJUMPt.t   (SHOULD NOT GE
       6440645740 4556444057 4640644142 5445631715 1515151515 1155444162 1451114644 6354601100 T TO END OF TABLES)rrrrrrtMDAR'ItFDSLPt 
       4645644350 4054515653 4064574046 5765564440 6371554257 5415151515 1155447057 1163674160 FETCH LINK TO FOUND SYMBOLrrrrtMDXOtSWAP
       3111006341 5545404163 4046516263 6440574640 6367416040 6041516240 1215151515 1152605463 9t SAME AS FIRST OF SWAP PAIR ?rrrrtJPLS
       1163674160 2111005657 3440545757 6040465762 4056457064 4063715542 5754151515 1515151515 tSWAP1t NO, LOOP FOR NEXT SYMBOLrrrrrrrr
       1155444162 1457116367 4160301100 7145633440 4350415647 4540645740 6057515664 4064574044 tMDAR'OtSWAP8t YES, CHANGE TO POINT TO D
       6560545143 4164451515 1141625544 1451114644 6354601100 4156444065 6044416445 4060624566 UPLICATErrtARMD'ItFDSLPt AND UPDATE PREV
       5157656340 5451565315 1155445162 1163674160 1100624564 6562561515 1515151515 6367416030 IOUS LINKrtMDIRtSWAPt RETURNrrrrrrrSWAP8
       0611112011 0064455560 4063645762 4147454036 3636151515 6367416031 0611112015 1515151515 :tt0t TEMP STORAGE ...rrrSWAP9:tt0rrrrrr
       1515151515 7777700000 3630747405 3630747405 3630747405 3630747405 3630747405 3630747405 rrrrrbbX  .8##*.8##*.8##*.8##*.8##*.8##*
       3630747405 3630747405 3630747405 3630747405                                             .8##*.8##*.8##*.8##*
 1235: 0006100011 4664562021 1361200351 3414400000 0040515651 6451415451 7245404657 6240465156  :+ tFTN01"Q0!I,'     INITIALIZE FOR FIN
       4451564740 6371554257 5463151515 1515151515 4644635156 0611526555 6011361100 4556646271 DING SYMBOLSrrrrrrrrFDSIN:tJUMPt.t ENTRY
       1515151515 1141625544 1457114644 6346471100 6345644046 5441474046 5762405756 4535675762 rrrrrtARMD'OtFDSFGt SET FLAG FOR ONE-WOR
       4440644142 5445151515 1155444162 1446116355 6442211100 4645644350 4054515653 4064574057 D TABLErrrtMDAR'FtSMTB1t FETCH LINK TO O
       5645356757 6244406371 5542575440 6441425445 1515151515 1141625544 1146446355 6011004556 NE-WORD SYMBOL TABLErrrrrtARMDtFDSMPt EN
       6341644540 5156516451 4154406057 5156644562 1515151515 1155445162 1146446351 5611006245 SATE INITIAL POINTERrrrrrtMDIRtFDSINt RE
       6465625615 1515151515 1515151515 0040465156 4440564570 6440637155 4257541515 1515151515 TURNrrrrrrrrrrr  FIND NEXT SYMBOLrrrrrrr
       4644637155 0611526555 6011361100 4556646271 1515151515 1155444162 1146446355 6011004645 FDSYM:tJUMPt.t ENTRYrrrrrtMDARtFDSMPt FE
       6443504060 6245665157 6563406371 5542575440 6064621515 1515151515 4644637121 0611416255 TCH PREVIOUS SYMBOL PTRrrrrrrrFDSY1:tARM
       4411464463 5460110063 4166454060 6462406457 4054416364 4063715542 5754405451 5653151515 DtFDSLPt SAVE PTR TO LAST SYMBOL LINKrrr
       1155444162 1451114644 6354601100 4645644350 4054515653 4064574056 4570644063 7155425754 tMDAR'ItFDSLPt FETCH LINK TO NEXT SYMBOL
       1515151515 1152605463 1146446371 2211004556 4440574640 6441425445 4012151515 1515151515 rrrrrtJPLStFDSY2t END OF TABLE ?rrrrrrrr
       1155444162 1470114644 6346471100 7145633440 4457564540 4257645040 6441425445 6340121515 tMDAR'XtFDSFGt YES, DONE BOTH TABLES ?rr
       1154635162 1146446371 5511007145 6334406245 6465625640 1621171515 1515151515 1155444162 tLSIRtFDSYMt YES, RETURN (1)rrrrrrrtMDAR
       1446116355 6442221100 5657344046 4564435040 5451565340 6467573567 5762444063 7155425754 'FtSMTB2t NO, FETCH LINK TWO-WORD SYMBOL
       4064414254 4515151515 1152655560 1146446371 2111005457 5760404657 6240564567 4064414254  TABLErrrrtJUMPtFDSY1t LOOP FOR NEW TABL
       4515151515 1515151515 4644637122 0611554441 6214411141 5541635311 0055416353 4060575156 ErrrrrrrrrFDSY2:tMDAR'AtAMASKt MASK POIN
       6445624064 5740564570 6440637155 4257541515 1141625544 1146446355 6011006341 6645405645 TER TO NEXT SYMBOLrrtARMDtFDSMPt SAVE NE
       6740605751 5664456215 1141625544 1164552111 0041546357 4046576240 5156444570 5156471515 W POINTERrtARMDtTM1t ALSO FOR INDEXINGrr
       1515151515 1155444162 1451147011 6455211100 4645644350 4021636440 5641554540 6757624415 rrrrrtMDAR'I'XtTM1t FETCH 1ST NAME WORDr
       1141625544 1146446355 2111006341 6645151515 1155444162 1456114644 6346471100 6467573567 tARMDtFDSM1t SAVErrrtMDAR'NtFDSFGt TWO-W
       5762444064 4142544540 1215151515 1154634162 1451147011 6455211100 7145633440 4645644350 ORD TABLE ?rrrrtLSAR'I'XtTM1t YES, FETCH
       4022564440 5641554540 6757624415 1141625544 1146446355 2211006341 6645151515 1155444162  2ND NAME WORDrtARMDtFDSM2t SAVErrrtMDAR
       1451145011 4644635560 1100464564 4350406371 5542575440 4654414763 1515151515 1155445162 'I'HtFDSMPt FETCH SYMBOL FLAGSrrrrrtMDIR
       1470114644 6371551100 6245646562 5640162217 1515151515 1515151515 4644634647 0611112011 'XtFDSYMt RETURN (2)rrrrrrrrrrFDSFG:tt0t
       0064414254 4540465441 4715151515 4644635560 0611112011 0043656262 4556644046 5765564440  TABLE FLAGrrrrFDSMP:tt0t CURRENT FOUND 
       6371554257 5440605751 5664456215 4644635460 0611112011 0060624566 5157656340 5451565340 SYMBOL POINTERrFDSLP:tt0t PREVIOUS LINK 
       6057515664 4562151515 4644635521 0611112011 0043656262 4556644063 7155425754 4056415545 POINTERrrrFDSM1:tt0t CURRENT SYMBOL NAME
       4067576244 4021151515 4644635522 0611112011 0043656262 4556644063 7155425754 4056415545  WORD 1rrrFDSM2:tt0t CURRENT SYMBOL NAME
       4067576244 4022151515 1515151515 1515151515 7777700000 2135140436 2135140436 2135140436  WORD 2rrrrrrrrrrrrrbbX  1-'&.1-'&.1-'&.
       2135140436 2135140436 2135140436 2135140436 2135140436 2135140436 2135140436            1-'&.1-'&.1-'&.1-'&.1-'&.1-'&.1-'&.
 1285: 0006200011 4664562021 1361200363 3414400000 0040435045 4353406471 6045405746 4043504162  :0 tFTN01"Q0!S,'     CHECK TYPE OF CHAR
       4143644562 1515151515 0040404062 4564656256 6340166751 6450406757 6244404662 5755404350 ACTERrrrrr    RETURNS (WITH WORD FROM CH
       6264424051 5640435064 7146174036 3636151515 0040404040 4016211740 4063604543 5141541515 RTB IN CHTYF) ...rrr      (1)  SPECIALrr
       0040404040 4016221740 4056655545 6251431515 0040404040 4016231740 4041546050 4142456451       (2)  NUMERICrr      (3)  ALPHABETI
       4315151515 1515151515 4350647160 0611526555 6011361100 4556646271 1515151515 1141625544 CrrrrrrrrrCHTYP:tJUMPt.t ENTRYrrrrrtARMD
       1164552111 0063416645 4043504162 4051564041 6215151515 1155444145 1454111100 4144444051 tTM1t SAVE CHAR IN ARrrrrtMDAE'Ltt ADD I
       5664636265 4364515756 4064574046 4564435040 6441425445 4067576244 1515151515 4350647121 NTSRUCTION TO FETCH TABLE WORDrrrrrCHTY1
       0611554441 6211435062 6442151515 1141625162 1446111100 4645644350 4064414254 4540675762 :tMDARtCHRTBrrrtARIR'Ftt FETCH TABLE WOR
       4415151515 1141625544 1143506471 4611006341 6645405156 4043504162 4143644562 4064716045 DrrrrtARMDtCHTYFt SAVE IN CHARACTER TYPE
       4046544147 1515151515 1152604156 1136102311 0063604543 5141544012 1515151515 1515151515  FLAGrrrrrtJPANt.+3t SPECIAL ?rrrrrrrrrr
       1141624162 1442145614 7011435064 7160110056 5734405156 4445704062 4564656256 1515151515 tARAR'B'N'XtCHTYPt NO, INDEX RETURNrrrrr
       1141564162 1470114350 6471601100 5665554562 5143344051 5644457040 6245646562 5615151515 tANAR'XtCHTYPt NUMERIC, INDEX RETURNrrrr
       1515151515 1155444162 1164552111 0062456364 5762454041 6215151515 1155445162 1143506471 rrrrrtMDARtTM1t RESTORE ARrrrrtMDIRtCHTY
       6011006245 6465625615 1515151515 4350647146 0611112011 0043504162 4143644562 4064716045 Pt RETURNrrrrrrCHTYF:tt0t CHARACTER TYPE
       4046544147 1515151515 1515151515 1515151515 0040634564 4051556054 5143516440 4441644140  FLAGrrrrrrrrrrrrrrr  SET IMPLICIT DATA 
       6471604540 5746404350 4162414364 4562166317 1515151515 1515151515 6343506471 0611526555 TYPE OF CHARACTER(S)rrrrrrrrrrSCHTY:tJUM
       6011361100 4556646271 1515151515 1155444162 1451116343 5064711100 4645644350 4044416441 Pt.t ENTRYrrrrrtMDAR'ItSCHTYt FETCH DATA
       4064716045 4043574445 1515151515 1141625544 1164552111 0063416645 1515151515 1155444162  TYPE CODErrrrrtARMDtTM1t SAVErrrrrtMDAR
       1451147011 6343506471 1100464564 4350404651 6263644043 5041624043 5744451515 1155444145 'I'XtSCHTYt FETCH FIRST CHAR CODErrtMDAE
       1446114350 6264421100 4357556065 6445404144 4462456363 4051564043 5041624064 4142544515 'FtCHRTBt COMPUTE ADDRESS IN CHAR TABLEr
       1141625544 1164552211 0063416645 1515151515 1155444162 1451147011 6343506471 1100464564 tARMDtTM2t SAVErrrrrtMDAR'I'XtSCHTYt FET
       4350405441 6364404350 4162404357 4445151515 1155444145 1446114350 6264421021 1100435755 CH LAST CHAR CODErrrtMDAE'FtCHRTB+1t COM
       6065644540 4144446240 5156406441 4254454016 6054656340 2117151515 1141625544 1164552311 PUTE ADDR IN TABLE (PLUS 1)rrrtARMDtTM3t
       0063416645 1515151515 1515151515 6343506421 0611554441 6214511450 1164552211 0046456443  SAVErrrrrrrrrrSCHT1:tMDAR'I'HtTM2t FETC
       5040564570 6440644142 5445406757 6244151515 1155447057 1441114327 1100554163 5340576564 H NEXT TABLE WORDrrrtMDXO'AtC7t MASK OUT
       4057544440 4441644140 6471604515 1155444162 1457116455 2111006054 6556534051 5640564567  OLD DATA TYPErtMDAR'OtTM1t PLUNK IN NEW
       4064716045 1515151515 1141625544 1451145011 6455221100 6341664540 6441425445 4067576244  TYPErrrrrtARMD'I'HtTM2t SAVE TABLE WORD
       1515151515 1155444162 1470116455 2211005156 4445704064 4142544540 6057515664 4562151515 rrrrrtMDAR'XtTM2t INDEX TABLE POINTERrrr
       1155447057 1164552311 0044575645 4041545440 4350416263 4012151515 1152605463 1163435064 tMDXOtTM3t DONE ALL CHARS ?rrrtJPLStSCHT
       2111005657 3440545757 6040465762 4056457064 1515151515 1515151515 1155445162 1470116343 1t NO, LOOP FOR NEXTrrrrrrrrrrtMDIR'XtSC
       5064711100 7145633440 6245646562 5615151515 1515151515 1515151515 7777700000 7111647473 HTYt YES, RETURNrrrrrrrrrrrrrrbbX  YtT#$
       7111647473 7111647473 7111647473 7111647473 7111647473 7111647473 7111647473 7111647473 YtT#$YtT#$YtT#$YtT#$YtT#$YtT#$YtT#$YtT#$
       7111647473                                                                              YtT#$
 1420: 0006300011 4664562021 1361200416 3414400000 0040474564 4016415644 4063456440 5146405645  :8 tFTN01"Q0&(,'     GET (AND SET IF NE
       4345636341 6271174044 4164414064 7160454057 4640414063 7155425754 1515151515 1515151515 CESSARY) DATA TYPE OF A SYMBOLrrrrrrrrrr
       4744647160 0611526555 6011361100 4556646271 1515151515 1141625544 1164552111 0063416645 GDTYP:tJUMPt.t ENTRYrrrrrtARMDtTM1t SAVE
       4063715542 5754404556 6462714060 5751566445 6215151515 1141625544 1164552211 0041546357  SYMBOL ENTRY POINTERrrrrtARMDtTM2t ALSO
       4046576240 5156444570 5156471515 1155444162 1451145011 6455211100 4645644350 4063715542  FOR INDEXINGrrtMDAR'I'HtTM1t FETCH SYMB
       5754146340 4654414763 1515151515 1155444162 1441114327 1100554163 5340444164 4140647160 OL'S FLAGSrrrrrtMDAR'AtC7t MASK DATA TYP
       4540465145 5444151515 1154635162 1147446471 6011005146 4063456434 4062456465 6256406751 E FIELDrrrtLSIRtGDTYPt IF SET, RETURN WI
       6450404441 6441406471 6045405156 4041621515 1515151515 1155444162 1451147014 5311645522 TH DATA TYPE IN ARrrrrrrrtMDAR'I'X'KtTM2
       1100455463 4534404645 6443504021 6364404350 4162405746 4056415545 4067576244 1515151515 t ELSE, FETCH 1ST CHAR OF NAME WORDrrrrr
       1155444162 1441114327 2711005541 6353151515 1155444145 1454111100 4357556065 6445404645 tMDAR'AtC77t MASKrrrtMDAE'Ltt COMPUTE FE
       6443504046 6257554043 5041624064 4142544515 1155444162 1450114350 6264421515 1141625162 TCH FROM CHAR TABLErtMDAR'HtCHRTBrrtARIR
       1446111100 4745644044 4164414064 7160454046 5762406364 4162645156 4740544564 6445621515 'Ftt GET DATA TYPE FOR STARTING LETTERrr
       1155444162 1441114327 1100554163 5315151515 1155444162 1457145114 5011645521 1100634564 tMDAR'AtC7t MASKrrrrtMDAR'O'I'HtTM1t SET
       4051564063 7155425754 1463404654 4147631515 1141625544 1451145011 6455211515 1155444162  IN SYMBOL'S FLAGSrrtARMD'I'HtTM1rrtMDAR
       1441114327 1100554163 5340444164 4140647160 4515151515 1155445162 1147446471 6011006245 'AtC7t MASK DATA TYPErrrrtMDIRtGDTYPt RE
       6465625615 1515151515 1515151515 0040474564 4063715542 5754405445 5647645015 1515151515 TURNrrrrrrrrrrr  GET SYMBOL LENGTHrrrrrr
       4754455647 0611526555 6011361100 4556646271 1515151515 1141625544 1164552111 0063416645 GLENG:tJUMPt.t ENTRYrrrrrtARMDtTM1t SAVE
       4063715542 5754406057 5156644562 1515151515 1155444162 1451145311 6455211100 4645644350  SYMBOL POINTERrrrrrtMDAR'I'KtTM1t FETCH
       4063715542 5754146340 6471604515 1155444162 1441144611 2720110055 4163531515 1155447057  SYMBOL'S TYPErtMDAR'A'Ft70t MASKrrtMDXO
       1446112220 1100416262 4171401215 1152605463 1147544556 2111005657 3440635351 6040645740 'Ft20t ARRAY ?rtJPLStGLEN1t NO, SKIP TO 
       6345644054 4556476450 4033402115 1515151515 1155444162 1164552111 0071456334 4047456440 SET LENGTH = 1rrrrrrtMDARtTM1t YES, GET 
       6371554257 5440606462 1515151515 1155444163 1446145611 2111004445 4362455545 5664406457 SYMBOL PTRrrrrrtMDAS'F'Nt1t DECREMENT TO
       4066415465 4540675762 4415151515 1141625544 1164552211 0063416645 1515151515 1155444162  VALUE WORDrrrrtARMDtTM2t SAVErrrrrtMDAR
       1451145011 6455221100 4745644044 5155406441 4254454060 5751566445 6215151515 1155444162 'I'HtTM2t GET DIM TABLE POINTERrrrrtMDAR
       1441144611 2727272727 1100554163 5315151515 1141625544 1164552211 0063416645 1515151515 'A'Ft77777t MASKrrrrtARMDtTM2t SAVErrrrr
       1155444162 1451147011 6455221100 4745644041 6262417140 5445564764 5015151515 1152655560 tMDAR'I'XtTM2t GET ARRAY LENGTHrrrrtJUMP
       1136102215 1515151515 4754455621 0611554441 6211432111 0066416251 4142544534 4063456440 t.+2rrrrrrGLEN1:tMDARtC1t VARIABLE, SET 
       5445564764 5040334021 1515151515 1515151515 1141625544 1164552311 0063416645 4054455647 LENGTH = 1rrrrrrrrrrtARMDtTM3t SAVE LENG
       6450151515 1155444162 1164552111 0046456443 5040637155 4257544060 5751566445 6215151515 THrrrtMDARtTM1t FETCH SYMBOL POINTERrrrr
       1152606362 1147446471 6011004745 6440516463 4044416441 4064716045 1515151515 1155444163 tJPSRtGDTYPt GET ITS DATA TYPErrrrrtMDAS
       1446145611 2411006467 5735675762 4440444164 6555401215 1152604156 1136102315 1515151515 'F'Nt4t TWO-WORD DATUM ?rtJPANt.+3rrrrrr
       1155444162 1442116455 2311007145 6334404645 6443504022 0554455647 6450151515 1155445162 tMDAR'BtTM3t YES, FETCH 2*LENGTHrrrtMDIR
       1147544556 4711004156 4440624564 6562561515 1515151515 1155444162 1164552311 0056573440 tGLENGt AND RETURNrrrrrrrtMDARtTM3t NO, 
       4645644350 4054455647 6450151515 1155445162 1147544556 4711006245 6465625615 1515151515 FETCH LENGTHrrrtMDIRtGLENGt RETURNrrrrrr
       1515151515 7777700000 0437517377 0437517377 0437517377 0437517377 0437517377 0437517377 rrrrrbbX  &/I$b&/I$b&/I$b&/I$b&/I$b&/I$b
       0437517377 0437517377 0437517377 0437517377                                             &/I$b&/I$b&/I$b&/I$b
 1550: 0006400011 4664562021 1361200450 3414400000 0040474564 4046624545 4043576245 4046576240  :  tFTN01"Q0&H,'     GET FREE CORE FOR 
       6045625541 5645566440 6441425445 4063645762 4147451515 1515151515 4746624545 0611526555 PERMANENT TABLE STORAGErrrrrrrGFREE:tJUM
       6011361100 4556646271 1515151515 1155444162 1456114662 4545601100 4645644350 4041444462 Pt.t ENTRYrrrrrtMDAR'NtFREEPt FETCH ADDR
       4057464056 4570644046 6245454054 5743151515 1141625544 1456116455 2111006341 6645151515  OF NEXT FREE LOCrrrtARMD'NtTM1t SAVErrr
       1155444163 1451145611 4746624545 1100414444 4056573640 5746406757 6244634062 4561655162 tMDAS'I'NtGFREEt ADD NO. OF WORDS REQUIR
       4544151515 1155444145 1160466245 6011003654 6436406560 6045624064 4142544540 5451555164 EDrrrtMDAEtPFREPt .LT. UPPER TABLE LIMIT
       4012151515 1152634156 1145626257 6211005657 3440644562 5551564154 4045626257 6215151515  ?rrrtJSANtERRORt NO, TERMINAL ERRORrrrr
       1111456221 2511004040 1643575560 5154456240 6441425445 6340466554 5417151515 1515151515 ttER15t   (COMPILER TABLES FULL)rrrrrrrr
       1155444145 1456116046 6245601100 7145633440 4745644056 4567404662 4545404357 6245406057 tMDAE'NtPFREPt YES, GET NEW FREE CORE PO
       5156644562 1515151515 1141625544 1456114662 4545601100 6341664515 1155444162 1164552111 INTERrrrrrtARMD'NtFREEPt SAVErtMDARtTM1t
       0046456443 5040414444 6245636315 1155445162 1470114746 6245451100 6245646562 5615151515  FETCH ADDRESSrtMDIR'XtGFREEt RETURNrrrr
       1515151515 4662454560 0611112011 0046624545 4043576245 4060575156 6445621515 5046624560 rrrrrFREEP:tt0t FREE CORE POINTERrrHFREP
       0611112011 0063644162 6440574640 6757625351 5647406364 5762414745 4064414254 4515151515 :tt0t START OF WORKING STORAGE TABLErrrr
       6046624560 0611112011 0064576040 5746406057 5451635040 6364414353 4063645762 4147451515 PFREP:tt0t TOP OF POLISH STACK STORAGErr
       5443576245 0611112011 0063416645 4440636441 6264405746 4065634142 5445404662 4545404357 LCORE:tt0t SAVED START OF USABLE FREE CO
       6245151515 5043576245 0611112011 0043576245 4054515551 6440161021 1715151515 1515151515 RErrrHCORE:tt0t CORE LIMIT (+1)rrrrrrrrr
       1515151515 0040474564 4047624545 4043576245 4046576240 6757625351 5647406364 5762414745 rrrrr  GET GREE CORE FOR WORKING STORAGE
       4016515640 5051475035 4357624517 1515151515 1515151515 5046624545 0611526555 6011361100  (IN HIGH-CORE)rrrrrrrrrrHFREE:tJUMPt.t 
       4556646271 1515151515 1155444162 1150466245 6011004645 6443504063 6441626440 5746406757 ENTRYrrrrrtMDARtHFREPt FETCH START OF WO
       6253515647 4043576245 1515151515 1155444163 1451145611 5046624545 1100636542 6462414364 RKING CORErrrrrtMDAS'I'NtHFREEt SUBTRACT
       4056573640 5746406757 6244634062 4561655162 4544151515 1155444145 1456114662 4545601100  NO. OF WORDS REQUIREDrrrtMDAE'NtFREEPt 
       6757655444 4057664562 6762516445 4060456255 4156455664 4063645762 4147454012 1515151515 WOULD OVERWRITE PERMANENT STORAGE ?rrrrr
       1152634156 1145626257 6211007145 6334406445 6255515641 5440456262 5762151515 1111456231 tJSANtERRORt YES, TERMINAL ERRORrrrttER9
       3111004040 1656576440 4556576547 5040675762 5351564740 6364576241 4745171515 1155444145 9t   (NOT ENOUGH WORKING STORAGE)rrtMDAE
       1146624545 6011004554 6345344043 5755606564 4540564567 4067576253 5156474063 6441626415 tFREEPt ELSE, COMPUTE NEW WORKING STARTr
       1141625544 1150466245 6011006341 6645405645 6740605751 5664456215 1141625544 1160466245 tARMDtHFREPt SAVE NEW POINTERrtARMDtPFRE
       6011004154 6357404163 4063644162 6440574640 6057545163 5040636441 4353151515 1155445162 Pt ALSO AS START OF POLISH STACKrrrtMDIR
       1470115046 6245451100 4156444062 4564656256 1515151515 1515151515 1515151515 0040655641 'XtHFREEt AND RETURNrrrrrrrrrrrrrrr  UNA
       5454574341 6445404357 6245151515 1515151515 4662456560 0611526555 6011361100 4556646271 LLOCATE CORErrrrrrrrFREUP:tJUMPt.t ENTRY
       1515151515 1155444162 1164544463 6611004357 6245404154 5457434164 4544401215 1152605463 rrrrrtMDARtTLDSVt CORE ALLOCATED ?rtJPLS
       1136102211 0071456334 4063535160 1515151515 1515151515 1155445162 1146624565 6011005657 t.+2t YES, SKIPrrrrrrrrrrtMDIRtFREUPt NO
       3440624564 6562561515 1515151515 3664544406 1141625544 1173645444 1100624563 6457624540 , RETURNrrrrrrr.TLD:tARMDt$TLDt RESTORE 
       6364416264 4057464043 5762454041 4664456240 6245646562 5615151515 3654440611 4162554411 START OF CORE AFTER RETURNrrrr.LD:tARMDt
       7354441100 4154635740 4163406364 4162644057 4640656341 4254454043 5762451515 1141627057 $LDt ALSO AS START OF USABLE CORErrtARXO
       1446111100 4354454162 4043576245 4041545457 4341644544 4046544147 1515151515 1141625544 'Ftt CLEAR CORE ALLOCATED FLAGrrrrrtARMD
       1164544463 6615151515 1155445162 1146624565 6011006245 6465625615 1515151515 6454446366 tTLDSVrrrrtMDIRtFREUPt RETURNrrrrrrTLDSV
       0611112011 0073645444 4063416645 4016415644 4043576245 4041545457 4341644544 4046544147 :tt0t $TLD SAVE (AND CORE ALLOCATED FLAG
       1715151515 1515151515 1515151515 7777700000 5305162477 5305162477 5305162477 5305162477 )rrrrrrrrrrrrrrbbX  K*(4bK*(4bK*(4bK*(4b
       5305162477 5305162477 5305162477 5305162477 5305162477 5305162477                       K*(4bK*(4bK*(4bK*(4bK*(4bK*(4b
 1030: 0006500011 4664562021 1361200300 3414400000 0040435041 6241436445 6240604143 5351564740  :H tFTN01"Q0! ,'     CHARACTER PACKING 
       6257656451 5645151515 1515151515 6043500611 5265556011 3611004556 6462711515 1155444162 ROUTINErrrrrrrrPCH:tJUMPt.t ENTRYrrtMDAR
       1441114327 2711005541 6353404155 5763404350 4162405156 4041621515 1141625544 1164552111 'AtC77t MASK AMOS CHAR IN ARrrtARMDtTM1t
       0063416645 1515151515 1155444162 1470116043 5043641100 6245414471 4046576240 5645674067  SAVErrrrrtMDAR'XtPCHCTt READY FOR NEW W
       5762444012 1515151515 1152605463 1160435021 1100565734 4063535160 1515151515 1515151515 ORD ?rrrrrtJPLStPCH1t NO, SKIPrrrrrrrrrr
       1155444162 1446112411 0071456334 4063456465 6040435765 5664404657 6240244055 5762454043 tMDAR'Ft4t YES, SETUP COUNT FOR 4 MORE C
       5041626315 1141625544 1456116043 5043641515 1155444162 1164552111 0046456443 5040564567 HARSrtARMD'NtPCHCTrrtMDARtTM1t FETCH NEW
       4043504162 1515151515 1141625544 1160435067 4411006341 6645404163 4021636440 5156405645  CHARrrrrrtARMDtPCHWDt SAVE AS 1ST IN NE
       6740675762 4415151515 1155445162 1470116043 5011006245 6465625640 1622171515 1515151515 W WORDrrrrtMDIR'XtPCHt RETURN (2)rrrrrrr
       6043502106 1155444162 1453116043 5067441100 6257644164 4540604143 5351564740 6757624440 PCH1:tMDAR'KtPCHWDt ROTATE PACKING WORD 
       5756454043 5041621515 1155444162 1457116455 2111004357 5542515645 4056456740 4350416215 ONE CHARrrtMDAR'OtTM1t COMBINE NEW CHARr
       1141625544 1160435067 4411006341 6645151515 1155444162 1456116043 5043641100 6757624440 tARMDtPCHWDt SAVErrrtMDAR'NtPCHCTt WORD 
       4665545440 1215151515 1154635162 1470116043 5011005657 3440624564 6562564016 2217151515 FULL ?rrrrtLSIR'XtPCHt NO, RETURN (2)rrr
       1515151515 1155444162 1160435067 4411007145 6334404645 6443504067 5762444064 5740416215 rrrrrtMDARtPCHWDt YES, FETCH WORD TO ARr
       1155445162 1160435011 0041564440 6245646562 5640162117 1515151515 1515151515 6043504364 tMDIRtPCHt AND RETURN (1)rrrrrrrrrrPCHCT
       0611112011 0060414353 5156474043 5765566415 6043506744 0611112011 0060414353 5156474067 :tt0t PACKING COUNTrPCHWD:tt0t PACKING W
       5762441515 1515151515 1515151515 0040465154 5440576564 4054416364 4060414353 5156474067 ORDrrrrrrrrrrrr  FILL OUT LAST PACKING W
       5762441515 1515151515 6043504654 0611526555 6011361100 4556646271 1515151515 1141625544 ORDrrrrrrrPCHFL:tJUMPt.t ENTRYrrrrrtARMD
       1164552211 0063416645 4046515454 4043504162 1515151515 1155444162 1456116043 5043641100 tTM2t SAVE FILL CHARrrrrrtMDAR'NtPCHCTt 
       4156714067 5762444012 1515151515 1152605463 1136102211 0071456334 4063535160 1515151515 ANY WORD ?rrrrrtJPLSt.+2t YES, SKIPrrrrr
       1515151515 1155445162 1470116043 5046541100 5657344062 4564656256 4016221715 1515151515 rrrrrtMDIR'XtPCHFLt NO, RETURN (2)rrrrrr
       6043504621 0611554441 6211645522 1100464564 4350404651 5454404350 4162151515 1152606362 PCHF1:tMDARtTM2t FETCH FILL CHARrrrtJPSR
       1160435011 0060414353 4051641515 1155445162 1160435046 5411005756 4067576244 4046655454 tPCHt PACK ITrrtMDIRtPCHFLt ON WORD FULL
       3440624564 6562564016 2117151515 1152655560 1160435046 2111005457 5760406556 6451544044 , RETURN (1)rrrtJUMPtPCHF1t LOOP UNTIL D
       5756451515 1515151515 1515151515 7777700000 4474475656 4474475656 4474475656 4474475656 ONErrrrrrrrrrrrbbX  D#GNND#GNND#GNND#GNN
       4474475656 4474475656 4474475656 4474475656 4474475656 4474475656                       D#GNND#GNND#GNND#GNND#GNND#GNN
  485: 0006600011 4664562021 1361200123 3414400000 0040445163 6041644350 4057564026 3542516440  :P tFTN01"Q0%3,'     DISPATCH ON 6-BIT 
       6641546545 4051564041 6215151515 1515151515 4463604350 0611526555 6011361100 4556646271 VALUE IN ARrrrrrrrrrDSPCH:tJUMPt.t ENTRY
       1515151515 1155444162 1441114327 2711005541 6353404162 4740435041 6215151515 1141625544 rrrrrtMDAR'AtC77t MASK ARG CHARrrrrtARMD
       1164552111 0063416645 1515151515 1515151515 4463604321 0611554441 6214511144 6360435011 tTM1t SAVErrrrrrrrrrDSPC1:tMDAR'ItDSPCHt
       0046456443 5040564570 6440445163 6041644350 1515151515 1141565162 1470114463 6043501100  FETCH NEXT DISPATCHrrrrrtANIR'XtDSPCHt 
       5146404556 4434406245 6465625640 1656574055 4164435017 1515151515 1515151515 1141624162 IF END, RETURN (NO MATCH)rrrrrrrrrrtARAR
       1450147011 4463604350 1100455463 4534406257 6441644540 4162474041 5644405156 4445704064 'H'XtDSPCHt ELSE, ROTATE ARG AND INDEX T
       5740564570 6415151515 1155447057 1164552111 0055416443 5040121515 1152605463 1144636043 O NEXTrrrrtMDXOtTM1t MATCH ?rrtJPLStDSPC
       2111005657 3440545757 6040465762 4056457064 4043504543 5315151515 1515151515 1155444163 1t NO, LOOP FOR NEXT CHECKrrrrrrrrrtMDAS
       1446112420 1100714563 3440465762 5540526555 6040515663 6462654364 5157561515 1141625162 'Ft40t YES, FORM JUMP INSTRUCTIONrrtARIR
       1450144611 1100415644 4045704543 6564451515 1515151515 1515151515 7777700000 4517057524 'H'Ftt AND EXECUTErrrrrrrrrrrrbbX  E)*@4
       4517057524 4517057524 4517057524 4517057524 4517057524 4517057524 4517057524 4517057524 E)*@4E)*@4E)*@4E)*@4E)*@4E)*@4E)*@4E)*@4
       4517057524                                                                              E)*@4
 1460: 0006700011 4664562021 1361200426 3414400000 0040576045 6241645762 3757604562 4156444062  :X tFTN01"Q0&6,'     OPERATOR/OPERAND R
       4543574756 5172456240 4657624045 7060624563 6351575640 6343415615 0040404062 4564656256 ECOGNIZER FOR EXPRESSION SCANr    RETURN
       6340363636 1515151515 0040404040 4040162117 4040637155 4257541515 0040404040 4040162217 S ...rrrrr       (1)  SYMBOLrr       (2)
       4040565756 3564457064 4043575663 6441566440 1662454344 6433444164 4140647160 4534406641   NON-TEXT CONSTANT (RECDT=DATA TYPE, VA
       5465454051 5640416217 1515151515 0040404040 4040162317 4040505754 5445625164 5040576240 LUE IN AR)rrrrr       (3)  HOLLERITH OR 
       4163435151 4043575663 6441566440 1662454350 4633352040 5146405057 5454344056 5736406757 ASCII CONSTANT (RECHF=-0 IF HOLL, NO. WO
       6244634051 5640416217 1515151515 0040404040 4040162417 4040636441 6445554556 6440544142 RDS IN AR)rrrrr       (4)  STATEMENT LAB
       4554404357 5663644156 6440165441 4245544064 4142544540 6064624051 5640416217 1515151515 EL CONSTANT (LABEL TABLE PTR IN AR)rrrrr
       0040404040 4040162517 4040576045 6241645762 4016576056 6555405156 4041621715 1515151515        (5)  OPERATOR (OPNUM IN AR)rrrrrr
       6245435747 0611526555 6011361100 4556646271 1515151515 1141627057 1446111100 6345644044 RECOG:tJUMPt.t ENTRYrrrrrtARXO'Ftt SET D
       4164414064 7160454033 4020404657 6240435756 6364415664 6315151515 1141625544 1162454344 ATA TYPE = 0 FOR CONSTANTSrrrrtARMDtRECD
       6415151515 1515151515 1155444162 1162454346 2111006045 6251574440 5760146457 6240634341 TrrrrrrrrrtMDARtRECF1t PERIOD OP'TOR SCA
       5656454440 5441636440 6451554540 1215151515 1152604156 1162454325 2111007145 6334405265 NNED LAST TIME ?rrrrtJPANtREC51t YES, JU
       5560406457 4060625743 4563631515 1515151515 1152606362 1147637155 1100474564 4056457064 MP TO PROCESSrrrrrrrtJPSRtGSYMt GET NEXT
       4063715542 5754151515 1152655560 1162454324 2011006360 4543514154 3440526555 6040645740  SYMBOLrrrtJUMPtREC40t SPECIAL, JUMP TO 
       6062574345 6363151515 1152655560 1162454321 1100566555 4562514334 4063535160 1515151515 PROCESSrrrtJUMPtREC1t NUMERIC, SKIPrrrrr
       1515151515 1141625544 1457114743 6363661100 4554634534 4063416645 4044455451 5545644562 rrrrrtARMD'OtGCSSVt ELSE, SAVE DELIMETER
       1515151515 1155445162 1162454357 4711004156 4440624564 6562564016 2117344063 7155425754 rrrrrtMDIRtRECOGt AND RETURN (1), SYMBOL
       1515151515 1515151515 6245432106 1155444162 1163715542 4611004144 4462456363 4043575663 rrrrrrrrrrREC1:tMDARtSYMBFt ADDRESS CONS
       6441566440 1215151515 1152605463 1162454326 2011007145 6334405265 5560406457 4060625743 TANT ?rrrrtJPLStREC60t YES, JUMP TO PROC
       4563631515 1515151515 1515151515 0040606257 4345636340 5665554562 5143415440 4357566364 ESSrrrrrrrrrrrr  PROCESS NUMERICAL CONST
       4156644036 3636151515 1515151515 1152606362 1147566555 1100435754 5445436440 4451475164 ANT ...rrrrrrrrtJPSRtGNUMt COLLECT DIGIT
       6315151515 1156575760 1111004040 1644454351 5541544060 5751566440 5753171515 1152655560 SrrrrtNOOPtt   (DECIMAL POINT OK)rrtJUMP
       1162454327 1100526555 6040514640 5657404445 4351554154 4060575156 6415151515 1515151515 tREC7t JUMP IF NO DECIMAL POINTrrrrrrrrr
       1155444162 1156655560 4611004156 7140444543 5155415440 6054414345 6340121515 1152605463 tMDARtNUMPFt ANY DECIMAL PLACES ?rrtJPLS
       1162454325 1100714563 3440526555 6015151515 1515151515 1155444162 1163435041 6211004554 tREC5t YES, JUMPrrrrrrrrrtMDARtSCHARt EL
       6345344046 4564435040 4445545155 4564456215 1152606362 1143506471 6011004350 4543534051 SE, FETCH DELIMETERrtJPSRtCHTYPt CHECK I
       6463406471 6045151515 1152655560 1162454326 1100636045 4351415434 4055656364 4042454062 TS TYPErrrtJUMPtREC6t SPECIAL, MUST BE R
       4541544067 3757656440 4570605756 4556641515 1156575760 1111004341 5614644042 4540445147 EAL W/OUT EXPONENTrrtNOOPtt CAN'T BE DIG
       5164151515 1115151515 1152606362 1144636043 5011004554 6345344044 5163604164 4350405756 ITrrrtrrrrtJPSRtDSPCHt ELSE, DISPATCH ON
       4044455451 5545644562 4036363615 1102450350 1162454322 1100404013 4513344056 4545446340  DELIMETER ...rtcE!HtREC2t   "E", NEEDS 
       4665626450 4562404350 4543535156 4715151515 1102440350 1162454321 2111004040 1344133440 FURTHER CHECKINGrrrrtcD!HtREC11t   "D", 
       4457654254 4540606245 4351635157 5640673745 7060575645 5664151515 1102460350 1162454322 DOUBLE PRECISION W/EXPONENTrrrtcF!HtREC2
       2011004040 1346133440 4445435155 4154404662 4143645157 5615151515 1135201515 1152655560 0t   "F", DECIMAL FRACTIONrrrrt-0rrtJUMP
       1162454323 1100576450 4562344055 6563644042 4540604562 5157444057 6045624164 5762151515 tREC3t OTHER, MUST BE PERIOD OPERATORrrr
       1515151515 7777700000 1174221735 1174221735 1174221735 1174221735 1174221735 1174221735 rrrrrbbX  t#2)-t#2)-t#2)-t#2)-t#2)-t#2)-
       1174221735 1174221735 1174221735 1174221735                                             t#2)-t#2)-t#2)-t#2)-
 1600: 0007000011 4664562021 1361200462 3414400000 6245432206 1152606362 1147436311 0013364513  _  tFTN01"Q0&R,'   REC2:tJPSRtGCSt ".E"
       4044455451 5545644562 3440474564 4057564540 5557624540 4350416215 1152606362 1143506471  DELIMETER, GET ONE MORE CHARrtJPSRtCHTY
       6011004350 4543534051 6463406471 6045151515 1152655560 1162454324 1100404063 6045435141 Pt CHECK ITS TYPErrrtJUMPtREC4t   SPECIA
       5434405565 6364404245 4010405762 4035151515 1152655560 1162454324 1100404056 6555456251 L, MUST BE + OR -rrrtJUMPtREC4t   NUMERI
       4334405565 6364404245 4045706057 5645566415 1515151515 1141625544 1457116245 4346221100 C, MUST BE EXPONENTrrrrrrtARMD'OtRECF2t 
       4554634534 4055656364 4042454013 3645613613 3440634564 4013451340 6341664544 1515151515 ELSE, MUST BE ".EQ.", SET "E" SAVEDrrrrr
       1515151515 6245432306 1141625544 1457116245 4346211100 6345644060 4562515744 4063416645 rrrrrREC3:tARMD'OtRECF1t SET PERIOD SAVE
       4415151515 1152655560 1162454330 1100526555 6040465762 4051566445 4745621515 1515151515 DrrrrtJUMPtREC8t JUMP FOR INTEGERrrrrrrr
       6245432406 1141625544 1457114743 6363661100 6341664540 4651626364 4043504162 4041466445 REC4:tARMD'OtGCSSVt SAVE FIRST CHAR AFTE
       6240134513 1515151515 1152655560 1162454322 2211005265 5560404657 6240624541 5440675164 R "E"rrrrrtJUMPtREC22t JUMP FOR REAL WIT
       5040457060 5756455664 1515151515 1515151515 6245432506 1155444162 1163435041 6211004451 H EXPONENTrrrrrrrrrrREC5:tMDARtSCHARt DI
       6360416443 5040575640 4445545155 4016444543 4067516450 4060544143 4563171515 1152606362 SPATCH ON DELIM (DEC WITH PLACES)rrtJPSR
       1144636043 5015151515 1102450350 1162454322 2211004040 6245415440 6751645040 4570605756 tDSPCHrrrrtcE!HtREC22t   REAL WITH EXPON
       4556641515 1102440350 1162454321 2111004040 4457654254 4535606245 4351635157 5640675164 ENTrrtcD!HtREC11t   DOUBLE-PRECISION WIT
       5040457060 5756455664 1515151515 1102460350 1162454322 2011004040 4445435155 4154404662 H EXPONENTrrrrrtcF!HtREC20t   DECIMAL FR
       4143645157 5615151515 1135201515 1515151515 6245432606 1141625544 1457114743 6363661100 ACTIONrrrrt-0rrrrrrrREC6:tARMD'OtGCSSVt 
       4554634534 4063416645 4044455451 5545644562 1515151515 1152655560 1162454322 2111005265 ELSE, SAVE DELIMETERrrrrrtJUMPtREC21t JU
       5560404657 6240624541 5440673757 6564404570 6057564556 6415151515 1515151515 6245432706 MP FOR REAL W/OUT EXPONENTrrrrrrrrrREC7:
       1155444162 1163435041 6211004451 6360416443 5040575640 4445545155 4564456240 1656574044 tMDARtSCHARt DISPATCH ON DELIMETER (NO D
       4543515541 5417151515 1152606362 1144636043 5015151515 1102450350 1162454322 2211004040 ECIMAL)rrrtJPSRtDSPCHrrrrtcE!HtREC22t   
       6245415440 6751645040 4570605756 4556641515 1102440350 1162454321 2111004040 4457654254 REAL WITH EXPONENTrrtcD!HtREC11t   DOUBL
       4535606245 4351635157 5640675164 5040457060 5756455664 1515151515 1102460350 1162454331 E-PRECISION WITH EXPONENTrrrrrtcF!HtREC9
       1100404057 4364415440 4662414364 5157561515 1102420350 1162454321 2011004040 5743644154 t   OCTAL FRACTIONrrtcB!HtREC10t   OCTAL
       4051566445 4745621515 1102570350 1162454321 2011004040 5743644154 4051566445 4745621515  INTEGERrrtcO!HtREC10t   OCTAL INTEGERrr
       1102500350 1162454327 2311004040 5057545445 6251645015 1102540350 1162454327 2211004040 tcH!HtREC73t   HOLLERITHrtcL!HtREC72t   
       5057545445 6251645015 1102620350 1162454327 2111004040 5057545445 6251645015 1102530350 HOLLERITHrtcR!HtREC71t   HOLLERITHrtcK!H
       1162454327 2511004040 4163435151 1515151515 1135201515 1515151515 6245433006 1141625544 tREC75t   ASCIIrrrrrt-0rrrrrrrREC8:tARMD
       1457114743 6363661100 5764504562 3440634166 4540444554 5155404657 6240564570 6440645155 'OtGCSSVt OTHER, SAVE DELIM FOR NEXT TIM
       4515151515 1141624162 1470116245 4344641100 6345644044 4164414064 7160454043 5744454064 ErrrrtARAR'XtRECDTt SET DATA TYPE CODE T
       5740515664 4547456215 1152606362 1147515664 5611004566 4154654164 4515151515 1155445162 O INTEGERrtJPSRtGINTNt EVALUATErrrrtMDIR
       1470116245 4357471100 6245646562 5640162217 3440435756 6364415664 1515151515 1515151515 'XtRECOGt RETURN (2), CONSTANTrrrrrrrrrr
       6245433106 1155444162 1143231100 6750575445 4046624143 6451575634 1515151515 1141625544 REC9:tMDARtC3t WHOLE FRACTION,rrrrrtARMD
       1162454344 6411004040 6345644044 4164414064 7160454033 4046624143 6451575615 1515151515 tRECDTt   SET DATA TYPE = FRACTIONrrrrrr
       6245432120 0611526063 6211475743 6456110045 6641546541 6445405743 6441541515 1155445162 REC10:tJPSRtGOCTNt EVALUATE OCTALrrtMDIR
       1470116245 4357471100 6245646562 5640162217 3440435756 6364415664 1515151515 1515151515 'XtRECOGt RETURN (2), CONSTANTrrrrrrrrrr
       6245432121 0611526063 6211456262 5762110044 5765425445 3560624543 5163515756 3440674162 REC11:tJPSRtERRORt DOUBLE-PRECISION, WAR
       5651564740 4562625762 1515151515 1111456221 2027110040 4016565764 4071456440 5155605445 NING ERRORrrrrrttER107t   (NOT YET IMPLE
       5545566445 4417151515 1152655560 1162454322 2211006462 4541644041 6340624541 5440675164 MENTED)rrrtJUMPtREC22t TREAT AS REAL WIT
       5040457060 5756455664 1515151515 1515151515 1515151515 7777700000 7602724443 7602724443 H EXPONENTrrrrrrrrrrrrrrrbbX  +cZDC+cZDC
       7602724443 7602724443 7602724443 7602724443 7602724443 7602724443 7602724443 7602724443 +cZDC+cZDC+cZDC+cZDC+cZDC+cZDC+cZDC+cZDC
 1435: 0007100011 4664562021 1361200421 3414400000 0040456641 5465416445 4046545741 6451564735  _+ tFTN01"Q0&1,'     EVALUATE FLOATING-
       6057515664 4057624046 6241436451 5756405665 5542456240 3636361515 1515151515 6245432220 POINT OR FRACTION NUMBER ...rrrrrrrREC20
       0611416255 4414571162 4543313111 0063456440 4662414364 5157564046 5441471515 1141627057 :tARMD'OtREC99t SET FRACTION FLAGrrtARXO
       1446111100 4354454162 4045706057 5645566440 4654414715 1141625544 1162454331 3015151515 'Ftt CLEAR EXPONENT FLAGrtARMDtREC98rrrr
       1152655560 1162454322 2311005265 5560405156 6457406245 4154406257 6564515645 1515151515 tJUMPtREC23t JUMP INTO REAL ROUTINErrrrr
       1515151515 6245432221 0611416270 5714541111 0062454154 4067516450 4056574045 7060575645 rrrrrREC21:tARXO'Ltt REAL WITH NO EXPONE
       5664151515 6245432222 0611416270 5714561446 1111006245 4154406751 6450404570 6057564556 NTrrrREC22:tARXO'N'Ftt REAL WITH EXPONEN
       6415151515 1141625544 1162454331 3015151515 1141627057 1446111100 4354454162 4046624143 TrrrrtARMDtREC98rrrrtARXO'Ftt CLEAR FRAC
       6451575640 4654414715 1141625544 1162454331 3115151515 1515151515 0040635155 6554416445 TION FLAGrtARMDtREC99rrrrrrrrr  SIMULATE
       4024455156 6040363636 1515151515 1515151515 6245432223 0611416255 4411246341 2111004354  4EINP ...rrrrrrrrrrREC23:tARMDt4SA1t CL
       4541624045 7060575645 5664406641 5465451515 1141625544 1124634311 0043544541 6240457060 EAR EXPONENT VALUErrtARMDt4SCt CLEAR EXP
       5756455664 4063514756 1515151515 1155444162 1156655560 4611004156 7140445147 5164634041 ONENT SIGNrrrrrtMDARtNUMPFt ANY DIGITS A
       4664456240 4445435155 4154406057 5156644012 1515151515 1141564162 1143201100 5657344063 FTER DECIMAL POINT ?rrrrrtANARtC0t NO, S
       4564404445 4351554154 4043576556 6440334020 1515151515 1141625544 1124634211 0063416645 ET DECIMAL COUNT = 0rrrrrtARMDt4SBt SAVE
       4044454351 5541544043 5765566415 1515151515 1155444162 1156655543 6411004645 6443504043  DECIMAL COUNTrrrrrrtMDARtNUMCTt FETCH C
       5765566440 5746406351 4756514651 4341566440 4451475164 6315151515 1155444163 1446145611 OUNT OF SIGNIFICANT DIGITSrrrrtMDAS'F'Nt
       3036110055 5762454064 5041564030 4012151515 1152604156 1162454322 2411005657 3440635351 8.t MORE THAN 8 ?rrrtJPANtREC24t NO, SKI
       6015151515 1515151515 1155444163 1456112463 4211007145 6334406457 5740554156 7140445147 PrrrrrrrrrtMDAS'Nt4SBt YES, TOO MANY DIG
       5164633440 4144526563 6440444543 4043566415 1152604156 1136102311 0063535160 4051464054 ITS, ADJUST DEC CNTrtJPANt.+3t SKIP IF L
       5763515647 4046624143 6451575640 4451475164 6315151515 1515151515 1141625544 1124634121 OSING FRACTION DIGITSrrrrrrrrrtARMDt4SA1
       1100455463 4534406345 6440515651 6451415440 4570605756 4556641515 1141627057 1456144611 t ELSE, SET INITIAL EXPONENTrrtARXO'N'Ft
       1100634564 4046576240 5657404445 4351554154 4043576556 6415151515 1515151515 1141625544 t SET FOR NO DECIMAL COUNTrrrrrrrrrtARMD
       1456112463 4211006341 6645404144 5265636445 4440444543 5155415440 4357655664 1515151515 'Nt4SBt SAVE ADJUSTED DECIMAL COUNTrrrrr
       1152606362 1145626257 6211006741 6256515647 4045626257 6215151515 1111456221 2031110040 tJPSRtERRORt WARNING ERRORrrrrttER109t  
       4016645757 4055415671 4063514756 5146514341 5664404451 4751646317 1515151515 1155444162  (TOO MANY SIGNIFICANT DIGITS)rrrrrtMDAR
       1143212011 0063456440 5657364063 5147565146 5143415664 4044514751 6463403340 3015151515 tC10t SET NO. SIGNIFICANT DIGITS = 8rrrr
       1141625544 1156655543 6415151515 1515151515 6245432224 0611526063 6211475156 6456110045 tARMDtNUMCTrrrrrrrrrREC24:tJPSRtGINTNt E
       6641546541 6445405156 6445474562 4055415664 5163634115 1141625544 1124634122 1100634166 VALUATE INTEGER MANTISSArtARMDt4SA2t SAV
       4540664154 6545151515 1515151515 1155444162 1456116245 4331301100 4570605756 4556644012 E VALUErrrrrrrrtMDAR'NtREC98t EXPONENT ?
       1515151515 1152604156 1162454322 2711005657 3440635351 6015151515 1515151515 1152606362 rrrrrtJPANtREC27t NO, SKIPrrrrrrrrrtJPSR
       1147436311 0047456440 5645706440 4350416241 4364456215 1152606362 1143506471 6011004350 tGCSt GET NEXT CHARACTERrtJPSRtCHTYPt CH
       4543534051 6463406471 6045403636 3615151515 1152655560 1136102311 0040406360 4543514154 ECK ITS TYPE ...rrrrtJUMPt.+3t   SPECIAL
       3440475740 4350454353 4046576240 6351475615 1152655560 1162454322 2611004040 4451475164 , GO CHECK FOR SIGNrtJUMPtREC26t   DIGIT
       3440475740 4566415465 4164454045 7060575645 5664151515 1152655560 1151544743 5011004040 , GO EVALUATE EXPONENTrrrtJUMPtILGCHt   
       4554634534 4051545445 4741541515 1515151515 7777700000 3634202760 3634202760 3634202760 ELSE, ILLEGALrrrrrrrbbX  .,07P.,07P.,07P
       3634202760 3634202760 3634202760 3634202760 3634202760 3634202760 3634202760            .,07P.,07P.,07P.,07P.,07P.,07P.,07P
 1460: 0007200011 4664562021 1361200426 3414400000 1152606362 1144636043 5011004350 4543534045  _0 tFTN01"Q0&6,'   tJPSRtDSPCHt CHECK E
       7060575645 5664406351 4756403636 3615151515 1102100350 1162454322 2511004040 1310133440 XPONENT SIGN ...rrrrtc+!HtREC25t   "+", 
       5147565762 4515151515 1102350350 1162454322 2535211100 4040133513 3440635351 6015151515 IGNORErrrrtc-!HtREC25-1t   "-", SKIPrrrr
       1135201515 1152655560 1151544743 5011004040 5764504562 3440515454 4547415415 1515151515 t-0rrtJUMPtILGCHt   OTHER, ILLEGALrrrrrr
       1141625544 1457112463 4311006345 6440457060 5756455664 4063514756 4033403520 1515151515 tARMD'Ot4SCt SET EXPONENT SIGN = -0rrrrr
       1515151515 6245432225 0611526063 6211474363 1100474564 4056457064 4043504162 4143644562 rrrrrREC25:tJPSRtGCSt GET NEXT CHARACTER
       1515151515 1152606362 1143506471 6011004350 4543534051 6440363636 1515151515 1152655560 rrrrrtJPSRtCHTYPt CHECK IT ...rrrrrtJUMP
       1151544743 5011004040 6360454351 4154344051 5454454741 5415151515 1152655560 1136102211 tILGCHt   SPECIAL, ILLEGALrrrrtJUMPt.+2t
       0040404451 4751643440 5753151515 1152655560 1151544743 5011004040 5764504562 3440515454    DIGIT, OKrrrtJUMPtILGCHt   OTHER, ILL
       4547415415 1515151515 6245432226 0611526063 6211475665 5511004357 5454454364 4044514751 EGALrrrrrrREC26:tJPSRtGNUMt COLLECT DIGI
       6463405156 4045706057 5645566440 6641546545 1515151515 1155445162 1470114756 6555110064 TS IN EXPONENT VALUErrrrrtMDIR'XtGNUMt T
       6245416440 4445435155 4154406057 5156644041 6340444554 5155456445 6215151515 1156575760 REAT DECIMAL POINT AS DELIMETERrrrrtNOOP
       1515151515 1515151515 1141625544 1457114743 6363661100 6341664540 4445545155 4564456215 rrrrrrrrrrtARMD'OtGCSSVt SAVE DELIMETERr
       1152606362 1147515664 5611004566 4154654164 4540515664 4547456240 4570605756 4556641515 tJPSRtGINTNt EVALUATE INTEGER EXPONENTrr
       1155447057 1124634311 0041445265 6364404657 6240635147 5615151515 1155444163 1124634121 tMDXOt4SCt ADJUST FOR SIGNrrrrtMDASt4SA1
       1100414444 4064574051 5651645141 5440457060 5756455664 1515151515 1141625544 1456112463 t ADD TO INITIAL EXPONENTrrrrrtARMD'Nt4S
       4121110063 4166454045 7060575645 5664406641 5465454056 4547416445 4415151515 1155444162 A1t SAVE EXPONENT VALUE NEGATEDrrrrtMDAR
       1441114342 2011004745 6440635147 5640465441 4715151515 1141564162 1456114320 1515151515 'AtCB0t GET SIGN FLAGrrrrtANAR'NtC0rrrrr
       1141625544 1124634311 0063416645 1515151515 1152604156 1136102311 0057534051 4640564547 tARMDt4SCt SAVErrrrrtJPANt.+3t OK IF NEG
       4164516645 1515151515 1515151515 1155444162 1124634121 1100455463 4534406345 6440457060 ATIVErrrrrrrrrrtMDARt4SA1t ELSE, SET EXP
       5756455664 4060576351 6451664515 1141625544 1456112463 4121151515 1515151515 6245432227 ONENT POSITIVErtARMD'Nt4SA1rrrrrrrrREC27
       0611526063 6211246041 4353110054 4546644052 6563645146 7140566555 4245624066 4154654515 :tJPSRt4PACKt LEFT JUSTIFY NUMBER VALUEr
       1152655560 1136352115 1515151515 1155444162 1124634122 1100464564 4350405541 5664516363 tJUMPt.-1rrrrrrtMDARt4SA2t FETCH MANTISS
       4140664154 6545151515 1141624162 1450145714 4611110072 4562574012 1515151515 1152635463 A VALUErrrtARAR'H'O'Ftt ZERO ?rrrrrtJSLS
       1124446457 4211005657 3440435756 6645626440 6457404654 5741645156 4740605751 5664151515 t4DTOBt NO, CONVERT TO FLOATING POINTrrr
       1141625544 1124634121 1100634166 4540664154 6545151515 1515151515 1141624162 1470116245 tARMDt4SA1t SAVE VALUErrrrrrrrtARAR'XtRE
       4344641100 5156444570 4044416441 4064716045 4064574062 4541541515 1141624162 1470116245 CDTt INDEX DATA TYPE TO REALrrtARAR'XtRE
       4344641515 1155444162 1162454331 3111004662 4143645157 5640121515 1152604156 1162454322 CDTrrtMDARtREC99t FRACTION ?rrtJPANtREC2
       3011007145 6334406353 5160151515 1515151515 1155444162 1124634121 1100455463 4534404645 8t YES, SKIPrrrrrrrrtMDARt4SA1t ELSE, FE
       6443504066 4154654540 6457404162 1515151515 1155445162 1470116245 4357471100 6245646562 TCH VALUE TO ARrrrrrtMDIR'XtRECOGt RETUR
       5640162217 3440435756 6364415664 1515151515 1515151515 6245432230 0611416241 6214701162 N (2), CONSTANTrrrrrrrrrrREC28:tARAR'XtR
       4543446411 0051564445 7040444164 4140647160 4540645740 4662414364 5157561515 1155444162 ECDTt INDEX DATA TYPE TO FRACTIONrrtMDAR
       1124634121 1100474564 4046545741 6451564735 6057515664 4066415465 4515151515 1152606362 t4SA1t GET FLOATING-POINT VALUErrrrtJPSR
       1124626446 1100435756 6645626440 6245415440 6457404662 4143645157 5615151515 1155445162 t4RTFt CONVERT REAL TO FRACTIONrrrrtMDIR
       1470116245 4357471100 6245646562 5640162217 3440435756 6364415664 1515151515 1515151515 'XtRECOGt RETURN (2), CONSTANTrrrrrrrrrr
       1515151515 7777700000 6510660167 6510660167 6510660167 6510660167 6510660167 6510660167 rrrrrbbX  U+V%WU+V%WU+V%WU+V%WU+V%WU+V%W
       6510660167 6510660167 6510660167 6510660167                                             U+V%WU+V%WU+V%WU+V%W
 1280: 0007300011 4664562021 1361200362 3414400000 0040606257 4345636340 6360454351 4154404350  _8 tFTN01"Q0!R,'     PROCESS SPECIAL CH
       4162414364 4562403636 3615151515 1515151515 6245432420 0611554441 6211634350 4162110046 ARACTER ...rrrrrrrrrREC40:tMDARtSCHARt F
       4564435040 6360454351 4154404350 4162414364 4562151515 1152606362 1144636043 5011004451 ETCH SPECIAL CHARACTERrrrtJPSRtDSPCHt DI
       6360416443 5040575640 6360454351 4154403636 3615151515 1102360350 1162454325 2211004040 SPATCH ON SPECIAL ...rrrrtc.!HtREC52t   
       5541567140 6057636351 4251545164 5145631515 1102140350 1162454326 3111004040 6165576445 MANY POSSIBILITIESrrtc'!HtREC69t   QUOTE
       4440505754 5445625164 5015151515 1121230350 1162454326 3011004040 6165576445 4440416343 D HOLLERITHrrrrt13!HtREC68t   QUOTED ASC
       5151151515 1102050350 1162454324 2111004040 0540576240 0505151515 1102370350 1162454324 IIrrrtc*!HtREC41t   * OR **rrrtc/!HtREC4
       2211004040 3740576240 3737151515 1102160350 1162454324 2311004040 5445466440 6041624556 2t   / OR //rrrtc(!HtREC43t   LEFT PAREN
       1515151515 1102170350 1162454324 2411004040 6251475064 4060416245 5615151515 1102340350 rrrrrtc)!HtREC44t   RIGHT PARENrrrrtc,!H
       1162454324 2511004040 4357555541 1515151515 1102350350 1162454324 2611004040 5551566563 tREC45t   COMMArrrrrtc-!HtREC46t   MINUS
       1515151515 1102100350 1162454324 2711004040 6054656315 1102330350 1162454324 3011004040 rrrrrtc+!HtREC47t   PLUSrtc=!HtREC48t   
       4561654154 6315151515 1121250350 1162454324 3111004040 4337621515 1135201515 1152655560 EQUALSrrrrt15!HtREC49t   C/Rrrt-0rrtJUMP
       1151544743 5011004040 5764504562 3440515454 4547415440 6371566441 7015151515 1515151515 tILGCHt   OTHER, ILLEGAL SYNTAXrrrrrrrrr
       1515151515 0040606257 4345636340 6360454351 4154405760 4562416457 6263403636 3615151515 rrrrr  PROCESS SPECIAL OPERATORS ...rrrr
       1515151515 6245432421 0611526063 6211474363 1100130513 3440474564 4056457064 4043504162 rrrrrREC41:tJPSRtGCSt "*", GET NEXT CHAR
       1515151515 1155447057 1446110205 1100130505 1340121515 1154635162 1143506341 6611005657 rrrrrtMDXO'Ftc*t "**" ?rrtLSIRtCHSAVt NO
       3440634166 4540435041 6241436445 6215151515 1154634162 1143211100 4156444063 4564406457 , SAVE CHARACTERrrrrtLSARtC1t AND SET TO
       4062456465 6256405760 5665554033 4021211515 1155444163 1446112120 1100714563 3440634564  RETURN OPNUM = 11rrtMDAS'Ft10t YES, SET
       4057605665 5540334021 2015151515 1152655560 1162454325 2711005265 5560406457 4062456465  OPNUM = 10rrrrtJUMPtREC57t JUMP TO RETU
       6256151515 1515151515 6245432422 0611526063 6211474363 1100133713 3440474564 4056457064 RNrrrrrrrrREC42:tJPSRtGCSt "/", GET NEXT
       4043504162 1515151515 1155447057 1446110237 1100133737 1340121515 1154635162 1143506341  CHARrrrrrtMDXO'Ftc/t "//" ?rrtLSIRtCHSA
       6611005657 3440634166 4540435041 6215151515 1154634162 1456114321 1100415644 4063456440 Vt NO, SAVE CHARrrrrtLSAR'NtC1t AND SET 
       6457406245 6465625640 5760566555 4033402122 1515151515 1155444163 1446112123 1100714563 TO RETURN OPNUM = 12rrrrrtMDAS'Ft13t YES
       3440634564 4057605665 5540334021 2315151515 1152655560 1162454325 2711005265 5560406457 , SET OPNUM = 13rrrrtJUMPtREC57t JUMP TO
       4062456465 6256151515 1515151515 6245432423 0611554441 6214461123 1100544546 6440604162  RETURNrrrrrrrrREC43:tMDAR'Ft3t LEFT PAR
       4556344057 6056655540 3340231515 1152655560 1162454325 2715151515 1515151515 6245432424 EN, OPNUM = 3rrtJUMPtREC57rrrrrrrrrREC44
       0611554441 6214461125 1100625147 5064406041 6245563440 5760566555 4033402515 1152655560 :tMDAR'Ft5t RIGHT PAREN, OPNUM = 5rtJUMP
       1162454325 2715151515 1515151515 6245432425 0611554441 6214461126 1100435755 5541344057 tREC57rrrrrrrrrREC45:tMDAR'Ft6t COMMA, O
       6056655540 3340261515 1152655560 1162454325 2715151515 1515151515 6245432426 0611554441 PNUM = 6rrtJUMPtREC57rrrrrrrrrREC46:tMDA
       6214461121 2611005551 5665633440 5760566555 4033402126 4016416363 6555454065 5641627117 R'Ft16t MINUS, OPNUM = 16 (ASSUME UNARY)
       1515151515 1152655560 1162454325 2715151515 1515151515 7777700000 2306711652 2306711652 rrrrrtJUMPtREC57rrrrrrrrrbbX  3:Y(J3:Y(J
       2306711652 2306711652 2306711652 2306711652 2306711652 2306711652 2306711652 2306711652 3:Y(J3:Y(J3:Y(J3:Y(J3:Y(J3:Y(J3:Y(J3:Y(J
 1375: 0007400011 4664562021 1361200405 3414400000 6245432427 0611554441 6214461127 1100605465  _  tFTN01"Q0&*,'   REC47:tMDAR'Ft7t PLU
       6334405760 5665554033 4027401641 6363655545 4065564162 7117151515 1152655560 1162454325 S, OPNUM = 7 (ASSUME UNARY)rrrtJUMPtREC5
       2715151515 1515151515 6245432430 0611554441 6214461123 2611004561 6541544063 5147563440 7rrrrrrrrrREC48:tMDAR'Ft36t EQUAL SIGN, 
       5760566555 4033402326 1515151515 1152655560 1162454325 2715151515 1515151515 6245432431 OPNUM = 36rrrrrtJUMPtREC57rrrrrrrrrREC49
       0611554441 6214461124 1100433762 3440576056 6555403340 2415151515 1152655560 1162454325 :tMDAR'Ft4t C/R, OPNUM = 4rrrrtJUMPtREC5
       2715151515 1515151515 1515151515 0040606257 4345636340 6045625157 4440363636 1515151515 7rrrrrrrrrrrrrr  PROCESS PERIOD ...rrrrr
       1515151515 6245432521 0611416255 4414561162 4543462111 0051464060 4562515744 4063416645 rrrrrREC51:tARMD'NtRECF1t IF PERIOD SAVE
       4434404354 4541624046 5441471515 1155444162 1456116245 4346221100 1336451340 6343415656 D, CLEAR FLAGrrtMDAR'NtRECF2t ".E" SCANN
       4544405441 6364406451 5545401215 1152604156 1162454325 2311005657 3440635351 6015151515 ED LAST TIME ?rtJPANtREC53t NO, SKIPrrrr
       1515151515 1141625544 1162454346 2211007145 6334404354 4541624046 5441471515 1152606362 rrrrrtARMDtRECF2t YES, CLEAR FLAGrrtJPSR
       1147436311 0041564440 4745644056 4570644043 5041621515 1155447057 1446110261 1100136113 tGCSt AND GET NEXT CHARrrtMDXO'FtcQt "Q"
       4012151515 1152605463 1162454325 2411005657 3440515454 4547415415 1515151515 1155444162  ?rrrtJPLStREC54t NO, ILLEGALrrrrrrtMDAR
       1446116360 4345611021 1100714563 3440464564 4350406064 6240645740 6360454340 5760406441 'FtSPCEQ+1t YES, FETCH PTR TO SPEC OP TA
       4254451515 1141625544 1142636562 6011006341 6645404163 4051464046 5765564440 4271406345 BLErrtARMDtBSURPt SAVE AS IF FOUND BY SE
       4162435015 1152606362 1147436311 0047456440 4445545155 4564456215 1152655560 1162454325 ARCHrtJPSRtGCSt GET DELIMETERrtJUMPtREC5
       2611005265 5560406457 4043575560 5445644515 1515151515 6245432522 0611526063 6211475665 6t JUMP TO COMPLETErrrrrrREC52:tJPSRtGNU
       5511004651 6263643440 4350454353 4051464060 6245434544 4563404140 4357566364 4156641515 Mt FIRST, CHECK IF PRECEDES A CONSTANTrr
       1156575760 1515151515 1156575760 1515151515 1155444162 1156655560 4611004156 7140445147 tNOOPrrrrrtNOOPrrrrrtMDARtNUMPFt ANY DIG
       5164634041 4664456240 4445435155 4154401215 1152605463 1162454325 1100714563 3440526555 ITS AFTER DECIMAL ?rtJPLStREC5t YES, JUM
       6040645740 6062574345 6363404357 5663644156 6415151515 1515151515 1141625544 1457114743 P TO PROCESS CONSTANTrrrrrrrrrtARMD'OtGC
       6363661100 4554634534 4063416645 4044455451 5545644562 1515151515 1515151515 6245432523 SSVt ELSE, SAVE DELIMETERrrrrrrrrrrREC53
       0611526063 6211476311 0047456440 5760456241 6457624063 7155425754 1515151515 1152655560 :tJPSRtGSt GET OPERATOR SYMBOLrrrrrtJUMP
       1151544743 5011004040 6360454351 4154344051 5454454741 5415151515 1156575760 1111004040 tILGCHt   SPECIAL, ILLEGALrrrrtNOOPtt   
       4341561464 4042454044 5147516415 1152655560 1162454325 2511004040 5756453567 5762443440 CAN'T BE DIGITrtJUMPtREC55t   ONE-WORD, 
       5753151515 1156575760 1111004040 6467573567 5762444057 6240645062 4545356757 6244403636 OKrrrtNOOPtt   TWO-WORD OR THREE-WORD ..
       3615151515 1515151515 6245432524 0611526063 6211456262 5762110046 4164415440 4562625762 .rrrrrrrrrREC54:tJPSRtERRORt FATAL ERROR
       1515151515 1111456221 2030110040 4016604562 5157444057 6045624164 5762405657 6440624543 rrrrrttER108t   (PERIOD OPERATOR NOT REC
       5747565172 4544171515 1515151515 6245432525 0611554441 6214461163 6043576411 0063454162 OGNIZED)rrrrrrrREC55:tMDAR'FtSPCOTt SEAR
       4350404657 6240637155 4257544051 5640636045 4351415415 1152606362 1142636562 2111004040 CH FOR SYMBOL IN SPECIALrtJPSRtBSUR1t   
       5760456241 6457624064 4142544515 1155444162 1446116360 4357451515 1152655560 1162454325 OPERATOR TABLErtMDAR'FtSPCOErrtJUMPtREC5
       2411005657 6440465765 5644344052 6555604046 5762404562 6257621515 1515151515 6245432526 4t NOT FOUND, JUMP FOR ERRORrrrrrrrREC56
       0611554441 6211634350 4162110044 4554515545 6445624033 4013361340 1215151515 1155447057 :tMDARtSCHARt DELIMETER = "." ?rrrrtMDXO
       1446110236 1515151515 1152605463 1151544743 5011005657 3440515454 4547415415 1515151515 'Ftc.rrrrrtJPLStILGCHt NO, ILLEGALrrrrrr
       7777700000 6450663153 6450663153 6450663153 6450663153 6450663153 6450663153 6450663153 bbX  THV9KTHV9KTHV9KTHV9KTHV9KTHV9KTHV9K
       6450663153 6450663153 6450663153                                                        THV9KTHV9KTHV9K
 1315: 0007500011 4664562021 1361200371 3414400000 1155444162 1143241100 6345644044 4164414064  _H tFTN01"Q0!Y,'   tMDARtC4t SET DATA T
       7160454033 4054574751 4341541515 1141625544 1162454344 6415151515 1155444162 1451114263 YPE = LOGICALrrtARMDtRECDTrrrrtMDAR'ItBS
       6562601100 5760456241 6457624012 1515151515 1152604156 1162454325 2711007145 6334405265 URPt OPERATOR ?rrrrrtJPANtREC57t YES, JU
       5560406457 4062456465 6256405760 4562416457 6240566555 4245621515 1515151515 1154634162 MP TO RETURN OPERATOR NUMBERrrrrrrrtLSAR
       1456114321 1100455463 4534405565 6364404245 4054574751 4341544043 5756636441 5664151515 'NtC1t ELSE, MUST BE LOGICAL CONSTANTrrr
       1155445162 1470116245 4357471100 4570644556 4440635147 5640415644 4062456465 6256401622 tMDIR'XtRECOGt EXTEND SIGN AND RETURN (2
       1715151515 1515151515 6245432527 0611416241 6214701162 4543574711 0057604562 4164576240 )rrrrrrrrrREC57:tARAR'XtRECOGt OPERATOR 
       4657655644 3415151515 1141624162 1470116245 4357471100 5156444570 4062456465 6256151515 FOUND,rrrrtARAR'XtRECOGt INDEX RETURNrrr
       1141624162 1470116245 4357471515 1155445162 1470116245 4357471100 4156444062 4564656256 tARAR'XtRECOGrrtMDIR'XtRECOGt AND RETURN
       4016251734 4067516450 4057605665 5540515640 4162151515 1515151515 1515151515 0040606257  (5), WITH OPNUM IN ARrrrrrrrrrrrrr  PRO
       4345636340 6364416445 5545566440 5441424554 4043575663 6441566440 3636361515 1515151515 CESS STATEMENT LABEL CONSTANT ...rrrrrrr
       6245432620 0611554441 6214411446 1121201100 1374134060 6245465170 4012151515 1152605463 REC60:tMDAR'A'Ft10t "#" PREFIX ?rrrtJPLS
       1147634562 2211007145 6334405154 5445474154 4063715664 4170151515 1515151515 1152606362 tGSER2t YES, ILLEGAL SYNTAXrrrrrrrrtJPSR
       1147544142 5411004554 6345344041 4444624043 5756633440 4745644054 4142455440 6641546545 tGLABLt ELSE, ADDR CONS, GET LABEL VALUE
       1515151515 1141625544 1457114743 6363661100 6341664540 4445545155 4564456215 1152655560 rrrrrtARMD'OtGCSSVt SAVE DELIMETERrtJUMP
       1162454325 2710211100 5265556040 6457406245 6465625640 1624171515 1515151515 1515151515 tREC57+1t JUMP TO RETURN (4)rrrrrrrrrrrr
       0040636045 4351415440 5760456241 6457624064 4142544540 3636361515 1515151515 6360435764   SPECIAL OPERATOR TABLE ...rrrrrrrSPCOT
       0611644570 6411374137 1124202020 2003504022 2615151515 1164457064 1137415644 3711242020 :tTEXTt/A/t40000!H 26rrrrtTEXTt/AND/t400
       2020035040 2226151515 1164457064 1137423711 2420202020 0350402323 1515151515 6360434561 00!H 26rrrtTEXTt/B/t40000!H 33rrrrrSPCEQ
       0611644570 6411374561 3711242020 2020035040 2127151515 1164457064 1137463711 2015151515 :tTEXTt/EQ/t40000!H 17rrrtTEXTt/F/t0rrrr
       1164457064 1137464154 6345371120 1515151515 1164457064 1137474537 1124202020 2003504022 tTEXTt/FALSE/t0rrrrrtTEXTt/GE/t40000!H 2
       2215151515 1164457064 1137476437 1124202020 2003504022 2115151515 1164457064 1137503711 2rrrrtTEXTt/GT/t40000!H 21rrrrtTEXTt/H/t
       2420202020 0350402325 1515151515 1164457064 1137533711 2420202020 0350402324 1515151515 40000!H 35rrrrrtTEXTt/K/t40000!H 34rrrrr
       1164457064 1137543711 2420202020 0350402321 1515151515 1164457064 1137544537 1124202020 tTEXTt/L/t40000!H 31rrrrrtTEXTt/LE/t4000
       2003504022 2415151515 1164457064 1137546437 1124202020 2003504022 2315151515 1164457064 0!H 24rrrrtTEXTt/LT/t40000!H 23rrrrtTEXT
       1137563711 2420202020 0350402225 1515151515 1164457064 1137564537 1124202020 2003504022 t/N/t40000!H 25rrrrrtTEXTt/NE/t40000!H 2
       2015151515 1164457064 1137565764 3711242020 2020035040 2225151515 1164457064 1137573711 0rrrrtTEXTt/NOT/t40000!H 25rrrtTEXTt/O/t
       2420202020 0350402227 1515151515 1164457064 1137576237 1124202020 2003504022 2715151515 40000!H 27rrrrrtTEXTt/OR/t40000!H 27rrrr
       1164457064 1137623711 2420202020 0350402322 1515151515 1164457064 1137643711 2727272726 tTEXTt/R/t40000!H 32rrrrrtTEXTt/T/t77776
       1515151515 1164457064 1137646265 4537112727 2727261515 1164457064 1137703711 2420202020 rrrrrtTEXTt/TRUE/t77776rrtTEXTt/X/t40000
       0350402320 1515151515 1164457064 1137705762 3711242020 2020035040 2320151515 1515151515 !H 30rrrrrtTEXTt/XOR/t40000!H 30rrrrrrrr
       6360435745 4033403615 1515151515 1515151515 7777700000 0553070557 0553070557 0553070557 SPCOE = .rrrrrrrrrrrbbX  *K_*O*K_*O*K_*O
       0553070557 0553070557 0553070557 0553070557 0553070557 0553070557 0553070557            *K_*O*K_*O*K_*O*K_*O*K_*O*K_*O*K_*O
 1575: 0007600011 4664562021 1361200455 3414400000 0040606257 4345636340 4163435151 4043575663  _P tFTN01"Q0&M,'     PROCESS ASCII CONS
       6441566440 3636361515 1515151515 6245432630 0611416270 5714461111 0061655764 4544403636 TANT ...rrrrrrrREC68:tARXO'Ftt QUOTED ..
       3615151515 1141625544 1162454350 4611004040 4354454162 4050575454 4562516450 4046544147 .rrrrtARMDtRECHFt   CLEAR HOLLERITH FLAG
       1515151515 1141625544 1147416343 4611004040 4156444054 5767456240 4341634540 4654414715 rrrrrtARMDtGASCFt   AND LOWER CASE FLAGr
       1155444162 1446112123 1100464564 4350404556 4440435041 6241436445 6215151515 1152655560 tMDAR'Ft13t FETCH END CHARACTERrrrrtJUMP
       1162454327 2011004156 4440526555 6040515664 5740505754 5445625164 5040625765 6451564515 tREC70t AND JUMP INTO HOLLERITH ROUTINEr
       1515151515 1515151515 0040606257 4345636340 5057545445 6251645040 4357566364 4156644036 rrrrrrrrrr  PROCESS HOLLERITH CONSTANT .
       3636151515 1515151515 6245432631 0611416270 5714461111 0061655764 4544344063 4564404651 ..rrrrrrrrREC69:tARXO'Ftt QUOTED, SET FI
       5454456240 3340201515 1141625544 1162454331 3115151515 1141625544 1457116245 4350461100 LLER = 0rrtARMDtREC99rrrrtARMD'OtRECHFt 
       6345644046 5441474046 5762405057 5454456251 6450404357 5663644156 6415151515 1155444162 SET FLAG FOR HOLLERITH CONSTANTrrrrtMDAR
       1446110214 1100415644 4063456440 4556444043 5041624143 4562404654 4147151515 1515151515 'Ftc't AND SET END CHARACER FLAGrrrrrrrr
       6245432720 0611416255 4411475057 5446110040 4046576240 4750575443 4062576564 5156451515 REC70:tARMDtGHOLFt   FOR GHOLC ROUTINErr
       1152655560 1162454327 2611005265 5560405156 6457406041 4353515647 4062576564 5156451515 tJUMPtREC76t JUMP INTO PACKING ROUTINErr
       1515151515 6245432721 0611416255 4414571162 4543313111 0013621334 4063456440 5657404651 rrrrrREC71:tARMD'OtREC99t "R", SET NO FI
       5454456215 1152655560 1162454327 2411004156 4440635351 6015151515 1515151515 6245432722 LLERrtJUMPtREC74t AND SKIPrrrrrrrrrREC72
       0611416270 5714541111 0013541334 4063456440 4651545445 6240334020 1515151515 6245432723 :tARXO'Ltt "L", SET FILLER = 0rrrrrREC73
       0611554441 6211432420 1100135013 3440634564 4046515454 4562403340 4254415653 1515151515 :tMDARtC40t "H", SET FILLER = BLANKrrrrr
       1141625544 1162454331 3111006341 6645405057 5454456251 6450404651 5454456240 4654414715 tARMDtREC99t SAVE HOLLERITH FILLER FLAGr
       1515151515 6245432724 0611416270 5714561454 1111006345 6440465441 4740465762 4050575454 rrrrrREC74:tARXO'N'Ltt SET FLAG FOR HOLL
       4562516450 4043575663 6441566415 6245432725 0611416270 5714461111 0043544541 6240465441 ERITH CONSTANTrREC75:tARXO'Ftt CLEAR FLA
       4740465762 4041634351 5140435756 6364415664 1515151515 1141625544 1162454350 4611006341 G FOR ASCII CONSTANTrrrrrtARMDtRECHFt SA
       6645151515 1141625544 1147416343 4611004154 6357404354 4541624041 6343515140 5457674562 VErrrtARMDtGASCFt ALSO CLEAR ASCII LOWER
       4043416345 4046544147 1515151515 1515151515 1152606362 1147515664 5611004566 4154654164  CASE FLAGrrrrrrrrrrtJPSRtGINTNt EVALUAT
       4540515664 4547456240 4350416241 4364456240 4357655664 1515151515 1141625544 1456114750 E INTEGER CHARACTER COUNTrrrrrtARMD'NtGH
       5754461100 6341664540 4350416240 4357655664 1515151515 1154634163 1456114327 2727110072 OLFt SAVE CHAR COUNTrrrrrtLSAS'NtC777t Z
       4562574057 6240364764 3640272727 4012151515 1152604156 1136102311 0071456334 4057533440 ERO OR .GT. 777 ?rrrtJPANt.+3t YES, OK, 
       6353516015 1515151515 1152606362 1145626257 6211004554 6345344046 4164415440 4562625762 SKIPrrrrrrtJPSRtERRORt ELSE, FATAL ERROR
       1515151515 1111456221 2025110040 4016505754 5445625164 5040435765 5664406457 5740544162 rrrrrttER105t   (HOLLERITH COUNT TOO LAR
       4745171515 1515151515 6245432726 0611554441 6211466245 4560110046 4564435040 4662454540 GE)rrrrrrrREC76:tMDARtFREEPt FETCH FREE 
       4357624540 6057515664 4562151515 1141625544 1162454331 3011006341 6645151515 1141625544 CORE POINTERrrrtARMDtREC98t SAVErrrtARMD
       1457114750 5754631100 6345644056 5740634166 4544405057 5454456251 6450404350 4162414364 'OtGHOLSt SET NO SAVED HOLLERITH CHARACT
       4562151515 1515151515 6245432727 0611526063 6211474662 4545110047 4564405756 4540466245 ERrrrrrrrrREC77:tJPSRtGFREEt GET ONE FRE
       4540675762 4440645740 6364576245 4043575663 6441566415 1111211515 1141625544 1162454331 E WORD TO STORE CONSTANTrtt1rrtARMDtREC9
       2711006341 6645406057 5156644562 4064574064 4142544540 6757624415 1515151515 1155444162 7t SAVE POINTER TO TABLE WORDrrrrrrtMDAR
       1162454350 4611005057 5454456251 6450401215 1152604156 1162454327 3011007145 6334406353 tRECHFt HOLLERITH ?rtJPANtREC78t YES, SK
       5160151515 1515151515 1152606362 1147416343 6711005657 3440474564 4056457064 4041634351 IPrrrrrrrrtJPSRtGASCWt NO, GET NEXT ASCI
       5140675762 4415151515 1152655560 1162454330 2111005265 5560405146 4054416364 1515151515 I WORDrrrrtJUMPtREC81t JUMP IF LASTrrrrr
       1152655560 1162454327 3111004554 6345344063 5351604064 5740634166 4515151515 1515151515 tJUMPtREC79t ELSE, SKIP TO SAVErrrrrrrrr
       7777700000 6453110141 6453110141 6453110141 6453110141 6453110141 6453110141 6453110141 bbX  TKt%ATKt%ATKt%ATKt%ATKt%ATKt%ATKt%A
       6453110141 6453110141 6453110141                                                        TKt%ATKt%ATKt%A
  810: 0007700011 4664562021 1361200224 3414400000 6245432730 0611526063 6211475057 5467110047  _X tFTN01"Q0c4,'   REC78:tJPSRtGHOLWt G
       4564405645 7064404155 5763406757 6244151515 1152655560 1162454330 2011005265 5560405146 ET NEXT AMOS WORDrrrtJUMPtREC80t JUMP IF
       4054416364 1515151515 1515151515 6245432731 0611416255 4414511162 4543312711 0063416645  LASTrrrrrrrrrrREC79:tARMD'ItREC97t SAVE
       4067576244 4051564046 6245454043 5762451515 1152655560 1162454327 2711005457 5760404657  WORD IN FREE CORErrtJUMPtREC77t LOOP FO
       6240564570 6415151515 1515151515 6245433020 0611554441 6211624543 3131110054 5767355762 R NEXTrrrrrrrrrREC80:tMDARtREC99t LOW-OR
       4445624046 5154544012 1515151515 1152604156 1136102311 0056573440 6353516015 1152606362 DER FILL ?rrrrrtJPANt.+3t NO, SKIPrtJPSR
       1160435046 5411004554 6345344046 5154544057 6564406757 6244151515 1156575760 1515151515 tPCHFLt ELSE, FILL OUT WORDrrrtNOOPrrrrr
       1515151515 1155444162 1160435067 4411004645 6443504046 5156415440 6757624440 6457404162 rrrrrtMDARtPCHWDt FETCH FINAL WORD TO AR
       1515151515 1515151515 6245433021 0611416255 4414511162 4543312711 0063416645 4054416364 rrrrrrrrrrREC81:tARMD'ItREC97t SAVE LAST
       4067576244 1515151515 1155444162 1162454331 3011004645 6443504046 5162636440 4144446245  WORDrrrrrtMDARtREC98t FETCH FIRST ADDRE
       6363405746 4063646251 5647151515 1155444145 1456147011 6245433127 1100435755 6065644540 SS OF STRINGrrrtMDAE'N'XtREC97t COMPUTE 
       5657364057 4640675762 4463405645 4741644544 1515151515 1141624162 1456147011 6245435747 NO. OF WORDS NEGATEDrrrrrtARAR'N'XtRECOG
       1100474564 4056573640 6757624463 4051564041 6215151515 1155445162 1470116245 4357471100 t GET NO. WORDS IN ARrrrrtMDIR'XtRECOGt 
       4156444062 4564656256 4016231715 1515151515 1515151515 6245434621 0611112011 0054416364 AND RETURN (3)rrrrrrrrrrrRECF1:tt0t LAST
       4060456251 5744404654 4147151515 6245434622 0611112011 0013364513 4063434156 5645444054  PERIOD FLAGrrrRECF2:tt0t ".E" SCANNED L
       4163644046 5441471515 1515151515 6245434464 0611112011 0043575663 6441566440 4441644140 AST FLAGrrrrrrrRECDT:tt0t CONSTANT DATA 
       6471604515 6245435046 0611112011 0050575454 4562516450 4043575663 6441566440 4654414715 TYPErRECHF:tt0t HOLLERITH CONSTANT FLAGr
       1515151515 6245433131 0611112011 0064455560 4063645762 4147451515 6245433130 0611112011 rrrrrREC99:tt0t TEMP STORAGErrREC98:tt0t
       0064455560 4063645762 4147451515 6245433127 0611112015 1515151515 1515151515 7777700000  TEMP STORAGErrREC97:tt0rrrrrrrrrrrbbX  
       5600336341 5600336341 5600336341 5600336341 5600336341 5600336341 5600336341 5600336341 N =SAN =SAN =SAN =SAN =SAN =SAN =SAN =SA
       5600336341 5600336341                                                                   N =SAN =SA
   75: 0010000011 4664562021 1361200001 3414400000 7777777777 7777777777 7777777777 7777777777  +  tFTN01"Q0 %,'   bbbbbbbbbbbbbbbbbbbb
       7777777777 7777777777 7777777777 7777777777 7777777777 7777777777 7777777777            bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
 1685: 0000100012 4664562022 1361200503 3414400000 0040474564 4056655542 4562401642 4163514317   + ?FTN02"Q0*!,'     GET NUMBER (BASIC)
       1515151515 0040404021 6364404162 4740516340 4156405156 6364624064 5740424540 4570454365 rrrrr    1ST ARG IS AN INSTR TO BE EXECU
       6445444051 4640444543 5155415440 6057515664 4045564357 6556644562 4544151515 0040404062 TED IF DECIMAL POINT ENCOUNTEREDrrr    R
       4564656256 6340363636 1515151515 0040404040 4016211740 4056574044 4543515541 5440605751 ETURNS ...rrrrr      (1)  NO DECIMAL POI
       5664401656 6555604640 3340352017 1515151515 0040404040 4016221740 4044454351 5541544060 NT (NUMPF = -0)rrrrr      (2)  DECIMAL P
       5751566440 6062456345 5664401656 6555604640 3340565736 4057464044 5147516463 4041466445 OINT PRESENT (NUMPF = NO. OF DIGITS AFTE
       6240444543 5155415440 6057515664 1715151515 0040404057 5640624564 6562563440 5665554364 R DECIMAL POINT)rrrr    ON RETURN, NUMCT
       4033405657 3640574640 6351475651 4651434156 6440445147 5164634051 5640645045 4042654646  = NO. OF SIGNIFICANT DIGITS IN THE BUFF
       4562344056 6555424615 1515151515 5541704451 4751646340 3340222036 1111005541 7051556555 ER, NUMBFrrrrrrMAXDIGITS = 20.tt MAXIMUM
       4041545457 6741425445 4063514756 5146514341 5664404451 4751646315 1515151515 4756655506  ALLOWABLE SIGNIFICANT DIGITSrrrrrrGNUM:
       1152655560 1136110045 5664627115 1141625544 1457115665 5560461100 6345644056 5740444543 tJUMPt.t ENTRYrtARMD'OtNUMPFt SET NO DEC
       5155415440 6057515664 1515151515 1155444162 1446115665 5542463521 1100634564 6560406364 IMAL POINTrrrrrtMDAR'FtNUMBF-1t SETUP ST
       5762454060 6462406457 4056655542 4562634042 6546461515 1141625544 1147566555 3115151515 ORE PTR TO NUMBERS BUFFrrtARMDtGNUM9rrrr
       1141627057 1446111100 4354454162 4063514756 5146514341 5643454046 5441471515 1141625544 tARXO'Ftt CLEAR SIGNIFICANCE FLAGrrtARMD
       1147566555 4615151515 1141625544 1156655543 6411006345 6440445147 5164404357 6556644033 tGNUMFrrrrtARMDtNUMCTt SET DIGIT COUNT =
       4020151515 1155444162 1451114756 6555110046 4564435040 4445435155 4154406057 5156644051  0rrrtMDAR'ItGNUMt FETCH DECIMAL POINT I
       5663646215 1141625544 1147566555 2611006341 6645151515 1155444162 1163435041 6215151515 NSTRrtARMDtGNUM6t SAVErrrtMDARtSCHARrrrr
       1152655560 1147566555 2310211100 5265556040 6457406445 6364402163 6440445147 5164401651 tJUMPtGNUM3+1t JUMP TO TEST 1ST DIGIT (I
       5640634350 4162171515 1515151515 4756655521 0611554441 6211475665 5531110056 4570644044 N SCHAR)rrrrrrrGNUM1:tMDARtGNUM9t NEXT D
       5147516434 4046456443 5040426546 4645624060 5751566445 6215151515 1155447057 1446404056 IGIT, FETCH BUFFER POINTERrrrrtMDXO'F  N
       6555424610 5541704451 4751646335 2111004154 6245414471 4022203640 4451475164 6340121515 UMBF+MAXDIGITS-1t ALREADY 20. DIGITS ?rr
       1152605463 1147566555 2211005657 3440635351 6015151515 1515151515 1152606362 1145626257 tJPLStGNUM2t NO, SKIPrrrrrrrrrtJPSRtERRO
       6211007145 6334404562 6257621515 1111456222 3011004040 1643575663 6441566440 6457574054 Rt YES, ERRORrrttER28t   (CONSTANT TOO L
       5756471715 1515151515 4756655522 0611554441 6211634350 4162110046 4564435040 4451475164 ONG)rrrrrrGNUM2:tMDARtSCHARt FETCH DIGIT
       4043504162 4143644562 1515151515 1155444163 1446145611 0220110047 4564406641 5465451515  CHARACTERrrrrrtMDAS'F'Ntc0t GET VALUErr
       1141567057 1147566555 4611007245 6257404156 4440635147 5651465143 4156434540 5657644063 tANXOtGNUMFt ZERO AND SIGNIFICANCE NOT S
       4564401215 1152604156 1136102411 0071456334 4063535160 1515151515 1515151515 1141625544 ET ?rtJPANt.+4t YES, SKIPrrrrrrrrrrtARMD
       1451147011 4756655531 1100565734 4063645762 4540445147 5164406641 5465454051 5640426546 'I'XtGNUM9t NO, STORE DIGIT VALUE IN BUF
       4615151515 1141624162 1470115665 5543641100 5156444570 4063514756 5146514341 5664404451 FrrrrtARAR'XtNUMCTt INDEX SIGNIFICANT DI
       4751644043 5664151515 1141625544 1457114756 6555461100 6345644063 5147565146 5143415643 GIT CNTrrrtARMD'OtGNUMFt SET SIGNIFICANC
       4540465441 4715151515 1515151515 1155444162 1456115665 5560461100 4357655664 5156474044 E FLAGrrrrrrrrrtMDAR'NtNUMPFt COUNTING D
       4543515541 5440605441 4345634012 1515151515 1141564162 1470115665 5560461100 7145633440 ECIMAL PLACES ?rrrrrtANAR'XtNUMPFt YES, 
       5156444570 4043576556 6445621515 1515151515 4756655523 0611526063 6211474363 1100474564 INDEX COUNTERrrrrrrrGNUM3:tJPSRtGCSt GET
       4056457064 4063644164 4555455664 4043504162 4143644562 1515151515 1152606362 1143506471  NEXT STATEMENT CHARACTERrrrrrtJPSRtCHTY
       6011004350 4543534051 6463406471 6045151515 1152655560 1147566555 2511004040 6360454351 Pt CHECK ITS TYPErrrtJUMPtGNUM5t   SPECI
       4154344052 6555604064 5740435340 4657624044 4543406064 1515151515 1152655560 1147566555 AL, JUMP TO CK FOR DEC PTrrrrrtJUMPtGNUM
       2111004040 5665554562 5143344052 6555604064 5740636457 6245405156 4042654646 4562151515 1t   NUMERIC, JUMP TO STORE IN BUFFERrrr
       1515151515 4756655524 0611554441 6211566555 6046110041 5671404445 4351554154 4060575156 rrrrrGNUM4:tMDARtNUMPFt ANY DECIMAL POIN
       6440121515 1141565162 1470114756 6555110056 5734406245 6465625640 1621171515 1515151515 T ?rrtANIR'XtGNUMt NO, RETURN (1)rrrrrrr
       1141624162 1470114756 6555110071 4563344051 5644457040 6457406245 6465625640 1622171515 tARAR'XtGNUMt YES, INDEX TO RETURN (2)rr
       1155445162 1470114756 6555110062 4564656256 4016221715 1515151515 7777700000 7100530362 tMDIR'XtGNUMt RETURN (2)rrrrrrbbX  Y K!R
       7100530362 7100530362 7100530362 7100530362 7100530362 7100530362 7100530362 7100530362 Y K!RY K!RY K!RY K!RY K!RY K!RY K!RY K!R
       7100530362                                                                              Y K!R
  975: 0000200012 4664562022 1361200265 3414400000 4756655525 0611554470 5714461102 3611004445   0 ?FTN02"Q0cU,'   GNUM5:tMDXO'Ftc.t DE
       4351554154 4060575156 6440121515 1152605463 1147566555 2411005657 3440526555 6040645740 CIMAL POINT ?rrtJPLStGNUM4t NO, JUMP TO 
       6245646562 5615151515 1515151515 1155444162 1456115665 5560461100 2256444044 4543515541 RETURNrrrrrrrrrtMDAR'NtNUMPFt 2ND DECIMA
       5440605751 5664401215 1152604156 1147566555 2411007145 6334405265 5560406457 4062456465 L POINT ?rtJPANtGNUM4t YES, JUMP TO RETU
       6256151515 1515151515 1141625544 1156655560 4611005657 3440724562 5740444543 5155415440 RNrrrrrrrrtARMDtNUMPFt NO, ZERO DECIMAL 
       4357655664 1515151515 4756655526 0611565757 6011110045 7045436564 4540416247 4051566364 COUNTrrrrrGNUM6:tNOOPtt EXECUTE ARG INST
       6265436451 5756151515 1152655560 1147566555 2311005265 5560406457 4047456440 5645706440 RUCTIONrrrtJUMPtGNUM3t JUMP TO GET NEXT 
       4350416241 4364456215 1515151515 5665556046 0611112011 0044454351 5541544060 5751566440 CHARACTERrrrrrrNUMPF:tt0t DECIMAL POINT 
       4654414740 4156444043 5765566415 5665554364 0611112011 0063514756 5146514341 5664404451 FLAG AND COUNTrNUMCT:tt0t SIGNIFICANT DI
       4751644043 5765566415 4756655546 0611112011 0063514756 5146514341 5643454046 5441471515 GIT COUNTrGNUMF:tt0t SIGNIFICANCE FLAGrr
       4756655531 0611112011 0064455560 4063645762 4147451515 1515151515 5665554246 0611545743 GNUM9:tt0t TEMP STORAGErrrrrrrNUMBF:tLOC
       1136105541 7044514751 6463110056 6555426240 4265464640 1662575755 4046576240 2220364044 t.+MAXDIGITSt NUMBR BUFF (ROOM FOR 20. D
       5147516463 4055417017 1515151515 1515151515 1515151515 0040456641 5465416445 4051566445 IGITS MAX)rrrrrrrrrrrrrrr  EVALUATE INTE
       4745624057 6240574364 4154404357 5663644156 6415151515 1515151515 4751575655 0611526555 GER OR OCTAL CONSTANTrrrrrrrrrGIONM:tJUM
       6011361100 4556646271 1515151515 1152606362 1147566555 1100435754 5445436440 4451475164 Pt.t ENTRYrrrrrtJPSRtGNUMt COLLECT DIGIT
       6315151515 1152655560 1151544743 5011004040 1644454351 5541544051 5454454741 5417151515 SrrrrtJUMPtILGCHt   (DECIMAL ILLEGAL)rrr
       1155444162 1163435041 6211004645 6443504044 4554515545 6445621515 1155447057 1446110242 tMDARtSCHARt FETCH DELIMETERrrtMDXO'FtcB
       1100134213 4012151515 1154637057 1143212511 0057624013 5713401215 1152605463 1136102411 t "B" ?rrrtLSXOtC15t OR "O" ?rtJPLSt.+4t
       0056573440 5565636440 4245405156 6445474562 3440635351 6015151515 1515151515 1152606362  NO, MUST BE INTEGER, SKIPrrrrrrrrrtJPSR
       1147436311 0071456334 4060416363 4056457064 4043504162 1515151515 1152606362 1147574364 tGCSt YES, PASS NEXT CHARrrrrrtJPSRtGOCT
       5611004566 4154654164 4540574364 4154405665 5542456215 1155445162 1147515756 5511006245 Nt EVALUATE OCTAL NUMBERrtMDIRtGIONMt RE
       6465625615 1515151515 1152606362 1147515664 5611004566 4154654164 4540444543 5155415440 TURNrrrrrrtJPSRtGINTNt EVALUATE DECIMAL 
       5156644547 4562151515 1155445162 1147515756 5511006245 6465625615 1515151515 1515151515 INTEGERrrrtMDIRtGIONMt RETURNrrrrrrrrrrr
       7777700000 7711525524 7711525524 7711525524 7711525524 7711525524 7711525524 7711525524 bbX  btJM4btJM4btJM4btJM4btJM4btJM4btJM4
       7711525524 7711525524 7711525524                                                        btJM4btJM4btJM4
  950: 0000300012 4664562022 1361200260 3414400000 0040456641 5465416445 4051566445 4745624043   8 ?FTN02"Q0cP,'     EVALUATE INTEGER C
       5756636441 5664151515 1515151515 4751566456 0611526555 6011361100 4556646271 1515151515 ONSTANTrrrrrrrrGINTN:tJUMPt.t ENTRYrrrrr
       1141627057 1446151515 1141625544 1164552111 0063456440 6641546545 4033402015 1141625544 tARXO'FrrrtARMDtTM1t SET VALUE = 0rtARMD
       1164552411 0043544541 6240576645 6246545767 4046544147 1515151515 1155444162 1446115665 tTM4t CLEAR OVERFLOW FLAGrrrrrtMDAR'FtNU
       5542463521 1100634564 6560406064 6240645740 5665554245 6263404265 4646151515 1141625544 MBF-1t SETUP PTR TO NUMBERS BUFFrrrtARMD
       1164552215 1155444162 1156655543 6411006345 6465604043 5765566440 5746404451 4751646315 tTM2rtMDARtNUMCTt SETUP COUNT OF DIGITSr
       1141625544 1456116455 2315151515 1155444162 1454111100 6345646560 4041624057 4654576740 tARMD'NtTM3rrrrtMDAR'Ltt SETUP AR OFLOW 
       6051665764 1515151515 1141625544 1457116455 2411004040 6457406345 6440465441 4715151515 PIVOTrrrrrtARMD'OtTM4t   TO SET FLAGrrrr
       1141625544 1141625760 6615151515 1152655560 1147515664 2211005265 5560405156 6457405457 tARMDtAROPVrrrrtJUMPtGINT2t JUMP INTO LO
       5760151515 1515151515 4751566421 0611554441 6211645521 1100464564 4350406365 5515151515 OPrrrrrrrrGINT1:tMDARtTM1t FETCH SUMrrrr
       1141624145 1446111100 4745644022 0563655515 1141624145 1446111100 4745644024 0563655515 tARAE'Ftt GET 2*SUMrtARAE'Ftt GET 4*SUMr
       1155444145 1164552111 0047456440 2505636555 1515151515 1141624145 1446111100 4745644021 tMDAEtTM1t GET 5*SUMrrrrrtARAE'Ftt GET 1
       2005636555 1515151515 1155444163 1451147011 6455221100 4144444044 5147516415 1141625544 0*SUMrrrrrtMDAS'I'XtTM2t ADD DIGITrtARMD
       1164552111 0063416645 4056456740 6365551515 1515151515 4751566422 0611554441 6214701164 tTM1t SAVE NEW SUMrrrrrrrGINT2:tMDAR'XtT
       5523110044 5756454041 5454404451 4751646340 1215151515 1152605463 1147515664 2111005657 M3t DONE ALL DIGITS ?rrrrtJPLStGINT1t NO
       3440545757 6040465762 4056457064 1515151515 1515151515 1141625544 1450114162 5760661100 , LOOP FOR NEXTrrrrrrrrrrtARMD'HtAROPVt 
       6245634564 4041624057 4654576740 6051665764 1515151515 1155444162 1456116455 2411004156 RESET AR OFLOW PIVOTrrrrrtMDAR'NtTM4t AN
       7140576645 6246545767 4012151515 1152604156 1147515664 2311005657 3440526555 6015151515 Y OVERFLOW ?rrrtJPANtGINT3t NO, JUMPrrrr
       1515151515 1152606362 1145626257 6211007145 6334404562 6257621515 1111456223 3011004040 rrrrrtJPSRtERRORt YES, ERRORrrttER38t   
       1651566445 4745624064 5757405441 6247451715 1141627057 1454111100 6345644064 5740624564 (INTEGER TOO LARGE)rtARXO'Ltt SET TO RET
       6562564072 4562571515 1515151515 4751566423 0611554441 6211645521 1100565740 4562625762 URN ZEROrrrrrrrGINT3:tMDARtTM1t NO ERROR
       3440464564 4350404357 5560656445 4440664154 6545151515 1155445162 1147515664 5611006245 , FETCH COMPUTED VALUErrrtMDIRtGINTNt RE
       6465625615 1515151515 1515151515 7777700000 7252462665 7252462665 7252462665 7252462665 TURNrrrrrrrrrrrbbX  ZJF6UZJF6UZJF6UZJF6U
       7252462665 7252462665 7252462665 7252462665 7252462665 7252462665                       ZJF6UZJF6UZJF6UZJF6UZJF6UZJF6U
 1235: 0000400012 4664562022 1361200351 3414400000 0040456641 5465416445 4057436441 5440435756     ?FTN02"Q0!I,'     EVALUATE OCTAL CON
       6364415664 1515151515 1515151515 4757436456 0611526555 6011361100 4556646271 1515151515 STANTrrrrrrrrrrGOCTN:tJUMPt.t ENTRYrrrrr
       1141627057 1446111100 4354454162 4066415465 4515151515 1141625544 1164552115 1155444162 tARXO'Ftt CLEAR VALUErrrrtARMDtTM1rtMDAR
       1446115665 5542463521 1100634564 6560406064 6240645740 4451475164 6340426546 4645621515 'FtNUMBF-1t SETUP PTR TO DIGITS BUFFERrr
       1141625544 1164552215 1155444162 1156655543 6411004645 6443504056 6555424562 4057464044 tARMDtTM2rtMDARtNUMCTt FETCH NUMBER OF D
       5147516463 1515151515 1141625544 1456116455 2311006341 6645404163 4056454741 6451664540 IGITSrrrrrtARMD'NtTM3t SAVE AS NEGATIVE 
       4357655664 1515151515 1515151515 1155444163 1446145611 2120361100 5657364057 4640445147 COUNTrrrrrrrrrrtMDAS'F'Nt10.t NO. OF DIG
       5164634036 4764364021 2040121515 1152604156 1147574364 2211005657 3440635351 6015151515 ITS .GT. 10 ?rrtJPANtGOCT2t NO, SKIPrrrr
       1515151515 1152606362 1145626257 6211007145 6334404562 6257621515 1111456223 2611004040 rrrrrtJPSRtERRORt YES, ERRORrrttER36t   
       1664575740 5541567140 4451475164 6340515640 5743644154 4043575663 6456641715 1152655560 (TOO MANY DIGITS IN OCTAL CONSTNT)rtJUMP
       1147574364 2311005265 5560406457 4062456465 6256407245 6257406641 5465451515 1515151515 tGOCT3t JUMP TO RETURN ZERO VALUErrrrrrr
       4757436421 0611554441 6214511470 1164552211 0046456443 5040564570 6440574364 4154404451 GOCT1:tMDAR'I'XtTM2t FETCH NEXT OCTAL DI
       4751641515 1155444163 1446145611 2711006641 5451444057 4364415440 4451475164 4012151515 GITrrtMDAS'F'Nt7t VALID OCTAL DIGIT ?rrr
       1152604156 1136102511 0071456334 4063535160 1515151515 1515151515 1152606362 1145626257 tJPANt.+5t YES, SKIPrrrrrrrrrrtJPSRtERRO
       6211005657 3440456262 5762151515 1111456223 2711004040 1651545445 4741544057 4364415440 Rt NO, ERRORrrrttER37t   (ILLEGAL OCTAL 
       4451475164 1715151515 1141627057 1446111100 6345644046 5762407245 6257406641 5465451515 DIGIT)rrrrtARXO'Ftt SET FOR ZERO VALUErr
       1155445162 1147574364 5611006245 6465625615 1515151515 1155444162 1164552111 0046456443 tMDIRtGOCTNt RETURNrrrrrrtMDARtTM1t FETC
       5040636555 1515151515 1141625463 1123110063 5051466440 5756454057 4364415440 4451475164 H SUMrrrrrtARLSt3t SHIFT ONE OCTAL DIGIT
       1515151515 1155444162 1457145111 6455221100 4357554251 5645405645 6740445147 5164151515 rrrrrtMDAR'O'ItTM2t COMBINE NEW DIGITrrr
       1141625544 1164552111 0063416645 4063655515 1515151515 4757436422 0611554441 6214701164 tARMDtTM1t SAVE SUMrrrrrrGOCT2:tMDAR'XtT
       5523110046 5156516350 4544404154 5440445147 5164634012 1515151515 1152605463 1147574364 M3t FINISHED ALL DIGITS ?rrrrrtJPLStGOCT
       2111005657 3440545757 6015151515 1515151515 4757436423 0611554441 6211645521 1100714563 1t NO, LOOPrrrrrrrrrGOCT3:tMDARtTM1t YES
       3440464564 4350406365 5515151515 1155445162 1147574364 5611006245 6465625615 1515151515 , FETCH SUMrrrrtMDIRtGOCTNt RETURNrrrrrr
       1515151515 0040604163 6340574364 4154404445 5451554564 4562151515 1515151515 6041636357 rrrrr  PASS OCTAL DELIMETERrrrrrrrrPASSO
       0611526555 6011361100 4556646271 1515151515 1155444162 1163435041 6211004645 6443504054 :tJUMPt.t ENTRYrrrrrtMDARtSCHARt FETCH L
       4163644043 5041621515 1155447057 1446110242 1100134213 4012151515 1154637057 1143212511 AST CHARrrtMDXO'FtcBt "B" ?rrrtLSXOtC15t
       0057624013 5713401215 1152605463 1136102211 0056573440 6353516015 1152606362 1147436311  OR "O" ?rtJPLSt.+2t NO, SKIPrtJPSRtGCSt
       0071456334 4047456440 5645706440 4350416215 1515151515 1155444162 1163435041 6211004645  YES, GET NEXT CHARrrrrrrtMDARtSCHARt FE
       6443504064 6265454044 4554515545 6445624064 5740416215 1155445162 1160416363 5711004156 TCH TRUE DELIMETER TO ARrtMDIRtPASSOt AN
       4440624564 6562561515 1515151515 1515151515 7777700000 3125531700 3125531700 3125531700 D RETURNrrrrrrrrrrrrbbX  95K) 95K) 95K) 
       3125531700 3125531700 3125531700 3125531700 3125531700 3125531700 3125531700            95K) 95K) 95K) 95K) 95K) 95K) 95K) 
 1330: 0000500012 4664562022 1361200374 3414400000 0040446560 5451434164 4563405746 4057646340   H ?FTN02"Q0!#,'     DUPLICATES OF OTS 
       6257656451 5645634046 5762404654 5741645156 4735605751 5664404566 4154654164 5157564036 ROUTINES FOR FLOATING-POINT EVALUATION .
       3636363615 1515151515 1515151515 2444645742 0611526555 6011361100 4556646271 4035405743 ....rrrrrrrrrrr4DTOB:tJUMPt.t ENTRY - OC
       6441544064 5740444543 5155415415 1141627057 1446151515 1141625544 1124634321 1100435445 TAL TO DECIMALrtARXO'FrrrtARMDt4SC1t CLE
       4162404570 6057564556 6415151515 1155444162 1124634121 1100464564 4350404445 4351554154 AR EXPONENTrrrrtMDARt4SA1t FETCH DECIMAL
       4045706057 5645566415 1155447057 1124634311 0043576262 4543644046 5762406351 4756151515  EXPONENTrtMDXOt4SCt CORRECT FOR SIGNrrr
       1155444163 1456112463 4211005746 4663456440 4657624044 4543515541 5440435765 5664151515 tMDAS'Nt4SBt OFFSET FOR DECIMAL COUNTrrr
       1155444163 1446112620 1100574646 6345644046 5762406441 4254454054 5757536560 1515151515 tMDAS'Ft60t OFFSET FOR TABLE LOOKUPrrrrr
       1141625544 1124634121 1100415644 4063416645 4046576240 6441425445 4054575753 6560151515 tARMDt4SA1t AND SAVE FOR TABLE LOOKUPrrr
       1152604156 1144645742 2611005265 5560405146 4056655542 4562406457 5740635541 5454151515 tJPANtDTOB6t JUMP IF NUMBER TOO SMALLrrr
       1155444163 1446145611 2121271100 4350454353 4063517245 1515151515 1152604156 1144645742 tMDAS'F'Nt117t CHECK SIZErrrrrtJPANtDTOB
       2211005265 5560405146 4056655542 4562406751 6450515640 6241564745 1515151515 1515151515 2t JUMP IF NUMBER WITHIN RANGErrrrrrrrrr
       4464574221 0611526063 6211456262 5762110045 6262576240 3540645757 4054416247 4515151515 DTOB1:tJPSRtERRORt ERROR - TOO LARGErrrr
       1111456231 2015151515 1141627057 1446111100 6245646562 5640724562 5715151515 1155445162 ttER90rrrrtARXO'Ftt RETURN ZEROrrrrtMDIR
       1124446457 4215151515 1515151515 4464574222 0611554441 6214421124 6341211100 4645644350 t4DTOBrrrrrrrrrDTOB2:tMDAR'Bt4SA1t FETCH
       4045706015 1155444162 1441144211 4327110055 4163534054 5767456240 6351471515 1155444145  EXPrtMDAR'A'BtC7t MASK LOWER SIGrrtMDAE
       1454111100 4144444013 5544416240 6441421315 1155444162 1164414221 1515151515 1141625544 'Ltt ADD "MDAR TAB"rtMDARtTAB1rrrrrtARMD
       1144645742 2411004156 4440606564 4051564043 4154541515 1515151515 1155444162 1124634121 tDTOB4t AND PUT IN CALLrrrrrrrtMDARt4SA1
       1100464564 4350404570 6015151515 1141626263 1123110045 7064624143 6440656060 4562406351 t FETCH EXPrrrrtARRSt3t EXTRACT UPPER SI
       4715151515 1141624162 1442144615 1155444145 1454111100 4144444013 5544416240 6441421315 GrrrrtARAR'B'FrtMDAE'Ltt ADD "MDAR TAB"r
       1155444162 1164414222 1515151515 1141625544 1144645742 2511004156 4440606564 4051564043 tMDARtTAB2rrrrrtARMDtDTOB5t AND PUT IN C
       4154541515 1515151515 1155444162 1442112463 4122110056 5762554154 5172454055 4156645163 ALLrrrrrrrtMDAR'Bt4SA2t NORMALIZE MANTIS
       6341151515 1152604156 1144645742 2315151515 1141624162 1442147011 2463432111 0041564440 SArrrtJPANtDTOB3rrrrtARAR'B'Xt4SC1t AND 
       4445436245 5545566440 4570605756 4556644041 4343576244 5156475471 1515151515 1152604156 DECREMENT EXPONENT ACCORDINGLYrrrrrtJPAN
       1144645742 2315151515 1141624162 1442147011 2463432115 1152604156 1144645742 2315151515 tDTOB3rrrrtARAR'B'Xt4SC1rtJPANtDTOB3rrrr
       1141624162 1442147011 2463432115 4464574223 0611416262 6311231515 1155444162 1441112453 tARAR'B'Xt4SC1rDTOB3:tARRSt3rrtMDAR'At4K
       3011002727 2727272727 2727405541 6353406245 6365546415 1515151515 1152606362 1124635560 8t 777777777 MASK RESULTrrrrrrtJPSRt4SMP
       7111005565 5464516054 7115151515 4464574224 0611554441 6211110042 7140212005 0516210553 Yt MULTIPLYrrrrDTOB4:tMDARtt BY 10**(1*K
       2117151515 1515151515 1152606362 1124635560 7111005565 5464516054 7115151515 4464574225 1)rrrrrrrrtJPSRt4SMPYt MULTIPLYrrrrDTOB5
       0611554441 6211110042 7140212005 0516212005 5322171515 1115151515 1155444163 1446112420 :tMDARtt BY 10**(10*K2)rrtrrrrtMDAS'Ft40
       1100625765 5644405746 4640645740 5645416245 6364404251 6415151515 1141625463 1123151515 t ROUND OFF TO NEAREST BITrrrrtARLSt3rrr
       1152604156 1144645742 2711005657 6255415451 7245406245 6365546415 1515151515 7777700000 tJPANtDTOB7t NORMALIZE RESULTrrrrrrbbX  
       5667402445 5667402445 5667402445 5667402445 5667402445 5667402445 5667402445 5667402445 NW 4ENW 4ENW 4ENW 4ENW 4ENW 4ENW 4ENW 4E
       5667402445 5667402445                                                                   NW 4ENW 4E
 1190: 0000600012 4664562022 1361200340 3414400000 1155444163 1456144611 2220201100 4241435340   P ?FTN02"Q0! ,'   tMDAS'N'Ft200t BACK 
       5746464062 5765564457 4646151515 1141624162 1470144211 2463432111 0041564440 4445436245 OFF ROUNDOFFrrrtARAR'X'Bt4SC1t AND DECRE
       5545566440 4570605756 4556644041 4343576244 5156475471 1515151515 1152604156 1144645742 MENT EXPONENT ACCORDINGLYrrrrrtJPANtDTOB
       2715151515 1155444163 1456144611 2220201515 1141624162 1470144211 2463432115 1152604156 7rrrrtMDAS'N'Ft200rrtARAR'X'Bt4SC1rtJPAN
       1144645742 2715151515 1515151515 4464574226 0611526063 6211456262 5762110045 6262576240 tDTOB7rrrrrrrrrDTOB6:tJPSRtERRORt ERROR 
       3540645757 4063554154 5415151515 1111456231 2115151515 1141627057 1446151515 1155445162 - TOO SMALLrrrrttER91rrrrtARXO'FrrrtMDIR
       1124446457 4211006245 6465625615 1515151515 4464574227 0611416262 6311313611 0060576351 t4DTOBt RETURNrrrrrrDTOB7:tARRSt9.t POSI
       6451575640 4657624063 6441564441 6244404654 5741645156 4740605751 5664151515 1155447057 TION FOR STANDARD FLOATING POINTrrrtMDXO
       1441112453 2211002727 2720200350 5541635315 1141625544 1124634322 1100415644 4063416645 'At4K2t 77700!HMASKrtARMDt4SC2t AND SAVE
       1515151515 1515151515 1155444162 1456112463 4321110046 4564435040 6350514664 4043576556 rrrrrrrrrrtMDAR'Nt4SC1t FETCH SHIFT COUN
       6415151515 1155444163 1451147011 4464574224 1100414444 4053214045 7060151515 1155444163 TrrrrtMDAS'I'XtDTOB4t ADD K1 EXPrrrtMDAS
       1451147011 4464574225 1100414444 4053224045 7060151515 1515151515 1141625544 1453112463 'I'XtDTOB5t ADD K2 EXPrrrrrrrrtARMD'Kt4S
       4321110041 5644406341 6645404163 4045706057 5645566415 1152604156 1144645742 2611005265 C1t AND SAVE AS EXPONENTrtJPANtDTOB6t JU
       5560405146 4064575740 6355415454 1515151515 1515151515 1155444163 1456144611 2327271515 MP IF TOO SMALLrrrrrrrrrrtMDAS'N'Ft377rr
       1152604156 1144645742 3011005265 5560405146 4057365336 1515151515 1152655560 1144645742 tJPANtDTOB8t JUMP IF O.K.rrrrrtJUMPtDTOB
       2111005764 5045626751 6345406457 5740425147 1515151515 1515151515 4464574230 0611554441 1t OTHERWISE TOO BIGrrrrrrrrrrDTOB8:tMDA
       6211246343 2211004645 6443504055 4156645163 6341151515 1155444145 1450112463 4321110041 Rt4SC2t FETCH MANTISSArrrtMDAE'Ht4SC1t A
       4444404570 6057564556 6415151515 1155445162 1124446457 4211006245 6465625615 1515151515 DD EXPONENTrrrrtMDIRt4DTOBt RETURNrrrrrr
       1515151515 2460414353 0611526555 6011361100 4556646271 4035406041 4353405665 5542456215 rrrrr4PACK:tJUMPt.t ENTRY - PACK NUMBERr
       1155444162 1124634122 1100644563 6440664154 6545151515 1155444145 1454145615 1111232124 tMDARt4SA2t TEST VALUErrrtMDAE'L'Nrtt314
       2623212426 2311002523 3426302734 2031211515 1152604156 1136102211 0052655560 4051464062 631463t 53,687,091rrtJPANt.+2t JUMP IF R
       5757554046 5762404156 7140445147 5164151515 1515151515 1155445162 1470112460 4143531100 OOM FOR ANY DIGITrrrrrrrrtMDIR'Xt4PACKt 
       6457574046 6554544062 4564656256 1515151515 1515151515 1155444162 1442112463 4122110046 TOO FULL RETURNrrrrrrrrrrtMDAR'Bt4SA2t F
       4564435040 6641546545 4005402120 3615151515 1141625463 1122151515 1155444145 1442112463 ETCH VALUE * 10.rrrrtARLSt2rrrtMDAE'Bt4S
       4122151515 1141625544 1124634122 1100415644 4063416645 4056456740 6641546545 1515151515 A2rrrtARMDt4SA2t AND SAVE NEW VALUErrrrr
       1515151515 1141624162 1450145714 7011246342 1100515643 6245554556 6440444543 5155415440 rrrrrtARAR'H'O'Xt4SBt INCREMENT DECIMAL 
       6057635164 5157561515 1154635162 1124604143 5311006245 6465625640 5146406351 4756514651 POSITIONrrtLSIRt4PACKt RETURN IF SIGNIFI
       4341564345 1515151515 1155445162 1470112460 4143531100 6245646562 5640514640 4555606471 CANCErrrrrtMDIR'Xt4PACKt RETURN IF EMPTY
       1515151515 1515151515 1515151515 7777700000 6760241336 6760241336 6760241336 6760241336 rrrrrrrrrrrrrrrbbX  WP4".WP4".WP4".WP4".
       6760241336 6760241336 6760241336 6760241336 6760241336 6760241336                       WP4".WP4".WP4".WP4".WP4".WP4".
  860: 0000700012 4664562022 1361200236 3414400000 2463556071 0611526555 6011361100 4556646271   X ?FTN02"Q0c.,'   4SMPY:tJUMPt.t ENTRY
       4035406360 4543514154 4055655464 5160547115 1141625544 1442112463 4121110063 4166454041  - SPECIAL MULTIPLYrtARMD'Bt4SA1t SAVE A
       1515151515 1155447057 1441112463 5330110045 7064624143 6440414042 5164634021 2635223140 rrrrrtMDXO'At4SK8t EXTRACT A BITS 16-29 
       4156444063 5147561515 1141564162 1457112463 5330110045 7064455644 4063514756 1515151515 AND SIGNrrtANAR'Ot4SK8t EXTEND SIGNrrrrr
       1141625544 1124634122 1100415644 4063416645 1515151515 1515151515 1155445162 1451112463 tARMDt4SA2t AND SAVErrrrrrrrrrtMDIR'It4S
       5560711100 4645644350 4042151515 1141625544 1442112463 4221110041 5644406341 6645151515 MPYt FETCH BrrrtARMD'Bt4SB1t AND SAVErrr
       1155447057 1441112463 5330110045 7064624143 6440414042 5164634021 2635223140 4156444063 tMDXO'At4SK8t EXTRACT A BITS 16-29 AND S
       5147561515 1141564162 1457112463 5330110045 7064455644 4063514756 1515151515 1515151515 IGNrrtANAR'Ot4SK8t EXTEND SIGNrrrrrrrrrr
       1155607165 1124634121 1100556554 6451605471 4042714041 4065606045 6215151515 1156575760 tMPYUt4SA1t MULTIPLY BY A UPPERrrrrtNOOP
       1515151515 1141625544 1124634311 0041564440 6341664540 6365421515 1515151515 1155444162 rrrrrtARMDt4SCt AND SAVE SUBrrrrrrrtMDAR
       1124634122 1100464564 4350404140 4251646340 2126352231 1515151515 1155607165 1124634221 t4SA2t FETCH A BITS 16-29rrrrrtMPYUt4SB1
       1100556554 6451605471 4042714042 4065606045 6215151515 1156575760 1515151515 1155444145 t MULTIPLY BY B UPPERrrrrtNOOPrrrrrtMDAE
       1124634311 0041444440 6457406365 4215151515 1141626263 1130361100 6350514664 4060416264 t4SCt ADD TO SUBrrrrtARRSt8.t SHIFT PART
       4067417115 1141564163 1456114321 2020110051 4640564547 4164516645 4063654264 6241436440  WAYrtANAS'NtC100t IF NEGATIVE SUBTRACT 
       2205625765 5644405746 4615151515 1155444163 1446112420 1100414444 4062576556 4440574646 2*ROUND OFFrrrrtMDAS'Ft40t ADD ROUND OFF
       1515151515 1141626263 1126110063 5051466440 5156645740 6057635164 5157561515 1141625544 rrrrrtARRSt6t SHIFT INTO POSITIONrrtARMD
       1124634311 0041564440 6341664540 6365421515 1515151515 1155444162 1450112463 4121110046 t4SCt AND SAVE SUBrrrrrrrtMDAR'Ht4SA1t F
       4564435040 4140656060 4562151515 1155607165 1124634221 1100556554 6451605471 4042714042 ETCH A UPPERrrrtMPYUt4SB1t MULTIPLY BY B
       4065606045 6215151515 4321202006 1111212020 1515151515 1155444145 1124634311 0041444440  UPPERrrrrC100:tt100rrrrrtMDAEt4SCt ADD 
       6365421515 1155445162 1470112463 5560711100 4156444062 4564656256 1515151515 1515151515 SUBrrtMDIR'Xt4SMPYt AND RETURNrrrrrrrrrr
       1515151515 7777700000 5474333166 5474333166 5474333166 5474333166 5474333166 5474333166 rrrrrbbX  L#=9VL#=9VL#=9VL#=9VL#=9VL#=9V
       5474333166 5474333166 5474333166 5474333166                                             L#=9VL#=9VL#=9VL#=9V
 1095: 0001000012 4664562022 1361200315 3414400000 2462644606 1152655560 1136110045 5664627140  %  ?FTN02"Q0!r,'   4RTF:tJUMPt.t ENTRY 
       3540624541 5440645740 4662414364 5157561515 1141625544 1124634111 0063416645 4066415465 - REAL TO FRACTIONrrtARMDt4SAt SAVE VALU
       4515151515 1155447057 1441112453 2111004570 6462414364 4055415664 5163634115 1141564162 ErrrrtMDXO'At4K1t EXTRACT MANTISSArtANAR
       1457112453 2111004570 6445564440 6351475615 1141625544 1124634122 1100415644 4063416645 'Ot4K1t EXTEND SIGNrtARMDt4SA2t AND SAVE
       1515151515 1155447057 1124634111 0045706462 4143644045 7060575645 5664151515 1141625463 rrrrrtMDXOt4SAt EXTRACT EXPONENTrrrtARLS
       1131361100 5445466440 5265636451 4671151515 1155444163 1446145611 2220201100 4350454353 t9.t LEFT JUSTIFYrrrtMDAS'F'Nt200t CHECK
       4063517245 1515151515 1152604156 1124626446 2111005265 5560405146 4054456363 4064504156  SIZErrrrrtJPANt4RTF1t JUMP IF LESS THAN
       4021151515 1155447057 1446112111 0045704143 6454714021 4012151515 1152605463 1124626446  1rrrtMDXO'Ft1t EXACTLY 1 ?rrrtJPLSt4RTF
       2211005657 3440526555 6040465762 4057664562 4654576740 4562625762 1515151515 1515151515 2t NO, JUMP FOR OVERFLOW ERRORrrrrrrrrrr
       1155444162 1124634122 1100714563 3440464564 4350405541 5664516363 4115151515 1141564162 tMDARt4SA2t YES, FETCH MANTISSArrrrtANAR
       1456112463 4122110047 4564404142 6340664154 6545151515 1155447057 1450114324 2011004350 'Nt4SA2t GET ABS VALUErrrtMDXO'HtC40t CH
       4543534046 5762406641 5465454033 4021362015 1141624162 1450145714 4615151515 1152605463 ECK FOR VALUE = 1.0rtARAR'H'O'FrrrrtJPLS
       1124626446 2211006462 6545404562 6257623440 5146405657 6415151515 1515151515 1155444162 t4RTF2t TRUE ERROR, IF NOTrrrrrrrrrtMDAR
       1446145011 2327272727 1100455463 4534404645 6443504046 6241436451 5756402136 2015151515 'F'Ht37777t ELSE, FETCH FRACTION 1.0rrrr
       1155447057 1450112463 4122110041 4452656364 4046576240 6351475615 1141626263 1121253611 tMDXO'Ht4SA2t ADJUST FOR SIGNrtARRSt15.t
       0045706445 5644406351 4756151515 1156575760 1515151515 1155445162 1124626446 1100415644  EXTEND SIGNrrrtNOOPrrrrrtMDIRt4RTFt AND
       4062456465 6256151515 1515151515 2462644622 0611526063 6211456262 5762110067 4162565156  RETURNrrrrrrrr4RTF2:tJPSRtERRORt WARNIN
       4740456262 5762151515 1111456230 3111004040 1646624143 6451575640 5766456246 5457671715 G ERRORrrrttER89t   (FRACTION OVERFLOW)r
       1515151515 2462644623 0611416270 5714461111 0063456440 6641546545 4033402015 1155445162 rrrrr4RTF3:tARXO'Ftt SET VALUE = 0rtMDIR
       1124626446 1100415644 4062456465 6256151515 1515151515 2462644621 0611554441 6314461121 t4RTFt AND RETURNrrrrrrrr4RTF1:tMDAS'Ft1
       2611004350 4543534062 4541635756 4142544540 6350514664 4062415647 4515151515 1152604156 6t CHECK REASONABLE SHIFT RANGErrrrtJPAN
       1124626446 2311006245 6465625640 2034405146 4056574063 5147565146 5143415643 4515151515 t4RTF3t RETURN 0, IF NO SIGNIFICANCErrrr
       1515151515 1155444163 1446145611 2225110057 4646634564 4063505146 6415151515 1141625544 rrrrrtMDAS'F'Nt25t OFFSET SHIFTrrrrtARMD
       1456112463 4121110041 5644406341 6645151515 1515151515 1155444162 1124634122 1100464564 'Nt4SA1t AND SAVErrrrrrrrtMDARt4SA2t FET
       4350406641 5465451515 1141626263 1451112463 4121110063 5051466440 5156645740 6057635164 CH VALUErrtARRS'It4SA1t SHIFT INTO POSIT
       5157561515 1155445162 1124626446 1100415644 4062456465 6256151515 1515151515 1515151515 IONrrtMDIRt4RTFt AND RETURNrrrrrrrrrrrrr
       7777700000 2333523452 2333523452 2333523452 2333523452 2333523452 2333523452 2333523452 bbX  3=J,J3=J,J3=J,J3=J,J3=J,J3=J,J3=J,J
       2333523452 2333523452 2333523452                                                        3=J,J3=J,J3=J,J
  575: 0001100012 4664562022 1361200145 3414400000 6441422106 1124202020 2020202020 3211211515  %+ ?FTN02"Q0%E,'   TAB1:t400000000;t1rr
       1125202020 2020202020 3211241515 1126222020 2020202020 3211271515 1127262420 2020202020 t500000000;t4rrt620000000;t7rrt764000000
       3211212215 1124272024 2020202020 3211212615 1126202625 2020202020 3211222115 1127252022 ;t12rt470400000;t16rt606500000;t21rt7502
       2220202020 3211222415 1124262121 2322202020 3211232015 1515151515 6441422206 1125262621 20000;t24rt461132000;t30rrrrrrTAB2:t5661
       2121272423 3211352215 1124222626 2024262122 3211232115 1126232723 2024232625 3211262315 11743;t-2rt426604612;t31rt637304365;t63r
       1124262523 2720222426 3211212126 1515151515 1127212521 2226222426 3211212520 1515151515 t465370246;t116rrrrrt715126246;t150rrrrr
       1125222724 2621262721 3211222023 1515151515 1124202020 2020202020 3211222326 1515151515 t527461671;t203rrrrrt400000000;t236rrrrr
       1125272523 2620242020 3211222720 1515151515 1124232421 2527212126 3211232223 1515151515 t575360400;t270rrrrrt434157116;t323rrrrr
       1126242724 2120232326 3211232525 1515151515 1515151515 1515151515 2463533006 1120272727 t647410336;t355rrrrrrrrrrrrrrr4SK8:t0777
       2703501124 2020202015 1515151515 2463410611 1120151515 2463412106 1111201515 2463412206 7!Ht40000rrrrrr4SA:tt0rrr4SA1:tt0rr4SA2:
       1111201515 2463420611 1120151515 2463422106 1111201515 2463430611 1120151515 2463432106 tt0rr4SB:tt0rrr4SB1:tt0rr4SC:tt0rrr4SC1:
       1111201515 2463432206 1111201515 1515151515 2453210611 2327272020 0350151515 2453220611 tt0rr4SC2:tt0rrrrrrr4K1:t37700!Hrrr4K2:t
       2727272020 0350151515 2453300611 2727272703 5011272727 2727151515 1515151515 1515151515 77700!Hrrr4K8:t7777!Ht77777rrrrrrrrrrrrr
       7777700000 4260015630 4260015630 4260015630 4260015630 4260015630 4260015630 4260015630 bbX  BP%N8BP%N8BP%N8BP%N8BP%N8BP%N8BP%N8
       4260015630 4260015630 4260015630                                                        BP%N8BP%N8BP%N8
 1290: 0001200012 4664562022 1361200364 3414400000 0040474564 4056457064 4043504162 4143644562  %0 ?FTN02"Q0!T,'     GET NEXT CHARACTER
       4046576240 5057545445 6251645037 4163435151 4043575663 6441566415 1515151515 4750575443  FOR HOLLERITH/ASCII CONSTANTrrrrrrGHOLC
       0611526555 6011361100 4556646271 1515151515 1155444162 1141446064 4611004144 4560644055 :tJUMPt.t ENTRYrrrrrtMDARtADPTFt ADEPT M
       5744454012 1515151515 1152604156 1141444741 6311007145 6334405265 5560406457 4041444560 ODE ?rrrrrtJPANtADGASt YES, JUMP TO ADEP
       6440474564 4043504162 4062576564 5156451515 1515151515 1155444162 1147505754 6311006341 T GET CHAR ROUTINErrrrrrrtMDARtGHOLSt SA
       6645444043 5041624143 6445624046 6257554054 4163644043 4154544012 1515151515 1152604156 VED CHARACTER FROM LAST CALL ?rrrrrtJPAN
       1136102311 0056573440 6353516015 1515151515 1141625544 1457114750 5754631100 7145633440 t.+3t NO, SKIPrrrrrrtARMD'OtGHOLSt YES, 
       6345644056 5740634166 4544404350 4162151515 1155445162 1470114750 5754431100 4156444062 SET NO SAVED CHARrrrtMDIR'XtGHOLCt AND R
       4564656256 4016221740 6751645040 4350416240 5156404162 1515151515 1515151515 1141625544 ETURN (2) WITH CHAR IN ARrrrrrrrrrrtARMD
       1457115057 5446471100 6345644050 5754544562 5164504045 7060415663 5157564046 5441471515 'OtHOLFGt SET HOLLERITH EXPANSION FLAGrr
       1155444162 1450145611 4750575446 1100435765 5664515647 4043504162 4143644562 6340121515 tMDAR'H'NtGHOLFt COUNTING CHARACTERS ?rr
       1152604156 1147505754 2111005657 3440635351 6040645740 6062574345 6363406165 5764454440 tJPANtGHOL1t NO, SKIP TO PROCESS QUOTED 
       6364625156 4715151515 1515151515 1155444162 1470145014 5611475057 5446110043 5765566440 STRINGrrrrrrrrrtMDAR'X'H'NtGHOLFt COUNT 
       4457564540 1215151515 1152604156 1147505754 2311007145 6334405265 5560406457 4046515651 DONE ?rrrrtJPANtGHOL3t YES, JUMP TO FINI
       6350151515 1515151515 1152606362 1147436364 1100455463 4534404745 6440564570 6440636441 SHrrrrrrrrtJPSRtGCSTt ELSE, GET NEXT STA
       6445554556 6440435041 6215151515 1152655560 1151544743 5011004556 4440574640 4341624440 TEMENT CHARrrrrtJUMPtILGCHt END OF CARD 
       5154544547 4154151515 1155445162 1470114750 5754431100 6245646562 5640162217 4067516450 ILLEGALrrrtMDIR'XtGHOLCt RETURN (2) WITH
       4043504162 4051564041 6215151515 1515151515 4750575421 0611526063 6211474363 6411006165  CHAR IN ARrrrrrrrrrGHOL1:tJPSRtGCSTt QU
       5764454440 6364625156 4734404745 6440564570 6440435041 6215151515 1152655560 1151544743 OTED STRING, GET NEXT CHARrrrrtJUMPtILGC
       5011004556 4440574640 6364625156 4740515454 4547415415 1515151515 1155447057 1147505754 Ht END OF STRING ILLEGALrrrrrrtMDXOtGHOL
       4611004556 4440616557 6445401215 1152605463 1147505754 2211005657 3440635351 6015151515 Ft END QUOTE ?rtJPLStGHOL2t NO, SKIPrrrr
       1515151515 1141627057 1446151515 1141625544 1150575446 4715151515 1152606362 1147436311 rrrrrtARXO'FrrrtARMDtHOLFGrrrrtJPSRtGCSt
       0071456334 4046456443 5040415657 6450456240 4350416215 1155447057 1147505754 4611004465  YES, FETCH ANOTHER CHARrtMDXOtGHOLFt DU
       6054514341 6445406165 5764456340 1215151515 1154635162 1143506341 6615151515 1154635162 PLICATE QUOTES ?rrrrtLSIRtCHSAVrrrrtLSIR
       1147505754 4315151515 1515151515 4750575422 0611554470 5711475057 5446110062 4563645762 tGHOLCrrrrrrrrrGHOL2:tMDXOtGHOLFt RESTOR
       4540435041 6215151515 1155445162 1470114750 5754431100 4156444062 4564656256 4016221715 E CHARrrrrtMDIR'XtGHOLCt AND RETURN (2)r
       1515151515 4750575423 0611416270 5714461111 0043544541 6240505754 5445625164 5040457060 rrrrrGHOL3:tARXO'Ftt CLEAR HOLLERITH EXP
       4156635157 5640465441 4715151515 1141625544 1150575446 4715151515 1155445162 1147505754 ANSION FLAGrrrrtARMDtHOLFGrrrrtMDIRtGHOL
       4311006245 6465625640 1621173440 4556444057 4640636462 5156471515 1515151515 4750575446 Ct RETURN (1), END OF STRINGrrrrrrrGHOLF
       0611112011 0043504162 4043576556 6437616557 6445444046 5441471515 4750575463 0611112011 :tt0t CHAR COUNT/QUOTED FLAGrrGHOLS:tt0t
       0063416645 4440435041 6241436445 6240465441 4715151515 1515151515 1515151515 7777700000  SAVED CHARACTER FLAGrrrrrrrrrrrrrrbbX  
       3127546570 3127546570 3127546570 3127546570 3127546570 3127546570 3127546570 3127546570 97LUX97LUX97LUX97LUX97LUX97LUX97LUX97LUX
       3127546570 3127546570                                                                   97LUX97LUX
  640: 0001300012 4664562022 1361200162 3414400000 0040474564 4056457064 4067576244 4057464050  %8 ?FTN02"Q0%R,'     GET NEXT WORD OF H
       5754544562 5164504043 5756636441 5664151515 1515151515 4750575467 0611526555 6011361100 OLLERITH CONSTANTrrrrrrrrGHOLW:tJUMPt.t 
       4556646271 1515151515 1141627057 1446111100 4354454162 4060414353 5156474067 5762441515 ENTRYrrrrrtARXO'Ftt CLEAR PACKING WORDrr
       1141625544 1160435067 4415151515 1141625544 1457116043 5043641100 4156444051 5651645141 tARMDtPCHWDrrrrtARMD'OtPCHCTt AND INITIA
       5451724540 6041435351 5647404357 6556641515 1515151515 4750575424 0611526063 6211475057 LIZE PACKING COUNTrrrrrrrGHOL4:tJPSRtGHO
       5443110047 4564405645 7064404350 4162414364 4562151515 1155445162 1147505754 6711006245 LCt GET NEXT CHARACTERrrrtMDIRtGHOLWt RE
       6465625640 1621174051 4640455644 1515151515 1515151515 1152606362 1160435011 0045546345 TURN (1) IF ENDrrrrrrrrrrtJPSRtPCHt ELSE
       3440604143 5340435041 6241436445 6215151515 1152655560 1136102211 0063535160 4051464067 , PACK CHARACTERrrrrtJUMPt.+2t SKIP IF W
       5762444046 6554541515 1152655560 1147505754 2411004554 6345344054 5757604046 5762405645 ORD FULLrrtJUMPtGHOL4t ELSE, LOOP FOR NE
       7064404350 4162414364 4562151515 1515151515 1152606362 1147505754 4311006757 6244404665 XT CHARACTERrrrrrrrrtJPSRtGHOLCt WORD FU
       5454344041 5671405557 6245406457 4046575454 5767401215 1155445162 1147505754 6711005657 LL, ANY MORE TO FOLLOW ?rtMDIRtGHOLWt NO
       3440624564 6562564016 2117344045 5644151515 1515151515 1141625544 1147505754 6311004554 , RETURN (1), ENDrrrrrrrrtARMDtGHOLSt EL
       6345344063 4166454043 5041624046 5762405645 7064404341 5454151515 1155444162 1160435067 SE, SAVE CHAR FOR NEXT CALLrrrtMDARtPCHW
       4411004645 6443504060 4143534544 4067576244 1515151515 1155445162 1470114750 5754671100 Dt FETCH PACKED WORDrrrrrtMDIR'XtGHOLWt 
       4156444062 4564656256 4016221715 1515151515 1515151515 7777700000 6601067332 6601067332 AND RETURN (2)rrrrrrrrrrrbbX  V%:$;V%:$;
       6601067332 6601067332 6601067332 6601067332 6601067332 6601067332 6601067332 6601067332 V%:$;V%:$;V%:$;V%:$;V%:$;V%:$;V%:$;V%:$;
 1465: 0001400012 4664562022 1361200427 3414400000 0040474564 4056457064 4067576244 4057464041  %  ?FTN02"Q0&7,'     GET NEXT WORD OF A
       6343515140 4357566364 4156641515 1515151515 4741634367 0611526555 6011361100 4556646271 SCII CONSTANTrrrrrrrGASCW:tJUMPt.t ENTRY
       1515151515 1141627057 1446111100 4354454162 4060414353 5156474067 5762441515 1141625544 rrrrrtARXO'Ftt CLEAR PACKING WORDrrtARMD
       1141634331 3115151515 1155444162 1446114163 4364423521 1100634564 6560406057 5156644562 tASC99rrrrtMDAR'FtASCTB-1t SETUP POINTER
       4064574063 5051466440 6441425445 1515151515 1141625544 1141634331 3015151515 1155444162  TO SHIFT TABLErrrrrtARMDtASC98rrrrtMDAR
       1147505754 6311006341 6645444043 5041624046 6257554054 4163644043 4154544012 1515151515 tGHOLSt SAVED CHAR FROM LAST CALL ?rrrrr
       1152604156 1136102311 0056573440 6353516015 1515151515 1141625544 1457114750 5754631100 tJPANt.+3t NO, SKIPrrrrrrtARMD'OtGHOLSt 
       7145633440 6345644056 5740634166 4544404350 4162151515 1152655560 1141634321 2211004156 YES, SET NO SAVED CHARrrrtJUMPtASC12t AN
       4440526555 6040645740 6062574345 6363151515 1515151515 4163432021 0611526063 6211475057 D JUMP TO PROCESSrrrrrrrrASC01:tJPSRtGHO
       5443110047 4564405645 7064406364 6251564740 4350416215 1152655560 1141634321 2411005265 LCt GET NEXT STRING CHARrtJUMPtASC14t JU
       5560405146 4045564415 1515151515 1155447057 1446110275 1100137513 4012151515 1152605463 MP IF ENDrrrrrrtMDXO'Ftc@t "@" ?rrrtJPLS
       1141634320 3111005657 3440635351 6015151515 1515151515 1152606362 1147505754 4311007145 tASC09t NO, SKIPrrrrrrrrrtJPSRtGHOLCt YE
       6334404745 6440564570 6440636462 5156474043 5041621515 1152655560 1141634345 6211004556 S, GET NEXT STRING CHARrrtJUMPtASCERt EN
       4440515454 4547415415 1515151515 1152606362 1143506471 6011004350 4543534051 6463404350 D ILLEGALrrrrrrtJPSRtCHTYPt CHECK ITS CH
       4162414364 4562406471 6045151515 1152655560 1136102211 0052655560 4051464063 6045435141 ARACTER TYPErrrtJUMPt.+2t JUMP IF SPECIA
       5415151515 1152655560 1141634320 3011005265 5560405146 4044514751 6415151515 1515151515 LrrrrtJUMPtASC08t JUMP IF DIGITrrrrrrrrr
       1152606362 1144636043 5011004451 6360416443 5040575640 6360454351 4154405760 4562416457 tJPSRtDSPCHt DISPATCH ON SPECIAL OPERATO
       6240363636 1515151515 1102410350 1141634320 2311004040 1341133440 6345644045 5754404251 R ...rrrrrtcA!HtASC03t   "A", SET EOL BI
       6440411515 1102720350 1141634320 2411004040 1372133440 6345644045 5754404251 6440421515 T ArrtcZ!HtASC04t   "Z", SET EOL BIT Brr
       1102760350 1141634320 2511004040 1376133440 6345644065 6060456240 4341634515 1102040350 tc+!HtASC05t   "+", SET UPPER CASErtc&!H
       1141634320 2611004040 1304133440 6345644054 5767456240 4341634515 1102360350 1141634320 tASC06t   "&", SET LOWER CASErtc.!HtASC0
       2711004040 1336133440 4651545440 5765644067 5762444067 5164504056 6554546315 1121250350 7t   ".", FILL OUT WORD WITH NULLSrt15!H
       1141634320 2111004040 4337623440 5565636440 4245404144 4560644055 5744453440 5147565762 tASC01t   C/R, MUST BE ADEPT MODE, IGNOR
       4515151515 1124200350 1141634321 2511004040 4254415653 3440634341 5640645740 5645706440 Errrrt40!HtASC15t   BLANK, SCAN TO NEXT 
       5657563542 5441565315 1135201515 1515151515 1155444162 1450114350 6471461100 5764504562 NON-BLANKrt-0rrrrrrrtMDAR'HtCHTYFt OTHER
       3440464564 4350404350 4162414364 4562406441 4254454067 5762441515 1152604156 1136102411 , FETCH CHARACTER TABLE WORDrrtJPANt.+4t
       0063535160 4051464066 4154514440 7540435041 6215151515 1515151515 4163432022 0611526063  SKIP IF VALID @ CHARrrrrrrrrrASC02:tJPS
       6211456262 5762110045 5463453440 6741625651 5647404562 6257621515 1111456221 2325110040 RtERRORt ELSE, WARNING ERRORrrttER135t  
       4016515454 4547415440 4163435151 4075406345 6165455643 4517151515 1152655560 1141634320  (ILLEGAL ASCII @ SEQUENCE)rrrtJUMPtASC0
       2111005457 5760404657 6240564570 6440435041 6215151515 1515151515 1141625463 1130361100 1t LOOP FOR NEXT CHARrrrrrrrrrtARLSt8.t 
       6350514664 4051564043 5756664562 6351575640 4350416215 1152655560 1141634321 2111005265 SHIFT IN CONVERSION CHARrtJUMPtASC11t JU
       5560406457 4060414353 1515151515 1515151515 4163432023 0611554441 6214501143 2111004557 MP TO PACKrrrrrrrrrrASC03:tMDAR'HtC1t EO
       5440134113 3440464564 4350404251 6440212415 1152655560 1141634321 2311005265 5560406457 L "A", FETCH BIT 14rtJUMPtASC13t JUMP TO
       4060414353 1515151515 1515151515 4163432024 0611554441 6211432111 0045575440 1342133440  PACKrrrrrrrrrrASC04:tMDARtC1t EOL "B", 
       4645644350 4042516440 2231151515 1152655560 1141634321 2311004156 4440526555 6040645740 FETCH BIT 29rrrtJUMPtASC13t AND JUMP TO 
       6041435315 1515151515 7777700000 2776433476 2776433476 2776433476 2776433476 2776433476 PACKrrrrrrbbX  7+C,+7+C,+7+C,+7+C,+7+C,+
       2776433476 2776433476 2776433476 2776433476 2776433476                                  7+C,+7+C,+7+C,+7+C,+7+C,+
 1205: 0001500012 4664562022 1361200343 3414400000 4163432025 0611416270 5714541111 0043544541  %H ?FTN02"Q0!C,'   ASC05:tARXO'Ltt CLEA
       6240465762 4065606045 6240434163 4515151515 4163432026 0611554441 6211432420 1100634564 R FOR UPPER CASErrrrASC06:tMDARtC40t SET
       4046576240 5457674562 4043416345 1515151515 1141625544 1147416343 4611006341 6645404341  FOR LOWER CASErrrrrtARMDtGASCFt SAVE CA
       6345404251 6415151515 1152655560 1141634320 2111005457 5760404657 6240564570 6440435041 SE BITrrrrtJUMPtASC01t LOOP FOR NEXT CHA
       6215151515 1515151515 4163432027 0611554441 6214461141 6343644210 2311006457 4046515454 RrrrrrrrrrASC07:tMDAR'FtASCTB+3t TO FILL
       4067516450 4056655463 3415151515 1141625544 1141634331 3011004040 6345644060 5751566445  WITH NULS,rrrrtARMDtASC98t   SET POINTE
       6240465762 4067576244 4046655454 1515151515 1152655560 1141634320 2111004156 4440545757 R FOR WORD FULLrrrrrtJUMPtASC01t AND LOO
       6040465762 4056457064 4043504162 1515151515 1515151515 4163432030 0611554470 5711432220 P FOR NEXT CHARrrrrrrrrrrASC08:tMDXOtC20
       1100474564 4021636440 4451475164 4066415465 4515151515 1141625544 1453114163 4331271100 t GET 1ST DIGIT VALUErrrrtARMD'KtASC97t 
       6341664515 1154637057 1143211100 5565636440 4245402040 5762402115 1152605463 1141634320 SAVErtLSXOtC1t MUST BE 0 OR 1rtJPLStASC0
       2211004562 6257624051 4640565764 1515151515 1515151515 1152606362 1147505754 4311004745 2t ERROR IF NOTrrrrrrrrrrtJPSRtGHOLCt GE
       6440564570 6440636462 5156474043 5041621515 1152655560 1141634345 6211004556 4440515454 T NEXT STRING CHARrrtJUMPtASCERt END ILL
       4547415415 1152606362 1143506471 6011004350 4543534046 5762404451 4751641515 1152655560 EGALrtJPSRtCHTYPt CHECK FOR DIGITrrtJUMP
       1141634320 2211004562 6257624051 4640636045 4351415415 1152655560 1136102215 1152655560 tASC02t ERROR IF SPECIALrtJUMPt.+2rtJUMP
       1141634320 2211004562 6257624051 4640544564 6445621515 1515151515 1155447057 1456114322 tASC02t ERROR IF LETTERrrrrrrrtMDXO'NtC2
       2011004745 6440225644 4057436441 5440445147 5164151515 1155444163 1446113036 1100664154 0t GET 2ND OCTAL DIGITrrrtMDAS'Ft8.t VAL
       5144405743 6441544012 1515151515 1152604156 1141634320 2211005657 3440456262 5762151515 ID OCTAL ?rrrrrtJPANtASC02t NO, ERRORrrr
       1515151515 1155444163 1446145611 3036110057 5334404745 6440445147 5164406641 5465451515 rrrrrtMDAS'F'Nt8.t OK, GET DIGIT VALUErr
       1141624162 1456144615 1141625463 1123110063 5051466440 6457406057 6351645157 5615151515 tARAR'N'FrtARLSt3t SHIFT TO POSITIONrrrr
       1155444162 1457114163 4331271100 4357554251 5645406751 6450402163 6440445147 5164151515 tMDAR'OtASC97t COMBINE WITH 1ST DIGITrrr
       1141625544 1141634331 2711004156 4440634166 4515151515 1515151515 1152606362 1147505754 tARMDtASC97t AND SAVErrrrrrrrrtJPSRtGHOL
       4311004745 6440575645 4055576245 4043504162 1515151515 1152655560 1141634345 6211004556 Ct GET ONE MORE CHARrrrrrtJUMPtASCERt EN
       4440515454 4547415415 1152606362 1143506471 6011004350 4543534046 5762404451 4751641515 D ILLEGALrtJPSRtCHTYPt CHECK FOR DIGITrr
       1152655560 1141634320 2215151515 1152655560 1136102215 1152655560 1141634320 2215151515 tJUMPtASC02rrrrtJUMPt.+2rtJUMPtASC02rrrr
       1515151515 1155447057 1456114322 2011004745 6440544163 6440445147 5164151515 1155444163 rrrrrtMDXO'NtC20t GET LAST DIGITrrrtMDAS
       1446113036 1100435045 4353405146 4066415451 4415151515 1152604156 1141634320 2215151515 'Ft8.t CHECK IF VALIDrrrrtJPANtASC02rrrr
       1515151515 1155444163 1446145611 3036151515 1141624162 1456144615 1155444162 1457114163 rrrrrtMDAS'F'Nt8.rrrtARAR'N'FrtMDAR'OtAS
       4331271100 4357554251 5645406751 6450404651 6263644064 6757151515 1152655560 1141634321 C97t COMBINE WITH FIRST TWOrrrtJUMPtASC1
       2211005265 5560406457 4060414353 4043504162 1515151515 1515151515 7777700000 0435222770 2t JUMP TO PACK CHARrrrrrrrrrrbbX  &-27X
       0435222770 0435222770 0435222770 0435222770 0435222770 0435222770 0435222770 0435222770 &-27X&-27X&-27X&-27X&-27X&-27X&-27X&-27X
       0435222770                                                                              &-27X
 1375: 0001600012 4664562022 1361200405 3414400000 4163432125 0611554441 6211414460 6446110013  %P ?FTN02"Q0&*,'   ASC15:tMDARtADPTFt "
       7540425441 5653133440 5156404144 4560644055 5744454012 1515151515 1152604156 1141634320 @ BLANK", IN ADEPT MODE ?rrrrrtJPANtASC0
       2211007145 6334405154 5445474154 1515151515 1515151515 1141625544 1150575446 4711004554 2t YES, ILLEGALrrrrrrrrrrtARMDtHOLFGt EL
       6345344043 5445416240 5057545445 6251645040 4654414715 1152606362 1147436364 1100634341 SE, CLEAR HOLLERITH FLAGrtJPSRtGCSTt SCA
       5640645740 5645706440 5657563542 5441565340 4350416215 1152655560 1141634345 6211004556 N TO NEXT NON-BLANK CHARrtJUMPtASCERt EN
       4440574640 4341624440 5154544547 4154151515 1141625544 1457114743 6363661100 6341664540 D OF CARD ILLEGALrrrtARMD'OtGCSSVt SAVE 
       4350416215 1152655560 1141634320 2111005265 5560406457 4060625743 4563634051 6415151515 CHARrtJUMPtASC01t JUMP TO PROCESS ITrrrr
       1515151515 4163432031 0611554470 5714461102 7511006245 6364576245 4043504162 1515151515 rrrrrASC09:tMDXO'Ftc@t RESTORE CHARrrrrr
       1152606362 1143506471 6011004350 4543534051 6463404350 4162414364 4562406471 6045151515 tJPSRtCHTYPt CHECK ITS CHARACTER TYPErrr
       1152655560 1141634321 2011005265 5560405146 4063604543 5141541515 1152655560 1141634321 tJUMPtASC10t JUMP IF SPECIALrrtJUMPtASC1
       2011005265 5560405146 4044514751 6415151515 1515151515 1155444162 1143506471 4611004154 0t JUMP IF DIGITrrrrrrrrrtMDARtCHTYFt AL
       6050414245 6451433440 4745644041 6343515140 4350416215 1155444162 1457114741 6343461100 PHABETIC, GET ASCII CHARrtMDAR'OtGASCFt 
       4357554251 5645406560 6045623754 5767456240 4341634540 4251641515 1152655560 1136102211 COMBINE UPPER/LOWER CASE BITrrtJUMPt.+2t
       0041564440 6353516015 1515151515 4163432120 0611554441 6211435064 7146110056 5764404140  AND SKIPrrrrrrASC10:tMDARtCHTYFt NOT A 
       5445646445 6234404745 6440416343 5151404357 4445151515 1515151515 4163432121 0611554441 LETTER, GET ASCII CODErrrrrrrrASC11:tMDA
       6214411143 2127271100 5541635340 4163435151 4043574445 1515151515 1515151515 4163432122 R'AtC177t MASK ASCII CODErrrrrrrrrrASC12
       0611554451 6214511470 1141634331 3011006350 5146644064 5740605763 5164515756 1515151515 :tMDIR'I'XtASC98t SHIFT TO POSITIONrrrrr
       1156575760 1515151515 1515151515 4163432123 0611554441 6214571141 6343313111 0043575542 tNOOPrrrrrrrrrrASC13:tMDAR'OtASC99t COMB
       5156454067 5164504060 4143535156 4740675762 4415151515 1141625544 1141634331 3111006341 INE WITH PACKING WORDrrrrtARMDtASC99t SA
       6645406041 4353515647 4067576244 1515151515 1152655560 1141634320 2111005457 5760404657 VE PACKING WORDrrrrrtJUMPtASC01t LOOP FO
       6240564570 6440435041 6215151515 1515151515 4163436442 0611416254 6311222336 1100435041 R NEXT CHARrrrrrrrrrASCTB:tARLSt23.t CHA
       6240635051 4664406441 4254451515 1141625463 1121263615 1141625463 1130361515 1141624162 R SHIFT TABLErrtARLSt16.rtARLSt8.rrtARAR
       1442144615 1152655560 1136102111 0057564067 5762444046 6554544036 3636151515 1515151515 'B'FrtJUMPt.+1t ON WORD FULL ...rrrrrrrr
       1141625544 1147505754 6311006341 6645405766 4562465457 6740435041 6240465762 4056457064 tARMDtGHOLSt SAVE OVERFLOW CHAR FOR NEXT
       4043415454 1515151515 1141624162 1470114741 6343671100 5156444570 4062456465 6256151515  CALLrrrrrtARAR'XtGASCWt INDEX RETURNrrr
       1515151515 4163432124 0611554441 6211416343 3131110057 5640455644 3440464564 4350406757 rrrrrASC14:tMDARtASC99t ON END, FETCH WO
       6244406457 4041621515 1155445162 1147416343 6711004156 4440624564 6562561515 1515151515 RD TO ARrrtMDIRtGASCWt AND RETURNrrrrrrr
       4163434562 0611526063 6211456262 5762110057 5640515454 4547415440 4556443440 6741625651 ASCER:tJPSRtERRORt ON ILLEGAL END, WARNI
       5647151515 1111456221 2325110040 4016515454 4547415440 1375134063 4561654556 4345171515 NGrrrttER135t   (ILLEGAL "@" SEQUENCE)rr
       1152655560 1141634321 2411005265 5560406457 4062456465 6256151515 1515151515 4741634346 tJUMPtASC14t JUMP TO RETURNrrrrrrrrGASCF
       0611112011 0065606045 6237545767 4562404341 6345404654 4147151515 1515151515 4163433131 :tt0t UPPER/LOWER CASE FLAGrrrrrrrrASC99
       0611112011 0064455560 4063645762 4147451515 4163433130 0611112011 0064455560 4063645762 :tt0t TEMP STORAGErrASC98:tt0t TEMP STOR
       4147451515 4163433127 0611112011 0064455560 4063645762 4147451515 1515151515 1515151515 AGErrASC97:tt0t TEMP STORAGErrrrrrrrrrrr
       7777700000 5210167207 5210167207 5210167207 5210167207 5210167207 5210167207 5210167207 bbX  J+(Z_J+(Z_J+(Z_J+(Z_J+(Z_J+(Z_J+(Z_
       5210167207 5210167207 5210167207                                                        J+(Z_J+(Z_J+(Z_
 1105: 0001700012 4664562022 1361200317 3414400000 0040455551 6440526555 6040515663 6462654364  %X ?FTN02"Q0!),'     EMIT JUMP INSTRUCT
       5157564064 5740635351 6040576645 6240565756 3545704543 6564414254 4540435744 4540514640 ION TO SKIP OVER NON-EXECUTABLE CODE IF 
       5645434563 6341627115 1515151515 4457525560 0611526555 6011361100 4556646271 1515151515 NECESSARYrrrrrrDOJMP:tJUMPt.t ENTRYrrrrr
       1155444162 1146545767 4611004654 5767404357 5664515665 5765634012 1515151515 1155444162 tMDARtFLOWFt FLOW CONTINUOUS ?rrrrrtMDAR
       1441115255 6046471100 4156444052 6555604056 5764404154 6245414471 4057656460 6564401215 'AtJMPFGt AND JUMP NOT ALREADY OUTPUT ?r
       1152604156 1136102211 0071456334 4063535160 1515151515 1155445162 1144575255 6011005657 tJPANt.+2t YES, SKIPrrrrrtMDIRtDOJMPt NO
       3440624564 6562563440 5657404143 6451575615 1515151515 1152606362 1162545762 4711004554 , RETURN, NO ACTIONrrrrrrtJPSRtRLORGt EL
       6345344065 6044416445 4043656262 4556644054 4315151515 1155444162 1157545743 1100464564 SE, UPDATE CURRENT LCrrrrtMDARtOLOCt FET
       4350404365 6262455664 4054431515 1141625544 1152556046 4711006341 6645404163 4046544147 CH CURRENT LCrrtARMDtJMPFGt SAVE AS FLAG
       4046576240 5441644562 4043504151 5635424143 5315151515 1141625544 1457115260 4156461100  FOR LATER CHAIN-BACKrrrrtARMD'OtJPANFt 
       6345644056 5764404140 1352604156 1340647160 4540526555 6015151515 1155444162 1456114762 SET NOT A "JPAN" TYPE JUMPrrrrtMDAR'NtGR
       4146471100 4762414670 4055574445 4012151515 1152604156 1136102311 0056573440 6353516015 AFGt GRAFX MODE ?rrrtJPANt.+3t NO, SKIPr
       1515151515 1155444162 1143525560 1100714563 3440464564 4350404762 4146704052 5560151515 rrrrrtMDARtCJMPt YES, FETCH GRAFX JMPrrr
       1152655560 1136102215 1515151515 1155444162 1450114324 2011004554 6345344046 4564435040 tJUMPt.+2rrrrrrtMDAR'HtC40t ELSE, FETCH 
       5541435051 5645405265 5560151515 1152606362 1157414263 1100576564 6065644064 5740574252 MACHINE JUMPrrrtJPSRtOABSt OUTPUT TO OBJ
       4543644060 6257476241 5515151515 1155445162 1144575255 6011006245 6465625615 1515151515 ECT PROGRAMrrrrtMDIRtDOJMPt RETURNrrrrrr
       5255604647 0611112011 0052655560 4051566364 6265436451 5756404555 5164644544 4046544147 JMPFG:tt0t JUMP INSTRUCTION EMITTED FLAG
       1515151515 5260415646 0611112011 0052604156 4051566364 6265436451 5756404654 4147151515 rrrrrJPANF:tt0t JPAN INSTRUCTION FLAGrrr
       1515151515 1515151515 0040435041 5156406560 4041567140 5265556040 5156636462 6543645157 rrrrrrrrrr  CHAIN UP ANY JUMP INSTRUCTIO
       5640606251 5762406457 4045555164 6451564740 4570454365 6441425445 4043574445 1515151515 N PRIOR TO EMITTING EXECUTABLE CODErrrrr
       1515151515 4350525560 0611526555 6011361100 4556646271 1515151515 1152606362 1162545762 rrrrrCHJMP:tJUMPt.t ENTRYrrrrrtJPSRtRLOR
       4711006560 4441644540 4365626245 5664405457 4144405762 5147515615 1155444162 1152556046 Gt UPDATE CURRENT LOAD ORIGINrtMDARtJMPF
       4711005265 5560405645 4544634043 5041515651 5647401215 1141565162 1143505255 6011005657 Gt JUMP NEEDS CHAINING ?rtANIRtCHJMPt NO
       3440624564 6562561515 1515151515 1152606362 1143504151 5611007145 6334404350 4151564042 , RETURNrrrrrrrtJPSRtCHAINt YES, CHAIN B
       4143534064 5045405265 5560406457 4043656262 4054431515 1141625544 1457115255 6046471100 ACK THE JUMP TO CURR LCrrtARMD'OtJMPFGt 
       6345644056 5740604556 4451564740 5265556015 1155445162 1143505255 6011006245 6465625615 SET NO PENDING JUMPrtMDIRtCHJMPt RETURNr
       1515151515 1515151515 7777700000 7750405467 7750405467 7750405467 7750405467 7750405467 rrrrrrrrrrbbX  bH LWbH LWbH LWbH LWbH LW
       7750405467 7750405467 7750405467 7750405467 7750405467                                  bH LWbH LWbH LWbH LWbH LW
 1170: 0002000012 4664562022 1361200334 3414400000 0040565762 5541544057 5645356757 6244404350  c  ?FTN02"Q0!,,'     NORMAL ONE-WORD CH
       4151564062 5765645156 4515151515 1515151515 4350415156 0611526555 6011361100 4556646271 AIN ROUTINErrrrrrrrrCHAIN:tJUMPt.t ENTRY
       1515151515 1152606362 1143504156 2111004350 4151564042 4143534043 6562624556 6440544315 rrrrrtJPSRtCHAN1t CHAIN BACK CURRENT LCr
       1120242020 2003501111 0040401643 5744454046 5762405756 4535675762 4440435041 5156171515 t04000!Htt   (CODE FOR ONE-WORD CHAIN)rr
       1155445162 1143504151 5611006245 6465625615 1515151515 1515151515 0040435041 5156404144 tMDIRtCHAINt RETURNrrrrrrrrrrr  CHAIN AD
       4462456363 4051566457 4057425245 4364404357 4445151515 1515151515 4350415621 0611526555 DRESS INTO OBJECT CODErrrrrrrrCHAN1:tJUM
       6011361100 4556646271 1515151515 1155444162 1441114155 4163531100 5541635340 4350415156 Pt.t ENTRYrrrrrtMDAR'AtAMASKt MASK CHAIN
       4060575156 6445621515 1155444162 1457145111 4350415621 1100435755 4251564540 4350415156  POINTERrrtMDAR'O'ItCHAN1t COMBINE CHAIN
       4043574445 4067516450 4041444462 4051564041 6215151515 3657636006 1152606362 1173576360  CODE WITH ADDR IN ARrrrr.OSP:tJPSRt$OSP
       1100576564 6065644064 5740574252 4543644060 6257476241 5515151515 1155444162 1157545743 t OUTPUT TO OBJECT PROGRAMrrrrtMDARtOLOC
       1100464564 4350404365 6262455664 4054431515 1152606362 1173576744 1100576564 6065644041 t FETCH CURRENT LCrrtJPSRt$OWDt OUTPUT A
       6340675762 4440645740 4350415156 1515151515 1155445162 1470114350 4156211100 6245646562 S WORD TO CHAINrrrrrtMDIR'XtCHAN1t RETUR
       5615151515 1515151515 1515151515 0040435041 5156406467 5735675762 4440624546 4562455643 Nrrrrrrrrrrrrrr  CHAIN TWO-WORD REFERENC
       4515151515 1515151515 4350415622 0611526555 6011361100 4556646271 1515151515 1152606362 ErrrrrrrrrCHAN2:tJUMPt.t ENTRYrrrrrtJPSR
       1143504156 2111004341 5454404745 5645624154 4043504151 5640625765 6451564515 1120242220 tCHAN1t CALL GENERAL CHAIN ROUTINErt0420
       2003501111 0067516450 4064675735 6757624440 6245464562 4556434540 4357444515 1155445162 0!Htt WITH TWO-WORD REFERENCE CODErtMDIR
       1143504156 2211006245 6465625615 1515151515 1515151515 0040656044 4164454043 6562624556 tCHAN2t RETURNrrrrrrrrrrr  UPDATE CURREN
       6440624554 5743416441 4254454057 4252454364 4060625747 6241554057 6251475156 4051464056 T RELOCATABLE OBJECT PROGRAM ORIGIN IF N
       4543456363 4162711515 1515151515 6254576247 0611526555 6011361100 4556646271 1515151515 ECESSARYrrrrrrrRLORG:tJUMPt.t ENTRYrrrrr
       1155444162 1456116353 6046471100 4156714063 5351606045 4440545743 4164515756 6340121515 tMDAR'NtSKPFGt ANY SKIPPED LOCATIONS ?rr
       1141565162 1162545762 4711005657 3440624564 6562561515 1515151515 1141625544 1163536046 tANIRtRLORGt NO, RETURNrrrrrrrtARMDtSKPF
       4711007145 6334404354 4541624063 5351606045 4440545743 6340465441 4715151515 1155444162 Gt YES, CLEAR SKIPPED LOCS FLAGrrrrtMDAR
       1157545743 1100464564 4350404365 6262455664 4054431515 1155444162 1457145411 1100435755 tOLOCt FETCH CURRENT LCrrtMDAR'O'Ltt COM
       4251564540 6751645040 6360454351 4154405457 4144456240 6365423543 5744451515 6254576221 BINE WITH SPECIAL LOADER SUB-CODErrRLOR1
       0611212120 2020035011 1100404016 6345644062 4554574341 6441425445 4057625147 5156171515 :t11000!Htt   (SET RELOCATABLE ORIGIN)rr
       1152606362 1173576360 1100576564 6065644063 6045435141 5440435744 4540645740 5457414445 tJPSRt$OSPt OUTPUT SPECIAL CODE TO LOADE
       6215151515 1155445162 1162545762 4711006245 6465625615 1515151515 5754574306 1111201100 RrrrrtMDIRtRLORGt RETURNrrrrrrOLOC:tt0t 
       4365626245 5664405765 6460656440 5457434164 5157561515 1515151515 1515151515 7777700000 CURRENT OUTPUT LOCATIONrrrrrrrrrrrrbbX  
       6603532320 6603532320 6603532320 6603532320 6603532320 6603532320 6603532320 6603532320 V!K30V!K30V!K30V!K30V!K30V!K30V!K30V!K30
       6603532320 6603532320                                                                   V!K30V!K30
 1030: 0002100012 4664562022 1361200300 3414400000 0040634564 4047624146 7040576564 6065644055  c+ ?FTN02"Q0! ,'     SET GRAFX OUTPUT M
       5744451515 1515151515 6364475506 1152655560 1136110045 5664627115 1155444162 1456114654 ODErrrrrrrSTGM:tJUMPt.t ENTRYrtMDAR'NtFL
       5767461100 4570454365 6441425445 4046545767 4012151515 1155444162 1457114762 4146471100 OWFt EXECUTABLE FLOW ?rrrtMDAR'OtGRAFGt 
       4156444056 5764404154 6245414471 4051564047 6241467040 5557444540 1215151515 1141625544 AND NOT ALREADY IN GRAFX MODE ?rrrrtARMD
       1457114762 4146471100 4040166345 6440476241 4670405557 4445171515 1141625544 1457114654 'OtGRAFGt   (SET GRAFX MODE)rrtARMD'OtFL
       5767461100 4040164156 4440465457 6740465441 4717151515 1141565162 1163644755 1100565734 OWFt   (AND FLOW FLAG)rrrtANIRtSTGMt NO,
       4052656364 4062456465 6256151515 1515151515 1152606362 1157637162 4611007145 6334405765  JUST RETURNrrrrrrrrtJPSRtOSYRFt YES, OU
       6460656440 1352606362 4073514144 6213406457 1515151515 1152606362 1151414462 1100404062 TPUT "JPSR $IADR" TOrrrrrtJPSRtIADRt   R
       4545566445 6240476241 4670405557 4445151515 1155445162 1163644755 1100624564 6562561515 EENTER GRAFX MODErrrtMDIRtSTGMt RETURNrr
       1515151515 1515151515 0040634564 4056576255 4154405541 4350515645 4041636345 5542547140 rrrrrrrrrr  SET NORMAL MACHINE ASSEMBLY 
       5557444515 1515151515 6364415506 1152655560 1136110045 5664627115 1155444162 1456114762 MODErrrrrrSTAM:tJUMPt.t ENTRYrtMDAR'NtGR
       4146471100 4154624541 4471405156 4055414350 5156454055 5744454012 1515151515 1152604156 AFGt ALREADY IN MACHINE MODE ?rrrrrtJPAN
       1136102311 0071456334 4063535160 1515151515 1141625544 1147624146 4711005657 3440624563 t.+3t YES, SKIPrrrrrtARMDtGRAFGt NO, RES
       4564404762 4146704055 5744451515 1155444162 1456114654 5767461100 4570454365 6441425445 ET GRAFX MODErrtMDAR'NtFLOWFt EXECUTABLE
       4046545767 4057564012 1515151515 1141625544 1457114654 5767461100 4040166345 6440457045  FLOW ON ?rrrrrtARMD'OtFLOWFt   (SET EXE
       4365644142 5445404654 5767171515 1141565162 1163644155 1100565734 4052656364 4062456465 CUTABLE FLOW)rrtANIRtSTAMt NO, JUST RETU
       6256151515 1515151515 1155444162 1454111100 7145633440 5765646065 6440476241 4670401345 RNrrrrrrrrtMDAR'Ltt YES, OUTPUT GRAFX "E
       6343131515 1125272020 2003501111 0040406457 4045705164 4047624146 7040555744 4515151515 SC"rrt57000!Htt   TO EXIT GRAFX MODErrrr
       1152606362 1157414263 1515151515 1155445162 1163644155 1100624564 6562561515 1515151515 tJPSRtOABSrrrrrtMDIRtSTAMt RETURNrrrrrrr
       1515151515 0040634564 4056456740 6245545743 4164414254 4540545743 4164515756 4057625147 rrrrr  SET NEW RELOCATABLE LOCATION ORIG
       5156151515 1515151515 6345645443 0611526555 6011361100 4556646271 1515151515 1141625544 INrrrrrrrrSETLC:tJUMPt.t ENTRYrrrrrtARMD
       1157545743 1100634564 4056456740 5443151515 1141625544 1457116353 6046471100 6345644064 tOLOCt SET NEW LCrrrtARMD'OtSKPFGt SET T
       5740656044 4164454054 5741444057 6251475156 1515151515 1152606362 1162545762 4711006345 O UPDATE LOAD ORIGINrrrrrtJPSRtRLORGt SE
       6440564567 4062455457 4341644142 5445405762 5147515615 1155445162 1163456454 4311006245 T NEW RELOCATABLE ORIGINrtMDIRtSETLCt RE
       6465625615 1515151515 1515151515 7777700000 3635157436 3635157436 3635157436 3635157436 TURNrrrrrrrrrrrbbX  .-r#..-r#..-r#..-r#.
       3635157436 3635157436 3635157436 3635157436 3635157436 3635157436                       .-r#..-r#..-r#..-r#..-r#..-r#.
 1185: 0002200012 4664562022 1361200337 3414400000 0040576564 6065644041 4263575465 6445406757  c0 ?FTN02"Q0!/,'     OUTPUT ABSOLUTE WO
       6244405156 6457405742 5245436440 6062574762 4155151515 1515151515 5741426306 1152655560 RD INTO OBJECT PROGRAMrrrrrrrrOABS:tJUMP
       1136110045 5664627115 1152606362 1157676244 1100576564 6065644067 5762444051 5640416215 t.t ENTRYrtJPSRtOWRDt OUTPUT WORD IN ARr
       3657414206 1515151515 5741426321 0611526063 6211735741 4240404011 0040401641 4263575465 .OAB:rrrrrOABS1:tJPSRt$OAB   t   (ABSOLU
       6445171515 1155445162 1157414263 1100624564 6562561515 1515151515 1515151515 0040576564 TE)rrtMDIRtOABSt RETURNrrrrrrrrrrrr  OUT
       6065644062 4554574341 6441425445 4067576244 4051566457 4057425245 4364406062 5747624155 PUT RELOCATABLE WORD INTO OBJECT PROGRAM
       1515151515 1515151515 5762455406 1152655560 1136110045 5664627115 1152606362 1157676244 rrrrrrrrrrOREL:tJUMPt.t ENTRYrtJPSRtOWRD
       1100576564 6065644067 5762444051 5640416215 5762455421 0611526063 6211735762 4511004040 t OUTPUT WORD IN ARrOREL1:tJPSRt$OREt   
       1662455457 4341644142 5445171515 1155445162 1157624554 1100624564 6562561515 1515151515 (RELOCATABLE)rrtMDIRtORELt RETURNrrrrrrr
       1515151515 0040576564 6065644062 4554574341 6441425445 4043575555 5756406757 6244405156 rrrrr  OUTPUT RELOCATABLE COMMON WORD IN
       6457405742 5245436440 6062574762 4155151515 1515151515 5743575506 1152655560 1136110045 TO OBJECT PROGRAMrrrrrrrrOCOM:tJUMPt.t E
       5664627115 1152606362 1157676244 1100576564 6065644067 5762444051 5640416215 5743575521 NTRYrtJPSRtOWRDt OUTPUT WORD IN ARrOCOM1
       0611526063 6211735743 5511004040 1662455457 4341644142 5445406457 4043575555 5756171515 :tJPSRt$OCMt   (RELOCATABLE TO COMMON)rr
       1155445162 1157435755 1100624564 6562561515 1515151515 1515151515 0040576564 6065644057 tMDIRtOCOMt RETURNrrrrrrrrrrrr  OUTPUT O
       4252454364 4060625747 6241554067 5762441515 1515151515 5767624406 1152655560 1136110045 BJECT PROGRAM WORDrrrrrrrOWRD:tJUMPt.t E
       5664627115 1155445162 1451115767 6244110045 7045436564 4540576564 6065644043 4154541515 NTRYrtMDIR'ItOWRDt EXECUTE OUTPUT CALLrr
       1155444162 1470115754 5743110051 5644457040 4365626245 5664405443 3440415644 4051634051 tMDAR'XtOLOCt INDEX CURRENT LC, AND IS I
       6440334023 2253401215 1154635162 1470115767 6244110056 5734406245 6465625615 1141565162 T = 32K ?rtLSIR'XtOWRDt NO, RETURNrtANIR
       1470115767 6244110051 4756576245 4045626240 5146405765 6460656440 4154624541 4471404462 'XtOWRDt IGNORE ERR IF OUTPUT ALREADY DR
       5760604544 1515151515 1515151515 1152606362 1145626257 6211004554 6345344045 6262576215 OPPEDrrrrrrrrrrtJPSRtERRORt ELSE, ERRORr
       1111456225 2311004040 1657425245 4364406062 5747624155 4064575740 5441624745 1715151515 ttER53t   (OBJECT PROGRAM TOO LARGE)rrrr
       1155445162 1470115767 6244110062 4564656256 1515151515 1515151515 1515151515 0040635351 tMDIR'XtOWRDt RETURNrrrrrrrrrrrrrrr  SKI
       6040675762 4440515640 5742524543 6440606257 4762415515 1515151515 6353605443 0611526555 P WORD IN OBJECT PROGRAMrrrrrrSKPLC:tJUM
       6011361100 4556646271 1515151515 1141625544 1457116353 6046471100 6345644063 5351606045 Pt.t ENTRYrrrrrtARMD'OtSKPFGt SET SKIPPE
       4440545743 4164515756 6340465441 4715151515 1152606362 1157676244 1100434154 5440576564 D LOCATIONS FLAGrrrrtJPSRtOWRDt CALL OUT
       6065644067 5762444062 5765645156 4515151515 1141624162 1446111100 4040166751 6450404465 PUT WORD ROUTINErrrrtARAR'Ftt   (WITH DU
       5555714057 6564606564 4043415454 1715151515 1155445162 1163536054 4311006245 6465625615 MMY OUTPUT CALL)rrrrtMDIRtSKPLCt RETURNr
       1515151515 6353604647 0611112011 0063535160 6045444054 5743416451 5756404654 4147151515 rrrrrSKPFG:tt0t SKIPPED LOCATION FLAGrrr
       1515151515 1515151515 7777700000 6522245661 6522245661 6522245661 6522245661 6522245661 rrrrrrrrrrbbX  U24NQU24NQU24NQU24NQU24NQ
       6522245661 6522245661 6522245661 6522245661 6522245661                                  U24NQU24NQU24NQU24NQU24NQ
 1355: 0002300012 4664562022 1361200401 3414400000 0040634554 4543644043 5755555756 4042545743  c8 ?FTN02"Q0&%,'     SELECT COMMON BLOC
       5340465762 4044416441 4054574144 5156471515 1515151515 6364435544 0611526555 6011361100 K FOR DATA LOADINGrrrrrrrSTCMD:tJUMPt.t 
       4556646271 4016637155 4257544060 6462405156 4041621715 1152606362 1163644357 5511006345 ENTRY (SYMBOL PTR IN AR)rtJPSRtSTCOMt SE
       5445436440 4357555557 5640425457 4353151515 4342545344 0611112011 0040401643 6562624556 LECT COMMON BLOCKrrrCBLKD:tt0t   (CURREN
       6440425457 4353404657 6240444164 4140545741 4451564717 1515151515 1120232220 2003501111 T BLOCK FOR DATA LOADING)rrrrrt03200!Htt
       0040401654 5741444562 4046544147 6340465762 4063455445 4364171515 1155445162 1163644355    (LOADER FLAGS FOR SELECT)rrtMDIRtSTCM
       4411006245 6465625615 1515151515 1515151515 0040634554 4543644043 5755555756 4042545743 Dt RETURNrrrrrrrrrrr  SELECT COMMON BLOC
       5340465762 4043575555 5756406245 5457434164 5157561515 1515151515 6364435562 0611526555 K FOR COMMON RELOCATIONrrrrrrrSTCMR:tJUM
       6011361100 4556646271 4016637155 4257544060 6462405156 4041621715 1152606362 1163644357 Pt.t ENTRY (SYMBOL PTR IN AR)rtJPSRtSTCO
       5511006345 5445436440 4357555557 5640425457 4353151515 4342545362 0611112011 0040401643 Mt SELECT COMMON BLOCKrrrCBLKR:tt0t   (C
       6562624556 6440425457 4353404657 6240624554 5743416451 5756171515 1120232120 2003501111 URRENT BLOCK FOR RELOCATION)rrt03100!Htt
       0040401654 5741444562 4046544147 6340465762 4063455445 4364515756 1715151515 1155445162    (LOADER FLAGS FOR SELECTION)rrrrtMDIR
       1163644355 6211006245 6465625615 1515151515 1515151515 0040634564 4046576240 4357555557 tSTCMRt RETURNrrrrrrrrrrr  SET FOR COMMO
       5640444164 4140545741 4451564740 4156443757 6240435755 5557564062 4554574341 6451575615 N DATA LOADING AND/OR COMMON RELOCATIONr
       1515151515 6364435755 0611526555 6011361100 4556646271 4016637155 4257544060 6462405156 rrrrrSTCOM:tJUMPt.t ENTRY (SYMBOL PTR IN
       4041621715 1155444163 1446145611 2211004445 4362455545 5664406457 4042545743 5340606462  AR)rtMDAS'F'Nt2t DECREMENT TO BLOCK PTR
       4067576244 1515151515 1141625544 1163644355 3111006341 6645151515 1155444162 1451116364  WORDrrrrrtARMDtSTCM9t SAVErrrtMDAR'ItST
       4355311100 4645644350 4042545743 5340644142 5445406057 5156644562 1515151515 1155447057 CM9t FETCH BLOCK TABLE POINTERrrrrrtMDXO
       1451116364 4357551100 6341554540 4163404365 6262455664 5471406345 5445436445 4440425457 'ItSTCOMt SAME AS CURRENTLY SELECTED BLO
       4353401215 1152605463 1136102315 1515151515 1141624162 1470116364 4357551100 7145633440 CK ?rtJPLSt.+3rrrrrrtARAR'XtSTCOMt YES, 
       6245646562 5615151515 1155445162 1470116364 4357551515 1515151515 1155447057 1451116364 RETURNrrrrtMDIR'XtSTCOMrrrrrrrtMDXO'ItST
       4357551100 5657344062 4563645762 4540425457 4353406441 4254454060 5751566445 6215151515 COMt NO, RESTORE BLOCK TABLE POINTERrrrr
       1155444162 1441144611 2727272727 1100554163 5315151515 1141625544 1451116364 4357551100 tMDAR'A'Ft77777t MASKrrrrtARMD'ItSTCOMt 
       6341664540 5645674060 6462404657 6240425457 4353406345 5445436451 5756151515 1141625544 SAVE NEW PTR FOR BLOCK SELECTIONrrrtARMD
       1163644355 3111004154 6357404657 6240515644 4570515647 1515151515 1152606362 1163644355 tSTCM9t ALSO FOR INDEXINGrrrrrtJPSRtSTCM
       5411006345 6440425457 4353405445 5647645034 4051464056 4543456363 4162711515 1155444162 Lt SET BLOCK LENGTH, IF NECESSARYrrtMDAR
       1451147011 6364435755 1100464564 4350405457 4144456240 6757624415 1141625544 1136102211 'I'XtSTCOMt FETCH LOADER WORDrtARMDt.+2t
       0041564440 6341664540 5156404341 5454151515 1152606362 1157636045 4311005765 6460656440  AND SAVE IN CALLrrrtJPSRtOSPECt OUTPUT 
       6360454351 4154405457 4144456240 4357444515 1120232020 2003501111 0040406457 4063455445 SPECIAL LOADER CODErt03000!Htt   TO SELE
       4364404357 5555575640 4254574353 1515151515 1155444162 1451147011 6364435531 1100404067 CT COMMON BLOCKrrrrrtMDAR'I'XtSTCM9t   W
       5164504051 6463405641 5545151515 1155444162 1451147011 6364435531 1515151515 1155445162 ITH ITS NAMErrrtMDAR'I'XtSTCM9rrrrrtMDIR
       1470116364 4357551100 6245646562 5615151515 1515151515 6364435531 0611112011 0064455560 'XtSTCOMt RETURNrrrrrrrrrSTCM9:tt0t TEMP
       4063645762 4147451515 1515151515 1515151515 7777700000 5575534110 5575534110 5575534110  STORAGErrrrrrrrrrrrbbX  M@KA+M@KA+M@KA+
       5575534110 5575534110 5575534110 5575534110 5575534110 5575534110 5575534110            M@KA+M@KA+M@KA+M@KA+M@KA+M@KA+M@KA+
 1525: 0002400012 4664562022 1361200443 3414400000 0040634564 4043575555 5756404254 5743534054  c  ?FTN02"Q0&C,'     SET COMMON BLOCK L
       4556476450 1515151515 1515151515 6364435554 0611526555 6011361100 4556646271 1515151515 ENGTHrrrrrrrrrrSTCML:tJUMPt.t ENTRYrrrrr
       1141625544 1163644355 3011006341 6645404254 5743534060 5751566445 6215151515 1155444162 tARMDtSTCM8t SAVE BLOCK POINTERrrrrtMDAR
       1451145311 6364435530 1100425457 4353404154 5457434164 4544407145 6440121515 1141565162 'I'KtSTCM8t BLOCK ALLOCATED YET ?rrtANIR
       1163644355 5411007145 6334406245 6465625615 1515151515 1155444162 1451145011 6364435530 tSTCMLt YES, RETURNrrrrrrtMDAR'I'HtSTCM8
       1100565734 4063456440 4254574353 4041545457 4341644544 1515151515 1155444163 1446112420 t NO, SET BLOCK ALLOCATEDrrrrrtMDAS'Ft40
       2015151515 1141625544 1451145011 6364435530 1515151515 1515151515 1155444162 1163644355 0rrrrtARMD'I'HtSTCM8rrrrrrrrrrtMDARtSTCM
       3011004745 6440425457 4353406057 5156644562 1515151515 1155444163 1446112311 0051564362 8t GET BLOCK POINTERrrrrrtMDAS'Ft3t INCR
       4555455664 4064574063 5172454067 5762441515 1141625544 1163644355 2111006341 6645151515 EMENT TO SIZE WORDrrtARMDtSTCM1t SAVErrr
       1155444162 1451145011 6364435521 1100464564 4350404254 5743534063 5172451515 1155444162 tMDAR'I'HtSTCM1t FETCH BLOCK SIZErrtMDAR
       1441145011 4155416353 1100554163 5315151515 1155444163 1446112023 2020201100 4357554251 'A'HtAMASKt MASKrrrrtMDAS'Ft03000t COMBI
       5645405457 4144456240 4357444540 6457406345 6440544556 4764501515 1141625544 1450116364 NE LOADER CODE TO SET LENGTHrrtARMD'HtST
       4355211100 6341664515 1515151515 1152606362 1157636045 4311005765 6460656440 6360454351 CM1t SAVErrrrrrtJPSRtOSPECt OUTPUT SPECI
       4154405457 4144456240 4357444515 6364435521 0611202320 2020035011 1100404064 5740634564 AL LOADER CODErSTCM1:t03000!Htt   TO SET
       4043575555 5756404254 5743534054 4556476450 1515151515 1155444162 1451147011 6364435530  COMMON BLOCK LENGTHrrrrrtMDAR'I'XtSTCM8
       1100404067 5164504043 6562624556 6440425457 4353146340 5641554515 1155444162 1451147011 t   WITH CURRENT BLOCK'S NAMErtMDAR'I'Xt
       6364435530 1515151515 1155445162 1163644355 5411006245 6465625615 1515151515 6364435530 STCM8rrrrrtMDIRtSTCMLt RETURNrrrrrrSTCM8
       0611112011 0064455560 4063645762 4147451515 1515151515 1515151515 0040576564 6065644063 :tt0t TEMP STORAGErrrrrrrrrrrr  OUTPUT S
       6045435141 5440646757 3567576244 4056415545 4043574445 4064574054 5741444562 1515151515 PECIAL TWO-WORD NAME CODE TO LOADERrrrrr
       1515151515 5763604543 0611526555 6011361100 4556646271 1515151515 1155444162 1451115763 rrrrrOSPEC:tJUMPt.t ENTRYrrrrrtMDAR'ItOS
       6045431100 4645644350 4063604543 5141544063 6542354357 4445404156 4440465441 4763151515 PECt FETCH SPECIAL SUB-CODE AND FLAGSrrr
       1141625544 1164552111 0063416645 1515151515 1155445162 1451147011 5763604543 1100464564 tARMDtTM1t SAVErrrrrtMDIR'I'XtOSPECt FET
       4350402163 6440564155 4540675762 4415151515 1141625544 1164552211 0063416645 1515151515 CH 1ST NAME WORDrrrrtARMDtTM2t SAVErrrrr
       1155445162 1451147011 5763604543 1100464564 4350402256 4440564155 4540675762 4415151515 tMDIR'I'XtOSPECt FETCH 2ND NAME WORDrrrr
       1141625544 1164552311 0063416645 1515151515 1141624162 1450145714 4611110041 5671406345 tARMDtTM3t SAVErrrrrtARAR'H'O'Ftt ANY SE
       4357564440 5641554540 1215151515 1154634162 1143422611 0071456334 4054574144 4023356757 COND NAME ?rrrrtLSARtCB6t YES, LOAD 3-WO
       6244404556 6462714046 5441474042 5164151515 1155444162 1457116455 2111004357 5542515645 RD ENTRY FLAG BITrrrtMDAR'OtTM1t COMBINE
       4067516450 4021636440 4556646271 4067576244 1515151515 1141625544 1453116455 2111006341  WITH 1ST ENTRY WORDrrrrrtARMD'KtTM1t SA
       6645402235 6757624440 5641554540 4654414715 5763604321 0611526063 6211735763 6011005765 VE 2-WORD NAME FLAGrOSPC1:tJPSRt$OSPt OU
       6460656440 6360454351 4154404357 4445406457 4057425245 4364406062 5747151515 1155444162 TPUT SPECIAL CODE TO OBJECT PROGrrrtMDAR
       1164552211 0046456443 5040216364 4056415545 4067576244 1515151515 5767624421 0611526063 tTM2t FETCH 1ST NAME WORDrrrrrOWRD1:tJPS
       6211735767 4411005765 6460656440 6457405742 5245436440 6062574762 4155151515 1155444162 Rt$OWDt OUTPUT TO OBJECT PROGRAMrrrtMDAR
       1456116455 2111004156 7140634543 5756444056 4155454012 1515151515 1141565162 1470115763 'NtTM1t ANY SECOND NAME ?rrrrrtANIR'XtOS
       6045431100 5657344062 4564656256 1515151515 1515151515 1155444162 1164552311 0071456334 PECt NO, RETURNrrrrrrrrrrtMDARtTM3t YES,
       4046456443 5040225644 4056415545 4067576244 1515151515 1152606362 1173576744 1100576564  FETCH 2ND NAME WORDrrrrrtJPSRt$OWDt OUT
       6065644064 5740574252 4543644060 6257476241 5515151515 1155445162 1470115763 6045431100 PUT TO OBJECT PROGRAMrrrrtMDIR'XtOSPECt 
       4156444062 4564656256 1515151515 1515151515 1515151515 1515151515 7777700000 0667300043 AND RETURNrrrrrrrrrrrrrrrrrrrrbbX  :W8 C
       0667300043 0667300043 0667300043 0667300043 0667300043 0667300043 0667300043 0667300043 :W8 C:W8 C:W8 C:W8 C:W8 C:W8 C:W8 C:W8 C
       0667300043                                                                              :W8 C
 1660: 0002500012 4664562022 1361200476 3414400000 0040576564 6065644062 4546456245 5643454064  cH ?FTN02"Q0&+,'     OUTPUT REFERENCE T
       5740637155 4257543440 5441424554 3440435756 6364415664 3440456443 3640515640 5742524543 O SYMBOL, LABEL, CONSTANT, ETC. IN OBJEC
       6440606257 4762415515 1515151515 5762454606 1152655560 1136110045 5664627115 1141625544 T PROGRAMrrrrrrOREF:tJUMPt.t ENTRYrtARMD
       1157624631 3111006341 6645405156 6364626543 6451575640 4156444064 4142544540 6064621515 tORF99t SAVE INSTRUCTION AND TABLE PTRrr
       1515151515 5762454621 0611554441 6214411446 1127272727 2711005541 6353406057 5156644562 rrrrrOREF1:tMDAR'A'Ft77777t MASK POINTER
       4064574064 4142544540 4556646271 1515151515 1141625544 1157624631 3011006341 6645151515  TO TABLE ENTRYrrrrrtARMDtORF98t SAVErrr
       1155444163 1446145611 2111004445 4362455545 5664406457 4066415465 4540675762 4415151515 tMDAS'F'Nt1t DECREMENT TO VALUE WORDrrrr
       1141625544 1157624631 2711006341 6645406064 6240645740 6641546545 1515151515 1155444163 tARMDtORF97t SAVE PTR TO VALUErrrrrtMDAS
       1446145611 2111004445 4362455545 5664406457 4022564440 4350415156 4067576244 1515151515 'F'Nt1t DECREMENT TO 2ND CHAIN WORDrrrrr
       1141625544 1157624631 2611006341 6645406057 5156644562 1515151515 1155444162 1143222011 tARMDtORF96t SAVE POINTERrrrrrtMDARtC20t
       0046456443 5040465441 4740425164 4046576240 6351564754 4535675762 4440624546 1515151515  FETCH FLAG BIT FOR SINGLE-WORD REFrrrrr
       1141625544 1157624631 2511006341 6645151515 1141625544 1157624631 2411004354 4541624064 tARMDtORF95t SAVErrrtARMDtORF94t CLEAR T
       6757356757 6244404570 6445625641 5440465441 4715151515 1515151515 1155444162 1157624631 WO-WORD EXTERNAL FLAGrrrrrrrrrtMDARtORF9
       3111004645 6443504051 5663646265 4364515756 4067576244 1515151515 1155444162 1441145011 9t FETCH INSTRUCTION WORDrrrrrtMDAR'A'Ht
       4155416353 1100554163 5340656060 4562355041 5446151515 1141625544 1157624631 3111006341 AMASKt MASK UPPER-HALFrrrtARMDtORF99t SA
       6645404657 6240576564 6065641515 1155444162 1141446064 4611004144 4560644055 5744454012 VE FOR OUTPUTrrtMDARtADPTFt ADEPT MODE ?
       1515151515 1152604156 1157624546 2121110071 4563344063 5351601515 1515151515 1155444162 rrrrrtJPANtOREF11t YES, SKIPrrrrrrrtMDAR
       1451145311 5762463130 1100464564 4350406371 5542575440 4654414763 1515151515 1155444162 'I'KtORF98t FETCH SYMBOL FLAGSrrrrrtMDAR
       1441114321 1100554163 5340605751 5664456240 4654414715 1155444162 1457145011 5762463131 'AtC1t MASK POINTER FLAGrtMDAR'O'HtORF99
       1100634564 4041634051 5644516245 4364404251 6440515640 5156636462 6543645157 5615151515 t SET AS INDIRECT BIT IN INSTRUCTIONrrrr
       1141625544 1450115762 4631311100 6341664540 5156636462 6543645157 5640675762 4415151515 tARMD'HtORF99t SAVE INSTRUCTION WORDrrrr
       1515151515 1155444162 1451145311 5762463130 1100464564 4350406371 5542575414 6340465441 rrrrrtMDAR'I'KtORF98t FETCH SYMBOL'S FLA
       4763151515 1155444162 1441144611 2720110055 4163534063 7155425754 4064716045 1515151515 GSrrrtMDAR'A'Ft70t MASK SYMBOL TYPErrrrr
       1155447057 1446112520 1100515541 4745406365 4260625747 6241554012 1515151515 1152605463 tMDXO'Ft50t IMAGE SUBPROGRAM ?rrrrrtJPLS
       1157624546 2121110056 5734406353 5160151515 1515151515 1155444162 1157625746 5111006245 tOREF11t NO, SKIPrrrrrrrrtMDARtOROFIt RE
       4645624556 4351564740 5746466345 6440414444 6245636340 1215151515 1154634162 1143211100 FERENCING OFFSET ADDRESS ?rrrrtLSARtC1t 
       7145633440 4645644350 4057464663 4564403340 2115151515 1155444145 1157625746 6311004144 YES, FETCH OFFSET = 1rrrrtMDAEtOROFSt AD
       4440645740 4751664556 4057464663 4564151515 1141625544 1157625746 6311006341 6645151515 D TO GIVEN OFFSETrrrtARMDtOROFSt SAVErrr
       1515151515 5762454621 2106115544 4162145114 5311576246 3130110046 4564435040 6371554257 rrrrrOREF11:tMDAR'I'KtORF98t FETCH SYMBO
       5440465441 4763151515 1155444162 1441144611 2611005541 6353405457 4341645157 5640647160 L FLAGSrrrtMDAR'A'Ft6t MASK LOCATION TYP
       4515151515 1155447057 1143261100 4570644562 5641544012 1515151515 1152605463 1157624546 ErrrrtMDXOtC6t EXTERNAL ?rrrrrtJPLStOREF
       2311005657 3440635351 6015151515 1152604156 1157624546 2211007145 6334405265 5560405146 3t NO, SKIPrrrrtJPANtOREF2t YES, JUMP IF
       4013444546 5156454413 1515151515 1515151515 1155444162 1451145011 5762463130 1100455463  "DEFINED"rrrrrrrrrrtMDAR'I'HtORF98t ELS
       4534404645 6443504063 7155425754 4046544147 6315151515 1155444162 1457114322 2011006345 E, FETCH SYMBOL FLAGSrrrrtMDAR'OtC20t SE
       6440136245 4645624556 4345441315 1141625544 1451145011 5762463130 1100634166 4515151515 T "REFERENCED"rtARMD'I'HtORF98t SAVErrrr
       1155444162 1157625746 6311004645 6443504051 5663646265 4364515756 4057464663 4564151515 tMDARtOROFSt FETCH INSTRUCTION OFFSETrrr
       1155444163 1451115762 4631261100 4144444063 7155425754 1463405746 4663456415 1141625544 tMDAS'ItORF96t ADD SYMBOL'S OFFSETrtARMD
       1157625746 6311006341 6645405645 6740515663 6462405746 4663456415 1155444162 1451115762 tOROFSt SAVE NEW INSTR OFFSETrtMDAR'ItOR
       4631271100 4645644350 4064626545 4045706445 6256415440 6371554257 5440605751 5664456215 F97t FETCH TRUE EXTERNAL SYMBOL POINTERr
       1152655560 1157624546 2111005265 5560406457 4047456440 6462654540 6057515664 4562631515 tJUMPtOREF1t JUMP TO GET TRUE POINTERSrr
       1515151515 7777700000 7456220630 7456220630 7456220630 7456220630 7456220630 7456220630 rrrrrbbX  #N2:8#N2:8#N2:8#N2:8#N2:8#N2:8
       7456220630 7456220630 7456220630 7456220630                                             #N2:8#N2:8#N2:8#N2:8
 1340: 0002600012 4664562022 1361200376 3414400000 5762454622 0611554441 6214511450 1157624631  cP ?FTN02"Q0!+,'   OREF2:tMDAR'I'HtORF9
       3011004645 6443504045 7064456256 4154406371 5542575414 6340465441 4763151515 1155444162 8t FETCH EXTERNAL SYMBOL'S FLAGSrrrtMDAR
       1441144611 2120201100 7373734045 7064456256 4154401215 1154635162 1157624546 2122110071 'A'Ft100t $$$ EXTERNAL ?rtLSIRtOREF12t Y
       4563344063 4564407373 7340465441 4715151515 1515151515 5762454621 2006115544 4162115762 ES, SET $$$ FLAGrrrrrrrrrOREF10:tMDARtOR
       5746631100 5746466345 6440334020 4012151515 1152605463 1136102211 0056573440 6353516015 OFSt OFFSET = 0 ?rrrtJPLSt.+2t NO, SKIPr
       1152655560 1157624546 2123110045 5463453440 5265556040 4657624063 5156475445 3567576244 tJUMPtOREF13t ELSE, JUMP FOR SINGLE-WORD
       4062454645 6245564345 1515151515 1515151515 1155444162 1456114144 6064461100 4144456064  REFERENCErrrrrrrrrrtMDAR'NtADPTFt ADEPT
       4055574445 4012151515 1152604156 1157624546 2122110056 5734405753 3440635351 6015151515  MODE ?rrrtJPANtOREF12t NO, OK, SKIPrrrr
       1515151515 1152606362 1145626257 6211007145 6334406741 6256515647 4045626257 6215151515 rrrrrtJPSRtERRORt YES, WARNING ERRORrrrr
       1111456222 2127110040 4016515454 4547415440 4144446245 6363404162 5164505545 6451431715 ttER217t   (ILLEGAL ADDRESS ARITHMETIC)r
       1155444162 1157625746 6311004645 6443504057 4646634564 4067576244 1515151515 1155444162 tMDARtOROFSt FETCH OFFSET WORDrrrrrtMDAR
       1441145011 4155416353 1100435445 4162405765 6440574646 6345641515 1141625544 1157625746 'A'HtAMASKt CLEAR OUT OFFSETrrtARMDtOROF
       6311006245 6364576245 1515151515 1515151515 5762454621 2306115544 4162145611 5762463124 St RESTORErrrrrrrrrrOREF13:tMDAR'NtORF94
       1100737373 4045706445 6256415440 1215151515 1152604156 1157624546 2411005657 3440576564 t $$$ EXTERNAL ?rrrrtJPANtOREF4t NO, OUT
       6065644063 5156475445 3567576244 4062454645 6245564345 1515151515 1515151515 5762454621 PUT SINGLE-WORD REFERENCErrrrrrrrrrOREF1
       2206114162 5544145711 5762463124 1100634564 4073737340 4654414715 1155444162 1157624631 2:tARMD'OtORF94t SET $$$ FLAGrtMDARtORF9
       2611004350 4156474540 6245464562 4556434540 6057515664 4562406457 4043504151 5640221515 6t CHANGE REFERENCE POINTER TO CHAIN 2rr
       1141625544 1157624631 2715151515 1155444162 1143212011 0043504156 4745406245 4645624556 tARMDtORF97rrrrtMDARtC10t CHANGE REFEREN
       4345404654 4147404251 6415151515 1141625544 1157624631 2515151515 1155444162 1141446064 CE FLAG BITrrrrtARMDtORF95rrrrtMDARtADPT
       4611004144 4560644055 5744454012 1515151515 1152604156 1157624546 2411007145 6334405765 Ft ADEPT MODE ?rrrrrtJPANtOREF4t YES, OU
       6460656440 5756454067 5762444057 5654711515 1515151515 1155444162 1157624631 3111004554 TPUT ONE WORD ONLYrrrrrrrtMDARtORF99t EL
       6345344046 4564435040 5156636462 6543645157 5615151515 1155444145 1157625746 6311004144 SE, FETCH INSTRUCTIONrrrrtMDAEtOROFSt AD
       4440574646 6345641515 1141625544 1157624631 2611006341 6645151515 1141627057 1446111100 D OFFSETrrtARMDtORF96t SAVErrrtARXO'Ftt 
       6345644057 4646634564 4033402040 4657624073 7373404350 4151564067 5762441515 1141625544 SET OFFSET = 0 FOR $$$ CHAIN WORDrrtARMD
       1157625746 6315151515 1155444162 1456114762 4146471100 4762414670 4055574445 4012151515 tOROFSrrrrtMDAR'NtGRAFGt GRAFX MODE ?rrr
       1152604156 1136102411 0056573440 6353516015 1515151515 1155444162 1454111100 7145633440 tJPANt.+4t NO, SKIPrrrrrrtMDAR'Ltt YES, 
       6345646560 4047624146 7040135665 5413405164 4555151515 1127272020 2003501515 1152655560 SETUP GRAFX "NUL" ITEMrrrt77000!HrrtJUMP
       1136102215 1515151515 1155444162 1143554451 6236541100 4350415647 4540515663 6462406457 t.+2rrrrrrtMDARtCMDIR.Lt CHANGE INSTR TO
       4013554451 6214541315 1141625544 1157624631 3115151515 1152655560 1157624546 2415151515  "MDIR'L"rtARMDtORF99rrrrtJUMPtOREF4rrrr
       1515151515 5762454623 0611554441 6214511453 1157624631 3011006371 5542575440 4445465156 rrrrrOREF3:tMDAR'I'KtORF98t SYMBOL DEFIN
       4544401215 1152604156 1157624546 2511007145 6334406353 5160151515 1152655560 1157624546 ED ?rtJPANtOREF5t YES, SKIPrrrtJUMPtOREF
       2120110045 5463453440 5265556040 6457406445 6364404657 6240574646 6345641515 1515151515 10t ELSE, JUMP TO TEST FOR OFFSETrrrrrrr
       1515151515 7777700000 0276051742 0276051742 0276051742 0276051742 0276051742 0276051742 rrrrrbbX  c+*)Bc+*)Bc+*)Bc+*)Bc+*)Bc+*)B
       0276051742 0276051742 0276051742 0276051742                                             c+*)Bc+*)Bc+*)Bc+*)B
 1360: 0002700012 4664562022 1361200402 3414400000 5762454624 0611554441 6214511157 6246312711  cX ?FTN02"Q0&c,'   OREF4:tMDAR'ItORF97t
       0046456443 5040435041 5156406641 5465451515 1155444162 1441114155 4163531100 5541635315  FETCH CHAIN VALUErrtMDAR'AtAMASKt MASKr
       1155444162 1457115762 4631311100 4357554251 5645406751 6450405156 6364626543 6451575615 tMDAR'OtORF99t COMBINE WITH INSTRUCTIONr
       1141625544 1157624631 3111006341 6645405156 6364626543 6451575640 6757624415 1515151515 tARMDtORF99t SAVE INSTRUCTION WORDrrrrrr
       1155444162 1451145011 5762463130 1100516340 6450516340 6450454046 5162636440 6245464562 tMDAR'I'HtORF98t IS THIS THE FIRST REFER
       4556434540 1215151515 1155444162 1441115762 4631251515 1152605463 1136102311 0056573440 ENCE ?rrrrtMDAR'AtORF95rrtJPLSt.+3t NO, 
       6353516015 1515151515 1155444162 1157414263 2111007145 6334406345 6440216364 4043504151 SKIPrrrrrrtMDARtOABS1t YES, SET 1ST CHAI
       5640645062 4541444041 4263575465 6445151515 1152655560 1136102215 1515151515 1155444162 N THREAD ABSOLUTErrrtJUMPt.+2rrrrrrtMDAR
       1157624554 2111006345 6440465762 4062455457 4341644142 5445404350 4151564064 5062454144 tOREL1t SET FOR RELOCATABLE CHAIN THREAD
       1515151515 1515151515 1141625544 1157624546 3011006341 6645405765 6460656440 4341545415 rrrrrrrrrrtARMDtOREF8t SAVE OUTPUT CALLr
       1155444162 1157545743 1100576564 6065644063 6457606045 4440121515 1152604156 1157624546 tMDARtOLOCt OUTPUT STOPPED ?rrtJPANtOREF
       3111007145 6334406353 5160151515 1515151515 1155444162 1451115762 4631271100 5657344046 9t YES, SKIPrrrrrrrrtMDAR'ItORF97t NO, F
       4564435040 6641546545 4067576244 1515151515 1155444162 1441145011 4155416353 1100554163 ETCH VALUE WORDrrrrrtMDAR'A'HtAMASKt MAS
       5340576564 4057544440 4350415156 4064506245 4144151515 1155444162 1457115754 5743110063 K OUT OLD CHAIN THREADrrrtMDAR'OtOLOCt S
       4564405645 6740435041 5156406450 6245414440 6457404365 6262405443 1515151515 1141625544 ET NEW CHAIN THREAD TO CURR LCrrrrrtARMD
       1451115762 4631271100 6341664540 5645674066 4154654540 6757624415 1155444162 1157624631 'ItORF97t SAVE NEW VALUE WORDrtMDARtORF9
       3111004645 6443504051 5663646265 4364515756 4041564440 4350415156 1515151515 1152655560 9t FETCH INSTRUCTION AND CHAINrrrrrtJUMP
       1157624546 2711005265 5560406457 4057464663 4564404156 4440576564 6065641515 1515151515 tOREF7t JUMP TO OFFSET AND OUTPUTrrrrrrr
       5762454625 0611554441 6214411446 1126110051 5664456256 4154406371 5542575440 1215151515 OREF5:tMDAR'A'Ft6t INTERNAL SYMBOL ?rrrr
       1152605463 1136102311 0056573440 6353516015 1515151515 1155444162 1157624554 2111007145 tJPLSt.+3t NO, SKIPrrrrrrtMDARtOREL1t YE
       6334406345 6440645740 5765646065 6440624554 5743416441 4254451515 1152655560 1157624546 S, SET TO OUTPUT RELOCATABLErrtJUMPtOREF
       2611005265 5560406457 4057656460 6564151515 1515151515 1155447057 1446112411 0041426357 6t JUMP TO OUTPUTrrrrrrrrtMDXO'Ft4t ABSO
       5465644540 6371554257 5440121515 1152605463 1136102311 0056573440 6353516040 1655656364 LUTE SYMBOL ?rrtJPLSt.+3t NO, SKIP (MUST
       4042454043 5755555756 1715151515 1515151515 1155444162 1157414263 2111007145 6334406345  BE COMMON)rrrrrrrrrtMDARtOABS1t YES, SE
       6440645740 5765646065 6440414263 5754656445 1515151515 1152655560 1157624546 2611005265 T TO OUTPUT ABSOLUTErrrrrtJUMPtOREF6t JU
       5560406457 4057656460 6564151515 1515151515 1155444162 1157624631 3011004357 5555575634 MP TO OUTPUTrrrrrrrrtMDARtORF98t COMMON,
       4046456443 5040637155 4257544060 5751566445 6215151515 1152606362 1163644355 6211006345  FETCH SYMBOL POINTERrrrrtJPSRtSTCMRt SE
       6440425457 4353404657 6240435755 5557564062 4554574341 6451575615 1155444162 1157435755 T BLOCK FOR COMMON RELOCATIONrtMDARtOCOM
       2111006345 6440645740 5765646065 6440624554 4164516645 4064574043 5755555756 1515151515 1t SET TO OUTPUT RELATIVE TO COMMONrrrrr
       1515151515 5762454626 0611416255 4411576245 4630110063 4166454057 6564606564 4043415454 rrrrrOREF6:tARMDtOREF8t SAVE OUTPUT CALL
       1515151515 1155444162 1451115762 4631271100 4645644350 4041444462 4563634066 4154654515 rrrrrtMDAR'ItORF97t FETCH ADDRESS VALUEr
       1155444162 1441114155 4163531100 5541635315 1155444162 1457115762 4631311100 4357554251 tMDAR'AtAMASKt MASKrtMDAR'OtORF99t COMBI
       5645406751 6450405760 4043574445 1515151515 1515151515 7777700000 5247071430 5247071430 NE WITH OP CODErrrrrrrrrrbbX  JG_'8JG_'8
       5247071430 5247071430 5247071430 5247071430 5247071430 5247071430 5247071430 5247071430 JG_'8JG_'8JG_'8JG_'8JG_'8JG_'8JG_'8JG_'8
  770: 0003000012 4664562022 1361200214 3414400000 5762454627 0611554441 4511576257 4663110041  !  ?FTN02"Q0c','   OREF7:tMDAEtOROFSt A
       4444404144 4462456363 4057464663 4564406457 4051566364 6265436451 5756151515 1152606362 DD ADDRESS OFFSET TO INSTRUCTIONrrrtJPSR
       1157676244 1100576564 6065644057 4252454364 4067576244 1515151515 5762454630 0611526063 tOWRDt OUTPUT OBJECT WORDrrrrrOREF8:tJPS
       6211110040 4016675164 5040416247 6555455664 4043415454 1715151515 1515151515 1155444162 Rtt   (WITH ARGUMENT CALL)rrrrrrrrrtMDAR
       1456115762 4631241100 5657644073 7373404570 6445625641 5440121515 1155444162 1457114144 'NtORF94t NOT $$$ EXTERNAL ?rrtMDAR'OtAD
       6064461100 5762405156 4041444560 6440555744 4540121515 1152604156 1136102311 0071456334 PTFt OR IN ADEPT MODE ?rrtJPANt.+3t YES,
       4063535160 1515151515 1515151515 1155444162 1157624631 2611004554 6345344046 4564435040  SKIPrrrrrrrrrrtMDARtORF96t ELSE, FETCH 
       6462654540 5156636462 6543645157 5615151515 1152606362 1157414263 1100576564 6065644041 TRUE INSTRUCTIONrrrrtJPSRtOABSt OUTPUT A
       4263575465 6445151515 1515151515 5762454631 0611554441 6214511450 1157624631 3011004645 BSOLUTErrrrrrrrOREF9:tMDAR'I'HtORF98t FE
       6443504063 7155425754 4046544147 6315151515 1155444162 1457115762 4631251100 6345644062 TCH SYMBOL FLAGSrrrrtMDAR'OtORF95t SET R
       4546456245 5643454415 1141625544 1451145011 5762463130 1515151515 1141627057 1446111100 EFERENCEDrtARMD'I'HtORF98rrrrrtARXO'Ftt 
       4354454162 4041444462 4563634057 4646634564 4046576215 1141625544 1157625746 6311004040 CLEAR ADDRESS OFFSET FORrtARMDtOROFSt   
       5645706440 4341545415 1141625544 1157625746 5111004156 4440515541 4745406245 4640465441 NEXT CALLrtARMDtOROFIt AND IMAGE REF FLA
       4715151515 1155445162 1157624546 1100624564 6562561515 1515151515 5762574663 0611112011 GrrrrtMDIRtOREFt RETURNrrrrrrrOROFS:tt0t
       0041444462 4563634057 4646634564 1515151515 5762574651 0611112011 0062454645 6245564345  ADDRESS OFFSETrrrrrOROFI:tt0t REFERENCE
       4051554147 4540646265 4540465441 4715151515 1515151515 5762463131 0611112011 0064455560  IMAGE TRUE FLAGrrrrrrrrrORF99:tt0t TEMP
       4063645762 4147454036 3636151515 5762463130 0611112015 5762463127 0611112015 5762463126  STORAGE ...rrrORF98:tt0rORF97:tt0rORF96
       0611112015 5762463125 0611112015 5762463124 0611112015 1515151515 1515151515 7777700000 :tt0rORF95:tt0rORF94:tt0rrrrrrrrrrrbbX  
       5166106306 5166106306 5166106306 5166106306 5166106306 5166106306 5166106306 5166106306 IV+S:IV+S:IV+S:IV+S:IV+S:IV+S:IV+S:IV+S:
       5166106306 5166106306                                                                   IV+S:IV+S:
 1240: 0003100012 4664562022 1361200352 3414400000 0040455551 6440637163 6445554016 5764631740  !+ ?FTN02"Q0!J,'     EMIT SYSTEM (OTS) 
       4570644562 5641544062 4546456245 5643451515 1515151515 5763716246 0611526555 6011361100 EXTERNAL REFERENCErrrrrrrOSYRF:tJUMPt.t 
       4556646271 1515151515 1155444162 1157545743 1100576564 6065644044 6257606045 4440121515 ENTRYrrrrrtMDARtOLOCt OUTPUT DROPPED ?rr
       1141565162 1470115763 7162461100 7145633440 6245646562 5615151515 1515151515 1155444162 tANIR'XtOSYRFt YES, RETURNrrrrrrrrrtMDAR
       1451115763 7162461100 4645644350 4041624715 1155444162 1441145011 4155416353 1100554163 'ItOSYRFt FETCH ARGrtMDAR'A'HtAMASKt MAS
       5340515664 6265436451 5756404651 4554441515 1141625544 1164552111 0063416645 1515151515 K INTRUCTION FIELDrrtARMDtTM1t SAVErrrrr
       1155447057 1451115763 7162461100 4745644060 5751566445 6240645740 4570624546 4064414254 tMDXO'ItOSYRFt GET POINTER TO EXREF TABL
       4515151515 1141625544 1164552211 0063416645 1515151515 1155444162 1451145014 5611645522 ErrrrtARMDtTM2t SAVErrrrrtMDAR'I'H'NtTM2
       1100464564 4350404654 4147634046 5762405764 6340516445 5515151515 1155444162 1441144611 t FETCH FLAGS FOR OTS ITEMrrrrtMDAR'A'Ft
       2211007373 7340457064 4562564154 4012151515 1141625544 1164552311 0056573440 6345644046 2t $$$ EXTERNAL ?rrrtARMDtTM3t NO, SET F
       5441471515 1152605463 1157637162 2111004156 4440635351 6015151515 1515151515 1155444162 LAGrrtJPLStOSYR1t AND SKIPrrrrrrrrrtMDAR
       1164552111 0045546345 3440464564 4350405156 6364626543 6451575615 1141625544 1164552411 tTM1t ELSE, FETCH INSTRUCTIONrtARMDtTM4t
       0063416645 4051641515 1155444162 1143554451 6236541100 6345646560 4013554451 6214541340  SAVE ITrrtMDARtCMDIR.Lt SETUP "MDIR'L" 
       5156636462 6543645157 5615151515 1141625544 1164552115 1515151515 5763716221 0611554441 INSTRUCTIONrrrrtARMDtTM1rrrrrrOSYR1:tMDA
       6214511164 5522110046 4564435040 5441636440 4350415156 4060575156 6445621515 1155444162 R'ItTM2t FETCH LAST CHAIN POINTERrrtMDAR
       1441114155 4163531100 5541635315 1155444162 1457116455 2111004357 5542515645 4067516450 'AtAMASKt MASKrtMDAR'OtTM1t COMBINE WITH
       4051566364 6265436451 5756404357 4445151515 1141625544 1164552111 0063416645 1515151515  INSTRUCTION CODErrrtARMDtTM1t SAVErrrrr
       1155444162 1451116455 2211004645 6443504064 4142544540 6757624440 4147415156 1515151515 tMDAR'ItTM2t FETCH TABLE WORD AGAINrrrrr
       1155444162 1441145011 4155416353 1100554163 5340465441 4763151515 1155444162 1457115754 tMDAR'A'HtAMASKt MASK FLAGSrrrtMDAR'OtOL
       5743110063 4564404350 4151564060 5751566445 6240645740 4365626240 5443151515 1141625544 OCt SET CHAIN POINTER TO CURR LCrrrtARMD
       1451116455 2211006560 4441644540 6441425445 4067576244 1515151515 1515151515 1155444162 'ItTM2t UPDATE TABLE WORDrrrrrrrrrrtMDAR
       1164552111 0046456443 5040576564 6065644067 5762441515 1152605463 1136102311 0021636440 tTM1t FETCH OUTPUT WORDrrtJPLSt.+3t 1ST 
       5156404350 4151564012 1515151515 1515151515 1152606362 1157414263 1100714563 3440576564 IN CHAIN ?rrrrrrrrrrtJPSRtOABSt YES, OUT
       6065644041 4263575465 6445151515 1152655560 1136102211 0063535160 1515151515 1515151515 PUT ABSOLUTErrrtJUMPt.+2t SKIPrrrrrrrrrr
       1152606362 1157624554 1100565734 4057656460 6564406245 5457434164 4142544515 1515151515 tJPSRtORELt NO, OUTPUT RELOCATABLErrrrrr
       1155444162 1164552311 0073737340 6245464562 4556434540 1215151515 1154635162 1470115763 tMDARtTM3t $$$ REFERENCE ?rrrrtLSIR'XtOS
       7162461100 5657344062 4564656256 1515151515 1515151515 1155444162 1164552411 0071456334 YRFt NO, RETURNrrrrrrrrrrtMDARtTM4t YES,
       4046456443 5040646265 4540515663 6462654364 5157561515 1152606362 1157414263 1100576564  FETCH TRUE INSTRUCTIONrrtJPSRtOABSt OUT
       6065644022 5644406757 6244405746 4064675735 6757624440 6245461515 1155445162 1470115763 PUT 2ND WORD OF TWO-WORD REFrrtMDIR'XtOS
       7162461100 6245646562 5615151515 1515151515 1515151515 7777700000 7136102271 7136102271 YRFt RETURNrrrrrrrrrrrrrrbbX  Y.+2YY.+2Y
       7136102271 7136102271 7136102271 7136102271 7136102271 7136102271 7136102271 7136102271 Y.+2YY.+2YY.+2YY.+2YY.+2YY.+2YY.+2YY.+2Y
  810: 0003200012 4664562022 1361200224 3414400000 0040515643 5465444540 5457414451 5647405746  !0 ?FTN02"Q0c4,'     INCLUDE LOADING OF
       4057646340 4570644562 5641544062 4546456245 5643451515 1515151515 5156435444 0611526555  OTS EXTERNAL REFERENCErrrrrrrINCLD:tJUM
       6011361100 4556646271 1515151515 1141625544 1164552111 0063416645 4060646240 6457405764 Pt.t ENTRYrrrrrtARMDtTM1t SAVE PTR TO OT
       6340644142 5445151515 1155444162 1451116455 2111004154 6245414471 4062454645 6245564345 S TABLErrrtMDAR'ItTM1t ALREADY REFERENCE
       4440121515 1154635162 1151564354 4411007145 6334406245 6465625615 1515151515 1155444162 D ?rrtLSIRtINCLDt YES, RETURNrrrrrrtMDAR
       1457115745 7064211100 4554634534 4063456440 4570644062 4546406365 4235435744 4540515640 'OtOEXT1t ELSE, SET EXT REF SUB-CODE IN 
       6441425445 1515151515 1141625544 1451116455 2111006341 6645404654 4147634046 5762404556 TABLErrrrrtARMD'ItTM1t SAVE FLAGS FOR EN
       6462711515 1155445162 1151564354 4411006245 6465625615 1515151515 1515151515 0040576564 TRYrrtMDIRtINCLDt RETURNrrrrrrrrrrr  OUT
       6065644045 7064456256 4154404357 4445404156 4440435041 5156151515 1515151515 5745706406 PUT EXTERNAL CODE AND CHAINrrrrrrrrOEXT:
       1152655560 1136110045 5664627140 1643504151 5640675762 4440515640 4162171515 1155444162 tJUMPt.t ENTRY (CHAIN WORD IN AR)rrtMDAR
       1457145411 1100435755 4251564540 5457414445 6240636542 3543574445 1515151515 5745706421 'O'Ltt COMBINE LOADER SUB-CODErrrrrOEXT1
       0611202220 2020035011 1100404016 4570644562 5641544062 4546456245 5643451715 1152605463 :t02000!Htt   (EXTERNAL REFERENCE)rtJPLS
       1136102211 0063535160 4051464045 6645624062 4546456245 5643454415 1515151515 1155444162 t.+2t SKIP IF EVER REFERENCEDrrrrrrtMDAR
       1457145011 4322201100 4554634534 4043575542 5156454041 4263575465 6445404350 4151564046 'O'HtC20t ELSE, COMBINE ABSOLUTE CHAIN F
       5441471515 1515151515 1141625544 1136102211 0063416645 4051564057 6564606564 4063604543 LAGrrrrrrrtARMDt.+2t SAVE IN OUTPUT SPEC
       5141544043 4154541515 1152606362 1157636045 4311005765 6460656440 6360454351 4154406365 IAL CALLrrtJPSRtOSPECt OUTPUT SPECIAL SU
       4235435744 4515151515 1120222020 2003501515 1155445162 1451115745 7064110040 4016675164 B-CODErrrrt02000!HrrtMDIR'ItOEXTt   (WIT
       5040637155 4257541463 4056415545 1715151515 1155445162 1451147011 5745706415 1515151515 H SYMBOL'S NAME)rrrrtMDIR'I'XtOEXTrrrrrr
       1155445162 1470115745 7064110062 4564656256 1515151515 1515151515 1515151515 7777700000 tMDIR'XtOEXTt RETURNrrrrrrrrrrrrrrrbbX  
       2075253465 2075253465 2075253465 2075253465 2075253465 2075253465 2075253465 2075253465 0@5,U0@5,U0@5,U0@5,U0@5,U0@5,U0@5,U0@5,U
       2075253465 2075253465                                                                   0@5,U0@5,U
 1525: 0003300012 4664562022 1361200443 3414400000 0040606257 4345636340 4570644562 5641544060  !8 ?FTN02"Q0&C,'     PROCESS EXTERNAL P
       6245465170 4057564044 4543544162 4544405641 5545151515 1515151515 6364457064 0611526555 REFIX ON DECLARED NAMErrrrrrrrSTEXT:tJUM
       6011361100 4556646271 1515151515 1155444163 1446145611 2111004745 6440465441 4740425164 Pt.t ENTRYrrrrrtMDAS'F'Nt1t GET FLAG BIT
       6340466257 5540606245 4651704043 5765566415 1155447057 1457114323 1100564547 4164454041 S FROM PREFIX COUNTrtMDXO'OtC3t NEGATE A
       5644405541 6353151515 1141625544 1453116455 2111006341 6645151515 1155444162 1451145311 ND MASKrrrtARMD'KtTM1t SAVErrrtMDAR'I'Kt
       6365626011 0046456443 5040436562 6245566440 6371554257 5440465441 4763151515 1155444162 SURPt FETCH CURRENT SYMBOL FLAGSrrrtMDAR
       1441144611 2611005156 6445625641 5440647160 4540121515 1152605463 1163644570 2111005657 'A'Ft6t INTERNAL TYPE ?rrtJPLStSTEX1t NO
       3440635351 6015151515 1515151515 1155444162 1451145011 6365626011 0071456334 4062576441 , SKIPrrrrrrrrrtMDAR'I'HtSURPt YES, ROTA
       6445404654 4147631515 1155444162 1441144611 2021272020 1100444546 1444344060 5751566445 TE FLAGSrrtMDAR'A'Ft01700t DEF'D, POINTE
       6234404754 5742415434 4057624054 5156534147 4540121515 1152605463 1163644570 2211007145 R, GLOBAL, OR LINKAGE ?rrtJPLStSTEX2t YE
       6334404562 6257623440 4341561464 4055415345 4045706445 6256415415 1515151515 1155444162 S, ERROR, CAN'T MAKE EXTERNALrrrrrrtMDAR
       1164552111 0073737340 1215151515 1155447057 1446112120 2015151515 1152605463 1136102411 tTM1t $$$ ?rrrrtMDXO'Ft100rrrrtJPLSt.+4t
       0056573440 6353516015 1515151515 1155444162 1451145011 6365626011 0071456334 4047456440  NO, SKIPrrrrrrtMDAR'I'HtSURPt YES, GET 
       4654414763 4041474151 5615151515 1155444162 1441144611 2220110041 5462454144 7140624546 FLAGS AGAINrrrrtMDAR'A'Ft20t ALREADY REF
       4562455643 4544406351 5647544535 6757624440 1215151515 1152605463 1163644570 2211007145 ERENCED SINGLE-WORD ?rrrrtJPLStSTEX2t YE
       6334404341 5614644055 4153454051 6440576645 6254417140 4570644562 5641541515 1515151515 S, CAN'T MAKE IT OVERLAY EXTERNALrrrrrrr
       1155444162 1451145014 5611636562 6011004645 6443504046 5441476340 4147415156 1515151515 tMDAR'I'H'NtSURPt FETCH FLAGS AGAINrrrrr
       1155444162 1441144611 2420110063 7155425754 4045616551 6641544556 4345444012 1515151515 tMDAR'A'Ft40t SYMBOL EQUIVALENCED ?rrrrr
       1152605463 1163644570 2011005657 3440635351 6015151515 1115151515 1152606362 1165545345 tJPLStSTEX0t NO, SKIPrrrrtrrrrtJPSRtULKE
       6111007145 6334406556 5451565340 5164404662 5755406545 6166641515 1155444162 1163656260 Qt YES, UNLINK IT FROM UEQVTrrtMDARtSURP
       1100464564 4350406355 6441424060 5751566445 6215151515 1155444163 1446145611 2211004445 t FETCH SMTAB POINTERrrrrtMDAS'F'Nt2t DE
       4362455545 5664406457 4045616551 6640675762 4415151515 1141625544 1164552211 0063416645 CREMENT TO EQUIV WORDrrrrtARMDtTM2t SAVE
       4060575156 6445621515 1155444162 1451145011 6455221100 4645644350 4045616664 4240605751  POINTERrrtMDAR'I'HtTM2t FETCH EQVTB POI
       5664456215 1155444162 1441144611 2727272727 1100554163 5315151515 1141625544 1164552211 NTERrtMDAR'A'Ft77777t MASKrrrrtARMDtTM2t
       0063416645 1515151515 1155444162 1451145011 6455221100 4156714046 5441476340 6345644046  SAVErrrrrtMDAR'I'HtTM2t ANY FLAGS SET F
       5762405164 6340456165 5166404354 4163634012 1515151515 1152605463 1163644570 2311007145 OR ITS EQUIV CLASS ?rrrrrtJPLStSTEX3t YE
       6334404562 6257623440 4341561464 4055415345 4051644045 7045646256 4154151515 1515151515 S, ERROR, CAN'T MAKE IT EXETRNALrrrrrrrr
       1155444162 1457116455 2111004554 6345344043 5755425156 4540457064 4562564154 4043574445 tMDAR'OtTM1t ELSE, COMBINE EXTERNAL CODE
       1515151515 1155444163 1446112026 2420201100 6345644045 7064456256 4154406471 6045404156 rrrrrtMDAS'Ft06400t SET EXTERNAL TYPE AN
       4440444546 1444151515 1141625544 1451145011 6455221100 6341664540 5156404561 6551664047 D DEF'DrrrtARMD'I'HtTM2t SAVE IN EQUIV G
       6257656040 4654414763 1515151515 1515151515 6364457020 0611554441 6214511450 1163656260 ROUP FLAGSrrrrrrrrrrSTEX0:tMDAR'I'HtSURP
       1100464564 4350406371 5542575414 6340465441 4763151515 1155444162 1457116455 2111004357 t FETCH SYMBOL'S FLAGSrrrtMDAR'OtTM1t CO
       5542515645 4045706445 6256415440 4357444515 1155444163 1446112624 2020110063 4564404570 MBINE EXTERNAL CODErtMDAS'Ft6400t SET EX
       6445625641 5440647160 4540415644 4044454651 5645441515 1141625544 1451145011 6365626011 TERNAL TYPE AND DEFINEDrrtARMD'I'HtSURPt
       0063416645 4056456740 4654414763 4051564063 7155425754 4045566462 7115151515 1152606362  SAVE NEW FLAGS IN SYMBOL ENTRYrrrrtJPSR
       1165545344 5511005146 4041626241 7134406556 5451565340 4662575540 6556415454 5743416444 tULKDMt IF ARRAY, UNLINK FROM UNALLOCATD
       4043505615 1155445162 1163644570 6411006245 6465625615 1515151515 7777700000 3231175463  CHNrtMDIRtSTEXTt RETURNrrrrrrbbX  ;9)LS
       3231175463 3231175463 3231175463 3231175463 3231175463 3231175463 3231175463 3231175463 ;9)LS;9)LS;9)LS;9)LS;9)LS;9)LS;9)LS;9)LS
       3231175463                                                                              ;9)LS
  645: 0003400012 4664562022 1361200163 3414400000 6364457021 0611554470 5714461126 1100637155  !  ?FTN02"Q0%S,'   STEX1:tMDXO'Ft6t SYM
       4257544041 5462454144 7140457064 4562564154 4012151515 1152605463 1163644570 2211005657 BOL ALREADY EXTERNAL ?rrrtJPLStSTEX2t NO
       3440456262 5762344043 4156146440 5541534540 5164404570 6445625641 5415151515 1515151515 , ERROR, CAN'T MAKE IT EXTERNALrrrrrrrrr
       1155444162 1451145011 6365626011 0071456334 4046456443 5040637155 4257541463 4046544147 tMDAR'I'HtSURPt YES, FETCH SYMBOL'S FLAG
       6315151515 1155444162 1441144611 2320201100 5541635340 4570644562 5641544054 4566455440 SrrrrtMDAR'A'Ft300t MASK EXTERNAL LEVEL 
       4357444515 1155447057 1164552111 0063415545 4041634045 7064456256 4154406062 4546517040 CODErtMDXOtTM1t SAME AS EXTERNAL PREFIX 
       1215151515 1152635463 1145626257 6211005657 3440674162 5651564740 4562625762 1515151515 ?rrrrtJSLStERRORt NO, WARNING ERRORrrrrr
       1111456222 2411004040 1643415614 6440656345 4044514646 4562455664 4045706440 6062454651 ttER24t   (CAN'T USE DIFFERENT EXT PREFI
       7017151515 1155445162 1163644570 6411006245 6465625640 1651475657 6245406245 4465564441 X)rrrtMDIRtSTEXTt RETURN (IGNORE REDUNDA
       5664406062 4546517017 1515151515 1515151515 6364457022 0611526063 6211456262 5762110045 NT PREFIX)rrrrrrrrrrSTEX2:tJPSRtERRORt E
       6262576240 3636361515 1111456222 2511004040 1663715542 5754404154 6245414471 4044454651 RROR ...rrttER25t   (SYMBOL ALREADY DEFI
       5645444056 5764404570 6417151515 1155445162 1163644570 6411006245 6465625615 1515151515 NED NOT EXT)rrrtMDIRtSTEXTt RETURNrrrrrr
       6364457023 0611526063 6211456262 5762110046 4164415440 4562625762 4036363615 1111456222 STEX3:tJPSRtERRORt FATAL ERROR ...rttER2
       2531110040 4016457064 4562564154 3545616551 6641544556 4345404357 5646545143 6417151515 59t   (EXTERNAL-EQUIVALENCE CONFLICT)rrr
       1155445162 1163644570 6411006245 6465625615 1515151515 1515151515 7777700000 6176742633 tMDIRtSTEXTt RETURNrrrrrrrrrrrbbX  Q+#6=
       6176742633 6176742633 6176742633 6176742633 6176742633 6176742633 6176742633 6176742633 Q+#6=Q+#6=Q+#6=Q+#6=Q+#6=Q+#6=Q+#6=Q+#6=
       6176742633                                                                              Q+#6=
  965: 0003500012 4664562022 1361200263 3414400000 0040435045 4353405146 4063715542 5754406245  !H ?FTN02"Q0cS,'     CHECK IF SYMBOL RE
       6165516245 6340646757 3567576244 4045706445 6256415440 1673737317 4062454645 6245564345 QUIRES TWO-WORD EXTERNAL ($$$) REFERENCE
       1515151515 0040404040 4016416217 4033406371 5542575440 6441425445 4060575156 6445621515 rrrrr      (AR) = SYMBOL TABLE POINTERrr
       0040404062 4564656256 6340363636 1515151515 0040404040 4016211740 4057564535 6757624440     RETURNS ...rrrrr      (1)  ONE-WORD 
       6245464562 4556434515 0040404040 4016221740 4064675735 6757624440 6245464562 4556434515 REFERENCEr      (2)  TWO-WORD REFERENCEr
       1515151515 4353226744 0611526555 6011361100 4556646271 1515151515 1141625544 1164552111 rrrrrCK2WD:tJUMPt.t ENTRYrrrrrtARMDtTM1t
       0063416645 4063556441 4240605751 5664456215 1155444163 1446145611 2211004445 4362455545  SAVE SMTAB POINTERrtMDAS'F'Nt2t DECREME
       5664406457 4057464663 4564406757 6244151515 1141625544 1164552211 0041564440 6341664540 NT TO OFFSET WORDrrrtARMDtTM2t AND SAVE 
       6057515664 4562151515 1155444162 1451145314 5611645521 1100464564 4350406371 5542575414 POINTERrrrtMDAR'I'K'NtTM1t FETCH SYMBOL'
       6340465441 4763151515 1155444162 1441144611 2611004570 6445625641 5440121515 1154635162 S FLAGSrrrtMDAR'A'Ft6t EXTERNAL ?rrtLSIR
       1143532267 4411005657 3440575334 4062456465 6256401621 1715151515 1515151515 1152604156 tCK2WDt NO, OK, RETURN (1)rrrrrrrrrtJPAN
       1136102211 0045616551 6641544156 4345444045 7064456256 4154344063 5351601515 1152655560 t.+2t EQUIVALANCED EXTERNAL, SKIPrrtJUMP
       1143532267 2111004554 6345344052 6555604064 5740644563 6440465762 4073737315 1515151515 tCK2W1t ELSE, JUMP TO TEST FOR $$$rrrrrr
       1155444162 1451116455 2211005657 5635724562 5740574646 6345644012 1515151515 1154635162 tMDAR'ItTM2t NON-ZERO OFFSET ?rrrrrtLSIR
       1470114353 2267441100 7145633440 6467573567 5762444062 4546406245 6114443440 6245646562 'XtCK2WDt YES, TWO-WORD REF REQ'D, RETUR
       5640162217 1515151515 1515151515 1155444162 1451147011 6455221100 5746466345 6440575334 N (2)rrrrrrrrrrtMDAR'I'XtTM2t OFFSET OK,
       4047456440 6064624064 5740646265 4540457064 4063715542 5415151515 1155444162 1441144611  GET PTR TO TRUE EXT SYMBLrrrrtMDAR'A'Ft
       2727272727 1100554163 5315151515 1141625544 1164552111 0063416645 4056456740 6057515664 77777t MASKrrrrtARMDtTM1t SAVE NEW POINT
       4562151515 1515151515 4353226721 0611554441 6214511450 1456116455 2111004645 6443504045 ERrrrrrrrrCK2W1:tMDAR'I'H'NtTM1t FETCH E
       7064456256 4154406371 5542575414 6340465441 4763151515 1155444162 1441144611 2020212020 XTERNAL SYMBOL'S FLAGSrrrtMDAR'A'Ft00100
       1100737373 4045706445 6256415440 1215151515 1154635162 1143532267 4411005657 3440624564 t $$$ EXTERNAL ?rrrrtLSIRtCK2WDt NO, RET
       6562564016 2117151515 1155445162 1470114353 2267441100 4554634534 4062456465 6256401622 URN (1)rrrtMDIR'XtCK2WDt ELSE, RETURN (2
       1740465762 4064675735 6757624440 6245461515 1515151515 1515151515 7777700000 3711475723 ) FOR TWO-WORD REFrrrrrrrrrrrrbbX  /tGO3
       3711475723 3711475723 3711475723 3711475723 3711475723 3711475723 3711475723 3711475723 /tGO3/tGO3/tGO3/tGO3/tGO3/tGO3/tGO3/tGO3
       3711475723                                                                              /tGO3
 1220: 0003600012 4664562022 1361200346 3414400000 0040545163 6451564740 6257656451 5645634063  !P ?FTN02"Q0!F,'     LISTING ROUTINES S
       6441626440 5045624540 3636363636 1515151515 1515151515 1515151515 1515151515 1515151515 TART HERE .....rrrrrrrrrrrrrrrrrrrrrrrrr
       0040606245 6041624540 4657624057 6564606564 4057464056 4567405451 6364515647 4054515645   PREPARE FOR OUTPUT OF NEW LISTING LINE
       1515151515 1515151515 5645675456 0611526555 6011361100 4556646271 1515151515 1155444162 rrrrrrrrrrNEWLN:tJUMPt.t ENTRYrrrrrtMDAR
       1456114552 4543461100 5645674060 4147454046 5441474063 4564401215 1152604156 1156456754 'NtEJECFt NEW PAGE FLAG SET ?rtJPANtNEWL
       2111005657 3440635351 6015151515 1515151515 1141625544 1145524543 4611007145 6334404354 1t NO, SKIPrrrrrrrrrtARMDtEJECFt YES, CL
       4541624056 4567406041 4745404654 4147151515 1155444162 1160414745 6311004651 6263644060 EAR NEW PAGE FLAGrrrtMDARtPAGESt FIRST P
       4147454012 1515151515 1152605463 1156456754 2211005657 3440526555 6040645740 5765646065 AGE ?rrrrrtJPLStNEWL2t NO, JUMP TO OUTPU
       6440604147 4515151515 1515151515 1152655560 1156456754 2311007145 6334406353 5160151515 T PAGErrrrrrrrrtJUMPtNEWL3t YES, SKIPrrr
       3657636443 6206151515 5645675421 0611526063 6211735763 6443621100 5657644056 4567406041 .OSTCR:rrrNEWL1:tJPSRt$OSTCRt NOT NEW PA
       4745344057 6564606564 4060624566 5157656340 5451564515 1155444162 1451115456 4360661100 GE, OUTPUT PREVIOUS LINErtMDAR'ItLNCPVt 
       4164406457 6040574640 5645674060 4147454012 1515151515 1152605463 1156456754 2511005657 AT TOP OF NEW PAGE ?rrrrrtJPLStNEWL5t NO
       3440635351 6015151515 1515151515 1152655560 1136102211 0071456334 4063644162 6440564567 , SKIPrrrrrrrrrtJUMPt.+2t YES, START NEW
       4060414745 1515151515 1515151515 5645675422 0611526063 6214511160 4147606611 0057656460  PAGErrrrrrrrrrNEWL2:tJPSR'ItPAGPVt OUTP
       6564404365 6262455664 4060414745 1515151515 1152606362 1144636743 5311005146 4044516360 UT CURRENT PAGErrrrrtJPSRtDSWCKt IF DISP
       5441713440 4350454353 4063675164 4350456315 1515151515 5645675423 0611416241 6214701160 LAY, CHECK SWITCHESrrrrrrNEWL3:tARAR'XtP
       4147456311 0051564445 7040604147 4540565736 1515151515 1155444162 1456115463 6446471100 AGESt INDEX PAGE NO.rrrrrtMDAR'NtLSTFGt 
       4665545440 6357656243 4540545163 6451564740 1215151515 1152604156 1156456754 2411005657 FULL SOURCE LISTING ?rrrrtJPANtNEWL4t NO
       3440635351 6015151515 1515151515 1152606362 1154635641 5511007145 6334405451 6364405742 , SKIPrrrrrrrrrtJPSRtLSNAMt YES, LIST OB
       5245436440 6062574762 4155405641 5545151515 3657466364 0611526063 6211735746 6364110057 JECT PROGRAM NAMErrr.OFST:tJPSRt$OFSTt O
       6564606564 4044454351 5541544066 4562635157 5640565736 1515151515 6364625156 4740144040 UTPUT DECIMAL VERSION NO.rrrrrSTRING '  
       6645624014 1515151515 3666456263 0611554441 6211736645 6263151515 1141626263 1126151515 VER 'rrrrr.VERS:tMDARt$VERSrrrtARRSt6rrr
       1152606362 1157444543 6315151515 1515151515 1152606362 1173574663 6411005765 6460656440 tJPSRtODECSrrrrrrrrrtJPSRt$OFSTt OUTPUT 
       6245665163 5157564043 5041624143 6445621515 6364625156 4740144040 6245664014 1515151515 REVISION CHARACTERrrSTRING '  REV 'rrrrr
       1155444162 1173664562 6315151515 1155444162 1441144611 2727151515 1152635463 1451115743 tMDARt$VERSrrrrtMDAR'A'Ft77rrrtJSLS'ItOC
       5060661100 4040166556 5445636340 7245625717 1515151515 1515151515 1152606362 1173574663 HPVt   (UNLESS ZERO)rrrrrrrrrrtJPSRt$OFS
       6411005765 6460656440 4365626245 5664404441 6445403636 3615151515 6364625156 4740144040 Tt OUTPUT CURRENT DATE ...rrrrSTRING '  
       1415151515 3644416445 0611554441 6211734441 6445151515 1155444162 1441144611 2327110040 'rrrr.DATE:tMDARt$DATErrrtMDAR'A'Ft37t  
       4044454351 5541544044 4171405746 4055575664 5015151515 1152606362 1157444543 6315151515  DECIMAL DAY OF MONTHrrrrtJPSRtODECSrrrr
       1515151515 7777700000 1611306643 1611306643 1611306643 1611306643 1611306643 1611306643 rrrrrbbX  (t8VC(t8VC(t8VC(t8VC(t8VC(t8VC
       1611306643 1611306643 1611306643 1611306643                                             (t8VC(t8VC(t8VC(t8VC
 1185: 0003700012 4664562022 1361200337 3414400000 1155444162 1173444164 4515151515 1141626263  !X ?FTN02"Q0!/,'   tMDARt$DATErrrrtARRS
       1125151515 1155444162 1441114321 2711004040 5556455557 5651434055 5756645040 6364625156 t5rrrtMDAR'AtC17t   MNEMONIC MONTH STRIN
       4715151515 1152606362 1157644142 5415151515 1155444162 1155575664 4215151515 1515151515 GrrrrtJPSRtOTABLrrrrtMDARtMONTBrrrrrrrrr
       1155444162 1450117344 4164451515 1141624162 1453144615 1155444162 1441144611 2327110040 tMDAR'Ht$DATErrtARAR'K'FrtMDAR'A'Ft37t  
       4044454351 5541544071 4541621515 1155444163 1446112624 3615151515 1152606362 1157444543  DECIMAL YEARrrtMDAS'Ft64.rrrrtJPSRtODEC
       6315151515 1515151515 1155444162 1451114350 4360661100 4645644350 4043656262 4556644043 SrrrrrrrrrtMDAR'ItCHCPVt FETCH CURRENT C
       5041624143 6445624043 5765566415 1155444163 1446113121 3611004357 5560656445 4056456740 HARACTER COUNTrtMDAS'Ft91.t COMPUTE NEW 
       6057634046 5762404345 5664456245 4440645164 5445151515 1155444163 1456116464 5445561515 POS FOR CENTERED TITLErrrtMDAS'NtTTLENrr
       1141626263 1121151515 1152606362 1451116441 4260661100 6441424064 5740645164 5445406364 tARRSt1rrrtJPSR'ItTABPVt TAB TO TITLE ST
       4162644060 5763516451 5756151515 3657636406 1152606362 1173576364 1100576564 6065644064 ART POSITIONrrr.OST:tJPSRt$OSTt OUTPUT T
       5164544515 1111646454 4246151515 1515151515 1155444162 1446113121 3611006441 4240645740 ITLErttTTLBFrrrrrrrrtMDAR'Ft91.t TAB TO 
       6041474540 5665554245 6240465145 5444151515 1152606362 1451116441 4260661515 1152606362 PAGE NUMBER FIELDrrrtJPSR'ItTABPVrrtJPSR
       1173574663 6415151515 6364625156 4740146041 4745141515 1155444162 1160414745 6311005765 t$OFSTrrrrSTRING 'PAGE'rrtMDARtPAGESt OU
       6460656440 4445435155 4154406041 4745405665 5542456215 1152606362 1157444543 5615151515 TPUT DECIMAL PAGE NUMBERrtJPSRtODECNrrrr
       1111241515 1515151515 1152606362 1173576364 4362110057 6564606564 4050454144 4562405451 tt4rrrrrrrtJPSRt$OSTCRt OUTPUT HEADER LI
       5645151515 1152606362 1173576364 4362110057 6564606564 4042544156 5340545156 4515151515 NErrrtJPSRt$OSTCRt OUTPUT BLANK LINErrrr
       1515151515 5645675424 0611554441 6211634250 4460110041 5671406041 4745406365 4235504541 rrrrrNEWL4:tMDARtSBHDPt ANY PAGE SUB-HEA
       4445624012 1515151515 1152605463 1136102211 0071456334 4063535160 1515151515 1155445162 DER ?rrrrrtJPLSt.+2t YES, SKIPrrrrrtMDIR
       1156456754 5611005657 3440624564 6562561515 1515151515 1152606362 1451116342 5044601100 tNEWLNt NO, RETURNrrrrrrrtJPSR'ItSBHDPt 
       5765646065 6440604147 4540636542 3550454144 4562151515 1152606362 1173576364 4362110063 OUTPUT PAGE SUB-HEADERrrrtJPSRt$OSTCRt S
       6441626440 5645674054 5156451515 1155445162 1156456754 5611006245 6465625615 1515151515 TART NEW LINErrtMDIRtNEWLNt RETURNrrrrrr
       5645675425 0611554441 6214561144 6360464711 0044516360 5441715156 4740576564 6065644012 NEWL5:tMDAR'NtDSPFGt DISPLAYING OUTPUT ?
       1515151515 1141565162 1156456754 5611005657 3440624564 6562561515 1515151515 3644426546 rrrrrtANIRtNEWLNt NO, RETURNrrrrrrr.DBUF
       6006115544 4162117344 4265466011 0041644054 4541636440 2320364067 5762446340 5445466440 P:tMDARt$DBUFPt AT LEAST 30. WORDS LEFT 
       5156151515 1155444163 1446112320 3611004040 4451636054 4171404265 4646456240 4657624056 INrrrtMDAS'Ft30.t   DISPLAY BUFFER FOR N
       4570641515 3644426546 4506115544 4145145611 7344426546 4511004040 5451564540 1215151515 EXTrr.DBUFE:tMDAE'Nt$DBUFEt   LINE ?rrrr
       1141565162 1156456754 5611007145 6334406245 6465625615 1515151515 1152655560 1156456754 tANIRtNEWLNt YES, RETURNrrrrrrtJUMPtNEWL
       2211005657 3440526555 6040424143 5340645740 4657624345 4060414745 4045524543 6415151515 2t NO, JUMP BACK TO FORCE PAGE EJECTrrrr
       1515151515 1515151515 7777700000 7070014672 7070014672 7070014672 7070014672 7070014672 rrrrrrrrrrbbX  XX%FZXX%FZXX%FZXX%FZXX%FZ
       7070014672 7070014672 7070014672 7070014672 7070014672                                  XX%FZXX%FZXX%FZXX%FZXX%FZ
  580: 0004000012 4664562022 1361200146 3414400000 0040644142 5445405746 4055575664 5040644570  &  ?FTN02"Q0%F,'     TABLE OF MONTH TEX
       6440636462 5156476315 1515151515 5557566442 0611644570 6411144005 0505401415 1164457064 T STRINGSrrrrrrMONTB:tTEXTt' *** 'rtTEXT
       1114405241 5640141515 1164457064 1114404645 4240141515 1164457064 1114405541 6240141515 t' JAN 'rrtTEXTt' FEB 'rrtTEXTt' MAR 'rr
       1164457064 1114404160 6240141515 1164457064 1114405541 7140141515 1164457064 1114405265 tTEXTt' APR 'rrtTEXTt' MAY 'rrtTEXTt' JU
       5640141515 1164457064 1114405265 5440141515 1164457064 1114404165 4740141515 1164457064 N 'rrtTEXTt' JUL 'rrtTEXTt' AUG 'rrtTEXT
       1114406345 6040141515 1164457064 1114405743 6440141515 1164457064 1114405657 6640141515 t' SEP 'rrtTEXTt' OCT 'rrtTEXTt' NOV 'rr
       1164457064 1114404445 4340141515 1164457064 1114400505 0540141515 1164457064 1114400505 tTEXTt' DEC 'rrtTEXTt' *** 'rrtTEXTt' **
       0540141515 1164457064 1114400505 0540141515 1515151515 1515151515 0040576564 6065644057 * 'rrtTEXTt' *** 'rrrrrrrrrrrr  OUTPUT O
       4252454364 4060625747 6241554056 4155451515 1515151515 5463564155 0611526555 6011361100 BJECT PROGRAM NAMErrrrrrrLSNAM:tJUMPt.t 
       4556646271 1515151515 3656415545 0611554441 6211735641 5545110046 4564435040 2163644056 ENTRYrrrrr.NAME:tMDARt$NAMEt FETCH 1ST N
       4155454067 5762441515 1152606362 1157675762 4411005765 6460656415 3656415545 2206115544 AME WORDrrtJPSRtOWORDt OUTPUTr.NAME2:tMD
       4162117356 4155452211 0046456443 5040225644 4056415545 4067576244 1515151515 1152606362 ARt$NAME2t FETCH 2ND NAME WORDrrrrrtJPSR
       1157675762 4411005765 6460656415 1155445162 1154635641 5511006245 6465625615 1515151515 tOWORDt OUTPUTrtMDIRtLSNAMt RETURNrrrrrr
       1515151515 7777700000 2663767413 2663767413 2663767413 2663767413 2663767413 2663767413 rrrrrbbX  6S+#"6S+#"6S+#"6S+#"6S+#"6S+#"
       2663767413 2663767413 2663767413 2663767413                                             6S+#"6S+#"6S+#"6S+#"
 1495: 0004100012 4664562022 1361200435 3414400000 0040435045 4353404665 5643645157 5640636751  &+ ?FTN02"Q0&-,'     CHECK FUNCTION SWI
       6443504563 4041466445 6240445163 6054417140 5765646065 6415151515 1515151515 4463674353 TCHES AFTER DISPLAY OUTPUTrrrrrrrrrDSWCK
       0611526555 6011361100 4556646271 1515151515 1155444162 1456114463 6046471100 4451636054 :tJUMPt.t ENTRYrrrrrtMDAR'NtDSPFGt DISPL
       4171515647 4057656460 6564401215 1141565162 1144636743 5311005657 3440624564 6562564016 AYING OUTPUT ?rtANIRtDSWCKt NO, RETURN (
       2117151515 1515151515 1155444162 1154636446 4711006556 5445636340 5451636451 5647406357 1)rrrrrrrrtMDARtLSTFGt UNLESS LISTING SO
       6562434534 1515151515 1141625544 1142455454 4611004040 6345644064 5740625156 4740646471 URCE,rrrrrtARMDtBELLFt   SET TO RING TTY
       4042455454 4057564056 4570644045 6262576215 1155445143 1457145011 4324201100 6345644064  BELL ON NEXT ERRORrtMDIC'O'HtC40t SET T
       5740634155 6054454046 5663402135 2125151515 1163254162 1446145611 1100474564 4063675164 O SAMPLE FNS 1-15rrrtS5AR'F'Ntt GET SWIT
       4350456315 1141625544 1450145611 4656636763 1100634166 4540416340 4365626245 5664406367 CHESrtARMD'H'NtFNSWSt SAVE AS CURRENT SW
       5164435045 6315151515 1152604156 1136102611 0046566340 2140505164 4012151515 1515151515 ITCHESrrrrtJPANt.+6t FNS 1 HIT ?rrrrrrrr
       1155444162 1456114554 6364461100 7145633440 4556444057 4640635765 6243454054 5163645156 tMDAR'NtELSTFt YES, END OF SOURCE LISTIN
       4740445163 6054417140 1215151515 1141565162 1144636743 5311005657 3440624564 6562564016 G DISPLAY ?rrrrtANIRtDSWCKt NO, RETURN (
       5445644060 6251574044 5740516440 4657624065 6317151515 1515151515 1155444162 1146554160 LET PRIO DO IT FOR US)rrrrrrrrtMDARtFMAP
       4611007145 6334404657 6264554160 4044516360 5441714012 1515151515 1141565162 1154635541 Ft YES, FORTMAP DISPLAY ?rrrrrtANIRtLSMA
       6011007145 6334404142 5762644055 4160404451 6360544171 1515151515 1152655560 1146576264 Pt YES, ABORT MAP DISPLAYrrrrrtJUMPtFORT
       4556441100 5657344055 6563644042 4540465762 6462415634 4041425762 6440435755 6051544515 ENDt NO, MUST BE FORTRAN, ABORT COMPILEr
       1515151515 1141624162 1442144611 1100465663 4022405051 6440121515 1155444162 1457115463 rrrrrtARAR'B'Ftt FNS 2 HIT ?rrtMDAR'OtLS
       6463461100 4156444013 5451636463 1340634547 5545566440 4166415154 4142544540 1215151515 TSFt AND "LISTS" SEGMENT AVAILABLE ?rrrr
       1141565162 1144636743 5311005657 3440624564 6562561515 1515151515 3663454354 4406115544 tANIRtDSWCKt NO, RETURNrrrrrrr.SECLD:tMD
       4162117363 4543544411 0046456443 5040555756 5164576214 6340634543 5756444162 7140545163 ARt$SECLDt FETCH MONITOR'S SECONDARY LIS
       6451564715 1141625544 1136102211 0040404445 6651434515 1152606362 1173545163 6463110041 TINGrtARMDt.+2t   DEVICErtJPSRt$LISTSt A
       5644405765 6460656440 6343624545 5640575640 6450416440 4445665143 4515151515 1111201515 ND OUTPUT SCREEN ON THAT DEVICErrrrtt0rr
       1155444162 1144636743 5311004645 6443504045 5664627135 6057515664 1515151515 1155444163 tMDARtDSWCKt FETCH ENTRY-POINTrrrrrtMDAS
       1446145611 2211004445 4362455545 5664406457 4054574340 4245465762 4540434154 5415151515 'F'Nt2t DECREMENT TO LOC BEFORE CALLrrrr
       1141625162 1446111100 4156444062 4564656256 4064574062 4535445163 6054417140 6343624545 tARIR'Ftt AND RETURN TO RE-DISPLAY SCREE
       5615151515 1515151515 4463604647 0611112011 0044516360 5441714046 5441471515 4656636763 NrrrrrrrrrDSPFG:tt0t DISPLAY FLAGrrFNSWS
       0611112011 0043656262 4556644046 6556436451 5756406367 5164435045 6315151515 5463646346 :tt0t CURRENT FUNCTION SWITCHESrrrrLSTSF
       0611112011 0056574013 5451636463 1340415454 5767454440 4654414715 1515151515 1515151515 :tt0t NO "LISTS" ALLOWED FLAGrrrrrrrrrrr
       0040625156 4740644554 4564716045 4042455454 1515151515 1515151515 4245545406 1152655560   RING TELETYPE BELLrrrrrrrrrrBELL:tJUMP
       1136110045 5664627115 1155444162 1446112711 0046456443 5040424554 5440435744 4515151515 t.t ENTRYrtMDAR'Ft7t FETCH BELL CODErrrr
       1152606362 1173574350 6471110041 5644406471 6045405164 1515151515 1155444162 1456114463 tJPSRt$OCHTYt AND TYPE ITrrrrrtMDAR'NtDS
       6046471100 4451636054 4171515647 4012151515 1141565162 1142455454 1100565734 4062456465 PFGt DISPLAYING ?rrrtANIRtBELLt NO, RETU
       6256151515 1515151515 3663645760 6306115260 6362117363 6457606311 0045546345 3440636457 RNrrrrrrrr.STOPS:tJPSRt$STOPSt ELSE, STO
       6040424143 5347625765 5644404451 6360544171 1515151515 1155444162 1454111100 4156444062 P BACKGROUND DISPLAYrrrrrtMDAR'Ltt AND R
       4535515651 6451415451 7245405164 1515151515 1152655560 1173446360 4757151515 1141625544 E-INITIALIZE ITrrrrrtJUMPt$DSPGOrrrtARMD
       1173676421 1515151515 1155445162 1142455454 1100624564 6562561515 1515151515 1515151515 t$WT1rrrrrtMDIRtBELLt RETURNrrrrrrrrrrrr
       7777700000 0010470235 0010470235 0010470235 0010470235 0010470235 0010470235 0010470235 bbX   +Gc- +Gc- +Gc- +Gc- +Gc- +Gc- +Gc-
       0010470235 0010470235 0010470235                                                         +Gc- +Gc- +Gc-
  885: 0004200012 4664562022 1361200243 3414400000 0040634166 4540515660 6564404155 5763404350  &0 ?FTN02"Q0cC,'     SAVE INPUT AMOS CH
       4162414364 4562404657 6240545163 6451564740 5451564515 1515151515 5443506366 0611526555 ARACTER FOR LISTING LINErrrrrrLCHSV:tJUM
       6011361100 4556646271 1515151515 1155444162 1470115443 5042431100 5156444570 4060414353 Pt.t ENTRYrrrrrtMDAR'XtLCHBCt INDEX PACK
       5156474043 5765566415 1152605463 1154435063 2111005265 5560406556 5445636340 4164404556 ING COUNTrtJPLStLCHS1t JUMP UNLESS AT EN
       4440574640 6757624415 1515151515 1155444162 1154435042 6011005451 6364515647 4054515645 D OF WORDrrrrrrtMDARtLCHBPt LISTING LINE
       4042654646 4562404665 5454401215 1155447057 1446115443 5042453521 1515151515 1152605463  BUFFER FULL ?rtMDXO'FtLCHBE-1rrrrrtJPLS
       1136102311 0056573440 6353516015 1515151515 1141625544 1457115443 5042431100 7145633440 t.+3t NO, SKIPrrrrrrtARMD'OtLCHBCt YES, 
       6245634564 4060414353 5156474043 5765566415 1155445162 1154435063 6611006245 6465625640 RESET PACKING COUNTrtMDIRtLCHSVt RETURN 
       1651475657 6245404350 4162171515 1515151515 1155444162 1446112411 0051565164 5141545172 (IGNORE CHAR)rrrrrrrtMDAR'Ft4t INITIALIZ
       4540604143 5351564740 4357655664 1515151515 1141625544 1456115443 5042431100 4040465762 E PACKING COUNTrrrrrtARMD'NtLCHBCt   FOR
       4025405557 6245404350 4162631515 1155444162 1147435041 6211004645 6443504043 5041621515  5 MORE CHARSrrtMDARtGCHARt FETCH CHARrr
       1141625544 1451147011 5443504260 1100634166 4540515640 4265464640 4163402163 6440435041 tARMD'I'XtLCHBPt SAVE IN BUFF AS 1ST CHA
       6240574640 5645674067 5762441515 1155445162 1154435063 6611006245 6465625615 1515151515 R OF NEW WORDrrtMDIRtLCHSVt RETURNrrrrrr
       5443506321 0611554441 6211474350 4162110046 4564435040 4350416215 1155444162 1457145314 LCHS1:tMDARtGCHARt FETCH CHARrtMDAR'O'K'
       5111544350 4260110055 5766454051 5664574043 6562624060 4143534544 4042654646 4562406757 ItLCHBPt MOVE INTO CURR PACKED BUFFER WO
       6244151515 1141625544 1451115443 5042601100 6341664540 4265464645 6240675762 4415151515 RDrrrtARMD'ItLCHBPt SAVE BUFFER WORDrrrr
       1155445162 1154435063 6611006245 6465625615 1515151515 5443504243 0611112011 0060414353 tMDIRtLCHSVt RETURNrrrrrrLCHBC:tt0t PACK
       5156474043 5765566415 5443504260 0611112011 0042654646 4562406041 4353515647 4060575156 ING COUNTrLCHBP:tt0t BUFFER PACKING POIN
       6445621515 1515151515 5443504246 0611545743 1136102126 3611005451 6364515647 4054515645 TERrrrrrrrLCHBF:tLOCt.+16.t LISTING LINE
       4063416645 4042654646 4562151515 5443504245 0611212521 2521252125 2125111100 4040166257  SAVE BUFFERrrrLCHBE:t1515151515tt   (RO
       5755404657 6240302036 4043504162 6317151515 1515151515 1515151515 7777700000 3442754270 OM FOR 80. CHARS)rrrrrrrrrrrrrbbX  ,B@BX
       3442754270 3442754270 3442754270 3442754270 3442754270 3442754270 3442754270 3442754270 ,B@BX,B@BX,B@BX,B@BX,B@BX,B@BX,B@BX,B@BX
       3442754270                                                                              ,B@BX
 1315: 0004300012 4664562022 1361200371 3414400000 0040576564 6065644063 5765624345 4054515645  &8 ?FTN02"Q0!Y,'     OUTPUT SOURCE LINE
       4057564054 5163645156 4715151515 1515151515 5463645456 0611526555 6011361100 4556646271  ON LISTINGrrrrrrrrrLSTLN:tJUMPt.t ENTRY
       1515151515 1155444162 1456115463 6446471100 5451636451 5647406357 6562434540 6445706440 rrrrrtMDAR'NtLSTFGt LISTING SOURCE TEXT 
       1215151515 1141565162 1154636454 5611005657 3440624564 6562561515 1515151515 1155444162 ?rrrrtANIRtLSTLNt NO, RETURNrrrrrrrtMDAR
       1173606251 5754110046 5162636440 5451564540 5746405645 6740604147 4540121515 1155444163 t$PRIOLt FIRST LINE OF NEW PAGE ?rrtMDAS
       1446145611 2115151515 1155444162 1441114165 6445521100 4156444041 6564575541 6451434060 'F'Nt1rrrrtMDAR'AtAUTEJt AND AUTOMATIC P
       4147454045 5245436463 4012151515 1155444162 1457114552 4543461100 5762404154 6245414471 AGE EJECTS ?rrrtMDAR'OtEJECFt OR ALREADY
       4063456440 6457404552 4543644012 1515151515 1141625544 1145524543 4611007145 6334406345  SET TO EJECT ?rrrrrtARMDtEJECFt YES, SE
       6440645740 4552454364 4060414745 1515151515 1515151515 1155444162 1456115443 4446471100 T TO EJECT PAGErrrrrrrrrrtMDAR'NtLCDFGt 
       1354134043 4162444012 1515151515 1152604156 1136102311 0056573440 6353516015 1515151515 "L" CARD ?rrrrrtJPANt.+3t NO, SKIPrrrrrr
       1141625544 1154434446 4711007145 6334404354 4541624013 5413404341 6244404654 4147151515 tARMDtLCDFGt YES, CLEAR "L" CARD FLAGrrr
       1152655560 1154636454 2411006353 5160405766 4562405451 6364515647 1515151515 1515151515 tJUMPtLSTL4t SKIP OVER LISTINGrrrrrrrrrr
       1152606362 1156456754 5611006364 4162644056 4567405765 6460656440 5451564515 1155444162 tJPSRtNEWLNt START NEW OUTPUT LINErtMDAR
       1456116047 5456461100 6041474535 5451564540 4651455444 4044456351 6245444012 1515151515 'NtPGLNFt PAGE-LINE FIELD DESIRED ?rrrrr
       1152604156 1154636454 2211005657 3440635351 6015151515 1515151515 1155444162 1173606251 tJPANtLSTL2t NO, SKIPrrrrrrrrrtMDARt$PRI
       5760110071 4563344057 6564606564 4057436441 5440604147 4540565736 1515151515 1152606362 OPt YES, OUTPUT OCTAL PAGE NO.rrrrrtJPSR
       1173645743 6315151515 1155444162 1446110236 1100576564 6065644063 4560416241 6457624060 t$TOCSrrrrtMDAR'Ftc.t OUTPUT SEPARATOR P
       4562515744 1515151515 1152606362 1451115743 5060661515 1155444162 1173606251 5754110057 ERIODrrrrrtJPSR'ItOCHPVrrtMDARt$PRIOLt O
       6564606564 4057436441 5440545156 4540565736 1515151515 3664574363 0611526063 6211736457 UTPUT OCTAL LINE NO.rrrrr.TOCS:tJPSRt$TO
       4363151515 1515151515 5463645422 0611554441 6214461121 3036110064 4142406457 4063576562 CSrrrrrrrrLSTL2:tMDAR'Ft18.t TAB TO SOUR
       4345406364 4164455545 5664406364 4162641515 1152606362 1451116441 4260661515 1515151515 CE STATEMENT STARTrrtJPSR'ItTABPVrrrrrrr
       1152606362 1154435063 6611004651 5454405441 6364405451 5645404265 4646406757 6244406751 tJPSRtLCHSVt FILL LAST LINE BUFF WORD WI
       6450404337 6214631515 1155444162 1456115443 5042431515 1152605463 1136352215 1515151515 TH C/R'SrrtMDAR'NtLCHBCrrtJPLSt.-2rrrrrr
       1141625544 1164552111 0043544541 6240435041 6241436445 6240435765 5664151515 1155444162 tARMDtTM1t CLEAR CHARACTER COUNTrrrtMDAR
       1446115443 5042463521 1100624551 5651645141 5451724540 5451636451 5647404265 4646406064 'FtLCHBF-1t REINITIALIZE LISTING BUFF PT
       6240415644 4043566415 1141625544 1154435042 6015151515 1141625544 1457115443 5042431515 R AND CNTrtARMDtLCHBPrrrrtARMD'OtLCHBCrr
       1515151515 1155444162 1456114144 6064461100 4144456064 4055574445 4012151515 1152604156 rrrrrtMDAR'NtADPTFt ADEPT MODE ?rrrtJPAN
       1136102311 0056573440 6353516015 1515151515 1155444162 1141644142 6011007145 6334404645 t.+3t NO, SKIPrrrrrrtMDARtATABPt YES, FE
       6443504060 5751566445 6240645740 6441424054 5163641515 1152655560 1136102215 1515151515 TCH POINTER TO TAB LISTrrtJUMPt.+2rrrrrr
       1155444162 1446114320 1100565734 4063456465 6040605751 5664456240 6457404555 6064714054 tMDAR'FtC0t NO, SETUP POINTER TO EMPTY L
       5163641515 1515151515 1141625544 1154644142 6011006341 6645405156 5164514154 4064414240 ISTrrrrrrrtARMDtLTABPt SAVE INITIAL TAB 
       5451636440 6057515664 4562151515 1515151515 7777700000 2712441501 2712441501 2712441501 LIST POINTERrrrrrrrrbbX  7?Dr%7?Dr%7?Dr%
       2712441501 2712441501 2712441501 2712441501 2712441501 2712441501 2712441501            7?Dr%7?Dr%7?Dr%7?Dr%7?Dr%7?Dr%7?Dr%
 1400: 0004400012 4664562022 1361200412 3414400000 5463645423 0611554441 6214701154 4350424311  &  ?FTN02"Q0&?,'   LSTL3:tMDAR'XtLCHBCt
       0051564445 7040435041 6241436445 6240435765 5664151515 1152605463 1136102511 0063535160  INDEX CHARACTER COUNTrrrtJPLSt.+5t SKIP
       4065565445 6363404164 4045564440 5746406757 6244151515 1515151515 1155444162 1446112411  UNLESS AT END OF WORDrrrrrrrrtMDAR'Ft4t
       0063456465 6040435765 5664404657 6240254055 5762454043 5041624143 6445626315 1141625544  SETUP COUNT FOR 5 MORE CHARACTERSrtARMD
       1456115443 5042431515 1155444162 1451147014 5311544350 4260110046 4564435040 2163644043 'NtLCHBCrrtMDAR'I'X'KtLCHBPt FETCH 1ST C
       5041624057 4640564570 6440545156 4540426546 4640676244 1515151515 1152655560 1136102211 HAR OF NEXT LINE BUFF WRDrrrrrtJUMPt.+2t
       0063535160 4021636440 6451554515 1515151515 1155444162 1453116455 2211004645 6443504056  SKIP 1ST TIMErrrrrrtMDAR'KtTM2t FETCH N
       4570644043 5041624046 6257554043 6562624042 6546464067 5762441515 1515151515 1141625544 EXT CHAR FROM CURR BUFF WORDrrrrrrrtARMD
       1164552211 0063416645 4062576441 6445444054 5163644042 6546464067 5762441515 1155444162 tTM2t SAVE ROTATED LIST BUFF WORDrrtMDAR
       1441144611 2727110055 4163534041 5557634043 5041621515 1141625544 1164552311 0063416645 'A'Ft77t MASK AMOS CHARrrtARMDtTM3t SAVE
       1515151515 1155447057 1446112125 1100433762 4012151515 1152605463 1154636454 2511005657 rrrrrtMDXO'Ft15t C/R ?rrrtJPLStLSTL5t NO
       3440526555 6015151515 1515151515 5463645424 0611554441 6214461154 4350424635 2111007145 , JUMPrrrrrrrrrLSTL4:tMDAR'FtLCHBF-1t YE
       6334406245 3551565164 4054515645 4042654646 4060646240 4156444043 5664151515 1141625544 S, RE-INIT LINE BUFF PTR AND CNTrrrtARMD
       1154435042 6011004040 4657624056 4570644043 4162441515 1141625544 1457115443 5042431515 tLCHBPt   FOR NEXT CARDrrtARMD'OtLCHBCrr
       1155445162 1154636454 5611006245 6465625615 1515151515 5463645425 0611554441 6214701164 tMDIRtLSTLNt RETURNrrrrrrLSTL5:tMDAR'XtT
       5521110051 5644457040 4350416241 4364456240 4357655664 1515151515 1155447057 1446112723 M1t INDEX CHARACTER COUNTrrrrrtMDXO'Ft73
       3611006245 4143504544 4043575465 5556402723 4012151515 1152605463 1136102311 0056573440 .t REACHED COLUMN 73 ?rrrtJPLSt.+3t NO, 
       6353516015 1515151515 1155444162 1446112711 0057656460 6564404241 4353635441 6350151515 SKIPrrrrrrtMDAR'Ft7t OUTPUT BACKSLASHrrr
       1152606362 1451115743 5060661515 1515151515 1155444162 1164552311 0046456443 5040435041 tJPSR'ItOCHPVrrrrrrrtMDARtTM3t FETCH CHA
       6215151515 1155447057 1446112121 1100644142 4012151515 1152605463 1154636454 2711005657 RrrrrtMDXO'Ft11t TAB ?rrrtJPLStLSTL7t NO
       3440526555 6040645740 5765646065 6440435041 6215151515 1515151515 1155444162 1451115464 , JUMP TO OUTPUT CHARrrrrrrrrrtMDAR'ItLT
       4142601100 4645644350 4056457064 4064414240 6364576015 1152655560 1136102211 0063535160 ABPt FETCH NEXT TAB STOPrtJUMPt.+2t SKIP
       4021636440 6451554515 1515151515 5463645426 0611554441 6214511470 1154644142 6011004645  1ST TIMErrrrrrLSTL6:tMDAR'I'XtLTABPt FE
       6443504056 4570644064 4142406364 5760151515 1152605463 1136102411 0045564440 5746406441 TCH NEXT TAB STOPrrrtJPLSt.+4t END OF TA
       4263401215 1515151515 1155444162 1446112724 1100714563 3440576564 6065644054 4546643541 BS ?rrrrrrtMDAR'Ft74t YES, OUTPUT LEFT-A
       5647544540 4262414353 4564151515 1152606362 1451114163 4360661515 1152655560 1154636454 NGLE BRACKETrrrtJPSR'ItASCPVrrtJUMPtLSTL
       2311005457 5760404657 6240564570 6440435041 6215151515 1515151515 1155444163 1446112130 3t LOOP FOR NEXT CHARrrrrrrrrrtMDAS'Ft18
       3611006441 4240476245 4164456240 6450415640 4365626240 6057635164 5157564012 1515151515 .t TAB GREATER THAN CURR POSITION ?rrrrr
       1155444163 1456145111 4350436066 1515151515 1152604156 1154636454 2611005657 3440646271 tMDAS'N'ItCHCPVrrrrrtJPANtLSTL6t NO, TRY
       4056457064 4064414215 1515151515 1155444163 1451114350 4360661100 7145633440 4357556065  NEXT TABrrrrrrtMDAS'ItCHCPVt YES, COMPU
       6445406441 4240605763 5164515756 1515151515 1152606362 1451116441 4260661100 5765646065 TE TAB POSITIONrrrrrtJPSR'ItTABPVt OUTPU
       6440644142 1515151515 1141624162 1470115464 4142601100 4265556040 6441424060 5751566445 T TABrrrrrtARAR'XtLTABPt BUMP TAB POINTE
       6240465762 4056457064 4064515545 1515151515 1152655560 1154636454 2311005457 5760404657 R FOR NEXT TIMErrrrrtJUMPtLSTL3t LOOP FO
       6240564570 6440576564 6065644043 5041621515 1515151515 7777700000 5214371626 5214371626 R NEXT OUTPUT CHARrrrrrrrbbX  J'/(6J'/(6
       5214371626 5214371626 5214371626 5214371626 5214371626 5214371626 5214371626 5214371626 J'/(6J'/(6J'/(6J'/(6J'/(6J'/(6J'/(6J'/(6
  460: 0004500012 4664562022 1361200116 3414400000 5463645427 0611554470 5714461121 2111006245  &H ?FTN02"Q0%(,'   LSTL7:tMDXO'Ft11t RE
       6364576245 4043656262 4556644043 5041621515 1152606362 1451115743 5060661100 5765646065 STORE CURRENT CHARrrtJPSR'ItOCHPVt OUTPU
       6440415557 6340435041 6215151515 1152655560 1154636454 2311005457 5760404657 6240564570 T AMOS CHARrrrrtJUMPtLSTL3t LOOP FOR NEX
       6415151515 1515151515 1515151515 0040634166 4540545743 4164515756 4043576556 6445624046 Trrrrrrrrrrrrrr  SAVE LOCATION COUNTER F
       5762406357 6562434540 5451636451 5647151515 1515151515 5463545743 0611526555 6011361100 OR SOURCE LISTINGrrrrrrrrLSLOC:tJUMPt.t 
       4556646271 1515151515 1155444162 1456115454 5743461100 5457434046 5145544440 4154624541 ENTRYrrrrrtMDAR'NtLLOCFt LOC FIELD ALREA
       4471406345 6440465762 4064505163 1515151515 1141565162 1154635457 4311004040 5451564540 DY SET FOR THISrrrrrtANIRtLSLOCt   LINE 
       5756406357 6562434540 5451636451 5647401215 1515151515 1155444162 1157545743 1100565734 ON SOURCE LISTING ?rrrrrrtMDARtOLOCt NO,
       4063416645 4043656262 4054574340 4657624054 6364456240 6257656451 5645151515 1141625544  SAVE CURR LOC FOR LSTER ROUTINErrrtARMD
       1154545743 4615151515 1155445162 1154635457 4311004156 4440624564 6562561515 1515151515 tLLOCFrrrrtMDIRtLSLOCt AND RETURNrrrrrrr
       1515151515 7777700000 1513140355 1513140355 1513140355 1513140355 1513140355 1513140355 rrrrrbbX  r"'!Mr"'!Mr"'!Mr"'!Mr"'!Mr"'!M
       1513140355 1513140355 1513140355 1513140355                                             r"'!Mr"'!Mr"'!Mr"'!M
  865: 0004600012 4664562022 1361200237 3414400000 0040576564 6065644063 6542355045 4144456240  &P ?FTN02"Q0c/,'     OUTPUT SUB-HEADER 
       5451564540 4657624055 4151564054 5163645156 4715151515 1515151515 6342504454 0611526555 LINE FOR MAIN LISTINGrrrrrrrrrSBHDL:tJUM
       6011361100 4556646271 1515151515 1155444162 1456116047 5456461100 6041474535 5451564540 Pt.t ENTRYrrrrrtMDAR'NtPGLNFt PAGE-LINE 
       4651455444 4057564054 5163645156 4740121515 1152604156 1163425044 2111005657 3440635351 FIELD ON LISTING ?rrtJPANtSBHD1t NO, SKI
       6015151515 1515151515 1152606362 1173574663 6411007145 6334405765 6460656440 4651455444 PrrrrrrrrrtJPSRt$OFSTt YES, OUTPUT FIELD
       4064516454 4515151515 6364625156 4740145451 5645141515 1515151515 6342504421 0611554441  TITLErrrrSTRING 'LINE'rrrrrrrSBHD1:tMDA
       6214561154 5743464711 0054574341 6451575640 4357655664 4562404651 4554444057 5640545163 R'NtLOCFGt LOCATION COUNTER FIELD ON LIS
       6451564740 1215151515 1152604156 1163425044 2211005657 3440635351 6015151515 1515151515 TING ?rrrrtJPANtSBHD2t NO, SKIPrrrrrrrrr
       1155444162 1446112120 3611007145 6334406441 4240645740 6057635164 5157561515 1152606362 tMDAR'Ft10.t YES, TAB TO POSITIONrrtJPSR
       1451116441 4260661515 1152606362 1173574663 6411005765 6460656440 4651455444 4064516454 'ItTABPVrrtJPSRt$OFSTt OUTPUT FIELD TITL
       4515151515 6364625156 4740145457 4314151515 1515151515 6342504422 0611554441 6214461121 ErrrrSTRING 'LOC'rrrrrrrrSBHD2:tMDAR'Ft1
       3036110064 4142406457 4063644164 4555455664 4060576351 6451575615 1152606362 1451116441 8.t TAB TO STATEMENT POSITIONrtJPSR'ItTA
       4260661515 1152606362 1173574663 6411005765 6460656440 6364416445 5545566440 5441424554 BPVrrtJPSRt$OFSTt OUTPUT STATEMENT LABEL
       4046514554 4440645164 5445151515 6364625156 4740145441 4245541415 1515151515 1155444162  FIELD TITLErrrSTRING 'LABEL'rrrrrrtMDAR
       1446112431 3611006441 4215151515 1152606362 1451116441 4260661515 1152606362 1173574663 'Ft49.t TABrrrrtJPSR'ItTABPVrrtJPSRt$OFS
       6411005765 6460656440 6357656243 4540636441 6445554556 6440465145 5444406451 6454451515 Tt OUTPUT SOURCE STATEMENT FIELD TITLErr
       6364625156 4740146357 6562434540 6364416445 5545566414 1515151515 1515151515 1155444162 STRING 'SOURCE STATEMENT'rrrrrrrrrrtMDAR
       1446113121 3611006441 4215151515 1152606362 1451116441 4260661515 1152606362 1173574663 'Ft91.t TABrrrrtJPSR'ItTABPVrrtJPSRt$OFS
       6411005765 6460656440 5144455664 5164714046 5145544440 6451645445 1515151515 6364625156 Tt OUTPUT IDENTITY FIELD TITLErrrrrSTRIN
       4740145144 4556645164 7115151515 1415151515 1155445162 1163425044 5411006245 6465625615 G 'IDENTITYrrrr'rrrrtMDIRtSBHDLt RETURNr
       1515151515 1515151515 7777700000 0306746545 0306746545 0306746545 0306746545 0306746545 rrrrrrrrrrbbX  !:#UE!:#UE!:#UE!:#UE!:#UE
       0306746545 0306746545 0306746545 0306746545 0306746545                                  !:#UE!:#UE!:#UE!:#UE!:#UE
  800: 0004700012 4664562022 1361200222 3414400000 0040545163 6451564740 5765646065 6440604162  &X ?FTN02"Q0c2,'     LISTING OUTPUT PAR
       4155456445 6263151515 1515151515 5463644647 0611112011 0054516364 5156474055 5744454046 AMETERSrrrrrrrrLSTFG:tt0t LISTING MODE F
       5441471515 6342504460 0611112011 0060575156 6445624064 5740604147 4540636542 3550454144 LAGrrSBHDP:tt0t POINTER TO PAGE SUB-HEAD
       4562406257 6564515645 1515151515 6342504463 0611112011 0063416645 4440636542 3550454144 ER ROUTINErrrrrSBHDS:tt0t SAVED SUB-HEAD
       4562406057 5156644562 1515151515 6041474563 0611112011 0043656262 4556644060 4147454056 ER POINTERrrrrrPAGES:tt0t CURRENT PAGE N
       6555424562 1515151515 4552454346 0611112011 0056456740 6041474540 4654414715 1515151515 UMBERrrrrrEJECF:tt0t NEW PAGE FLAGrrrrrr
       4165644552 0611112011 0041656457 4060414745 4045524543 6440465441 4715151515 6047545646 AUTEJ:tt0t AUTO PAGE EJECT FLAGrrrrPGLNF
       0611112011 0060414745 3654515645 4046514554 4440465441 4715151515 5457434647 0611112011 :tt0t PAGE.LINE FIELD FLAGrrrrLOCFG:tt0t
       0054574340 4357655664 4562404651 4554444046 5441471515 5454574346 0611112011 0054574340  LOC COUNTER FIELD FLAGrrLLOCF:tt0t LOC 
       4357655664 4562404350 4156474544 4046544147 1515151515 4164414260 0611112011 0060575156 COUNTER CHANGED FLAGrrrrrATABP:tt0t POIN
       6445624064 5740436562 6245566440 4144456064 4064414263 1515151515 5464414260 0611112011 TER TO CURRENT ADEPT TABSrrrrrLTABP:tt0t
       0060575156 6445624064 5740644142 6340465762 4043656262 4054515645 1515151515 1515151515  POINTER TO TABS FOR CURR LINErrrrrrrrrr
       4164706454 0611112011 0041644570 6440576564 6065644064 5164544515 1515151515 6364414263 ATXTL:tt0t ATEXT OUTPUT TITLErrrrrrSTABS
       0611212236 3240222636 3240242236 3240253036 3240263036 3240201100 6364415644 4162444041 :t12.; 26.; 42.; 58.; 68.; 0t STANDARD A
       4445606440 6441426315 6441426306 1120324020 3240203240 2032402032 4020110065 6345623563 DEPT TABSrTABS:t0; 0; 0; 0; 0; 0t USER-S
       6045435146 5145444064 4142631515 1515151515 6464544556 0611112011 0054455647 6450405746 PECIFIED TABSrrrrrrrTTLEN:tt0t LENGTH OF
       4054516364 5156474064 5164544515 1515151515 6464544246 0611545743 1136102121 3611005451  LISTING TITLErrrrrrTTLBF:tLOCt.+11.t LI
       6364515647 4064516454 4540426546 4645621515 6464544245 0611112011 0040401625 2536404350 STING TITLE BUFFERrrTTLBE:tt0t   (55. CH
       4162414364 4562634055 4170171515 1515151515 1515151515 7777700000 0646722672 0646722672 ARACTERS MAX)rrrrrrrrrrrrbbX  :FZ6Z:FZ6Z
       0646722672 0646722672 0646722672 0646722672 0646722672 0646722672 0646722672 0646722672 :FZ6Z:FZ6Z:FZ6Z:FZ6Z:FZ6Z:FZ6Z:FZ6Z:FZ6Z
 1605: 0005000012 4664562022 1361200463 3414400000 0040545163 6440456262 5762634016 4341545445  *  ?FTN02"Q0&S,'     LIST ERRORS (CALLE
       4440416440 6364416264 4057464060 6257434563 6351564740 5746404541 4350404341 6244171515 D AT START OF PROCESSING OF EACH CARD)rr
       1515151515 5463644562 0611526555 6011361100 4556646271 1515151515 1155444162 1456115645 rrrrrLSTER:tJUMPt.t ENTRYrrrrrtMDAR'NtNE
       6743461100 5451636445 4440564567 4054515645 4071456440 1215151515 1141565162 1154636445 WCFt LISTED NEW LINE YET ?rrrrtANIRtLSTE
       6211005657 3440624564 6562564016 6364515454 4057564063 4155454054 5156451715 1515151515 Rt NO, RETURN (STILL ON SAME LINE)rrrrrr
       1141625544 1156456743 4611004354 4541624056 4567404341 6244404654 4147151515 1155444162 tARMDtNEWCFt CLEAR NEW CARD FLAGrrrtMDAR
       1456115463 6446471100 5451636451 5647406357 6562434540 6445706440 1215151515 1141565162 'NtLSTFGt LISTING SOURCE TEXT ?rrrrtANIR
       1154636445 6211005657 3440624564 6562561515 1515151515 1155444162 1456115457 4346471100 tLSTERt NO, RETURNrrrrrrrtMDAR'NtLOCFGt 
       5457434164 5157564043 5765566445 6240465145 5444404445 6351624544 4012151515 1155444162 LOCATION COUNTER FIELD DESIRED ?rrrtMDAR
       1457115454 5743461100 4156444056 4567405457 4340465145 5444405756 4054416364 4054515645 'OtLLOCFt AND NEW LOC FIELD ON LAST LINE
       4012151515 1152604156 1154636445 2711005657 3440635351 6015151515 1515151515 1155444162  ?rrrtJPANtLSTE7t NO, SKIPrrrrrrrrrtMDAR
       1446113136 1100714563 3440644142 4042414353 4064574054 5743404651 4554441515 1152606362 'Ft9.t YES, TAB BACK TO LOC FIELDrrtJPSR
       1451116441 4260661515 1155444162 1450115454 5743461100 5765646065 6440253544 5147516440 'ItTABPVrrtMDAR'HtLLOCFt OUTPUT 5-DIGIT 
       5743644154 4054574315 3664574306 1152606362 1173645743 1515151515 1111251515 1515151515 OCTAL LOCr.TOC:tJPSRt$TOCrrrrrtt5rrrrrrr
       5463644527 0611416255 4414571154 5457434611 0063456440 5657405457 4340465145 5444405756 LSTE7:tARMD'OtLLOCFt SET NO LOC FIELD ON
       4056457064 4054515645 1515151515 1155444162 1154456242 6011004562 6257624042 6546464562  NEXT LINErrrrrtMDARtLERBPt ERROR BUFFER
       4045556064 7140121515 1155444145 1456115463 6445301515 1141565162 1154636445 6211007145  EMPTY ?rrtMDAE'NtLSTE8rrtANIRtLSTERt YE
       6334406245 6465625615 1515151515 1141625544 1457145114 7011544562 4260110060 6564404556 S, RETURNrrrrrrtARMD'O'I'XtLERBPt PUT EN
       4440465441 4740515640 4562625762 4042654646 4562151515 1152606362 1156456754 5611006364 D FLAG IN ERROR BUFFERrrrtJPSRtNEWLNt ST
       4162644041 4056456740 5765646065 6440545156 4515151515 1152606362 1173574663 6411005765 ART A NEW OUTPUT LINErrrrtJPSRt$OFSTt OU
       6460656440 5156445143 4164576240 5545636341 4745151515 6364625156 4740140505 0505054045 TPUT INDICATOR MESSAGErrrSTRING '***** E
       6262576240 0505050505 1415151515 1155444162 1446115445 6242461100 6364416264 4041644064 RROR *****'rrrrtMDAR'FtLERBFt START AT T
       5760405746 4045626257 6240426546 4645621515 1141625544 1154456242 6015151515 1155444162 OP OF ERROR BUFFERrrtARMDtLERBPrrrrtMDAR
       1450115445 6242461100 4645644350 4046516263 6440456262 5762404357 5465555640 5657361515 'HtLERBFt FETCH FIRST ERROR COLUMN NO.rr
       1152655560 1154636445 2211005265 5560405156 6457405457 5760151515 1515151515 5463644521 tJUMPtLSTE2t JUMP INTO LOOPrrrrrrrrLSTE1
       0611416241 6214561450 1446111100 4745644056 4570644045 6262576240 4357546555 5615151515 :tARAR'N'H'Ftt GET NEXT ERROR COLUMNrrrr
       1155447057 1154456264 2111006341 5545404163 4054416364 4012151515 1152605463 1136102211 tMDXOtLERT1t SAME AS LAST ?rrrtJPLSt.+2t
       0056573440 4357566451 5665451515 1152655560 1154636445 2511007145 6334406353 5160151515  NO, CONTINUErrtJUMPtLSTE5t YES, SKIPrrr
       1515151515 1155447057 1154456264 2111006245 6364576245 4056456740 4357546555 5640565736 rrrrrtMDXOtLERT1t RESTORE NEW COLUMN NO.
       1515151515 5463644522 0611416255 4411544562 6421110063 4166454043 6562624556 6440435754 rrrrrLSTE2:tARMDtLERT1t SAVE CURRENT COL
       6555561515 1155444163 1446112127 3611004357 5560656445 4054516364 5156474043 5754655556 UMNrrtMDAS'Ft17.t COMPUTE LISTING COLUMN
       1515151515 1152606362 1451116441 4260661100 6441424064 5740605763 5164515756 1515151515 rrrrrtJPSR'ItTABPVt TAB TO POSITIONrrrrr
       1155444162 1446110273 1100576564 6065644044 5754544162 3563514756 1515151515 1152606362 tMDAR'Ftc$t OUTPUT DOLLAR-SIGNrrrrrtJPSR
       1451115743 5060661515 1515151515 5463644525 0611554441 6214511456 1470115445 6242601100 'ItOCHPVrrrrrrrLSTE5:tMDAR'I'N'XtLERBPt 
       4457564540 4657624041 5454404562 6257626340 1215151515 1152604156 1154636445 2111005657 DONE FOR ALL ERRORS ?rrrrtJPANtLSTE1t NO
       3440545757 6040465762 4056457064 1515151515 1515151515 1155444162 1446115445 6242461100 , LOOP FOR NEXTrrrrrrrrrrtMDAR'FtLERBFt 
       6364416264 4041474151 5640416440 6457604057 4640456262 5762404265 4646151515 1141625544 START AGAIN AT TOP OF ERROR BUFFrrrtARMD
       1154456242 6015151515 1141625544 1457115445 6264211100 6345644064 5740576564 6065644043 tLERBPrrrrtARMD'OtLERT1t SET TO OUTPUT C
       5754655556 4056573640 5746402163 6440556347 1515151515 1515151515 7777700000 3750674336 OLUMN NO. OF 1ST MSGrrrrrrrrrrbbX  /HWC.
       3750674336 3750674336 3750674336 3750674336 3750674336 3750674336 3750674336 3750674336 /HWC./HWC./HWC./HWC./HWC./HWC./HWC./HWC.
       3750674336                                                                              /HWC.
 1465: 0005100012 4664562022 1361200427 3414400000 5463644523 0611526063 6211564567 5456110063  *+ ?FTN02"Q0&7,'   LSTE3:tJPSRtNEWLNt S
       6441626440 4140564567 4057656460 6564405451 5645151515 1155444162 1451145011 5445624260 TART A NEW OUTPUT LINErrrtMDAR'I'HtLERBP
       1100464564 4350405645 7064404562 6257624043 5754655556 4056573615 1155447057 1154456264 t FETCH NEXT ERROR COLUMN NO.rtMDXOtLERT
       2111006341 5545404163 4060624566 5157656340 1215151515 1152605463 1136102215 1152655560 1t SAME AS PREVIOUS ?rrrrtJPLSt.+2rtJUMP
       1154636445 2411007145 6334406353 5160151515 1515151515 1155447057 1154456264 2111005657 tLSTE4t YES, SKIPrrrrrrrrtMDXOtLERT1t NO
       3440624563 6457624540 5645706440 4357546555 5640565736 1515151515 1141625544 1154456264 , RESTORE NEXT COLUMN NO.rrrrrtARMDtLERT
       2111006341 6645404657 6240564570 6440644563 6415151515 1152606362 1173574663 6411005765 1t SAVE FOR NEXT TESTrrrrtJPSRt$OFSTt OU
       6460656440 4357546555 5640515644 5143416457 6215151515 6364625156 4740144040 4357546555 TPUT COLUMN INDICATORrrrrSTRING '  COLUM
       5614151515 1155444162 1154456264 2111004645 6443504045 6262576240 4357546555 5640565736 N'rrrtMDARtLERT1t FETCH ERROR COLUMN NO.
       1515151515 1155444162 1441144611 2727271100 5541635315 1152606362 1157444543 5611005765 rrrrrtMDAR'A'Ft777t MASKrtJPSRtODECNt OU
       6460656440 4445435155 4154404562 6257624043 5754655556 1515151515 1111231515 1152606362 TPUT DECIMAL ERROR COLUMNrrrrrtt3rrtJPSR
       1173574663 6415151515 6364625156 4740143636 3614151515 1515151515 5463644524 0611554441 t$OFSTrrrrSTRING '...'rrrrrrrrLSTE4:tMDA
       6214461121 2536110064 4142406457 4054515645 4065604055 4563634147 4563151515 1152606362 R'Ft15.t TAB TO LINE UP MESSAGESrrrtJPSR
       1451116441 4260661515 1155444162 1451115445 6242601100 4645644350 4060575156 6445624064 'ItTABPVrrtMDAR'ItLERBPt FETCH POINTER T
       5740456262 5762406441 4254451515 1155444162 1441144611 2727272727 1100554163 5315151515 O ERROR TABLErrtMDAR'A'Ft77777t MASKrrrr
       5146724562 5740662234 1152606362 1145576662 5471404045 5644431100 5146402126 5340664562 IFZERO V2,tJPSRtEOVRLY  ENDCt IF 16K VER
       6351575634 4062454144 4045626257 6240576645 6254417115 1141625544 1154636445 2611006341 SION, READ ERROR OVERLAYrtARMDtLSTE6t SA
       6645406057 5156644562 4064574045 6262576240 4654414740 6757624415 1155444162 1451115463 VE POINTER TO ERROR FLAG WORDrtMDAR'ItLS
       6445261100 4645644350 4045626257 6240675762 4415151515 1141625544 1154456264 2211006341 TE6t FETCH ERROR WORDrrrrtARMDtLERT2t SA
       6645151515 1141624162 1470113610 2211005156 4445704060 6462406457 4055456363 4147454063 VErrrtARAR'Xt.+2t INDEX PTR TO MESSAGE S
       6462515647 1515151515 1152606362 1173576364 1100576564 6065644045 6262576240 5545636341 TRINGrrrrrtJPSRt$OSTt OUTPUT ERROR MESSA
       4745151515 5463644526 0611112015 1152606362 1173574663 6415151515 6364625156 4740143640 GErrrLSTE6:tt0rtJPSRt$OFSTrrrrSTRING '. 
       1614151515 1155444162 1154456264 2211004645 6443504045 6262576240 6757624415 1152606362 ('rrrtMDARtLERT2t FETCH ERROR WORDrtJPSR
       1157456257 6211005765 6460656440 4562625762 4056573615 1163646251 5647401114 1415151515 tOERORt OUTPUT ERROR NO.rtSTRING t''rrrr
       1163646251 5647401114 0514151515 1163646251 5647111405 0514151515 1155444162 1446110217 tSTRING t'*'rrrtSTRINGt'**'rrrtMDAR'Ftc)
       1515151515 1152606362 1451115743 5060661515 1515151515 1155444162 1451147014 5611544562 rrrrrtJPSR'ItOCHPVrrrrrrrtMDAR'I'X'NtLER
       4260110041 5671405557 6245404562 6257626340 1215151515 1152604156 1154636445 2311007145 BPt ANY MORE ERRORS ?rrrrtJPANtLSTE3t YE
       6334405457 5760404657 6240564570 6415151515 1515151515 5463644530 0611554441 6214461154 S, LOOP FOR NEXTrrrrrrrrrLSTE8:tMDAR'FtL
       4562424635 2111004354 4541624057 6564404562 6257624042 6546464562 1515151515 1141625544 ERBF-1t CLEAR OUT ERROR BUFFERrrrrrtARMD
       1154456242 6015151515 1152606362 1156456754 5611005765 6460656440 4254415653 4054515645 tLERBPrrrrtJPSRtNEWLNt OUTPUT BLANK LINE
       1515151515 1155445162 1154636445 6211006245 6465625615 1515151515 5445626421 0611112011 rrrrrtMDIRtLSTERt RETURNrrrrrrLERT1:tt0t
       0064455560 4063645762 4147451515 5445626422 0611112011 0064455560 4063645762 4147451515  TEMP STORAGErrLERT2:tt0t TEMP STORAGErr
       1515151515 5445624260 0611112011 0045626257 6240426546 4645624063 6457624540 6057515664 rrrrrLERBP:tt0t ERROR BUFFER STORE POINT
       4562151515 5445624246 0611545743 1136105463 4562631100 5451636451 5647404562 6257624042 ERrrrLERBF:tLOCt.+LSERSt LISTING ERROR B
       6546464562 1515151515 5445624245 0611113520 1100455644 4057464042 6546464046 5441471515 UFFERrrrrrLERBE:tt-0t END OF BUFF FLAGrr
       1515151515 1515151515 7777700000 2750162145 2750162145 2750162145 2750162145 2750162145 rrrrrrrrrrbbX  7H(1E7H(1E7H(1E7H(1E7H(1E
       2750162145 2750162145 2750162145 2750162145 2750162145                                  7H(1E7H(1E7H(1E7H(1E7H(1E
  980: 0005200012 4664562022 1361200266 3414400000 0040576564 6065644045 6262576240 5545636341  *0 ?FTN02"Q0cV,'     OUTPUT ERROR MESSA
       4745406364 4162631515 1515151515 5745625762 0611526555 6011361100 4556646271 1515151515 GE STARSrrrrrrrOEROR:tJUMPt.t ENTRYrrrrr
       1141625544 1157456231 3111006341 6645404562 6257624067 5762441515 1155444162 1451115745 tARMDtOER99t SAVE ERROR WORDrrtMDAR'ItOE
       6257621100 4645644350 4063646251 5647404657 6240674162 5651564740 6364416263 1515151515 RORt FETCH STRING FOR WARNING STARSrrrrr
       1141625544 1157456257 2111006341 6645151515 1155444162 1451147011 5745625762 1100464564 tARMDtOERO1t SAVErrrtMDAR'I'XtOERORt FET
       4350406364 6251564740 4657624063 6457604057 6564606564 4045626215 1141625544 1157456257 CH STRING FOR STOP OUTPUT ERRrtARMDtOERO
       2211006341 6645151515 1155444162 1451147011 5745625762 1100464564 4350406364 6251564740 2t SAVErrrtMDAR'I'XtOERORt FETCH STRING 
       4657624046 4164415440 4562625762 1515151515 1141625544 1157456257 2311006341 6645151515 FOR FATAL ERRORrrrrrtARMDtOERO3t SAVErrr
       1155444162 1157456231 3111004645 6443504045 6262576240 4357444515 1152604156 1136102411 tMDARtOER99t FETCH ERROR CODErtJPANt.+4t
       0067416256 5156474057 5654714012 1515151515 1515151515 1152606362 1173574663 6411007145  WARNING ONLY ?rrrrrrrrrrtJPSRt$OFSTt YE
       6334405765 6460656440 6364625156 4715151515 5745625721 0611112015 1152655560 1157456257 S, OUTPUT STRINGrrrrOERO1:tt0rtJUMPtOERO
       2411005265 5560151515 1515151515 1141624162 1442144611 1100576564 6065644064 4562555156 4t JUMPrrrrrrrrtARAR'B'Ftt OUTPUT TERMIN
       4164515647 4012151515 1152604156 1136102415 1515151515 1152606362 1173574663 6411007145 ATING ?rrrtJPANt.+4rrrrrrtJPSRt$OFSTt YE
       6334405765 6460656440 6364625156 4715151515 5745625722 0611112015 1152655560 1136102311 S, OUTPUT STRINGrrrrOERO2:tt0rtJUMPt.+3t
       0052655560 1515151515 1515151515 1152606362 1173574663 6411005657 3440464164 4154344057  JUMPrrrrrrrrrrtJPSRt$OFSTt NO, FATAL, O
       6564606564 4063646251 5647151515 5745625723 0611112015 1515151515 5745625724 0611526063 UTPUT STRINGrrrOERO3:tt0rrrrrrOERO4:tJPS
       6211735746 6364110057 6564606564 4045626257 6240565736 1515151515 6364625156 4740144562 Rt$OFSTt OUTPUT ERROR NO.rrrrrSTRING 'ER
       1415151515 1155444162 1157456231 3115151515 1152606362 1157444543 6315151515 1515151515 'rrrrtMDARtOER99rrrrtJPSRtODECSrrrrrrrrr
       1155444162 1453145611 5745623131 1100634341 5640414257 6264404562 6257624012 1515151515 tMDAR'K'NtOER99t SCAN ABORT ERROR ?rrrrr
       1141624162 1442144615 1141565162 1470115745 6257621100 5657344062 4564656256 1515151515 tARAR'B'FrtANIR'XtOERORt NO, RETURNrrrrr
       1515151515 1155444162 1446110205 1100714563 3440576564 6065644041 5640416364 4562516353 rrrrrtMDAR'Ftc*t YES, OUTPUT AN ASTERISK
       1515151515 1152606362 1451115743 5060661515 1155445162 1470115745 6257621100 6245646562 rrrrrtJPSR'ItOCHPVrrtMDIR'XtOERORt RETUR
       5615151515 1515151515 5745623131 0611112011 0064455560 4063645762 4147451515 1515151515 NrrrrrrrrrOER99:tt0t TEMP STORAGErrrrrrr
       1515151515 7777700000 3310116034 3310116034 3310116034 3310116034 3310116034 3310116034 rrrrrbbX  =+tP,=+tP,=+tP,=+tP,=+tP,=+tP,
       3310116034 3310116034 3310116034 3310116034                                             =+tP,=+tP,=+tP,=+tP,
 1625: 0005300012 4664562022 1361200467 3414400000 0040576564 6065644044 4543515541 5440566555  *8 ?FTN02"Q0&W,'     OUTPUT DECIMAL NUM
       4245621515 1515151515 5744454356 0611526555 6011361100 4556646271 4016566555 4245624051 BERrrrrrrrODECN:tJUMPt.t ENTRY (NUMBER I
       5640416217 1515151515 1155444162 1441145411 1100554163 5340645740 2540444543 5155415440 N AR)rrrrrtMDAR'A'Ltt MASK TO 5 DECIMAL 
       4451475164 6315151515 1111232727 2727271515 1141625544 1157444331 3111006341 6645405156 DIGITSrrrrtt377777rrtARMDtODC99t SAVE IN
       5164514154 4056655542 4562151515 1141625544 1157444331 3011004354 4541624072 4562573563 ITIAL NUMBERrrrtARMDtODC98t CLEAR ZERO-S
       5147565146 5143415643 4540465441 4715151515 1155444162 1454111100 4645644350 4051565164 IGNIFICANCE FLAGrrrrtMDAR'Ltt FETCH INIT
       5141544044 5166514445 4051566364 6265436451 5756151515 1144516654 1164455663 6410251515 IAL DIVIDE INSTRUCTIONrrrtDIVLtTENST+5rr
       1155444163 1456145111 5744454356 1100414452 6563644064 5740554170 4044514751 6463405156 tMDAS'N'ItODECNt ADJUST TO MAX DIGITS IN
       4041624765 5545566415 1141625544 1157444543 2211006341 6645404451 6651444540 5156636462  ARGUMENTrtARMDtODEC2t SAVE DIVIDE INSTR
       6543645157 5615151515 1155444162 1442115744 4331311100 4645644350 4051565164 5141544056 UCTIONrrrrtMDAR'BtODC99t FETCH INITIAL N
       5736401603 4217151515 1152655560 1136102311 0063535160 4046516263 6440645155 4515151515 O. (!B)rrrtJUMPt.+3t SKIP FIRST TIMErrrr
       1515151515 5744454321 0611554441 6211574443 3131110046 4564435040 5441636440 6245554151 rrrrrODEC1:tMDARtODC99t FETCH LAST REMAI
       5644456240 1603421715 1155444162 1441114155 4163531100 5541635315 1515151515 5744454322 NDER (!B)rtMDAR'AtAMASKt MASKrrrrrrODEC2
       0611445166 5411110044 5166514445 4042714043 6562624556 6440605767 4562355746 3564455615 :tDIVLtt DIVIDE BY CURRENT POWER-OF-TENr
       1156575760 1111001667 4151644046 5762404451 6651444540 4357556054 4564454057 5640446062 tNOOPtt (WAIT FOR DIVIDE COMPLETE ON DPR
       2217151515 1141625544 1450115744 4331311100 6341664540 6245554151 5644456215 1154635162 2)rrrtARMD'HtODC99t SAVE REMAINDERrtLSIR
       1157444543 2511005657 5635724562 5740616557 6451455664 3440634564 4063514756 5146404654 tODEC5t NON-ZERO QUOTIENT, SET SIGNIF FL
       4147151515 1152605463 1157444543 2311005265 5560405146 4063514756 5146514341 5664404451 AGrrrtJPLStODEC3t JUMP IF SIGNIFICANT DI
       4751641515 1515151515 1155444162 1157444331 3011004554 6345344063 5147565146 5143415643 GITrrrrrrrtMDARtODC98t ELSE, SIGNIFICANC
       4540465441 4740634564 4012151515 1152604156 1157444543 2311007145 6334405265 5560406457 E FLAG SET ?rrrtJPANtODEC3t YES, JUMP TO
       4057656460 6564407245 6257404451 4751641515 1515151515 1155444162 1157444543 4611005051  OUTPUT ZERO DIGITrrrrrrrtMDARtODECFt HI
       4750355762 4445624042 5441565340 4651545440 6365606062 4563635157 5640121515 1152605463 GH-ORDER BLANK FILL SUPPRESSION ?rrtJPLS
       1157444543 2411007145 6334406353 5160151515 1515151515 1155444163 1446112220 1100455463 tODEC4t YES, SKIPrrrrrrrrtMDAS'Ft20t ELS
       4534406345 6440645740 5765646065 6440425441 5653401624 2040435744 4517151515 1515151515 E, SET TO OUTPUT BLANK (40 CODE)rrrrrrrr
       5744454323 0611554441 6314461122 2011004357 5666456240 4451475164 4064574041 5557631515 ODEC3:tMDAS'Ft20t CONVER DIGIT TO AMOSrr
       1152606362 1451115744 4543601100 5765646065 6440435041 6215151515 1515151515 5744454324 tJPSR'ItODECPt OUTPUT CHARrrrrrrrrrODEC4
       0611554441 6214701157 4445432211 0051564445 7040605767 4562355746 3564455640 6057515664 :tMDAR'XtODEC2t INDEX POWER-OF-TEN POINT
       4562151515 1155447057 1446116445 5663641024 1100624541 4350454440 6556516463 4044514751 ERrrrtMDXO'FtTENST+4t REACHED UNITS DIGI
       6440121515 1152605463 1157444543 2111005657 3440545757 6040465762 4056457064 4044514751 T ?rrtJPLStODEC1t NO, LOOP FOR NEXT DIGI
       6415151515 1515151515 1141625544 1157444543 4611007145 6334404154 5457674042 5441565363 TrrrrrrrrrtARMDtODECFt YES, ALLOW BLANKS
       4057564056 4570644043 4154541515 1515151515 1155444162 1157444331 3111004645 6443504054  ON NEXT CALLrrrrrrrtMDARtODC99t FETCH L
       4163644062 4555415156 4445621515 1141626263 1121110041 4452656364 1515151515 1155444163 AST REMAINDERrrtARRSt1t ADJUSTrrrrrtMDAS
       1446112220 1100435756 6645626440 6457404155 5763151515 1152606362 1451115744 4543601100 'Ft20t CONVERT TO AMOSrrrtJPSR'ItODECPt 
       5765646065 6440655651 6440445147 5164151515 1155445162 1470115744 4543561100 6245646562 OUTPUT UNIT DIGITrrrtMDIR'XtODECNt RETUR
       5615151515 1515151515 5744454325 0611416255 4414571157 4443313011 0051566364 6240645740 NrrrrrrrrrODEC5:tARMD'OtODC98t INSTR TO 
       6345644072 4562573563 5147565146 5143415643 4540465441 4715151515 1515151515 5744454360 SET ZERO-SIGNIFICANCE FLAGrrrrrrrrrODECP
       0611112011 0057656460 6564404350 4162414364 4562406051 6657641515 5744454346 0611112011 :tt0t OUTPUT CHARACTER PIVOTrrODECF:tt0t
       0050514750 4042544156 5363406365 6060624563 6340465441 4715151515 5744433131 0611112011  HIGH BLANKS SUPPRESS FLAGrrrrODC99:tt0t
       0064455560 4063645762 4147451515 5744433130 0611112011 0064455560 4063645762 4147451515  TEMP STORAGErrODC98:tt0t TEMP STORAGErr
       1515151515 1515151515 7777700000 3755542534 3755542534 3755542534 3755542534 3755542534 rrrrrrrrrrbbX  /ML5,/ML5,/ML5,/ML5,/ML5,
       3755542534 3755542534 3755542534 3755542534 3755542534                                  /ML5,/ML5,/ML5,/ML5,/ML5,
  830: 0005400012 4664562022 1361200230 3414400000 0040576564 6065644046 5166454044 5147516440  *  ?FTN02"Q0c8,'     OUTPUT FIVE DIGIT 
       4445435155 4154405665 5542456240 6751645040 5051475040 4254415653 3563656060 6245636351 DECIMAL NUMBER WITH HIGH BLANK-SUPPRESSI
       5756151515 1515151515 5744454363 0611526555 6011361100 4556646271 4016664154 6545405156 ONrrrrrrrrODECS:tJUMPt.t ENTRY (VALUE IN
       4041621715 1141625544 1457115744 4543461100 6345644046 5762404254 4156534063 6560606245  AR)rtARMD'OtODECFt SET FOR BLANK SUPPRE
       6363151515 1152606362 1157444543 5611005765 6460656440 4445435155 4154405665 5542456215 SSrrrtJPSRtODECNt OUTPUT DECIMAL NUMBERr
       1111251100 4040162540 4451475164 6340554170 1715151515 1155445162 1157444543 6311006245 tt5t   (5 DIGITS MAX)rrrrtMDIRtODECSt RE
       6465625615 1515151515 1515151515 0040605767 4562405746 4064455663 4064414254 4515151515 TURNrrrrrrrrrrr  POWER OF TENS TABLErrrr
       1515151515 6445566364 0611112120 2020203615 1111212020 2036151515 1111212020 3615151515 rrrrrTENST:tt10000.rtt1000.rrrtt100.rrrr
       1111212036 1515151515 1515151515 1515151515 0040576564 6065644041 5557634064 4570644067 tt10.rrrrrrrrrrrrrrr  OUTPUT AMOS TEXT W
       5762444062 5765645156 4515151515 1515151515 5767576244 0611526555 6011361100 4556646271 ORD ROUTINErrrrrrrrrOWORD:tJUMPt.t ENTRY
       1515151515 1141625544 1136102211 0063416645 4025354350 4162406041 4353454440 4155576340 rrrrrtARMDt.+2t SAVE 5-CHAR PACKED AMOS 
       6757624415 1152606362 1173574663 6411005765 6460656440 6364625156 4715151515 1111201515 WORDrtJPSRt$OFSTt OUTPUT STRINGrrrrtt0rr
       1111201100 4040166751 6450405665 5454406445 6255515641 6457624051 4640254043 5041626317 tt0t   (WITH NULL TERMINATOR IF 5 CHARS)
       1515151515 1155445162 1157675762 4411006245 6465625615 1515151515 1515151515 0040576564 rrrrrtMDIRtOWORDt RETURNrrrrrrrrrrr  OUT
       6065644064 4570644067 5762444046 6257554064 4142544515 1515151515 5764414254 0611526555 PUT TEXT WORD FROM TABLErrrrrrOTABL:tJUM
       6011361100 4556646271 4016644142 5445405156 4445704051 5640416217 1515151515 1155444145 Pt.t ENTRY (TABLE INDEX IN AR)rrrrrtMDAE
       1451115764 4142541100 4144444064 5740416247 4051566364 6240645740 4657625540 6441425445 'ItOTABLt ADD TO ARG INSTR TO FORM TABLE
       1515151515 1141625162 1446111100 4040464564 4350404156 4440457045 4365644515 1152606362 rrrrrtARIR'Ftt   FETCH AND EXECUTErtJPSR
       1157675762 4411005765 6460656440 6757624415 1155445162 1470115764 4142541100 6245646562 tOWORDt OUTPUT WORDrtMDIR'XtOTABLt RETUR
       5615151515 1515151515 1515151515 7777700000 6703714425 6703714425 6703714425 6703714425 NrrrrrrrrrrrrrrbbX  W!YD5W!YD5W!YD5W!YD5
       6703714425 6703714425 6703714425 6703714425 6703714425 6703714425                       W!YD5W!YD5W!YD5W!YD5W!YD5W!YD5
 1600: 0005500012 4664562022 1361200462 3414400000 0040456262 5762406257 6564515645 1515151515  *H ?FTN02"Q0&R,'     ERROR ROUTINErrrrr
       1515151515 4562625762 0611526555 6011361100 4556646271 1515151515 1141624162 1470114562 rrrrrERROR:tJUMPt.t ENTRYrrrrrtARAR'XtER
       6243641100 5156444570 4064576441 5440456262 5762404357 6556641515 1155444162 1456116364 RCTt INDEX TOTAL ERROR COUNTrrtMDAR'NtST
       5545461100 2163644045 6262576240 5756406450 5163404341 6244401215 1141564162 1470116364 MEFt 1ST ERROR ON THIS CARD ?rtANAR'XtST
       5545431100 7145633440 5156444570 4043576556 6415151515 4562576226 0611416255 4414561163 MECt YES, INDEX COUNTrrrrEROR6:tARMD'NtS
       6455454611 0041564440 6345644021 6364404562 6240465441 4715151515 1141627057 1446111100 TMEFt AND SET 1ST ERR FLAGrrrrtARXO'Ftt 
       4354454162 4013541340 4341624440 4654414715 1141625544 1154434446 4715151515 1515151515 CLEAR "L" CARD FLAGrtARMDtLCDFGrrrrrrrrr
       0040514640 5451636451 5647404562 6257626340 5756547134 4044574056 4567405451 5645634046   IF LISTING ERRORS ONLY, DO NEW LINES F
       5162636440 5156404341 6345405746 4041644570 6440465154 4540576564 6065644036 3636151515 IRST IN CASE OF ATEXT FILE OUTPUT ...rrr
       1515151515 1155444162 1154636446 4711004665 5454406357 6562434540 5451636451 5647401215 rrrrrtMDARtLSTFGt FULL SOURCE LISTING ?r
       1152604156 1145625762 2411007145 6334406353 5160151515 1515151515 1155444162 1145626246 tJPANtEROR4t YES, SKIPrrrrrrrrtMDARtERRF
       4711004554 6345344046 5162636440 4562625762 4012151515 1152605463 1136102211 0056573440 Gt ELSE, FIRST ERROR ?rrrtJPLSt.+2t NO, 
       6353516015 1152606362 1156456754 5611007145 6334405765 6460656440 4254415653 4054515645 SKIPrtJPSRtNEWLNt YES, OUTPUT BLANK LINE
       4046516263 6415151515 1515151515 1152606362 1156456754 5611006364 4162644056 4567405451  FIRSTrrrrrrrrrtJPSRtNEWLNt START NEW LI
       5645404657 6240456262 5762405545 6363414745 1515151515 1515151515 4562576224 0611554441 NE FOR ERROR MESSAGErrrrrrrrrrEROR4:tMDA
       6214511145 6262576211 0046456443 5040416247 4060575156 6445624064 5740456262 5762406441 R'ItERRORt FETCH ARG POINTER TO ERROR TA
       4254451515 5146724562 5740662234 1152606362 1145576662 5471404045 5644431100 5146406645 BLErrIFZERO V2,tJPSRtEOVRLY  ENDCt IF VE
       6263515756 4022344047 4564404562 6257624057 6645625441 7115151515 1141625544 1145645521 RSION 2, GET ERROR OVERLAYrrrrtARMDtETM1
       1100634166 4515151515 1155444162 1451114564 5521110046 4564435040 6757624440 4662575540 t SAVErrrrtMDAR'ItETM1t FETCH WORD FROM 
       4562625762 4064414254 4515151515 1141625544 1145645522 1100634166 4515151515 1141625463 ERROR TABLErrrrtARMDtETM2t SAVErrrrtARLS
       1122110063 5051466440 5156406345 6645625164 7140435744 4515151515 1155444162 1441114323 t2t SHIFT IN SEVERITY CODErrrrtMDAR'AtC3
       1100554163 5315151515 1141625544 1145645523 1100634166 4515151515 1155444162 1453145611 t MASKrrrrtARMDtETM3t SAVErrrrtMDAR'K'Nt
       4564552211 0056576440 4140474350 4062454144 4045626257 6240121515 1155444162 1441115645 ETM2t NOT A GCH READ ERROR ?rrtMDAR'AtNE
       6743461100 4156444060 6257434563 6351564740 4556444057 4640606245 6640434162 4440121515 WCFt AND PROCESSING END OF PREV CARD ?rr
       1141625544 1145645524 1100714563 3440634564 4046544147 1515151515 1152604156 1145625762 tARMDtETM4t YES, SET FLAGrrrrrtJPANtEROR
       2111004156 4440635351 6015151515 1515151515 1155444162 1453145611 4564552211 0047435040 1t AND SKIPrrrrrrrrrtMDAR'K'NtETM2t GCH 
       4562625762 4012151515 1152604156 1145625762 2211005657 3440635351 6015151515 1515151515 ERROR ?rrrtJPANtEROR2t NO, SKIPrrrrrrrrr
       1155444162 1143575463 1100714563 3440464564 4350404365 6262455664 4051566065 6440435754 tMDARtCOLSt YES, FETCH CURRENT INPUT COL
       6555561515 1152605463 1145625762 2311006062 5157404562 6257624042 4546576245 4021636440 UMNrrtJPLStEROR3t PRIO ERROR BEFORE 1ST 
       4350416240 5746405451 5645401215 1515151515 1141624162 1470117360 6251575411 0071456334 CHAR OF LINE ?rrrrrrtARAR'Xt$PRIOLt YES,
       4051564445 7040545156 4540565736 1515151515 1152655560 1145625762 2311005265 5560406457  INDEX LINE NO.rrrrrtJUMPtEROR3t JUMP TO
       4063416645 4045626257 6240435754 6555561515 1515151515 4562576221 0611554441 6211634357  SAVE ERROR COLUMNrrrrrrrEROR1:tMDARtSCO
       5463110041 6440455644 4057464060 6245664043 4162443440 4745644063 4166454440 4357541515 LSt AT END OF PREV CARD, GET SAVED COLrr
       1152655560 1145625762 2311005265 5560406457 4063416645 4046576240 5765646065 6415151515 tJUMPtEROR3t JUMP TO SAVE FOR OUTPUTrrrr
       1515151515 4562576222 0611554441 6211435754 6311005756 4043656262 4556644043 4162443440 rrrrrEROR2:tMDARtCOLSt ON CURRENT CARD, 
       4745644043 5754655556 4056573615 1155444163 1446145611 2722361100 6041636440 4357546555 GET COLUMN NO.rtMDAS'F'Nt72.t PAST COLUM
       5640272240 1215151515 1152604156 1136102211 0056573440 6353516015 1141627057 1446111100 N 72 ?rrrrtJPANt.+2t NO, SKIPrtARXO'Ftt 
       7145633440 6345644064 5740435754 6555564027 2215151515 1155444163 1446112722 3611006245 YES, SET TO COLUMN 72rrrrtMDAS'Ft72.t RE
       6364576245 4045626257 6240435754 6555561515 1515151515 7777700000 6166042523 6166042523 STORE ERROR COLUMNrrrrrrrbbX  QV&53QV&53
       6166042523 6166042523 6166042523 6166042523 6166042523 6166042523 6166042523 6166042523 QV&53QV&53QV&53QV&53QV&53QV&53QV&53QV&53
 1305: 0005600012 4664562022 1361200367 3414400000 4562576223 0611416255 4411456455 2511006341  *P ?FTN02"Q0!W,'   EROR3:tARMDtETM5t SA
       6645404562 6257624043 5754655556 4056573615 1155444162 1450114245 5454461100 4245545440 VE ERROR COLUMN NO.rtMDAR'HtBELLFt BELL 
       6265564740 7145644012 1515151515 1155444162 1441114562 6246471100 4156444056 5764404651 RUNG YET ?rrrrrtMDAR'AtERRFGt AND NOT FI
       6263644045 6262576240 1215151515 1152605463 1136102311 0071456334 4063535160 1515151515 RST ERROR ?rrrrtJPLSt.+3t YES, SKIPrrrrr
       1515151515 1141625544 1457114245 5454461100 5657344063 4564404657 6240565740 5557624540 rrrrrtARMD'OtBELLFt NO, SET FOR NO MORE 
       4245545463 1515151515 1152606362 1142455454 1100415644 4062515647 4042455454 4057564064 BELLSrrrrrtJPSRtBELLt AND RING BELL ON T
       4554456471 6045151515 1515151515 1155444162 1450114562 6246471100 4645644350 4043656262 ELETYPErrrrrrrrtMDAR'HtERRFGt FETCH CURR
       4556644045 6262576240 4357444515 1141625463 1122110063 5051466440 5156406345 6645625164 ENT ERROR CODErtARLSt2t SHIFT IN SEVERIT
       7140435744 4515151515 1155444162 1441114323 1100554163 5315151515 1141624162 1456144615 Y CODErrrrtMDAR'AtC3t MASKrrrrtARAR'N'Fr
       1155444163 1145645523 1100476245 4164456240 6450415640 5762406341 5545404163 4064505163 tMDAStETM3t GREATER THAN OR SAME AS THIS
       4045626240 1215151515 1152604156 1145625762 2511007145 6334406353 5160151515 1515151515  ERR ?rrrrtJPANtEROR5t YES, SKIPrrrrrrrr
       1155444162 1453114564 5523110045 5463453440 4745644063 4566456251 6471404357 4445151515 tMDAR'KtETM3t ELSE, GET SEVERITY CODErrr
       1141625463 1127110063 5051466440 6457406057 6351645157 5615151515 1155444163 1145645522 tARLSt7t SHIFT TO POSITIONrrrrtMDAStETM2
       1100435755 4251564540 4562625762 4056655542 4562151515 1141625544 1145626246 4711006341 t COMBINE ERROR NUMBERrrrtARMDtERRFGt SA
       6645405156 4045626257 6240465441 4715151515 3645624357 4406114162 5544117345 6243574411 VE IN ERROR FLAGrrrr.ERCOD:tARMDt$ERCODt
       0041546357 4046576240 5557565164 5762405541 4362574043 5045435351 5647151515 1515151515  ALSO FOR MONITOR MACRO CHECKINGrrrrrrrr
       4562576225 0611554441 6211546364 4647110046 6554544063 5765624345 4054516364 5156474012 EROR5:tMDARtLSTFGt FULL SOURCE LISTING ?
       1515151515 1152604156 1145625762 3011007145 6334405265 5560151515 1515151515 1155444162 rrrrrtJPANtEROR8t YES, JUMPrrrrrrrrtMDAR
       1145645522 1100464564 4350404562 6257624067 5762441515 1152606362 1157456257 6211005765 tETM2t FETCH ERROR WORDrrtJPSRtOERORt OU
       6460656440 4562625762 4056573615 1163646251 5647111440 4014151515 1163646251 5647111440 TPUT ERROR NO.rtSTRINGt'  'rrrtSTRINGt' 
       0514151515 1163646251 5647111405 0514151515 1515151515 1155444162 1446113136 1100644142 *'rrrtSTRINGt'**'rrrrrrrrtMDAR'Ft9.t TAB
       4064574054 5156454065 6040576564 6065641515 1152606362 1451116441 4260661515 1152606362  TO LINE UP OUTPUTrrtJPSR'ItTABPVrrtJPSR
       1173574663 6415151515 6364625156 4740144164 4014151515 1155444162 1456114564 5524110060 t$OFSTrrrrSTRING 'AT 'rrrtMDAR'NtETM4t P
       6245356062 5743456363 5156474045 6262401215 1152604156 1136102315 1515151515 1155444162 RE-PROCESSING ERR ?rtJPANt.+3rrrrrrtMDAR
       1163604147 4511007145 6334404645 6443504063 4166454440 6041474540 5657361515 1152655560 tSPAGEt YES, FETCH SAVED PAGE NO.rrtJUMP
       1136102215 1515151515 1155444162 1173606251 5760110056 5734404645 6443504043 6562624060 t.+2rrrrrrtMDARt$PRIOPt NO, FETCH CURR P
       4147454056 5736151515 1515151515 1152606362 1173645743 6311005765 6460656440 4562625762 AGE NO.rrrrrrrrtJPSRt$TOCSt OUTPUT ERROR
       4060414745 1515151515 1155444162 1446110236 1100634560 4162416457 6240604562 5157441515  PAGErrrrrtMDAR'Ftc.t SEPARATOR PERIODrr
       1152606362 1451115743 5060661515 1515151515 1155444162 1456114564 5524110041 5463574043 tJPSR'ItOCHPVrrrrrrrtMDAR'NtETM4t ALSO C
       5045435340 4657624060 6257604562 4054515645 4056573615 1152604156 1136102315 1515151515 HECK FOR PROPER LINE NO.rtJPANt.+3rrrrrr
       1155444162 1163545156 4515151515 1152655560 1136102215 1515151515 1155444162 1173606251 tMDARtSLINErrrrtJUMPt.+2rrrrrrtMDARt$PRI
       5754151515 1515151515 7777700000 3764516120 3764516120 3764516120 3764516120 3764516120 OLrrrrrrrrbbX  /TIQ0/TIQ0/TIQ0/TIQ0/TIQ0
       3764516120 3764516120 3764516120 3764516120 3764516120                                  /TIQ0/TIQ0/TIQ0/TIQ0/TIQ0
 1445: 0005700012 4664562022 1361200423 3414400000 1152606362 1173645743 6311005765 6460656440  *X ?FTN02"Q0&3,'   tJPSRt$TOCSt OUTPUT 
       4562625762 4054515645 4056573615 1155444162 1446110236 1100634560 4162416457 6240604562 ERROR LINE NO.rtMDAR'Ftc.t SEPARATOR PER
       5157441515 1152606362 1451115743 5060661515 1515151515 1155444162 1145645525 1100464564 IODrrtJPSR'ItOCHPVrrrrrrrtMDARtETM5t FET
       4350404562 6257624043 5754655556 4056573615 1152606362 1157444543 6311005765 6460656440 CH ERROR COLUMN NO.rtJPSRtODECSt OUTPUT 
       4357546555 5640565736 1515151515 1155444162 1154636446 4711006350 5762644045 6262576240 COLUMN NO.rrrrrtMDARtLSTFGt SHORT ERROR 
       5557444540 1215151515 1152605463 1145625721 2011007145 6334406353 5160151515 1515151515 MODE ?rrrrtJPLStERO10t YES, SKIPrrrrrrrr
       1155444162 1446112223 3611005457 5647404562 6257626334 4064414240 6457405451 5645406560 tMDAR'Ft23.t LONG ERRORS, TAB TO LINE UP
       1515151515 1152606362 1451116441 4260661515 5146724562 5740662215 1155444162 1451114562 rrrrrtJPSR'ItTABPVrrIFZERO V2rtMDAR'ItER
       6257621100 5156402126 5334406245 5457414440 4562625762 4057664562 5441714051 4615151515 RORt IN 16K, RELOAD ERROR OVERLAY IFrrrr
       1152606362 1145576662 5471110040 4043545742 4245624544 4042714041 6445706440 5765646065 tJPSRtEOVRLYt   CLOBBERED BY ATEXT OUTPU
       6415151515 4554634515 1155444162 1145645521 1100464564 4350404562 6257624067 5762441515 TrrrrELSErtMDARtETM1t FETCH ERROR WORDrr
       4556444315 1155444163 1446112115 1141625544 1136102211 0063416645 1515151515 1152606362 ENDCrtMDAS'Ft1rtARMDt.+2t SAVErrrrrtJPSR
       1173576364 1100576564 6065644063 6462515647 1515151515 1111201515 1152655560 1145625721 t$OSTt OUTPUT STRINGrrrrrtt0rrtJUMPtERO1
       2011005265 5560406457 4043504543 5340514640 6445625551 5641544045 6262576215 1515151515 0t JUMP TO CHECK IF TERMINAL ERRORrrrrrr
       4562576230 0611554441 6214531145 6455221100 4743504051 5660656440 4562625762 4012151515 EROR8:tMDAR'KtETM2t GCH INPUT ERROR ?rrr
       1152634156 1154636445 6211007145 6334405451 6364406062 4566515765 6340456262 5762634046 tJSANtLSTERt YES, LIST PREVIOUS ERRORS F
       5162636415 1515151515 1155444162 1154456242 6011005451 6364515647 4045626257 6240426546 IRSTrrrrrrtMDARtLERBPt LISTING ERROR BUF
       4645624046 6554544012 1515151515 1155447057 1446115445 6242453521 1515151515 1152605463 FER FULL ?rrrrrtMDXO'FtLERBE-1rrrrrtJPLS
       1136102215 1152655560 1145625721 2011007145 6334406353 5160401645 6262576240 6757561464 t.+2rtJUMPtERO10t YES, SKIP (ERROR WON'T
       4063505767 4065601715 1515151515 1155444162 1451145011 4562625762 1100464564 4350406057  SHOW UP)rrrrrrtMDAR'I'HtERRORt FETCH PO
       5156644562 4064574045 6262576240 6441425445 1515151515 1155444163 1145645525 1100435755 INTER TO ERROR TABLErrrrrtMDAStETM5t COM
       4251564540 4357546555 5640565736 1515151515 1141625544 1451147014 5011544562 4260110063 BINE COLUMN NO.rrrrrtARMD'I'X'HtLERBPt S
       4166454046 5762405451 6364515647 1515151515 1515151515 4562572120 0611554441 6214561145 AVE FOR LISTINGrrrrrrrrrrERO10:tMDAR'NtE
       6455221100 4645644350 4045626257 6240435744 4515151515 1141564162 1470145611 4562626743 TM2t FETCH ERROR CODErrrrtANAR'X'NtERRWC
       1100514640 6741625651 5647405756 5471344051 5644457040 4357655664 4057461515 1152604156 t IF WARNING ONLY, INDEX COUNT OFrrtJPAN
       1145625762 3111004040 6741625651 5647404562 6263344041 5644406353 5160151515 1515151515 tEROR9t   WARNING ERRS, AND SKIPrrrrrrrr
       1141625544 1457115754 5743110063 4564405443 4056454740 6457406350 5767405765 6460656440 tARMD'OtOLOCt SET LC NEG TO SHOW OUTPUT 
       4462576060 4544151515 1155444162 1442114564 5522110064 4562555156 4154404562 6257624012 DROPPEDrrrtMDAR'BtETM2t TERMINAL ERROR ?
       1515151515 1152604156 1145625721 2111007145 6334405265 5560151515 1515151515 1141624162 rrrrrtJPANtERO11t YES, JUMPrrrrrrrrtARAR
       1470114562 6246431100 5156444570 4046416441 5440456262 5762404357 6556641515 1152606362 'XtERRFCt INDEX FATAL ERROR COUNTrrtJPSR
       1173446257 6011004462 5760404156 7140576564 6065644063 5740464162 1515151515 1515151515 t$DROPt DROP ANY OUTPUT SO FARrrrrrrrrrr
       4562576231 0611554441 6214531145 6455221100 4645644350 4045626257 6240435744 4515151515 EROR9:tMDAR'KtETM2t FETCH ERROR CODErrrr
       1141624162 1442144611 1100414257 6264404341 6244406343 4156401215 1152604156 1141426443 tARAR'B'Ftt ABORT CARD SCAN ?rtJPANtABTC
       4411007145 6334405265 5560406457 4041425762 6440634341 5615151515 1515151515 1155445162 Dt YES, JUMP TO ABORT SCANrrrrrrrrrtMDIR
       1470114562 6257621100 4554634534 4062456465 6256151515 1515151515 7777700000 6344104164 'XtERRORt ELSE, RETURNrrrrrrrrbbX  SD+AT
       6344104164 6344104164 6344104164 6344104164 6344104164 6344104164 6344104164 6344104164 SD+ATSD+ATSD+ATSD+ATSD+ATSD+ATSD+ATSD+AT
       6344104164                                                                              SD+AT
 1310: 0006000012 4664562022 1361200370 3414400000 4562572121 0611526063 6211546364 4562110054  :  ?FTN02"Q0!X,'   ERO11:tJPSRtLSTERt L
       5163644045 6262634057 5640606245 6640545156 4534405146 4041567115 1155444162 1143212511 IST ERRS ON PREV LINE, IF ANYrtMDARtC15t
       0063456440 5441636440 4350416240 6457404337 6215151515 1141625544 1147435041 6215151515  SET LAST CHAR TO C/RrrrrtARMDtGCHARrrrr
       1155444162 1173606251 5754110041 5671404365 6262455664 4054515645 4012151515 1152635463 tMDARt$PRIOLt ANY CURRENT LINE ?rrrtJSLS
       1154636454 5611007145 6334405451 6364404365 6262455664 4054515645 1515151515 1141625544 tLSTLNt YES, LIST CURRENT LINErrrrrtARMD
       1457115645 6743461100 6345644064 5740415454 5767404562 6257624054 5156451515 1152606362 'OtNEWCFt SET TO ALLOW ERROR LINErrtJPSR
       1154636445 6215151515 5146724562 5740662215 1152606362 1146576662 5471110051 5640212653 tLSTERrrrrIFZERO V2rtJPSRtFOVRLYt IN 16K
       4066456263 5157563440 6245545741 4415151515 1152655560 2111361021 1100404051 5651645141  VERSION, RELOADrrrrtJUMP1t.+1t   INITIA
       5440576645 6254417115 4556444315 1155444162 1136102311 0063456465 6040606251 5740456262 L OVERLAYrENDCrtMDARt.+3t SETUP PRIO ERR
       5762405057 5753406457 4064456255 5156416445 1515151515 3645576445 7006114162 5544117345 OR HOOK TO TERMINATErrrrr.EOTEX:tARMDt$E
       5764457011 0040404357 5560515441 6451575640 5146404562 6257624051 5640446257 6015151515 OTEXt   COMPILATION IF ERROR IN DROPrrrr
       1152606362 1173446257 6011004462 5760405765 6460656415 1152655560 1146576264 4556441100 tJPSRt$DROPt DROP OUTPUTrtJUMPtFORTENDt 
       5265556040 6457406445 6255515641 6445404357 5560515441 6451575615 1515151515 4562624647 JUMP TO TERMINATE COMPILATIONrrrrrrERRFG
       0611112011 0045626257 6240465441 4715151515 4245545446 0611112011 0064647140 4245545440 :tt0t ERROR FLAGrrrrBELLF:tt0t TTY BELL 
       4654414715 4562624364 0611112011 0064576441 5440456262 5762404357 6556641515 4562626743 FLAGrERRCT:tt0t TOTAL ERROR COUNTrrERRWC
       0611112011 0043576556 6440574640 6741625651 5647404562 6257626315 4562624643 0611112011 :tt0t COUNT OF WARNING ERRORSrERRFC:tt0t
       0043576556 6440574640 4641644154 4045626257 6263151515 6364554364 0611112011 0063644164  COUNT OF FATAL ERRORSrrrSTMCT:tt0t STAT
       4555455664 4043576556 6415151515 6364414364 0611112011 0041444560 6440636441 6445554556 EMENT COUNTrrrrSTACT:tt0t ADEPT STATEMEN
       6440435765 5664151515 6364434364 0611112011 0043575664 6257544063 6441644555 4556644043 T COUNTrrrSTCCT:tt0t CONTROL STATEMENT C
       5765566415 6364554543 0611112011 0043576556 6440574640 6364416445 5545566463 4067516450 OUNTrSTMEC:tt0t COUNT OF STATEMENTS WITH
       4045626257 6263151515 6364554546 0611112011 0021636440 6364416445 5545566440 4562625762  ERRORSrrrSTMEF:tt0t 1ST STATEMENT ERROR
       4046544147 1515151515 1515151515 1515151515 4564552106 1111201100 6445556036 4063645762  FLAGrrrrrrrrrrrrrrrETM1:tt0t TEMP. STOR
       4147451515 4564552206 1111201515 4564552306 1111201515 4564552406 1111201515 4564552506 AGErrETM2:tt0rrETM3:tt0rrETM4:tt0rrETM5:
       1111201515 1515151515 1515151515 0040634564 4055575651 6457624045 6262576240 4357444540 tt0rrrrrrrrrrrr  SET MONITOR ERROR CODE 
       4156444064 7160454045 6262576240 5545636341 4745151515 1515151515 6364456262 0611113611 AND TYPE ERROR MESSAGErrrrrrrrSTERR:tt.t
       0045566462 7115151515 1141625544 1173456243 5744110063 4564405557 5651645762 4045626257  ENTRYrrrrtARMDt$ERCODt SET MONITOR ERRO
       6240515644 5143416457 6240435744 4515151515 3644574350 4606114162 5544145711 7344574350 R INDICATOR CODErrrr.DOCHF:tARMD'Ot$DOCH
       4611006345 6440465762 4064716045 5765641515 1155444162 1163644562 6211004645 6443504045 Ft SET FOR TYPEOUTrrtMDARtSTERRt FETCH E
       6262576240 6364625156 4740414444 6245636315 1141625544 1136102211 0063416645 4046576240 RROR STRING ADDRESSrtARMDt.+2t SAVE FOR 
       5765646065 6415151515 1152606362 1173576364 1100576564 6065644055 4563634147 4515151515 OUTPUTrrrrtJPSRt$OSTt OUTPUT MESSAGErrrr
       1111201515 3655575626 0611526555 6011735557 5626110041 4257626440 6457405557 5651645762 tt0rr.MON6:tJUMPt$MON6t ABORT TO MONITOR
       1515151515 1515151515 1515151515 7777700000 5263044316 5263044316 5263044316 5263044316 rrrrrrrrrrrrrrrbbX  JS&C(JS&C(JS&C(JS&C(
       5263044316 5263044316 5263044316 5263044316 5263044316 5263044316                       JS&C(JS&C(JS&C(JS&C(JS&C(JS&C(
 1625: 0006100012 4664562022 1361200467 3414400000 0040435041 6241436445 6240644142 5445151515  :+ ?FTN02"Q0&W,'     CHARACTER TABLErrr
       1515151515 0040404042 5164631620 3521174033 4020204040 4154605041 4245645143 4043504162 rrrrr    BITS(0-1) = 00  ALPHABETIC CHAR
       4143644562 1515151515 0040404040 4040404040 4040404033 4020214040 5665554562 5143404350 ACTERrrrrr              = 01  NUMERIC CH
       4162414364 4562151515 0040404040 4040404040 4040404033 4021204040 6360454351 4154404350 ARACTERrrr              = 10  SPECIAL CH
       4162414364 4562151515 0040404042 5164162217 4033406556 6563454415 0040404042 5164631623 ARACTERrrr    BIT(2) = UNUSEDr    BITS(3
       3525174033 4041444560 6440555744 4540435041 6241436445 6240647160 4515151515 0040404042 -5) = ADEPT MODE CHARACTER TYPErrrr    B
       5164631626 3521211740 3340655665 6345444016 4166415154 4142544517 1515151515 0040404042 ITS(6-11) = UNUSED (AVAILABLE)rrrrr    B
       5164631621 2235212417 4033405155 6054514351 6440444164 4140647160 4540574640 4350416241 ITS(12-14) = IMPLICIT DATA TYPE OF CHARA
       4364456215 0015151515 0040404042 5164631621 2517403340 4654414740 5146406360 4543514154 CTERr rrrr    BITS(15) = FLAG IF SPECIAL
       4043504162 4046575454 5767515647 4013751340 5156404163 4351514063 6462515647 1515151515  CHAR FOLLOWING "@" IN ASCII STRINGrrrrr
       0040404042 5164631621 2635222217 4033404163 4351514043 5744454046 5762401375 1340435756     BITS(16-22) = ASCII CODE FOR "@" CON
       6645626351 5756151515 0040404042 5164631622 2335223117 4033404163 4351514043 5744454046 VERSIONrrr    BITS(23-29) = ASCII CODE F
       5762404155 5763404350 4162414364 4562151515 1515151515 1515151515 3641403340 2022202020 OR AMOS CHARACTERrrrrrrrrrrrrr.A = 02000
       0350111100 4154605041 4245645143 4041564440 4144456064 4064716045 4022151515 3656403340 !Htt ALPHABETIC AND ADEPT TYPE 2rrr.N = 
       2222202020 0350111100 5665554562 5143404156 4440414445 6064406471 6045402215 3663403340 22000!Htt NUMERIC AND ADEPT TYPE 2r.S = 
       2420202020 0350111100 6360454351 4154404156 4440414445 6064406471 6045402015 3643403340 40000!Htt SPECIAL AND ADEPT TYPE 0r.C = 
       2420202020 1111110041 6343515140 1375134043 5756664562 6351575615 3664214033 4024212020 40000ttt ASCII "@" CONVERSIONr.T1 = 4100
       2003501111 0041444560 6440435041 6241436445 6240647160 4540214010 4063604543 5141541515 0!Htt ADEPT CHARACTER TYPE 1 + SPECIALrr
       3664224033 4024222020 2003501111 0041444560 6440435041 6241436445 6240647160 4540224040 .T2 = 42000!Htt ADEPT CHARACTER TYPE 2  
       4040404013 1515151515 3664234033 4024232020 2003501111 0041444560 6440435041 6241436445     "rrrrr.T3 = 43000!Htt ADEPT CHARACTE
       6240647160 4540234040 4040404013 1515151515 3664244033 4024242020 2003501111 0041444560 R TYPE 3      "rrrrr.T4 = 44000!Htt ADEP
       6440435041 6241436445 6240647160 4540244040 4040404013 1515151515 3664254033 4024252020 T CHARACTER TYPE 4      "rrrrr.T5 = 4500
       2003501111 0041444560 6440435041 6241436445 6240647160 4540254040 4040404013 1515151515 0!Htt ADEPT CHARACTER TYPE 5      "rrrrr
       3664264033 4024262020 2003501111 0041444560 6440435041 6241436445 6240647160 4540264040 .T6 = 46000!Htt ADEPT CHARACTER TYPE 6  
       4040404013 1515151515 3664274033 4024272020 2003501111 0041444560 6440435041 6241436445     "rrrrr.T7 = 47000!Htt ADEPT CHARACTE
       6240647160 4540274040 4040404013 1515151515 1515151515 4350626442 0611111100 4357444540 R TYPE 7      "rrrrrrrrrrCHRTB:ttt CODE 
       4040435041 6240404041 6343515135 4357566615 1515151515 1136642111 2123231100 4020204040   CHAR   ASCII-CONVrrrrrrt.T1t133t  00  
       4040400015 1136642111 7501110040 2021404040 4040011515 1136642711 7502403643 1416212323     rt.T1t@%t  01     %rrt.T7t@c .C'(133
       0353034217 1100402022 4040404040 0211001515 1136642711 7503403643 1416212724 0353034217 !K!B)t  02     ct rrt.T7t@! .C'(174!K!B)
       1100402023 4040404040 0311664562 6451434154 4042416215 1136642611 7504110040 2024404040 t  03     !tVERTICAL BARrt.T6t@&t  04   
       4040041515 1136642611 7505403643 1416212420 0353034217 1100402025 4040404040 0511476241   &rrt.T6t@* .C'(140!K!B)t  05     *tGRA
       6645404143 4345566415 1136642411 7506110040 2026404040 4040061515 1136642111 2123241100 VE ACCENTrt.T4t@:t  06     :rrt.T1t134t 
       4020274040 4040400715 1515151515 1136642611 7510403643 1416751374 1303530342 1700402120  07     _rrrrrrt.T6t@+ .C'(@"#"!K!B)  10
       4040404040 1011741515 1136642511 2021211100 4021214040 4040406441 4215151515 1136642611      +t#rrt.T5t011t  11     TABrrrrt.T6t
       7512110040 2122404040 4040121515 1136642111 2024221100 4021234040 4040401315 1136642611 @?t  12     ?rrt.T1t042t  13     "rt.T6t
       7514403643 1416202422 0353034217 1100402124 4040404040 1411131515 1136642311 2021251100 @' .C'(042!K!B)t  14     't"rrt.T3t015t 
       4021254040 4040404362 1515151515 1136642111 7516403643 1416202724 0353034217 1100402126  15     CRrrrrrt.T1t@( .C'(074!K!B)t  16
       4040404040 1611544546 6440415647 5445404262 4143534564 1515151515 1136642111 7517403643      (tLEFT ANGLE BRACKETrrrrrt.T1t@) .C
       1416202726 0353034217 1100402127 4040404040 1711625147 5064404156 4754454042 6241435345 '(076!K!B)t  17     )tRIGHT ANGLE BRACKE
       6415151515 1515151515 7777700000 0310367551 0310367551 0310367551 0310367551 0310367551 TrrrrrrrrrbbX  !+.@I!+.@I!+.@I!+.@I!+.@I
       0310367551 0310367551 0310367551 0310367551 0310367551                                  !+.@I!+.@I!+.@I!+.@I!+.@I
 1510: 0006200012 4664562022 1361200440 3414400000 1136561175 2011004022 2040404040 4020151515  :0 ?FTN02"Q0& ,'   t.Nt@0t  20     0rrr
       1136561175 2111004022 2140404040 4021151515 1136561175 2211004022 2240404040 4022151515 t.Nt@1t  21     1rrrt.Nt@2t  22     2rrr
       1136561175 2311004022 2340404040 4023151515 1136561175 2411004022 2440404040 4024151515 t.Nt@3t  23     3rrrt.Nt@4t  24     4rrr
       1136561175 2511004022 2540404040 4025151515 1136561175 2611004022 2640404040 4026151515 t.Nt@5t  25     5rrrt.Nt@6t  26     6rrr
       1136561175 2711004022 2740404040 4027151515 1515151515 1136561175 3011004023 2040404040 t.Nt@7t  27     7rrrrrrrrt.Nt@8t  30    
       4030151515 1136561175 3111004023 2140404040 4031151515 1136642311 2027231100 4023224040  8rrrt.Nt@9t  31     9rrrt.T3t073t  32  
       4040403215 1136642411 7533403643 1416212726 0353034217 1100402323 4040404040 3311645154    ;rt.T4t@= .C'(176!K!B)t  33     =tTIL
       4445151515 1136642111 7534110040 2324404040 4040341515 1136642611 7535403643 1416212327 DErrrt.T1t@,t  34     ,rrt.T6t@- .C'(137
       0353034217 1100402325 4040404040 3511655644 4562545156 4515151515 1136642211 7536110040 !K!B)t  35     -tUNDERLINErrrrt.T2t@.t  
       2326404040 4040361515 1136642611 7537403643 1416212324 0353034217 1100402327 4040404040 36     .rrt.T6t@/ .C'(134!K!B)t  37     
       3711071515 1515151515 1136642511 2420110040 2420404040 4040636041 4345151515 1136411175 /t_rrrrrrrt.T5t40t  40     SPACErrrt.At@
       4111004024 2140404040 4041151515 1136411175 4240364314 1620232703 5303421711 0040242240 At  41     Arrrt.At@B .C'(037!K!B)t  42 
       4040404042 1142625147 5064456215 1136411175 4340364314 1620212503 5303421711 0040242340     BtBRIGHTERrt.At@C .C'(015!K!B)t  43 
       4040404043 1143376215 1136411175 4440364314 1620232603 5303421711 0040242440 4040404044     CtC/Rrt.At@D .C'(036!K!B)t  44     D
       1144515555 4562151515 1136411175 4540364314 1620222303 5303421711 0040242540 4040404045 tDIMMERrrrt.At@E .C'(023!K!B)t  45     E
       1145706041 5644406351 7245151515 1136411175 4640364314 1620212203 5303421711 0040242640 tEXPAND SIZErrrt.At@F .C'(012!K!B)t  46 
       4040404046 1154374615 1136411175 4711004024 2740404040 4047151515 1515151515 1136411175     FtL/Frt.At@Gt  47     Grrrrrrrrt.At@
       5011004025 2040404040 4050151515 1136411175 5140364314 1620212003 5303421711 0040252140 Ht  50     Hrrrt.At@I .C'(010!K!B)t  51 
       4040404051 1151644154 5143631515 1136411175 5240364314 1621272303 5303421711 0040252240     ItITALICSrrt.At@J .C'(173!K!B)t  52 
       4040404052 1154454664 4042624143 4515151515 1136411175 5340364314 1621272503 5303421711     JtLEFT BRACErrrrt.At@K .C'(175!K!B)t
       0040252340 4040404053 1162514750 6440426241 4345151515 1136411175 5440364314 1620232403   53     KtRIGHT BRACErrrt.At@L .C'(034!
       5303421711 0040252440 4040404054 1154576745 6240545156 4515151515 1136411175 5511004025 K!B)t  54     LtLOWER LINErrrrt.At@Mt  5
       2540404040 4055151515 1136411175 5640364314 1620202003 5303421711 0040252640 4040404056 5     Mrrrt.At@N .C'(000!K!B)t  56     N
       1156655415 1136411175 5711004025 2740404040 4057151515 1515151515 1136411175 6011004026 tNULrt.At@Ot  57     Orrrrrrrrt.At@Pt  6
       2040404040 4060151515 1136411175 6111004026 2140404040 4061151515 1136411175 6240364314 0     Prrrt.At@Qt  61     Qrrrt.At@R .C'
       1620232503 5303421711 0040262240 4040404062 1162415163 4540545156 4515151515 1136411175 (035!K!B)t  62     RtRAISE LINErrrrt.At@
       6340364314 1620222203 5303421711 0040262340 4040404063 1163506251 5653406351 7245151515 S .C'(022!K!B)t  63     StSHRINK SIZErrr
       1136411175 6411004026 2440404040 4064151515 1136411175 6511004026 2540404040 4065151515 t.At@Tt  64     Trrrt.At@Ut  65     Urrr
       1136411175 6640364314 1621232603 5303421711 0040262640 4040404066 1143416241 6415151515 t.At@V .C'(136!K!B)t  66     VtCARATrrrr
       1136411175 6740364314 1620222103 5303421711 0040262740 4040404067 1163604143 4540636751 t.At@W .C'(021!K!B)t  67     WtSPACE SWI
       6443501515 1515151515 1136411175 7040364314 1620212103 5303421711 0040272040 4040404070 TCHrrrrrrrt.At@X .C'(011!K!B)t  70     X
       1160576351 6451575640 1370131515 1136411175 7140364314 1620212303 5303421711 0040272140 tPOSITION "X"rrt.At@Y .C'(013!K!B)t  71 
       4040404071 1160576351 6451575640 1371131515 1136411175 7211004027 2240404040 4072151515     YtPOSITION "Y"rrt.At@Zt  72     Zrrr
       1136642611 7573110040 2723404040 4040731515 1136642211 7513741311 0040272440 4040404074 t.T6t@$t  73     $rrt.T2t@"#"t  74     #
       1515151515 1136642711 7575403643 1416757503 5303421711 0040272540 4040404075 1175151515 rrrrrt.T7t@@ .C'(@@!K!B)t  75     @t@rrr
       1136642611 7576110040 2726404040 4040761515 1136631121 2327110040 2727404040 4040655644 t.T6t@+t  76     +rrt.St137t  77     UND
       4562545156 4515151515 1515151515 7777700000 2256400270 2256400270 2256400270 2256400270 ERLINErrrrrrrrrbbX  2N cX2N cX2N cX2N cX
       2256400270 2256400270 2256400270 2256400270 2256400270 2256400270                       2N cX2N cX2N cX2N cX2N cX2N cX
 1830: 0006300012 4664562022 1361200540 3414400000 0040534571 6757624440 4156444051 5663646251  :8 ?FTN02"Q0* ,'     KEYWORD AND INSTRI
       5663514340 6365426257 6564515645 4064414254 4563403636 3615151515 1515151515 0040050505 NSIC SUBROUTINE TABLES ...rrrrrrrrr  ***
       4056576445 4005050515 0040406450 4563454064 4142544563 4005556563 6405404245 4063604543  NOTE ***r   THESE TABLES *MUST* BE SPEC
       5146514544 4051564041 5460504142 4564514340 5762444562 4046576240 6062576045 6240435755 IFIED IN ALPHABETIC ORDER FOR PROPER COM
       6051544562 1515151515 0040405760 4562416451 5756403535 4056574041 6363455542 5471356451 PILERrrrrr   OPERATION -- NO ASSEMBLY-TI
       5545404350 4543535156 4740516340 6045624657 6255454436 1515151515 1515151515 0040534571 ME CHECKING IS PERFORMED.rrrrrrrrrr  KEY
       6757624440 4654414763 1515151515 1515151515 3660403340 2420202020 0350110060 4162645141 WORD FLAGSrrrrrrrrrr.P = 40000!Ht PARTIA
       5440534571 6757624440 4654414740 1662456351 4445634051 5640624563 5144455664 1715151515 L KEYWORD FLAG (RESIDES IN RESIDENT)rrrr
       3660213340 2421202020 0350110060 4162645141 5440534571 6757624440 4654414740 1651564057 .P1= 41000!Ht PARTIAL KEYWORD FLAG (IN O
       6645625441 7140211715 3660223340 2422202020 0350110060 4162645141 5440534571 6757624440 VERLAY 1)r.P2= 42000!Ht PARTIAL KEYWORD 
       4654414740 1651564057 6645625441 7140221715 3663403340 2011110063 6045435146 5143416451 FLAG (IN OVERLAY 2)r.S = 0tt SPECIFICATI
       5756406364 4164455545 5664401662 4563514445 6340515640 5766456254 4171402117 1515151515 ON STATEMENT (RESIDES IN OVERLAY 1)rrrrr
       3670403340 2220202020 0350110045 7045436564 4142544540 6364416445 5545566440 4654414740 .X = 20000!Ht EXECUTABLE STATEMENT FLAG 
       1662456351 4445634051 5640576645 6254417140 2217151515 3646403340 2122202020 0350110046 (RESIDES IN OVERLAY 2)rrr.F = 12000!Ht F
       5762554164 4063644164 4555455664 1515151515 3654403340 2024202020 0350110053 4571675762 ORMAT STATEMENTrrrrr.L = 04000!Ht KEYWOR
       4440415454 5767634054 4546644060 4162455664 5045635163 4044455451 5545644562 1515151515 D ALLOWS LEFT PARENTHESIS DELIMETERrrrrr
       3643403340 2022202020 0350110063 6045435146 5143416451 5756406364 4164455545 5664406750 .C = 02000!Ht SPECIFICATION STATEMENT WH
       5143504045 5551646340 4357444515 3650403340 2022242020 0350110063 6542356062 5747624155 ICH EMITS CODEr.H = 02400!Ht SUB-PROGRAM
       4050454144 4562405345 7167576244 1515151515 3656403340 2020222020 0350110041 5454576745  HEADER KEYWORDrrrrr.N = 00200!Ht ALLOWE
       4440575654 7140515640 5657625541 5440465762 6462415640 6062574762 4155631515 3651403340 D ONLY IN NORMAL FORTRAN PROGRAMSrr.I = 
       2020232020 0350110041 5454576745 4440575654 7140515640 5155414745 4063654260 6257476241 00300!Ht ALLOWED ONLY IN IMAGE SUBPROGRA
       5563151515 3647403340 2020202420 0350110051 5663456264 4057564060 5754516350 4041634041 MSrrr.G = 00040!Ht INSERT ON POLISH AS A
       5640515664 6251566351 4340466556 4364515756 1515151515 3644403340 2020202220 0350110041 N INTRINSIC FUNCTIONrrrrr.D = 00020!Ht A
       5454576745 4440515640 4441644122 4437444164 4123444016 4251646340 2122352124 4033404451 LLOWED IN DATA2D/DATA3D (BITS 12-14 = DI
       6360416443 5040565736 1715151515 1515151515 1515151515 5345714163 0611367014 3654114163 SPATCH NO.)rrrrrrrrrrrrrrKEYAS:t.X'.LtAS
       5655641100 4163635147 5655455664 4063645556 6440465441 4763151515 5345714146 0611366314 NMTt ASSIGNMENT STMNT FLAGSrrrKEYAF:t.S'
       3643116364 4665561100 6364416445 5545566440 4665564364 5157564046 5441476315 5345714354 .CtSTFUNt STATEMENT FUNCTION FLAGSrKEYCL
       0611367011 4341545411 0043415454 4063644164 4555455664 4046544147 6315151515 5345716446 :t.XtCALLt CALL STATEMENT FLAGSrrrrKEYTF
       0611366311 6471604563 1100474556 4562415440 6471604540 6364416445 5545566440 4654414763 :t.StTYPESt GENERAL TYPE STATEMENT FLAGS
       1515151515 5345715644 0611366314 3643114556 4463110045 5644406364 4164455545 5664404654 rrrrrKEYND:t.S'.CtENDSt END STATEMENT FL
       4147631515 1515151515 0040575645 3567576244 4053457167 5762446340 3636361515 1515151515 AGSrrrrrrr  ONE-WORD KEYWORDS ...rrrrrrr
       5345712164 0611644570 6411144254 5743531411 3660211142 4441646015 1164457064 1114434154 KEY1T:tTEXTt'BLOCK't.P1tBDATPrtTEXTt'CAL
       5414113660 1143415454 6015151515 1164457064 1114444164 4114113663 1436541436 4311444164 L't.PtCALLPrrrrtTEXTt'DATA't.S'.L'.CtDAT
       4115151515 1164457064 1114445714 1136701144 5715151515 1164457064 1114455644 1411366011 ArrrrtTEXTt'DO't.XtDOrrrrtTEXTt'END't.Pt
       4556446015 1164457064 1114455664 6271141136 6314364311 5664624571 1515151515 1164457064 ENDPrtTEXTt'ENTRY't.S'.CtNTREYrrrrrtTEXT
       1114475714 1136602211 4757601515 1164457064 1114475764 5714113670 1436541147 5764574040 t'GO't.P2tGOPrrtTEXTt'GOTO't.X'.LtGOTO  
       4040405345 7147570615 1164457064 1114514614 1136701436 5411514615 1164457064 1114515541    KEYGO:rtTEXTt'IF't.X'.LtIFrtTEXTt'IMA
       4745141136 6314365011 5155414745 1515151515 1164457064 1114575614 1136701436 5414365611 GE't.S'.HtIMAGErrrrrtTEXTt'ON't.X'.L'.Nt
       5756151515 1164457064 1114604165 6345141136 7014365414 3656116041 6563451515 1164457064 ONrrrtTEXTt'PAUSE't.X'.L'.NtPAUSErrtTEXT
       1114606251 5664141136 7014365611 6360606251 1515151515 1164457064 1114606556 4350141136 t'PRINT't.X'.NtSPPRIrrrrrtTEXTt'PUNCH't.
       7014365611 6360606556 1515151515 1164457064 1114624541 4414113670 1436541162 4541441515 X'.NtSPPUNrrrrrtTEXTt'READ't.X'.LtREADrr
       1164457064 1114624541 5414113660 2114162203 5017116471 6045601515 1164457064 1114136364 tTEXTt'REAL't.P1'(2!H)tTYPEPrrtTEXTt'"ST
       5760131411 3670143654 1436561163 6364576015 1164457064 1114647160 4514113660 2111647160 OP"'t.X'.L'.NtSSTOPrtTEXTt'TYPE't.P1tTYP
       6364151515 1164457064 1114676251 6445141136 7014365414 3656116762 5164451515 5345712145 STrrrtTEXTt'WRITE't.X'.L'.NtWRITErrKEY1E
       0615151515 1515151515 1515151515 7777700000 6312733500 6312733500 6312733500 6312733500 :rrrrrrrrrrrrrrbbX  S?$- S?$- S?$- S?$- 
       6312733500 6312733500 6312733500 6312733500 6312733500 6312733500                       S?$- S?$- S?$- S?$- S?$- S?$- 
  640: 0006400012 4664562022 1361200162 3414400000 0040646757 3567576244 4053457167 5762446340  :  ?FTN02"Q0%R,'     TWO-WORD KEYWORDS 
       3636361515 1515151515 5345712264 0611644570 6411144163 6351475614 1515151515 1164457064 ...rrrrrrrKEY2T:tTEXTt'ASSIGN'rrrrrtTEXT
       1114424143 5363604143 4514151515 1164457064 1114425457 4353444164 4114151515 1164457064 t'BACKSPACE'rrrtTEXTt'BLOCKDATA'rrrtTEXT
       1114435755 5557561415 1164457064 1114435755 6054457014 1515151515 1164457064 1114435756 t'COMMON'rtTEXTt'COMPLEX'rrrrrtTEXTt'CON
       6451566545 1415151515 1164457064 1114444164 4122441415 1164457064 1114444164 4123441415 TINUE'rrrrtTEXTt'DATA2D'rtTEXTt'DATA3D'r
       1164457064 1114444543 5744451415 1164457064 1114445155 4556635157 5614151515 1164457064 tTEXTt'DECODE'rtTEXTt'DIMENSION'rrrtTEXT
       1114445765 4254451415 1164457064 1114455643 5744451415 1164457064 1114455644 4441644114 t'DOUBLE'rtTEXTt'ENCODE'rtTEXTt'ENDDATA'
       1515151515 1164457064 1114455644 4651544514 1515151515 1164457064 1114457064 4562564154 rrrrrtTEXTt'ENDFILE'rrrrrtTEXTt'EXTERNAL
       1415151515 1164457064 1114465762 5541641415 1164457064 1114466241 4364515756 1415151515 'rrrrtTEXTt'FORMAT'rtTEXTt'FRACTION'rrrr
       1164457064 1114466556 4364515756 1415151515 1164457064 1114475457 4241541415 1164457064 tTEXTt'FUNCTION'rrrrtTEXTt'GLOBAL'rtTEXT
       1114515560 5451435164 1415151515 1164457064 1114515664 4547456214 1515151515 1164457064 t'IMPLICIT'rrrrtTEXTt'INTEGER'rrrrrtTEXT
       1114545156 5341474514 1515151515 1164457064 1114545164 4562415414 1515151515 1164457064 t'LINKAGE'rrrrrtTEXTt'LITERAL'rrrrrtTEXT
       1114545747 5143415414 1515151515 1164457064 1114606257 4762415514 1515151515 1164457064 t'LOGICAL'rrrrrtTEXTt'PROGRAM'rrrrrtTEXT
       1114624564 6562561415 1164457064 1114624567 5156441415 1164457064 1114636542 6257656451 t'RETURN'rtTEXTt'REWIND'rtTEXTt'SUBROUTI
       5645141515 5345712245 0615151515 1515151515 1515151515 7777700000 6535446567 6535446567 NE'rrKEY2E:rrrrrrrrrrrrrrbbX  U-DUWU-DUW
       6535446567 6535446567 6535446567 6535446567 6535446567 6535446567 6535446567 6535446567 U-DUWU-DUWU-DUWU-DUWU-DUWU-DUWU-DUWU-DUW
 1055: 0006500012 4664562022 1361200305 3414400000 0040646757 3567576244 4053457167 5762444064  :H ?FTN02"Q0!*,'     TWO-WORD KEYWORD T
       4142544540 4570644556 6351575640 3636361515 1515151515 1136701141 6363475611 0040416363 ABLE EXTENSION ...rrrrrrrt.XtASSGNt  ASS
       5147561515 1136701436 5414365611 4253636043 1100404241 4353636041 4345151515 5345714244 IGNrrt.X'.L'.NtBKSPCt  BACKSPACErrrKEYBD
       0611366314 3650114244 4164411100 4042545743 5344416441 1515151515 1136631143 5755555711 :t.S'.HtBDATAt  BLOCKDATArrrrrt.StCOMMOt
       0040435755 5557561515 1136602114 1626035017 1164716045 6011004043 5755605445 7015151515   COMMONrrt.P1'(6!H)tTYPEPt  COMPLEXrrrr
       5345714346 0611367011 4357566465 1100404357 5664515665 4515151515 1136631436 4314365411 KEYCF:t.XtCONTUt  CONTINUErrrrt.S'.C'.Lt
       4441642244 1100404441 6441224415 1136631436 4314365411 4441642344 1100404441 6441234415 DAT2Dt  DATA2Drt.S'.C'.LtDAT3Dt  DATA3Dr
       1136701436 5414365611 4445435744 1100404445 4357444515 1136631144 5155455611 0040445155 t.X'.L'.NtDECODt  DECODErt.StDIMENt  DIM
       4556635157 5615151515 1136602114 1625035017 1144576542 5411004044 5765425445 1515151515 ENSIONrrrrt.P1'(5!H)tDOUBLt  DOUBLErrrrr
       1136701436 5414365611 4556435744 1100404556 4357444515 5371564441 0611366314 3644114556 t.X'.L'.NtENCODt  ENCODErKYNDA:t.S'.DtEN
       4441641100 4045564444 4164411515 5345715646 0611367014 3654143656 1145564446 5411004045 DATt  ENDDATArrKEYNF:t.X'.L'.NtENDFLt  E
       5644465154 4515151515 1136631170 6462565411 0040457064 4562564154 1515151515 1136631436 NDFILErrrrt.StXTRNLt  EXTERNALrrrrrt.S'.
       4614365414 3656114657 6255641100 4046576255 4164151515 1136602114 1623035017 1164716045 F'.L'.NtFORMTt  FORMATrrrt.P1'(3!H)tTYPE
       6011004046 6241436451 5756151515 5345714656 0611366314 3650114665 5643641100 4046655643 Pt  FRACTIONrrrKEYFN:t.S'.HtFUNCTt  FUNC
       6451575615 1136631147 5457425411 0040475457 4241541515 1136631151 5560544311 0040515560 TIONrt.StGLOBLt  GLOBALrrt.StIMPLCt  IMP
       5451435164 1515151515 1136602114 1621035017 1164716045 6011004051 5664454745 6215151515 LICITrrrrrt.P1'(1!H)tTYPEPt  INTEGERrrrr
       1136631154 5156534711 0040545156 5341474515 1136631154 5164625411 0040545164 4562415415 t.StLINKGt  LINKAGErt.StLITRLt  LITERALr
       1136602114 1624035017 1164716045 6011004054 5747514341 5415151515 1136631436 5011606257 t.P1'(4!H)tTYPEPt  LOGICALrrrrt.S'.HtPRO
       4755110040 6062574762 4155151515 1136701162 4564625611 0040624564 6562561515 1136701436 GMt  PROGRAMrrrt.XtRETRNt  RETURNrrt.X'.
       5414365611 6245675644 1100406245 6751564415 1136631436 5011636542 6264110040 6365426257 L'.NtREWNDt  REWINDrt.S'.HtSUBRTt  SUBRO
       6564515645 1515151515 1515151515 1515151515 0040645062 4545356757 6244405345 7167576244 UTINErrrrrrrrrrrrrrr  THREE-WORD KEYWORD
       6340363636 1515151515 1515151515 5345712364 0611113610 2115151515 1111361025 1515151515 S ...rrrrrrrrrrKEY3T:tt.+1rrrrtt.+5rrrrr
       1164457064 1114445765 4254074560 6245430751 6351575614 1515151515 5345714460 0611366021 tTEXTt'DOUBL_EPREC_ISION'rrrrrKEYDP:t.P1
       1416250350 1711647160 4560151515 1515151515 1111201515 1164457064 1114456165 5166074154 '(5!H)tTYPEPrrrrrrrrtt0rrtTEXTt'EQUIV_AL
       4556430745 1415151515 1136631436 5411456165 5166151515 1515151515 1515151515 1515151515 ENC_E'rrrrt.S'.LtEQUIVrrrrrrrrrrrrrrrrrr
       7777700000 1070377776 1070377776 1070377776 1070377776 1070377776 1070377776 1070377776 bbX  +X/b++X/b++X/b++X/b++X/b++X/b++X/b+
       1070377776 1070377776 1070377776                                                        +X/b++X/b++X/b+
 1415: 0006600012 4664562022 1361200415 3414400000 0040575645 3567576244 4051566462 5156635143  :P ?FTN02"Q0&r,'     ONE-WORD INTRINSIC
       4063654262 5765645156 4563403636 3615151515 1515151515 5156632164 0611644570 6411144350  SUBROUTINES ...rrrrrrrrrINS1T:tTEXTt'CH
       4162141136 7014365414 3651114762 4350621515 1164457064 1114435445 4162141136 7014365414 AR't.X'.L'.ItGRCHRrrtTEXTt'CLEAR't.X'.L'
       3656143647 1147624664 4210242115 1164457064 1114435457 6345141136 7014365414 3656114354 .N'.GtGRFTB+41rtTEXTt'CLOSE't.X'.L'.NtCL
       5763631515 1164457064 1114444163 5014113670 1436511147 6244635015 1164457064 1114446241 OSSrrtTEXTt'DASH't.X'.ItGRDSHrtTEXTt'DRA
       6714113670 1436541436 5614364714 3644141622 0350174011 4762466442 1023231515 1164457064 W't.X'.L'.N'.G'.D'(2!H) tGRFTB+33rrtTEXT
       1114447014 1136701436 5414365114 3647114762 4664421020 1515151515 1164457064 1114447114 t'DX't.X'.L'.I'.GtGRFTB+0rrrrrtTEXTt'DY'
       1136701436 5414365114 3647114762 4664421021 1515151515 1164457064 1114447214 1136701436 t.X'.L'.I'.GtGRFTB+1rrrrrtTEXTt'DZ't.X'.
       5414365114 3647114762 4664421022 1515151515 1164457064 1114457051 6414113670 1436561145 L'.I'.GtGRFTB+2rrrrrtTEXTt'EXIT't.X'.NtE
       7051641515 1164457064 1114464163 6414113663 1436511147 6246636415 1164457064 1114544142 XITrrtTEXTt'FAST't.S'.ItGRFSTrtTEXTt'LAB
       4554141136 7014365414 3656143647 1147624664 4210242215 1164457064 1114544151 1411367014 EL't.X'.L'.N'.GtGRFTB+42rtTEXTt'LAI't.X'
       3654143651 1436471147 6246644210 2315151515 1164457064 1114544451 1411367014 3651114762 .L'.I'.GtGRFTB+3rrrrtTEXTt'LDI't.X'.ItGR
       5444511515 1164457064 1114544470 1411367014 3654143651 1436471147 6246644210 2415151515 LDIrrtTEXTt'LDX't.X'.L'.I'.GtGRFTB+4rrrr
       1164457064 1114544471 1411367014 3654143651 1436471147 6246644210 2515151515 1164457064 tTEXTt'LDY't.X'.L'.I'.GtGRFTB+5rrrrtTEXT
       1114544472 1411367014 3654143651 1436471147 6246644210 2615151515 1164457064 1114545156 t'LDZ't.X'.L'.I'.GtGRFTB+6rrrrtTEXTt'LIN
       4514113670 1436541436 5614364714 3644141623 0350174011 4762466442 1023241515 1164457064 E't.X'.L'.N'.G'.D'(3!H) tGRFTB+34rrtTEXT
       1114545156 5343141136 7014365414 3656115456 5343151515 1164457064 1114545156 5345141136 t'LINKC't.X'.L'.NtLNKCrrrtTEXTt'LINKE't.
       7014365414 3656115456 5345151515 1164457064 1114545156 5363141136 7014365414 3656115456 X'.L'.NtLNKErrrtTEXTt'LINKS't.X'.L'.NtLN
       5363151515 1164457064 1114545741 4464141136 7014365414 3651143647 1147624664 4210222015 KSrrrtTEXTt'LOADT't.X'.L'.I'.GtGRFTB+20r
       1164457064 1114546270 1411367014 3654143651 1436471147 6246644210 2715151515 1164457064 tTEXTt'LRX't.X'.L'.I'.GtGRFTB+7rrrrtTEXT
       1114546271 1411367014 3654143651 1436471147 6246644210 2120151515 1164457064 1114546272 t'LRY't.X'.L'.I'.GtGRFTB+10rrrtTEXTt'LRZ
       1411367014 3654143651 1436471147 6246644210 2121151515 1164457064 1114546343 5414113670 't.X'.L'.I'.GtGRFTB+11rrrtTEXTt'LSCL't.X
       1436541436 5114364711 4762466442 1021221515 1164457064 1114554556 6514113670 1436541436 '.L'.I'.GtGRFTB+12rrtTEXTt'MENU't.X'.L'.
       5111476255 5665151515 1164457064 1114555766 4514113670 1436541436 5614364714 3644141621 ItGRMNUrrrtTEXTt'MOVE't.X'.L'.N'.G'.D'(1
       0350174011 4762466442 1023221515 1164457064 1114576045 5614113670 1436541436 5614364711 !H) tGRFTB+32rrtTEXTt'OPEN't.X'.L'.N'.Gt
       4762466442 1025211515 1164457064 1114604556 5756141136 7014365414 3651143647 1147624664 GRFTB+51rrtTEXTt'PENON't.X'.L'.I'.GtGRFT
       4210212315 1164457064 1114605751 5664141136 7014365111 4762605664 1515151515 1164457064 B+13rtTEXTt'POINT't.X'.ItGRPNTrrrrrtTEXT
       1114624563 6414113670 1436511147 6262636415 1164457064 1114625764 7014113670 1436541436 t'REST't.X'.ItGRRSTrtTEXTt'ROTX't.X'.L'.
       5114364711 4762466442 1021241515 1164457064 1114625764 7114113670 1436541436 5114364711 I'.GtGRFTB+14rrtTEXTt'ROTY't.X'.L'.I'.Gt
       4762466442 1021251515 1164457064 1114625764 7214113670 1436541436 5114364711 4762466442 GRFTB+15rrtTEXTt'ROTZ't.X'.L'.I'.GtGRFTB
       1021261515 1164457064 1114634166 6414113670 1436511147 6263416615 1164457064 1114634354 +16rrtTEXTt'SAVT't.X'.ItGRSAVrtTEXTt'SCL
       1411367014 3654143651 1436471147 6246644210 2127151515 1164457064 1114646241 4345141136 't.X'.L'.I'.GtGRFTB+17rrrtTEXTt'TRACE't.
       6314365414 3656116462 4143451515 1164457064 1114726345 6414113670 1436541436 5614364714 S'.L'.NtTRACErrtTEXTt'ZSET't.X'.L'.N'.G'
       3644141625 0350174011 4762466442 1023251515 5156632145 0615151515 1515151515 1515151515 .D'(5!H) tGRFTB+35rrINS1E:rrrrrrrrrrrrrr
       7777700000 2667376074 2667376074 2667376074 2667376074 2667376074 2667376074 2667376074 bbX  6W/P#6W/P#6W/P#6W/P#6W/P#6W/P#6W/P#
       2667376074 2667376074 2667376074                                                        6W/P#6W/P#6W/P#
  715: 0006700012 4664562022 1361200201 3414400000 0040646757 3567576244 4051566364 6251566351  :X ?FTN02"Q0c%,'     TWO-WORD INSTRINSI
       4340636542 6257656451 5645634036 3636151515 1515151515 5156632264 0611644570 6411144341 C SUBROUTINES ...rrrrrrrrINS2T:tTEXTt'CA
       5454515547 1415151515 1164457064 1114434154 5463515547 1415151515 1164457064 1114434556 LLIMG'rrrrtTEXTt'CALLSIMG'rrrrtTEXTt'CEN
       6445621415 1164457064 1114435041 5647456556 5164141515 1164457064 1114435445 4162545164 TER'rtTEXTt'CHANGEUNIT'rrtTEXTt'CLEARLIT
       4514151515 1164457064 1114435445 4162604556 1415151515 1164457064 1114444546 5457431415 E'rrrtTEXTt'CLEARPEN'rrrrtTEXTt'DEFLOC'r
       1164457064 1114445163 6054417114 1515151515 1164457064 1114455644 5451636414 1515151515 tTEXTt'DISPLAY'rrrrrtTEXTt'ENDLIST'rrrrr
       1164457064 1114465762 5557464614 1515151515 1164457064 1114465762 5563456414 1515151515 tTEXTt'FORMOFF'rrrrrtTEXTt'FORMSET'rrrrr
       1164457064 1114545163 6422441415 1164457064 1114545163 6423441415 1164457064 1114555766 tTEXTt'LIST2D'rtTEXTt'LIST3D'rtTEXTt'MOV
       4554574314 1515151515 1164457064 1114565762 5541541415 1164457064 1114576645 6254417114 ELOC'rrrrrtTEXTt'NORMAL'rtTEXTt'OVERLAY'
       1515151515 1164457064 1114604556 5746461415 1164457064 1114605763 4350416214 1515151515 rrrrrtTEXTt'PENOFF'rtTEXTt'POSCHAR'rrrrr
       1164457064 1114605763 5164515756 1415151515 1164457064 1114625764 4164451415 1164457064 tTEXTt'POSITION'rrrrtTEXTt'ROTATE'rtTEXT
       1114634357 6045574646 1415151515 1164457064 1114634357 6045575614 1515151515 1164457064 t'SCOPEOFF'rrrrtTEXTt'SCOPEON'rrrrrtTEXT
       1114634564 5451644514 1515151515 1164457064 1114634564 5457431415 1164457064 1114635351 t'SETLITE'rrrrrtTEXTt'SETLOC'rtTEXTt'SKI
       6046515445 1415151515 1164457064 1114635351 6062454357 6244141515 1164457064 1114636457 PFILE'rrrrtTEXTt'SKIPRECORD'rrtTEXTt'STO
       6245641415 1164457064 1114644142 5445224414 1515151515 1164457064 1114644142 5445234414 RET'rtTEXTt'TABLE2D'rrrrrtTEXTt'TABLE3D'
       1515151515 1164457064 1114656062 5147506414 1515151515 1164457064 1114664543 6457621415 rrrrrtTEXTt'UPRIGHT'rrrrrtTEXTt'VECTOR'r
       5156632245 0615151515 1515151515 1515151515 7777700000 5573036072 5573036072 5573036072 INS2E:rrrrrrrrrrrrrrbbX  M$!PZM$!PZM$!PZ
       5573036072 5573036072 5573036072 5573036072 5573036072 5573036072 5573036072            M$!PZM$!PZM$!PZM$!PZM$!PZM$!PZM$!PZ
 1125: 0007000012 4664562022 1361200323 3414400000 0040646757 3567576244 4051566462 5156635143  _  ?FTN02"Q0!3,'     TWO-WORD INTRINSIC
       4063654262 5765645156 4540457064 4556635157 5615151515 1515151515 1136701436 5414365111  SUBROUTINE EXTENSIONrrrrrrrrrt.X'.L'.It
       4341545155 1100404341 5454515547 1515151515 1136701436 5414365111 4341546351 1100404341 CALIMt  CALLIMGrrrrrt.X'.L'.ItCALSIt  CA
       5454635155 4715151515 1136631436 5111476243 4556110040 4345566445 6215151515 1136701436 LLSIMGrrrrt.S'.ItGRCENt  CENTERrrrrt.X'.
       5414365614 3647114762 4664421025 2311004043 5041564745 6556516415 1136701436 5114365414 L'.N'.GtGRFTB+53t  CHANGEUNITrt.X'.I'.L'
       3647114762 4664421022 2111004043 5445416254 5164451515 1136701436 5114365414 3647114762 .GtGRFTB+21t  CLEARLITErrt.X'.I'.L'.GtGR
       4664421022 2211004043 5445416260 4556151515 1136701436 5414365614 3647143644 1416260350 FTB+22t  CLEARPENrrrt.X'.L'.N'.G'.D'(6!H
       1740476246 6442102327 1100404445 4654574315 1136701436 5414365611 4451636054 1100404451 ) GRFTB+37t  DEFLOCrt.X'.L'.NtDISPLt  DI
       6360544171 1515151515 5371564454 0611367014 3654143656 1436441416 2403501740 4762455644 SPLAYrrrrrKYNDL:t.X'.L'.N'.D'(4!H) GREND
       1100404556 4454516364 1515151515 1136701436 5414365611 4662555746 1100404657 6255574646 t  ENDLISTrrrrrt.X'.L'.NtFRMOFt  FORMOFF
       1515151515 1136701436 5414365611 4662556364 1100404657 6255634564 1515151515 1136701436 rrrrrt.X'.L'.NtFRMSTt  FORMSETrrrrrt.X'.
       5414365614 3647114762 4664421024 2311004054 5163642244 1515151515 1136701436 5414365614 L'.N'.GtGRFTB+43t  LIST2Drrrrrt.X'.L'.N'
       3647114762 4664421024 2411004054 5163642344 1515151515 1136701436 5414365614 3647114762 .GtGRFTB+44t  LIST3Drrrrrt.X'.L'.N'.GtGR
       4664421024 2011004055 5766455457 4315151515 1136631436 5111476256 5762110040 5657625541 FTB+40t  MOVELOCrrrrt.S'.ItGRNORt  NORMA
       5415151515 1136701436 5414365611 5456535711 0040576645 6254417115 1136701436 5114365414 Lrrrrt.X'.L'.NtLNKOt  OVERLAYrt.X'.I'.L'
       3647114762 4664421022 2311004060 4556574646 1515151515 1136701436 5414365111 4762604350 .GtGRFTB+23t  PENOFFrrrrrt.X'.L'.ItGRPCH
       1100406057 6343504162 1515151515 1136631436 5111476260 5763110040 6057635164 5157561515 t  POSCHARrrrrrt.S'.ItGRPOSt  POSITIONrr
       1136631436 5111476262 5764110040 6257644164 4515151515 1136701436 5114365414 3647114762 t.S'.ItGRROTt  ROTATErrrrt.X'.I'.L'.GtGR
       4664421022 2411004063 4357604557 4646151515 1136701436 5114365414 3647114762 4664421022 FTB+24t  SCOPEOFFrrrt.X'.I'.L'.GtGRFTB+2
       2511004063 4357604557 5615151515 1136701436 5114365414 3647114762 4664421022 2611004063 5t  SCOPEONrrrrt.X'.I'.L'.GtGRFTB+26t  S
       4564545164 4515151515 1136701436 5414365614 3647114762 4664421023 2611004063 4564545743 ETLITErrrrt.X'.L'.N'.GtGRFTB+36t  SETLOC
       1515151515 1136701436 5414365611 6353604654 1100406353 5160465154 4515151515 1136701436 rrrrrt.X'.L'.NtSKPFLt  SKIPFILErrrrt.X'.
       5414365611 6353606243 1100406353 5160624543 5762441515 1136701436 5114365414 3647114762 L'.NtSKPRCt  SKIPRECORDrrt.X'.I'.L'.GtGR
       4664421022 2711004063 6457624564 1515151515 1136701436 5114365414 3647114762 4664421023 FTB+27t  STORETrrrrrt.X'.I'.L'.GtGRFTB+3
       2011004064 4142544522 4415151515 1136701436 5114365414 3647114762 4664421023 2111004064 0t  TABLE2Drrrrt.X'.I'.L'.GtGRFTB+31t  T
       4142544523 4415151515 1136631436 5111476265 6062110040 6560625147 5064151515 1136701436 ABLE3Drrrrt.S'.ItGRUPRt  UPRIGHTrrrt.X'.
       5111476266 4543110040 6645436457 6215151515 1515151515 1515151515 7777700000 0623154766 ItGRVECt  VECTORrrrrrrrrrrrrrrbbX  :3rGV
       0623154766 0623154766 0623154766 0623154766 0623154766 0623154766 0623154766 0623154766 :3rGV:3rGV:3rGV:3rGV:3rGV:3rGV:3rGV:3rGV
       0623154766                                                                              :3rGV
 1200: 0007100012 4664562022 1361200342 3414400000 0040644142 5445405746 4063716364 4555401657  _+ ?FTN02"Q0!B,'     TABLE OF SYSTEM (O
       6463174045 7064456256 4154406245 4645624556 4345634036 3636151515 1515151515 1515151515 TS) EXTERNAL REFERENCES ...rrrrrrrrrrrrr
       5764636442 0615151515 1515151515 0040606257 6445436445 4440625765 6451564563 4016554171 OTSTB:rrrrrrrrr  PROTECTED ROUTINES (MAY
       4056576440 4245405541 4445407373 4057624073 7373404570 6445625641 5417403636 3615151515  NOT BE MADE $$ OR $$$ EXTERNAL) ...rrrr
       1515151515 2451565164 0611203211 6445706411 1424515651 6414110057 6045624164 5157564154 rrrrr4INIT:t0;tTEXTt'4INIT't OPERATIONAL
       4063656060 5762641515 2441624762 0611203211 6445706411 1424416247 6214110040 4016624561  SUPPORTrr4ARGR:t0;tTEXTt'4ARGR't   (REQ
       6551624544 4051461515 2445564406 1120321164 4570641114 2445564414 1100404040 6245464562 UIRED IFrr4END:t0;tTEXTt'4END't    REFER
       4556434544 1715151515 2443210611 2032116445 7064111457 5645141515 2443200611 2032116445 ENCED)rrrr4C1:t0;tTEXTt'ONE'rr4C0:t0;tTE
       7064111472 4562571415 2443466306 1120321164 4570641114 2453201415 2445625760 0611203211 XTt'ZERO'r4CFS:t0;tTEXTt'4K0'r4EROP:t0;t
       6445706411 1424456257 6014151515 2445626363 0611203211 6445706411 1424456263 6314151515 TEXTt'4EROP'rrr4ERSS:t0;tTEXTt'4ERSS'rrr
       1515151515 5451565363 0611203211 6445706411 1454515653 6314110057 6645625441 7140625765 rrrrrLINKS:t0;tTEXTt'LINKS't OVERLAY ROU
       6451564563 1515151515 5451565345 0611203211 6445706411 1454515653 4514110040 4016515640 TINESrrrrrLINKE:t0;tTEXTt'LINKE't   (IN 
       4155576337 2217151515 5451565343 0611203211 6445706411 1454515653 4314151515 5766625471 AMOS/2)rrrLINKC:t0;tTEXTt'LINKC'rrrOVRLY
       0611203211 6445706411 1457666254 7114151515 1515151515 1515151515 5764636470 0615151515 :t0;tTEXTt'OVRLY'rrrrrrrrrrrrrOTSTX:rrrr
       1515151515 0040655660 6257644543 6445444062 5765645156 4563403636 3615151515 1515151515 rrrrr  UNPROTECTED ROUTINES ...rrrrrrrrr
       1111111100 4162516450 5545645143 4063656060 5762641515 2451645762 0611203211 6445706411 tttt ARITHMETIC SUPPORTrr4ITOR:t0;tTEXTt
       1424516457 6214110064 5045634540 6467574055 6563641515 2462645751 0611203211 6445706411 '4ITOR't THESE TWO MUSTrr4RTOI:t0;tTEXTt
       1424626457 5114110040 4042454063 4561654556 6451415415 2462645746 0611203211 6445706411 '4RTOI't   BE SEQUENTIALr4RTOF:t0;tTEXTt
       1424626457 4614110064 5045634540 6467574055 6563641515 2446645762 0611203211 6445706411 '4RTOF't THESE TWO MUSTrr4FTOR:t0;tTEXTt
       1424466457 6214110040 4042454063 4561654556 6451415415 2462414444 0611203211 6445706411 '4FTOR't   BE SEQUENTIALr4RADD:t0;tTEXTt
       1424624144 4414151515 2451457062 0611203211 6445706411 1424514570 6214151515 2451457051 '4RADD'rrr4IEXR:t0;tTEXTt'4IEXR'rrr4IEXI
       0611203211 6445706411 1424514570 5114151515 2462457051 0611203211 6445706411 1424624570 :t0;tTEXTt'4IEXI'rrr4REXI:t0;tTEXTt'4REX
       5114151515 2462457062 0611203211 6445706411 1424624570 6214151515 2451556071 0611203211 I'rrr4REXR:t0;tTEXTt'4REXR'rrr4IMPY:t0;t
       6445706411 1424515560 7114151515 2462556071 0611203211 6445706411 1424625560 7114151515 TEXTt'4IMPY'rrr4RMPY:t0;tTEXTt'4RMPY'rrr
       2451445166 0611203211 6445706411 1424514451 6614151515 2444516662 0611203211 6445706411 4IDIV:t0;tTEXTt'4IDIV'rrr4DIVR:t0;tTEXTt
       1424445166 6214151515 2451624466 0611203211 6445706411 1424516244 6614151515 2462445166 '4DIVR'rrr4IRDV:t0;tTEXTt'4IRDV'rrr4RDIV
       0611203211 6445706411 1424624451 6614151515 2462624466 0611203211 6445706411 1424626244 :t0;tTEXTt'4RDIV'rrr4RRDV:t0;tTEXTt'4RRD
       6614151515 2441555744 0611203211 6445706411 1424415557 4414151515 1515151515 3670416264 V'rrr4AMOD:t0;tTEXTt'4AMOD'rrrrrrrr.XART
       5040334036 3524516457 6240374022 1515151515 1515151515 7777700000 0235371047 0235371047 H = .-4ITOR / 2rrrrrrrrrrbbX  c-/+Gc-/+G
       0235371047 0235371047 0235371047 0235371047 0235371047 0235371047 0235371047 0235371047 c-/+Gc-/+Gc-/+Gc-/+Gc-/+Gc-/+Gc-/+Gc-/+G
 1285: 0007200012 4664562022 1361200363 3414400000 2441515664 0611203211 6445706411 1424415156  _0 ?FTN02"Q0!S,'   4AINT:t0;tTEXTt'4AIN
       6414110046 6556436451 5756405451 4262416271 1515151515 2464415650 0611203211 6445706411 T't FUNCTION LIBRARYrrrrr4TANH:t0;tTEXTt
       1424644156 5014151515 2441435763 0611203211 6445706411 1424414357 6314151515 2441635156 '4TANH'rrr4ACOS:t0;tTEXTt'4ACOS'rrr4ASIN
       0611203211 6445706411 1424416351 5614151515 2464415606 1120321164 4570641114 2464415614 :t0;tTEXTt'4ASIN'rrr4TAN:t0;tTEXTt'4TAN'
       1515151515 2441644156 0611203211 6445706411 1424416441 5614151515 2463616264 0611203211 rrrrr4ATAN:t0;tTEXTt'4ATAN'rrr4SQRT:t0;t
       6445706411 1424636162 6414151515 2463515606 1120321164 4570641114 2463515614 1515151515 TEXTt'4SQRT'rrr4SIN:t0;tTEXTt'4SIN'rrrrr
       2443576306 1120321164 4570641114 2443576314 1515151515 2445706006 1120321164 4570641114 4COS:t0;tTEXTt'4COS'rrrrr4EXP:t0;tTEXTt'
       2445706014 1515151515 2441545747 0611203211 6445706411 1424415457 4714151515 2441544721 4EXP'rrrrr4ALOG:t0;tTEXTt'4ALOG'rrr4ALG1
       0611203211 6445706411 1424415447 2114151515 2441645622 0611203211 6445706411 1424416456 :t0;tTEXTt'4ALG1'rrr4ATN2:t0;tTEXTt'4ATN
       2214151515 2455417006 1120321164 4570641114 2455417014 1515151515 2455515606 1120321164 2'rrr4MAX:t0;tTEXTt'4MAX'rrrrr4MIN:t0;tT
       4570641114 2455515614 1515151515 6356435763 0611203211 6445706411 1463564357 6314151515 EXTt'4MIN'rrrrrSNCOS:t0;tTEXTt'SNCOS'rrr
       4357635606 1120321164 4570641114 4357635614 1515151515 1515151515 3670465451 4240334036 COSN:t0;tTEXTt'COSN'rrrrrrrrrr.XFLIB = .
       3524415156 6440374022 1515151515 1515151515 2462440611 2032116445 7064111424 6244141100 -4AINT / 2rrrrrrrrrr4RD:t0;tTEXTt'4RD't 
       5137574060 4143534147 4515151515 2467620611 2032116445 7064111424 6762141515 2451575106 I/O PACKAGErrrr4WR:t0;tTEXTt'4WR'rr4IOI:
       1120321164 4570641114 2451575114 1515151515 2451576506 1120321164 4570641114 2451576514 t0;tTEXTt'4IOI'rrrrr4IOU:t0;tTEXTt'4IOU'
       1515151515 2451576206 1120321164 4570641114 2451576214 1515151515 2451574606 1120321164 rrrrr4IOR:t0;tTEXTt'4IOR'rrrrr4IOF:t0;tT
       4570641114 2451574614 1515151515 2454516364 0611203211 6445706411 1424545163 6414151515 EXTt'4IOF'rrrrr4LIST:t0;tTEXTt'4LIST'rrr
       2456440611 2032116445 7064111424 5644141515 2465566555 0611203211 6445706411 1424655665 4ND:t0;tTEXTt'4ND'rr4UNUM:t0;tTEXTt'4UNU
       5514151515 2463604543 0611203211 6445706411 1424636045 4314151515 2457604556 0611203211 M'rrr4SPEC:t0;tTEXTt'4SPEC'rrr4OPEN:t0;t
       6445706411 1424576045 5614151515 2443546345 0611203211 6445706411 1424435463 4514151515 TEXTt'4OPEN'rrr4CLSE:t0;tTEXTt'4CLSE'rrr
       2445622226 0611203211 6445706411 1424456222 2614151515 2445622227 0611203211 6445706411 4ER26:t0;tTEXTt'4ER26'rrr4ER27:t0;tTEXTt
       1424456222 2714151515 1515151515 3670515740 3340363524 6244403740 2215151515 1515151515 '4ER27'rrrrrrrr.XIO = .-4RD / 2rrrrrrrrr
       2443575666 0611203211 6445706411 1424435756 6614110046 5762554164 4043575666 4562635157 4CONV:t0;tTEXTt'4CONV't FORMAT CONVERSIO
       5663151515 2445515660 0611203211 6445706411 1424455156 6014110064 5045634540 4657656215 NSrrr4EINP:t0;tTEXTt'4EINP't THESE FOURr
       2445576564 0611203211 6445706411 1424455765 6414110040 4055656364 1515151515 2451515660 4EOUT:t0;tTEXTt'4EOUT't   MUSTrrrrr4IINP
       0611203211 6445706411 1424515156 6014110040 4040404245 1515151515 2451576564 0611203211 :t0;tTEXTt'4IINP't     BErrrrr4IOUT:t0;t
       6445706411 1424515765 6414110040 4040404040 6345616545 5664514154 1515151515 2454515660 TEXTt'4IOUT't       SEQUENTIALrrrrr4LINP
       0611203211 6445706411 1424545156 6014151515 2441515660 0611203211 6445706411 1424415156 :t0;tTEXTt'4LINP'rrr4AINP:t0;tTEXTt'4AIN
       6014151515 2442515660 0611203211 6445706411 1424425156 6014151515 2462515660 0611203211 P'rrr4BINP:t0;tTEXTt'4BINP'rrr4RINP:t0;t
       6445706411 1424625156 6014151515 2457515660 0611203211 6445706411 1424575156 6014151515 TEXTt'4RINP'rrr4OINP:t0;tTEXTt'4OINP'rrr
       1515151515 3670465564 4033403635 2443575666 4037402215 1515151515 7777700000 2725706464 rrrrr.XFMT = .-4CONV / 2rrrrrrbbX  75XTT
       2725706464 2725706464 2725706464 2725706464 2725706464 2725706464 2725706464 2725706464 75XTT75XTT75XTT75XTT75XTT75XTT75XTT75XTT
       2725706464                                                                              75XTT
 1170: 0007300012 4664562022 1361200334 3414400000 2464416006 1120321164 4570641114 2464416014  _8 ?FTN02"Q0!,,'   4TAP:t0;tTEXTt'4TAP'
       1100513757 4044625166 4562631515 2464647106 1120321164 4570641114 2464647114 1515151515 t I/O DRIVERSrr4TTY:t0;tTEXTt'4TTY'rrrrr
       2464607106 1120321164 4570641114 2464607114 1515151515 2460626006 1120321164 4570641114 4TPY:t0;tTEXTt'4TPY'rrrrr4PRP:t0;tTEXTt'
       2460626014 1515151515 2460605406 1120321164 4570641114 2460605414 1515151515 2460625606 4PRP'rrrrr4PPL:t0;tTEXTt'4PPL'rrrrr4PRN:
       1120321164 4570641114 2460625614 1515151515 2454434706 1120321164 4570641114 2454434714 t0;tTEXTt'4PRN'rrrrr4LCG:t0;tTEXTt'4LCG'
       1515151515 2443624406 1120321164 4570641114 2443624414 1515151515 2444635306 1120321164 rrrrr4CRD:t0;tTEXTt'4CRD'rrrrr4DSK:t0;tT
       4570641114 2444635314 1515151515 2444635321 0611203211 6445706411 1424446353 2114151515 EXTt'4DSK'rrrrr4DSK1:t0;tTEXTt'4DSK1'rrr
       2455446606 1120321164 4570641114 2455446614 1515151515 2450435762 0611203211 6445706411 4MDV:t0;tTEXTt'4MDV'rrrrr4HCOR:t0;tTEXTt
       1424504357 6214151515 2453435762 0611203211 6445706411 1424534357 6214151515 1515151515 '4HCOR'rrr4KCOR:t0;tTEXTt'4KCOR'rrrrrrrr
       3670655664 6340334036 3524644160 4037402215 1515151515 4762414670 0611203211 6445706411 .XUNTS = .-4TAP / 2rrrrrrGRAFX:t0;tTEXTt
       1447624146 7014110047 6241467015 4144446206 1120321164 4570641114 4144446214 1515151515 'GRAFX't GRAFXrADDR:t0;tTEXTt'ADDR'rrrrr
       5557444563 0611203211 6445706411 1455574445 6314151515 5451644563 0611203211 6445706411 MODES:t0;tTEXTt'MODES'rrrLITES:t0;tTEXTt
       1454516445 6314151515 6367435063 0611203211 6445706411 1463674350 6314151515 6367435064 'LITES'rrrSWCHS:t0;tTEXTt'SWCHS'rrrSWCHT
       0611203211 6445706411 1463674350 6414151515 6367435046 0611203211 6445706411 1463674350 :t0;tTEXTt'SWCHT'rrrSWCHF:t0;tTEXTt'SWCH
       4614151515 5141446206 1120321164 4570641114 5141446214 1515151515 4354534570 0611203211 F'rrrIADR:t0;tTEXTt'IADR'rrrrrCLKEX:t0;t
       6445706411 1443545345 7014110064 5045634540 6450624545 1515151515 5460564570 0611203211 TEXTt'CLKEX't THESE THREErrrrrLPNEX:t0;t
       6445706411 1454605645 7014110040 4055656364 4042451515 4621264570 0611203211 6445706411 TEXTt'LPNEX't   MUST BErrF16EX:t0;tTEXTt
       1446212645 7014110040 4040406345 6165455664 5141541515 1515151515 3670476241 4640334036 'F16EX't     SEQUENTIALrrrrrrr.XGRAF = .
       3547624146 7040374022 1515151515 1515151515 2447624670 0611203211 6445706411 1424476246 -GRAFX / 2rrrrrrrrrr4GRFX:t0;tTEXTt'4GRF
       7014110047 6241467040 6365606057 6264151515 2424632244 0611203211 6445706411 1424246322 X't GRAFX SUPPORTrrr44S2D:t0;tTEXTt'44S2
       4414151515 2424632344 0611203211 6445706411 1424246323 4414151515 2424544254 0611203211 D'rrr44S3D:t0;tTEXTt'44S3D'rrr44LBL:t0;t
       6445706411 1424245442 5414151515 2424435462 0611203211 6445706411 1424244354 6214151515 TEXTt'44LBL'rrr44CLR:t0;tTEXTt'44CLR'rrr
       2424455644 0611203211 6445706411 1424244556 4414151515 2424726364 0611203211 6445706411 44END:t0;tTEXTt'44END'rrr44ZST:t0;tTEXTt
       1424247263 6414151515 2424555766 0611203211 6445706411 1424245557 6614151515 2424446267 '44ZST'rrr44MOV:t0;tTEXTt'44MOV'rrr44DRW
       0611203211 6445706411 1424244462 6714151515 2424545156 0611203211 6445706411 1424245451 :t0;tTEXTt'44DRW'rrr44LIN:t0;tTEXTt'44LI
       5614151515 2424445443 0611203211 6445706411 1424244454 4314151515 2424635443 0611203211 N'rrr44DLC:t0;tTEXTt'44DLC'rrr44SLC:t0;t
       6445706411 1424246354 4314151515 2424555443 0611203211 6445706411 1424245554 4314151515 TEXTt'44SLC'rrr44MLC:t0;tTEXTt'44MLC'rrr
       1515151515 3670476241 6340334036 3524476246 7040374022 1515151515 1515151515 7777700000 rrrrr.XGRAS = .-4GRFX / 2rrrrrrrrrrbbX  
       2143436262 2143436262 2143436262 2143436262 2143436262 2143436262 2143436262 2143436262 1CCRR1CCRR1CCRR1CCRR1CCRR1CCRR1CCRR1CCRR
       2143436262 2143436262                                                                   1CCRR1CCRR
  750: 0007400012 4664562022 1361200210 3414400000 2463654263 0611203211 6445706411 1424636542  _  ?FTN02"Q0c+,'   4SUBS:t0;tTEXTt'4SUB
       6314110065 6451545164 5145631515 2443476457 0611203211 6445706411 1424434764 5714151515 S't UTILITIESrr4CGTO:t0;tTEXTt'4CGTO'rrr
       2443476451 0611203211 6445706411 1424434764 5114151515 2441476457 0611203211 6445706411 4CGTI:t0;tTEXTt'4CGTI'rrr4AGTO:t0;tTEXTt
       1424414764 5714151515 2441476451 0611203211 6445706411 1424414764 5114151515 2463646057 '4AGTO'rrr4AGTI:t0;tTEXTt'4AGTI'rrr4STPO
       0611203211 6445706411 1424636460 5714110064 5045634515 2463646050 0611203211 6445706411 :t0;tTEXTt'4STPO't THESEr4STPH:t0;tTEXTt
       1424636460 5014110040 4046576562 1515151515 2460416557 0611203211 6445706411 1424604165 '4STPH't   FOURrrrrr4PAUO:t0;tTEXTt'4PAU
       5714110040 4040405565 6364151515 2460416550 0611203211 6445706411 1424604165 5014110042 O't     MUSTrrr4PAUH:t0;tTEXTt'4PAUH't B
       4540634561 6545566451 4154151515 1515151515 3670656451 5440334036 3524636542 6340374022 E SEQUENTIALrrrrrrrr.XUTIL = .-4SUBS / 2
       1515151515 1515151515 2464624341 0611203211 6445706411 1424646243 4114110064 6241434540 rrrrrrrrrr4TRCA:t0;tTEXTt'4TRCA't TRACE 
       6257656451 5645631515 2464624357 0611203211 6445706411 1424646243 5714110053 4545601515 ROUTINESrr4TRCO:t0;tTEXTt'4TRCO't KEEPrr
       2464624351 0611203211 6445706411 1424646243 5114110040 4064504563 4515151515 2464624362 4TRCI:t0;tTEXTt'4TRCI't   THESErrrr4TRCR
       0611203211 6445706411 1424646243 6214110040 4040406345 6165455664 5141541515 2464624346 :t0;tTEXTt'4TRCR't     SEQUENTIALrr4TRCF
       0611203211 6445706411 1424646243 4614151515 2464624354 0611203211 6445706411 1424646243 :t0;tTEXTt'4TRCF'rrr4TRCL:t0;tTEXTt'4TRC
       5414151515 2464624343 0611203211 6445706411 1424646243 4314151515 2464624356 0611203211 L'rrr4TRCC:t0;tTEXTt'4TRCC'rrr4TRCN:t0;t
       6445706411 1424646243 5614151515 1515151515 3670646241 4340334036 3524646243 4140374022 TEXTt'4TRCN'rrrrrrrr.XTRAC = .-4TRCA / 2
       1515151515 1515151515 3670415454 4033403635 5764636470 4037402215 1515151515 5764636445 rrrrrrrrrr.XALL = .-OTSTX / 2rrrrrrOTSTE
       0615151515 1515151515 5764634546 0611112011 0057646340 4562625762 4063656060 5762644046 :rrrrrrrrrOTSEF:tt0t OTS ERROR SUPPORT F
       5441471515 1515151515 1515151515 7777700000 7472012210 7472012210 7472012210 7472012210 LAGrrrrrrrrrrrrbbX  #Z%2+#Z%2+#Z%2+#Z%2+
       7472012210 7472012210 7472012210 7472012210 7472012210 7472012210                       #Z%2+#Z%2+#Z%2+#Z%2+#Z%2+#Z%2+
 2150: 0007500012 4664562022 1361200640 3414400000 0040475457 4241544060 6257476241 5540664162  _H ?FTN02"Q0: ,'     GLOBAL PROGRAM VAR
       5141425445 6340415644 4046544147 6315151515 1515151515 5443444647 0611112011 0013541340 IABLES AND FLAGSrrrrrrrrrLCDFG:tt0t "L" 
       4341624440 4654414740 1644575614 6440545163 6440545156 4517151515 4643444647 0611112011 CARD FLAG (DON'T LIST LINE)rrrFCDFG:tt0t
       0013461340 4341624440 4654414715 4143444647 0611112011 0013411340 4341624440 4654414740  "F" CARD FLAGrACDFG:tt0t "A" CARD FLAG 
       1663515647 5445404144 4560644043 4162441715 4144606446 0611112011 0041444560 6440555744 (SINGLE ADEPT CARD)rADPTF:tt0t ADEPT MOD
       4540465441 4715151515 5645674346 0611112011 0056456740 4341624440 4654414740 1643544541 E FLAGrrrrNEWCF:tt0t NEW CARD FLAG (CLEA
       6245444042 7140546364 4562171515 6343575463 0611112011 0063416645 4440435754 6555564056 RED BY LSTER)rrSCOLS:tt0t SAVED COLUMN N
       5736404164 4045564440 5746405441 6364404341 6244151515 6360414745 0611112011 0063416645 O. AT END OF LAST CARDrrrSPAGE:tt0t SAVE
       4440604147 4540565736 1515151515 6354515645 0611112011 0063416645 4440545156 4540565736 D PAGE NO.rrrrrSLINE:tt0t SAVED LINE NO.
       1515151515 5147466556 0611112011 0051566462 5156634047 6241467040 4665564364 4046544147 rrrrrIGFUN:tt0t INTRINS GRAFX FUNCT FLAG
       4046576240 6057545163 5015151515 6362454647 0611112011 0063515647 5445406245 4640575654  FOR POLISHrrrrSREFG:tt0t SINGLE REF ONL
       7140465441 4740465762 4060575451 6350151515 4561656346 0611112011 0041636351 4756554556 Y FLAG FOR POLISHrrrEQUSF:tt0t ASSIGNMEN
       6463404154 5457674544 4046544147 4046576240 6057545163 5015151515 4341545446 0611112011 TS ALLOWED FLAG FOR POLISHrrrrCALLF:tt0t
       0043415454 4063644164 4555455664 4046544147 4046576240 6057545163 5015151515 4451636046  CALL STATEMENT FLAG FOR POLISHrrrrDISPF
       0611112011 0044516360 5441714063 6441644555 4556644046 5441474046 5762406057 5451635015 :tt0t DISPLAY STATEMENT FLAG FOR POLISHr
       6343465447 0611112011 0063604543 5141544063 6462515647 4043575663 6440465441 4740465762 SCFLG:tt0t SPECIAL STRING CONST FLAG FOR
       4060575451 6350151515 4441644146 0611112011 0044416441 2244374441 6441234440 5557444540  POLISHrrrDATAF:tt0t DATA2D/DATA3D MODE 
       4654414715 5345714647 0611112011 0043656262 4556644053 4571675762 4440465441 4763151515 FLAGrKEYFG:tt0t CURRENT KEYWORD FLAGSrrr
       6343415646 0611112011 0063434156 4055574445 4046544147 1515151515 5146544147 0611112011 SCANF:tt0t SCAN MODE FLAGrrrrrIFLAG:tt0t
       0051464063 6441644555 4556644046 5441471515 5756465447 0611112011 0057564063 6441644555  IF STATEMENT FLAGrrONFLG:tt0t ON STATEM
       4556644046 5441471515 5760644647 0611112011 0057656460 6564406364 4162644544 4046544147 ENT FLAGrrOPTFG:tt0t OUTPUT STARTED FLAG
       1515151515 5044626064 0611112011 0063556441 4240606462 4064574043 6562624050 4541444562 rrrrrHDRPT:tt0t SMTAB PTR TO CURR HEADER
       4063715542 5754151515 6342604647 0611112011 0043656262 4556644063 6542606257 4740637155  SYMBOLrrrSBPFG:tt0t CURRENT SUBPROG SYM
       4257544064 7160454046 5441471515 6342606471 0611112011 0043656262 4556644063 6542606257 BOL TYPE FLAGrrSBPTY:tt0t CURRENT SUBPRO
       4762415540 6471604515 4162475443 0611112011 0044655555 7140416247 4054516364 4063644162 GRAM TYPErARGLC:tt0t DUMMY ARG LIST STAR
       6440544315 4162474364 0611112011 0043576556 6440574640 5657364057 4640416247 6315151515 T LCrARGCT:tt0t COUNT OF NO. OF ARGSrrrr
       4665566646 0611112011 0046655643 6451575640 6641625141 4254454046 4564435040 5156636462 FUNVF:tt0t FUNCTION VARIABLE FETCH INSTR
       6543645157 5615151515 4665566660 0611112011 0046655643 6451575640 6641625141 4254454063 UCTIONrrrrFUNVP:tt0t FUNCTION VARIABLE S
       5564414240 6064621515 4665566643 0611112011 0046655643 6451575640 6641625141 4254454043 MTAB PTRrrFUNVC:tt0t FUNCTION VARIABLE C
       5041515640 5045414415 6245645156 0611112011 0062456465 6256405156 6364626543 6451575640 HAIN HEADrRETIN:tt0t RETURN INSTRUCTION 
       4657624043 6562624063 6542606257 4715151515 4350624647 0611112011 0043504162 4046544147 FOR CURR SUBPROGrrrrCHRFG:tt0t CHAR FLAG
       4046576240 4762414670 4051644555 6315151515 4663644647 0611112011 0066454364 5762404654  FOR GRAFX ITEMSrrrrFSTFG:tt0t VECTOR FL
       4147404657 6240476241 4670405164 4555631515 5155474647 0611112011 0051554147 4540636542 AG FOR GRAFX ITEMSrrIMGFG:tt0t IMAGE SUB
       6062574762 4155404654 4147151515 4762414647 0611112011 0047624146 7040435744 4540555744 PROGRAM FLAGrrrGRAFG:tt0t GRAFX CODE MOD
       4540465441 4715151515 4654576746 0611112011 0045704543 6564414254 4540465457 6740465441 E FLAGrrrrFLOWF:tt0t EXECUTABLE FLOW FLA
       4715151515 4457644254 0611112011 0044574054 5757604064 4142544540 5045414415 4457606462 GrrrrDOTBL:tt0t DO LOOP TABLE HEADrDOPTR
       0611112011 0060646240 6457404365 6262455664 4044574064 4142544540 4556646271 1515151515 :tt0t PTR TO CURRENT DO TABLE ENTRYrrrrr
       6445554457 0611112011 0064455560 4064414254 4540554162 5340416440 6364416264 4057464054 TEMDO:tt0t TEMP TABLE MARK AT START OF L
       4163644044 5715151515 4451556442 0611112011 0044515545 5663515756 4544404162 6241714064 AST DOrrrrDIMTB:tt0t DIMENSIONED ARRAY T
       4142544540 5045414415 4357555746 0611112011 0065564154 5457434164 4544404357 5555575640 ABLE HEADrCOMOF:tt0t UNALLOCATED COMMON 
       4654414715 4455435060 0611112011 0065564154 5457434164 4544404162 6241714043 5041515640 FLAGrDMCHP:tt0t UNALLOCATED ARRAY CHAIN 
       5045414415 4357556442 0611112011 0043575555 5756404254 5743534064 4142544540 5045414415 HEADrCOMTB:tt0t COMMON BLOCK TABLE HEADr
       4561666442 0611112011 0045616551 6641544556 4345404354 4163634064 4142544540 5045414415 EQVTB:tt0t EQUIVALENCE CLASS TABLE HEADr
       6545616664 0611112011 0065564445 4651564544 4045616551 6641544556 4345406441 4254454050 UEQVT:tt0t UNDEFINED EQUIVALENCE TABLE H
       4541441515 6560646264 0611112011 0065564445 4651564544 4060575156 6445624064 4142544540 EADrrUPTRT:tt0t UNDEFINED POINTER TABLE 
       5045414415 5044624647 0611112011 0050454144 4562404357 4445406045 5644515647 4046544147 HEADrHDRFG:tt0t HEADER CODE PENDING FLAG
       1515151515 5664627146 0611112011 0045566462 7140636441 6445554556 6440465441 4715151515 rrrrrNTRYF:tt0t ENTRY STATEMENT FLAGrrrr
       4556444647 0611112011 0045564440 4341624440 4654414715 4564704647 0611112011 0045564440 ENDFG:tt0t END CARD FLAGrETXFG:tt0t END 
       5746406445 7064404654 4147151515 5456435664 0611112011 0043576556 6440574640 5451564563 OF TEXT FLAGrrrLNCNT:tt0t COUNT OF LINES
       4051564043 6562624060 6257476241 5515151515 5541604647 0611112011 0063715542 5754634055  IN CURR PROGRAMrrrrMAPFG:tt0t SYMBOLS M
       4160404654 4147151515 5742435664 0611112011 0043576556 6440574640 5742524543 6440465154 AP FLAGrrrOBCNT:tt0t COUNT OF OBJECT FIL
       4563405765 6460656415 4657626346 0611112011 0063644162 6440604147 4540465762 4063515647 ES OUTPUTrFORSF:tt0t START PAGE FOR SING
       5445404357 5560515441 6451575615 7777700000 1102663460 1102663460 1102663460 1102663460 LE COMPILATIONrbbX  tcV,PtcV,PtcV,PtcV,P
       1102663460 1102663460 1102663460 1102663460 1102663460 1102663460                       tcV,PtcV,PtcV,PtcV,PtcV,PtcV,P
 1125: 0007600012 4664562022 1361200323 3414400000 4443576245 0611112011 0054516364 5156474044  _P ?FTN02"Q0!3,'   DCORE:tt0t LISTING D
       4566514345 4046624545 4043576245 4067576244 6315151515 6471604546 0611112011 0064716045 EVICE FREE CORE WORDSrrrrTYPEF:tt0t TYPE
       4063644164 4555455664 4046544147 1515151515 5143415446 0611112011 0051566462 5156635143  STATEMENT FLAGrrrrrICALF:tt0t INTRINSIC
       4063654262 5765645156 4540434154 5440465441 4715151515 4457634647 0611112011 0044574063  SUBROUTINE CALL FLAGrrrrDOSFG:tt0t DO S
       6441644555 4556644046 5441471515 6462414346 0611112011 0041624541 4064624143 4540465441 TATEMENT FLAGrrTRACF:tt0t AREA TRACE FLA
       4740415644 4054414245 5440644142 5445406064 6215151515 6462436442 0611112011 0051644555 G AND LABEL TABLE PTRrrrrTRCTB:tt0t ITEM
       4064624143 4540644142 5445151515 6462436064 0611112011 0051644555 4064624143 4540644142  TRACE TABLErrrTRCPT:tt0t ITEM TRACE TAB
       5445406057 5156644562 1515151515 4466434647 0611112011 0054516364 4044456651 4345404654 LE POINTERrrrrrDVCFG:tt0t LIST DEVICE FL
       4147401656 4547405146 4041644570 6440465154 4517151515 6254635546 0611112011 0062546371 AG (NEG IF ATEXT FILE)rrrRLSMF:tt0t RLSY
       5540576564 6065644046 5441474041 5644404651 5445405657 3615151515 4754422146 0611112011 M OUTPUT FLAG AND FILE NO.rrrrGLB1F:tt0t
       0046516263 6440475457 4241544046 5441474016 4657624062 5463715517 1515151515 4754422156  FIRST GLOBAL FLAG (FOR RLSYM)rrrrrGLB1N
       0611112032 4040203240 4020110046 5162636440 4754574241 5440564155 4515151515 6365426346 :tt0;  0;  0t FIRST GLOBAL NAMErrrrSUBSF
       0611112011 0057425235 6451554540 6365426343 6251606440 4350454353 4046544147 1515151515 :tt0t OBJ-TIME SUBSCRIPT CHECK FLAGrrrrr
       4460622446 0611112011 0044606224 4060625743 4563635762 4046544147 1515151515 4541655746 DPR4F:tt0t DPR4 PROCESSOR FLAGrrrrrEAUOF
       0611112011 0057425235 6451554540 4541654057 4654576740 4562626340 4654414715 6350576246 :tt0t OBJ-TIME EAU OFLOW ERRS FLAGrSHORF
       0611112011 0063505762 6440515664 4547456240 5557444540 4654414715 4554636446 0611112011 :tt0t SHORT INTEGER MODE FLAGrELSTF:tt0t
       0045564440 5746405451 6364515647 4046544147 1515151515 4655416046 0611112011 0046576264  END OF LISTING FLAGrrrrrFMAPF:tt0t FORT
       5541604046 5441471515 1515151515 1515151515 0040644555 6057624162 7140636457 6241474515 MAP FLAGrrrrrrrrrrrr  TEMPORARY STORAGEr
       1515151515 6445552106 1111201515 6445552206 1111201515 6445552306 1111201515 6445552406 rrrrrTEM1:tt0rrTEM2:tt0rrTEM3:tt0rrTEM4:
       1111201515 6445552506 1111201515 6445552606 1111201515 6445552706 1111201515 6445553006 tt0rrTEM5:tt0rrTEM6:tt0rrTEM7:tt0rrTEM8:
       1111201515 6445553106 1111201515 6445552120 0611112015 6445552121 0611112015 1515151515 tt0rrTEM9:tt0rrTEM10:tt0rTEM11:tt0rrrrrr
       6455210611 1120151515 6455220611 1120151515 6455230611 1120151515 6455240611 1120151515 TM1:tt0rrrTM2:tt0rrrTM3:tt0rrrTM4:tt0rrr
       6455250611 1120151515 6455260611 1120151515 6455270611 1120151515 1515151515 1515151515 TM5:tt0rrrTM6:tt0rrrTM7:tt0rrrrrrrrrrrrr
       0040455754 4042516440 5156634562 6451575640 6441425445 4046576240 6364625156 4740435756   EOL BIT INSERTION TABLE FOR STRING CON
       6364415664 6315151515 1515151515 4354454164 4254061120 1111005657 4045575440 4251641515 STANTSrrrrrrrrrCLEATBL:t0tt NO EOL BITrr
       1121035011 1100455754 4042516440 4115151515 1120111100 5665545440 3540565764 4065634544 t1!Htt EOL BIT Arrrrt0tt NULL - NOT USED
       1515151515 1121111100 4557544042 5164404215 1515151515 1515151515 7777700000 0411042067 rrrrrt1tt EOL BIT BrrrrrrrrrrrbbX  &t&0W
       0411042067 0411042067 0411042067 0411042067 0411042067 0411042067 0411042067 0411042067 &t&0W&t&0W&t&0W&t&0W&t&0W&t&0W&t&0W&t&0W
       0411042067                                                                              &t&0W
 1110: 0007700012 4664562022 1361200320 3414400000 0040576645 6254417140 4570644562 5641544062  _X ?FTN02"Q0!0,'     OVERLAY EXTERNAL R
       4546456245 5643454060 5751566445 6263151515 1515151515 3630444566 5606111173 7330444566 EFERENCE POINTERSrrrrrrrr.8DEVN:tt$$8DEV
       5611004040 1664505163 4055656364 4042454064 5045405756 5471406245 4645624556 4345171515 Nt   (THIS MUST BE THE ONLY REFERENCE)rr
       3630444566 6406111173 7330444566 6415151515 3655575631 0611526555 6011735557 5631151515 .8DEVT:tt$$8DEVTrrrr.MON9:tJUMPt$MON9rrr
       3630315441 0611554441 6214511173 3031544115 3655636070 0611554441 6214701173 5563601515 .89LA:tMDAR'It$89LAr.MSPX:tMDAR'Xt$MSPrr
       3660646206 1111736064 6215151515 3660420611 1173604215 3651565164 5106111173 5156516451 .PTR:tt$PTRrrrr.PB:tt$PBr.INITI:tt$INITI
       1515151515 3651565164 5706111173 5156516457 1515151515 3664714654 4706111173 6471465447 rrrrr.INITO:tt$INITOrrrrr.TYFLG:tt$TYFLG
       1515151515 3657435006 1111735743 5015151515 3664576406 1111736457 6415151515 3643545763 rrrrr.OCH:tt$OCHrrrr.TOT:tt$TOTrrrr.CLOS
       4506111173 4354576345 1515151515 3663456456 0611117363 4564561515 3657665421 4106111173 E:tt$CLOSErrrrr.SETN:tt$SETNrr.OVL1A:tt$
       5766542141 1515151515 3654572260 5006111173 5457226050 1515151515 3655456262 0611117355 OVL1Arrrrr.LO2PH:tt$LO2PHrrrrr.MERR:tt$M
       4562621515 3641646657 5406111173 4164665754 1515151515 3641644651 5406111173 4164465154 ERRrr.ATVOL:tt$ATVOLrrrrr.ATFIL:tt$ATFIL
       1515151515 3657426657 5406111173 5742665754 1515151515 3657424651 5406111173 5742465154 rrrrr.OBVOL:tt$OBVOLrrrrr.OBFIL:tt$OBFIL
       1515151515 3630416470 5106111173 3041647051 1515151515 3641647042 4606111173 4164704246 rrrrr.8ATXI:tt$8ATXIrrrrr.ATXBF:tt$ATXBF
       1515151515 3663644445 6606111173 6364444566 1515151515 3644636054 4606111173 4463605446 rrrrr.STDEV:tt$STDEVrrrrr.DSPLF:tt$DSPLF
       1515151515 3660625156 4606111173 6062515646 1515151515 3631435755 5506111173 3143575555 rrrrr.PRINF:tt$PRINFrrrrr.9COMM:tt$9COMM
       1515151515 3630634506 1111733063 4515151515 3630435406 1111733043 5415151515 3630656306 rrrrr.8SE:tt$8SErrrr.8CL:tt$8CLrrrr.8US:
       1111733065 6315151515 3630576506 1111733057 6515151515 3630645522 0611117330 6455221515 tt$8USrrrr.8OU:tt$8OUrrrr.8TM2:tt$8TM2rr
       3630416006 1111733041 6015151515 3657665423 4106111173 5766542341 1515151515 3664574321 .8AP:tt$8APrrrr.OVL3A:tt$OVL3Arrrrr.TOC1
       2006111173 6457432120 1515151515 3651434306 1111735143 4315151515 3641565346 4706111173 0:tt$TOC10rrrrr.ICC:tt$ICCrrrr.ANKFG:tt$
       4156534647 1515151515 3654414264 4606111173 5441426446 1515151515 3654424555 4606111173 ANKFGrrrrr.LABTF:tt$LABTFrrrrr.LBEMF:tt$
       5442455546 1515151515 3651634641 6306111173 5163464163 1515151515 1515151515 1515151515 LBEMFrrrrr.ISFAS:tt$ISFASrrrrrrrrrrrrrrr
       0040606257 4345636357 6240513757 4044516353 4051566065 6440426546 4645624016 2240634543   PROCESSOR I/O DISK INPUT BUFFER (2 SEC
       6457626317 4036363615 0040404016 5156404657 6264624156 3440645051 6340426546 4645624051 TORS) ...r    (IN FORTRAN, THIS BUFFER I
       6340656345 4440465762 4060625157 4051566065 6417151515 0040404016 5156404657 6264637155 S USED FOR PRIO INPUT)rrr    (IN FORTSYM
       6334405164 4051634065 6345444041 6340465154 4540513757 4057656460 6564404265 4646456217 S, IT IS USED AS FILE I/O OUTPUT BUFFER)
       1515151515 1515151515 6062514241 0611113610 2115151515 6062514246 0611545743 1136102220 rrrrrrrrrrPRIBA:tt.+1rrrrPRIBF:tLOCt.+20
       3036151515 1515151515 1515151515 7777700000 6520175057 6520175057 6520175057 6520175057 8.rrrrrrrrrrrrrbbX  U0)HOU0)HOU0)HOU0)HO
       6520175057 6520175057 6520175057 6520175057 6520175057 6520175057                       U0)HOU0)HOU0)HOU0)HOU0)HOU0)HO
  550: 0010000012 4664562022 1361200140 3414400000 0040435756 6364415664 6315151515 1515151515  +  ?FTN02"Q0% ,'     CONSTANTSrrrrrrrrr
       4320061111 2015151515 4321061111 2115151515 4322061111 2215151515 4323061111 2315151515 C0:tt0rrrrC1:tt1rrrrC2:tt2rrrrC3:tt3rrrr
       4324061111 2415151515 4325061111 2515151515 4326061111 2615151515 4327061111 2715151515 C4:tt4rrrrC5:tt5rrrrC6:tt6rrrrC7:tt7rrrr
       4321200611 1121201515 4321210611 1121211515 4321220611 1121221515 4321230611 1121231515 C10:tt10rrC11:tt11rrC12:tt12rrC13:tt13rr
       4321240611 1121241515 4321250611 1121251515 4321260611 1121261515 4321270611 1121271515 C14:tt14rrC15:tt15rrC16:tt16rrC17:tt17rr
       4322200611 1122201515 4322220611 1122221515 4323230611 1123231515 4323270611 1123271515 C20:tt20rrC22:tt22rrC33:tt33rrC37:tt37rr
       4324200611 1124201515 4324207021 2106111124 2014212115 4324220611 1124221515 4325260611 C40:tt40rrC40X11:tt40'11rC42:tt42rrC56:t
       1125261515 4326200611 1126201515 4327270611 1127271515 4321242306 1111212423 1515151515 t56rrC60:tt60rrC77:tt77rrC143:tt143rrrrr
       4321262006 1111212620 1515151515 4321272706 1111212727 1515151515 4323202006 1111232020 C160:tt160rrrrrC177:tt177rrrrrC300:tt300
       1515151515 4323272706 1111232727 1515151515 4327272706 1111272727 1515151515 4321202020 rrrrrC377:tt377rrrrrC777:tt777rrrrrC1000
       0611112120 2020151515 4342200611 2420202020 0350151515 4342220611 2120202020 0350151515 :tt1000rrrCB0:t40000!HrrrCB2:t10000!Hrrr
       4342232406 1120262020 2003501515 4342260611 2420200350 1515151515 4155416353 0611112727 CB34:t06000!HrrCB6:t400!HrrrrrAMASK:tt77
       2727271515 1515151515 1515151515 7777700000 1226310143 1226310143 1226310143 1226310143 777rrrrrrrrrrrrbbX  ?69%C?69%C?69%C?69%C
       1226310143 1226310143 1226310143 1226310143 1226310143 1226310143                       ?69%C?69%C?69%C?69%C?69%C?69%C
   75: 0010100012 4664562022 1361200001 3414400000 7777777777 7777777777 7777777777 7777777777  ++ ?FTN02"Q0 %,'   bbbbbbbbbbbbbbbbbbbb
       7777777777 7777777777 7777777777 7777777777 7777777777 7777777777 7777777777            bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
  845: 0000100013 4664562023 1361200233 3414400000 0040554143 5051564540 5156636462 6543645157   + "FTN03"Q0c=,'     MACHINE INSTRUCTIO
       5640435756 6364415664 6315151515 1515151515 4355445162 0611554451 6215151515 4341624162 N CONSTANTSrrrrrrrrrCMDIR:tMDIRrrrrCARAR
       3670061141 6241621470 1515151515 4341625544 3651367006 1141625544 1451147015 4355444162 .X:tARAR'XrrrrrCARMD.I.X:tARMD'I'XrCMDAR
       3670365606 1155444162 1470145615 4352605463 0611526054 6315151515 4355445162 3654061155 .X.N:tMDAR'X'NrCJPLS:tJPLSrrrrCMDIR.L:tM
       4451621454 1515151515 4336560611 5615151515 4355447057 3646061155 4470571446 1515151515 DIR'LrrrrrC.N:tNrrrrCMDXO.F:tMDXO'Frrrrr
       4355447057 3654061155 4470571454 1515151515 1515151515 1515151515 4341625544 0611416255 CMDXO.L:tMDXO'LrrrrrrrrrrrrrrrCARMD:tARM
       4415151515 4341625544 3656061141 6255441456 1515151515 1515151515 4355444162 3657061155 DrrrrCARMD.N:tARMD'NrrrrrrrrrrCMDAR.O:tM
       4441621457 1515151515 4355444162 3641061155 4441621441 1515151515 1515151515 4355444162 DAR'OrrrrrCMDAR.A:tMDAR'ArrrrrrrrrrCMDAR
       0611554441 6215151515 4355444162 3646061155 4441621446 1515151515 1515151515 4355447057 :tMDARrrrrCMDAR.F:tMDAR'FrrrrrrrrrrCMDXO
       0611554470 5715151515 4355447057 3656061155 4470571456 1515151515 1515151515 4355447057 :tMDXOrrrrCMDXO.N:tMDXO'NrrrrrrrrrrCMDXO
       3641061155 4470571441 1515151515 4355447057 3657061155 4470571457 1515151515 1515151515 .A:tMDXO'ArrrrrCMDXO.O:tMDXO'Orrrrrrrrrr
       4355444145 0611554441 4515151515 1155444163 1446151515 4355444145 3656061155 4441451456 CMDAE:tMDAErrrrtMDAS'FrrrCMDAE.N:tMDAE'N
       1515151515 1155444163 1446145615 1515151515 4355444163 0611554441 6315151515 4355444163 rrrrrtMDAS'F'NrrrrrrCMDAS:tMDASrrrrCMDAS
       3646061155 4441631446 1515151515 1515151515 4355444163 3656061155 4441631456 1515151515 .F:tMDAS'FrrrrrrrrrrCMDAS.N:tMDAS'Nrrrrr
       4355444163 3646365606 1155444163 1446145615 1515151515 4355607154 0611556071 5415151515 CMDAS.F.N:tMDAS'F'NrrrrrrCMPYL:tMPYLrrrr
       4355607151 0611556071 5115151515 1515151515 4344516654 0611445166 5415151515 4344516651 CMPYI:tMPYIrrrrrrrrrCDIVL:tDIVLrrrrCDIVI
       0611445166 5115151515 1515151515 4355444162 3650061155 4441621450 1515151515 4341624162 :tDIVIrrrrrrrrrCMDAR.H:tMDAR'HrrrrrCARAR
       3646365006 1141624162 1446145015 1515151515 4355444162 3642061155 4441621442 1515151515 .F.H:tARAR'F'HrrrrrrCMDAR.B:tMDAR'Brrrrr
       4341624162 3646364206 1141624162 1446144215 1515151515 4355444162 3653061155 4441621453 CARAR.F.B:tARAR'F'BrrrrrrCMDAR.K:tMDAR'K
       1515151515 4341624162 3646365306 1141624162 1446145315 1515151515 7777700000 2026437533 rrrrrCARAR.F.K:tARAR'F'KrrrrrrbbX  06C@=
       2026437533 2026437533 2026437533 2026437533 2026437533 2026437533 2026437533 2026437533 06C@=06C@=06C@=06C@=06C@=06C@=06C@=06C@=
       2026437533                                                                              06C@=
  855: 0000200013 4664562023 1361200235 3414400000 4341624162 3654061141 6241621454 1515151515   0 "FTN03"Q0c-,'   CARAR.L:tARAR'Lrrrrr
       4341624162 3654365606 1141624162 1454145615 1515151515 4341626263 3651061141 6262631451 CARAR.L.N:tARAR'L'NrrrrrrCARRS.I:tARRS'I
       1515151515 4341626263 0611416262 6315151515 1515151515 4341625463 3651061141 6254631451 rrrrrCARRS:tARRSrrrrrrrrrCARLS.I:tARLS'I
       1515151515 4341625463 0611416254 6315151515 1515151515 4352606362 0611526063 6215151515 rrrrrCARLS:tARLSrrrrrrrrrCJPSR:tJPSRrrrr
       4352604156 0611526041 5615151515 1515151515 4355444162 3656061155 4441621456 1515151515 CJPAN:tJPANrrrrrrrrrCMDAR.N:tMDAR'Nrrrrr
       4341624162 3646365606 1141624162 1446145615 1515151515 4341626263 2231061141 6262631122 CARAR.F.N:tARAR'F'NrrrrrrCARRS29:tARRSt2
       3136151515 4341626263 2125061141 6262631121 2536151515 4341626263 2106114162 6263112115 9.rrrCARRS15:tARRSt15.rrrCARRS1:tARRSt1r
       4341625463 2123061141 6254631121 2336151515 4341625463 2706114162 5463112715 1515151515 CARLS13:tARLSt13.rrrCARLS7:tARLSt7rrrrrr
       4341624162 4650570611 4162416214 4614501457 1515151515 4341567057 4321061141 5670571124 CARARFHO:tARAR'F'H'OrrrrrCANXOC1:tANXOt4
       4321151515 4341564162 4320061141 5641621124 4320151515 4354634162 3656061154 6341621456 C1rrrCANARC0:tANARt4C0rrrCLSAR.N:tLSAR'N
       1124432015 4341567057 3656061141 5670571456 1124432015 4355444162 3641240611 5544416214 t4C0rCANXO.N:tANXO'Nt4C0rCMDAR.A4:tMDAR'
       4111244346 6315151515 4355444162 5043576356 0611554441 6214501143 5763561515 4355444162 At4CFSrrrrCMDARHCOSN:tMDAR'HtCOSNrrCMDAR
       2444516662 0611554441 6211244451 6662151515 1515151515 4341627057 3654061141 6270571454 4DIVR:tMDARt4DIVRrrrrrrrrCARXO.L:tARXO'L
       1515151515 4341627057 3646061141 6270571446 1515151515 4341627057 3646365606 1141627057 rrrrrCARXO.F:tARXO'FrrrrrCARXO.F.N:tARXO
       1456144615 4355444145 3646061155 4441451446 1515151515 4355444145 3654061155 4441451454 'N'FrCMDAE.F:tMDAE'FrrrrrCMDAE.L:tMDAE'L
       1515151515 4355444162 3654061155 4441621454 1515151515 4355444162 3651061155 4441621451 rrrrrCMDAR.L:tMDAR'LrrrrrCMDAR.I:tMDAR'I
       1515151515 4355444145 3642061155 4441451442 1515151515 4355444163 3642061155 4441631442 rrrrrCMDAE.B:tMDAE'BrrrrrCMDAS.B:tMDAS'B
       1515151515 4355444162 3646364106 1155444162 1446144115 4352556006 1127252020 2003501515 rrrrrCMDAR.F.A:tMDAR'F'ArCJMP:t75000!Hrr
       4352556036 5106112725 2020210350 1515151515 4351554706 1127202020 2003501515 4355525560 CJMP.I:t75001!HrrrrrCIMG:t70000!HrrCMJMP
       0611272524 2020035015 4341564162 3656061141 5641621456 1515151515 1515151515 1515151515 :t75400!HrCANAR.N:tANAR'Nrrrrrrrrrrrrrrr
       7777700000 1561762614 1561762614 1561762614 1561762614 1561762614 1561762614 1561762614 bbX  rQ+6'rQ+6'rQ+6'rQ+6'rQ+6'rQ+6'rQ+6'
       1561762614 1561762614 1561762614                                                        rQ+6'rQ+6'rQ+6'
  595: 0000300013 4664562023 1361200151 3414400000 5146724562 5740662215 1515151515 0040634547   8 "FTN03"Q0%I,'   IFZERO V2rrrrrr  SEG
       5545566445 4440435755 6051544562 4057664562 5441714063 6560605762 6440166645 6263515756 MENTED COMPILER OVERLAY SUPPORT (VERSION
       4022405756 5471174036 3636363615 1515151515 1515151515 1515151515 0040624563 5144455664  2 ONLY) .....rrrrrrrrrrrrrrrr  RESIDENT
       4043575560 5154456240 4556646271 3560575156 6463151515 1515151515 1515151515 4657626462  COMPILER ENTRY-POINTSrrrrrrrrrrrrrFORTR
       4156061152 6555601136 1100565762 5541544043 5755605154 4562404556 6462711515 1152606362 AN:tJUMPt.t NORMAL COMPILER ENTRYrrtJPSR
       1146455664 6271151515 1152655560 2111465762 6462415670 1515151515 1515151515 1515151515 tFENTRYrrrtJUMP1tFORTRANXrrrrrrrrrrrrrrr
       4657626462 4156630611 5265556011 3611004556 6462714046 5762404357 5560515445 4057464063 FORTRANS:tJUMPt.t ENTRY FOR COMPILE OF S
       5156475445 4060625747 6241551515 1152606362 1146455664 6271151515 1152655560 2111465762 INGLE PROGRAMrrtJPSRtFENTRYrrrtJUMP1tFOR
       6462415663 7015151515 1515151515 1515151515 4657626455 4160061152 6555601136 1100455664 TRANSXrrrrrrrrrrrrrrFORTMAP:tJUMPt.t ENT
       6271404657 6240637155 4257546340 5541604057 6564606564 1515151515 1152606362 1146455664 RY FOR SYMBOLS MAP OUTPUTrrrrrtJPSRtFENT
       6271151515 1152655560 2111465762 6455416070 1515151515 1515151515 1515151515 4657626463 RYrrrtJUMP1tFORTMAPXrrrrrrrrrrrrrrrFORTS
       7155630611 5265556011 3611004556 6462714046 5762404445 4265474751 5647406371 5542575463 YMS:tJUMPt.t ENTRY FOR DEBUGGING SYMBOLS
       4057656460 6564151515 1152606362 1146455664 6271151515 1152655560 2111465762 6463715563  OUTPUTrrrtJPSRtFENTRYrrrtJUMP1tFORTSYMS
       7015151515 1515151515 1515151515 1515151515 7777700000 5305731601 5305731601 5305731601 XrrrrrrrrrrrrrrrrrrrbbX  K*$(%K*$(%K*$(%
       5305731601 5305731601 5305731601 5305731601 5305731601 5305731601 5305731601            K*$(%K*$(%K*$(%K*$(%K*$(%K*$(%K*$(%
 1460: 0000400013 4664562023 1361200426 3414400000 0040606257 4345636340 5156516451 4154404556     "FTN03"Q0&6,'     PROCESS INITIAL EN
       6462714064 5740435755 6051544562 4062576564 5156451515 1515151515 4645566462 7106115265 TRY TO COMPILER ROUTINErrrrrrrFENTRY:tJU
       5560113611 0045566462 7115151515 1155444162 1173576654 6654110046 4564435040 5557565164 MPt.t ENTRYrrrrtMDARt$OVLVLt FETCH MONIT
       5762405766 4562544171 4066575440 1660666640 4657625517 1515151515 1141626263 1126110063 OR OVERLAY VOL (PVV FORM)rrrrrtARRSt6t S
       5051466440 5156406041 4353405657 3615151515 1155444162 1441114321 2711005541 6353151515 HIFT IN PACK NO.rrrrtMDAR'AtC17t MASKrrr
       1141625544 1162444460 5311006341 6645404657 6240445163 5340624541 4440434154 5463151515 tARMDtRDDPKt SAVE FOR DISK READ CALLSrrr
       1155444162 1160625142 4111004645 6443504041 4444624563 6340574640 4451635340 5156606564 tMDARtPRIBAt FETCH ADDRESS OF DISK INPUT
       4042654646 4562151515 1152606362 1162444463 5311006245 4144406657 5465554540 4451624543  BUFFERrrrtJPSRtRDDSKt READ VOLUME DIREC
       6457627140 4662575540 4451635315 1126243603 5011201100 4040162624 3640675762 4463404164 TORY FROM DISKrt64.!Ht0t   (64. WORDS AT
       4063454364 5762402017 1515151515 1155444162 1442117357 6654665411 0046456443 5040220566  SECTOR 0)rrrrrtMDAR'Bt$OVLVLt FETCH 2*V
       5754655545 4056573615 1155444162 1441144211 4327271100 5541635315 1155444145 1446116062 OLUME NO.rtMDAR'A'BtC77t MASKrtMDAE'FtPR
       5142463522 1100435755 6065644540 6064624064 5740665754 6555454044 5162404556 6462711515 IBF-2t COMPUTE PTR TO VOLUME DIR ENTRYrr
       1141625544 1164455521 1100634166 4515151515 1155444162 1451116445 5521110066 5754655545 tARMDtTEM1t SAVErrrrtMDAR'ItTEM1t VOLUME
       4045556064 7140121515 1152605463 1146455664 2211005657 3440526555 6040465762 4045626257  EMPTY ?rrtJPLStFENT2t NO, JUMP FOR ERRO
       6215151515 1515151515 1155444162 1451147014 5011644555 2111007145 6334404156 7140646241 RrrrrrrrrrtMDAR'I'X'HtTEM1t YES, ANY TRA
       4353634041 5454574341 6445444064 5740665754 4012151515 1152605463 1146455664 2111007145 CKS ALLOCATED TO VOL ?rrrtJPLStFENT1t YE
       6334405753 3440635351 6015151515 1515151515 1155444162 1143212611 0056573440 4645644350 S, OK, SKIPrrrrrrrrrtMDARtC16t NO, FETCH
       4055575651 6457624045 6262576240 4357444515 1152606362 1163644562 6211006345 6440415644  MONITOR ERROR CODErtJPSRtSTERRt SET AND
       4064716045 4045626257 6240554563 6341474515 6364625156 4740141515 5766456254 4171406657  TYPE ERROR MESSAGErSTRING 'rrOVERLAY VO
       5465554540 5657644041 5454574341 6445443614 1515151515 1515151515 4645566421 0611554441 LUME NOT ALLOCATED.'rrrrrrrrrrFENT1:tMDA
       6214411450 1141554163 5311005541 6353404451 6353404144 4462456363 4057464066 5754655545 R'A'HtAMASKt MASK DISK ADDRESS OF VOLUME
       4063644162 6415151515 1141625544 1450115444 5766631100 6341664540 4657624054 5741443557  STARTrrrrtARMD'HtLDOVSt SAVE FOR LOAD-O
       6645625441 7140625765 6451564515 1155447057 1451145014 5611644555 2111004745 6440565736 VERLAY ROUTINErtMDXO'I'H'NtTEM1t GET NO.
       4057464064 6241435363 4051564066 5754655545 1515151515 1155444163 1446404016 6622646241  OF TRACKS IN VOLUMErrrrrtMDAS'F  (V2TRA
       4353630342 0342034203 4217110054 4563634064 5041564056 5736406245 6165516245 4440121515 CKS!B!B!B!B)t LESS THAN NO. REQUIRED ?rr
       1152604156 1146455664 2311005657 3440575334 4063535160 1515151515 1515151515 4645566422 tJPANtFENT3t NO, OK, SKIPrrrrrrrrrrFENT2
       0611554441 6211432127 1100575640 5154544547 4154405766 4562544171 4066575440 4657625541 :tMDARtC17t ON ILLEGAL OVERLAY VOL FORMA
       6434151515 1152606362 1163644562 6211006345 6440555756 5164576240 4562625762 4043574445 T,rrrtJPSRtSTERRt SET MONITOR ERROR CODE
       4041564440 6471604540 5563471515 6364625156 4740141515 5154544547 4154405766 4562544171  AND TYPE MSGrrSTRING 'rrILLEGAL OVERLAY
       4066575465 5545404657 6255416436 1415151515 1515151515 4645566423 0611416255 4414571145  VOLUME FORMAT.'rrrrrrrrrFENT3:tARMD'OtE
       5766545611 0063456440 5657404365 6262455664 4045626257 6240644142 5445405766 4562544171 OVLNt SET NO CURRENT ERROR TABLE OVERLAY
       1515151515 1155444162 1451114645 5664627111 0046456443 5040416247 6555455664 1515151515 rrrrrtMDAR'ItFENTRYt FETCH ARGUMENTrrrrr
       1141625544 1136102211 0063456440 4163404162 4740645740 4657626462 4156405766 4562544171 tARMDt.+2t SET AS ARG TO FORTRAN OVERLAY
       4054574144 4562151515 1152606362 1146576662 5471110054 5741444064 5045404160 6062576062  LOADERrrrtJPSRtFOVRLYt LOAD THE APPROPR
       5141644540 5766456254 4171151515 1152655560 1111004040 4156444045 5664456215 1515151515 IATE OVERLAYrrrtJUMPtt   AND ENTERrrrrrr
       1515151515 7777700000 2064423061 2064423061 2064423061 2064423061 2064423061 2064423061 rrrrrbbX  0TB8Q0TB8Q0TB8Q0TB8Q0TB8Q0TB8Q
       2064423061 2064423061 2064423061 2064423061                                             0TB8Q0TB8Q0TB8Q0TB8Q
 1390: 0000500013 4664562023 1361200410 3414400000 0040465762 6462415640 5766456254 4171405457   H "FTN03"Q0&+,'     FORTRAN OVERLAY LO
       4144456240 6257656451 5645151515 1515151515 4657666254 7106115265 5560113611 0045566462 ADER ROUTINErrrrrrrrFOVRLY:tJUMPt.t ENTR
       7115151515 1141625544 1146576631 3111006341 6645401641 6217151515 1155444162 1451114657 YrrrrtARMDtFOV99t SAVE (AR)rrrtMDAR'ItFO
       6662547111 0046456443 5040416247 6555455664 1515151515 1141625544 1146576662 2110211100 VRLYt FETCH ARGUMENTrrrrrtARMDtFOVR1+1t 
       6341664540 4657624044 5163604164 4350405156 6457405766 4562544171 1515151515 1141624162 SAVE FOR DISPATCH INTO OVERLAYrrrrrtARAR
       1453144611 1100474564 4041624765 5545566440 5766456254 4171405657 3615151515 1155444162 'K'Ftt GET ARGUMENT OVERLAY NO.rrrrtMDAR
       1441114327 1100554163 5315151515 1155447057 1146576654 5611006341 5545404163 4043656262 'AtC7t MASKrrrrtMDXOtFOVLNt SAME AS CURR
       4556644054 5741444544 4057664562 5441714012 1515151515 1152605463 1136102311 0056573440 ENT LOADED OVERLAY ?rrrrrtJPLSt.+3t NO, 
       6353516015 1515151515 4657666221 0611554441 6211465766 3131110071 4563344062 4563645762 SKIPrrrrrrFOVR1:tMDARtFOV99t YES, RESTOR
       4540164162 1715151515 1152655560 1111004156 4440526555 6040645740 4144446245 6363405156 E (AR)rrrrtJUMPtt AND JUMP TO ADDRESS IN
       4057664562 5441711515 1515151515 1155447057 1146576654 5611004745 6440564567 4057664562  OVERLAYrrrrrrrtMDXOtFOVLNt GET NEW OVER
       5441714056 6555424562 1515151515 1141625544 1146576631 3011006341 6645404657 6240544164 LAY NUMBERrrrrrtARMDtFOV98t SAVE FOR LAT
       4562151515 1141625544 1457114657 6654561100 6345644056 5740576645 6254417140 5156151515 ERrrrtARMD'OtFOVLNt SET NO OVERLAY INrrr
       1155444145 1454111100 4357556065 6445404645 6443504046 6257554057 6645625441 7140644142 tMDAE'Ltt COMPUTE FETCH FROM OVERLAY TAB
       5445151515 1155444162 1146576654 6435211515 1141625162 1446111100 4645644350 4057664562 LErrrtMDARtFOVLT-1rrtARIR'Ftt FETCH OVER
       5441714054 4556476450 0350404451 6353405746 4663456415 1152606362 1154445766 1100545741 LAY LENGTH!H DISK OFFSETrtJPSRtLDOVt LOA
       4440515640 6450454057 6645625441 7115151515 4657666222 0611116245 6345564411 0040401641 D IN THE OVERLAYrrrrFOVR2:ttRESENDt   (A
       6440455644 4057464062 4563514445 5664171515 1515151515 1155444162 1146576631 3011005146 T END OF RESIDENT)rrrrrrrtMDARtFOV98t IF
       4054574144 4063654343 4563634665 5434151515 1141625544 1146576654 5611004040 6345644056  LOAD SUCCESSFUL,rrrtARMDtFOVLNt   SET N
       4567404365 6262455664 4057664562 5441714056 5736151515 1152655560 1146576662 2111004156 EW CURRENT OVERLAY NO.rrrtJUMPtFOVR1t AN
       4440526555 6040645740 4556644562 4056456740 5766456254 4171151515 1515151515 4657665456 D JUMP TO ENTER NEW OVERLAYrrrrrrrrFOVLN
       0611112111 0043656262 4556644054 5741444544 4057664562 5441714056 5736151515 1515151515 :tt1t CURRENT LOADED OVERLAY NO.rrrrrrrr
       4657665464 0611576654 2154035011 5766542163 1100576645 6254417140 6441425445 4036363615 FOVLT:tOVL1L!HtOVL1St OVERLAY TABLE ...r
       1157665422 5403501157 6654226315 1157665423 5403501157 6654236315 1515151515 4657663131 tOVL2L!HtOVL2SrtOVL3L!HtOVL3SrrrrrrFOV99
       0611112011 0064455560 4063645762 4147451515 4657663130 0611112011 0064455560 4063645762 :tt0t TEMP STORAGErrFOV98:tt0t TEMP STOR
       4147451515 1515151515 1515151515 0040474556 4562415440 5766456254 4171405457 4144456240 AGErrrrrrrrrrrr  GENERAL OVERLAY LOADER 
       6257656451 5645151515 1515151515 5444576606 1152655560 1136110045 5664627115 1155444145 ROUTINErrrrrrrrLDOV:tJUMPt.t ENTRYrtMDAE
       1154445766 6311004144 4440634543 6457624042 4163454057 4640576645 6254417140 6657541515 tLDOVSt ADD SECTOR BASE OF OVERLAY VOLrr
       1141625544 1136102311 0063416645 4057664562 5441714054 4556476450 0350404451 6353404144 tARMDt.+3t SAVE OVERLAY LENGTH!H DISK AD
       4462456363 1515151515 1155444162 1451115444 5766110046 4564435040 4357624540 4144446245 DRESSrrrrrtMDAR'ItLDOVt FETCH CORE ADDRE
       6363151515 1152606362 1162444463 5311006245 4144405766 4562544171 4046625755 4044516353 SSrrrtJPSRtRDDSKt READ OVERLAY FROM DISK
       1515151515 1111201515 1155445162 1470115444 5766110062 4564656256 1515151515 1515151515 rrrrrtt0rrtMDIR'XtLDOVt RETURNrrrrrrrrrr
       5444576663 0611112011 0042416345 4041444462 4563634057 4640576645 6254417140 6657546555 LDOVS:tt0t BASE ADDRESS OF OVERLAY VOLUM
       4515151515 1515151515 1515151515 7777700000 3721043520 3721043520 3721043520 3721043520 ErrrrrrrrrrrrrrbbX  /1&-0/1&-0/1&-0/1&-0
       3721043520 3721043520 3721043520 3721043520 3721043520 3721043520                       /1&-0/1&-0/1&-0/1&-0/1&-0/1&-0
 1210: 0000600013 4664562023 1361200344 3414400000 0040456262 5762405545 6363414745 4057664562   P "FTN03"Q0!D,'     ERROR MESSAGE OVER
       5441714054 5741444562 4062576564 5156451515 1515151515 6622456263 4033402711 1100565736 LAY LOADER ROUTINErrrrrrrV2ERS = 7tt NO.
       4063454364 5762633745 6262576240 5766456254 4171403340 2122252410 2120233637 2120243615  SECTORS/ERROR OVERLAY = 1254+103./104.r
       6622456254 4033402124 3611110055 4170515565 5540644142 5445404556 6462714054 4556476450 V2ERL = 14.tt MAXIMUM TABLE ENTRY LENGTH
       4046576240 6364625156 4740576645 6254416015 1515151515 4557666254 7106115265 5560113611  FOR STRING OVERLAPrrrrrrEOVRLY:tJUMPt.t
       0045566462 7115151515 1155444162 1441114155 4163531100 5541635340 4562625762 4055456363  ENTRYrrrrtMDAR'AtAMASKt MASK ERROR MESS
       4147454043 5762454041 4444624563 6315151515 1155444145 1456114657 6662221100 6365426462 AGE CORE ADDRESSrrrrtMDAE'NtFOVR2t SUBTR
       4143644042 4163454057 4640456262 5762406441 4254451515 1141564162 1143201100 6345644072 ACT BASE OF ERROR TABLErrtANARtC0t SET Z
       4562574041 4263575465 6445151515 1141624162 1442144611 1100606245 6041624540 4657624051 ERO ABSOLUTErrrtARAR'B'Ftt PREPARE FOR I
       5664454745 6240445166 5144451515 1144516651 1121222524 3566224562 5411004357 5560656445 NTEGER DIVIDErrtDIVIt1254-V2ERLt COMPUTE
       4042654646 4562405657 3640575640 4451635315 1156575760 1515151515 1141625544 1146576631  BUFFER NO. ON DISKrtNOOPrrrrrtARMDtFOV9
       3111006341 6645406245 6365546415 1155447057 1145576654 5611006341 5545404163 4043656262 9t SAVE RESULTrtMDXOtEOVLNt SAME AS CURR
       4556644012 1515151515 1152605463 1136102311 0056573440 6353516015 1515151515 1155444162 ENT ?rrrrrtJPLSt.+3t NO, SKIPrrrrrrtMDAR
       1450117357 6654234111 0055575651 6457624042 6546464562 4023406364 5154544065 5641545457 'Ht$OVL3At MONITOR BUFFER 3 STILL UNALLO
       4341644544 4012151515 1152604156 1145576662 2211007145 6334405753 3440576645 6254417140 CATED ?rrrtJPANtEOVR2t YES, OK, OVERLAY 
       4154624541 4471406450 4562451515 1515151515 1141625544 1457117357 6654234111 0065564154 ALREADY THERErrrrrrrtARMD'Ot$OVL3At UNAL
       5457434164 4540555756 5164576240 4265464645 6240231515 1155444162 1146576631 3111004645 LOCATE MONITOR BUFFER 3rrtMDARtFOV99t FE
       6443504042 6546464562 4056573615 1141625544 1145576654 5611006345 6440416340 4365626245 TCH BUFFER NO.rtARMDtEOVLNt SET AS CURRE
       5664151515 1155607151 1166224562 6311004357 5560656445 4063454364 5762405746 4663456440 NTrrrtMPYItV2ERSt COMPUTE SECTOR OFFSET 
       5756404451 6353151515 1156575760 1515151515 1141626263 1121110041 4452656364 4051566445 ON DISKrrrtNOOPrrrrrtARRSt1t ADJUST INTE
       4745624062 4563655464 1515151515 1155444162 1457145014 5432112122 2524110043 5755425156 GER RESULTrrrrrtMDAR'O'H'L;t1254t COMBIN
       4540576645 6254417140 5445564764 5015151515 1152606362 1154445766 1100415644 4054574144 E OVERLAY LENGTHrrrrtJPSRtLDOVt AND LOAD
       4064504540 4562625762 4057664562 5441714064 5045624515 4557666221 0611112724 2020203521  THE ERROR OVERLAY THERErEOVR1:tt74000-1
       2225241515 1515151515 4557666222 0611554441 6214501146 5766313111 0046456443 5040445166 254rrrrrrrEOVR2:tMDAR'HtFOV99t FETCH DIV
       5163515756 4062455541 5156444562 1515151515 1155444162 1441114155 4163531100 5541635315 ISION REMAINDERrrrrrtMDAR'AtAMASKt MASKr
       1141626263 1121110041 4452656364 1515151515 1155444145 1145576662 2111004357 5560656445 tARRSt1t ADJUSTrrrrrtMDAEtEOVR1t COMPUTE
       4043576245 4041444462 4563634051 5640576645 6254417140 4265464615 1155445162 1145576662  CORE ADDRESS IN OVERLAY BUFFrtMDIRtEOVR
       5471110062 4564656256 1515151515 1515151515 4557665456 0611113520 1100436562 6245566440 LYt RETURNrrrrrrrrrrEOVLN:tt-0t CURRENT 
       5457414445 4440456262 5762405766 4562544171 1515151515 1515151515 1515151515 7777700000 LOADED ERROR OVERLAYrrrrrrrrrrrrrrrbbX  
       1603564174 1603564174 1603564174 1603564174 1603564174 1603564174 1603564174 1603564174 (!NA#(!NA#(!NA#(!NA#(!NA#(!NA#(!NA#(!NA#
       1603564174 1603564174                                                                   (!NA#(!NA#
 1155: 0000700013 4664562023 1361200331 3414400000 0040445163 5340624541 4440625765 6451564515   X "FTN03"Q0!9,'     DISK READ ROUTINEr
       1515151515 6244446353 0611526555 6011361100 4556646271 1515151515 1141625544 1162444460 rrrrrRDDSK:tJUMPt.t ENTRYrrrrrtARMDtRDDP
       5310231100 6341664540 4357624540 4144446245 6363151515 1155444162 1451116244 4463531100 K+3t SAVE CORE ADDRESSrrrtMDAR'ItRDDSKt 
       4645644350 4044516353 4041444462 4563631515 1155444162 1441114155 4163531100 5541635315 FETCH DISK ADDRESSrrtMDAR'AtAMASKt MASKr
       1141625544 1162444460 5310211100 6341664540 5156403062 4440434154 5451564740 6345616545 tARMDtRDDPK+1t SAVE IN 8RD CALLING SEQUE
       5643451515 1155447057 1451116244 4463531100 4645644350 4056573640 5746406757 6244634064 NCErrtMDXO'ItRDDSKt FETCH NO. OF WORDS T
       5740624541 4415151515 1141625544 1450116244 4460531022 1100415644 4063416645 4046576240 O READrrrrtARMD'HtRDDPK+2t AND SAVE FOR 
       3062441515 1515151515 6244446321 0611416255 4414571162 4444634611 0063456440 4451635340 8RDrrrrrrrRDDS1:tARMD'OtRDDSFt SET DISK 
       6741516440 4654414715 1152606362 1173306244 1100624541 4440466257 5540445163 5340363636 WAIT FLAGrtJPSRt$8RDt READ FROM DISK ...
       1515151515 1152655560 1136352111 0040401662 4564627140 5146404451 6353404265 6371171515 rrrrrtJUMPt.-1t   (RETRY IF DISK BUSY)rr
       6244446053 0611112011 0040404451 6353406041 4353405657 3615151515 1111201100 4040445163 RDDPK:tt0t   DISK PACK NO.rrrrtt0t   DIS
       5340634543 6457624041 4444624563 6315151515 1111201100 4040565736 4067576244 6315151515 K SECTOR ADDRESSrrrrtt0t   NO. WORDSrrrr
       1111201100 4040435762 4540414444 6245636315 1141625544 1162444463 4611005756 4045626234 tt0t   CORE ADDRESSrtARMDtRDDSFt ON ERR,
       4062456345 6440674151 6440465441 4715151515 1141625544 1162444463 4611005756 4044575645  RESET WAIT FLAGrrrrtARMDtRDDSFt ON DONE
       3440624563 4564406741 5164404654 4147151515 1515151515 1155444162 1162444463 4611006741 , RESET WAIT FLAGrrrrrrrrtMDARtRDDSFt WA
       5164406556 6451544044 6353515740 4457564515 1152604156 1136352115 1515151515 1141624162 IT UNTIL DSKIO DONErtJPANt.-1rrrrrrtARAR
       1442145614 4611110041 5671404562 6257624012 1515151515 1141565162 1470116244 4463531100 'B'N'Ftt ANY ERROR ?rrrrrtANIR'XtRDDSKt 
       5657344057 5334406245 6465625615 1515151515 1141625544 1457117344 5743504611 0071456334 NO, OK, RETURNrrrrrrtARMD'Ot$DOCHFt YES,
       4063456440 4657624064 7160455765 6415151515 1152606362 1173574663 6411006471 6045405545  SET FOR TYPEOUTrrrrtJPSRt$OFSTt TYPE ME
       6363414745 1515151515 6364625156 4740141515 5766456254 4171404451 6353404562 6257620640 SSAGErrrrrSTRING 'rrOVERLAY DISK ERROR: 
       4014151515 1155444162 1162444463 4611004040 1667516450 4044635351 5740456262 5762404357  'rrrtMDARtRDDSFt   (WITH DSKIO ERROR CO
       4445171515 1152606362 1173645743 2120151515 1152606362 1173574663 6415151515 6364625156 DE)rrtJPSRt$TOC10rrrtJPSRt$OFSTrrrrSTRIN
       4740144040 4651704041 5644406471 6045404337 6240363636 1415151515 1515151515 1141627057 G '  FIX AND TYPE C/R ...'rrrrrrrrrtARXO
       1446111100 4354454162 4046576243 4544406471 6045576564 4046544147 1515151515 1141625544 'Ftt CLEAR FORCED TYPEOUT FLAGrrrrrtARMD
       1173445743 5046151515 1152606362 1173514343 1100674151 6440465762 4065634562 4062456360 t$DOCHFrrrtJPSRt$ICCt WAIT FOR USER RESP
       5756634540 4662575540 4357566357 5445151515 1152655560 1162444463 2111004156 4440645045 ONSE FROM CONSOLErrrtJUMPtRDDS1t AND THE
       5640624564 6271151515 1515151515 6244446346 0611112011 0044516353 4067415164 4045626237 N RETRYrrrrrrrrRDDSF:tt0t DISK WAIT ERR/
       4457564540 4654414715 1515151515 1515151515 7777700000 6114623510 6114623510 6114623510 DONE FLAGrrrrrrrrrrrbbX  Q'R-+Q'R-+Q'R-+
       6114623510 6114623510 6114623510 6114623510 6114623510 6114623510 6114623510            Q'R-+Q'R-+Q'R-+Q'R-+Q'R-+Q'R-+Q'R-+
 1305: 0001000013 4664562023 1361200367 3414400000 0040555163 4345545441 5645576563 4045566462  %  "FTN03"Q0!W,'     MISCELLANEOUS ENTR
       5145634051 5664574057 6645625441 7135624563 5144455664 4062576564 5156456315 1515151515 IES INTO OVERLAY-RESIDENT ROUTINESrrrrrr
       1515151515 0040606257 4345636340 6360454351 4154404762 4146704051 5664625156 6351434063 rrrrr  PROCESS SPECIAL GRAFX INTRINSIC S
       6542625765 6451564540 3636361515 1515151515 4762466342 7006115260 6362114657 6662547115 UBROUTINE ...rrrrrrrGRFSBX:tJPSRtFOVRLYr
       1152655560 2211476246 6342151515 1515151515 1515151515 0040606257 4345636340 6364416264 tJUMP2tGRFSBrrrrrrrrrrrrr  PROCESS START
       4057464065 5650454144 4544405541 5156406062 5747624155 1515151515 1515151515 6355415156  OF UNHEADED MAIN PROGRAMrrrrrrrrrrSMAIN
       0611526555 6011361100 4556646271 1515151515 1152606362 1146576662 5471110054 5741444046 :tJUMPt.t ENTRYrrrrrtJPSRtFOVRLYt LOAD F
       5762646241 5640576645 6254417115 1152655560 2111635541 5156701100 4040415644 4045566445 ORTRAN OVERLAYrtJUMP1tSMAINXt   AND ENTE
       6240625765 6451564515 1515151515 1515151515 0040576564 6065644063 6542606257 4762415540 R ROUTINErrrrrrrrrrr  OUTPUT SUBPROGRAM 
       5045414445 6240435744 4515151515 1515151515 4457504462 0611526555 6011361100 4556646271 HEADER CODErrrrrrrrrDOHDR:tJUMPt.t ENTRY
       1515151515 1155444162 1456115044 6246471100 5045414445 6240435744 4540604556 4451564740 rrrrrtMDAR'NtHDRFGt HEADER CODE PENDING 
       1215151515 1141565162 1144575044 6211005657 3440624564 6562561515 1515151515 1152606362 ?rrrrtANIRtDOHDRt NO, RETURNrrrrrrrtJPSR
       1146576662 5471110045 5463453440 5457414440 4657626462 4156405766 4562544171 1515151515 tFOVRLYt ELSE, LOAD FORTRAN OVERLAYrrrrr
       1152655560 2111445750 4462701100 4040415644 4045566445 6240625765 6451564515 1515151515 tJUMP1tDOHDRXt   AND ENTER ROUTINErrrrrr
       1515151515 0040415454 5743416445 4063715542 5754631515 1515151515 4154545743 0611526555 rrrrr  ALLOCATE SYMBOLSrrrrrrrALLOC:tJUM
       6011361100 4556646271 1515151515 1155444162 1143575557 4611004156 7140655641 5454574341 Pt.t ENTRYrrrrrtMDARtCOMOFt ANY UNALLOCA
       6445444043 5755555756 4012151515 1155444162 1457145011 4455435060 1100576240 6556415454 TED COMMON ?rrrtMDAR'O'HtDMCHPt OR UNALL
       5743416445 4440416262 4171634012 1515151515 1155444162 1457114561 6664421100 5762404156 OCATED ARRAYS ?rrrrrtMDAR'OtEQVTBt OR AN
       7140636457 6241474540 4561655166 4154455643 4563401215 1155444162 1457116545 6166641100 Y STORAGE EQUIVALENCES ?rtMDAR'OtUEQVTt 
       5762406556 5356576756 4045616551 6641544556 4345634012 1515151515 1155444162 1457116560 OR UNKNOWN EQUIVALENCES ?rrrrrtMDAR'OtUP
       6462641100 5762406556 4445465156 4544406057 5156644562 6340121515 1155447057 1441145011 TRTt OR UNDEFINED POINTERS ?rrtMDXO'A'Ht
       5754574311 0041564440 5765646065 6440565764 4044625760 6045444012 1515151515 1152605463 OLOCt AND OUTPUT NOT DROPPED ?rrrrrtJPLS
       1136102211 0071456334 4057533440 6353516015 1155445162 1141545457 4311005657 3440624564 t.+2t YES, OK, SKIPrtMDIRtALLOCt NO, RET
       6562561515 1515151515 1152606362 1146576662 5471110054 5741444046 5762646241 5640576645 URNrrrrrrrtJPSRtFOVRLYt LOAD FORTRAN OVE
       6254417115 1152655560 2111415454 5743701100 4040415644 4045566445 6215151515 1515151515 RLAYrtJUMP1tALLOCXt   AND ENTERrrrrrrrrr
       1515151515 0040655654 5156534043 6562624556 6440637155 4257544046 6257554065 5641545457 rrrrr  UNLINK CURRENT SYMBOL FROM UNALLO
       4341644544 4041626241 7140435041 5156151515 1515151515 6554534455 0611526555 6011361100 CATED ARRAY CHAINrrrrrrrrULKDM:tJUMPt.t 
       4556646271 1515151515 1155444162 1146576654 5611004645 6443504043 6562624556 6440545741 ENTRYrrrrrtMDARtFOVLNt FETCH CURRENT LOA
       4445444057 6645625441 7140565736 1515151515 1155447057 1446112111 0057664562 5441714056 DED OVERLAY NO.rrrrrtMDXO'Ft1t OVERLAY N
       5736402140 1215151515 1154635162 1165545344 5511005657 3440624564 6562561515 1515151515 O. 1 ?rrrrtLSIRtULKDMt NO, RETURNrrrrrrr
       1152655560 1165545344 5570110045 5463453440 5753344045 5664456240 6257656451 5645151515 tJUMPtULKDMXt ELSE, OK, ENTER ROUTINErrr
       1515151515 1515151515 7777700000 5117674620 5117674620 5117674620 5117674620 5117674620 rrrrrrrrrrbbX  I)WF0I)WF0I)WF0I)WF0I)WF0
       5117674620 5117674620 5117674620 5117674620 5117674620                                  I)WF0I)WF0I)WF0I)WF0I)WF0
 1580: 0001100013 4664562023 1361200456 3414400000 0040655654 5156534043 6562624556 6440637155  %+ "FTN03"Q0&N,'     UNLINK CURRENT SYM
       4257544046 6257554065 4561666440 4156444041 4444406457 4055415156 4045616551 6641544556 BOL FROM UEQVT AND ADD TO MAIN EQUIVALEN
       4345406441 4254454016 4561666442 1715151515 1515151515 6554534561 0611526555 6011361100 CE TABLE (EQVTB)rrrrrrrrrULKEQ:tJUMPt.t 
       4556646271 1515151515 1155444162 1146576654 5611004645 6443504043 6562624556 6440545741 ENTRYrrrrrtMDARtFOVLNt FETCH CURRENT LOA
       4445444057 6645625441 7140565736 1515151515 1155447057 1446112111 0057664562 5441714056 DED OVERLAY NO.rrrrrtMDXO'Ft1t OVERLAY N
       5736402140 1215151515 1154635162 1165545345 6111005657 3440624564 6562561515 1515151515 O. 1 ?rrrrtLSIRtULKEQt NO, RETURNrrrrrrr
       1152655560 1165545345 6170110045 5463453440 5753344045 5664456240 6257656451 5645151515 tJUMPtULKEQXt ELSE, OK, ENTER ROUTINErrr
       1515151515 1515151515 0040606257 4345636340 4357556051 5445624043 5756646257 5440434162 rrrrrrrrrr  PROCESS COMPILER CONTROL CAR
       4440363636 1515151515 1515151515 4364544344 0611526063 6211624344 6264110062 4564656256 D ...rrrrrrrrrrCTLCD:tJPSRtRCDRTt RETURN
       4046625755 4062434440 4156444063 4564404451 6360416443 5015151515 1152606362 1146576662  FROM RCD AND SET DISPATCHrrrrtJPSRtFOVR
       5471110054 5741444046 5762646241 5640576645 6254417115 1152655560 2311436454 4344701100 LYt LOAD FORTRAN OVERLAYrtJUMP3tCTLCDXt 
       4040415644 4045566445 6215151515 1515151515 1515151515 1515151515 6245634556 4406111111   AND ENTERrrrrrrrrrrrrrrrrrrrRESEND:ttt
       0045564440 5746406245 6351444556 6440435744 5156471515 1515151515 6622574663 4033402011  END OF RESIDENT CODINGrrrrrrrV2OFS = 0t
       1111004354 4541624044 5163534057 6645625441 7140574646 6345641515 6622554170 4033403611 tt CLEAR DISK OVERLAY OFFSETrrV2MAX = .t
       1111006345 6440515651 6451415440 5541704060 6257474054 4315151515 1515151515 5146604163 tt SET INITIAL MAX PROG LCrrrrrrrrrIFPAS
       6321151515 6471604557 6564401415 1515151515 1515151515 4040404040 4040404040 4040404040 S1rrrTYPEOUT 'rrrrrrrrrrr               
       4040404040 4040400505 0505054057 6645625441 7140444164 4140050505 0505151515 1515151515         ***** OVERLAY DATA *****rrrrrrrr
       4040576645 6254417140 4040404040 4040404040 5743644154 4040404044 4543515541 5440404054   OVERLAY           OCTAL    DECIMAL   L
       5767404040 4050514750 4040404040 6364416264 4040404040 4056573615 5657364040 4040405641 OW    HIGH     START      NO.rNO.     NA
       5545404040 4040404040 5445564764 5040404054 4556476450 4040404043 5762454040 4043576245 ME        LENGTH   LENGTH    CORE   CORE
       4040404040 6345436457 6240404063 4543645762 6315151515 1515151515 4040404062 4563514445      SECTOR   SECTORSrrrrrrrrr    RESIDE
       5664404357 4445404040 1415151515 1515151515 5146564547 4164516645 4016363527 1734406471 NT CODE   'rrrrrrrrrIFNEGATIVE (.-7), TY
       6045576564 4014404040 4014404045 5463451515 5146564547 4164516645 4016363527 2717344064 PEOUT '    '  ELSErrIFNEGATIVE (.-77), T
       7160455765 6440144040 4014404045 5463451515 5146564547 4164516645 4016363527 2727173440 YPEOUT '   '  ELSErrIFNEGATIVE (.-777), 
       6471604557 6564401440 4014404045 5463451515 5146564547 4164516645 4016363527 2727271734 TYPEOUT '  '  ELSErrIFNEGATIVE (.-7777),
       4064716045 5765644014 4014404045 5644434040 4556444340 4045564443 4040455644 4315151515  TYPEOUT ' '  ENDC  ENDC  ENDC  ENDCrrrr
       6471604557 4364401636 1715151515 6471604557 6564401440 4040401415 5146564547 4164516645 TYPEOCT (.)rrrrTYPEOUT '    'rIFNEGATIVE
       4016363531 3617344064 7160455765 6440144040 4040144040 4554634515 5146564547 4164516645  (.-9.), TYPEOUT '    '  ELSErIFNEGATIVE
       4016363531 3136173440 6471604557 6564401440 4040144040 4554634515 5146564547 4164516645  (.-99.), TYPEOUT '   '  ELSErIFNEGATIVE
       4016363531 3131361734 4064716045 5765644014 4040144040 4554634515 5146564547 4164516645  (.-999.), TYPEOUT '  '  ELSErIFNEGATIVE
       4016363531 3131313617 3440647160 4557656440 1440144040 4556444340 4045564443 4040455644  (.-9999.), TYPEOUT ' '  ENDC  ENDC  END
       4340404556 4443151515 6471604544 4543401636 1715151515 6471604557 6564401440 4040404040 C  ENDCrrrTYPEDEC (.)rrrrTYPEOUT '      
       4021222040 4014151515 5146564547 4164516645 4016361021 2127352717 3440647160 4557656440  120  'rrrIFNEGATIVE (.+117-7), TYPEOUT 
       1440404040 1440404554 6345151515 5146564547 4164516645 4016361021 2127352727 1734406471 '    '  ELSErrrIFNEGATIVE (.+117-77), TY
       6045576564 4014404040 1440404554 6345151515 5146564547 4164516645 4016361021 2127352727 PEOUT '   '  ELSErrrIFNEGATIVE (.+117-77
       2717344064 7160455765 6440144040 1440404554 6345151515 5146564547 4164516645 4016361021 7), TYPEOUT '  '  ELSErrrIFNEGATIVE (.+1
       2127352727 2727173440 6471604557 6564401440 1440404556 4443404045 5644434040 4556444340 17-7777), TYPEOUT ' '  ENDC  ENDC  ENDC 
       4045564443 1515151515 6471604557 4364401636 1021212717 1515151515 4556444315 1515151515  ENDCrrrrrTYPEOCT (.+117)rrrrrENDCrrrrrr
       4556444315 7777700000 1661532576 1661532576 1661532576 1661532576 1661532576 1661532576 ENDCrbbX  (QK5+(QK5+(QK5+(QK5+(QK5+(QK5+
       1661532576 1661532576 1661532576 1661532576                                             (QK5+(QK5+(QK5+(QK5+
 1330: 0001200013 4664562023 1361200374 3414400000 0011050505 0505404064 4142544540 5746404562  %0 "FTN03"Q0!#,'    t*****  TABLE OF ER
       6257624055 4563634147 4563404005 0505050515 1515151515 1515151515 0040050505 4056576445 ROR MESSAGES  *****rrrrrrrrrrr  *** NOTE
       4005050515 0040564570 6440416641 5154414254 4540545747 5143415440 4562625762 4056655542  ***r  NEXT AVAILABLE LOGICAL ERROR NUMB
       4562403340 2230271515 1515151515 0040465441 4763151515 1515151515 3664403340 2620202020 ER = 287rrrrrrr  FLAGSrrrrrrrr.T = 60000
       0350111100 6445625551 5641544045 6262576215 3663403340 2420202020 0350111100 6364576040 !Htt TERMINAL ERRORr.S = 40000!Htt STOP 
       5765646065 6440456262 5762151515 3667403340 2220202020 0350111100 6741625651 5647405756 OUTPUT ERRORrrr.W = 20000!Htt WARNING ON
       5471151515 3647403340 2020242020 0350111100 4743504051 5660656440 5445664554 4045626257 LYrrr.G = 00400!Htt GCH INPUT LEVEL ERRO
       6215151515 3641403340 2020222020 0350111100 4142576264 4063644164 4555455664 4063434156 Rrrrr.A = 00200!Htt ABORT STATEMENT SCAN
       1515151515 1515151515 1515151515 0040164544 5164404357 5555415644 4013212023 0513406751 rrrrrrrrrrrrrrr  (EDIT COMMAND "103*" WI
       5454405541 6253405541 7051556555 4041545457 6741425445 4063646251 5647405445 5647645017 LL MARK MAXIMUM ALLOWABLE STRING LENGTH)
       1515151515 1515151515 1515151515 4562626442 0615151515 1515151515 0040424163 5143406357 rrrrrrrrrrrrrrrERRTB:rrrrrrrrr  BASIC SO
       6562434540 5156606564 4054456645 5440456262 5762631515 1515151515 4562210611 3664143647 URCE INPUT LEVEL ERRORSrrrrrrrER1:t.T'.G
       1121361515 1163646251 5647401451 5454454741 5440416445 7064404350 4162414364 4562141515 t1.rrtSTRING 'ILLEGAL ATEXT CHARACTER'rr
       4562220611 3664143647 1122361515 1163646251 5647401451 5454454741 5440416445 7064404651 ER2:t.T'.Gt2.rrtSTRING 'ILLEGAL ATEXT FI
       5445406445 6255515641 6407515756 1415151515 4562230611 3664143647 1123361515 1163646251 LE TERMINAT_ION'rrrrER3:t.T'.Gt3.rrtSTRI
       5647401460 6257434563 6357624051 3757404451 6353404562 6257621415 4562240611 3664143647 NG 'PROCESSOR I/O DISK ERROR'rER4:t.T'.G
       1124361515 1163646251 5647401443 5755605154 4164075157 5640414257 6264454440 4271405760 t4.rrtSTRING 'COMPILAT_ION ABORTED BY OP
       4562416457 6214151515 1515151515 1515151515 0040474556 4562415440 6364416445 5545566440 ERATOR'rrrrrrrrrrrrr  GENERAL STATEMENT 
       6343415640 4562625762 6315151515 1515151515 4562250611 3667143641 1125361515 1163646251 SCAN ERRORSrrrrrrrrrER5:t.W'.At5.rrtSTRI
       5647401451 5454454741 5440435756 6451566541 6407515756 4054515645 1415151515 4562212206 NG 'ILLEGAL CONTINUAT_ION LINE'rrrrER12:
       1136631436 4111212236 1515151515 1163646251 5647401451 5454454741 5440435041 6241436445 t.S'.At12.rrrrrtSTRING 'ILLEGAL CHARACTE
       6214151515 4562222106 1136631436 4111222136 1515151515 1163646251 5647401451 5454454741 R'rrrER21:t.S'.At21.rrrrrtSTRING 'ILLEGA
       5440455644 4057464063 6441644555 4556641415 4562222206 1136671122 2236151515 1163646251 L END OF STATEMENT'rER22:t.Wt22.rrrtSTRI
       5647401455 5163635156 4740435755 5541141515 4562212706 1136631436 4111212736 1515151515 NG 'MISSING COMMA'rrER17:t.S'.At17.rrrrr
       1163646251 5647401453 4571675762 4440565764 4062454357 4756517245 4414151515 4562302506 tSTRING 'KEYWORD NOT RECOGNIZED'rrrER85:
       1136631436 4111302536 1515151515 1163646251 5647401463 6441644555 4556644063 4341564041 t.S'.At85.rrrrrtSTRING 'STATEMENT SCAN A
       4257626445 4440166345 4540544163 6440456262 5762171415 4562212224 0611366314 3641112122 BORTED (SEE LAST ERROR)'rER124:t.S'.At12
       2436151515 1163646251 5647401451 5454454741 5440636441 6445554556 6414151515 4562212525 4.rrrtSTRING 'ILLEGAL STATEMENT'rrrER155
       0611366714 3641112125 2536151515 1163646251 5647401463 6441644555 4556644056 5764404154 :t.W'.At155.rrrtSTRING 'STATEMENT NOT AL
       5457674544 4051564051 5541474540 6365426062 5747624155 1415151515 4562212526 0611366714 LOWED IN IMAGE SUBPROGRAM'rrrrER156:t.W'
       3641112125 2636151515 1163646251 5647401463 6441644555 4556644041 5454576745 4440575654 .At156.rrrtSTRING 'STATEMENT ALLOWED ONL
       7140515640 5155414745 4063654260 6257476241 5514151515 1515151515 1515151515 7777700000 Y IN IMAGE SUBPROGRAM'rrrrrrrrrrrrrbbX  
       0776643650 0776643650 0776643650 0776643650 0776643650 0776643650 0776643650 0776643650 _+T.H_+T.H_+T.H_+T.H_+T.H_+T.H_+T.H_+T.H
       0776643650 0776643650                                                                   _+T.H_+T.H
 1470: 0001300013 4664562023 1361200430 3414400000 0040636441 6445554556 6440544142 4554404562  %8 "FTN03"Q0&8,'     STATEMENT LABEL ER
       6257626315 1515151515 4562260611 3667112636 1515151515 1163646251 5647401451 5454454741 RORSrrrrrrER6:t.Wt6.rrrrrtSTRING 'ILLEGA
       5440435041 6241436445 6240515640 6364416445 5545566440 5441424554 1415151515 4562270611 L CHARACTER IN STATEMENT LABEL'rrrrER7:t
       3667112736 1515151515 1163646251 5647401472 4562574063 6441644555 4556644054 4142455414 .Wt7.rrrrrtSTRING 'ZERO STATEMENT LABEL'
       1515151515 4562310611 3667113136 1515151515 1163646251 5647401444 6560545143 4164454063 rrrrrER9:t.Wt9.rrrrrtSTRING 'DUPLICATE S
       6441644555 4556644054 4142455414 1515151515 4562212306 1136671121 2336151515 1163646251 TATEMENT LABEL'rrrrrER13:t.Wt13.rrrtSTRI
       5647401463 6441644555 4556644043 4156565764 4042454062 4541435045 4414151515 4562212406 NG 'STATEMENT CANNOT BE REACHED'rrrER14:
       1136671121 2436151515 1163646251 5647401463 6441644555 4556644055 4171405657 6440504166 t.Wt14.rrrtSTRING 'STATEMENT MAY NOT HAV
       4540414063 6441644555 4556644054 4142455414 1515151515 4562272206 1136671127 2236151515 E A STATEMENT LABEL'rrrrrER72:t.Wt72.rrr
       1163646251 5647401463 6441644555 4556644054 4142455440 4160604541 6245444051 5640414046 tSTRING 'STATEMENT LABEL APPEARED IN A F
       5762554164 4062454645 6245564345 1415151515 4562302406 1136631436 4111302436 1515151515 ORMAT REFERENCE'rrrrER84:t.S'.At84.rrrrr
       1163646251 5647401451 5454454741 5440465762 5541644063 6441644555 4556644062 4546456245 tSTRING 'ILLEGAL FORMAT STATEMENT REFERE
       5643451415 4562212024 0611366314 3641112120 2436151515 1163646251 5647401451 5454454741 NCE'rER104:t.S'.At104.rrrtSTRING 'ILLEGA
       5440636441 6445554556 6440544142 4554141515 1515151515 1515151515 0040474556 4562415440 L STATEMENT LABEL'rrrrrrrrrrrr  GENERAL 
       6371554257 5451434056 4155454045 6262576263 1515151515 1515151515 4562212106 1136631436 SYMBOLIC NAME ERRORSrrrrrrrrrrER11:t.S'.
       4111212136 1515151515 1163646251 5647401451 5454454741 5440733413 7413347540 6563414745 At11.rrrrrtSTRING 'ILLEGAL $,"#",@ USAGE
       4051564063 7155425754 5143405641 5545406062 4546517014 1515151515 4562212006 1136631436  IN SYMBOLIC NAME PREFIX'rrrrrER10:t.S'.
       4111212036 1515151515 1163646251 5647401463 7155425754 5143405641 5545406457 5740545756 At10.rrrrrtSTRING 'SYMBOLIC NAME TOO LON
       4714151515 1515151515 1515151515 0040474556 4562415440 6245545743 4057656460 6564404562 G'rrrrrrrrrrrrr  GENERAL RELOC OUTPUT ER
       6257626315 1515151515 4562252306 1136631125 2336151515 1163646251 5647401457 4252454364 RORSrrrrrrER53:t.St53.rrrtSTRING 'OBJECT
       4060625747 6241554064 5757405457 5647141515 1515151515 1515151515 0040474556 4562415440  PROGRAM TOO LONG'rrrrrrrrrrrr  GENERAL 
       6365426062 5747624155 4045626257 6263151515 1515151515 4562252406 1136671125 2436151515 SUBPROGRAM ERRORSrrrrrrrrER54:t.Wt54.rrr
       1163646251 5647401451 5454454741 5440455644 4057464060 6257476241 5540353540 4341545440 tSTRING 'ILLEGAL END OF PROGRAM -- CALL 
       4570516440 6365606054 5145441415 4562222725 0611366711 2227253615 1163646251 5647401451 EXIT SUPPLIED'rER275:t.Wt275.rtSTRING 'I
       5454454741 5440455644 4057464063 6542606257 4762415540 3535406245 6465625640 6365606054 LLEGAL END OF SUBPROGRAM -- RETURN SUPPL
       5145441415 4562252606 1136671125 2636151515 1163646251 5647401445 5644406364 4164455545 IED'rER56:t.Wt56.rrrtSTRING 'END STATEME
       5664405551 6363515647 1415151515 4562252706 1136641125 2736151515 1163646251 5647401456 NT MISSING'rrrrER57:t.Tt57.rrrtSTRING 'N
       5740636441 6445554556 6463405156 4060625747 6241551415 4562302206 1136671130 2236151515 O STATEMENTS IN PROGRAM'rER82:t.Wt82.rrr
       1163646251 5647401460 6257474050 4163406556 4445465156 4544404754 5742415440 5762405451 tSTRING 'PROG HAS UNDEFINED GLOBAL OR LI
       5653414745 4016634545 4055416017 1415151515 4562302306 1136671130 2336151515 1163646251 NKAGE (SEE MAP)'rrrrER83:t.Wt83.rrrtSTRI
       5647403760 6257474050 4163406556 6245461444 4056575635 4357555557 5640637155 4257546340 NG /PROG HAS UNREF'D NON-COMMON SYMBOLS 
       1663454540 5541601737 1515151515 4562312306 1136671131 2336151515 1163646251 5647403760 (SEE MAP)/rrrrrER93:t.Wt93.rrrtSTRING /P
       6257476241 5540504163 4065566245 4614444063 6441644555 4556644054 4142455463 4016634545 ROGRAM HAS UNREF'D STATEMENT LABELS (SEE
       4055416017 3715151515 4562312406 1136631131 2436151515 1163646251 5647401460 6257474050  MAP)/rrrrER94:t.St94.rrrtSTRING 'PROG H
       4163406556 4445465156 4544406364 4164455545 5664405441 4245546340 1663454540 5541601714 AS UNDEFINED STATEMENT LABELS (SEE MAP)'
       1515151515 1515151515 1515151515 7777700000 0044521645 0044521645 0044521645 0044521645 rrrrrrrrrrrrrrrbbX   DJ(E DJ(E DJ(E DJ(E
       0044521645 0044521645 0044521645 0044521645 0044521645 0044521645                        DJ(E DJ(E DJ(E DJ(E DJ(E DJ(E
 1485: 0001400013 4664562023 1361200433 3414400000 0040636542 6062574762 4155405045 4144456240  %  "FTN03"Q0&=,'     SUBPROGRAM HEADER 
       6364416445 5545566440 4562625762 6315151515 1515151515 4562262106 1136631436 4111262136 STATEMENT ERRORSrrrrrrrrrER61:t.S'.At61.
       1515151515 1163646251 5647401463 6542606257 4762415540 5641554540 5551636351 5647141515 rrrrrtSTRING 'SUBPROGRAM NAME MISSING'rr
       4562262306 1136631436 4111262336 1515151515 1163646251 5647401463 6542606257 4762415540 ER63:t.S'.At63.rrrrrtSTRING 'SUBPROGRAM 
       5641554540 6062456651 5765635471 4063604543 5146514544 1415151515 4562262206 1136671126 NAME PREVIOUSLY SPECIFIED'rrrrER62:t.Wt6
       2236151515 1163646251 5647401463 6542606257 4740624546 4562455643 4544406751 6450405156 2.rrrtSTRING 'SUBPROG REFERENCED WITH IN
       4357626245 4364405657 3640574640 4162476314 1515151515 4562312206 1136671131 2236151515 CORRECT NO. OF ARGS'rrrrrER92:t.Wt92.rrr
       1163646251 5647403746 6556436451 5756406741 6340624546 1444406751 6450405156 4357626245 tSTRING /FUNCTION WAS REF'D WITH INCORRE
       4364404441 6441406471 6045371515 4562312506 1136671131 2536151515 1163646251 5647401446 CT DATA TYPE/rrER95:t.Wt95.rrrtSTRING 'F
       6556436451 5756404162 4765554556 6440545163 6440555163 6351564714 1515151515 4562312606 UNCTION ARGUMENT LIST MISSING'rrrrrER96:
       1136671131 2636151515 1163646251 5647401444 6555557140 4162474060 6245665157 6563547140 t.Wt96.rrrtSTRING 'DUMMY ARG PREVIOUSLY 
       4445465156 4544405762 4062454645 6245564345 4414151515 4562212023 0611366711 2120233615 DEFINED OR REFERENCED'rrrER103:t.Wt103.r
       1163646251 5647401446 6556436451 5756404556 6462714050 4163406762 5756474054 4556476450 tSTRING 'FUNCTION ENTRY HAS WRONG LENGTH
       4044416441 4064716045 1415151515 4562212627 0611366711 2126273615 1163646251 5647401445  DATA TYPE'rrrrER167:t.Wt167.rtSTRING 'E
       5664627140 5657644066 4154514440 6751645051 5640624156 4745405746 4044574054 5757601415 NTRY NOT VALID WITHIN RANGE OF DO LOOP'r
       1515151515 1515151515 0040425457 4353404441 6441406365 4260625747 6241554045 6262576263 rrrrrrrrrr  BLOCK DATA SUBPROGRAM ERRORS
       1515151515 1515151515 4562252006 1136631436 4111252036 1515151515 1163646251 5647401451 rrrrrrrrrrER50:t.S'.At50.rrrrrtSTRING 'I
       5454454741 5440636441 6445554556 6440515640 4254574353 4044416441 4063654260 6257476241 LLEGAL STATEMENT IN BLOCK DATA SUBPROGRA
       5514151515 1515151515 1515151515 0040515560 5451435164 4063644164 4555455664 4045626257 M'rrrrrrrrrrrrr  IMPLICIT STATEMENT ERRO
       6263151515 1515151515 4562213106 1136631436 4111213136 1515151515 1163646251 5647401451 RSrrrrrrrrER19:t.S'.At19.rrrrrtSTRING 'I
       5454454741 5440444164 4140647160 4540534571 6757624440 5156405155 6054514351 6440636455 LLEGAL DATA TYPE KEYWORD IN IMPLICIT STM
       5664141515 4562222006 1136671122 2036151515 1163646251 5647401462 4156474540 5746405155 NT'rrER20:t.Wt20.rrrtSTRING 'RANGE OF IM
       6054514351 6440435041 6263405657 6440515640 4154504142 4564514340 5762444562 1415151515 PLICIT CHARS NOT IN ALHABETIC ORDER'rrrr
       1515151515 1515151515 0040545164 4562415440 6364416445 5545566440 4562625762 6315151515 rrrrrrrrrr  LITERAL STATEMENT ERRORSrrrr
       1515151515 4562212020 0611366711 2120203615 1163646251 5647401454 5164456241 5440565764 rrrrrER100:t.Wt100.rtSTRING 'LITERAL NOT
       4044454651 5645443440 4341565657 6440424540 4445544564 4544141515 4562212021 0611366714  DEFINED, CANNOT BE DELETED'rrER101:t.W'
       3641112120 2136151515 1163646251 5647401463 5441635040 6245616551 6245444064 5740136445 .At101.rrrtSTRING 'SLASH REQUIRED TO "TE
       6255515641 6445134054 5164456241 5440636462 5156471415 1515151515 1515151515 0040647160 RMINATE" LITERAL STRING'rrrrrrrrrrr  TYP
       4540636441 6445554556 6440456262 5762631515 1515151515 4562222306 1136631436 4111222336 E STATEMENT ERRORSrrrrrrrER23:t.S'.At23.
       1515151515 1163646251 5647403751 5454454741 5440444164 4140647160 4540534571 6757624440 rrrrrtSTRING /ILLEGAL DATA TYPE KEYWORD 
       5156401464 7160451440 6364416445 5545566437 1515151515 4562222606 1136671122 2636151515 IN 'TYPE' STATEMENT/rrrrrER26:t.Wt26.rrr
       1163646251 5647401444 4164414064 7160454055 4171405657 6440424540 6245354445 4651564544 tSTRING 'DATA TYPE MAY NOT BE RE-DEFINED
       1415151515 4562222726 0611366711 2227263615 1163646251 5647401460 6245435163 5157564063 'rrrrER276:t.Wt276.rtSTRING 'PRECISION S
       6045435146 5143410764 5157564051 4756576245 4414151515 4562222727 0611366711 2227273615 PECIFICA_TION IGNORED'rrrER277:t.Wt277.r
       1163646251 5647403744 4164414044 4543544162 4107645157 5640565764 4041545457 6745444051 tSTRING /DATA DECLARA_TION NOT ALLOWED I
       5640146471 6045144063 6455566437 1515151515 1515151515 1515151515 7777700000 0554326175 N 'TYPE' STMNT/rrrrrrrrrrrrrrrbbX  *L;Q@
       0554326175 0554326175 0554326175 0554326175 0554326175 0554326175 0554326175 0554326175 *L;Q@*L;Q@*L;Q@*L;Q@*L;Q@*L;Q@*L;Q@*L;Q@
       0554326175                                                                              *L;Q@
 1505: 0001500013 4664562023 1361200437 3414400000 0040457064 4562564154 4063644164 4555455664  %H "FTN03"Q0&/,'     EXTERNAL STATEMENT
       4057624060 6245465170 4045626257 6263151515 1515151515 4562222506 1136671122 2536151515  OR PREFIX ERRORSrrrrrrrrER25:t.Wt25.rrr
       1163646251 5647401463 7155425754 5143405641 5545405163 4056576440 4570644562 5641541415 tSTRING 'SYMBOLIC NAME IS NOT EXTERNAL'r
       4562222406 1136671122 2436151515 1163646251 5647401451 5643576262 4543644045 7064456256 ER24:t.Wt24.rrrtSTRING 'INCORRECT EXTERN
       4154406062 4546517014 1515151515 4562222531 0611366311 2225313615 1163646251 5647401445 AL PREFIX'rrrrrER259:t.St259.rtSTRING 'E
       7064456256 4154354561 6551664154 4556074345 4043575646 5451436440 5762406245 4465564441 XTERNAL-EQUIVALEN_CE CONFLICT OR REDUNDA
       5643711415 1515151515 1515151515 0040475457 4241544057 6240545156 5341474540 6364416445 NCY'rrrrrrrrrrr  GLOBAL OR LINKAGE STATE
       5545566440 4562625762 6315151515 1515151515 4562312706 1136671131 2736151515 1163646251 MENT ERRORSrrrrrrrrrER97:t.Wt97.rrrtSTRI
       5647401445 7064456256 4154406371 5542575440 4341565657 6440424540 4754574241 5440576240 NG 'EXTERNAL SYMBOL CANNOT BE GLOBAL OR 
       5451565341 4745141515 4562313006 1136671131 3036151515 1163646251 5647401463 7155425754 LINKAGE'rrER98:t.Wt98.rrrtSTRING 'SYMBOL
       4041546245 4144714044 4546515645 4440416340 4754574241 5440576240 5451565341 4745141515  ALREADY DEFINED AS GLOBAL OR LINKAGE'rr
       1515151515 1515151515 0040445155 4556635157 5640636441 6445554556 6440576240 6365426343 rrrrrrrrrr  DIMENSION STATEMENT OR SUBSC
       6251606440 4562625762 6315151515 1515151515 4562223106 1136631122 3136151515 1163646251 RIPT ERRORSrrrrrrrrrER29:t.St29.rrrtSTRI
       5647401463 7155425754 5143405641 5545405541 7140565764 4042454041 5640416262 4171141515 NG 'SYMBOLIC NAME MAY NOT BE AN ARRAY'rr
       4562232006 1136671123 2036151515 1163646251 5647401441 6262417140 6062456651 5765635471 ER30:t.Wt30.rrrtSTRING 'ARRAY PREVIOUSLY
       4044515545 5663515756 0745441415 4562232106 1136631123 2136151515 1163646251 5647401463  DIMENSION_ED'rER31:t.St31.rrrtSTRING 'S
       6542634362 5160644064 5757405441 6247451415 4562232506 1136631123 2536151515 1163646251 UBSCRIPT TOO LARGE'rER35:t.St35.rrrtSTRI
       5647401451 5454454741 5440636542 6343625160 6414151515 4562232206 1136671123 2236151515 NG 'ILLEGAL SUBSCRIPT'rrrER32:t.Wt32.rrr
       1163646251 5647401464 5757405541 5671406365 4263436251 6064631415 4562232306 1136631123 tSTRING 'TOO MANY SUBSCRIPTS'rER33:t.St3
       2336151515 1163646251 5647401464 5764415440 4162624171 4063517245 4064575740 5441624745 3.rrrtSTRING 'TOTAL ARRAY SIZE TOO LARGE
       1415151515 4562242706 1136631124 2736151515 1163646251 5647401441 4452656364 4142544540 'rrrrER47:t.St47.rrrtSTRING 'ADJUSTABLE 
       4162624171 4051545445 4741544051 5640435755 5557561415 4562243106 1136671124 3136151515 ARRAY ILLEGAL IN COMMON'rER49:t.Wt49.rrr
       1163646251 5647401441 4452656364 4142544540 4451554556 6351575640 6350576554 4440424540 tSTRING 'ADJUSTABLE DIMENSION SHOULD BE 
       5156644547 4562406471 6045141515 4562252206 1136631125 2236151515 1163646251 5647401441 INTEGER TYPE'rrER52:t.St52.rrrtSTRING 'A
       4452656364 4142544540 4162624171 4055417140 5657644042 4540415454 5743416445 4440545743 DJUSTABLE ARRAY MAY NOT BE ALLOCATED LOC
       4154547114 1515151515 4562253106 1136671125 3136151515 1163646251 5647401441 6262417140 ALLY'rrrrrER59:t.Wt59.rrrtSTRING 'ARRAY 
       4445435441 6241645762 4055516363 5156471415 4562262006 1136631126 2036151515 1163646251 DECLARATOR MISSING'rER60:t.St60.rrrtSTRI
       5647401451 5454454741 5440637155 4257544064 7160454046 5762404144 5265636441 4254454044 NG 'ILLEGAL SYMBOL TYPE FOR ADJUSTABLE D
       5155455663 5157561415 4562212324 0611366711 2123243615 1163646251 5647401463 6542634362 IMENSION'rER134:t.Wt134.rtSTRING 'SUBSCR
       5160644057 6564405746 4062415647 4514151515 1515151515 1515151515 0040456165 5166415445 IPT OUT OF RANGE'rrrrrrrrrrrrr  EQUIVALE
       5643454063 6441644555 4556644045 6262576263 1515151515 1515151515 4562222427 0611366711 NCE STATEMENT ERRORSrrrrrrrrrrER247:t.Wt
       2224273615 1163646251 5647401445 6165516640 4762576560 4063505765 5444404357 5664415156 247.rtSTRING 'EQUIV GROUP SHOULD CONTAIN
       4041644054 4541636440 2240455445 5545566463 1415151515 4562222430 0611366311 2224303615  AT LEAST 2 ELEMENTS'rrrrER248:t.St248.r
       1163646251 5647403714 7514406062 4546517040 5154544547 4154405156 4045616551 6641544556 tSTRING /'@' PREFIX ILLEGAL IN EQUIVALEN
       0743454047 6257656037 1515151515 4562222431 0611366311 2224313615 1163646251 5647401463 _CE GROUP/rrrrrER249:t.St249.rtSTRING 'S
       6542606257 4762415540 5762404665 5643645157 5640554171 4056576440 4245404561 6551664154 UBPROGRAM OR FUNCTION MAY NOT BE EQUIVAL
       4556074345 4414151515 7777700000 5372065676 5372065676 5372065676 5372065676 5372065676 EN_CED'rrrbbX  KZ:N+KZ:N+KZ:N+KZ:N+KZ:N+
       5372065676 5372065676 5372065676 5372065676 5372065676                                  KZ:N+KZ:N+KZ:N+KZ:N+KZ:N+
 1630: 0001600013 4664562023 1361200470 3414400000 4562222520 0611366311 2225203615 1163646251  %P "FTN03"Q0&X,'   ER250:t.St250.rtSTRI
       5647401463 7155425754 4056576440 4156404162 6241714035 3540554171 4056576440 4245406365 NG 'SYMBOL NOT AN ARRAY -- MAY NOT BE SU
       4263436251 6007644544 1415151515 4562222521 0611366311 2225213615 1163646251 5647401451 BSCRIP_TED'rrrrER251:t.St251.rtSTRING 'I
       5454454741 5440605751 5664456240 3535405565 5464514054 4566455463 4056576440 6045625551 LLEGAL POINTER -- MULTI LEVELS NOT PERMI
       6464454414 1515151515 4562222522 0611366311 2225223615 1163646251 5647401460 5751566445 TTED'rrrrrER252:t.St252.rtSTRING 'POINTE
       6240456165 5166415445 5607434540 4357564654 5143641415 4562222523 0611366311 2225233615 R EQUIVALEN_CE CONFLICT'rER253:t.St253.r
       1163646251 5647403760 5751566445 6240664162 5141425445 4043415614 6440424540 4561661444 tSTRING /POINTER VARIABLE CAN'T BE EQV'D
       4067516450 4063654263 4362516064 3715151515 4562222524 0611366311 2225243615 1163646251  WITH SUBSCRIPT/rrrrER254:t.St254.rtSTRI
       5647401445 6165516641 5445560743 4540516340 6245446556 4441566440 5762404357 5646545143 NG 'EQUIVALEN_CE IS REDUNDANT OR CONFLIC
       6407515647 1415151515 4562222525 0611366311 2225253615 1163646251 5647401451 5454454741 T_ING'rrrrER255:t.St255.rtSTRING 'ILLEGA
       5440574364 4154404144 4462456363 4051564045 6165516641 5445560743 4514151515 4562222625 L OCTAL ADDRESS IN EQUIVALEN_CE'rrrER265
       0611366311 2226253615 1163646251 5647403741 4452404162 6241714043 4156146440 4245404561 :t.St265.rtSTRING /ADJ ARRAY CAN'T BE EQ
       6614444067 5164504063 6542634362 5160644057 4646634564 3715151515 4562222626 0611366711 V'D WITH SUBSCRIPT OFFSET/rrrrER266:t.Wt
       2226263615 1163646251 5647401447 5457424154 3545706445 6256415440 4561655166 4154455607 266.rtSTRING 'GLOBAL-EXTERNAL EQUIVALEN_
       4345404357 5646545143 6414151515 4562222627 0611366311 2226273615 1163646251 5647401451 CE CONFLICT'rrrER267:t.St267.rtSTRING 'I
       5666415451 4440545767 4562404257 6556444046 5762404561 6551664154 4556074345 4042545743 NVALID LOWER BOUND FOR EQUIVALEN_CE BLOC
       5314151515 4562222630 0611366311 2226303615 1163646251 5647401445 6165516641 5445564345 K'rrrER268:t.St268.rtSTRING 'EQUIVALENCE
       4042545743 5340645757 4054416247 4514151515 4562222631 0611366311 2226313615 1163646251  BLOCK TOO LARGE'rrrER269:t.St269.rtSTRI
       5647403743 5755554042 5453404154 5457434164 4544403535 4043415614 6440457064 4556444067 NG /COMM BLK ALLOCATED -- CAN'T EXTEND W
       5164504045 6165516637 1515151515 4562222720 0611366711 2227203615 1163646251 5647401445 ITH EQUIV/rrrrrER270:t.Wt270.rtSTRING 'E
       6165516641 5407455643 4540554171 4057664562 6762516445 4060624566 4044454651 5645444063 QUIVAL_ENCE MAY OVERWRITE PREV DEFINED S
       6457624147 4514151515 4562222721 0611366311 2227213615 1163646251 5647403745 6165516641 TORAGE'rrrER271:t.St271.rtSTRING /EQUIVA
       5445560743 4540434156 1464404570 6445564440 4357555557 5640424554 5767405164 6340424163 LEN_CE CAN'T EXTEND COMMON BELOW ITS BAS
       4537151515 4562222723 0611366311 2227233615 1163646251 5647401460 6245665157 6563404561 E/rrrER273:t.St273.rtSTRING 'PREVIOUS EQ
       6551664045 5445554556 6440504144 4064575740 5541567140 6365426343 6251606463 1415151515 UIV ELEMENT HAD TOO MANY SUBSCRIPTS'rrrr
       4562222724 0611366311 2227243615 1163646251 5647401445 6165516641 5445560743 4540455445 ER274:t.St274.rtSTRING 'EQUIVALEN_CE ELE
       5545566440 5041634063 6542634362 5160644057 6564405746 4062415647 4514151515 1515151515 MENT HAS SUBSCRIPT OUT OF RANGE'rrrrrrrr
       1515151515 0040435755 5557564063 6441644555 4556644045 6262576263 1515151515 1515151515 rrrrr  COMMON STATEMENT ERRORSrrrrrrrrrr
       4562233106 1136631436 4111233136 1515151515 1163646251 5647401443 5755555756 4042545743 ER39:t.S'.At39.rrrrrtSTRING 'COMMON BLOC
       5340564155 4540645757 4054575647 1415151515 4562242006 1136631436 4111242036 1515151515 K NAME TOO LONG'rrrrER40:t.S'.At40.rrrrr
       1163646251 5647401443 5755555756 4042545743 5340415462 4541447140 4154545743 4164454414 tSTRING 'COMMON BLOCK ALREADY ALLOCATED'
       1515151515 4562213006 1136631121 3036151515 1163646251 5647401451 5454454741 5440637155 rrrrrER18:t.St18.rrrtSTRING 'ILLEGAL SYM
       4257544064 7160454046 5762404357 5555575640 4154545743 4164515756 1415151515 4562242406 BOL TYPE FOR COMMON ALLOCATION'rrrrER44:
       1136631124 2436151515 1163646251 5647401463 7155425754 4041546245 4144714044 4546515645 t.St44.rrrtSTRING 'SYMBOL ALREADY DEFINE
       4440515640 4357555557 5614151515 4562242306 1136631124 2336151515 1163646251 5647401463 D IN COMMON'rrrER43:t.St43.rrrtSTRING 'S
       7155425754 4044454651 5645444057 6240624546 4562455643 4544405657 6440515640 4357555557 YMBOL DEFINED OR REFERENCED NOT IN COMMO
       5614151515 4562252106 1136631125 2136151515 1163646251 5647401443 5755555756 4042545743 N'rrrER51:t.St51.rrrtSTRING 'COMMON BLOC
       5340645757 4054416247 4514151515 4562222530 0611366311 2225303615 1163646251 5647401443 K TOO LARGE'rrrER258:t.St258.rtSTRING 'C
       5755555756 3545616551 6641544556 0743454043 5756465451 4364405762 4062454465 5644415643 OMMON-EQUIVALEN_CE CONFLICT OR REDUNDANC
       7114151515 1515151515 1515151515 7777700000 7621321057 7621321057 7621321057 7621321057 Y'rrrrrrrrrrrrrbbX  +1;+O+1;+O+1;+O+1;+O
       7621321057 7621321057 7621321057 7621321057 7621321057 7621321057                       +1;+O+1;+O+1;+O+1;+O+1;+O+1;+O
 1790: 0001700013 4664562023 1361200530 3414400000 0040444164 4140435756 6364415664 4045626257  %X "FTN03"Q0*8,'     DATA CONSTANT ERRO
       6263151515 1515151515 4562223006 1136631436 4111223036 1515151515 1163646251 5647401443 RSrrrrrrrrER28:t.S'.At28.rrrrrtSTRING 'C
       5756636441 5664406457 5740545756 4734404570 4345454463 4063517245 4057464044 5147516440 ONSTANT TOO LONG, EXCEEDS SIZE OF DIGIT 
       4265464614 1515151515 4562232606 1136671123 2636151515 1163646251 5647401464 5757405541 BUFF'rrrrrER36:t.Wt36.rrrtSTRING 'TOO MA
       5671404451 4751646340 5156405743 6441544043 5756636441 5664141515 4562232706 1136671123 NY DIGITS IN OCTAL CONSTANT'rrER37:t.Wt3
       2736151515 1163646251 5647401451 5454454741 5440574364 4154404451 4751641415 4562233006 7.rrrtSTRING 'ILLEGAL OCTAL DIGIT'rER38:
       1136671123 3036151515 1163646251 5647401451 5664454745 6240664154 6545406457 5740544162 t.Wt38.rrrtSTRING 'INTEGER VALUE TOO LAR
       4745141515 4562212025 0611366314 3641112120 2536151515 1163646251 5647401451 5454454741 GE'rrER105:t.S'.At105.rrrtSTRING 'ILLEGA
       5440435765 5664405156 4050575454 4562516450 3741634351 5140435756 6364415664 1415151515 L COUNT IN HOLLERITH/ASCII CONSTANT'rrrr
       4562212325 0611366711 2123253615 1163646251 5647401451 5454454741 5440754043 5756664562 ER135:t.Wt135.rtSTRING 'ILLEGAL @ CONVER
       6351575640 5156404163 4351514043 5756636441 5664141515 4562303106 1136671130 3136151515 SION IN ASCII CONSTANT'rrER89:t.Wt89.rrr
       1163646251 5647401446 6241436451 5756406641 5465454064 5757405441 6247451415 4562312006 tSTRING 'FRACTION VALUE TOO LARGE'rER90:
       1136671131 2036151515 1163646251 5647401462 4541544066 4154654540 6457574054 4162474514 t.Wt90.rrrtSTRING 'REAL VALUE TOO LARGE'
       1515151515 4562312106 1136671131 2136151515 1163646251 5647401462 4541544066 4154654540 rrrrrER91:t.Wt91.rrrtSTRING 'REAL VALUE 
       6457574063 5541545414 1515151515 4562212031 0611366711 2120313615 1163646251 5647401464 TOO SMALL'rrrrrER109:t.Wt109.rtSTRING 'T
       5757405541 5671404451 4751646334 4060624543 5163515756 4054576364 1415151515 4562212121 OO MANY DIGITS, PRECISION LOST'rrrrER111
       0611366314 3641112121 2136151515 1163646251 5647401451 5454454741 5440414444 6245636340 :t.S'.At111.rrrtSTRING 'ILLEGAL ADDRESS 
       4357566364 4156641415 4562212231 0611366314 3641112122 3136151515 1163646251 5647401451 CONSTANT'rER129:t.S'.At129.rrrtSTRING 'I
       5454454741 5440465762 5540574640 4357556054 4570404357 5663644156 6414151515 1515151515 LLEGAL FORM OF COMPLEX CONSTANT'rrrrrrrr
       1515151515 0040444164 4140636441 6445554556 6440456262 5762631515 1515151515 4562212722 rrrrr  DATA STATEMENT ERRORSrrrrrrrER172
       0611366314 3641112127 2236151515 1163646251 5647401451 5454454741 5440636441 6445554556 :t.S'.At172.rrrtSTRING 'ILLEGAL STATEMEN
       6440515640 4441644122 4437444164 4123444044 4546515651 6451575614 1515151515 4562212723 T IN DATA2D/DATA3D DEFINITION'rrrrrER173
       0611366314 3641112127 2336151515 1163646251 5647401445 7064456256 4154406371 5542575440 :t.S'.At173.rrrtSTRING 'EXTERNAL SYMBOL 
       5541714056 5764404245 4044416441 4051565164 5141540751 7245441415 4562212724 0611366314 MAY NOT BE DATA INITIAL_IZED'rER174:t.S'
       3641112127 2436151515 1163646251 5647403760 5751566445 6240576240 4465555571 4041624740 .At174.rrrtSTRING /POINTER OR DUMMY ARG 
       4341561464 4042454044 4164414051 5651645141 5407517245 4437151515 4562212725 0611366314 CAN'T BE DATA INITIAL_IZED/rrrER175:t.S'
       3641112127 2536151515 1163646251 5647403746 6556436451 5756405762 4063654260 6257474056 .At175.rrrtSTRING /FUNCTION OR SUBPROG N
       4155454043 4156146440 4160604541 6240515640 4441644137 1515151515 4562212726 0611366314 AME CAN'T APPEAR IN DATA/rrrrrER176:t.S'
       3641112127 2636151515 1163646251 5647403760 5751566445 6240576240 4465555571 4041624740 .At176.rrrtSTRING /POINTER OR DUMMY ARG 
       5541714056 5764404245 4062454614 4440515640 4441644137 1515151515 4562212727 0611366314 MAY NOT BE REF'D IN DATA/rrrrrER177:t.S'
       3641112127 2736151515 1163646251 5647403757 6645625441 7140457064 4562564154 4063715542 .At177.rrrtSTRING /OVERLAY EXTERNAL SYMB
       5754404341 5614644042 4540624546 1444405156 4044416441 3715151515 4562212730 0611366314 OL CAN'T BE REF'D IN DATA/rrrrER178:t.S'
       3641112127 3036151515 1163646251 5647401465 5644454640 5762404570 6440624546 4051545445 .At178.rrrtSTRING 'UNDEF OR EXT REF ILLE
       4741544051 5640435755 5557564057 6240414263 4044416441 1415151515 4562212731 0611366314 GAL IN COMMON OR ABS DATA'rrrrER179:t.S'
       3641112127 3136151515 1163646251 5647403744 4546545743 4057464065 5644454640 6371554051 .At179.rrrtSTRING /DEFLOC OF UNDEF SYM I
       5454454740 5156406556 4154545743 1444404162 6241713715 4562213020 0611366714 3641112130 LLEG IN UNALLOC'D ARRAY/rER180:t.W'.At18
       2036151515 1163646251 5647407614 4445465457 4314406371 5542575440 5551636351 5647405156 0.rrrtSTRING +'DEFLOC' SYMBOL MISSING IN
       4044416441 2244374441 6441234440 4445467615 4562213021 0611366714 3641112130 2136151515  DATA2D/DATA3D DEF+rER181:t.W'.At181.rrr
       1163646251 5647407651 5454454740 1445564464 1440435765 5664405156 4044416441 2244374441 tSTRING +ILLEG 'ENDT' COUNT IN DATA2D/DA
       6441234440 4445465156 5164515756 7615151515 4562213022 0611366314 3641112130 2236151515 TA3D DEFINITION+rrrrER182:t.S'.At182.rrr
       1163646251 5647401441 6262417140 6457574063 5541545440 4657624044 4164412244 3744416441 tSTRING 'ARRAY TOO SMALL FOR DATA2D/DATA
       2344404445 4651565164 5157561415 4562213023 0611366714 3641112130 2336151515 1163646251 3D DEFINITION'rER183:t.W'.At183.rrrtSTRI
       5647401464 5757405541 5671404162 4765554556 6463405156 4044416441 2244374441 6441234440 NG 'TOO MANY ARGUMENTS IN DATA2D/DATA3D 
       4445465156 5164515756 1415151515 7777700000 2742374427 2742374427 2742374427 2742374427 DEFINITION'rrrrbbX  7B/D77B/D77B/D77B/D7
       2742374427 2742374427 2742374427 2742374427 2742374427 2742374427                       7B/D77B/D77B/D77B/D77B/D77B/D7
 1225: 0002000013 4664562023 1361200347 3414400000 4562213024 0611366314 3641112130 2436151515  c  "FTN03"Q0!G,'   ER184:t.S'.At184.rrr
       1163646251 5647401451 5454454741 5440444164 4140664154 6545403535 4055656364 4042454041 tSTRING 'ILLEGAL DATA VALUE -- MUST BE A
       4043575663 6441566414 1515151515 4562213025 0611366314 3641112130 2536151515 1163646251  CONSTANT'rrrrrER185:t.S'.At185.rrrtSTRI
       5647407651 5454454740 1445564444 4164411440 6364555664 4035354056 5764405156 4044416441 NG +ILLEG 'ENDDATA' STMNT -- NOT IN DATA
       2244374441 6441234476 1515151515 4562222421 0611366314 3641112224 2136151515 1163646251 2D/DATA3D+rrrrrER241:t.S'.At241.rrrtSTRI
       5647401441 4452656364 4142544540 4162624171 4055417140 5657644042 4540444164 4140515651 NG 'ADJUSTABLE ARRAY MAY NOT BE DATA INI
       6451415407 5172454414 1515151515 4562222422 0611366314 3641112224 2236151515 1163646251 TIAL_IZED'rrrrrER242:t.S'.At242.rrrtSTRI
       5647401463 6542634362 5160646340 5565636440 4245404357 5663644156 6414151515 4562222620 NG 'SUBSCRIPTS MUST BE CONSTANT'rrrER260
       0611366314 3641112226 2036151515 1163646251 5647401451 5454454741 5440435756 6364415664 :t.S'.At260.rrrtSTRING 'ILLEGAL CONSTANT
       4051564044 4164414054 5163641415 4562222621 0611366314 3641112226 2136151515 1163646251  IN DATA LIST'rER261:t.S'.At261.rrrtSTRI
       5647401451 5454454741 5440136245 6045416413 4043576556 6440515640 4441644140 5451636414 NG 'ILLEGAL "REPEAT" COUNT IN DATA LIST'
       1515151515 4562222622 0611366711 2226223615 1163646251 5647401444 4164414043 5756636441 rrrrrER262:t.Wt262.rtSTRING 'DATA CONSTA
       5664405451 6364406457 5740635057 6264141515 4562222623 0611366711 2226233615 1163646251 NT LIST TOO SHORT'rrER263:t.Wt263.rtSTRI
       5647401444 4164414043 5756636441 5664405451 6364406457 5740545756 4714151515 4562222730 NG 'DATA CONSTANT LIST TOO LONG'rrrER278
       0611366314 3641112227 3036151515 1163646251 5647401443 5756646257 5440664162 5141425445 :t.S'.At278.rrrtSTRING 'CONTROL VARIABLE
       4044514440 5657644041 6060454162 4051564044 4164414054 5163641415 4562222731 0611366314  DID NOT APPEAR IN DATA LIST'rER279:t.S'
       3641112227 3136151515 1163646251 5647401451 5560545145 4440445740 4554455545 5664405565 .At279.rrrtSTRING 'IMPLIED DO ELEMENT MU
       6364404245 4063654263 4362075160 6445441411 1515151515 4562223020 0611366314 3641112230 ST BE SUBSCR_IPTED'trrrrrER280:t.S'.At28
       2036151515 1163646251 5647401464 5757404645 6740664162 5141425445 4063654263 4362516064 0.rrrtSTRING 'TOO FEW VARIABLE SUBSCRIPT
       6340675164 5051564051 5560545145 4440445714 1515151515 4562223021 0611366314 3641112230 S WITHIN IMPLIED DO'rrrrrER281:t.S'.At28
       2136151515 1163646251 5647401451 5454454741 5440624156 4745405746 4066415465 4563404657 1.rrrtSTRING 'ILLEGAL RANGE OF VALUES FO
       6240515560 5451454440 4457406041 6241556314 1515151515 4562223022 0611366314 3641112230 R IMPLIED DO PARAMS'rrrrrER282:t.S'.At28
       2236151515 1163646251 5647401451 5454454741 5440465762 5540574640 6641625141 4254454067 2.rrrtSTRING 'ILLEGAL FORM OF VARIABLE W
       5164505156 4051556054 5145444044 5714151515 4562223023 0611366314 3641112230 2336151515 ITHIN IMPLIED DO'rrrER283:t.S'.At283.rrr
       1163646251 5647401464 5757405541 5671406641 6251414254 4563344045 7043454544 6340564563 tSTRING 'TOO MANY VARIABLES, EXCEEDS NES
       6451564740 5445664554 1415151515 4562223024 0611366314 3641112230 2436151515 1163646251 TING LEVEL'rrrrER284:t.S'.At284.rrrtSTRI
       5647401451 5560545145 4440445740 6041624155 4564456263 4055656364 4042454043 5756636441 NG 'IMPLIED DO PARAMETERS MUST BE CONSTA
       5664631415 4562223025 0611366314 3641112230 2536151515 1163646251 5647401463 6542634362 NTS'rER285:t.S'.At285.rrrtSTRING 'SUBSCR
       5160644057 6564405746 4062415647 4540515640 5155605451 4544404457 4054516364 1415151515 IPT OUT OF RANGE IN IMPLIED DO LIST'rrrr
       1515151515 1515151515 7777700000 4355616761 4355616761 4355616761 4355616761 4355616761 rrrrrrrrrrbbX  CMQWQCMQWQCMQWQCMQWQCMQWQ
       4355616761 4355616761 4355616761 4355616761 4355616761                                  CMQWQCMQWQCMQWQCMQWQCMQWQ
 1735: 0002100013 4664562023 1361200515 3414400000 0040624541 4437676251 6445406364 4164455545  c+ "FTN03"Q0*r,'     READ/WRITE STATEME
       5664404562 6257626315 1515151515 4562213026 0611366711 2130263615 1163646251 5647401454 NT ERRORSrrrrrrER186:t.Wt186.rtSTRING 'L
       4142455454 4544406364 4164455545 5664405657 6440414046 5762554164 4063644164 4555455664 ABELLED STATEMENT NOT A FORMAT STATEMENT
       1415151515 4562273006 1136671127 3036151515 1163646251 5647401444 4566514345 4065565164 'rrrrER78:t.Wt78.rrrtSTRING 'DEVICE UNIT
       4056573640 5657644063 6560605762 6445444042 7140636441 5644416244 4057646314 1515151515  NO. NOT SUPPORTED BY STANDARD OTS'rrrrr
       4562213031 0611366314 3641112130 3136151515 1163646251 5647407651 5454454740 4556435744 ER189:t.S'.At189.rrrtSTRING +ILLEG ENCOD
       4537444543 5744454041 6247403535 4055656364 4042454014 5014405762 4014531476 1515151515 E/DECODE ARG -- MUST BE 'H' OR 'K'+rrrrr
       4562213124 0611366314 3641112131 2436151515 1163646251 5647401456 5740516445 5563405156 ER194:t.S'.At194.rrrtSTRING 'NO ITEMS IN
       4044573551 5560545145 4440513757 4054516364 1415151515 4562213125 0611366314 3641112131  DO-IMPLIED I/O LIST'rrrrER195:t.S'.At19
       2536151515 1163646251 5647401465 5656456364 4544404457 3551556054 5145444051 3757405451 5.rrrtSTRING 'UNNESTED DO-IMPLIED I/O LI
       6364141515 4562223026 0611366314 3641112230 2636151515 1163646251 5647403751 5454454741 ST'rrER286:t.S'.At286.rrrtSTRING /ILLEGA
       5440656345 4057624046 5762554057 4640144562 6233144057 6240144556 4433144060 4162415563 L USE OR FORM OF 'ERR=' OR 'END=' PARAMS
       3715151515 1515151515 1515151515 0040457060 6245636351 5756406343 4156404562 6257626315 /rrrrrrrrrrrrrr  EXPRESSION SCAN ERRORSr
       1515151515 4562212030 0611366314 3641112120 3036151515 1163646251 5647401460 4562515744 rrrrrER108:t.S'.At108.rrrtSTRING 'PERIOD
       4057604562 4164576240 5657644062 4543574756 5172454414 1515151515 4562212124 0611366314  OPERATOR NOT RECOGNIZED'rrrrrER114:t.S'
       3641112121 2436151515 1163646251 5647401466 4162514142 5445405541 7140565764 4042454063 .At114.rrrtSTRING 'VARIABLE MAY NOT BE S
       6542634362 5160640745 4414151515 4562212122 0611366711 2121223615 1163646251 5647401451 UBSCRIPT_ED'rrrER112:t.Wt112.rtSTRING 'I
       5541474540 6245464562 4556434544 4041634041 4063654262 5765645156 4514151515 4562212125 MAGE REFERENCED AS A SUBROUTINE'rrrER115
       0611366711 2121253615 1163646251 5647401463 6542625765 6451564540 5762405155 4147454062 :t.Wt115.rtSTRING 'SUBROUTINE OR IMAGE R
       4546456245 5643454440 4163404140 4665564364 5157561415 4562212126 0611366314 3641112121 EFERENCED AS A FUNCTION'rER116:t.S'.At11
       2636151515 1163646251 5647401451 5454454741 5440605751 5664456214 1515151515 4562212127 6.rrrtSTRING 'ILLEGAL POINTER'rrrrrER117
       0611366314 3641112121 2736151515 1163646251 5647401457 6045624156 4440576240 4570606245 :t.S'.At117.rrrtSTRING 'OPERAND OR EXPRE
       6363515756 4055516363 5156471415 4562212130 0611366314 3641112121 3036151515 1163646251 SSION MISSING'rER118:t.S'.At118.rrrtSTRI
       5647401460 5754516350 4063644143 5340576645 6246545767 4035354045 7060624563 6351575640 NG 'POLISH STACK OVERFLOW -- EXPRESSION 
       6457574054 5756471415 4562212131 0611366314 3641112121 3136151515 1163646251 5647401455 TOO LONG'rER119:t.S'.At119.rrrtSTRING 'M
       5163635156 4740576045 6241645762 1415151515 4562212220 0611366314 3641112122 2036151515 ISSING OPERATOR'rrrrER120:t.S'.At120.rrr
       1163646251 5647401455 5163635156 4740576045 6241564414 1515151515 4562212221 0611366314 tSTRING 'MISSING OPERAND'rrrrrER121:t.S'
       3641112122 2136151515 1163646251 5647401451 5454454741 5440656345 4057464045 7060624563 .At121.rrrtSTRING 'ILLEGAL USE OF EXPRES
       6351575614 1515151515 4562212222 0611366314 3641112122 2236151515 1163646251 5647401457 SION'rrrrrER122:t.S'.At122.rrrtSTRING 'O
       6040636441 4353405766 4562465457 6740353540 6457574055 4156714056 4563644544 4057604562 P STACK OVERFLOW -- TOO MANY NESTED OPER
       4164576263 1415151515 4562212225 0611366711 2122253615 1163646251 5647401465 5642415441 ATORS'rrrrER125:t.Wt125.rtSTRING 'UNBALA
       5643454440 6041624556 6450456307 4563141515 4562212227 0611366711 2122273615 1163646251 NCED PARENTHES_ES'rrER127:t.Wt127.rtSTRI
       5647403746 6556436451 5756406062 4566406245 4614444067 5164504044 5146464562 4556644056 NG /FUNCTION PREV REF'D WITH DIFFERENT N
       5736405746 4041624763 3715151515 4562212230 0611366314 3641112122 3036151515 1163646251 O. OF ARGS/rrrrER128:t.S'.At128.rrrtSTRI
       5647401451 5454454741 5440435755 5541406343 4156564544 4051564045 7060624563 6351575640 NG 'ILLEGAL COMMA SCANNED IN EXPRESSION 
       4566415465 4164515756 1415151515 4562212320 0611366311 2123203615 1163646251 5647401441 EVALUATION'rrrrER130:t.St130.rtSTRING 'A
       6262417140 6245464562 4556434544 4067516450 4064575740 5541567140 6365426343 6251606463 RRAY REFERENCED WITH TOO MANY SUBSCRIPTS
       1415151515 4562212321 0611366711 2123213615 1163646251 5647401454 4546644060 4162455664 'rrrrER131:t.Wt131.rtSTRING 'LEFT PARENT
       5045630751 6340555163 6351564714 1515151515 4562212322 0611366314 3641112123 2236151515 HES_IS MISSING'rrrrrER132:t.S'.At132.rrr
       1163646251 5647401451 5454454741 5440456165 4154406351 4756406343 4156564544 4051564045 tSTRING 'ILLEGAL EQUAL SIGN SCANNED IN E
       7060624563 6351575614 1515151515 4562212323 0611366314 3641112123 2336151515 1163646251 XPRESSION'rrrrrER133:t.S'.At133.rrrtSTRI
       5647401454 4546644063 5144454057 4640456165 4154406351 4756405163 4051545445 4741541415 NG 'LEFT SIDE OF EQUAL SIGN IS ILLEGAL'r
       7777700000 4575725430 4575725430 4575725430 4575725430 4575725430 4575725430 4575725430 bbX  E@ZL8E@ZL8E@ZL8E@ZL8E@ZL8E@ZL8E@ZL8
       4575725430 4575725430 4575725430                                                        E@ZL8E@ZL8E@ZL8
 1645: 0002200013 4664562023 1361200473 3414400000 4562212326 0611366314 3641112123 2636151515  c0 "FTN03"Q0&$,'   ER136:t.S'.At136.rrr
       1163646251 5647401451 5454454741 5440565736 4057464041 6247655545 5664634064 5740515664 tSTRING 'ILLEGAL NO. OF ARGUMENTS TO INT
       6251566351 4340466556 4364515756 1415151515 4562212630 0611366314 3641112126 3036151515 RINSIC FUNCTION'rrrrER168:t.S'.At168.rrr
       1163646251 5647401463 7155425754 4060624566 5157656354 7140444546 5156454440 5657644041 tSTRING 'SYMBOL PREVIOUSLY DEFINED NOT A
       4063654262 5765645156 4514151515 4562212631 0611366314 3641112126 3136151515 1163646251  SUBROUTINE'rrrER169:t.S'.At169.rrrtSTRI
       5647401463 7155425754 4060624566 5157656354 7140444546 5156454440 5657644041 5640515541 NG 'SYMBOL PREVIOUSLY DEFINED NOT AN IMA
       4745141515 4562222420 0611366711 2224203615 1163646251 5647401446 6556436451 5756405641 GE'rrER240:t.Wt240.rtSTRING 'FUNCTION NA
       5545406245 4645624556 4345444041 6340414063 6542625765 6451564514 1515151515 1515151515 ME REFERENCED AS A SUBROUTINE'rrrrrrrrrr
       1515151515 0040465762 5541644063 6441644555 4556644045 6262576263 1515151515 1515151515 rrrrr  FORMAT STATEMENT ERRORSrrrrrrrrrr
       4562212421 0611366711 2124213615 1163646251 5647401463 6441644555 4556644054 4142455440 ER141:t.Wt141.rtSTRING 'STATEMENT LABEL 
       5551636351 5647405756 4046576255 4164141515 4562212422 0611366314 3641112124 2236151515 MISSING ON FORMAT'rrER142:t.S'.At142.rrr
       1163646251 5647401446 5762554164 4060624566 4062454645 6245564345 4440565764 4051564041 tSTRING 'FORMAT PREV REFERENCED NOT IN A
       4062454144 4057624067 6251644514 1515151515 4562212423 0611366711 2124233615 1163646251  READ OR WRITE'rrrrrER143:t.Wt143.rtSTRI
       5647401465 5655416443 5045444060 4162455664 5045076345 6340515640 4657625541 6414151515 NG 'UNMATCHED PARENTHE_SES IN FORMAT'rrr
       4562212424 0611366711 2124243615 1163646251 5647401451 5454454741 5440465762 5541644044 ER144:t.Wt144.rtSTRING 'ILLEGAL FORMAT D
       4563436251 6064576240 4357444514 1515151515 4562212425 0611366711 2124253615 1163646251 ESCRIPTOR CODE'rrrrrER145:t.Wt145.rtSTRI
       5647401446 5762554164 4043574445 4055516363 5156471415 4562212426 0611366711 2124263615 NG 'FORMAT CODE MISSING'rER146:t.Wt146.r
       1163646251 5647401446 5762554164 4043574445 4044574563 4056576440 4154545767 4041406343 tSTRING 'FORMAT CODE DOES NOT ALLOW A SC
       4154454046 4143645762 1415151515 4562212427 0611366711 2124273615 1163646251 5647401446 ALE FACTOR'rrrrER147:t.Wt147.rtSTRING 'F
       5762554164 4043574445 4044574563 4056576440 4154545767 4041406245 6007454164 4043576556 ORMAT CODE DOES NOT ALLOW A REP_EAT COUN
       6414151515 4562212430 0611366711 2124303615 1163646251 5647401446 5762554164 4043574445 T'rrrER148:t.Wt148.rtSTRING 'FORMAT CODE
       4063456041 6241645762 4055516363 5156471415 4562212431 0611366711 2124313615 1163646251  SEPARATOR MISSING'rER149:t.Wt149.rtSTRI
       5647401460 6245434544 5156474046 5145544440 6751446450 4057624043 5765566440 5551636351 NG 'PRECEDING FIELD WIDTH OR COUNT MISSI
       5647141515 4562212520 0611366711 2125203615 1163646251 5647401462 4560074541 6440435765 NG'rrER150:t.Wt150.rtSTRING 'REP_EAT COU
       5664405762 4046514554 4440675144 6450405541 7140565764 4042454072 4562571415 4562212521 NT OR FIELD WIDTH MAY NOT BE ZERO'rER151
       0611366711 2125213615 1163646251 5647401451 5454454741 5440555156 6563406351 4756406343 :t.Wt151.rtSTRING 'ILLEGAL MINUS SIGN SC
       4156564544 1415151515 4562212522 0611366711 2125223615 1163646251 5647401446 5754545767 ANNED'rrrrER152:t.Wt152.rtSTRING 'FOLLOW
       5156474046 5145544440 6751446450 4055516363 5156474057 6240724562 5714151515 4562212523 ING FIELD WIDTH MISSING OR ZERO'rrrER153
       0611366711 2125233615 1163646251 5647401446 6241436451 5756415440 4451475164 4043576556 :t.Wt153.rtSTRING 'FRACTIONAL DIGIT COUN
       6440555163 6351564714 1515151515 4562212524 0611366711 2125243615 1163646251 5647401446 T MISSING'rrrrrER154:t.Wt154.rtSTRING 'F
       6241436451 5756415440 4357655664 4055656364 4042454036 5445364046 5145544440 6751446450 RACTIONAL COUNT MUST BE .LE. FIELD WIDTH
       1415151515 4562222722 0611366711 2227223615 1163646251 5647403760 6257474050 4163406556 'rrrrER272:t.Wt272.rtSTRING /PROG HAS UN
       6245461444 4046576255 4164633440 5764634056 5764405156 4354654445 4437151515 1515151515 REF'D FORMATS, OTS NOT INCLUDED/rrrrrrrr
       1515151515 0040636441 6445554556 6440466556 4364515756 4045626257 6263151515 1515151515 rrrrr  STATEMENT FUNCTION ERRORSrrrrrrrr
       4562222526 0611366314 3641112225 2636151515 1163646251 5647401463 6441644555 4556644046 ER256:t.S'.At256.rrrtSTRING 'STATEMENT F
       6556436451 5756405641 5545406062 4566515765 6354714044 4546515645 4414151515 4562222527 UNCTION NAME PREVIOUSLY DEFINED'rrrER257
       0611366314 3641112225 2736151515 1163646251 5647401444 6560545143 4164454041 6247634064 :t.S'.At257.rrrtSTRING 'DUPLICATE ARGS T
       5740636441 6445554556 6440466556 4364515756 4051545445 4741541415 4562222624 0611366314 O STATEMENT FUNCTION ILLEGAL'rER264:t.S'
       3641112226 2436151515 1163646251 5647401451 5454454741 5440636441 6445554556 6440466556 .At264.rrrtSTRING 'ILLEGAL STATEMENT FUN
       4364515756 4041624765 5545566414 1515151515 1515151515 1515151515 7777700000 1641434045 CTION ARGUMENT'rrrrrrrrrrrrrrrbbX  (AC E
       1641434045 1641434045 1641434045 1641434045 1641434045 1641434045 1641434045 1641434045 (AC E(AC E(AC E(AC E(AC E(AC E(AC E(AC E
       1641434045                                                                              (AC E
 1415: 0002300013 4664562023 1361200415 3414400000 0040445740 6364416445 5545566440 4562625762  c8 "FTN03"Q0&r,'     DO STATEMENT ERROR
       6315151515 1515151515 4562212621 0611366314 3641112126 2136151515 1163646251 5647401444 SrrrrrrrrrER161:t.S'.At161.rrrtSTRING 'D
       5740545757 6040644162 4745644054 4142455440 5541714056 5764404245 4041406371 5542575414 O LOOP TARGET LABEL MAY NOT BE A SYMBOL'
       1515151515 4562212622 0611366314 3641112126 2236151515 1163646251 5647403744 5740545757 rrrrrER162:t.S'.At162.rrrtSTRING /DO LOO
       6040644162 4745644043 4156146440 6062454345 4445406450 4540445740 6364416445 5545566437 P TARGET CAN'T PRECEDE THE DO STATEMENT/
       1515151515 4562212623 0611366314 3641112126 2336151515 1163646251 5647401451 5560625760 rrrrrER163:t.S'.At163.rrrtSTRING 'IMPROP
       4562075471 4056456364 4544404457 4054575760 6314151515 4562212624 0611366711 2126243615 ER_LY NESTED DO LOOPS'rrrER164:t.Wt164.r
       1163646251 5647403764 4162474564 4063645556 6440515640 4457405457 5760404341 5614644064 tSTRING /TARGET STMNT IN DO LOOP CAN'T T
       6241566346 4562404357 5664625754 3715151515 4562212625 0611366311 2126253615 1163646251 RANSFER CONTROL/rrrrER165:t.St165.rtSTRI
       5647401460 6257476241 5540504163 4065564354 5763454440 4457405457 5760634016 6345454055 NG 'PROGRAM HAS UNCLOSED DO LOOPS (SEE M
       4160171415 4562212626 0611366314 3641112126 2636151515 1163646251 5647401446 5762554164 AP)'rER166:t.S'.At166.rrrtSTRING 'FORMAT
       4051545445 4741544041 6340414044 5740545757 6040644162 4745641415 1515151515 1515151515  ILLEGAL AS A DO LOOP TARGET'rrrrrrrrrrr
       0040514640 6364416445 5545566440 4562625762 6315151515 1515151515 4562212721 0611366314   IF STATEMENT ERRORSrrrrrrrrrER171:t.S'
       3641112127 2136151515 1163646251 5647403751 5454454741 5440636441 6445554556 6440414664 .At171.rrrtSTRING /ILLEGAL STATEMENT AFT
       4562405457 4751434154 4051464057 6240145756 1437151515 4562213030 0611366314 3641112130 ER LOGICAL IF OR 'ON'/rrrER188:t.S'.At18
       3036151515 1163646251 5647401464 5757405541 5671405146 4063644164 4555455664 4042624156 8.rrrtSTRING 'TOO MANY IF STATEMENT BRAN
       4350456314 1515151515 1515151515 1515151515 0040475764 5740636441 6445554556 6440456262 CHES'rrrrrrrrrrrrrrr  GOTO STATEMENT ERR
       5762631515 1515151515 4562213120 0611366314 3641112131 2036151515 1163646251 5647401443 ORSrrrrrrrER190:t.S'.At190.rrrtSTRING 'C
       5755606564 4544404757 4064574045 7060624563 6351575640 5551636351 5647141515 4562213121 OMPUTED GO TO EXPRESSION MISSING'rrER191
       0611366314 3641112131 2136151515 1163646251 5647401455 4556654047 5740645740 4162476555 :t.S'.At191.rrrtSTRING 'MENU GO TO ARGUM
       4556646340 5565636440 4245406364 4164455545 5664405441 4245546314 1515151515 1515151515 ENTS MUST BE STATEMENT LABELS'rrrrrrrrrr
       1515151515 0040416363 5147564063 6441644555 4556644045 6262576263 1515151515 1515151515 rrrrr  ASSIGN STATEMENT ERRORSrrrrrrrrrr
       4562213122 0611366314 3641112131 2236151515 1163646251 5647401441 6363514756 4063645556 ER192:t.S'.At192.rrrtSTRING 'ASSIGN STMN
       6440556563 6440636045 4351467140 4140636441 6445554556 6440544142 4554141515 4562213123 T MUST SPECIFY A STATEMENT LABEL'rrER193
       0611366314 3641112131 2336151515 1163646251 5647403751 5454454741 5440637156 6441704051 :t.S'.At193.rrrtSTRING /ILLEGAL SYNTAX I
       5640416363 5147564063 6455566440 3535405565 6364404245 4014645714 3715151515 1515151515 N ASSIGN STMNT -- MUST BE 'TO'/rrrrrrrrr
       1515151515 0040575640 6364416445 5545566440 4562625762 6315151515 1515151515 4562222423 rrrrr  ON STATEMENT ERRORSrrrrrrrrrER243
       0611366314 3641112224 2336151515 1163646251 5647403756 4563645156 4740574640 1457561440 :t.S'.At243.rrrtSTRING /NESTING OF 'ON' 
       6364416445 5545566463 4051545445 4741543715 4562222424 0611366314 3641112224 2436151515 STATEMENTS ILLEGAL/rER244:t.S'.At244.rrr
       1163646251 5647403714 5756144041 6247655545 5664405657 6440415640 5743644154 4043575663 tSTRING /'ON' ARGUMENT NOT AN OCTAL CONS
       6441566437 1515151515 4562222425 0611366314 3641112224 2536151515 1163646251 5647403714 TANT/rrrrrER245:t.S'.At245.rrrtSTRING /'
       5756144041 6247655545 5664405765 6440574640 5445474154 4062415647 4537151515 4562222426 ON' ARGUMENT OUT OF LEGAL RANGE/rrrER246
       0611366314 3641112224 2636151515 1163646251 5647403745 7060624051 5454454741 5440465754 :t.S'.At246.rrrtSTRING /EXPR ILLEGAL FOL
       5457675156 4740476241 4670405156 6445626265 6064401457 5614371515 1515151515 1515151515 LOWING GRAFX INTERRUPT 'ON'/rrrrrrrrrrrr
       7777700000 7737251703 7737251703 7737251703 7737251703 7737251703 7737251703 7737251703 bbX  b/5)!b/5)!b/5)!b/5)!b/5)!b/5)!b/5)!
       7737251703 7737251703 7737251703                                                        b/5)!b/5)!b/5)!
 1550: 0002400013 4664562023 1361200450 3414400000 0040476241 4670405155 4147454051 6445554046  c  "FTN03"Q0&H,'     GRAFX IMAGE ITEM F
       6556436451 5756404562 6257626315 1515151515 4562212330 0611366714 3641112123 3036151515 UNCTION ERRORSrrrrrrER138:t.W'.At138.rrr
       1163646251 5647401451 5664454745 6240435756 6364415664 4066415465 4540576564 4057464062 tSTRING 'INTEGER CONSTANT VALUE OUT OF R
       4156474540 4657624041 6247141515 4562212331 0611366714 3641112123 3136151515 1163646251 ANGE FOR ARG'rrER139:t.W'.At139.rrrtSTRI
       5647401451 5454454741 5440435755 4251560741 6451575640 5746404162 4765554556 6440647160 NG 'ILLEGAL COMBIN_ATION OF ARGUMENT TYP
       4563141515 4562212420 0611366714 3641112124 2036151515 1163646251 5647401451 5541474540 ES'rrER140:t.W'.At140.rrrtSTRING 'IMAGE 
       5164455540 5541714056 5764405041 6645404140 4357566364 4156644041 6247655545 5664141515 ITEM MAY NOT HAVE A CONSTANT ARGUMENT'rr
       4562212527 0611366714 3641112125 2736151515 1163646251 5647403714 5441511440 5164455540 ER157:t.W'.At157.rrrtSTRING /'LAI' ITEM 
       5565636440 5041664540 4140435756 6364415664 4063454357 5644404162 4737151515 4562212530 MUST HAVE A CONSTANT SECOND ARG/rrrER158
       0611366714 3641112125 3036151515 1163646251 5647401441 6247655545 5664405565 6364404245 :t.W'.At158.rrrtSTRING 'ARGUMENT MUST BE
       4041564041 6262417140 5641554514 1515151515 4562212531 0611366714 3641112125 3136151515  AN ARRAY NAME'rrrrrER159:t.W'.At159.rrr
       1163646251 5647401441 6262417140 5541714056 5764404245 4062454645 6245564345 4440675164 tSTRING 'ARRAY MAY NOT BE REFERENCED WIT
       5040415640 5746466345 6414151515 1515151515 1515151515 0040625463 7155404451 6353404562 H AN OFFSET'rrrrrrrrrrrrr  RLSYM DISK ER
       6257621515 1515151515 4562212022 0611366411 2120223615 1163646251 5647401446 5762646371 RORrrrrrrrER102:t.Tt102.rtSTRING 'FORTSY
       5563405765 6460656440 4451635340 4562625762 1415151515 1515151515 1515151515 0040414445 MS OUTPUT DISK ERROR'rrrrrrrrrrrrrr  ADE
       6064405557 4445404562 6257626315 1515151515 4562222020 0611366711 2220203615 1163646251 PT MODE ERRORSrrrrrrER200:t.Wt200.rtSTRI
       5647401462 5764416451 5756405746 4062455457 4340576240 4570644045 7060624563 6351575640 NG 'ROTATION OF RELOC OR EXT EXPRESSION 
       5154544547 4154141515 4562222021 0611366711 2220213615 1163646251 5647403743 5041624143 ILLEGAL'rrER201:t.Wt201.rtSTRING /CHARAC
       6445624046 5754545767 5156474014 0314405657 6440144214 3440145314 4057624014 5014371515 TER FOLLOWING '!' NOT 'B', 'K' OR 'H'/rr
       4562222022 0611366711 2220223615 1163646251 5647401464 5757405541 5671406365 4235457060 ER202:t.Wt202.rtSTRING 'TOO MANY SUB-EXP
       6240544566 4554634035 3540604162 4556405147 5657624544 1415151515 4562222023 0611366711 R LEVELS -- PAREN IGNORED'rrrrER203:t.Wt
       2220233615 1163646251 5647401451 5454454741 5440576240 5551636351 5647406371 5542575440 203.rtSTRING 'ILLEGAL OR MISSING SYMBOL 
       4657624064 4147404445 4651565164 5157561415 4562222024 0611366711 2220243615 1163646251 FOR TAG DEFINITION'rER204:t.Wt204.rtSTRI
       5647401464 4147406371 5542575440 6062456651 5707656354 7140444546 5156454414 1515151515 NG 'TAG SYMBOL PREVIO_USLY DEFINED'rrrrr
       4562222025 0611366711 2220253615 1163646251 5647401465 5642415441 5643454440 6041624556 ER205:t.Wt205.rtSTRING 'UNBALANCED PAREN
       0764504563 4563141515 4562222026 0611366711 2220263615 1163646251 5647401445 7060624563 _THESES'rrER206:t.Wt206.rtSTRING 'EXPRES
       6351575640 6556444546 5156454440 5762404570 6445625641 5414151515 4562222027 0611366711 SION UNDEFINED OR EXTERNAL'rrrER207:t.Wt
       2220273615 1163646251 5647403714 5457431440 4570606245 6363515756 4056576440 6245545743 207.rtSTRING /'LOC' EXPRESSION NOT RELOC
       4164410742 5445371515 4562222030 0611366711 2220303615 1163646251 5647401451 5454454741 ATA_BLE/rrER208:t.Wt208.rtSTRING 'ILLEGA
       5440465762 5541644046 5762406041 6241554564 4562404445 4651565164 5157561415 4562222031 L FORMAT FOR PARAMETER DEFINITION'rER209
       0611366711 2220313615 1163646251 5647403714 3314405760 4562416457 6240555163 6054414345 :t.Wt209.rtSTRING /'=' OPERATOR MISPLACE
       4440576240 5154544547 4154406041 6241554046 5762554164 3715151515 4562222120 0611366711 D OR ILLEGAL PARAM FORMAT/rrrrER210:t.Wt
       2221203615 1163646251 5647403751 5454454741 5440145457 4314404570 6062456363 5157564066 210.rtSTRING /ILLEGAL 'LOC' EXPRESSION V
       4154654537 1515151515 4562222121 0611366711 2221213615 1163646251 5647401451 5454454741 ALUE/rrrrrER211:t.Wt211.rtSTRING 'ILLEGA
       5440637155 4257544057 6240576045 6241645762 1415151515 4562222123 0611366711 2221233615 L SYMBOL OR OPERATOR'rrrrER213:t.Wt213.r
       1163646251 5647401451 5454454741 5440636441 6445554556 6440544142 4554406641 5465451415 tSTRING 'ILLEGAL STATEMENT LABEL VALUE'r
       4562222124 0611366711 2221243615 1163646251 5647401451 5454454741 5440457060 6245636351 ER214:t.Wt214.rtSTRING 'ILLEGAL EXPRESSI
       5756406245 5457434164 5157561415 7777700000 0776522141 0776522141 0776522141 0776522141 ON RELOCATION'rbbX  _+J1A_+J1A_+J1A_+J1A
       0776522141 0776522141 0776522141 0776522141 0776522141 0776522141                       _+J1A_+J1A_+J1A_+J1A_+J1A_+J1A
 1530: 0002500013 4664562023 1361200444 3414400000 4562222125 0611366711 2221253615 1163646251  cH "FTN03"Q0&D,'   ER215:t.Wt215.rtSTRI
       5647401463 7155425754 4054575647 4562406450 4156402120 4043504162 4143644562 6314151515 NG 'SYMBOL LONGER THAN 10 CHARACTERS'rrr
       4562222126 0611366711 2221263615 1163646251 5647401464 4570644063 6462515647 4044455451 ER216:t.Wt216.rtSTRING 'TEXT STRING DELI
       5551644562 4056576440 4657655644 1415151515 4562222127 0611366711 2221273615 1163646251 MITER NOT FOUND'rrrrER217:t.Wt217.rtSTRI
       5647401451 5454454741 5440414444 6245636340 4162516450 5545645143 1415151515 4562222130 NG 'ILLEGAL ADDRESS ARITHMETIC'rrrrER218
       0611366711 2221303615 1163646251 5647401455 5163635156 4740636441 6445554556 6440644562 :t.Wt218.rtSTRING 'MISSING STATEMENT TER
       5551564164 5762141515 4562222131 0611366711 2221313615 1163646251 5647401451 5454454741 MINATOR'rrER219:t.Wt219.rtSTRING 'ILLEGA
       5440457064 4562564154 4062454645 6245564345 4057604562 4164576240 6343415656 4544141515 L EXTERNAL REFERENCE OPERATOR SCANNED'rr
       4562222220 0611366711 2222203615 1163646251 5647407643 5041624055 5163635156 4740414664 ER220:t.Wt220.rtSTRING +CHAR MISSING AFT
       4562401402 1440576240 1475144035 3540433762 4041636365 5545447615 4562222221 0611366314 ER 'c' OR '@' -- C/R ASSUMED+rER221:t.S'
       3641112222 2136151515 1163646251 5647401441 4445606440 6364416445 5545566440 5154544547 .At221.rrrtSTRING 'ADEPT STATEMENT ILLEG
       4154405156 4044416441 2244374441 6441234440 4445461415 4562222222 0611366711 2222223615 AL IN DATA2D/DATA3D DEF'rER222:t.Wt222.r
       1163646251 5647401460 4162415545 6445624063 7155425754 4060624566 4044454651 5645444056 tSTRING 'PARAMETER SYMBOL PREV DEFINED N
       5764404140 6041624155 4564456214 1515151515 4562222223 0611366711 2222233615 1163646251 OT A PARAMETER'rrrrrER223:t.Wt223.rtSTRI
       5647403765 5644454614 4440576240 4570644063 7155425754 4051564043 5756445107 6451575641 NG /UNDEF'D OR EXT SYMBOL IN CONDI_TIONA
       5440457060 6237151515 4562222224 0611366711 2222243615 1163646251 5647401463 7155425754 L EXPR/rrrER224:t.Wt224.rtSTRING 'SYMBOL
       4054575647 4562406450 4156402125 4043504162 4143644562 6314151515 1515151515 1515151515  LONGER THAN 15 CHARACTERS'rrrrrrrrrrrrr
       0040435755 6051544562 4043575664 6257544043 4162444045 6262576263 1515151515 1515151515   COMPILER CONTROL CARD ERRORSrrrrrrrrrr
       4562232020 0611366714 3641112320 2036151515 1163646251 5647401443 5755605154 4562404357 ER300:t.W'.At300.rrrtSTRING 'COMPILER CO
       5664625754 4053457167 5762444056 5764406245 4357475651 7245441415 4562232021 0611366714 NTROL KEYWORD NOT RECOGNIZED'rER301:t.W'
       3641112320 2136151515 1163646251 5647401451 5454454741 5440444554 5155456445 6240465762 .At301.rrrtSTRING 'ILLEGAL DELIMETER FOR
       4043575560 5154456240 4357566462 5754405345 7167576244 1415151515 4562232022 0611366714  COMPILER CONTROL KEYWORD'rrrrER302:t.W'
       3641112320 2236151515 1163646251 5647401451 5454454740 4657625540 5762406641 5465454057 .At302.rrrtSTRING 'ILLEG FORM OR VALUE O
       4640435755 6051544562 4043575664 6257544060 4162415514 1515151515 4562232023 0611366711 F COMPILER CONTROL PARAM'rrrrrER303:t.Wt
       2320233615 1163646251 5647401463 5765624345 4054516364 5156474064 5164544540 6457574054 303.rtSTRING 'SOURCE LISTING TITLE TOO L
       5756474035 3540554170 4025254043 5041626314 1515151515 4562232024 0611366711 2320243615 ONG -- MAX 55 CHARS'rrrrrER304:t.Wt304.r
       1163646251 5647401460 4162415545 6445624060 6245665157 6563547140 6245464562 4556434544 tSTRING 'PARAMETER PREVIOUSLY REFERENCED
       4057664562 5441714064 7160451415 4562232025 0611366711 2320253615 1163646251 5647401460  OVERLAY TYPE'rER305:t.Wt305.rtSTRING 'P
       4162415545 6445624060 6245664062 4546456245 5643454440 5657563557 6645625441 7140647160 ARAMETER PREV REFERENCED NON-OVERLAY TYP
       4514151515 4562232026 0611366714 3641112320 2636151515 1163646251 5647401451 5454454741 E'rrrER306:t.W'.At306.rrrtSTRING 'ILLEGA
       5440644562 5551564164 5762405746 4043575560 5154456240 4357566462 5754406364 5556641415 L TERMINATOR OF COMPILER CONTROL STMNT'r
       1515151515 1515151515 0040646241 4345406364 4164455545 5664404562 6257626315 1515151515 rrrrrrrrrr  TRACE STATEMENT ERRORSrrrrrr
       4562213127 0611366711 2131273615 1163646251 5647401460 6245665157 6563404162 4541406462 ER197:t.Wt197.rtSTRING 'PREVIOUS AREA TR
       4143454043 4156434554 5445441415 4562213130 0611366711 2131303615 1163646251 5647401441 ACE CANCELLED'rER198:t.Wt198.rtSTRING 'A
       6245414064 6241434540 6441624745 6440556563 6440605071 6351434154 5471404657 5454576714 REA TRACE TARGET MUST PHYSICALLY FOLLOW'
       1515151515 4562213131 0611366711 2131313615 1163646251 5647401464 6241434540 5164455540 rrrrrER199:t.Wt199.rtSTRING 'TRACE ITEM 
       5657644041 4066416251 4142544540 5762404162 6241711415 1515151515 1515151515 7777700000 NOT A VARIABLE OR ARRAY'rrrrrrrrrrrbbX  
       5061316263 5061316263 5061316263 5061316263 5061316263 5061316263 5061316263 5061316263 HQ9RSHQ9RSHQ9RSHQ9RSHQ9RSHQ9RSHQ9RSHQ9RS
       5061316263 5061316263                                                                   HQ9RSHQ9RS
  800: 0002600013 4664562023 1361200222 3414400000 0040435755 6051544164 5157564054 5155516440  cP "FTN03"Q0c2,'     COMPILATION LIMIT 
       4445604556 4445566440 4562625762 6315151515 1515151515 4562242506 1136631436 4111242536 DEPENDENT ERRORSrrrrrrrrrER45:t.S'.At45.
       1515151515 1163646251 5647401464 5757405541 5671405645 6364454440 5451644562 4154631415 rrrrrtSTRING 'TOO MANY NESTED LITERALS'r
       4562212506 1136641121 2536151515 1163646251 5647401443 5755605154 4562406441 4254456340 ER15:t.Tt15.rrrtSTRING 'COMPILER TABLES 
       4665545434 4056576440 4556576547 5040416641 5154405545 5557627114 1515151515 4562313106 FULL, NOT ENOUGH AVAIL MEMORY'rrrrrER99:
       1136641131 3136151515 1163646251 5647401467 5762535156 4740636457 6241474540 4665545434 t.Tt99.rrrtSTRING 'WORKING STORAGE FULL,
       4056576440 4556576547 5040416641 5154405545 5557627114 1515151515 1515151515 1515151515  NOT ENOUGH AVAIL MEMORY'rrrrrrrrrrrrrrr
       0040515560 5445554556 6441645157 5640444560 4556444556 6440456262 5762631515 1515151515   IMPLEMENTATION DEPENDENT ERRORSrrrrrrr
       4562212606 1136631436 4111212636 1515151515 1163646251 5647401463 6441644555 4556644056 ER16:t.S'.At16.rrrrrtSTRING 'STATEMENT N
       5764407145 6440515560 5445554556 6407454440 5156404357 5560515445 6214151515 4562212120 OT YET IMPLEMENT_ED IN COMPILER'rrrER110
       0611366711 2121203615 1163646251 5647401451 5664625156 6351434046 6556436451 5756405657 :t.Wt110.rtSTRING 'INTRINSIC FUNCTION NO
       6440714564 4051556054 4555455664 0745441415 4562212027 0611366711 2120273615 1163646251 T YET IMPLEMENT_ED'rER107:t.Wt107.rtSTRI
       5647401444 5765425445 4060624543 4041625164 5055456451 4340565764 4071456440 5155605445 NG 'DOUBLE PREC ARITHMETIC NOT YET IMPLE
       5545566407 4544141515 4562212327 0611366711 2123273615 1163646251 5647401443 5755605445 MENT_ED'rrER137:t.Wt137.rtSTRING 'COMPLE
       7040416251 6450554564 5143405657 6440714564 4051556054 4555455664 0745441415 4562212223 X ARITHMETIC NOT YET IMPLEMENT_ED'rER123
       0611366314 3641112122 2336151515 1163646251 5647401445 7060624563 6351575640 5164455540 :t.S'.At123.rrrtSTRING 'EXPRESSION ITEM 
       5657644071 4564405155 6054455545 5664074544 1415151515 4562213126 0611366711 2131263615 NOT YET IMPLEMENT_ED'rrrrER196:t.Wt196.r
       1163646251 5647401444 5765425445 4060624543 5163515756 4051375740 5657644071 4564405155 tSTRING 'DOUBLE PRECISION I/O NOT YET IM
       6054455545 5664074544 1415151515 1515151515 1515151515 7777700000 1050545607 1050545607 PLEMENT_ED'rrrrrrrrrrrrrrbbX  +HLN_+HLN_
       1050545607 1050545607 1050545607 1050545607 1050545607 1050545607 1050545607 1050545607 +HLN_+HLN_+HLN_+HLN_+HLN_+HLN_+HLN_+HLN_
 1390: 0002700013 4664562023 1361200410 3414400000 5146724562 5740662215 1515151515 0040576564  cX "FTN03"Q0&+,'   IFZERO V2rrrrrr  OUT
       6065644045 6262576240 6441425445 4057664562 5441716340 5156406345 4755455664 4544406645 PUT ERROR TABLE OVERLAYS IN SEGMENTED VE
       6263515756 4036363636 3615151515 1515151515 1515151515 6622456243 4033402011 1111004354 RSION .....rrrrrrrrrrrrrrV2ERC = 0ttt CL
       4541624043 5765566440 5746405766 4562544171 6315151515 6622456260 4033404562 6264421111 EAR COUNT OF OVERLAYSrrrrV2ERP = ERRTBtt
       0063456440 5156516451 4154404357 6245406057 5156644562 1515151515 1515151515 1515151515  SET INITIAL CORE POINTERrrrrrrrrrrrrrrr
       5146564547 4164516645 4016662245 6260353610 2117111100 6556544563 6340445756 4540455664 IFNEGATIVE (V2ERP-.+1)tt UNLESS DONE ENT
       5162454064 4142544540 3636361515 6360454351 4154111622 2020202003 5040212225 2417110040 IRE TABLE ...rrSPECIALt(20000!H 1254)t  
       4057656460 6564405766 4562544171 4054455647 6450151515 6360454351 4154111622 2120202003  OUTPUT OVERLAY LENGTHrrrSPECIALt(21000!
       5040662245 6260171100 4040576564 6065644057 6645625441 7140636441 6264404144 4462456363 H V2ERP)t   OUTPUT OVERLAY START ADDRESS
       1515151515 6360454351 4154111622 2220202003 5040662257 4663171100 4040576564 6065644057 rrrrrSPECIALt(22000!H V2OFS)t   OUTPUT O
       6645625441 7140445163 5340574646 6345641515 6622574663 4033406622 5746634010 4066224562 VERLAY DISK OFFSETrrV2OFS = V2OFS + V2ER
       6311110040 4065604441 6445406345 4364576240 4357655664 1515151515 6622456260 4033406622 Stt   UPDATE SECTOR COUNTrrrrrV2ERP = V2
       4562604010 4021222524 4035406622 4562541100 4040435755 6065644540 5645706440 4357624540 ERP + 1254 - V2ERLt   COMPUTE NEXT CORE 
       4265464645 6240636441 6264151515 6622456243 4033406622 4562434010 4021111100 4040515644 BUFFER STARTrrrV2ERC = V2ERC + 1tt   IND
       4570405766 4562544171 4043576556 6445621515 4556444315 1515151515 5146564547 4164516645 EX OVERLAY COUNTERrrENDCrrrrrrIFNEGATIVE
       4016662245 6260353610 2117151515 6360454351 4154401622 2020202003 5040212225 2417324063  (V2ERP-.+1)rrrSPECIAL (20000!H 1254); S
       6045435141 5440162221 2020200350 4066224562 6017324063 6045435141 5440162222 2020200350 PECIAL (21000!H V2ERP); SPECIAL (22000!H
       4066225746 6317151515 6622574663 4033406622 5746634010 4066224562 6315151515 6622456260  V2OFS)rrrV2OFS = V2OFS + V2ERSrrrrV2ERP
       4033406622 4562604010 4021222524 4035406622 4562543240 4066224562 4340334066 2245624310  = V2ERP + 1254 - V2ERL;  V2ERC = V2ERC+
       2115151515 4556444315 1515151515 5146564547 4164516645 4016662245 6260353610 2117151515 1rrrrENDCrrrrrrIFNEGATIVE (V2ERP-.+1)rrr
       6360454351 4154401622 2020202003 5040212225 2417324063 6045435141 5440162221 2020200350 SPECIAL (20000!H 1254); SPECIAL (21000!H
       4066224562 6017324063 6045435141 5440162222 2020200350 4066225746 6317151515 6622574663  V2ERP); SPECIAL (22000!H V2OFS)rrrV2OFS
       4033406622 5746634010 4066224562 6315151515 6622456260 4033406622 4562604010 4021222524  = V2OFS + V2ERSrrrrV2ERP = V2ERP + 1254
       4035406622 4562543240 4066224562 4340334066 2245624310 2115151515 4556444315 1515151515  - V2ERL;  V2ERC = V2ERC+1rrrrENDCrrrrrr
       5146564547 4164516645 4016662245 6260353610 2117151515 6360454351 4154401622 2020202003 IFNEGATIVE (V2ERP-.+1)rrrSPECIAL (20000!
       5040212225 2417324063 6045435141 5440162221 2020200350 4066224562 6017324063 6045435141 H 1254); SPECIAL (21000!H V2ERP); SPECIA
       5440162222 2020200350 4066225746 6317151515 6622574663 4033406622 5746634010 4066224562 L (22000!H V2OFS)rrrV2OFS = V2OFS + V2ER
       6315151515 6622456260 4033406622 4562604010 4021222524 4035406622 4562543240 4066224562 SrrrrV2ERP = V2ERP + 1254 - V2ERL;  V2ER
       4340334066 2245624310 2115151515 4556444315 1515151515 5146564547 4164516645 4016662245 C = V2ERC+1rrrrENDCrrrrrrIFNEGATIVE (V2E
       6260353610 2117151515 6360454351 4154401622 2020202003 5040212225 2417324063 6045435141 RP-.+1)rrrSPECIAL (20000!H 1254); SPECIA
       5440162221 2020200350 4066224562 6017324063 6045435141 5440162222 2020200350 4066225746 L (21000!H V2ERP); SPECIAL (22000!H V2OF
       6317151515 6622574663 4033406622 5746634010 4066224562 6315151515 6622456260 4033406622 S)rrrV2OFS = V2OFS + V2ERSrrrrV2ERP = V2
       4562604010 4021222524 4035406622 4562543240 4066224562 4340334066 2245624310 2115151515 ERP + 1254 - V2ERL;  V2ERC = V2ERC+1rrrr
       4556444315 1515151515 1515151515 7777700000 3635117166 3635117166 3635117166 3635117166 ENDCrrrrrrrrrrrbbX  .-tYV.-tYV.-tYV.-tYV
       3635117166 3635117166 3635117166 3635117166 3635117166 3635117166                       .-tYV.-tYV.-tYV.-tYV.-tYV.-tYV
 1470: 0003000013 4664562023 1361200430 3414400000 5146604163 6321151515 6471604557 6564401415  !  "FTN03"Q0&8,'   IFPASS1rrrTYPEOUT 'r
       4040404045 6262576240 6441425445 4040404040 1415151515 1515151515 5146564547 4164516645     ERROR TABLE     'rrrrrrrrrIFNEGATIVE
       4016363545 6262644235 2717344064 7160455765 6440144040 4040144040 4554634515 5146564547  (.-ERRTB-7), TYPEOUT '    '  ELSErIFNEG
       4164516645 4016363545 6262644235 2727173440 6471604557 6564401440 4040144040 4554634515 ATIVE (.-ERRTB-77), TYPEOUT '   '  ELSEr
       5146564547 4164516645 4016363545 6262644235 2727271734 4064716045 5765644014 4040144040 IFNEGATIVE (.-ERRTB-777), TYPEOUT '  '  
       4554634515 5146564547 4164516645 4016363545 6262644235 2727272717 3440647160 4557656440 ELSErIFNEGATIVE (.-ERRTB-7777), TYPEOUT 
       1440144040 4556444340 4045564443 4040455644 4340404556 4443151515 6471604557 4364401636 ' '  ENDC  ENDC  ENDC  ENDCrrrTYPEOCT (.
       3545626264 4217151515 6471604557 6564401440 4040401415 5146564547 4164516645 4016363545 -ERRTB)rrrTYPEOUT '    'rIFNEGATIVE (.-E
       6262644235 3136173440 6471604557 6564401440 4040401440 4045546345 1515151515 5146564547 RRTB-9.), TYPEOUT '    '  ELSErrrrrIFNEG
       4164516645 4016363545 6262644235 3131361734 4064716045 5765644014 4040401440 4045546345 ATIVE (.-ERRTB-99.), TYPEOUT '   '  ELSE
       1515151515 5146564547 4164516645 4016363545 6262644235 3131313617 3440647160 4557656440 rrrrrIFNEGATIVE (.-ERRTB-999.), TYPEOUT 
       1440401440 4045546345 1515151515 5146564547 4164516645 4016363545 6262644235 3131313136 '  '  ELSErrrrrIFNEGATIVE (.-ERRTB-9999.
       1734406471 6045576564 4014401440 4045564443 4040455644 4340404556 4443404045 5644431515 ), TYPEOUT ' '  ENDC  ENDC  ENDC  ENDCrr
       6471604544 4543401636 3545626264 4217151515 6471604557 6564401440 4040404014 1515151515 TYPEDEC (.-ERRTB)rrrTYPEOUT '     'rrrrr
       5146564547 4164516645 4016456262 6442102122 2035271734 4064716045 5765644014 4040404014 IFNEGATIVE (ERRTB+120-7), TYPEOUT '    '
       4040455463 4515151515 5146564547 4164516645 4016456262 6442102122 2035272717 3440647160   ELSErrrrIFNEGATIVE (ERRTB+120-77), TYP
       4557656440 1440404014 4040455463 4515151515 5146564547 4164516645 4016456262 6442102122 EOUT '   '  ELSErrrrIFNEGATIVE (ERRTB+12
       2035272727 1734406471 6045576564 4014404014 4040455463 4515151515 5146564547 4164516645 0-777), TYPEOUT '  '  ELSErrrrIFNEGATIVE
       4016456262 6442102122 2035272727 2717344064 7160455765 6440144014 4040455644 4340404556  (ERRTB+120-7777), TYPEOUT ' '  ENDC  EN
       4443404045 5644434040 4556444315 6471604557 4364401645 6262644210 2122201715 6471604557 DC  ENDC  ENDCrTYPEOCT (ERRTB+120)rTYPEO
       6564401440 4014151515 5146564547 4164516645 4016361021 2127352717 3440647160 4557656440 UT '  'rrrIFNEGATIVE (.+117-7), TYPEOUT 
       1440404040 1440404554 6345151515 5146564547 4164516645 4016361021 2127352727 1734406471 '    '  ELSErrrIFNEGATIVE (.+117-77), TY
       6045576564 4014404040 1440404554 6345151515 5146564547 4164516645 4016361021 2127352727 PEOUT '   '  ELSErrrIFNEGATIVE (.+117-77
       2717344064 7160455765 6440144040 1440404554 6345151515 5146564547 4164516645 4016361021 7), TYPEOUT '  '  ELSErrrIFNEGATIVE (.+1
       2127352727 2727173440 6471604557 6564401440 1440404556 4443404045 5644434040 4556444340 17-7777), TYPEOUT ' '  ENDC  ENDC  ENDC 
       4045564443 1515151515 6471604557 4364401636 1021212717 1515151515 6471604557 6564401440  ENDCrrrrrTYPEOCT (.+117)rrrrrTYPEOUT ' 
       4040404040 4020404040 4014151515 5146564547 4164516645 4016662257 4663352717 3440647160       0    'rrrIFNEGATIVE (V2OFS-7), TYP
       4557656440 1440404040 1440404554 6345151515 5146564547 4164516645 4016662257 4663352727 EOUT '    '  ELSErrrIFNEGATIVE (V2OFS-77
       1734406471 6045576564 4014404040 1440404554 6345151515 5146564547 4164516645 4016662257 ), TYPEOUT '   '  ELSErrrIFNEGATIVE (V2O
       4663352727 2717344064 7160455765 6440144040 1440404554 6345151515 5146564547 4164516645 FS-777), TYPEOUT '  '  ELSErrrIFNEGATIVE
       4016662257 4663352727 2727173440 6471604557 6564401440 1440404556 4443404045 5644434040  (V2OFS-7777), TYPEOUT ' '  ENDC  ENDC  
       4556444340 4045564443 1515151515 6471604557 4364401666 2257466317 1515151515 6471604557 ENDC  ENDCrrrrrTYPEOCT (V2OFS)rrrrrTYPEO
       6564401415 4040404016 1440406471 6045574364 4016662245 6243173440 4064716045 5765644014 UT 'r    ('  TYPEOCT (V2ERC),  TYPEOUT '
       4057664562 5441716317 1415151515 1515151515 4556444315 1515151515 1515151515 1154574311  OVERLAYS)'rrrrrrrrrENDCrrrrrrrrrrrtLOCt
       6245634556 4411006345 6440544340 4241435340 4657624056 4570644057 6645625441 7115151515 RESENDt SET LC BACK FOR NEXT OVERLAYrrrr
       1515151515 1515151515 4556444315 7777700000 4601722152 4601722152 4601722152 4601722152 rrrrrrrrrrENDCrbbX  F%Z1JF%Z1JF%Z1JF%Z1J
       4601722152 4601722152 4601722152 4601722152 4601722152 4601722152                       F%Z1JF%Z1JF%Z1JF%Z1JF%Z1JF%Z1J
 1405: 0003100013 4664562023 1361200413 3414400000 0011050505 0505404063 6441626440 5746405766  !+ "FTN03"Q0&",'    t*****  START OF OV
       4562544171 4056573640 2340435744 5156474005 0505050515 1515151515 1515151515 1515151515 ERLAY NO. 3 CODING *****rrrrrrrrrrrrrrrr
       1515151515 0040636441 6264404144 4560643555 5744454060 6257434563 6351564740 3636361515 rrrrr  START ADEPT-MODE PROCESSING ...rr
       1515151515 4144604344 7006115544 4162145611 5155474647 1100515541 4745406365 4260625747 rrrrrADPCDX:tMDAR'NtIMGFGt IMAGE SUBPROG
       6241554012 1515151515 1152604156 1136102315 1515151515 1152606362 1163456447 5511007145 RAM ?rrrrrtJPANt.+3rrrrrrtJPSRtSETGMt YE
       6334406345 6440476241 4670405557 4445151515 1152655560 1136102215 1515151515 1152606362 S, SET GRAFX MODErrrtJUMPt.+2rrrrrrtJPSR
       1163456441 5511004554 6345344063 4564404163 6345554254 7140555744 4515151515 1515151515 tSETAMt ELSE, SET ASSEMBLY MODErrrrrrrrr
       1141625544 1457114144 6064461100 6345644041 4445606440 5557444515 1141625544 1457114143 tARMD'OtADPTFt SET ADEPT MODErtARMD'OtAC
       4446471100 6345644013 4113404341 6244404654 4147151515 1141625544 1457114164 5156461100 DFGt SET "A" CARD FLAGrrrtARMD'OtATINFt 
       6345644056 5764406471 6045515640 5557444515 1515151515 1515151515 0040636441 6264405746 SET NOT TYPEIN MODErrrrrrrrrrr  START OF
       4056456740 4144456064 4063644164 4555455664 4060625743 4563635156 4740363636 1515151515  NEW ADEPT STATEMENT PROCESSING ...rrrrr
       1515151515 4144605544 0611526063 6211546354 5743110063 4166454054 5743416451 5756404357 rrrrrADPMD:tJPSRtLSLOCt SAVE LOCATION CO
       6556644562 4046576240 5451636451 5647151515 1152606362 1141446362 6411004566 4154654164 UNTER FOR LISTINGrrrtJPSRtADSRTt EVALUAT
       4540457060 6245636351 5756151515 1141625544 1457114144 5660461100 6345644056 5764406041 E EXPRESSIONrrrtARMD'OtADNPFt SET NOT PA
       6241554564 4562406364 4164455545 5664404654 4147151515 1141627057 1446111100 6245634564 RAMETER STATEMENT FLAGrrrtARXO'Ftt RESET
       4043575644 5164515756 4154405557 4445151515 1141625544 1141445645 4615151515 1515151515  CONDITIONAL MODErrrtARMDtADNEFrrrrrrrrr
       1515151515 0040565762 5541544055 4143505156 4540675762 4440576564 6065644036 3636151515 rrrrr  NORMAL MACHINE WORD OUTPUT ...rrr
       1515151515 4144605767 0611554441 6214561141 4456565411 0056655454 4045706062 4563635157 rrrrrADPOW:tMDAR'NtADNNLt NULL EXPRESSIO
       5640121515 1152604156 1451114144 5760631100 7145633440 4451636041 6443504046 5762405645 N ?rrtJPAN'ItADOPSt YES, DISPATCH FOR NE
       7064406364 4164455545 5664151515 1515151515 1155444162 1141446246 5611006371 5542575440 XT STATEMENTrrrrrrrrtMDARtADRFNt SYMBOL 
       6245464562 4556434540 5645434563 6341627140 1215151515 1152604156 1141446055 2211007145 REFERENCE NECESSARY ?rrrrtJPANtADPM2t YE
       6334405265 5560151515 1515151515 1155444162 1141446245 5411006245 5457434164 4142544540 S, JUMPrrrrrrrrtMDARtADRELt RELOCATABLE 
       4570606245 6363515756 4012151515 1152604156 1141446055 2111007145 6334405265 5560151515 EXPRESSION ?rrrtJPANtADPM1t YES, JUMPrrr
       1515151515 1155444162 1141444570 6011004554 6345344057 6564606564 4041426357 5465644540 rrrrrtMDARtADEXPt ELSE, OUTPUT ABSOLUTE 
       6757624440 6457406062 5747151515 1152606362 1157414263 1515151515 1152655560 1141444556 WORD TO PROGrrrtJPSRtOABSrrrrrtJUMPtADEN
       4411004757 4045564440 6364416445 5545566415 1515151515 4144605521 0611554441 6211414445 Dt GO END STATEMENTrrrrrrADPM1:tMDARtADE
       7060110057 6564606564 4062455457 4341644142 5445406757 6244406457 4060625747 6241551515 XPt OUTPUT RELOCATABLE WORD TO PROGRAMrr
       1152606362 1157624554 1515151515 1152655560 1141444556 4411004757 4045564440 6364416445 tJPSRtORELrrrrrtJUMPtADENDt GO END STATE
       5545566415 1515151515 4144605522 0611554441 6211414445 7060110063 4564404570 6062456363 MENTrrrrrrADPM2:tMDARtADEXPt SET EXPRESS
       5157564066 4154654540 4163406245 4645624556 4345151515 1141625544 1157625746 6311004040 ION VALUE AS REFERENCErrrtARMDtOROFSt   
       4057464663 4564151515 1155444162 1141446245 4611004645 6443504063 7155425754 4064414254  OFFSETrrrtMDARtADREFt FETCH SYMBOL TABL
       4540605751 5664456215 1152606362 1157624546 1100576564 6065644062 4546456245 5643454064 E POINTERrtJPSRtOREFt OUTPUT REFERENCE T
       5740637155 4257541515 1152655560 1141444556 4411006245 6465625640 6457406062 5743456363 O SYMBOLrrtJUMPtADENDt RETURN TO PROCESS
       4045564440 5746406364 4164455545 5664151515 1515151515 1515151515 7777700000 3772527650  END OF STATEMENTrrrrrrrrrrrrrbbX  /ZJ+H
       3772527650 3772527650 3772527650 3772527650 3772527650 3772527650 3772527650 3772527650 /ZJ+H/ZJ+H/ZJ+H/ZJ+H/ZJ+H/ZJ+H/ZJ+H/ZJ+H
       3772527650                                                                              /ZJ+H
 1665: 0003200013 4664562023 1361200477 3414400000 0040636441 6264404140 5645674045 7060624563  !0 "FTN03"Q0&b,'     START A NEW EXPRES
       6351575640 3636361515 1515151515 4144636264 0611526555 6011361100 4556646271 4064574063 SION ...rrrrrrrADSRT:tJUMPt.t ENTRY TO S
       4564656040 4570606245 6363515756 1515151515 1155444162 1446114144 4560543521 1100515651 ETUP EXPRESSIONrrrrrtMDAR'FtADEPL-1t INI
       6451415451 7245406365 4235457060 6245636351 5756406065 6350354457 6756151515 1141625544 TIALIZE SUB-EXPRESSION PUSH-DOWNrrrtARMD
       1141444560 6011004040 4063644143 5315151515 1141627057 1446111100 6245634564 4036363615 tADEPPt    STACKrrrrtARXO'Ftt RESET ...r
       1141625544 1163645545 4611004040 2163644045 6262576240 5756406364 4164455545 5664404654 tARMDtSTMEFt   1ST ERROR ON STATEMENT FL
       4147151515 1141625544 1141446246 5611004040 6245464562 4556434540 5645434563 6341627140 AGrrrtARMDtADRFNt   REFERENCE NECESSARY 
       4654414715 1141625544 1141446245 5411004040 6245545743 4164414254 4540457060 6245636351 FLAGrtARMDtADRELt   RELOCATABLE EXPRESSI
       5756404654 4147151515 1141625544 1141445656 5411004040 4570606245 6363515756 4056576440 ON FLAGrrrtARMDtADNNLt   EXPRESSION NOT 
       5665545440 4654414715 1515151515 4144210611 4162705714 4611110063 6441626440 5645674063 NULL FLAGrrrrrrAD1:tARXO'Ftt START NEW S
       6542354570 6062456363 5157564036 3636151515 1141625544 1141444570 6011004354 4541624045 UB-EXPRESSION ...rrrtARMDtADEXPt CLEAR E
       7060624563 6351575640 6641546545 1515151515 1152606362 1141444354 6211004040 4156444043 XPRESSION VALUErrrrrtJPSRtADCLRt   AND C
       5445416240 6445625540 6641546545 4041564440 4654414763 1515151515 1515151515 4144220611 LEAR TERM VALUE AND FLAGSrrrrrrrrrrAD2:t
       4162705714 4611110043 5445416240 4570644562 5641544062 4546456245 5643454046 5441471515 ARXO'Ftt CLEAR EXTERNAL REFERENCE FLAGrr
       1141625544 1141447062 4615151515 1515151515 4144224106 1152606362 1147416311 0047456440 tARMDtADXRFrrrrrrrrrAD2A:tJPSRtGASt GET 
       5645706440 4144456064 4063715542 5754403636 3615151515 1155444162 1450116371 5542221100 NEXT ADEPT SYMBOL ...rrrrtMDAR'HtSYMB2t 
       6467573567 5762444063 7155425754 4012151515 1152605463 1141442411 0071456334 4052655560 TWO-WORD SYMBOL ?rrrtJPLStAD4t YES, JUMP
       1515151515 1515151515 1155444162 1446114144 5721641100 6345416243 5040515640 5756453567 rrrrrrrrrrtMDAR'FtADO1Tt SEARCH IN ONE-W
       5762444057 6045624164 5762406441 4254451515 1152606362 1142636562 2115151515 1155444162 ORD OPERATOR TABLErrtJPSRtBSUR1rrrrtMDAR
       1446114144 5721451515 1152655560 1141442511 0052655560 4051464056 5764404657 6556441515 'FtADO1ErrtJUMPtAD5t JUMP IF NOT FOUNDrr
       1515151515 4144230611 5544416211 4144706246 1100414364 5157564057 6045624164 5762404657 rrrrrAD3:tMDARtADXRFt ACTION OPERATOR FO
       6556443440 4570644062 4546406345 6440121515 1152635463 1145626257 6211007145 6334406741 UND, EXT REF SET ?rrtJSLStERRORt YES, WA
       6256515647 4045626257 6215151515 1111456222 2131110040 4016515454 4547415440 4570644060 RNING ERRORrrrrttER219t   (ILLEGAL EXT P
       6245465170 4063434156 5645441715 1155444162 1451114263 6562601100 6341664540 5760456241 REFIX SCANNED)rtMDAR'ItBSURPt SAVE OPERA
       6457624046 5441476340 4156444044 5163604164 4350151515 1141625544 1141445760 6311006245 TOR FLAGS AND DISPATCHrrrtARMDtADOPSt RE
       6165516245 6340465441 4763404350 4543534012 1515151515 1152604156 1451114144 5760631100 QUIRES FLAGS CHECK ?rrrrrtJPAN'ItADOPSt 
       4451636041 6443504051 5555454451 4164455471 4051464056 5764151515 1515151515 1141624162 DISPATCH IMMEDIATELY IF NOTrrrrrrrrtARAR
       1442145614 4611110045 6641546541 6445405441 6364406445 6255406556 4357564451 6451575641 'B'N'Ftt EVALUATE LAST TERM UNCONDITIONA
       5454714012 1515151515 1155444162 1457114144 6371631100 5762344051 4640565764 3440637155 LLY ?rrrrrtMDAR'OtADSYSt OR, IF NOT, SYM
       4257544063 4166454440 1215151515 1155444162 1457114144 5663461100 5762405657 5635637155 BOL SAVED ?rrrrtMDAR'OtADNSFt OR NON-SYM
       4257545143 4064456255 4060455644 5156474012 1515151515 1152634156 1141456611 0045664154 BOLIC TERM PENDING ?rrrrrtJSANtAEVt EVAL
       6541644540 5441636440 6445625540 5146407145 6315151515 1515151515 1155444162 1442114144 UATE LAST TERM IF YESrrrrrrrrrtMDAR'BtAD
       5760631100 4645644350 4057604562 4164576240 4654414763 1515151515 1141624162 1442145614 OPSt FETCH OPERATOR FLAGSrrrrrtARAR'B'N'
       4611110064 4562555156 4164456340 6062456651 5765634045 7060624563 6351575640 1215151515 Ftt TERMINATES PREVIOUS EXPRESSION ?rrrr
       1152604156 1451114144 5760631100 5657344044 5163604164 4350406457 4060625743 4563634057 tJPAN'ItADOPSt NO, DISPATCH TO PROCESS O
       6045624164 5762151515 1515151515 1155444162 1141444560 6011007145 6334406365 4235457060 PERATORrrrrrrrrtMDARtADEPPt YES, SUB-EXP
       6240606563 5035445767 5640545163 6440455560 6471401215 1155447057 1446114144 4560543521 R PUSH-DOWN LIST EMPTY ?rtMDXO'FtADEPL-1
       1515151515 1152635463 1145626257 6211005657 3440674162 5651564740 4562625762 1515151515 rrrrrtJSLStERRORt NO, WARNING ERRORrrrrr
       1111456222 2025110040 4016655642 4154415643 4544406041 6245566450 4563456317 1515151515 ttER205t   (UNBALANCED PARENTHESES)rrrrr
       1155445162 1141446362 6411006245 6465625640 4662575540 6364416264 4057464045 7060624563 tMDIRtADSRTt RETURN FROM START OF EXPRES
       6351575615 1515151515 7777700000 2657130455 2657130455 2657130455 2657130455 2657130455 SIONrrrrrrbbX  6O"&M6O"&M6O"&M6O"&M6O"&M
       2657130455 2657130455 2657130455 2657130455 2657130455                                  6O"&M6O"&M6O"&M6O"&M6O"&M
 1170: 0003300013 4664562023 1361200334 3414400000 4144240611 5544416214 4611414457 2264110063  !8 "FTN03"Q0!,,'   AD4:tMDAR'FtADO2Tt S
       4541624350 4046576240 5760456241 6457624051 5640646757 3567576244 1515151515 1152606362 EARCH FOR OPERATOR IN TWO-WORDrrrrrtJPSR
       1142636562 2211004040 4057604562 4164576240 4451636041 6443504064 4142544515 1155444162 tBSUR2t    OPERATOR DISPATCH TABLErtMDAR
       1446114144 5722451515 1152655560 1136102211 0063535160 4051464056 5764404657 6556441515 'FtADO2ErrtJUMPt.+2t SKIP IF NOT FOUNDrr
       1152655560 1141442311 0047574044 5163604164 4350405146 4046576556 4415151515 1515151515 tJUMPtAD3t GO DISPATCH IF FOUNDrrrrrrrrr
       0040606257 4345636340 5657563557 6045624164 5762406371 5542575440 3636361515 1515151515   PROCESS NON-OPERATOR SYMBOL ...rrrrrrr
       4144250611 5544416211 6371554221 1100555766 4540637155 4257544064 5740644555 6040634166 AD5:tMDARtSYMB1t MOVE SYMBOL TO TEMP SAV
       4515151515 1141625544 1141446455 2115151515 1155444162 1163715542 2215151515 1141625544 ErrrrtARMDtADTM1rrrrtMDARtSYMB2rrrrtARMD
       1141446455 2215151515 1155444162 1141446371 6311006062 4566515765 6340637155 4257544063 tADTM2rrrrtMDARtADSYSt PREVIOUS SYMBOL S
       4166454440 1215151515 1155444162 1457114144 5663461100 5762405657 5635637155 4257545143 AVED ?rrrrtMDAR'OtADNSFt OR NON-SYMBOLIC
       4066415465 4540606245 6345566440 1215151515 1152634156 1141456611 0071456334 4045664154  VALUE PRESENT ?rrrrtJSANtAEVt YES, EVAL
       6541644540 5441636440 6445625515 1515151515 1155444162 1141446455 2111005557 6645404365 UATE LAST TERMrrrrrrtMDARtADTM1t MOVE CU
       6262455664 4063715542 5754406457 4063416645 4041624541 1515151515 1141625544 1141446371 RRENT SYMBOL TO SAVE AREArrrrrtARMDtADSY
       2115151515 1155444162 1141446455 2215151515 1141625544 1141446371 2215151515 1155444162 1rrrrtMDARtADTM2rrrrtARMDtADSY2rrrrtMDAR
       1141446371 4111006341 6645406371 5542575440 6471604515 1141625544 1141446371 3115151515 tADSYAt SAVE SYMBOL TYPErtARMDtADSY9rrrr
       1155444162 1141447062 4611006341 6645404570 6445625641 5440624546 4562455643 4540465441 tMDARtADXRFt SAVE EXTERNAL REFERENCE FLA
       4715151515 1141625544 1141447062 6315151515 1141625544 1457114144 6371631100 6345644063 GrrrrtARMDtADXRSrrrrtARMD'OtADSYSt SET S
       7155425754 4063416645 4440465441 4715151515 1152655560 1141442211 0047574054 5757534046 YMBOL SAVED FLAGrrrrtJUMPtAD2t GO LOOK F
       5762405645 7064406371 5542575415 1515151515 1515151515 0040414664 4562404556 4440574640 OR NEXT SYMBOLrrrrrrrrrrr  AFTER END OF 
       4570606245 6363515756 4036363615 1515151515 4144455644 0611416255 4414571141 4456604611 EXPRESSION ...rrrrrrADEND:tARMD'OtADNPFt
       0063456440 5657644060 4162415545 6445624055 5744454046 5441471515 1155444162 1141446371  SET NOT PARAMETER MODE FLAGrrtMDARtADSY
       4111004645 6443504063 7155425754 4064716045 4057464045 5644405760 4562416457 6215151515 At FETCH SYMBOL TYPE OF END OPERATORrrrr
       1155447057 1446112311 0056576440 4140636441 6445554556 6440644562 5551564164 5762401215 tMDXO'Ft3t NOT A STATEMENT TERMINATOR ?r
       1152635463 1145626257 6211007145 6334406741 6256515647 4045626257 6215151515 1111456222 tJSLStERRORt YES, WARNING ERRORrrrrttER2
       2130110040 4016555163 6351564740 6364416445 5545566440 6445625551 5641645762 1715151515 18t   (MISSING STATEMENT TERMINATOR)rrrr
       1141624162 1470116364 4143641100 5156444570 4043576556 6440574640 4144456064 4063644164 tARAR'XtSTACTt INDEX COUNT OF ADEPT STAT
       4555455664 6315151515 1152655560 1451114144 5760631100 5657674044 5163604164 4350406457 EMENTSrrrrtJUMP'ItADOPSt NOW DISPATCH TO
       4063644162 6440564567 4063644164 4555455664 1515151515 1515151515 1515151515 7777700000  START NEW STATEMENTrrrrrrrrrrrrrrrbbX  
       0714267232 0714267232 0714267232 0714267232 0714267232 0714267232 0714267232 0714267232 _'6Z;_'6Z;_'6Z;_'6Z;_'6Z;_'6Z;_'6Z;_'6Z;
       0714267232 0714267232                                                                   _'6Z;_'6Z;
 1590: 0003400013 4664562023 1361200460 3414400000 0040474556 4562415440 6351475640 5760456241  !  "FTN03"Q0&P,'     GENERAL SIGN OPERA
       6457624062 5765645156 4540161310 1334401335 1334401305 1334401337 1334401337 3713344013 TOR ROUTINE ("+", "-", "*", "/", "//", "
       1413344013 0413344013 7613174036 3636151515 1515151515 4144634757 0611554441 6214531141 '", "&", "+") ...rrrrrrrrADSGO:tMDAR'KtA
       4457606311 0046456443 5040576045 6241645762 4046544147 6315151515 1141624162 1453144611 DOPSt FETCH OPERATOR FLAGSrrrrtARAR'K'Ft
       1100635051 4664405156 4063514756 4057604562 4164576240 5665554245 6215151515 1155444162 t SHIFT IN SIGN OPERATOR NUMBERrrrrtMDAR
       1441114327 2711005541 6353151515 1141625544 1141446347 5611006341 6645404657 6240564570 'AtC77t MASKrrrtARMDtADSGNt SAVE FOR NEX
       6440456641 5465416445 4043415454 1515151515 1152655560 1141442211 0047456440 5645706440 T EVALUATE CALLrrrrrtJUMPtAD2t GET NEXT 
       6371554257 5415151515 1515151515 1515151515 0040457064 4562564154 4062454645 6245564345 SYMBOLrrrrrrrrrrrrrr  EXTERNAL REFERENCE
       4057604562 4164576263 4016137313 3440137373 1334401373 7373131740 6062574345 6363515647  OPERATORS ("$", "$$", "$$$") PROCESSING
       4062576564 5156454036 3636151515 1515151515 4144442306 1141624162 1470114144 7062461100  ROUTINE ...rrrrrrrrADD3:tARAR'XtADXRFt 
       4556646271 4046576240 7373730640 6345644046 5441474064 5740231515 4144442206 1141624162 ENTRY FOR $$$: SET FLAG TO 3rrADD2:tARAR
       1470114144 7062461100 4556646271 4046576240 7373064040 6345644046 5441474064 5740221515 'XtADXRFt ENTRY FOR $$:  SET FLAG TO 2rr
       4144442106 1141624162 1470114144 7062461100 4556646271 4046576240 7306404040 6345644046 ADD1:tARAR'XtADXRFt ENTRY FOR $:   SET F
       5441474064 5740211515 1152655560 1141442241 1100475740 4147415156 1515151515 1515151515 LAG TO 1rrtJUMPtAD2At GO AGAINrrrrrrrrrr
       1515151515 0040457043 5441554164 5157564055 4162534016 1303131740 5760456241 6457624062 rrrrr  EXCLAMATION MARK ("!") OPERATOR R
       5765645156 4540363636 1515151515 1515151515 4144457043 0611526063 6211474143 1100474564 OUTINE ...rrrrrrrrrrADEXC:tJPSRtGACt GET
       4056457064 4043504162 4143644562 1515151515 1152606362 1144636043 5011004451 6360416443  NEXT CHARACTERrrrrrtJPSRtDSPCHt DISPATC
       5040575640 5164403636 3615151515 1102420350 1141444570 2111004040 4251644062 5764416445 H ON IT ...rrrrtcB!HtADEX1t   BIT ROTATE
       1515151515 1102530350 1141444570 2211004040 4350416241 4364456240 6257644164 4515151515 rrrrrtcK!HtADEX2t   CHARACTER ROTATErrrr
       1102500350 1141444570 2311004040 5041544635 6757624440 6257644164 4515151515 1135201515 tcH!HtADEX3t   HALF-WORD ROTATErrrrt-0rr
       1515151515 1152606362 1145626257 6211006741 6256515647 4045626257 6240514640 5657644066 rrrrrtJPSRtERRORt WARNING ERROR IF NOT V
       4154514440 4350416241 4364456215 1111456222 2021151515 1141625544 1457114743 4363661100 ALID CHARACTERrttER201rrrtARMD'OtGCCSVt 
       6341664540 4350416241 4364456240 4657624062 4535624541 4415151515 1152655560 1141442211 SAVE CHARACTER FOR RE-READrrrrtJUMPtAD2t
       0047574041 4741515615 1515151515 4144457021 0611554441 6214421141 4445706011 0062576441  GO AGAINrrrrrrADEX1:tMDAR'BtADEXPt ROTA
       6445404570 6062456363 5157564021 4042516415 1152655560 1141444570 2310211100 6353516015 TE EXPRESSION 1 BITrtJUMPtADEX3+1t SKIPr
       1515151515 4144457022 0611554441 6214531141 4445706011 0062576441 6445404570 6062456363 rrrrrADEX2:tMDAR'KtADEXPt ROTATE EXPRESS
       5157564026 4042516463 1515151515 1152655560 1141444570 2310211100 6353516015 1515151515 ION 6 BITSrrrrrtJUMPtADEX3+1t SKIPrrrrrr
       4144457023 0611554441 6214501141 4445706011 0062576441 6445404570 6062456363 5157564021 ADEX3:tMDAR'HtADEXPt ROTATE EXPRESSION 1
       2540425164 6315151515 1515151515 1141625544 1141446455 2111006341 6645406257 6441644544 5 BITSrrrrrrrrrtARMDtADTM1t SAVE ROTATED
       4045706062 4563635157 5640664154 6545151515 1155444162 1141446245 5411004570 6062456363  EXPRESSION VALUErrrtMDARtADRELt EXPRESS
       5157564062 4554574341 6441425445 4012151515 1155444162 1457114144 6246561100 5762406245 ION RELOCATABLE ?rrrtMDAR'OtADRFNt OR RE
       4645624556 4345405645 4345636341 6271401215 1152604156 1136102411 0071456334 4051545445 FERENCE NECESSARY ?rtJPANt.+4t YES, ILLE
       4741544062 5764416451 5756344063 5351601515 1515151515 1155444162 1141446455 2111004554 GAL ROTATION, SKIPrrrrrrrtMDARtADTM1t EL
       6345344057 5334404645 6443504056 4567404570 6062456363 5157564066 4154654515 1141625544 SE, OK, FETCH NEW EXPRESSION VALUErtARMD
       1141444570 6011006341 6645404570 6062456363 5157564066 4154654515 1152655560 1141442211 tADEXPt SAVE EXPRESSION VALUErtJUMPtAD2t
       0047456440 5645706440 6371554257 5415151515 1515151515 1152606362 1145626257 6211006245  GET NEXT SYMBOLrrrrrrrrrtJPSRtERRORt RE
       6057626440 6741625651 5647404562 6257621515 1111456222 2020110040 4016515454 4547415440 PORT WARNING ERRORrrttER200t   (ILLEGAL 
       6257644164 5157561715 1152655560 1141442211 0041564440 4745644056 4570644063 7155425754 ROTATION)rtJUMPtAD2t AND GET NEXT SYMBOL
       1515151515 1515151515 1515151515 7777700000 5305161773 5305161773 5305161773 5305161773 rrrrrrrrrrrrrrrbbX  K*()$K*()$K*()$K*()$
       5305161773 5305161773 5305161773 5305161773 5305161773 5305161773                       K*()$K*()$K*()$K*()$K*()$K*()$
 1435: 0003500013 4664562023 1361200421 3414400000 0040604562 5157444057 6045624164 5762401613  !H "FTN03"Q0&1,'     PERIOD OPERATOR ("
       3613174060 6257434563 6351564740 6257656451 5645403636 3615151515 1515151515 4144604562 .") PROCESSING ROUTINE ...rrrrrrrrrADPER
       0611416255 4414571141 4464625411 0063456440 6245545743 4164414254 4540644562 5540465441 :tARMD'OtADTRLt SET RELOCATABLE TERM FLA
       4715151515 1155444162 1157545743 1100464564 4350405457 4341645157 5640435765 5664456240 GrrrrtMDARtOLOCt FETCH LOCATION COUNTER 
       6641546545 1515151515 1141564162 1143201100 6345644072 4562574051 4640576564 6065644063 VALUErrrrrtANARtC0t SET ZERO IF OUTPUT S
       6457606045 4415151515 1515151515 4144604521 0611416255 4411414464 6255110063 4166454064 TOPPEDrrrrrrrrrADPE1:tARMDtADTRMt SAVE T
       4562554066 4154654515 1141625544 1457114144 5663461100 6345644056 5756356371 5542575451 ERM VALUErtARMD'OtADNSFt SET NON-SYMBOLI
       4340644562 5540465441 4715151515 1152655560 1141442211 0047574041 4741515640 4657624056 C TERM FLAGrrrrtJUMPtAD2t GO AGAIN FOR N
       4570644045 7060624563 6351575640 6371554257 5415151515 1515151515 1515151515 0040625147 EXT EXPRESSION SYMBOLrrrrrrrrrrrrrr  RIG
       5064404262 4143534564 4057604562 4164576240 1613021317 4062576564 5156454036 3636151515 HT BRACKET OPERATOR ("c") ROUTINE ...rrr
       1515151515 4144624262 0611526063 6211474143 1100474564 4041444560 6440435041 6241436445 rrrrrADRBR:tJPSRtGACt GET ADEPT CHARACTE
       6215151515 1152655560 1141444164 2111004757 4043504543 5340514640 4337621515 1515151515 RrrrrtJUMPtADAT1t GO CHECK IF C/Rrrrrrrr
       1515151515 0040416440 6351475640 5760456241 6457624016 1375131740 6257656451 5645403636 rrrrr  AT SIGN OPERATOR ("@") ROUTINE ..
       3615151515 1515151515 4144416463 0611526063 6211474143 1100474564 4041444560 6440435041 .rrrrrrrrrADATS:tJPSRtGACt GET ADEPT CHA
       6241436445 6215151515 1155444145 1143506471 2111006563 4540645740 4645644350 4041634351 RACTERrrrrtMDAEtCHTY1t USE TO FETCH ASCI
       5140435756 6645626351 5756404357 4445151515 1141625162 1446111100 4040576564 4057464042 I CONVERSION CODErrrtARIR'Ftt   OUT OF B
       5164634022 2335223140 5746404350 4162406441 4254451515 1155444162 1441114321 2727110055 ITS 23-29 OF CHAR TABLErrtMDAR'AtC177t M
       4163534041 6343515140 4350416215 1515151515 4144416421 0611416255 4411414464 6255110063 ASK ASCII CHARrrrrrrADAT1:tARMDtADTRMt S
       4166454043 5041624143 6445624066 4154654540 4163404365 6262406445 6255151515 1141625544 AVE CHARACTER VALUE AS CURR TERMrrrtARMD
       1457114144 5663461100 6345644056 5756356371 5542575451 4340644562 5540606245 6345566415 'OtADNSFt SET NON-SYMBOLIC TERM PRESENTr
       1155444162 1147435041 6211004645 6443504063 5765624345 4043504162 4143644562 1515151515 tMDARtGCHARt FETCH SOURCE CHARACTERrrrrr
       1155447057 1446112125 1100433762 4012151515 1152605463 1141442211 0056573440 5753344047 tMDXO'Ft15t C/R ?rrrtJPLStAD2t NO, OK, G
       5740414741 5156151515 1515151515 1152606362 1145626257 6211004554 6345344067 4162565156 O AGAINrrrrrrrrtJPSRtERRORt ELSE, WARNIN
       4740456262 5762151515 1111456222 2220110040 4016515454 4547415440 6563454057 4640433762 G ERRORrrrttER220t   (ILLEGAL USE OF C/R
       1715151515 1141625544 1457114743 4363661100 6345644064 5740624535 6245414440 5164151515 )rrrrtARMD'OtGCCSVt SET TO RE-READ ITrrr
       1152655560 1141442211 0041564440 5265556040 4241435340 6457406343 4156151515 1515151515 tJUMPtAD2t AND JUMP BACK TO SCANrrrrrrrr
       1515151515 0040135457 4313405760 4562416457 6240445163 6041644350 4062576564 5156454036 rrrrr  "LOC" OPERATOR DISPATCH ROUTINE .
       3636151515 1515151515 4144544357 0611526063 6211414463 6264110063 6441626440 5645674045 ..rrrrrrrrADLCO:tJPSRtADSRTt START NEW E
       7060624563 6351575615 1155444162 1456114144 6245541100 6245545743 4164414254 4540457060 XPRESSIONrtMDAR'NtADRELt RELOCATABLE EXP
       6245636351 5756401215 1152604156 1141445443 2111005657 3440526555 6040465762 4045626257 RESSION ?rtJPANtADLC1t NO, JUMP FOR ERRO
       6215151515 1515151515 1155444162 1450114144 4570601100 4156714066 4154654540 5156406560 RrrrrrrrrrtMDAR'HtADEXPt ANY VALUE IN UP
       6045624050 4154464012 1515151515 1152605463 1141445443 2211007145 6334405265 5560404657 PER HALF ?rrrrrtJPLStADLC2t YES, JUMP FO
       6240456262 5762151515 1515151515 1155444162 1157545743 1100576564 6065644063 6457606045 R ERRORrrrrrrrrtMDARtOLOCt OUTPUT STOPPE
       4440121515 1152604156 1141444556 4411007145 6334406245 6465625640 4657624045 5644405746 D ?rrtJPANtADENDt YES, RETURN FOR END OF
       4063644164 4555455664 1515151515 1515151515 7777700000 7352766423 7352766423 7352766423  STATEMENTrrrrrrrrrrbbX  $J+T3$J+T3$J+T3
       7352766423 7352766423 7352766423 7352766423 7352766423 7352766423 7352766423            $J+T3$J+T3$J+T3$J+T3$J+T3$J+T3$J+T3
 1480: 0003600013 4664562023 1361200432 3414400000 1155444162 1141444570 6011004554 6345344046  !P "FTN03"Q0&;,'   tMDARtADEXPt ELSE, F
       4564435040 4570606245 6363515756 4066415465 4515151515 1152606362 1163456454 4311006345 ETCH EXPRESSION VALUErrrrtJPSRtSETLCt SE
       6440645041 6440416340 5645674054 4315151515 1152655560 1141444556 4411006245 6465625640 T THAT AS NEW LCrrrrtJUMPtADENDt RETURN 
       4657624045 5644405746 4063644164 4555455664 1515151515 1515151515 4144544321 0611526063 FOR END OF STATEMENTrrrrrrrrrrADLC1:tJPS
       6211456262 5762110067 4162565156 4740456262 5762151515 1111456222 2027110040 4016545743 RtERRORt WARNING ERRORrrrttER207t   (LOC
       4045706062 4056576440 6245545743 4164414254 4517151515 1152655560 1141444556 4411004757  EXPR NOT RELOCATABLE)rrrtJUMPtADENDt GO
       4060625743 4563634045 5644405746 4063644164 4555455664 1515151515 1515151515 4144544322  PROCESS END OF STATEMENTrrrrrrrrrrADLC2
       0611526063 6211456262 5762110067 4162565156 4740456262 5762151515 1111456222 2120110040 :tJPSRtERRORt WARNING ERRORrrrttER210t  
       4016515454 4547415440 5457434045 7060624066 4154654517 1515151515 1152655560 1141444556  (ILLEGAL LOC EXPR VALUE)rrrrrtJUMPtADEN
       4411006062 5743456363 4045564440 5746406364 4164455545 5664151515 1515151515 1515151515 Dt PROCESS END OF STATEMENTrrrrrrrrrrrrr
       0040136360 4543514154 1340415644 4013636045 4351415470 1340576045 6241645762 4044516360   "SPECIAL" AND "SPECIALX" OPERATOR DISP
       4164435040 6257656451 5645634036 3636151515 1515151515 4144636057 0611554441 6211576360 ATCH ROUTINES ...rrrrrrrrADSPO:tMDARtOSP
       4321110013 6360454351 4154133440 6345646560 4057656460 6564404341 5454406457 4073576360 C1t "SPECIAL", SETUP OUTPUT CALL TO $OSP
       1515151515 1152655560 1136102211 0063535160 1515151515 1515151515 4144637057 0611554441 rrrrrtJUMPt.+2t SKIPrrrrrrrrrrADSXO:tMDA
       6211576762 4421110013 6360454351 4154701334 4063456465 6040434154 5440645740 7357674415 RtOWRD1t "SPECIALX", SETUP CALL TO $OWDr
       1515151515 1141625544 1141446360 4311006341 6645405765 6460656440 4341545415 1152606362 rrrrrtARMDtADSPCt SAVE OUTPUT CALLrtJPSR
       1141446362 6411006364 4162644056 4567404570 6062456363 5157561515 1515151515 1152606362 tADSRTt START NEW EXPRESSIONrrrrrrrtJPSR
       1141444763 6611004745 6440637155 4257541463 4066415465 4515151515 1152655560 1141446360 tADGSVt GET SYMBOL'S VALUErrrrtJUMPtADSP
       2111004562 6257624051 4640655644 4546515645 4440576240 4570644562 5641541515 1515151515 1t ERROR IF UNDEFINED OR EXTERNALrrrrrrr
       4144636043 0611526063 6211110057 6564606564 4063604543 5141544043 4154544016 7357636040 ADSPC:tJPSRtt OUTPUT SPECIAL CALL ($OSP 
       5762407357 6744171515 1152655560 1141444556 4411004757 4045564440 6364416445 5545566415 OR $OWD)rrtJUMPtADENDt GO END STATEMENTr
       1515151515 4144636021 0611526063 6211456262 5762110067 4162565156 4740456262 5762151515 rrrrrADSP1:tJPSRtERRORt WARNING ERRORrrr
       1111456222 2026110040 4016457060 6245636351 5756406641 5465454065 5644454640 5762404570 ttER206t   (EXPRESSION VALUE UNDEF OR EX
       6417151515 1152655560 1141444556 4411005147 5657624540 6364416445 5545566415 1515151515 T)rrrtJUMPtADENDt IGNORE STATEMENTrrrrrr
       1515151515 0040604162 4155456445 6240444546 5156454057 6045624164 5762401633 1740625765 rrrrr  PARAMETER DEFINE OPERATOR (=) ROU
       6451564540 3636361515 1515151515 4144604162 0611554441 6214561141 4456565411 0045706062 TINE ...rrrrrrrADPAR:tMDAR'NtADNNLt EXPR
       4563635157 5640565764 4056655454 4012151515 1155444162 1441114144 5660461100 4040405762 ESSION NOT NULL ?rrrtMDAR'AtADNPFt    OR
       4060416241 5545644562 4041546245 4144714012 1515151515 1152604156 1136102411 0056573440  PARAMETER ALREADY ?rrrrrtJPANt.+4t NO, 
       6353516015 1515151515 1152606362 1145626257 6211004562 6257624051 4640455164 5045621515 SKIPrrrrrrtJPSRtERRORt ERROR IF EITHERrr
       1111456222 2030151515 1152655560 1141442211 0051475657 6245401333 1340576045 6241645762 ttER208rrrtJUMPtAD2t IGNORE "=" OPERATOR
       1515151515 1515151515 1155444162 1141446371 6311006371 5542575440 6341664544 4012151515 rrrrrrrrrrtMDARtADSYSt SYMBOL SAVED ?rrr
       1155444162 1441114144 6371311100 4040404156 4440415460 5041566555 4562514340 6371554257 tMDAR'AtADSY9t    AND ALPHANUMERIC SYMBO
       5440121515 1152604156 1136102411 0071456334 4063535160 1515151515 1515151515 4144604121 L ?rrtJPANt.+4t YES, SKIPrrrrrrrrrrADPA1
       0611526063 6211456262 5762110045 6262576240 5146405657 6440415460 5041566555 4562514315 :tJPSRtERRORt ERROR IF NOT ALPHANUMERICr
       1111456222 2031110040 4040637155 4257544063 4166454415 1152655560 1141442211 0047574051 ttER209t    SYMBOL SAVEDrtJUMPtAD2t GO I
       4756576245 4013331340 5760456241 6457621515 1515151515 7777700000 4754471137 4754471137 GNORE "=" OPERATORrrrrrrrbbX  GLGt/GLGt/
       4754471137 4754471137 4754471137 4754471137 4754471137 4754471137 4754471137 4754471137 GLGt/GLGt/GLGt/GLGt/GLGt/GLGt/GLGt/GLGt/
 1335: 0003700013 4664562023 1361200375 3414400000 1141627057 1446151515 1141625544 1141446371  !X "FTN03"Q0!@,'   tARXO'FrrrtARMDtADSY
       6311006245 6345644063 7155425754 4063416645 4440465441 4715151515 1141625544 1141445660 St RESET SYMBOL SAVED FLAGrrrrtARMDtADNP
       4611006345 6440604162 4155456445 6240555744 4540465441 4715151515 1155444162 1141446371 Ft SET PARAMETER MODE FLAGrrrrtMDARtADSY
       2111005557 6645406371 5542575440 6457406041 6241554564 4562151515 1141625544 1141446063 1t MOVE SYMBOL TO PARAMETERrrrtARMDtADPS
       2111004040 4063715542 5754404265 4646456215 1155444162 1141446371 2215151515 1141625544 1t    SYMBOL BUFFERrtMDARtADSY2rrrrtARMD
       1141446063 2215151515 1152606362 1141446362 6411004566 4154654164 4540457060 6245636351 tADPS2rrrrtJPSRtADSRTt EVALUATE EXPRESSI
       5756151515 1155444162 1141446063 2111005557 6645406371 5542575440 4241435315 1141625544 ONrrrtMDARtADPS1t MOVE SYMBOL BACKrtARMD
       1141446371 2115151515 1155444162 1141446063 2215151515 1141625544 1141446371 2215151515 tADSY1rrrrtMDARtADPS2rrrrtARMDtADSY2rrrr
       1152606362 1141445566 4211005557 6645406457 4046576264 6241564063 7155425754 4042654646 tJPSRtADMVBt MOVE TO FORTRAN SYMBOL BUFF
       4562151515 1152606362 1163656263 7155110063 4541624350 4046576240 6371554257 5415151515 ERrrrtJPSRtSURSYMt SEARCH FOR SYMBOLrrrr
       1152606362 1163646371 5511006364 5762454051 4640565764 4051564064 4142544515 1155444162 tJPSRtSTSYMt STORE IF NOT IN TABLErtMDAR
       1451145311 6365626011 0067416340 6371554257 5440414060 4162415545 6445624012 1515151515 'I'KtSURPt WAS SYMBOL A PARAMETER ?rrrrr
       1155444162 1441144611 2720110040 4040576240 6556444546 5156454440 1215151515 1154637057 tMDAR'A'Ft70t    OR UNDEFINED ?rrrrtLSXO
       1143262015 1152605463 1141446041 3011004562 6257624051 4640635755 4564505156 4540455463 tC60rtJPLStADPA8t ERROR IF SOMETHINE ELS
       4515151515 1515151515 1155444162 1451145011 6365626011 0062455557 6645406471 6045344044 ErrrrrrrrrtMDAR'I'HtSURPt REMOVE TYPE, D
       4546515645 4440425164 6315151515 1155444162 1441145414 5015151515 1127270350 1127272727 EFINED BITSrrrrtMDAR'A'L'Hrrrrt77!Ht7777
       2715151515 1155444162 1457145432 1126202020 2011006345 6440637155 4257544064 7160454033 7rrrrtMDAR'O'L;t60000t SET SYMBOL TYPE =
       4060416241 5545644562 1515151515 1141625544 1451145011 6365626015 1155444162 1163656260  PARAMETERrrrrrtARMD'I'HtSURPrtMDARtSURP
       1100474564 4060575156 6445624064 5740664154 6545406757 6244631515 1155444163 1446145611 t GET POINTER TO VALUE WORDSrrtMDAS'F'Nt
       2215151515 1141625544 1164552315 1155444162 1141446246 5611006245 4645624556 4345405645 2rrrrtARMDtTM3rtMDARtADRFNt REFERENCE NE
       4345636341 6271401215 1152604156 1141446041 2211005265 5560405146 4071456315 1515151515 CESSARY ?rtJPANtADPA2t JUMP IF YESrrrrrr
       1155444162 1141446245 5411006245 5457434164 4142544540 4570606245 6363515756 4012151515 tMDARtADRELt RELOCATABLE EXPRESSION ?rrr
       1152604156 1141446041 2311007145 6334405265 5560151515 1515151515 1155444162 1163715542 tJPANtADPA3t YES, JUMPrrrrrrrrtMDARtSYMB
       2111006741 6340637155 4257544013 6645626351 5756134012 1515151515 1155447057 1454151515 1t WAS SYMBOL "VERSION" ?rrrrrtMDXO'Lrrr
       1164457064 1114664562 6351141515 1141624162 1446145014 5715151515 1152605463 1141446041 tTEXTt'VERSI'rrtARAR'F'H'OrrrrtJPLStADPA
       3111006353 5160405146 4056576415 1515151515 1155444162 1450116371 5542221100 6445636440 9t SKIP IF NOTrrrrrrtMDAR'HtSYMB2t TEST 
       6345435756 4440675762 4415151515 1155447057 1446111664 4570646251 4750644014 5756140342 SECOND WORDrrrrtMDXO'Ft(TEXTRIGHT 'ON'!B
       0342034217 1515151515 1152605463 1141446041 3111006353 5160405146 4056576415 1515151515 !B!B)rrrrrtJPLStADPA9t SKIP IF NOTrrrrrr
       1155444162 1451113666 4562631100 6245555766 4540575444 4066456263 5157561515 1155444162 tMDAR'It.VERSt REMOVE OLD VERSIONrrtMDAR
       1441114327 2715151515 1141625544 1451113666 4562631515 1155444162 1453114144 4570601100 'AtC77rrrrtARMD'It.VERSrrtMDAR'KtADEXPt 
       4745644056 4567406645 6263515756 1515151515 1155444162 1441145311 4323271515 1155444162 GET NEW VERSIONrrrrrtMDAR'A'KtC37rrtMDAR
       1457145111 3666456263 1100435755 4251564515 1141625544 1451113666 4562631515 1515151515 'O'It.VERSt COMBINErtARMD'It.VERSrrrrrrr
       7777700000 3603411257 3603411257 3603411257 3603411257 3603411257 3603411257 3603411257 bbX  .!A?O.!A?O.!A?O.!A?O.!A?O.!A?O.!A?O
       3603411257 3603411257 3603411257                                                        .!A?O.!A?O.!A?O
 1235: 0004000013 4664562023 1361200351 3414400000 4144604131 0611554441 6214511450 1163656260  &  "FTN03"Q0!I,'   ADPA9:tMDAR'I'HtSURP
       1100634564 4063715542 5754404142 6357546564 4515151515 1155444163 1446112420 2020151515 t SET SYMBOL ABSOLUTErrrrtMDAS'Ft4000rrr
       1141625544 1451145011 6365626015 1515151515 4144604123 0611554441 6214511450 1163656260 tARMD'I'HtSURPrrrrrrADPA3:tMDAR'I'HtSURP
       1100634564 4063715542 5754404445 4651564544 1515151515 1155444163 1446112420 2015151515 t SET SYMBOL DEFINEDrrrrrtMDAS'Ft400rrrr
       1141625544 1451145011 6365626015 1515151515 4144604122 0611554441 6211414462 4546110063 tARMD'I'HtSURPrrrrrrADPA2:tMDARtADREFt S
       4166454062 4546456245 5643454066 4154654515 1141625544 1451116455 2311004040 4041634046 AVE REFERENCE VALUErtARMD'ItTM3t    AS F
       5162636440 6641546545 4067576244 1515151515 1155444162 1141444570 6011006364 5762454045 IRST VALUE WORDrrrrrtMDARtADEXPt STORE E
       7060624563 6351575640 6641546545 1515151515 1141625544 1451147011 6455231100 4040405156 XPRESSION VALUErrrrrtARMD'I'XtTM3t    IN
       6457406345 4357564440 6371554257 5440664154 6545406757 6244151515 1152655560 1141444556 TO SECOND SYMBOL VALUE WORDrrrtJUMPtADEN
       4411004757 4045564440 6364416445 5545566415 1515151515 4144604130 0611526063 6211456262 Dt GO END STATEMENTrrrrrrADPA8:tJPSRtERR
       5762110045 6262576240 5146406371 5542575440 5657644041 4060416241 5545644562 1515151515 ORt ERROR IF SYMBOL NOT A PARAMETERrrrrr
       1111456222 2222151515 1152655560 1141444556 4411004757 4045564440 6364416445 5545566415 ttER222rrrtJUMPtADENDt GO END STATEMENTr
       1515151515 1515151515 1515151515 0040544546 6440604162 4556645045 6351634016 1316131740 rrrrrrrrrrrrrrr  LEFT PARENTHESIS ("(") 
       5760456241 6457624062 5765645156 4540363636 1515151515 1515151515 4144546062 0611554441 OPERATOR ROUTINE ...rrrrrrrrrrADLPR:tMDA
       6211414445 6060110060 6563503544 5767564054 5163644041 6440455644 4012151515 1155447057 RtADEPPt PUSH-DOWN LIST AT END ?rrrtMDXO
       1446114144 4560451515 1152605463 1136102411 0063535160 4051464056 5764151515 1515151515 'FtADEPErrtJPLSt.+4t SKIP IF NOTrrrrrrrr
       1152606362 1145626257 6211004562 6257624051 4640466554 5415151515 1111456222 2022110040 tJPSRtERRORt ERROR IF FULLrrrrttER202t  
       4016645757 4055415671 4054454664 4060416245 5663171515 1152655560 1141442211 0051475657  (TOO MANY LEFT PARENS)rrtJUMPtAD2t IGNO
       6245406450 4540544546 6440604162 4556151515 1515151515 1155444162 1141446347 5611006341 RE THE LEFT PARENrrrrrrrrtMDARtADSGNt SA
       6645406351 4756405760 4562416457 6240575640 5451636415 1141625544 1451147011 4144456060 VE SIGN OPERATOR ON LISTrtARMD'I'XtADEPP
       1515151515 1155444162 1141444570 6011006341 6645404570 6062456363 5157564066 4154654540 rrrrrtMDARtADEXPt SAVE EXPRESSION VALUE 
       5756405451 6364151515 1141625544 1451147011 4144456060 1515151515 1152655560 1141442111 ON LISTrrrtARMD'I'XtADEPPrrrrrtJUMPtAD1t
       0047574063 6441626440 5645706440 4570606245 6363515756 1515151515 1515151515 1515151515  GO START NEXT EXPRESSIONrrrrrrrrrrrrrrr
       1515151515 0040625147 5064406041 6245566450 4563516340 1613171317 4057604562 4164576240 rrrrr  RIGHT PARENTHESIS (")") OPERATOR 
       6257656451 5645403636 3615151515 1515151515 4144626062 0611554441 6211414445 6060110060 ROUTINE ...rrrrrrrrrADRPR:tMDARtADEPPt P
       6563503544 5767564054 5163644045 5560647140 1215151515 1155447057 1446114144 4560543521 USH-DOWN LIST EMPTY ?rrrrtMDXO'FtADEPL-1
       1515151515 1152605463 1136102411 0063535160 4051464056 5764151515 1515151515 1152606362 rrrrrtJPLSt.+4t SKIP IF NOTrrrrrrrrtJPSR
       1145626257 6211004562 6257624051 4640455560 6471151515 1111456222 2025110040 4016655642 tERRORt ERROR IF EMPTYrrrttER205t   (UNB
       4154415643 4544406041 6245566317 1515151515 1152655560 1141442211 0051475657 6245406450 ALANCED PARENS)rrrrrtJUMPtAD2t IGNORE TH
       4540625147 5064406041 6245561515 1515151515 7777700000 3071260131 3071260131 3071260131 E RIGHT PARENrrrrrrrbbX  8Y6%98Y6%98Y6%9
       3071260131 3071260131 3071260131 3071260131 3071260131 3071260131 3071260131            8Y6%98Y6%98Y6%98Y6%98Y6%98Y6%98Y6%9
 1380: 0004100013 4664562023 1361200406 3414400000 1155444162 1141444560 6011004241 4353406560  &+ "FTN03"Q0&:,'   tMDARtADEPPt BACK UP
       4054516364 4060575156 6445624042 7140221515 1155444163 1446145611 2215151515 1141625544  LIST POINTER BY 2rrtMDAS'F'Nt2rrrrtARMD
       1141444560 6015151515 1141625544 1141446455 2111006341 6645404657 6240606554 5451564740 tADEPPrrrrtARMDtADTM1t SAVE FOR PULLING 
       4556646271 1515151515 1155444162 1141444570 6011006345 6440436562 6245566440 4570606245 ENTRYrrrrrtMDARtADEXPt SET CURRENT EXPRE
       6363515756 4066415465 4540416340 6445625515 1141625544 1141446462 5515151515 1155444162 SSION VALUE AS TERMrtARMDtADTRMrrrrtMDAR
       1451147011 4144645521 1100474564 4063514756 4056655542 4562404662 5755405451 6364151515 'I'XtADTM1t GET SIGN NUMBER FROM LISTrrr
       1141625544 1141446347 5615151515 1155444162 1451147011 4144645521 1100474564 4057544440 tARMDtADSGNrrrrtMDAR'I'XtADTM1t GET OLD 
       4570606245 6363515756 4066415465 4540466257 5540545163 6415151515 1141625544 1141444570 EXPRESSION VALUE FROM LISTrrrrtARMDtADEX
       6015151515 1141625544 1457114144 5663461100 6345644056 5764406371 5542575451 4340664154 PrrrrtARMD'OtADNSFt SET NOT SYMBOLIC VAL
       6545404654 4147151515 1152655560 1141442211 0047574047 4564405645 7064406371 5542575415 UE FLAGrrrtJUMPtAD2t GO GET NEXT SYMBOLr
       1515151515 1515151515 0040435754 5756401613 0613174057 6045624164 5762406257 6564515645 rrrrrrrrrr  COLON (":") OPERATOR ROUTINE
       4036363615 1515151515 4144644706 1155444162 1141446371 6311006371 5542575440 6341664544  ...rrrrrrADTG:tMDARtADSYSt SYMBOL SAVED
       4012151515 1152604156 1136102411 0063535160 4051464071 4563151515 1515151515 4144644722  ?rrrtJPANt.+4t SKIP IF YESrrrrrrrrADTG2
       0611526063 6211456262 5762110045 5463453440 4562625762 1515151515 1111456222 2023110040 :tJPSRtERRORt ELSE, ERRORrrrrrttER203t  
       4016565740 6371554257 5440465762 4064414740 4445465156 5164515756 1715151515 1152655560  (NO SYMBOL FOR TAG DEFINITION)rrrrtJUMP
       1141442211 0051475657 6245406441 4740444546 5156516451 5756151515 1515151515 1141625544 tAD2t IGNORE TAG DEFINITIONrrrrrrrrtARMD
       1456114144 6371631100 6245634564 4063715542 5754406341 6645444046 5441471515 1155444162 'NtADSYSt RESET SYMBOL SAVED FLAGrrtMDAR
       1456114144 6371311100 6371554257 5440415460 5041424564 5143401215 1152604156 1141446447 'NtADSY9t SYMBOL ALPHABETIC ?rtJPANtADTG
       2211005657 3440456262 5762151515 1515151515 1152606362 1141445566 4211005557 6645406371 2t NO, ERRORrrrrrrrrtJPSRtADMVBt MOVE SY
       5542575440 6457404657 6264624156 4042654646 4562151515 1152606362 1163656263 7155110063 MBOL TO FORTRAN BUFFERrrrtJPSRtSURSYMt S
       4541624350 4051564063 7155644142 4046576240 6371554257 5415151515 1152606362 1163646371 EARCH IN SYMTAB FOR SYMBOLrrrrtJPSRtSTSY
       5511006364 5762454051 4640565764 4046576556 4415151515 1515151515 1155444162 1451145011 Mt STORE IF NOT FOUNDrrrrrrrrrtMDAR'I'Ht
       6365626011 0051634063 7155425754 4056575635 5156644562 5641544057 6240444546 5156454440 SURPt IS SYMBOL NON-INTERNAL OR DEFINED 
       1215151515 1155444162 1441144611 2026242020 1515151515 1152605463 1141446447 2111004562 ?rrrrtMDAR'A'Ft06400rrrrrtJPLStADTG1t ER
       6257624051 4640714563 1515151515 1515151515 1155444162 1451145311 6365626011 0063715542 ROR IF YESrrrrrrrrrrtMDAR'I'KtSURPt SYMB
       5754403340 6041624155 4564456240 1215151515 1155444162 1441144611 2720151515 1155447057 OL = PARAMETER ?rrrrtMDAR'A'Ft70rrrtMDXO
       1446112620 1515151515 1152605463 1136102411 0063535160 4051464056 5764151515 1515151515 'Ft60rrrrrtJPLSt.+4t SKIP IF NOTrrrrrrrr
       4144644721 0611526063 6211456262 5762110067 4162565156 4740456262 5762151515 1111456222 ADTG1:tJPSRtERRORt WARNING ERRORrrrttER2
       2024110040 4016644147 4063715542 5754406062 4566404445 4651564544 1715151515 1152655560 04t   (TAG SYMBOL PREV DEFINED)rrrrtJUMP
       1141442211 0051475657 6245406441 4740444546 5156516451 5756151515 1515151515 1155444162 tAD2t IGNORE TAG DEFINITIONrrrrrrrrtMDAR
       1163656260 1100464564 4350406057 5156644562 4064574063 7155425754 1515151515 1152606362 tSURPt FETCH POINTER TO SYMBOLrrrrrtJPSR
       1144466371 5511004445 4651564540 6371554257 5440416440 4365626245 5664405443 1515151515 tDFSYMt DEFINE SYMBOL AT CURRENT LCrrrrr
       1152655560 1141442211 0047574047 4564405645 7064406371 5542575415 1515151515 1515151515 tJUMPtAD2t GO GET NEXT SYMBOLrrrrrrrrrrr
       1515151515 7777700000 0464635505 0464635505 0464635505 0464635505 0464635505 0464635505 rrrrrbbX  &TSM*&TSM*&TSM*&TSM*&TSM*&TSM*
       0464635505 0464635505 0464635505 0464635505                                             &TSM*&TSM*&TSM*&TSM*
 1455: 0004200013 4664562023 1361200425 3414400000 0040134144 4560641340 4156444013 4657626462  &0 "FTN03"Q0&5,'     "ADEPT" AND "FORTR
       4156134057 6045624164 5762406257 6564515645 6340363636 1515151515 1515151515 4144414457 AN" OPERATOR ROUTINES ...rrrrrrrrrrADADO
       0611416270 5714541111 0013414445 6064133440 6245634564 4063515647 5445404341 6244404654 :tARXO'Ltt "ADEPT", RESET SINGLE CARD FL
       4147151515 4144465762 0611416270 5714561446 1111001346 5762646241 5613344063 4564404654 AGrrrADFOR:tARXO'N'Ftt "FORTRAN", SET FL
       4147151515 1141625544 1141434446 4711006341 6645404654 4147404657 6240435045 4353404164 AGrrrtARMDtACDFGt SAVE FLAG FOR CHECK AT
       4045564440 5746404341 6244151515 1152655560 1141442211 0047574064 5740564570 6440637155  END OF CARDrrrtJUMPtAD2t GO TO NEXT SYM
       4257541515 1515151515 1515151515 0040414445 6064405557 4445404357 5555455664 4050415644 BOLrrrrrrrrrrrr  ADEPT MODE COMMENT HAND
       5445624016 5445466440 4262414353 4564405760 4562416457 6217403636 3615151515 1515151515 LER (LEFT BRACKET OPERATOR) ...rrrrrrrrr
       4144435755 0611526063 6211474143 1100474564 4056457064 4041444560 6440435041 6241436445 ADCOM:tJPSRtGACt GET NEXT ADEPT CHARACTE
       6215151515 1152605463 1136102211 0063535160 4051464056 5764404556 4440574640 4357555545 RrrrrtJPLSt.+2t SKIP IF NOT END OF COMME
       5664151515 1515151515 1152655560 1141444355 2211004241 4353406457 4063434156 4051464045 NTrrrrrrrrtJUMPtADCM2t BACK TO SCAN IF E
       5644405746 4043575555 4556641515 1515151515 1155444162 1147414350 6411006471 6045403340 ND OF COMMENTrrrrrrrtMDARtGACHTt TYPE = 
       4556444063 6441644555 4556644012 1515151515 1155447057 1446112315 1152605463 1141444357 END STATEMENT ?rrrrrtMDXO'Ft3rtJPLStADCO
       5511005457 5753404147 4151564051 4640565764 1515151515 1515151515 1141625544 1457114743 Mt LOOK AGAIN IF NOTrrrrrrrrrrtARMD'OtGC
       4363661100 4554634534 4063456440 6457406245 3562454144 4064456255 5156416457 6215151515 CSVt ELSE, SET TO RE-READ TERMINATORrrrr
       1515151515 4144435522 0611554441 6214561141 4456454611 0043575644 5164515756 4154405557 rrrrrADCM2:tMDAR'NtADNEFt CONDITIONAL MO
       4445401215 1152604156 1141442211 0052655560 4064574060 6257434563 6340514640 5657151515 DE ?rtJPANtAD2t JUMP TO PROCESS IF NOrrr
       1515151515 1141625544 1457114743 4363661100 6341664540 4350416241 4364456215 1152606362 rrrrrtARMD'OtGCCSVt SAVE CHARACTERrtJPSR
       1147414311 0062454144 4041474151 5615151515 1152655560 1141444350 2311005265 5560406457 tGACt READ AGAINrrrrtJUMPtADCH3t JUMP TO
       4064456364 1515151515 1515151515 1515151515 0040455644 4057464063 6441644555 4556644016  TESTrrrrrrrrrrrrrrr  END OF STATEMENT (
       6345555135 4357545756 4041564440 4337621740 5760456241 6457624044 5163604164 4350403636 SEMI-COLON AND C/R) OPERATOR DISPATCH ..
       3615151515 1515151515 4144636445 0611554441 6211474350 4162110067 4163406445 6255515641 .rrrrrrrrrADSTE:tMDARtGCHARt WAS TERMINA
       6457624043 3762401215 1155447057 1446112125 1515151515 1152605463 1141446055 4411004757 TOR C/R ?rtMDXO'Ft15rrrrrtJPLStADPMDt GO
       4063644162 6440564567 4063644164 4555455664 4051464056 5764151515 1515151515 1155444162  START NEW STATEMENT IF NOTrrrrrrrrtMDAR
       1145647046 4711004556 4440574640 6445706440 4654414740 6345644012 1515151515 1152604156 tETXFGt END OF TEXT FLAG SET ?rrrrrtJPAN
       1141446364 2111007145 6334405265 5560406457 4045705164 1515151515 1515151515 1155444162 tADST1t YES, JUMP TO EXITrrrrrrrrrrtMDAR
       1141434446 4711005657 3440134113 4043416244 4046544147 4063456440 1215151515 1152604156 tACDFGt NO, "A" CARD FLAG SET ?rrrrtJPAN
       1156456743 4411007145 6334406245 4144405645 7064404657 6264624156 4043416244 1515151515 tNEWCDt YES, READ NEXT FORTRAN CARDrrrrr
       1515151515 1152606362 1141444743 4611004554 6345344046 6554544041 4445606440 5557444534 rrrrrtJPSRtADGCFt ELSE, FULL ADEPT MODE,
       4047456440 2163644043 5041621515 1152655560 1136102211 0040405746 4056457064 4054515645  GET 1ST CHARrrtJUMPt.+2t   OF NEXT LINE
       4016414257 6264405146 4045564435 5746356470 6417151515 1152655560 1141446055 4411004156  (ABORT IF END-OF-TXT)rrrtJUMPtADPMDt AN
       4440526555 6040645740 6364416264 4056456740 6364416445 5545566415 1515151515 4144636421 D JUMP TO START NEW STATEMENTrrrrrrADST1
       0611416270 5714461111 0057564045 5644405746 4064457064 3415151515 1141625544 1141446064 :tARXO'Ftt ON END OF TEXT,rrrrtARMDtADPT
       4611006245 6345644041 4445606440 5557444515 1152655560 1145647043 2111004156 4440526555 Ft RESET ADEPT MODErtJUMPtETXC1t AND JUM
       6040515664 5740465762 6462415640 4557644060 6257434563 6357621515 1515151515 1515151515 P INTO FORTRAN EOT PROCESSORrrrrrrrrrrrr
       7777700000 5216505354 5216505354 5216505354 5216505354 5216505354 5216505354 5216505354 bbX  J(HKLJ(HKLJ(HKLJ(HKLJ(HKLJ(HKLJ(HKL
       5216505354 5216505354 5216505354                                                        J(HKLJ(HKLJ(HKL
 1225: 0004300013 4664562023 1361200347 3414400000 0040414445 6064405557 4445404357 5644516451  &8 "FTN03"Q0!G,'     ADEPT MODE CONDITI
       5756415440 5760456241 6457626340 3636361515 1515151515 1515151515 0040514672 4562574057 ONAL OPERATORS ...rrrrrrrrrrrr  IFZERO O
       6045624164 5762403636 3615151515 1515151515 4144514672 0611526063 6211414443 5721110045 PERATOR ...rrrrrrrrrADIFZ:tJPSRtADCO1t E
       6641546541 6445404570 6062456363 5157561515 1141624162 1446145014 5711110046 6554544072 VALUATE EXPRESSIONrrtARAR'F'H'Ott FULL Z
       4562574066 4154654515 1152605463 1141444350 2111004757 4063456440 5657404566 4154654164 ERO VALUErtJPLStADCH1t GO SET NO EVALUAT
       5157564051 4640565764 1515151515 1515151515 1152655560 1141444556 4411004554 6345344044 ION IF NOTrrrrrrrrrrtJUMPtADENDt ELSE, D
       5740564570 6440636441 6445554556 6415151515 1515151515 1515151515 0040514656 4547416451 O NEXT STATEMENTrrrrrrrrrrrrrr  IFNEGATI
       6645405760 4562416457 6240363636 1515151515 1515151515 4144514656 0611526063 6211414443 VE OPERATOR ...rrrrrrrrrrADIFN:tJPSRtADC
       5721110045 6641546541 6445404570 6062456363 5157561515 1152604156 1141444556 4411004457 O1t EVALUATE EXPRESSIONrrtJPANtADENDt DO
       4056457064 4063644164 4555455664 4051464056 4547416451 6645151515 1515151515 4144435021  NEXT STATEMENT IF NEGATIVErrrrrrrrADCH1
       0611416270 5714541111 0043544541 6240455644 4057604562 4164576240 4654414715 1515151515 :tARXO'Ltt CLEAR END OPERATOR FLAGrrrrrr
       1515151515 0040455463 4540576045 6241645762 4036363615 1515151515 4144455463 0611416270 rrrrr  ELSE OPERATOR ...rrrrrrADELS:tARX
       5714461456 1111006345 6440455644 4057604562 4164576240 4654414715 1515151515 1141625544 O'F'Ntt SET END OPERATOR FLAGrrrrrrtARMD
       1141444346 4715151515 1155444162 1143211100 6345644056 4563645156 4740435765 5664456240 tADCFGrrrrtMDARtC1t SET NESTING COUNTER 
       6457402115 1141625544 1141445663 4315151515 1141625544 1457114144 5645461100 6345644043 TO 1rtARMDtADNSCrrrrtARMD'OtADNEFt SET C
       5756445164 5157564154 4056574045 6641543640 4654414715 1515151515 4144435023 0611554441 ONDITIONAL NO EVAL. FLAGrrrrrrADCH3:tMDA
       6211474350 4162110067 4163406445 6255515641 6451564740 4350416241 4364456240 4337624012 RtGCHARt WAS TERMINATING CHARACTER C/R ?
       1515151515 1155447057 1446112125 1515151515 1152605463 1141444350 2211005657 3440635351 rrrrrtMDXO'Ft15rrrrrtJPLStADCH2t NO, SKI
       6015151515 1515151515 1152655560 1141444323 2011004554 6345344060 6257434563 6340433762 PrrrrrrrrrtJUMPtADC30t ELSE, PROCESS C/R
       1515151515 1515151515 4144435022 0611526063 6211474163 1100474564 4041444560 6440637155 rrrrrrrrrrADCH2:tJPSRtGASt GET ADEPT SYM
       4257541515 1155444162 1456114741 6322110067 4163406371 5542575440 5457564745 6240645041 BOLrrtMDAR'NtGAS2t WAS SYMBOL LONGER THA
       5640212040 4350416263 3640121515 1155444145 1147416320 1022151515 1152604156 1141444350 N 10 CHARS. ?rrtMDAEtGAS0+2rrrtJPANtADCH
       2211005457 5753404147 4151564051 4640714563 1515151515 1515151515 1155444162 1450116371 2t LOOK AGAIN IF YESrrrrrrrrrrtMDAR'HtSY
       5542221100 6741634051 6440545756 4745456240 6450415640 2540435041 6263364012 1515151515 MB2t WAS IT LONGEER THAN 5 CHARS. ?rrrrr
       1152605463 1141444350 2411006353 5160405146 4071456315 1515151515 1155444162 1446114144 tJPLStADCH4t SKIP IF YESrrrrrrtMDAR'FtAD
       4321641100 6345416243 5040515640 5756454067 5762444064 4142544515 1152606362 1142636562 C1Tt SEARCH IN ONE WORD TABLErtJPSRtBSUR
       2115151515 1155444162 1446114144 4321451515 1152655560 1141444350 2211005265 5560405146 1rrrrtMDAR'FtADC1ErrtJUMPtADCH2t JUMP IF
       4056576440 4657655644 1515151515 1515151515 1155445162 1451114263 6562601100 4570454365  NOT FOUNDrrrrrrrrrrtMDIR'ItBSURPt EXECU
       6445404662 5755406441 4254451515 1152655560 1141444350 2211004156 4440545757 5340414741 TE FROM TABLErrtJUMPtADCH2t AND LOOK AGA
       5156151515 1515151515 7777700000 2042264432 2042264432 2042264432 2042264432 2042264432 INrrrrrrrrbbX  0B6D;0B6D;0B6D;0B6D;0B6D;
       2042264432 2042264432 2042264432 2042264432 2042264432                                  0B6D;0B6D;0B6D;0B6D;0B6D;
 1355: 0004400013 4664562023 1361200401 3414400000 4144435024 0611554441 6214461141 4443226411  &  "FTN03"Q0&%,'   ADCH4:tMDAR'FtADC2Tt
       0063454162 4350405156 4064675735 6757624440 6441425445 1515151515 1152606362 1142636562  SEARCH IN TWO-WORD TABLErrrrrtJPSRtBSUR
       2215151515 1155444162 1446114144 4322451515 1152655560 1141444350 2211005457 5753404147 2rrrrtMDAR'FtADC2ErrtJUMPtADCH2t LOOK AG
       4151564051 4640565764 4046576556 4415151515 1515151515 1155445162 1451114263 6562601100 AIN IF NOT FOUNDrrrrrrrrrtMDIR'ItBSURPt 
       4570454365 6445404662 5755406441 4254451515 1152655560 1141444350 2211004040 4041564440 EXECUTE FROM TABLErrtJUMPtADCH2t    AND 
       5457575340 4147415156 1515151515 1515151515 1515151515 1515151515 0040134554 6345134051 LOOK AGAINrrrrrrrrrrrrrrrrrrrr  "ELSE" I
       5640634541 6243504062 5765645156 4540363636 1515151515 1515151515 4144432120 0611554441 N SEARCH ROUTINE ...rrrrrrrrrrADC10:tMDA
       6211414456 6343110056 4563645156 4740435765 5664456240 3340214012 1515151515 1155447057 RtADNSCt NESTING COUNTER = 1 ?rrrrrtMDXO
       1446112115 1152605463 1141444350 2211005147 5657624540 5146405657 1515151515 1515151515 'Ft1rtJPLStADCH2t IGNORE IF NOrrrrrrrrrr
       4144432121 0611416270 5714461111 0062456345 6440565740 4566415465 4164515756 4055574445 ADC11:tARXO'Ftt RESET NO EVALUATION MODE
       1515151515 1141625544 1141445645 4615151515 1155444162 1141444346 4711004556 4440636441 rrrrrtARMDtADNEFrrrrtMDARtADCFGt END STA
       6445554556 6440121515 1152604156 1141442211 0056573440 4745644056 4570644057 6045624164 TEMENT ?rrtJPANtAD2t NO, GET NEXT OPERAT
       5762151515 1515151515 1155444162 1446112311 0063456440 1345564435 6364416445 5545566413 ORrrrrrrrrtMDAR'Ft3t SET "END-STATEMENT"
       4063715542 5754406471 6045151515 1141625544 1141446371 4115151515 1155444162 1446114144  SYMBOL TYPErrrtARMDtADSYArrrrtMDAR'FtAD
       6364451100 6345644057 6045624164 5762404451 6360416443 5040645715 1141625544 1141445760 STEt SET OPERATOR DISPATCH TOrtARMDtADOP
       6311004040 4045564440 6364416445 5545566440 6257656451 5645151515 1152655560 1141444556 St    END STATEMENT ROUTINErrrtJUMPtADEN
       4411004554 6345344045 5644406364 4164455545 5664151515 1515151515 1515151515 0040134556 Dt ELSE, END STATEMENTrrrrrrrrrrrrr  "EN
       4443134051 5640634541 6243504062 5765645156 4540363636 1515151515 1515151515 4144432220 DC" IN SEARCH ROUTINE ...rrrrrrrrrrADC20
       0611554441 6211414456 6343110044 4543624555 4556644056 4563645156 4740435765 5664456215 :tMDARtADNSCt DECREMENT NESTING COUNTERr
       1155444163 1446145611 2115151515 1141625544 1141445663 4315151515 1152604156 1141444321 tMDAS'F'Nt1rrrrtARMDtADNSCrrrrtJPANtADC1
       2111005265 5560405146 4046515641 5440134556 4443134057 6045624164 5762151515 1515151515 1t JUMP IF FINAL "ENDC" OPERATORrrrrrrrr
       1152655560 1141444350 2211004554 6345344054 5757534041 4741515615 1515151515 1515151515 tJUMPtADCH2t ELSE, LOOK AGAINrrrrrrrrrrr
       0040134337 6213405156 4063454162 4350406257 6564515645 4036363615 1515151515 4144432320   "C/R" IN SEARCH ROUTINE ...rrrrrrADC30
       0611554441 6211414344 4647110013 4113404341 6244404654 4147406345 6440121515 1152604156 :tMDARtACDFGt "A" CARD FLAG SET ?rrtJPAN
       1141444323 2111007145 6334404757 4063535160 4046576264 6241564043 4162446315 1515151515 tADC31t YES, GO SKIP FORTRAN CARDSrrrrrr
       1152606362 1141444743 4611004745 6440465162 6364404350 4162414364 4562405746 4056457064 tJPSRtADGCFt GET FIRST CHARACTER OF NEXT
       4043416244 1515151515 1152655560 1141446364 2111005265 5560405146 4045564440 5746406445  CARDrrrrrtJUMPtADST1t JUMP IF END OF TE
       7064151515 1152655560 1141444350 2211004554 6345344047 5740545757 5340414741 5156151515 XTrrrtJUMPtADCH2t ELSE, GO LOOK AGAINrrr
       1515151515 4144432321 0611416270 5714461111 0062456345 6436363615 1141625544 1141434446 rrrrrADC31:tARXO'Ftt RESET...rtARMDtACDF
       4711001341 1340434162 4440465441 4715151515 1141625544 1141446064 4611004144 4560644055 Gt "A" CARD FLAGrrrrtARMDtADPTFt ADEPT M
       5744454046 5441471515 1152606362 1141444743 4611004745 6440465162 6364404350 4162414364 ODE FLAGrrtJPSRtADGCFt GET FIRST CHARACT
       4562405746 4056457064 4043416244 1515151515 1152655560 1141446364 2111005265 5560405146 ER OF NEXT CARDrrrrrtJUMPtADST1t JUMP IF
       4045564440 5746406445 7064151515 1515151515 7777700000 0143136053 0143136053 0143136053  END OF TEXTrrrrrrrrbbX  %C"PK%C"PK%C"PK
       0143136053 0143136053 0143136053 0143136053 0143136053 0143136053 0143136053            %C"PK%C"PK%C"PK%C"PK%C"PK%C"PK%C"PK
 1075: 0004500013 4664562023 1361200311 3414400000 4144432322 0611526063 6211474345 1100624535  &H "FTN03"Q0!t,'   ADC32:tJPSRtGCEt RE-
       6245414440 4350416241 4364456215 1152655560 1141444323 2111005457 5753404147 4151564051 READ CHARACTERrtJUMPtADC31t LOOK AGAIN I
       4640433762 1515151515 1152655560 1141444323 2311005147 5657624540 5146404254 4156534057 F C/RrrrrrtJUMPtADC33t IGNORE IF BLANK O
       6240636041 4345151515 1515151515 1155447057 1446110241 1100674163 4051644013 4113404341 R SPACErrrrrrrrtMDXO'FtcAt WAS IT "A" CA
       6244401215 1152605463 1141444323 2311006353 5160404341 6244405146 4056576415 1515151515 RD ?rtJPLStADC33t SKIP CARD IF NOTrrrrrr
       1141625544 1457114143 4446471100 6345644013 4113404341 6244404654 4147151515 1141625544 tARMD'OtACDFGt SET "A" CARD FLAGrrrtARMD
       1457114144 6064461100 6345644041 4445606440 5557444540 4654414715 1152655560 1141444350 'OtADPTFt SET ADEPT MODE FLAGrtJUMPtADCH
       2211004554 6345344063 6441626440 5457575351 5647404147 4151561515 1515151515 4144432323 2t ELSE, START LOOKING AGAINrrrrrrrADC33
       0611526063 6211474345 1100464564 4350404350 4162414364 4562151515 1152655560 1141444323 :tJPSRtGCEt FETCH CHARACTERrrrtJUMPtADC3
       2111005265 5560405146 4043376215 1156575760 1515151515 1152655560 1141444323 2311004554 1t JUMP IF C/RrtNOOPrrrrrtJUMPtADC33t EL
       6345344051 4756576245 4041564440 6245414440 5645706440 4350416236 1515151515 1515151515 SE, IGNORE AND READ NEXT CHAR.rrrrrrrrrr
       1515151515 1515151515 0040134144 4560641340 5156406345 4162435040 6257656451 5645403636 rrrrrrrrrr  "ADEPT" IN SEARCH ROUTINE ..
       3615151515 1515151515 4144432420 0611416270 5714541111 0043544541 6240134113 4043416244 .rrrrrrrrrADC40:tARXO'Ltt CLEAR "A" CARD
       4046544147 1515151515 1515151515 0040134657 6264624156 1340515640 6345416243 5040625765  FLAGrrrrrrrrrr  "FORTRAN" IN SEARCH ROU
       6451564540 3636361515 1515151515 4144432421 0611416270 5714461456 1111006345 6440134113 TINE ...rrrrrrrADC41:tARXO'F'Ntt SET "A"
       4043416244 4046544147 1515151515 1515151515 1141625544 1141434446 4715151515 1152655560  CARD FLAGrrrrrrrrrrtARMDtACDFGrrrrtJUMP
       1141444350 2211004757 4054575753 5340414741 5156151515 1515151515 1515151515 1515151515 tADCH2t GO LOOKK AGAINrrrrrrrrrrrrrrrrrr
       0040456641 5465416445 4045706062 4563635157 5640636560 6057626440 6365426257 6564515645   EVALUATE EXPRESSION SUPPORT SUBROUTINE
       4046576240 4357564451 6451575641 5463151515 1515151515 4144435721 0611526555 6011361100  FOR CONDITIONALSrrrrrrrrADCO1:tJUMPt.t 
       4556646271 1515151515 1152606362 1141446362 6411004566 4154654164 4540457060 6245636351 ENTRYrrrrrtJPSRtADSRTt EVALUATE EXPRESSI
       5756151515 1152606362 1141444763 6611004745 6440664154 6545151515 1152655560 1136102211 ONrrrtJPSRtADGSVt GET VALUErrrtJUMPt.+2t
       0051464062 4546456245 5643453440 6353516015 1515151515 1155445162 1141444357 2111006245  IF REFERENCE, SKIPrrrrrrtMDIRtADCO1t RE
       6465625640 6751645040 6641546545 1515151515 1515151515 1152606362 1145626257 6211004562 TURN WITH VALUErrrrrrrrrrtJPSRtERRORt ER
       6257624051 4640624546 4562455643 4544406641 5465451515 1111456222 2223110040 4040576240 ROR IF REFERENCED VALUErrttER223t    OR 
       4570644562 5641541515 1152655560 1141444556 4411004757 4051475657 6245404357 5644516451 EXTERNALrrtJUMPtADENDt GO IGNORE CONDITI
       5756415415 1515151515 1515151515 1515151515 7777700000 3662464613 3662464613 3662464613 ONALrrrrrrrrrrrrrrrrbbX  .RFF".RFF".RFF"
       3662464613 3662464613 3662464613 3662464613 3662464613 3662464613 3662464613            .RFF".RFF".RFF".RFF".RFF".RFF".RFF"
 1100: 0004600013 4664562023 1361200316 3414400000 0040435756 4451645157 5641544057 5645356757  &P "FTN03"Q0!(,'     CONDITIONAL ONE-WO
       6244406345 4162435040 6441425445 1515151515 1515151515 4144432164 0611203211 5265556040 RD SEARCH TABLErrrrrrrrrrADC1T:t0;tJUMP 
       4144435755 1515151515 1121252020 2003503211 5265556040 4144432320 1515151515 1164457064 ADCOMrrrrrt15000!H;tJUMP ADC30rrrrrtTEXT
       4014414445 6064141152 6555604041 4443242015 1164457064 4014134554 6345131411 5265556040  'ADEPT'tJUMP ADC40rtTEXT '"ELSE"'tJUMP 
       4144432120 1515151515 1164457064 4014134556 4443131411 5265556040 4144432220 1515151515 ADC10rrrrrtTEXT '"ENDC"'tJUMP ADC20rrrrr
       4144432145 0615151515 1515151515 1515151515 0040435756 4451645157 5641544064 6757356757 ADC1E:rrrrrrrrrrrrrr  CONDITIONAL TWO-WO
       6244406345 4162435040 6441425445 1515151515 1515151515 4144432264 0611644570 6440144657 RD SEARCH TABLErrrrrrrrrrADC2T:tTEXT 'FO
       6264624156 1415151515 1164457064 4014135146 5645474164 5166451314 1515151515 1164457064 RTRAN'rrrrtTEXT '"IFNEGATIVE"'rrrrrtTEXT
       4014135146 7245625713 1415151515 4144432245 0615151515 1152655560 1141444324 2115151515  '"IFZERO"'rrrrADC2E:rrrrtJUMPtADC41rrrr
       1141624162 1470114144 5663431515 1141624162 1470114144 5663431515 1515151515 1515151515 tARAR'XtADNSCrrtARAR'XtADNSCrrrrrrrrrrrr
       1515151515 1515151515 0040624541 4440465162 6364404350 4162414364 4562405746 4056456740 rrrrrrrrrr  READ FIRST CHARACTER OF NEW 
       4341624440 5156404144 4560644055 5744454036 3636151515 1515151515 4144474346 0611526555 CARD IN ADEPT MODE ...rrrrrrrrADGCF:tJUM
       6011361100 4556646271 1515151515 1152606362 1163644362 4411006364 4162644056 4567404341 Pt.t ENTRYrrrrrtJPSRtSTCRDt START NEW CA
       6244151515 1152606362 1147434346 1100624541 4440465162 6364404350 4162414364 4562405746 RDrrrtJPSRtGCCFt READ FIRST CHARACTER OF
       4043416244 1515151515 1155445162 1141444743 4611006245 6465625640 1621174051 4640455644  CARDrrrrrtMDIRtADGCFt RETURN (1) IF END
       4057464064 4570641515 1156575760 1111004040 1657534051 4640433762 1715151515 1156575760  OF TEXTrrtNOOPtt   (OK IF C/R)rrrrtNOOP
       1111004040 1641546357 4051464042 5441565340 5762406441 4217151515 1515151515 1141625544 tt   (ALSO IF BLANK OR TAB)rrrrrrrrtARMD
       1457114743 4363661100 4554634534 4063416645 4064504164 4043504162 4046576240 6245356245 'OtGCCSVt ELSE, SAVE THAT CHAR FOR RE-RE
       4144151515 1152606362 1154636445 6211005451 6364404562 6257626340 5756406062 4566515765 ADrrrtJPSRtLSTERt LIST ERRORS ON PREVIOU
       6340545156 4515151515 1155445162 1470114144 4743461100 4156444062 4564656256 4016221715 S LINErrrrtMDIR'XtADGCFt AND RETURN (2)r
       1515151515 1515151515 0040474564 4041444560 6440435041 6241436445 6240636542 6257656451 rrrrrrrrrr  GET ADEPT CHARACTER SUBROUTI
       5645151515 1515151515 4741430611 5265556011 3611004556 6462711515 1155444162 1456114743 NErrrrrrrrGAC:tJUMPt.t ENTRYrrtMDAR'NtGC
       4363661100 6341664544 4043504162 4143644562 4012151515 1152604156 1136102311 0056573440 CSVt SAVED CHARACTER ?rrrtJPANt.+3t NO, 
       6353516015 1515151515 1141625544 1147434363 6611006245 6345644046 5441471515 1152655560 SKIPrrrrrrtARMDtGCCSVt RESET FLAGrrtJUMP
       1147414321 1100635351 6040576645 6215151515 1515151515 1155444162 1141645156 4611006471 tGAC1t SKIP OVERrrrrrrrrrtMDARtATINFt TY
       6045515640 5557444540 1215151515 1152604156 1147414322 1100565734 4063535160 1515151515 PEIN MODE ?rrrrtJPANtGAC2t NO, SKIPrrrrr
       1515151515 7777700000 7672663622 7672663622 7672663622 7672663622 7672663622 7672663622 rrrrrbbX  +ZV.2+ZV.2+ZV.2+ZV.2+ZV.2+ZV.2
       7672663622 7672663622 7672663622 7672663622                                             +ZV.2+ZV.2+ZV.2+ZV.2
 1405: 0004700013 4664562023 1361200413 3414400000 1152606362 1451113651 4343110071 4563344062  &X "FTN03"Q0&",'   tJPSR'It.ICCt YES, R
       4541444051 5640435041 6215151515 1155444162 1441114327 2711005541 6353405164 1515151515 EAD IN CHARrrrrtMDAR'AtC77t MASK ITrrrrr
       1141625544 1147435041 6211006341 6645405164 1515151515 1155447057 1446112125 1100433762 tARMDtGCHARt SAVE ITrrrrrtMDXO'Ft15t C/R
       4012151515 1152605463 1147414323 1100565734 4063535160 1515151515 1515151515 1141625544  ?rrrtJPLStGAC3t NO, SKIPrrrrrrrrrrtARMD
       1457114164 5156461100 7145633440 6245634564 4064716045 5156405557 4445151515 1155444162 'OtATINFt YES, RESET TYPEIN MODErrrtMDAR
       1141645156 3111006245 6364576245 4063416645 4440435041 6241436445 6240636441 6465631515 tATIN9t RESTORE SAVED CHARACTER STATUSrr
       1141625544 1147434363 6615151515 1155444162 1141645156 3015151515 1141625544 1147435041 tARMDtGCCSVrrrrtMDARtATIN8rrrrtARMDtGCHA
       6215151515 1152655560 1147414310 2111005265 5560404241 4353406560 4046576240 5156644562 RrrrrtJUMPtGAC+1t JUMP BACK UP FOR INTER
       5641544043 5041624143 6445621515 1515151515 4741432306 1155444162 1450145111 3660625156 NAL CHARACTERrrrrrrrGAC3:tMDAR'H'It.PRIN
       4611005451 6364515647 4064574041 4060625156 6445624012 1515151515 1155444162 1457145111 Ft LISTING TO A PRINTER ?rrrrrtMDAR'O'It
       3644636054 4611005762 4056576440 6457406450 4540644554 4564716045 4012151515 1155444162 .DSPLFt OR NOT TO THE TELETYPE ?rrrtMDAR
       1457145111 3641565346 4711005762 4051566065 6440466257 5540415460 5041566555 4562514340 'O'It.ANKFGt OR INPUT FROM ALPHANUMERIC 
       5345714262 4440121515 1152605463 1136102211 0071456334 4063535160 4064574045 4350574043 KEYBRD ?rrtJPLSt.+2t YES, SKIP TO ECHO C
       5041621515 1152655560 1136102311 0056573440 5565636440 4245406464 7140515660 6564404156 HARrrtJUMPt.+3t NO, MUST BE TTY INPUT AN
       4440576564 3440635351 6015151515 1515151515 1155444162 1147435041 6211004645 6443504043 D OUT, SKIPrrrrrrrrrtMDARtGCHARt FETCH C
       5041621515 1152606362 1451115743 5060661100 4156444045 4350574057 5640545163 6451564740 HARrrtJPSR'ItOCHPVt AND ECHO ON LISTING 
       4445665143 4515151515 1515151515 4741432106 1155444162 1147435041 6211004645 6443504043 DEVICErrrrrrrrrGAC1:tMDARtGCHARt FETCH C
       5041621515 1152655560 1147414322 4111004156 4440526555 6040645740 6062574345 6363405164 HARrrtJUMPtGAC2At AND JUMP TO PROCESS IT
       1515151515 1515151515 4741432206 1152606362 1147434511 0047456440 4657626462 4156404350 rrrrrrrrrrGAC2:tJPSRtGCEt GET FORTRAN CH
       4162414364 4562151515 1155444162 1143212511 0040401654 5741444043 5744454051 4640433762 ARACTERrrrtMDARtC15t   (LOAD CODE IF C/R
       1715151515 1156575760 1111004040 1657534051 4640636041 4345405762 4064414217 1515151515 )rrrrtNOOPtt   (OK IF SPACE OR TAB)rrrrr
       1141625544 1147435041 6211006341 6645404350 4162414364 4562151515 1515151515 4741432241 tARMDtGCHARt SAVE CHARACTERrrrrrrrrGAC2A
       0611554441 4514541111 0043575560 6564454046 4564435040 5156636462 6543645157 5615151515 :tMDAE'Ltt COMPUTE FETCH INSTRUCTIONrrrr
       1155444162 1453114350 6264421100 4040645740 4745644043 5041624143 6445624064 7160451515 tMDAR'KtCHRTBt   TO GET CHARACTER TYPErr
       1141625162 1446111100 4645644350 4064716045 1515151515 1141625544 1164552111 0063416645 tARIR'Ftt FETCH TYPErrrrrtARMDtTM1t SAVE
       4067576244 4046625755 4043504162 4064414254 4515151515 1155444162 1441114327 1100554163  WORD FROM CHAR TABLErrrrtMDAR'AtC7t MAS
       5340647160 4515151515 1141625544 1147414350 6411004040 4156444063 4166451515 1515151515 K TYPErrrrtARMDtGACHTt   AND SAVErrrrrrr
       1155444162 1164552111 0067416340 4350416241 4364456240 5657644041 5460504142 4564514340 tMDARtTM1t WAS CHARACTER NOT ALPHABETIC 
       1215151515 1155444162 1441144611 2620151515 1152605463 1136102411 0063535160 4051464056 ?rrrrtMDAR'A'Ft60rrrtJPLSt.+4t SKIP IF N
       5764404154 6050411515 1515151515 1155444162 1147414350 6411004554 6345344063 4564404251 OT ALPHArrrrrrrtMDARtGACHTt ELSE, SET BI
       6440204057 4640647160 4515151515 1155444162 1457114342 2015151515 1141625544 1147414350 T 0 OF TYPErrrrtMDAR'OtCB0rrrrtARMDtGACH
       6415151515 1515151515 1155444162 1147435041 6211004645 6443504043 5041624143 6445624015 TrrrrrrrrrtMDARtGCHARt FETCH CHARACTER r
       1155445162 1147414311 0062456465 6256151515 1515151515 4741435064 0611112011 0041444560 tMDIRtGACt RETURNrrrrrrrrGACHT:tt0t ADEP
       6440435041 6241436445 6240647160 4515151515 1515151515 1515151515 7777700000 2421165702 T CHARACTER TYPErrrrrrrrrrrrrrbbX  41(Oc
       2421165702 2421165702 2421165702 2421165702 2421165702 2421165702 2421165702 2421165702 41(Oc41(Oc41(Oc41(Oc41(Oc41(Oc41(Oc41(Oc
       2421165702                                                                              41(Oc
 1525: 0005000013 4664562023 1361200443 3414400000 0040474564 4041444560 6440637155 4257544063  *  "FTN03"Q0&C,'     GET ADEPT SYMBOL S
       6542625765 6451564515 1515151515 4741630611 5265556011 3611006365 4262576564 5156454045 UBROUTINErrrrrrGAS:tJUMPt.t SUBROUTINE E
       5664627115 1141627057 1446111100 4354454162 4041621515 4741632006 1141625544 1163715542 NTRYrtARXO'Ftt CLEAR ARrrGAS0:tARMDtSYMB
       2111006245 6345644063 7155425754 4067576244 6315151515 1141625544 1163715542 2215151515 1t RESET SYMBOL WORDSrrrrtARMDtSYMB2rrrr
       1141625544 1163715542 2315151515 1155444162 1147416320 1100515651 6451415451 7245406364 tARMDtSYMB3rrrrtMDARtGAS0t INITIALIZE ST
       5762454051 5663646240 4657621515 1141625544 1147416322 1100404046 5162636440 6371554257 ORE INSTR FORrrtARMDtGAS2t   FIRST SYMBO
       5440675762 4415151515 1141625544 1457116043 5043641100 5156516451 4154517245 4046576240 L WORDrrrrtARMD'OtPCHCTt INITIALIZE FOR 
       6041435351 5647151515 1515151515 1152606362 1147414311 0047456440 4651626364 4043504162 PACKINGrrrrrrrrtJPSRtGACt GET FIRST CHAR
       1515151515 1152606362 1160435011 0060414353 4051641515 1156575760 1515151515 1155444162 rrrrrtJPSRtPCHt PACK ITrrtNOOPrrrrrtMDAR
       1147414350 6411004645 6443504043 5041624143 6445624064 7160454041 5644406341 6645151515 tGACHTt FETCH CHARACTER TYPE AND SAVErrr
       1141625544 1141446371 4111004040 4163406371 5542575440 6471604515 1155444162 1441144611 tARMDtADSYAt   AS SYMBOL TYPErtMDAR'A'Ft
       2111006471 6045405744 4440121515 1152605463 1147416324 1100714563 3440526555 6040645740 1t TYPE ODD ?rrtJPLStGAS4t YES, JUMP TO 
       6245646562 5615151515 1515151515 4741632106 1152606362 1147414311 0047456440 5645706440 RETURNrrrrrrrrrGAS1:tJPSRtGACt GET NEXT 
       4350416215 1155444162 1147414350 6411004645 6443504051 6463404350 4162406471 6045151515 CHARrtMDARtGACHTt FETCH ITS CHAR TYPErrr
       1155447057 1141446371 4111006341 5545404163 4063715542 5754406471 6045401215 1152605463 tMDXOtADSYAt SAME AS SYMBOL TYPE ?rtJPLS
       1147416323 1100565734 4052655560 4064574063 4166454051 6440415644 4062456465 6256151515 tGAS3t NO, JUMP TO SAVE IT AND RETURNrrr
       1515151515 1155444162 1456116043 5043641100 4164406364 4162644057 4640564567 4067576244 rrrrrtMDAR'NtPCHCTt AT START OF NEW WORD
       4012151515 1152605463 1136102511 0056573440 6353516015 1515151515 1155444162 1470145611  ?rrrtJPLSt.+5t NO, SKIPrrrrrrtMDAR'X'Nt
       4741632211 0071456334 4051564445 7040636457 6245406057 5156644562 1515151515 1155444145 GAS2t YES, INDEX STORE POINTERrrrrrtMDAE
       1147416320 1022110064 5062454540 6757624463 4041546245 4144714060 4143534544 4012151515 tGAS0+2t THREE WORDS ALREADY PACKED ?rrr
       1155444163 1446112115 1152604156 1147416321 1100714563 3440514756 5762454043 5041624143 tMDAS'Ft1rtJPANtGAS1t YES, IGNORE CHARAC
       6445621515 1515151515 1155444162 1147414350 6411004645 6443504043 5041624143 6445624064 TERrrrrrrrtMDARtGACHTt FETCH CHARACTER T
       7160451515 1155444162 1457114144 6371411100 4357554251 5645404154 6050414042 5164406751 YPErrtMDAR'OtADSYAt COMBINE ALPHA BIT WI
       6450406371 5542575440 6471604515 1141625544 1141446371 4111004156 4440634166 4540515640 TH SYMBOL TYPErtARMDtADSYAt AND SAVE IN 
       6371554257 5440647160 4515151515 1155444162 1147435041 6211004645 6443504043 5041621515 SYMBOL TYPErrrrtMDARtGCHARt FETCH CHARrr
       1152606362 1160435011 0060414353 4051641515 4741632206 1141625544 1111006364 5762454067 tJPSRtPCHt PACK ITrrGAS2:tARMDtt STORE W
       5045564067 5762444046 6554541515 1152655560 1147416321 1100545757 6040465762 4056457064 HEN WORD FULLrrtJUMPtGAS1t LOOP FOR NEXT
       4043504162 1515151515 1515151515 4741632306 1141625544 1457114743 4363661100 6341664540  CHARrrrrrrrrrrGAS3:tARMD'OtGCCSVt SAVE 
       6445625551 5641645156 4740435041 6240465762 4062453562 4541441515 1155444162 1147416322 TERMINATING CHAR FOR RE-READrrtMDARtGAS2
       1100464564 4350406364 5762454060 5751566445 6215151515 1155444145 1456114741 6320102211 t FETCH STORE POINTERrrrrtMDAE'NtGAS0+2t
       0057664562 4654576740 5743436562 6245444012 1515151515 1152604156 1147416324 1100565734  OVERFLOW OCCURRED ?rrrrrtJPANtGAS4t NO,
       4057533440 6353516015 1515151515 1155444162 1141445645 4611004357 5644516451 5756415440  OK, SKIPrrrrrrtMDARtADNEFt CONDITIONAL 
       4566415465 4164515756 4012151515 1141565162 1147416311 0062456465 6256405146 4071456315 EVALUATION ?rrrtANIRtGASt RETURN IF YESr
       1515151515 1152606362 1145626257 6211004554 6345344067 4162565156 4740456262 5762151515 rrrrrtJPSRtERRORt ELSE, WARNING ERRORrrr
       1111456222 2224110040 4016637155 4257544036 4764364021 2540435041 6263171515 1141627057 ttER224t   (SYMBOL .GT. 15 CHARS)rrtARXO
       1446151515 1141625544 1163715542 2311006245 5557664540 6450516244 4063715542 5754406757 'FrrrtARMDtSYMB3t REMOVE THIRD SYMBOL WO
       6244151515 1155445162 1147416311 0062456465 6256151515 1515151515 7777700000 7547210435 RDrrrtMDIRtGASt RETURNrrrrrrrrbbX  @G1&-
       7547210435 7547210435 7547210435 7547210435 7547210435 7547210435 7547210435 7547210435 @G1&-@G1&-@G1&-@G1&-@G1&-@G1&-@G1&-@G1&-
       7547210435                                                                              @G1&-
  760: 0005100013 4664562023 1361200212 3414400000 4741632406 1141627057 1446111100 6345644064  *+ "FTN03"Q0c?,'   GAS4:tARXO'Ftt SET T
       5740465154 5440544163 6440675762 4440675164 5040566554 5463151515 1152606362 1160435046 O FILL LAST WORD WITH NULLSrrrtJPSRtPCHF
       5411004651 5454405765 6440544163 6440675762 4415151515 1141625544 1451114741 6322110063 Lt FILL OUT LAST WORDrrrrtARMD'ItGAS2t S
       6457624540 5146404156 7115151515 1155444162 1456114144 6371411100 4154605041 5665554562 TORE IF ANYrrrrtMDAR'NtADSYAt ALPHANUMER
       5143406371 5542575440 1215151515 1152604156 1147416325 1100565734 4052655560 1515151515 IC SYMBOL ?rrrrtJPANtGAS5t NO, JUMPrrrrr
       1515151515 1155444162 1456114164 5156461100 6471604551 5640555744 4540121515 1152604156 rrrrrtMDAR'NtATINFt TYPEIN MODE ?rrtJPAN
       1147416325 1100714563 3440635351 6015151515 1515151515 1152606362 1147634511 0045706041 tGAS5t YES, SKIPrrrrrrrrrtJPSRtGSEt EXPA
       5644405451 6445624154 6340514640 4156711515 1141625544 1456114743 4363661100 6245634564 ND LITERALS IF ANYrrtARMD'NtGCCSVt RESET
       4063416645 4440435041 6241436445 6240465441 4715151515 1152655560 1147416310 2111004040  SAVED CHARACTER FLAGrrrrtJUMPtGAS+1t   
       4041564440 6245414440 5645706440 5146404570 6041564445 4415151515 1515151515 4741632506  AND READ NEXT IF EXPANDEDrrrrrrrrrGAS5:
       1141627057 1446111100 6345644064 5740646757 3567576244 4055417036 4063715542 5754151515 tARXO'Ftt SET TO TWO-WORD MAX. SYMBOLrrr
       1141625544 1163715542 2315151515 1155444162 1141445645 4611005657 4045664154 6541645157 tARMDtSYMB3rrrrtMDARtADNEFt NO EVALUATIO
       5640555744 4540121515 1141565162 1147416311 0071456334 4062456465 6256151515 1515151515 N MODE ?rrtANIRtGASt YES, RETURNrrrrrrrr
       1155444162 1147416322 1100674163 4063715542 5754405457 5647456240 6450415640 2120404350 tMDARtGAS2t WAS SYMBOL LONGER THAN 10 CH
       4162633640 1215151515 1155444145 1456114741 6320102115 1141565162 1147416311 0056573440 ARS. ?rrrrtMDAE'NtGAS0+1rtANIRtGASt NO, 
       6245646562 5615151515 1515151515 1152606362 1145626257 6211004562 6257624051 4640545756 RETURNrrrrrrrrrtJPSRtERRORt ERROR IF LON
       4745624064 5041564021 2040435041 6263361515 1111456222 2125151515 1155445162 1147416311 GER THAN 10 CHARS.rrttER215rrrtMDIRtGASt
       0041564440 6245646562 5615151515 1515151515 1515151515 7777700000 1025733416 1025733416  AND RETURNrrrrrrrrrrrrrrbbX  +5$,(+5$,(
       1025733416 1025733416 1025733416 1025733416 1025733416 1025733416 1025733416 1025733416 +5$,(+5$,(+5$,(+5$,(+5$,(+5$,(+5$,(+5$,(
 1390: 0005200013 4664562023 1361200410 3414400000 0040456641 5465416445 4045706062 4563635157  *0 "FTN03"Q0&+,'     EVALUATE EXPRESSIO
       5640644562 5540636542 6257656451 5645151515 1515151515 4145660611 5265556011 3611004556 N TERM SUBROUTINErrrrrrrrAEV:tJUMPt.t EN
       6462711515 1155444162 1141554163 5311006345 6465604063 7155425754 4066415465 4540554163 TRYrrtMDARtAMASKt SETUP SYMBOL VALUE MAS
       5315151515 1141625544 1164552515 1155444162 1141445663 4611005657 6440637155 4257545143 KrrrrtARMDtTM5rtMDARtADNSFt NOT SYMBOLIC
       4066415465 4540465441 4740634564 4012151515 1152604156 1141456623 2011004757 4060625743  VALUE FLAG SET ?rrrtJPANtAEV30t GO PROC
       4563634051 4640714563 1515151515 1515151515 1155444162 1456114144 6371631100 6371554257 ESS IF YESrrrrrrrrrrtMDAR'NtADSYSt SYMBO
       5440634166 4544401215 1152604156 1141456624 2011005665 5454406445 6255405146 4056576415 L SAVED ?rtJPANtAEV40t NULL TERM IF NOTr
       1515151515 1155444162 1141446371 3111006371 5542575440 4154605041 4245645143 4012151515 rrrrrtMDARtADSY9t SYMBOL ALPHABETIC ?rrr
       1152604156 1141456622 2011005265 5560405146 4071456315 1515151515 1155447057 1446112211 tJPANtAEV20t JUMP IF YESrrrrrrtMDXO'Ft2t
       0067416340 6371554257 5440647160 4540224012 1515151515 1152605463 1141444562 2111005265  WAS SYMBOL TYPE 2 ?rrrrrtJPLStADER1t JU
       5560404657 6240456262 5762405146 4056576415 1515151515 1155444162 1141447062 6311004570 MP FOR ERROR IF NOTrrrrrrtMDARtADXRSt EX
       6445625641 5440606245 4651704057 5640566555 4562514340 6371554257 5440121515 1152635463 TERNAL PREFIX ON NUMERIC SYMBOL ?rrtJSLS
       1145626257 6211007145 6334406741 6256515647 4045626257 6215151515 1111456222 2131110040 tERRORt YES, WARNING ERRORrrrrttER219t  
       4016515454 4547415440 4570644062 4546404654 4147631715 1515151515 1141625544 1457114145  (ILLEGAL EXT REF FLAGS)rrrrrrtARMD'OtAE
       6631311100 5156516451 4154517245 4065566041 4353515647 4043576556 6415151515 1155444162 V99t INITIALIZE UNPACKING COUNTrrrrtMDAR
       1446114144 6371213521 1100634564 6560406556 6041435351 5647406057 5156644562 1515151515 'FtADSY1-1t SETUP UNPACKING POINTERrrrrr
       1141625544 1141456631 3015151515 1155444162 1454111100 6345646560 4047456440 4350416241 tARMDtAEV98rrrrtMDAR'Ltt SETUP GET CHARA
       4364456240 4341545440 5156404756 6555151515 1152606362 1141456656 4715151515 1141625544 CTER CALL IN GNUMrrrtJPSRtAEVNGrrrrtARMD
       1147566555 2315151515 1152606362 1141456656 4711004745 6440465162 6364404350 4162414364 tGNUM3rrrrtJPSRtAEVNGt GET FIRST CHARACT
       4562151515 1155447057 1456114322 2011004451 4751644012 1515151515 1155444163 1446112120 ERrrrtMDXO'NtC20t DIGIT ?rrrrrtMDAS'Ft10
       3615151515 1152604156 1141444562 2111005657 3440515454 4547415440 6371554257 5440456262 .rrrrtJPANtADER1t NO, ILLEGAL SYMBOL ERR
       5762151515 1515151515 1152606362 1147566555 1100435754 5445436440 4451475164 6315151515 ORrrrrrrrrtJPSRtGNUMt COLLECT DIGITSrrrr
       1152655560 1136102111 0045705164 4057564044 4543515541 5440605751 5664151515 1515151515 tJUMPt.+1t EXIT ON DECIMAL POINTrrrrrrrr
       1155444162 1163435041 6211004445 5451554564 4562405657 6440566554 5440121515 1152605463 tMDARtSCHARt DELIMETER NOT NULL ?rrtJPLS
       1136102311 0056573440 6353516040 4657624044 4543515541 5437544142 4554404357 5663644156 t.+3t NO, SKIP FOR DECIMAL/LABEL CONSTAN
       6415151515 1515151515 1152606362 1147574364 5611004554 6345344045 6641546541 6445405743 TrrrrrrrrrtJPSRtGOCTNt ELSE, EVALUATE OC
       6441544043 5756636441 5664151515 1152655560 1141456622 3111005265 5560406457 4063645762 TAL CONSTANTrrrtJUMPtAEV29t JUMP TO STOR
       4540644562 5540664154 6545151515 1515151515 1152606362 1141456656 4711004745 6440564570 E TERM VALUErrrrrrrrtJPSRtAEVNGt GET NEX
       6440435041 6215151515 1152605463 1141444562 2111005154 5445474154 4063715542 5754405146 T CHARrrrrtJPLStADER1t ILLEGAL SYMBOL IF
       4056576440 5665545415 1515151515 1155444162 1156655560 4611004445 4351554154 4060575156  NOT NULLrrrrrrtMDARtNUMPFt DECIMAL POIN
       6440121515 1152604156 1136102311 0056573440 6353516040 4657624063 6441644555 4556644054 T ?rrtJPANt.+3t NO, SKIP FOR STATEMENT L
       4142455415 1515151515 1152606362 1147515664 5611007145 6334404745 6440444543 5155415440 ABELrrrrrrtJPSRtGINTNt YES, GET DECIMAL 
       6641546545 1515151515 1152655560 1141456622 3111005265 5560406457 4063456440 6445625540 VALUErrrrrtJUMPtAEV29t JUMP TO SET TERM 
       6641546545 1515151515 1515151515 7777700000 3305654112 3305654112 3305654112 3305654112 VALUErrrrrrrrrrbbX  =*UA?=*UA?=*UA?=*UA?
       3305654112 3305654112 3305654112 3305654112 3305654112 3305654112                       =*UA?=*UA?=*UA?=*UA?=*UA?=*UA?
 1635: 0005300013 4664562023 1361200471 3414400000 1155444162 1156655543 6411004156 7140635147  *8 "FTN03"Q0&Y,'   tMDARtNUMCTt ANY SIG
       5651465143 4156644044 5147516463 4012151515 1154634163 1456114325 1100415644 4046516645 NIFICANT DIGITS ?rrrtLSAS'NtC5t AND FIVE
       4057624054 4563634012 1515151515 1152604156 1136102411 0071456334 4057533440 6353516015  OR LESS ?rrrrrtJPANt.+4t YES, OK, SKIPr
       1515151515 1152606362 1145626257 6211004554 6345344045 6262576215 1111456222 2123110040 rrrrrtJPSRtERRORt ELSE, ERRORrttER213t  
       4016515454 4547415440 6364416445 5545566440 5441424554 4066415465 4517151515 1152655560  (ILLEGAL STATEMENT LABEL VALUE)rrrtJUMP
       1141456624 2011005265 5560406457 4051475657 6245406445 6255151515 1515151515 1152606362 tAEV40t JUMP TO IGNORE TERMrrrrrrrrtJPSR
       1147515664 5611004745 6440444543 5155415440 5441424554 4066415465 4515151515 1152606362 tGINTNt GET DECIMAL LABEL VALUErrrrtJPSR
       1163645442 5411006364 5762454063 6441644555 4556644054 4142455415 1152655560 1141456622 tSTLBLt STORE STATEMENT LABELrtJUMPtAEV2
       2311004757 4063456440 6245464562 4556434540 4654414763 1515151515 1515151515 4145662220 3t GO SET REFERENCE FLAGSrrrrrrrrrrAEV20
       0611526063 6211414455 6642110055 5766454063 7155425754 5143405641 5545406457 4046576264 :tJPSRtADMVBt MOVE SYMBOLIC NAME TO FORT
       6241564042 6546464562 1515151515 1141627057 1446111100 6245634564 4064456255 4066415465 RAN BUFFERrrrrrtARXO'Ftt RESET TERM VALU
       4515151515 1141625544 1141446462 5515151515 1155444162 1450116371 5542221100 6467573567 ErrrrtARMDtADTRMrrrrtMDAR'HtSYMB2t TWO-W
       5762444063 7155425754 4012151515 1155444162 1457114144 7062631100 5762404570 6445625641 ORD SYMBOL ?rrrtMDAR'OtADXRSt OR EXTERNA
       5440624546 4562455643 4540121515 1152605463 1141456622 2111007145 6334404163 6365554540 L REFERENCE ?rrtJPLStAEV21t YES, ASSUME 
       4657626462 4156406371 5542575415 1515151515 1155444162 1446114144 6044641100 4554634534 FORTRAN SYMBOLrrrrrrtMDAR'FtADPDTt ELSE,
       4063454162 4350405156 4041444560 6414631515 1152606362 1142636562 2111004040 6062453544  SEARCH IN ADEPT'SrrtJPSRtBSUR1t   PRE-D
       4546515645 4440515663 6462654364 5157564064 4142544515 1155444162 1446114144 6044451515 EFINED INSTRUCTION TABLErtMDAR'FtADPDErr
       1152655560 1141456622 2111005657 6440465765 5644344041 6363655545 4046576264 6241564063 tJUMPtAEV21t NOT FOUND, ASSUME FORTRAN S
       7155425754 1515151515 1515151515 1155444162 1451114263 6562601100 4554634534 4046456443 YMBOLrrrrrrrrrrtMDAR'ItBSURPt ELSE, FETC
       5040515663 6462406641 5465454046 6257554064 4142544515 1152655560 1141456622 3111004156 H INSTR VALUE FROM TABLErtJUMPtAEV29t AN
       4440526555 6040645740 6345644041 6340644562 5540664154 6545151515 1515151515 4145662221 D JUMP TO SET AS TERM VALUErrrrrrrrAEV21
       0611526063 6211636562 6371551100 6345416243 5040515640 4657626462 4156406371 5542575440 :tJPSRtSURSYMt SEARCH IN FORTRAN SYMBOL 
       6441425445 1515151515 1152606362 1163646371 5511005657 6440465765 5644344063 6457624540 TABLErrrrrtJPSRtSTSYMt NOT FOUND, STORE 
       5645674046 5762646241 5640637155 4257541515 1515151515 1155444162 1141447062 6311004156 NEW FORTRAN SYMBOLrrrrrrrtMDARtADXRSt AN
       7140457064 4562564154 4060624546 5170401215 1152635463 1163644570 6411007145 6334406345 Y EXTERNAL PREFIX ?rtJSLStSTEXTt YES, SE
       6440637155 4257544045 7064456256 4154151515 1515151515 1155444162 1163556471 4611004645 T SYMBOL EXTERNALrrrrrrrrtMDARtSMTYFt FE
       6443504063 7155425754 4064716045 1515151515 1155447057 1446112611 0060416241 5545644562 TCH SYMBOL TYPErrrrrtMDXO'Ft6t PARAMETER
       4012151515 1152605463 1141456622 2311005657 3440526555 6040645740 6062574345 6363151515  ?rrrtJPLStAEV23t NO, JUMP TO PROCESSrrr
       1515151515 1155444162 1451145311 6365626011 0060416241 5545644562 4044454651 5645444012 rrrrrtMDAR'I'KtSURPt PARAMETER DEFINED ?
       1515151515 1152604156 1141456622 2141110071 4563344052 6555604064 5740474564 4066415465 rrrrrtJPANtAEV21At YES, JUMP TO GET VALU
       4515151515 1515151515 1155444162 1451116365 6260110063 4564406041 6241554564 4562406245 ErrrrrrrrrtMDAR'ItSURPt SET PARAMETER RE
       4645624556 4345441515 1155444162 1457145011 4322201515 1141625544 1451116365 6260151515 FERENCEDrrtMDAR'O'HtC20rrtARMD'ItSURPrrr
       1155444162 1163656260 1100474564 4060575156 6445624064 5740624546 4562455643 4540605751 tMDARtSURPt GET POINTER TO REFERENCE POI
       5664456215 1155444163 1446145611 2215151515 1141625544 1164552311 0063416645 4060575156 NTERrtMDAS'F'Nt2rrrrtARMDtTM3t SAVE POIN
       6445621515 1155444162 1451116455 2311006341 6645405645 6740624546 4562455643 4540605751 TERrrtMDAR'ItTM3t SAVE NEW REFERENCE POI
       5664456215 1141625544 1163656260 1515151515 1155444162 1451147011 6455231100 6341664540 NTERrtARMDtSURPrrrrrtMDAR'I'XtTM3t SAVE 
       4357566364 4156644066 4154654540 4657624064 4562551515 1141625544 1141446462 5515151515 CONSTANT VALUE FOR TERMrrtARMDtADTRMrrrr
       1152655560 1141456622 2311004757 4064456364 4062454645 6245564345 4440637155 4257541515 tJUMPtAEV23t GO TEST REFERENCED SYMBOLrr
       1515151515 4145662221 4106114162 5544145711 6455251100 6345644055 4163534046 5762404665 rrrrrAEV21A:tARMD'OtTM5t SET MASK FOR FU
       5454406757 6244406641 5465451515 1515151515 7777700000 4464504057 4464504057 4464504057 LL WORD VALUErrrrrrrbbX  DTH ODTH ODTH O
       4464504057 4464504057 4464504057 4464504057 4464504057 4464504057 4464504057            DTH ODTH ODTH ODTH ODTH ODTH ODTH O
 1625: 0005400013 4664562023 1361200467 3414400000 4145662223 0611554441 6214511453 1456116365  *  "FTN03"Q0&W,'   AEV23:tMDAR'I'K'NtSU
       6260110063 7155425754 4044454651 5645444012 1515151515 1152604156 1136102311 0056573440 RPt SYMBOL DEFINED ?rrrrrtJPANt.+3t NO, 
       5265556040 4657624062 4546456245 5643454056 4543456363 4162711515 1515151515 1155444162 JUMP FOR REFERENCE NECESSARYrrrrrrrtMDAR
       1441144611 2611004570 6445625641 5440637155 4257544012 1515151515 1152605463 1141456622 'A'Ft6t EXTERNAL SYMBOL ?rrrrrtJPLStAEV2
       2411005657 3440526555 6040465762 4044454651 5645444063 7155425754 1515151515 1515151515 4t NO, JUMP FOR DEFINED SYMBOLrrrrrrrrrr
       4145662223 4106115544 4162114144 6347561100 6351475640 5760456241 6457624056 5764401310 AEV23A:tMDARtADSGNt SIGN OPERATOR NOT "+
       1340121515 1155444162 1457114144 6246561100 5762406245 4645624556 4345404154 6245414471 " ?rrtMDAR'OtADRFNt OR REFERENCE ALREADY
       4056454345 6363416271 4012151515 1155444162 1457114144 6245541100 5762404570 6062456363  NECESSARY ?rrrtMDAR'OtADRELt OR EXPRESS
       5157564062 4554574341 6441425445 4012151515 1152605463 1141444562 2211007145 6334405154 ION RELOCATABLE ?rrrtJPLStADER2t YES, IL
       5445474154 4062454645 6245564345 1515151515 1515151515 1155444162 1163656260 1100455463 LEGAL REFERENCErrrrrrrrrrtMDARtSURPt ELS
       4534404645 6443504063 5564414240 6057515664 4562151515 1141625544 1141446245 4611004556 E, FETCH SMTAB POINTERrrrtARMDtADREFt EN
       6364416445 4041634062 4546456245 5643454440 6371554257 5415151515 1141625544 1457114144 STATE AS REFERENCED SYMBOLrrrrtARMD'OtAD
       6246561100 6345644062 4546456245 5643454056 4543456363 4162711515 1152655560 1141456623 RFNt SET REFERENCE NECESSARYrrtJUMPtAEV3
       2311005265 5560406457 4041444434 4043544541 6240465441 4763404156 4440624564 6562561515 3t JUMP TO ADD, CLEAR FLAGS AND RETURNrr
       1515151515 4145662224 0611554470 5714461124 1426110041 4263575465 6445406371 5542575440 rrrrrAEV24:tMDXO'Ft4'6t ABSOLUTE SYMBOL 
       1215151515 1152605463 1136102211 0056573440 6353516015 1152655560 1141456622 2711007145 ?rrrrtJPLSt.+2t NO, SKIPrtJUMPtAEV27t YE
       6334404757 4063456440 5164406245 4614444041 5644406563 4540516463 4066415415 1515151515 S, GO SET IT REF'D AND USE ITS VALrrrrrr
       1155447057 1446112414 2211004357 5555575640 6371554257 5440121515 1152605463 1141456622 tMDXO'Ft4'2t COMMON SYMBOL ?rrtJPLStAEV2
       2511005657 3440635351 6015151515 1515151515 1155444162 1141446245 5411007145 6334404570 5t NO, SKIPrrrrrrrrrtMDARtADRELt YES, EX
       6040415462 4541447140 6245545743 4164414254 4540121515 1152604156 1141444562 2211007145 P ALREADY RELOCATABLE ?rrtJPANtADER2t YE
       6334405154 5445474154 4043575542 5156416451 5756151515 1515151515 1155444162 1456114144 S, ILLEGAL COMBINATIONrrrrrrrrtMDAR'NtAD
       6246561100 5657344041 5671406062 4566515765 6340624546 4562455643 4540121515 1152604156 RFNt NO, ANY PREVIOUS REFERENCE ?rrtJPAN
       1141456622 2341110056 5734405753 3440526555 6040645740 6345644062 4546405645 4345636341 tAEV23At NO, OK, JUMP TO SET REF NECESSA
       6271151515 1515151515 1155444162 1451145311 4144624546 1100714563 3440606245 6640624546 RYrrrrrrrrtMDAR'I'KtADREFt YES, PREV REF
       4064574043 5755555756 4012151515 1155444162 1441144611 2615151515 1155447057 1446112215  TO COMMON ?rrrtMDAR'A'Ft6rrrrtMDXO'Ft2r
       1152605463 1141444562 2211005657 3440515454 4547415440 4357554251 5641645157 5615151515 tJPLStADER2t NO, ILLEGAL COMBINATIONrrrr
       1515151515 1155444162 1141446347 5611007145 6334406351 4756405760 4562416457 6240334013 rrrrrtMDARtADSGNt YES, SIGN OPERATOR = "
       3513401215 1155447057 1446112115 1152605463 1141444562 2211005657 3440515454 4547415440 -" ?rtMDXO'Ft1rtJPLStADER2t NO, ILLEGAL 
       6245545743 4164515756 1515151515 1515151515 1155444162 1163656260 1100714563 3440464564 RELOCATIONrrrrrrrrrrtMDARtSURPt YES, FET
       4350406355 6441424060 5751566445 6215151515 1155444163 1446145611 2211004445 4362455545 CH SMTAB POINTERrrrrtMDAS'F'Nt2t DECREME
       5664406457 4043575555 5756404254 5743534046 5145544415 1141625544 1164552111 0063416645 NT TO COMMON BLOCK FIELDrtARMDtTM1t SAVE
       1515151515 1155444162 1141446245 4611004645 6443504063 5564414240 6064624046 5762406062 rrrrrtMDARtADREFt FETCH SMTAB PTR FOR PR
       4566406245 4615151515 1155444163 1446145611 2211004445 4362455545 5664406457 4043575555 EV REFrrrrtMDAS'F'Nt2t DECREMENT TO COMM
       5756404254 5743534046 5145544415 1141625544 1164552211 0063416645 1515151515 1155444162 ON BLOCK FIELDrtARMDtTM2t SAVErrrrrtMDAR
       1451116455 2211004645 6443504060 6245664062 4546404357 5555575640 4254574353 4056415545 'ItTM2t FETCH PREV REF COMMON BLOCK NAME
       1515151515 1155447057 1451116455 2111006341 5545404163 4043656262 4556644043 5755555756 rrrrrtMDXO'ItTM1t SAME AS CURRENT COMMON
       4042545743 5340121515 1152605463 1141444562 2211005657 3440515454 4547415440 4357554251  BLOCK ?rrtJPLStADER2t NO, ILLEGAL COMBI
       5641645157 5615151515 1515151515 1155444162 1451114144 6245461100 6345644046 5162636440 NATIONrrrrrrrrrtMDAR'ItADREFt SET FIRST 
       6563454062 4546456245 5643454415 1155444162 1457145011 4322201515 1141625544 1451114144 USE REFERENCEDrtMDAR'O'HtC20rrtARMD'ItAD
       6245461515 1515151515 7777700000 2555147723 2555147723 2555147723 2555147723 2555147723 REFrrrrrrrbbX  5M'b35M'b35M'b35M'b35M'b3
       2555147723 2555147723 2555147723 2555147723 2555147723                                  5M'b35M'b35M'b35M'b35M'b3
 1660: 0005500013 4664562023 1361200476 3414400000 1155444162 1451147011 6455221100 4554634534  *H "FTN03"Q0&+,'   tMDAR'I'XtTM2t ELSE,
       4046456443 5040606245 6651576563 4062454640 5746466345 6415151515 1155444162 1441114155  FETCH PREVIOUS REF OFFSETrrrrtMDAR'AtAM
       4163531100 5541635315 1155444145 1141444570 6011004144 4440645740 4365626245 5664404570 ASKt MASKrtMDAEtADEXPt ADD TO CURRENT EX
       6062456363 5157564066 4154654515 1141625544 1141444570 6011004156 4440634166 4515151515 PRESSION VALUErtARMDtADEXPt AND SAVErrrr
       1141625544 1457114144 6245541100 6345644045 7060624563 6351575640 6245545743 4164414254 tARMD'OtADRELt SET EXPRESSION RELOCATABL
       4515151515 1141627057 1446111100 4354454162 4062454645 6245564345 4056454345 6363416271 ErrrrtARXO'Ftt CLEAR REFERENCE NECESSARY
       4046544147 1515151515 1141625544 1141446246 5615151515 1152655560 1141456622 2611004156  FLAGrrrrrtARMDtADRFNrrrrtJUMPtAEV26t AN
       4440526555 6040465762 4062455457 4341644142 5445404451 4646456245 5643451515 1515151515 D JUMP FOR RELOCATABLE DIFFERENCErrrrrrr
       4145662225 0611554441 6211414462 4656110044 4546515645 4440624554 5743416441 4254453440 AEV25:tMDARtADRFNt DEFINED RELOCATABLE, 
       4156714060 6245664062 4546401215 1152604156 1141444562 2211007145 6334405154 5445474154 ANY PREV REF ?rtJPANtADER2t YES, ILLEGAL
       4043575542 5156416451 5756151515 1515151515 4145662226 0611416255 4414571141 4464625411  COMBINATIONrrrrrrrrAEV26:tARMD'OtADTRLt
       0063456440 6445625540 6245545743 4164414254 4515151515 1515151515 4145662227 0611554441  SET TERM RELOCATABLErrrrrrrrrAEV27:tMDA
       6214511163 6562601100 4645644350 4063715542 5754146340 4654414763 1515151515 1155444162 R'ItSURPt FETCH SYMBOL'S FLAGSrrrrrtMDAR
       1457145011 4322201100 6345644051 6440624546 4562455643 4544151515 1141625544 1451116365 'O'HtC20t SET IT REFERENCEDrrrtARMD'ItSU
       6260110063 4166454046 5441476340 5156406355 6441421515 1155444162 1163656260 1100464564 RPt SAVE FLAGS IN SMTABrrtMDARtSURPt FET
       4350406355 6441424060 5751566445 6215151515 1155444163 1446145611 2111004445 4362455545 CH SMTAB POINTERrrrrtMDAS'F'Nt1t DECREME
       5664406457 4066415465 4540675762 4415151515 1141625544 1164552111 0063416645 1515151515 NT TO VALUE WORDrrrrtARMDtTM1t SAVErrrrr
       1155444162 1451116455 2111004645 6443504063 7155425754 1463406641 5465451515 1155444162 tMDAR'ItTM1t FETCH SYMBOL'S VALUErrtMDAR
       1441116455 2511005541 6353151515 1155444145 1141446462 5511004357 5542515645 4041567140 'AtTM5t MASKrrrtMDAEtADTRMt COMBINE ANY 
       6062456651 5765634060 4162415545 6445624066 4154654515 1515151515 4145662231 0611416255 PREVIOUS PARAMETER VALUErrrrrrAEV29:tARM
       4411414464 6255110063 4166454043 6562624556 6440644562 5540664154 6545151515 1515151515 DtADTRMt SAVE CURRENT TERM VALUErrrrrrrr
       4145662320 0611554441 6214561141 4464625411 0043656262 4556644064 4562554062 4554574341 AEV30:tMDAR'NtADTRLt CURRENT TERM RELOCA
       6441425445 4012151515 1152604156 1141456623 2211005657 3440635351 6015151515 1515151515 TABLE ?rrrtJPANtAEV32t NO, SKIPrrrrrrrrr
       1155444162 1141446246 5611007145 6334406245 4645624556 4345405645 4345636341 6271401215 tMDARtADRFNt YES, REFERENCE NECESSARY ?r
       1152604156 1141444562 2211005154 5445474154 4043575542 5156416451 5756405146 4071456315 tJPANtADER2t ILLEGAL COMBINATION IF YESr
       1515151515 1155444162 1141446245 5411004570 6062456363 5157564041 5462454144 7140624554 rrrrrtMDARtADRELt EXPRESSION ALREADY REL
       5743416441 4254454012 1515151515 1152604156 1141456623 2111007145 6334406353 5160151515 OCATABLE ?rrrrrtJPANtAEV31t YES, SKIPrrr
       1515151515 1155444162 1141446347 5611005657 3440635147 5640576045 6241645762 4055656364 rrrrrtMDARtADSGNt NO, SIGN OPERATOR MUST
       4033401310 1315151515 1152605463 1141444562 2211004554 6345344051 5454454741 5440624554  = "+"rrrrtJPLStADER2t ELSE, ILLEGAL REL
       5743416451 5756151515 1141625544 1457114144 6245541100 6345644045 7060624563 6351575640 OCATIONrrrtARMD'OtADRELt SET EXPRESSION 
       6245545743 4164414254 4515151515 1152655560 1141456623 2311004156 4440526555 6040645740 RELOCATABLErrrrtJUMPtAEV33t AND JUMP TO 
       4357556065 6445406641 5465451515 1515151515 4145662321 0611554441 6211414463 4756110063 COMPUTE VALUErrrrrrrAEV31:tMDARtADSGNt S
       5147564057 6045624164 5762403340 1335134012 1515151515 1155447057 1143211515 1152605463 IGN OPERATOR = "-" ?rrrrrtMDXOtC1rrtJPLS
       1141444562 2211005657 3440515454 4547415440 4162516450 5545645143 1515151515 1515151515 tADER2t NO, ILLEGAL ARITHMETICrrrrrrrrrr
       1141625544 1141446245 5411004554 6345344062 4554574341 6441425445 4044514646 4562455643 tARMDtADRELt ELSE, RELOCATABLE DIFFERENC
       4515151515 1152655560 1141456623 2311006345 6440414263 5754656445 4041564440 5265556040 ErrrrtJUMPtAEV33t SET ABSOLUTE AND JUMP 
       6457406365 4264624143 6415151515 1515151515 4145662322 0611554441 6214561141 4462455411 TO SUBTRACTrrrrrrrrrAEV32:tMDAR'NtADRELt
       0045706062 4563635157 5640565764 4062455457 4341644142 5445401215 1155447057 1441114144  EXPRESSION NOT RELOCATABLE ?rtMDXO'AtAD
       6246561100 4156444062 4546456245 5643454056 5764405645 4345636341 6271401215 1152604156 RFNt AND REFERENCE NOT NECESSARY ?rtJPAN
       1141456623 2311007145 6334404142 6357546564 4534404757 4044574057 6045624164 5157561515 tAEV33t YES, ABSOLUTE, GO DO OPERATIONrr
       1515151515 7777700000 1772320027 1772320027 1772320027 1772320027 1772320027 1772320027 rrrrrbbX  )Z; 7)Z; 7)Z; 7)Z; 7)Z; 7)Z; 7
       1772320027 1772320027 1772320027 1772320027                                             )Z; 7)Z; 7)Z; 7)Z; 7
 1265: 0005600013 4664562023 1361200357 3414400000 1155444162 1141446347 5611004554 6345344063  *P "FTN03"Q0!O,'   tMDARtADSGNt ELSE, S
       5147564057 6045624164 5762403340 1310134012 1515151515 1154637057 1143211100 5762401335 IGN OPERATOR = "+" ?rrrrrtLSXOtC1t OR "-
       1340121515 1152605463 1141444562 2211005657 3440515454 4547415440 5760456241 6451575615 " ?rrtJPLStADER2t NO, ILLEGAL OPERATIONr
       1515151515 4145662323 0611554441 6211414463 4756110046 4564435040 6351475640 5760456241 rrrrrAEV33:tMDARtADSGNt FETCH SIGN OPERA
       6457621515 1155444145 1454111100 4144444046 4564435040 6457404745 6440435755 5541564415 TORrrtMDAE'Ltt ADD FETCH TO GET COMMANDr
       1155444162 1141446364 4215151515 1141625162 1446111100 4645644350 4045704543 6564515756 tMDARtADSTBrrrrtARIR'Ftt FETCH EXECUTION
       4051566364 6265436451 5756151515 1141625544 1136102211 0063416645 4051641515 1155444162  INSTRUCTIONrrrtARMDt.+2t SAVE ITrrtMDAR
       1141444570 6011004645 6443504045 7060624563 6351575640 6641546545 1515151515 1156575760 tADEXPt FETCH EXPRESSION VALUErrrrrtNOOP
       1111006045 6246576255 4057604562 4164576215 1141625544 1141444570 6011006341 6645404570 tt PERFORM OPERATORrtARMDtADEXPt SAVE EX
       6062456363 5157561515 1141625544 1457114144 5656541100 6345644056 5764405665 5454404570 PRESSIONrrtARMD'OtADNNLt SET NOT NULL EX
       6062456363 5157561515 1515151515 4145662420 0611526063 6211414443 5462110043 5445416240 PRESSIONrrrrrrrAEV40:tJPSRtADCLRt CLEAR 
       5765644064 4562554046 5441476315 1155445162 1141456611 0041564440 6245646562 5640645740 OUT TERM FLAGSrtMDIRtAEVt AND RETURN TO 
       4341545445 6215151515 1515151515 1515151515 0040635147 5640576045 6241645762 4051566364 CALLERrrrrrrrrrrrrrr  SIGN OPERATOR INST
       6265436451 5756404451 6360416443 5040644142 5445403636 3615151515 1515151515 4144636442 RUCTION DISPATCH TABLE ...rrrrrrrrrADSTB
       0611554441 4511414464 6255110041 4444151515 1155444145 1456114144 6462551100 6365426462 :tMDAEtADTRMt ADDrrrtMDAE'NtADTRMt SUBTR
       4143641515 1155447057 1141446462 5511004570 4354656351 6645405762 1515151515 1155444162 ACTrrtMDXOtADTRMt EXCLUSIVE ORrrrrrtMDAR
       1457114144 6462551100 5156435465 6351664540 5762151515 1155444162 1441114144 6462551100 'OtADTRMt INCLUSIVE ORrrrtMDAR'AtADTRMt 
       4156441515 1152606362 1141445560 7111005565 5464516054 7115151515 1152606362 1141444451 ANDrrtJPSRtADMPYt MULTIPLYrrrrtJPSRtADDI
       6611004451 6651444515 1152606362 1141444466 6211004451 6651444540 6245554151 5644456215 Vt DIVIDErtJPSRtADDVRt DIVIDE REMAINDERr
       1515151515 1515151515 0040644562 5540556554 6451605471 4063654262 5765645156 4515151515 rrrrrrrrrr  TERM MULTIPLY SUBROUTINErrrr
       1515151515 4144556071 0611526555 6011361100 4556646271 1515151515 1155607154 1141446462 rrrrrADMPY:tJUMPt.t ENTRYrrrrrtMPYLtADTR
       5511005565 5464516054 7140457060 6245636351 5756404271 4064456255 1515151515 1156575760 Mt MULTIPLY EXPRESSION BY TERMrrrrrtNOOP
       1515151515 1141626263 1121110041 4452656364 4046576240 5156644547 4562405565 5464516054 rrrrrtARRSt1t ADJUST FOR INTEGER MULTIPL
       7115151515 1155445162 1141445560 7111006245 6465625615 1515151515 1515151515 0040644562 YrrrrtMDIRtADMPYt RETURNrrrrrrrrrrr  TER
       5540445166 5144454063 6542625765 6451564515 1515151515 4144445166 0611526555 6011361100 M DIVIDE SUBROUTINErrrrrrADDIV:tJUMPt.t 
       4556646271 1515151515 1141624162 1446144211 1100414452 6563644046 5762405156 6445474562 ENTRYrrrrrtARAR'F'Btt ADJUST FOR INTEGER
       4044516651 4445151515 1144516654 1141446462 5511004451 6651444540 4570606245 6363515756  DIVIDErrrtDIVLtADTRMt DIVIDE EXPRESSION
       4042714064 4562551515 1156575760 1515151515 1141625544 1164552111 0063416645 4062456365  BY TERMrrtNOOPrrrrrtARMDtTM1t SAVE RESU
       5464151515 1141624162 1446145011 1100635147 5640457064 4556444061 6557645145 5664151515 LTrrrtARAR'F'Htt SIGN EXTEND QUOTIENTrrr
       1141626263 1121253615 1156575760 1515151515 1155445162 1141444451 6611006245 6465625615 tARRSt15.rtNOOPrrrrrtMDIRtADDIVt RETURNr
       1515151515 1515151515 7777700000 5561461406 5561461406 5561461406 5561461406 5561461406 rrrrrrrrrrbbX  MQF':MQF':MQF':MQF':MQF':
       5561461406 5561461406 5561461406 5561461406 5561461406                                  MQF':MQF':MQF':MQF':MQF':
 1320: 0005700013 4664562023 1361200372 3414400000 0040644562 5540445166 5144454062 4555415156  *X "FTN03"Q0!Z,'     TERM DIVIDE REMAIN
       4445624063 6542625765 6451564515 1515151515 4144446662 0611526555 6011361100 4556646271 DER SUBROUTINErrrrrrADDVR:tJUMPt.t ENTRY
       1515151515 1152606362 1141444451 6611004451 6651444540 4570606245 6363515756 4042714064 rrrrrtJPSRtADDIVt DIVIDE EXPRESSION BY T
       4562551515 1155444162 1450116455 2111004645 6443504062 4563655464 1515151515 1155444162 ERMrrtMDAR'HtTM1t FETCH RESULTrrrrrtMDAR
       1441114155 4163531100 5541635340 6245554151 5644456215 1141626263 1121110041 4452656364 'AtAMASKt MASK REMAINDERrtARRSt1t ADJUST
       4046576240 5156644547 4562406245 5541515644 4562151515 1155445162 1141444466 6211006245  FOR INTEGER REMAINDERrrrtMDIRtADDVRt RE
       6465625615 1515151515 1515151515 0040644562 5540456641 5465416451 5756404562 6257626340 TURNrrrrrrrrrrr  TERM EVALUATION ERRORS 
       3636361515 1515151515 4144456221 0611526063 6211456262 5762151515 1111456222 2121110040 ...rrrrrrrADER1:tJPSRtERRORrrrttER211t  
       4016515454 4547415440 6371554257 5440576240 5760456241 6457621715 1152655560 1141456624  (ILLEGAL SYMBOL OR OPERATOR)rtJUMPtAEV4
       2011005147 5657624540 6371554257 5415151515 1515151515 4144456222 0611526063 6211456262 0t IGNORE SYMBOLrrrrrrrrrADER2:tJPSRtERR
       5762151515 1111456222 2124110040 4016515454 4547415440 4570606245 6363515756 4062455457 ORrrrttER214t   (ILLEGAL EXPRESSION RELO
       4341645157 5617151515 1152655560 1141456624 2011005147 5657624540 6445625515 1515151515 CATION)rrrtJUMPtAEV40t IGNORE TERMrrrrrr
       1515151515 0040435445 4162406445 6255406641 5465454041 5644404654 4147634063 6542625765 rrrrr  CLEAR TERM VALUE AND FLAGS SUBROU
       6451564515 1515151515 4144435462 0611526555 6011361100 4556646271 1515151515 1141627057 TINErrrrrrADCLR:tJUMPt.t ENTRYrrrrrtARXO
       1446111100 6245634564 4036363615 1141625544 1141446347 5611004040 4365626245 5664406351 'Ftt RESET ...rtARMDtADSGNt   CURRENT SI
       4756405760 4562416457 6215151515 1141625544 1141446462 5511004040 6445625540 6641546545 GN OPERATORrrrrtARMDtADTRMt   TERM VALUE
       1515151515 1141625544 1141446462 5411004040 6445625540 6245545743 4164414254 4540465441 rrrrrtARMDtADTRLt   TERM RELOCATABLE FLA
       4715151515 1141625544 1141446371 6311004040 6371554257 5451434064 4562554063 4166454440 GrrrrtARMDtADSYSt   SYMBOLIC TERM SAVED 
       4654414715 1141625544 1141445663 4611004040 5657563563 7155425754 5143406641 5465454051 FLAGrtARMDtADNSFt   NON-SYMBOLIC VALUE I
       5640644562 5540465441 4715151515 1155445162 1141444354 6211006245 6465625615 1515151515 N TERM FLAGrrrrtMDIRtADCLRt RETURNrrrrrr
       1515151515 0040655660 4143534056 6555456251 4340435041 6241436445 6240636542 6257656451 rrrrr  UNPACK NUMERIC CHARACTER SUBROUTI
       5645151515 1515151515 4145665647 0611526555 6011361100 4556646271 1515151515 1155444162 NErrrrrrrrAEVNG:tJUMPt.t ENTRYrrrrrtMDAR
       1470114145 6631311100 4164404556 4440574640 6757624440 1215151515 1152605463 1136102411 'XtAEV99t AT END OF WORD ?rrrrtJPLSt.+4t
       0056573440 6353516015 1515151515 1155444162 1446112411 0045546345 3440624535 6364416264  NO, SKIPrrrrrrtMDAR'Ft4t ELSE, RE-START
       4043504162 4043576556 6445621515 1141625544 1456114145 6631311515 1141624162 1470114145  CHAR COUNTERrrtARMD'NtAEV99rrtARAR'XtAE
       6631301100 4156444051 5644457040 4645644350 4060575156 6445621515 1515151515 1155444162 V98t AND INDEX FETCH POINTERrrrrrrrtMDAR
       1451145311 4145663130 1100464564 4350405645 7064404350 4162414364 4562151515 1141625544 'I'KtAEV98t FETCH NEXT CHARACTERrrrtARMD
       1451114145 6631301100 6341664540 6257644164 4544406757 6244404657 6240564570 6440434154 'ItAEV98t SAVE ROTATED WORD FOR NEXT CAL
       5415151515 1155444162 1441114327 2711005541 6353404350 4162151515 1141625544 1163435041 LrrrrtMDAR'AtC77t MASK CHARrrrtARMDtSCHA
       6211006341 6645404657 6240475665 5515151515 1155445162 1141456656 4711006245 6465625615 Rt SAVE FOR GNUMrrrrtMDIRtAEVNGt RETURNr
       1515151515 4145663131 0611112011 0064455560 4063645762 4147451515 4145663130 0611112011 rrrrrAEV99:tt0t TEMP STORAGErrAEV98:tt0t
       0064455560 4063645762 4147451515 1515151515 1515151515 7777700000 7545215663 7545215663  TEMP STORAGErrrrrrrrrrrrbbX  @E1NS@E1NS
       7545215663 7545215663 7545215663 7545215663 7545215663 7545215663 7545215663 7545215663 @E1NS@E1NS@E1NS@E1NS@E1NS@E1NS@E1NS@E1NS
  890: 0006000013 4664562023 1361200244 3414400000 0040474564 4062454645 6245564345 4440637155  :  "FTN03"Q0cD,'     GET REFERENCED SYM
       4257544066 4154654540 6365426257 6564515645 1515151515 1515151515 4144476366 0611526555 BOL VALUE SUBROUTINErrrrrrrrrrADGSV:tJUM
       6011361100 4745644063 7155425754 4066415465 4540636542 6257656451 5645151515 1155444162 Pt.t GET SYMBOL VALUE SUBROUTINErrrtMDAR
       1141446246 5611006371 5542575440 6245464562 4556434544 4012151515 1152604156 1136102311 tADRFNt SYMBOL REFERENCED ?rrrtJPANt.+3t
       0071456334 4063535160 1515151515 1515151515 1155444162 1141444570 6011004645 6443504045  YES, SKIPrrrrrrrrrrtMDARtADEXPt FETCH E
       7060624563 6351575640 6641546545 1515151515 1155445162 1470114144 4763661100 6245646562 XPRESSION VALUErrrrrtMDIR'XtADGSVt RETUR
       5640162217 4051464056 5764151515 1515151515 1155444162 1451145314 5611414462 4546110063 N (2) IF NOTrrrrrrrrtMDAR'I'K'NtADREFt S
       7155425754 4044454651 5645444012 1515151515 1141565162 1141444763 6611005657 3440624564 YMBOL DEFINED ?rrrrrtANIRtADGSVt NO, RET
       6562564016 2117151515 1515151515 1155444162 1441144611 2611006371 5542575440 4570644562 URN (1)rrrrrrrrtMDAR'A'Ft6t SYMBOL EXTER
       5641544012 1515151515 1152605463 1136102211 0056573440 6353516015 1155445162 1141444763 NAL ?rrrrrtJPLSt.+2t NO, SKIPrtMDIRtADGS
       6611007145 6334406245 6465625640 1621171515 1515151515 1155444162 1141446245 4611004745 Vt YES, RETURN (1)rrrrrrrtMDARtADREFt GE
       6440605751 5664456240 6457406371 5542575440 6641546545 1515151515 1155444163 1446145611 T POINTER TO SYMBOL VALUErrrrrtMDAS'F'Nt
       2115151515 1141625544 1164552115 1155444162 1451116455 2111004645 6443504063 7155425754 1rrrrtARMDtTM1rtMDAR'ItTM1t FETCH SYMBOL
       4066415465 4515151515 1155444145 1141444570 6011004144 4440645740 4570606245 6363515756  VALUErrrrtMDAEtADEXPt ADD TO EXPRESSION
       1515151515 1141625544 1141444570 6015151515 1155445162 1470114144 4763661100 6245646562 rrrrrtARMDtADEXPrrrrtMDIR'XtADGSVt RETUR
       5640162217 1515151515 1515151515 1515151515 0040555766 4540414445 6064406371 5542575440 N (2)rrrrrrrrrrrrrrr  MOVE ADEPT SYMBOL 
       5156645740 4657626462 4156404265 4646456240 6365426257 6564515645 1515151515 1515151515 INTO FORTRAN BUFFER SUBROUTINErrrrrrrrrr
       4144556642 0611526555 6011361100 4556646271 1515151515 1155444162 1141446371 2111005557 ADMVB:tJUMPt.t ENTRYrrrrrtMDARtADSY1t MO
       6645406371 5542575440 6757624440 2115151515 1141625544 1163715542 2115151515 1155444162 VE SYMBOL WORD 1rrrrtARMDtSYMB1rrrrtMDAR
       1141446371 2211005557 6645406371 5542575440 6757624440 2215151515 1141625544 1163715542 tADSY2t MOVE SYMBOL WORD 2rrrrtARMDtSYMB
       2215151515 1155445162 1141445566 4211006245 6465625615 1515151515 1515151515 7777700000 2rrrrtMDIRtADMVBt RETURNrrrrrrrrrrrbbX  
       3224705716 3224705716 3224705716 3224705716 3224705716 3224705716 3224705716 3224705716 ;4XO(;4XO(;4XO(;4XO(;4XO(;4XO(;4XO(;4XO(
       3224705716 3224705716                                                                   ;4XO(;4XO(
 1480: 0006100013 4664562023 1361200432 3414400000 0040136445 7064625147 5064134041 5644401364  :+ "FTN03"Q0&;,'     "TEXTRIGHT" AND "T
       4570645445 4664134057 6045624164 5762634036 3636151515 1515151515 6445706462 0611416270 EXTLEFT" OPERATORS ...rrrrrrrrTEXTR:tARX
       5714561454 1111001364 4570646251 4750641334 4063456440 3520404657 6240565740 5265636451 O'N'Ltt "TEXTRIGHT", SET -0 FOR NO JUSTI
       4671151515 6445706454 0611554441 6211434220 1100136445 7064544546 6413344063 4564404251 FYrrrTEXTL:tMDARtCB0t "TEXTLEFT", SET BI
       6440201515 1141625544 1164457064 7211006341 6645404654 4147404657 6240644562 5540664154 T 0rrtARMDtTEXTZt SAVE FLAG FOR TERM VAL
       6545405645 4544454415 1152655560 1164457064 7011004757 4060625743 4563631515 1515151515 UE NEEDEDrtJUMPtTEXTXt GO PROCESSrrrrrrr
       1515151515 0040644570 6440474556 4562416451 5647406062 5743456363 5762401613 6445706413 rrrrr  TEXT GENERATING PROCESSOR ("TEXT"
       4041564440 1363646251 5647134057 6045624164 5762631740 3636361515 1515151515 6445706446  AND "STRING" OPERATORS) ...rrrrrrrTEXTF
       0611554441 6214541111 0045566462 7140465762 4013636462 5156471315 6445706457 0611416270 :tMDAR'Ltt ENTRY FOR "STRING"rTEXTO:tARX
       5714461111 0045566462 7140465762 4013644570 6413151515 1141625544 1164457064 2611006341 O'Ftt ENTRY FOR "TEXT"rrrtARMDtTEXT6t SA
       6645404556 6462714046 5441471515 1141627057 1446111100 6245634564 4064456255 4066415465 VE ENTRY FLAGrrtARXO'Ftt RESET TERM VALU
       4540465441 4715151515 1141625544 1164457064 7215151515 1515151515 6445706470 0611416270 E FLAGrrrrtARMDtTEXTZrrrrrrrrrTEXTX:tARX
       5714461111 0043544541 6240416215 1141625544 1164457064 7111007245 6257406364 5760405765 O'Ftt CLEAR ARrtARMDtTEXTYt ZERO STOP OU
       6460656440 4654414715 1141625544 1160435067 4411004354 4541624060 4143535156 4740675762 TPUT FLAGrtARMDtPCHWDt CLEAR PACKING WOR
       4415151515 1155444162 1446112511 0051565164 5141545172 4540604143 5351564740 4357655664 DrrrrtMDAR'Ft5t INITIALIZE PACKING COUNT
       1515151515 1141625544 1456116043 5043641100 4040645740 4657624345 4041644054 4541636440 rrrrrtARMD'NtPCHCTt   TO FORCE AT LEAST 
       5756454067 5762441515 1515151515 1152606362 1141446470 4411004745 6440515651 6451415440 ONE WORDrrrrrrrtJPSRtADTXDt GET INITIAL 
       6445706440 4445545155 4564456215 1152655560 1164457064 2311005265 5560405146 4055516363 TEXT DELIMETERrtJUMPtTEXT3t JUMP IF MISS
       5156471515 1515151515 6445706421 0611526063 6211474143 1100474564 4056457064 4043504162 INGrrrrrrrTEXT1:tJPSRtGACt GET NEXT CHAR
       4143644562 1515151515 1152606362 1141446443 6211004350 4543534051 4640433762 1515151515 ACTERrrrrrtJPSRtADTCRt CHECK IF C/Rrrrrr
       1152655560 1164457064 2311005265 5560405146 4045564440 5746406445 7064151515 1515151515 tJUMPtTEXT3t JUMP IF END OF TEXTrrrrrrrr
       1155447057 1164457064 2711004350 4543534046 5762404556 4440644562 5551564164 5762151515 tMDXOtTEXT7t CHECK FOR END TERMINATORrrr
       1152605463 1164457064 2211005265 5560405146 4056576440 4556441515 1515151515 6445706423 tJPLStTEXT2t JUMP IF NOT ENDrrrrrrrTEXT3
       0611554441 6214501164 4570647211 0046515454 4062455541 5156444562 4012151515 1152604156 :tMDAR'HtTEXTZt FILL REMAINDER ?rrrtJPAN
       1164457064 2011005265 5560405146 4056574016 6445706462 5147506417 1515151515 1515151515 tTEXT0t JUMP IF NO (TEXTRIGHT)rrrrrrrrrr
       1155444162 1456116445 7064261100 4645644350 4045566462 7140465441 4715151515 1152604156 tMDAR'NtTEXT6t FETCH ENTRY FLAGrrrrtJPAN
       1136102411 0063535160 4051464013 6445706413 1515151515 1515151515 1141627057 1446111100 t.+4t SKIP IF "TEXT"rrrrrrrrrrtARXO'Ftt 
       4554634534 4060414353 4057564540 5557624540 5665545440 4350416215 1152606362 1160435015 ELSE, PACK ONE MORE NULL CHARrtJPSRtPCHr
       1152606362 1164457064 2511004156 4440606257 4345636340 6757624434 4051464046 6554541515 tJPSRtTEXT5t AND PROCESS WORD, IF FULLrr
       1515151515 1141627057 1446111100 4651545440 5765644054 4163644067 5762444067 5164504056 rrrrrtARXO'Ftt FILL OUT LAST WORD WITH N
       6554546315 1152606362 1160435046 5415151515 1152606362 1164457064 2511005765 6460656440 ULLSrtJPSRtPCHFLrrrrtJPSRtTEXT5t OUTPUT 
       6757624434 4051464041 5671151515 1515151515 6445706420 0611554441 6214561164 4570647211 WORD, IF ANYrrrrrrrrTEXT0:tMDAR'NtTEXTZt
       0064456255 4066415465 4540121515 1152604156 1141446055 4411004757 4063644162 6440564567  TERM VALUE ?rrtJPANtADPMDt GO START NEW
       4063644164 4555455664 4051464056 5764151515 1515151515 1155444162 1160435067 4411004554  STATEMENT IF NOTrrrrrrrrtMDARtPCHWDt EL
       6345344046 4564435040 6041435345 4440664154 6545151515 1152655560 1141446045 2111004757 SE, FETCH PACKED VALUErrrtJUMPtADPE1t GO
       4060625743 4563634064 4562554066 4154654515 1515151515 7777700000 3673746047 3673746047  PROCESS TERM VALUErrrrrrbbX  .$#PG.$#PG
       3673746047 3673746047 3673746047 3673746047 3673746047 3673746047 3673746047 3673746047 .$#PG.$#PG.$#PG.$#PG.$#PG.$#PG.$#PG.$#PG
  690: 0006200013 4664562023 1361200174 3414400000 6445706422 0611554470 5711644570 6427110062  :0 "FTN03"Q0%#,'   TEXT2:tMDXOtTEXT7t R
       4563645762 4540435041 6241436445 6215151515 1152606362 1160435011 0060414353 4051641515 ESTORE CHARACTERrrrrtJPSRtPCHt PACK ITrr
       1152606362 1164457064 2511006062 5743456363 4051464067 5762444046 6554541515 1152655560 tJPSRtTEXT5t PROCESS IF WORD FULLrrtJUMP
       1164457064 2111004757 4047456440 5645706440 4350416241 4364456215 1515151515 1515151515 tTEXT1t GO GET NEXT CHARACTERrrrrrrrrrrr
       0040606257 4345636340 4665545440 6041435345 4440644570 6440675762 4440636542 6257656451   PROCESS FULL PACKED TEXT WORD SUBROUTI
       5645151515 1515151515 6445706425 0611526555 6011361100 4556646271 1515151515 1155444162 NErrrrrrrrTEXT5:tJUMPt.t ENTRYrrrrrtMDAR
       1164457064 7111006364 5760406041 4353515647 4046544147 4063456440 1215151515 1141565162 tTEXTYt STOP PACKING FLAG SET ?rrrrtANIR
       1164457064 2511006245 6465625640 5146407145 6315151515 1515151515 1155444162 1164457064 tTEXT5t RETURN IF YESrrrrrrrrrtMDARtTEXT
       7211006345 6440636457 6040465441 4740514640 5645454445 4415151515 1141625544 1164457064 Zt SET STOP FLAG IF NEEDEDrrrrtARMDtTEXT
       7115151515 1141565162 1164457064 2511006245 6465625640 5146406345 6415151515 1515151515 YrrrrtANIRtTEXT5t RETURN IF SETrrrrrrrrr
       1155444162 1160435067 4411004554 6345344046 4564435040 4651545445 4440675762 4415151515 tMDARtPCHWDt ELSE, FETCH FILLED WORDrrrr
       1152606362 1157414263 1100576564 6065644041 4263575465 6445406757 6244151515 1155445162 tJPSRtOABSt OUTPUT ABSOLUTE WORDrrrtMDIR
       1164457064 2511004156 4440624564 6562561515 1515151515 6445706426 0611112011 0045566462 tTEXT5t AND RETURNrrrrrrrTEXT6:tt0t ENTR
       7140465441 4715151515 6445706427 0611112011 0045564440 4350416241 4364456240 6341664515 Y FLAGrrrrTEXT7:tt0t END CHARACTER SAVEr
       6445706471 0611112011 0063645760 4060414353 5156474046 5441471515 6445706472 0611112011 TEXTY:tt0t STOP PACKING FLAGrrTEXTZ:tt0t
       0057604562 4164576240 6471604540 4654414763 1515151515 1515151515 1515151515 7777700000  OPERATOR TYPE FLAGSrrrrrrrrrrrrrrrbbX  
       7660150365 7660150365 7660150365 7660150365 7660150365 7660150365 7660150365 7660150365 +Pr!U+Pr!U+Pr!U+Pr!U+Pr!U+Pr!U+Pr!U+Pr!U
       7660150365 7660150365                                                                   +Pr!U+Pr!U
 1165: 0006300013 4664562023 1361200333 3414400000 0040435041 6241436445 6240474556 4562416457  :8 "FTN03"Q0!=,'     CHARACTER GENERATO
       6240644570 6440636441 6445554556 6440606257 4345636357 6240161341 6343515113 4041564440 R TEXT STATEMENT PROCESSOR ("ASCII" AND 
       1341634351 5170131740 3636361515 1515151515 4163435170 0611416270 5714541111 0045566462 "ASCIIX") ...rrrrrrrASCIX:tARXO'Ltt ENTR
       7140465762 4013416343 5151701315 4163435157 0611554441 6214501143 2111004556 6462714046 Y FOR "ASCIIX"rASCIO:tMDAR'HtC1t ENTRY F
       5762401341 6343515113 1515151515 1141625544 1164457064 2611006341 6645404556 4440574640 OR "ASCII"rrrrrtARMDtTEXT6t SAVE END OF 
       5451636440 4251641515 1515151515 1141627057 1446111100 4354454162 4041621515 1141625544 LIST BITrrrrrrrtARXO'Ftt CLEAR ARrrtARMD
       1141634331 3111006245 6345644060 4143535156 4740675762 4415151515 1141625544 1147416343 tASC99t RESET PACKING WORDrrrrtARMDtGASC
       4611004156 4440545767 4562404341 6345404654 4147151515 1141625544 1457114750 5754631100 Ft AND LOWER CASE FLAGrrrtARMD'OtGHOLSt 
       6345644056 5740634166 4544404350 4162151515 1515151515 1152606362 1141446470 4411004745 SET NO SAVED CHARrrrrrrrrtJPSRtADTXDt GE
       6440515651 6451415440 6364625156 4740444554 5155456445 6215151515 1152655560 1141634351 T INITIAL STRING DELIMETERrrrrtJUMPtASCI
       2211006353 5160405146 4055516363 5156471515 1515151515 4163435121 0611526063 6211474163 2t SKIP IF MISSINGrrrrrrrASCI1:tJPSRtGAS
       4367110047 4564405645 7064404163 4351514067 5762441515 1152655560 1141634351 2211005265 CWt GET NEXT ASCII WORDrrtJUMPtASCI2t JU
       5560405146 4045564415 1515151515 1152606362 1157414263 1100455463 4534405765 6460656440 MP IF ENDrrrrrrtJPSRtOABSt ELSE, OUTPUT 
       4142635754 6564454067 5762441515 1152655560 1141634351 2111004156 4440474564 4056457064 ABSOLUTE WORDrrtJUMPtASCI1t AND GET NEXT
       4067576244 1515151515 1515151515 4163435122 0611554441 6211416343 3131110057 5640455644  WORDrrrrrrrrrrASCI2:tMDARtASC99t ON END
       3440464564 4350404651 5641544067 5762441515 1155444162 1457116445 7064261100 4357554251 , FETCH FINAL WORDrrtMDAR'OtTEXT6t COMBI
       5645404557 5440425164 1515151515 1152606362 1157414263 1100415644 4057656460 6564404651 NE EOL BITrrrrrtJPSRtOABSt AND OUTPUT FI
       5641544067 5762441115 1152655560 1141446055 4411005265 5560406457 4063644162 6440564567 NAL WORDtrtJUMPtADPMDt JUMP TO START NEW
       4063644164 4555455664 1515151515 1515151515 1515151515 0040474564 4056457064 4043504162  STATEMENTrrrrrrrrrrrrrrr  GET NEXT CHAR
       4046576240 4163435151 4063646251 5647401643 4154544544 4046625755 4047505754 4317151515  FOR ASCII STRING (CALLED FROM GHOLC)rrr
       1515151515 4144474163 0611526063 6211474143 1100474564 4056457064 4041444560 6440435041 rrrrrADGAS:tJPSRtGACt GET NEXT ADEPT CHA
       6215151515 1152606362 1141446443 6211004350 4543534051 4640433762 1515151515 1155445162 RrrrrtJPSRtADTCRt CHECK IF C/RrrrrrtMDIR
       1147505754 4311004156 4440624564 6562564016 2117405146 4051545445 4741544045 5644151515 tGHOLCt AND RETURN (1) IF ILLEGAL ENDrrr
       1515151515 1155447057 1164457064 2711004556 4440574640 6364625156 4740121515 1152605463 rrrrrtMDXOtTEXT7t END OF STRING ?rrtJPLS
       1136102211 0056573440 6353516015 1515151515 1155445162 1147505754 4311004554 6345344062 t.+2t NO, SKIPrrrrrrtMDIRtGHOLCt ELSE, R
       4564656256 4016211740 4657624045 5644151515 1515151515 1155447057 1164457064 2711004645 ETURN (1) FOR ENDrrrrrrrrtMDXOtTEXT7t FE
       6443504043 5041624064 5740416215 1155445162 1470114750 5754431100 4156444062 4564656256 TCH CHAR TO ARrtMDIR'XtGHOLCt AND RETURN
       4016221740 4662575540 4750575443 1515151515 1515151515 1515151515 7777700000 7463063004  (2) FROM GHOLCrrrrrrrrrrrrrrrbbX  #S:8&
       7463063004 7463063004 7463063004 7463063004 7463063004 7463063004 7463063004 7463063004 #S:8&#S:8&#S:8&#S:8&#S:8&#S:8&#S:8&#S:8&
       7463063004                                                                              #S:8&
 1210: 0006400013 4664562023 1361200344 3414400000 0040647160 4557656440 6062574345 6363576240  :  "FTN03"Q0!D,'     TYPEOUT PROCESSOR 
       3636361515 1515151515 4164716057 0611526063 6211414464 7044110047 4564405156 5164514154 ...rrrrrrrATYPO:tJPSRtADTXDt GET INITIAL
       4063646251 5647404445 5451554564 4562151515 1152655560 1141446055 4411005146 4043376234  STRING DELIMETERrrrtJUMPtADPMDt IF C/R,
       4047574063 6441626440 5645674063 6441644555 4556641515 1515151515 4164716021 0611526063  GO START NEW STATEMENTrrrrrrrATYP1:tJPS
       6211474143 1100474564 4056457064 4043504162 4143644562 1515151515 1152606362 1141446443 RtGACt GET NEXT CHARACTERrrrrrtJPSRtADTC
       6211006062 5743456363 4043376215 1152655560 1141446055 4411004040 5756404556 4440574640 Rt PROCESS C/RrtJUMPtADPMDt   ON END OF 
       4341624440 4562625762 3440564567 4063645556 6415151515 1515151515 1155447057 1164457064 CARD ERROR, NEW STMNTrrrrrrrrrtMDXOtTEXT
       2711004556 4440444554 5155456445 6240121515 1152605463 1136102215 1152655560 1141446055 7t END DELIMETER ?rrtJPLSt.+2rtJUMPtADPM
       4411007145 6334406364 4162644056 4570644063 6441644555 4556641515 1515151515 1155447057 Dt YES, START NEXT STATEMENTrrrrrrrtMDXO
       1164457064 2711005657 3440624563 6457624540 4350416215 1141625544 1164552111 0041564440 tTEXT7t NO, RESTORE CHARrtARMDtTM1t AND 
       6341664515 1155444162 1154636446 4711004665 5454406357 6562434540 5451636451 5647401215 SAVErtMDARtLSTFGt FULL SOURCE LISTING ?r
       1152604156 1141647160 2111007145 6334405147 5657624515 1515151515 1155444162 1164552111 tJPANtATYP1t YES, IGNORErrrrrrtMDARtTM1t
       0045546345 3440464564 4350404350 4162151515 1155447057 1446112125 1100433762 4012151515  ELSE, FETCH CHARrrrtMDXO'Ft15t C/R ?rrr
       1152605463 1136102311 0056573440 6353516015 1515151515 1152606362 1156456754 5611007145 tJPLSt.+3t NO, SKIPrrrrrrtJPSRtNEWLNt YE
       6334406364 4162644056 4567405451 5645405756 4054516364 5156471515 1152655560 1141647160 S, START NEW LINE ON LISTINGrrtJUMPtATYP
       2111004156 4440526555 6040465762 4056457064 4043504162 1515151515 1515151515 1155447057 1t AND JUMP FOR NEXT CHARrrrrrrrrrrtMDXO
       1446112125 1100624563 6457624540 4350416215 1152606362 1451115743 5060661100 4156444057 'Ft15t RESTORE CHARrtJPSR'ItOCHPVt AND O
       6564606564 4064574054 5163645156 4715151515 1152655560 1141647160 2111006245 6045416440 UTPUT TO LISTINGrrrrtJUMPtATYP1t REPEAT 
       4657624056 4570643440 5146404156 7115151515 1515151515 1515151515 0040647160 4557436440 FOR NEXT, IF ANYrrrrrrrrrrrrrr  TYPEOCT 
       6062574345 6363576240 3636361515 1515151515 4164716043 0611554441 6214541111 0063456465 PROCESSOR ...rrrrrrrATYPC:tMDAR'Ltt SETU
       6040434154 5440645715 1152606362 1451113664 5743631100 4040647160 4540574364 4154406751 P CALL TOrtJPSR'It.TOCSt   TYPE OCTAL WI
       6450407245 6257356365 6060624563 6351575615 1152606362 1141647160 2211004757 4044574051 TH ZERO-SUPPRESSIONrtJPSRtATYP2t GO DO I
       6415151515 1164457064 4037050505 0540647160 4557436440 0505050540 3711004040 1667516450 TrrrrtTEXT /**** TYPEOCT **** /t   (WITH
       4064505163 4054454144 4562405756 4046655454 4054516364 5156471715 1515151515 1515151515  THIS LEADER ON FULL LISTING)rrrrrrrrrrr
       0040647160 4544454340 6062574345 6363576240 3636361515 1515151515 4164716044 0611554441   TYPEDEC PROCESSOR ...rrrrrrrATYPD:tMDA
       6214541111 0063456465 6040434154 5440645715 1152606362 1141647144 2111004040 6471604540 R'Ltt SETUP CALL TOrtJPSRtATYD1t   TYPE 
       4445435155 4154405665 5542456215 1152606362 1141647160 2211004757 4044574051 6415151515 DECIMAL NUMBERrtJPSRtATYP2t GO DO ITrrrr
       1164457064 4037050505 0540647160 4544454340 0505050540 3711004040 1667374064 5051634051 tTEXT /**** TYPEDEC **** /t   (W/ THIS I
       4445566451 4651456240 5156404665 5454405451 6364171515 1515151515 1515151515 7777700000 DENTIFIER IN FULL LIST)rrrrrrrrrrrrbbX  
       4743320426 4743320426 4743320426 4743320426 4743320426 4743320426 4743320426 4743320426 GC;&6GC;&6GC;&6GC;&6GC;&6GC;&6GC;&6GC;&6
       4743320426 4743320426                                                                   GC;&6GC;&6
 1070: 0006500013 4664562023 1361200310 3414400000 0040647160 4557436437 6471604544 4543406062  :H "FTN03"Q0!+,'     TYPEOCT/TYPEDEC PR
       5743456363 5762403636 3615151515 1515151515 4164716022 0611526555 6011361100 4556646271 OCESSOR ...rrrrrrrrrATYP2:tJUMPt.t ENTRY
       1515151515 1141625544 1141647160 2310211100 6341664540 5765646065 6440434154 5415151515 rrrrrtARMDtATYP3+1t SAVE OUTPUT CALLrrrr
       1152606362 1141446362 6411006364 4162644041 4056456740 4570606245 6363515756 1515151515 tJPSRtADSRTt START A NEW EXPRESSIONrrrrr
       1152606362 1141444763 6611004745 6440516463 4066415465 4515151515 1152655560 1141446360 tJPSRtADGSVt GET ITS VALUErrrrtJUMPtADSP
       2111004562 6257624051 4640457064 4562564154 4057624065 5644454651 5645441515 1515151515 1t ERROR IF EXTERNAL OR UNDEFINEDrrrrrrr
       1141625544 1141647160 3111006341 6645404570 6062456363 5157564066 4154654515 1155444162 tARMDtATYP9t SAVE EXPRESSION VALUErtMDAR
       1456115463 6446471100 4665545440 6357656243 4540545163 6451564740 1215151515 1152604156 'NtLSTFGt FULL SOURCE LISTING ?rrrrtJPAN
       1141647160 2311005657 3440635351 6015151515 1515151515 1152606362 1156456754 5611007145 tATYP3t NO, SKIPrrrrrrrrrtJPSRtNEWLNt YE
       6334406364 4162644041 4056456740 5765646065 6440545156 4515151515 1155444162 1141647160 S, START A NEW OUTPUT LINErrrrtMDARtATYP
       2211004645 6443504045 5664627140 4144446245 6363151515 1141625544 1136102211 0063416645 2t FETCH ENTRY ADDRESSrrrtARMDt.+2t SAVE
       4041634060 5751566445 6240645740 6445706440 6364625156 4715151515 1152606362 1451113657  AS POINTER TO TEXT STRINGrrrrtJPSR'It.O
       6364110057 6564606564 4051444556 6451467151 5647406364 6251564715 1111201515 1515151515 STt OUTPUT IDENTIFYING STRINGrtt0rrrrrrr
       4164716023 0611554441 6211416471 6031110046 4564435040 4570606240 6641546545 1515151515 ATYP3:tMDARtATYP9t FETCH EXPR VALUErrrrr
       1152606362 1111005765 6460656440 5164406457 4054516364 5156474044 4566514345 1515151515 tJPSRtt OUTPUT IT TO LISTING DEVICErrrrr
       1152655560 1141444556 4411004757 4045564440 6364416445 5545566415 1515151515 4164716031 tJUMPtADENDt GO END STATEMENTrrrrrrATYP9
       0611112011 0064455560 4063645762 4147451515 1515151515 1515151515 0040636542 6257656451 :tt0t TEMP STORAGErrrrrrrrrrrr  SUBROUTI
       5645406457 4064716045 4044454351 5541544056 6555424562 4046576240 6471604544 4543151515 NE TO TYPE DECIMAL NUMBER FOR TYPEDECrrr
       1515151515 4164714421 0611526555 6011361100 4556646271 1515151515 1141624162 1456144611 rrrrrATYD1:tJUMPt.t ENTRYrrrrrtARAR'N'Ft
       1100564547 4164516645 4056655542 4562401215 1152604156 1136102411 0056573440 6353516015 t NEGATIVE NUMBER ?rtJPANt.+4t NO, SKIPr
       1515151515 1155444162 1446110235 1100714563 3440576564 6065644055 5156656340 6351475615 rrrrrtMDAR'Ftc-t YES, OUTPUT MINUS SIGNr
       1152606362 1451115743 5060661515 1155444162 1141647160 3111004645 6443504056 5736344063 tJPSR'ItOCHPVrrtMDARtATYP9t FETCH NO., S
       4564406457 4047456440 5645474164 4544151515 1515151515 1141624162 1456144611 1100474564 ET TO GET NEGATEDrrrrrrrrtARAR'N'Ftt GET
       4041426357 5465644540 6641546545 1515151515 1152606362 1157444543 6311005765 6460656440  ABSOLUTE VALUErrrrrtJPSRtODECSt OUTPUT 
       4445435155 4154344072 4562573563 6560606245 6363454415 1155445162 1141647144 2111006245 DECIMAL, ZERO-SUPPRESSEDrtMDIRtATYD1t RE
       6465625615 1515151515 1515151515 7777700000 4071457245 4071457245 4071457245 4071457245 TURNrrrrrrrrrrrbbX   YEZE YEZE YEZE YEZE
       4071457245 4071457245 4071457245 4071457245 4071457245 4071457245                        YEZE YEZE YEZE YEZE YEZE YEZE
  595: 0006600013 4664562023 1361200151 3414400000 0040647160 4551564060 6257434563 6357624036  :P "FTN03"Q0%I,'     TYPEIN PROCESSOR .
       3636151515 1515151515 4164716051 0611554441 6211474343 6366110063 4166454043 6562624556 ..rrrrrrrrATYPI:tMDARtGCCSVt SAVE CURREN
       6440435041 6241436445 6240636441 6465634036 3636151515 1141625544 1141645156 3115151515 T CHARACTER STATUS ...rrrtARMDtATIN9rrrr
       1155444162 1147435041 6215151515 1141625544 1141645156 3011151515 1141627057 1446111100 tMDARtGCHARrrrrtARMDtATIN8trrrtARXO'Ftt 
       6345644056 5740634166 4544404350 4162151515 1141625544 1147434363 6615151515 1141625544 SET NO SAVED CHARrrrtARMDtGCCSVrrrrtARMD
       1141645156 4611004556 4142544540 6471604551 5640555744 4515151515 1155444162 1456115463 tATINFt ENABLE TYPEIN MODErrrrtMDAR'NtLS
       6446471100 4665545440 6357656243 4540545163 6451564740 1215151515 1152604156 1141442211 TFGt FULL SOURCE LISTING ?rrrrtJPANtAD2t
       0056573440 6353516034 4047456440 5645706440 6371554046 6257554064 7160455156 1515151515  NO, SKIP, GET NEXT SYM FROM TYPEINrrrrr
       1515151515 1152606362 1156456754 5611004554 6345344063 6441626440 4140564567 4057656460 rrrrrtJPSRtNEWLNt ELSE, START A NEW OUTP
       6564405451 5645151515 1152606362 1451113657 4663641100 5765646065 6440544541 4445624063 UT LINErrrtJPSR'It.OFSTt OUTPUT LEADER S
       6462515647 1515151515 6364625156 4740140505 0505406471 6045515640 0505050505 4014151515 TRINGrrrrrSTRING '**** TYPEIN ***** 'rrr
       1152655560 1141442211 0052655560 4046576240 5645706440 6371554257 5415151515 1515151515 tJUMPtAD2t JUMP FOR NEXT SYMBOLrrrrrrrrr
       4164515631 0611112011 0064455560 4063645762 4147454036 3636151515 4164515630 0611112015 ATIN9:tt0t TEMP STORAGE ...rrrATIN8:tt0r
       4164515646 0611112015 1515151515 1515151515 7777700000 0362023152 0362023152 0362023152 ATINF:tt0rrrrrrrrrrrbbX  !Rc9J!Rc9J!Rc9J
       0362023152 0362023152 0362023152 0362023152 0362023152 0362023152 0362023152            !Rc9J!Rc9J!Rc9J!Rc9J!Rc9J!Rc9J!Rc9J
 1215: 0006700013 4664562023 1361200345 3414400000 0040474564 4051565164 5141544044 4554515545  :X "FTN03"Q0!E,'     GET INITIAL DELIME
       6445624046 5762406445 7064406364 6251564740 6365426257 6564515645 1515151515 1515151515 TER FOR TEXT STRING SUBROUTINErrrrrrrrrr
       4144647044 0611526555 6011361100 4556646271 1515151515 1152606362 1147414311 0047456440 ADTXD:tJUMPt.t ENTRYrrrrrtJPSRtGACt GET 
       5645706440 4350416241 4364456215 1155444162 1147414350 6411004350 4543534051 6463406471 NEXT CHARACTERrtMDARtGACHTt CHECK ITS TY
       6045151515 1155447057 1446112511 0051634051 6440647160 4540254012 1515151515 1152605463 PErrrtMDXO'Ft5t IS IT TYPE 5 ?rrrrrtJPLS
       1136102211 0052655560 4051464056 5764151515 1152655560 1141446470 4410211100 6462714041 t.+2t JUMP IF NOTrrrtJUMPtADTXD+1t TRY A
       4741515640 5146406471 6045402515 1515151515 1155444162 1147435041 6211004645 6443504043 GAIN IF TYPE 5rrrrrrtMDARtGCHARt FETCH C
       5041624143 6445621515 1141625544 1164457064 2711006341 6645404657 6240455644 4043504543 HARACTERrrtARMDtTEXT7t SAVE FOR END CHEC
       5315151515 1155447057 1446112125 1100433762 4012151515 1154635162 1470114144 6470441100 KrrrrtMDXO'Ft15t C/R ?rrrtLSIR'XtADTXDt 
       5657344057 5334406245 6465625640 1622171515 1515151515 1152606362 1145626257 6211004554 NO, OK, RETURN (2)rrrrrrrtJPSRtERRORt EL
       6345344067 4162565156 4740456262 5762151515 1111456222 2126110040 4016636462 5156474044 SE, WARNING ERRORrrrttER216t   (STRING D
       4554515545 6445624056 5764404657 6556441715 1141625544 1457114743 4363661100 6345644064 ELIMETER NOT FOUND)rtARMD'OtGCCSVt SET T
       5740624535 6245414440 4337621515 1155445162 1141446470 4411006245 6465625640 1621174064 O RE-READ C/RrrtMDIRtADTXDt RETURN (1) T
       5740465156 5163504065 6015151515 1515151515 1515151515 0040435045 4353404657 6240433762 O FINISH UPrrrrrrrrrrrrrr  CHECK FOR C/R
       4051564063 6462515647 4064457064 4063654262 5765645156 4515151515 1515151515 4144644362  IN STRING TEXT SUBROUTINErrrrrrrrrADTCR
       0611526555 6011361100 4556646271 1515151515 1155444162 1147435041 6211006741 6340435041 :tJUMPt.t ENTRYrrrrrtMDARtGCHARt WAS CHA
       6241436445 6240433762 4012151515 1155447057 1446112125 1515151515 1152605463 1141446443 RACTER C/R ?rrrtMDXO'Ft15rrrrrtJPLStADTC
       2211005657 3440635351 6015151515 1515151515 1155444162 1141434446 4711006351 5647544540 2t NO, SKIPrrrrrrrrrtMDARtACDFGt SINGLE 
       4341624440 5557444540 1215151515 1152604156 1141446443 2111005265 5560405146 4071456315 CARD MODE ?rrrrtJPANtADTC1t JUMP IF YESr
       1515151515 1152606362 1141444743 4611004554 6345344060 6257434563 6340636441 6264405746 rrrrrtJPSRtADGCFt ELSE, PROCESS START OF
       4056457064 4054515645 1515151515 1152655560 1141446443 2111005265 5560405146 4051545445  NEXT LINErrrrrtJUMPtADTC1t JUMP IF ILLE
       4741544045 5644151515 1155444162 1143212511 0045546345 3440464564 4350404357 4445404657 GAL ENDrrrtMDARtC15t ELSE, FETCH CODE FO
       6240433762 1515151515 1155445162 1470114144 6443621100 6245646562 5640162217 4064574060 R C/RrrrrrtMDIR'XtADTCRt RETURN (2) TO P
       6257434563 6340433762 1515151515 1515151515 4144644321 0611416255 4414571147 4343636611 ROCESS C/RrrrrrrrrrrADTC1:tARMD'OtGCCSVt
       0063416645 4043376240 4657624062 4535624541 4415151515 1152606362 1145626257 6211005765  SAVE C/R FOR RE-READrrrrtJPSRtERRORt OU
       6460656440 4562625762 4046576240 5154544547 4154406445 6255515641 6457621515 1111456222 TPUT ERROR FOR ILLEGAL TERMINATORrrttER2
       2126151515 1155445162 1141446443 6211006245 6465625640 1621174064 5740455644 1515151515 16rrrtMDIRtADTCRt RETURN (1) TO ENDrrrrr
       1515151515 4144644322 0611554470 5714461121 2511006245 6364576245 4043504162 1515151515 rrrrrADTC2:tMDXO'Ft15t RESTORE CHARrrrrr
       1155445162 1470114144 6443621100 4156444062 4564656256 1515151515 1515151515 1515151515 tMDIR'XtADTCRt AND RETURNrrrrrrrrrrrrrrr
       7777700000 5237016023 5237016023 5237016023 5237016023 5237016023 5237016023 5237016023 bbX  J/%P3J/%P3J/%P3J/%P3J/%P3J/%P3J/%P3
       5237016023 5237016023 5237016023                                                        J/%P3J/%P3J/%P3
 1170: 0007000013 4664562023 1361200334 3414400000 0040414445 6064406365 4235457060 6245636351  _  "FTN03"Q0!,,'     ADEPT SUB-EXPRESSI
       5756406065 6350354457 6756405451 6364406441 4254454036 3636151515 1515151515 4144456054 ON PUSH-DOWN LIST TABLE ...rrrrrrrrADEPL
       0611545743 1122055441 6044541036 1100636542 3545706062 4563635157 5640606563 5035445767 :tLOCt2*LAPDL+.t SUB-EXPRESSION PUSH-DOW
       5640545163 6415151515 1515151515 4144456045 4033403635 2115151515 1515151515 1515151515 N LISTrrrrrrrrrADEPE = .-1rrrrrrrrrrrrrr
       0040414445 6064405557 4445406641 6251414254 4563151515 1515151515 4144456060 0611112011   ADEPT MODE VARIABLESrrrrrrrrADEPP:tt0t
       0060656350 3544576756 4054516364 4060575156 6445621515 4144624656 0611112011 0062454645  PUSH-DOWN LIST POINTERrrADRFN:tt0t REFE
       6245564345 4056454345 6363416271 4046544147 1515151515 4144624546 0611112011 0062454645 RENCE NECESSARY FLAGrrrrrADREF:tt0t REFE
       6245564345 4060575156 6445621515 4144624554 0611112011 0062455457 4341644142 5445404570 RENCE POINTERrrADREL:tt0t RELOCATABLE EX
       6062456363 5157564046 5441471515 4144565654 0611112011 0056576440 5665545440 4570606245 PRESSION FLAGrrADNNL:tt0t NOT NULL EXPRE
       6363515756 4046544147 1515151515 4144457060 0611112011 0045706062 4563635157 5640664154 SSION FLAGrrrrrADEXP:tt0t EXPRESSION VAL
       6545151515 4144706246 0611112011 0045706445 6256415440 6245464562 4556434540 4654414715 UErrrADXRF:tt0t EXTERNAL REFERENCE FLAGr
       4144706263 0611112011 0045706445 6256415440 6245464562 4556434540 4654414740 6341664515 ADXRS:tt0t EXTERNAL REFERENCE FLAG SAVEr
       4144646255 0611112011 0064456255 4066415465 4515151515 4144646254 0611112011 0064456255 ADTRM:tt0t TERM VALUErrrrADTRL:tt0t TERM
       4062455457 4341644142 5445404654 4147151515 4144566346 0611112011 0056576440 6371554257  RELOCATABLE FLAGrrrADNSF:tt0t NOT SYMBO
       5451434066 4154654540 4654414715 4144637163 0611112011 0063715542 5754406341 6645444046 LIC VALUE FLAGrADSYS:tt0t SYMBOL SAVED F
       5441471515 4144576063 0611112011 0054416364 4057604562 4164576240 6757624440 6341664515 LAGrrADOPS:tt0t LAST OPERATOR WORD SAVEr
       4144637121 0611112011 0063715542 5754406341 6645406757 6244402115 4144637122 0611112011 ADSY1:tt0t SYMBOL SAVE WORD 1rADSY2:tt0t
       0063715542 5754406341 6645406757 6244402215 4144634756 0611112011 0063514756 4057604562  SYMBOL SAVE WORD 2rADSGN:tt0t SIGN OPER
       4164576240 5665554245 6215151515 4144637131 0611112011 0063715542 5754406471 6045406341 ATOR NUMBERrrrrADSY9:tt0t SYMBOL TYPE SA
       6645151515 4144637141 0611112011 0063715542 5754406471 6045151515 4144566046 0611113520 VErrrADSYA:tt0t SYMBOL TYPErrrADNPF:tt-0
       1100565764 4060416241 5545644562 4063644164 4555455664 4055574445 4046544147 1515151515 t NOT PARAMETER STATEMENT MODE FLAGrrrrr
       4144606321 0611112011 0060416241 5545644562 4063715542 5754406757 6244402140 6341664515 ADPS1:tt0t PARAMETER SYMBOL WORD 1 SAVEr
       4144606322 0611112011 0060416241 5545644562 4063715542 5754406757 6244402240 6341664515 ADPS2:tt0t PARAMETER SYMBOL WORD 2 SAVEr
       4144564546 0611112011 0043575644 5164515756 4154405557 4445404654 4147151515 4144566343 ADNEF:tt0t CONDITIONAL MODE FLAGrrrADNSC
       0611112011 0043575644 5164515756 4154405557 4445405645 6364515647 4043576556 6445621515 :tt0t CONDITIONAL MODE NESTING COUNTERrr
       4144434647 0611112011 0043575644 5164515756 4154405557 4445404556 4440636441 6445554556 ADCFG:tt0t CONDITIONAL MODE END STATEMEN
       6440465441 4715151515 1515151515 4144645521 0611112011 0064455560 4063645762 4147451515 T FLAGrrrrrrrrrADTM1:tt0t TEMP STORAGErr
       4144645522 0611112011 0064455560 4063645762 4147451515 1515151515 1515151515 7777700000 ADTM2:tt0t TEMP STORAGErrrrrrrrrrrrbbX  
       7326762152 7326762152 7326762152 7326762152 7326762152 7326762152 7326762152 7326762152 $6+1J$6+1J$6+1J$6+1J$6+1J$6+1J$6+1J$6+1J
       7326762152 7326762152                                                                   $6+1J$6+1J
 1265: 0007100013 4664562023 1361200357 3414400000 0040575645 4067576244 4041444560 6440576045  _+ "FTN03"Q0!O,'     ONE WORD ADEPT OPE
       6241645762 4044516360 4164435040 6441425445 1515151515 1515151515 0040404042 5164402040 RATOR DISPATCH TABLErrrrrrrrrr    BIT 0 
       3340515555 4544514164 4540445163 6041644350 4016445756 1464404566 4154654164 4540436562 = IMMEDIATE DISPATCH (DON'T EVALUATE CUR
       6245566440 6445625517 1515151515 0040404042 5164402140 3340456641 5465416445 4043656262 RENT TERM)rrrrr    BIT 1 = EVALUATE CURR
       4556644064 4562554057 5654714051 4640637155 4257544057 6240565756 3563715542 5754514340 ENT TERM ONLY IF SYMBOL OR NON-SYMBOLIC 
       6641546545 4063416645 4415151515 0040404042 5164402240 3340576045 6241645762 4064456255 VALUE SAVEDrrrr    BIT 2 = OPERATOR TERM
       5156416445 6340436562 6245566440 4570606245 6363515756 1515151515 0040404042 5164634023 INATES CURRENT EXPRESSIONrrrrr    BITS 3
       3525403340 6556656345 4440164166 4151544142 5445171515 0040404042 5164634026 3521214033 -5 = UNUSED (AVAILABLE)rr    BITS 6-11 =
       4063514756 4057604562 4164576240 5665554245 6215151515 0040404042 5164634021 2235212440  SIGN OPERATOR NUMBERrrrr    BITS 12-14 
       3340201515 0040404042 5164634021 2535223140 3340445163 6041644350 4041444462 4563631515 = 0rr    BITS 15-29 = DISPATCH ADDRESSrr
       1515151515 4144572164 0611202020 2020035032 1124202020 2003504041 4443575515 1164457064 rrrrrADO1T:t00000!H;t40000!H ADCOMrtTEXT
       4014021411 2220202020 0350404144 6242621515 1164457064 4014031411 2020202020 0350404144  'c't20000!H ADRBRrrtTEXT '!'t00000!H AD
       4570431515 1164457064 4014041411 2020202420 0350404144 6347571515 1164457064 4014051411 EXCrrtTEXT '&'t00040!H ADSGOrrtTEXT '*'t
       2020202520 0350404144 6347571515 1164457064 4014061411 2420202020 0350404144 6447151515 00050!H ADSGOrrtTEXT ':'t40000!H ADTGrrr
       1164457064 4014101411 2020202020 0350404144 6347571515 1121212020 2003503211 2420202020 tTEXT '+'t00000!H ADSGOrrt11000!H;t40000
       0350404144 2215151515 1164457064 4037143711 2020202220 0350404144 6347571515 1121252020 !H AD2rrrrtTEXT /'/t00020!H ADSGOrrt1500
       2003503211 2320202020 0350404144 6364451515 1164457064 4014161411 2220202020 0350404144 0!H;t30000!H ADSTErrtTEXT '('t20000!H AD
       5460621515 1164457064 4014171411 2020202020 0350404144 6260621515 1164457064 4014321411 LPRrrtTEXT ')'t00000!H ADRPRrrtTEXT ';'t
       2320202020 0350404144 6364451515 1164457064 4014331411 2420202020 0350404144 6041621515 30000!H ADSTErrtTEXT '='t40000!H ADPARrr
       1164457064 4014351411 2020202120 0350404144 6347571515 1164457064 4014361411 2220202020 tTEXT '-'t00010!H ADSGOrrtTEXT '.'t20000
       0350404144 6045621515 1164457064 4014371411 2020202620 0350404144 6347571515 1164457064 !H ADPERrrtTEXT '/'t00060!H ADSGOrrtTEXT
       4014373714 1120202027 2003504041 4463475715 1164457064 4014401411 2420202020 0350404144  '//'t00070!H ADSGOrtTEXT ' 't40000!H AD
       2215151515 1164457064 4014414445 6064141124 2020202003 5040414441 4457151515 1164457064 2rrrrtTEXT 'ADEPT't40000!H ADADOrrrtTEXT
       4014416343 5151141123 2020202003 5040416343 5157151515 1164457064 4014134554 6345131411  'ASCII't30000!H ASCIOrrrtTEXT '"ELSE"'t
       2420202020 0350404144 4554631515 1164457064 4014134556 4443131411 2420202020 0350404144 40000!H ADELSrrtTEXT '"ENDC"'t40000!H AD
       2215151515 1164457064 4014545743 1411232020 2020035040 4144544357 1515151515 1164457064 2rrrrtTEXT 'LOC't30000!H ADLCOrrrrrtTEXT
       4014644570 6414112320 2020200350 4064457064 5715151515 1164457064 4014731411 2420202020  'TEXT't30000!H TEXTOrrrrtTEXT '$'t40000
       0350404144 4421151515 1164457064 4014737314 1124202020 2003504041 4444221515 1164457064 !H ADD1rrrtTEXT '$$'t40000!H ADD2rrtTEXT
       4014737373 1411242020 2020035040 4144442315 1164457064 4014751411 2220202020 0350404144  '$$$'t40000!H ADD3rtTEXT '@'t20000!H AD
       4164631515 1164457064 4014761411 2020202320 0350404144 6347571515 4144572145 0615151515 ATSrrtTEXT '+'t00030!H ADSGOrrADO1E:rrrr
       1515151515 1515151515 7777700000 0056465250 0056465250 0056465250 0056465250 0056465250 rrrrrrrrrrbbX   NFJH NFJH NFJH NFJH NFJH
       0056465250 0056465250 0056465250 0056465250 0056465250                                   NFJH NFJH NFJH NFJH NFJH
  750: 0007200013 4664562023 1361200210 3414400000 0040646757 4067576244 4041444560 6440576045  _0 "FTN03"Q0c+,'     TWO WORD ADEPT OPE
       6241645762 4044516360 4164435040 6441425445 1515151515 1515151515 4144572264 0611644570 RATOR DISPATCH TABLErrrrrrrrrrADO2T:tTEX
       6411144163 4351517014 1515151515 1164457064 1114465762 6462415614 1515151515 1164457064 Tt'ASCIIX'rrrrrtTEXTt'FORTRAN'rrrrrtTEXT
       1114135146 5645474164 5166451314 1515151515 1164457064 1114135146 7245625713 1415151515 t'"IFNEGATIVE"'rrrrrtTEXTt'"IFZERO"'rrrr
       1164457064 1114636045 4351415414 1515151515 1164457064 1114636045 4351415470 1415151515 tTEXTt'SPECIAL'rrrrrtTEXTt'SPECIALX'rrrr
       1164457064 1114636462 5156471415 1164457064 1114644570 6454454664 1415151515 1164457064 tTEXTt'STRING'rtTEXTt'TEXTLEFT'rrrrtTEXT
       1114644570 6462514750 6414151515 1164457064 1114647160 4544454314 1515151515 1164457064 t'TEXTRIGHT'rrrtTEXTt'TYPEDEC'rrrrrtTEXT
       1114136471 6045515613 1415151515 1164457064 1114647160 4557436414 1515151515 1164457064 t'"TYPEIN"'rrrrtTEXTt'TYPEOCT'rrrrrtTEXT
       1114647160 4557656414 1515151515 4144572245 0615151515 1515151515 1123202020 2003501141 t'TYPEOUT'rrrrrADO2E:rrrrrrrrrt30000!HtA
       6343517011 0041634351 5170151515 1124202020 2003501141 4446576211 0046576264 6241561515 SCIXt ASCIIXrrrt40000!HtADFORt FORTRANrr
       1123202020 2003501141 4451465611 0051465645 4741645166 4515151515 1123202020 2003501141 t30000!HtADIFNt IFNEGATIVErrrrt30000!HtA
       4451467211 0051467245 6257151515 1123202020 2003501141 4463605711 0063604543 5141541515 DIFZt IFZEROrrrt30000!HtADSPOt SPECIALrr
       1123202020 2003501141 4463705711 0063604543 5141547015 1123202020 2003501164 4570644611 t30000!HtADSXOt SPECIALXrt30000!HtTEXTFt
       0063646251 5647151515 1122202020 2003501164 4570645411 0064457064 5445466415 1122202020  STRINGrrrt20000!HtTEXTLt TEXTLEFTrt2000
       2003501164 4570646211 0064457064 6251475064 1515151515 1123202020 2003501141 6471604411 0!HtTEXTRt TEXTRIGHTrrrrrt30000!HtATYPDt
       0064716045 4445431515 1124202020 2003501141 6471605111 0064716045 5156151515 1123202020  TYPEDECrrt40000!HtATYPIt TYPEINrrrt3000
       2003501141 6471604311 0064716045 5743641515 1123202020 2003501141 6471605711 0064716045 0!HtATYPCt TYPEOCTrrt30000!HtATYPOt TYPE
       5765641515 1515151515 1515151515 7777700000 5630623337 5630623337 5630623337 5630623337 OUTrrrrrrrrrrrrbbX  N8R=/N8R=/N8R=/N8R=/
       5630623337 5630623337 5630623337 5630623337 5630623337 5630623337                       N8R=/N8R=/N8R=/N8R=/N8R=/N8R=/
 1345: 0007300013 4664562023 1361200377 3414400000 0040414445 6064405657 6255415440 6062454445  _8 "FTN03"Q0!b,'     ADEPT NORMAL PREDE
       4651564544 4063715542 5754406441 4254451515 1515151515 4144604464 0611644570 6440142244 FINED SYMBOL TABLErrrrrrrADPDT:tTEXT '2D
       6214112025 2020200350 1515151515 1164457064 4014224462 4614112025 2420200350 1515151515 R't05000!HrrrrrtTEXT '2DRF't05400!Hrrrrr
       1164457064 4014224464 1411202420 2020035015 1164457064 4014224464 4614112024 2420200350 tTEXT '2DT't04000!HrtTEXT '2DTF't04400!H
       1515151515 1164457064 4014234451 1411202320 2020035015 1164457064 4014234451 4614112023 rrrrrtTEXT '3DI't03000!HrtTEXT '3DIF't03
       2420200350 1515151515 1164457064 4014234460 1411202220 2020035015 1164457064 4014234460 400!HrrrrrtTEXT '3DP't02000!HrtTEXT '3DP
       4614112022 2420200350 1515151515 1164457064 4014234464 1411202120 2020035015 1164457064 F't02400!HrrrrrtTEXT '3DT't01000!HrtTEXT
       4014234464 4614112021 2420200350 1515151515 1164457064 4014411411 2020202120 0350151515  '3DTF't01400!HrrrrrtTEXT 'A't00010!Hrrr
       1164457064 4014414444 1411262220 2020035015 1164457064 4014415514 1126252020 2003501515 tTEXT 'ADD't62000!HrtTEXT 'AM't65000!Hrr
       1164457064 4014415641 4514112126 2226200350 1515151515 1164457064 4014415641 6214112021 tTEXT 'ANAE't16260!HrrrrrtTEXT 'ANAR't01
       2226200350 1515151515 1164457064 4014415641 6314112125 2226200350 1515151515 1164457064 260!HrrrrrtTEXT 'ANAS't15260!HrrrrrtTEXT
       4014415642 6214112022 2226200350 1515151515 1164457064 4014415644 1411262420 2020035015  'ANBR't02260!HrrrrrtTEXT 'AND't64000!Hr
       1164457064 4014415651 4314112023 2226200350 1515151515 1164457064 4014415651 6214112024 tTEXT 'ANIC't03260!HrrrrrtTEXT 'ANIR't04
       2226200350 1515151515 1164457064 4014415655 4414112020 2226200350 1515151515 1164457064 260!HrrrrrtTEXT 'ANMD't00260!HrrrrrtTEXT
       4014415670 5714112127 2226200350 1515151515 1164457064 4014416220 2514112225 2120200350  'ANXO't17260!HrrrrrtTEXT 'AR05't25100!H
       1515151515 1164457064 4014416220 2614112226 2120200350 1515151515 1164457064 4014416220 rrrrrtTEXT 'AR06't26100!HrrrrrtTEXT 'AR0
       2714112227 2120200350 1515151515 1164457064 4014416221 2014112320 2120200350 1515151515 7't27100!HrrrrrtTEXT 'AR10't30100!Hrrrrr
       1164457064 4014416221 2114112321 2120200350 1515151515 1164457064 4014416241 4514112326 tTEXT 'AR11't31100!HrrrrrtTEXT 'ARAE't36
       2120200350 1515151515 1164457064 4014416241 6214112221 2120200350 1515151515 1164457064 100!HrrrrrtTEXT 'ARAR't21100!HrrrrrtTEXT
       4014416241 6314112325 2120200350 1515151515 1164457064 4014416242 6214112222 2120200350  'ARAS't35100!HrrrrrtTEXT 'ARBR't22100!H
       1515151515 1164457064 4014416251 4314112223 2120200350 1515151515 1164457064 4014416251 rrrrrtTEXT 'ARIC't23100!HrrrrrtTEXT 'ARI
       6214112224 2120200350 1515151515 1164457064 4014416254 6314112127 2520200350 1515151515 R't24100!HrrrrrtTEXT 'ARLS't17500!Hrrrrr
       1164457064 4014416255 4414112220 2120200350 1515151515 1164457064 4014416262 6314112127 tTEXT 'ARMD't20100!HrrrrrtTEXT 'ARRS't17
       2424200350 1515151515 1164457064 4014416270 5714112327 2120200350 1515151515 1164457064 440!HrrrrrtTEXT 'ARXO't37100!HrrrrrtTEXT
       4014421411 2020202220 0350151515 1164457064 4014426241 4514112326 2220200350 1515151515  'B't00020!HrrrtTEXT 'BRAE't36200!Hrrrrr
       1164457064 4014426241 6214112221 2220200350 1515151515 1164457064 4014426241 6314112325 tTEXT 'BRAR't21200!HrrrrrtTEXT 'BRAS't35
       2220200350 1515151515 1164457064 4014426242 6214112222 2220200350 1515151515 1164457064 200!HrrrrrtTEXT 'BRBR't22200!HrrrrrtTEXT
       4014426251 4314112223 2220200350 1515151515 1164457064 4014426251 6214112224 2220200350  'BRIC't23200!HrrrrrtTEXT 'BRIR't24200!H
       1515151515 1164457064 4014426255 4414112220 2220200350 1515151515 1164457064 4014426270 rrrrrtTEXT 'BRMD't20200!HrrrrrtTEXT 'BRX
       5714112327 2220200350 1515151515 1164457064 4014435062 1411212020 2020035015 1164457064 O't37200!HrrrrrtTEXT 'CHR't10000!HrtTEXT
       4014435062 4614112121 2020200350 1515151515 1164457064 4014435062 4662141121 2124202003  'CHRF't11000!HrrrrrtTEXT 'CHRFR't11400!
       5015151515 1164457064 4014435062 6214112120 2420200350 1515151515 1164457064 4014435414 HrrrrtTEXT 'CHRR't10400!HrrrrrtTEXT 'CL'
       1124232020 2003501515 7777700000 3660205753 3660205753 3660205753 3660205753 3660205753 t43000!HrrbbX  .P0OK.P0OK.P0OK.P0OK.P0OK
       3660205753 3660205753 3660205753 3660205753 3660205753                                  .P0OK.P0OK.P0OK.P0OK.P0OK
 1270: 0007400013 4664562023 1361200360 3414400000 1164457064 4014435666 6414112020 2322200350  _  "FTN03"Q0!P,'   tTEXT 'CNVT't00320!H
       1515151515 1164457064 4014445166 1411262324 2020035015 1164457064 4014445166 5114112126 rrrrrtTEXT 'DIV't63400!HrtTEXT 'DIVI't16
       2424200350 1515151515 1164457064 4014445166 5414112126 2422200350 1515151515 1164457064 440!HrrrrrtTEXT 'DIVL't16420!HrrrrrtTEXT
       4014445166 6514112126 2420200350 1515151515 1164457064 4014446241 6714112020 2320200350  'DIVU't16400!HrrrrrtTEXT 'DRAW't00300!H
       1515151515 1164457064 4014447014 1122202020 2003501515 1164457064 4014447114 1122212020 rrrrrtTEXT 'DX't20000!HrrtTEXT 'DY't2100
       2003501515 1164457064 4014447214 1122222020 2003501515 1164457064 4014455644 5414112721 0!HrrtTEXT 'DZ't22000!HrrtTEXT 'ENDL't71
       2420200350 1515151515 1164457064 4014456241 6214112127 2524200350 1515151515 1164457064 400!HrrrrrtTEXT 'ERAR't17540!HrrrrrtTEXT
       4014456343 1411252720 2020035015 1164457064 4014461411 2420202020 0350151515 1164457064  'ESC't57000!HrtTEXT 'F't40000!HrrrtTEXT
       4014466062 5114112020 2326200350 1515151515 1164457064 4014475121 2514112020 2322200350  'FPRI't00360!HrrrrrtTEXT 'GI15't00320!H
       1515151515 1164457064 4014501411 2020202620 0350151515 1164457064 4014511411 2020202021 rrrrrtTEXT 'H't00060!HrrrtTEXT 'I't00001
       0350151515 1164457064 4014514341 4514112326 2320200350 1515151515 1164457064 4014514341 !HrrrtTEXT 'ICAE't36300!HrrrrrtTEXT 'ICA
       6214112221 2320200350 1515151515 1164457064 4014514341 6314112325 2320200350 1515151515 R't21300!HrrrrrtTEXT 'ICAS't35300!Hrrrrr
       1164457064 4014514342 6214112222 2320200350 1515151515 1164457064 4014514351 4314112223 tTEXT 'ICBR't22300!HrrrrrtTEXT 'ICIC't23
       2320200350 1515151515 1164457064 4014514355 4414112220 2320200350 1515151515 1164457064 300!HrrrrrtTEXT 'ICMD't20300!HrrrrrtTEXT
       4014514370 5714112327 2320200350 1515151515 1164457064 4014515514 1120202020 2403501515  'ICXO't37300!HrrrrrtTEXT 'IM't00004!Hrr
       1164457064 4014515547 1411272020 2020035015 1164457064 4014515714 1127262020 2003501515 tTEXT 'IMG't70000!HrtTEXT 'IO't76000!Hrr
       1164457064 4014516356 7014112521 2420200350 1515151515 1164457064 4014516372 1411252120 tTEXT 'ISNX't51400!HrrrrrtTEXT 'ISZ't510
       2020035015 1164457064 4014525560 1411272520 2020035015 1164457064 4014526041 5614112020 00!HrtTEXT 'JMP't75000!HrtTEXT 'JPAN't00
       2120200350 1515151515 1164457064 4014526054 6314112020 2124200350 1515151515 1164457064 100!HrrrrrtTEXT 'JPLS't00140!HrrrrrtTEXT
       4014526063 6214112020 2022200350 1515151515 1164457064 4014526341 5614112020 2026200350  'JPSR't00020!HrrrrrtTEXT 'JSAN't00060!H
       1515151515 1164457064 4014526354 6314112020 2122200350 1515151515 1164457064 4014526555 rrrrrtTEXT 'JSLS't00120!HrrrrrtTEXT 'JUM
       6014112020 2024200350 1515151515 1164457064 4014531411 2020202420 0350151515 1164457064 P't00040!HrrrrrtTEXT 'K't00040!HrrrtTEXT
       4014541411 2620202020 0350151515 1164457064 4014544114 1126202020 2003501515 1164457064  'L't60000!HrrrtTEXT 'LA't60000!HrrtTEXT
       4014544146 6714112620 2420200350 1515151515 1164457064 4014544151 1411232320 2020035015  'LAFW't60400!HrrrrrtTEXT 'LAI't33000!Hr
       1164457064 4014544451 1411232720 2020035015 1164457064 4014544470 1411212420 2020035015 tTEXT 'LDI't37000!HrtTEXT 'LDX't14000!Hr
       1164457064 4014544471 1411212520 2020035015 1164457064 4014544472 1411212620 2020035015 tTEXT 'LDY't15000!HrtTEXT 'LDZ't16000!Hr
       1164457064 4014545514 1122262020 2003501515 1164457064 4014545757 6014112721 2020200350 tTEXT 'LM't26000!HrrtTEXT 'LOOP't71000!H
       1515151515 1164457064 4014546270 1411232020 2020035015 1164457064 4014546271 1411232120 rrrrrtTEXT 'LRX't30000!HrtTEXT 'LRY't310
       2020035015 1164457064 4014546272 1411232220 2020035015 1164457064 4014546314 1126262020 00!HrtTEXT 'LRZ't32000!HrtTEXT 'LS't6600
       2003501515 1164457064 4014546341 4514112126 2320200350 1515151515 1164457064 4014546341 0!HrrtTEXT 'LSAE't16300!HrrrrrtTEXT 'LSA
       6214112021 2320200350 1515151515 7777700000 4551256276 4551256276 4551256276 4551256276 R't01300!HrrrrrbbX  EI5R+EI5R+EI5R+EI5R+
       4551256276 4551256276 4551256276 4551256276 4551256276 4551256276                       EI5R+EI5R+EI5R+EI5R+EI5R+EI5R+
 1350: 0007500013 4664562023 1361200400 3414400000 1164457064 4014546341 6314112125 2320200350  _H "FTN03"Q0& ,'   tTEXT 'LSAS't15300!H
       1515151515 1164457064 4014546342 6214112022 2320200350 1515151515 1164457064 4014546343 rrrrrtTEXT 'LSBR't02300!HrrrrrtTEXT 'LSC
       5414112127 2020200350 1515151515 1164457064 4014546351 4314112023 2320200350 1515151515 L't17000!HrrrrrtTEXT 'LSIC't03300!Hrrrrr
       1164457064 4014546351 6214112024 2320200350 1515151515 1164457064 4014546355 4414112020 tTEXT 'LSIR't04300!HrrrrrtTEXT 'LSMD't00
       2320200350 1515151515 1164457064 4014546370 5714112127 2320200350 1515151515 1164457064 300!HrrrrrtTEXT 'LSXO't17300!HrrrrrtTEXT
       4014546414 1127232020 2003501515 1164457064 4014554420 2514112225 2020200350 1515151515  'LT't73000!HrrtTEXT 'MD05't25000!Hrrrrr
       1164457064 4014554420 2614112226 2020200350 1515151515 1164457064 4014554420 2714112227 tTEXT 'MD06't26000!HrrrrrtTEXT 'MD07't27
       2020200350 1515151515 1164457064 4014554421 2014112320 2020200350 1515151515 1164457064 000!HrrrrrtTEXT 'MD10't30000!HrrrrrtTEXT
       4014554421 2114112321 2020200350 1515151515 1164457064 4014554441 4514112326 2020200350  'MD11't31000!HrrrrrtTEXT 'MDAE't36000!H
       1515151515 1164457064 4014554441 6214112221 2020200350 1515151515 1164457064 4014554441 rrrrrtTEXT 'MDAR't21000!HrrrrrtTEXT 'MDA
       6314112325 2020200350 1515151515 1164457064 4014554442 6214112222 2020200350 1515151515 S't35000!HrrrrrtTEXT 'MDBR't22000!Hrrrrr
       1164457064 4014554451 4314112223 2020200350 1515151515 1164457064 4014554451 6214112224 tTEXT 'MDIC't23000!HrrrrrtTEXT 'MDIR't24
       2020200350 1515151515 1164457064 4014554470 5714112327 2020200350 1515151515 1164457064 000!HrrrrrtTEXT 'MDXO't37000!HrrrrrtTEXT
       4014555255 6014112725 2420200350 1515151515 1164457064 4014555665 1411212220 2020035015  'MJMP't75400!HrrrrrtTEXT 'MNU't12000!Hr
       1164457064 4014555665 4614112123 2020200350 1515151515 1164457064 4014555665 4662141121 tTEXT 'MNUF't13000!HrrrrrtTEXT 'MNUFR't1
       2324202003 5015151515 1164457064 4014555665 6214112122 2420200350 1515151515 1164457064 3400!HrrrrtTEXT 'MNUR't12400!HrrrrrtTEXT
       4014555766 4514112020 2120200350 1515151515 1164457064 4014556052 5560141127 2424202003  'MOVE't00100!HrrrrrtTEXT 'MPJMP't74400!
       5015151515 1164457064 4014556071 5114112125 2424200350 1515151515 1164457064 4014556071 HrrrrtTEXT 'MPYI't15440!HrrrrrtTEXT 'MPY
       5414112125 2422200350 1515151515 1164457064 4014556071 6514112125 2420200350 1515151515 L't15420!HrrrrrtTEXT 'MPYU't15400!Hrrrrr
       1164457064 4014556554 1411262320 2020035015 1164457064 4014561411 2020202124 0350151515 tTEXT 'MUL't63000!HrtTEXT 'N't00014!Hrrr
       1164457064 4014564542 6214112021 2522200350 1515151515 1164457064 4014565757 6014112020 tTEXT 'NEBR't01520!HrrrrrtTEXT 'NOOP't00
       2020200350 1515151515 1164457064 4014565762 5514112127 2522200350 1515151515 1164457064 000!HrrrrrtTEXT 'NORM't17520!HrrrrrtTEXT
       4014566554 1411272720 2020035015 1164457064 4014571411 2020202024 0350151515 1164457064  'NUL't77000!HrtTEXT 'O't00004!HrrrtTEXT
       4014575514 1122242020 2003501515 1164457064 4014576043 6214112020 2220200350 1515151515  'OM't24000!HrrtTEXT 'OPCR't00200!Hrrrrr
       1164457064 4014576051 5714112020 2620200350 1515151515 1164457064 4014576064 5114112020 tTEXT 'OPIO't00600!HrrrrrtTEXT 'OPTI't00
       2426200350 1515151515 1164457064 4014576064 7114112020 2126200350 1515151515 1164457064 460!HrrrrrtTEXT 'OPTY't00160!HrrrrrtTEXT
       4014576214 1126242420 2003501515 1164457064 4014604350 6214112027 2020200350 1515151515  'OR't64400!HrrtTEXT 'PCHR't07000!Hrrrrr
       1164457064 4014604350 6262141120 2724202003 5015151515 1164457064 4014605156 6414112020 tTEXT 'PCHRR't07400!HrrrrtTEXT 'PINT't00
       2526200350 1515151515 1164457064 4014605255 6014112724 2020200350 1515151515 1164457064 560!HrrrrrtTEXT 'PJMP't74000!HrrrrrtTEXT
       4014624563 6414112722 2420200350 1515151515 1164457064 4014624564 1411202020 2020035015  'REST't72400!HrrrrrtTEXT 'RET't00000!Hr
       1164457064 4014625514 1122252020 2003501515 1164457064 4014625764 7014112324 2020200350 tTEXT 'RM't25000!HrrtTEXT 'ROTX't34000!H
       1515151515 1164457064 4014625764 7114112325 2020200350 1515151515 1164457064 4014625764 rrrrrtTEXT 'ROTY't35000!HrrrrrtTEXT 'ROT
       7214112326 2020200350 1515151515 7777700000 6422071012 6422071012 6422071012 6422071012 Z't36000!HrrrrrbbX  T2_+?T2_+?T2_+?T2_+?
       6422071012 6422071012 6422071012 6422071012 6422071012 6422071012                       T2_+?T2_+?T2_+?T2_+?T2_+?T2_+?
 1205: 0007600013 4664562023 1361200343 3414400000 1164457064 4014626314 1126262420 2003501515  _P "FTN03"Q0!C,'   tTEXT 'RS't66400!Hrr
       1164457064 4014632441 6214112221 2420200350 1515151515 1164457064 4014632442 6214112222 tTEXT 'S4AR't21400!HrrrrrtTEXT 'S4BR't22
       2420200350 1515151515 1164457064 4014632455 4414112220 2420200350 1515151515 1164457064 400!HrrrrrtTEXT 'S4MD't20400!HrrrrrtTEXT
       4014632541 6214112221 2520200350 1515151515 1164457064 4014632541 6314112325 2520200350  'S5AR't21500!HrrrrrtTEXT 'S5AS't35500!H
       1515151515 1164457064 4014632542 6214112222 2520200350 1515151515 1164457064 4014632555 rrrrrtTEXT 'S5BR't22500!HrrrrrtTEXT 'S5M
       4414112220 2520200350 1515151515 1164457064 4014632641 6214112221 2620200350 1515151515 D't20500!HrrrrrtTEXT 'S6AR't21600!Hrrrrr
       1164457064 4014632642 6214112222 2620200350 1515151515 1164457064 4014632655 4414112220 tTEXT 'S6BR't22600!HrrrrrtTEXT 'S6MD't20
       2620200350 1515151515 1164457064 4014632741 6214112221 2720200350 1515151515 1164457064 600!HrrrrrtTEXT 'S7AR't21700!HrrrrrtTEXT
       4014632742 6214112222 2720200350 1515151515 1164457064 4014632755 4414112220 2720200350  'S7BR't22700!HrrrrrtTEXT 'S7MD't20700!H
       1515151515 1164457064 4014634114 1126212020 2003501515 1164457064 4014634144 1411252220 rrrrrtTEXT 'SA't61000!HrrtTEXT 'SAD't520
       2020035015 1164457064 4014634146 6714112621 2420200350 1515151515 1164457064 4014634163 00!HrtTEXT 'SAFW't61400!HrrrrrtTEXT 'SAS
       1411252224 2020035015 1164457064 4014634166 6414112722 2020200350 1515151515 1164457064 't52400!HrtTEXT 'SAVT't72000!HrrrrrtTEXT
       4014634354 1411222320 2020035015 1164457064 4014634572 1411242424 2020035015 1164457064  'SCL't23000!HrtTEXT 'SEZ't44400!HrtTEXT
       4014635155 4714112720 2420200350 1515151515 1164457064 4014635341 5614112020 2126200350  'SIMG't70400!HrrrrrtTEXT 'SKAN't00160!H
       1515151515 1164457064 4014635354 4114112020 2224200350 1515151515 1164457064 4014635354 rrrrrtTEXT 'SKLA't00240!HrrrrrtTEXT 'SKL
       6314112020 2220200350 1515151515 1164457064 4014635365 4114112020 2222200350 1515151515 S't00200!HrrrrrtTEXT 'SKUA't00220!Hrrrrr
       1164457064 4014635414 1124232420 2003501515 1164457064 4014635446 1411242724 2020035015 tTEXT 'SL't43400!HrrtTEXT 'SLF't47400!Hr
       1164457064 4014635464 1411242720 2020035015 1164457064 4014635514 1122272020 2003501515 tTEXT 'SLT't47000!HrtTEXT 'SM't27000!Hrr
       1164457064 4014635546 1411252024 2020035015 1164457064 4014635551 1411242520 2020035015 tTEXT 'SMF't50400!HrtTEXT 'SMI't45000!Hr
       1164457064 4014635564 1411252020 2020035015 1164457064 4014635672 1411242420 2020035015 tTEXT 'SMT't50000!HrtTEXT 'SNZ't44000!Hr
       1164457064 4014636054 1411242524 2020035015 1164457064 4014636346 1411242624 2020035015 tTEXT 'SPL't45400!HrtTEXT 'SSF't46400!Hr
       1164457064 4014636346 4614112524 2420200350 1515151515 1164457064 4014636346 6414112524 tTEXT 'SSFF't54400!HrrrrrtTEXT 'SSFT't54
       2020200350 1515151515 1164457064 4014636356 4614112523 2420200350 1515151515 1164457064 000!HrrrrrtTEXT 'SSNF't53400!HrrrrrtTEXT
       4014636356 6414112523 2020200350 1515151515 1164457064 4014636364 1411242620 2020035015  'SSNT't53000!HrrrrrtTEXT 'SST't46000!Hr
       1164457064 4014636414 1127232420 2003501515 1164457064 4014636542 1411262224 2020035015 tTEXT 'ST't73400!HrrtTEXT 'SUB't62400!Hr
       1164457064 4014656062 5114112020 2324200350 1515151515 1164457064 4014675514 1124222420 tTEXT 'UPRI't00340!HrrrrrtTEXT 'WM't4240
       2003501515 1164457064 4014677214 1124222020 2003501515 1164457064 4014701411 2020202022 0!HrrtTEXT 'WZ't42000!HrrtTEXT 'X't00002
       0350151515 1164457064 4014705762 1411262720 2020035015 1164457064 4014705762 5514112627 !HrrrtTEXT 'XOR't67000!HrtTEXT 'XORM't67
       2420200350 1515151515 4144604445 0615151515 1515151515 1515151515 7777700000 6674416436 400!HrrrrrADPDE:rrrrrrrrrrrrrrbbX  V#AT.
       6674416436 6674416436 6674416436 6674416436 6674416436 6674416436 6674416436 6674416436 V#AT.V#AT.V#AT.V#AT.V#AT.V#AT.V#AT.V#AT.
       6674416436                                                                              V#AT.
 1425: 0007700013 4664562023 1361200417 3414400000 0040606257 4345636340 4357556051 5445624043  _X "FTN03"Q0&),'     PROCESS COMPILER C
       5756646257 5440434162 4440363636 1515151515 1515151515 5146724562 5740662115 4364544344 ONTROL CARD ...rrrrrrrrrrIFZERO V1rCTLCD
       0611526063 6211624344 6264110062 4564656256 4041564440 6345644043 4162444044 5163604164 :tJPSRtRCDRTt RETURN AND SET CARD DISPAT
       4350151515 4554634515 4364544344 7006111111 0057664562 5441714044 5163604164 4350404657 CHrrrELSErCTLCDX:ttt OVERLAY DISPATCH FO
       6240212653 4043575560 5154456215 4556444315 1152606362 1154636445 6211005451 6364404562 R 16K COMPILERrENDCrtJPSRtLSTERt LIST ER
       6257626340 5756405441 6364405451 5645151515 1141625544 1457116441 4227461100 6345644064 RORS ON LAST LINErrrtARMD'OtTAB7Ft SET T
       4142406457 4043575440 2740575654 7115151515 1515151515 1155444162 1147435041 6211004645 AB TO COL 7 ONLYrrrrrrrrrtMDARtGCHARt FE
       6443504043 5754655556 4021404350 4162151515 1155447057 1446110254 1100135413 4012151515 TCH COLUMN 1 CHARrrrtMDXO'FtcLt "L" ?rrr
       1152605463 1136102211 0056573440 5565636440 4245401346 1334404757 4063535160 4043416244 tJPLSt.+2t NO, MUST BE "F", GO SKIP CARD
       1515151515 1515151515 1141625544 1457115443 4446471100 7145633440 6345644013 5413404341 rrrrrrrrrrtARMD'OtLCDFGt YES, SET "L" CA
       6244404654 4147151515 1515151515 1141625544 1457114643 4446471100 6345644013 4613404341 RD FLAGrrrrrrrrtARMD'OtFCDFGt SET "F" CA
       6244404654 4147151515 1155444162 1470116364 4343641100 5156444570 4043576556 6440574640 RD FLAGrrrtMDAR'XtSTCCTt INDEX COUNT OF 
       4357566462 5754406364 5556646315 1141625544 1163645545 4611004156 4440435445 4162404651 CONTROL STMNTSrtARMDtSTMEFt AND CLEAR FI
       6263644045 6262576240 4654414715 1152606362 1163434156 5111005156 5164514154 5172454046 RST ERROR FLAGrtJPSRtSCANIt INITIALIZE F
       5762406364 4164455545 5664406343 4156151515 1515151515 4364542106 1152606362 1147436364 OR STATEMENT SCANrrrrrrrrCTL1:tJPSRtGCST
       1100634341 5640645740 4651626364 4056575635 4254415653 4043504162 1515151515 1152655560 t SCAN TO FIRST NON-BLANK CHARrrrrrtJUMP
       1143544556 4411005265 5560405756 4045564440 5746406364 4164455545 5664151515 1515151515 tCLENDt JUMP ON END OF STATEMENTrrrrrrrr
       1141625544 1457114743 6363661100 6341664540 4350416215 1152606362 1147631100 4745644053 tARMD'OtGCSSVt SAVE CHARrtJPSRtGSt GET K
       4571675762 4440637155 4257541515 1152655560 1143544562 2111005146 4063604543 5141543440 EYWORD SYMBOLrrtJUMPtCLER1t IF SPECIAL, 
       4562625762 1515151515 1152655560 1143544562 2111005146 4044514751 6434404562 6257621515 ERRORrrrrrtJUMPtCLER1t IF DIGIT, ERRORrr
       1152655560 1143645422 1100575645 4067576244 3440637155 4257544052 6555601515 1152655560 tJUMPtCTL2t ONE WORD, SYMBOL JUMPrrtJUMP
       1143645423 1100646757 3567576244 4063715542 5754344052 6555601515 1515151515 4354456221 tCTL3t TWO-WORD SYMBOL, JUMPrrrrrrrCLER1
       0611526063 6211456262 5762110064 5062454535 6757624440 6371554257 5434404562 6257621515 :tJPSRtERRORt THREE-WORD SYMBOL, ERRORrr
       1111456223 2020110040 4016534571 6757624440 5657644062 4543574756 5172454417 1515151515 ttER300t   (KEYWORD NOT RECOGNIZED)rrrrr
       1515151515 4364542206 1155444162 1446114364 5421641100 6345416243 5040515640 5756453567 rrrrrCTL2:tMDAR'FtCTL1Tt SEARCH IN ONE-W
       5762444053 4571675762 4440644142 5445151515 1152606362 1142636562 2115151515 1155444162 ORD KEYWORD TABLErrrtJPSRtBSUR1rrrrtMDAR
       1446114364 5421451515 1152655560 1143544562 2111004562 6257624051 4640565764 4046576556 'FtCTL1ErrtJUMPtCLER1t ERROR IF NOT FOUN
       4415151515 1152655560 1143645424 1100465765 5644344044 5163604164 4350406457 4062576564 DrrrrtJUMPtCTL4t FOUND, DISPATCH TO ROUT
       5156451515 1515151515 4364542306 1155444162 1446114364 5422641100 6345416243 5040515640 INErrrrrrrCTL3:tMDAR'FtCTL2Tt SEARCH IN 
       6467573567 5762444053 4571675762 4440644142 5445151515 1152606362 1142636562 2215151515 TWO-WORD KEYWORD TABLErrrtJPSRtBSUR2rrrr
       1155444162 1446114364 5422451515 1152655560 1143544562 2111004562 6257624051 4640565764 tMDAR'FtCTL2ErrtJUMPtCLER1t ERROR IF NOT
       4046576556 4415151515 1515151515 4364542406 1155444162 1451114263 6562601100 4657655644  FOUNDrrrrrrrrrCTL4:tMDAR'ItBSURPt FOUND
       3440474564 4044516360 4164435040 4144446245 6363151515 1141625544 1164455521 1100634166 , GET DISPATCH ADDRESSrrrtARMDtTEM1t SAV
       4515151515 1152655560 1451116445 5521110044 5163604164 4350406457 4062576564 5156451515 ErrrrtJUMP'ItTEM1t DISPATCH TO ROUTINErr
       1515151515 1515151515 7777700000 5165156122 5165156122 5165156122 5165156122 5165156122 rrrrrrrrrrbbX  IUrQ2IUrQ2IUrQ2IUrQ2IUrQ2
       5165156122 5165156122 5165156122 5165156122 5165156122                                  IUrQ2IUrQ2IUrQ2IUrQ2IUrQ2
 1295: 0010000013 4664562023 1361200365 3414400000 0040435755 6051544562 4043575664 6257544053  +  "FTN03"Q0!U,'     COMPILER CONTROL K
       4571675762 4440644142 5445634036 3636151515 1515151515 4364542164 0611644570 6411144460 EYWORD TABLES ...rrrrrrrrCTL1T:tTEXTt'DP
       6214114354 4460621515 1164457064 1114455245 4364141143 5445524315 1164457064 1114636041 R'tCLDPRrrtTEXTt'EJECT'tCLEJCrtTEXTt'SPA
       4345141143 5463604315 1164457064 1114645164 5445141143 5464645415 4364542145 0615151515 CE'tCLSPCrtTEXTt'TITLE'tCLTTLrCTL1E:rrrr
       1515151515 4364542264 0611644570 6411144570 4354654445 1415151515 1164457064 1114515643 rrrrrCTL2T:tTEXTt'EXCLUDE'rrrrtTEXTt'INC
       5465444514 1515151515 1164457064 1114515664 4547456263 1415151515 1164457064 1114545743 LUDE'rrrrrtTEXTt'INTEGERS'rrrrtTEXTt'LOC
       4651455444 1415151515 1164457064 1114576463 4562625762 6314151515 1164457064 1114576645 FIELD'rrrrtTEXTt'OTSERRORS'rrrtTEXTt'OVE
       6246545767 1415151515 1164457064 1114576645 6254417114 1515151515 1164457064 1114604147 RFLOW'rrrrtTEXTt'OVERLAY'rrrrrtTEXTt'PAG
       4554515645 1415151515 1164457064 1114636542 4350454353 1415151515 4364542245 0615151515 ELINE'rrrrtTEXTt'SUBCHECK'rrrrCTL2E:rrrr
       1111435445 7054110045 7043546544 4515151515 1111435451 4354110051 5643546544 4515151515 ttCLEXLt EXCLUDErrrrttCLICLt INCLUDErrrr
       1111435451 5664110051 5664454745 6263151515 1111435454 5743110054 5743465145 5444151515 ttCLINTt INTEGERSrrrttCLLOCt LOCFIELDrrr
       1111435457 6463110057 6463456262 5762631515 1111435457 6646110057 6645624654 5767151515 ttCLOTSt OTSERRORSrrttCLOVFt OVERFLOWrrr
       1111435457 6654110057 6645625441 7115151515 1111435460 4754110060 4147455451 5645151515 ttCLOVLt OVERLAYrrrrttCLPGLt PAGELINErrr
       1111435463 6542110063 6542435045 4353151515 1515151515 1515151515 0040606257 4345636340 ttCLSUBt SUBCHECKrrrrrrrrrrrrr  PROCESS 
       4556444057 4640435755 6051544562 4043575664 6257544063 6441644555 4556644036 3636151515 END OF COMPILER CONTROL STATEMENT ...rrr
       1515151515 4354455644 0611554441 6211634350 4162110057 5640636441 6445554556 6440455644 rrrrrCLEND:tMDARtSCHARt ON STATEMENT END
       3440464564 4350405441 6364404350 4162151515 1155447057 1446112125 1100636441 6445554556 , FETCH LAST CHARrrrtMDXO'Ft15t STATEMEN
       6440644562 5551564164 5762401215 1152635463 1145626257 6211005657 3440414257 6264406343 T TERMINATOR ?rtJSLStERRORt NO, ABORT SC
       4156151515 1111456223 2026110040 4016515454 4547415440 4350416241 4364456240 6343415656 ANrrrttER306t   (ILLEGAL CHARACTER SCANN
       4544171515 1515151515 1155444162 1147435041 6211004645 6443504064 6265454044 4554515545 ED)rrrrrrrtMDARtGCHARt FETCH TRUE DELIME
       6445621515 1155447057 1446112125 1100433762 4012151515 1152605463 1143645421 1100565734 TERrrtMDXO'Ft15t C/R ?rrrtJPLStCTL1t NO,
       4060625743 4563634056 4570644053 4571675762 4415151515 1152655560 1156456743 4411004554  PROCESS NEXT KEYWORDrrrrtJUMPtNEWCDt EL
       6345344063 6441626440 5645674046 5762646241 5640434162 4415151515 1515151515 1515151515 SE, START NEW FORTRAN CARDrrrrrrrrrrrrrr
       0040435756 6462575440 4341624440 6062574345 6363515647 4045626257 6263403636 3615151515   CONTROL CARD PROCESSING ERRORS ...rrrr
       1515151515 4354456222 0611416255 4414571147 4343636611 0057564051 5454454741 5440444554 rrrrrCLER2:tARMD'OtGCCSVt ON ILLEGAL DEL
       5155456445 6234406341 6645404350 4162151515 1152606362 1145626257 6211004142 5762644063 IMETER, SAVE CHARrrrtJPSRtERRORt ABORT S
       6441644555 4556644045 6262576215 1111456223 2021110040 4016444554 5155405657 6440624543 TATEMENT ERRORrttER301t   (DELIM NOT REC
       5747565172 4544171515 1515151515 4354456223 0611416255 4414571147 4343636611 0057564042 OGNIZED)rrrrrrrCLER3:tARMD'OtGCCSVt ON B
       4144406041 6241554564 4562344063 4166454054 4163644043 5041621515 1152606362 1145626257 AD PARAMETER, SAVE LAST CHARrrtJPSRtERRO
       6211004142 5762644063 6441644555 4556644045 6262576215 1111456223 2022110040 4016515454 Rt ABORT STATEMENT ERRORrttER302t   (ILL
       4547415440 4162476555 4556644046 5762554057 6240664154 6545171515 1515151515 1515151515 EGAL ARGUMENT FORM OR VALUE)rrrrrrrrrrrr
       7777700000 5136430023 5136430023 5136430023 5136430023 5136430023 5136430023 5136430023 bbX  I.C 3I.C 3I.C 3I.C 3I.C 3I.C 3I.C 3
       5136430023 5136430023 5136430023                                                        I.C 3I.C 3I.C 3
   75: 0010100013 4664562023 1361200001 3414400000 7777777777 7777777777 7777777777 7777777777  ++ "FTN03"Q0 %,'   bbbbbbbbbbbbbbbbbbbb
       7777777777 7777777777 7777777777 7777777777 7777777777 7777777777 7777777777            bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
 1425: 0000100014 4664562024 1361200417 3414400000 0040435045 4353404657 6240133313 4044455451   + 'FTN04"Q0&),'     CHECK FOR "=" DELI
       5545644562 4036363615 1515151515 4353456165 0611526555 6011361100 4556646271 1515151515 METER ...rrrrrrCKEQU:tJUMPt.t ENTRYrrrrr
       1155444162 1163435041 6211004645 6443504054 4163644044 4554515545 6445621515 1155447057 tMDARtSCHARt FETCH LAST DELIMETERrrtMDXO
       1446110233 1100133313 4012151515 1152605463 1143544562 2211005657 3440515454 4547415440 'Ftc=t "=" ?rrrtJPLStCLER2t NO, ILLEGAL 
       4445545155 4564456215 1155445162 1143534561 6511004554 6345344057 5334406245 6465625615 DELIMETERrtMDIRtCKEQUt ELSE, OK, RETURNr
       1515151515 1515151515 0040474564 4041624765 5545566440 6371554257 5440415644 4054575753 rrrrrrrrrr  GET ARGUMENT SYMBOL AND LOOK
       6560405156 4064414254 4540363636 1515151515 1515151515 4354637155 0611526555 6011361100 UP IN TABLE ...rrrrrrrrrrCLSYM:tJUMPt.t 
       4556646271 1515151515 1141625544 1143546371 2111006341 6645406441 4254454045 5644406057 ENTRYrrrrrtARMDtCLSY1t SAVE TABLE END PO
       5156644562 1515151515 1152606362 1147631100 4745644063 7155425754 1515151515 1152655560 INTERrrrrrtJPSRtGSt GET SYMBOLrrrrrtJUMP
       1143544562 2311004562 6257624051 4640636045 4351415415 1152655560 1143544562 2311004562 tCLER3t ERROR IF SPECIALrtJUMPtCLER3t ER
       6257624051 4640445147 5164151515 1152655560 1136102311 0057534051 4640575645 3567576244 ROR IF DIGITrrrtJUMPt.+3t OK IF ONE-WORD
       4063715542 5754151515 1152655560 1143544562 2311004562 6257624051 4640646757 3567576244  SYMBOLrrrtJUMPtCLER3t ERROR IF TWO-WORD
       4063715542 5754151515 1152655560 1143544562 2311004154 6357405146 4064506245 4535675762  SYMBOLrrrtJUMPtCLER3t ALSO IF THREE-WOR
       4440637155 4257541515 1515151515 1155444162 1451114354 6371551100 4645644350 4064414254 D SYMBOLrrrrrrrtMDAR'ItCLSYMt FETCH TABL
       4540424547 5156406057 5156644562 1515151515 1152606362 1142636562 2111005457 5753656040 E BEGIN POINTERrrrrrtJPSRtBSUR1t LOOKUP 
       6371554257 5415151515 4354637121 0611554441 6214461111 0045564440 5746406441 4254454060 SYMBOLrrrrCLSY1:tMDAR'Ftt END OF TABLE P
       5751566445 6215151515 1152655560 1143544562 2311005657 6440465765 5644344051 5454454741 OINTERrrrrtJUMPtCLER3t NOT FOUND, ILLEGA
       5440604162 4155456445 6240416247 1515151515 1155444162 1451114263 6562601100 4657655644 L PARAMETER ARGrrrrrtMDAR'ItBSURPt FOUND
       3440464564 4350406641 5465451515 1155445162 1470114354 6371551100 4156444062 4564656256 , FETCH VALUErrtMDIR'XtCLSYMt AND RETURN
       1515151515 1515151515 1515151515 0040474564 4063644156 4441624440 4162476555 4556644063 rrrrrrrrrrrrrrr  GET STANDARD ARGUMENT S
       7155425754 4036363615 1515151515 4354636444 0611526555 6011361100 4556646271 1515151515 YMBOL ...rrrrrrCLSTD:tJUMPt.t ENTRYrrrrr
       1152606362 1143534561 6511004445 5451554564 4562405565 6364404245 4013331315 1155444162 tJPSRtCKEQUt DELIMETER MUST BE "="rtMDAR
       1446114354 6364451100 4645644350 4064414254 4540455644 4060575156 6445621515 1152606362 'FtCLSTEt FETCH TABLE END POINTERrrtJPSR
       1143546371 5511004745 6440564570 6440637155 4257544041 5644406345 4162435015 1155444162 tCLSYMt GET NEXT SYMBOL AND SEARCHrtMDAR
       1446114354 6364421515 1155445162 1143546364 4411006245 6465625640 5146404657 6556441515 'FtCLSTBrrtMDIRtCLSTDt RETURN IF FOUNDrr
       1515151515 4354636442 0611644570 6411375457 5647371122 1515151515 1164457064 1137574646 rrrrrCLSTB:tTEXTt/LONG/t2rrrrrtTEXTt/OFF
       3711201515 1164457064 1137575637 1135201515 1164457064 1137635057 6264371121 1515151515 /t0rrtTEXTt/ON/t-0rrtTEXTt/SHORT/t1rrrrr
       4354636445 0615151515 1515151515 1515151515 0040474564 4013575613 4057624013 5746461340 CLSTE:rrrrrrrrrrrrrr  GET "ON" OR "OFF" 
       4162476555 4556644063 7155425754 4041564440 6345644046 5441474036 3636151515 1515151515 ARGUMENT SYMBOL AND SET FLAG ...rrrrrrrr
       4354575646 0611526555 6011361100 4556646271 1515151515 1152606362 1143546364 4411005565 CLONF:tJUMPt.t ENTRYrrrrrtJPSRtCLSTDt MU
       6364404245 4063644156 4441624440 6371554257 5415151515 1152604156 1136102211 0013574646 ST BE STANDARD SYMBOLrrrrtJPANt.+2t "OFF
       1340123440 7145633440 5753344063 5351601515 1152605463 1143544562 2311001357 5613401234 " ?, YES, OK, SKIPrrtJPLStCLER3t "ON" ?,
       4056573440 4562625762 1515151515 1155445162 1451114354 5756461100 6364576245 4041624765  NO, ERRORrrrrrtMDIR'ItCLONFt STORE ARGU
       5545566440 4654414715 1152655560 1143544556 4411004757 4045564440 6364416445 5545566415 MENT FLAGrtJUMPtCLENDt GO END STATEMENTr
       1515151515 1515151515 7777700000 0024274402 0024274402 0024274402 0024274402 0024274402 rrrrrrrrrrbbX   47Dc 47Dc 47Dc 47Dc 47Dc
       0024274402 0024274402 0024274402 0024274402 0024274402                                   47Dc 47Dc 47Dc 47Dc 47Dc
 1465: 0000200014 4664562024 1361200427 3414400000 0040136451 6454451340 3340363636 1515151515   0 'FTN04"Q0&7,'     "TITLE" = ...rrrrr
       1515151515 4354646454 0611526063 6211435345 6165110044 4554515545 6445624055 6563644042 rrrrrCLTTL:tJPSRtCKEQUt DELIMETER MUST B
       4540133313 1515151515 1152606362 1147436311 0047456440 5645706440 4350416215 1141625544 E "="rrrrrtJPSRtGCSt GET NEXT CHARrtARMD
       1147505754 4611006341 6645404163 4050575454 4562516450 4064456255 5156416457 6215151515 tGHOLFt SAVE AS HOLLERITH TERMINATORrrrr
       1155447057 1446110214 1100635156 4754454061 6557644540 1215151515 1152605463 1143544562 tMDXO'Ftc't SINGLE QUOTE ?rrrrtJPLStCLER
       2311005657 3440456262 5762151515 1515151515 1141625544 1457114750 5754631100 5156516451 3t NO, ERRORrrrrrrrrtARMD'OtGHOLSt INITI
       4154517245 4047456440 5057545445 6251645040 6257656451 5645151515 1155444162 1446116464 ALIZE GET HOLLERITH ROUTINErrrtMDAR'FtTT
       5442461100 5156516451 4154517245 4063645762 4540605751 5664456215 1141625544 1164455521 LBFt INITIALIZE STORE POINTERrtARMDtTEM1
       1100404064 5740545163 6451564740 6451645445 4042654646 4562151515 1141627057 1446111100 t   TO LISTING TITLE BUFFERrrrtARXO'Ftt 
       6245634564 4064516454 4540544556 4764501515 1141625544 1164645445 5615151515 1515151515 RESET TITLE LENGTHrrtARMDtTTLENrrrrrrrrr
       4354646421 0611526063 6211475057 5467110047 4564405645 7064406757 6244405746 4050575454 CLTT1:tJPSRtGHOLWt GET NEXT WORD OF HOLL
       4562516450 4063646251 5647151515 1152655560 1143546464 2211005265 5560405756 4054416364 ERITH STRINGrrrtJUMPtCLTT2t JUMP ON LAST
       4067576244 1515151515 1515151515 1141625544 1451116445 5521110063 6457624540 6757624440  WORDrrrrrrrrrrtARMD'ItTEM1t STORE WORD 
       5156406451 6454454042 6546464562 1515151515 1155444162 1164645445 5611004645 6443504064 IN TITLE BUFFERrrrrrtMDARtTTLENt FETCH T
       5164544540 5445564764 5015151515 1155444163 1446112511 0041444440 4651664540 4350416241 ITLE LENGTHrrrrtMDAS'Ft5t ADD FIVE CHARA
       4364456263 1515151515 1141625544 1164645445 5611006341 6645151515 1155444162 1470116445 CTERSrrrrrtARMDtTTLENt SAVErrrtMDAR'XtTE
       5521110051 5644457040 6364576245 4060575156 6445621515 1155447057 1446116464 5442451100 M1t INDEX STORE POINTERrrtMDXO'FtTTLBEt 
       4265464645 6240466554 5440121515 1152605463 1143546464 2111005657 3440545757 6040465762 BUFFER FULL ?rrtJPLStCLTT1t NO, LOOP FOR
       4056457064 4067576244 1515151515 1515151515 1152606362 1145626257 6211004554 6345344067  NEXT WORDrrrrrrrrrrtJPSRtERRORt ELSE, W
       4162565156 4740456262 5762151515 1111456223 2023110040 4016645164 5445406364 6251564740 ARNING ERRORrrrttER303t   (TITLE STRING 
       6457574054 5756471715 1515151515 1152606362 1147505754 6711006343 4156406457 4045564440 TOO LONG)rrrrrrtJPSRtGHOLWt SCAN TO END 
       5746406364 6251564715 1152655560 1143546464 2311005265 5560405756 4045564415 1152655560 OF STRINGrtJUMPtCLTT3t JUMP ON ENDrtJUMP
       1136352211 0045546345 3440474564 4056457064 4067576244 1515151515 1515151515 4354646422 t.-2t ELSE, GET NEXT WORDrrrrrrrrrrCLTT2
       0611554441 6211646454 4556110057 5640544163 6440675762 4434404645 6443504063 6462515647 :tMDARtTTLENt ON LAST WORD, FETCH STRING
       4054455647 6450151515 1155444163 1446112511 0041444440 4651664540 4350416263 1515151515  LENGTHrrrtMDAS'Ft5t ADD FIVE CHARSrrrrr
       1155444163 1160435043 6411004156 4440636542 6462414364 4043504162 6340565764 4046515454 tMDAStPCHCTt AND SUBTRACT CHARS NOT FILL
       4544151515 1141625544 1164645445 5611006341 6645404651 5641544064 5164544540 5445564764 EDrrrtARMDtTTLENt SAVE FINAL TITLE LENGT
       5015151515 1141627057 1446111100 4651545440 5765644067 5762444067 5164504056 6554546315 HrrrrtARXO'Ftt FILL OUT WORD WITH NULLSr
       1152606362 1160435046 5415151515 1156575760 1515151515 1155444162 1160435067 4411004645 tJPSRtPCHFLrrrrtNOOPrrrrrtMDARtPCHWDt FE
       6443504046 5156415440 6757624415 1141625544 1451116445 5521110041 5644406364 5762451515 TCH FINAL WORDrtARMD'ItTEM1t AND STORErr
       1141627057 1446111100 4354454162 4057656440 5756454055 5762454067 5762441515 1141625544 tARXO'Ftt CLEAR OUT ONE MORE WORDrrtARMD
       1451147011 6445552115 1515151515 4354646423 0611526063 6211474363 1100604163 6340444554 'I'XtTEM1rrrrrrCLTT3:tJPSRtGCSt PASS DEL
       5155456445 6215151515 1155444162 1160414745 6311004651 6263644060 4147454012 1515151515 IMETERrrrrtMDARtPAGESt FIRST PAGE ?rrrrr
       1152605463 1143544552 2111005657 3440526555 6040645740 4552454364 4060414745 1515151515 tJPLStCLEJ1t NO, JUMP TO EJECT PAGErrrrr
       1152655560 1143544556 4411004554 6345344047 5740455644 4063644164 4555455664 1515151515 tJUMPtCLENDt ELSE, GO END STATEMENTrrrrr
       1515151515 1515151515 7777700000 7526767270 7526767270 7526767270 7526767270 7526767270 rrrrrrrrrrbbX  @6+ZX@6+ZX@6+ZX@6+ZX@6+ZX
       7526767270 7526767270 7526767270 7526767270 7526767270                                  @6+ZX@6+ZX@6+ZX@6+ZX@6+ZX
 1260: 0000300014 4664562024 1361200356 3414400000 0040134552 4543641340 3636361515 1515151515   8 'FTN04"Q0!N,'     "EJECT" ...rrrrrrr
       4354455243 0611554441 6211634350 4162110044 4554515545 6445624033 4043376240 1215151515 CLEJC:tMDARtSCHARt DELIMETER = C/R ?rrrr
       1155447057 1446112125 1515151515 1152605463 1143544552 2211005657 3440635351 6015151515 tMDXO'Ft15rrrrrtJPLStCLEJ2t NO, SKIPrrrr
       1515151515 4354455221 0611554441 6214561154 6364464711 0046655454 4063576562 4345405451 rrrrrCLEJ1:tMDAR'NtLSTFGt FULL SOURCE LI
       6364515647 4012151515 1152604156 1143544556 4411005657 3440514756 5762454063 6441644555 STING ?rrrtJPANtCLENDt NO, IGNORE STATEM
       4556641515 1515151515 1155444162 1145524543 4611004154 6245414471 4063456440 6457404552 ENTrrrrrrrtMDARtEJECFt ALREADY SET TO EJ
       4543644012 1515151515 1152634156 1156456754 5611004657 6243454060 4147454045 5245436440 ECT ?rrrrrtJSANtNEWLNt FORCE PAGE EJECT 
       5146407145 6315151515 1515151515 1141625544 1457114552 4543461100 6345644064 5740465762 IF YESrrrrrrrrrtARMD'OtEJECFt SET TO FOR
       4345405645 7064404552 4543641515 1152655560 1143544556 4411004757 4045564440 6364416445 CE NEXT EJECTrrtJUMPtCLENDt GO END STATE
       5545566415 1515151515 4354455222 0611526063 6211435457 5646110043 5045435340 4657624013 MENTrrrrrrCLEJ2:tJPSRtCLONFt CHECK FOR "
       5756134057 6240135746 4613151515 1141625544 1141656445 5211004156 4440634564 4041656457 ON" OR "OFF"rrrtARMDtAUTEJt AND SET AUTO
       4045524543 6440465441 4740414343 5762445156 4754711515 1515151515 1515151515 0040136360  EJECT FLAG ACCORDINGLYrrrrrrrrrrrr  "SP
       4143451340 3636361515 1515151515 4354636043 0611554441 6211634350 4162110044 4554515545 ACE" ...rrrrrrrCLSPC:tMDARtSCHARt DELIME
       6445624033 4043376240 1215151515 1155447057 1446112125 1515151515 1152605463 1136102311 TER = C/R ?rrrrtMDXO'Ft15rrrrrtJPLSt.+3t
       0056573440 6353516015 1515151515 1155444162 1446112111 0071456334 4054574144 4043576556  NO, SKIPrrrrrrtMDAR'Ft1t YES, LOAD COUN
       6440465762 4057564540 5451564515 1152655560 1143546360 2111004156 4440526555 6040645740 T FOR ONE LINErtJUMPtCLSP1t AND JUMP TO 
       6062574345 6363151515 1515151515 1152606362 1143534561 6511004445 5451554055 6563644042 PROCESSrrrrrrrrtJPSRtCKEQUt DELIM MUST B
       4540133313 1515151515 1152606362 1147436311 0047456440 5645706440 4350416215 1155447057 E "="rrrrrtJPSRtGCSt GET NEXT CHARrtMDXO
       1456114322 2011004451 4751644012 1515151515 1155444163 1446112120 3615151515 1152604156 'NtC20t DIGIT ?rrrrrtMDAS'Ft10.rrrrtJPAN
       1143544562 2311005657 3440456262 5762151515 1515151515 1152606362 1147566555 1100435754 tCLER3t NO, ERRORrrrrrrrrtJPSRtGNUMt COL
       5445436440 4451475164 6315151515 1152655560 1136102111 0040401645 7051644057 5640444543 LECT DIGITSrrrrtJUMPt.+1t   (EXIT ON DEC
       5155415440 6057515664 1715151515 1515151515 1152606362 1147515664 5611004566 4154654164 IMAL POINT)rrrrrrrrrtJPSRtGINTNt EVALUAT
       4540636041 4345404357 6556641515 1155444162 1441114321 2727110055 4163534046 5762406245 E SPACE COUNTrrtMDAR'AtC177t MASK FOR RE
       4163575641 4254454043 5765566415 1515151515 4354636021 0611416255 4414561164 4555211100 ASONABLE COUNTrrrrrrCLSP1:tARMD'NtTEM1t 
       6341664540 6360414345 4043576556 6415151515 1155444162 1456115463 6446471100 6357656243 SAVE SPACE COUNTrrrrtMDAR'NtLSTFGt SOURC
       4540545163 6451564740 1215151515 1152604156 1143544556 4411005657 3440514756 5762454063 E LISTING ?rrrrtJPANtCLENDt NO, IGNORE S
       6441644555 4556641515 1515151515 1155444162 1470145014 5611644555 2111004457 5645404154 TATEMENTrrrrrrrtMDAR'X'H'NtTEM1t DONE AL
       5440545156 4563401215 1152604156 1143544556 4411007145 6334404757 4045564440 6364416445 L LINES ?rtJPANtCLENDt YES, GO END STATE
       5545566415 1152606362 1156456754 5611004554 6345344057 6564606564 4042544156 5340545156 MENTrtJPSRtNEWLNt ELSE, OUTPUT BLANK LIN
       4515151515 1152655560 1136352311 0041564440 5457576040 4657624056 4570641515 1515151515 ErrrrtJUMPt.-3t AND LOOP FOR NEXTrrrrrrr
       1515151515 7777700000 0074200707 0074200707 0074200707 0074200707 0074200707 0074200707 rrrrrbbX   #0__ #0__ #0__ #0__ #0__ #0__
       0074200707 0074200707 0074200707 0074200707                                              #0__ #0__ #0__ #0__
 1030: 0000400014 4664562024 1361200300 3414400000 0040136041 4745545156 4513403340 3636361515     'FTN04"Q0! ,'     "PAGELINE" = ...rr
       1515151515 4354604754 0611526063 6211435457 5646110043 5045435340 4657624013 5756134057 rrrrrCLPGL:tJPSRtCLONFt CHECK FOR "ON" O
       6240135746 4613151515 1141625544 1160475456 4611004156 4440634564 4046544147 4041434357 R "OFF"rrrtARMDtPGLNFt AND SET FLAG ACCO
       6244515647 5471151515 1515151515 1515151515 0040135457 4346514554 4413403340 3636361515 RDINGLYrrrrrrrrrrrrr  "LOCFIELD" = ...rr
       1515151515 4354545743 0611526063 6211435457 5646110043 5045435340 4657624013 5756134057 rrrrrCLLOC:tJPSRtCLONFt CHECK FOR "ON" O
       6240135746 4613151515 1141625544 1154574346 4711004156 4440634564 4046544147 4041434357 R "OFF"rrrtARMDtLOCFGt AND SET FLAG ACCO
       6244515647 5471151515 1515151515 1515151515 0040136365 4243504543 5313403340 3636361515 RDINGLYrrrrrrrrrrrrr  "SUBCHECK" = ...rr
       1515151515 4354636542 0611526063 6211435457 5646110043 5045435340 4657624013 5756134057 rrrrrCLSUB:tJPSRtCLONFt CHECK FOR "ON" O
       6240135746 4613151515 1141625544 1163654263 4611004156 4440634564 4046544147 4041434357 R "OFF"rrrtARMDtSUBSFt AND SET FLAG ACCO
       6244515647 5471151515 1515151515 1515151515 0040135766 4562465457 6713403340 3636361515 RDINGLYrrrrrrrrrrrrr  "OVERFLOW" = ...rr
       1515151515 4354576646 0611526063 6211435457 5646110043 5045435340 4657624013 5756134057 rrrrrCLOVF:tJPSRtCLONFt CHECK FOR "ON" O
       6240135746 4613151515 1141625544 1145416557 4611004156 4440634564 4046544147 4041434357 R "OFF"rrrtARMDtEAUOFt AND SET FLAG ACCO
       6244515647 5471151515 1515151515 1515151515 0040135156 6445474562 6313403340 3636361515 RDINGLYrrrrrrrrrrrrr  "INTEGERS" = ...rr
       1515151515 4354515664 0611526063 6211435463 6444110055 6563644042 4540636441 5644416244 rrrrrCLINT:tJPSRtCLSTDt MUST BE STANDARD
       4063715542 5754151515 1152604156 1143544562 2311005565 6364404245 4013545756 4713405762  SYMBOLrrrtJPANtCLER3t MUST BE "LONG" OR
       4013635057 6264131515 1152605463 1136102211 0040401645 5463453440 4562625762 1715151515  "SHORT"rrtJPLSt.+2t   (ELSE, ERROR)rrrr
       1152655560 1143544562 2315151515 1155447057 1143221100 1363505762 6413401215 1154634162 tJUMPtCLER3rrrrtMDXOtC2t "SHORT" ?rtLSAR
       1456114320 1100714563 3440634564 4046544147 1515151515 1141625544 1163505762 4611004554 'NtC0t YES, SET FLAGrrrrrtARMDtSHORFt EL
       6345344043 5445416240 6350576264 4055574445 4046544147 1515151515 1152655560 1143544556 SE, CLEAR SHORT MODE FLAGrrrrrtJUMPtCLEN
       4411004757 4045564440 6364416445 5545566415 1515151515 1515151515 0040135764 6345626257 Dt GO END STATEMENTrrrrrrrrrrr  "OTSERRO
       6263134033 4036363615 1515151515 4354576463 0611526063 6211435463 6444110043 5045435340 RS" = ...rrrrrrCLOTS:tJPSRtCLSTDt CHECK 
       4657624013 6350576264 1334401354 5756471334 4057624013 5746461315 1152604156 1143544562 FOR "SHORT", "LONG", OR "OFF"rtJPANtCLER
       2311004554 6345344045 6262576215 1141625544 1157646345 4611006345 6440576463 4045626257 3t ELSE, ERRORrtARMDtOTSEFt SET OTS ERRO
       6240636560 6057626440 4654414715 1152655560 1143544556 4411004757 4045564440 6364416445 R SUPPORT FLAGrtJUMPtCLENDt GO END STATE
       5545566415 1515151515 1515151515 7777700000 0640177661 0640177661 0640177661 0640177661 MENTrrrrrrrrrrrbbX  : )+Q: )+Q: )+Q: )+Q
       0640177661 0640177661 0640177661 0640177661 0640177661 0640177661                       : )+Q: )+Q: )+Q: )+Q: )+Q: )+Q
 1150: 0000500014 4664562024 1361200330 3414400000 0040134460 6213403340 3636361515 1515151515   H 'FTN04"Q0!8,'     "DPR" = ...rrrrrrr
       4354446062 0611526063 6211435345 6165110044 4554515540 5565636440 4245401333 1315151515 CLDPR:tJPSRtCKEQUt DELIM MUST BE "="rrrr
       1152606362 1147436311 0047456440 5645706440 4350416215 1155447057 1446110224 1100132413 tJPSRtGCSt GET NEXT CHARrtMDXO'Ftc4t "4"
       4012151515 1152605463 1136102311 0056573440 6353516015 1515151515 1141625544 1457114460  ?rrrtJPLSt.+3t NO, SKIPrrrrrrtARMD'OtDP
       6224461100 7145633440 6345644046 5441474046 5762404460 6224151515 1152655560 1143544460 R4Ft YES, SET FLAG FOR DPR4rrrtJUMPtCLDP
       2111004757 4045564440 6364416445 5545566415 1515151515 1155447057 1446110224 1402221100 1t GO END STATEMENTrrrrrrtMDXO'Ftc4'c2t 
       1322134012 1515151515 1152605463 1143544562 2311005657 3440515454 4547415440 4162471515 "2" ?rrrrrtJPLStCLER3t NO, ILLEGAL ARGrr
       1515151515 1141625544 1144606224 4611007145 6334404354 4541624046 5441474046 5762404460 rrrrrtARMDtDPR4Ft YES, CLEAR FLAG FOR DP
       6222151515 1515151515 4354446021 0611526063 6211474363 1100604163 6340564570 6440444554 R2rrrrrrrrCLDP1:tJPSRtGCSt PASS NEXT DEL
       5155456445 6215151515 1152655560 1143544556 4411004757 4045564440 6364416445 5545566415 IMETERrrrrtJUMPtCLENDt GO END STATEMENTr
       1515151515 1515151515 0040135156 4354654445 1340363636 1515151515 1515151515 4354514354 rrrrrrrrrr  "INCLUDE" ...rrrrrrrrrrCLICL
       0611416270 5714461111 0054574144 4046544147 6340465762 4073406245 4645624556 4345151515 :tARXO'Ftt LOAD FLAGS FOR $ REFERENCErrr
       1152655560 1143545766 2111006353 5160151515 1515151515 1515151515 0040134570 4354654445 tJUMPtCLOV1t SKIPrrrrrrrrrrrrr  "EXCLUDE
       1340363636 1515151515 1515151515 4354457054 0611554441 6211432411 0054574144 4046544147 " ...rrrrrrrrrrCLEXL:tMDARtC4t LOAD FLAG
       6340465762 4073734062 4546456245 5643451515 1152655560 1143545766 2111006353 5160151515 S FOR $$ REFERENCErrtJUMPtCLOV1t SKIPrrr
       1515151515 1515151515 0040135766 4562544171 1340363636 1515151515 1515151515 4354576654 rrrrrrrrrr  "OVERLAY" ...rrrrrrrrrrCLOVL
       0611554441 6211432211 0054574144 4046544147 6340465762 4073737340 6245464562 4556434515 :tMDARtC2t LOAD FLAGS FOR $$$ REFERENCEr
       1515151515 4354576621 0611554441 6214571450 1157457064 2111004357 5542515645 4054574144 rrrrrCLOV1:tMDAR'O'HtOEXT1t COMBINE LOAD
       4562406365 4235435744 4515151515 1141625544 1164455521 1100634166 4540545741 4445624046 ER SUB-CODErrrrtARMDtTEM1t SAVE LOADER F
       5441476315 1152606362 1143534561 6511004445 5451554055 6563644042 4540133313 1515151515 LAGSrtJPSRtCKEQUt DELIM MUST BE "="rrrrr
       1515151515 4354576620 0611554441 6214461143 5470644511 0047456440 6041624155 4041564440 rrrrrCLOV0:tMDAR'FtCLXTEt GET PARAM AND 
       6345416243 5040515640 6441425445 1515151515 1152606362 1143546371 5515151515 1155444162 SEARCH IN TABLErrrrrtJPSRtCLSYMrrrrtMDAR
       1446114354 7064421515 1515151515 1141625544 1456145011 6445552211 0063416645 4043576556 'FtCLXTBrrrrrrrtARMD'N'HtTEM2t SAVE COUN
       6440574640 5764634051 6445556315 1141625544 1456145011 6445552311 0041546357 4046576240 T OF OTS ITEMSrtARMD'N'HtTEM3t ALSO FOR 
       2256444060 4163631515 1155444162 1441144611 2727272727 1100554163 5340605751 5664456240 2ND PASSrrtMDAR'A'Ft77777t MASK POINTER 
       6457405764 6340644142 5445151515 1155444163 1446145611 2111004445 4362455545 5664151515 TO OTS TABLErrrtMDAS'F'Nt1t DECREMENTrrr
       1141625544 1164455524 1100634166 4515151515 1141625544 1164455525 1100415463 5740465762 tARMDtTEM4t SAVErrrrtARMDtTEM5t ALSO FOR
       4022564440 6041636315 1515151515 7777700000 7306103717 7306103717 7306103717 7306103717  2ND PASSrrrrrrbbX  $:+/)$:+/)$:+/)$:+/)
       7306103717 7306103717 7306103717 7306103717 7306103717 7306103717                       $:+/)$:+/)$:+/)$:+/)$:+/)$:+/)
 1190: 0000600014 4664562024 1361200340 3414400000 4354576622 0611554441 6214511470 1164455524   P 'FTN04"Q0! ,'   CLOV2:tMDAR'I'XtTEM4
       1100464564 4350405645 7064405764 6340455664 6271151515 1152605463 1136102211 0045664562 t FETCH NEXT OTS ENTRYrrrtJPLSt.+2t EVER
       4062454645 6245564345 4440121515 1152655560 1143545766 2311005657 3440635351 6015151515  REFERENCED ?rrtJUMPtCLOV3t NO, SKIPrrrr
       1515151515 1141624162 1450144611 1100714563 3440474564 4045706445 6256415440 6245464043 rrrrrtARAR'H'Ftt YES, GET EXTERNAL REF C
       5744451515 1155447057 1456116445 5521110043 5755604162 4540675164 5040564567 4043574445 ODErrtMDXO'NtTEM1t COMPARE WITH NEW CODE
       1515151515 1155444162 1441144611 2211006367 5164435040 4662575540 5762406457 4073737340 rrrrrtMDAR'A'Ft2t SWITCH FROM OR TO $$$ 
       1215151515 1152605463 1143545766 2311005657 3440575334 4043575664 5156654515 1515151515 ?rrrrtJPLStCLOV3t NO, OK, CONTINUErrrrrr
       1155444162 1456116445 5521110013 5766456254 4171134012 1515151515 1155444162 1441144611 tMDAR'NtTEM1t "OVERLAY" ?rrrrrtMDAR'A'Ft
       2215151515 1152605463 1136102411 0056573440 6353516015 1515151515 1152606362 1145626257 2rrrrtJPLSt.+4t NO, SKIPrrrrrrtJPSRtERRO
       6211007145 6334406741 6256515647 4045626257 6215151515 1111456223 2025110040 4016434156 Rt YES, WARNING ERRORrrrrttER305t   (CAN
       1464405541 5345405164 4073737340 4570644562 5641541715 1152655560 1143545766 2711006353 'T MAKE IT $$$ EXTERNAL)rtJUMPtCLOV7t SK
       5160406450 5163406041 6241554564 4562151515 1515151515 1152606362 1145626257 6211004554 IP THIS PARAMETERrrrrrrrrtJPSRtERRORt EL
       6345344067 4162565156 4740456262 5762151515 1111456223 2024110040 4016606245 6651576563 SE, WARNING ERRORrrrttER304t   (PREVIOUS
       5471406360 4543144440 5766456254 4171171515 1152655560 1143545766 2711006353 5160406450 LY SPEC'D OVERLAY)rrtJUMPtCLOV7t SKIP TH
       5163406041 6241554564 4562151515 1515151515 4354576623 0611416241 6214701164 4555241100 IS PARAMETERrrrrrrrrCLOV3:tARAR'XtTEM4t 
       5753344051 5644457040 6457405645 7064405764 6340516445 5515151515 1155444162 1470145611 OK, INDEX TO NEXT OTS ITEMrrrrtMDAR'X'Nt
       6445552211 0044575645 4041545440 5164455563 4012151515 1152605463 1143545766 2211005657 TEM2t DONE ALL ITEMS ?rrrtJPLStCLOV2t NO
       3440545757 6040465762 4056457064 1515151515 1515151515 4354576626 0611554441 6214511470 , LOOP FOR NEXTrrrrrrrrrrCLOV6:tMDAR'I'X
       1164455525 1100464564 4350405645 7064405764 6340644142 5445404556 6462711515 1155444162 tTEM5t FETCH NEXT OTS TABLE ENTRYrrtMDAR
       1441114155 4163531100 5541635340 5164634062 4546456245 5643454043 5041515615 1155444162 'AtAMASKt MASK ITS REFERENCE CHAINrtMDAR
       1457145011 6445552111 0063456440 4570644562 5641544062 4546404654 4147631515 1141625544 'O'HtTEM1t SET EXTERNAL REF FLAGSrrtARMD
       1451116445 5525110063 4166454051 5640644142 5445406457 4046576243 4540545741 4415151515 'ItTEM5t SAVE IN TABLE TO FORCE LOADrrrr
       1141624162 1470116445 5525110051 5644457040 6457405645 7064406441 4254454045 5664627115 tARAR'XtTEM5t INDEX TO NEXT TABLE ENTRYr
       1155444162 1470145611 6445552311 0044575645 4041545440 4556646251 4563401215 1152605463 tMDAR'X'NtTEM3t DONE ALL ENTRIES ?rtJPLS
       1143545766 2611005657 3440545757 6040465762 4056457064 1515151515 1515151515 4354576627 tCLOV6t NO, LOOP FOR NEXTrrrrrrrrrrCLOV7
       0611554441 6211634350 4162110044 4554515545 6445624033 4043575555 4140121515 1155447057 :tMDARtSCHARt DELIMETER = COMMA ?rrtMDXO
       1446110234 1515151515 1152605463 1143544556 4411005657 3440455644 4063644164 4555455664 'Ftc,rrrrrtJPLStCLENDt NO, END STATEMENT
       1515151515 1152655560 1143545766 2011004554 6345344047 4564405645 7064406041 6241554564 rrrrrtJUMPtCLOV0t ELSE, GET NEXT PARAMET
       4562151515 1515151515 1515151515 7777700000 3034107224 3034107224 3034107224 3034107224 ERrrrrrrrrrrrrrbbX  8,+Z48,+Z48,+Z48,+Z4
       3034107224 3034107224 3034107224 3034107224 3034107224 3034107224                       8,+Z48,+Z48,+Z48,+Z48,+Z48,+Z4
 1040: 0000700014 4664562024 1361200302 3414400000 0040135156 4354654445 1334401345 7043546544   X 'FTN04"Q0!c,'     "INCLUDE", "EXCLUD
       4513344013 5766456254 4171134060 4162415545 6445624041 6247655545 5664406441 4254454036 E", "OVERLAY" PARAMETER ARGUMENT TABLE .
       3636111515 1515151515 4354706442 0611644570 6411374151 5660371121 0350112441 5156601515 ..trrrrrrrCLXTB:tTEXTt/AINP/t1!Ht4AINPrr
       1164457064 1137415454 3711367041 5454035011 5764636470 1515151515 1164457064 1137416251 tTEXTt/ALL/t.XALL!HtOTSTXrrrrrtTEXTt/ARI
       6450371136 7041626450 0350112451 6457621515 1164457064 1137416445 7064371121 0350112444 TH/t.XARTH!Ht4ITORrrtTEXTt/ATEXT/t1!Ht4D
       6353151515 1164457064 1137425156 6037112103 5011244251 5660151515 1164457064 1137434162 SKrrrtTEXTt/BINP/t1!Ht4BINPrrrtTEXTt/CAR
       4437112103 5011244362 4415151515 1164457064 1137435756 6637112103 5011244357 5666151515 D/t1!Ht4CRDrrrrtTEXTt/CONV/t1!Ht4CONVrrr
       1164457064 1137445163 5337112103 5011244463 5321151515 1164457064 1137455156 6037112103 tTEXTt/DISK/t1!Ht4DSK1rrrtTEXTt/EINP/t1!
       5011244551 5660151515 1164457064 1137455765 6437112103 5011244557 6564151515 1164457064 Ht4EINPrrrtTEXTt/EOUT/t1!Ht4EOUTrrrtTEXT
       1137465451 4262371136 7046545142 0350112441 5156641515 1164457064 1137465762 5564371136 t/FLIBR/t.XFLIB!Ht4AINTrrtTEXTt/FORMT/t.
       7046556403 5011244357 5666151515 1164457064 1137476241 4670371136 7047624146 0350114762 XFMT!Ht4CONVrrrtTEXTt/GRAFX/t.XGRAF!HtGR
       4146701515 1164457064 1137504357 6245371121 0350112450 4357621515 1164457064 1137515156 AFXrrtTEXTt/HCORE/t1!Ht4HCORrrtTEXTt/IIN
       6037112103 5011245151 5660151515 1164457064 1137515737 1136705157 0350112462 4415151515 P/t1!Ht4IINPrrrtTEXTt/IO/t.XIO!Ht4RDrrrr
       1164457064 1137515765 6437112103 5011245157 6564151515 1164457064 1137534357 6245371121 tTEXTt/IOUT/t1!Ht4IOUTrrrtTEXTt/KCORE/t1
       0350112453 4357621515 1164457064 1137544142 4554371136 7047624163 0350112447 6246701515 !Ht4KCORrrtTEXTt/LABEL/t.XGRAS!Ht4GRFXrr
       1164457064 1137544347 3711210350 1124544347 1515151515 1164457064 1137545156 6037112103 tTEXTt/LCG/t1!Ht4LCGrrrrrtTEXTt/LINP/t1!
       5011245451 5660151515 1164457064 1137555756 5164371121 0350112455 4466151515 1164457064 Ht4LINPrrrtTEXTt/MONIT/t1!Ht4MDVrrrtTEXT
       1137575156 6037112103 5011245751 5660151515 1164457064 1137606054 3711210350 1124606054 t/OINP/t1!Ht4OINPrrrtTEXTt/PPL/t1!Ht4PPL
       1515151515 1164457064 1137606251 5664371121 0350112460 6256151515 1164457064 1137606260 rrrrrtTEXTt/PRINT/t1!Ht4PRNrrrtTEXTt/PRP
       3711210350 1124606260 1515151515 1164457064 1137625156 6037112103 5011246251 5660151515 /t1!Ht4PRPrrrrrtTEXTt/RINP/t1!Ht4RINPrrr
       1164457064 1137644160 4537112103 5011246441 6015151515 1164457064 1137646241 4345371136 tTEXTt/TAPE/t1!Ht4TAPrrrrtTEXTt/TRACE/t.
       7064624143 0350112464 6243411515 1164457064 1137646471 3711210350 1124646471 1515151515 XTRAC!Ht4TRCArrtTEXTt/TTY/t1!Ht4TTYrrrrr
       1164457064 1137646471 6037112103 5011246460 7115151515 1164457064 1137655651 6463371136 tTEXTt/TTYP/t1!Ht4TPYrrrrtTEXTt/UNITS/t.
       7065566463 0350112464 4160151515 1164457064 1137656451 5437113670 6564515403 5011246365 XUNTS!Ht4TAPrrrtTEXTt/UTIL/t.XUTIL!Ht4SU
       4263151515 4354706445 0615151515 1515151515 1515151515 7777700000 6021014574 6021014574 BSrrrCLXTE:rrrrrrrrrrrrrrbbX  P1%E#P1%E#
       6021014574 6021014574 6021014574 6021014574 6021014574 6021014574 6021014574 6021014574 P1%E#P1%E#P1%E#P1%E#P1%E#P1%E#P1%E#P1%E#
 2070: 0001000014 4664562024 1361200620 3414400000 5146724562 5740662215 0040576564 6065644057  %  'FTN04"Q0:0,'   IFZERO V2r  OUTPUT O
       6645625441 7140565736 4023405156 4063454755 4556644544 4066456263 5157564036 3636363615 VERLAY NO. 3 IN SEGMENTED VERSION .....r
       1515151515 5766542354 4033403635 6245634556 4411110043 5755606564 4540576645 6254417140 rrrrrOVL3L = .-RESENDtt COMPUTE OVERLAY 
       5445564764 5040515640 6757624463 1515151515 5766542363 4033406622 5746631111 0063456440 LENGTH IN WORDSrrrrrOVL3S = V2OFStt SET 
       6364416264 5156474044 5163534041 4444624563 6315151515 6622574663 4033405766 5423541021 STARTING DISK ADDRESSrrrrV2OFS = OVL3L+1
       2023363721 2024364010 4057665423 6311004357 5560656445 4056457064 4044516353 4041444462 03./104. + OVL3St COMPUTE NEXT DISK ADDR
       4563631515 1515151515 6360454351 4154111622 2020202003 5040576654 2354171100 5765646065 ESSrrrrrrrSPECIALt(20000!H OVL3L)t OUTPU
       6440576645 6254417140 5445564764 5015151515 6360454351 4154111622 2120202003 5040624563 T OVERLAY LENGTHrrrrSPECIALt(21000!H RES
       4556441711 0057656460 6564405766 4562544171 4063644162 6440414444 6245636315 6360454351 END)t OUTPUT OVERLAY START ADDRESSrSPECI
       4154111622 2220202003 5040576654 2363171100 5765646065 6440576645 6254417140 4451635340 ALt(22000!H OVL3S)t OUTPUT OVERLAY DISK 
       6345436457 6240574646 6345641515 1515151515 5146604163 6321151515 6471604557 6564401415 SECTOR OFFSETrrrrrrrIFPASS1rrrTYPEOUT 'r
       4023404041 4445606437 4357566462 5754404040 1415151515 5146564547 4164516645 4016576654  3  ADEPT/CONTROL   'rrrrIFNEGATIVE (OVL
       2354352717 3440647160 4557656440 1440404040 1440404554 6345151515 5146564547 4164516645 3L-7), TYPEOUT '    '  ELSErrrIFNEGATIVE
       4016576654 2354352727 1734406471 6045576564 4014404040 1440404554 6345151515 5146564547  (OVL3L-77), TYPEOUT '   '  ELSErrrIFNEG
       4164516645 4016576654 2354352727 2717344064 7160455765 6440144040 1440404554 6345151515 ATIVE (OVL3L-777), TYPEOUT '  '  ELSErrr
       5146564547 4164516645 4016576654 2354352727 2727173440 6471604557 6564401440 1440404556 IFNEGATIVE (OVL3L-7777), TYPEOUT ' '  EN
       4443404045 5644434040 4556444340 4045564443 1515151515 6471604557 4364401657 6654235417 DC  ENDC  ENDC  ENDCrrrrrTYPEOCT (OVL3L)
       1515151515 6471604557 6564401440 4040401415 5146564547 4164516645 4016576654 2354353136 rrrrrTYPEOUT '    'rIFNEGATIVE (OVL3L-9.
       1734406471 6045576564 4014404040 4014404045 5463451515 5146564547 4164516645 4016576654 ), TYPEOUT '    '  ELSErrIFNEGATIVE (OVL
       2354353131 3617344064 7160455765 6440144040 4014404045 5463451515 5146564547 4164516645 3L-99.), TYPEOUT '   '  ELSErrIFNEGATIVE
       4016576654 2354353131 3136173440 6471604557 6564401440 4014404045 5463451515 5146564547  (OVL3L-999.), TYPEOUT '  '  ELSErrIFNEG
       4164516645 4016576654 2354353131 3131361734 4064716045 5765644014 4014404045 5644434040 ATIVE (OVL3L-9999.), TYPEOUT ' '  ENDC  
       4556444340 4045564443 4040455644 4315151515 6471604544 4543401657 6654235417 1515151515 ENDC  ENDC  ENDCrrrrTYPEDEC (OVL3L)rrrrr
       6471604557 6564401440 4040404014 1515151515 5146564547 4164516645 4016624563 4556441021 TYPEOUT '     'rrrrrIFNEGATIVE (RESEND+1
       2220352717 3440647160 4557656440 1440404040 1440404554 6345151515 5146564547 4164516645 20-7), TYPEOUT '    '  ELSErrrIFNEGATIVE
       4016624563 4556441021 2220352727 1734406471 6045576564 4014404040 1440404554 6345151515  (RESEND+120-77), TYPEOUT '   '  ELSErrr
       5146564547 4164516645 4016624563 4556441021 2220352727 2717344064 7160455765 6440144040 IFNEGATIVE (RESEND+120-777), TYPEOUT '  
       1440404554 6345151515 5146564547 4164516645 4016624563 4556441021 2220352727 2727173440 '  ELSErrrIFNEGATIVE (RESEND+120-7777), 
       6471604557 6564401440 1440404556 4443404045 5644434040 4556444340 4045564443 1515151515 TYPEOUT ' '  ENDC  ENDC  ENDC  ENDCrrrrr
       6471604557 4364401662 4563455644 1021222017 1515151515 6471604557 6564401440 4014151515 TYPEOCT (RESEND+120)rrrrrTYPEOUT '  'rrr
       5146564547 4164516645 4016361021 2127352717 3440647160 4557656440 1440404040 1440404554 IFNEGATIVE (.+117-7), TYPEOUT '    '  EL
       6345151515 5146564547 4164516645 4016361021 2127352727 1734406471 6045576564 4014404040 SErrrIFNEGATIVE (.+117-77), TYPEOUT '   
       1440404554 6345151515 5146564547 4164516645 4016361021 2127352727 2717344064 7160455765 '  ELSErrrIFNEGATIVE (.+117-777), TYPEOU
       6440144040 1440404554 6345151515 5146564547 4164516645 4016361021 2127352727 2727173440 T '  '  ELSErrrIFNEGATIVE (.+117-7777), 
       6471604557 6564401440 1440404556 4443404045 5644434040 4556444340 4045564443 1515151515 TYPEOUT ' '  ENDC  ENDC  ENDC  ENDCrrrrr
       6471604557 4364401636 1021212717 1515151515 6471604557 6564401440 4040141515 5146564547 TYPEOCT (.+117)rrrrrTYPEOUT '   'rrIFNEG
       4164516645 4016576654 2363352717 3440647160 4557656440 1440404040 1440404554 6345151515 ATIVE (OVL3S-7), TYPEOUT '    '  ELSErrr
       5146564547 4164516645 4016576654 2363352727 1734406471 6045576564 4014404040 1440404554 IFNEGATIVE (OVL3S-77), TYPEOUT '   '  EL
       6345151515 5146564547 4164516645 4016576654 2363352727 2717344064 7160455765 6440144040 SErrrIFNEGATIVE (OVL3S-777), TYPEOUT '  
       1440404554 6345151515 5146564547 4164516645 4016576654 2363352727 2727173440 6471604557 '  ELSErrrIFNEGATIVE (OVL3S-7777), TYPEO
       6564401440 1440404556 4443404045 5644434040 4556444340 4045564443 1515151515 6471604557 UT ' '  ENDC  ENDC  ENDC  ENDCrrrrrTYPEO
       4364401657 6654236317 1515151515 6471604557 6564401440 4040401415 5146564547 4164516645 CT (OVL3S)rrrrrTYPEOUT '    'rIFNEGATIVE
       4016662257 4663355766 5423633527 1734406471 6045576564 4014404040 4014404045 5463451515  (V2OFS-OVL3S-7), TYPEOUT '    '  ELSErr
       5146564547 4164516645 4016662257 4663355766 5423633527 2717344064 7160455765 6440144040 IFNEGATIVE (V2OFS-OVL3S-77), TYPEOUT '  
       4014404045 5463451515 5146564547 4164516645 4016662257 4663355766 5423633527 2727173440  '  ELSErrIFNEGATIVE (V2OFS-OVL3S-777), 
       6471604557 6564401440 4014404045 5463451515 5146564547 4164516645 4016662257 4663355766 TYPEOUT '  '  ELSErrIFNEGATIVE (V2OFS-OV
       5423633527 2727271734 4064716045 5765644014 4014404045 5644434040 4556444340 4045564443 L3S-7777), TYPEOUT ' '  ENDC  ENDC  ENDC
       4040455644 4315151515 6471604557 4364401666 2257466335 5766542363 1715151515 4556444315   ENDCrrrrTYPEOCT (V2OFS-OVL3S)rrrrENDCr
       1515151515 5146564547 4164516645 4016662255 4170353617 3411662255 4170403340 3611455644 rrrrrIFNEGATIVE (V2MAX-.),tV2MAX = .tEND
       4315151515 1154574311 6245634556 4411006345 6440544340 4241435340 4657624056 4570644057 CrrrrtLOCtRESENDt SET LC BACK FOR NEXT O
       6645625441 7115151515 4556444315 7777700000 0013640743 0013640743 0013640743 0013640743 VERLAYrrrrENDCrbbX   "T_C "T_C "T_C "T_C
       0013640743 0013640743 0013640743 0013640743 0013640743 0013640743                        "T_C "T_C "T_C "T_C "T_C "T_C
 1520: 0001100014 4664562024 1361200442 3414400000 0011050505 0505404063 6441626440 5746405766  %+ 'FTN04"Q0&B,'    t*****  START OF OV
       4562544171 4056573640 2240435744 5156474040 0505050505 1515151515 1515151515 1515151515 ERLAY NO. 2 CODING  *****rrrrrrrrrrrrrrr
       1515151515 1515151515 0040624564 6562566340 4662575540 4570454365 6441425445 4063644164 rrrrrrrrrr  RETURNS FROM EXECUTABLE STAT
       4555455664 4060625743 4563635156 4740363636 1515151515 1515151515 6263465457 0611526063 EMENT PROCESSING ...rrrrrrrrrrRSFLO:tJPS
       6211435053 5756110043 5045435340 5146404556 4440574640 5756404354 4165634540 4357445156 RtCHKONt CHECK IF END OF ON CLAUSE CODIN
       4715151515 1152655560 1163465457 2111005146 4071456334 4047574063 4564404654 5767151515 GrrrrtJUMPtSFLO1t IF YES, GO SET FLOWrrr
       1515151515 1155444162 1151465441 4711004156 7140545747 5143415440 5146401215 1152604156 rrrrrtMDARtIFLAGt ANY LOGICAL IF ?rtJPAN
       1162465457 2111005657 3440624563 4564406062 5747624155 4046545767 1515151515 1515151515 tRFLO1t NO, RESET PROGRAM FLOWrrrrrrrrrr
       1141627057 1446111100 7145633440 6245634564 4047624146 7040435744 4540555744 4515151515 tARXO'Ftt YES, RESET GRAFX CODE MODErrrr
       1141625544 1147624146 4715151515 1152655560 1163465457 2111004156 4440634564 4060625747 tARMDtGRAFGrrrrtJUMPtSFLO1t AND SET PROG
       6241554046 5457671515 1515151515 6364465457 0611526063 6211435053 5756110045 5644405746 RAM FLOWrrrrrrrSTFLO:tJPSRtCHKONt END OF
       4057564043 5441656345 4012151515 1156575760 1111007145 6334404354 4541564051 6440656015  ON CLAUSE ?rrrtNOOPtt YES, CLEAN IT UPr
       1515151515 1155444162 1151465441 4711004156 7140545747 5143415440 5146401215 1152604156 rrrrrtMDARtIFLAGt ANY LOGICAL IF ?rtJPAN
       1163465457 2111005657 3440526563 6440634564 4060625747 6241554046 5457671515 1515151515 tSFLO1t NO, JUST SET PROGRAM FLOWrrrrrrr
       1141625544 1457114654 5767461100 7145633440 6345644060 6257476241 5540465457 6715151515 tARMD'OtFLOWFt YES, SET PROGRAM FLOWrrrr
       1155444162 1147624146 4711005657 6740515640 4762414670 4055574445 4012151515 1152634156 tMDARtGRAFGt NOW IN GRAFX MODE ?rrrtJSAN
       1163644155 1100714563 3440576564 6065644041 5640134563 4313151515 1152606362 1143505255 tSTAMt YES, OUTPUT AN "ESC"rrrtJPSRtCHJM
       6011004156 4440435041 5156406560 4052655560 6315151515 1515151515 6346545721 0611416270 Pt AND CHAIN UP JUMPSrrrrrrrrrSFLO1:tARX
       5714561454 1111006345 6440606257 4762415540 4654576715 6246545721 0611416270 5714461111 O'N'Ltt SET PROGRAM FLOWrRFLO1:tARXO'Ftt
       0057624062 4563456440 6062574762 4155404654 5767151515 1141625544 1146545767 4615151515  OR RESET PROGRAM FLOWrrrtARMDtFLOWFrrrr
       1515151515 1155444162 1154414245 5411004156 7140436562 6245566440 6364416445 5545566440 rrrrrtMDARtLABELt ANY CURRENT STATEMENT 
       5441424554 4012151515 1141565162 1162434462 6411005657 3440624564 6562564046 5762405645 LABEL ?rrrtANIRtRCDRTt NO, RETURN FOR NE
       7064404341 6244151515 1515151515 1155447057 1164624143 4611007145 6334404162 4541406462 XT CARDrrrrrrrrtMDXOtTRACFt YES, AREA TR
       4143454064 4162474564 4012151515 1152605463 1136102211 0056573440 6353516015 1141625544 ACE TARGET ?rrrtJPLSt.+2t NO, SKIPrtARMD
       1457116462 4143461100 7145633440 6465625640 5746464041 6245414064 6241435156 4715151515 'OtTRACFt YES, TURN OFF AREA TRACINGrrrr
       1515151515 1155444162 1451144214 5611544142 4554110054 4142455440 4140445740 6445625551 rrrrrtMDAR'I'B'NtLABELt LABEL A DO TERMI
       5641645762 4012151515 1141565162 1162434462 6411005657 3440624564 6562564046 5762405645 NATOR ?rrrtANIRtRCDRTt NO, RETURN FOR NE
       7064406364 4164455545 5664151515 1515151515 1155444162 1144576064 6211007145 6334404645 XT STATEMENTrrrrrrrrtMDARtDOPTRt YES, FE
       6443504060 6462406457 4044574064 4142544540 4556646271 4046576215 1141625544 1164455521 TCH PTR TO DO TABLE ENTRY FORrtARMDtTEM1
       1100404043 6562624556 6440515656 4562555763 6440564563 6445444044 5715151515 1155444162 t   CURRENT INNERMOST NESTED DOrrrrtMDAR
       1451147011 6445552111 0051634064 5051634054 4142455440 6450454064 4562555156 4164576240 'I'XtTEM1t IS THIS LABEL THE TERMINATOR 
       1215151515 1155447057 1154414245 5415151515 1152635463 1145626257 6211005657 3440464164 ?rrrrtMDXOtLABELrrrrtJSLStERRORt NO, FAT
       4154404562 6257621515 1111456221 2623110040 4016515560 6257604562 4044574056 4563645156 AL ERRORrrttER163t   (IMPROPER DO NESTIN
       4717151515 1515151515 1155444162 1456114654 5767461100 4556444057 4640545757 6040636441 G)rrrrrrrrtMDAR'NtFLOWFt END OF LOOP STA
       6445554556 6440414042 6241564350 4012151515 1152634156 1145626257 6211007145 6334406741 TEMENT A BRANCH ?rrrtJSANtERRORt YES, WA
       6256515647 4045626257 6215151515 1111456221 2624110040 4016515454 4547415440 6364416445 RNING ERRORrrrrttER164t   (ILLEGAL STATE
       5545566440 4164404556 4440574640 4457171515 1515151515 7777700000 2466650602 2466650602 MENT AT END OF DO)rrrrrrrbbX  4VU:c4VU:c
       2466650602 2466650602 2466650602 2466650602 2466650602 2466650602 2466650602 2466650602 4VU:c4VU:c4VU:c4VU:c4VU:c4VU:c4VU:c4VU:c
 1200: 0001200014 4664562024 1361200342 3414400000 1155444162 1451145011 4457606462 1100464564  %0 'FTN04"Q0!B,'   tMDAR'I'HtDOPTRt FET
       4350406245 6645626345 4054515653 4046625755 4044574045 5664627115 1155444162 1441144611 CH REVERSE LINK FROM DO ENTRYrtMDAR'A'Ft
       2727272727 1100554163 5340606462 4064574060 6245665157 6563404556 6462711515 1141625544 77777t MASK PTR TO PREVIOUS ENTRYrrtARMD
       1144576064 6211004156 4440634564 4041634056 4567404365 6262455664 4045566462 7115151515 tDOPTRt AND SET AS NEW CURRENT ENTRYrrrr
       1155444162 1451145011 6445552111 0046456443 5040554162 5345444063 6441626440 5746406445 tMDAR'I'HtTEM1t FETCH MARKED START OF TE
       5560406364 5762414745 1515151515 1155444162 1441144611 2727272727 1100554163 5315151515 MP STORAGErrrrrtMDAR'A'Ft77777t MASKrrrr
       1141625544 1164455544 5711004156 4440455663 6441644540 4163405645 6740636441 6264406057 tARMDtTEMDOt AND ENSTATE AS NEW START PO
       5156644562 1515151515 1152606362 1143505255 6011004350 4151564065 6040526555 6063151515 INTERrrrrrtJPSRtCHJMPt CHAIN UP JUMPSrrr
       1155444162 1451147011 6445552111 0046456443 5040645760 4057464054 5757604054 4315151515 tMDAR'I'XtTEM1t FETCH TOP OF LOOP LCrrrr
       1155444162 1441114155 4163531100 5541635315 1141625544 1164455522 1100634166 4515151515 tMDAR'AtAMASKt MASKrtARMDtTEM2t SAVErrrr
       1515151515 1155444162 1456114762 4146471100 4762414670 4055574445 4012151515 1152604156 rrrrrtMDAR'NtGRAFGt GRAFX MODE ?rrrtJPAN
       1136102511 0056573440 6353516015 1515151515 1141625544 1147624146 4711007145 6334404354 t.+5t NO, SKIPrrrrrrtARMDtGRAFGt YES, CL
       4541624047 6241467040 5557444515 1155444162 1454111100 4645644350 4013605255 6013405156 EAR GRAFX MODErtMDAR'Ltt FETCH "PJMP" IN
       6364626543 6451575615 1127242020 2003501515 1152655560 1136102211 0041564440 6353516015 STRUCTIONrt74000!HrrtJUMPt.+2t AND SKIPr
       1515151515 1155444162 1450114324 2011005657 6255415440 5557444534 4046456443 5040554143 rrrrrtMDAR'HtC40t NORMAL MODE, FETCH MAC
       5051564540 5265556015 1515151515 1155444162 1457116445 5522110043 5755425156 4540526555 HINE JUMPrrrrrrtMDAR'OtTEM2t COMBINE JUM
       6040515663 6440673764 5760405746 4054575760 4041444462 1515151515 1152606362 1157624554 P INST W/TOP OF LOOP ADDRrrrrrtJPSRtOREL
       1100415644 4057656460 6564405265 5560406457 4064576040 5746405457 5760151515 1515151515 t AND OUTPUT JUMP TO TOP OF LOOPrrrrrrrr
       1155444162 1451145011 6445552111 0046456443 5040414444 6240574640 4556444057 4640545757 tMDAR'I'HtTEM1t FETCH ADDR OF END OF LOO
       6040435041 5156151515 1155444162 1441114155 4163531100 5541635315 1141625544 1152556046 P CHAINrrrtMDAR'AtAMASKt MASKrtARMDtJMPF
       4711004156 4440634564 4046576240 5441644562 4043504151 5651564715 1141625544 1152604156 Gt AND SET FOR LATER CHAININGrtARMDtJPAN
       4611006345 6440135260 4156134064 7160454052 6555601515 1141627057 1446111100 6245634564 Ft SET "JPAN" TYPE JUMPrrtARXO'Ftt RESET
       4047624146 7040435744 4540555744 4515151515 1141625544 1147624146 4715151515 1155444162  GRAFX CODE MODErrrrtARMDtGRAFGrrrrtMDAR
       1451115441 4245541100 4645644350 4063644164 4555455664 4054414245 5440465441 4763151515 'ItLABELt FETCH STATEMENT LABEL FLAGSrrr
       1155447057 1441144211 4342221100 5541635340 5765644044 5740545757 6040425164 1515151515 tMDXO'A'BtCB2t MASK OUT DO LOOP BITrrrrr
       1155444162 1457145011 4322201100 6345644051 6440624546 4562455643 4544151515 1141625544 tMDAR'O'HtC20t SET IT REFERENCEDrrrtARMD
       1451115441 4245541100 6245636457 6245151515 1141625544 1457114654 5767461100 6345644045 'ItLABELt RESTORErrrtARMD'OtFLOWFt SET E
       7045436564 4142544540 4654576715 1155445162 1162434462 6411004156 4440445163 6041644350 XECUTABLE FLOWrtMDIRtRCDRTt AND DISPATCH
       4064574056 4570644043 4162441515 1515151515 1515151515 7777700000 3544564206 3544564206  TO NEXT CARDrrrrrrrrrrrrbbX  -DNB:-DNB:
       3544564206 3544564206 3544564206 3544564206 3544564206 3544564206 3544564206 3544564206 -DNB:-DNB:-DNB:-DNB:-DNB:-DNB:-DNB:-DNB:
 1450: 0001300014 4664562024 1361200424 3414400000 0040416363 5147565545 5664406364 4164455545  %8 'FTN04"Q0&4,'     ASSIGNMENT STATEME
       5664403636 3615151515 1515151515 4163565564 0611416255 4414571163 7155636611 0063416645 NT ...rrrrrrrrrASNMT:tARMD'OtSYMSVt SAVE
       4046516263 6440637155 4257541515 1141625544 1457114561 6563461100 6345644041 6363514756  FIRST SYMBOLrrtARMD'OtEQUSFt SET ASSIGN
       5545566463 4041545457 6745441515 1152606362 1160575451 6350110047 4556456241 6445406057 MENTS ALLOWEDrrtJPSRtPOLISHt GENERATE PO
       5451635015 1152605463 1141635655 2211005265 5560405146 4056576440 4164404556 4440574640 LISHrtJPLStASNM2t JUMP IF NOT AT END OF 
       6364416445 5545566415 1515151515 1155444162 1160575445 4611004156 7140416363 5147565545 STATEMENTrrrrrrtMDARtPOLEFt ANY ASSIGNME
       5664634012 1515151515 1152604156 1141635655 2111007145 6334406353 5160151515 1515151515 NTS ?rrrrrtJPANtASNM1t YES, SKIPrrrrrrrr
       1155444162 1456115756 4654471100 5657344013 5756134045 7060624563 6351575640 1215151515 tMDAR'NtONFLGt NO, "ON" EXPRESSION ?rrrr
       1152604156 1157562511 0071456334 4057533440 4757406062 5743456363 1515151515 1152655560 tJPANtON5t YES, OK, GO PROCESSrrrrrtJUMP
       1141635655 2311004554 6345344051 5454454741 5440636441 6445554556 6440456262 5762151515 tASNM3t ELSE, ILLEGAL STATEMENT ERRORrrr
       1515151515 4163565521 0611526063 6211445751 4611005753 3440606257 4345636340 5457475143 rrrrrASNM1:tJPSRtDOIFt OK, PROCESS LOGIC
       4154405146 3440514640 4156711515 1155444162 1160575463 6411004645 6443504060 5754516350 AL IF, IF ANYrrtMDARtPOLSTt FETCH POLISH
       4063644162 6415151515 1155444163 1446145611 2111004745 6440646265 4540636441 4353406364  STARTrrrrtMDAS'F'Nt1t GET TRUE STACK ST
       4162641515 1152606362 1145664154 1100456641 5465416445 1515151515 1156575760 1515151515 ARTrrtJPSRtEVALt EVALUATErrrrrtNOOPrrrrr
       1152655560 1163644654 5711006345 6440457045 4365644142 5445404654 5767151515 1515151515 tJUMPtSTFLOt SET EXECUTABLE FLOWrrrrrrrr
       4163565522 0611554470 5714461122 1100644562 5551564164 4544405756 4041404357 5555414012 ASNM2:tMDXO'Ft2t TERMINATED ON A COMMA ?
       1515151515 1155444162 1457116057 5445461100 4156444056 5740416363 5147565545 5664406062 rrrrrtMDAR'OtPOLEFt AND NO ASSIGNMENT PR
       5743456363 4544401215 1155444162 1457116057 5462461100 4156444063 5156475445 4062454645 OCESSED ?rtMDAR'OtPOLRFt AND SINGLE REFE
       6245564345 4057565471 4012151515 1152605463 1141635655 2311005657 3440526555 6040465762 RENCE ONLY ?rrrtJPLStASNM3t NO, JUMP FOR
       4045626257 6215151515 1515151515 1155444162 1456115146 5441471100 7145633440 6062574345  ERRORrrrrrrrrrtMDAR'NtIFLAGt YES, PROCE
       6363515647 4013514613 4063644164 4555455664 4012151515 1152604156 1151462211 0071456334 SSING "IF" STATEMENT ?rrrtJPANtIF2t YES,
       4057533440 5265556040 6457405041 5644544515 1515151515 4163565523 0611526063 6211456262  OK, JUMP TO HANDLErrrrrrASNM3:tJPSRtERR
       5762110045 5463453440 4641644154 4045626257 6215151515 1111456221 2224110040 4016515454 ORt ELSE, FATAL ERRORrrrrttER124t   (ILL
       4547415440 6364416445 5545566417 1515151515 1515151515 1515151515 0040606257 4345636340 EGAL STATEMENT)rrrrrrrrrrrrrrr  PROCESS 
       6360454351 4154404762 4146704051 5664625156 6351434063 6542625765 6451564540 3636361515 SPECIAL GRAFX INTRINSIC SUBROUTINE ...rr
       1515151515 5146724562 5740662115 4762466342 7006111111 0044516360 4164435040 4662575540 rrrrrIFZERO V1rGRFSBX:ttt DISPATCH FROM 
       6245635144 4051564021 2653404357 5560515445 6215151515 4556444315 4762466342 0611554441 RESID IN 16K COMPILERrrrrENDCrGRFSB:tMDA
       6211634350 4162110044 4554515545 6445624033 4054454664 4060416245 5640121515 1155447057 RtSCHARt DELIMETER = LEFT PAREN ?rrtMDXO
       1446110216 1515151515 1152605463 1151544743 5011005657 3440515454 4547415440 6371564164 'Ftc(rrrrrtJPLStILGCHt NO, ILLEGAL SYNAT
       7015151515 1515151515 4762634221 0611416255 4414571163 6245464711 0063456440 4657624056 XrrrrrrrrrGRSB1:tARMD'OtSREFGt SET FOR N
       5740416251 6450554564 5143404154 5457674544 1515151515 1141625544 1457115147 4665561100 O ARITHMETIC ALLOWEDrrrrrtARMD'OtIGFUNt 
       4156444051 5662645156 6351434047 6241467040 4665564364 5157561515 1152606362 1160575451 AND INRTINSIC GRAFX FUNCTIONrrtJPSRtPOLI
       6350110047 4564406057 5451635015 1152605463 1151544743 5011005154 5445474154 4051464056 SHt GET POLISHrtJPLStILGCHt ILLEGAL IF N
       5764404164 4045564440 5746406364 4164455545 5664151515 1515151515 1152655560 1141635655 OT AT END OF STATEMENTrrrrrrrrtJUMPtASNM
       2111004554 6345344047 5740456641 5465416445 1515151515 1515151515 1515151515 7777700000 1t ELSE, GO EVALUATErrrrrrrrrrrrrrrbbX  
       2051522457 2051522457 2051522457 2051522457 2051522457 2051522457 2051522457 2051522457 0IJ4O0IJ4O0IJ4O0IJ4O0IJ4O0IJ4O0IJ4O0IJ4O
       2051522457 2051522457                                                                   0IJ4O0IJ4O
 1305: 0001400014 4664562024 1361200367 3414400000 0040416363 5147564063 6441644555 4556644036  %  'FTN04"Q0!W,'     ASSIGN STATEMENT .
       3636151515 1515151515 4163634756 0611554441 6211634350 4162110046 4564435040 4445545155 ..rrrrrrrrASSGN:tMDARtSCHARt FETCH DELIM
       4564456215 1155447057 1446112420 1100425441 5653401215 1152605463 1151544743 5011005657 ETERrtMDXO'Ft40t BLANK ?rtJPLStILGCHt NO
       3440515454 4547415440 6371566441 7015151515 1515151515 1152606362 1147436311 0071456334 , ILLEGAL SYNTAXrrrrrrrrrtJPSRtGCSt YES,
       4047456440 5645706440 4350416215 1155447057 1456114322 2011004451 4751644012 1515151515  GET NEXT CHARrtMDXO'NtC20t DIGIT ?rrrrr
       1155444163 1446112120 3615151515 1152634156 1145626257 6211005657 3440464164 4154404562 tMDAS'Ft10.rrrrtJSANtERRORt NO, FATAL ER
       6257621515 1111456221 3122110040 4016556563 6440424540 4140636441 6445554556 6440544142 RORrrttER192t   (MUST BE A STATEMENT LAB
       4554171515 1515151515 1152606362 1147544142 5411007145 6334405753 3440474564 4054414245 EL)rrrrrrrtJPSRtGLABLt YES, OK, GET LABE
       5415151515 1152606362 1163645443 5611006364 5762454041 4444624563 6340435756 6364415664 LrrrrtJPSRtSTLCNt STORE ADDRESS CONSTANT
       4046576240 5441424554 1515151515 1141625544 1164455521 1100634166 4540606462 4064574062  FOR LABELrrrrrtARMDtTEM1t SAVE PTR TO R
       4554574340 4357566364 4156644064 4142544515 1515151515 1155444162 1163435041 6211005441 ELOC CONSTANT TABLErrrrrrtMDARtSCHARt LA
       4245544046 5754545767 4544404271 4013645713 4012151515 1155447057 1446110264 1515151515 BEL FOLLOWED BY "TO" ?rrrtMDXO'FtcTrrrrr
       1152605463 1136102315 1515151515 1152606362 1147436315 1155447057 1446110257 1515151515 tJPLSt.+3rrrrrrtJPSRtGCSrtMDXO'FtcOrrrrr
       1515151515 1152635463 1145626257 6211005657 3440464164 4154404562 6257621515 1111456221 rrrrrtJSLStERRORt NO, FATAL ERRORrrttER1
       3123110040 4016515454 4547415440 4163635147 5640636455 5664406371 5664417017 1515151515 93t   (ILLEGAL ASSIGN STMNT SYNTAX)rrrrr
       1515151515 1141625544 1457116362 4546471100 7145633440 5753344063 4564404657 6240635156 rrrrrtARMD'OtSREFGt YES, OK, SET FOR SIN
       4754454062 4546405756 5471151515 1152606362 1160575451 6350110047 4564406057 5451635040 GLE REF ONLYrrrtJPSRtPOLISHt GET POLISH 
       4657624041 6363514756 4544406641 6251414254 4515151515 1152605463 1151544743 5011005565 FOR ASSIGNED VARIABLErrrrtJPLStILGCHt MU
       6364406445 6255515641 6445405756 4045564440 5746406364 4164455545 5664151515 1515151515 ST TERMINATE ON END OF STATEMENTrrrrrrrr
       1155444162 1164455521 1100464564 4350406064 6240645740 6245545743 4043575663 6440465762 tMDARtTEM1t FETCH PTR TO RELOC CONST FOR
       4054414245 5415151515 1141625544 1451116046 6245601100 4144444064 5740605754 5163501515  LABELrrrrtARMD'ItPFREPt ADD TO POLISHrr
       1155444162 1160575463 6411004645 6443504063 6441626440 5746406057 5451635040 6364414353 tMDARtPOLSTt FETCH START OF POLISH STACK
       1515151515 1155444163 1446145611 2111004144 5265636440 6457406371 5542575440 6757624415 rrrrrtMDAS'F'Nt1t ADJUST TO SYMBOL WORDr
       1141625544 1164455521 1100634166 4540605754 5163504060 6462406457 4063715542 5754151515 tARMDtTEM1t SAVE POLISH PTR TO SYMBOLrrr
       1155444162 1451116445 5521110046 4564435040 6057545163 5040675762 4415151515 1152606362 tMDAR'ItTEM1t FETCH POLISH WORDrrrrtJPSR
       1164624347 6411004745 6440646241 4345404654 4147344051 4640415671 1515151515 1155444162 tTRCGTt GET TRACE FLAG, IF ANYrrrrrtMDAR
       1457145411 1100435755 4251564540 4556646271 4046576240 1333134057 6045624164 5762151515 'O'Ltt COMBINE ENTRY FOR "=" OPERATORrrr
       1124202023 2603501515 1152606362 1160656350 6311006065 6350406457 4060575451 6350406364 t40036!HrrtJPSRtPUSHSt PUSH TO POLISH ST
       4143531515 1155444162 1143422011 0046456443 5040455644 4057464063 6441435340 5760456241 ACKrrtMDARtCB0t FETCH END OF STACK OPERA
       6457621515 1152606362 1160656350 6311006065 6350406457 4060575451 6350151515 1152655560 TORrrtJPSRtPUSHSt PUSH TO POLISHrrrtJUMP
       1141635655 2111005265 5560406457 4057656460 6564404163 6351475655 4556644043 5744451515 tASNM1t JUMP TO OUTPUT ASSIGNMENT CODErr
       1515151515 1515151515 7777700000 2472107361 2472107361 2472107361 2472107361 2472107361 rrrrrrrrrrbbX  4Z+$Q4Z+$Q4Z+$Q4Z+$Q4Z+$Q
       2472107361 2472107361 2472107361 2472107361 2472107361                                  4Z+$Q4Z+$Q4Z+$Q4Z+$Q4Z+$Q
 1130: 0001500014 4664562024 1361200324 3414400000 0040625147 5064355041 5644406351 4445404566  %H 'FTN04"Q0!4,'     RIGHT-HAND SIDE EV
       4154654164 5762404657 6240636441 6445554556 6440466556 4364515756 6340363636 1515151515 ALUATOR FOR STATEMENT FUNCTIONS ...rrrrr
       1515151515 6364466570 0611526063 6211606563 5063110060 6563504046 6556436451 5756406057 rrrrrSTFUX:tJPSRtPUSHSt PUSH FUNCTION PO
       5156644562 4067576244 4064574060 5754516350 1515151515 1152606362 1160575451 6350110047 INTER WORD TO POLISHrrrrrtJPSRtPOLISHt G
       4564406057 5451635040 4657624046 6556436451 5756404570 6062456363 5157561515 1152605463 ET POLISH FOR FUNCTION EXPRESSIONrrtJPLS
       1151544743 5011005154 5445474154 4063715664 4170405146 4056576440 4556444057 4640434162 tILGCHt ILLEGAL SYNTAX IF NOT END OF CAR
       4415151515 1515151515 1155444162 1147456444 2111004645 6443504063 6045435141 5440435756 DrrrrrrrrrtMDARtGETD1t FETCH SPECIAL CON
       6645626351 5756405760 4562416457 6215151515 1141625544 1451116046 6245601100 4160604556 VERSION OPERATORrrrrtARMD'ItPFREPt APPEN
       4440645740 6057545163 5040636441 4353151515 1155444162 1143422011 0060656350 4045564440 D TO POLISH STACKrrrtMDARtCB0t PUSH END 
       5746406364 4143534067 5762441515 1152606362 1160656350 6315151515 1155444162 1160575463 OF STACK WORDrrtJPSRtPUSHSrrrrtMDARtPOLS
       6411004645 6443504063 6441435340 6364416264 1515151515 1152606362 1145664154 1100456641 Tt FETCH STACK STARTrrrrrtJPSRtEVALt EVA
       5465416445 4043574445 1515151515 1156575760 1515151515 1155444162 1164455523 1100464564 LUATE CODErrrrrtNOOPrrrrrtMDARtTEM3t FET
       4350406245 6465625640 5156636462 6543645157 5615151515 1152606362 1157624554 1100576564 CH RETURN INSTRUCTIONrrrrtJPSRtORELt OUT
       6065644051 6415151515 1515151515 1155444162 1164455544 5711004645 6443504064 4555604064 PUT ITrrrrrrrrrtMDARtTEMDOt FETCH TEMP T
       4142544540 6064624041 6440636441 6264151515 1152606362 1157644555 6011006245 6364576245 ABLE PTR AT STARTrrrtJPSRtOTEMPt RESTORE
       4041564440 4154545743 4164454054 5743415440 6445556063 1515151515 1155444162 1450116445  AND ALLOCATE LOCAL TEMPSrrrrrtMDAR'HtTE
       5522110046 4564435040 5045414440 5746404162 4740435041 5156151515 1515151515 6364466525 M2t FETCH HEAD OF ARG CHAINrrrrrrrrSTFU5
       0611554441 6214411446 1127272727 2711005541 6353406057 5156644562 4064574056 4570644041 :tMDAR'A'Ft77777t MASK POINTER TO NEXT A
       6247405451 5653151515 1141625544 1164455522 1100634166 4540516415 1155444163 1446112111 RG LINKrrrtARMDtTEM2t SAVE ITrtMDAS'Ft1t
       0042655560 4064574063 5564414240 4556646271 1515151515 1152606362 1163674160 1100636741  BUMP TO SMTAB ENTRYrrrrrtJPSRtSWAPt SWA
       6040446555 5571404162 4740675164 5040636560 4562634544 4544406371 5542541515 1155444162 P DUMMY ARG WITH SUPERSEDED SYMBLrrtMDAR
       1451145011 6445552211 0054416364 4041624740 1215151515 1152605463 1163644665 2511005657 'I'HtTEM2t LAST ARG ?rrrrtJPLStSTFU5t NO
       3440545757 6040465762 4056457064 1515151515 1515151515 1155444162 1164455525 1100624563 , LOOP FOR NEXTrrrrrrrrrrtMDARtTEM5t RES
       6457624540 4570454365 6441425445 4043574445 4046544147 6340363636 1515151515 1141625544 TORE EXECUTABLE CODE FLAGS ...rrrrrtARMD
       1152556046 4715151515 1155444162 1164455526 1515151515 1141625544 1152604156 4615151515 tJMPFGrrrrtMDARtTEM6rrrrrtARMDtJPANFrrrr
       1155444162 1164455524 1515151515 1141625544 1147624146 4715151515 1155445162 1162434462 tMDARtTEM4rrrrrtARMDtGRAFGrrrrtMDIRtRCDR
       6411006245 6465625640 4657624056 4570644043 4162441515 1515151515 1515151515 7777700000 Tt RETURN FOR NEXT CARDrrrrrrrrrrrrbbX  
       0777063272 0777063272 0777063272 0777063272 0777063272 0777063272 0777063272 0777063272 _b:;Z_b:;Z_b:;Z_b:;Z_b:;Z_b:;Z_b:;Z_b:;Z
       0777063272 0777063272                                                                   _b:;Z_b:;Z
 1645: 0001600014 4664562024 1361200473 3414400000 0040434154 5440636441 6445554556 6440363636  %P 'FTN04"Q0&$,'     CALL STATEMENT ...
       1515151515 1515151515 4341545406 1152606362 1147637155 4111004745 6440637155 4257541515 rrrrrrrrrrCALL:tJPSRtGSYMAt GET SYMBOLrr
       1152606362 1163656263 7155110051 5640637155 4257544064 4142544540 1215151515 1152606362 tJPSRtSURSYMt IN SYMBOL TABLE ?rrrrtJPSR
       1163646371 5511005657 3440636457 6245405164 1515151515 1155444162 1163556471 4611006371 tSTSYMt NO, STORE ITrrrrrtMDARtSMTYFt SY
       5542575440 6471604540 6556535657 6756401215 1154637057 1143241100 5762406365 4262576564 MBOL TYPE UNKNOWN ?rtLSXOtC4t OR SUBROUT
       5156454012 1515151515 1152605463 1136102215 1152655560 1143415454 2011007145 6334406353 INE ?rrrrrtJPLSt.+2rtJUMPtCALL0t YES, SK
       5160151515 1155447057 1446112414 2311005657 3440466556 4364515756 4012151515 1152635463 IPrrrtMDXO'Ft4'3t NO, FUNCTION ?rrrtJSLS
       1145626257 6211005657 3440464164 4154404562 6257621515 1111456221 2630110040 4016637155 tERRORt NO, FATAL ERRORrrttER168t   (SYM
       4257544056 5764404140 6365426257 6564515645 1715151515 1152606362 1145626257 6211007145 BOL NOT A SUBROUTINE)rrrrtJPSRtERRORt YE
       6334406741 6256515647 4045626257 6215151515 1111456222 2420110040 4016466556 4364515756 S, WARNING ERRORrrrrttER240t   (FUNCTION
       4062454645 6245564345 4440416340 4140636542 6217151515 1152655560 1136102411 0063535160  REFERENCED AS A SUBR)rrrtJUMPt.+4t SKIP
       1515151515 1515151515 4341545420 0611554441 6214511163 6562601100 4645644350 4063715542 rrrrrrrrrrCALL0:tMDAR'ItSURPt FETCH SYMB
       5754404654 4147631515 1155444162 1457114342 2011006345 6440637155 4257544064 7160454033 OL FLAGSrrtMDAR'OtCB0t SET SYMBOL TYPE =
       4063654262 5765645156 4515151515 1141625544 1451116365 6260110063 4166454051 5640637155  SUBROUTINErrrrtARMD'ItSURPt SAVE IN SYM
       4257544045 5664627115 1515151515 1155444162 1163435041 6211004162 4765554556 6463401215 BOL ENTRYrrrrrrtMDARtSCHARt ARGUMENTS ?r
       1155447057 1446112125 1515151515 1152605463 1143415454 2111007145 6334406353 5160151515 tMDXO'Ft15rrrrrtJPLStCALL1t YES, SKIPrrr
       1515151515 1155444162 1163715542 4611005657 3440457064 4562564154 4060624546 5170401215 rrrrrtMDARtSYMBFt NO, EXTERNAL PREFIX ?r
       1155444162 1441114323 1515151515 1152635463 1163644570 6411007145 6334406345 6440637155 tMDAR'AtC3rrrrrtJSLStSTEXTt YES, SET SYM
       4257544045 7064456256 4154151515 1155444162 1163715542 4611001375 1340606245 4651704012 BOL EXTERNALrrrtMDARtSYMBFt "@" PREFIX ?
       1515151515 1155444162 1441144611 2415151515 1152635463 1145626257 6211007145 6334405154 rrrrrtMDAR'A'Ft4rrrrtJSLStERRORt YES, IL
       5445474154 1515151515 1111456221 2121151515 1155444162 1163715542 4611001374 1340606245 LEGALrrrrrttER111rrrtMDARtSYMBFt "#" PRE
       4651704012 1515151515 1155444162 1441114321 2015151515 1154634162 1143211100 7145633440 FIX ?rrrrrtMDAR'AtC10rrrrtLSARtC1t YES, 
       4645644350 4051564451 6245436440 4251641515 1155444163 1446112220 1100465762 5540135260 FETCH INDIRECT BITrrtMDAS'Ft20t FORM "JP
       6362134051 5663646265 4364515756 1515151515 1155444162 1457145011 6365626011 0043575542 SR" INSTRUCTIONrrrrrtMDAR'O'HtSURPt COMB
       5156454067 5164504063 7155425754 4064414254 4540605751 5664456215 1141625544 1450116445 INE WITH SYMBOL TABLE POINTERrtARMD'HtTE
       5521110063 4166451515 1152606362 1144575146 1100606257 4345636340 5457475143 4154405146 M1t SAVErrtJPSRtDOIFt PROCESS LOGICAL IF
       3440514640 4156711515 1155444162 1143416270 5736461100 4555516440 1341627057 1446134046 , IF ANYrrtMDARtCARXO.Ft EMIT "ARXO'F" F
       5762405657 4041624763 1515151515 1152606362 1145665741 4211004040 1651564055 4143505156 OR NO ARGSrrrrrtJPSRtEVOABt   (IN MACHIN
       4540435744 4540555744 4517151515 1155444162 1164455521 1100464564 4350406365 4262576564 E CODE MODE)rrrtMDARtTEM1t FETCH SUBROUT
       5156454043 4154541515 1152606362 1157624546 1100576564 6065644062 4546456245 5643451515 INE CALLrrtJPSRtOREFt OUTPUT REFERENCErr
       1152655560 1163644654 5711006245 6465625640 6457406345 6440457045 4365644142 5445404654 tJUMPtSTFLOt RETURN TO SET EXECUTABLE FL
       5767151515 1515151515 4341545421 0611554470 5714461121 2514021611 0044455451 5545644562 OWrrrrrrrrCALL1:tMDXO'Ft15'c(t DELIMETER
       4033405445 4664406041 6245564012 1515151515 1152605463 1151544743 5011005657 3440515454  = LEFT PAREN ?rrrrrtJPLStILGCHt NO, ILL
       4547415440 6371566441 7015151515 1141625544 1457116371 5563661100 7145633440 6341664540 EGAL SYNTAXrrrrtARMD'OtSYMSVt YES, SAVE 
       6371554257 5415151515 1141625544 1457114341 5454461100 6345644043 4154544063 6441644555 SYMBOLrrrrtARMD'OtCALLFt SET CALL STATEM
       4556644046 5441471515 1141625544 1457116362 4546471100 6345644063 5156475445 4062454645 ENT FLAGrrtARMD'OtSREFGt SET SINGLE REFE
       6245564345 4046544147 1515151515 1152606362 1160575451 6350110047 4564406057 5451635040 RENCE FLAGrrrrrtJPSRtPOLISHt GET POLISH 
       4657624063 6542625765 6451564540 4341545415 1152605463 1151544743 5011005154 5445474154 FOR SUBROUTINE CALLrtJPLStILGCHt ILLEGAL
       4051464056 5764404556 4440574640 6364416445 5545566415 1152655560 1141635655 2111004554  IF NOT END OF STATEMENTrtJUMPtASNM1t EL
       6345344052 6555604064 5740576564 6065641515 1515151515 1515151515 7777700000 3075144153 SE, JUMP TO OUTPUTrrrrrrrrrrrrbbX  8@'AK
       3075144153 3075144153 3075144153 3075144153 3075144153 3075144153 3075144153 3075144153 8@'AK8@'AK8@'AK8@'AK8@'AK8@'AK8@'AK8@'AK
       3075144153                                                                              8@'AK
 1350: 0001700014 4664562024 1361200400 3414400000 0040445163 6054417134 4043415454 5155473440  %X 'FTN04"Q0& ,'     DISPLAY, CALLIMG, 
       4156444043 4154546351 5547406364 4164455545 5664634036 3636151515 1515151515 4341545155 AND CALLSIMG STATEMENTS ...rrrrrrrrCALIM
       0611416270 5714541111 0043415454 5155473440 4354454162 4042516415 4341546351 0611554441 :tARXO'Ltt CALLIMG, CLEAR BITrCALSI:tMDA
       6211434226 1100434154 5463515547 3440634564 4066416251 4556644042 5164151515 1141625544 RtCB6t CALLSIMG, SET VARIENT BITrrrtARMD
       1164455523 1100634166 4540664162 5145566440 4251644046 5762404762 4146704057 6015151515 tTEM3t SAVE VARIENT BIT FOR GRAFX OPrrrr
       1141627057 1454145611 1100634564 4046544147 4046576240 4762414670 4051644555 1515151515 tARXO'L'Ntt SET FLAG FOR GRAFX ITEMrrrrr
       1515151515 4451636054 0611416270 5714461111 0044516360 5441713440 4354454162 4047624146 rrrrrDISPL:tARXO'Ftt DISPLAY, CLEAR GRAF
       7040465441 4715151515 1141625544 1164455522 1515151515 1155444162 1163435041 6211004645 X FLAGrrrrtARMDtTEM2rrrrrtMDARtSCHARt FE
       6443504044 4554515545 6445621515 1155447057 1446110216 1100544546 6440604162 4556401215 TCH DELIMETERrrtMDXO'Ftc(t LEFT PAREN ?r
       1141625544 1164455524 1100565734 4063456440 4654414715 1152635463 1142546353 6011004156 tARMDtTEM4t NO, SET FLAGrtJSLStBLSKPt AN
       4440635351 6040444554 5155456445 6240514640 4254415653 1515151515 1515151515 1152606362 D SKIP DELIMETER IF BLANKrrrrrrrrrrtJPSR
       1147637155 4111004745 6440515541 4745405641 5545151515 1152606362 1163656263 7155110051 tGSYMAt GET IMAGE NAMErrrtJPSRtSURSYMt I
       5640637155 4257544064 4142544540 1215151515 1152606362 1163646371 5511005657 3440636457 N SYMBOL TABLE ?rrrrtJPSRtSTSYMt NO, STO
       6245405164 1515151515 1515151515 1155444162 1163556471 4611006371 5542575440 6471604540 RE ITrrrrrrrrrrtMDARtSMTYFt SYMBOL TYPE 
       6556535657 6756401215 1154637057 1143251100 5762406471 6045403340 5155414745 4012151515 UNKNOWN ?rtLSXOtC5t OR TYPE = IMAGE ?rrr
       1152635463 1145626257 6211005657 3440464164 4154404562 6257621515 1111456221 2631110040 tJSLStERRORt NO, FATAL ERRORrrttER169t  
       4016637155 4257544056 5764404156 4051554147 4517151515 1515151515 1155444162 1451116365  (SYMBOL NOT AN IMAGE)rrrrrrrrtMDAR'ItSU
       6260110046 4564435040 6371554257 5440465441 4763151515 1155444162 1457145432 1125202020 RPt FETCH SYMBOL FLAGSrrrtMDAR'O'L;t5000
       2003501100 6345644064 7160454033 4051554147 4515151515 1141625544 1451116365 6260110063 0!Ht SET TYPE = IMAGErrrrtARMD'ItSURPt S
       4166454051 5640637155 4257544045 5664627115 1155444162 1163715542 4611001374 1340606245 AVE IN SYMBOL ENTRYrtMDARtSYMBFt "#" PRE
       4651704012 1515151515 1155444162 1441114321 2015151515 1141626263 1123110071 4563344046 FIX ?rrrrrtMDAR'AtC10rrrrtARRSt3t YES, F
       5762554051 5644516245 4364404251 6415151515 1155444162 1457145011 6365626011 0043575542 ORM INDIRECT BITrrrrtMDAR'O'HtSURPt COMB
       5156454063 5564414240 6057515664 4562151515 1141625544 1450116445 5521110041 5644406341 INE SMTAB POINTERrrrtARMD'HtTEM1t AND SA
       6645151515 1515151515 1155444162 1164455524 1100604162 4556645045 6351724544 4051554147 VErrrrrrrrtMDARtTEM4t PARENTHESIZED IMAG
       4540564155 4540121515 1152605463 1144516360 2411005657 3440635351 6015151515 1515151515 E NAME ?rrtJPLStDISP4t NO, SKIPrrrrrrrrr
       1155444162 1163435041 6211007145 6334404445 5451554564 4562403340 6251475064 4060416245 tMDARtSCHARt YES, DELIMETER = RIGHT PARE
       5640121515 1155447057 1446110217 1515151515 1152605463 1151544743 5011005657 3440515454 N ?rrtMDXO'Ftc)rrrrrtJPLStILGCHt NO, ILL
       4547415440 6371566441 7015151515 1152606362 1147436364 1100714563 3440575334 4047456440 EGAL SYNTAXrrrrtJPSRtGCSTt YES, OK, GET 
       5645706440 4350416215 1152655560 1144516360 2511004556 4440574640 6364416445 5545566440 NEXT CHARrtJUMPtDISP5t END OF STATEMENT 
       1240407145 6334405753 3440635351 6015151515 1152655560 1151544743 5011005657 3440515454 ?  YES, OK, SKIPrrrrtJUMPtILGCHt NO, ILL
       4547415440 6371566441 7015151515 1515151515 4451636024 0611554441 6211634350 4162110041 EGAL SYNTAXrrrrrrrrrDISP4:tMDARtSCHARt A
       5671404162 4763401215 1155447057 1446112125 1515151515 1152605463 1144516360 2111007145 NY ARGS ?rtMDXO'Ft15rrrrrtJPLStDISP1t YE
       6334406353 5160151515 1515151515 7777700000 1137401160 1137401160 1137401160 1137401160 S, SKIPrrrrrrrrbbX  t/ tPt/ tPt/ tPt/ tP
       1137401160 1137401160 1137401160 1137401160 1137401160 1137401160                       t/ tPt/ tPt/ tPt/ tPt/ tPt/ tP
 1450: 0002000014 4664562024 1361200424 3414400000 4451636025 0611554441 6211637155 4246110056  c  'FTN04"Q0&4,'   DISP5:tMDARtSYMBFt N
       5740416247 6334404570 6445625641 5440606245 4651704012 1515151515 1155444162 1441114323 O ARGS, EXTERNAL PREFIX ?rrrrrtMDAR'AtC3
       1515151515 1152635463 1163644570 6411007145 6334406345 6440637155 4257544045 7064456256 rrrrrtJSLStSTEXTt YES, SET SYMBOL EXTERN
       4154151515 1155444162 1163715542 4611001375 1340606245 4651704012 1515151515 1155444162 ALrrrtMDARtSYMBFt "@" PREFIX ?rrrrrtMDAR
       1441144611 2415151515 1152635463 1145626257 6211007145 6334405154 5445474154 1515151515 'A'Ft4rrrrtJSLStERRORt YES, ILLEGALrrrrr
       1111456221 2121151515 1152606362 1144575146 1100606257 4345636340 5457475143 4154405146 ttER111rrrtJPSRtDOIFt PROCESS LOGICAL IF
       1515151515 1155444162 1164455522 1100476241 4670405164 4555401215 1152604156 1144516360 rrrrrtMDARtTEM2t GRAFX ITEM ?rtJPANtDISP
       2311007145 6334405265 5560406457 4060625743 4563631515 1515151515 1152606362 1163456441 3t YES, JUMP TO PROCESSrrrrrrrtJPSRtSETA
       5511004554 6345344063 4564404163 6345554254 7140555744 4515151515 1152655560 1144516360 Mt ELSE, SET ASSEMBLY MODErrrrtJUMPtDISP
       2211004156 4440526555 6040645740 5765646065 6440435744 4515151515 1515151515 4451636021 2t AND JUMP TO OUTPUT CODErrrrrrrrrDISP1
       0611554470 5714461121 2514021611 0044455451 5545644562 4033405445 4664406041 6245564012 :tMDXO'Ft15'c(t DELIMETER = LEFT PAREN ?
       1515151515 1152605463 1151544743 5011005657 3440515454 4547415440 6371566441 7015151515 rrrrrtJPLStILGCHt NO, ILLEGAL SYNTAXrrrr
       1515151515 1141625544 1457114451 6360461100 7145633440 6345644044 5163605441 7140465441 rrrrrtARMD'OtDISPFt YES, SET DISPLAY FLA
       4715151515 1141625544 1457116371 5563661100 6341664540 6371554257 5415151515 1141625544 GrrrrtARMD'OtSYMSVt SAVE SYMBOLrrrrtARMD
       1457116362 4546471100 6345644046 5762406351 5647544540 6245464562 4556434540 5756547115 'OtSREFGt SET FOR SINGLE REFERENCE ONLYr
       1152606362 1160575451 6350110047 4564406057 5451635040 4657624063 6542625765 6451564540 tJPSRtPOLISHt GET POLISH FOR SUBROUTINE 
       4341545415 1152605463 1151544743 5011005154 5445474154 4051464056 5764404556 4440574640 CALLrtJPLStILGCHt ILLEGAL IF NOT END OF 
       6364416445 5545566415 1515151515 1152606362 1144575146 1100606257 4345636340 5457475143 STATEMENTrrrrrrtJPSRtDOIFt PROCESS LOGIC
       4154405146 3440514640 6045564451 5647151515 1155444162 1160575463 6415151515 1155444163 AL IF, IF PENDINGrrrtMDARtPOLSTrrrrtMDAS
       1446145611 2115151515 1152606362 1145664154 1100456641 5465416445 4063654262 5765645156 'F'Nt1rrrrtJPSRtEVALt EVALUATE SUBROUTIN
       4540434154 5415151515 1515151515 1155444162 1164455522 1100476241 4670405164 4555401215 E CALLrrrrrrrrrtMDARtTEM2t GRAFX ITEM ?r
       1152604156 1144516360 2311007145 6334405265 5560406457 4060625743 4563631515 1515151515 tJPANtDISP3t YES, JUMP TO PROCESSrrrrrrr
       4451636022 0611554441 6211435544 4162110057 6564606564 4013554441 6213405155 4147454041 DISP2:tMDARtCMDARt OUTPUT "MDAR" IMAGE A
       4444624563 6315151515 1155444162 1457116445 5521151515 1152606362 1157624546 1515151515 DDRESSrrrrtMDAR'OtTEM1rrrtJPSRtOREFrrrrr
       1152606362 1157637162 4611005765 6460656440 1341625544 4073414444 6213151515 1141625544 tJPSRtOSYRFt OUTPUT "ARMD $ADDR"rrrtARMD
       1141444462 1515151515 1152606362 1157637162 4611005765 6460656440 1352606362 4073476241 tADDRrrrrrtJPSRtOSYRFt OUTPUT "JPSR $GRA
       4670131515 1152606362 1147624146 7015151515 1141627057 1446111100 5765646065 6440724562 FX"rrtJPSRtGRAFXrrrrtARXO'Ftt OUTPUT ZER
       5715151515 1152606362 1157414263 1515151515 1152655560 1163644654 5711004757 4063456440 OrrrrtJPSRtOABSrrrrrtJUMPtSTFLOt GO SET 
       4654576715 1515151515 4451636023 0611526063 6211634564 4755110046 5762404762 4146704051 FLOWrrrrrrDISP3:tJPSRtSETGMt FOR GRAFX I
       6445553440 6345644047 6241467040 4357444540 5557444515 1155444162 1143515547 1100464564 TEM, SET GRAFX CODE MODErtMDARtCIMGt FET
       4350401351 5547134051 5663646265 4364515756 1515151515 1155444162 1457116445 5523110043 CH "IMG" INSTRUCTIONrrrrrtMDAR'OtTEM3t C
       5755425156 4540664162 5145566440 4251641515 1155444162 1457116445 5521110043 5755425156 OMBINE VARIENT BITrrtMDAR'OtTEM1t COMBIN
       4540635564 4142406064 6240415644 4051564451 6245436440 4251641515 1152606362 1157624546 E SMTAB PTR AND INDIRECT BITrrtJPSRtOREF
       1100576564 6065644062 4546456245 5643451515 1152655560 1163644654 5711006245 6465625640 t OUTPUT REFERENCErrtJUMPtSTFLOt RETURN 
       4156444063 4564406062 5747624155 4046545767 1515151515 1515151515 1515151515 7777700000 AND SET PROGRAM FLOWrrrrrrrrrrrrrrrbbX  
       4116415313 4116415313 4116415313 4116415313 4116415313 4116415313 4116415313 4116415313 A(AK"A(AK"A(AK"A(AK"A(AK"A(AK"A(AK"A(AK"
       4116415313 4116415313                                                                   A(AK"A(AK"
 1440: 0002100014 4664562024 1361200422 3414400000 0040445740 6364416445 5545566440 3636361515  c+ 'FTN04"Q0&2,'     DO STATEMENT ...rr
       1515151515 4457061155 4441621163 4350416211 0046456443 5040444554 5155456445 6215151515 rrrrrDO:tMDARtSCHARt FETCH DELIMETERrrrr
       1155447057 1446112420 1100556563 6440424540 4254415653 1515151515 1152605463 1151544743 tMDXO'Ft40t MUST BE BLANKrrrrrtJPLStILGC
       5011004554 6345344051 5454454741 5440637156 6441701515 1515151515 1155444162 1456115146 Ht ELSE, ILLEGAL SYNTAXrrrrrrrtMDAR'NtIF
       5441471100 6062574345 6363515647 4041564013 5146134063 6441644555 4556644012 1515151515 LAGt PROCESSING AN "IF" STATEMENT ?rrrrr
       5146456262 0611526341 5611456262 5762110071 4563344046 4164415440 4562625762 1515151515 IFERR:tJSANtERRORt YES, FATAL ERRORrrrrr
       1111456221 2721110040 4016445740 5154544547 4154405156 4054574751 4341544051 4617151515 ttER171t   (DO ILLEGAL IN LOGICAL IF)rrr
       1515151515 1152606362 1147436311 0047456440 5645706440 6364416445 5545566440 4350416215 rrrrrtJPSRtGCSt GET NEXT STATEMENT CHARr
       1155447057 1456114322 2011005565 6364404245 4041404451 4751641515 1155444163 1446112120 tMDXO'NtC20t MUST BE A DIGITrrtMDAS'Ft10
       3615151515 1152634156 1145626257 6211004554 6345344046 4164415440 4562625762 1515151515 .rrrrtJSANtERRORt ELSE, FATAL ERRORrrrrr
       1111456221 2621110040 4016445740 5441424554 4055656364 4042454041 5640515664 4547456217 ttER161t   (DO LABEL MUST BE AN INTEGER)
       1515151515 1515151515 1152606362 1147544142 5411005753 3440474564 4064456255 5156416457 rrrrrrrrrrtJPSRtGLABLt OK, GET TERMINATO
       6240544142 4554151515 1141625544 1164455522 1100634166 4540544142 4554406441 4254454060 R LABELrrrtARMDtTEM2t SAVE LABEL TABLE P
       5751566445 6215151515 1155447057 1154414245 5411006341 5545404163 4043656262 4556644063 OINTERrrrrtMDXOtLABELt SAME AS CURRENT S
       6441644555 4556644054 4142455440 1215151515 1152605463 1136102311 0056573440 5753344063 TATEMENT LABEL ?rrrrtJPLSt.+3t NO, OK, S
       5351601515 1515151515 4457200611 5260636211 4562625762 1100455463 4534404641 6441544045 KIPrrrrrrrDO0:tJPSRtERRORt ELSE, FATAL E
       6262576215 1111456221 2622110040 4016445740 5441424554 4060624535 4445465156 4544171515 RRORrttER162t   (DO LABEL PRE-DEFINED)rr
       1515151515 1155444162 1164455522 1100464564 4350405441 4245544060 5751566445 6215151515 rrrrrtMDARtTEM2t FETCH LABEL POINTERrrrr
       1152606362 1143535442 5411004350 4543534046 5762405657 6440414046 5762554164 1515151515 tJPSRtCKLBLt CHECK FOR NOT A FORMATrrrrr
       1155444162 1451145311 6445552211 0046456443 5040544142 4554404654 4147631515 1152604156 tMDAR'I'KtTEM2t FETCH LABEL FLAGSrrtJPAN
       1144572011 0045626257 6240415463 5740514640 4154624541 4471404445 4651564544 1515151515 tDO0t ERROR ALSO IF ALREADY DEFINEDrrrrr
       1515151515 1155444162 1441144611 2220110045 5463453440 5753344041 5462454144 7140515640 rrrrrtMDAR'A'Ft20t ELSE, OK, ALREADY IN 
       4457406441 4254454012 1515151515 1152605463 1144572211 0071456334 4056456364 4544404457 DO TABLE ?rrrrrtJPLStDO2t YES, NESTED DO
       1463344063 5351601515 1515151515 1155444162 1451114457 6064621100 4156714055 5762454046 'S, SKIPrrrrrrrtMDAR'ItDOPTRt ANY MORE F
       6245454045 5664625145 6340515640 4457406441 4254454012 1515151515 1152605463 1144572111 REE ENTRIES IN DO TABLE ?rrrrrtJPLStDO1t
       0071456334 4063535160 1515151515 1515151515 1152606362 1147466245 4511004554 6345344047  YES, SKIPrrrrrrrrrrtJPSRtGFREEt ELSE, G
       4564402340 4662454540 6757624463 4046576240 5645671515 1111231100 4040445740 6441425445 ET 3 FREE WORDS FOR NEWrrtt3t   DO TABLE
       4045566462 7115151515 1141625544 1164455521 1100634166 4540564567 4045566462 7140605751  ENTRYrrrrtARMDtTEM1t SAVE NEW ENTRY POI
       5664456215 1155444162 1450114457 6064621100 4645644350 4043656262 4556644060 5751566445 NTERrtMDAR'HtDOPTRt FETCH CURRENT POINTE
       6215151515 1155444162 1441145011 4155416353 1100554163 5315151515 1141625544 1451116445 RrrrrtMDAR'A'HtAMASKt MASKrrrrtARMD'ItTE
       5521110063 4166454041 6340624566 4562634540 5451565340 5156405645 6740455664 6271151515 M1t SAVE AS REVERSE LINK IN NEW ENTRYrrr
       1155444162 1164455521 1100464564 4350405645 6740455664 6271404144 4462456363 1515151515 tMDARtTEM1t FETCH NEW ENTRY ADDRESSrrrrr
       1155444162 1457145111 4457606462 1100634564 4041634046 5762674162 4440545156 5340515640 tMDAR'O'ItDOPTRt SET AS FORWARD LINK IN 
       6062456640 4556646271 1515151515 1141625544 1451114457 6064621100 4156444063 4166454051 PREV ENTRYrrrrrtARMD'ItDOPTRt AND SAVE I
       5640606245 6651576563 4045566462 7115151515 1515151515 7777700000 7747365773 7747365773 N PREVIOUS ENTRYrrrrrrrrrbbX  bG.O$bG.O$
       7747365773 7747365773 7747365773 7747365773 7747365773 7747365773 7747365773 7747365773 bG.O$bG.O$bG.O$bG.O$bG.O$bG.O$bG.O$bG.O$
 1510: 0002200014 4664562024 1361200440 3414400000 4457210611 5544416214 4114461127 2727272711  c0 'FTN04"Q0& ,'   DO1:tMDAR'A'Ft77777t
       0055416353 4041444462 4563634057 4640564567 4044574045 5664627115 1141625544 1144576064  MASK ADDRESS OF NEW DO ENTRYrtARMDtDOPT
       6211004556 6364416445 4041634043 6562624556 6415151515 1141625544 1164455521 1100415463 Rt ENSTATE AS CURRENTrrrrtARMDtTEM1t ALS
       5740634166 4540465762 4051564445 7051564715 1155444162 1450116445 5544571100 4645644350 O SAVE FOR INDEXINGrtMDAR'HtTEMDOt FETCH
       4043656262 4556644064 4555604064 4142544540 6057515664 4562151515 1155444162 1441145011  CURRENT TEMP TABLE POINTERrrrtMDAR'A'Ht
       4155416353 1100554163 5315151515 1155444162 1457116445 5522110043 5755425156 4540675164 AMASKt MASKrrrrtMDAR'OtTEM2t COMBINE WIT
       5040544142 4554406441 4254454060 5751566445 6215151515 1141625544 1451147011 6445552111 H LABEL TABLE POINTERrrrrtARMD'I'XtTEM1t
       0041564440 6341664540 5156405645 6740445740 4556646271 1515151515 1155444162 1451116445  AND SAVE IN NEW DO ENTRYrrrrrtMDAR'ItTE
       5522110046 4564435040 5441424554 4045566462 7140465441 4763151515 1155444162 1457144211 M2t FETCH LABEL ENTRY FLAGSrrrtMDAR'O'Bt
       4342221100 6345644044 5740644162 4745644042 5164151515 1141625544 1451116445 5522110062 CB2t SET DO TARGET BITrrrtARMD'ItTEM2t R
       4563645762 4515151515 1515151515 1141627057 1446111100 4354454162 4063416645 4060575156 ESTORErrrrrrrrrtARXO'Ftt CLEAR SAVE POIN
       6445626340 5156405645 6740455664 6271151515 1141625544 1451147011 6445552115 1152655560 TERS IN NEW ENTRYrrrtARMD'I'XtTEM1rtJUMP
       1144572311 0041564440 6353516015 1515151515 4457220611 5544416211 4457606462 1100564563 tDO3t AND SKIPrrrrrrDO2:tMDARtDOPTRt NES
       6445444044 5714633440 4645644350 4044574064 4142544540 6064621515 1141625544 1164455521 TED DO'S, FETCH DO TABLE PTRrrtARMDtTEM1
       1100634166 4540465762 4051564445 7051564715 1155444162 1451147011 6445552111 0046456443 t SAVE FOR INDEXINGrtMDAR'I'XtTEM1t FETC
       5040544142 4554406057 5156644562 4046576240 5441636440 4457151515 1155447057 1164455522 H LABEL POINTER FOR LAST DOrrrtMDXOtTEM2
       1100634155 4540416340 4657624064 5051634057 5645401215 1152635463 1145626257 6211005657 t SAME AS FOR THIS ONE ?rtJSLStERRORt NO
       3440464164 4154404562 6257621515 1111456221 2623110040 4016515560 6257604562 5471405645 , FATAL ERRORrrttER163t   (IMPROPERLY NE
       6364454440 4457146317 1515151515 1515151515 1141624162 1470116445 5521110045 5463453440 STED DO'S)rrrrrrrrrrtARAR'XtTEM1t ELSE, 
       5753344051 5644457040 4457406441 4254454045 5664627140 6064621515 1515151515 4457230611 OK, INDEX DO TABLE ENTRY PTRrrrrrrrDO3:t
       4162554414 5711474363 6366110063 4166454044 4554515551 6451564740 4350416240 5746405441 ARMD'OtGCSSVt SAVE DELIMITING CHAR OF LA
       4245541515 1141625544 1457116362 4546471100 6345644046 5762406351 5647544540 6245464562 BELrrtARMD'OtSREFGt SET FOR SINGLE REFER
       4556434540 5756547115 1152606362 1160575451 6350110047 4564406057 5451635040 4657624051 ENCE ONLYrtJPSRtPOLISHt GET POLISH FOR I
       5644457040 6641625141 4254451515 1155447057 1446112111 0064456255 5156416445 4440575640 NDEX VARIABLErrtMDXO'Ft1t TERMINATED ON 
       1333134012 1515151515 1152605463 1151544743 5011005657 3440515454 4547415440 6371566441 "=" ?rrrrrtJPLStILGCHt NO, ILLEGAL SYNTA
       7015151515 1515151515 1155444162 1160575463 6411004645 6443504060 5754516350 4063644143 XrrrrrrrrrtMDARtPOLSTt FETCH POLISH STAC
       5340636441 6264151515 1141625544 1164455522 1100634166 4540465762 4054416445 6240606257 K STARTrrrtARMDtTEM2t SAVE FOR LATER PRO
       4345636351 5647151515 1152606362 1147456444 5711004745 6440605754 5163504046 5762404457 CESSINGrrrtJPSRtGETDOt GET POLISH FOR DO
       4054575760 1515151515 1152605463 1151544743 5011005154 5445474154 4063715664 4170405146  LOOPrrrrrtJPLStILGCHt ILLEGAL SYNTAX IF
       4056576440 4556444057 4640545156 4515151515 1515151515 1141625544 1457114457 6346471100  NOT END OF LINErrrrrrrrrtARMD'OtDOSFGt 
       6345644044 5740636441 6445554556 6440465441 4715151515 1155444162 1451116445 5521110046 SET DO STATEMENT FLAGrrrrtMDAR'ItTEM1t F
       4564435040 5765644562 4054575760 4060575156 6445626315 1152606362 1142454744 5711005765 ETCH OUTER LOOP POINTERSrtJPSRtBEGDOt OU
       6460656440 4457405457 5760404357 4451564715 1155444162 1164455522 1100404016 4662575540 TPUT DO LOOP CODINGrtMDARtTEM2t   (FROM 
       6364416264 4057464060 5754516350 4063644143 5317151515 1515151515 1141625544 1451116445 START OF POLISH STACK)rrrrrrrrtARMD'ItTE
       5521110063 4166454056 4567405457 5760406057 5156644562 6340515640 4457406441 4254451515 M1t SAVE NEW LOOP POINTERS IN DO TABLErr
       1152655560 1163644654 5711006245 6465625640 4156444063 4564406062 5747624155 4046545767 tJUMPtSTFLOt RETURN AND SET PROGRAM FLOW
       1515151515 1515151515 1515151515 7777700000 5417513053 5417513053 5417513053 5417513053 rrrrrrrrrrrrrrrbbX  L)I8KL)I8KL)I8KL)I8K
       5417513053 5417513053 5417513053 5417513053 5417513053 5417513053                       L)I8KL)I8KL)I8KL)I8KL)I8KL)I8K
 1550: 0002300014 4664562024 1361200450 3414400000 0040474564 4060575451 6350404657 6240445740  c8 'FTN04"Q0&H,'     GET POLISH FOR DO 
       5457576040 4357445156 4715151515 0040404016 4163636555 4563406450 4164405156 4445704066 LOOP CODINGrrrr    (ASSUMES THAT INDEX V
       4162514142 5445406741 6340645045 4054416364 4064505156 4740634341 5656454434 4064504164 ARIABLE WAS THE LAST THING SCANNED, THAT
       1515151515 0040404040 5164634060 5754516350 4050416340 4245455640 6364576245 4434404156 rrrrr     ITS POLISH HAS BEEN STORED, AN
       4440645041 6440444554 5155456445 6240674163 4041564013 3313171515 1515151515 0040465762 D THAT DELIMETER WAS AN "=")rrrrrrr  FOR
       5541644057 4640445740 5457576040 6057545163 5040545163 6463401651 4033404570 6021344045 MAT OF DO LOOP POLISH LISTS (I = EXP1, E
       7060223440 4570602317 4036363615 0015151515 0040213640 5140363636 1515151515 0040404040 XP2, EXP3) ...r rrrr  1. I ...rrrrr     
       4040605754 5163504046 5762405156 4445704066 4162514142 5445344051 1515151515 0040404040   POLISH FOR INDEX VARIABLE, Irrrrr     
       4040576020 4016455644 4057464063 6441435340 5760456241 6457621715 0015151515 0040223640   OP0 (END OF STACK OPERATOR)r rrrr  2. 
       5140334045 7060214036 3636151515 0040404040 4040646757 4067576244 6340465762 4063645762 I = EXP1 ...rrr       TWO WORDS FOR STOR
       5156474045 6641546541 6445444057 6045624156 4434405115 0040404040 4040605754 5163504046 ING EVALUATED OPERAND, Ir       POLISH F
       5762404570 6021151515 0040404040 4040576026 4016545741 4440646265 4540664154 6545406751 OR EXP1rrr       OP6 (LOAD TRUE VALUE WI
       6450404357 5666456263 5157564042 6564405657 4041636351 4756554556 6417151515 0040404040 TH CONVERSION BUT NO ASSIGNMENT)rrr     
       4040576020 1515151515 0015151515 0040233640 5140364764 3640457060 2240165762 4051403654   OP0rrrrr rrrr  3. I .GT. EXP2 (OR I .L
       6436404570 6022344051 4640457060 2340564547 4164516645 1740363636 1515151515 0040404040 T. EXP2, IF EXP3 NEGATIVE) ...rrrrr     
       4040646757 4067576244 6340465762 4045664154 6541644544 4051401646 5162636440 5041634060   TWO WORDS FOR EVALUATED I (FIRST HAS P
       5751566445 6240645740 5645706440 6057545163 5040545163 6417151515 0040404040 4040605754 OINTER TO NEXT POLISH LIST)rrr       POL
       5163504046 5762404570 6022151515 0040404040 4040576040 4657624036 4764364057 6240365464 ISH FOR EXP2rrr       OP FOR .GT. OR .LT
       3615151515 0040404040 4040576020 1515151515 0015151515 0040243640 5140334051 4010404570 .rrrr       OP0rrrrr rrrr  4. I = I + EX
       6023403636 3615151515 0040404040 4040646757 4067576244 6340465762 4045664154 6541644544 P3 ...rrrr       TWO WORDS FOR EVALUATED
       4051151515 0040404040 4040646757 4067576244 6340465762 4045664154 6541644544 4051151515  Irrr       TWO WORDS FOR EVALUATED Irrr
       0040404040 4040605754 5163504046 5762404570 6023151515 0040404040 4040576040 4657624013        POLISH FOR EXP3rrr       OP FOR "
       1013151515 0040404040 4040576026 1515151515 0040404040 4040576020 1515151515 1515151515 +"rrr       OP6rrrrr       OP0rrrrrrrrrr
       4745644457 0611526555 6011361100 4556646271 1515151515 1155444162 1160575463 6411004645 GETDO:tJUMPt.t ENTRYrrrrrtMDARtPOLSTt FE
       6443504060 5754516350 4063644162 6415151515 1155444163 1446145611 2111004445 4362455545 TCH POLISH STARTrrrrtMDAS'F'Nt1t DECREME
       5664406457 4051564445 7040664162 5141425445 4063715542 5754151515 1141625544 1147456444 NT TO INDEX VARIABLE SYMBOLrrrtARMDtGETD
       3111006341 6645406057 5156644562 1515151515 1515151515 1152606362 1160656350 6311006065 9t SAVE POINTERrrrrrrrrrrtJPSRtPUSHSt PU
       6350406467 5740446555 5571406757 6244634064 5740605754 5163501515 1152606362 1160656350 SH TWO DUMMY WORDS TO POLISHrrtJPSRtPUSH
       6311004040 4657624054 4164456240 4651545440 6751645040 5156444570 4057604562 4156441515 St   FOR LATER FILL WITH INDEX OPERANDrr
       1141627057 1446111100 4154545767 4046655454 4045706062 4563635157 5663151515 1141625544 tARXO'Ftt ALLOW FULL EXPRESSIONSrrrtARMD
       1163624546 4715151515 1152606362 1160575451 6350110047 4564406057 5451635040 4657624045 tSREFGrrrrtJPSRtPOLISHt GET POLISH FOR E
       7060211515 1155447057 1446112211 0045564445 4440575640 4357555541 4012151515 1152605463 XP1rrtMDXO'Ft2t ENDED ON COMMA ?rrrtJPLS
       1151544743 5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 1155444162 tILGCHt NO, ILLEGAL SYNTAXrrrrrrrrrtMDAR
       1454111100 5457414440 6360454351 4154404357 5666456263 5157564057 6045624164 5762151515 'Ltt LOAD SPECIAL CONVERSION OPERATORrrr
       4745644421 0611242020 2026035011 1100404016 5760405665 5540334026 1715151515 1141625544 GETD1:t40006!Htt   (OP NUM = 6)rrrrtARMD
       1451116046 6245601100 4156444041 6060455644 4064574060 5754516350 1515151515 1155444162 'ItPFREPt AND APPEND TO POLISHrrrrrtMDAR
       1143422011 0060656350 4045564440 5746406364 4143534057 6045624164 5762151515 1152606362 tCB0t PUSH END OF STACK OPERATORrrrtJPSR
       1160656350 6315151515 1515151515 7777700000 1015111170 1015111170 1015111170 1015111170 tPUSHSrrrrrrrrrbbX  +rttX+rttX+rttX+rttX
       1015111170 1015111170 1015111170 1015111170 1015111170 1015111170                       +rttX+rttX+rttX+rttX+rttX+rttX
 1525: 0002400014 4664562024 1361200443 3414400000 1155444162 1160466245 6011004745 6440605754  c  'FTN04"Q0&C,'   tMDARtPFREPt GET POL
       5163504063 6441435340 4556441515 1155444163 1446145611 2211004265 5560406560 4064675740 ISH STACK ENDrrtMDAS'F'Nt2t BUMP UP TWO 
       6757624463 4046576240 5441644562 4063645762 4515151515 1141625544 1160466245 6011006345 WORDS FOR LATER STORErrrrtARMDtPFREPt SE
       6440564567 4060575451 6350406057 5156644562 1515151515 1141625544 1147456444 3011004156 T NEW POLISH POINTERrrrrrtARMDtGETD8t AN
       4440634166 4540605751 5664456215 1152606362 1160575451 6350110047 4564406057 5451635040 D SAVE POINTERrtJPSRtPOLISHt GET POLISH 
       4657624045 7060221515 1155444162 1143422011 0060656350 4045564440 5746406364 4143534057 FOR EXP2rrtMDARtCB0t PUSH END OF STACK O
       6045624164 5762151515 1152606362 1160656350 6315151515 1155444162 1160466245 6011004645 PERATORrrrtJPSRtPUSHSrrrrtMDARtPFREPt FE
       6443504060 5754516350 4060575156 6445624064 5740564570 6440636441 4353151515 1141625544 TCH POLISH POINTER TO NEXT STACKrrrtARMD
       1451147011 4745644430 1100634166 4540416440 6364416264 4057464064 5051634063 6441435315 'I'XtGETD8t SAVE AT START OF THIS STACKr
       1141625544 1147456444 3011004156 4440634166 4540606462 4046576240 6341665156 4740624554 tARMDtGETD8t AND SAVE PTR FOR SAVING REL
       4164515756 4057601515 1155444163 1446145611 2411006353 5160404657 6562406757 6244634051 ATION OPrrtMDAS'F'Nt4t SKIP FOUR WORDS I
       5640605754 5163501515 1141625544 1160466245 6011004156 4440634166 4540564567 4060575451 N POLISHrrtARMDtPFREPt AND SAVE NEW POLI
       6350406364 4162641515 1155444162 1160575431 3111004645 6443504045 5644404357 4445151515 SH STARTrrtMDARtPOL99t FETCH END CODErrr
       1155447057 1446112211 0045564445 4440575640 4357555541 4012151515 1152605463 1136102411 tMDXO'Ft2t ENDED ON COMMA ?rrrtJPLSt.+4t
       0056573440 6353516040 4657624057 5551646445 4440457060 2315151515 1515151515 1152606362  NO, SKIP FOR OMITTED EXP3rrrrrrrrrtJPSR
       1160575451 6350110045 5463453440 4745644060 5754516350 4046576240 4570602315 1141624162 tPOLISHt ELSE, GET POLISH FOR EXP3rtARAR
       1470116046 6245601100 4445436245 5545566440 6364414353 4060646240 5766456240 4556444057 'XtPFREPt DECREMENT STACK PTR OVER END O
       6015151515 1152655560 1147456444 2311006353 5160406457 4046515651 6350406057 5451635015 PrrrrtJUMPtGETD3t SKIP TO FINISH POLISHr
       1515151515 1155444162 1451145011 4745644431 1100457060 2340575551 6464454434 4046456443 rrrrrtMDAR'I'HtGETD9t EXP3 OMITTED, FETC
       5040444164 4140647160 4540574615 1155444162 1441144611 2711004040 5156444570 4066416251 H DATA TYPE OFrtMDAR'A'Ft7t   INDEX VARI
       4142544515 1155447057 1446112211 0062454154 4012151515 1152605463 1147456444 2211005657 ABLErtMDXO'Ft2t REAL ?rrrtJPLStGETD2t NO
       3440635351 6015151515 1515151515 1155444162 1454111100 7145633440 4645644350 4046545741 , SKIPrrrrrrrrrtMDAR'Ltt YES, FETCH FLOA
       6451564740 6057515664 4013213620 1315151515 1122202124 2003501515 1152606362 1163644357 TING POINT "1.0"rrrrt20140!HrrtJPSRtSTCO
       5611006364 5762454051 6440515640 4357566364 4156644064 4142544515 1155444162 1457145411 Nt STORE IT IN CONSTANT TABLErtMDAR'O'Lt
       1100435755 4251564540 6441425445 4060575156 6445624067 5164501515 1120202420 2203501111 t COMBINE TABLE POINTER WITHrrt00402!Htt
       0040404654 4147404251 6463404657 6240624541 5440435756 6364415664 4057601456 4415151515    FLAG BITS FOR REAL CONSTANT OP'NDrrrr
       1152655560 1136102311 0063535160 1515151515 1515151515 4745644422 0611554441 6214541111 tJUMPt.+3t SKIPrrrrrrrrrrGETD2:tMDAR'Ltt
       0056576440 6245415434 4046456443 5040515664 4547456240 1321134057 6045624156 4415151515  NOT REAL, FETCH INTEGER "1" OPERANDrrrr
       1120262420 2103501121 1515151515 1515151515 1152606362 1160656350 6311006065 6350404163 t06401!Ht1rrrrrrrrrrtJPSRtPUSHSt PUSH AS
       6365554544 4045706023 4064574063 6441435315 1515151515 4745644423 0611554441 6214511160 SUMED EXP3 TO STACKrrrrrrGETD3:tMDAR'ItP
       4662456011 0046456443 5040544163 6440455664 6271405156 4045706023 4060575451 6350151515 FREPt FETCH LAST ENTRY IN EXP3 POLISHrrr
       1152604156 1136102411 0063535160 4051464057 6045624164 5762151515 1515151515 1141624162 tJPANt.+4t SKIP IF OPERATORrrrrrrrrtARAR
       1450145614 4611110045 5463453440 4745644057 6045624156 4440465441 4763151515 1155444162 'H'N'Ftt ELSE, GET OPERAND FLAGSrrrtMDAR
       1441144611 2220110043 5045435340 5146405645 4741644544 4057604562 4156441515 1152655560 'A'Ft20t CHECK IF NEGATED OPERANDrrtJUMP
       1136102311 0041564440 6353516015 1515151515 1141624162 1450144611 1100474564 4057604562 t.+3t AND SKIPrrrrrrtARAR'H'Ftt GET OPER
       4164576240 5665554245 6215151515 1155447057 1446112420 2021261100 6556416271 4055515665 ATOR NUMBERrrrrtMDXO'Ft40016t UNARY MINU
       6340121515 1152605463 1136102411 0056573440 6353516015 1515151515 7777700000 4544624674 S ?rrtJPLSt.+4t NO, SKIPrrrrrrbbX  EDRF#
       4544624674 4544624674 4544624674 4544624674 4544624674 4544624674 4544624674 4544624674 EDRF#EDRF#EDRF#EDRF#EDRF#EDRF#EDRF#EDRF#
       4544624674                                                                              EDRF#
  620: 0002500014 4664562024 1361200156 3414400000 1155444162 1454111100 4570602340 5645474164  cH 'FTN04"Q0%N,'   tMDAR'Ltt EXP3 NEGAT
       5166453440 4645644350 4013365464 3613405760 4562416457 6215151515 1124202022 2303501515 IVE, FETCH ".LT." OPERATORrrrrt40023!Hrr
       1152655560 1136102311 0063535160 4064574063 4166454051 5640624554 4164515756 4154406057 tJUMPt.+3t SKIP TO SAVE IN RELATIONAL PO
       5451635015 1515151515 1155444162 1454111100 4554634534 4056576255 4154404457 4054575760 LISHrrrrrrtMDAR'Ltt ELSE, NORMAL DO LOOP
       3440464564 4350401336 4764361315 1124202022 2103501515 1141625544 1451147011 4745644430 , FETCH ".GT."rt40021!HrrtARMD'I'XtGETD8
       1100634166 4540624554 4164515756 4154405760 4051564060 6245664060 5754516350 1515151515 t SAVE RELATIONAL OP IN PREV POLISHrrrrr
       1515151515 1155444162 1454111100 6065635040 1310134057 6045624164 5762406457 4043656262 rrrrrtMDAR'Ltt PUSH "+" OPERATOR TO CURR
       4556644063 6441435315 1124202021 2403501515 1152606362 1160656350 6315151515 1155444162 ENT STACKrt40014!HrrtJPSRtPUSHSrrrrtMDAR
       1147456444 2111006065 6350404357 5666456263 5157564057 6045624164 5762151515 1152606362 tGETD1t PUSH CONVERSION OPERATORrrrtJPSR
       1160656350 6315151515 1155444162 1143422011 0060656350 4046515641 5440455644 4057464063 tPUSHSrrrrtMDARtCB0t PUSH FINAL END OF S
       6441435340 4357444515 1152606362 1160656350 6315151515 1155444162 1160575431 3111004645 TACK CODErtJPSRtPUSHSrrrrtMDARtPOL99t FE
       6443504054 4163644060 5754516350 4044455451 5545644562 4043574445 1515151515 1155445162 TCH LAST POLISH DELIMETER CODErrrrrtMDIR
       1147456444 5711004156 4440624564 6562561515 1515151515 4745644431 0611112011 0064455560 tGETDOt AND RETURNrrrrrrrGETD9:tt0t TEMP
       4063645762 4147451515 4745644430 0611112011 0064455560 4063645762 4147451515 1515151515  STORAGErrGETD8:tt0t TEMP STORAGErrrrrrr
       1515151515 7777700000 7625454377 7625454377 7625454377 7625454377 7625454377 7625454377 rrrrrbbX  +5ECb+5ECb+5ECb+5ECb+5ECb+5ECb
       7625454377 7625454377 7625454377 7625454377                                             +5ECb+5ECb+5ECb+5ECb
 1925: 0002600014 4664562024 1361200563 3414400000 0040455551 6440435744 4540465762 4042454751  cP 'FTN04"Q0*S,'     EMIT CODE FOR BEGI
       5656515647 4057464044 5740545757 6015151515 1515151515 4245474457 0611526555 6011361100 NNING OF DO LOOPrrrrrrrrrBEGDO:tJUMPt.t 
       4556646271 1515151515 1141625544 1142454731 3111006341 6645404556 4440435041 5156406064 ENTRYrrrrrtARMDtBEG99t SAVE END CHAIN PT
       6203504064 5760405746 4054575760 4060646215 1155445162 1451114245 4744571100 4645644350 R!H TOP OF LOOP PTRrtMDIR'ItBEGDOt FETCH
       4063644162 6440574640 4457405457 5760406057 5451635015 1155444163 1446145611 2211004265  START OF DO LOOP POLISHrtMDAS'F'Nt2t BU
       5560406457 4045564440 5746405156 4445704057 6045624156 4415151515 1141625544 1142454760 MP TO END OF INDEX OPERANDrrrrtARMDtBEGP
       2211004156 4440634166 4540606462 4064574022 5644406757 6244405746 4051564445 7040576015 2t AND SAVE PTR TO 2ND WORD OF INDEX OPr
       1141625544 1142454760 2111004154 6357404163 4021636440 6757624440 6064624046 5762405156 tARMDtBEGP1t ALSO AS 1ST WORD PTR FOR IN
       4445705156 4715151515 1155444162 1451147011 4245476021 1100474564 4060575451 6350406757 DEXINGrrrrtMDAR'I'XtBEGP1t GET POLISH WO
       6244404657 6240515644 4570406641 6251414254 4515151515 1152606362 1164624347 6411004745 RD FOR INDEX VARIABLErrrrtJPSRtTRCGTt GE
       6440635564 4142406064 6240514640 6462414351 5647405164 1515151515 1155444162 1441114457 T SMTAB PTR IF TRACING ITrrrrrtMDAR'AtDO
       6346471100 4040164457 5614644064 6241434540 6556544563 6340515640 4457406364 5556641715 SFGt   (DON'T TRACE UNLESS IN DO STMNT)r
       1141625544 1142454731 3011006341 6645406462 4143454060 5751566445 6215151515 1155444162 tARMDtBEG98t SAVE TRACE POINTERrrrrtMDAR
       1142454760 2111004645 6443504060 5754516350 4060575156 6445621515 1152606362 1145664154 tBEGP1t FETCH POLISH POINTERrrtJPSRtEVAL
       1100456641 5465416445 4051564445 7040576045 6241564415 1156575760 1515151515 1155444162 t EVALUATE INDEX OPERANDrtNOOPrrrrrtMDAR
       1164455560 6411004645 6443504064 4555604064 4142544540 6057515664 4562151515 1141625544 tTEMPTt FETCH TEMP TABLE POINTERrrrtARMD
       1164455544 5711004156 4440634166 4540416340 5541625340 4164406457 6040574640 5457576015 tTEMDOt AND SAVE AS MARK AT TOP OF LOOPr
       1515151515 1152606362 1142445557 6611005557 6645405156 4445704057 6045624156 4440645740 rrrrrtJPSRtBDMOVt MOVE INDEX OPERAND TO 
       5645706440 6057545163 5015151515 1152606362 1145664154 1100415644 4045664154 6541644540 NEXT POLISHrrrrtJPSRtEVALt AND EVALUATE 
       1351334570 6021134016 6245636554 6440515640 4162171515 1155444162 1164455544 5711006245 "I=EXP1" (RESULT IN AR)rrtMDARtTEMDOt RE
       6364576245 4064455560 4063645762 4147451515 1141625544 1164455560 6415151515 1155444162 STORE TEMP STORAGErrtARMDtTEMPTrrrrtMDAR
       1157545743 1100464564 4350404365 6262455664 4054431515 1141625544 1142454731 2711006341 tOLOCt FETCH CURRENT LCrrtARMDtBEG97t SA
       6645404657 6240544164 4562404350 4151563542 4143531515 1155444162 1450114324 2011005765 VE FOR LATER CHAIN-BACKrrtMDAR'HtC40t OU
       6460656440 5265556040 5156636462 4064571515 1152606362 1157414263 1100404063 6457624540 TPUT JUMP INSTR TOrrtJPSRtOABSt   STORE 
       4357445156 4740465762 4051564445 7040664162 5141425445 1515151515 1515151515 1155444162 CODING FOR INDEX VARIABLErrrrrrrrrrtMDAR
       1145666064 6211004745 6440455644 4057464063 6441435340 6057515664 4562151515 1155444163 tEVPTRt GET END OF STACK POINTERrrrtMDAS
       1446145611 2111004265 5560406457 4021636440 6757624440 5746405645 7064406364 4143531515 'F'Nt1t BUMP TO 1ST WORD OF NEXT STACKrr
       1141625544 1142454731 2611004156 4440634166 4540605751 5664456240 4657624054 4164456240 tARMDtBEG96t AND SAVE POINTER FOR LATER 
       4241435340 6560151515 1155444162 1451114245 4731261100 4645644350 4060646240 6457405156 BACK UPrrrtMDAR'ItBEG96t FETCH PTR TO IN
       4362455545 5664416451 5756406364 4143531515 1141625544 1145666064 6211004556 6364416445 CREMENTATION STACKrrtARMDtEVPTRt ENSTATE
       4041634043 6562624556 6440636441 4353406057 5156644562 1515151515 1152606362 1142445557  AS CURRENT STACK POINTERrrrrrtJPSRtBDMO
       6611005557 6645402163 6440435760 7140574640 5156444570 4057604562 4156441515 1152606362 Vt MOVE 1ST COPY OF INDEX OPERANDrrtJPSR
       1142445557 6611005557 6645404140 2256444043 5760714064 5740636441 4353151515 1155444163 tBDMOVt MOVE A 2ND COPY TO STACKrrrtMDAS
       1446112211 0047456440 6057515664 4562406457 4056456740 6364414353 1515151515 1152606362 'Ft2t GET POINTER TO NEW STACKrrrrrtJPSR
       1145664154 1100415644 4045664154 3440135133 5110457060 2313401662 4563655464 4051564041 tEVALt AND EVAL, "I=I+EXP3" (RESULT IN A
       6217151515 1155444162 1164455544 5711006245 6364576245 4064455560 4063645762 4147451515 R)rrrtMDARtTEMDOt RESTORE TEMP STORAGErr
       1141625544 1164455560 6415151515 1155444162 1145666064 6211004645 6443504045 6641544060 tARMDtTEMPTrrrrtMDARtEVPTRt FETCH EVAL P
       5751566445 6215151515 1141625544 1142454760 2311006341 6645404163 4045564440 5746404457 OINTERrrrrtARMDtBEGP3t SAVE AS END OF DO
       4060575451 6350406064 6215151515 1515151515 1155444162 1142454731 2711004645 6443504063  POLISH PTRrrrrrrrrrtMDARtBEG97t FETCH S
       4166454440 5443405746 4063535160 4051566364 6215151515 1152606362 1143504151 5611004156 AVED LC OF SKIP INSTRrrrrtJPSRtCHAINt AN
       4440435041 5156404241 4353404365 6262455664 4054434064 5740516415 1155444162 1142454760 D CHAIN BACK CURRENT LC TO ITrtMDARtBEGP
       2111004645 6443504060 6462406457 4051564445 7040664162 5141425445 1515151515 1152606362 1t FETCH PTR TO INDEX VARIABLErrrrrtJPSR
       1145436246 1100576564 6065644063 6457624540 5156636462 6543645157 5615151515 1155444162 tECRFt OUTPUT STORE INSTRUCTIONrrrrtMDAR
       1143416255 4411004040 1613416255 4440511317 1515151515 1515151515 1155444162 1142454731 tCARMDt   ("ARMD I")rrrrrrrrrrtMDARtBEG9
       3011004645 6443504064 6241434540 4654414715 1152635463 1157646243 4311005765 6460656440 8t FETCH TRACE FLAGrtJSLStOTRCCt OUTPUT 
       6462414345 4043415454 4051464041 5671151515 1155444162 1451145011 4566576022 1100404016 TRACE CALL IF ANYrrrtMDAR'I'HtEVOP2t   (
       4662575540 5441636440 4566415440 4341545417 1515151515 1515151515 7777700000 1130130235 FROM LAST EVAL CALL)rrrrrrrrrrbbX  t8"c-
       1130130235 1130130235 1130130235 1130130235 1130130235 1130130235 1130130235 1130130235 t8"c-t8"c-t8"c-t8"c-t8"c-t8"c-t8"c-t8"c-
       1130130235                                                                              t8"c-
 1490: 0002700014 4664562024 1361200434 3414400000 1155444162 1470114245 4731261100 4645644350  cX 'FTN04"Q0&,,'   tMDAR'XtBEG96t FETCH
       4063416645 4440624554 4164515756 4063644143 5340636441 6264151515 1141625544 1145666064  SAVED RELATION STACK STARTrrrtARMDtEVPT
       6211004556 6364416445 4041634043 6562624556 6440636441 4353151515 1152606362 1142445557 Rt ENSTATE AS CURRENT STACKrrrtJPSRtBDMO
       6611005557 6645405156 4445704066 4162514142 5445406457 4051641515 1152606362 1145664154 Vt MOVE INDEX VARIABLE TO ITrrtJPSRtEVAL
       1100415644 4045664154 6541644540 6445636451 5647404357 4445151515 1156575760 1111004040 t AND EVALUATE TESTING CODErrrtNOOPtt   
       1613514036 4764364045 7060221317 1515151515 1152606362 1145664741 6411004745 6440646265 ("I .GT. EXP2")rrrrrtJPSRtEVGATt GET TRU
       4535465441 6345406351 4756405156 4041621515 1515151515 1155444162 1142454731 3111005163 E-FLASE SIGN IN ARrrrrrrrtMDARtBEG99t IS
       4064505163 4041405645 6364454440 4457401215 1152605463 1142454744 2111007145 6334406353  THIS A NESTED DO ?rtJPLStBEGD1t YES, SK
       5160151515 1515151515 1155444162 1157545743 1100455463 4534404645 6443504043 6562624556 IPrrrrrrrrtMDARtOLOCt ELSE, FETCH CURREN
       6440544315 1141625544 1450114245 4731311100 6341664540 4163404556 4440574640 5457576040 T LCrtARMD'HtBEG99t SAVE AS END OF LOOP 
       4350415156 4060646215 1155444162 1143526041 5611005765 6460656440 5156516451 4154401352 CHAIN PTRrtMDARtCJPANt OUTPUT INITIAL "J
       6041561340 5156636462 6543645157 5615151515 1152606362 1157414263 1515151515 1152655560 PAN" INSTRUCTIONrrrrtJPSRtOABSrrrrrtJUMP
       1136102411 0041564440 6353516015 1515151515 4245474421 0611554441 6214411141 5541635311 t.+4t AND SKIPrrrrrrBEGD1:tMDAR'AtAMASKt
       0055416353 4057656445 6240445740 5457576040 6457604060 5751566445 6215151515 1155444162  MASK OUTER DO LOOP TOP POINTERrrrrtMDAR
       1457114352 6041561100 4357554251 5645401352 6041561340 6457405441 6364405765 6445624044 'OtCJPANt COMBINE "JPAN" TO LAST OUTER D
       5740645760 1515151515 1152606362 1157624554 1100415644 4057656460 6564151515 1515151515 O TOPrrrrrtJPSRtORELt AND OUTPUTrrrrrrrr
       1155444162 1142454731 3111004645 6443504051 5651645141 5440445740 6057515664 4562631515 tMDARtBEG99t FETCH INITIAL DO POINTERSrr
       1155444162 1441145011 4155416353 1100554163 5340455644 4057464054 5757604043 5041515640 tMDAR'A'HtAMASKt MASK END OF LOOP CHAIN 
       6057515664 4562151515 1155444162 1457147011 4245473127 1100435755 4251564540 6064624064 POINTERrrrtMDAR'O'XtBEG97t COMBINE PTR T
       5740645760 4057464064 5051634054 5757601515 1155445162 1470114245 4744571100 4156444062 O TOP OF THIS LOOPrrtMDIR'XtBEGDOt AND R
       4564656256 1515151515 1515151515 4244555766 0611526555 6011361100 4556646271 4064574055 ETURNrrrrrrrrrrBDMOV:tJUMPt.t ENTRY TO M
       5766454051 5644457040 6641625141 4254454064 5740636453 1515151515 1155444162 1145666064 OVE INDEX VARIABLE TO STKrrrrrtMDARtEVPT
       6211004745 6440605751 5664456240 6457404556 4440574640 6062456640 6364414353 1515151515 Rt GET POINTER TO END OF PREV STACKrrrrr
       1155444163 1446145611 2211004154 5457674064 6757406757 6244634046 5762405557 6645151515 tMDAS'F'Nt2t ALLOW TWO WORDS FOR MOVErrr
       1141625544 1145666064 6211004156 4440634166 4540564567 4060575156 6445621515 1141625544 tARMDtEVPTRt AND SAVE NEW POINTERrrtARMD
       1164552111 0041546357 4046576240 5156444570 5156471515 1155444162 1451114245 4760221100 tTM1t ALSO FOR INDEXINGrrtMDAR'ItBEGP2t 
       4645644350 4022564440 6757624440 5746404566 4154654164 4544405760 4562415644 1515151515 FETCH 2ND WORD OF EVALUATED OPERANDrrrrr
       1141625544 1451116455 2111006341 6645405156 4063644143 5315151515 1155444162 1451114245 tARMD'ItTM1t SAVE IN STACKrrrrtMDAR'ItBE
       4760211100 4645644350 4021636440 6757624415 1141625544 1451147011 6455211100 6341664540 GP1t FETCH 1ST WORDrtARMD'I'XtTM1t SAVE 
       5156406364 4143531515 1155444162 1164552111 0046456443 5040636441 6264405746 4063644143 IN STACKrrtMDARtTM1t FETCH START OF STAC
       5340605751 5664456240 6457404162 1515151515 1155445162 1142445557 6611004156 4440624564 K POINTER TO ARrrrrrtMDIRtBDMOVt AND RET
       6562561515 1515151515 4245476021 0611112011 0060575156 6445626340 6457404566 4154654164 URNrrrrrrrBEGP1:tt0t POINTERS TO EVALUAT
       4544405156 4445704066 4162514142 5445151515 4245476022 0611112015 1515151515 4245476023 ED INDEX VARIABLErrrBEGP2:tt0rrrrrrBEGP3
       0611112011 0063416645 4440605751 5664456240 6457404556 4440574640 4457406057 5451635015 :tt0t SAVED POINTER TO END OF DO POLISHr
       1515151515 4245473131 0611112011 0064455560 4063645762 4147454036 3636151515 4245473130 rrrrrBEG99:tt0t TEMP STORAGE ...rrrBEG98
       0611112015 4245473127 0611112015 4245473126 0611112015 1515151515 1515151515 7777700000 :tt0rBEG97:tt0rBEG96:tt0rrrrrrrrrrrbbX  
       4242637313 4242637313 4242637313 4242637313 4242637313 4242637313 4242637313 4242637313 BBS$"BBS$"BBS$"BBS$"BBS$"BBS$"BBS$"BBS$"
       4242637313 4242637313                                                                   BBS$"BBS$"
 1695: 0003000014 4664562024 1361200505 3414400000 0040514640 6364416445 5545566440 3636361515  !  'FTN04"Q0**,'     IF STATEMENT ...rr
       1515151515 5146061155 4441621163 4350416211 0044455451 5545644562 4033405445 4664406041 rrrrrIF:tMDARtSCHARt DELIMETER = LEFT PA
       6245564012 1515151515 1155447057 1446110216 1515151515 1152605463 1151544743 5011005154 REN ?rrrrrtMDXO'Ftc(rrrrrtJPLStILGCHt IL
       5445474154 4063715664 4170344051 4640565764 1515151515 1515151515 1152606362 1160575451 LEGAL SYNTAX, IF NOTrrrrrrrrrrtJPSRtPOLI
       6350110047 4564406057 5451635040 4657624051 4640457060 6245636351 5756151515 1155447057 SHt GET POLISH FOR IF EXPRESSIONrrrtMDXO
       1446112311 0045564445 4440575640 6251475064 4060416245 5640121515 1152605463 1151544743 'Ft3t ENDED ON RIGHT PAREN ?rrtJPLStILGC
       5011005154 5445474154 4063715664 4170405146 4056576415 1515151515 1155444162 1160575463 Ht ILLEGAL SYNTAX IF NOTrrrrrrtMDARtPOLS
       6411004645 6443504063 6441626440 5746406057 5451635040 6364414353 1515151515 1141625544 Tt FETCH START OF POLISH STACKrrrrrtARMD
       1151466455 2111006341 6645151515 1155444162 1446115146 6455221100 6345646560 4060575156 tIFTM1t SAVErrrtMDAR'FtIFTM2t SETUP POIN
       6445624064 5740634166 4540416245 4140465762 1515151515 1141625544 1151466455 2211004040 TER TO SAVE AREA FORrrrrrtARMDtIFTM2t   
       4262415643 5040516445 5563151515 1515151515 1152606362 1147436364 1100634341 5640645740 BRANCH ITEMSrrrrrrrrtJPSRtGCSTt SCAN TO 
       5645706440 4350416240 5756406364 4164455545 5664151515 1152655560 1151544743 5011005154 NEXT CHAR ON STATEMENTrrrtJUMPtILGCHt IL
       5445474154 4051464045 5644405746 4043416244 1515151515 1515151515 1155447057 1143222011 LEGAL IF END OF CARDrrrrrrrrrrtMDXOtC20t
       0051634051 6440414044 5147516440 1215151515 1155444163 1446145611 3136151515 1152604156  IS IT A DIGIT ?rrrrtMDAS'F'Nt9.rrrtJPAN
       1151462511 0071456334 4052655560 4064574060 6257434563 6340544142 4554111515 1515151515 tIF5t YES, JUMP TO PROCESS LABELtrrrrrrr
       1155444162 1456115146 5441471100 5657344041 5462454144 7140606257 4345636351 5647405457 tMDAR'NtIFLAGt NO, ALREADY PROCESSING LO
       4751434154 4051464012 1515151515 1152604156 1151462311 0071456334 4043415614 6440424540 GICAL IF ?rrrrrtJPANtIF3t YES, CAN'T BE 
       4140545747 5143415440 5146344063 5351601515 1515151515 1155444162 1151466455 2111004554 A LOGICAL IF, SKIPrrrrrrrtMDARtIFTM1t EL
       6345344055 5147506440 4245404140 5457475143 4154405146 1515151515 1141625544 1151465441 SE, MIGHT BE A LOGICAL IFrrrrrtARMDtIFLA
       4711006345 6440545747 5143415440 5146404654 4147151515 1152655560 1163434156 5311004156 Gt SET LOGICAL IF FLAGrrrtJUMPtSCANKt AN
       4440526555 6040645740 6343415640 4657624053 4571675762 4415151515 1515151515 5146210611 D JUMP TO SCAN FOR KEYWORDrrrrrrrrrIF1:t
       4162554414 5711514654 4147110062 4564625640 4662575540 6343415640 5756404357 5555413440 ARMD'OtIFLAGt RETRN FROM SCAN ON COMMA, 
       6245634564 4046544147 1515151515 1141625544 1457116371 5563661100 6341664540 4651626364 RESET FLAGrrrrrtARMD'OtSYMSVt SAVE FIRST
       4042624156 4350406371 5542575415 1152655560 1151462310 2111004156 4440526555 6040645740  BRANCH SYMBOLrtJUMPtIF3+1t AND JUMP TO 
       4745644051 6463406057 5451635015 1515151515 5146220611 4162554414 5711514654 4147110062 GET ITS POLISHrrrrrrIF2:tARMD'OtIFLAGt R
       4564564046 6257554041 6356556440 5756404357 5555413440 6245634564 4046544147 1515151515 ETN FROM ASNMT ON COMMA, RESET FLAGrrrrr
       1141627057 1446111100 4354454162 4041636351 4756554556 6463404154 5457674544 4046544147 tARXO'Ftt CLEAR ASSIGNMENTS ALLOWED FLAG
       1515151515 1141625544 1160575445 4615151515 1152655560 1151462411 0041564440 5265556040 rrrrrtARMDtPOLEFrrrrtJUMPtIF4t AND JUMP 
       6457406341 6645402163 6440426241 5643504060 5754516350 1515151515 1515151515 5146230611 TO SAVE 1ST BRANCH POLISHrrrrrrrrrrIF3:t
       4162554414 5711474363 6366110063 4166454046 5162636440 4350416240 5746406371 5542575415 ARMD'OtGCSSVt SAVE FIRST CHAR OF SYMBOLr
       1141625544 1457116362 4546471100 6345644046 5762406351 5647544540 6245464562 4556434540 tARMD'OtSREFGt SET FOR SINGLE REFERENCE 
       5756547115 1152606362 1160575451 6350110047 4564406057 5451635040 4657624063 7155425754 ONLYrtJPSRtPOLISHt GET POLISH FOR SYMBOL
       5143404262 4156435015 1515151515 5146240611 5544416211 6057546364 1100464564 4350406364 IC BRANCHrrrrrrIF4:tMDARtPOLSTt FETCH ST
       4162644060 6462406457 4060575451 6350404657 6240637155 4257541515 1141625544 1451147011 ART PTR TO POLISH FOR SYMBOLrrtARMD'I'Xt
       5146645522 1100634166 4540515640 4262415643 5040545163 6415151515 1152655560 1151462611 IFTM2t SAVE IN BRANCH LISTrrrrtJUMPtIF6t
       0041564440 5265556040 6457406062 5743456363 4044455451 5545644562 1515151515 1515151515  AND JUMP TO PROCESS DELIMETERrrrrrrrrrr
       5146250611 5260636211 4754414254 1100474564 4063644164 4555455664 4054414245 5440465762 IF5:tJPSRtGLABLt GET STATEMENT LABEL FOR
       4042624156 4350151515 1155444162 1457114342 2011006345 6440425164 4046576240 5441424554  BRANCHrrrtMDAR'OtCB0t SET BIT FOR LABEL
       4060625743 4563634544 1515151515 1141625544 1451147011 5146645522 1100634166 4540544142  PROCESSEDrrrrrtARMD'I'XtIFTM2t SAVE LAB
       4554406441 4254454060 6462405156 4042624156 4350405451 6364151515 1152606362 1143535442 EL TABLE PTR IN BRANCH LISTrrrtJPSRtCKLB
       5411004350 4543534046 5762405657 6440414046 5762554164 4054414245 5415151515 1515151515 Lt CHECK FOR NOT A FORMAT LABELrrrrrrrrr
       7777700000 3410263150 3410263150 3410263150 3410263150 3410263150 3410263150 3410263150 bbX  ,+69H,+69H,+69H,+69H,+69H,+69H,+69H
       3410263150 3410263150 3410263150                                                        ,+69H,+69H,+69H
 1570: 0003100014 4664562024 1361200454 3414400000 5146260611 5544416211 6343504162 1100464564  !+ 'FTN04"Q0&L,'   IF6:tMDARtSCHARt FET
       4350404445 5451554564 4562151515 1155447057 1446110234 1100435755 5541401215 1152605463 CH DELIMETERrrrtMDXO'Ftc,t COMMA ?rtJPLS
       1151462711 0056573440 5265556040 4657624045 5644404350 4543531515 1515151515 1155444162 tIF7t NO, JUMP FOR END CHECKrrrrrrrtMDAR
       1151466455 2211007145 6334404154 6245414471 4050416645 4064506245 4540426241 5643504563 tIFTM2t YES, ALREADY HAVE THREE BRANCHES
       4012151515 1155447057 1446115146 6455221023 1515151515 1152605463 1136102311 0056573440  ?rrrtMDXO'FtIFTM2+3rrrrrtJPLSt.+3t NO, 
       5753344063 5351601515 1515151515 1152606362 1145626257 6211004554 6345344046 4164415440 OK, SKIPrrrrrrrtJPSRtERRORt ELSE, FATAL 
       4562625762 1515151515 1111456221 3030110040 4016645757 4055415671 4051644555 6340515640 ERRORrrrrrttER188t   (TOO MANY ITEMS IN 
       4262415643 5040545163 6417151515 1515151515 1152606362 1147436311 0047456440 2163644043 BRANCH LIST)rrrrrrrrtJPSRtGCSt GET 1ST C
       5041624057 4640564570 6440426241 5643504051 6445551515 1155447057 1143222011 0044514751 HAR OF NEXT BRANCH ITEMrrtMDXOtC20t DIGI
       6440121515 1155444163 1446145611 3136151515 1152604156 1151462511 0071456334 4052655560 T ?rrtMDAS'F'Nt9.rrrtJPANtIF5t YES, JUMP
       4064574060 6257434563 6340636441 6445554556 6440544142 4554151515 1152655560 1151462311  TO PROCESS STATEMENT LABELrrrtJUMPtIF3t
       0045546345 3440606257 4345636340 6371554257 5451434042 6241564350 1515151515 1515151515  ELSE, PROCESS SYMBOLIC BRANCHrrrrrrrrrr
       5146270611 5544705714 4611023414 2125110044 4554515545 6445624033 4043376240 1215151515 IF7:tMDXO'Ftc,'15t DELIMETER = C/R ?rrrr
       1152605463 1151544743 5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 tJPLStILGCHt NO, ILLEGAL SYNTAXrrrrrrrrr
       1152606362 1144575146 1100465162 6364404457 4057656445 6240545747 5143415440 5146344051 tJPSRtDOIFt FIRST DO OUTER LOGICAL IF, I
       4640415671 1515151515 1155444162 1446115146 6455221100 6345646560 4060575156 6445624064 F ANYrrrrrtMDAR'FtIFTM2t SETUP POINTER T
       5740426241 5643504054 5163641515 1141625544 1164455521 1515151515 1515151515 5146300611 O BRANCH LISTrrtARMDtTEM1rrrrrrrrrrIF8:t
       5544416214 5114701164 4555211100 4745644056 4570644042 6241564350 4051644555 1515151515 MDAR'I'XtTEM1t GET NEXT BRANCH ITEMrrrrr
       1152604156 1151463111 0063535160 4051464063 6441644555 4556644054 4142455415 1515151515 tJPANtIF9t SKIP IF STATEMENT LABELrrrrrr
       1155444163 1446145611 2111004554 6345344047 4564405164 6340605754 5163504060 6462151515 tMDAS'F'Nt1t ELSE, GET ITS POLISH PTRrrr
       1152606362 1145664154 1100456641 5465416445 4051641463 4063654263 4362516064 6340465162 tJPSRtEVALt EVALUATE IT'S SUBSCRIPTS FIR
       6364151515 1156575760 1515151515 1155444162 1145665760 2211004645 6443504062 4563655464 STrrrtNOOPrrrrrtMDARtEVOP2t FETCH RESULT
       4060575156 6445621515 1141625544 1451116445 5521110063 4166454051 5640426241 5643504054  POINTERrrtARMD'ItTEM1t SAVE IN BRANCH L
       5163641515 1515151515 5146310611 5544416211 6445552111 0041545440 4262415643 5045634045 ISTrrrrrrrIF9:tMDARtTEM1t ALL BRANCHES E
       6641546541 6445444012 1515151515 1155447057 1151466455 2215151515 1152605463 1151463011 VALUATED ?rrrrrtMDXOtIFTM2rrrrtJPLStIF8t
       0056573440 5457576040 4657624056 4570641515 1515151515 1155444162 1151466455 2111004645  NO, LOOP FOR NEXTrrrrrrrtMDARtIFTM1t FE
       6443504051 4640457060 6245636351 5756406057 5156644562 1515151515 1155444163 1446145611 TCH IF EXPRESSION POINTERrrrrrtMDAS'F'Nt
       2111004144 5265636440 4657624045 6641541515 1152606362 1145664154 1100456641 5465416445 1t ADJUST FOR EVALrrtJPSRtEVALt EVALUATE
       4051464045 7060624563 6351575615 1156575760 1515151515 1155444162 1451114566 5760221100  IF EXPRESSIONrtNOOPrrrrrtMDAR'ItEVOP2t 
       6341664540 4441644140 6471604540 4657621515 1141625544 1151646243 4611004040 6462414345 SAVE DATA TYPE FORrrtARMDtITRCFt   TRACE
       4060625743 4563635762 1515151515 1515151515 1155444162 1151466455 2211006450 6245453542  PROCESSORrrrrrrrrrrtMDARtIFTM2t THREE-B
       6241564350 4051464012 1515151515 1155447057 1446115146 6455221023 1515151515 1152605463 RANCH IF ?rrrrrtMDXO'FtIFTM2+3rrrrrtJPLS
       1151462121 1100565734 4063535160 4064574060 6257434563 6340646757 3542624156 4350405146 tIF11t NO, SKIP TO PROCESS TWO-BRANCH IF
       1515151515 1515151515 1152606362 1145664741 4711007145 6334404745 6440475757 4440664154 rrrrrrrrrrtJPSRtEVGAGt YES, GET GOOD VAL
       6545405156 4041621515 1155444162 1151554746 4711005155 4147454063 6542606257 4762415540 UE IN ARrrtMDARtIMGFGt IMAGE SUBPROGRAM 
       1215151515 1152604156 1151462120 1100714563 3440526555 6040645740 6062574345 6363405265 ?rrrrtJPANtIF10t YES, JUMP TO PROCESS JU
       5560634051 5640515541 4745151515 1515151515 1152606362 1151646243 6011005765 6460656440 MPS IN IMAGErrrrrrrrtJPSRtITRCPt OUTPUT 
       6462414345 4043415454 4046576240 6057635164 5166454051 4615151515 1515151515 7777700000 TRACE CALL FOR POSITIVE IFrrrrrrrrrbbX  
       5647203756 5647203756 5647203756 5647203756 5647203756 5647203756 5647203756 5647203756 NG0/NNG0/NNG0/NNG0/NNG0/NNG0/NNG0/NNG0/N
       5647203756 5647203756                                                                   NG0/NNG0/N
 1460: 0003200014 4664562024 1361200426 3414400000 1155444162 1151466455 2210211100 4645644350  !0 'FTN04"Q0&6,'   tMDARtIFTM2+1t FETCH
       4060575156 6445624064 5740216364 4042624156 4350151515 5146314106 1152606362 1157525560  POINTER TO 1ST BRANCHrrrIF9A:tJPSRtOJMP
       5611005765 6460656440 3654643640 7245625740 4357564451 6451575641 5440526555 6015151515 Nt OUTPUT .LT. ZERO CONDITIONAL JUMPrrrr
       1152655560 1151462124 1100526555 6040465762 4062456364 4057464043 5744451515 1515151515 tJUMPtIF14t JUMP FOR REST OF CODErrrrrrr
       5146212006 1155444162 1157545743 1100645062 4545354262 4156435040 5146405156 4051554147 IF10:tMDARtOLOCt THREE-BRANCH IF IN IMAG
       4540555744 4534151515 1141625544 1164455521 1100404063 4166454043 6562624054 4340465762 E MODE,rrrtARMDtTEM1t   SAVE CURR LC FOR
       4043504151 5635424143 5315151515 1155444162 1143526041 5611005765 6460656440 1352604156  CHAIN-BACKrrrrtMDARtCJPANt OUTPUT "JPAN
       1340515663 6462151515 1152606362 1157414263 1515151515 1152655560 1151462124 1100526555 " INSTRrrrtJPSRtOABSrrrrrtJUMPtIF14t JUM
       6040465762 4062456364 4057464043 5744451515 1515151515 5146212106 1155444162 1151466455 P FOR REST OF CODErrrrrrrIF11:tMDARtIFTM
       2210211100 5756406467 5735426241 5643504051 4634404645 6443504046 5162636440 4262415643 2+1t ON TWO-BRANCH IF, FETCH FIRST BRANC
       5015151515 1141625544 1151466455 2210231100 6341664540 4163401364 5051624413 4042624156 HrrrrtARMDtIFTM2+3t SAVE AS "THIRD" BRAN
       4350151515 1155444162 1450115164 6243461100 4745644045 7060624563 6351575640 4441644140 CHrrrtMDAR'HtITRCFt GET EXPRESSION DATA 
       6471604515 1155444162 1441144611 2715151515 1155447057 1446112411 0054574751 4341544012 TYPErtMDAR'A'Ft7rrrrtMDXO'Ft4t LOGICAL ?
       1515151515 1152605463 1151462123 1100565734 4052655560 4046576240 3656453637 3645613640 rrrrrtJPLStIF13t NO, JUMP FOR .NE./.EQ. 
       7245625740 6445636415 1515151515 1152606362 1145664741 6611004745 6440545747 5143415440 ZERO TESTrrrrrrtJPSRtEVGAVt GET LOGICAL 
       5156404162 4016554171 4245405645 4741644544 1715151515 1155444162 1451145014 5611456657 IN AR (MAYBE NEGATED)rrrrtMDAR'I'H'NtEVO
       6022110046 4564435040 4570606245 6363515756 4046544147 6315151515 1155444162 1441144611 P2t FETCH EXPRESSION FLAGSrrrrtMDAR'A'Ft
       2220110051 6340516440 5645474164 4544401215 1152605463 1151462122 1100565734 4063535160 20t IS IT NEGATED ?rtJPLStIF12t NO, SKIP
       1515151515 1515151515 1155444162 1151466455 2210221100 7145633440 6245664562 6345404262 rrrrrrrrrrtMDARtIFTM2+2t YES, REVERSE BR
       4156435045 6340363636 1515151515 1141625544 1151466455 2210231515 1155444162 1151466455 ANCHES ...rrrrrtARMDtIFTM2+3rrtMDARtIFTM
       2210211515 1141625544 1151466455 2210221515 1152606362 1151646243 5611004156 4440576564 2+1rrtARMDtIFTM2+2rrtJPSRtITRCNt AND OUT
       6065644064 6241434540 4341545440 4657624056 4547416445 4440514615 1152655560 1136102211 PUT TRACE CALL FOR NEGATED IFrtJUMPt.+2t
       0063535160 1515151515 1515151515 5146212206 1152606362 1151646243 6011005765 6460656440  SKIPrrrrrrrrrrIF12:tJPSRtITRCPt OUTPUT 
       5146406462 4143454043 4154544046 5762406057 6351645166 4540514615 1155444162 1143526041 IF TRACE CALL FOR POSITIVE IFrtMDARtCJPA
       5611006345 6465604013 5260415613 4064456364 1515151515 1141625544 1164455522 1515151515 Nt SETUP "JPAN" TESTrrrrrtARMDtTEM2rrrrr
       1155444162 1151463141 1515151515 1152655560 1151462125 1100415644 4052655560 4064574060 tMDARtIF9ArrrrrtJUMPtIF15t AND JUMP TO P
       6257434563 6315151515 1515151515 5146212306 1152606362 1145664741 4711004745 6440646265 ROCESSrrrrrrrrrIF13:tJPSRtEVGAGt GET TRU
       4540664154 6545405156 4041621515 1152606362 1151646243 6011005765 6460656440 6462414345 E VALUE IN ARrrtJPSRtITRCPt OUTPUT TRACE
       4043574445 4046576240 6057635164 5166454051 4615151515 1515151515 5146212406 1155444162  CODE FOR POSITIVE IFrrrrrrrrrIF14:tMDAR
       1143416241 6246505711 0057656460 6564404657 5444151515 1152606362 1157414263 1515151515 tCARARFHOt OUTPUT FOLDrrrtJPSRtOABSrrrrr
       1155444162 1143526054 6311006345 6465604013 5260546313 4064456364 1515151515 1141625544 tMDARtCJPLSt SETUP "JPLS" TESTrrrrrtARMD
       1164455522 1515151515 1155444162 1454151515 1152606362 1157525560 5415151515 1515151515 tTEM2rrrrrtMDAR'LrrrtJPSRtOJMPLrrrrrrrrr
       5146212506 1141625544 1151462126 1100634166 4540576564 6065644052 6555604043 4154541515 IF15:tARMDtIF16t SAVE OUTPUT JUMP CALLrr
       1155444162 1151554746 4711005155 4147454063 6542606257 4762415540 1215151515 1152604156 tMDARtIMGFGt IMAGE SUBPROGRAM ?rrrrtJPAN
       1151462127 1100714563 3440526555 6040465762 4042624156 4350456340 5156405155 4147451515 tIF17t YES, JUMP FOR BRANCHES IN IMAGErr
       1515151515 7777700000 2750450406 2750450406 2750450406 2750450406 2750450406 2750450406 rrrrrbbX  7HE&:7HE&:7HE&:7HE&:7HE&:7HE&:
       2750450406 2750450406 2750450406 2750450406                                             7HE&:7HE&:7HE&:7HE&:
 1245: 0003300014 4664562024 1361200353 3414400000 1155444162 1151466455 2210231100 4554634534  !8 'FTN04"Q0!K,'   tMDARtIFTM2+3t ELSE,
       4046456443 5040136462 6545134042 6241564350 1515151515 5146212606 1152606362 1111004457  FETCH "TRUE" BRANCHrrrrrIF16:tJPSRtt DO
       4013526041 5613161341 5651621317 4057624013 5260546313 1613546351 6213171515 1155444162  "JPAN"("ANIR") OR "JPLS"("LSIR")rrtMDAR
       1151466455 2210221100 6450455640 4645644350 4013464154 6345134042 6241564350 1515151515 tIFTM2+2t THEN FETCH "FALSE" BRANCHrrrrr
       1152606362 1157526555 6011005765 6460656440 1352655560 1340165762 4013554451 6213171515 tJPSRtOJUMPt OUTPUT "JUMP" (OR "MDIR")rr
       1152655560 1162634654 5711006245 6465625640 4156444062 4563456440 6062574762 4155404654 tJUMPtRSFLOt RETURN AND RESET PROGRAM FL
       5767151515 1515151515 5146212706 1155444162 1157545743 1100514640 5156405155 4147453440 OWrrrrrrrrIF17:tMDARtOLOCt IF IN IMAGE, 
       4645644350 4043656262 4054431515 1141625544 1164455523 1100634166 4540465762 4054416445 FETCH CURR LCrrtARMDtTEM3t SAVE FOR LATE
       6240435041 5156354241 4353151515 1155444162 1164455522 1100464564 4350406353 5160405156 R CHAIN-BACKrrrtMDARtTEM2t FETCH SKIP IN
       6364626543 6451575615 1152606362 1157414263 1100415644 4057656460 6564401613 5260415613 STRUCTIONrtJPSRtOABSt AND OUTPUT ("JPAN"
       4057624013 5260546313 1715151515 1155444162 1151466455 2210221100 4645644350 4036456136  OR "JPLS")rrrrtMDARtIFTM2+2t FETCH .EQ.
       4072456257 4042624156 4350151515 1152606362 1157475255 6011004156 4440576564 6065644052  ZERO BRANCHrrrtJPSRtOGJMPt AND OUTPUT J
       5560405156 4051554147 4515151515 1141627057 1446111100 6245634564 4047624146 7040555744 MP IN IMAGErrrrtARXO'Ftt RESET GRAFX MOD
       4515151515 1141625544 1147624146 4715151515 1155444162 1164455523 1100464564 4350405443 ErrrrtARMDtGRAFGrrrrtMDARtTEM3t FETCH LC
       4057464063 5351604051 5663646265 4364515756 1515151515 1152606362 1143504151 5611004156  OF SKIP INSTRUCTIONrrrrrtJPSRtCHAINt AN
       4440435041 5156404241 4353404365 6262405443 4064574051 6415151515 1155444162 1151466455 D CHAIN BACK CURR LC TO ITrrrrtMDARtIFTM
       2210231100 4645644350 4036564536 4072456257 4042624156 4350151515 1152606362 1157475255 2+3t FETCH .NE. ZERO BRANCHrrrtJPSRtOGJM
       6011004156 4440576564 6065644052 5560405156 4051554147 4515151515 1141627057 1446111100 Pt AND OUTPUT JMP IN IMAGErrrrtARXO'Ftt 
       6245634564 4047624146 7040555744 4515151515 1141625544 1147624146 4715151515 1155444162 RESET GRAFX MODErrrrtARMDtGRAFGrrrrtMDAR
       1151466455 2211006450 6245453542 6241564350 4051464012 1515151515 1155447057 1446115146 tIFTM2t THREE-BRANCH IF ?rrrrrtMDXO'FtIF
       6455221023 1515151515 1152605463 1162634654 5711005657 3440624564 6562564041 5644406245 TM2+3rrrrrtJPLStRSFLOt NO, RETURN AND RE
       6345644060 6257476241 5540465457 6715151515 1515151515 1155444162 1164455521 1100714563 SET PROGRAM FLOWrrrrrrrrrtMDARtTEM1t YES
       3440464564 4350405762 5147515641 5440135260 4156134054 4315151515 1152606362 1143504151 , FETCH ORIGINAL "JPAN" LCrrrrtJPSRtCHAI
       5611004350 4151564042 4143534043 6562624054 4340645740 5164151515 1155444162 1151466455 Nt CHAIN BACK CURR LC TO ITrrrtMDARtIFTM
       2210211100 4645644350 4036546436 4072456257 4042624156 4350151515 1152606362 1157475255 2+1t FETCH .LT. ZERO BRANCHrrrtJPSRtOGJM
       6011005765 6460656440 5255604064 5740516415 1152655560 1162634654 5711006245 6465625640 Pt OUTPUT JMP TO ITrtJUMPtRSFLOt RETURN 
       4156444063 4564406062 5747624155 4046545767 1515151515 1515151515 5146645521 0611112011 AND SET PROGRAM FLOWrrrrrrrrrrIFTM1:tt0t
       0063416645 4046576240 5146404570 6062456363 5157564060 5754516350 4060646215 5146645522  SAVE FOR IF EXPRESSION POLISH PTRrIFTM2
       0611112011 0042624156 4350405451 6364406057 5156644562 1515151515 1120324020 3240201111 :tt0t BRANCH LIST POINTERrrrrrt0; 0; 0tt
       0042624156 4350405451 6364406757 6244631515 1515151515 1515151515 7777700000 0752376755  BRANCH LIST WORDSrrrrrrrrrrrrbbX  _J/WM
       0752376755 0752376755 0752376755 0752376755 0752376755 0752376755 0752376755 0752376755 _J/WM_J/WM_J/WM_J/WM_J/WM_J/WM_J/WM_J/WM
       0752376755                                                                              _J/WM
 1580: 0003400014 4664562024 1361200456 3414400000 0040135756 1340636441 6445554556 6440363636  !  'FTN04"Q0&N,'     "ON" STATEMENT ...
       1515151515 1515151515 5756061155 4441621163 4350416211 0044455451 5545644562 4033405445 rrrrrrrrrrON:tMDARtSCHARt DELIMETER = LE
       4664406041 6245564012 1515151515 1155447057 1446110216 1515151515 1152605463 1151544743 FT PAREN ?rrrrrtMDXO'Ftc(rrrrrtJPLStILGC
       5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 1155444162 1456115756 Ht NO, ILLEGAL SYNTAXrrrrrrrrrtMDAR'NtON
       4654471100 4154624541 4471406062 5743456363 5156474041 5640135756 1340121515 1152634156 FLGt ALREADY PROCESSING AN "ON" ?rrtJSAN
       1145626257 6211007145 6334404641 6441544045 6262576215 1111456222 2423110040 4016564563 tERRORt YES, FATAL ERRORrttER243t   (NES
       6445444057 5614634051 5454454741 5417151515 1515151515 1155444162 1456115146 5441471100 TED ON'S ILLEGAL)rrrrrrrrtMDAR'NtIFLAGt 
       6062574345 6363515647 4041405457 4751434154 4013514613 4012151515 1152604156 1151464562 PROCESSING A LOGICAL "IF" ?rrrtJPANtIFER
       6211007145 6334405154 5445474154 4041606045 4162415643 4540574640 1357561315 1515151515 Rt YES, ILLEGAL APPEARANCE OF "ON"rrrrrr
       1141625544 1157564654 2111004354 4541624057 5645356757 6244401357 5613404654 4147151515 tARMDtONFL1t CLEAR ONE-WORD "ON" FLAGrrr
       1141625544 1164455521 1100435445 4162406351 4756404654 4147151515 1152606362 1147436311 tARMDtTEM1t CLEAR SIGN FLAGrrrtJPSRtGCSt
       0047456440 5645706440 4350416215 1155447057 1446110235 1100555156 6563406351 4756401215  GET NEXT CHARrtMDXO'Ftc-t MINUS SIGN ?r
       1152605463 1136102311 0056573440 6353516015 1515151515 1141625544 1457116445 5521110071 tJPLSt.+3t NO, SKIPrrrrrrtARMD'OtTEM1t Y
       4563344063 4564406351 4756404654 4147151515 1152606362 1147436311 0041564440 4745644056 ES, SET SIGN FLAGrrrtJPSRtGCSt AND GET N
       4570644043 5041621515 1515151515 1155444162 1163435041 6211004645 6443504043 5041621515 EXT CHARrrrrrrrtMDARtSCHARt FETCH CHARrr
       1155447057 1456114322 2011005163 4051644041 4044514751 6440121515 1155444163 1446112120 tMDXO'NtC20t IS IT A DIGIT ?rrtMDAS'Ft10
       3615151515 1152634156 1145626257 6211005657 3440464164 4154404562 6257621515 1111456222 .rrrrtJSANtERRORt NO, FATAL ERRORrrttER2
       2424110040 4016575640 4162474056 5764404156 4057436441 5440435756 6364415664 1715151515 44t   (ON ARG NOT AN OCTAL CONSTANT)rrrr
       1515151515 1152606362 1147566555 1100714563 3440435754 5445436440 4451475164 6315151515 rrrrrtJPSRtGNUMt YES, COLLECT DIGITSrrrr
       1152655560 1151544743 5011004040 1644454351 5541544051 5454454741 5417151515 1515151515 tJUMPtILGCHt   (DECIMAL ILLEGAL)rrrrrrrr
       1152606362 1147574364 5611004566 4154654164 4540574364 4154401357 5613405665 5542456215 tJPSRtGOCTNt EVALUATE OCTAL "ON" NUMBERr
       1155447057 1164455521 1100414452 6563644046 5762406351 4756151515 1155447057 1441114342 tMDXOtTEM1t ADJUST FOR SIGNrrrtMDXO'AtCB
       2011004354 4541624063 5147564042 5164151515 1141625544 1157564654 4711004156 4440634564 0t CLEAR SIGN BITrrrtARMDtONFLGt AND SET
       4013575613 4063644164 4555455664 4046544147 1515151515 1152606362 1160416363 5711006041  "ON" STATEMENT FLAGrrrrrtJPSRtPASSOt PA
       6363405743 6441544044 4554515545 6445623440 5146404156 7115151515 1155447057 1446110217 SS OCTAL DELIMETER, IF ANYrrrrtMDXO'Ftc)
       1100444554 5155456445 6240334062 5147506440 6041624556 4012151515 1152605463 1151544743 t DELIMETER = RIGHT PAREN ?rrrtJPLStILGC
       5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 1152606362 1147436364 Ht NO, ILLEGAL SYNTAXrrrrrrrrrtJPSRtGCST
       1100474564 4056457064 4043504162 1515151515 1152655560 1157562311 0052655560 4051464045 t GET NEXT CHARrrrrrtJUMPtON3t JUMP IF E
       5644405746 4043416244 1515151515 1515151515 1155447057 1143242011 0045546345 3440516340 ND OF CARDrrrrrrrrrrtMDXOtC40t ELSE, IS 
       5164404154 6050414245 6451434012 1515151515 1155444163 1446145611 2225361100 7145633440 IT ALPHABETIC ?rrrrrtMDAS'F'Nt25.t YES, 
       5551475064 4042454053 4571675762 4434151515 1152604156 1163434156 5311004040 6357405265 MIGHT BE KEYWORD,rrrtJPANtSCANKt   SO JU
       5560404241 4353406457 4063434156 1515151515 1515151515 1141625544 1457114743 6363661100 MP BACK TO SCANrrrrrrrrrrtARMD'OtGCSSVt 
       5657344055 6563644042 4540457060 6245636351 5756344063 4166454043 5041621515 1152606362 NO, MUST BE EXPRESSION, SAVE CHARrrtJPSR
       1160575451 6350110047 4564405164 6340605754 5163501515 1152605463 1151544743 5011005565 tPOLISHt GET ITS POLISHrrtJPLStILGCHt MU
       6364404651 5651635040 5756404556 4440574640 6364416445 5545566415 1515151515 5756250611 ST FINISH ON END OF STATEMENTrrrrrrON5:t
       5544416214 4211575646 5447110047 6241467040 1357561340 4357564451 6451575640 1215151515 MDAR'BtONFLGt GRAFX "ON" CONDITION ?rrrr
       1152634156 1145626257 6211007145 6334404641 6441544045 6262576215 1111456222 2426110040 tJSANtERRORt YES, FATAL ERRORrttER246t  
       4016457060 6245636351 5756405154 5445474154 4051564047 6241467040 1357561317 1515151515  (EXPRESSION ILLEGAL IN GRAFX "ON")rrrrr
       1515151515 7777700000 1423217503 1423217503 1423217503 1423217503 1423217503 1423217503 rrrrrbbX  '31@!'31@!'31@!'31@!'31@!'31@!
       1423217503 1423217503 1423217503 1423217503                                             '31@!'31@!'31@!'31@!
 1295: 0003500014 4664562024 1361200365 3414400000 1152606362 1163626457 5611004554 6345344057  !H 'FTN04"Q0!U,'   tJPSRtSRTONt ELSE, O
       5334406364 4162644013 5756134043 5744515647 1515151515 1155444162 1160575463 6411004645 K, START "ON" CODINGrrrrrtMDARtPOLSTt FE
       6443504060 5754516350 4060575156 6445621515 1155444163 1446145611 2111004144 5265636440 TCH POLISH POINTERrrtMDAS'F'Nt1t ADJUST 
       6457406462 6545406364 4143534063 6441626415 1152606362 1145664154 1100456641 5465416445 TO TRUE STACK STARTrtJPSRtEVALt EVALUATE
       4013575613 4045706062 4563635157 5615151515 1156575760 1515151515 1152606362 1145664741  "ON" EXPRESSIONrrrrtNOOPrrrrrtJPSRtEVGA
       4711004745 6440475757 4440664154 6545405156 4041621515 1152606362 1145564457 5611004556 Gt GET GOOD VALUE IN ARrrtJPSRtENDONt EN
       4440575640 6062574345 6363515647 1515151515 1155445162 1470111100 4040166751 6450405645 D ON PROCESSINGrrrrrtMDIR'Xtt   (WITH NE
       6740664154 6545406245 6465625617 1515151515 1152655560 1163644654 5711006245 6465625640 W VALUE RETURN)rrrrrtJUMPtSTFLOt RETURN 
       4156444063 4564406062 5747624155 4046545767 1515151515 1515151515 5756230611 5544416211 AND SET PROGRAM FLOWrrrrrrrrrrON3:tMDARt
       4341627057 3646110051 4640455560 6471401357 5613344063 4564406457 4056575760 1515151515 CARXO.Ft IF EMPTY "ON", SET TO NOOPrrrrr
       1152606362 1145665741 4211004040 6450454013 5756134060 5166576415 1152606362 1157645756 tJPSRtEVOABt   THE "ON" PIVOTrtJPSRtOTON
       6311004156 4440455551 6440435744 4540645740 6364576245 4051641515 1152655560 1163644654 St AND EMIT CODE TO STORE ITrrtJUMPtSTFL
       5711006245 6465625640 4156444063 4564406062 5747624155 4046545767 1515151515 1515151515 Ot RETURN AND SET PROGRAM FLOWrrrrrrrrrr
       5756465421 0611112011 0057564535 6757624440 1357561340 5156636462 6543645157 5640465441 ONFL1:tt0t ONE-WORD "ON" INSTRUCTION FLA
       4715151515 5756465422 0611112011 0064455560 4063645762 4147454036 3636151515 5756465423 GrrrrONFL2:tt0t TEMP STORAGE ...rrrONFL3
       0611112015 5756465424 0611112015 5756465425 0611112015 1515151515 1515151515 1515151515 :tt0rONFL4:tt0rONFL5:tt0rrrrrrrrrrrrrrrr
       0040636560 6057626440 6365426257 6564515645 6340465762 4057564063 6441644555 4556644060   SUPPORT SUBROUTINES FOR ON STATEMENT P
       6257434563 6351564740 3636361515 1515151515 1515151515 0040636441 6264405756 4043574451 ROCESSING ...rrrrrrrrrrrr  START ON CODI
       5647151515 1515151515 6362645756 0611526555 6011361100 4556646271 1515151515 1152606362 NGrrrrrrrrSRTON:tJUMPt.t ENTRYrrrrrtJPSR
       1144575255 6011004555 5164405265 5560405156 4045704543 6564414254 4540435744 5156471515 tDOJMPt EMIT JUMP IN EXECUTABLE CODINGrr
       1155444162 1152556046 4711006341 6645405265 5560406441 5345564046 5441471515 1141625544 tMDARtJMPFGt SAVE JUMP TAKEN FLAGrrtARMD
       1157564654 2215151515 1155444162 1152604156 4611004154 6357401352 6041561340 4654414715 tONFL2rrrrtMDARtJPANFt ALSO "JPAN" FLAGr
       1141625544 1157564654 2315151515 1141625544 1457115255 6046471100 6345644056 5740526555 tARMDtONFL3rrrrtARMD'OtJMPFGt SET NO JUM
       6040644153 4556151515 1155444162 1154414245 5411006341 6645406364 4164455545 5664405441 P TAKENrrrtMDARtLABELt SAVE STATEMENT LA
       4245544046 5441471515 1141625544 1157564654 2415151515 1141625544 1457115441 4245541100 BEL FLAGrrtARMDtONFL4rrrrtARMD'OtLABELt 
       6345644056 5740636441 6445554556 6440544142 4554151515 1141625544 1457114446 5442461100 SET NO STATEMENT LABELrrrtARMD'OtDFLBFt 
       6345644054 4142455440 4154624541 4471404445 4651564544 1515151515 1155444162 1157545743 SET LABEL ALREADY DEFINEDrrrrrtMDARtOLOC
       1100634166 4540436562 6245566440 5457434043 5765566445 6215151515 1141625544 1157564654 t SAVE CURRENT LOC COUNTERrrrrtARMDtONFL
       2515151515 1155444162 1450145711 4324201100 4357554251 5645405265 5560405156 6364626543 5rrrrtMDAR'H'OtC40t COMBINE JUMP INSTRUC
       6451575615 1152606362 1157624554 1100415644 4057656460 6564401357 5613406365 4262576564 TIONrtJPSRtORELt AND OUTPUT "ON" SUBROUT
       5156454045 5664627115 1155445162 1163626457 5611006245 6465625615 1515151515 1515151515 INE ENTRYrtMDIRtSRTONt RETURNrrrrrrrrrrr
       7777700000 4455157757 4455157757 4455157757 4455157757 4455157757 4455157757 4455157757 bbX  DMrbODMrbODMrbODMrbODMrbODMrbODMrbO
       4455157757 4455157757 4455157757                                                        DMrbODMrbODMrbO
 1585: 0003600014 4664562024 1361200457 3414400000 0040455644 4057564060 6257434563 6351564715  !P 'FTN04"Q0&O,'     END ON PROCESSINGr
       1515151515 4556445756 0611526555 6011361100 4556646271 1515151515 1152606362 1143505255 rrrrrENDON:tJUMPt.t ENTRYrrrrrtJPSRtCHJM
       6011004350 4151564065 6040415671 4060455644 5156474052 6555601515 1155444162 1451114556 Pt CHAIN UP ANY PENDING JUMPrrtMDAR'ItEN
       4457561100 4645644350 4062456465 6256405760 4043574445 1515151515 1155444162 1457115756 DONt FETCH RETURN OP CODErrrrrtMDAR'OtON
       4654251100 4357554251 5645401357 5613406365 4262576564 5156454045 5664627140 5443151515 FL5t COMBINE "ON" SUBROUTINE ENTRY LCrrr
       1152606362 1157624554 1100576564 6065644062 4564656256 4016135544 5162134057 6240135544 tJPSRtORELt OUTPUT RETURN ("MDIR" OR "MD
       5162147013 1715151515 1155444162 1164455544 5711004154 5457434164 4540644555 6040664162 IR'X")rrrrtMDARtTEMDOt ALLOCATE TEMP VAR
       5141425445 6340656345 4415151515 1152606362 1157644555 6015151515 1155444162 1157564654 IABLES USEDrrrrtJPSRtOTEMPrrrrtMDARtONFL
       2411006245 6364576245 4043656262 4556644063 6441644555 4556644054 4142455415 1141625544 4t RESTORE CURRENT STATEMENT LABELrtARMD
       1154414245 5415151515 1141627057 1446111100 6345644054 4142455440 5657644071 4564404445 tLABELrrrrtARXO'Ftt SET LABEL NOT YET DE
       4651564544 1515151515 1141625544 1144465442 4615151515 1155444162 1157564654 2211006245 FINEDrrrrrtARMDtDFLBFrrrrtMDARtONFL2t RE
       6364576245 4045704543 6564414254 4540526555 6040465441 4763151515 1141625544 1152556046 STORE EXECUTABLE JUMP FLAGSrrrtARMDtJMPF
       4715151515 1155444162 1157564654 2315151515 1141625544 1152604156 4615151515 1155444162 GrrrrtMDARtONFL3rrrrtARMDtJPANFrrrrtMDAR
       1143554441 6236541100 5765646065 6440464564 4350405746 4013575613 4051566364 6265436451 tCMDAR.Lt OUTPUT FETCH OF "ON" INSTRUCTI
       5756151515 1152606362 1145665741 4211004040 1613554441 6214541317 1515151515 1155444162 ONrrrtJPSRtEVOABt   ("MDAR'L")rrrrrtMDAR
       1450114322 2011004657 6255401352 6063621340 6457401357 5613406365 4262576564 5156451515 'HtC20t FORM "JPSR" TO "ON" SUBROUTINErr
       1155444162 1457115756 4654251515 1152606362 1157624554 1100415644 4057656460 6564405164 tMDAR'OtONFL5rrtJPSRtORELt AND OUTPUT IT
       1515151515 1152606362 1157645756 6311004555 5164404357 4445406457 4060416443 5040135756 rrrrrtJPSRtOTONSt EMIT CODE TO PATCH "ON
       1340605166 5764151515 1155445162 1470114556 4457561100 6245646562 5615151515 1515151515 " PIVOTrrrtMDIR'XtENDONt RETURNrrrrrrrrr
       1515151515 0040576564 6065644013 5756134063 6457624540 6457405764 6340455664 6271151515 rrrrr  OUTPUT "ON" STORE TO OTS ENTRYrrr
       1515151515 5764575663 0611526555 6011361100 4556646271 1515151515 1155444162 1442115756 rrrrrOTONS:tJUMPt.t ENTRYrrrrrtMDAR'BtON
       4654471100 4762414670 4013575613 4043575644 5164515756 4012151515 1152604156 1157645756 FLGt GRAFX "ON" CONDITION ?rrrtJPANtOTON
       2111007145 6334406353 5160406457 4060625743 4563631515 1515151515 1155444163 1446145611 1t YES, SKIP TO PROCESSrrrrrrrtMDAS'F'Nt
       2327261100 5657344013 5756134056 6555424562 4051564062 4156474540 2040645740 2127274012 376t NO, "ON" NUMBER IN RANGE 0 TO 177 ?
       1515151515 1152604156 1136102311 0071456334 4057533440 6353516015 1515151515 5764575645 rrrrrtJPANt.+3t YES, OK, SKIPrrrrrrOTONE
       0611526063 6211456262 5762110045 5463453440 4641644154 4045626257 6215151515 1111456222 :tJPSRtERRORt ELSE, FATAL ERRORrrrrttER2
       2425110040 4016575640 4162474057 6564405746 4062415647 4517151515 1515151515 1155444162 45t   (ON ARG OUT OF RANGE)rrrrrrrrtMDAR
       1157564654 4711004645 6443504057 5640565736 1515151515 1155444162 1441145311 4321110055 tONFLGt FETCH ON NO.rrrrrtMDAR'A'KtC1t M
       4163534050 5147504044 5147516415 1141625544 1453116455 2111006341 6645405156 4060414353 ASK HIGH DIGITrtARMD'KtTM1t SAVE IN PACK
       5156474067 5762441515 1155444162 1157564654 4711004645 6443504056 6555424562 1515151515 ING WORDrrtMDARtONFLGt FETCH NUMBERrrrrr
       1141625463 1123110063 5051466440 6457406057 6351645157 5615151515 1155444162 1441145311 tARLSt3t SHIFT TO POSITIONrrrrtMDAR'A'Kt
       4327110055 4163534064 4556146340 4451475164 1515151515 1155444163 1164552111 0043575542 C7t MASK TEN'S DIGITrrrrrtMDAStTM1t COMB
       5156454067 5164504050 5147504044 5147516415 1141625544 1164552111 0041564440 6341664515 INE WITH HIGH DIGITrtARMDtTM1t AND SAVEr
       1155444162 1143416255 4411005765 6460656440 6364576245 4051566364 6240161341 6255441317 tMDARtCARMDt OUTPUT STORE INSTR ("ARMD")
       1515151515 1152606362 1157414263 1515151515 1155444162 1157457064 2111004645 6443504045 rrrrrtJPSRtOABSrrrrrtMDARtOEXT1t FETCH E
       7064456256 4154406245 4645625643 4540675762 4415151515 1155444162 1457115754 5743110043 XTERNAL REFERNCE WORDrrrrtMDAR'OtOLOCt C
       5755425156 4540414444 6245636340 5746406450 4540636457 6245151515 1155444163 1446145611 OMBINE ADDRESS OF THE STORErrrtMDAS'F'Nt
       2115151515 1152606362 1451115763 6043211100 4156444057 6564606564 4064574054 5741444562 1rrrrtJPSR'ItOSPC1t AND OUTPUT TO LOADER
       1515151515 1515151515 7777700000 2257177450 2257177450 2257177450 2257177450 2257177450 rrrrrrrrrrbbX  2O)#H2O)#H2O)#H2O)#H2O)#H
       2257177450 2257177450 2257177450 2257177450 2257177450                                  2O)#H2O)#H2O)#H2O)#H2O)#H
 1235: 0003700014 4664562024 1361200351 3414400000 1155444162 1157564654 4711004645 6443504013  !X 'FTN04"Q0!I,'   tMDARtONFLGt FETCH "
       5756134056 6555424562 1515151515 1155444162 1441114327 1100554163 5340655651 6414634044 ON" NUMBERrrrrrtMDAR'AtC7t MASK UNIT'S D
       5147516415 1155444163 1164552111 0043575542 5156454057 6450456240 4451475164 6315151515 IGITrtMDAStTM1t COMBINE OTHER DIGITSrrrr
       1155444145 1454111100 4144444064 4570644046 5762404570 6445625641 5440637155 4257541515 tMDAE'Ltt ADD TEXT FOR EXTERNAL SYMBOLrr
       1164457064 1137244562 2020371100 4040161324 4562707013 4057624013 2445637070 1317151515 tTEXTt/4ER00/t   ("4ERXX" OR "4ESXX")rrr
       1152606362 1451115767 6244211100 5765646065 6440564155 4540675762 4440645740 5457414445 tJPSR'ItOWRD1t OUTPUT NAME WORD TO LOADE
       6215151515 1515151515 5764575622 0611416255 4414571157 5646544711 0063456440 5657401357 RrrrrrrrrrOTON2:tARMD'OtONFLGt SET NO "O
       5613406045 5644515647 1515151515 1155445162 1157645756 6311006245 6465625615 1515151515 N" PENDINGrrrrrtMDIRtOTONSt RETURNrrrrrr
       5764575621 0611416270 5714461456 1111004762 4146704013 5756133440 6345644072 4562574056 OTON1:tARXO'F'Ntt GRAFX "ON", SET ZERO N
       4547416451 6645151515 1155444163 1456115756 4654471100 4745644060 5763516451 6645401357 EGATIVErrrtMDAS'NtONFLGt GET POSITIVE "O
       5613405665 5542456215 1152604156 1157645756 4511004562 6257624057 4640352015 1515151515 N" NUMBERrtJPANtOTONEt ERROR OF -0rrrrrr
       1155444163 1446145611 2311003654 4536402340 1215151515 1152604156 1136102211 0071456334 tMDAS'F'Nt3t .LE. 3 ?rrrrtJPANt.+2t YES,
       4057533440 6353516015 1152655560 1157645756 4511004554 6345344052 6555604046 5762405154  OK, SKIPrtJUMPtOTONEt ELSE, JUMP FOR IL
       5445474154 4041624740 4562625762 1515151515 1515151515 1141624162 1442144611 1100435755 LEGAL ARG ERRORrrrrrrrrrrtARAR'B'Ftt COM
       6065644540 4645644350 4046625755 4057646340 6441425445 1515151515 1155444145 1454111100 PUTE FETCH FROM OTS TABLErrrrrtMDAE'Ltt 
       4040574640 6041644350 4060516657 6440455664 6271151515 1141625544 1143545345 7010241515   OF PATCH PIVOT ENTRYrrrtARMDtCLKEX+4rr
       1141625544 1136102211 0063416645 4051564043 4154545156 4740634561 6545564345 1515151515 tARMDt.+2t SAVE IN CALLING SEQUENCErrrrr
       1152606362 1157637162 4611005765 6460656440 4570644562 5641544062 4546456245 5643454064 tJPSRtOSYRFt OUTPUT EXTERNAL REFERENCE T
       5740516415 1141625544 1111004040 1613416255 4440605166 5764131715 1152655560 1157645756 O ITrtARMDtt   ("ARMD PIVOT")rtJUMPtOTON
       2211004757 4062456465 6256151515 1515151515 1515151515 0040435045 4353404657 6240455644 2t GO RETURNrrrrrrrrrrrrr  CHECK FOR END
       4057464057 5640435744 5156471515 1515151515 4350535756 0611526555 6011361100 4556646271  OF ON CODINGrrrrrrrCHKON:tJUMPt.t ENTRY
       1515151515 1155444162 1157564654 4711001357 5613406045 5644515647 4012151515 1141565162 rrrrrtMDARtONFLGt "ON" PENDING ?rrrtANIR
       1470114350 5357561100 5657344062 4564656256 4016221715 1515151515 1155444162 1157564654 'XtCHKONt NO, RETURN (2)rrrrrrtMDARtONFL
       2111007145 6334406351 5647544535 6757624440 5156636462 6543645157 5640121515 1152604156 1t YES, SINGLE-WORD INSTRUCTION ?rrtJPAN
       1143505357 2111007145 6334406353 5160151515 1515151515 1152606362 1145564457 5611004554 tCHKO1t YES, SKIPrrrrrrrrtJPSRtENDONt EL
       6345344045 5644406450 4540135756 1340636542 6257656451 5645151515 1155445162 1111004040 SE, END THE "ON" SUBROUTINErrrtMDIRtt   
       1667516450 4041564013 5544516213 1715151515 1155445162 1143505357 5611006245 6465625640 (WITH AN "MDIR")rrrrtMDIRtCHKONt RETURN 
       1621171515 1515151515 4350535721 0611526063 6211576457 5663110051 4640635156 4754454067 (1)rrrrrrrCHKO1:tJPSRtOTONSt IF SINGLE W
       5762443440 5765646065 6440636457 6245151515 1155445162 1143505357 5611004156 4440624564 ORD, OUTPUT STORErrrtMDIRtCHKONt AND RET
       6562564016 2117151515 1515151515 1515151515 7777700000 5447337501 5447337501 5447337501 URN (1)rrrrrrrrrrrrrbbX  LG=@%LG=@%LG=@%
       5447337501 5447337501 5447337501 5447337501 5447337501 5447337501 5447337501            LG=@%LG=@%LG=@%LG=@%LG=@%LG=@%LG=@%
 1380: 0004000014 4664562024 1361200406 3414400000 0040134757 1340636441 6445554556 6440363636  &  'FTN04"Q0&:,'     "GO" STATEMENT ...
       1515151515 1515151515 4757600611 5260636211 4353457160 1100604162 6451415440 5345716757 rrrrrrrrrrGOP:tJPSRtCKEYPt PARTIAL KEYWO
       6244151515 1164457064 1137645737 1100404046 5754545767 4544404271 4013645713 4012151515 RDrrrtTEXTt/TO/t   FOLLOWED BY "TO" ?rrr
       1111201515 1155444162 1153457147 5711007145 6334406563 4540465441 4763404657 6240134757 tt0rrtMDARtKEYGOt YES, USE FLAGS FOR "GO
       6457131515 1515151515 1152655560 1153457145 6211004554 6345344051 5454454741 5440534571 TO"rrrrrrrtJUMPtKEYERt ELSE, ILLEGAL KEY
       6757624415 1515151515 1515151515 0040475764 5740636441 6445554556 6440363636 1515151515 WORDrrrrrrrrrrr  GOTO STATEMENT ...rrrrr
       1515151515 4757645706 1152606362 1142546353 6011006353 5160404254 4156534044 4554515545 rrrrrGOTO:tJPSRtBLSKPt SKIP BLANK DELIME
       6445621515 1152606362 1147436364 1100474564 4056457064 4043504162 1515151515 1152655560 TERrrtJPSRtGCSTt GET NEXT CHARrrrrrtJUMP
       1151544743 5011004040 1645564440 5154544547 4154171515 1515151515 1152606362 1143506471 tILGCHt   (END ILLEGAL)rrrrrrrtJPSRtCHTY
       6011004350 4543534051 6414634064 7160451515 1152655560 1147572711 0040406360 4543514154 Pt CHECK IT'S TYPErrtJUMPtGO7t   SPECIAL
       3440475740 4350454353 4046576240 1316131515 1152655560 1147572611 0040404451 4751643440 , GO CHECK FOR "("rrtJUMPtGO6t   DIGIT, 
       5565636440 4245406364 4164455545 5664405441 4245541515 1515151515 4757210611 4162554414 MUST BE STATEMENT LABELrrrrrrrGO1:tARMD'
       5711474363 6366110045 5463453440 6341664540 5445646445 6215151515 1141625544 1457116362 OtGCSSVt ELSE, SAVE LETTERrrrrtARMD'OtSR
       4546471100 6345644046 5762406351 5647544540 6245464562 4556434540 5756547115 1152606362 EFGt SET FOR SINGLE REFERENCE ONLYrtJPSR
       1160575451 6350110043 4154544060 5754516350 1515151515 1152605463 1147573011 0052655560 tPOLISHt CALL POLISHrrrrrtJPLStGO8t JUMP
       4046576240 4163635147 5645444047 5764574051 4640565764 4041644045 5644151515 1515151515  FOR ASSIGNED GOTO IF NOT AT ENDrrrrrrrr
       1155444162 1151554746 4711005155 4147454055 5744454012 1515151515 1152604156 1147572411 tMDARtIMGFGt IMAGE MODE ?rrrrrtJPANtGO4t
       0071456334 4063535160 1515151515 1515151515 1155444162 1160466245 6011004554 6345344046  YES, SKIPrrrrrrrrrrtMDARtPFREPt ELSE, F
       4564435040 6057545163 5040455644 4060575156 6445621515 1141625544 1164455521 1100634166 ETCH POLISH END POINTERrrtARMDtTEM1t SAV
       4540516415 1155444145 1456116057 5463641100 4357556065 6445405445 5647645040 5746406364 E ITrtMDAE'NtPOLSTt COMPUTE LENGTH OF ST
       4143531515 1141625544 1456116445 5523110063 4166454051 6440465762 4041444462 4563634062 ACKrrtARMD'NtTEM3t SAVE IT FOR ADDRESS R
       4554574341 6451575615 1155444162 1160575463 6411004645 6443504063 6441626440 5746406057 ELOCATIONrtMDARtPOLSTt FETCH START OF PO
       5451635015 1515151515 4757220611 5544416314 4614561121 1100474564 4060575156 6445624064 LISHrrrrrrGO2:tMDAS'F'Nt1t GET POINTER T
       5740564570 6440605754 5163504067 5762441515 1141625544 1164455522 1100634166 4515151515 O NEXT POLISH WORDrrtARMDtTEM2t SAVErrrr
       1155444162 1451116445 5522110046 4564435040 6057545163 5040675762 4415151515 1141565162 tMDAR'ItTEM2t FETCH POLISH WORDrrrrtANIR
       1147572241 1100576045 6241645762 4012404071 4563344041 4452656364 4041444462 4051464041 tGO2At OPERATOR ?  YES, ADJUST ADDR IF A
       5671151515 1152606362 1160656350 6311006065 6350405164 4064574044 6560545143 4164454063 NYrrrtJPSRtPUSHSt PUSH IT TO DUPLICATE S
       6441435315 1155444162 1164455522 1100415454 4051644555 6340446560 5451434164 4544401215 TACKrtMDARtTEM2t ALL ITEMS DUPLICATED ?r
       1155447057 1164455521 1515151515 1154637057 1164455521 1515151515 1152605463 1147572211 tMDXOtTEM1rrrrrtLSXOtTEM1rrrrrtJPLStGO2t
       0056573440 5457576040 4657624056 4570641515 1515151515 4757224106 1154634145 1456116445  NO, LOOP FOR NEXTrrrrrrrGO2A:tLSAE'NtTE
       5523110051 5663646240 4657624062 4554574341 6451564740 6064626340 5156406057 5451635015 M3t INSTR FOR RELOCATING PTRS IN POLISHr
       1515151515 1155444162 1454111100 6041644350 4063456441 5540645740 6245646562 5640504562 rrrrrtMDAR'Ltt PATCH SETAM TO RETURN HER
       4540514640 4341545445 4415151515 1152655560 1147572315 1141625544 1163456441 5510211515 E IF CALLEDrrrrtJUMPtGO3rtARMDtSETAM+1rr
       1515151515 7777700000 7360307477 7360307477 7360307477 7360307477 7360307477 7360307477 rrrrrbbX  $P8#b$P8#b$P8#b$P8#b$P8#b$P8#b
       7360307477 7360307477 7360307477 7360307477                                             $P8#b$P8#b$P8#b$P8#b
 1755: 0004100014 4664562024 1361200521 3414400000 1155444162 1164455521 1100464564 4350404465  &+ 'FTN04"Q0*1,'   tMDARtTEM1t FETCH DU
       6054514341 6445406057 5451635040 6364416264 1515151515 1155444163 1446145611 2111004144 PLICATE POLISH STARTrrrrrtMDAS'F'Nt1t AD
       5265636440 4657624045 6641541515 1152606362 1145664154 1100456641 5465416445 4060575451 JUST FOR EVALrrtJPSRtEVALt EVALUATE POLI
       6350404657 6240475764 5740637155 4257541515 1156575760 1515151515 1152606362 1145666357 SH FOR GOTO SYMBOLrrtNOOPrrrrrtJPSRtEVSO
       2211004554 5155515641 6445406467 5735675762 4440624546 4562455643 4515151515 1515151515 2t ELIMINATE TWO-WORD REFERENCErrrrrrrrr
       1141627057 1446111100 6041636345 6340575645 3567576244 4042624156 4350406445 6364341515 tARXO'Ftt PASSES ONE-WORD BRANCH TEST,rr
       1141625544 1163456441 5510211100 4040624563 6457624540 6041644350 4051564063 4564415515 tARMDtSETAM+1t   RESTORE PATCH IN SETAMr
       1155444162 1145665760 2211004645 6443504060 5754516350 4062456365 5464406057 5156644562 tMDARtEVOP2t FETCH POLISH RESULT POINTER
       1515151515 1141625544 1164455521 1100634166 4515151515 1155444162 1143554451 6211004645 rrrrrtARMDtTEM1t SAVErrrrtMDARtCMDIRt FE
       6443504013 5544516213 4051566364 6265436451 5756151515 1152606362 1163644243 5011006345 TCH "MDIR" INSTRUCTIONrrrtJPSRtSTBCHt SE
       6440465762 4057564535 6757624440 4262415643 5015151515 1141625544 1164455522 1100634166 T FOR ONE-WORD BRANCHrrrrtARMDtTEM2t SAV
       4540576564 6065644051 5663646265 4364515756 1515151515 1155444162 1164455521 1100464564 E OUTPUT INSTRUCTIONrrrrrtMDARtTEM1t FET
       4350405760 4562415644 4060575156 6445621515 1152606362 1145436246 1100576564 6065644041 CH OPERAND POINTERrrtJPSRtECRFt OUTPUT A
       4263575465 6445406245 4645624556 4345151515 1155444162 1164455522 1100404016 6751645040 BSOLUTE REFERENCErrrtMDARtTEM2t   (WITH 
       4160606257 6062514164 4540515663 6462171515 1515151515 4757224206 1152606362 1146704243 APPROPRIATE INSTR)rrrrrrrGO2B:tJPSRtFXBC
       5011004651 7065604051 4640426241 5643503542 4143534064 4153455615 1152655560 1162634654 Ht FIXUP IF BRANCH-BACK TAKENrtJUMPtRSFL
       5711006245 6345644046 5457674041 5644406245 6465625615 1515151515 4757230611 4162705714 Ot RESET FLOW AND RETURNrrrrrrGO3:tARXO'
       4611110057 5640434154 5440645740 6345644155 3440434156 1464404457 4057564535 6757624415 Ftt ON CALL TO SETAM, CAN'T DO ONE-WORDr
       1141625544 1163456441 5510211100 4040426241 5643503440 6245634564 4060416443 5015151515 tARMDtSETAM+1t   BRANCH, RESET PATCHrrrr
       1515151515 4757240611 5260636211 4457514611 0060625743 4563634054 5747514341 5440514634 rrrrrGO4:tJPSRtDOIFt PROCESS LOGICAL IF,
       4051464041 5671151515 1155444162 1160575463 6411004645 6443504060 5754516350 4060575156  IF ANYrrrtMDARtPOLSTt FETCH POLISH POIN
       6445624046 5762406371 5542575415 1155444163 1446145611 2111004144 5265636440 4657624045 TER FOR SYMBOLrtMDAS'F'Nt1t ADJUST FOR E
       6641541515 1152606362 1145664154 1100456641 5465416445 4051464062 4561655162 4544151515 VALrrtJPSRtEVALt EVALUATE IF REQUIREDrrr
       1156575760 1515151515 1155444162 1151554746 4711005155 4147454055 5744454012 1515151515 tNOOPrrrrrtMDARtIMGFGt IMAGE MODE ?rrrrr
       1152604156 1147572511 0071456334 4063535160 1515151515 1515151515 1155444162 1145665760 tJPANtGO5t YES, SKIPrrrrrrrrrrtMDARtEVOP
       2211004554 6345344046 4564435040 5760456241 5644406057 5156644562 1515151515 1152606362 2t ELSE, FETCH OPERAND POINTERrrrrrtJPSR
       1157526555 6011005765 6460656440 1355445162 1315151515 1152655560 1162634654 5711006245 tOJUMPt OUTPUT "MDIR"rrrrtJUMPtRSFLOt RE
       6465625640 4156444062 4563456440 6062574762 4155404654 5767151515 1515151515 4757250611 TURN AND RESET PROGRAM FLOWrrrrrrrrGO5:t
       5544416211 4566576022 1100464564 4350405760 4562415644 4060575156 6445621515 1152606362 MDARtEVOP2t FETCH OPERAND POINTERrrtJPSR
       1157475255 6011005765 6460656440 4762414670 4013525560 1340165762 4013525560 1451131715 tOGJMPt OUTPUT GRAFX "JMP" (OR "JMP'I")r
       1152655560 1162634654 5711006245 6465625640 4156444062 4563456440 6062574762 4155404654 tJUMPtRSFLOt RETURN AND RESET PROGRAM FL
       5767151515 1515151515 4757260611 5260636211 4754414254 1100474564 4047576457 4063644164 OWrrrrrrrrGO6:tJPSRtGLABLt GET GOTO STAT
       4555455664 4054414245 5415151515 1155444162 1457114342 2011006345 6440425164 4046576240 EMENT LABELrrrrtMDAR'OtCB0t SET BIT FOR 
       5657563563 7155425754 5143404262 4156435015 1141625544 1164455521 1100634166 4540544142 NON-SYMBOLIC BRANCHrtARMDtTEM1t SAVE LAB
       4554406441 4254454060 5751566445 6215151515 1152606362 1143535442 5411004350 4543534046 EL TABLE POINTERrrrrtJPSRtCKLBLt CHECK F
       5762405657 6440414046 5762554164 4054414245 5415151515 1155444162 1163435041 6211004445 OR NOT A FORMAT LABELrrrrtMDARtSCHARt DE
       5451554564 4562403340 4337624012 1515151515 1155447057 1446112125 1515151515 1152605463 LIMETER = C/R ?rrrrrtMDXO'Ft15rrrrrtJPLS
       1151544743 5011005154 5445474154 4063715664 4170405146 4056576415 1515151515 1155444162 tILGCHt ILLEGAL SYNTAX IF NOTrrrrrrtMDAR
       1456115155 4746471100 5155414745 4055574445 4012151515 1152604156 1136102411 0056573440 'NtIMGFGt IMAGE MODE ?rrrtJPANt.+4t NO, 
       6353516015 1515151515 1152606362 1144575146 1100714563 3440606257 4345636340 5457475143 SKIPrrrrrrtJPSRtDOIFt YES, PROCESS LOGIC
       4154405146 1515151515 1155444162 1164455521 1100464564 4350406341 6645444054 4142455440 AL IFrrrrrtMDARtTEM1t FETCH SAVED LABEL 
       6441425445 4060575156 6445621515 1152655560 1147572510 2111005265 5560406457 4057656460 TABLE POINTERrrtJUMPtGO5+1t JUMP TO OUTP
       6564404762 4146704013 5255601315 1515151515 7777700000 4125722766 4125722766 4125722766 UT GRAFX "JMP"rrrrrrbbX  A5Z7VA5Z7VA5Z7V
       4125722766 4125722766 4125722766 4125722766 4125722766 4125722766 4125722766            A5Z7VA5Z7VA5Z7VA5Z7VA5Z7VA5Z7VA5Z7V
 1755: 0004200014 4664562024 1361200521 3414400000 1155444162 1164455521 1100464564 4350405441  &0 'FTN04"Q0*1,'   tMDARtTEM1t FETCH LA
       4245544060 5751566445 6215151515 1155447057 1441114342 2011006441 5345405765 6440435756 BEL POINTERrrrrtMDXO'AtCB0t TAKE OUT CON
       6462575440 4251641515 1155444162 1457145011 4324201100 4657625540 1352655560 1340515663 TROL BITrrtMDAR'O'HtC40t FORM "JUMP" INS
       6462654364 5157561515 1152606362 1163644243 5011006345 6440465762 4063515647 5445356757 TRUCTIONrrtJPSRtSTBCHt SET FOR SINGLE-WO
       6244404262 4156435015 1152606362 1157624546 1100576564 6065644062 4546456245 5643451515 RD BRANCHrtJPSRtOREFt OUTPUT REFERENCErr
       1152655560 1147572242 1100526555 6040645740 4651706560 4042624156 4350404156 4440624564 tJUMPtGO2Bt JUMP TO FIXUP BRANCH AND RET
       6562561515 1515151515 4757270611 5544705714 4611021611 0047576457 4044455451 5545644562 URNrrrrrrrGO7:tMDXO'Ftc(t GOTO DELIMETER
       4033405445 4664406041 6245564012 1515151515 1152605463 1147572111 0056573440 5565636440  = LEFT PAREN ?rrrrrtJPLStGO1t NO, MUST 
       4245405657 6255415440 4757645715 1515151515 1152655560 1147572120 1100455463 4534404357 BE NORMAL GOTOrrrrrrtJUMPtGO10t ELSE, CO
       5560656445 4440475764 5740576240 5545566540 4757645715 1515151515 4757300611 5544705714 MPUTED GOTO OR MENU GOTOrrrrrrGO8:tMDXO'
       4611221100 6371554257 5440444554 5155456445 6240334043 5755554140 1215151515 1152605463 Ft2t SYMBOL DELIMETER = COMMA ?rrrrtJPLS
       1151544743 5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 4757222006 tILGCHt NO, ILLEGAL SYNTAXrrrrrrrrrGO20:
       1155444162 1160575463 6411007145 6334404163 6351475645 4440475764 5740363636 1515151515 tMDARtPOLSTt YES, ASSIGNED GOTO ...rrrrr
       1141625544 1164455522 1100634166 4540606462 4064574063 7155425754 4060575451 6350151515 tARMDtTEM2t SAVE PTR TO SYMBOL POLISHrrr
       1152606362 1147436311 0047456440 5645706440 4350416215 1155447057 1446110216 1100625147 tJPSRtGCSt GET NEXT CHARrtMDXO'Ftc(t RIG
       5064406041 6245564012 1515151515 1152605463 1151544743 5011005657 3440515454 4547415440 HT PAREN ?rrrrrtJPLStILGCHt NO, ILLEGAL 
       6371566441 7015151515 1515151515 1141627057 1454145611 1100634564 4046544147 4046576240 SYNTAXrrrrrrrrrtARXO'L'Ntt SET FLAG FOR 
       4163635147 5645444047 5764571515 1515151515 4757212006 1141627057 1446111100 4357556065 ASSIGNED GOTOrrrrrrrGO10:tARXO'Ftt COMPU
       6445444057 6240554556 6540475764 5734404354 4541624046 5441471515 1141625544 1164455521 TED OR MENU GOTO, CLEAR FLAGrrtARMDtTEM1
       1515151515 1141627057 1446111100 4354454162 4036363615 1141625544 1164455523 1100404046 rrrrrtARXO'Ftt CLEAR ...rtARMDtTEM3t   F
       5162636440 5441424554 4046544147 1515151515 1141625544 1164455524 1100404043 5765566440 IRST LABEL FLAGrrrrrtARMDtTEM4t   COUNT 
       5746405164 4555634051 5640544142 4554405451 6364151515 1141625544 1164455527 1100404063 OF ITEMS IN LABEL LISTrrrtARMDtTEM7t   S
       7155425754 5143405441 4245544046 5441471515 1141625544 1457116445 5526110040 4055455665 YMBOLIC LABEL FLAGrrtARMD'OtTEM6t   MENU
       4047576457 4046544147 1515151515 1515151515 4757212106 1152606362 1147436311 0047456440  GOTO FLAGrrrrrrrrrrGO11:tJPSRtGCSt GET 
       2163644043 5041624057 4640564570 6440516445 5540515640 5451636415 1155447057 1143222011 1ST CHAR OF NEXT ITEM IN LISTrtMDXOtC20t
       0044514751 6440121515 1155444163 1446145611 3136151515 1152604156 1147572122 1100714563  DIGIT ?rrtMDAS'F'Nt9.rrrtJPANtGO12t YES
       3440526555 6040645740 6062574345 6363405441 4245541515 1515151515 1141625544 1457114743 , JUMP TO PROCESS LABELrrrrrrrtARMD'OtGC
       6363661100 4554634534 4063416645 4043504162 1515151515 1141625544 1457116362 4546471100 SSVt ELSE, SAVE CHARrrrrrtARMD'OtSREFGt 
       6345644046 5762406351 5647544540 6245464562 4556434540 5756547115 1141625544 1457116445 SET FOR SINGLE REFERENCE ONLYrtARMD'OtTE
       5527110063 4564406371 5542575451 4340544142 4554404654 4147151515 1152606362 1160575451 M7t SET SYMBOLIC LABEL FLAGrrrtJPSRtPOLI
       6350110047 4564406057 5451635040 4657624063 7155425754 5143404262 4156435015 1152655560 SHt GET POLISH FOR SYMBOLIC BRANCHrtJUMP
       1147572222 1100526555 6040645740 4350454353 4044455451 5545644562 1515151515 1515151515 tGO22t JUMP TO CHECK DELIMETERrrrrrrrrrr
       4757212206 1152606362 1147544142 5411004745 6440636441 6445554556 6440544142 4554151515 GO12:tJPSRtGLABLt GET STATEMENT LABELrrr
       1141625544 1145665760 2211006341 6645405441 4245544064 4142544540 6057515664 4562151515 tARMDtEVOP2t SAVE LABEL TABLE POINTERrrr
       1152606362 1143535442 5411004350 4543534046 5762405657 6440414046 5762554164 4054414245 tJPSRtCKLBLt CHECK FOR NOT A FORMAT LABE
       5415151515 1155444162 1160466245 6011004645 6443504060 6462406457 4056457064 4046624545 LrrrrtMDARtPFREPt FETCH PTR TO NEXT FREE
       4060575451 6350404345 5454151515 1141625544 1160575463 6411006345 6440416340 6057545163  POLISH CELLrrrtARMDtPOLSTt SET AS POLIS
       5040636441 4353406364 4162641515 1155444162 1145665760 2211004645 6443504054 4142455440 H STACK STARTrrtMDARtEVOP2t FETCH LABEL 
       6064621515 1155444162 1454145711 1100435755 4251564540 6360454351 4154405760 4562415644 PTRrrtMDAR'L'Ott COMBINE SPECIAL OPERAND
       4064716045 4033402127 1515151515 6057545760 2127061123 2620202003 5015151515 1152606362  TYPE = 17rrrrrPOLOP17:t36000!HrrrrtJPSR
       1160656350 6311006065 6350406457 4060575451 6350151515 1155444162 1143422011 0046456443 tPUSHSt PUSH TO POLISHrrrtMDARtCB0t FETC
       5040455644 4057464063 6441435340 5760456241 6457621515 1152606362 1160656350 6311006065 H END OF STACK OPERATORrrtJPSRtPUSHSt PU
       6350406457 4060575451 6350151515 1515151515 7777700000 4555522741 4555522741 4555522741 SH TO POLISHrrrrrrrrbbX  EMJ7AEMJ7AEMJ7A
       4555522741 4555522741 4555522741 4555522741 4555522741 4555522741 4555522741            EMJ7AEMJ7AEMJ7AEMJ7AEMJ7AEMJ7AEMJ7A
 1545: 0004300014 4664562024 1361200447 3414400000 4757222206 1155444162 1164455523 1100465162  &8 'FTN04"Q0&G,'   GO22:tMDARtTEM3t FIR
       6364405441 4245544051 5640545163 6440121515 1152605463 1136102311 0056573440 6353516015 ST LABEL IN LIST ?rrtJPLSt.+3t NO, SKIPr
       1515151515 1155444162 1160575463 6411007145 6334406341 6645405156 5164514154 4060575451 rrrrrtMDARtPOLSTt YES, SAVE INITIAL POLI
       6350406064 6215151515 1141625544 1164455523 1515151515 1515151515 1141624162 1470116445 SH PTRrrrrtARMDtTEM3rrrrrrrrrrtARAR'XtTE
       5524110051 5644457040 4357655664 4057464051 6445556315 1155444162 1163435041 6211004645 M4t INDEX COUNT OF ITEMSrtMDARtSCHARt FE
       6443504044 4554515545 6445621515 1155447057 1446110234 1100435755 5541401215 1152605463 TCH DELIMETERrrtMDXO'Ftc,t COMMA ?rtJPLS
       1136102211 0056573440 5451636440 4457564534 4063535160 1515151515 1515151515 1152655560 t.+2t NO, LIST DONE, SKIPrrrrrrrrrrtJUMP
       1147572121 1100714563 3440545757 6040465762 4056457064 4051644555 4051564054 5163641515 tGO11t YES, LOOP FOR NEXT ITEM IN LISTrr
       1515151515 1155447057 1446110234 1402171100 4445545155 4033406251 4750644060 4162455640 rrrrrtMDXO'Ftc,'c)t DELIM = RIGHT PAREN 
       1215151515 1152605463 1151544743 5011005657 3440515454 4547415440 6371566441 7015151515 ?rrrrtJPLStILGCHt NO, ILLEGAL SYNTAXrrrr
       1515151515 1155444162 1160466245 6011007145 6334404556 4440574640 5451636434 4063416645 rrrrrtMDARtPFREPt YES, END OF LIST, SAVE
       4046515641 5415151515 1141625544 1164455525 1100404060 5754516350 4060575156 6445621515  FINALrrrrtARMDtTEM5t   POLISH POINTERrr
       1155444162 1164455521 1100416363 5147564544 4047576457 4012151515 1152604156 1147572123 tMDARtTEM1t ASSIGNED GOTO ?rrrtJPANtGO13
       1100714563 3440526555 6015151515 1515151515 1152606362 1147436364 1100455463 4534404156 t YES, JUMPrrrrrrrrrtJPSRtGCSTt ELSE, AN
       7140564570 6440435041 6240121515 1152655560 1147572124 1100565734 4055656364 4042454055 Y NEXT CHAR ?rrtJUMPtGO14t NO, MUST BE M
       4556654047 5764573440 5265556015 1515151515 1155447057 1446110234 1100714563 3440435755 ENU GOTO, JUMPrrrrrrtMDXO'Ftc,t YES, COM
       5541401215 1152635463 1143575545 6211005657 3440555163 6351564740 4357555541 4067416256 MA ?rtJSLStCOMERt NO, MISSING COMMA WARN
       5156471515 1141627057 1446111100 4154545767 4046655454 4045706062 4563635157 5640465762 INGrrtARXO'Ftt ALLOW FULL EXPRESSION FOR
       4043575560 6564454415 1141625544 1163624546 4711004040 4757645715 1152606362 1160575451  COMPUTEDrtARMDtSREFGt   GOTOrtJPSRtPOLI
       6350110047 4564406057 5451635040 4657624045 7060624563 6351575615 1152605463 1151544743 SHt GET POLISH FOR EXPRESSIONrtJPLStILGC
       5011005154 5445474154 4063715664 4170405146 4056576440 4556444057 4640434162 4415151515 Ht ILLEGAL SYNTAX IF NOT END OF CARDrrrr
       1515151515 1155444162 1160575463 6411006341 6645406057 5451635040 6364416264 1515151515 rrrrrtMDARtPOLSTt SAVE POLISH STARTrrrrr
       1141625544 1164455522 1100465762 4046516263 6440456641 5465416451 5756151515 1152655560 tARMDtTEM2t FOR FIRST EVALUATIONrrrtJUMP
       1136102411 0063535160 1515151515 1515151515 4757212306 1152606362 1147436364 1100416363 t.+4t SKIPrrrrrrrrrrGO13:tJPSRtGCSTt ASS
       5147564544 4047576457 3440455644 4057464063 6441644555 4556644012 1515151515 1152655560 IGNED GOTO, END OF STATEMENT ?rrrrrtJUMP
       1136102211 0071456334 4057533440 6353516015 1152655560 1151544743 5011004554 6345344051 t.+2t YES, OK, SKIPrtJUMPtILGCHt ELSE, I
       5454454741 5440637156 6441701515 1515151515 1152606362 1144575146 1100606257 4345636340 LLEGAL SYNTAXrrrrrrrtJPSRtDOIFt PROCESS 
       5457475143 4154405146 3440514640 4156711515 1155444162 1164455522 1100464564 4350406064 LOGICAL IF, IF ANYrrtMDARtTEM2t FETCH PT
       6240645740 6057545163 5040465762 4041636351 4756444047 5764571515 1155444163 1446145611 R TO POLISH FOR ASSIGND GOTOrrtMDAS'F'Nt
       2111004040 6641625141 4254454057 6240435755 6065644544 4047576457 4045706062 1515151515 1t   VARIABLE OR COMPUTED GOTO EXPRrrrrr
       1152606362 1145664154 1100456641 5465416445 1515151515 1156575760 1515151515 1152606362 tJPSRtEVALt EVALUATErrrrrtNOOPrrrrrtJPSR
       1145666357 2211004554 5155515641 6445406467 5735675762 4440624546 4562455643 4515151515 tEVSO2t ELIMINATE TWO-WORD REFERENCErrrr
       1155444162 1145666641 4611006641 5465454051 5640416240 1215151515 1152634156 1163645764 tMDARtEVVAFt VALUE IN AR ?rrrrtJSANtSTOT
       6211007145 6334406364 5762454041 6215151515 1155444162 1145665760 2211004645 6443504062 Rt YES, STORE ARrrrrtMDARtEVOP2t FETCH R
       4563655464 4060646215 1141625544 1164455522 1100634166 4540465762 4054416445 6215151515 ESULT PTRrtARMDtTEM2t SAVE FOR LATERrrrr
       1155444162 1164455523 1100474564 4060646240 6457405156 5164514154 4054516364 4051644555 tMDARtTEM3t GET PTR TO INITIAL LIST ITEM
       4060575451 6350151515 1152655560 1136102211 0063535160 4064574045 6641546541 6445405164  POLISHrrrtJUMPt.+2t SKIP TO EVALUATE IT
       1515151515 1515151515 7777700000 1243406651 1243406651 1243406651 1243406651 1243406651 rrrrrrrrrrbbX  ?C VI?C VI?C VI?C VI?C VI
       1243406651 1243406651 1243406651 1243406651 1243406651                                  ?C VI?C VI?C VI?C VI?C VI
 1690: 0004400014 4664562024 1361200504 3414400000 4757212506 1155444162 1145666064 6211004645  &  'FTN04"Q0*&,'   GO15:tMDARtEVPTRt FE
       6443504060 6462406457 4056457064 4054516364 4051644555 4060575451 6350151515 1155444163 TCH PTR TO NEXT LIST ITEM POLISHrrrtMDAS
       1446145611 2111004144 5265636440 4657624045 6641541515 1152606362 1145664154 1100456641 'F'Nt1t ADJUST FOR EVALrrtJPSRtEVALt EVA
       5465416445 4054516364 4051644555 4060575451 6350151515 1156575760 1515151515 1152606362 LUATE LIST ITEM POLISHrrrtNOOPrrrrrtJPSR
       1145666357 2211004554 5155515641 6445406467 5735675762 4440624546 4562455643 4534405146 tEVSO2t ELIMINATE TWO-WORD REFERENCE, IF
       4041567115 1155444162 1143422011 0060656440 4241435340 4556444057 4640636441 4353405760  ANYrtMDARtCB0t PUT BACK END OF STACK OP
       4562416457 6215151515 1141625544 1451114566 6064621515 1155444162 1145666064 6211004645 ERATORrrrrtARMD'ItEVPTRrrtMDARtEVPTRt FE
       6443504054 4163644060 5754516350 4060575156 6445621515 1155447057 1164455525 1100465156 TCH LAST POLISH POINTERrrtMDXOtTEM5t FIN
       5163504544 4054416364 4051644555 4051564054 4142455440 5451636440 1215151515 1152605463 ISHED LAST ITEM IN LABEL LIST ?rrrrtJPLS
       1147572125 1100565734 4054575760 4064574045 6641546541 6445405645 7064151515 1515151515 tGO15t NO, LOOP TO EVALUATE NEXTrrrrrrrr
       1155444162 1164455524 1100464564 4350404357 6556644057 4640516445 5563405156 4054516364 tMDARtTEM4t FETCH COUNT OF ITEMS IN LIST
       1515151515 1155444162 1457114355 4441623646 1100435755 4251564540 1355444162 1446134051 rrrrrtMDAR'OtCMDAR.Ft COMBINE "MDAR'F" I
       5663646215 1152606362 1145665741 4211005765 6460656415 1155444162 1164455521 1100416363 NSTRrtJPSRtEVOABt OUTPUTrtMDARtTEM1t ASS
       5147564544 4047576457 4012151515 1152604156 1147572130 1100714563 3440635351 6015151515 IGNED GOTO ?rrrtJPANtGO18t YES, SKIPrrrr
       1515151515 1155444162 1456115155 4746471100 5155414745 4055574445 4012151515 1152604156 rrrrrtMDAR'NtIMGFGt IMAGE MODE ?rrrtJPAN
       1136102411 0056573440 6353516015 1515151515 1152606362 1157637162 4611004357 5560656445 t.+4t NO, SKIPrrrrrrtJPSRtOSYRFt COMPUTE
       4440475764 5734405765 6460656440 5764634043 4154541515 1152606362 1124434764 5111004040 D GOTO, OUTPUT OTS CALLrrtJPSRt4CGTIt   
       1652606362 4073244347 6451171515 1152655560 1136102311 0063535160 4057664562 1515151515 (JPSR $4CGTI)rrtJUMPt.+3t SKIP OVERrrrrr
       1515151515 1152606362 1157637162 4611004357 5560656445 4440475764 5734405765 6460656440 rrrrrtJPSRtOSYRFt COMPUTED GOTO, OUTPUT 
       5764634043 4154541515 1152606362 1124434764 5711004040 1652606362 4073244347 6457171515 OTS CALLrrtJPSRt4CGTOt   (JPSR $4CGTO)rr
       1515151515 1155444162 1450114324 2011004645 6443504055 4143505156 4540135265 5560134051 rrrrrtMDAR'HtC40t FETCH MACHINE "JUMP" I
       5663646215 1141625544 1164455530 1100634166 4540465762 4054414245 5463405156 4054516364 NSTRrtARMDtTEM8t SAVE FOR LABELS IN LIST
       1515151515 1155444162 1143554451 6211004645 6443504013 5544516213 4051566364 6215151515 rrrrrtMDARtCMDIRt FETCH "MDIR" INSTRrrrr
       1141625544 1164455531 1100634166 4540465762 4063715542 5754634051 5640545163 6415151515 tARMDtTEM9t SAVE FOR SYMBOLS IN LISTrrrr
       1152655560 1147572131 1100526555 6040645740 5765646065 6440576463 4041624763 1515151515 tJUMPtGO19t JUMP TO OUTPUT OTS ARGSrrrrr
       1515151515 4757213006 1155444162 1456115155 4746471100 5155414745 4055574445 4012151515 rrrrrGO18:tMDAR'NtIMGFGt IMAGE MODE ?rrr
       1152604156 1136102411 0056573440 6353516015 1515151515 1152606362 1157637162 4611004163 tJPANt.+4t NO, SKIPrrrrrrtJPSRtOSYRFt AS
       6351475645 4440475764 5734405765 6460656440 5764634043 4154541515 1152606362 1124414764 SIGNED GOTO, OUTPUT OTS CALLrrtJPSRt4AGT
       5111004040 1652606362 4073244147 6451171515 1152655560 1136102311 0063535160 4057664562 It   (JPSR $4AGTI)rrtJUMPt.+3t SKIP OVER
       1515151515 1515151515 1152606362 1157637162 4611004163 6351475645 4440475764 5734405765 rrrrrrrrrrtJPSRtOSYRFt ASSIGNED GOTO, OU
       6460656440 5764634043 4154541515 1152606362 1124414764 5711004040 1652606362 4073244147 TPUT OTS CALLrrtJPSRt4AGTOt   (JPSR $4AG
       6457171515 1515151515 1155444162 1143554441 6236461100 6345646560 4046456443 5040515663 TO)rrrrrrrtMDARtCMDAR.Ft SETUP FETCH INS
       6462654364 5663404657 6240416247 4054516364 1515151515 1141625544 1164455530 1100404016 TRUCTNS FOR ARG LISTrrrrrtARMDtTEM8t   (
       1355444162 1446134046 5762405441 4245546317 1515151515 1155444162 1143554441 6211004040 "MDAR'F" FOR LABELS)rrrrrtMDARtCMDARt   
       1613554441 6213404657 6240637155 4257546317 1515151515 1141625544 1164455531 1515151515 ("MDAR" FOR SYMBOLS)rrrrrtARMDtTEM9rrrrr
       1515151515 4757213106 1155444162 1164455522 1100576564 6065644062 4546406457 4041636351 rrrrrGO19:tMDARtTEM2t OUTPUT REF TO ASSI
       4756454440 4757645740 6371554257 5415151515 1152606362 1145436246 1100404057 6240435755 GNED GOTO SYMBOLrrrrtJPSRtECRFt   OR COM
       6065644544 4047576457 4045706062 4041634021 6364404162 4715151515 1155444162 1143554441 PUTED GOTO EXPR AS 1ST ARGrrrrtMDARtCMDA
       6211004040 1651566364 6265436451 5756406457 4046456443 5040664154 6545171515 1155444162 Rt   (INSTRUCTION TO FETCH VALUE)rrtMDAR
       1164455523 1100464564 4350406057 5451635040 6064624064 5740636441 6264405746 4054516364 tTEM3t FETCH POLISH PTR TO START OF LIST
       1515151515 1152655560 1136102211 0063535160 4021636440 6451554515 1515151515 7777700000 rrrrrtJUMPt.+2t SKIP 1ST TIMErrrrrrbbX  
       7447716611 7447716611 7447716611 7447716611 7447716611 7447716611 7447716611 7447716611 #GYVt#GYVt#GYVt#GYVt#GYVt#GYVt#GYVt#GYVt
       7447716611 7447716611                                                                   #GYVt#GYVt
 1545: 0004500014 4664562024 1361200447 3414400000 4757212606 1155444162 1145666064 6211004645  &H 'FTN04"Q0&G,'   GO16:tMDARtEVPTRt FE
       6443504060 5751566445 6240645740 5645706440 5164455540 5156405451 6364151515 1515151515 TCH POINTER TO NEXT ITEM IN LISTrrrrrrrr
       1155444163 1446145611 2111004144 5265636440 4657624045 6641541515 1152606362 1145664154 tMDAS'F'Nt1t ADJUST FOR EVALrrtJPSRtEVAL
       1100456641 5465416445 4064574046 5156444060 6462406457 4051644555 1515151515 1156575760 t EVALUATE TO FIND PTR TO ITEMrrrrrtNOOP
       1515151515 1155444162 1451145011 4566576022 1100464564 4350405760 4562415644 4064716045 rrrrrtMDAR'I'HtEVOP2t FETCH OPERAND TYPE
       1515151515 1155444162 1441144611 2326202020 1100636441 6445554556 6440544142 4554401215 rrrrrtMDAR'A'Ft36000t STATEMENT LABEL ?r
       1155447057 1446112326 2020201515 1152605463 1147572127 1100565734 4063535160 1515151515 tMDXO'Ft36000rrtJPLStGO17t NO, SKIPrrrrr
       1515151515 1155444162 1451114566 5760221100 4645644350 4054414245 5440644142 5445406057 rrrrrtMDAR'ItEVOP2t FETCH LABEL TABLE PO
       5156644562 1515151515 1155444162 1441114155 4163531100 5541635315 1155444162 1457116445 INTERrrrrrtMDAR'AtAMASKt MASKrtMDAR'OtTE
       5530110043 5755425156 4540416247 4051566364 6215151515 1152606362 1157624546 1100576564 M8t COMBINE ARG INSTRrrrrtJPSRtOREFt OUT
       6065644062 4546456245 5643454064 5740544142 4554151515 1152655560 1147572221 1100526555 PUT REFERENCE TO LABELrrrtJUMPtGO21t JUM
       6040645740 4350454353 4046576240 4556441515 1515151515 4757212706 1155444162 1145665760 P TO CHECK FOR ENDrrrrrrrGO17:tMDARtEVOP
       2211004645 6443504063 7155425754 4057604562 4156444060 5751566445 6215151515 1152606362 2t FETCH SYMBOL OPERAND POINTERrrrrtJPSR
       1145436246 1100576564 6065644062 4546456245 5643454064 5740576045 6241564415 1155444162 tECRFt OUTPUT REFERENCE TO OPERANDrtMDAR
       1164455531 1100404016 6751645040 4160606257 6062514164 4540416247 4051566364 6217151515 tTEM9t   (WITH APPROPRIATE ARG INSTR)rrr
       1515151515 4757222106 1155444162 1145666064 6211004556 4440574640 5441424554 4054516364 rrrrrGO21:tMDARtEVPTRt END OF LABEL LIST
       4012151515 1155447057 1164455525 1515151515 1152605463 1147572126 1100565734 4054575760  ?rrrtMDXOtTEM5rrrrrtJPLStGO16t NO, LOOP
       4046576240 5645706440 5164455515 1515151515 1155444162 1456116445 5526110055 4556654047  FOR NEXT ITEMrrrrrrtMDAR'NtTEM6t MENU G
       5764574012 1515151515 1152604156 1147572223 1100714563 3440526555 6040465762 4046515641 OTO ?rrrrrtJPANtGO23t YES, JUMP FOR FINA
       5440576564 6065641515 1152655560 1162634654 5711005657 3440445756 4534406245 6465625640 L OUTPUTrrtJUMPtRSFLOt NO, DONE, RETURN 
       4156444062 4563456440 4654576715 1515151515 4757212406 1155444162 1456115155 4746471100 AND RESET FLOWrrrrrrGO14:tMDAR'NtIMGFGt 
       5545566540 4757645734 4051554147 4540636542 6062574762 4155401215 1152634156 1145626257 MENU GOTO, IMAGE SUBPROGRAM ?rtJSANtERRO
       6211005657 3440464164 4154404562 6257621515 1111456221 3120110040 4016435755 6065644544 Rt NO, FATAL ERRORrrttER190t   (COMPUTED
       4047576457 4045706062 4055516363 5156471715 1515151515 1155444162 1164455527 1100415671  GOTO EXPR MISSING)rrrrrrtMDARtTEM7t ANY
       4066416251 4142544563 4051564054 5163644012 1515151515 1152634156 1145626257 6211007145  VARIABLES IN LIST ?rrrrrtJSANtERRORt YE
       6334404641 6441544045 6262576215 1111456221 3121110040 4016515454 4547415440 4162476340 S, FATAL ERRORrttER191t   (ILLEGAL ARGS 
       4657624055 4556654047 5764571715 1515151515 1152606362 1144575255 6011005765 6460656440 FOR MENU GOTO)rrrrrrtJPSRtDOJMPt OUTPUT 
       5265556040 5766456240 5545566540 5451636415 1155444162 1157545743 1100634166 4540436562 JUMP OVER MENU LISTrtMDARtOLOCt SAVE CUR
       6245566440 5443404163 4063644162 6440574640 5451636415 1141625544 1164455526 1515151515 RENT LC AS START OF LISTrtARMDtTEM6rrrrr
       1141627057 1446111100 4354454162 4051566364 6240435744 4540465762 4054516364 1515151515 tARXO'Ftt CLEAR INSTR CODE FOR LISTrrrrr
       1141625544 1164455530 1515151515 1152655560 1147572126 3522110052 6555604042 4143534064 tARMDtTEM8rrrrrtJUMPtGO16-2t JUMP BACK T
       5740576564 6065644054 5163641515 1515151515 4757222306 1152606362 1144575146 1100414664 O OUTPUT LISTrrrrrrrGO23:tJPSRtDOIFt AFT
       4562405451 6364344060 6257434563 6340545747 5143415440 5146151515 1152606362 1163456447 ER LIST, PROCESS LOGICAL IFrrrtJPSRtSETG
       5511006345 6440476241 4670405557 4445151515 1155444162 1164455526 1100464564 4350405451 Mt SET GRAFX MODErrrtMDARtTEM6t FETCH LI
       6364404144 4462456363 1515151515 1155444162 1457114355 5255601100 4357554251 5645405545 ST ADDRESSrrrrrtMDAR'OtCMJMPt COMBINE ME
       5665405255 6040516445 5515151515 1152606362 1157624554 1100576564 6065641515 1152655560 NU JMP ITEMrrrrtJPSRtORELt OUTPUTrrtJUMP
       1163644654 5711006345 6440465457 6740415644 4062456465 6256404657 6240564570 6440434162 tSTFLOt SET FLOW AND RETURN FOR NEXT CAR
       4415151515 1515151515 7777700000 6567237163 6567237163 6567237163 6567237163 6567237163 DrrrrrrrrrbbX  UW3YSUW3YSUW3YSUW3YSUW3YS
       6567237163 6567237163 6567237163 6567237163 6567237163                                  UW3YSUW3YSUW3YSUW3YSUW3YS
 1315: 0004600014 4664562024 1361200371 3414400000 0040576564 6065644055 4143505156 4540544156  &P 'FTN04"Q0!Y,'     OUTPUT MACHINE LAN
       4765414745 4052655560 4036363615 1515151515 5752655560 0611526555 6011361100 4556646271 GUAGE JUMP ...rrrrrrOJUMP:tJUMPt.t ENTRY
       4046576240 5657625541 5440526555 6015151515 1152606362 1157525560 4311005765 6460656440  FOR NORMAL JUMPrrrrtJPSRtOJMPCt OUTPUT 
       4357564451 6451575641 5440526555 6015151515 1152655560 0350115544 5162110040 4016135265 CONDITIONAL JUMPrrrrtJUMP!HtMDIRt   ("JU
       5560134057 6240135544 5162131715 1155445162 1157526555 6011006245 6465625615 1515151515 MP" OR "MDIR")rtMDIRtOJUMPt RETURNrrrrrr
       1515151515 5752556056 0611526555 6011361100 4556646271 4046576240 5645474164 5166454052 rrrrrOJMPN:tJUMPt.t ENTRY FOR NEGATIVE J
       6555601515 1152606362 1157525560 4311005765 6460656440 4357564451 6451575641 5440526555 UMPrrtJPSRtOJMPCt OUTPUT CONDITIONAL JUM
       6015151515 5752605621 0611526041 5603501141 5651621100 4040161352 6041561340 5762401341 PrrrrOJPN1:tJPAN!HtANIRt   ("JPAN" OR "A
       5651621317 1515151515 1155445162 1157525560 5611006245 6465625615 1515151515 5752556054 NIR")rrrrrtMDIRtOJMPNt RETURNrrrrrrOJMPL
       0611526555 6011361100 4556646271 4046576240 5457674562 3563514756 5146514341 5643454052 :tJUMPt.t ENTRY FOR LOWER-SIGNIFICANCE J
       6555601515 1152606362 1157525560 4311005765 6460656440 4357564451 6451575641 5440526555 UMPrrtJPSRtOJMPCt OUTPUT CONDITIONAL JUM
       6015151515 5752605421 0611526054 6303501154 6351621100 4040161352 6054631340 5762401354 PrrrrOJPL1:tJPLS!HtLSIRt   ("JPLS" OR "L
       6351621317 1515151515 1155445162 1157525560 5411006245 6465625615 1515151515 1515151515 SIR")rrrrrtMDIRtOJMPLt RETURNrrrrrrrrrrr
       5752556043 0611526555 6011361100 4556646271 4064574057 6564606564 4052655560 4051566364 OJMPC:tJUMPt.t ENTRY TO OUTPUT JUMP INST
       6265436451 5756151515 1152604156 1157525560 2111005265 5560405146 4063644164 4555455664 RUCTIONrrrtJPANtOJMP1t JUMP IF STATEMENT
       4054414245 5415151515 1515151515 1141625544 1157526031 3111004554 6345344063 7155425754  LABELrrrrrrrrrtARMDtOJP99t ELSE, SYMBOL
       3440634166 4540605754 5163504060 6462151515 1155444162 1451115752 5560431100 4645644350 , SAVE POLISH PTRrrrtMDAR'ItOJMPCt FETCH
       4013554451 6213406471 6045405760 4043574445 1515151515 1155444162 1441145011 4155416353  "MDIR" TYPE OP CODErrrrrtMDAR'A'HtAMASK
       1100554163 5315151515 1141625544 1157526031 3011006341 6645405760 4043574445 1515151515 t MASKrrrrtARMDtOJP98t SAVE OP CODErrrrr
       1515151515 1155444162 1157526031 3111004645 6443504060 5754516350 4060575156 6445621515 rrrrrtMDARtOJP99t FETCH POLISH POINTERrr
       1152606362 1145436246 1100576564 6065644041 4263575465 6445406245 4645624556 4345151515 tJPSRtECRFt OUTPUT ABSOLUTE REFERENCErrr
       1155444162 1157526031 3011004040 1667516450 4041606062 5760625141 6445405156 6364621715 tMDARtOJP98t   (WITH APPROPRIATE INSTR)r
       1155445162 1470115752 5560431100 6245646562 5615151515 1515151515 5752556021 0611554441 tMDIR'XtOJMPCt RETURNrrrrrrrrrOJMP1:tMDA
       6214411141 5541635311 0055416353 4054414245 5440644142 5445406057 5156644562 1515151515 R'AtAMASKt MASK LABEL TABLE POINTERrrrrr
       1141625544 1157526031 3111006341 6645151515 1152606362 1163456441 5511006345 6440554143 tARMDtOJP99t SAVErrrtJPSRtSETAMt SET MAC
       5051564540 4357444540 5557444515 1155444162 1451145011 5752556043 1100464564 4350401352 HINE CODE MODErtMDAR'I'HtOJMPCt FETCH "J
       6555601340 6471604540 5760404357 4445151515 1155444162 1441145011 4155416353 1100554163 UMP" TYPE OP CODErrrtMDAR'A'HtAMASKt MAS
       5315151515 1155444162 1457115752 6031311100 4357554251 5645405760 4043574445 4067516450 KrrrrtMDAR'OtOJP99t COMBINE OP CODE WITH
       4054414245 5440644142 5445406064 6215151515 1152606362 1157624546 1100576564 6065644062  LABEL TABLE PTRrrrrtJPSRtOREFt OUTPUT R
       4546456245 5643454064 5740544142 4554151515 1155445162 1470115752 5560431100 6245646562 EFERENCE TO LABELrrrtMDIR'XtOJMPCt RETUR
       5615151515 1515151515 5752603131 0611112011 0064455560 4063645762 4147454036 3636151515 NrrrrrrrrrOJP99:tt0t TEMP STORAGE ...rrr
       5752603130 0611112015 1515151515 1515151515 7777700000 3374743165 3374743165 3374743165 OJP98:tt0rrrrrrrrrrrbbX  =##9U=##9U=##9U
       3374743165 3374743165 3374743165 3374743165 3374743165 3374743165 3374743165            =##9U=##9U=##9U=##9U=##9U=##9U=##9U
 1300: 0004700014 4664562024 1361200366 3414400000 0040576564 6065644047 6241467040 5557444540  &X 'FTN04"Q0!V,'     OUTPUT GRAFX MODE 
       5265556040 3636361515 1515151515 5747525560 0611526555 6011361100 4556646271 1515151515 JUMP ...rrrrrrrOGJMP:tJUMPt.t ENTRYrrrrr
       1152604156 1157475260 2111005265 5560405146 4063644164 4555455664 4054414245 5415151515 tJPANtOGJP1t JUMP IF STATEMENT LABELrrrr
       1515151515 1141625544 1157526031 3111004554 6345344063 7155425754 3440634166 4540576045 rrrrrtARMDtOJP99t ELSE, SYMBOL, SAVE OPE
       6241564440 6057515664 4562151515 1155444162 1451115752 6031311100 4645644350 4063556441 RAND POINTERrrrtMDAR'ItOJP99t FETCH SMTA
       4240605751 5664456215 1155444162 1441114155 4163531100 5541635315 1141625544 1157526031 B POINTERrtMDAR'AtAMASKt MASKrtARMDtOJP9
       3011006341 6645151515 1155444162 1451145311 5752603131 1100474564 4045664154 4046544147 8t SAVErrrtMDAR'I'KtOJP99t GET EVAL FLAG
       6315151515 1155444162 1441144611 2111005541 6353401374 1340465441 4715151515 1152605463 SrrrrtMDAR'A'Ft1t MASK "#" FLAGrrrrtJPLS
       1157475260 2311005265 5560405146 4063456415 1515151515 1155444162 1451145311 5752603130 tOGJP3t JUMP IF SETrrrrrrtMDAR'I'KtOJP98
       1100464564 4350406371 5542575440 4654414763 1515151515 1155444162 1441144611 2111006057 t FETCH SYMBOL FLAGSrrrrrtMDAR'A'Ft1t PO
       5156644562 4063715542 5754401215 1152605463 1157475260 2311007145 6334405265 5560151515 INTER SYMBOL ?rtJPLStOGJP3t YES, JUMPrrr
       1515151515 5747526022 0611554441 6211575260 3131110045 5463453440 5753404657 6240515644 rrrrrOGJP2:tMDARtOJP99t ELSE, OK FOR IND
       5162454364 4062454645 6245564345 1515151515 1152606362 1145436246 4711005765 6460656440 IRECT REFERENCErrrrrtJPSRtECRFGt OUTPUT 
       4762414670 4062454645 6245564345 1515151515 1155444162 1143525560 3651110040 4016135255 GRAFX REFERENCErrrrrtMDARtCJMP.It   ("JM
       6014511340 5164455517 1515151515 1155445162 1157475255 6011006245 6465625615 1515151515 P'I" ITEM)rrrrrtMDIRtOGJMPt RETURNrrrrrr
       5747526023 0611554441 6211575260 3131110046 4564435040 5760456241 5644406057 5156644562 OGJP3:tMDARtOJP99t FETCH OPERAND POINTER
       1515151515 1152606362 1145436246 1100576564 6065644041 4263575465 6445406245 4645624556 rrrrrtJPSRtECRFt OUTPUT ABSOLUTE REFEREN
       4345151515 1155444162 1143554441 6236511100 4040161355 4441621451 1317151515 1152606362 CErrrtMDARtCMDAR.It   ("MDAR'I")rrrtJPSR
       1147644555 6011004745 6440644555 6040434554 5415151515 1141625544 1157526031 3111006341 tGTEMPt GET TEMP CELLrrrrtARMDtOJP99t SA
       6645406057 5156644562 1515151515 1155444162 1457114341 6255441100 4357554251 5645401341 VE POINTERrrrrrtMDAR'OtCARMDt COMBINE "A
       6255441340 5156636462 1515151515 1152606362 1157624546 1100415644 4057656460 6564406245 RMD" INSTRrrrrrtJPSRtOREFt AND OUTPUT RE
       4645624556 4345151515 1152606362 1163456447 5511005657 6740634564 4047624146 7040555744 FERENCErrrtJPSRtSETGMt NOW SET GRAFX MOD
       4515151515 1155444162 1157526031 3111004645 6443504064 4555604064 4142544540 6057515664 ErrrrtMDARtOJP99t FETCH TEMP TABLE POINT
       4562151515 1155444162 1457114352 5560365111 0043575542 5156454013 5255601451 1315151515 ERrrrtMDAR'OtCJMP.It COMBINE "JMP'I"rrrr
       1152606362 1157624546 1100576564 6065644062 4546456245 5643451515 1155445162 1157475255 tJPSRtOREFt OUTPUT REFERENCErrtMDIRtOGJM
       6011006245 6465625615 1515151515 5747526021 0611554441 6214411141 5541635311 0055416353 Pt RETURNrrrrrrOGJP1:tMDAR'AtAMASKt MASK
       4054414245 5440644142 5445406057 5156644562 1515151515 1141625544 1157526031 3111006341  LABEL TABLE POINTERrrrrrtARMDtOJP99t SA
       6645151515 1152606362 1163456447 5511006345 6440476241 4670405557 4445151515 1155444162 VErrrtJPSRtSETGMt SET GRAFX MODErrrtMDAR
       1157526031 3111004645 6443504054 4142455440 6057515664 4562151515 1155444162 1457114352 tOJP99t FETCH LABEL POINTERrrrtMDAR'OtCJ
       5560110043 5755425156 4540135255 6013405156 6364621515 1152606362 1157624546 1100576564 MPt COMBINE "JMP" INSTRrrtJPSRtOREFt OUT
       6065644062 4546456245 5643451515 1155445162 1157475255 6011006245 6465625615 1515151515 PUT REFERENCErrtMDIRtOGJMPt RETURNrrrrrr
       1515151515 7777700000 2742526723 2742526723 2742526723 2742526723 2742526723 2742526723 rrrrrbbX  7BJW37BJW37BJW37BJW37BJW37BJW3
       2742526723 2742526723 2742526723 2742526723                                             7BJW37BJW37BJW37BJW3
 1420: 0005000014 4664562024 1361200416 3414400000 0040624564 6562564063 6441644555 4556644036  *  'FTN04"Q0&(,'     RETURN STATEMENT .
       3636151515 1515151515 6245646256 0611554441 6211634350 4162110044 4554515545 6445624033 ..rrrrrrrrRETRN:tMDARtSCHARt DELIMETER =
       4043376240 1215151515 1155447057 1446112125 1515151515 1152605463 1151544743 5011005657  C/R ?rrrrtMDXO'Ft15rrrrrtJPLStILGCHt NO
       3440515454 4547415440 4350416215 1515151515 1155444162 1456115155 4746471100 5155414745 , ILLEGAL CHARrrrrrrtMDAR'NtIMGFGt IMAGE
       4055574445 4012151515 1152604156 1162456456 2111005657 3440635351 6015151515 1515151515  MODE ?rrrtJPANtRETN1t NO, SKIPrrrrrrrrr
       1152606362 1144575146 1100714563 3440606257 4345636340 5457475143 4154405146 1515151515 tJPSRtDOIFt YES, PROCESS LOGICAL IFrrrrr
       1152606362 1163456447 5511006345 6440476241 4670405557 4445151515 1141627057 1446111100 tJPSRtSETGMt SET GRAFX MODErrrtARXO'Ftt 
       5765646065 6440476241 4670401362 4564134051 6445551515 1152606362 1157414263 1515151515 OUTPUT GRAFX "RET" ITEMrrtJPSRtOABSrrrrr
       1152655560 1162634654 5711006245 6465625640 4156444062 4563456440 6062574762 4155404654 tJUMPtRSFLOt RETURN AND RESET PROGRAM FL
       5767151515 1515151515 6245645621 0611554441 6211634260 6471110046 4564435040 6365426062 OWrrrrrrrrRETN1:tMDARtSBPTYt FETCH SUBPR
       5747624155 4064716045 1515151515 1155447057 1446112211 0046655643 6451575640 1215151515 OGRAM TYPErrrrrtMDXO'Ft2t FUNCTION ?rrrr
       1152605463 1162456456 2211005657 3440635351 6040465762 4063515647 5445356757 6244404262 tJPLStRETN2t NO, SKIP FOR SINGLE-WORD BR
       4156435015 1515151515 1152606362 1144575146 1100714563 3440434156 1464406563 4540635156 ANCHrrrrrrtJPSRtDOIFt YES, CAN'T USE SIN
       4754453567 5762444042 6241564350 1515151515 1152606362 1163456441 5511006345 6440554143 GLE-WORD BRANCHrrrrrtJPSRtSETAMt SET MAC
       5051564540 4357444540 5557444515 1155444162 1146655666 4611004745 6440466556 4364515756 HINE CODE MODErtMDARtFUNVFt GET FUNCTION
       4066416251 4142544540 4645644350 4051566364 6215151515 1152606362 1157624554 1100576564  VARIABLE FETCH INSTRrrrrtJPSRtORELt OUT
       6065644051 6415151515 1155444162 1162456451 5611004645 6443504062 4564656256 4051566364 PUT ITrrrrtMDARtRETINt FETCH RETURN INST
       6265436451 5756151515 1152606362 1157624554 1100576564 6065644051 6415151515 1152655560 RUCTIONrrrtJPSRtORELt OUTPUT ITrrrrtJUMP
       1162634654 5711006245 6465625640 4156444062 4563456440 6062574762 4155404654 5767151515 tRSFLOt RETURN AND RESET PROGRAM FLOWrrr
       1515151515 6245645622 0611554441 6211624564 5156110046 4564435040 6245646562 5640515663 rrrrrRETN2:tMDARtRETINt FETCH RETURN INS
       6462654364 5157561515 1152606362 1163644243 5011004144 5265636440 4657624063 5156475445 TRUCTIONrrtJPSRtSTBCHt ADJUST FOR SINGLE
       3567576244 4042624156 4350151515 1152606362 1157624554 1100576564 6065644051 6415151515 -WORD BRANCHrrrtJPSRtORELt OUTPUT ITrrrr
       1152606362 1146704243 5011004651 7065604041 4664456240 4262415643 5015151515 1152655560 tJPSRtFXBCHt FIXUP AFTER BRANCHrrrrtJUMP
       1162634654 5711006245 6465625640 4156444062 4563456440 6062574762 4155404654 5767151515 tRSFLOt RETURN AND RESET PROGRAM FLOWrrr
       1515151515 1515151515 0040457051 6440636441 6445554556 6440363636 1515151515 1515151515 rrrrrrrrrr  EXIT STATEMENT ...rrrrrrrrrr
       4570516406 1155444162 1163435041 6211004445 5451554564 4562403340 4337624012 1515151515 EXIT:tMDARtSCHARt DELIMETER = C/R ?rrrrr
       1155447057 1446112125 1515151515 1152605463 1151544743 5011005657 3440515454 4547415440 tMDXO'Ft15rrrrrtJPLStILGCHt NO, ILLEGAL 
       4350416215 1515151515 1155444162 1454111100 4645644350 4057646340 6245464562 4556434515 CHARrrrrrrtMDAR'Ltt FETCH OTS REFERENCEr
       1152655560 1124455644 1515151515 1152606362 1163644243 5011006345 6440465762 4063515647 tJUMPt4ENDrrrrrtJPSRtSTBCHt SET FOR SING
       5445356757 6244404262 4156435015 1141625544 1136102211 0063416645 4057656460 6564405156 LE-WORD BRANCHrtARMDt.+2t SAVE OUTPUT IN
       6364626543 6451575615 1152606362 1157637162 4611005765 6460656440 5764634062 4546151515 STRUCTIONrtJPSRtOSYRFt OUTPUT OTS REFrrr
       1152655560 1124455644 1100404016 5265556040 7324455644 1715151515 1152606362 1146704243 tJUMPt4ENDt   (JUMP $4END)rrrrtJPSRtFXBC
       5011004651 7065604051 4640426241 5643503542 4143534064 4153455615 1152655560 1162634654 Ht FIXUP IF BRANCH-BACK TAKENrtJUMPtRSFL
       5711006245 6465625640 4156444062 4563456440 6062574762 4155404654 5767151515 1515151515 Ot RETURN AND RESET PROGRAM FLOWrrrrrrrr
       1515151515 7777700000 6063112225 6063112225 6063112225 6063112225 6063112225 6063112225 rrrrrbbX  PSt25PSt25PSt25PSt25PSt25PSt25
       6063112225 6063112225 6063112225 6063112225                                             PSt25PSt25PSt25PSt25
  680: 0005100014 4664562024 1361200172 3414400000 0040435756 6451566545 4063644164 4555455664  *+ 'FTN04"Q0%Z,'     CONTINUE STATEMENT
       4036363615 1515151515 4357566465 0611554441 6211634350 4162110044 4554515545 6445624033  ...rrrrrrCONTU:tMDARtSCHARt DELIMETER =
       4043376240 1215151515 1155447057 1446112125 1515151515 1152605463 1151544743 5011005657  C/R ?rrrrtMDXO'Ft15rrrrrtJPLStILGCHt NO
       3440637156 6441704045 6262576215 1515151515 1155444162 1456115756 4654471100 5756406364 , SYNTAX ERRORrrrrrrtMDAR'NtONFLGt ON ST
       4164455545 5664404354 4165634540 1215151515 1152604156 1157562311 0071456334 4052655560 ATEMENT CLAUSE ?rrrrtJPANtON3t YES, JUMP
       4046576240 5657401357 5613406062 5743456363 5156471515 1515151515 1152606362 1144575146  FOR NO "ON" PROCESSINGrrrrrrrtJPSRtDOIF
       1100606257 4345636340 5457475143 4154405146 3440514640 4156711515 1155444162 1154414245 t PROCESS LOGICAL IF, IF ANYrrtMDARtLABE
       5411005657 4063644164 4555455664 4054414245 5440121515 1155444162 1457114446 5442461100 Lt NO STATEMENT LABEL ?rrtMDAR'OtDFLBFt 
       5762405441 4245544041 5462454144 7140444546 5156454440 1215151515 1152604156 1163644654 OR LABEL ALREADY DEFINED ?rrrrtJPANtSTFL
       5711007145 6334405265 6364406345 6440465457 6715151515 1515151515 1155444162 1151554746 Ot YES, JUST SET FLOWrrrrrrrrrtMDARtIMGF
       4711005155 4147454063 6542606257 4762415540 1215151515 1152604156 1136102311 0071456334 Gt IMAGE SUBPROGRAM ?rrrrtJPANt.+3t YES,
       4063535160 1515151515 1515151515 1152606362 1163456441 5511005657 3440444546 5156454054  SKIPrrrrrrrrrrtJPSRtSETAMt NO, DEFINE L
       4142455440 5156405541 4350515645 4055574445 1515151515 1152655560 1163644654 5711004156 ABEL IN MACHINE MODErrrrrtJUMPtSTFLOt AN
       4440634564 4060625747 6241554046 5457671515 1515151515 1152606362 1163456447 5511004445 D SET PROGRAM FLOWrrrrrrrtJPSRtSETGMt DE
       4651564540 4762414670 4054414245 5415151515 1152655560 1163644654 5711004757 4063456440 FINE GRAFX LABELrrrrtJUMPtSTFLOt GO SET 
       6062574762 4155404654 5767151515 1515151515 1515151515 7777700000 3011507553 3011507553 PROGRAM FLOWrrrrrrrrrrrrrbbX  8tH@K8tH@K
       3011507553 3011507553 3011507553 3011507553 3011507553 3011507553 3011507553 3011507553 8tH@K8tH@K8tH@K8tH@K8tH@K8tH@K8tH@K8tH@K
 1285: 0005200014 4664562024 1361200363 3414400000 0040636457 6040415644 4060416563 4540636441  *0 'FTN04"Q0!S,'     STOP AND PAUSE STA
       6445554556 6463403636 3615151515 1515151515 6363645760 0611416270 5714541111 0063645760 TEMENTS ...rrrrrrrrrSSTOP:tARXO'Ltt STOP
       3440634564 4057646340 6441425445 4057464663 4564403340 2015151515 6041656345 0611554441 , SET OTS TABLE OFFSET = 0rrrrPAUSE:tMDA
       6211432211 0060416563 4534406345 6440574646 6345644033 4022151515 1141625544 1164455521 RtC2t PAUSE, SET OFFSET = 2rrrtARMDtTEM1
       1515151515 1155444162 1163435041 6211004645 6443504044 4554515545 6445621515 1155447057 rrrrrtMDARtSCHARt FETCH DELIMETERrrtMDXO
       1446112125 1100455644 4057464063 6441644555 4556644012 1515151515 1152605463 1160416563 'Ft15t END OF STATEMENT ?rrrrrtJPLStPAUS
       2111005657 3440526555 6040645740 6062574345 6363404162 4715151515 1515151515 1141624162 1t NO, JUMP TO PROCESS ARGrrrrrrrrrtARAR
       1470116445 5521110071 4563344042 6555604057 6463406064 6240465762 4063646251 5647405765 'XtTEM1t YES, BUMP OTS PTR FOR STRING OU
       6460656415 1152606362 1144575146 1100606257 4345636340 5457475143 4154405146 3440514640 TPUTrtJPSRtDOIFt PROCESS LOGICAL IF, IF 
       4156711515 1155444162 1143416270 5736461100 5765646065 6440134162 7057144613 4046576240 ANYrrtMDARtCARXO.Ft OUTPUT "ARXO'F" FOR 
       4465555571 4063646251 5647151515 1152606362 1145665741 4215151515 1152655560 1160416563 DUMMY STRINGrrrtJPSRtEVOABrrrrtJUMPtPAUS
       2211005265 5560406457 4057656460 6564405764 6340434154 5415151515 1515151515 6041656321 2t JUMP TO OUTPUT OTS CALLrrrrrrrrrPAUS1
       0611554470 5714461121 2514021411 0053457167 5762444046 5754545767 4544404271 4061655764 :tMDXO'Ft15'c't KEYWORD FOLLOWED BY QUOT
       4544405057 5454456251 6450151515 1152605463 1136102211 0040406364 6251564740 1215151515 ED HOLLERITHrrrtJPLSt.+2t   STRING ?rrrr
       1515151515 1141624162 1470116445 5521110071 4563344042 6555604057 6463406064 6240465762 rrrrrtARAR'XtTEM1t YES, BUMP OTS PTR FOR
       4063646251 5647404341 5454151515 1515151515 1152606362 1142546353 6011006353 5160404254  STRING CALLrrrrrrrrtJPSRtBLSKPt SKIP BL
       4156534044 4554515545 6445621515 1152606362 1160575451 6350110047 4564406057 5451635040 ANK DELIMETERrrtJPSRtPOLISHt GET POLISH 
       4657624063 6462515647 4057624045 7060621515 1152605463 1151544743 5011005565 6364404245 FOR STRING OR EXPRrrtJPLStILGCHt MUST BE
       4045564440 5746406364 4164455545 5664151515 1515151515 1152606362 1144575146 1100606257  END OF STATEMENTrrrrrrrrtJPSRtDOIFt PRO
       4345636340 5457475143 4154405146 3440514640 4156711515 1155444162 1160575463 6411004645 CESS LOGICAL IF, IF ANYrrtMDARtPOLSTt FE
       6443504060 5754516350 4060646215 1155444163 1446145611 2111004144 5265636440 4657624045 TCH POLISH PTRrtMDAS'F'Nt1t ADJUST FOR E
       6641541515 1152606362 1145664154 1100456641 5465416445 4045706062 4563635157 5615151515 VALrrtJPSRtEVALt EVALUATE EXPRESSIONrrrr
       1156575760 1515151515 1152606362 1145664741 4711004645 6443504045 7060624066 4154654540 tNOOPrrrrrtJPSRtEVGAGt FETCH EXPR VALUE 
       6457404162 1515151515 1515151515 6041656322 0611554441 6214541111 0046456443 5040576463 TO ARrrrrrrrrrrPAUS2:tMDAR'Ltt FETCH OTS
       4043415454 1515151515 1152606362 1124636460 5715151515 1155444163 1442116445 5521110041  CALLrrrrrtJPSRt4STPOrrrrtMDAS'BtTEM1t A
       4444404160 6062576062 5141644540 5746466345 6415151515 1141625544 1136102211 0063416645 DD APPROPRIATE OFFSETrrrrtARMDt.+2t SAVE
       1515151515 1152606362 1157637162 4611005765 6460656440 1352606362 1340645740 5764634062 rrrrrtJPSRtOSYRFt OUTPUT "JPSR" TO OTS R
       5765645156 4515151515 1152606362 1515151515 1155444162 1164455521 1100604165 6345401215 OUTINErrrrtJPSRrrrrrtMDARtTEM1t PAUSE ?r
       1155444162 1441144611 2215151515 1152605463 1163644654 5711007145 6334406345 6440606257 tMDAR'A'Ft2rrrrtJPLStSTFLOt YES, SET PRO
       4762415540 4654576715 1515151515 1152655560 1162634654 5711004554 6345344063 6457603440 GRAM FLOWrrrrrrtJUMPtRSFLOt ELSE, STOP, 
       6245634564 4060625747 6241554046 5457671515 1515151515 1515151515 7777700000 2752052357 RESET PROGRAM FLOWrrrrrrrrrrrrbbX  7J*3O
       2752052357 2752052357 2752052357 2752052357 2752052357 2752052357 2752052357 2752052357 7J*3O7J*3O7J*3O7J*3O7J*3O7J*3O7J*3O7J*3O
       2752052357                                                                              7J*3O
 1490: 0005300014 4664562024 1361200434 3414400000 0040624541 4440636441 6445554556 6440363636  *8 'FTN04"Q0&,,'     READ STATEMENT ...
       1515151515 1515151515 6245414406 1155444162 1456115155 4746471100 5155414745 4055574445 rrrrrrrrrrREAD:tMDAR'NtIMGFGt IMAGE MODE
       4012151515 1152604156 1162454144 2111005657 3440526555 6040645740 6062574345 6363405137  ?rrrtJPANtREAD1t NO, JUMP TO PROCESS I/
       5740624541 4415151515 1515151515 1155444162 1446114762 4664421024 2511007145 6334404645 O READrrrrrrrrrtMDAR'FtGRFTB+45t YES, FE
       6443504041 4444624563 6340574640 6245414440 4665564364 5157561515 6245414447 0611416255 TCH ADDRESS OF READ FUNCTIONrrREADG:tARM
       4411534571 4647110040 4043575664 6257544067 5762441515 1152655560 1147624663 4211004757 DtKEYFGt   CONTROL WORDrrtJUMPtGRFSBt GO
       4060625743 4563634047 6241467040 5156646251 5663514340 6365426215 1515151515 6245414421  PROCESS GRAFX INTRINSIC SUBRrrrrrrREAD1
       0611554441 6211634350 4162110044 4554515545 6445624033 4054454664 4060416245 5640121515 :tMDARtSCHARt DELIMETER = LEFT PAREN ?rr
       1155447057 1446110216 1515151515 1152605463 1163606245 4411005657 3440555147 5064404245 tMDXO'Ftc(rrrrrtJPLStSPREDt NO, MIGHT BE
       4046576264 6241564051 5140624541 4415151515 1515151515 1141627057 1446111100 4354454162  FORTRAN II READrrrrrrrrrtARXO'Ftt CLEAR
       4046544147 4046576240 6245414415 1141625544 1164455521 1515151515 1155444162 1454111100  FLAG FOR READrtARMDtTEM1rrrrrtMDAR'Ltt 
       4645644350 4051375740 4341545415 6245414422 0611526063 6211246244 1515151515 1152655560 FETCH I/O CALLrREAD2:tJPSRt4RDrrrrrtJUMP
       1167625121 1100526555 6040515664 5740676251 6445406257 6564515645 1515151515 1515151515 tWRI1t JUMP INTO WRITE ROUTINErrrrrrrrrr
       1515151515 0040676251 6445406364 4164455545 5664403636 3615151515 1515151515 6762516445 rrrrr  WRITE STATEMENT ...rrrrrrrrrWRITE
       0611554441 6211634350 4162110044 4554515545 6445624033 4054454664 4060416245 5640121515 :tMDARtSCHARt DELIMETER = LEFT PAREN ?rr
       1155447057 1446110216 1515151515 1152605463 1151544743 5011005657 3440515454 4547415440 tMDXO'Ftc(rrrrrtJPLStILGCHt NO, ILLEGAL 
       6371566441 7015151515 1515151515 1141625544 1457116445 5521110063 4564404654 4147404657 SYNTAXrrrrrrrrrtARMD'OtTEM1t SET FLAG FO
       6240676251 6445151515 1155444162 1454151515 6762516420 0611526063 6211246762 1100464564 R WRITErrrtMDAR'LrrrWRIT0:tJPSRt4WRt FET
       4350405764 6340434154 5415151515 1515151515 6762512106 1141625544 1167625121 2111006341 CH OTS CALLrrrrrrrrrWRI1:tARMDtWRI11t SA
       6645405137 5740434154 5415151515 1141627057 1446151515 1141625544 1164455527 1100435445 VE I/O CALLrrrrtARXO'FrrrtARMDtTEM7t CLE
       4162404657 6264624156 4051514046 5441471515 1141625544 1164455530 1100435445 4162404556 AR FORTRAN II FLAGrrtARMDtTEM8t CLEAR EN
       4357444537 4445435744 4540465441 4715151515 1141625544 1457115644 6246211100 6345644013 CODE/DECODE FLAGrrrrtARMD'OtNDRF1t SET "
       4556443313 4056576440 6062574345 6363454415 1141625544 1457115644 6246221100 6345644013 END=" NOT PROCESSEDrtARMD'OtNDRF2t SET "
       4562623313 4056576440 6062574345 6363454415 1152606362 1147655651 6411004745 6440655651 ERR=" NOT PROCESSEDrtJPSRtGUNITt GET UNI
       6440565736 4016445756 1464404566 4154407145 6417151515 1515151515 6762512141 0611526063 T NO. (DON'T EVAL YET)rrrrrrrrWRI1A:tJPS
       6211445751 4611006062 5743456363 4054574751 4341544051 4634405146 4041567115 1155444162 RtDOIFt PROCESS LOGICAL IF, IF ANYrtMDAR
       1164455527 1100465762 6462415640 5151406245 4144376762 5164454012 1515151515 1152604156 tTEM7t FORTRAN II READ/WRITE ?rrrrrtJPAN
       1167625121 4211007145 6334406353 5160151515 1515151515 1155444162 1163435041 6211006556 tWRI1Bt YES, SKIPrrrrrrrrtMDARtSCHARt UN
       4657625541 6464454440 5137574012 1515151515 1155447057 1446110217 1100714563 3440514640 FORMATTED I/O ?rrrrrtMDXO'Ftc)t YES, IF 
       4445545155 4033406251 4750644060 4162455615 1152605463 1167625121 4311004554 6345344063 DELIM = RIGHT PARENrtJPLStWRI1Ct ELSE, S
       5351601515 1515151515 6762512144 0611416255 4414571164 4555221100 6345644046 5441474046 KIPrrrrrrrWRI1D:tARMD'OtTEM2t SET FLAG F
       5762406556 4657625541 6464454440 5137571515 1141625544 1457116445 5523110063 4564404657 OR UNFORMATTED I/OrrtARMD'OtTEM3t SET FO
       6240414263 5754656445 4046576255 4164406245 4615151515 1155444162 1143416270 5736461100 R ABSOLUTE FORMAT REFrrrrtMDARtCARXO.Ft 
       4645644350 4051566364 6240465762 4065564657 6255416464 4544151515 1141625544 1164455524 FETCH INSTR FOR UNFORMATTEDrrrtARMDtTEM4
       1100634166 4540465762 4051375740 4341545415 1152655560 1167625131 4111005265 5560406457 t SAVE FOR I/O CALLrtJUMPtWRI9At JUMP TO
       4060625743 4563634041 4263575465 6445405137 5740434154 5415151515 1515151515 7777700000  PROCESS ABSOLUTE I/O CALLrrrrrrrrrbbX  
       7220423414 7220423414 7220423414 7220423414 7220423414 7220423414 7220423414 7220423414 Z0B,'Z0B,'Z0B,'Z0B,'Z0B,'Z0B,'Z0B,'Z0B,'
       7220423414 7220423414                                                                   Z0B,'Z0B,'
 1330: 0005400014 4664562024 1361200374 3414400000 6762512143 0611554470 5714461102 1714023411  *  'FTN04"Q0!#,'   WRI1C:tMDXO'Ftc)'c,t
       0044455451 5540334043 5755554140 1215151515 1152605463 1151544743 5011005154 5445474154  DELIM = COMMA ?rrrrtJPLStILGCHt ILLEGAL
       4063715664 4170405146 4056576415 1515151515 6762512142 0611526063 6211476446 5564110047  SYNTAX IF NOTrrrrrrWRI1B:tJPSRtGTFMTt G
       4564404657 6255416440 6364416445 5545566415 1515151515 6762513141 0611526063 6211576556 ET FORMAT STATEMENTrrrrrrWRI9A:tJPSRtOUN
       5164110057 6564606564 4046456443 5040574640 6556516440 5657361515 1152606362 1157637162 ITt OUTPUT FETCH OF UNIT NO.rrtJPSRtOSYR
       4611004555 5164405137 5740434154 5415151515 6762512121 0611526063 6211110040 4016135260 Ft EMIT I/O CALLrrrrWRI11:tJPSRtt   ("JP
       6362407324 6244134057 6240135260 6362407324 6762131715 1515151515 1155444162 1456116445 SR $4RD" OR "JPSR $4WR")rrrrrrtMDAR'NtTE
       5523110041 4263575465 6445404657 6255416440 5156636462 4012151515 1152604156 1136102411 M3t ABSOLUTE FORMAT INSTR ?rrrtJPANt.+4t
       0056573440 6353516015 1515151515 1155444162 1164455524 1100455463 4534404645 6443504051  NO, SKIPrrrrrrtMDARtTEM4t ELSE, FETCH I
       5663646265 4364515756 1515151515 1152606362 1157414263 1100576564 6065644041 4263575465 NSTRUCTIONrrrrrtJPSRtOABSt OUTPUT ABSOLU
       6445151515 1152655560 1167625122 3111006353 5160151515 1515151515 1155444162 1164455524 TErrrtJUMPtWRI29t SKIPrrrrrrrrtMDARtTEM4
       1100545741 4440465762 5541644041 4444624563 6340464564 4350151515 1152604156 1136102411 t LOAD FORMAT ADDRESS FETCHrrrtJPANt.+4t
       0052655560 4051464063 6441644555 4556644054 4142455415 1515151515 1152606362 1145436246  JUMP IF STATEMENT LABELrrrrrrtJPSRtECRF
       1100455463 4534405765 6460656440 6245464562 4556434540 6457404566 4154406371 5515151515 t ELSE, OUTPUT REFERENCE TO EVAL SYMrrrr
       1155444162 1143554441 6236461100 4040161355 4441621446 4046576255 4164131715 1152655560 tMDARtCMDAR.Ft   ("MDAR'F FORMAT")rtJUMP
       1136102211 0063535160 1515151515 1515151515 1152606362 1157624546 1100576564 6065644062 t.+2t SKIPrrrrrrrrrrtJPSRtOREFt OUTPUT R
       4546456245 5643454064 5740636441 6445554556 6440544142 4554151515 1515151515 6762512231 EFERENCE TO STATEMENT LABELrrrrrrrrWRI29
       0611554441 6214561164 4555271100 4657626462 4156405151 4043415454 4012151515 1152604156 :tMDAR'NtTEM7t FORTRAN II CALL ?rrrtJPAN
       1167625123 2011005657 3440635351 6015151515 1515151515 1155444162 1163435041 6211007145 tWRI30t NO, SKIPrrrrrrrrrtMDARtSCHARt YE
       6334404445 5451554564 4562403340 4337624012 1515151515 1155447057 1446112125 1515151515 S, DELIMETER = C/R ?rrrrrtMDXO'Ft15rrrrr
       1152605463 1136102211 0056573440 6353516015 1152655560 1167625123 2111007145 6334405657 tJPLSt.+2t NO, SKIPrtJUMPtWRI31t YES, NO
       4051375740 5451636434 4052655560 4064574060 6257434563 6315151515 1515151515 1155447057  I/O LIST, JUMP TO PROCESSrrrrrrrrrtMDXO
       1446112125 1402341100 4445545155 4033404357 5555414012 1515151515 1152605463 1151544743 'Ft15'c,t DELIM = COMMA ?rrrrrtJPLStILGC
       5011005657 3440515454 4547415440 6371566441 7040465762 4046576264 6241564051 5115151515 Ht NO, ILLEGAL SYNTAX FOR FORTRAN IIrrrr
       1515151515 1152606362 1147436364 1100714563 3440474564 4021636440 4350416240 5746405137 rrrrrtJPSRtGCSTt YES, GET 1ST CHAR OF I/
       5740545163 6415151515 1152655560 1151544743 5011005154 5445474154 4051464045 5644405746 O LISTrrrrtJUMPtILGCHt ILLEGAL IF END OF
       4063644164 4555455664 1515151515 1152655560 1167625123 2111004554 6345344057 5334405265  STATEMENTrrrrrtJUMPtWRI31t ELSE, OK, JU
       5560406457 4060625743 4563634054 5163641515 1515151515 6762512320 0611554441 6211634350 MP TO PROCESS LISTrrrrrrrWRI30:tMDARtSCH
       4162110046 5762646241 5640516634 4044455451 5540334062 5147506440 6041624556 4012151515 ARt FORTRAN IV, DELIM = RIGHT PAREN ?rrr
       1155447057 1446110217 1515151515 1152605463 1151544743 5011005657 3440515454 4547415440 tMDXO'Ftc)rrrrrtJPLStILGCHt NO, ILLEGAL 
       4350416241 4364456215 1515151515 1152606362 1147436311 0071456334 4057533440 6245414440 CHARACTERrrrrrrtJPSRtGCSt YES, OK, READ 
       2163644043 5041624057 4640513757 4054516364 1515151515 1515151515 1515151515 7777700000 1ST CHAR OF I/O LISTrrrrrrrrrrrrrrrbbX  
       5317562564 5317562564 5317562564 5317562564 5317562564 5317562564 5317562564 5317562564 K)N5TK)N5TK)N5TK)N5TK)N5TK)N5TK)N5TK)N5T
       5317562564 5317562564                                                                   K)N5TK)N5T
 1615: 0005500014 4664562024 1361200465 3414400000 0040606257 4345636340 6245414437 6762516445  *H 'FTN04"Q0&U,'     PROCESS READ/WRITE
       4051375740 5451636440 3636361515 1515151515 6762512321 0611554441 6211604662 4560110063  I/O LIST ...rrrrrrrWRI31:tMDARtPFREPt S
       4166454051 5651645141 5440605754 5163504063 6441435340 6057515664 4562151515 1141625544 AVE INITIAL POLISH STACK POINTERrrrtARMD
       1164455524 1100404046 5762405441 6445624042 4143533565 6015151515 1141627057 1446111100 tTEM4t   FOR LATER BACK-UPrrrrtARXO'Ftt 
       4354454162 4036363615 1141625544 1164455525 1100404051 5560545145 4440445735 5457576040 CLEAR ...rtARMDtTEM5t   IMPLIED DO-LOOP 
       5445664554 1515151515 1141625544 1457116445 5526110040 4051556054 5145444044 5735564545 LEVELrrrrrtARMD'OtTEM6t   IMPLIED DO-NEE
       4463354350 4151565156 4740465441 4715151515 1515151515 1515151515 0040465162 6364344063 DS-CHAINING FLAGrrrrrrrrrrrrrr  FIRST, S
       4341564056 4570644051 3757405164 4555405762 4063654235 5451636416 6317405746 4051375740 CAN NEXT I/O ITEM OR SUB-LIST(S) OF I/O 
       5164455563 4041564440 6341664540 5156406057 5451635040 3636361515 1515151515 6762512322 ITEMS AND SAVE IN POLISH ...rrrrrrrWRI32
       0611416255 4414571147 4363636611 0063456440 6457406245 3562454144 4054416364 4043504162 :tARMD'OtGCSSVt SET TO RE-READ LAST CHAR
       1515151515 1515151515 6762512323 0611526063 6211474363 6411004745 6440216364 4043504162 rrrrrrrrrrWRI33:tJPSRtGCSTt GET 1ST CHAR
       4057464056 4570644051 3757405164 4555151515 1152655560 1167625122 2011005265 5560405146  OF NEXT I/O ITEMrrrtJUMPtWRI20t JUMP IF
       4045564440 5746406364 4164455545 5664151515 1515151515 1155447057 1446110216 1100636441  END OF STATEMENTrrrrrrrrtMDXO'Ftc(t STA
       6264405746 4044573551 5560545145 4440636542 3554516364 4012151515 1152605463 1167625123 RT OF DO-IMPLIED SUB-LIST ?rrrtJPLStWRI3
       2411005657 3440526555 6040645740 4745644051 3757405164 4555151515 1515151515 1141624162 4t NO, JUMP TO GET I/O ITEMrrrrrrrrtARAR
       1470116445 5525110071 4563344051 5644457040 5155605451 4544404457 4054456645 5415151515 'XtTEM5t YES, INDEX IMPLIED DO LEVELrrrr
       1155444162 1160575457 6021271100 4645644350 4063604543 5141544057 6045624156 4440647160 tMDARtPOLOP17t FETCH SPECIAL OPERAND TYP
       4540334021 2715151515 1152606362 1160656350 6311006065 6350406457 4060575451 6350406457 E = 17rrrrtJPSRtPUSHSt PUSH TO POLISH TO
       4055416253 4044574063 6441626415 1152655560 1167625123 2311005457 5760404657 6240564570  MARK DO STARTrtJUMPtWRI33t LOOP FOR NEX
       6440516445 5540515640 5137574054 5163641515 1515151515 6762512324 0611416255 4414571147 T ITEM IN I/O LISTrrrrrrrWRI34:tARMD'OtG
       4363636611 0063456440 6457406245 3562454144 4054416364 4043504162 1515151515 1141625544 CSSVt SET TO RE-READ LAST CHARrrrrrtARMD
       1457116362 4546471100 6345644046 5762406351 5647544540 6245464562 4556434540 5756547115 'OtSREFGt SET FOR SINGLE REFERENCE ONLYr
       1152606362 1160575451 6350110047 4564406057 5451635040 4657624051 3757405164 4555151515 tJPSRtPOLISHt GET POLISH FOR I/O ITEMrrr
       1152605463 1136102211 0045564440 5746406364 4164455545 5664401215 1152655560 1167625123 tJPLSt.+2t END OF STATEMENT ?rtJUMPtWRI3
       2511007145 6334405265 5560406457 4060625743 4563634051 6445551515 1515151515 1155447057 5t YES, JUMP TO PROCESS ITEMrrrrrrrtMDXO
       1446112211 0056573440 4445545155 4564456240 3340435755 5541401215 1152605463 1136102211 'Ft2t NO, DELIMETER = COMMA ?rtJPLSt.+2t
       0056573440 4350454353 4046576240 5155605451 4544404457 1515151515 1152655560 1167625123  NO, CHECK FOR IMPLIED DOrrrrrtJUMPtWRI3
       2611004554 6345344057 5334405265 5560406457 4060625743 4563634043 5755554115 1515151515 6t ELSE, OK, JUMP TO PROCESS COMMArrrrrr
       1155447057 1446112214 2111004445 5451554564 4562403340 4561654154 4063514756 4012151515 tMDXO'Ft2'1t DELIMETER = EQUAL SIGN ?rrr
       1152605463 1151544743 5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 tJPLStILGCHt NO, ILLEGAL SYNTAXrrrrrrrrr
       1155444162 1164455525 1100714563 3440415671 4051556054 5145444044 5740544566 4554634012 tMDARtTEM5t YES, ANY IMPLIED DO LEVELS ?
       1515151515 1152605463 1136102211 0071456334 4057533440 6353516015 1152655560 1151544743 rrrrrtJPLSt.+2t YES, OK, SKIPrtJUMPtILGC
       5011004554 6345344051 5454454741 5440637156 6441701515 1515151515 1155444162 1451145011 Ht ELSE, ILLEGAL SYNTAXrrrrrrrtMDAR'I'Ht
       6057546364 1100544163 6440515640 6057545163 5040415640 5155605451 4544404457 4063644162 POLSTt LAST IN POLISH AN IMPLIED DO STAR
       6440121515 1155447057 1446112326 2020201515 1152605463 1136102311 0056573440 5753344063 T ?rrtMDXO'Ft36000rrtJPLSt.+3t NO, OK, S
       5351601515 1515151515 1152606362 1145626257 6211004554 6345344046 4164415440 4562625762 KIPrrrrrrrtJPSRtERRORt ELSE, FATAL ERROR
       1515151515 1111456221 3124110040 4016513757 4063654235 5451636440 4555606471 1715151515 rrrrrttER194t   (I/O SUB-LIST EMPTY)rrrr
       1515151515 1155444162 1160575463 6411006341 6645406057 5451635040 6364414353 4060575156 rrrrrtMDARtPOLSTt SAVE POLISH STACK POIN
       6445624046 5762151515 1141625544 1164552111 0040405156 4445705156 4715151515 1515151515 TER FORrrrtARMDtTM1t   INDEXINGrrrrrrrrr
       7777700000 4131566163 4131566163 4131566163 4131566163 4131566163 4131566163 4131566163 bbX  A9NQSA9NQSA9NQSA9NQSA9NQSA9NQSA9NQS
       4131566163 4131566163 4131566163                                                        A9NQSA9NQSA9NQS
 1615: 0005600014 4664562024 1361200465 3414400000 6762512327 0611554441 6214511470 1164552111  *P 'FTN04"Q0&U,'   WRI37:tMDAR'I'XtTM1t
       0042414353 4065604060 5754516350 4063644143 5315151515 1152605463 1136352111 0040406556  BACK UP POLISH STACKrrrrtJPLSt.-1t   UN
       6451544054 4163641515 1141624162 1450144611 1100404040 4065565645 6364454440 5155605451 TIL LASTrrtARAR'H'Ftt     UNNESTED IMPLI
       4544404457 1515151515 1155447057 1446112326 2020201100 4040404040 4063644162 6440465765 ED DOrrrrrtMDXO'Ft36000t       START FOU
       5644151515 1152605463 1167625123 2715151515 1515151515 1155444162 1451116455 2111004645 NDrrrtJPLStWRI37rrrrrrrrrtMDAR'ItTM1t FE
       6443504044 5740636441 6264405760 4562415644 1515151515 1155444162 1457116057 5463641100 TCH DO START OPERANDrrrrrtMDAR'OtPOLSTt 
       4357554251 5645406057 5156644562 4064574044 5740605754 5163501515 1141625544 1451116455 COMBINE POINTER TO DO POLISHrrtARMD'ItTM
       2111006341 6645151515 1152606362 1147456444 5711004745 6440445740 5457576040 6057545163 1t SAVErrrtJPSRtGETDOt GET DO LOOP POLIS
       5015151515 1155447057 1446112311 0045564445 4440575640 6251475064 4060416245 5640121515 HrrrrtMDXO'Ft3t ENDED ON RIGHT PAREN ?rr
       1152605463 1151544743 5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 tJPLStILGCHt NO, ILLEGAL SYNTAXrrrrrrrrr
       1155444162 1456116445 5525110044 4543624555 4556644043 6562624556 6440515560 5451454440 tMDAR'NtTEM5t DECREMENT CURRENT IMPLIED 
       4457405445 6645541515 1155444163 1446112115 1141625544 1456116445 5525151515 1152606362 DO LEVELrrtMDAS'Ft1rtARMD'NtTEM5rrrtJPSR
       1147436364 1100474564 4044455451 5545644562 1515151515 1152655560 1167625123 2511004757 tGCSTt GET DELIMETERrrrrrtJUMPtWRI35t GO
       4060625743 4563634051 4640455644 4057464063 6441644555 4556641515 1515151515 1155447057  PROCESS IF END OF STATEMENTrrrrrrrtMDXO
       1446110234 1100455463 4534405163 4051644041 4043575555 4140121515 1152605463 1151544743 'Ftc,t ELSE, IS IT A COMMA ?rrtJPLStILGC
       5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 6762512326 0611526063 Ht NO, ILLEGAL SYNTAXrrrrrrrrrWRI36:tJPS
       6211474363 6411004745 6440564570 6440435041 6240414664 4562404357 5555411515 1152655560 RtGCSTt GET NEXT CHAR AFTER COMMArrtJUMP
       1151544743 5011005154 5445474154 4051464056 5756451515 1515151515 6762512325 0611554441 tILGCHt ILLEGAL IF NONErrrrrrrWRI35:tMDA
       6211644555 2511006751 6450515640 4156405155 6054514544 4044574054 5163644012 1515151515 RtTEM5t WITHIN AN IMPLIED DO LIST ?rrrrr
       1152605463 1167625123 2211007145 6334406245 4144405645 7064405164 4555405156 4054516364 tJPLStWRI32t YES, READ NEXT ITEM IN LIST
       1515151515 1515151515 1155444162 1164455524 1100455463 4534404645 6443504063 6441626440 rrrrrrrrrrtMDARtTEM4t ELSE, FETCH START 
       5746406057 5451635040 6364414353 1515151515 1141625544 1160466245 6011006245 4357664562 OF POLISH STACKrrrrrtARMDtPFREPt RECOVER
       4060575451 6350406364 5762414745 1515151515 1515151515 1515151515 0040565767 4057656460  POLISH STORAGErrrrrrrrrrrrrrr  NOW OUTP
       6564404357 4445404657 6240415454 4051375740 5164455563 4043656262 4556645471 4063416645 UT CODE FOR ALL I/O ITEMS CURRENTLY SAVE
       4440515640 6057545163 5040363636 1515151515 1515151515 6762512330 0611554441 6314461456 D IN POLISH ...rrrrrrrrrrWRI38:tMDAS'F'N
       1121110047 4564406064 6240645740 5645706440 5137574051 6445554051 5640605754 5163501515 t1t GET PTR TO NEXT I/O ITEM IN POLISHrr
       1141625544 1145666064 6211006341 6645151515 1155444163 1446145611 2211004144 5265636440 tARMDtEVPTRt SAVErrrtMDAS'F'Nt2t ADJUST 
       6064624046 5762405156 4445705156 4715151515 1141625544 1164455527 1100415644 4063416645 PTR FOR INDEXINGrrrrtARMDtTEM7t AND SAVE
       1515151515 1155444162 1451145011 4566606462 1100464564 4350405645 7064406057 5451635040 rrrrrtMDAR'I'HtEVPTRt FETCH NEXT POLISH 
       5164455515 1155447057 1446112324 2020201100 6360454351 4154404556 4435574635 4457405760 ITEMrtMDXO'Ft34000t SPECIAL END-OF-DO OP
       4562415644 4012151515 1152605463 1167625124 2111005657 3440635351 6015151515 1515151515 ERAND ?rrrtJPLStWRI41t NO, SKIPrrrrrrrrr
       1155444162 1451114566 6064621100 7145633440 4745644060 5751566445 6240645740 5645706440 tMDAR'ItEVPTRt YES, GET POINTER TO NEXT 
       6364414353 4051644555 1515151515 1155444162 1441114155 4163531100 4040414664 4562406062 STACK ITEMrrrrrtMDAR'AtAMASKt   AFTER PR
       4566405765 6460656440 4457405457 5760406057 5451635015 1141625544 1145666064 6211004156 EV OUTPUT DO LOOP POLISHrtARMDtEVPTRt AN
       4440634166 4540465762 4056457064 4064515545 1515151515 1155444162 1164455526 1100516340 D SAVE FOR NEXT TIMErrrrrtMDARtTEM6t IS 
       6450516340 4156405765 6445624056 4563644544 4044574012 1515151515 1152604156 1167625123 THIS AN OUTER NESTED DO ?rrrrrtJPANtWRI3
       3111005657 3440635351 6015151515 1515151515 1155444162 1157545743 1100714563 3440634166 9t NO, SKIPrrrrrrrrrtMDARtOLOCt YES, SAV
       4540436562 6245566440 5457434043 5765566445 6215151515 1141625544 1164455531 1515151515 E CURRENT LOC COUNTERrrrrtARMDtTEM9rrrrr
       1152604156 1136102411 0063535160 4057656460 6564404462 5760604544 1515151515 1515151515 tJPANt.+4t SKIP OUTPUT DROPPEDrrrrrrrrrr
       7777700000 1273750162 1273750162 1273750162 1273750162 1273750162 1273750162 1273750162 bbX  ?$@%R?$@%R?$@%R?$@%R?$@%R?$@%R?$@%R
       1273750162 1273750162 1273750162                                                        ?$@%R?$@%R?$@%R
 1780: 0005700014 4664562024 1361200526 3414400000 1155444162 1451116445 5527110046 4564435040  *X 'FTN04"Q0*6,'   tMDAR'ItTEM7t FETCH 
       4144446245 6363405746 4064576040 5746406450 5163405457 5760151515 1155444162 1441114155 ADDRESS OF TOP OF THIS LOOPrrrtMDAR'AtAM
       4163531100 5541635315 1141625544 1157545743 1100634564 4041634043 6562624556 6440544340 ASKt MASKrtARMDtOLOCt SET AS CURRENT LC 
       4657624043 5041515651 5647151515 1515151515 1155444162 1164455526 1100464564 4350404144 FOR CHAININGrrrrrrrrtMDARtTEM6t FETCH AD
       4462456363 4057464051 5656456240 5457576040 4570516415 1152606362 1143504151 5611004350 DRESS OF INNER LOOP EXITrtJPSRtCHAINt CH
       4151564043 6562624556 6440135443 1340645740 5164151515 1155444162 1164455531 1100624563 AIN CURRENT "LC" TO ITrrrtMDARtTEM9t RES
       6457624540 6462654540 5443151515 1141625544 1157545743 1515151515 1152655560 1167625124 TORE TRUE LCrrrtARMDtOLOCrrrrrtJUMPtWRI4
       2011005265 5560406457 4063456440 5645674044 5740457051 6440465762 4043504151 5651564715 0t JUMP TO SET NEW DO EXIT FOR CHAININGr
       1515151515 6762512331 0611554441 6214511164 4555271100 5156564562 5557636440 4457344047 rrrrrWRI39:tMDAR'ItTEM7t INNERMOST DO, G
       4564406457 6040574640 5457576040 4144446215 1155444162 1441114155 4163531100 5541635315 ET TOP OF LOOP ADDRrtMDAR'AtAMASKt MASKr
       1155444162 1457145011 4324201100 4357554251 5645405265 5560405156 6364621515 1152606362 tMDAR'O'HtC40t COMBINE JUMP INSTRrrtJPSR
       1157624554 1100576564 6065644052 6555604064 5740645760 4057464054 5757601515 1515151515 tORELt OUTPUT JUMP TO TOP OF LOOPrrrrrrr
       6762512420 0611554441 6214511450 1164455527 1100464564 4350404144 4462405746 4013526041 WRI40:tMDAR'I'HtTEM7t FETCH ADDR OF "JPA
       5613404570 5164404657 6240545757 6015151515 1155444162 1441114155 4163531100 5541635315 N" EXIT FOR LOOPrrrrtMDAR'AtAMASKt MASKr
       1141625544 1164455526 1100415644 4063456440 4657624056 4570644043 5041515635 4241435315 tARMDtTEM6t AND SET FOR NEXT CHAIN-BACKr
       1155444162 1451147011 6445552711 0062456364 5762454063 4166454440 6445556040 6364576241 tMDAR'I'XtTEM7t RESTORE SAVED TEMP STORA
       4745405541 6253151515 1141625544 1164455544 5711004040 4164406457 6040574640 5457576015 GE MARKrrrtARMDtTEMDOt   AT TOP OF LOOPr
       1155444162 1456116445 5525110044 4543624555 4556644051 5560545145 4440445740 5445664554 tMDAR'NtTEM5t DECREMENT IMPLIED DO LEVEL
       1515151515 1155444163 1446112115 1141625544 1456116445 5525151515 1152655560 1167625121 rrrrrtMDAS'Ft1rtARMD'NtTEM5rrrtJUMPtWRI1
       3111005265 5560404657 6240564570 6440513757 4051644555 1515151515 1515151515 6762512421 9t JUMP FOR NEXT I/O ITEMrrrrrrrrrrWRI41
       0611554441 6211644555 4457110062 4563645762 4540644555 6040636457 6241474540 6064624064 :tMDARtTEMDOt RESTORE TEMP STORAGE PTR T
       5740544163 6415151515 1141625544 1164455560 6411004040 4457405541 6253151515 1155444162 O LASTrrrrtARMDtTEMPTt   DO MARKrrrtMDAR
       1164455526 1100544163 6440516445 5540674163 4041564051 5560545145 4440445740 4556444012 tTEM6t LAST ITEM WAS AN IMPLIED DO END ?
       1515151515 1152604156 1136102311 0056573440 6353516015 1515151515 1152606362 1143504151 rrrrrtJPANt.+3t NO, SKIPrrrrrrtJPSRtCHAI
       5611007145 6334404350 4151564042 4143534043 6562624054 4340645740 5164634045 7051641515 Nt YES, CHAIN BACK CURR LC TO ITS EXITrr
       1141625544 1457116445 5526110041 5644406345 6440565740 6045564451 5647404457 4043504151 tARMD'OtTEM6t AND SET NO PENDING DO CHAI
       5615151515 1515151515 1155444162 1451145011 4566606462 1100464564 4350404365 6262455664 NrrrrrrrrrtMDAR'I'HtEVPTRt FETCH CURRENT
       4060575451 6350405164 4555151515 1155447057 1446112326 2020201100 6364416264 4057464051  POLISH ITEMrrrtMDXO'Ft36000t START OF I
       5560545145 4440445740 5457576040 1215151515 1152605463 1167625124 2211005657 3440526555 MPLIED DO LOOP ?rrrrtJPLStWRI42t NO, JUM
       6040465762 4051375740 4554455545 5664151515 1515151515 1155444162 1145666064 6211007145 P FOR I/O ELEMENTrrrrrrrrtMDARtEVPTRt YE
       6334406341 6645404365 6262455664 4063644143 5340605751 5664456215 1141625544 1164455531 S, SAVE CURRENT STACK POINTERrtARMDtTEM9
       1515151515 1155444162 1451114566 6064621100 4745644060 5751566445 6240645740 4457406057 rrrrrtMDAR'ItEVPTRt GET POINTER TO DO PO
       5451635015 1155444162 1441114155 4163531100 5541635315 1141625544 1145666064 6211006341 LISHrtMDAR'AtAMASKt MASKrtARMDtEVPTRt SA
       6645404657 6240456641 5465416451 5756151515 1155444163 1446145611 2311004445 4362455545 VE FOR EVALUATIONrrrtMDAS'F'Nt3t DECREME
       5664404657 6240544164 4562405156 4445705156 4715151515 1141625544 1164455527 1100415644 NT FOR LATER INDEXINGrrrrtARMDtTEM7t AND
       4063416645 4060575156 6445621515 1155444162 1164455544 5711006341 6645404365 6262455664  SAVE POINTERrrtMDARtTEMDOt SAVE CURRENT
       4064455560 4063645762 4147454054 4566455415 1141625544 1451116445 5531151515 1141627057  TEMP STORAGE LEVELrtARMD'ItTEM9rrrtARXO
       1446111100 4354454162 4041624046 5762405645 6740445740 5457576015 1152606362 1142454744 'Ftt CLEAR AR FOR NEW DO LOOPrtJPSRtBEGD
       5711005765 6460656440 4457405457 5760404357 4445151515 1155444162 1145666064 6211004040 Ot OUTPUT DO LOOP CODErrrtMDARtEVPTRt   
       1646625755 4044574054 5757604060 5754516350 1715151515 1141625544 1451116445 5527110063 (FROM DO LOOP POLISH)rrrrtARMD'ItTEM7t S
       4166454044 5740605751 5664456263 4057664562 4057544440 4457406057 5451635015 1155444162 AVE DO POINTERS OVER OLD DO POLISHrtMDAR
       1451116445 5531110041 5463574063 4166454064 4555604063 6457624147 4540554162 5340416415 'ItTEM9t ALSO SAVE TEMP STORAGE MARK ATr
       1141625544 1451147011 6445552711 0040406457 6040574640 6450516340 4457405457 5760151515 tARMD'I'XtTEM7t   TOP OF THIS DO LOOPrrr
       1515151515 7777700000 0576577420 0576577420 0576577420 0576577420 0576577420 0576577420 rrrrrbbX  *+O#0*+O#0*+O#0*+O#0*+O#0*+O#0
       0576577420 0576577420 0576577420 0576577420                                             *+O#0*+O#0*+O#0*+O#0
 1595: 0006000014 4664562024 1361200461 3414400000 1155444162 1450114245 4760231100 4645644350  :  'FTN04"Q0&Q,'   tMDAR'HtBEGP3t FETCH
       4060646240 6457404556 4440574640 4457406057 5451635015 1155444163 1446112324 2020201100  PTR TO END OF DO POLISHrtMDAS'Ft34000t 
       4357554251 5645404465 5555714057 6045624156 4440647160 4540334021 2615151515 1141625544 COMBINE DUMMY OPERAND TYPE = 16rrrrtARMD
       1451147014 5011644555 2711006341 6645404163 4044573545 5644405164 4555405156 4060575451 'I'X'HtTEM7t SAVE AS DO-END ITEM IN POLI
       6350151515 1155444162 1164455531 1100624563 6457624540 6364414353 4060575156 6445621515 SHrrrtMDARtTEM9t RESTORE STACK POINTERrr
       1141625544 1145666064 6215151515 1141624162 1470116445 5525110051 5644457040 5155605451 tARMDtEVPTRrrrrtARAR'XtTEM5t INDEX IMPLI
       4544404457 4054456645 5415151515 1152655560 1167625121 3111005265 5560404657 6240564570 ED DO LEVELrrrrtJUMPtWRI19t JUMP FOR NEX
       6440513757 4051644555 1515151515 1515151515 6762512422 0611554441 6214561164 4555221100 T I/O ITEMrrrrrrrrrrWRI42:tMDAR'NtTEM2t 
       6556465762 5541646445 4440513757 4012151515 1152604156 1136102411 0056573440 6353516040 UNFORMATTED I/O ?rrrtJPANt.+4t NO, SKIP 
       6457404745 6440513757 4043415454 1515151515 1515151515 1155444162 1454111100 7145633440 TO GET I/O CALLrrrrrrrrrrtMDAR'Ltt YES, 
       4645644350 4065564657 6255416464 4544404341 5454151515 1152606362 1124515765 1515151515 FETCH UNFORMATTED CALLrrrtJPSRt4IOUrrrrr
       1152655560 1167625121 2411004156 4440526555 6040645740 6062574345 6363151515 1515151515 tJUMPtWRI14t AND JUMP TO PROCESSrrrrrrrr
       1155444162 1451145011 4566606462 1100464564 4350406371 5542575414 6340444164 4140647160 tMDAR'I'HtEVPTRt FETCH SYMBOL'S DATA TYP
       4515151515 1155444162 1441144611 2711005541 6353151515 1155447057 1446112211 0062454154 ErrrrtMDAR'A'Ft7t MASKrrrtMDXO'Ft2t REAL
       4012151515 1154637057 1143241100 5762404357 5560544570 4012151515 1152605463 1136102411  ?rrrtLSXOtC4t OR COMPLEX ?rrrtJPLSt.+4t
       0056573440 6353516015 1515151515 1155444162 1454111100 7145633440 4645644350 4062454154  NO, SKIPrrrrrrtMDAR'Ltt YES, FETCH REAL
       4057646340 4341545415 1152606362 1124515762 1515151515 1152655560 1167625121 2411004156  OTS CALLrtJPSRt4IORrrrrrtJUMPtWRI14t AN
       4440526555 6040645740 6062574345 6363151515 1515151515 1155447057 1446112614 2511004457 D JUMP TO PROCESSrrrrrrrrtMDXO'Ft6'5t DO
       6542544540 6062454351 6351575640 1215151515 1152605463 1167625121 2342110056 5734406353 UBLE PRECISION ?rrrrtJPLStWRI13Bt NO, SK
       5160151515 1515151515 1152606362 1145626257 6211007145 6334406741 6256515647 4045626257 IPrrrrrrrrtJPSRtERRORt YES, WARNING ERRO
       6215151515 1111456221 3126110040 4016443560 4051375740 5657644071 4564405155 6054455545 RrrrrttER196t   (D-P I/O NOT YET IMPLEME
       5664454417 1515151515 1155444162 1454111100 4645644350 4062454154 4057646340 4341545440 NTED)rrrrrtMDAR'Ltt FETCH REAL OTS CALL 
       1646576240 5657671715 1152606362 1124515762 1100404016 4350415647 4540645740 2451574440 (FOR NOW)rtJPSRt4IORt   (CHANGE TO 4IOD 
       6750455640 4166415154 4142544517 1515151515 1152655560 1167625121 2411004156 4440526555 WHEN AVAILABLE)rrrrrtJUMPtWRI14t AND JUM
       6040645740 6062574345 6363151515 1515151515 6762512123 4206115544 7057144611 2514231100 P TO PROCESSrrrrrrrrWRI13B:tMDXO'Ft5'3t 
       4662414364 5157564012 1515151515 1152605463 1167625121 2341110056 5734405565 6364406563 FRACTION ?rrrrrtJPLStWRI13At NO, MUST US
       4540515664 4547456234 4063535160 1515151515 1515151515 1155444162 1164455521 1100624541 E INTEGER, SKIPrrrrrrrrrrtMDARtTEM1t REA
       4440576240 6762516445 4012151515 1141564162 1143221100 6762516445 3440515643 5465444540 D OR WRITE ?rrrtANARtC2t WRITE, INCLUDE 
       2446645762 1515151515 1155444145 1446112462 6457461100 6245414434 4051564354 6544454024 4FTORrrrrrtMDAE'Ft4RTOFt READ, INCLUDE 4
       6264574615 1152606362 1151564354 4411005156 4354654445 4057646340 4662414364 5157563562 RTOFrtJPSRtINCLDt INCLUDE OTS FRACTION-R
       4541544043 5756664562 6351575615 1515151515 1155444162 1454111100 4645644350 4046624143 EAL CONVERSIONrrrrrrtMDAR'Ltt FETCH FRAC
       6451575640 5764634043 4154541515 1152606362 1124515746 1515151515 1152655560 1167625121 TION OTS CALLrrtJPSRt4IOFrrrrrtJUMPtWRI1
       2415151515 1515151515 6762512123 4106115544 4162145611 6445552311 0056576440 6245415440 4rrrrrrrrrWRI13A:tMDAR'NtTEM3t NOT REAL 
       5762404662 4143645157 5634404662 4545404657 6255416440 1215151515 1152604156 1167625121 OR FRACTION, FREE FORMAT ?rrrrtJPANtWRI1
       2343110056 5734406353 5160151515 1515151515 1155444162 1456116445 5521110071 4563344062 3Ct NO, SKIPrrrrrrrrtMDAR'NtTEM1t YES, R
       4541444057 6240676251 6445401215 1141564162 1143221100 6245414434 4051564354 6544454024 EAD OR WRITE ?rtANARtC2t READ, INCLUDE 4
       6264575115 1155444145 1446112451 6457621100 6762516445 3440515643 5465444540 2451645762 RTOIrtMDAE'Ft4ITORt WRITE, INCLUDE 4ITOR
       1515151515 1152606362 1151564354 4411005156 4354654445 4057646340 5156644547 4562356245 rrrrrtJPSRtINCLDt INCLUDE OTS INTEGER-RE
       4154404357 5666456263 5157561515 1515151515 7777700000 4500726234 4500726234 4500726234 AL CONVERSIONrrrrrrrbbX  E ZR,E ZR,E ZR,
       4500726234 4500726234 4500726234 4500726234 4500726234 4500726234 4500726234            E ZR,E ZR,E ZR,E ZR,E ZR,E ZR,E ZR,
 1760: 0006100014 4664562024 1361200522 3414400000 6762512123 4306115544 4162145411 1100565764  :+ 'FTN04"Q0*2,'   WRI13C:tMDAR'Ltt NOT
       4062454154 4057624046 6241436451 5756344065 6345151515 1152606362 1124515751 1100404051  REAL OR FRACTION, USErrrtJPSRt4IOIt   I
       5664454745 6240513757 4057646340 4341545415 1515151515 6762512124 0611416255 4411676251 NTEGER I/O OTS CALLrrrrrrWRI14:tARMDtWRI
       2130102111 0063416645 4057646340 4341545440 4657624051 3757405164 4555151515 1141625544 18+1t SAVE OTS CALL FOR I/O ITEMrrrtARMD
       1167625121 2611004154 6357405146 4041626241 7140545163 6440434154 5415151515 1155444162 tWRI16t ALSO IF ARRAY LIST CALLrrrrtMDAR
       1451147011 6445552711 0046456443 5040564570 6440605754 5163504051 6445554041 4664456240 'I'XtTEM7t FETCH NEXT POLISH ITEM AFTER 
       6371554257 5415151515 1141625544 1164455531 1100634166 4540465762 4041626241 7140644563 SYMBOLrrrrtARMDtTEM9t SAVE FOR ARRAY TES
       6415151515 1155444162 1145666064 6211004645 6443504060 6462406457 4051375740 5164455515 TrrrrtMDARtEVPTRt FETCH PTR TO I/O ITEMr
       1152606362 1145664154 1100456641 5465416445 4051375740 5164455515 1156575760 1515151515 tJPSRtEVALt EVALUATE I/O ITEMrtNOOPrrrrr
       1155444162 1450116445 5531110056 5756356365 4263436251 6064454440 5164455540 1215151515 tMDAR'HtTEM9t NON-SUBSCRIPTED ITEM ?rrrr
       1155447057 1446112420 2020201515 1152605463 1167625121 2511005657 3440635351 6015151515 tMDXO'Ft40000rrtJPLStWRI15t NO, SKIPrrrr
       1515151515 1155444162 1451114566 5760221100 7145633440 4645644350 4063556441 4240605751 rrrrrtMDAR'ItEVOP2t YES, FETCH SMTAB POI
       5664456215 1155444162 1441144611 2727272727 1100554163 5315151515 1141625544 1164455527 NTERrtMDAR'A'Ft77777t MASKrrrrtARMDtTEM7
       1100634166 4515151515 1155444162 1451145311 6445552711 0046456443 5040637155 4257544064 t SAVErrrrtMDAR'I'KtTEM7t FETCH SYMBOL T
       7160451515 1155444162 1441144611 2720110041 6262417140 1215151515 1155447057 1446112220 YPErrtMDAR'A'Ft70t ARRAY ?rrrrtMDXO'Ft20
       1515151515 1152605463 1167625121 2511005657 3440635351 6040465762 4063515647 5445405164 rrrrrtJPLStWRI15t NO, SKIP FOR SINGLE IT
       4555404341 5454151515 1515151515 1155444162 1164455527 1100714563 3440464564 4350406371 EM CALLrrrrrrrrtMDARtTEM7t YES, FETCH SY
       5542575440 6441425445 4060575156 6445621515 1152606362 1157605445 5611005765 6460656440 MBOL TABLE POINTERrrtJPSRtOPLENt OUTPUT 
       4357444540 6457404357 5560656445 4054455647 6450151515 1111352011 0040401644 5756146440 CODE TO COMPUTE LENGTHrrrtt-0t   (DON'T 
       4457654254 4540443560 4054455647 6450171515 1152655560 1136102211 0063535160 4051464041 DOUBLE D-P LENGTH)rrtJUMPt.+2t SKIP IF A
       5671404357 5560656441 6451575615 1152655560 1167625121 2441110045 5463453440 5265556040 NY COMPUTATIONrtJUMPtWRI14At ELSE, JUMP 
       6457406341 6645404162 4740515663 6462654364 5157561515 1515151515 1152606362 1147644555 TO SAVE ARG INSTRUCTIONrrrrrrrtJPSRtGTEM
       6011004745 6440644555 6040434554 5440645740 6341664540 4162624171 4054455647 6450151515 Pt GET TEMP CELL TO SAVE ARRAY LENGTHrrr
       1155444162 1457114341 6255441100 4357554251 5645406364 5762454051 5663646215 1152606362 tMDAR'OtCARMDt COMBINE STORE INSTRrtJPSR
       1157624546 1100636457 6245404162 4051564064 4555604043 4554541515 1155444162 1164455560 tOREFt STORE AR IN TEMP CELLrrtMDARtTEMP
       6411004645 6443504064 4555604064 4142544540 6057515664 4562151515 1155444162 1457114355 Tt FETCH TEMP TABLE POINTERrrrtMDAR'OtCM
       4441621100 4357554251 5645401355 4441621340 4657624057 6463404162 4715151515 1515151515 DARt COMBINE "MDAR" FOR OTS ARGrrrrrrrrr
       6762512124 4106114162 5544116445 5531110063 4166454046 4564435040 5156636462 4046576240 WRI14A:tARMDtTEM9t SAVE FETCH INSTR FOR 
       4162624171 4054455647 6450151515 1155444162 1145665760 2211004645 6443504063 7155425754 ARRAY LENGTHrrrtMDARtEVOP2t FETCH SYMBOL
       4060575156 6445621515 1152606362 1145436246 1100576564 6065644062 4546456245 5643451515  POINTERrrtJPSRtECRFt OUTPUT REFERENCErr
       1155444162 1143554441 6236461100 4040161355 4441621446 4041626241 7113171515 1152606362 tMDARtCMDAR.Ft   ("MDAR'F ARRAY")rrtJPSR
       1157637162 4611005765 6460656440 5764634043 4154544046 5762405451 6364405746 4051375715 tOSYRFt OUTPUT OTS CALL FOR LIST OF I/Or
       1152606362 1124545163 6411004040 5164455563 1515151515 1155444162 1164455531 1100414263 tJPSRt4LISTt   ITEMSrrrrrtMDARtTEM9t ABS
       5754656445 4054455647 6450404645 6443504012 1515151515 1152604156 1136102311 0071456334 OLUTE LENGTH FETCH ?rrrrrtJPANt.+3t YES,
       4063535160 1515151515 1515151515 1152606362 1157624546 1100455463 4534405765 6460656440  SKIPrrrrrrrrrrtJPSRtOREFt ELSE, OUTPUT 
       1355444162 1340515663 6462151515 1152655560 1167625121 3011004156 4440635351 6040645740 "MDAR" INSTRrrrtJUMPtWRI18t AND SKIP TO 
       5765646065 6440513757 4043415454 4041624765 5545566415 1515151515 1152606362 1157414263 OUTPUT I/O CALL ARGUMENTrrrrrrtJPSRtOABS
       1100455463 4534405765 6460656440 1355444162 1446134051 5663646215 1152655560 1167625121 t ELSE, OUTPUT "MDAR'F" INSTRrtJUMPtWRI1
       3011006353 5160406457 4057656460 6564405137 5740434154 5440416247 6555455664 1515151515 8t SKIP TO OUTPUT I/O CALL ARGUMENTrrrrr
       1515151515 6762512125 0611554441 6214511450 1145665760 2211004645 6443504063 5156475445 rrrrrWRI15:tMDAR'I'HtEVOP2t FETCH SINGLE
       4062456365 5464405760 4562415644 1515151515 1155444162 1441144611 2711005541 6353405164  RESULT OPERANDrrrrrtMDAR'A'Ft7t MASK IT
       6340444164 4140647160 4515151515 1155447057 1446112611 0043575560 5445704012 1515151515 S DATA TYPErrrrtMDXO'Ft6t COMPLEX ?rrrrr
       1152605463 1136102311 0056573440 6353516015 1515151515 7777700000 4510717601 4510717601 tJPLSt.+3t NO, SKIPrrrrrrbbX  E+Y+%E+Y+%
       4510717601 4510717601 4510717601 4510717601 4510717601 4510717601 4510717601 4510717601 E+Y+%E+Y+%E+Y+%E+Y+%E+Y+%E+Y+%E+Y+%E+Y+%
 1295: 0006200014 4664562024 1361200365 3414400000 1155444162 1446112211 0045546345 3440556563  :0 'FTN04"Q0!U,'   tMDAR'Ft2t ELSE, MUS
       6440513757 4064675740 6757624463 1515151515 1152655560 1167625121 2441110052 6555604046 T I/O TWO WORDSrrrrrtJUMPtWRI14At JUMP F
       5762405451 6364405137 5715151515 1515151515 1155444162 1164455521 1100624541 4440576240 OR LIST I/OrrrrrrrrrtMDARtTEM1t READ OR 
       6762516445 4012151515 1152604156 1167625121 2711005265 5560405146 4067625164 4515151515 WRITE ?rrrtJPANtWRI17t JUMP IF WRITErrrr
       1515151515 1152606362 1157637162 4611004554 6345344057 6564606564 4057646340 5137574043 rrrrrtJPSRtOSYRFt ELSE, OUTPUT OTS I/O C
       4154541515 6762512126 0611526063 6215151515 1155444162 1145665760 2211005765 6460656440 ALLrrWRI16:tJPSRrrrrtMDARtEVOP2t OUTPUT 
       6245464562 4556434540 6457406364 5762454051 5640516445 5515151515 1152606362 1145436246 REFERENCE TO STORE IN ITEMrrrrtJPSRtECRF
       1515151515 1155444162 1143416255 4415151515 1152655560 1167625121 3111006353 5160404657 rrrrrtMDARtCARMDrrrrtJUMPtWRI19t SKIP FO
       6240564570 6440516445 5515151515 1515151515 6762512127 0611554441 6211456657 6022110057 R NEXT ITEMrrrrrrrrrWRI17:tMDARtEVOP2t O
       6564606564 4062454645 6245564345 4064574046 4564435040 5164455515 1152606362 1145436246 UTPUT REFERENCE TO FETCH ITEMrtJPSRtECRF
       1515151515 1155444162 1143554441 6215151515 1515151515 6762512130 0611526063 6211576371 rrrrrtMDARtCMDARrrrrrrrrrWRI18:tJPSRtOSY
       6246110057 6564606564 4051375740 4341545415 1152606362 1515151515 1515151515 6762512131 RFt OUTPUT I/O CALLrtJPSRrrrrrrrrrrWRI19
       0611554441 6211644555 2511006364 5154544060 6257434563 6351564740 5155605451 4544404457 :tMDARtTEM5t STILL PROCESSING IMPLIED DO
       4054516364 4012151515 1152605463 1136102211 0071456334 4063535160 1515151515 1152655560  LIST ?rrrtJPLSt.+2t YES, SKIPrrrrrtJUMP
       1167625123 2211004554 6345344052 6555604042 4143534064 5740634341 5640555762 4540516445 tWRI32t ELSE, JUMP BACK TO SCAN MORE ITE
       5563151515 1515151515 1155444162 1145666064 6211004645 6443504060 6462406457 4056457064 MSrrrrrrrrtMDARtEVPTRt FETCH PTR TO NEXT
       4063644143 5340516445 5515151515 1152655560 1167625123 3011004156 4440526555 6040424143  STACK ITEMrrrrtJUMPtWRI38t AND JUMP BAC
       5340645740 5765646064 4056457064 4051375740 5164455515 1515151515 6762512220 0611554441 K TO OUTPT NEXT I/O ITEMrrrrrrWRI20:tMDA
       6211644555 2511005756 4045564434 4041567140 6556564563 6445444051 5560545145 4440445714 RtTEM5t ON END, ANY UNNESTED IMPLIED DO'
       6340121515 1152635463 1145626257 6211007145 6334404641 6441544045 6262576215 1111456221 S ?rrtJSLStERRORt YES, FATAL ERRORrttER1
       3125110040 4016655656 4563644544 4063654235 5451636463 1715151515 1515151515 1155444162 95t   (UNNESTED SUB-LISTS)rrrrrrrrrtMDAR
       1164455526 1100455463 4534405753 3440655643 5041515645 4440445740 5441636440 1215151515 tTEM6t ELSE, OK, UNCHAINED DO LAST ?rrrr
       1152604156 1136102211 0056573440 6353516015 1152606362 1143504151 5611007145 6334404350 tJPANt.+2t NO, SKIPrtJPSRtCHAINt YES, CH
       4151564042 4143534043 6562624556 6440544340 6457405164 1515151515 1515151515 1152606362 AIN BACK CURRENT LC TO ITrrrrrrrrrrtJPSR
       1157637162 4611005765 6460656440 4651564154 4057646340 4341545415 1152606362 1124564415 tOSYRFt OUTPUT FINAL OTS CALLrtJPSRt4NDr
       1155444162 1456116445 5530110045 5643574445 4057624044 4543574445 4012151515 1152604156 tMDAR'NtTEM8t ENCODE OR DECODE ?rrrtJPAN
       1167625122 2111005657 3440635351 6015151515 1515151515 1155444162 1446112111 0045546345 tWRI21t NO, SKIPrrrrrrrrrtMDAR'Ft1t ELSE
       3440576564 6065644043 5457634540 4341545440 1657564540 4162471715 1152606362 1157414263 , OUTPUT CLOSE CALL (ONE ARG)rtJPSRtOABS
       1515151515 1152606362 1157637162 4615151515 1152606362 1124435463 4515151515 1152606362 rrrrrtJPSRtOSYRFrrrrtJPSRt4CLSErrrrtJPSR
       1157655651 6411005765 6460656440 6556516440 5665554245 6215151515 1152655560 1163644654 tOUNITt OUTPUT UNIT NUMBERrrrrtJUMPtSTFL
       5711006245 6465625640 4156444063 4564406062 5747624155 4046545767 1515151515 1515151515 Ot RETURN AND SET PROGRAM FLOWrrrrrrrrrr
       7777700000 2011661540 2011661540 2011661540 2011661540 2011661540 2011661540 2011661540 bbX  0tVr 0tVr 0tVr 0tVr 0tVr 0tVr 0tVr 
       2011661540 2011661540 2011661540                                                        0tVr 0tVr 0tVr 
 1615: 0006300014 4664562024 1361200465 3414400000 6762512221 0611554441 6211564462 4621110013  :8 'FTN04"Q0&U,'   WRI21:tMDARtNDRF1t "
       4556443313 4063604543 5146514544 4012151515 1152606362 1156446262 6311007145 6334406245 END=" SPECIFIED ?rrrtJPSRtNDRRSt YES, RE
       6364576245 4057646340 6041644350 4046576240 4556444046 5154451515 6762512222 0611416255 STORE OTS PATCH FOR END FILErrWRI22:tARM
       4411244562 2227110040 4016576463 4045626257 6240565736 4022274050 5757531715 1515151515 Dt4ER27t   (OTS ERROR NO. 27 HOOK)rrrrrr
       1155444162 1156446246 2211001345 6262331340 6360454351 4651454440 1215151515 1152606362 tMDARtNDRF2t "ERR=" SPECIFIED ?rrrrtJPSR
       1156446262 6311007145 6334406245 6364576245 4057646340 6041644350 4046576240 6556516440 tNDRRSt YES, RESTORE OTS PATCH FOR UNIT 
       4562621515 6762512223 0611416255 4411244562 2226110040 4016576463 4045626257 6240565736 ERRrrWRI23:tARMDt4ER26t   (OTS ERROR NO.
       4022264050 5757531715 1515151515 1152655560 1163644654 5711004457 5645344062 4564656256  26 HOOK)rrrrrrtJUMPtSTFLOt DONE, RETURN
       4064574063 4564406062 5747624155 4046545767 1515151515 1515151515 1515151515 0040455643  TO SET PROGRAM FLOWrrrrrrrrrrrrrrr  ENC
       5744453744 4543574445 4063644164 4555455664 6340363636 1515151515 1515151515 4556435744 ODE/DECODE STATEMENTS ...rrrrrrrrrrENCOD
       0611554441 6211676251 6420110045 5643574445 3440464564 4350405764 6340434154 5440465762 :tMDARtWRIT0t ENCODE, FETCH OTS CALL FOR
       4013676251 6445131515 1152655560 1136102215 1515151515 4445435744 0611554441 6211624541  "WRITE"rrtJUMPt.+2rrrrrrDECOD:tMDARtREA
       4422110044 4543574445 3440464564 4350405764 6340434154 5440465762 4013624541 4413151515 D2t DECODE, FETCH OTS CALL FOR "READ"rrr
       1515151515 1141625544 1167625121 2111006341 6645405764 6340434154 5415151515 1141625544 rrrrrtARMDtWRI11t SAVE OTS CALLrrrrtARMD
       1164455527 1100435445 4162404657 6264624156 4051514046 5441471515 1155447057 1162454144 tTEM7t CLEAR FORTRAN II FLAGrrtMDXOtREAD
       2211006245 4144401215 1154634162 1456114320 1100565734 4067625164 4534404645 6443504035 2t READ ?rtLSAR'NtC0t NO, WRITE, FETCH -
       2015151515 1141625544 1164455521 1100455463 4534406245 4144344063 4564404654 4147406457 0rrrrtARMDtTEM1t ELSE, READ, SET FLAG TO
       4010201515 1155444162 1163435041 6211004645 6443504044 4554515515 1155447057 1446110216  +0rrtMDARtSCHARt FETCH DELIMrtMDXO'Ftc(
       1100544546 6440604162 4556401215 1152605463 1151544743 5011005657 3440515454 4547415440 t LEFT PAREN ?rtJPLStILGCHt NO, ILLEGAL 
       6371566441 7015151515 1515151515 1152606362 1160575451 6350110047 4564406057 5451635040 SYNTAXrrrrrrrrrtJPSRtPOLISHt GET POLISH 
       4657624062 4543576244 4054455647 6450151515 1152606362 1144575146 1100606257 4345636340 FOR RECORD LENGTHrrrtJPSRtDOIFt PROCESS 
       5457475143 4154405146 3440514640 4156711515 1155444162 1160575463 6411004645 6443504060 LOGICAL IF, IF ANYrrtMDARtPOLSTt FETCH P
       5754516350 4060646240 4657624062 4543405445 5640457060 6215151515 1141625544 1144454357 OLISH PTR FOR REC LEN EXPRrrrrtARMDtDECO
       3111006341 6645404657 6240544164 4562151515 1155444163 1446145611 2111004144 5265636440 9t SAVE FOR LATERrrrtMDAS'F'Nt1t ADJUST 
       4657624045 6641541515 1152606362 1145664154 1100456641 5465416445 4062454357 6244405445 FOR EVALrrtJPSRtEVALt EVALUATE RECORD LE
       5647645040 4570606245 6363515756 1515151515 1156575760 1515151515 1152606362 1145666357 NGTH EXPRESSIONrrrrrtNOOPrrrrrtJPSRtEVSO
       2211004156 4440455451 5551564164 4540415671 4064675735 6757624440 6245464562 4556434515 2t AND ELIMINATE ANY TWO-WORD REFERENCEr
       1152606362 1163645741 6211006364 5762454041 6215151515 1155444162 1145665760 2211004645 tJPSRtSTOARt STORE ARrrrrtMDARtEVOP2t FE
       6443504060 6462404566 4154654164 4544405760 4562415644 1515151515 1141625544 1144454357 TCH PTR EVALUATED OPERANDrrrrrtARMDtDECO
       3011006341 6645404657 6240544164 4562151515 1155444162 1163435041 6211004445 5451554564 8t SAVE FOR LATERrrrtMDARtSCHARt DELIMET
       4562403340 4357555541 4012151515 1155447057 1446110234 1515151515 1152605463 1151544743 ER = COMMA ?rrrtMDXO'Ftc,rrrrrtJPLStILGC
       5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 1152606362 1147644655 Ht NO, ILLEGAL SYNTAXrrrrrrrrrtJPSRtGTFM
       6411004745 6440465762 5541644063 6441644555 4556641515 1155444162 1163435041 6211004445 Tt GET FORMAT STATEMENTrrtMDARtSCHARt DE
       5451554564 4562403340 4357555541 4012151515 1155447057 1446110234 1515151515 1152605463 LIMETER = COMMA ?rrrtMDXO'Ftc,rrrrrtJPLS
       1151544743 5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 1141625544 tILGCHt NO, ILLEGAL SYNTAXrrrrrrrrrtARMD
       1457116362 4546471100 6345644046 5762406351 5647544540 6245464562 4556434540 5756547115 'OtSREFGt SET FOR SINGLE REFERENCE ONLYr
       1152606362 1160575451 6350110047 4564406057 5451635040 4657624045 5643574445 3744454357 tJPSRtPOLISHt GET POLISH FOR ENCODE/DECO
       4445404162 6241711515 1155444162 1160575463 6411004566 4154654164 4515151515 1155444163 DE ARRAYrrtMDARtPOLSTt EVALUATErrrrtMDAS
       1446145611 2115151515 1152606362 1145664154 1515151515 1156575760 1515151515 1515151515 'F'Nt1rrrrtJPSRtEVALrrrrrtNOOPrrrrrrrrrr
       7777700000 4043236472 4043236472 4043236472 4043236472 4043236472 4043236472 4043236472 bbX   C3TZ C3TZ C3TZ C3TZ C3TZ C3TZ C3TZ
       4043236472 4043236472 4043236472                                                         C3TZ C3TZ C3TZ
 1450: 0006400014 4664562024 1361200424 3414400000 1152606362 1145666357 2211004554 5155515641  :  'FTN04"Q0&4,'   tJPSRtEVSO2t ELIMINA
       6445406467 5735675762 4440624546 3440514640 4156711515 1155444162 1145665760 2211006341 TE TWO-WORD REF, IF ANYrrtMDARtEVOP2t SA
       6645406057 5156644562 4064574045 6641546541 6445444057 6045624156 4415151515 1141625544 VE POINTER TO EVALUATED OPERANDrrrrtARMD
       1144454357 2715151515 1155444162 1163435041 6211004445 5451554564 4562403340 6251475064 tDECO7rrrrtMDARtSCHARt DELIMETER = RIGHT
       4060416245 5640121515 1155447057 1446110217 1515151515 1152605463 1136102311 0056573440  PAREN ?rrtMDXO'Ftc)rrrrrtJPLSt.+3t NO, 
       6353516040 4657624043 5744454043 5041624143 6445621515 1515151515 1141625544 1457114743 SKIP FOR CODE CHARACTERrrrrrrrtARMD'OtGC
       4363661100 4554634534 4063416645 4044455451 5545644562 1515151515 1152655560 1144454357 CSVt ELSE, SAVE DELIMETERrrrrrtJUMPtDECO
       2111004156 4440526555 6040465762 4013501340 5137571515 1515151515 1155447057 1446110217 1t AND JUMP FOR "H" I/OrrrrrrrtMDXO'Ftc)
       1402341100 4445545155 4564456240 3340435755 5541401215 1152605463 1151544743 5011005657 'c,t DELIMETER = COMMA ?rtJPLStILGCHt NO
       3440515454 4547415440 6371566441 7015151515 1515151515 1152606362 1147436311 0047456440 , ILLEGAL SYNTAXrrrrrrrrrtJPSRtGCSt GET 
       4357444540 4350416241 4364456215 1155447057 1446110253 1100135313 4012151515 1152605463 CODE CHARACTERrtMDXO'FtcKt "K" ?rrrtJPLS
       1136102311 0056573440 6353516015 1515151515 1155444162 1446112227 3611007145 6334404645 t.+3t NO, SKIPrrrrrrtMDAR'Ft27.t YES, FE
       6443504013 5313404357 6245406556 5164151515 1152655560 1144454357 2411005265 5560406457 TCH "K" CORE UNITrrrtJUMPtDECO4t JUMP TO
       4045566364 4164451515 1515151515 1155447057 1446110253 1402501100 4350416240 3340135013  ENSTATErrrrrrrtMDXO'FtcK'cHt CHAR = "H"
       4012151515 1152635463 1145626257 6211005657 3440464164 4154404562 6257621515 1111456221  ?rrrtJSLStERRORt NO, FATAL ERRORrrttER1
       3031110040 4016515454 4547415440 4556435744 4537444543 5744454043 5041621715 1515151515 89t   (ILLEGAL ENCODE/DECODE CHAR)rrrrrr
       4445435721 0611554441 6214461122 2636110071 4563344046 4564435040 1350134043 5762454065 DECO1:tMDAR'Ft26.t YES, FETCH "H" CORE U
       5651644056 5736151515 1515151515 4445435724 0611416255 4411644555 3011006345 6440455643 NIT NO.rrrrrrrrDECO4:tARMDtTEM8t SET ENC
       5744453744 4543574445 4046544147 1515151515 1155444162 1441114155 4163531100 5541635340 ODE/DECODE FLAGrrrrrtMDAR'AtAMASKt MASK 
       4357566364 4156644065 5651644056 5736151515 1152606362 1160655651 6411006062 5743456363 CONSTANT UNIT NO.rrrtJPSRtPUNITt PROCESS
       4065565164 4056573615 1152606362 1147436311 0047456440 4445545155 4564456215 1515151515  UNIT NO.rtJPSRtGCSt GET DELIMETERrrrrrr
       1155444162 1144454357 3111006245 4357664562 4060575451 6350406364 5762414745 1515151515 tMDARtDECO9t RECOVER POLISH STORAGErrrrr
       1141625544 1160466245 6015151515 1155444162 1446112311 0057656460 6564401355 4441621446 tARMDtPFREPrrrrtMDAR'Ft3t OUTPUT "MDAR'F
       4023134046 5762402340 4162476340 6457151515 1152606362 1145665741 4211004040 5760455640  3" FOR 3 ARGS TOrrrtJPSRtEVOABt   OPEN 
       4341545415 1152606362 1157637162 4611005765 6460656440 5764634043 4154544064 5740576045 CALLrtJPSRtOSYRFt OUTPUT OTS CALL TO OPE
       5640513757 4065565164 1515151515 1152606362 1124576045 5615151515 1152606362 1157655651 N I/O UNITrrrrrtJPSRt4OPENrrrrtJPSRtOUNI
       6411005765 6460656440 1355444162 1446406556 5164131515 1155444162 1144454357 2711004645 Tt OUTPUT "MDAR'F UNIT"rrtMDARtDECO7t FE
       6443504060 6462406457 4041626241 7140564155 4515151515 1152606362 1145436246 1100576564 TCH PTR TO ARRAY NAMErrrrtJPSRtECRFt OUT
       6065644046 4564435040 5746405137 5740414444 6245636315 1155444162 1143554441 6236461515 PUT FETCH OF I/O ADDRESSrtMDARtCMDAR.Frr
       1155444162 1144454357 3011004645 6443504060 6462406457 4062454357 6244405445 5647645015 tMDARtDECO8t FETCH PTR TO RECORD LENGTHr
       1152606362 1145436246 1515151515 1155444162 1143554441 6211005765 6460656440 4645644350 tJPSRtECRFrrrrrtMDARtCMDARt OUTPUT FETCH
       4057464062 4543576244 4054455647 6450151515 1152655560 1167625131 4111005265 5560405156  OF RECORD LENGTHrrrtJUMPtWRI9At JUMP IN
       6457406245 4144376762 5164454062 5765645156 4515151515 1515151515 4445435727 0611112011 TO READ/WRITE ROUTINErrrrrrrrrDECO7:tt0t
       0064455560 4063645762 4147451515 4445435730 0611112011 0064455560 4063645762 4147451515  TEMP STORAGErrDECO8:tt0t TEMP STORAGErr
       4445435731 0611112011 0064455560 4063645762 4147451515 1515151515 1515151515 7777700000 DECO9:tt0t TEMP STORAGErrrrrrrrrrrrbbX  
       5643372673 5643372673 5643372673 5643372673 5643372673 5643372673 5643372673 5643372673 NC/6$NC/6$NC/6$NC/6$NC/6$NC/6$NC/6$NC/6$
       5643372673 5643372673                                                                   NC/6$NC/6$
  545: 0006500014 4664562024 1361200137 3414400000 0040636045 4351415440 5137574062 5765645156  :H 'FTN04"Q0%/,'     SPECIAL I/O ROUTIN
       4563403636 3615151515 1515151515 1515151515 0040624567 5156444036 3636151515 1515151515 ES ...rrrrrrrrrrrrrr  REWIND ...rrrrrrrr
       6245675644 0611526063 6211636043 5157151515 1155444162 1446112715 1515151515 1515151515 REWND:tJPSRtSPCIOrrrtMDAR'Ft7rrrrrrrrrrr
       0040424143 5363604143 4540363636 1515151515 1515151515 4253636043 0611526063 6211636043   BACKSPACE ...rrrrrrrrrrBKSPC:tJPSRtSPC
       5157151515 1155444162 1446112415 1515151515 1515151515 0040455644 4651544540 3636361515 IOrrrtMDAR'Ft4rrrrrrrrrrr  ENDFILE ...rr
       1515151515 4556444654 0611526063 6211636043 5157151515 1155444162 1446112315 1515151515 rrrrrENDFL:tJPSRtSPCIOrrrtMDAR'Ft3rrrrrr
       1515151515 0040465762 5563456440 3636361515 1515151515 4662556364 0611526063 6211636043 rrrrr  FORMSET ...rrrrrrrFRMST:tJPSRtSPC
       5157151515 1155444162 1446112115 1515151515 1515151515 0040465762 5557464640 3636361515 IOrrrtMDAR'Ft1rrrrrrrrrrr  FORMOFF ...rr
       1515151515 4662555746 0611526063 6211636043 5157151515 1155444162 1446112215 1515151515 rrrrrFRMOF:tJPSRtSPCIOrrrtMDAR'Ft2rrrrrr
       1515151515 0040635351 6062454357 6244403636 3615151515 1515151515 6353606243 0611526063 rrrrr  SKIPRECORD ...rrrrrrrrrSKPRC:tJPS
       6211636043 5157151515 1155444162 1446112615 1515151515 1515151515 0040635351 6046515445 RtSPCIOrrrtMDAR'Ft6rrrrrrrrrrr  SKIPFILE
       4036363615 1515151515 6353604654 0611526063 6211636043 5157151515 1155444162 1446112515  ...rrrrrrSKPFL:tJPSRtSPCIOrrrtMDAR'Ft5r
       1515151515 1515151515 7777700000 0616735751 0616735751 0616735751 0616735751 0616735751 rrrrrrrrrrbbX  :($OI:($OI:($OI:($OI:($OI
       0616735751 0616735751 0616735751 0616735751 0616735751                                  :($OI:($OI:($OI:($OI:($OI
 1300: 0006600014 4664562024 1361200366 3414400000 0040636045 4351415440 5137574062 5765645156  :P 'FTN04"Q0!V,'     SPECIAL I/O ROUTIN
       4540606257 4345636357 6215151515 1515151515 6360435157 0611526555 6011361100 4556646271 E PROCESSORrrrrrrrrrSPCIO:tJUMPt.t ENTRY
       1515151515 1155444162 1163435041 6211004445 5451554033 4054454664 4060416245 5640121515 rrrrrtMDARtSCHARt DELIM = LEFT PAREN ?rr
       1155447057 1446110216 1515151515 1141625544 1164455521 1100565734 4063456440 4654414715 tMDXO'Ftc(rrrrrtARMDtTEM1t NO, SET FLAGr
       1154637057 1143252611 0051634051 6440414042 5441565340 1215151515 1152605463 1151544743 tLSXOtC56t IS IT A BLANK ?rrrrtJPLStILGC
       5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 1152606362 1147655651 Ht NO, ILLEGAL SYNTAXrrrrrrrrrtJPSRtGUNI
       6411004745 6440655651 6440565736 1515151515 1152606362 1144575146 1100606257 4345636340 Tt GET UNIT NO.rrrrrtJPSRtDOIFt PROCESS 
       5457475143 4154405146 3440514640 4156711515 1152606362 1157655651 6411005765 6460656440 LOGICAL IF, IF ANYrrtJPSRtOUNITt OUTPUT 
       4645644350 4057464065 5651644056 5736151515 1152606362 1157637162 4611005765 6460656440 FETCH OF UNIT NO.rrrtJPSRtOSYRFt OUTPUT 
       5764634043 4154544046 5762406360 4543514154 4051375715 1152606362 1124636045 4315151515 OTS CALL FOR SPECIAL I/OrtJPSRt4SPECrrrr
       1155444162 1451116360 4351571100 4645644350 4041624765 5545566415 1152606362 1157414263 tMDAR'ItSPCIOt FETCH ARGUMENTrtJPSRtOABS
       1100576564 6065644046 4564435040 5746406360 4543514154 4051375740 4357444515 1155444162 t OUTPUT FETCH OF SPECIAL I/O CODErtMDAR
       1164455521 1100604162 4556645045 6351724544 4065565164 4056573640 1215151515 1154635162 tTEM1t PARENTHESIZED UNIT NO. ?rrrrtLSIR
       1143506341 6611005657 3440634166 4540444554 5155456445 6215151515 1152605463 1136102411 tCHSAVt NO, SAVE DELIMETERrrrrtJPLSt.+4t
       0041564440 6353516015 1515151515 1155444162 1163435041 6211007145 6334404445 5451554564  AND SKIPrrrrrrtMDARtSCHARt YES, DELIMET
       4562403340 6251475064 4060416245 5640121515 1155447057 1446110217 1515151515 1152605463 ER = RIGHT PAREN ?rrtMDXO'Ftc)rrrrrtJPLS
       1151544743 5011005657 3440515454 4547415440 6371566441 7015151515 1515151515 1152606362 tILGCHt NO, ILLEGAL SYNTAXrrrrrrrrrtJPSR
       1147436364 1100455644 4057464063 6441644555 4556644012 1515151515 1152655560 1163644654 tGCSTt END OF STATEMENT ?rrrrrtJUMPtSTFL
       5711007145 6334406245 6465625640 4156444063 4564406062 5747624155 4046545767 1515151515 Ot YES, RETURN AND SET PROGRAM FLOWrrrrr
       1152655560 1151544743 5011004554 6345344051 5454454741 5440637156 6441701515 1515151515 tJUMPtILGCHt ELSE, ILLEGAL SYNTAXrrrrrrr
       1515151515 0040435457 6345406364 4164455545 5664403636 3615151515 1515151515 4354576363 rrrrr  CLOSE STATEMENT ...rrrrrrrrrCLOSS
       0611554441 6211634350 4162110041 5671404162 4763401215 1155447057 1446112125 1515151515 :tMDARtSCHARt ANY ARGS ?rtMDXO'Ft15rrrrr
       1152605463 1143545763 2111007145 6334406353 5160151515 1515151515 1152606362 1144575146 tJPLStCLOS1t YES, SKIPrrrrrrrrtJPSRtDOIF
       1100455463 4534406062 5743456363 4054574751 4341544051 4615151515 1155444162 1143416270 t ELSE, PROCESS LOGICAL IFrrrrtMDARtCARX
       5736461100 5765646065 6440134162 7057144613 4046576240 4154544065 5651646315 1152606362 O.Ft OUTPUT "ARXO'F" FOR ALL UNITSrtJPSR
       1145665741 4215151515 1152606362 1157637162 4611005765 6460656440 5764634043 4154544064 tEVOABrrrrtJPSRtOSYRFt OUTPUT OTS CALL T
       5740435457 6345406556 5164166317 1515151515 1152606362 1124435463 4515151515 1152655560 O CLOSE UNIT(S)rrrrrtJPSRt4CLSErrrrtJUMP
       1163644654 5711006245 6465625640 4156444063 4564406062 5747624155 4046545767 1515151515 tSTFLOt RETURN AND SET PROGRAM FLOWrrrrr
       1515151515 4354576321 0611554441 6214461147 6246644210 2522110051 4640415671 4065565164 rrrrrCLOS1:tMDAR'FtGRFTB+52t IF ANY UNIT
       4054516364 3440634564 6560405156 6462515663 5143151515 1152655560 1162454144 4711004040  LIST, SETUP INTRINSICrrrtJUMPtREADGt   
       4665564364 5157564043 5756646257 5440675762 4440415644 4060625743 4563631515 1515151515 FUNCTION CONTROL WORD AND PROCESSrrrrrrr
       1515151515 7777700000 0523566716 0523566716 0523566716 0523566716 0523566716 0523566716 rrrrrbbX  *3NW(*3NW(*3NW(*3NW(*3NW(*3NW(
       0523566716 0523566716 0523566716 0523566716                                             *3NW(*3NW(*3NW(*3NW(
  980: 0006700014 4664562024 1361200266 3414400000 0040465762 6462415640 5151405137 5740625765  :X 'FTN04"Q0cV,'     FORTRAN II I/O ROU
       6451564563 4036363615 1515151515 1515151515 0040624541 4440363636 1515151515 1515151515 TINES ...rrrrrrrrrrr  READ ...rrrrrrrrrr
       6360624544 0611526063 6211636043 6267110060 6257434563 6340465762 6462415640 5151404341 SPRED:tJPSRtSPCRWt PROCESS FORTRAN II CA
       5454151515 1152606362 1124624411 0040406457 4062454144 1515151515 1111212736 1100404046 LLrrrtJPSRt4RDt   TO READrrrrrtt17.t   F
       6257554065 5651644021 2736401643 4162444062 4541444562 1715151515 1515151515 1515151515 ROM UNIT 17. (CARD READER)rrrrrrrrrrrrrr
       0040606556 4350403636 3615151515 1515151515 6360606556 0611526063 6211636043 6267110060   PUNCH ...rrrrrrrrrSPPUN:tJPSRtSPCRWt P
       6257434563 6340465762 6462415640 5151404341 5454151515 1152606362 1124676211 0040406457 ROCESS FORTRAN II CALLrrrtJPSRt4WRt   TO
       4067625164 4515151515 1111212236 1100404057 5640655651 6440212236 4016575640 6041604562  WRITErrrrtt12.t   ON UNIT 12. (ON PAPER
       4064416045 4060655643 5017151515 1515151515 1515151515 0040606251 5664403636 3615151515  TAPE PUNCH)rrrrrrrrrrrrr  PRINT ...rrrr
       1515151515 6360606251 0611526063 6211636043 6267110060 6257434563 6340465762 6462415640 rrrrrSPPRI:tJPSRtSPCRWt PROCESS FORTRAN 
       5151404341 5454151515 1152606362 1124676211 0040406457 4067625164 4515151515 1111212436 II CALLrrrtJPSRt4WRt   TO WRITErrrrtt14.
       1100404057 5640655651 6440212436 4016545156 4540606251 5664456217 1515151515 1515151515 t   ON UNIT 14. (LINE PRINTER)rrrrrrrrrr
       1515151515 0040606257 4345636340 4657626462 4156405151 4051375740 6364416445 5545566415 rrrrr  PROCESS FORTRAN II I/O STATEMENTr
       1515151515 6360436267 0611526555 6011361100 4556646271 1515151515 1152606362 1142546353 rrrrrSPCRW:tJUMPt.t ENTRYrrrrrtJPSRtBLSK
       6011006353 5160404254 4156534044 4554515515 1155444162 1451116360 4362671100 4645644350 Pt SKIP BLANK DELIMrtMDAR'ItSPCRWt FETCH
       4057646340 5137574043 4154541515 1141625544 1167625121 2111006341 6645404657 6240676251  OTS I/O CALLrrtARMDtWRI11t SAVE FOR WRI
       6445406257 6564515645 1515151515 1141625544 1164455530 1100435445 4162404556 4357444537 TE ROUTINErrrrrtARMDtTEM8t CLEAR ENCODE/
       4445435744 4540465441 4715151515 1155447057 1163606245 4410211100 6245414440 1215151515 DECODE FLAGrrrrtMDXOtSPRED+1t READ ?rrrr
       1154634162 1456114320 1100565734 4047456440 5137574046 5441471515 1141625544 1164455521 tLSAR'NtC0t NO, GET I/O FLAGrrtARMDtTEM1
       1100415644 4063456415 1155444162 1451147011 6360436267 1100464564 4350406556 5164405657 t AND SETrtMDAR'I'XtSPCRWt FETCH UNIT NO
       3615151515 1152606362 1160655651 6411006062 5743456363 4051641515 1141625544 1457116445 .rrrrtJPSRtPUNITt PROCESS ITrrtARMD'OtTE
       5527110063 4564404657 6264624156 4051514046 5441471515 1152655560 1167625121 4111005265 M7t SET FORTRAN II FLAGrrtJUMPtWRI1At JU
       5560405156 6457406364 4156444162 4440676251 6445406257 6564515645 1515151515 1515151515 MP INTO STANDARD WRITE ROUTINErrrrrrrrrr
       1515151515 7777700000 1634372651 1634372651 1634372651 1634372651 1634372651 1634372651 rrrrrbbX  (,/6I(,/6I(,/6I(,/6I(,/6I(,/6I
       1634372651 1634372651 1634372651 1634372651                                             (,/6I(,/6I(,/6I(,/6I
 1440: 0007000014 4664562024 1361200422 3414400000 0040636542 6257656451 5645406457 4060625743  _  'FTN04"Q0&2,'     SUBROUTINE TO PROC
       4563634046 5762554164 4063644164 4555455664 4062454645 6245564345 1515151515 1515151515 ESS FORMAT STATEMENT REFERENCErrrrrrrrrr
       4764465564 0611526555 6011361100 4556646271 1515151515 1141627057 1446111100 4354454162 GTFMT:tJUMPt.t ENTRYrrrrrtARXO'Ftt CLEAR
       4036363615 1141625544 1164455522 1100404065 5646576255 4164644544 4051375740 4654414715  ...rtARMDtTEM2t   UNFORMATTED I/O FLAGr
       1141625544 1164455523 1100404041 4263575465 6445404657 6255416440 6245464562 4556434540 tARMDtTEM3t   ABSOLUTE FORMAT REFERENCE 
       4654414715 1152606362 1147637155 1100474564 4046576255 4164405441 4245544036 3636151515 FLAGrtJPSRtGSYMt GET FORMAT LABEL ...rrr
       1152655560 1167625122 4111004040 6360454351 4154344043 4156146440 4245405441 4245543440 tJUMPtWRI2At   SPECIAL, CAN'T BE LABEL, 
       6353516015 1152655560 1167625122 1100404044 5147516434 4063535160 4046576240 6364416445 SKIPrtJUMPtWRI2t   DIGIT, SKIP FOR STATE
       5545566440 5441424554 1515151515 1515151515 1152606362 1156446243 5311006371 5542575434 MENT LABELrrrrrrrrrrtJPSRtNDRCKt SYMBOL,
       4051634051 6440134556 4433134057 6240134562 6233134012 1515151515 1152655560 1167625121  IS IT "END=" OR "ERR=" ?rrrrrtJUMPtWRI1
       4411005146 4071456334 4047574042 4143534046 5762406556 4657625541 6464454440 5137571515 Dt IF YES, GO BACK FOR UNFORMATTED I/Orr
       1515151515 6762512241 0611526063 6211474662 5563110060 6257434563 6340465762 5541644063 rrrrrWRI2A:tJPSRtGFRMSt PROCESS FORMAT S
       7155425754 1515151515 1152655560 1167625131 1100526555 6040645740 6341664540 4657624046 YMBOLrrrrrtJUMPtWRI9t JUMP TO SAVE FOR F
       5762554164 4046456443 5015151515 1515151515 6762512206 1152606362 1147566555 1100435754 ORMAT FETCHrrrrrrrrrWRI2:tJPSRtGNUMt COL
       5445436440 4451475164 6340465762 4054414245 5415151515 1152655560 1151544743 5011004040 LECT DIGITS FOR LABELrrrrtJUMPtILGCHt   
       1644454351 5541544060 5751566440 5154544547 4154171515 1515151515 1155444162 1156655543 (DECIMAL POINT ILLEGAL)rrrrrrrtMDARtNUMC
       6411004156 7140635147 5651465143 4156644044 5147516463 4012151515 1152605463 1167625124 Tt ANY SIGNIFICANT DIGITS ?rrrtJPLStWRI4
       1100714563 3440526555 6040645740 6062574345 6363151515 1515151515 1155444162 1164455521 t YES, JUMP TO PROCESSrrrrrrrrtMDARtTEM1
       1100624541 4440576240 6762516445 4012151515 1141564162 1143221100 6762516445 3440515643 t READ OR WRITE ?rrrtANARtC2t WRITE, INC
       5465444540 2445576564 1515151515 1155444145 1446112445 5156601100 6245414434 4051564354 LUDE 4EOUTrrrrrtMDAE'Ft4EINPt READ, INCL
       6544454024 4551566015 1152606362 1151564354 4411004657 6243454054 5741444057 4640134513 UDE 4EINPrtJPSRtINCLDt FORCE LOAD OF "E"
       4046576255 4164405764 6340625765 6451564515 1155444162 1456114765 5664301100 4163435151  FORMAT OTS ROUTINErtMDAR'NtGUNT8t ASCII
       4044456651 4345401215 1155444162 1441144611 2215151515 1152605463 1136102311 0056573440  DEVICE ?rtMDAR'A'Ft2rrrrtJPLSt.+3t NO, 
       6353516015 1515151515 1155444162 1446112443 5756661100 7145633440 5156435465 4445405764 SKIPrrrrrrtMDAR'Ft4CONVt YES, INCLUDE OT
       6340435756 6645626351 5756151515 1152606362 1151564354 4415151515 1515151515 1155444162 S CONVERSIONrrrtJPSRtINCLDrrrrrrrrrtMDAR
       1143416270 5736463656 1100464564 4350404657 6255416440 5156636462 4046576240 4662454540 tCARXO.F.Nt FETCH FORMAT INSTR FOR FREE 
       4657625515 1141625544 1457116445 5523110063 4564404654 4147404657 6240414263 5754656445 FORMrtARMD'OtTEM3t SET FLAG FOR ABSOLUTE
       4046576255 4164406245 4615151515 1152655560 1167625131 1100415644 4052655560 4064574060  FORMAT REFrrrrtJUMPtWRI9t AND JUMP TO P
       6257434563 6340513757 4043415454 1515151515 1515151515 6762512406 1155444163 1446145611 ROCESS I/O CALLrrrrrrrrrrWRI4:tMDAS'F'Nt
       2511005557 6245406450 4156402540 4451475164 6340515640 5441424554 4012151515 1152604156 5t MORE THAN 5 DIGITS IN LABEL ?rrrtJPAN
       1136102311 0056573440 5753406353 5160151515 1152606362 1145626257 6211004554 6345344046 t.+3t NO, OK SKIPrrrtJPSRtERRORt ELSE, F
       4164415440 4562625762 1515151515 1111456221 2024110040 4016515454 4547415440 5441424554 ATAL ERRORrrrrrttER104t   (ILLEGAL LABEL
       4066415465 4517151515 1515151515 1152606362 1147515664 5611004566 4154654164 4540515664  VALUE)rrrrrrrrtJPSRtGINTNt EVALUATE INT
       4547456240 5441424554 1515151515 1152606362 1163645442 5411006364 5762454063 6441644555 EGER LABELrrrrrtJPSRtSTLBLt STORE STATEM
       4556644054 4142455440 5156406441 4254451515 1515151515 7777700000 5403547261 5403547261 ENT LABEL IN TABLErrrrrrrbbX  L!LZQL!LZQ
       5403547261 5403547261 5403547261 5403547261 5403547261 5403547261 5403547261 5403547261 L!LZQL!LZQL!LZQL!LZQL!LZQL!LZQL!LZQL!LZQ
 1530: 0007100014 4664562024 1361200444 3414400000 1155444162 1451145314 5611636562 6011005441  _+ 'FTN04"Q0&D,'   tMDAR'I'K'NtSURPt LA
       4245544044 4546515645 4440121515 1152604156 1167625125 1100565734 4052655560 4064574063 BEL DEFINED ?rrtJPANtWRI5t NO, JUMP TO S
       4564406245 4144376762 5164454046 5441476315 1515151515 1141624162 1442144611 1100714563 ET READ/WRITE FLAGSrrrrrrtARAR'B'Ftt YES
       3440465762 5541644054 4142455440 1215151515 1152604156 1167625126 1100565734 4051545445 , FORMAT LABEL ?rrrrtJPANtWRI6t NO, ILLE
       4741544062 4546344052 6555604046 5762404562 6257621515 1515151515 1155444162 1164455521 GAL REF, JUMP FOR ERRORrrrrrrrtMDARtTEM1
       1100464564 4350406245 4144376762 5164454046 5441471515 1141564162 1143221100 6345644013 t FETCH READ/WRITE FLAGrrtANARtC2t SET "
       2213405146 4057656460 6564151515 1155444145 1446112445 5156601100 6345646560 4060575156 2" IF OUTPUTrrrtMDAE'Ft4EINPt SETUP POIN
       6445624064 5740134513 4057646315 1141625544 1164455524 1100404051 5660656440 1657624057 TER TO "E" OTSrtARMDtTEM4t   INPUT (OR O
       6564606564 1740625765 6451564515 1515151515 1155444162 1451145014 5611636562 6011004645 UTPUT) ROUTINErrrrrrtMDAR'I'H'NtSURPt FE
       6443504054 4142455440 4654414763 1515151515 1155444162 1441144611 2120201100 4657625541 TCH LABEL FLAGSrrrrrtMDAR'A'Ft100t FORMA
       6440504163 4013451340 4357444563 4012151515 1152605463 1136102311 0056573440 6353516015 T HAS "E" CODES ?rrrtJPLSt.+3t NO, SKIPr
       1515151515 1155444162 1164455524 1100714563 3440515643 5465444540 5764634062 5765645156 rrrrrtMDARtTEM4t YES, INCLUDE OTS ROUTIN
       4540465762 4013451340 5137571515 1152606362 1151564354 4415151515 1515151515 1155444162 E FOR "E" I/OrrtJPSRtINCLDrrrrrrrrrtMDAR
       1451145014 5611636562 6011004657 6255416440 5041634013 5113404357 4445634012 1515151515 'I'H'NtSURPt FORMAT HAS "I" CODES ?rrrrr
       1155444162 1441144611 2420151515 1152605463 1136102411 0056573440 6353516015 1515151515 tMDAR'A'Ft40rrrtJPLSt.+4t NO, SKIPrrrrrr
       1155444162 1164455524 1100714563 3440426555 6040606462 4064574057 6463401351 1340625765 tMDARtTEM4t YES, BUMP PTR TO OTS "I" ROU
       6451564515 1155444163 1446112415 1152606362 1151564354 4411005156 4354654445 4057646340 TINErtMDAS'Ft4rtJPSRtINCLDt INCLUDE OTS 
       4657624013 5113405156 6065643757 6564606564 1515151515 1515151515 1155444162 1451145011 FOR "I" INPUT/OUTPUTrrrrrrrrrrtMDAR'I'Ht
       6365626011 0046456443 5040465762 5541644054 4142455440 4654414763 1515151515 1155444162 SURPt FETCH FORMAT LABEL FLAGSrrrrrtMDAR
       1441144611 2311005541 6353404251 6463404657 6240415557 6337416343 5151404357 4445631515 'A'Ft3t MASK BITS FOR AMOS/ASCII CODESrr
       1155444162 1441114765 5664301100 4163435151 4043574445 6340575640 4155576340 4445665143 tMDAR'AtGUNT8t ASCII CODES ON AMOS DEVIC
       4540576215 1152605463 1136102211 0040406651 4345406645 6263414012 1515151515 1152655560 E ORrtJPLSt.+2t   VICE VERSA ?rrrrrtJUMP
       1167625127 1100565734 4063535160 1515151515 1515151515 1155444162 1446112443 5756661100 tWRI7t NO, SKIPrrrrrrrrrrtMDAR'Ft4CONVt 
       4554634534 4051564354 6544454057 6463404357 4445404357 5666456263 5157561515 1152606362 ELSE, INCLUDE OTS CODE CONVERSIONrrtJPSR
       1151564354 4411004040 6257656451 5645151515 1152655560 1167625127 1100475740 6062574345 tINCLDt   ROUTINErrrtJUMPtWRI7t GO PROCE
       6363405137 5740434154 5415151515 1515151515 6762512506 1155444162 1441144611 2220110054 SS I/O CALLrrrrrrrrrWRI5:tMDAR'A'Ft20t L
       4142455440 4140445735 5457576040 6441624745 6440121515 1152605463 1136102411 0056573440 ABEL A DO-LOOP TARGET ?rrtJPLSt.+4t NO, 
       6353516015 1515151515 6762512606 1152606362 1145626257 6211006741 6256515647 4045626257 SKIPrrrrrrWRI6:tJPSRtERRORt WARNING ERRO
       6215151515 1111456221 3026110040 4016636441 6445554556 6440565764 4041404657 6255416417 RrrrrttER186t   (STATEMENT NOT A FORMAT)
       1515151515 1152655560 1167625127 1100635351 6040645740 5765646065 6440513757 4043415454 rrrrrtJUMPtWRI7t SKIP TO OUTPUT I/O CALL
       4041567167 4171151515 1515151515 1155444162 1451145311 6365626011 0046456443 5040544142  ANYWAYrrrrrrrrtMDAR'I'KtSURPt FETCH LAB
       4554146340 4654414763 1515151515 1141624162 1442144611 1100535657 6756406457 4042454041 EL'S FLAGSrrrrrtARAR'B'Ftt KNOWN TO BE A
       4046576255 4164401215 1152604156 1167625126 4111007145 6334406353 5160151515 1515151515  FORMAT ?rtJPANtWRI6At YES, SKIPrrrrrrrr
       1155444162 1451145011 6365626011 0045546345 3440464564 4350404654 4147634041 4741515615 tMDAR'I'HtSURPt ELSE, FETCH FLAGS AGAINr
       1155444162 1441144611 2221110065 5662454645 6245564345 4440121515 1154637057 1136352111 tMDAR'A'Ft21t UNREFERENCED ?rrtLSXOt.-1t
       0057624062 4546456245 5643454440 5156404140 4441644140 6364416445 5545566440 1215151515  OR REFERENCED IN A DATA STATEMENT ?rrrr
       1152605463 1167625126 1100565734 4051545445 4741544054 4142455415 1515151515 7777700000 tJPLStWRI6t NO, ILLEGAL LABELrrrrrrbbX  
       2515646745 2515646745 2515646745 2515646745 2515646745 2515646745 2515646745 2515646745 5rTWE5rTWE5rTWE5rTWE5rTWE5rTWE5rTWE5rTWE
       2515646745 2515646745                                                                   5rTWE5rTWE
 1380: 0007200014 4664562024 1361200406 3414400000 1155444162 1451116365 6260110071 4563344057  _0 'FTN04"Q0&:,'   tMDAR'ItSURPt YES, O
       5334405541 6353405765 6440444164 4140636441 6445554556 6415151515 1155447057 1441145011 K, MASK OUT DATA STATEMENTrrrrtMDXO'A'Ht
       4321110040 4042516440 4662575540 5441424554 1463404654 4147631515 1141625544 1451116365 C1t   BIT FROM LABEL'S FLAGSrrtARMD'ItSU
       6260151515 1515151515 6762512641 0611554441 6214561164 4555211100 4645644350 4062454144 RPrrrrrrrrWRI6A:tMDAR'NtTEM1t FETCH READ
       3767625164 4540465441 4715151515 1155444162 1441114324 2011004657 6255405441 4245544046 /WRITE FLAGrrrrtMDAR'AtC40t FORM LABEL F
       5441474042 5164634046 5762405137 5715151515 1155444163 1446112224 2011004040 4156444046 LAG BITS FOR I/OrrrrtMDAS'Ft240t   AND F
       5762554164 4062454645 6245564345 1515151515 1155444162 1457114765 5664301100 4357554251 ORMAT REFERENCErrrrrtMDAR'OtGUNT8t COMBI
       5645404155 5763374163 4351514044 4566514345 4042516463 1515151515 1155444162 1457145114 NE AMOS/ASCII DEVICE BITSrrrrrtMDAR'O'I'
       5011636562 6011004156 4440634564 4051564054 4142455414 6340465441 4763151515 1141625544 HtSURPt AND SET IN LABEL'S FLAGSrrrtARMD
       1451145011 6365626015 1515151515 6762512706 1155444162 1163656260 1100464564 4350405441 'I'HtSURPrrrrrrWRI7:tMDARtSURPt FETCH LA
       4245544064 4142544540 6057515664 4562151515 1155444162 1457114355 4441623646 1100435755 BEL TABLE POINTERrrrtMDAR'OtCMDAR.Ft COM
       4251564540 1355444162 1446134051 5663646265 4364515756 1515151515 1515151515 6762513106 BINE "MDAR'F" INSTRUCTIONrrrrrrrrrrWRI9:
       1141625544 1164455524 1100634166 4540465762 5541644041 4444624563 6340464564 4350405156 tARMDtTEM4t SAVE FORMAT ADDRESS FETCH IN
       6364621515 1155444162 1163435041 6211004645 6443504044 4554515545 6445621515 1155447057 STRrrtMDARtSCHARt FETCH DELIMETERrrtMDXO
       1446110234 1100435755 5541401215 1155444162 1457145011 6445552711 0041564440 5657644046 'Ftc,t COMMA ?rtMDAR'O'HtTEM7t AND NOT F
       5762646241 5640515140 1215151515 1155444162 1457145011 6445553011 0041564440 5657644045 ORTRAN II ?rrrrtMDAR'O'HtTEM8t AND NOT E
       5643574445 3744454357 4445401215 1154635162 1147644655 6411005657 3440624564 6562561515 NCODE/DECODE ?rtLSIRtGTFMTt NO, RETURNrr
       1515151515 1152606362 1147637155 4111007145 6334404745 6440637155 4257544016 5565636440 rrrrrtJPSRtGSYMAt YES, GET SYMBOL (MUST 
       4245404154 6050411715 1152606362 1156446243 5311005163 4051644013 4556443313 4057624013 BE ALPHA)rtJPSRtNDRCKt IS IT "END=" OR "
       4562623313 4051564062 4541444012 1515151515 1155445162 1147644655 6411007145 6334405753 ERR=" IN READ ?rrrrrtMDIRtGTFMTt YES, OK
       3440624564 6562561515 1152655560 1156446243 2311004554 6345344051 5454454741 5440604162 , RETURNrrtJUMPtNDRC3t ELSE, ILLEGAL PAR
       4155456445 6215151515 1515151515 1515151515 0040474564 4063644164 4555455664 4054414245 AMETERrrrrrrrrrrrrrr  GET STATEMENT LABE
       5440637155 4257544046 5762404764 4655644041 5644405644 6243531515 1515151515 4746625563 L SYMBOL FOR GTFMT AND NDRCKrrrrrrrGFRMS
       0611526555 6011361100 4556646271 1515151515 1141625544 1457116371 5563661100 6341664540 :tJUMPt.t ENTRYrrrrrtARMD'OtSYMSVt SAVE 
       6371554257 5440465762 4062453562 4541444042 7140605754 5163501515 1141625544 1457116362 SYMBOL FOR RE-READ BY POLISHrrtARMD'OtSR
       4546471100 6345644046 5762406351 5647544540 6245464562 4556434540 5756547115 1152606362 EFGt SET FOR SINGLE REFERENCE ONLYrtJPSR
       1160575451 6350110047 4564406057 5451635040 4657624046 5762554164 4063715542 5754151515 tPOLISHt GET POLISH FOR FORMAT SYMBOLrrr
       1155444162 1160575463 6411004645 6443504063 6441626440 5746406057 5451635040 6064621515 tMDARtPOLSTt FETCH START OF POLISH PTRrr
       1155444163 1446145611 2111004144 5265636440 4657624045 6641541515 1152606362 1145664154 tMDAS'F'Nt1t ADJUST FOR EVALrrtJPSRtEVAL
       1100456641 5465416445 4063654263 4362516064 6334405146 4041567115 1156575760 1515151515 t EVALUATE SUBSCRIPTS, IF ANYrtNOOPrrrrr
       1152606362 1145666357 2211004554 5155515641 6445406467 5735675762 4440624546 4562455643 tJPSRtEVSO2t ELIMINATE TWO-WORD REFERENC
       4534405146 4041567115 1155444162 1145665760 2211004645 6443504062 4563655464 4057604562 E, IF ANYrtMDARtEVOP2t FETCH RESULT OPER
       4156444060 5751566445 6215151515 1155445162 1147466255 6311006245 6465625615 1515151515 AND POINTERrrrrtMDIRtGFRMSt RETURNrrrrrr
       1515151515 7777700000 3422613254 3422613254 3422613254 3422613254 3422613254 3422613254 rrrrrbbX  ,2Q;L,2Q;L,2Q;L,2Q;L,2Q;L,2Q;L
       3422613254 3422613254 3422613254 3422613254                                             ,2Q;L,2Q;L,2Q;L,2Q;L
 1510: 0007300014 4664562024 1361200440 3414400000 0040435045 4353404657 6240134556 4433134057  _8 'FTN04"Q0& ,'     CHECK FOR "END=" O
       6240134562 6233134060 4162415545 6445626340 5156406245 4144406364 4164455545 5664151515 R "ERR=" PARAMETERS IN READ STATEMENTrrr
       1515151515 5644624353 0611526555 6011361100 4556646271 1515151515 1155444162 1163435041 rrrrrNDRCK:tJUMPt.t ENTRYrrrrrtMDARtSCHA
       6211004645 6443504044 4554515545 6445621515 1155447057 1446110233 1100516340 5164401333 Rt FETCH DELIMETERrrtMDXO'Ftc=t IS IT "=
       1340121515 1155444162 1457116371 5542461100 4156444056 5740606245 4651704057 5640637155 " ?rrtMDAR'OtSYMBFt AND NO PREFIX ON SYM
       4257544012 1515151515 1155444162 1457145011 6371554222 1100415644 4057565471 4057564535 BOL ?rrrrrtMDAR'O'HtSYMB2t AND ONLY ONE-
       6757624440 6371554257 5440121515 1155444162 1457145011 6371554223 1515151515 1155444162 WORD SYMBOL ?rrtMDAR'O'HtSYMB3rrrrrtMDAR
       1457116445 5521110041 5644406245 4144406364 4164455545 5664401215 1155444162 1457116445 'OtTEM1t AND READ STATEMENT ?rtMDAR'OtTE
       5527110041 5644405657 6440465762 6462415640 5151406364 4164455545 5664401215 1155444162 M7t AND NOT FORTRAN II STATEMENT ?rtMDAR
       1457116445 5530110041 5644405657 6440455643 5744453744 4543574445 4012151515 1154635162 'OtTEM8t AND NOT ENCODE/DECODE ?rrrtLSIR
       1470115644 6243531100 5657344062 4564656256 1622173440 5657644041 4060416241 5545644562 'XtNDRCKt NO, RETURN(2), NOT A PARAMETER
       1515151515 1515151515 5644624321 0611554441 6211637155 4221110071 4563344046 4564435040 rrrrrrrrrrNDRC1:tMDARtSYMB1t YES, FETCH 
       6371554257 5415151515 1155447057 1454111100 5163405164 4013455644 1340121515 1164457064 SYMBOLrrrrtMDXO'Ltt IS IT "END" ?rrtTEXT
       1137455644 3715151515 1141624162 1450145714 4615151515 1152605463 1156446243 2211005657 t/END/rrrrtARAR'H'O'FrrrrtJPLStNDRC2t NO
       3440475740 6445636440 4657624013 4562621315 1515151515 1155444162 1456115644 6246211100 , GO TEST FOR "ERR"rrrrrrtMDAR'NtNDRF1t 
       7145633440 1345564413 4060624566 5157656354 7140636045 4351465145 4440121515 5644624323 YES, "END" PREVIOUSLY SPECIFIED ?rrNDRC3
       0611526354 6311456262 5762110071 4563344046 4164415440 4562625762 1515151515 1111456222 :tJSLStERRORt YES, FATAL ERRORrrrrrttER2
       3026110040 4016515454 4547415440 6041624155 4564456240 6563414745 1715151515 1515151515 86t   (ILLEGAL PARAMETER USAGE)rrrrrrrrr
       1141625544 1156446246 2111004554 6345344057 5334406345 6440134556 4413405156 4065634515 tARMDtNDRF1t ELSE, OK, SET "END" IN USEr
       1155444162 1167625122 2211004645 6443504063 6457624540 4657624057 6463404556 4435574635 tMDARtWRI22t FETCH STORE FOR OTS END-OF-
       4651544515 1152655560 1156446243 2411004156 4440526555 6040645740 6062574345 6363151515 FILErtJUMPtNDRC4t AND JUMP TO PROCESSrrr
       1515151515 5644624322 0611554441 6211637155 4221110056 5764401345 5644133440 5163405164 rrrrrNDRC2:tMDARtSYMB1t NOT "END", IS IT
       4013456262 1340121515 1155447057 1454151515 1164457064 1137456262 3715151515 1141624162  "ERR" ?rrtMDXO'LrrrtTEXTt/ERR/rrrrtARAR
       1450145714 4615151515 1152605463 1156446243 2311005657 3440515454 4547415440 6041624155 'H'O'FrrrrtJPLStNDRC3t NO, ILLEGAL PARAM
       4564456215 1515151515 1155444162 1456115644 6246221100 7145633440 1345626213 4060624566 ETERrrrrrrtMDAR'NtNDRF2t YES, "ERR" PREV
       5157656354 7140636045 4351465145 4440121515 1152605463 1156446243 2311007145 6334405265 IOUSLY SPECIFIED ?rrtJPLStNDRC3t YES, JU
       5560404657 6240456262 5762151515 1515151515 1141625544 1156446246 2211005657 3440575334 MP FOR ERRORrrrrrrrrtARMDtNDRF2t NO, OK,
       4063456440 1345626213 4051564065 6345151515 1155444162 1167625122 2311004645 6443504063  SET "ERR" IN USErrrtMDARtWRI23t FETCH S
       6457624540 4657624057 6463406556 5164354562 6257621515 1515151515 5644624324 0611416255 TORE FOR OTS UNIT-ERRORrrrrrrrNDRC4:tARM
       4411564462 4325110063 4166454057 6463406364 5762454051 5663646265 4364515756 1515151515 DtNDRC5t SAVE OTS STORE INSTRUCTIONrrrrr
       1152606362 1147637155 1100474564 4047574064 5740636441 6445554556 6440544142 4554403636 tJPSRtGSYMt GET GO TO STATEMENT LABEL ..
       3615151515 1152655560 1151544743 5011004040 6360454351 4154344051 5454454741 5415151515 .rrrrtJUMPtILGCHt   SPECIAL, ILLEGALrrrr
       1152655560 1136102411 0040404451 4751643440 5565636440 4245406364 4164455545 5664405441 tJUMPt.+4t   DIGIT, MUST BE STATEMENT LA
       4245541515 1515151515 1152606362 1147466255 6311004554 6345344047 4564406371 5542575451 BELrrrrrrrtJPSRtGFRMSt ELSE, GET SYMBOLI
       4340426241 5643501515 1141625544 1164455521 2011006341 6645404566 4154654164 4544405760 C BRANCHrrtARMDtTEM10t SAVE EVALUATED OP
       4562415644 4060575156 6445621515 1152655560 1156446243 2611004156 4440526555 6040645740 ERAND POINTERrrtJUMPtNDRC6t AND JUMP TO 
       6062574345 6363151515 1515151515 7777700000 5535572675 5535572675 5535572675 5535572675 PROCESSrrrrrrrrbbX  M-O6@M-O6@M-O6@M-O6@
       5535572675 5535572675 5535572675 5535572675 5535572675 5535572675                       M-O6@M-O6@M-O6@M-O6@M-O6@M-O6@
 1575: 0007400014 4664562024 1361200455 3414400000 1152606362 1147544142 5411004745 6440475740  _  'FTN04"Q0&M,'   tJPSRtGLABLt GET GO 
       6457406364 4164455545 5664405441 4245541515 1155444162 1457114342 2011006345 6440425164 TO STATEMENT LABELrrtMDAR'OtCB0t SET BIT
       4046576240 5657563563 7155425754 5143404262 4156435015 1141625544 1164455521 2011006341  FOR NON-SYMBOLIC BRANCHrtARMDtTEM10t SA
       6645405441 4245544064 4142544540 6057515664 4562151515 1152606362 1143535442 5411004350 VE LABEL TABLE POINTERrrrtJPSRtCKLBLt CH
       4543534046 5762405657 6440414046 5762554164 4054414245 5415151515 1515151515 5644624326 ECK FOR NOT A FORMAT LABELrrrrrrrrrNDRC6
       0611554441 6211435544 4162365411 0046456443 5040135544 4162145413 4051566364 6265436451 :tMDARtCMDAR.Lt FETCH "MDAR'L" INSTRUCTI
       5756151515 1152606362 1145665741 4211004156 4440576564 6065641515 1155444162 1164455521 ONrrrtJPSRtEVOABt AND OUTPUTrrtMDARtTEM1
       2011006364 4164455545 5664405441 4245544052 6555604012 1515151515 1152604156 1136102411 0t STATEMENT LABEL JUMP ?rrrrrtJPANt.+4t
       0071456334 4063535160 1515151515 1515151515 1152606362 1145436246 1100455463 4534405765  YES, SKIPrrrrrrrrrrtJPSRtECRFt ELSE, OU
       6460656440 6245464064 5740456641 5465416445 4440637155 4257541515 1155444162 1143554451 TPUT REF TO EVALUATED SYMBOLrrtMDARtCMDI
       6211004040 1613554451 6240637155 4257541317 1515151515 1152655560 1136102411 0063535160 Rt   ("MDIR SYMBOL")rrrrrtJUMPt.+4t SKIP
       1515151515 1515151515 1155447057 1143422011 0055416353 4057656440 4654414740 4251641515 rrrrrrrrrrtMDXOtCB0t MASK OUT FLAG BITrr
       1155444162 1457145011 4324201100 4657625540 1352655560 1340515663 6462654364 5157561515 tMDAR'O'HtC40t FORM "JUMP" INSTRUCTIONrr
       1152606362 1157624546 1100415644 4057656460 6564401352 6555604054 4142455413 1515151515 tJPSRtOREFt AND OUTPUT "JUMP LABEL"rrrrr
       1515151515 1152606362 1157637162 4611005765 6460656440 5764634063 6457624515 5644624325 rrrrrtJPSRtOSYRFt OUTPUT OTS STORErNDRC5
       0611416255 4411110040 4016134162 5544407324 4562222613 4057624013 4162554440 7324456222 :tARMDtt   ("ARMD $4ER26" OR "ARMD $4ER2
       2713171515 1515151515 1155444162 1163435041 6211004645 6443504044 4554515545 6445621515 7")rrrrrrrtMDARtSCHARt FETCH DELIMETERrr
       1155447057 1446110234 1100435755 5541401215 1154635162 1156446243 5311005657 3440434156 tMDXO'Ftc,t COMMA ?rtLSIRtNDRCKt NO, CAN
       1464404245 4041567140 5557624534 4062456465 6256162117 1515151515 1515151515 1152606362 'T BE ANY MORE, RETURN(1)rrrrrrrrrrtJPSR
       1147637155 4111004554 6345344047 4564405645 7064406371 5540165565 6364404245 4041546050 tGSYMAt ELSE, GET NEXT SYM (MUST BE ALPH
       4117151515 1155444162 1163435041 6211004445 5451554564 4562405163 4013331340 1215151515 A)rrrtMDARtSCHARt DELIMETER IS "=" ?rrrr
       1155447057 1446110233 1515151515 1155444162 1457116371 5542461100 4156444056 5740606245 tMDXO'Ftc=rrrrrtMDAR'OtSYMBFt AND NO PRE
       4651704012 1515151515 1155444162 1457145011 6371554222 1100415644 4057565471 4057564540 FIX ?rrrrrtMDAR'O'HtSYMB2t AND ONLY ONE 
       6757624440 1215151515 1155444162 1457145011 6371554223 1515151515 1152605463 1156446243 WORD ?rrrrtMDAR'O'HtSYMB3rrrrrtJPLStNDRC
       2311005657 3440515454 4547415440 6041624155 4564456215 1152655560 1156446243 2111004554 3t NO, ILLEGAL PARAMETERrtJUMPtNDRC1t EL
       6345344057 5334404757 4060625743 4563631515 1515151515 5644624621 0611112011 0013455644 SE, OK, GO PROCESSrrrrrrrNDRF1:tt0t "END
       3313404654 4147151515 5644624622 0611112011 0013456262 3313404654 4147151515 1515151515 =" FLAGrrrNDRF2:tt0t "ERR=" FLAGrrrrrrrr
       1515151515 0040576564 6065644043 5744454064 5740624563 4564401345 6262331340 5762401345 rrrrr  OUTPUT CODE TO RESET "ERR=" OR "E
       5644331340 6041644350 4563151515 1515151515 5644626263 0611526555 6011361100 4556646271 ND=" PATCHESrrrrrrrrNDRRS:tJUMPt.t ENTRY
       1515151515 1141565162 1470115644 6262631100 6245646562 5640514640 4654414740 5657644063 rrrrrtANIR'XtNDRRSt RETURN IF FLAG NOT S
       4564151515 1515151515 1155444162 1143554441 6236541100 4554634534 4057656460 6564401355 ETrrrrrrrrtMDARtCMDAR.Lt ELSE, OUTPUT "M
       4441621454 1340515663 6462654364 5157561515 1152606362 1157414263 1515151515 1152606362 DAR'L" INSTRUCTIONrrtJPSRtOABSrrrrrtJPSR
       1157637162 4611005765 6460656440 5657625541 5440456262 5762405057 5753151515 1152655560 tOSYRFt OUTPUT NORMAL ERROR HOOKrrrtJUMP
       1124455644 1100404016 4341545440 4570516417 1515151515 1155444162 1451115644 6262631100 t4ENDt   (CALL EXIT)rrrrrtMDAR'ItNDRRSt 
       4645644350 4057646340 6364576245 1515151515 1141625544 1136102211 0063416645 1515151515 FETCH OTS STORErrrrrtARMDt.+2t SAVErrrrr
       1152606362 1157637162 4611004555 5164404570 6445625641 5440624546 4562455643 4515151515 tJPSRtOSYRFt EMIT EXTERNAL REFERENCErrrr
       1141625544 1111004040 1613416255 4440732445 6222271340 5762401341 6255444073 2445622226 tARMDtt   ("ARMD $4ER27" OR "ARMD $4ER26
       1317151515 1155445162 1470115644 6262631100 6245646562 5615151515 1515151515 1515151515 ")rrrtMDIR'XtNDRRSt RETURNrrrrrrrrrrrrrr
       7777700000 5514423447 5514423447 5514423447 5514423447 5514423447 5514423447 5514423447 bbX  M'B,GM'B,GM'B,GM'B,GM'B,GM'B,GM'B,G
       5514423447 5514423447 5514423447                                                        M'B,GM'B,GM'B,G
 1575: 0007500014 4664562024 1361200455 3414400000 0040474564 4051375740 6556516440 5665554245  _H 'FTN04"Q0&M,'     GET I/O UNIT NUMBE
       6215151515 1515151515 4765565164 0611526555 6011361100 4556646271 1515151515 1155444162 RrrrrrrrrrGUNIT:tJUMPt.t ENTRYrrrrrtMDAR
       1143231100 4163636555 4540444566 5143454042 5764504041 5557634041 5644404163 4351511515 tC3t ASSUME DEVICE BOTH AMOS AND ASCIIrr
       1141625544 1147655664 3015151515 1152606362 1147637155 1100474564 4063715542 5754404657 tARMDtGUNT8rrrrtJPSRtGSYMt GET SYMBOL FO
       6240655651 6415151515 1152655560 1136102211 0040406360 4543514154 4016544564 4060575451 R UNITrrrrtJUMPt.+2t   SPECIAL (LET POLI
       6350404751 6645404562 6257621715 1152655560 1147655664 2111004040 4451475164 3440526555 SH GIVE ERROR)rtJUMPtGUNT1t   DIGIT, JUM
       6040465762 4043575663 6441566440 6556516440 5657361515 1515151515 1141625544 1457116371 P FOR CONSTANT UNIT NO.rrrrrrrtARMD'OtSY
       5563661100 6341664540 6371554257 5415151515 1141625544 1457116362 4546471100 6345644046 MSVt SAVE SYMBOLrrrrtARMD'OtSREFGt SET F
       5762406351 5647544540 6245464562 4556434540 5756547115 1152606362 1160575451 6350110047 OR SINGLE REFERENCE ONLYrtJPSRtPOLISHt G
       4564406057 5451635040 4657624051 3757406556 5164406371 5542575415 1155444162 1160575463 ET POLISH FOR I/O UNIT SYMBOLrtMDARtPOLS
       6411004645 6443504060 5754516350 4060575156 6445621515 1141625544 1147655664 3111006341 Tt FETCH POLISH POINTERrrtARMDtGUNT9t SA
       6645406556 5164405657 3640464564 4350403740 6057545163 5040605751 5664456215 1155445162 VE UNIT NO. FETCH / POLISH POINTERrtMDIR
       1147655651 6411006245 6465625615 1515151515 4765566421 0611526063 6211475157 5655110047 tGUNITt RETURNrrrrrrGUNT1:tJPSRtGIONMt G
       4564405156 6445474562 4057624057 4364415440 6556516440 5657361515 1152606362 1160655651 ET INTEGER OR OCTAL UNIT NO.rrtJPSRtPUNI
       6411006062 5743456363 4043575663 6441566440 6556516440 5657361515 1155445162 1147655651 Tt PROCESS CONSTANT UNIT NO.rrtMDIRtGUNI
       6411006245 6465625615 1515151515 4765566430 0611112011 0041634351 5137415557 6340444566 Tt RETURNrrrrrrGUNT8:tt0t ASCII/AMOS DEV
       5143454046 5441476315 4765566431 0611112011 0065565164 4046456443 5040576240 6057545163 ICE FLAGSrGUNT9:tt0t UNIT FETCH OR POLIS
       5040606462 4051464063 7155425754 1515151515 1515151515 1515151515 0040606257 4345636340 H PTR IF SYMBOLrrrrrrrrrrrrrrr  PROCESS 
       4357566364 4156644051 3757406556 5164405657 3615151515 1515151515 6065565164 0611526555 CONSTANT I/O UNIT NO.rrrrrrrrrPUNIT:tJUM
       6011361100 4556646271 1515151515 1141625544 1147655664 3111006341 6645406556 5164405657 Pt.t ENTRYrrrrrtARMDtGUNT9t SAVE UNIT NO
       3615151515 1155444163 1446145611 5541706556 5164631100 3647643640 5541704041 5454576745 .rrrrtMDAS'F'NtMAXUNITSt .GT. MAX ALLOWE
       4440655651 6440121515 1152604156 1160655664 2211005657 3440575334 4063535160 1515151515 D UNIT ?rrtJPANtPUNT2t NO, OK, SKIPrrrrr
       1515151515 6065566421 0611526063 6211456262 5762110045 5463453440 6741625651 5647404562 rrrrrPUNT1:tJPSRtERRORt ELSE, WARNING ER
       6257621515 1111456227 3011004040 1656575635 6364415644 4162444065 5651644056 5736171515 RORrrttER78t   (NON-STANDARD UNIT NO.)rr
       1152655560 1160655664 2311005265 5560406457 4062456465 6256151515 1515151515 6065566422 tJUMPtPUNT3t JUMP TO RETURNrrrrrrrrPUNT2
       0611554441 4514541111 0043575560 6564454046 4564435040 4662575540 6556516440 6441425445 :tMDAE'Ltt COMPUTE FETCH FROM UNIT TABLE
       1515151515 1155444162 1151576441 4210554170 6556516463 1515151515 1141625162 1446111100 rrrrrtMDARtIOTAB+MAXUNITSrrrrrtARIR'Ftt 
       4745644064 4142544540 6757624415 1152605463 1136102211 0063535160 4051464044 4546515645 GET TABLE WORDrtJPLSt.+2t SKIP IF DEFINE
       4415151515 1152655560 1160655664 2111004554 6345344065 5644454651 5645444065 5651643440 DrrrrtJUMPtPUNT1t ELSE, UNDEFINED UNIT, 
       4562625762 1515151515 1515151515 1141625544 1147655664 3011006341 6645406757 6244151515 ERRORrrrrrrrrrrtARMDtGUNT8t SAVE WORDrrr
       1152606362 1151564354 4411005156 4354654445 4057646340 4462516645 6215151515 1155444162 tJPSRtINCLDt INCLUDE OTS DRIVERrrrrtMDAR
       1442114765 5664301100 4645644350 4041555763 3741634351 5140444566 5143454046 5441476315 'BtGUNT8t FETCH AMOS/ASCII DEVICE FLAGSr
       1141624162 1442144611 1100635051 4664406457 4060576351 6451575615 1155444162 1441114323 tARAR'B'Ftt SHIFT TO POSITIONrtMDAR'AtC3
       1100554163 5315151515 1141625544 1147655664 3011004156 4440634166 4540465762 4046576255 t MASKrrrrtARMDtGUNT8t AND SAVE FOR FORM
       4164406445 6364631515 1515151515 6065566423 0611554441 6211476556 6431110046 4564435040 AT TESTSrrrrrrrPUNT3:tMDARtGUNT9t FETCH 
       6556516440 5657361515 1155444162 1457114355 4441623646 1100435755 4251564540 1355444162 UNIT NO.rrtMDAR'OtCMDAR.Ft COMBINE "MDAR
       1446134051 5663646265 4364515756 1515151515 1141625544 1147655664 3111006341 6645404657 'F" INSTRUCTIONrrrrrtARMDtGUNT9t SAVE FO
       6240513757 1515151515 1155445162 1160655651 6411006245 6465625615 1515151515 1515151515 R I/OrrrrrtMDIRtPUNITt RETURNrrrrrrrrrrr
       7777700000 2655271575 2655271575 2655271575 2655271575 2655271575 2655271575 2655271575 bbX  6M7r@6M7r@6M7r@6M7r@6M7r@6M7r@6M7r@
       2655271575 2655271575 2655271575                                                        6M7r@6M7r@6M7r@
  540: 0007600014 4664562024 1361200136 3414400000 0040576564 6065644046 4564435040 5746405137  _P 'FTN04"Q0%.,'     OUTPUT FETCH OF I/
       5740655651 6440565736 1515151515 1515151515 5765565164 0611526555 6011361100 4556646271 O UNIT NO.rrrrrrrrrrOUNIT:tJUMPt.t ENTRY
       1515151515 1155444162 1147655664 3111006371 5542575451 4340655651 6440565736 4012151515 rrrrrtMDARtGUNT9t SYMBOLIC UNIT NO. ?rrr
       1152604156 1157655664 2111005657 3440526555 6040645740 5765646065 6440435756 6364415664 tJPANtOUNT1t NO, JUMP TO OUTPUT CONSTANT
       1515151515 1515151515 1141625544 1160466245 6011004554 6345344062 4543576645 6240605754 rrrrrrrrrrtARMDtPFREPt ELSE, RECOVER POL
       5163504063 6457624147 4515151515 1155444163 1446145611 2111004144 5265636440 6057545163 ISH STORAGErrrrtMDAS'F'Nt1t ADJUST POLIS
       5040636441 6264404657 6240456641 5415151515 1152606362 1145664154 1100456641 5465416445 H START FOR EVALrrrrtJPSRtEVALt EVALUATE
       4065565164 4056573615 1156575760 1515151515 1152606362 1145436246 1100576564 6065644062  UNIT NO.rtNOOPrrrrrtJPSRtECRFt OUTPUT R
       4546456245 5643454064 5740664162 5141425445 1515151515 1155444162 1143554441 6211004040 EFERENCE TO VARIABLErrrrrtMDARtCMDARt   
       1613554441 6213406556 5164405657 3617151515 1155445162 1157655651 6411006245 6465625615 ("MDAR" UNIT NO.)rrrtMDIRtOUNITt RETURNr
       1515151515 5765566421 0611526063 6211456657 4142110043 5756636441 5664406556 5164344057 rrrrrOUNT1:tJPSRtEVOABt CONSTANT UNIT, O
       6564606564 4013554441 6214461315 1155445162 1157655651 6411006245 6465625615 1515151515 UTPUT "MDAR'F"rtMDIRtOUNITt RETURNrrrrrr
       1515151515 7777700000 2622172534 2622172534 2622172534 2622172534 2622172534 2622172534 rrrrrbbX  62)5,62)5,62)5,62)5,62)5,62)5,
       2622172534 2622172534 2622172534 2622172534                                             62)5,62)5,62)5,62)5,
 1135: 0007700014 4664562024 1361200325 3414400000 0040513757 4065565164 4064414254 4540363636  _X 'FTN04"Q0!5,'     I/O UNIT TABLE ...
       1515151515 1515151515 3653403340 2420202020 1111110041 6343515140 4445665143 4540465441 rrrrrrrrrr.K = 40000ttt ASCII DEVICE FLA
       4715151515 3641403340 2220202020 1111110041 5557634044 4566514345 4046544147 1515151515 Grrrr.A = 20000ttt AMOS DEVICE FLAGrrrrr
       1515151515 5157644142 0611112011 0065565164 4056573640 4044456651 4345151515 1515151515 rrrrrIOTAB:tt0t UNIT NO.  DEVICErrrrrrrr
       1136410350 1124644160 1100404040 4021404040 4040644160 4563151515 1136410350 1124644160 t.A!Ht4TAPt     1     TAPESrrrt.A!Ht4TAP
       1100404040 4022404040 4040404013 1515151515 1136410350 1124644160 1100404040 4023404040 t     2       "rrrrrt.A!Ht4TAPt     3   
       4040404013 1515151515 1136410350 1124644160 1100404040 4024404040 4040404013 1515151515     "rrrrrt.A!Ht4TAPt     4       "rrrrr
       1136410350 1124644160 1100404040 4025404040 4040404013 1515151515 1136410350 1124644160 t.A!Ht4TAPt     5       "rrrrrt.A!Ht4TAP
       1100404040 4026404040 4040404013 1515151515 1136410350 1124644160 1100404040 4027404040 t     6       "rrrrrt.A!Ht4TAPt     7   
       4040404013 1515151515 1136410350 1124644160 1100404040 4030404040 4040404013 1515151515     "rrrrrt.A!Ht4TAPt     8       "rrrrr
       1111201100 4040404031 1515151515 1136530350 1124646471 1100404040 2120404040 4040435762 tt0t     9rrrrrt.K!Ht4TTYt    10     COR
       6245436441 4254454064 6471151515 1136530350 1124646071 1100404040 2121404040 4040646471 RECTABLE TTYrrrt.K!Ht4TPYt    11     TTY
       4046576240 6041604562 3564416045 4060655643 5015151515 1136530350 1124606260 1100404040  FOR PAPER-TAPE PUNCHrrrrt.K!Ht4PRPt    
       2122404040 4040606260 1515151515 1136410350 1124606054 1100404040 2123404040 4040606054 12     PRPrrrrrt.A!Ht4PPLt    13     PPL
       1515151515 1136410350 1124606256 1100404040 2124404040 4040546062 1515151515 1136530350 rrrrrt.A!Ht4PRNt    14     LPRrrrrrt.K!H
       1124544347 1100404040 2125404040 4040544347 4063604543 5141544044 5163605441 7140446251 t4LCGt    15     LCG SPECIAL DISPLAY DRI
       6645621515 1136530350 1124476246 7011004040 4021264040 4040404762 4146704054 4142455440 VERrrt.K!Ht4GRFXt    16     GRAFX LABEL 
       4265464645 6215151515 1136410350 1124436244 1100404040 2127404040 4040434462 1515151515 BUFFERrrrrt.A!Ht4CRDt    17     CDRrrrrr
       1111201100 4040402130 1515151515 1111201100 4040402131 1515151515 1136410350 1124446353 tt0t    18rrrrrtt0t    19rrrrrt.A!Ht4DSK
       1100404040 2220404040 4040416445 7064404451 6353404651 5445151515 1136410350 1124446353 t    20     ATEXT DISK FILErrrt.A!Ht4DSK
       2111004040 4022214040 4040404451 6353151515 1136410350 1124446353 2111004040 4022224040 1t    21     DISKrrrt.A!Ht4DSK1t    22  
       4040404040 1315151515 1136410350 1124446353 2111004040 4022234040 4040404040 1315151515      "rrrrt.A!Ht4DSK1t    23       "rrrr
       1136410350 1124446353 2111004040 4022244040 4040404040 1315151515 1136530350 1124554466 t.A!Ht4DSK1t    24       "rrrrt.K!Ht4MDV
       1100404040 2225404040 4040555756 5164576240 5451636451 5647404445 6651434515 1136410350 t    25     MONITOR LISTING DEVICErt.A!H
       1124504357 6211004040 4022264040 4040404155 5763404357 6245404265 4646456215 1136530350 t4HCORt    26     AMOS CORE BUFFERrt.K!H
       1124534357 6211004040 4022274040 4040404163 4351514043 5762454042 6546464562 1515151515 t4KCORt    27     ASCII CORE BUFFERrrrrr
       1515151515 5541706556 5164634033 4036355157 6441423521 1515151515 1515151515 1515151515 rrrrrMAXUNITS = .-IOTAB-1rrrrrrrrrrrrrrr
       7777700000 3702533473 3702533473 3702533473 3702533473 3702533473 3702533473 3702533473 bbX  /cK,$/cK,$/cK,$/cK,$/cK,$/cK,$/cK,$
       3702533473 3702533473 3702533473                                                        /cK,$/cK,$/cK,$
 1385: 0010000014 4664562024 1361200407 3414400000 0040576645 6254417140 6364416445 5545566463  +  'FTN04"Q0&_,'     OVERLAY STATEMENTS
       4036363615 1515151515 1515151515 0040545156 5363406364 4164455545 5664406062 5743456363  ...rrrrrrrrrrr  LINKS STATEMENT PROCESS
       5762403636 3615151515 1515151515 5456536306 1155444162 1454111100 4645644350 4057646340 OR ...rrrrrrrrrLNKS:tMDAR'Ltt FETCH OTS 
       4341545440 4657624054 5156533563 6542625765 6451564535 1515151515 1152606362 1154515653 CALL FOR LINK-SUBROUTINE-rrrrrtJPSRtLINK
       6311004040 4156443562 4564656256 3564573543 4154544562 1515151515 1515151515 5456536321 St   AND-RETURN-TO-CALLERrrrrrrrrrrLNKS1
       0611416255 4411545653 6331110063 4166454057 6463404341 5454151515 1141625544 1154565363 :tARMDtLNKS9t SAVE OTS CALLrrrtARMDtLNKS
       3011004354 4541624041 6247655545 5664405451 6364404154 5457674544 4046544147 1515151515 8t CLEAR ARGUMENT LIST ALLOWED FLAGrrrrr
       1152606362 1154565363 4711004745 6440564155 4540574640 5766456254 4171151515 1152605463 tJPSRtLNKSGt GET NAME OF OVERLAYrrrtJPLS
       1151544743 5011004040 1655656364 4045564440 5756404337 6217151515 1152606362 1144575146 tILGCHt   (MUST END ON C/R)rrrtJPSRtDOIF
       1100606257 4345636340 5457475143 4154405146 3440514640 6045564451 5647151515 1515151515 t PROCESS LOGICAL IF, IF PENDINGrrrrrrrr
       5456536323 0611526063 6211545653 6363110057 6564606564 4043574445 4046576240 5766456254 LNKS3:tJPSRtLNKSSt OUTPUT CODE FOR OVERL
       4171406364 4164455545 5664151515 1152655560 1163644654 5711006245 6465625640 4156444063 AY STATEMENTrrrtJUMPtSTFLOt RETURN AND S
       4564406062 5747624155 4046545767 1515151515 1515151515 1515151515 0040545156 5345406364 ET PROGRAM FLOWrrrrrrrrrrrrrrr  LINKE ST
       4164455545 5664406062 5743456363 5762403636 3615151515 1515151515 5456534506 1155444162 ATEMENT PROCESSOR ...rrrrrrrrrLNKE:tMDAR
       1454111100 4645644350 4057646340 4341545440 4657624054 5156533541 5644354556 6445621515 'Ltt FETCH OTS CALL FOR LINK-AND-ENTERrr
       1152606362 1154515653 4515151515 1152655560 1154565363 2111005265 5560406457 4060625743 tJPSRtLINKErrrrtJUMPtLNKS1t JUMP TO PROC
       4563631515 1515151515 1515151515 0040545156 5343406364 4164455545 5664406062 5743456363 ESSrrrrrrrrrrrr  LINKC STATEMENT PROCESS
       5762403636 3615151515 1515151515 5456534306 1155444162 1454111100 4645644350 4057646340 OR ...rrrrrrrrrLNKC:tMDAR'Ltt FETCH OTS 
       4341545440 4657624054 5156533563 6542625765 6451564535 1515151515 1152606362 1154515653 CALL FOR LINK-SUBROUTINE-rrrrrtJPSRtLINK
       4311004040 4156443543 4154543567 5164503541 6247655545 5664631515 1515151515 5456536322 Ct   AND-CALL-WITH-ARGUMENTSrrrrrrrLNKS2
       0611416255 4411545653 6331110063 4166454057 6463404341 5454151515 1141625544 1457115456 :tARMDtLNKS9t SAVE OTS CALLrrrtARMD'OtLN
       5363301100 6345644041 6247405451 6364404654 4147151515 1155444162 1446115456 5363671100 KS8t SET ARG LIST FLAGrrrtMDAR'FtLNKSWt 
       6345646560 4051566462 5156635143 4046655643 6451575640 4357566462 5754151515 1141625544 SETUP INTRINSIC FUNCTION CONTROLrrrtARMD
       1153457146 4711004040 6757624415 1152606362 1154565363 4711004745 6440576645 6254417140 tKEYFGt   WORDrtJPSRtLNKSGt GET OVERLAY 
       5641554515 1152605463 1147624663 4211005146 4041624763 3440606257 4345636340 4163405156 NAMErtJPLStGRFSBt IF ARGS, PROCESS AS IN
       6364625156 6351434046 6556436415 1515151515 1152606362 1144575146 1100455463 4534406062 STRINSIC FUNCTrrrrrrtJPSRtDOIFt ELSE, PR
       5743456363 4041567140 5457475143 4154405146 1515151515 1155444162 1143416270 5736461100 OCESS ANY LOGICAL IFrrrrrtMDARtCARXO.Ft 
       5765646065 6440134162 7057144613 4046576240 5657404162 4763151515 1152606362 1145665741 OUTPUT "ARXO'F" FOR NO ARGSrrrtJPSRtEVOA
       4215151515 1152655560 1154565363 2311005265 5560406457 4057656460 6564405764 6340434154 BrrrrtJUMPtLNKS3t JUMP TO OUTPUT OTS CAL
       5415151515 1515151515 1515151515 0040576645 6254417140 6364416445 5545566440 6062574345 Lrrrrrrrrrrrrrr  OVERLAY STATEMENT PROCE
       6363576240 3636361515 1515151515 5456535706 1155444162 1454111100 4645644350 4057646340 SSOR ...rrrrrrrLNKO:tMDAR'Ltt FETCH OTS 
       4341545440 4657624054 5741443541 5644354341 5454151515 1152606362 1157666254 7111004040 CALL FOR LOAD-AND-CALLrrrtJPSRtOVRLYt   
       5766456254 4171151515 1152655560 1154565363 2211005265 5560406457 4060625743 4563631515 OVERLAYrrrtJUMPtLNKS2t JUMP TO PROCESSrr
       1515151515 1515151515 7777700000 5217754027 5217754027 5217754027 5217754027 5217754027 rrrrrrrrrrbbX  J)@ 7J)@ 7J)@ 7J)@ 7J)@ 7
       5217754027 5217754027 5217754027 5217754027 5217754027                                  J)@ 7J)@ 7J)@ 7J)@ 7J)@ 7
   75: 0010100014 4664562024 1361200001 3414400000 7777777777 7777777777 7777777777 7777777777  ++ 'FTN04"Q0 %,'   bbbbbbbbbbbbbbbbbbbb
       7777777777 7777777777 7777777777 7777777777 7777777777 7777777777 7777777777            bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
 1450: 0000100015 4664562025 1361200424 3414400000 0040474564 4057664562 5441714056 4155451515   + rFTN05"Q0&4,'     GET OVERLAY NAMErr
       1515151515 5456536347 0611526555 6011361100 4556646271 1515151515 1155444162 1163435041 rrrrrLNKSG:tJUMPt.t ENTRYrrrrrtMDARtSCHA
       6211004445 5451554564 4562403340 4254415653 4012151515 1155447057 1446112420 1515151515 Rt DELIMETER = BLANK ?rrrtMDXO'Ft40rrrrr
       1141625544 1164455521 1100565734 4063456440 4654414715 1154637057 1143252611 0057624051 tARMDtTEM1t NO, SET FLAGrtLSXOtC56t OR I
       6340516440 4140544546 6440604162 4556401215 1152605463 1151544743 5011005657 3440515454 S IT A LEFT PAREN ?rtJPLStILGCHt NO, ILL
       4547415440 6371566441 7015151515 1515151515 1152606362 1147637155 4111004745 6440637155 EGAL SYNTAXrrrrrrrrrtJPSRtGSYMAt GET SYM
       4257545143 4056415545 1515151515 1155444162 1163715542 2111006341 6645404651 6263644046 BOLIC NAMErrrrrtMDARtSYMB1t SAVE FIRST F
       5166454043 5041626315 1141625544 1154565363 7015151515 1155444162 1163715542 2211006341 IVE CHARSrtARMDtLNKSXrrrrtMDARtSYMB2t SA
       6645406345 4357564440 4651664540 4350416263 1515151515 1141625544 1154565363 7115151515 VE SECOND FIVE CHARSrrrrrtARMDtLNKSYrrrr
       1155444162 1450116371 5542231100 5457564745 6240645041 5640644556 4043504162 6340121515 tMDAR'HtSYMB3t LONGER THAN TEN CHARS ?rr
       1152605463 1147634562 2111007145 6334404641 6441544045 6262576215 1515151515 1155444162 tJPLStGSER1t YES, FATAL ERRORrrrrrrtMDAR
       1164455521 1100604162 4556645045 6351724544 4056415545 4012151515 1152605463 1136102411 tTEM1t PARENTHESIZED NAME ?rrrtJPLSt.+4t
       0071456334 4063535160 1515151515 1515151515 1155444162 1163435041 6211004554 6345344044  YES, SKIPrrrrrrrrrrtMDARtSCHARt ELSE, D
       4554515545 6445624033 4043376240 1215151515 1155447057 1446112125 1100565734 4054574144 ELIMETER = C/R ?rrrrtMDXO'Ft15t NO, LOAD
       4046544147 4046576240 4162474054 5163644046 5754545767 5156471515 1155445162 1154565363  FLAG FOR ARG LIST FOLLOWINGrrtMDIRtLNKS
       4711006245 6465625615 1515151515 1155444162 1163435041 6211007145 6334404445 5451554564 Gt RETURNrrrrrrtMDARtSCHARt YES, DELIMET
       4562405565 6364404245 4062514750 6440604162 4556151515 1155447057 1446110217 1515151515 ER MUST BE RIGHT PARENrrrtMDXO'Ftc)rrrrr
       1152605463 1151544743 5011004554 6345344051 5454454741 5440637156 6441701515 1515151515 tJPLStILGCHt ELSE, ILLEGAL SYNTAXrrrrrrr
       1152606362 1147436311 0047456440 5645706440 4350416215 1155447057 1446112125 1100556563 tJPSRtGCSt GET NEXT CHARrtMDXO'Ft15t MUS
       6440424540 4556444057 4640636441 6445554556 6415151515 1152605463 1151544743 5011004554 T BE END OF STATEMENTrrrrtJPLStILGCHt EL
       6345344045 6262576215 1155445162 1154565363 4711006245 6465625640 4657624056 5740416247 SE, ERRORrtMDIRtLNKSGt RETURN FOR NO ARG
       6315151515 1515151515 1515151515 0040576564 6065644057 6645625441 7140636441 6445554556 Srrrrrrrrrrrrrr  OUTPUT OVERLAY STATEMEN
       6440435744 4540164154 6357404341 5454454440 4271404566 4154405146 4041624740 5451636440 T CODE (ALSO CALLED BY EVAL IF ARG LIST 
       6062456345 5664171515 1515151515 5456536363 0611526555 6011361100 4556646271 1515151515 PRESENT)rrrrrrrLNKSS:tJUMPt.t ENTRYrrrrr
       1152606362 1163456441 5511006345 6440554143 5051564540 5557444515 1152606362 1157637162 tJPSRtSETAMt SET MACHINE MODErtJPSRtOSYR
       4611005765 6460656440 5764634043 4154541515 5456536331 0611565757 6015151515 1155444162 Ft OUTPUT OTS CALLrrLNKS9:tNOOPrrrrtMDAR
       1450115456 5363711100 6467573567 5762444056 4155454012 1515151515 1152605463 1136102411 'HtLNKSYt TWO-WORD NAME ?rrrrrtJPLSt.+4t
       0071456334 4063535160 1515151515 1515151515 1155444162 1154565363 7011004554 6345344046  YES, SKIPrrrrrrrrrrtMDARtLNKSXt ELSE, F
       4564435040 4651664535 4350416240 5641554515 1152606362 1157414263 1100576564 6065644041 ETCH FIVE-CHAR NAMErtJPSRtOABSt OUTPUT A
       6340416247 4064574057 6645625441 7140625765 6451564515 1152655560 1154565363 2511006353 S ARG TO OVERLAY ROUTINErtJUMPtLNKS5t SK
       5160151515 1515151515 1155444162 1154565363 7011006364 5762454056 4155454041 6340646757 IPrrrrrrrrtMDARtLNKSXt STORE NAME AS TWO
       3567576244 4043575663 6441566415 1152606362 1163644356 2215151515 1155444162 1154565363 -WORD CONSTANTrtJPSRtSTCN2rrrrtMDARtLNKS
       7111004040 1642576450 4067576244 6317151515 1155444162 1454145714 5032112727 2727251100 Yt   (BOTH WORDS)rrrtMDAR'L'O'H;t77775t 
       4657625540 3522035040 6441425445 4060646215 1152606362 1157624546 1100576564 6065644062 FORM -2!H TABLE PTRrtJPSRtOREFt OUTPUT R
       4546456245 5643454064 5740435756 6364415664 4064414254 4515151515 1515151515 7777700000 EFERENCE TO CONSTANT TABLErrrrrrrrrbbX  
       7170512571 7170512571 7170512571 7170512571 7170512571 7170512571 7170512571 7170512571 YXI5YYXI5YYXI5YYXI5YYXI5YYXI5YYXI5YYXI5Y
       7170512571 7170512571                                                                   YXI5YYXI5Y
  415: 0000200015 4664562025 1361200105 3414400000 5456536325 0611554441 6214561154 5653633011   0 rFTN05"Q0%*,'   LNKS5:tMDAR'NtLNKS8t
       0057646340 6257656451 5645406441 5345634041 6247655545 5664405451 6364401215 1141565162  OTS ROUTINE TAKES ARGUMENT LIST ?rtANIR
       1154565363 6311005657 3440624564 6562561515 1515151515 1141627057 1446111100 4554634534 tLNKSSt NO, RETURNrrrrrrrtARXO'Ftt ELSE,
       4057656460 6564404465 5555714067 5762444046 5762405260 6362151515 1152606362 1157414263  OUTPUT DUMMY WORD FOR JPSRrrrtJPSRtOABS
       1100404062 4560544143 4555455664 4041644057 4252454364 4064515545 1515151515 1155445162 t   REPLACEMENT AT OBJECT TIMErrrrrtMDIR
       1154565363 6311006245 6465625615 1515151515 1515151515 5456536370 0611112011 0056415545 tLNKSSt RETURNrrrrrrrrrrrLNKSX:tt0t NAME
       4067576244 4021151515 5456536371 0611112011 0056415545 4067576244 4022151515 5456536330  WORD 1rrrLNKSY:tt0t NAME WORD 2rrrLNKS8
       0611112011 0041624740 5451636440 4654414715 5456536367 0611212420 2020035011 1100515664 :tt0t ARG LIST FLAGrLNKSW:t14000!Htt INT
       6251566351 4340466556 4364515756 4043575664 6257544067 5762441515 1515151515 1515151515 RINSIC FUNCTION CONTROL WORDrrrrrrrrrrrr
       7777700000 6265471311 6265471311 6265471311 6265471311 6265471311 6265471311 6265471311 bbX  RUG"tRUG"tRUG"tRUG"tRUG"tRUG"tRUG"t
       6265471311 6265471311 6265471311                                                        RUG"tRUG"tRUG"t
 1430: 0000300015 4664562025 1361200420 3414400000 0040476241 4670404570 4543656441 4254454063   8 rFTN05"Q0&0,'     GRAFX EXECUTABLE S
       6441644555 4556646340 3636361515 1515151515 0040435041 6215151515 1515151515 4762435062 TATEMENTS ...rrrrrrr  CHARrrrrrrrrrGRCHR
       0611526063 6211476243 5051110060 6257434563 6340435041 6240516445 5540675164 5015151515 :tJPSRtGRCHIt PROCESS CHAR ITEM WITHrrrr
       1111476246 6442102427 1100404040 6757624440 4662575540 4762414670 4043575664 6257544064 ttGRFTB+47t    WORD FROM GRAFX CONTROL T
       4142544515 1122202020 2003501111 0040404041 5644406360 4543514154 4063646251 5647404357 ABLErt20000!Htt    AND SPECIAL STRING CO
       4445151515 1515151515 1515151515 0040554556 6515151515 1515151515 4762555665 0611526063 DErrrrrrrrrrrrr  MENUrrrrrrrrrGRMNU:tJPS
       6211476243 5051110060 6257434563 6340554556 6540516445 5540675164 5015151515 1111476246 RtGRCHIt PROCESS MENU ITEM WITHrrrrttGRF
       6442102520 1100404040 6757624440 4662575540 4762414670 4043575664 6257544064 4142544515 TB+50t    WORD FROM GRAFX CONTROL TABLEr
       1126202020 2003501111 0040404041 5644406360 4543514154 4063646251 5647404357 4445151515 t60000!Htt    AND SPECIAL STRING CODErrr
       1515151515 1515151515 0040605763 4350416215 1515151515 4762604350 0611554441 6211634350 rrrrrrrrrr  POSCHARrrrrrrGRPCH:tMDARtSCH
       4162110044 4554515551 6445624033 4013161340 1215151515 1155447057 1446110216 1515151515 ARt DELIMITER = "(" ?rrrrtMDXO'Ftc(rrrrr
       1152605463 1151544743 5011005657 3440456262 5762151515 1515151515 1152606362 1147637155 tJPLStILGCHt NO, ERRORrrrrrrrrtJPSRtGSYM
       1100474564 4056457064 4063715542 5754151515 1152655560 1147626043 2211005265 5560405146 t GET NEXT SYMBOLrrrtJUMPtGRPC2t JUMP IF
       4063604543 5141541515 1152655560 1147626043 2211004040 4057624056 6555456251 4315151515  SPECIALrrtJUMPtGRPC2t    OR NUMERICrrrr
       1515151515 1141625544 1457116371 5563661100 5146406371 5542575434 4063416645 4041564415 rrrrrtARMD'OtSYMSVt IF SYMBOL, SAVE ANDr
       1155444162 1446114762 4664421024 2611006345 6440476241 4670404357 5664625754 4064414254 tMDAR'FtGRFTB+46t SET GRAFX CONTROL TABL
       4540455664 6271151515 1141625544 1153457146 4715151515 1155444162 1147624350 6210221100 E ENTRYrrrtARMDtKEYFGrrrrtMDARtGRCHR+2t 
       6345644063 6045435141 5440636462 5156474046 5441471515 1141625544 1163434654 4715151515 SET SPECIAL STRING FLAGrrtARMDtSCFLGrrrr
       1152655560 1147626342 2111004757 4044574047 6241467040 4665564364 5157561515 1515151515 tJUMPtGRSB1t GO DO GRAFX FUNCTIONrrrrrrr
       4762604322 0611416255 4414571163 7155636611 0063416645 4043504162 4143644562 1515151515 GRPC2:tARMD'OtSYMSVt SAVE CHARACTERrrrrr
       1141625544 1457116445 5523110063 4564404657 6240605763 5164516645 4043575663 6441566415 tARMD'OtTEM3t SET FOR POSITIVE CONSTANTr
       1152606362 1147466245 4511004745 6440646757 4067576244 6340466257 5540466245 4540435762 tJPSRtGFREEt GET TWO WORDS FROM FREE COR
       4515151515 1111221515 1141625544 1164455521 1100634166 4540414444 6245636340 4657624013 Errrrtt2rrtARMDtTEM1t SAVE ADDRESS FOR "
       7213406641 5465451515 1141625544 1164455522 1100634166 4540414444 6245636340 4657624013 Z" VALUErrtARMDtTEM2t SAVE ADDRESS FOR "
       7035711340 6641546545 6315151515 1141627057 1446151515 1141625544 1162454346 2111006245 X-Y" VALUESrrrrtARXO'FrrrtARMDtRECF1t RE
       6345644062 4543574756 5172456240 4654414763 1515151515 1141625544 1162454346 2215151515 SET RECOGNIZER FLAGSrrrrrtARMDtRECF2rrrr
       1141625544 1451116445 5521110062 4563456440 1372134066 4154654515 1141625544 1451147011 tARMD'ItTEM1t RESET "Z" VALUErtARMD'I'Xt
       6445552211 0062456345 6440137035 7113406641 5465456315 1152606362 1162454357 4711004745 TEM2t RESET "X-Y" VALUESrtJPSRtRECOGt GE
       6440465162 6364404162 4765554556 6415151515 1152655560 1147626043 2111004040 4045626257 T FIRST ARGUMENTrrrrtJUMPtGRPC1t    ERRO
       6240514640 6371554257 5415151515 1152655560 1136102511 0040404063 5351604051 4640566555 R IF SYMBOLrrrrtJUMPt.+5t    SKIP IF NUM
       4562514340 4357566364 4156641515 1152655560 1147626043 2611004040 4052655560 4051464063 ERIC CONSTANTrrtJUMPtGRPC6t    JUMP IF S
       6462515647 4043575663 6441566415 1152655560 1147626043 2111004040 4045626257 6240514640 TRING CONSTANTrtJUMPtGRPC1t    ERROR IF 
       4144446236 4043575663 6441566415 1152606362 1147626063 5711004040 4051464057 6045624164 ADDR. CONSTANTrtJPSRtGRPSOt    IF OPERAT
       5762344064 4563644013 3513151515 1152655560 1136352611 0040404040 4041564440 5457575340 OR, TEST "-"rrrtJUMPt.-6t      AND LOOK 
       4147415156 1515151515 1515151515 7777700000 2313351344 2313351344 2313351344 2313351344 AGAINrrrrrrrrrrbbX  3"-"D3"-"D3"-"D3"-"D
       2313351344 2313351344 2313351344 2313351344 2313351344 2313351344                       3"-"D3"-"D3"-"D3"-"D3"-"D3"-"D
 1760: 0000400015 4664562025 1361200522 3414400000 1152606362 1147626043 4411006062 5743456363     rFTN05"Q0*2,'   tJPSRtGRPCDt PROCESS
       4043575663 6441566440 6641546545 1515151515 1141625544 1450145111 6445552211 0063416645  CONSTANT VALUErrrrrtARMD'H'ItTEM2t SAVE
       4013701340 6641546545 1515151515 1152606362 1162454357 4711004745 6440564570 6440416247  "X" VALUErrrrrtJPSRtRECOGt GET NEXT ARG
       6555455664 1515151515 1152655560 1147626043 2111004040 4051545445 4741544051 4640637155 UMENTrrrrrtJUMPtGRPC1t    ILLEGAL IF SYM
       4257541515 1152655560 1136102511 0040404063 5351604051 4640566555 4562514340 4357566364 BOLrrtJUMPt.+5t    SKIP IF NUMERIC CONST
       4156641515 1152655560 1147626043 2611004040 4052655560 4051464063 6462515647 4043575663 ANTrrtJUMPtGRPC6t    JUMP IF STRING CONS
       6441566415 1152655560 1147626043 2111004040 4045626257 6240514640 4144446245 6363404357 TANTrtJUMPtGRPC1t    ERROR IF ADDRESS CO
       5663644156 6415151515 1152606362 1147626063 5711004040 4051464057 6045624164 5762344064 NSTANTrrrrtJPSRtGRPSOt    IF OPERATOR, T
       4563644013 3513151515 1152655560 1136352611 0040404040 4041564440 5457575340 4147415156 EST "-"rrrtJUMPt.-6t      AND LOOK AGAIN
       1515151515 1515151515 1152606362 1147626043 4411006062 5743456363 4043575663 6441566440 rrrrrrrrrrtJPSRtGRPCDt PROCESS CONSTANT 
       6641546545 1515151515 1155444162 1457145111 6445552211 0043575542 5156454067 5164504013 VALUErrrrrtMDAR'O'ItTEM2t COMBINE WITH "
       7013406641 5465451515 1141625544 1451116445 5522110063 4166454013 7035711340 6641546545 X" VALUErrtARMD'ItTEM2t SAVE "X-Y" VALUE
       6315151515 1152606362 1162454357 4711004745 6440564570 6440416247 6555455664 1515151515 SrrrrtJPSRtRECOGt GET NEXT ARGUMENTrrrrr
       1152655560 1147626043 2111004040 4045626257 6240514640 6371554257 5415151515 1152655560 tJUMPtGRPC1t    ERROR IF SYMBOLrrrrtJUMP
       1136102511 0040404063 5351604051 4640566555 4562514340 4357566364 4156641515 1152655560 t.+5t    SKIP IF NUMERIC CONSTANTrrtJUMP
       1147626043 2611004040 4052655560 4051464063 6462515647 4043575663 6441566415 1152655560 tGRPC6t    JUMP IF STRING CONSTANTrtJUMP
       1147626043 2111004040 4045626257 6240514640 4144446236 4043575663 6441566415 1152606362 tGRPC1t    ERROR IF ADDR. CONSTANTrtJPSR
       1147626063 5711004040 4051464057 6045624164 5762344064 4563644013 3513151515 1152655560 tGRPSOt    IF OPERATOR, TEST "-"rrrtJUMP
       1136352611 0040404040 4041564440 5457575340 4147415156 1515151515 1515151515 1152606362 t.-6t      AND LOOK AGAINrrrrrrrrrrtJPSR
       1147626043 4411006062 5743456363 4013721340 6641546545 4043575663 6441566415 1141625544 tGRPCDt PROCESS "Z" VALUE CONSTANTrtARMD
       1450145111 6445552111 0063645762 4540137213 4066415465 4515151515 1515151515 1152606362 'H'ItTEM1t STORE "Z" VALUErrrrrrrrrtJPSR
       1162454357 4711004745 6440564570 6440416247 6555455664 1515151515 1152655560 1147626043 tRECOGt GET NEXT ARGUMENTrrrrrtJUMPtGRPC
       2111004040 4045626257 6240514640 6371554257 5415151515 1152655560 1147626043 2111004040 1t    ERROR IF SYMBOLrrrrtJUMPtGRPC1t   
       4045626257 6240514640 4357566364 4156641515 1152655560 1147626043 2611004040 4063535160  ERROR IF CONSTANTrrtJUMPtGRPC6t    SKIP
       4051464063 6462515647 4043575663 6441566415 1152655560 1147626043 2111004040 4045626257  IF STRING CONSTANTrtJUMPtGRPC1t    ERRO
       6240514640 4144446245 6363404357 5663644156 6415151515 1152655560 1147626043 2111004040 R IF ADDRESS CONSTANTrrrrtJUMPtGRPC1t   
       4045626257 6240514640 5760456241 6457621515 1515151515 4762604326 0611554441 6314461122  ERROR IF OPERATORrrrrrrrGRPC6:tMDAS'Ft2
       1100414444 4022406457 4063646251 5647405445 5647645015 1141625544 1164455523 1100404040 t ADD 2 TO STRING LENGTHrtARMDtTEM3t    
       4156444063 4166451515 1152606362 1147436311 0047456440 5645706440 4350416241 4364456215 AND SAVErrtJPSRtGCSt GET NEXT CHARACTERr
       1155447057 1446110217 1100516340 5164401317 1340121515 1152605463 1147626043 2111005657 tMDXO'Ftc)t IS IT ")" ?rrtJPLStGRPC1t NO
       3440456262 5762151515 1515151515 1152606362 1147436311 0046456443 5040564570 6440435041 , ERRORrrrrrrrrtJPSRtGCSt FETCH NEXT CHA
       6241436445 6215151515 1155447057 1446112125 1100516340 5164404337 6240121515 1152605463 RACTERrrrrtMDXO'Ft15t IS IT C/R ?rrtJPLS
       1147626043 2111005657 3440456262 5762151515 1515151515 1152606362 1147625443 6411004745 tGRPC1t NO, ERRORrrrrrrrrtJPSRtGRLCTt GE
       6440624554 5743416441 4254454043 5756636441 5664404556 6462711515 1141625544 1164455524 T RELOCATABLE CONSTANT ENTRYrrtARMDtTEM4
       1100634166 4540414444 6245636340 5746404556 6462711515 1141625544 1164455525 1515151515 t SAVE ADDRESS OF ENTRYrrtARMDtTEM5rrrrr
       1155444162 1451116445 5524110063 4564404251 6463402140 4156444022 4051564045 5664627140 tMDAR'ItTEM4t SET BITS 1 AND 2 IN ENTRY 
       4654414763 1515151515 1155444162 1457114342 2211004040 4064574051 5644514341 6445406360 FLAGSrrrrrtMDAR'OtCB2t    TO INDICATE SP
       4543514154 4063646251 5647151515 1155444162 1457144211 4342221100 4040404156 4440455754 ECIAL STRINGrrrtMDAR'O'BtCB2t    AND EOL
       4042516440 4140515663 4562645157 5615151515 1141625544 1451116445 5524151515 1155444162  BIT A INSERTIONrrrrtARMD'ItTEM4rrrtMDAR
       1450145611 6445552311 0046456443 5040564547 4164516645 4067576244 4043576556 6415151515 'H'NtTEM3t FETCH NEGATIVE WORD COUNTrrrr
       1155444162 1441145011 4155416353 1515151515 1155444162 1457116445 5521110043 5755425156 tMDAR'A'HtAMASKrrrrrtMDAR'OtTEM1t COMBIN
       4540636462 5156474063 6441626440 4144446245 6363151515 1141625544 1451147011 6445552511 E STRING START ADDRESSrrrtARMD'I'XtTEM5t
       0063416645 4051564043 5756636441 5664404556 6462711515 7777700000 5723020177 5723020177  SAVE IN CONSTANT ENTRYrrbbX  O3c%bO3c%b
       5723020177 5723020177 5723020177 5723020177 5723020177 5723020177 5723020177 5723020177 O3c%bO3c%bO3c%bO3c%bO3c%bO3c%bO3c%bO3c%b
 1260: 0000500015 4664562025 1361200356 3414400000 1152606362 1144575146 1100606257 4345636340   H rFTN05"Q0!N,'   tJPSRtDOIFt PROCESS 
       4156714060 4556445156 4740514614 6315151515 1152606362 1163456447 5511006345 6440476241 ANY PENDING IF'SrrrrtJPSRtSETGMt SET GRA
       4670405557 4445151515 1155444162 1450114350 6246471100 4645644350 4043504162 4143644562 FX MODErrrtMDAR'HtCHRFGt FETCH CHARACTER
       4051644555 4055574445 6315151515 1155444162 1441114342 2611005541 6353406257 6441644540  ITEM MODESrrrrtMDAR'AtCB6t MASK ROTATE 
       4251641515 1155444162 1457145414 5032112027 2020201100 4357554251 5645405760 4043574445 BITrrtMDAR'O'L'H;t07000t COMBINE OP CODE
       4046576240 6057634350 4162151515 1155444162 1457116445 5524110043 5755425156 4540414444  FOR POSCHARrrrtMDAR'OtTEM4t COMBINE ADD
       6245636340 5746406441 4254454045 5664627115 1152606362 1157624546 1100576564 6065644047 RESS OF TABLE ENTRYrtJPSRtOREFt OUTPUT G
       6241467040 5164455515 1152655560 1163644654 5711004757 4063456440 6062574762 4155404654 RAFX ITEMrtJUMPtSTFLOt GO SET PROGRAM FL
       5767151515 1515151515 4762604321 0611554441 6211644555 2111006245 4357664562 4041567140 OWrrrrrrrrGRPC1:tMDARtTEM1t RECOVER ANY 
       6563454440 4662454540 6364576241 4745151515 1141625544 1146624545 6015151515 1152655560 USED FREE STORAGErrrtARMDtFREEPrrrrtJUMP
       1151544743 5011004757 4060625743 4563634051 5454454741 5440637156 6441701515 1515151515 tILGCHt GO PROCESS ILLEGAL SYNTAXrrrrrrr
       1515151515 0040606257 4345636340 6351564754 4540675762 4440435756 6364415664 4063654262 rrrrr  PROCESS SINGLE WORD CONSTANT SUBR
       5765645156 4515151515 1515151515 4762604344 0611526555 6011361100 4556646271 1515151515 OUTINErrrrrrrrrGRPCD:tJUMPt.t ENTRYrrrrr
       1141625544 1164455526 1100634166 4540435756 6364415664 4066415465 4515151515 1155444162 tARMDtTEM6t SAVE CONSTANT VALUErrrrtMDAR
       1162454344 6411006741 6340516440 6471604540 3340624541 5440121515 1155447057 1446112215 tRECDTt WAS IT TYPE = REAL ?rrtMDXO'Ft2r
       1152605463 1136102411 0063535160 4051464056 5764151515 1515151515 1155444162 1164455526 tJPLSt.+4t SKIP IF NOTrrrrrrrrtMDARtTEM6
       1100464564 4350406641 5465451515 1152606362 1124626446 1100435756 6645626440 6457404662 t FETCH VALUErrtJPSRt4RTFt CONVERT TO FR
       4143645157 5615151515 1141625544 1164455526 1100404040 4156444062 4563645762 4515151515 ACTIONrrrrtARMDtTEM6t    AND RESTORErrrr
       1515151515 1152606362 1147436311 0046456443 5040564570 6440435041 6241436445 6215151515 rrrrrtJPSRtGCSt FETCH NEXT CHARACTERrrrr
       1155447057 1446110234 1100435755 5541401215 1152605463 1147626043 2111005657 3440515454 tMDXO'Ftc,t COMMA ?rtJPLStGRPC1t NO, ILL
       4547415440 6371566441 7015151515 1515151515 1155444162 1164455526 1100464564 4350406641 EGAL SYNTAXrrrrrrrrrtMDARtTEM6t FETCH VA
       5465451515 1155447057 1456116445 5523110043 5755605445 5545566440 5146406062 4543454544 LUErrtMDXO'NtTEM3t COMPLEMENT IF PRECEED
       5156474013 3513151515 1155444162 1441114155 4163531100 5541635340 6457402125 4042516463 ING "-"rrrtMDAR'AtAMASKt MASK TO 15 BITS
       1515151515 1141625544 1457116445 5523110062 4563645762 4540435755 6054455545 5664404654 rrrrrtARMD'OtTEM3t RESTORE COMPLEMENT FL
       4147151515 1155445162 1147626043 4411006245 6465625615 1515151515 1515151515 0040606257 AGrrrtMDIRtGRPCDt RETURNrrrrrrrrrrr  PRO
       4345636340 6556416271 4013351340 5760456241 6457624063 6542625765 6451564515 1515151515 CESS UNARY "-" OPERATOR SUBROUTINErrrrrr
       4762606357 0611526555 6011361100 4556646271 1515151515 1155447057 1446112126 1100674163 GRPSO:tJUMPt.t ENTRYrrrrrtMDXO'Ft16t WAS
       4057604562 4164576240 1335134012 1515151515 1152605463 1147626043 2111005657 3440456262  OPERATOR "-" ?rrrrrtJPLStGRPC1t NO, ERR
       5762151515 1515151515 1141625544 1164455523 1100435445 4162404654 4147406457 4043575560 ORrrrrrrrrtARMDtTEM3t CLEAR FLAG TO COMP
       5445554556 6440664154 6545151515 1155445162 1147626063 5711006245 6465625615 1515151515 LEMENT VALUErrrtMDIRtGRPSOt RETURNrrrrrr
       1515151515 7777700000 0666130274 0666130274 0666130274 0666130274 0666130274 0666130274 rrrrrbbX  :V"c#:V"c#:V"c#:V"c#:V"c#:V"c#
       0666130274 0666130274 0666130274 0666130274                                             :V"c#:V"c#:V"c#:V"c#
 1075: 0000600015 4664562025 1361200311 3414400000 0040606257 4345636340 4762414670 4043504162   P rFTN05"Q0!t,'     PROCESS GRAFX CHAR
       4143644562 4051644555 6315151515 1515151515 4762435051 0611526555 6011361100 4556646271 ACTER ITEMSrrrrrrrrrGRCHI:tJUMPt.t ENTRY
       1515151515 1155444162 1451114762 4350511100 4645644350 4047624146 7040466556 4364515756 rrrrrtMDAR'ItGRCHIt FETCH GRAFX FUNCTION
       4064414254 4540455664 6271151515 1141625544 1153457146 4711004040 4041444462 4563634041  TABLE ENTRYrrrtARMDtKEYFGt    ADDRESS A
       5644406341 6645404657 6240605754 5163501515 1155444162 1451147011 4762435051 1100464564 ND SAVE FOR POLISHrrtMDAR'I'XtGRCHIt FET
       4350406360 4543514154 4063646251 5647404357 5663644156 6415151515 1141625544 1163434654 CH SPECIAL STRING CONSTANTrrrrtARMDtSCFL
       4711004040 4046544147 4041564440 6341664540 4657624060 5754516350 1515151515 1152655560 Gt    FLAG AND SAVE FOR POLISHrrrrrtJUMP
       1147624663 4211004757 4060625743 4563634041 6340476241 4670404665 5643645157 5615151515 tGRFSBt GO PROCESS AS GRAFX FUNCTIONrrrr
       1515151515 0040605751 5664151515 1515151515 4762605664 0611526063 6211476257 5164110057 rrrrr  POINTrrrrrrrrGRPNT:tJPSRtGROITt O
       6564606564 4057554043 5744451515 1122242020 2403501123 2020202015 1152655560 1163644654 UTPUT OM CODErrt24004!Ht30000rtJUMPtSTFL
       5711004757 4064574056 4570644063 6441644555 4556641515 1515151515 1515151515 0040444163 Ot GO TO NEXT STATEMENTrrrrrrrrrrrr  DAS
       5015151515 1515151515 4762446350 0611526063 6211476257 5164110062 4563456440 6345435756 HrrrrrrrrrGRDSH:tJPSRtGROITt RESET SECON
       4440664543 6457624055 5744454042 5164151515 1122252020 2403501121 2020202015 1152606362 D VECTOR MODE BITrrrt25004!Ht10000rtJPSR
       1147625751 6411006345 6440465162 6364406645 4364576240 5557444540 4251641515 1122242020 tGROITt SET FIRST VECTOR MODE BITrrt2400
       2403501122 2020202015 1152655560 1163644654 5711004757 4064574056 4570644063 6441644555 4!Ht20000rtJUMPtSTFLOt GO TO NEXT STATEM
       4556641515 1515151515 1515151515 0040664543 6457621515 1515151515 4762664543 0611526063 ENTrrrrrrrrrrrr  VECTORrrrrrrrGRVEC:tJPS
       6211476257 5164110062 4563456440 6645436457 6240555744 4540425164 6315151515 1122252020 RtGROITt RESET VECTOR MODE BITSrrrrt2500
       2403501123 2020202015 1152655560 1163644654 5711004757 4064574056 4570644063 6441644555 4!Ht30000rtJUMPtSTFLOt GO TO NEXT STATEM
       4556641515 1515151515 1515151515 0040544451 1515151515 1515151515 4762544451 0611526063 ENTrrrrrrrrrrrr  LDIrrrrrrrrrrGRLDI:tJPS
       6211476257 5164110057 6564606564 4054445140 5164455515 1123272020 2003501515 1152655560 RtGROITt OUTPUT LDI ITEMrt37000!HrrtJUMP
       1163644654 5711004757 4064574056 4570644063 6441644555 4556641515 1515151515 1515151515 tSTFLOt GO TO NEXT STATEMENTrrrrrrrrrrrr
       0040634166 4515151515 1515151515 4762634166 0611526063 6211476257 5164110057 6564606564   SAVErrrrrrrrrGRSAV:tJPSRtGROITt OUTPUT
       4063416645 4051644555 1515151515 1127222020 2003501515 1152655560 1163644654 5715151515  SAVE ITEMrrrrrt72000!HrrtJUMPtSTFLOrrrr
       1515151515 1515151515 0040624563 6415151515 1515151515 4762626364 0611526063 6211476257 rrrrrrrrrr  RESTrrrrrrrrrGRRST:tJPSRtGRO
       5164110057 6564606564 4062456364 4051644555 1515151515 1127222420 2003501515 1152655560 ITt OUTPUT REST ITEMrrrrrt72400!HrrtJUMP
       1163644654 5715151515 1515151515 1515151515 7777700000 1300064210 1300064210 1300064210 tSTFLOrrrrrrrrrrrrrrbbX  " :B+" :B+" :B+
       1300064210 1300064210 1300064210 1300064210 1300064210 1300064210 1300064210            " :B+" :B+" :B+" :B+" :B+" :B+" :B+
  670: 0000700015 4664562025 1361200170 3414400000 0040576564 6065644047 6241467040 5164455540   X rFTN05"Q0%X,'     OUTPUT GRAFX ITEM 
       6365426257 6564515645 1515151515 1515151515 4762575164 0611526555 6011361100 4556646271 SUBROUTINErrrrrrrrrrGROIT:tJUMPt.t ENTRY
       1515151515 1155444162 1163435041 6211006445 6255515641 6445444057 5640433762 4012151515 rrrrrtMDARtSCHARt TERMINATED ON C/R ?rrr
       1155447057 1446112125 1515151515 1152605463 1151544743 5011005154 5445474154 4051464056 tMDXO'Ft15rrrrrtJPLStILGCHt ILLEGAL IF N
       5715151515 1515151515 1152606362 1144575146 1100606257 4345636340 5457475143 4154405146 OrrrrrrrrrtJPSRtDOIFt PROCESS LOGICAL IF
       1515151515 1152606362 1163456447 5511006345 6440476241 4670405557 4445151515 1155444162 rrrrrtJPSRtSETGMt SET GRAFX MODErrrtMDAR
       1451114762 5751641100 4645644350 4041624765 5545566415 1152606362 1157414263 1100576564 'ItGROITt FETCH ARGUMENTrtJPSRtOABSt OUT
       6065644041 4263575465 6445151515 1155445162 1470114762 5751641100 6245646562 5615151515 PUT ABSOLUTErrrtMDIR'XtGROITt RETURNrrrr
       1515151515 1515151515 0040455644 5451636440 6364416445 5545566440 3636361515 1515151515 rrrrrrrrrr  ENDLIST STATEMENT ...rrrrrrr
       4762455644 0611554441 6211634350 4162110045 5644454440 5756404337 6240121515 1155447057 GREND:tMDARtSCHARt ENDED ON C/R ?rrtMDXO
       1446112125 1515151515 1152605463 1151544743 5011005154 5445474154 4051464056 5764151515 'Ft15rrrrrtJPLStILGCHt ILLEGAL IF NOTrrr
       1515151515 1152606362 1144575146 1100606257 4345636340 5457475143 4154405146 1515151515 rrrrrtJPSRtDOIFt PROCESS LOGICAL IFrrrrr
       1152606362 1163456441 5511006345 6440554143 5051564540 5441564765 4147454055 5744451515 tJPSRtSETAMt SET MACHINE LANGUAGE MODErr
       1152606362 1157637162 4611005765 6460656440 4341545440 6457402424 4556441515 1152606362 tJPSRtOSYRFt OUTPUT CALL TO 44ENDrrtJPSR
       1124244556 4415151515 1152655560 1163644654 5711004757 4064574056 4570644063 6441644155 t44ENDrrrrtJUMPtSTFLOt GO TO NEXT STATAM
       4556641515 1515151515 1515151515 7777700000 2247667452 2247667452 2247667452 2247667452 ENTrrrrrrrrrrrrbbX  2GV#J2GV#J2GV#J2GV#J
       2247667452 2247667452 2247667452 2247667452 2247667452 2247667452                       2GV#J2GV#J2GV#J2GV#J2GV#J2GV#J
 1875: 0001000015 4664562025 1361200551 3414400000 0040576564 6065644057 4252454364 4043574445  %  rFTN05"Q0*I,'     OUTPUT OBJECT CODE
       4064574043 5755606564 4540416262 4171405445 5647645015 0040404040 1641621740 3340637155  TO COMPUTE ARRAY LENGTHr     (AR) = SYM
       4257544064 4142544540 6064621515 0040404040 4162474051 6340564547 4164516645 4051464044 BOL TABLE PTRrr     ARG IS NEGATIVE IF D
       5765425445 4060624543 5163515756 4054455647 6450405657 6440645740 4245404457 6542544544 OUBLE PRECISION LENGTH NOT TO BE DOUBLED
       1515151515 0040406245 6465625663 4036363615 0040404040 1621174041 6262417140 5163404144 rrrrr   RETURNS ...r     (1) ARRAY IS AD
       5265636441 4254454041 5644405742 5245436440 4357444540 5041634042 4545564057 6564606564 JUSTABLE AND OBJECT CODE HAS BEEN OUTPUT
       4046576240 5445564764 5040515640 4162151515 0040404040 1622174054 4556476450 4051634043  FOR LENGTH IN ARrrr     (2) LENGTH IS C
       5756636440 4156444055 4171404245 4057426441 5156454440 4271404156 4013554441 6214461340 ONST AND MAY BE OBTAINED BY AN "MDAR'F" 
       1657414263 4041624740 5156404162 1715151515 0040404040 4040404057 6240635156 4754454041 (OABS ARG IN AR)rrrr         OR SINGLE A
       4452406445 6255344055 4171406563 4540575645 3567576244 4013554441 6213404645 6443504016 DJ TERM, MAY USE ONE-WORD "MDAR" FETCH (
       5762454640 4162474051 5640416217 1515151515 1515151515 5760544556 0611526555 6011361100 OREF ARG IN AR)rrrrrrrrrrOPLEN:tJUMPt.t 
       4556646271 1515151515 1141625544 1157605431 3011006341 6645406371 5542575440 6441425445 ENTRYrrrrrtARMDtOPL98t SAVE SYMBOL TABLE
       4060646215 1155444163 1446145611 2111004445 4362455545 5664406457 4066415465 4540675762  PTRrtMDAS'F'Nt1t DECREMENT TO VALUE WOR
       4415151515 1141625544 1157605431 3111004156 4440634166 4540606462 1515151515 1155444162 DrrrrtARMDtOPL99t AND SAVE PTRrrrrrtMDAR
       1451145011 5760543131 1100464564 4350404451 5540644142 5445406064 6215151515 1155444162 'I'HtOPL99t FETCH DIM TABLE PTRrrrrtMDAR
       1441144611 2727272727 1100554163 5315151515 1141625544 1157605431 3111004156 4440634166 'A'Ft77777t MASKrrrrtARMDtOPL99t AND SAV
       4515151515 1155444162 1451145011 5760543130 1100464564 4350406371 5542575440 4654414763 ErrrrtMDAR'I'HtOPL98t FETCH SYMBOL FLAGS
       1515151515 1155444162 1441114327 1100554163 5340444164 4140647160 4515151515 1155444163 rrrrrtMDAR'AtC7t MASK DATA TYPErrrrtMDAS
       1446145611 2411004457 6542544540 6062454351 6351575640 5762404357 5560544570 4012151515 'F'Nt4t DOUBLE PRECISION OR COMPLEX ?rrr
       1141625544 1456115760 5431301100 7145633440 6345644044 5765425445 4054455647 6450404654 tARMD'NtOPL98t YES, SET DOUBLE LENGTH FL
       4147151515 1152604156 1136102511 0045546345 3440635351 6015151515 1155447057 1446112111 AGrrrtJPANt.+5t ELSE, SKIPrrrrtMDXO'Ft1t
       0044576542 5445406062 4543516351 5756401215 1152605463 1136102311 0056573440 6353516015  DOUBLE PRECISION ?rtJPLSt.+3t NO, SKIPr
       1515151515 1155444162 1451115760 5445561100 7145633440 4645644350 4041624715 1141625544 rrrrrtMDAR'ItOPLENt YES, FETCH ARGrtARMD
       1456115760 5431301100 4156444063 4564404457 6542544540 5445564764 5040465441 4740466257 'NtOPL98t AND SET DOUBLE LENGTH FLAG FRO
       5540516415 1515151515 1141624162 1470115760 5445561100 5156444570 4045566462 7140645740 M ITrrrrrrtARAR'XtOPLENt INDEX ENTRY TO 
       4651626364 4062456465 6256151515 1152606362 1163456441 5511006345 6440554143 5051564540 FIRST RETURNrrrtJPSRtSETAMt SET MACHINE 
       4357444540 5557444515 1155444162 1451115760 5431311100 4144526563 6441425445 4041626241 CODE MODErtMDAR'ItOPL99t ADJUSTABLE ARRA
       7140121515 1152604156 1157605456 2111007145 6334406353 5160151515 1515151515 1155444162 Y ?rrtJPANtOPLN1t YES, SKIPrrrrrrrrtMDAR
       1456115760 5431301100 4457654254 4540544556 4764504056 4545444544 4012151515 1152604156 'NtOPL98t DOUBLE LENGTH NEEDED ?rrrtJPAN
       1136102311 0056573440 6353516015 1515151515 1155444162 1451147014 4211576054 3131110071 t.+3t NO, SKIPrrrrrrtMDAR'I'X'BtOPL99t Y
       4563344046 4564435040 2205544556 4764504046 6257554044 5155406441 4254451515 1152655560 ES, FETCH 2*LENGTH FROM DIM TABLErrtJUMP
       1136102211 0041564440 6353516015 1515151515 1155444162 1451147011 5760543131 1100464564 t.+2t AND SKIPrrrrrrtMDAR'I'XtOPL99t FET
       4350405445 5647645040 4662575540 4451554064 4142544515 1155444162 1457114355 4441623646 CH LENGTH FROM DIM TABLErtMDAR'OtCMDAR.F
       1100435755 4251564540 1355444162 1446134046 4564435015 1155445162 1470115760 5445561100 t COMBINE "MDAR'F" FETCHrtMDIR'XtOPLENt 
       6245646562 5640162217 1515151515 1515151515 5760545621 0611416241 6214501446 1111004745 RETURN (2)rrrrrrrrrrOPLN1:tARAR'H'Ftt GE
       6440565736 4057464044 5155455663 5157566315 1155444162 1441144611 2311005541 6353151515 T NO. OF DIMENSIONSrtMDAR'A'Ft3t MASKrrr
       1141625544 1456115760 5431271100 6341664540 4357655664 4562151515 1155444162 1451147011 tARMD'NtOPL97t SAVE COUNTERrrrtMDAR'I'Xt
       5760543131 1100474564 4060625744 6543644057 4640435756 6364415664 4064456255 6315151515 OPL99t GET PRODUCT OF CONSTANT TERMSrrrr
       1141625544 1157605431 2611006341 6645404657 6240465156 4154405565 5464516054 7134405146 tARMDtOPL96t SAVE FOR FINAL MULTIPLY, IF
       4041567115 1152655560 1136102211 0063535160 4051564445 7040465162 6364406451 5545151515  ANYrtJUMPt.+2t SKIP INDEX FIRST TIMErrr
       1515151515 5760545622 0611416241 6214701157 6054313111 0051564445 7040606462 4057664562 rrrrrOPLN2:tARAR'XtOPL99t INDEX PTR OVER
       4054416364 4044515540 5746466345 6440675762 4415151515 1155444162 1451147011 5760543131  LAST DIM OFFSET WORDrrrrtMDAR'I'XtOPL99
       1100464564 4350405645 7064404451 5545566351 5756151515 1152604156 1136102311 0041445265 t FETCH NEXT DIMENSIONrrrtJPANt.+3t ADJU
       6364414254 4540121515 1141624162 1470115760 5431271100 5657344051 5644457040 4357655664 STABLE ?rrtARAR'XtOPL97t NO, INDEX COUNT
       4562151515 1152655560 1157605456 2211004156 4440635351 6040645740 2163644041 4452656364 ERrrrtJUMPtOPLN2t AND SKIP TO 1ST ADJUST
       4142544540 4451554556 6351575615 1515151515 7777700000 4531421777 4531421777 4531421777 ABLE DIMENSIONrrrrrrbbX  E9B)bE9B)bE9B)b
       4531421777 4531421777 4531421777 4531421777 4531421777 4531421777 4531421777            E9B)bE9B)bE9B)bE9B)bE9B)bE9B)bE9B)b
 1560: 0001100015 4664562025 1361200452 3414400000 1141625544 1157605431 2511006341 6645404651  %+ rFTN05"Q0&J,'   tARMDtOPL95t SAVE FI
       6263644064 4562554060 6462404156 4440465441 4715151515 1515151515 5760545623 0611554441 RST TERM PTR AND FLAGrrrrrrrrrOPLN3:tMDA
       6214701456 1157605431 2711004457 5645404154 5440445155 4556635157 5663401215 1152605463 R'X'NtOPL97t DONE ALL DIMENSIONS ?rtJPLS
       1157605456 2411005657 3440526555 6040465762 4056457064 4044515545 5663515756 1515151515 tOPLN4t NO, JUMP FOR NEXT DIMENSIONrrrrr
       1515151515 1155444162 1157605431 2611007145 6334405657 4043575663 6441566440 6445625563 rrrrrtMDARtOPL96t YES, NO CONSTANT TERMS
       4012151515 1154637057 1143211100 5762404357 5663644156 6440644562 5540334021 4012151515  ?rrrtLSXOtC1t OR CONSTANT TERM = 1 ?rrr
       1152605463 1157605456 2511005657 3440526555 6040645740 5565546451 6054714042 7140435756 tJPLStOPLN5t NO, JUMP TO MULTIPLY BY CON
       6364415664 1515151515 1515151515 1155444162 1456115760 5431251100 7145633440 4651626364 STANTrrrrrrrrrrtMDAR'NtOPL95t YES, FIRST
       4064456255 4046456443 5045444071 4564401215 1141565162 1157605445 5611007145 6334406245  TERM FETCHED YET ?rtANIRtOPLENt YES, RE
       6440162117 3440544556 4740415462 4541447140 4357556065 6445441515 1515151515 1155444162 T (1), LENG ALREADY COMPUTEDrrrrrrrtMDAR
       1157605431 3011005657 3440445765 4254454054 4556476450 4056454544 4544401215 1152604156 tOPL98t NO, DOUBLE LENGTH NEEDED ?rtJPAN
       1136102215 1141627057 1454111100 5657344043 5445416240 4162151515 1155444162 1450114322 t.+2rtARXO'Ltt NO, CLEAR ARrrrtMDAR'HtC2
       2011007145 6334404645 6443504013 4014424013 4055574451 4651456215 1155444162 1457115760 0t YES, FETCH " 'B " MODIFIERrtMDAR'OtOP
       5431251100 4357554251 5645406355 6441424060 5751566445 6215151515 1155447057 1143554441 L95t COMBINE SMTAB POINTERrrrrtMDXOtCMDA
       6236461100 4745644013 5544416213 4016576240 1355444162 1442131740 4162474064 5740576245 R.Ft GET "MDAR" (OR "MDAR'B") ARG TO ORE
       4615151515 1141625544 1157605431 2511006341 6645406245 4645624556 4345404645 6443501515 FrrrrtARMDtOPL95t SAVE REFERENCE FETCHrr
       1152606362 1143532267 4411006245 6165516245 6340646757 3567576244 4062454645 6245564345 tJPSRtCK2WDt REQUIRES TWO-WORD REFERENCE
       4012151515 1152655560 1136102411 0056573440 6353516015 1515151515 1155444162 1157605431  ?rrrtJUMPt.+4t NO, SKIPrrrrrrtMDARtOPL9
       2511007145 6334405765 6460656440 6245464562 4556434540 6457404645 6443504066 4154654515 5t YES, OUTPUT REFERENCE TO FETCH VALUEr
       1152606362 1157624546 1515151515 1155445162 1157605445 5611004156 4440624564 6562564016 tJPSRtOREFrrrrrtMDIRtOPLENt AND RETURN (
       2117151515 1515151515 1155444162 1157605431 2511004554 6345344054 5741444046 4564435040 1)rrrrrrrrtMDARtOPL95t ELSE, LOAD FETCH 
       5156636462 1515151515 1155445162 1470115760 5445561100 4156444062 4564656256 4016221715 INSTRrrrrrtMDIR'XtOPLENt AND RETURN (2)r
       1515151515 5760545624 0611416241 6214701157 6054313111 0051564445 7040606462 4057664562 rrrrrOPLN4:tARAR'XtOPL99t INDEX PTR OVER
       4054416364 4044515540 5746466345 6415151515 1155444162 1451147014 5611576054 3131110046  LAST DIM OFFSETrrrrtMDAR'I'X'NtOPL99t F
       4564435040 5645706440 4451554556 6351575615 1152604156 1157605456 2311006462 7140414741 ETCH NEXT DIMENSIONrtJPANtOPLN3t TRY AGA
       5156405146 4056576440 4144526563 6441425445 1515151515 1515151515 1152606362 1157605456 IN IF NOT ADJUSTABLErrrrrrrrrrtJPSRtOPLN
       4611004645 6443504021 6364406445 6255406457 4041623440 5146405645 4345636341 6271151515 Ft FETCH 1ST TERM TO AR, IF NECESSARYrrr
       1155444162 1451115760 5431311100 4745644060 6462406457 4064505163 4064456255 1515151515 tMDAR'ItOPL99t GET PTR TO THIS TERMrrrrr
       1155447057 1143422011 0064415345 4057656440 4654414740 4251641515 1155444162 1457114355 tMDXOtCB0t TAKE OUT FLAG BITrrtMDAR'OtCM
       6071541100 4657625540 5565546451 6054714051 5663646215 1152606362 1157624546 1100415644 PYLt FORM MULTIPLY INSTRrtJPSRtOREFt AND
       4057656460 6564406245 4645624556 4345151515 1152606362 1145575657 6011005765 6460656440  OUTPUT REFERENCErrrtJPSRtEONOPt OUTPUT 
       1356575760 1340514640 4460622215 1155444162 1456115760 5431301100 4457654254 4540544556 "NOOP" IF DPR2rtMDAR'NtOPL98t DOUBLE LEN
       4764504056 4545444544 4012151515 1152604156 1136102311 0056573440 6353516015 1515151515 GTH NEEDED ?rrrtJPANt.+3t NO, SKIPrrrrrr
       1141625544 1157605431 3011007145 6334404354 4541624044 5765425445 4054455647 6450404654 tARMDtOPL98t YES, CLEAR DOUBLE LENGTH FL
       4147151515 1152655560 1157605456 2311004156 4440526555 6040465762 4056457064 4064456255 AGrrrtJUMPtOPLN3t AND JUMP FOR NEXT TERM
       1515151515 1515151515 1155444162 1143416262 6321110045 5463453440 5765646065 6440134162 rrrrrrrrrrtMDARtCARRS1t ELSE, OUTPUT "AR
       6263404021 1315151515 1152606362 1157414263 1515151515 1152655560 1157605456 2311005457 RS  1"rrrrtJPSRtOABSrrrrrtJUMPtOPLN3t LO
       5760404657 6240564570 6440644562 5515151515 1515151515 7777700000 0510203263 0510203263 OP FOR NEXT TERMrrrrrrrrrbbX  *+0;S*+0;S
       0510203263 0510203263 0510203263 0510203263 0510203263 0510203263 0510203263 0510203263 *+0;S*+0;S*+0;S*+0;S*+0;S*+0;S*+0;S*+0;S
  830: 0001200015 4664562025 1361200230 3414400000 5760545625 0611526063 6211576054 5646110046  %0 rFTN05"Q0c8,'   OPLN5:tJPSRtOPLNFt F
       4564435040 4651626364 4064456255 4064574041 6234405146 4056454544 4544151515 1155444162 ETCH FIRST TERM TO AR, IF NEEDEDrrrtMDAR
       1157605431 2611004645 6443504046 5156415440 4357566364 4156644055 6554645160 5451456215 tOPL96t FETCH FINAL CONSTANT MULTIPLIERr
       1152606362 1145665755 6011005765 6460656440 1355607151 1340515663 6462654364 5157561515 tJPSRtEVOMPt OUTPUT "MPYI" INSTRUCTIONrr
       1155444162 1157605431 3011004040 1641624740 4645644350 4563404457 6542544540 5445564764 tMDARtOPL98t   (ARG FETCHES DOUBLE LENGT
       5040465441 4717151515 1155445162 1157605445 5611004156 4440624564 4016211734 4054455647 H FLAG)rrrtMDIRtOPLENt AND RET (1), LENG
       6450405156 4057425245 4364404162 1515151515 1515151515 1515151515 5760545646 0611526555 TH IN OBJECT ARrrrrrrrrrrrrrrrOPLNF:tJUM
       6011361100 4556646271 4064574046 4564435040 2163644041 4452406445 6255406457 4041621515 Pt.t ENTRY TO FETCH 1ST ADJ TERM TO ARrr
       1155444162 1456115760 5431251100 4651626364 4064456255 4041546245 4144714060 6257434563 tMDAR'NtOPL95t FIRST TERM ALREADY PROCES
       6345444012 1515151515 1141565162 1157605456 4611007145 6334406245 6465625615 1515151515 SED ?rrrrrtANIRtOPLNFt YES, RETURNrrrrrr
       1141625544 1157605431 2511005657 3440435445 4162404654 4147404657 6240216364 4064456255 tARMDtOPL95t NO, CLEAR FLAG FOR 1ST TERM
       4060455644 5156471515 1141624162 1456144611 1100474564 4063715564 4142406064 6240465762  PENDINGrrtARAR'N'Ftt GET SYMTAB PTR FOR
       4021636440 6445625515 1155447057 1143554441 6236461100 4657625540 1355444162 1340515663  1ST TERMrtMDXOtCMDAR.Ft FORM "MDAR" INS
       6462151515 1152606362 1157624546 1100415644 4057656460 6564406245 4645624556 4345151515 TRrrrtJPSRtOREFt AND OUTPUT REFERENCErrr
       1155445162 1157605456 4611006245 6465625615 1515151515 5760543131 0611112011 0044515540 tMDIRtOPLNFt RETURNrrrrrrOPL99:tt0t DIM 
       6441425445 4060646215 5760543130 0611112011 0044576542 5445405445 5647645040 5645454445 TABLE PTRrOPL98:tt0t DOUBLE LENGTH NEEDE
       4440465441 4715151515 5760543127 0611112011 0063654263 4362516064 4043576556 6445621515 D FLAGrrrrOPL97:tt0t SUBSCRIPT COUNTERrr
       5760543126 0611112011 0060625744 6543644057 4640435756 6364415664 4044515545 5663515756 OPL96:tt0t PRODUCT OF CONSTANT DIMENSION
       6315151515 5760543125 0611112011 0021636440 4144524064 4562554060 6462404156 4440465441 SrrrrOPL95:tt0t 1ST ADJ TERM PTR AND FLA
       4715151515 1515151515 1515151515 7777700000 5767016145 5767016145 5767016145 5767016145 GrrrrrrrrrrrrrrbbX  OW%QEOW%QEOW%QEOW%QE
       5767016145 5767016145 5767016145 5767016145 5767016145 5767016145                       OW%QEOW%QEOW%QEOW%QEOW%QEOW%QE
 1815: 0001300015 4664562025 1361200535 3414400000 0040454162 5471355760 4562416457 6240624566  %8 rFTN05"Q0*-,'     EARLY-OPERATOR REV
       4562634540 6057545163 5040636441 4353404745 5645624164 5762404657 6240457060 6245636351 ERSE POLISH STACK GENERATOR FOR EXPRESSI
       5756404566 4154654164 5157561515 1515151515 0040404045 5664627140 4654414763 4036363615 ON EVALUATIONrrrrrrr    ENTRY FLAGS ...r
       0040404040 4016456165 6346174033 4035204040 5146404163 6351475655 4556646340 4154545767       (EQUSF) = -0  IF ASSIGNMENTS ALLOW
       4544151515 0040404040 4016636245 4647174033 4035204040 5146406351 5647544540 6245464562 EDrrr      (SREFG) = -0  IF SINGLE REFER
       4556434540 5756547140 4154545767 4544151515 0040404040 4016434154 5446174033 4035204040 ENCE ONLY ALLOWEDrrr      (CALLF) = -0  
       5146406365 4262576564 5156454062 4546456245 5643454041 5454576745 4440164341 5454406364 IF SUBROUTINE REFERENCE ALLOWED (CALL ST
       4164455545 5664171515 0040404040 4016445163 6046174033 4035204040 5146405155 4147454062 ATEMENT)rr      (DISPF) = -0  IF IMAGE R
       4546456245 5643454041 5454576745 4440164451 6360544171 4063644164 4555455664 1715151515 EFERENCE ALLOWED (DISPLAY STATEMENT)rrrr
       0040404040 4016514746 6556174033 4035204040 5146405156 6462515663 5143404762 4146704046       (IGFUN) = -0  IF INTRINSIC GRAFX F
       6556436451 5756151515 0040404040 4016634346 5447174033 4066415465 4540414444 4544406457 UNCTIONrrr      (SCFLG) = VALUE ADDED TO
       4063646251 5647404357 5663644156 6440624554 5743364043 5756636441 5664406441 4254454045  STRING CONSTANT RELOC. CONSTANT TABLE E
       5664627115 0040404062 4564656256 4046544147 6340363636 1515151515 0040404040 4016605754 NTRYr    RETURN FLAGS ...rrrrr      (POL
       4546174033 4035204051 4640416363 5147565545 5664406062 5743456363 4544151515 0040404040 EF) = -0 IF ASSIGNMENT PROCESSEDrrr     
       4016605754 6246174033 4035204051 4640457060 6245636351 5756405657 6440414063 5156475445  (POLRF) = -0 IF EXPRESSION NOT A SINGLE
       4062454645 6245564345 1515151515 0040404040 4016605754 6364174033 4063644162 6440414444  REFERENCErrrrr      (POLST) = START ADD
       6245636340 5746406057 5451635040 6364414353 4016102117 1515151515 0040404040 4016416217 RESS OF POLISH STACK (+1)rrrrr      (AR)
       4041564440 1660575431 3117403340 6245646562 5640435744 4534404163 4046575454 5767634036  AND (POL99) = RETURN CODE, AS FOLLOWS .
       3636151515 0040404040 4040404040 4040204040 4337621515 0040404040 4040404040 4040214040 ..rrr            0  C/Rrr            1  
       3340404040 1662456165 5162456340 4561656346 3320171515 0040404040 4040404040 4040224040 =    (REQUIRES EQUSF=0)rr            2  
       3415151515 0040404040 4040404040 4040234040 1715151515 1515151515 6057545163 5006115265 ,rrrr            3  )rrrrrrrrrPOLISH:tJU
       5560113611 0045566462 7115151515 1155444162 1160466245 6011004645 6443504060 5754516350 MPt.t ENTRYrrrrtMDARtPFREPt FETCH POLISH
       4063644143 5340466245 4540435762 4540606462 1515151515 1141625544 1160575463 6411006341  STACK FREE CORE PTRrrrrrtARMDtPOLSTt SA
       6645404163 4063644162 6440574640 5645674060 5754516350 4063644143 5315151515 1155444162 VE AS START OF NEW POLISH STACKrrrrtMDAR
       1446115763 6441531100 4555606471 4064504540 5760456241 6457624063 6441435315 1141625544 'FtOSTAKt EMPTY THE OPERATOR STACKrtARMD
       1157606462 1515151515 1141627057 1446111100 4354454162 4036363615 1141625544 1154456645 tOPTRrrrrrtARXO'Ftt CLEAR ...rtARMDtLEVE
       5411004040 6365426343 6251606437 4665564364 5157564054 4566455415 1141625544 1157605644 Lt   SUBSCRIPT/FUNCTION LEVELrtARMDtOPND
       4611004040 5441636440 5760456241 5644404654 4147151515 1141625544 1160575462 4611004040 Ft   LAST OPERAND FLAGrrrtARMDtPOLRFt   
       5657644063 5156475445 4062454645 6245564345 4046544147 1515151515 1141625544 1160575445 NOT SINGLE REFERENCE FLAGrrrrrtARMDtPOLE
       4611004040 4163635147 5655455664 4057604562 4164576240 4654414715 1141625544 1162454346 Ft   ASSIGNMENT OPERATOR FLAGrtARMDtRECF
       2111004040 6245435747 5651724562 4046544147 6315151515 1141625544 1162454346 2215151515 1t   RECOGNIZER FLAGSrrrrtARMDtRECF2rrrr
       1515151515 1155444162 1456115147 4665561100 5156646251 5663514340 4762414670 4063654262 rrrrrtMDAR'NtIGFUNt INTRINSIC GRAFX SUBR
       5765645156 4540121515 1152604156 1160575462 6411005657 3440635351 6015151515 1515151515 OUTINE ?rrtJPANtPOLRTt NO, SKIPrrrrrrrrr
       1141625544 1151474665 5611007145 6334404354 4541624046 5441474046 5762405645 7064406451 tARMDtIGFUNt YES, CLEAR FLAG FOR NEXT TI
       5545151515 1141625544 1457116057 5431311100 6345644054 4546644060 4162455640 4657545457 MErrrtARMD'OtPOL99t SET LEFT PAREN FOLLO
       6751564715 1155444162 1450115345 7146471100 4645644350 4053457167 5762444064 4142544540 WINGrtMDAR'HtKEYFGt FETCH KEYWORD TABLE 
       4556646271 1515151515 1152655560 1160576322 2011004156 4440526555 6040515664 5740515664 ENTRYrrrrrtJUMPtPOS20t AND JUMP INTO INT
       6256634046 6556436440 6062574345 6363576215 1515151515 1515151515 0040474564 4056457064 RNS FUNCT PROCESSORrrrrrrrrrrr  GET NEXT
       4045706062 4563635157 5640455445 5545566440 3636361515 1515151515 6057546264 0611526063  EXPRESSION ELEMENT ...rrrrrrrPOLRT:tJPS
       6211624543 5747110062 4543574756 5172454056 4570644057 6045624156 4437576045 6241645762 RtRECOGt RECOGNIZE NEXT OPERAND/OPERATOR
       4036363615 1152655560 1160575463 5511004040 5265556040 5146406371 5542575415 1152655560  ...rtJUMPtPOLSMt   JUMP IF SYMBOLrtJUMP
       1160575443 5611004040 5265556040 5146404357 5663644156 6415151515 1152655560 1160575443 tPOLCNt   JUMP IF CONSTANTrrrrtJUMPtPOLC
       6311004040 5265556040 5146406364 6251564740 4357566364 4156641515 1152655560 1160575443 St   JUMP IF STRING CONSTANTrrtJUMPtPOLC
       5411004040 5265556040 5146405441 4245544043 5756636441 5664151515 1515151515 1515151515 Lt   JUMP IF LABEL CONSTANTrrrrrrrrrrrrr
       7777700000 1462315537 1462315537 1462315537 1462315537 1462315537 1462315537 1462315537 bbX  'R9M/'R9M/'R9M/'R9M/'R9M/'R9M/'R9M/
       1462315537 1462315537 1462315537                                                        'R9M/'R9M/'R9M/
 1400: 0001400015 4664562025 1361200412 3414400000 0040445163 6041644350 4057564056 4570644057  %  rFTN05"Q0&?,'     DISPATCH ON NEXT O
       6045624164 5762403636 3615151515 1515151515 6057545760 0611554441 6214411141 5541635311 PERATOR ...rrrrrrrrrPOLOP:tMDAR'AtAMASKt
       0055416353 4057604562 4164576240 5657361515 1141625544 1143656257 6011006341 6645404163  MASK OPERATOR NO.rrtARMDtCUROPt SAVE AS
       4043656262 4556644057 6045624164 5762151515 1155444145 1454111100 4357556065 6445404645  CURRENT OPERATORrrrtMDAE'Ltt COMPUTE FE
       6443504046 6257554057 6045624164 5762406441 4254451515 1155444162 1157606264 4235231515 TCH FROM OPERATOR TABLErrtMDARtOPRTB-3rr
       1141625162 1446111100 4645644350 4057601464 5762406062 4543454445 5643454041 5644404451 tARIR'Ftt FETCH OP'TOR PRECEDENCE AND DI
       6360416443 5015151515 1141625544 1160575431 3111006341 6645151515 1155444162 1441145011 SPATCHrrrrtARMDtPOL99t SAVErrrtMDAR'A'Ht
       4155416353 1100554163 5340606245 4345444556 4345405445 6645541515 1155444162 1457114365 AMASKt MASK PRECEDENCE LEVELrrtMDAR'OtCU
       6257601100 4357554251 5645406751 6450405760 5665551515 1141625544 1143656257 6011006341 ROPt COMBINE WITH OPNUMrrtARMDtCUROPt SA
       6645404365 6262405760 4060624543 4041564440 5665551515 1155444162 1450116057 5431311100 VE CURR OP PREC AND NUMrrtMDAR'HtPOL99t 
       4645644350 4044516360 4164435040 4144446245 6363151515 1155444162 1441145011 4155416353 FETCH DISPATCH ADDRESSrrrtMDAR'A'HtAMASK
       1100554163 5315151515 1155444163 1446112420 1100465762 5540526555 6040515663 6462654364 t MASKrrrrtMDAS'Ft40t FORM JUMP INSTRUCT
       5157561515 1141625162 1450144611 1100415644 4045704543 6564451515 1515151515 0040606257 IONrrtARIR'H'Ftt AND EXECUTErrrrrrr  PRO
       4345636340 5445466440 6041624556 6450456351 6340164762 5765605156 4734405657 6440466556 CESS LEFT PARENTHESIS (GROUPING, NOT FUN
       4364515756 4057624063 6542634362 5160641740 3636361515 1515151515 5760230611 5544416211 CTION OR SUBSCRIPT) ...rrrrrrrOP3:tMDARt
       5760564446 1100544163 6440576045 6241564440 6345644012 1515151515 1152604156 1155516357 OPNDFt LAST OPERAND SET ?rrrrrtJPANtMISO
       6211007145 6334405551 6363515647 4057604562 4164576215 1515151515 1152606362 1156576245 Rt YES, MISSING OPERATORrrrrrrtJPSRtNORE
       4611004341 5614644042 4540414063 5156475445 4062454645 6245564345 1515151515 1152606362 Ft CAN'T BE A SINGLE REFERENCErrrrrtJPSR
       1160656350 5711006065 6350406457 4057604063 6441435315 1152655560 1160575462 6411006245 tPUSHOt PUSH TO OP STACKrtJUMPtPOLRTt RE
       6465625640 4657624056 4570644045 5445554556 6415151515 1515151515 1515151515 0040606257 TURN FOR NEXT ELEMENTrrrrrrrrrrrrrr  PRO
       4345636340 4341626251 4147454062 4564656256 4016455644 4057464045 7060624563 6351575617 CESS CARRIAGE RETURN (END OF EXPRESSION)
       4036363615 1515151515 5760240611 5544416214 5611576056 4446110054 4163644055 6563644042  ...rrrrrrOP4:tMDAR'NtOPNDFt LAST MUST B
       4540415640 5760456241 5644151515 1152604156 1155516357 4411004554 6345344045 6262576215 E AN OPERANDrrrtJPANtMISODt ELSE, ERRORr
       1515151515 1155444162 1446112111 0065566364 4143534044 5767564064 5740544566 4554402115 rrrrrtMDAR'Ft1t UNSTACK DOWN TO LEVEL 1r
       1152606362 1165636441 5315151515 1515151515 1155444162 1451115760 6462110057 6040636441 tJPSRtUSTAKrrrrrrrrrtMDAR'ItOPTRt OP STA
       4353404555 6064714012 1515151515 1152605463 1136102211 0056573440 6353516015 1515151515 CK EMPTY ?rrrrrtJPLSt.+2t NO, SKIPrrrrrr
       1152655560 1160575456 4411007145 6334404556 4440675164 5040435744 4540334020 1515151515 tJUMPtPOLNDt YES, END WITH CODE = 0rrrrr
       1515151515 1152606362 1145626257 6211004554 6345344067 4162565156 4740456262 5762151515 rrrrrtJPSRtERRORt ELSE, WARNING ERRORrrr
       1111456221 2225110040 4016655642 4154415643 4544406041 6245566317 1515151515 1515151515 ttER125t   (UNBALANCED PARENS)rrrrrrrrrr
       5760244106 1152606362 1144576062 5611004163 6365554540 4140625147 5064406041 6245561515 OP4A:tJPSRtDOPRNt ASSUME A RIGHT PARENrr
       1155444162 1446112111 0065566364 4143534041 4741515615 1152606362 1165636441 5315151515 tMDAR'Ft1t UNSTACK AGAINrtJPSRtUSTAKrrrr
       1155444162 1451115760 6462110057 6040636441 4353404555 6064714056 5767401215 1152605463 tMDAR'ItOPTRt OP STACK EMPTY NOW ?rtJPLS
       1157602441 1100565734 4064627140 4147415156 1515151515 1515151515 1152655560 1160575456 tOP4At NO, TRY AGAINrrrrrrrrrrtJUMPtPOLN
       4411007145 6334404757 4045564415 1515151515 1515151515 7777700000 7152654204 7152654204 Dt YES, GO ENDrrrrrrrrrrrbbX  YJUB&YJUB&
       7152654204 7152654204 7152654204 7152654204 7152654204 7152654204 7152654204 7152654204 YJUB&YJUB&YJUB&YJUB&YJUB&YJUB&YJUB&YJUB&
 1420: 0001500015 4664562025 1361200416 3414400000 0040606257 4345636340 6251475064 4060416245  %H rFTN05"Q0&(,'     PROCESS RIGHT PARE
       5664504563 5163403636 3615151515 1515151515 5760250611 5544416214 5611576056 4446110054 NTHESIS ...rrrrrrrrrOP5:tMDAR'NtOPNDFt L
       4163644055 6563644042 4540576045 6241564415 1152604156 1155516357 4411004554 6345344045 AST MUST BE OPERANDrtJPANtMISODt ELSE, E
       6262576215 1515151515 1155444162 1446112111 0065566364 4153404457 6756406457 4054456645 RRORrrrrrrtMDAR'Ft1t UNSTAK DOWN TO LEVE
       5440211515 1152606362 1165636441 5315151515 1515151515 1155444162 1451115760 6462110057 L 1rrtJPSRtUSTAKrrrrrrrrrtMDAR'ItOPTRt O
       6040636441 4353404555 6064714012 1515151515 1152605463 1136102311 0056573440 6353516015 P STACK EMPTY ?rrrrrtJPLSt.+3t NO, SKIPr
       1515151515 1155444162 1446112311 0045546345 3440445756 4515151515 1152655560 1160575456 rrrrrtMDAR'Ft3t ELSE, DONErrrrtJUMPtPOLN
       4411004757 4045564440 6751645040 4357444540 3340234046 5762406041 6245561515 1515151515 Dt GO END WITH CODE = 3 FOR PARENrrrrrrr
       1152606362 1144576062 5611006062 5743456363 4062514750 6440604162 4556151515 1152655560 tJPSRtDOPRNt PROCESS RIGHT PARENrrrtJUMP
       1160575462 6411004156 4440624564 6562564046 5762405645 7064404554 4555455664 1515151515 tPOLRTt AND RETURN FOR NEXT ELEMENTrrrrr
       1515151515 1515151515 0040625147 5064406041 6245566450 4563516340 6062574345 6363576240 rrrrrrrrrr  RIGHT PARENTHESIS PROCESSOR 
       3636361515 1515151515 4457606256 0611526555 6011361100 4556646271 1515151515 1155444162 ...rrrrrrrDOPRN:tJUMPt.t ENTRYrrrrrtMDAR
       1451115760 6462110046 4564435040 5760566555 4057464055 4164435051 5647405445 4664406041 'ItOPTRt FETCH OPNUM OF MATCHING LEFT PA
       6245561515 1155444162 1441114155 4163531100 5541635315 1141625544 1144576062 3111006341 RENrrtMDAR'AtAMASKt MASKrtARMDtDOPR9t SA
       6645404657 6240606563 5040645740 6057545163 5015151515 1155447057 1446112211 0063654263 VE FOR PUSH TO POLISHrrrrtMDXO'Ft2t SUBS
       4362516064 4057604562 4164576240 1215151515 1141625544 1144576062 2611005657 3440634564 CRIPT OPERATOR ?rrrrtARMDtDOPR6t NO, SET
       4046544147 1515151515 1152605463 1136102211 0041564440 6353516015 1152606362 1163654243  FLAGrrrrrtJPLSt.+2t AND SKIPrtJPSRtSUBC
       5311007145 6334404350 4543534046 5762405441 6364406365 4263436251 6064406641 5451441515 Kt YES, CHECK FOR LAST SUBSCRIPT VALIDrr
       1515151515 1152606362 1160576057 1100605760 4054454664 4060416245 5640576014 6457624046 rrrrrtJPSRtPOPOt POP LEFT PAREN OP'TOR F
       6257554057 6040636441 4353151515 1515151515 1155444162 1470145611 4457606231 1100474564 ROM OP STACKrrrrrrrrtMDAR'X'NtDOPR9t GET
       4064626545 4057605665 5515151515 1155444163 1446112411 0047625765 6051564740 6041624556  TRUE OPNUMrrrrtMDAS'Ft4t GROUPING PAREN
       4012151515 1141565162 1144576062 5611007145 6334404457 5645344062 4564656256 1515151515  ?rrrtANIRtDOPRNt YES, DONE, RETURNrrrrr
       1515151515 1155444162 1163654243 6411004645 6443504043 6562624556 6440636542 6343625160 rrrrrtMDARtSUBCTt FETCH CURRENT SUBSCRIP
       6440435765 5664151515 1141625544 1144576062 3011006341 6645151515 1155444162 1456115445 T COUNTrrrtARMDtDOPR8t SAVErrrtMDAR'NtLE
       6645541100 4445436245 5545566440 4365626245 5664405645 6364515647 4054456645 5415151515 VELt DECREMENT CURRENT NESTING LEVELrrrr
       1155444163 1446112115 1141625544 1456115445 6645541515 1515151515 1155444162 1451115760 tMDAS'Ft1rtARMD'NtLEVELrrrrrrrtMDAR'ItOP
       6462110046 4564435040 6341664544 4063654263 4043576556 6440574640 5441636440 5445664554 TRt FETCH SAVED SUBS COUNT OF LAST LEVEL
       1515151515 1155444162 1441145011 4155416353 1100554163 5315151515 1141625544 1450116365 rrrrrtMDAR'A'HtAMASKt MASKrrrrtARMD'HtSU
       4243641100 6245636457 6245404163 4043656262 4556644043 5765566415 1155447057 1451115760 BCTt RESTORE AS CURRENT COUNTrtMDXO'ItOP
       6462110047 4564406057 5451635040 4144446240 5746405760 4562415644 4063715542 5754151515 TRt GET POLISH ADDR OF OPERAND SYMBOLrrr
       1141625544 1144576062 2711006341 6645151515 1152606362 1160576057 1100605760 4022564440 tARMDtDOPR7t SAVErrrtJPSRtPOPOt POP 2ND 
       6757624440 5746464057 6040636441 4353151515 1515151515 1155444162 1144576062 2611004665 WORD OFF OP STACKrrrrrrrrtMDARtDOPR6t FU
       5643645157 5640121515 1152605463 1136102211 0071456334 4043504543 5340416247 4043576556 NCTION ?rrtJPLSt.+2t YES, CHECK ARG COUN
       6415151515 1152655560 1144576062 2411004554 6345344041 6262417134 4063535160 1515151515 TrrrrtJUMPtDOPR4t ELSE, ARRAY, SKIPrrrrr
       1515151515 7777700000 0714027271 0714027271 0714027271 0714027271 0714027271 0714027271 rrrrrbbX  _'cZY_'cZY_'cZY_'cZY_'cZY_'cZY
       0714027271 0714027271 0714027271 0714027271                                             _'cZY_'cZY_'cZY_'cZY
 1595: 0001600015 4664562025 1361200461 3414400000 1155444162 1451114457 6062271100 4645644350  %P rFTN05"Q0&Q,'   tMDAR'ItDOPR7t FETCH
       4060575451 6350404556 6462714046 5762406371 5542575415 1155444162 1441144611 2727272727  POLISH ENTRY FOR SYMBOLrtMDAR'A'Ft77777
       1100554163 5340605751 5664456240 4651455444 1515151515 1141625544 1144576062 2611006341 t MASK POINTER FIELDrrrrrtARMDtDOPR6t SA
       6645151515 1515151515 1155444162 1451145311 4457606227 1100474564 4057604562 4156444064 VErrrrrrrrtMDAR'I'KtDOPR7t GET OPERAND T
       7160451515 1155444162 1441144611 2326110055 4163531515 1155447057 1446112411 0051566462 YPErrtMDAR'A'Ft36t MASKrrtMDXO'Ft4t INTR
       5156635143 4046655643 6451575640 1215151515 1152605463 1144576062 2111005657 3440556563 INSIC FUNCTION ?rrrrtJPLStDOPR1t NO, MUS
       6440424540 5657625541 5440466556 4364515756 3440635351 6015151515 1515151515 1155444162 T BE NORMAL FUNCTION, SKIPrrrrrrrrrtMDAR
       1451144211 4457606226 1100464564 4350405156 6462515663 5143404665 5643644043 5756646257 'I'BtDOPR6t FETCH INTRINSIC FUNCT CONTRO
       5440675762 4415151515 1141624162 1442144611 1100474564 4056573640 5746404162 4763151515 L WORDrrrrtARAR'B'Ftt GET NO. OF ARGSrrr
       1155444162 1441144611 2311005541 6353151515 1154637057 1144576062 3011006556 5445636340 tMDAR'A'Ft3t MASKrrrtLSXOtDOPR8t UNLESS 
       5565546451 3541624763 3440634155 4540416340 4162474043 5664401215 1152635463 1145626257 MULTI-ARGS, SAME AS ARG CNT ?rtJSLStERRO
       6211005657 3440464164 4154404562 6257621515 1111456221 2326110040 4016676257 5647405657 Rt NO, FATAL ERRORrrttER136t   (WRONG NO
       3640416247 6340465762 4051566462 5163404665 5643641715 1152655560 1144576062 2411004554 . ARGS FOR INTRIS FUNCT)rtJUMPtDOPR4t EL
       6345344057 5334405265 5560406457 4046515651 6350151515 1515151515 4457606221 0611554441 SE, OK, JUMP TO FINISHrrrrrrrrDOPR1:tMDA
       6211445760 6226110046 4564435040 6355644142 4060575156 6445621515 1155444163 1446145611 RtDOPR6t FETCH SMTAB POINTERrrtMDAS'F'Nt
       2111004445 4362455545 5664406457 4066415465 4540675762 4415151515 1141625544 1144576062 1t DECREMENT TO VALUE WORDrrrrtARMDtDOPR
       2511004156 4440634166 4540605751 5664456215 1515151515 1155444162 1451145314 5611445760 5t AND SAVE POINTERrrrrrrtMDAR'I'K'NtDOP
       6226110046 6556436451 5756404445 4651564544 4012151515 1152604156 1144576062 2211005657 R6t FUNCTION DEFINED ?rrrtJPANtDOPR2t NO
       3440635351 6015151515 1155444162 1441144611 2611007145 6334404570 6445625641 5440121515 , SKIPrrrrtMDAR'A'Ft6t YES, EXTERNAL ?rr
       1152605463 1136102211 0056573440 4350454353 4041474151 5663644044 4546515645 4440416247 tJPLSt.+2t NO, CHECK AGAINST DEFINED ARG
       4043576556 6415151515 1152655560 1144576062 2211007145 6334406353 5160151515 1515151515  COUNTrrrrtJUMPtDOPR2t YES, SKIPrrrrrrrr
       1155444162 1451145011 4457606225 1100464564 4350404445 4651564544 4041624740 4357655664 tMDAR'I'HtDOPR5t FETCH DEFINED ARG COUNT
       1515151515 1155447057 1144576062 3011006341 5545404163 4056573640 5746404143 6465415440 rrrrrtMDXOtDOPR8t SAME AS NO. OF ACTUAL 
       4162476340 1215151515 1152635463 1145626257 6211005657 3440674162 5651564740 4562625762 ARGS ?rrrrtJSLStERRORt NO, WARNING ERROR
       1515151515 1111456226 2211004040 1646655643 6440624546 1444406737 5156435762 6245436440 rrrrrttER62t   (FUNCT REF'D W/INCORRECT 
       5657364041 6247631715 1152655560 1144576062 2411005265 5560406457 4046515651 6350151515 NO. ARGS)rtJUMPtDOPR4t JUMP TO FINISHrrr
       1515151515 4457606222 0611554441 6214511450 1144576062 2611004665 5643645157 5640606245 rrrrrDOPR2:tMDAR'I'HtDOPR6t FUNCTION PRE
       6651576563 5471406245 4645624556 4345444012 1515151515 1155444162 1441144611 2320151515 VIOUSLY REFERENCED ?rrrrrtMDAR'A'Ft30rrr
       1152605463 1136102215 1152655560 1144576062 2311005657 3440565740 4350454353 4056454345 tJPLSt.+2rtJUMPtDOPR3t NO, NO CHECK NECE
       6363416271 1515151515 1515151515 1155444162 1451145011 4457606225 1100714563 3440464564 SSARYrrrrrrrrrrtMDAR'I'HtDOPR5t YES, FET
       4350406062 4566515765 6340565736 4041624763 1515151515 1155447057 1144576062 3011006341 CH PREVIOUS NO. ARGSrrrrrtMDXOtDOPR8t SA
       5545404163 4064505163 4043415454 4012151515 1152635463 1145626257 6211005657 3440674162 ME AS THIS CALL ?rrrtJSLStERRORt NO, WAR
       5651564740 4562625762 1515151515 1111456221 2227110040 4016466556 4364406245 4614444067 NING ERRORrrrrrttER127t   (FUNCT REF'D W
       3744514646 4056573640 5746404162 4763171515 1515151515 4457606223 0611554441 6214511144 /DIFF NO. OF ARGS)rrrrrrrDOPR3:tMDAR'ItD
       5760622511 0046456443 5040664154 6545406757 6244404657 6240466556 4364515756 4063715542 OPR5t FETCH VALUE WORD FOR FUNCTION SYMB
       5754151515 1155444162 1441114155 4163531100 5541635340 5765644041 6247404357 6556644046 OLrrrtMDAR'AtAMASKt MASK OUT ARG COUNT F
       5145544415 1155444162 1457145011 4457606230 1100634564 4051564056 5736405746 4041624763 IELDrtMDAR'O'HtDOPR8t SET IN NO. OF ARGS
       4057564064 5051634043 4154541515 1141625544 1451114457 6062251100 6341664540 5156406371  ON THIS CALLrrtARMD'ItDOPR5t SAVE IN SY
       5542425754 4045566462 7115151515 1515151515 7777700000 5367273002 5367273002 5367273002 MBBOL ENTRYrrrrrrrrrbbX  KW78cKW78cKW78c
       5367273002 5367273002 5367273002 5367273002 5367273002 5367273002 5367273002            KW78cKW78cKW78cKW78cKW78cKW78cKW78c
 1085: 0001700015 4664562025 1361200313 3414400000 4457606224 0611554441 6214501144 5760623011  %X rFTN05"Q0!",'   DOPR4:tMDAR'HtDOPR8t
       0046456443 5040636542 6343625160 6437416247 4043576556 6415151515 1141624162 1453144611  FETCH SUBSCRIPT/ARG COUNTrrrrtARAR'K'Ft
       1100414452 6563641515 1155444162 1450145711 4457606231 1100435755 4251564540 6751645040 t ADJUSTrrtMDAR'H'OtDOPR9t COMBINE WITH 
       5760146457 6240565736 1515151515 1155444162 1457114457 6062271100 4156444042 4143536741 OP'TOR NO.rrrrrtMDAR'OtDOPR7t AND BACKWA
       6244406057 5451635040 6057515664 4562151515 1155444162 1457114342 2011004156 4440576045 RD POLISH POINTERrrrtMDAR'OtCB0t AND OPE
       6241645762 4046544147 1515151515 1152606362 1160656350 6311006065 6350405760 4562416457 RATOR FLAGrrrrrtJPSRtPUSHSt PUSH OPERATO
       6240455664 6271406457 4060575451 6350151515 1155445162 1144576062 5611004156 4440624564 R ENTRY TO POLISHrrrtMDIRtDOPRNt AND RET
       6562561515 1515151515 4457606225 0611112011 0064455560 4063645762 4147454036 3636151515 URNrrrrrrrDOPR5:tt0t TEMP STORAGE ...rrr
       4457606226 0611112015 4457606227 0611112015 4457606230 0611112015 4457606231 0611112015 DOPR6:tt0rDOPR7:tt0rDOPR8:tt0rDOPR9:tt0r
       1515151515 1515151515 0040606257 4345636340 4357555541 4036363615 1515151515 5760260611 rrrrrrrrrr  PROCESS COMMA ...rrrrrrOP6:t
       5544416214 5611576056 4446110054 4163644045 5445554556 6440415640 5760456241 5644401215 MDAR'NtOPNDFt LAST ELEMENT AN OPERAND ?r
       1152604156 1155516357 4411005657 3440456262 5762151515 1515151515 1141625544 1157605644 tJPANtMISODt NO, ERRORrrrrrrrrtARMDtOPND
       4611004354 4541624054 4163644057 6045624156 4440465441 4715151515 1155444162 1446112111 Ft CLEAR LAST OPERAND FLAGrrrrtMDAR'Ft1t
       0065566364 4143534044 5767564064 5740544566 4554402115 1152606362 1165636441 5315151515  UNSTACK DOWN TO LEVEL 1rtJPSRtUSTAKrrrr
       1515151515 1155444162 1451115760 6462110057 6040636441 4353404555 6064714012 1515151515 rrrrrtMDAR'ItOPTRt OP STACK EMPTY ?rrrrr
       1152605463 1136102311 0056573440 6353516015 1515151515 1155444162 1446112211 0071456334 tJPLSt.+3t NO, SKIPrrrrrrtMDAR'Ft2t YES,
       4046456443 5040435744 4540465762 4043575555 4140624564 6562561515 1152655560 1160575456  FETCH CODE FOR COMMA RETURNrrtJUMPtPOLN
       4411004757 4045564440 6057545163 5015151515 1515151515 1155447057 1446112311 0054416364 Dt GO END POLISHrrrrrrrrrtMDXO'Ft3t LAST
       4057604562 4164576240 4140476257 6560515647 4060416245 5640121515 1152605463 1157602644  OPERATOR A GROUPING PAREN ?rrtJPLStOP6D
       1100565734 4063535160 4046576240 6365424362 5160643746 6556436451 5756404162 4715151515 t NO, SKIP FOR SUBCRIPT/FUNCTION ARGrrrr
       1515151515 0040435045 4353404657 6240435755 6054457040 4357566364 4156644036 3636151515 rrrrr  CHECK FOR COMPLEX CONSTANT ...rrr
       1515151515 1155444162 1451145011 6046624560 1100714563 3440544163 6440576045 6241564440 rrrrrtMDAR'I'HtPFREPt YES, LAST OPERAND 
       4140624541 5440435756 6364415664 4012151515 1155447057 1446112020 2420221515 1155444162 A REAL CONSTANT ?rrrtMDXO'Ft00402rrtMDAR
       1441144611 2727242027 1515151515 1152635463 1145626257 6211005657 3440434156 1464404245 'A'Ft77407rrrrrtJSLStERRORt NO, CAN'T BE
       4043575560 5445704043 5756636441 5664344045 6262576215 1111456221 2230110040 4016515454  COMPLEX CONSTANT, ERRORrttER128t   (ILL
       4547415440 4357555541 4063434156 5645441715 1515151515 1515151515 7777700000 1035547113 EGAL COMMA SCANNED)rrrrrrrrrrrbbX  +-LY"
       1035547113 1035547113 1035547113 1035547113 1035547113 1035547113 1035547113 1035547113 +-LY"+-LY"+-LY"+-LY"+-LY"+-LY"+-LY"+-LY"
       1035547113                                                                              +-LY"
 1670: 0002000015 4664562025 1361200500 3414400000 0040606257 4345636340 4357556054 4570404357  c  rFTN05"Q0* ,'     PROCESS COMPLEX CO
       5663644156 6440363636 1515151515 1515151515 1141627057 1446111100 7145633440 4354454162 NSTANT ...rrrrrrrrrrtARXO'Ftt YES, CLEAR
       4063514756 4046544147 4046576240 5155414740 6041626415 1141625544 1160575431 3115151515  SIGN FLAG FOR IMAG PARTrtARMDtPOL99rrrr
       1152606362 1162454357 4711004745 6440564570 6440457060 6245636351 5756404554 4555455664 tJPSRtRECOGt GET NEXT EXPRESSION ELEMENT
       1515151515 1152655560 1157602642 1100404045 6262576240 5146406371 5542575415 1152655560 rrrrrtJUMPtOP6Bt   ERROR IF SYMBOLrtJUMP
       1157602643 1100404043 5756636441 5664344052 6555604064 5740435045 4353151515 1152655560 tOP6Ct   CONSTANT, JUMP TO CHECKrrrtJUMP
       1157602642 1100404045 6262576240 5146406364 6251564740 4357566364 4156641515 1152655560 tOP6Bt   ERROR IF STRING CONSTANTrrtJUMP
       1157602642 1100404045 6262576240 5146405441 4245544043 5756636441 5664151515 1515151515 tOP6Bt   ERROR IF LABEL CONSTANTrrrrrrrr
       1155447057 1446112711 0013101340 1215151515 1152605463 1136102215 1152655560 1157602641 tMDXO'Ft7t "+" ?rrrrtJPLSt.+2rtJUMPtOP6A
       1100714563 3440575334 4063535160 1515151515 1515151515 1155447057 1446112714 2126110013 t YES, OK, SKIPrrrrrrrrrrtMDXO'Ft7'16t "
       3513401215 1152605463 1157602642 1100565734 4045626257 6215151515 1141625544 1457116057 -" ?rtJPLStOP6Bt NO, ERRORrrrrtARMD'OtPO
       5431311100 7145633440 6345644051 5541474060 4162644063 5147564056 4547416451 6645151515 L99t YES, SET IMAG PART SIGN NEGATIVErrr
       1515151515 5760264106 1152606362 1162454357 4711004745 6440564570 6440455445 5545566415 rrrrrOP6A:tJPSRtRECOGt GET NEXT ELEMENTr
       1152655560 1157602642 1100404045 6262576240 5146406371 5542575415 1152655560 1157602643 tJUMPtOP6Bt   ERROR IF SYMBOLrtJUMPtOP6C
       1100404043 5756636441 5664344052 6555604064 5740435045 4353405146 4062454154 1515151515 t   CONSTANT, JUMP TO CHECK IF REALrrrrr
       1152655560 1157602642 1100404045 6262576240 5146406364 6251564740 4357566364 4156641515 tJUMPtOP6Bt   ERROR IF STRING CONSTANTrr
       1152655560 1157602642 1100404045 6262576240 5146405441 4245544043 5756636441 5664151515 tJUMPtOP6Bt   ERROR IF LABEL CONSTANTrrr
       1515151515 5760264206 1152606362 1145626257 6211004554 6345344046 4164415440 4562625762 rrrrrOP6B:tJPSRtERRORt ELSE, FATAL ERROR
       1515151515 1111456221 2231110040 4016515454 4547415440 4657625540 4657624043 5755605445 rrrrrttER129t   (ILLEGAL FORM FOR COMPLE
       7040435756 6364566417 1515151515 1515151515 5760264306 1155447057 1160575431 3111004144 X CONSTNT)rrrrrrrrrrOP6C:tMDXOtPOL99t AD
       5265636440 5155414751 5641627140 6041626440 5146405645 4741645166 4515151515 1141625544 JUST IMAGINARY PART IF NEGATIVErrrrtARMD
       1160575431 3111006341 6645405155 4147515641 6271406641 5465451515 1155444162 1162454344 tPOL99t SAVE IMAGINARY VALUErrtMDARtRECD
       6411004441 6441406471 6045403340 6245415440 1215151515 1155447057 1446112215 1152605463 Tt DATA TYPE = REAL ?rrrrtMDXO'Ft2rtJPLS
       1157602642 1100565734 4045626257 6215151515 1515151515 1155444162 1451116046 6245601100 tOP6Bt NO, ERRORrrrrrrrrrtMDAR'ItPFREPt 
       4645644350 4060575451 6350404556 6462714046 5762402163 6440435756 6364415664 1515151515 FETCH POLISH ENTRY FOR 1ST CONSTANTrrrrr
       1155444162 1441144611 2727272727 1100554163 5340435756 6364415664 4064414254 4540606462 tMDAR'A'Ft77777t MASK CONSTANT TABLE PTR
       1515151515 1141625544 1160575431 3011006341 6645151515 1155444162 1451145011 6046624560 rrrrrtARMDtPOL98t SAVErrrtMDAR'I'HtPFREP
       1100464564 4350404654 4147634046 5762406245 4154406041 6264151515 1155444162 1441114322 t FETCH FLAGS FOR REAL PARTrrrtMDAR'AtC2
       2011005541 6353406351 4756404251 6415151515 1154634162 1456114320 1100514640 5645474164 0t MASK SIGN BITrrrrtLSAR'NtC0t IF NEGAT
       5166454063 4564406351 4756405541 6353151515 1155447057 1451147011 6057543130 1100474564 IVE SET SIGN MASKrrrtMDXO'I'XtPOL98t GET
       4046516263 6440435756 6364415664 4066415465 4515151515 1152606362 1163644356 2211006364  FIRST CONSTANT VALUErrrrtJPSRtSTCN2t ST
       5762454064 6757356757 6244404357 5663644156 6415151515 1155444162 1160575431 3111004040 ORE TWO-WORD CONSTANTrrrrtMDARtPOL99t   
       1646456443 5040574640 2256444067 5762441715 1515151515 1141625544 1160575431 3111006341 (FETCH OF 2ND WORD)rrrrrrtARMDtPOL99t SA
       6645406441 4254454060 5751566445 6215151515 1155444162 1451116046 6245601100 4645644350 VE TABLE POINTERrrrrtMDAR'ItPFREPt FETCH
       4057604562 4156444046 5441476315 1155444162 1441145011 4155416353 1100554163 5340576564  OPERAND FLAGSrtMDAR'A'HtAMASKt MASK OUT
       4057544440 4357566364 4064414254 4540606462 1515151515 1155444162 1457116057 5431311100  OLD CONST TABLE PTRrrrrrtMDAR'OtPOL99t 
       4357554251 5645405645 6740605751 5664456215 1155444162 1457145011 4324110063 4564404441 COMBINE NEW POINTERrtMDAR'O'HtC4t SET DA
       6441406471 6045403340 4357556054 4570151515 1155447057 1441145011 4321262011 0063456440 TA TYPE = COMPLEXrrrtMDXO'A'HtC160t SET 
       6057635164 5166451515 1141624162 1470116046 6245601100 6057604060 6245665157 6563405760 POSITIVErrtARAR'XtPFREPt POP PREVIOUS OP
       4562415644 4046625755 4060575451 6350151515 1152606362 1160656350 6311004156 4440606563 ERAND FROM POLISHrrrtJPSRtPUSHSt AND PUS
       5040564567 4057564515 1515151515 7777700000 7336654041 7336654041 7336654041 7336654041 H NEW ONErrrrrrbbX  $.U A$.U A$.U A$.U A
       7336654041 7336654041 7336654041 7336654041 7336654041 7336654041                       $.U A$.U A$.U A$.U A$.U A$.U A
 1505: 0002100015 4664562025 1361200437 3414400000 1152606362 1147436311 0047456440 4445545155  c+ rFTN05"Q0&/,'   tJPSRtGCSt GET DELIM
       4564456240 4350416215 1155447057 1446110217 1100625147 5064406041 6245564012 1515151515 ETER CHARrtMDXO'Ftc)t RIGHT PAREN ?rrrrr
       1152605463 1157602642 1100565734 4045626257 6215151515 1515151515 1152606362 1160576057 tJPLStOP6Bt NO, ERRORrrrrrrrrrtJPSRtPOPO
       1100714563 3440605760 4064504540 5445466440 6041624556 1515151515 1141625544 1457115760 t YES, POP THE LEFT PARENrrrrrtARMD'OtOP
       5644461100 6345644057 6045624156 4440465441 4715151515 1152655560 1160575462 6411004156 NDFt SET OPERAND FLAGrrrrtJUMPtPOLRTt AN
       4440624564 6562564046 5762405645 7064404554 4555455664 1515151515 1515151515 1515151515 D RETURN FOR NEXT ELEMENTrrrrrrrrrrrrrrr
       0040606257 4345636340 6365426343 6251606440 5762404665 5643645157 5640416247 4063456041   PROCESS SUBSCRIPT OR FUNCTION ARG SEPA
       6241645762 4036363615 1515151515 5760264406 1155444162 1157606462 1100464564 4350405760 RATOR ...rrrrrrOP6D:tMDARtOPTRt FETCH OP
       4063644143 5340605751 5664456215 1155444163 1446145611 2111004445 4362455545 5664406457  STACK POINTERrtMDAS'F'Nt1t DECREMENT TO
       4060575451 6350406064 6240675762 4415151515 1141625544 1160575431 3111006341 6645406064  POLISH PTR WORDrrrrtARMDtPOL99t SAVE PT
       6215151515 1155444162 1451116057 5431311100 4645644350 4041444462 4057464060 5754516350 RrrrrtMDAR'ItPOL99t FETCH ADDR OF POLISH
       4067576244 1515151515 1155444162 1441114155 4163531100 5541635315 1141625544 1160575431  WORDrrrrrtMDAR'AtAMASKt MASKrtARMDtPOL9
       3111006341 6645406064 6240645740 6057545163 5015151515 1515151515 1155444162 1451115760 9t SAVE PTR TO POLISHrrrrrrrrrtMDAR'ItOP
       6462110046 4564435040 6041624556 4057604562 4164576215 1155447057 1446112211 0060625743 TRt FETCH PAREN OPERATORrtMDXO'Ft2t PROC
       4563635156 4740416262 4171406365 4263436251 6064634012 1515151515 1152605463 1157602645 ESSING ARRAY SUBSCRIPTS ?rrrrrtJPLStOP6E
       1100565734 4055656364 4042454046 6556436451 5756404162 4734406353 5160151515 1515151515 t NO, MUST BE FUNCTION ARG, SKIPrrrrrrrr
       1152606362 1163654243 5311004554 6345344043 5045435340 4657624066 4154514440 6365426343 tJPSRtSUBCKt ELSE, CHECK FOR VALID SUBSC
       6251606415 1155444162 1451116057 5431311100 4645644350 4041626241 7140455664 6271405156 RIPTrtMDAR'ItPOL99t FETCH ARRAY ENTRY IN
       4060575451 6350151515 1155444162 1441144611 2727272727 1100554163 5340635564 4142406064  POLISHrrrtMDAR'A'Ft77777t MASK SMTAB PT
       6215151515 1155444163 1446145611 2111004445 4362455545 5664406457 4066415465 4540675762 RrrrrtMDAS'F'Nt1t DECREMENT TO VALUE WOR
       4415151515 1141625544 1160575431 3011004156 4440634166 4540606462 4064574041 6262417140 DrrrrtARMDtPOL98t AND SAVE PTR TO ARRAY 
       6371554257 5440455664 6271151515 1155444162 1451145011 6057543130 1100464564 4350404451 SYMBOL ENTRYrrrtMDAR'I'HtPOL98t FETCH DI
       5564424060 5751566445 6215151515 1155444162 1441144611 2727272727 1100554163 5315151515 MTB POINTERrrrrtMDAR'A'Ft77777t MASKrrrr
       1141625544 1160575431 3011006341 6645151515 1155444162 1451145011 6057543130 1100464564 tARMDtPOL98t SAVErrrtMDAR'I'HtPOL98t FET
       4350404162 6241714044 5155455663 5157564046 6257554044 5155644215 1155444162 1441144611 CH ARRAY DIMENSION FROM DIMTBrtMDAR'A'Ft
       2311005541 6353151515 1155447057 1163654243 6411006341 5545404163 4043656262 4556644063 3t MASKrrrtMDXOtSUBCTt SAME AS CURRENT S
       6542634362 5160644043 5765566440 1215151515 1152605463 1136102511 0056573440 5753404657 UBSCRIPT COUNT ?rrrrtJPLSt.+5t NO, OK FO
       6240575645 4055576245 1515151515 1515151515 1152606362 1145626257 6211004554 6345344046 R ONE MORErrrrrrrrrrtJPSRtERRORt ELSE, F
       4164415440 4562625762 1515151515 1111456221 2320110040 4016645757 4055415671 4063654263 ATAL ERRORrrrrrttER130t   (TOO MANY SUBS
       4362516064 6317151515 1152606362 1145626257 6211004142 5762644043 4162444063 4341561515 CRIPTS)rrrtJPSRtERRORt ABORT CARD SCANrr
       1111456230 2515151515 1515151515 5760264506 1141624162 1470116365 4243641100 5156444570 ttER85rrrrrrrrrOP6E:tARAR'XtSUBCTt INDEX
       4063654263 4362516064 4043576556 6415151515 1155444162 1454111100 4645644350 4060575451  SUBSCRIPT COUNTrrrrtMDAR'Ltt FETCH POLI
       6350404357 4445404657 6240634560 4162416457 6215151515 1124202020 2103501515 1155444162 SH CODE FOR SEPARATORrrrrt40001!HrrtMDAR
       1457116057 5431311100 4357554251 5645406064 6240645740 6057545163 5040576045 6241564415 'OtPOL99t COMBINE PTR TO POLISH OPERANDr
       1152606362 1160656350 6311006065 6350406457 4060575451 6350406364 4143531515 1152655560 tJPSRtPUSHSt PUSH TO POLISH STACKrrtJUMP
       1160575462 6411004156 4440624564 6562564046 5762405645 7064404554 4555455664 1515151515 tPOLRTt AND RETURN FOR NEXT ELEMENTrrrrr
       1515151515 1515151515 7777700000 3615046502 3615046502 3615046502 3615046502 3615046502 rrrrrrrrrrbbX  .r&Uc.r&Uc.r&Uc.r&Uc.r&Uc
       3615046502 3615046502 3615046502 3615046502 3615046502                                  .r&Uc.r&Uc.r&Uc.r&Uc.r&Uc
 1400: 0002200015 4664562025 1361200412 3414400000 0040606257 4345636340 6054656340 6351475640  c0 rFTN05"Q0&?,'     PROCESS PLUS SIGN 
       3636361515 1515151515 5760270611 5544416214 5611576056 4446110054 4163644057 6045624156 ...rrrrrrrOP7:tMDAR'NtOPNDFt LAST OPERAN
       4440465441 4740634564 4012151515 1152604156 1157602225 1100565734 4047574060 6257434563 D FLAG SET ?rrrtJPANtOP25t NO, GO PROCES
       6340655641 6271406054 6563151515 1515151515 1155444162 1446112124 1100714563 3440464564 S UNARY PLUSrrrrrrrrtMDAR'Ft14t YES, FET
       4350404357 4445404657 6240425156 4162714060 5465631515 1152655560 1160575457 6011004156 CH CODE FOR BINARY PLUSrrtJUMPtPOLOPt AN
       4440526555 6040645740 4451636041 6443504057 5640516415 1515151515 1515151515 0040606257 D JUMP TO DISPATCH ON ITrrrrrrrrrrr  PRO
       4345636340 5551566563 4063514756 4036363615 1515151515 5760212606 1155444162 1456115760 CESS MINUS SIGN ...rrrrrrOP16:tMDAR'NtOP
       5644461100 5441636440 4554455545 5664404156 4057604562 4156444012 1515151515 1152604156 NDFt LAST ELEMENT AN OPERAND ?rrrrrtJPAN
       1157602225 1100565734 4047574060 6257434563 6340655641 6271405551 5665631515 1515151515 tOP25t NO, GO PROCESS UNARY MINUSrrrrrrr
       1155444162 1446112125 1100714563 3440464564 4350405760 5665554046 5762404251 5641627140 tMDAR'Ft15t YES, FETCH OPNUM FOR BINARY 
       5551566563 1515151515 1152655560 1160575457 6011004156 4440526555 6040645740 4451636041 MINUSrrrrrtJUMPtPOLOPt AND JUMP TO DISPA
       6443504057 5640516415 1515151515 1515151515 0040606257 4345636340 5657625541 5440425156 TCH ON ITrrrrrrrrrrr  PROCESS NORMAL BIN
       4162714057 6045624164 5762403636 3615151515 1515151515 5760212006 1155444162 1456115760 ARY OPERATOR ...rrrrrrrrrOP10:tMDAR'NtOP
       5644461100 5760456241 5644404654 4147406345 6440121515 1152604156 1155516357 4411005657 NDFt OPERAND FLAG SET ?rrtJPANtMISODt NO
       3440555163 6351564740 5760456241 5644151515 1515151515 1141625544 1157605644 4611007145 , MISSING OPERANDrrrrrrrrtARMDtOPNDFt YE
       6334404354 4541624057 6045624156 4440465441 4715151515 1155444162 1450114365 6257601100 S, CLEAR OPERAND FLAGrrrrtMDAR'HtCUROPt 
       4645644350 4057604562 4164576240 6062454345 4445564345 1515151515 1152606362 1165636441 FETCH OPERATOR PRECEDENCErrrrrtJPSRtUSTA
       5311004156 4440655663 6441435340 4457675640 6457406450 4164405445 6645541515 1515151515 Kt AND UNSTACK DOWN TO THAT LEVELrrrrrrr
       5760212041 0611526063 6211565762 4546110063 4564405657 6440414063 5156475445 4062454645 OP10A:tJPSRtNOREFt SET NOT A SINGLE REFE
       6245564345 1515151515 1515151515 5760212042 0611526063 6211606563 5057110060 6563504057 RENCErrrrrrrrrrOP10B:tJPSRtPUSHOt PUSH O
       6045624164 5762406457 4057604063 6441435315 1152655560 1160575462 6411004156 4440624564 PERATOR TO OP STACKrtJUMPtPOLRTt AND RET
       6562564046 5762405645 7064404554 4555455664 1515151515 1515151515 1515151515 0040606257 URN FOR NEXT ELEMENTrrrrrrrrrrrrrrr  PRO
       4345636340 5657625541 5440655641 6271405760 4562416457 6240363636 1515151515 1515151515 CESS NORMAL UNARY OPERATOR ...rrrrrrrrrr
       5760222506 1155444162 1450114365 6257601100 4645644350 4043656262 4556644057 6040606245 OP25:tMDAR'HtCUROPt FETCH CURRENT OP PRE
       4345444556 4345151515 1515151515 5760222541 0611416255 4411605754 3131110063 4166454060 CEDENCErrrrrrrrOP25A:tARMDtPOL99t SAVE P
       6245434544 4556434540 4657624066 4154514440 6563454043 5045435315 1155444162 1157605644 RECEDENCE FOR VALID USE CHECKrtMDARtOPND
       4611005441 6364405760 4562415644 4063456440 1215151515 1152604156 1155516357 6211007145 Ft LAST OPERAND SET ?rrrrtJPANtMISORt YE
       6334405551 6363515647 4057604562 4164576240 4562625762 1515151515 1515151515 1155444162 S, MISSING OPERATOR ERRORrrrrrrrrrrtMDAR
       1451145014 5611576064 6211004645 6443504054 4163644057 6045624164 5762406062 4543454445 'I'H'NtOPTRt FETCH LAST OPERATOR PRECEDE
       5643451515 1155444162 1457145011 4155416353 1100554163 5315151515 1155444163 1160575431 NCErrtMDAR'O'HtAMASKt MASKrrrrtMDAStPOL9
       3111005445 6363406450 4156404365 6262455664 4057604060 6245434012 1515151515 1152634156 9t LESS THAN CURRENT OP PREC ?rrrrrtJSAN
       1145626257 6211005657 3440674162 5651564740 4562625762 1515151515 1111456221 2321110040 tERRORt NO, WARNING ERRORrrrrrttER131t  
       4016555163 6351564740 6041624556 1715151515 1152655560 1157602120 4111004757 4060625743  (MISSING PAREN)rrrrtJUMPtOP10At GO PROC
       4563634041 5671674171 1515151515 1515151515 1515151515 7777700000 0762405466 0762405466 ESS ANYWAYrrrrrrrrrrrrrrrbbX  _R LV_R LV
       0762405466 0762405466 0762405466 0762405466 0762405466 0762405466 0762405466 0762405466 _R LV_R LV_R LV_R LV_R LV_R LV_R LV_R LV
 1150: 0002300015 4664562025 1361200330 3414400000 0040606257 4345636340 6556416271 4063505146  c8 rFTN05"Q0!8,'     PROCESS UNARY SHIF
       6451564740 5760456241 6457624036 3636151515 1515151515 5760232306 1155444162 1450114365 TING OPERATOR ...rrrrrrrrOP33:tMDAR'HtCU
       6257601100 4645644350 4043656262 4556644057 6040606245 4345444556 4345151515 1155444163 ROPt FETCH CURRENT OP PRECEDENCErrrtMDAS
       1446112111 0044454362 4555455664 4064574041 5454576740 5565546451 6054454057 6063151515 'Ft1t DECREMENT TO ALLOW MULTIPLE OPSrrr
       1152655560 1157602225 4111005265 5560406457 4060625743 4563634065 5641627140 5760151515 tJUMPtOP25At JUMP TO PROCESS UNARY OPrrr
       1515151515 1515151515 0040606257 4345636340 4163635147 5655455664 4057604562 4164576240 rrrrrrrrrr  PROCESS ASSIGNMENT OPERATOR 
       3636361515 1515151515 5760602326 0611554441 6211544566 4554110067 5164505156 4063654263 ...rrrrrrrOPP36:tMDARtLEVELt WITHIN SUBS
       4362516064 4057624046 6556436451 5756405451 6364401215 1152635463 1145626257 6211007145 CRIPT OR FUNCTION LIST ?rtJSLStERRORt YE
       6334404641 6441544045 6262576215 1111456221 2322110040 4016515454 4547415440 6563454057 S, FATAL ERRORrttER132t   (ILLEGAL USE O
       4640334057 6045624164 5762171515 1515151515 1155444162 1456115760 5644461100 5441636440 F = OPERATOR)rrrrrrrtMDAR'NtOPNDFt LAST 
       5657644041 5640576045 6241564440 1215151515 1155444162 1457116057 5462461100 5762405657 NOT AN OPERAND ?rrrrtMDAR'OtPOLRFt OR NO
       6440414063 5156475445 4062454645 6245564345 4012151515 1152634156 1145626257 6211007145 T A SINGLE REFERENCE ?rrrtJSANtERRORt YE
       6334404641 6441544045 6262576215 1111456221 2323110040 4016515454 4547415440 4570604057 S, FATAL ERRORrttER133t   (ILLEGAL EXP O
       5640544546 6440574640 3340635147 5617151515 1515151515 1155444162 1145616563 4611004163 N LEFT OF = SIGN)rrrrrrrrtMDARtEQUSFt AS
       6351475655 4556646340 6045625551 6464454440 1215151515 1152604156 1136102311 0071456334 SIGNMENTS PERMITTED ?rrrrtJPANt.+3t YES,
       4043575664 5156654515 1515151515 1155444162 1446112111 0045546345 3440464564 4350404556  CONTINUErrrrrrtMDAR'Ft1t ELSE, FETCH EN
       4440435744 4540465762 4041636351 4756554556 6415151515 1152655560 1160575456 4411004156 D CODE FOR ASSIGNMENTrrrrtJUMPtPOLNDt AN
       4440526555 6040645740 4556444060 5754516350 4063646251 5647151515 1515151515 1141625544 D JUMP TO END POLISH STRINGrrrrrrrrtARMD
       1456115760 5644461100 4354454162 4057604562 4156444046 5441471515 1141625544 1456116057 'NtOPNDFt CLEAR OPERAND FLAGrrtARMD'NtPO
       5462461100 4156444056 5764406351 5647544540 6245464046 5441471515 1141625544 1457116057 LRFt AND NOT SINGLE REF FLAGrrtARMD'OtPO
       5445461100 6345644045 6165415440 6351475640 4654414715 1515151515 1155444162 1451116046 LEFt SET EQUAL SIGN FLAGrrrrrrtMDAR'ItPF
       6245601100 4645644350 4041636351 4756454440 5760456241 5644404662 5755406057 5451635015 REPt FETCH ASSIGNED OPERAND FROM POLISHr
       1152606362 1164624347 6411004745 6440646241 4345404654 4147406064 6234405146 4041567115 tJPSRtTRCGTt GET TRACE FLAG PTR, IF ANYr
       1141625544 1143656257 6011006345 6440416340 4365626245 5664405760 4562416457 6215151515 tARMDtCUROPt SET AS CURRENT OPERATORrrrr
       1152606362 1160656350 5711004156 4440606563 5015151515 1155444162 1454111100 5657674062 tJPSRtPUSHOt AND PUSHrrrrtMDAR'Ltt NOW R
       4563645762 4540416363 5147565545 5664405760 1515151515 1122035011 2326151515 1141625544 ESTORE ASSIGNMENT OPrrrrrt2!Ht36rrrtARMD
       1143656257 6015151515 1152655560 1157602120 4211004156 4440526555 6040645740 6364414353 tCUROPrrrrtJUMPtOP10Bt AND JUMP TO STACK
       1515151515 1515151515 1515151515 7777700000 7026273674 7026273674 7026273674 7026273674 rrrrrrrrrrrrrrrbbX  X67.#X67.#X67.#X67.#
       7026273674 7026273674 7026273674 7026273674 7026273674 7026273674                       X67.#X67.#X67.#X67.#X67.#X67.#
 1320: 0002400015 4664562025 1361200372 3414400000 0040606257 4345636340 4357566364 4156644036  c  rFTN05"Q0!Z,'     PROCESS CONSTANT .
       3636151515 1515151515 6057544356 0611416255 4411605754 3131110063 4166454043 5756636441 ..rrrrrrrrPOLCN:tARMDtPOL99t SAVE CONSTA
       5664406641 5465451515 1141564162 1456116057 5431311100 4745644041 4263575465 6445406641 NT VALUErrtANAR'NtPOL99t GET ABSOLUTE VA
       5465451515 1141624162 1450144611 1100364764 3640212440 4251646340 5541475651 6465444540 LUErrtARAR'H'Ftt .GT. 14 BITS MAGNITUDE 
       1215151515 1152605463 1160574320 2111007145 6334405265 5560406457 4063645762 4540435756 ?rrrrtJPLStPOC01t YES, JUMP TO STORE CON
       6364415664 1515151515 1152604156 1160574320 2111004154 6357344051 4640645051 6315151515 STANTrrrrrtJPANtPOC01t ALSO, IF THISrrrr
       1515151515 1155444162 1160575431 3111004554 6345344046 4564435040 6641546545 1515151515 rrrrrtMDARtPOL99t ELSE, FETCH VALUErrrrr
       1155444162 1441114155 4163531100 5541635315 1155444162 1457114342 2324110063 4564405760 tMDAR'AtAMASKt MASKrtMDAR'OtCB34t SET OP
       4562415644 4064716045 4033405155 5545444043 5756636441 5664151515 1152655560 1160574320 ERAND TYPE = IMMED CONSTANTrrrtJUMPtPOC0
       2211005265 5560406457 4063644143 5340515640 6057545163 5015151515 1515151515 6057432021 2t JUMP TO STACK IN POLISHrrrrrrrrrPOC01
       0611554441 6211605754 3131110046 4564435040 2320354251 6440435756 6364415664 1515151515 :tMDARtPOL99t FETCH 30-BIT CONSTANTrrrrr
       1152606362 1163644357 5611006364 5762454051 5640435756 6364415664 4064414254 4515151515 tJPSRtSTCONt STORE IN CONSTANT TABLErrrr
       1515151515 6057432022 0611554441 6214571143 4226110063 4564404357 5663644156 6440425164 rrrrrPOC02:tMDAR'OtCB6t SET CONSTANT BIT
       4051564060 5754516350 4045566462 7115151515 1155444162 1457145011 6245434464 1100435755  IN POLISH ENTRYrrrrtMDAR'O'HtRECDTt COM
       4251564540 4441644140 6471604515 1515151515 1152606362 1160656350 6311006065 6350405760 BINE DATA TYPErrrrrrtJPSRtPUSHSt PUSH OP
       4562415644 4064574060 5754516350 4063644143 5315151515 1155444162 1157605644 4611005441 ERAND TO POLISH STACKrrrrtMDARtOPNDFt LA
       6364404156 4057604562 4156444012 1515151515 1152604156 1155516357 6211007145 6334405551 ST AN OPERAND ?rrrrrtJPANtMISORt YES, MI
       6363515647 4057604562 4164576215 1515151515 1141625544 1457115760 5644461100 6345644057 SSING OPERATORrrrrrrtARMD'OtOPNDFt SET O
       6045624156 4440465441 4715151515 1152606362 1156576245 4611006345 6440565764 4063515647 PERAND FLAGrrrrtJPSRtNOREFt SET NOT SING
       5445406245 4645624556 4345151515 1152655560 1160575462 6411006245 6465625640 4657624056 LE REFERENCErrrtJUMPtPOLRTt RETURN FOR N
       4570644045 5445554556 6415151515 1515151515 1515151515 0040606257 4345636340 6364625156 EXT ELEMENTrrrrrrrrrrrrrr  PROCESS STRIN
       4740435756 6364415664 4036363615 1515151515 6057544363 0611416255 4411605754 3131110063 G CONSTANT ...rrrrrrPOLCS:tARMDtPOL99t S
       4166454067 5762444043 5765566415 1155447057 1446112111 0057565471 4057564540 6757624440 AVE WORD COUNTrtMDXO'Ft1t ONLY ONE WORD 
       1215151515 1152605463 1160575443 2111005657 3440635351 6015151515 1515151515 1155444162 ?rrrrtJPLStPOLC1t NO, SKIPrrrrrrrrrtMDAR
       1162454331 3011006245 6364576245 4046624545 4063645762 4147451515 1141625544 1146624545 tREC98t RESTORE FREE STORAGErrtARMDtFREE
       6015151515 1155444162 1442116343 4654471100 4645644350 4063646251 5647404357 5663644156 PrrrrtMDAR'BtSCFLGt FETCH STRING CONSTAN
       6440465441 4715151515 1141624162 1446144215 1155444162 1441114323 1100474564 4045575440 T FLAGrrrrtARAR'F'BrtMDAR'AtC3t GET EOL 
       4251644064 7160451515 1155444145 1454151515 1155444162 1143544541 6442541100 4362454164 BIT TYPErrtMDAE'LrrrtMDARtCLEATBLt CREAT
       4540464564 4350404657 6240455754 4042516415 1141625162 1446111100 4645644350 4045575440 E FETCH FOR EOL BITrtARIR'Ftt FETCH EOL 
       4251641515 1155444162 1451145711 4662454560 1100435755 4251564540 6751645040 4357566364 BITrrtMDAR'I'OtFREEPt COMBINE WITH CONST
       4156644067 5762444067 5762441515 1152655560 1160575443 5611004156 4440646245 4164404163 ANT WORD WORDrrtJUMPtPOLCNt AND TREAT AS
       4056576255 4154404357 5663644156 6415151515 1515151515 7777700000 0034620734 0034620734  NORMAL CONSTANTrrrrrrrrrbbX   ,R_, ,R_,
       0034620734 0034620734 0034620734 0034620734 0034620734 0034620734 0034620734 0034620734  ,R_, ,R_, ,R_, ,R_, ,R_, ,R_, ,R_, ,R_,
 1615: 0002500015 4664562025 1361200465 3414400000 6057544321 0611526063 6211476254 4364110047  cH rFTN05"Q0&U,'   POLC1:tJPSRtGRLCTt G
       4564406245 5457434043 5756636440 6441425445 4045566462 7115151515 1141625544 1160575431 ET RELOC CONST TABLE ENTRYrrrrtARMDtPOL9
       3011006341 6645406057 5156644562 1515151515 1141625544 1160575431 2711004154 6357404657 8t SAVE POINTERrrrrrtARMDtPOL97t ALSO FO
       6240515644 4570515647 1515151515 1155444162 1451116057 5431301100 6345644042 5164404657 R INDEXINGrrrrrtMDAR'ItPOL98t SET BIT FO
       6240556554 6451356757 6244151515 1155444162 1457114342 2211004040 4063646251 5647404357 R MULTI-WORDrrrtMDAR'OtCB2t    STRING CO
       5663644156 6415151515 1155444162 1457116343 4654471100 4154635740 6345644063 6045435141 NSTANTrrrrtMDAR'OtSCFLGt ALSO SET SPECIA
       5440636462 5156474046 5441476315 1141625544 1451116057 5431301515 1155444162 1450145611 L STRING FLAGSrtARMD'ItPOL98rrtMDAR'H'Nt
       6057543131 1100464564 4350403543 5664035040 4144446215 1155444162 1441145011 4155416353 POL99t FETCH -CNT!H ADDRrtMDAR'A'HtAMASK
       1515151515 1155444162 1457116245 4331301515 1141625544 1451147011 6057543127 1100634166 rrrrrtMDAR'OtREC98rrtARMD'I'XtPOL97t SAV
       4540515640 6441425445 1515151515 1155444162 1160575431 3011004645 6443504064 4142544540 E IN TABLErrrrrtMDARtPOL98t FETCH TABLE 
       6057515664 4562151515 1152655560 1160574320 2211005265 5560406457 4063644143 5340515640 POINTERrrrtJUMPtPOC02t JUMP TO STACK IN 
       6057545163 5015151515 1515151515 1515151515 0040606257 4345636340 6364416445 5545566440 POLISHrrrrrrrrrrrrrr  PROCESS STATEMENT 
       5441424554 4043575663 6441566440 3636361515 1515151515 6057544354 0611526063 6211636454 LABEL CONSTANT ...rrrrrrrPOLCL:tJPSRtSTL
       4356110063 6457624540 5441424554 4051564062 4554574340 4357566364 4156644064 4142544515 CNt STORE LABEL IN RELOC CONSTANT TABLEr
       1152655560 1160574320 2211005265 5560406457 4063644143 5340515640 6057545163 5015151515 tJUMPtPOC02t JUMP TO STACK IN POLISHrrrr
       1515151515 1515151515 0040636457 6245405441 4245544041 4444624563 6340435756 6364415664 rrrrrrrrrr  STORE LABEL ADDRESS CONSTANT
       4051564062 4554574341 6441425445 4043575663 6441566440 6441425445 1515151515 1515151515  IN RELOCATABLE CONSTANT TABLErrrrrrrrrr
       6364544356 0611526555 6011361100 4556646271 1515151515 1141625544 1163645443 3111006341 STLCN:tJUMPt.t ENTRYrrrrrtARMDtSTLC9t SA
       6645406064 6240645740 5441424554 4064414254 4540455664 6271151515 1155444163 1446145611 VE PTR TO LABEL TABLE ENTRYrrrtMDAS'F'Nt
       2111004445 4362455545 5664406457 4066415465 4540675762 4415151515 1141625544 1163645443 1t DECREMENT TO VALUE WORDrrrrtARMDtSTLC
       3011004156 4440634166 4540605751 5664456215 1155444162 1451144211 6364544331 1100415462 8t AND SAVE POINTERrtMDAR'I'BtSTLC9t ALR
       4541447140 5156406245 5457434043 5756636440 6441425445 4012151515 1141624162 1442144615 EADY IN RELOC CONST TABLE ?rrrtARAR'B'Fr
       1152604156 1163645443 2111007145 6334406353 5160151515 1515151515 1155444162 1451116364 tJPANtSTLC1t YES, SKIPrrrrrrrrtMDAR'ItST
       5443311100 5657344046 4564435040 5441424554 4045566462 7140465441 4763151515 1155444162 LC9t NO, FETCH LABEL ENTRY FLAGSrrrtMDAR
       1457114342 2211006345 6440414444 6240435756 6364404251 6440515640 5441424554 4045566462 'OtCB2t SET ADDR CONST BIT IN LABEL ENTR
       7115151515 1141625544 1451116364 5443311100 6341664540 5645674054 4142455440 4654414763 YrrrrtARMD'ItSTLC9t SAVE NEW LABEL FLAGS
       1515151515 1152606362 1147625443 6411004745 6440415640 4556646271 4051564064 5045406245 rrrrrtJPSRtGRLCTt GET AN ENTRY IN THE RE
       5457434043 5756636440 6441425415 1141625544 1164552111 0063416645 4060575156 6445624046 LOC CONST TABLrtARMDtTM1t SAVE POINTER F
       5762405156 4445705156 4715151515 1155444162 1457145014 5111636454 4330110060 5441434540 OR INDEXINGrrrrtMDAR'O'H'ItSTLC8t PLACE 
       5156405441 4245544045 5664627115 1141625544 1451145011 6364544330 1515151515 1155444162 IN LABEL ENTRYrtARMD'I'HtSTLC8rrrrrtMDAR
       1451145314 5611636454 4331110054 4142455440 4445465156 4544401215 1152604156 1163645443 'I'K'NtSTLC9t LABEL DEFINED ?rtJPANtSTLC
       2111005657 3440635351 6015151515 1515151515 1155444162 1451116364 5443301100 7145633440 1t NO, SKIPrrrrrrrrrtMDAR'ItSTLC8t YES, 
       4745644041 4444624563 6315151515 1155444162 1441114155 4163531100 5541635315 1155444162 GET ADDRESSrrrrtMDAR'AtAMASKt MASKrtMDAR
       1457145011 4324201100 4357554251 5645405265 5560405156 6364621515 1141625544 1451147011 'O'HtC40t COMBINE JUMP INSTRrrtARMD'I'Xt
       6455211100 6341664540 5156406245 5457434043 5756636441 5664406441 4254451515 1515151515 TM1t SAVE IN RELOC CONSTANT TABLErrrrrrr
       6364544321 0611554441 6214511450 1163645443 3011004745 6440605751 5664456240 6457406245 STLC1:tMDAR'I'HtSTLC8t GET POINTER TO RE
       5457434043 5756406441 4254451515 1155444162 1441114155 4163531100 5541635315 1155445162 LOC CON TABLErrtMDAR'AtAMASKt MASKrtMDIR
       1163645443 5611006245 6465625615 1515151515 6364544331 0611112011 0064455560 4063645762 tSTLCNt RETURNrrrrrrSTLC9:tt0t TEMP STOR
       4147451515 6364544330 0611112011 0064455560 4063645762 4147451515 1515151515 1515151515 AGErrSTLC8:tt0t TEMP STORAGErrrrrrrrrrrr
       7777700000 4210152775 4210152775 4210152775 4210152775 4210152775 4210152775 4210152775 bbX  B+r7@B+r7@B+r7@B+r7@B+r7@B+r7@B+r7@
       4210152775 4210152775 4210152775                                                        B+r7@B+r7@B+r7@
 1280: 0002600015 4664562025 1361200362 3414400000 0040606257 4345636340 6371554257 5440363636  cP rFTN05"Q0!R,'     PROCESS SYMBOL ...
       1515151515 1515151515 6057546355 0611554441 6211576056 4446110054 4163644041 5640576045 rrrrrrrrrrPOLSM:tMDARtOPNDFt LAST AN OPE
       6241564440 1215151515 1152604156 1155516357 6211007145 6334405551 6363515647 4057604562 RAND ?rrrrtJPANtMISORt YES, MISSING OPER
       4164576215 1515151515 1141625544 1160575431 3111004354 4541624060 4162455664 5045635163 ATORrrrrrrtARMDtPOL99t CLEAR PARENTHESIS
       4046544147 1515151515 1152606362 1147436311 0047456440 4445545155 5164515647 4043504162  FLAGrrrrrtJPSRtGCSt GET DELIMITING CHAR
       1515151515 1155447057 1446110216 1100544546 6440604162 4556401215 1154635162 1143506341 rrrrrtMDXO'Ftc(t LEFT PAREN ?rtLSIRtCHSA
       6611005657 3440634166 4540435041 6215151515 1152605463 1136102211 0041564440 6353516015 Vt NO, SAVE CHARrrrrtJPLSt.+2t AND SKIPr
       1141625544 1457116057 5431311100 7145633440 6345644060 4162455640 4654414715 1515151515 tARMD'OtPOL99t YES, SET PAREN FLAGrrrrrr
       1152606362 1163656263 7155110054 5757536560 4063715542 5754405156 4063715542 5754406441 tJPSRtSURSYMt LOOKUP SYMBOL IN SYMBOL TA
       4254451515 1152655560 1136102211 0040405657 6440465765 5644344063 5351601515 1152655560 BLErrtJUMPt.+2t   NOT FOUND, SKIPrrtJUMP
       1160576320 2211004040 4657655644 3440526555 6040645740 6062574345 6363151515 1515151515 tPOS02t   FOUND, JUMP TO PROCESSrrrrrrrr
       1155444162 1160575431 3111006041 6245566450 4563517245 4440121515 1152634156 1163656251 tMDARtPOL99t PARENTHESIZED ?rrtJSANtSURI
       5646110071 4563344051 5664625156 6351434046 6556436451 5756401215 1152655560 1160576320 NFt YES, INTRINSIC FUNCTION ?rtJUMPtPOS0
       2111005657 3440526555 6015151515 1515151515 1515151515 0040606257 4345636340 5156646251 1t NO, JUMPrrrrrrrrrrrrrr  PROCESS INTRI
       5663514340 4665564364 5157564036 3636151515 1515151515 1152606362 1156576245 4611007145 NSIC FUNCTION ...rrrrrrrrtJPSRtNOREFt YE
       6334406345 6440565764 4041406245 4645624556 4345151515 1155444162 1450114263 6562601100 S, SET NOT A REFERENCErrrtMDAR'HtBSURPt 
       4645644350 4064414254 4540605751 5664456215 1515151515 6057632220 0611554441 6214411450 FETCH TABLE POINTERrrrrrrPOS20:tMDAR'A'H
       1141554163 5311005541 6353151515 1155444163 1446112024 2020201100 4357554251 5645405760 tAMASKt MASKrrrtMDAS'Ft04000t COMBINE OP
       4562415644 4064716045 4033405156 6440466556 4364151515 1141625544 1450116057 5431301100 ERAND TYPE = INT FUNCTrrrtARMD'HtPOL98t 
       6341664540 6057545163 5040675762 4415151515 1152655560 1160576320 3111005265 5560406457 SAVE POLISH WORDrrrrtJUMPtPOS09t JUMP TO
       4063644162 6440466556 4364515756 4041624763 1515151515 1515151515 1515151515 0040565764  START FUNCTION ARGSrrrrrrrrrrrrrrr  NOT
       4041564051 5664625156 6351434046 6556436451 5756403636 3615151515 1515151515 6057632021  AN INTRINSIC FUNCTION ...rrrrrrrrrPOS01
       0611526063 6211636463 7155110056 5764404657 6556443440 6364576245 4056456740 6371554257 :tJPSRtSTSYMt NOT FOUND, STORE NEW SYMBO
       5415151515 1515151515 6057632022 0611554441 6211636562 6011004645 6443504063 7155425754 LrrrrrrrrrPOS02:tMDARtSURPt FETCH SYMBOL
       4064414254 4540605751 5664456215 1141625544 1160575431 3011006341 6645404163 4060575451  TABLE POINTERrtARMDtPOL98t SAVE AS POLI
       6350404556 6462714067 5762441515 1155444162 1163715542 4611004645 6443504060 6245465170 SH ENTRY WORDrrtMDARtSYMBFt FETCH PREFIX
       4046544147 6315151515 1155444162 1441114323 1100554163 5340457064 4562564154 4060624546  FLAGSrrrrtMDAR'AtC3t MASK EXTERNAL PREF
       5170151515 1152635463 1163644570 6411005146 4063456434 4063456440 6371554257 5440457064 IXrrrtJSLStSTEXTt IF SET, SET SYMBOL EXT
       4562564154 1515151515 1515151515 1155444162 1456116371 5542461100 4645644350 4060624546 ERNALrrrrrrrrrrtMDAR'NtSYMBFt FETCH PREF
       5170404654 4147631515 1155444162 1441144611 2411001375 1340121515 1152605463 1160576320 IX FLAGSrrtMDAR'A'Ft4t "@" ?rrtJPLStPOS0
       2311005657 3440635351 6015151515 1515151515 1515151515 7777700000 4472724771 4472724771 3t NO, SKIPrrrrrrrrrrrrrrbbX  DZZGYDZZGY
       4472724771 4472724771 4472724771 4472724771 4472724771 4472724771 4472724771 4472724771 DZZGYDZZGYDZZGYDZZGYDZZGYDZZGYDZZGYDZZGY
 1135: 0002700015 4664562025 1361200325 3414400000 0040606257 4345636340 6371554257 5451434041  cX rFTN05"Q0!5,'     PROCESS SYMBOLIC A
       4444624563 6340435756 6364415664 4036363615 1515151515 1152606362 1156576245 4611007145 DDRESS CONSTANT ...rrrrrrtJPSRtNOREFt YE
       6334404144 4462404357 5663644156 6434406345 6440565764 4041406245 4615151515 1155444162 S, ADDR CONSTANT, SET NOT A REFrrrrtMDAR
       1450116057 5431301100 4645644350 4060575451 6350404654 4147631515 1155444163 1446112120 'HtPOL98t FETCH POLISH FLAGSrrtMDAS'Ft10
       1100634564 4075404654 4147151515 1141625544 1450116057 5431301100 6341664540 4654414763 t SET @ FLAGrrrtARMD'HtPOL98t SAVE FLAGS
       1515151515 1155444162 1456116057 5431311100 6041624556 4012151515 1152604156 1160576321 rrrrrtMDAR'NtPOL99t PAREN ?rrrtJPANtPOS1
       2311005657 3440575334 4052655560 4064574063 6457624540 5743644154 4057604562 4156441515 3t NO, OK, JUMP TO STORE OCTAL OPERANDrr
       1515151515 1155444162 1163556471 4611007145 6334404645 6443504063 7155425754 4064716045 rrrrrtMDARtSMTYFt YES, FETCH SYMBOL TYPE
       1515151515 1155447057 1446112211 0041626241 7140121515 1152635463 1145626257 6211005657 rrrrrtMDXO'Ft2t ARRAY ?rrtJSLStERRORt NO
       3440464164 4154404562 6257621515 1111456221 2121110040 4016515454 4547415440 4144446245 , FATAL ERRORrrttER111t   (ILLEGAL ADDRE
       6363404357 5663644156 6417151515 1515151515 1152655560 1160576321 2211007145 6334405753 SS CONSTANT)rrrrrrrrtJUMPtPOS12t YES, OK
       3440526555 6040645740 6364576245 4041626241 7140605754 5163501515 1515151515 1515151515 , JUMP TO STORE ARRAY POLISHrrrrrrrrrrrr
       0040565764 4041564041 4444624563 6340435756 6364415664 4036363615 1515151515 6057632023   NOT AN ADDRESS CONSTANT ...rrrrrrPOS03
       0611554441 6214561160 5754313111 0060416245 5640121515 1152604156 1160576321 2011005657 :tMDAR'NtPOL99t PAREN ?rrtJPANtPOS10t NO
       3440526555 6015151515 1515151515 1515151515 0040606257 4345636345 4440604162 4556645045 , JUMPrrrrrrrrrrrrrr  PROCESSED PARENTHE
       6351724544 4063715542 5754403636 3615151515 1515151515 1155444162 1163556471 4611004645 SIZED SYMBOL ...rrrrrrrrrtMDARtSMTYFt FE
       6443504063 7155425754 4064716045 1515151515 1155444145 1454111100 4144444044 5163604164 TCH SYMBOL TYPErrrrrtMDAE'Ltt ADD DISPAT
       4350405156 6462654364 5157561515 1155445162 1136102215 1141625162 1446111100 4156444044 CH INTRUCTIONrrtMDIRt.+2rtARIR'Ftt AND D
       5163604164 4350405756 4063715542 5754406471 6045403636 3615151515 1515151515 1152655560 ISPATCH ON SYMBOL TYPE ...rrrrrrrrrtJUMP
       1160576320 2711006556 5356576756 4063715542 5754344063 4564406457 4046655643 6451575615 tPOS07t UNKNOWN SYMBOL, SET TO FUNCTIONr
       1152655560 1160576320 2511006641 6251414254 4534404562 6257621515 1152655560 1160576321 tJUMPtPOS05t VARIABLE, ERRORrrtJUMPtPOS1
       2011004162 6241713440 5753344052 6555604046 5762405156 4451624543 6440644563 6415151515 0t ARRAY, OK, JUMP FOR INDIRECT TESTrrrr
       1152655560 1160576320 3011004665 5643645157 5615151515 1152655560 1160576320 2611006365 tJUMPtPOS08t FUNCTIONrrrrtJUMPtPOS06t SU
       4262576564 5156453440 5265556040 4657624043 4154544043 5045435315 1152655560 1160576320 BROUTINE, JUMP FOR CALL CHECKrtJUMPtPOS0
       2411005155 4147453440 5265556040 4657624044 5163605441 7140435045 4353151515 1515151515 4t IMAGE, JUMP FOR DISPLAY CHECKrrrrrrrr
       6057632025 0611526063 6211456262 5762110046 4164415440 4562625762 1515151515 1111456221 POS05:tJPSRtERRORt FATAL ERRORrrrrrttER1
       2124110040 4016636542 6343625160 6445444066 4162514142 5445171515 1515151515 1515151515 14t   (SUBSCRIPTED VARIABLE)rrrrrrrrrrrr
       7777700000 5650541277 5650541277 5650541277 5650541277 5650541277 5650541277 5650541277 bbX  NHL?bNHL?bNHL?bNHL?bNHL?bNHL?bNHL?b
       5650541277 5650541277 5650541277                                                        NHL?bNHL?bNHL?b
 1480: 0003000015 4664562025 1361200432 3414400000 0040606257 4345636340 4665564364 5157564043  !  rFTN05"Q0&;,'     PROCESS FUNCTION C
       4154544036 3636151515 1515151515 6057632024 0611554441 6211544566 4554110051 5541474540 ALL ...rrrrrrrrPOS04:tMDARtLEVELt IMAGE 
       4341545434 4054576745 6364405445 6645544012 1515151515 1152605463 1160576322 2111005657 CALL, LOWEST LEVEL ?rrrrrtJPLStPOS21t NO
       3440635351 6040465762 4045626257 6215151515 1515151515 1155444162 1144516360 4611007145 , SKIP FOR ERRORrrrrrrrrrtMDARtDISPFt YE
       6334404451 6360544171 4063644164 4555455664 4012151515 1152604156 1160576320 3041110071 S, DISPLAY STATEMENT ?rrrtJPANtPOS08At Y
       4563344057 5334406353 5160151515 1515151515 1155444162 1456114341 5454461100 5657344043 ES, OK, SKIPrrrrrrrrtMDAR'NtCALLFt NO, C
       4154544063 6441644555 4556644012 1515151515 1152604156 1160576322 2111005657 3440526555 ALL STATEMENT ?rrrrrtJPANtPOS21t NO, JUM
       6040465762 4045626257 6215151515 1515151515 1152606362 1145626257 6211004554 6345344067 P FOR ERRORrrrrrrrrrtJPSRtERRORt ELSE, W
       4162565156 4740456262 5762151515 1111456221 2122110040 4016515541 4745406245 4614444041 ARNING ERRORrrrttER112t   (IMAGE REF'D A
       6340636542 6257656451 5645171515 1152655560 1160576320 3041110063 5351604064 5740606257 S SUBROUTINE)rrtJUMPtPOS08At SKIP TO PRO
       4345636340 4163404341 5454151515 1515151515 6057632026 0611554441 6211544566 4554110063 CESS AS CALLrrrrrrrrPOS06:tMDARtLEVELt S
       6542625765 6451564540 4341545434 4054576745 6364405445 6645544012 1515151515 1152605463 UBROUTINE CALL, LOWEST LEVEL ?rrrrrtJPLS
       1136102311 0056573440 6353516040 4657624045 6262576215 1515151515 1155444162 1143415454 t.+3t NO, SKIP FOR ERRORrrrrrrtMDARtCALL
       4611007145 6334406365 4262576564 5156454043 4154544041 5454576745 4440121515 1152604156 Ft YES, SUBROUTINE CALL ALLOWED ?rrtJPAN
       1160576320 3041110071 4563344057 5334406353 5160151515 1515151515 6057632221 0611526063 tPOS08At YES, OK, SKIPrrrrrrrrPOS21:tJPS
       6211456262 5762110045 5463453440 6741625651 5647404562 6257621515 1111456221 2125110040 RtERRORt ELSE, WARNING ERRORrrttER115t  
       4016636542 6237515541 4745406245 4614444041 6340466556 4364515756 1715151515 1152655560  (SUBR/IMAGE REF'D AS FUNCTION)rrrrtJUMP
       1160576320 3011005265 5560406457 4060625743 4563634041 6340466556 4364515756 1515151515 tPOS08t JUMP TO PROCESS AS FUNCTIONrrrrr
       1515151515 6057632027 0611554441 6214511450 1163656260 1100564567 4046655643 6451575634 rrrrrPOS07:tMDAR'I'HtSURPt NEW FUNCTION,
       4046456443 5040637155 4257544046 5441476315 1155444163 1446112320 2020201100 6345644063  FETCH SYMBOL FLAGSrtMDAS'Ft30000t SET S
       7155425754 4064716045 4033404665 5643645157 5615151515 1141625544 1451145011 6365626011 YMBOL TYPE = FUNCTIONrrrrtARMD'I'HtSURPt
       0063416645 4046544147 6315151515 1515151515 6057632030 0611554441 6211434154 5446110046  SAVE FLAGSrrrrrrrrrPOS08:tMDARtCALLFt F
       6556436451 5756344062 4546456245 5643454440 5156404140 4341545440 1215151515 1152604156 UNCTION, REFERENCED IN A CALL ?rrrrtJPAN
       1136102211 0071456334 4057533440 6741625651 5647404154 6245414471 4062456057 6264454415 t.+2t YES, OK, WARNING ALREADY REPORTEDr
       1152606362 1156576245 4611004554 6345344063 4564405657 6440414063 5156475445 4062454645 tJPSRtNOREFt ELSE, SET NOT A SINGLE REFE
       6245564345 1515151515 1515151515 6057632030 4106115544 4162116371 5542461100 4645644350 RENCErrrrrrrrrrPOS08A:tMDARtSYMBFt FETCH
       4060624546 5170404654 4147631515 1155444162 1441144611 2120110060 5751566445 6240606245  PREFIX FLAGSrrtMDAR'A'Ft10t POINTER PRE
       4651704012 1515151515 1152605463 1160576321 2111007145 6334404562 6257621515 1515151515 FIX ?rrrrrtJPLStPOS11t YES, ERRORrrrrrrr
       1155444162 1163656260 1100455463 4534405753 3440464564 4350406355 6441424060 6462151515 tMDARtSURPt ELSE, OK, FETCH SMTAB PTRrrr
       1152606362 1147446471 6011004745 6440444164 4140647160 4515151515 1155444162 1457145011 tJPSRtGDTYPt GET DATA TYPErrrrtMDAR'O'Ht
       6057543130 1100435755 4251564540 6751645040 6057545163 5040465441 4763151515 1155444163 POL98t COMBINE WITH POLISH FLAGSrrrtMDAS
       1446112022 2020201100 6345644057 6045624156 4440647160 4540334046 6556436451 5756151515 'Ft02000t SET OPERAND TYPE = FUNCTIONrrr
       1141625544 1450116057 5431301100 6341664540 6057545163 5040465441 4763151515 1515151515 tARMD'HtPOL98t SAVE POLISH FLAGSrrrrrrrr
       6057632031 0611554441 6211432111 0057604562 4164576240 5665554245 6240465762 4046655643 POS09:tMDARtC1t OPERATOR NUMBER FOR FUNC
       6451575640 6041624556 1515151515 1152655560 1160576321 3111005265 5560406457 4063644162 TION PARENrrrrrtJUMPtPOS19t JUMP TO STAR
       6440416247 4054516364 1515151515 1515151515 1515151515 7777700000 0244240563 0244240563 T ARG LISTrrrrrrrrrrrrrrrbbX  cD4*ScD4*S
       0244240563 0244240563 0244240563 0244240563 0244240563 0244240563 0244240563 0244240563 cD4*ScD4*ScD4*ScD4*ScD4*ScD4*ScD4*ScD4*S
 1455: 0003100015 4664562025 1361200425 3414400000 0040606257 4345636340 5156445162 4543644060  !+ rFTN05"Q0&5,'     PROCESS INDIRECT P
       6245465170 4036363615 1515151515 6057632120 0611554441 6214561163 7155424611 0046456443 REFIX ...rrrrrrPOS10:tMDAR'NtSYMBFt FETC
       5040606245 4651704046 5441476315 1155444162 1441144611 2120110060 5751566445 6240606245 H PREFIX FLAGSrtMDAR'A'Ft10t POINTER PRE
       4651704012 1515151515 1152605463 1160576321 2211005657 3440635351 6015151515 1515151515 FIX ?rrrrrtJPLStPOS12t NO, SKIPrrrrrrrrr
       1155444162 1451145311 6365626011 0071456334 4046456443 5040637155 4257541463 4046544147 tMDAR'I'KtSURPt YES, FETCH SYMBOL'S FLAG
       6315151515 1155444162 1441144611 2111006057 5156644562 4063715542 5754401215 1515151515 SrrrrtMDAR'A'Ft1t POINTER SYMBOL ?rrrrrr
       6057632121 0611526354 6311456262 5762110071 4563344045 6262576215 1111456221 2126110040 POS11:tJSLStERRORt YES, ERRORrttER116t  
       4016515454 4547415440 6057515664 4562171515 1515151515 1155444162 1450116057 5431301100  (ILLEGAL POINTER)rrrrrrrtMDAR'HtPOL98t 
       5657344057 5334404645 6443504060 5754516350 4046544147 6315151515 1155444163 1446112021 NO, OK, FETCH POLISH FLAGSrrrrtMDAS'Ft01
       2020201100 6345644074 4042516415 1141625544 1450116057 5431301100 6341664515 1515151515 000t SET # BITrtARMD'HtPOL98t SAVErrrrrr
       1515151515 0040634564 4044416441 4064716045 4041564440 5760456241 5644406471 6045404657 rrrrr  SET DATA TYPE AND OPERAND TYPE FO
       6240664162 5141425445 4057624041 6262417140 3636361515 1515151515 6057632122 0611554441 R VARIABLE OR ARRAY ...rrrrrrrPOS12:tMDA
       6211636562 6011004645 6443504063 7155425754 4064414254 4540605751 5664456215 1152606362 RtSURPt FETCH SYMBOL TABLE POINTERrtJPSR
       1147446471 6011004745 6440637155 4257541463 4044416441 4064716045 1515151515 1155444162 tGDTYPt GET SYMBOL'S DATA TYPErrrrrtMDAR
       1457145011 6057543130 1100435755 4251564540 6751645040 6057545163 5040465441 4763151515 'O'HtPOL98t COMBINE WITH POLISH FLAGSrrr
       1141625544 1450116057 5431301100 6341664540 6057545163 5040465441 4763151515 1515151515 tARMD'HtPOL98t SAVE POLISH FLAGSrrrrrrrr
       6057632123 0611554441 6211636562 6011004645 6443504063 7155425754 4064414254 4540605751 POS13:tMDARtSURPt FETCH SYMBOL TABLE POI
       5664456215 1152606362 1143532267 4411004350 4543534051 4640646757 3567576244 4045706445 NTERrtJPSRtCK2WDt CHECK IF TWO-WORD EXTE
       6256415440 6371554257 5415151515 1152655560 1160576321 2611006353 5160405146 4056576415 RNAL SYMBOLrrrrtJUMPtPOS16t SKIP IF NOTr
       1515151515 1155444162 1450116057 5431301100 4554634534 4046456443 5040605754 5163504046 rrrrrtMDAR'HtPOL98t ELSE, FETCH POLISH F
       5441476315 1155444163 1446112020 2220201100 6345644064 6757356757 6244406245 4645624556 LAGSrtMDAS'Ft00200t SET TWO-WORD REFEREN
       4345404251 6415151515 1141625544 1450116057 5431301100 6341664540 4654414763 1515151515 CE BITrrrrtARMD'HtPOL98t SAVE FLAGSrrrrr
       1515151515 6057632126 0611554441 6211605754 3131110060 4162455640 1215151515 1152604156 rrrrrPOS16:tMDARtPOL99t PAREN ?rrrrtJPAN
       1160576321 2711007145 6334406353 5160151515 1515151515 1141625544 1457115760 5644461100 tPOS17t YES, SKIPrrrrrrrrtARMD'OtOPNDFt 
       4554634534 4063456440 5760456241 5644404654 4147151515 1155444162 1160575431 3011004645 ELSE, SET OPERAND FLAGrrrtMDARtPOL98t FE
       6443504060 5754516350 4045566462 7115151515 1152606362 1160656350 6311006065 6350405164 TCH POLISH ENTRYrrrrtJPSRtPUSHSt PUSH IT
       4064574064 5045406057 5451635040 6364414353 1515151515 1152655560 1160575462 6411004156  TO THE POLISH STACKrrrrrtJUMPtPOLRTt AN
       4440624564 6562564046 5762405645 7064404554 4555455664 1515151515 1515151515 6057632127 D RETURN FOR NEXT ELEMENTrrrrrrrrrrPOS17
       0611554441 6214511453 1456116365 6260110063 6542636251 6064454440 4162624171 3415151515 :tMDAR'I'K'NtSURPt SUBSRIPTED ARRAY,rrrr
       1155444162 1441144611 2111004040 6057515664 4562401215 1152605463 1136102411 0056573440 tMDAR'A'Ft1t   POINTER ?rtJPLSt.+4t NO, 
       6353516015 1515151515 1155444162 1450116057 5431301100 7145633440 4645644350 4060575451 SKIPrrrrrrtMDAR'HtPOL98t YES, FETCH POLI
       6350404654 4147631515 1155444163 1446112124 2020201100 6345644060 5751566445 6240416262 SH FLAGSrrtMDAS'Ft14000t SET POINTER ARR
       4171406371 5542575440 6471604515 1152655560 1160576321 3035211100 6353516015 1515151515 AY SYMBOL TYPErtJUMPtPOS18-1t SKIPrrrrrr
       1155444162 1451145314 5611636562 6011004570 6445625641 5440416262 4171401215 1155444162 tMDAR'I'K'NtSURPt EXTERNAL ARRAY ?rtMDAR
       1441144611 2615151515 1152605463 1160576321 3011005657 3440635351 6015151515 1515151515 'A'Ft6rrrrtJPLStPOS18t NO, SKIPrrrrrrrrr
       7777700000 7463517427 7463517427 7463517427 7463517427 7463517427 7463517427 7463517427 bbX  #SI#7#SI#7#SI#7#SI#7#SI#7#SI#7#SI#7
       7463517427 7463517427 7463517427                                                        #SI#7#SI#7#SI#7
 1315: 0003200015 4664562025 1361200371 3414400000 1155444162 1450116057 5431301100 7145633440  !0 rFTN05"Q0!Y,'   tMDAR'HtPOL98t YES, 
       4645644350 4060575451 6350404654 4147631515 1155444163 1446112122 2020201100 6345644045 FETCH POLISH FLAGSrrtMDAS'Ft12000t SET E
       7064456256 4154404162 6241714064 7160451515 1515151515 1141625544 1450116057 5431301100 XTERNAL ARRAY TYPErrrrrrrtARMD'HtPOL98t 
       6341664540 6057545163 5040465441 4763151515 1515151515 6057632130 0611554441 6211432211 SAVE POLISH FLAGSrrrrrrrrPOS18:tMDARtC2t
       0046456443 5040576056 6555404657 6240636542 6343625160 6440545163 6415151515 1515151515  FETCH OPNUM FOR SUBSCRIPT LISTrrrrrrrrr
       1515151515 0040606257 4345636340 6364416264 4057464041 6247655545 5664405762 4063654263 rrrrr  PROCESS START OF ARGUMENT OR SUBS
       4362516064 4054516364 4036363615 1515151515 6057632131 0611416255 4411605754 3131110063 CRIPT LIST ...rrrrrrPOS19:tARMDtPOL99t S
       4166454057 6045624164 5762404357 4445151515 1155444162 1160575431 3011004645 6443504060 AVE OPERATOR CODErrrtMDARtPOL98t FETCH P
       5754516350 4045566462 7115151515 1152606362 1160656350 6311006065 6350405164 4064574064 OLISH ENTRYrrrrtJPSRtPUSHSt PUSH IT TO T
       5045406057 5451635040 6364414353 1515151515 1155444162 1450116365 4243641100 4645644350 HE POLISH STACKrrrrrtMDAR'HtSUBCTt FETCH
       4043656262 4556644063 6542634362 5160644043 5765566415 1155444162 1457116046 6245601100  CURRENT SUBSCRIPT COUNTrtMDAR'OtPFREPt 
       4357554251 5645404365 6262455664 4060575451 6350406064 6215151515 1141625544 1143656257 COMBINE CURRENT POLISH PTRrrrrtARMDtCURO
       6011006341 6645405164 4041634043 6562624556 6440576045 6241645762 4045566462 7115151515 Pt SAVE IT AS CURRENT OPERATOR ENTRYrrrr
       1152606362 1160656350 5711004156 4440606563 5040516440 6457406450 4540576040 6364414353 tJPSRtPUSHOt AND PUSH IT TO THE OP STACK
       1515151515 1155444162 1160575431 3111004645 6443504057 6045624164 5762404357 4445401660 rrrrrtMDARtPOL99t FETCH OPERATOR CODE (P
       6245434033 4020171515 1141625544 1143656257 6011006345 6440416340 4365626245 5664151515 REC = 0)rrtARMDtCUROPt SET AS CURRENTrrr
       1152606362 1160656350 5711004156 4440606563 5040645740 5760406364 4143531515 1141624162 tJPSRtPUSHOt AND PUSH TO OP STACKrrtARAR
       1470115445 6645541100 5156444570 4043656262 4556644056 4563645156 4740544566 4554151515 'XtLEVELt INDEX CURRENT NESTING LEVELrrr
       1155444162 1143211100 6345644063 6542634362 5160644043 5765566440 3340211515 1141625544 tMDARtC1t SET SUBSCRIPT COUNT = 1rrtARMD
       1163654243 6415151515 1152655560 1160575462 6411004156 4440624564 6562564046 5762405645 tSUBCTrrrrtJUMPtPOLRTt AND RETURN FOR NE
       7064404554 4555455664 1515151515 1515151515 1515151515 0040455644 4060575451 6350406062 XT ELEMENTrrrrrrrrrrrrrrr  END POLISH PR
       5743456363 5156474036 3636151515 1515151515 6057545644 0611554441 6214411141 5541635311 OCESSING ...rrrrrrrrPOLND:tMDAR'AtAMASKt
       0055416353 4062456465 6256404357 4445151515 1141625544 1160575431 3111006341 6645151515  MASK RETURN CODErrrtARMDtPOL99t SAVErrr
       1155444162 1160466245 6011004645 6443504060 5754516350 4060575156 6445621515 1155447057 tMDARtPFREPt FETCH POLISH POINTERrrtMDXO
       1160575463 6411006341 5545404163 4051565164 5141544060 5751566445 6240121515 1152605463 tPOLSTt SAME AS INITIAL POINTER ?rrtJPLS
       1136102311 0071456334 4057533440 6353516015 1515151515 1152606362 1145626257 6211004554 t.+3t YES, OK, SKIPrrrrrrtJPSRtERRORt EL
       6345344046 4164415440 4562625762 1515151515 1111456221 2127110040 4016565740 4570606245 SE, FATAL ERRORrrrrrttER117t   (NO EXPRE
       6363515756 4063434156 5645441715 1515151515 1155444162 1143422011 0046456443 5040455644 SSION SCANNED)rrrrrrtMDARtCB0t FETCH END
       4057464063 6462515647 4051564451 4341645762 1515151515 1152606362 1160656350 6311006065  OF STRING INDICATORrrrrrtJPSRtPUSHSt PU
       6350406457 4060575451 6350151515 1155444162 1160575431 3111004645 6443504062 4564656256 SH TO POLISHrrrtMDARtPOL99t FETCH RETURN
       4043574445 4064574041 6215151515 1155445162 1160575451 6350110041 5644406245 6465625640  CODE TO ARrrrrtMDIRtPOLISHt AND RETURN 
       6457404341 5454456215 1515151515 1515151515 7777700000 7475024137 7475024137 7475024137 TO CALLERrrrrrrrrrrrbbX  #@cA/#@cA/#@cA/
       7475024137 7475024137 7475024137 7475024137 7475024137 7475024137 7475024137            #@cA/#@cA/#@cA/#@cA/#@cA/#@cA/#@cA/
 1125: 0003300015 4664562025 1361200323 3414400000 0040555163 6351564740 5760456241 6457623757  !8 rFTN05"Q0!3,'     MISSING OPERATOR/O
       6045624156 4440456262 5762634036 3636151515 1515151515 5551635762 0611526063 6211456262 PERAND ERRORS ...rrrrrrrrMISOR:tJPSRtERR
       5762110055 5163635156 4740576045 6241645762 1515151515 1111456221 2131151515 1515151515 ORt MISSING OPERATORrrrrrttER119rrrrrrrr
       5551635744 0611526063 6211456262 5762110055 5163635156 4740576045 6241564415 1111456221 MISOD:tJPSRtERRORt MISSING OPERANDrttER1
       2220151515 1515151515 1515151515 0040634564 4045706062 4563635157 5640565764 4041406351 20rrrrrrrrrrrrr  SET EXPRESSION NOT A SI
       5560544540 6245464562 4556434515 1515151515 5657624546 0611526555 6011361100 4556646271 MPLE REFERENCErrrrrrNOREF:tJUMPt.t ENTRY
       1515151515 1155444162 1154456645 5411005457 6745636440 5445664554 4012151515 1154635162 rrrrrtMDARtLEVELt LOWEST LEVEL ?rrrtLSIR
       1156576245 4611005657 3440575334 4062456465 6256151515 1515151515 1141625544 1457116057 tNOREFt NO, OK, RETURNrrrrrrrrtARMD'OtPO
       5462461100 4554634534 4063456440 5657644041 4063515647 5445406245 4640465441 4715151515 LRFt ELSE, SET NOT A SINGLE REF FLAGrrrr
       1155444162 1456116362 4546471100 4745564562 4154404570 6062456363 5157564060 4562555164 tMDAR'NtSREFGt GENERAL EXPRESSION PERMIT
       6445444012 1515151515 1141565162 1156576245 4611007145 6334405753 3440624564 6562561515 TED ?rrrrrtANIRtNOREFt YES, OK, RETURNrr
       1515151515 1152606362 1145626257 6211004554 6345344046 4164415440 4562625762 1515151515 rrrrrtJPSRtERRORt ELSE, FATAL ERRORrrrrr
       1111456221 2221110040 4016635156 4754454062 4546456245 5643454062 4561655162 4544171515 ttER121t   (SINGLE REFERENCE REQUIRED)rr
       1515151515 1515151515 0040606563 5040436562 6245566440 5760456241 6457624064 5740576045 rrrrrrrrrr  PUSH CURRENT OPERATOR TO OPE
       6241645762 4063644143 5315151515 1515151515 6065635057 0611526555 6011361100 4556646271 RATOR STACKrrrrrrrrrPUSHO:tJUMPt.t ENTRY
       1515151515 1155444162 1157606462 1100464564 4350406364 4143534060 5751566445 6215151515 rrrrrtMDARtOPTRt FETCH STACK POINTERrrrr
       1155447057 1446115763 6441531057 6364535411 0041546245 4144714041 6440545155 5164401215 tMDXO'FtOSTAK+OSTKLt ALREADY AT LIMIT ?r
       1152605463 1136102311 0056573440 5753344063 5351601515 1152606362 1145626257 6211004554 tJPLSt.+3t NO, OK, SKIPrrtJPSRtERRORt EL
       6345344046 4164415440 4562625762 1515151515 1111456221 2222110040 4016576045 6241645762 SE, FATAL ERRORrrrrrttER122t   (OPERATOR
       4063644143 5340576645 6246545767 1715151515 1515151515 1155444162 1143656257 6011004645  STACK OVERFLOW)rrrrrrrrrtMDARtCUROPt FE
       6443504043 6562624556 6440576045 6241645762 4067576244 1515151515 1141625544 1451147011 TCH CURRENT OPERATOR WORDrrrrrtARMD'I'Xt
       5760646211 0060656350 4064574063 6441435315 1155445162 1160656350 5711006245 6465625615 OPTRt PUSH TO STACKrtMDIRtPUSHOt RETURNr
       1515151515 1515151515 0040605760 4054416364 4045566462 7140574646 4057604562 4164576240 rrrrrrrrrr  POP LAST ENTRY OFF OPERATOR 
       6364414353 1515151515 1515151515 6057605706 1152655560 1136110045 5664627115 1155444162 STACKrrrrrrrrrrPOPO:tJUMPt.t ENTRYrtMDAR
       1157606462 1100464564 4350406364 4143534060 5751566445 6215151515 1155444163 1446145611 tOPTRt FETCH STACK POINTERrrrrtMDAS'F'Nt
       2111004445 4362455545 5664404271 4021151515 1141625544 1157606462 1100624563 6457624515 1t DECREMENT BY 1rrrtARMDtOPTRt RESTOREr
       1155445162 1160576057 1100624564 6562561515 1515151515 1515151515 7777700000 3712643563 tMDIRtPOPOt RETURNrrrrrrrrrrrrbbX  /?T-S
       3712643563 3712643563 3712643563 3712643563 3712643563 3712643563 3712643563 3712643563 /?T-S/?T-S/?T-S/?T-S/?T-S/?T-S/?T-S/?T-S
       3712643563                                                                              /?T-S
 1370: 0003400015 4664562025 1361200404 3414400000 0040606563 5040455664 6271406457 4060575451  !  rFTN05"Q0&&,'     PUSH ENTRY TO POLI
       6350406364 4143531515 1515151515 6065635063 0611526555 6011361100 4556646271 1515151515 SH STACKrrrrrrrPUSHS:tJUMPt.t ENTRYrrrrr
       1141625544 1160656350 3111006341 6645406757 6244406457 4060656350 1515151515 1155444162 tARMDtPUSH9t SAVE WORD TO PUSHrrrrrtMDAR
       1160466245 6011004645 6443504043 6562624556 6440605754 5163504060 5751566445 6215151515 tPFREPt FETCH CURRENT POLISH POINTERrrrr
       1155444145 1456114662 4545601100 4662454540 4357624540 4665545440 1215151515 1152634156 tMDAE'NtFREEPt FREE CORE FULL ?rrrrtJSAN
       1145626257 6211007145 6334404641 6441544045 6262576215 1111456221 2130110040 4016605754 tERRORt YES, FATAL ERRORrttER118t   (POL
       5163504063 6441435340 5766456246 5457671715 1515151515 1155444162 1160466245 6011004554 ISH STACK OVERFLOW)rrrrrrtMDARtPFREPt EL
       6345344057 5334404645 6443504060 5754516350 4060646215 1155444163 1446145611 2111004445 SE, OK, FETCH POLISH PTRrtMDAS'F'Nt1t DE
       4362455545 5664406457 4056457064 4046624545 4067576244 1515151515 1141625544 1160466245 CREMENT TO NEXT FREE WORDrrrrrtARMDtPFRE
       6011006341 6645405645 6740605751 5664456215 1155444162 1160656350 3111004645 6443504045 Pt SAVE NEW POINTERrtMDARtPUSH9t FETCH E
       5664627140 6757624415 1152604156 1160656350 2110211100 6353516040 5146405760 4562416457 NTRY WORDrtJPANtPUSH1+1t SKIP IF OPERATO
       6215151515 1515151515 0040435045 4353404657 6240445765 4254454060 6245435163 5157564057 Rrrrrrrrrr  CHECK FOR DOUBLE PRECISION O
       6240435755 6054457040 5760456241 5644401656 5764407145 6440515560 5445554556 6445441740 R COMPLEX OPERAND (NOT YET IMPLEMENTED) 
       3636361515 1515151515 1141624162 1450144611 1100455463 4534404745 6440465441 4763151515 ...rrrrrrrtARAR'H'Ftt ELSE, GET FLAGSrrr
       1155444162 1441144611 2120110013 7513404654 4147406345 6440121515 1152605463 1160656350 tMDAR'A'Ft10t "@" FLAG SET ?rrtJPLStPUSH
       2111007145 6334405753 3440635351 6015151515 1515151515 1155444162 1450116065 6350311100 1t YES, OK, SKIPrrrrrrrrrtMDAR'HtPUSH9t 
       4554634534 4046456443 5040444164 4140647160 4515151515 1155444162 1441114327 1100554163 ELSE, FETCH DATA TYPErrrrtMDAR'AtC7t MAS
       5315151515 1155444163 1446145611 2411004457 6542544540 6062454351 6351575640 5762404357 KrrrrtMDAS'F'Nt4t DOUBLE PRECISION OR CO
       5560544570 4012151515 1152604156 1160656350 2111005657 3440575334 4063535160 1515151515 MPLEX ?rrrtJPANtPUSH1t NO, OK, SKIPrrrrr
       1155447057 1446112111 0044576542 5445406062 4543516351 5756401215 1152605463 1136102411 tMDXO'Ft1t DOUBLE PRECISION ?rtJPLSt.+4t
       0056573440 5565636440 4245404357 5560544570 3440635351 6015151515 1515151515 1152606362  NO, MUST BE COMPLEX, SKIPrrrrrrrrrtJPSR
       1145626257 6211004554 6345344067 4162565156 4740456262 5762151515 1111456221 2027110040 tERRORt ELSE, WARNING ERRORrrrttER107t  
       4016445765 4254454060 6245434056 5764407145 6440515560 5445554556 6445441715 1152655560  (DOUBLE PREC NOT YET IMPLEMENTED)rtJUMP
       1136102311 0063535160 4064574063 4564406245 4154151515 1515151515 1152606362 1145626257 t.+3t SKIP TO SET REALrrrrrrrrtJPSRtERRO
       6211006741 6256515647 4045626257 6215151515 1111456221 2327110040 4016435755 6054457040 Rt WARNING ERRORrrrrttER137t   (COMPLEX 
       5657644071 4564405155 6054455545 5664454417 1515151515 1515151515 1155444162 1450116065 NOT YET IMPLEMENTED)rrrrrrrrrrtMDAR'HtPU
       6350311100 4645644350 4057604562 4156444045 5664627115 1155447057 1441114327 1100554163 SH9t FETCH OPERAND ENTRYrtMDXO'AtC7t MAS
       5340576564 4057544440 4441644140 6471604515 1155444163 1446112211 0063456440 4441644140 K OUT OLD DATA TYPErtMDAS'Ft2t SET DATA 
       6471604540 3340624541 5415151515 1141625544 1450116065 6350311100 6345644056 4567405760 TYPE = REALrrrrtARMD'HtPUSH9t SET NEW OP
       4562415644 1515151515 1515151515 6065635021 0611554441 6211606563 5031110046 4564435040 ERANDrrrrrrrrrrPUSH1:tMDARtPUSH9t FETCH 
       4556646271 4067576244 1515151515 1141625544 1451116046 6245601100 6065635040 6457406057 ENTRY WORDrrrrrtARMD'ItPFREPt PUSH TO PO
       5451635040 6364414353 1515151515 1155445162 1160656350 6311006245 6465625615 1515151515 LISH STACKrrrrrtMDIRtPUSHSt RETURNrrrrrr
       6065635031 0611112011 0064455560 4063645762 4147451515 1515151515 1515151515 7777700000 PUSH9:tt0t TEMP STORAGErrrrrrrrrrrrbbX  
       3160662267 3160662267 3160662267 3160662267 3160662267 3160662267 3160662267 3160662267 9PV2W9PV2W9PV2W9PV2W9PV2W9PV2W9PV2W9PV2W
       3160662267 3160662267                                                                   9PV2W9PV2W
 1465: 0003500015 4664562025 1361200427 3414400000 0040655663 6441435340 4154544057 6045624164  !H rFTN05"Q0&7,'     UNSTACK ALL OPERAT
       5762634067 5164504060 6245434544 4556434540 3647453640 6457406641 5465454051 5640416215 ORS WITH PRECEDENCE .GE. TO VALUE IN ARr
       1515151515 6563644153 0611526555 6011361100 4556646271 1515151515 1155444162 1441114155 rrrrrUSTAK:tJUMPt.t ENTRYrrrrrtMDAR'AtAM
       4163531100 5541635340 6062454345 4445564345 4066415465 4515151515 1141625544 1165636453 ASKt MASK PRECEDENCE VALUErrrrtARMDtUSTK
       3111006341 6645151515 1152655560 1165636453 2411005265 5560405156 6457405457 5760151515 9t SAVErrrtJUMPtUSTK4t JUMP INTO LOOPrrr
       1515151515 6563645321 0611554441 6214511157 6064621100 4645644350 4064576040 5760456241 rrrrrUSTK1:tMDAR'ItOPTRt FETCH TOP OPERA
       6457621515 1155447057 1446112711 0065564162 7140605465 6340121515 1152605463 1136102215 TORrrtMDXO'Ft7t UNARY PLUS ?rrtJPLSt.+2r
       1152655560 1165636453 2311007145 6334405147 5657624515 1515151515 1155447057 1446112714 tJUMPtUSTK3t YES, IGNORErrrrrrtMDXO'Ft7'
       2126110056 5734406556 4162714055 5156656340 1215151515 1154637057 1143232311 0057624036 16t NO, UNARY MINUS ?rrrrtLSXOtC33t OR .
       5657643640 1215151515 1152605463 1165636453 2211005657 3440635351 6015151515 1515151515 NOT. ?rrrrtJPLStUSTK2t NO, SKIPrrrrrrrrr
       1155444162 1451116046 6245601100 7145633440 5441636440 6057545163 5040455664 6271404156 tMDAR'ItPFREPt YES, LAST POLISH ENTRY AN
       4057604562 4156444012 1515151515 1152604156 1165636453 2211005657 3440635351 6015151515  OPERAND ?rrrrrtJPANtUSTK2t NO, SKIPrrrr
       1515151515 1141624162 1450144611 1100415644 4056576440 4154624541 4471405645 4741645166 rrrrrtARAR'H'Ftt AND NOT ALREADY NEGATIV
       4540121515 1155444162 1441144611 2126201515 1152605463 1165636453 2211005657 3440635351 E ?rrtMDAR'A'Ft160rrtJPLStUSTK2t NO, SKI
       6015151515 1515151515 1155444162 1451116046 6245601100 7145633440 4645644350 4054416364 PrrrrrrrrrtMDAR'ItPFREPt YES, FETCH LAST
       4060575451 6350404654 4147631515 1152605463 1136102511 0072456257 3566415465 4544404357  POLISH FLAGSrrtJPLSt.+5t ZERO-VALUED CO
       5663644156 6440121515 1515151515 1141624162 1450144611 1100714563 3440474564 4044416441 NSTANT ?rrrrrrrtARAR'H'Ftt YES, GET DATA
       4064716045 1515151515 1155444162 1441144611 2711005743 6441544012 1515151515 1154637057  TYPErrrrrtMDAR'A'Ft7t OCTAL ?rrrrrtLSXO
       1143241100 5762405457 4751434154 4012151515 1152605463 1165636453 2311005657 3440514756 tC4t OR LOGICAL ?rrrtJPLStUSTK3t NO, IGN
       5762454064 5045405551 5665631515 1515151515 1155444162 1451145011 6046624560 1100464564 ORE THE MINUSrrrrrrrtMDAR'I'HtPFREPt FET
       4350406057 5451635040 4654414763 1515151515 1155444163 1446112620 1100634564 4056454741 CH POLISH FLAGSrrrrrtMDAS'Ft60t SET NEGA
       6451664534 4065565657 6255415451 7245441515 1141625544 1451145011 6046624560 1100624563 TIVE, UNNORMALIZEDrrtARMD'I'HtPFREPt RES
       6457624540 4654414763 1515151515 1155444162 1441144611 2326202020 1100554163 5340576045 TORE FLAGSrrrrrtMDAR'A'Ft36000t MASK OPE
       6241564440 6471604515 1155447057 1446112026 2020201100 4357566364 4156644012 1515151515 RAND TYPErtMDXO'Ft06000t CONSTANT ?rrrrr
       1152605463 1136102211 0056573440 6353516015 1152655560 1165636453 2311007145 6334404341 tJPLSt.+2t NO, SKIPrtJUMPtUSTK3t YES, CA
       5614644042 4540424144 4072456257 1515151515 1515151515 1155444162 1451145011 6046624560 N'T BE BAD ZEROrrrrrrrrrrtMDAR'I'HtPFREP
       1100464564 4350406057 5451635040 4654414763 4041474151 5615151515 1155444163 1446112120 t FETCH POLISH FLAGS AGAINrrrrtMDAS'Ft10
       2011006345 6440424144 4072456257 1515151515 1141625544 1451145011 6046624560 1100624563 0t SET BAD ZEROrrrrrtARMD'I'HtPFREPt RES
       6457624515 1152655560 1165636453 2311005147 5657624540 6556416271 4055515665 6340576240 TORErtJUMPtUSTK3t IGNORE UNARY MINUS OR 
       3656576436 1515151515 1515151515 6563645322 0611554441 6214511450 1157606462 1100464564 .NOT.rrrrrrrrrrUSTK2:tMDAR'I'HtOPTRt FET
       4350406457 6040576045 6241645762 1515151515 1155444162 1441145011 4155416353 1100554163 CH TOP OPERATORrrrrrtMDAR'A'HtAMASKt MAS
       5340576045 6241645762 4056573615 1155444162 1457114342 2011006345 6440576045 6241645762 K OPERATOR NO.rtMDAR'OtCB0t SET OPERATOR
       4042516415 1152606362 1160656350 6311006350 6556644051 6440645740 6450454060 5754516350  BITrtJPSRtPUSHSt SHUNT IT TO THE POLISH
       4063644143 5315151515 1515151515 1155444162 1451115760 6462110067 4163405164 4041564013  STACKrrrrrrrrrtMDAR'ItOPTRt WAS IT AN "
       3313401215 1155447057 1446112326 1515151515 1152605463 1165636453 2311005657 3440635351 =" ?rtMDXO'Ft36rrrrrtJPLStUSTK3t NO, SKI
       6015151515 1515151515 7777700000 2225277635 2225277635 2225277635 2225277635 2225277635 PrrrrrrrrrbbX  257+-257+-257+-257+-257+-
       2225277635 2225277635 2225277635 2225277635 2225277635                                  257+-257+-257+-257+-257+-
 1485: 0003600015 4664562025 1361200433 3414400000 1152606362 1160576057 1100714563 3440605760  !P rFTN05"Q0&=,'   tJPSRtPOPOt YES, POP
       4051644057 4646406450 4540636441 4353151515 1155444162 1451115760 6462110046 4564435040  IT OFF THE STACKrrrtMDAR'ItOPTRt FETCH 
       6462414345 4063715542 5754406057 5156644562 3440514640 4156711515 1155444162 1457145111 TRACE SYMBOL POINTER, IF ANYrrtMDAR'O'It
       6046624560 1100435755 4251564540 5164406751 6450406057 5451635040 5760456241 6457621515 PFREPt COMBINE IT WITH POLISH OPERATORrr
       1141625544 1451116046 6245601100 4156444063 4564404657 6240646241 4345404341 5454404271 tARMD'ItPFREPt AND SET FOR TRACE CALL BY
       4045664154 1515151515 1515151515 6563645323 0611526063 6211605760 5711006057 6040576045  EVALrrrrrrrrrrUSTK3:tJPSRtPOPOt POP OPE
       6241645762 4057464640 5760406364 4143531515 1155444162 1165636453 3111004645 6443504060 RATOR OFF OP STACKrrtMDARtUSTK9t FETCH P
       6245434544 4556434540 5445664554 1515151515 1515151515 6563645324 0611554441 6314501451 RECEDENCE LEVELrrrrrrrrrrUSTK4:tMDAS'H'I
       1456115760 6462110056 4570644057 6045624164 5762405041 6340545767 4562406062 4543454445 'NtOPTRt NEXT OPERATOR HAS LOWER PRECEDE
       5643454012 1515151515 1152604156 1165636453 2111005657 3440545757 6040645740 6556636441 NCE ?rrrrrtJPANtUSTK1t NO, LOOP TO UNSTA
       4353405164 1515151515 1515151515 1155445162 1165636441 5311007145 6334406245 6465625615 CK ITrrrrrrrrrrtMDIRtUSTAKt YES, RETURNr
       1515151515 6563645331 0611112011 0064455560 4063645762 4147451515 1515151515 1515151515 rrrrrUSTK9:tt0t TEMP STORAGErrrrrrrrrrrr
       0040435045 4353404657 6240664154 5144406365 4263436251 6064344051 4640515664 4547456240   CHECK FOR VALID SUBSCRIPT, IF INTEGER 
       4357566364 4156641515 1515151515 6365424353 0611526555 6011361100 4556646271 1515151515 CONSTANTrrrrrrrSUBCK:tJUMPt.t ENTRYrrrrr
       1155444162 1451145314 5611604662 4560110054 4163644060 5754516350 4057604562 4156444041 tMDAR'I'K'NtPFREPt LAST POLISH OPERAND A
       4043575663 6441566440 1215151515 1141565162 1163654243 5311005657 3440624564 6562563440  CONSTANT ?rrrrtANIRtSUBCKt NO, RETURN, 
       4341561464 4043504543 5315151515 1515151515 1155444162 1451145011 6046624560 1100714563 CAN'T CHECKrrrrrrrrrtMDAR'I'HtPFREPt YES
       3440474564 4051646340 4441644140 6471604515 1155444162 1441144611 2711005156 6445474562 , GET ITS DATA TYPErtMDAR'A'Ft7t INTEGER
       4057624057 4364415440 1215151515 1154637057 1143211515 1154635162 1163654243 5311005657  OR OCTAL ?rrrrtLSXOtC1rrtLSIRtSUBCKt NO
       3440624564 6562561515 1515151515 1155444162 1451145311 6046624560 1100212435 4251644043 , RETURNrrrrrrrtMDAR'I'KtPFREPt 14-BIT C
       5756636441 5664401215 1155444162 1441144611 2326151515 1152605463 1163654243 2111007145 ONSTANT ?rtMDAR'A'Ft36rrrtJPLStSUBC1t YE
       6334406353 5160151515 1515151515 1155444162 1451116046 6245601100 4554634534 4047456440 S, SKIPrrrrrrrrtMDAR'ItPFREPt ELSE, GET 
       4357566364 4156644064 4142544540 6057515664 4562151515 1155444162 1441144611 2727272727 CONSTANT TABLE POINTERrrrtMDAR'A'Ft77777
       1100554163 5315151515 1141625544 1164552111 0063416645 1515151515 1155444162 1451147011 t MASKrrrrtARMDtTM1t SAVErrrrrtMDAR'I'Xt
       6455211100 4645644350 4043575663 6441566440 6641546545 1515151515 1152655560 1163654243 TM1t FETCH CONSTANT VALUErrrrrtJUMPtSUBC
       2211005265 5560406457 4043504543 5315151515 1515151515 6365424321 0611554441 6214511450 2t JUMP TO CHECKrrrrrrrrrSUBC1:tMDAR'I'H
       1160466245 6011004745 6440212435 4251644043 5756636441 5664151515 1141626263 1121253611 tPFREPt GET 14-BIT CONSTANTrrrtARRSt15.t
       0063514756 3545706445 5644151515 1156575760 1515151515 1515151515 6365424322 0611416255  SIGN-EXTENDrrrtNOOPrrrrrrrrrrSUBC2:tARM
       4411645521 1100634166 4540636542 6343625160 6440664154 6545151515 1155444162 1450145614 DtTM1t SAVE SUBSCRIPT VALUErrrtMDAR'H'N'
       5111604662 4560110056 4547416451 6645404357 5663644156 6440121515 1155444162 1441144611 ItPFREPt NEGATIVE CONSTANT ?rrtMDAR'A'Ft
       2220151515 1152605463 1136102311 0056573440 6353516015 1515151515 1155444162 1164552111 20rrrtJPLSt.+3t NO, SKIPrrrrrrtMDARtTM1t
       0071456334 4056454741 6445406450 4540634166 4544404357 5663644156 6440664154 6545151515  YES, NEGATE THE SAVED CONSTANT VALUErrr
       1141625544 1456116455 2115151515 1515151515 1155444162 1164552111 0046456443 5040636542 tARMD'NtTM1rrrrrrrrrtMDARtTM1t FETCH SUB
       6343625160 6415151515 1141564162 1456116455 2111004745 6440414263 5754656445 4066415465 SCRIPTrrrrtANAR'NtTM1t GET ABSOLUTE VALU
       4515151515 1141624162 1450144611 1100364764 3640232253 4012151515 1152605463 1163654243 ErrrrtARAR'H'Ftt .GT. 32K ?rrrtJPLStSUBC
       2311007145 6334405265 5560404657 6240456262 5762151515 1515151515 7777700000 7527440132 3t YES, JUMP FOR ERRORrrrrrrrrbbX  @7D%;
       7527440132 7527440132 7527440132 7527440132 7527440132 7527440132 7527440132 7527440132 @7D%;@7D%;@7D%;@7D%;@7D%;@7D%;@7D%;@7D%;
       7527440132                                                                              @7D%;
 1130: 0003700015 4664562025 1361200324 3414400000 1155444162 1157606462 1100714563 3440474564  !X rFTN05"Q0!4,'   tMDARtOPTRt YES, GET
       4057604063 6441435340 6057515664 4562151515 1155444163 1446145611 2111004445 4362455545  OP STACK POINTERrrrtMDAS'F'Nt1t DECREME
       5664406457 4022564440 6757624415 1141625544 1164552211 0063416645 4060575156 6445621515 NT TO 2ND WORDrtARMDtTM2t SAVE POINTERrr
       1155444162 1451116455 2211004645 6443504060 5751566445 6240645740 4162624171 4063715542 tMDAR'ItTM2t FETCH POINTER TO ARRAY SYMB
       5754406057 5451635015 1155444162 1441144611 2727272727 1100554163 5315151515 1141625544 OL POLISHrtMDAR'A'Ft77777t MASKrrrrtARMD
       1164552211 0063416645 1515151515 1155444162 1451116455 2211004745 6440414444 6245636340 tTM2t SAVErrrrrtMDAR'ItTM2t GET ADDRESS 
       5746406355 6441424045 5664627115 1155444162 1441144611 2727272727 1100554163 5315151515 OF SMTAB ENTRYrtMDAR'A'Ft77777t MASKrrrr
       1155444163 1446145611 2111004445 4362455545 5664406457 4066415465 4540675762 4415151515 tMDAS'F'Nt1t DECREMENT TO VALUE WORDrrrr
       1141625544 1164552211 0063416645 4060575156 6445621515 1155444162 1451145011 6455221100 tARMDtTM2t SAVE POINTERrrtMDAR'I'HtTM2t 
       4645644350 4044515564 4240605751 5664456215 1155444162 1441144611 2727272727 1100554163 FETCH DIMTB POINTERrtMDAR'A'Ft77777t MAS
       5315151515 1155444163 1442116365 4243641100 5156444570 4064574044 5155455663 5157564067 KrrrrtMDAS'BtSUBCTt INDEX TO DIMENSION W
       5762444060 4151621515 1141625544 1164552211 0063416645 4060575156 6445624064 5740445155 ORD PAIRrrtARMDtTM2t SAVE POINTER TO DIM
       4556635157 5640664154 6545151515 1141625544 1164552311 0041546357 4046576240 5156444570 ENSION VALUErrrtARMDtTM3t ALSO FOR INDEX
       5156471515 1515151515 1155444162 1451145014 7011645523 1100464564 4350405457 6745624063 INGrrrrrrrtMDAR'I'H'XtTM3t FETCH LOWER S
       6542634362 5160644054 5155516415 1154635162 1163654243 5311006245 6465625634 4056574043 UBSCRIPT LIMITrtLSIRtSUBCKt RETURN, NO C
       5045435334 4051464041 4452656364 4142544515 1141626263 1121253611 0063514756 4045706445 HECK, IF ADJUSTABLErtARRSt15.t SIGN EXTE
       5644151515 1156575760 1515151515 1155444145 1456116455 2111004357 5663644156 6440636542 NDrrrtNOOPrrrrrtMDAE'NtTM1t CONSTANT SUB
       6343625160 6440645757 4063554154 5440121515 1152604156 1136102411 0056573440 5753406353 SCRIPT TOO SMALL ?rrtJPANt.+4t NO, OK SK
       5160151515 1515151515 6365424323 0611526063 6211456262 5762110045 5463453440 6741625651 IPrrrrrrrrSUBC3:tJPSRtERRORt ELSE, WARNI
       5647404562 6257621515 1111456221 2324110040 4016636542 6343625160 6440576564 4057464062 NG ERRORrrttER134t   (SUBSCRIPT OUT OF R
       4156474517 1515151515 1155445162 1163654243 5311006245 6465625615 1515151515 1141625544 ANGE)rrrrrtMDIRtSUBCKt RETURNrrrrrrtARMD
       1456116455 2111006341 6645405746 4663456440 6365426343 6251606440 6641546545 1515151515 'NtTM1t SAVE OFFSET SUBSCRIPT VALUErrrrr
       1155444162 1451116455 2211004645 6443504044 5155455663 5157564054 5155516415 1141565162 tMDAR'ItTM2t FETCH DIMENSION LIMITrtANIR
       1163654243 5311006245 6465625634 4056574043 5045435334 4051464041 4452656364 4142544515 tSUBCKt RETURN, NO CHECK, IF ADJUSTABLEr
       1515151515 1155444145 1456116455 2111006365 4263436251 6064406457 5740544162 4745401215 rrrrrtMDAE'NtTM1t SUBSCRIPT TOO LARGE ?r
       1152604156 1163654243 2311007145 6334406245 6057626440 4562625762 1515151515 1155445162 tJPANtSUBC3t YES, REPORT ERRORrrrrrtMDIR
       1163654243 5311004554 6345344057 5334406245 6465625615 1515151515 1515151515 7777700000 tSUBCKt ELSE, OK, RETURNrrrrrrrrrrrbbX  
       3342335376 3342335376 3342335376 3342335376 3342335376 3342335376 3342335376 3342335376 =B=K+=B=K+=B=K+=B=K+=B=K+=B=K+=B=K+=B=K+
       3342335376 3342335376                                                                   =B=K+=B=K+
 1225: 0004000015 4664562025 1361200347 3414400000 0040474564 4063715542 5754406441 4254454060  &  rFTN05"Q0!G,'     GET SYMBOL TABLE P
       5751566445 6240465762 4060575451 6350405760 4562415644 4051464064 6241434544 4063715542 OINTER FOR POLISH OPERAND IF TRACED SYMB
       5754151515 1515151515 6462434764 0611526555 6011361100 4556646271 4016605754 5163504057 OLrrrrrrrrTRCGT:tJUMPt.t ENTRY (POLISH O
       6045624156 4440515640 4162171515 1152604156 1136102211 0063654263 4362516064 4057604562 PERAND IN AR)rrtJPANt.+2t SUBSCRIPT OPER
       4164576240 1215151515 1152655560 1164624347 2111005657 3440635351 6015151515 1515151515 ATOR ?rrrrtJUMPtTRCG1t NO, SKIPrrrrrrrrr
       1155444162 1441144611 2727272727 1100714563 3440554163 5340605754 5163504060 6462406457 tMDAR'A'Ft77777t YES, MASK POLISH PTR TO
       4064626545 4063715542 5754151515 1141625544 1164552111 0063416645 1515151515 1155444162  TRUE SYMBOLrrrtARMDtTM1t SAVErrrrrtMDAR
       1451116455 2111004645 6443504060 5754516350 4067576244 4046576240 6371554257 5415151515 'ItTM1t FETCH POLISH WORD FOR SYMBOLrrrr
       1515151515 6462434721 0611554441 6214411141 5541635311 0055416353 4063715542 5754406441 rrrrrTRCG1:tMDAR'AtAMASKt MASK SYMBOL TA
       4254454060 5751566445 6215151515 1141625544 1164552111 0063416645 1515151515 1155444162 BLE POINTERrrrrtARMDtTM1t SAVErrrrrtMDAR
       1456116462 4143461100 6751645051 5640415640 4162454140 6462414345 4012151515 1152604156 'NtTRACFt WITHIN AN AREA TRACE ?rrrtJPAN
       1164624347 2411007145 6334405265 5560406457 4062456465 6256406057 5156644562 1515151515 tTRCG4t YES, JUMP TO RETURN POINTERrrrrr
       1515151515 1155444162 1446116462 4364421100 4554634534 4046456443 5040646241 4345406441 rrrrrtMDAR'FtTRCTBt ELSE, FETCH TRACE TA
       4254454050 4541441515 1141625544 1164552211 0063456440 4163404365 6262455664 4063454162 BLE HEADrrtARMDtTM2t SET AS CURRENT SEAR
       4350406057 5156644562 1515151515 1152655560 1164624347 2311005265 5560406457 4063454162 CH POINTERrrrrrtJUMPtTRCG3t JUMP TO SEAR
       4350406462 4143454064 4142544515 1515151515 6462434722 0611554441 6214511164 5522110046 CH TRACE TABLErrrrrrTRCG2:tMDAR'ItTM2t F
       4564435040 6064624064 5740564570 6440646241 4345406441 4254454045 5664627115 1155444162 ETCH PTR TO NEXT TRACE TABLE ENTRYrtMDAR
       1441144611 2727272727 1100554163 5315151515 1141625544 1164552211 0063416645 4041634043 'A'Ft77777t MASKrrrrtARMDtTM2t SAVE AS C
       6562624556 6440455664 6271151515 1155444162 1451145011 6455221100 4645644350 4063556441 URRENT ENTRYrrrtMDAR'I'HtTM2t FETCH SMTA
       4240606462 4046576240 6450516340 4556646271 1515151515 1155447057 1164552111 0063415545 B PTR FOR THIS ENTRYrrrrrtMDXOtTM1t SAME
       4041634041 6247655545 5664406371 5542575440 1215151515 1152605463 1136102211 0056573440  AS ARGUMENT SYMBOL ?rrrrtJPLSt.+2t NO, 
       6353516015 1152655560 1164624347 2411007145 6334405265 5560406457 4062456465 6256406057 SKIPrtJUMPtTRCG4t YES, JUMP TO RETURN PO
       5156644562 1515151515 1515151515 1155444162 1164552211 0046456443 5040436562 6245566440 INTERrrrrrrrrrrtMDARtTM2t FETCH CURRENT 
       6345416243 5040605751 5664456215 1515151515 6462434723 0611554470 5711646243 6064110062 SEARCH POINTERrrrrrrTRCG3:tMDXOtTRCPTt R
       4541435045 4440455644 4057464064 6241434540 6441425445 4012151515 1152605463 1164624347 EACHED END OF TRACE TABLE ?rrrtJPLStTRCG
       2211005657 3440545757 6040465762 4056457064 4045566462 7115151515 1515151515 1141627057 2t NO, LOOP FOR NEXT ENTRYrrrrrrrrrtARXO
       1454111100 7145633440 5657644041 4064624143 4540637155 4257543440 4354454162 4046544147 'Ltt YES, NOT A TRACE SYMBOL, CLEAR FLAG
       1515151515 6462434724 0611554441 6211645521 1100455463 4534406245 6465625640 6355644142 rrrrrTRCG4:tMDARtTM1t ELSE, RETURN SMTAB
       4060646240 4163406462 4143454046 5441471515 1155445162 1164624347 6411006245 6465625615  PTR AS TRACE FLAGrrtMDIRtTRCGTt RETURNr
       1515151515 1515151515 7777700000 1604132346 1604132346 1604132346 1604132346 1604132346 rrrrrrrrrrbbX  (&"3F(&"3F(&"3F(&"3F(&"3F
       1604132346 1604132346 1604132346 1604132346 1604132346                                  (&"3F(&"3F(&"3F(&"3F(&"3F
  580: 0004100015 4664562025 1361200146 3414400000 0040664162 5141425445 6340415644 4063645762  &+ rFTN05"Q0%F,'     VARIABLES AND STOR
       4147454046 5762406057 5451635040 6062574345 6363515647 4036363615 1515151515 5763644153 AGE FOR POLISH PROCESSING ...rrrrrrOSTAK
       0611112011 0057604562 4164576240 6364414353 1515151515 1154574311 3610576364 5354110040 :tt0t OPERATOR STACKrrrrrtLOCt.+OSTKLt  
       4016544556 4764504051 5640604162 4155456445 6240576364 5354171515 1515151515 5760646206  (LENGTH IN PARAMETER OSTKL)rrrrrrrOPTR:
       1111201100 5760406364 4143534060 5751566445 6215151515 1515151515 6057546364 0611112011 tt0t OP STACK POINTERrrrrrrrrrPOLST:tt0t
       0063416645 4440636441 6264405746 4060575451 6350406057 5156644562 1515151515 6057546246  SAVED START OF POLISH POINTERrrrrrPOLRF
       0611112011 0056576440 6351564754 4540624546 4562455643 4540465441 4715151515 6057544546 :tt0t NOT SINGLE REFERENCE FLAGrrrrPOLEF
       0611112011 0045616541 5440635147 5640606257 4345636345 4440465441 4715151515 5445664554 :tt0t EQUAL SIGN PROCESSED FLAGrrrrLEVEL
       0611112011 0043656262 4556644063 6542634362 5160643746 6556436451 5756405445 6645541515 :tt0t CURRENT SUBSCRIPT/FUNCTION LEVELrr
       5760564446 0611112011 0054416364 4057604562 4156444046 5441471515 4365625760 0611112011 OPNDF:tt0t LAST OPERAND FLAGrrCUROP:tt0t
       0043656262 4556644057 6045624164 5762151515 6365424364 0611112011 0043656262 4556644063  CURRENT OPERATORrrrSUBCT:tt0t CURRENT S
       6542634362 5160643741 6247404357 6556641515 1515151515 6057543131 0611112011 0064455560 UBSCRIPT/ARG COUNTrrrrrrrPOL99:tt0t TEMP
       4063645762 4147454036 3636151515 6057543130 0611112015 6057543127 0611112015 1515151515  STORAGE ...rrrPOL98:tt0rPOL97:tt0rrrrrr
       1515151515 7777700000 3060506646 3060506646 3060506646 3060506646 3060506646 3060506646 rrrrrbbX  8PHVF8PHVF8PHVF8PHVF8PHVF8PHVF
       3060506646 3060506646 3060506646 3060506646                                             8PHVF8PHVF8PHVF8PHVF
 1180: 0004200015 4664562025 1361200336 3414400000 0040576045 6241645762 4064414254 4540465762  &0 rFTN05"Q0!.,'     OPERATOR TABLE FOR
       4060575451 6350406062 5743456363 5156474036 3636151515 0040404042 5164634016 2035212417  POLISH PROCESSING ...rrr    BITS (0-14)
       4033406062 4543454445 5643451515 0040404042 5164634016 2125352231 1740334044 5163604164  = PRECEDENCErr    BITS (15-29) = DISPAT
       4350404144 4462456363 1515151515 0015151515 0040565764 4506404057 6045624164 5762405657 CH ADDRESSrrrrr rrrr  NOTE:  OPERATOR NO
       3614634020 3527404162 4540606257 4345636345 4440636045 4351415454 7140427140 6057545163 .'S 0-7 ARE PROCESSED SPECIALLY BY POLIS
       5040415644 4067515454 4056576415 0040404041 6060454162 4051564064 5045406057 5451635040 H AND WILL NOTr    APPEAR IN THE POLISH 
       6364414353 3615151515 0040576045 6241645762 4056573614 6340203440 2134404156 4440224041 STACK.rrrr  OPERATOR NO.'S 0, 1, AND 2 A
       6245404745 5645624164 4544404271 4060575451 6350404156 4440675154 5440564566 4562404245 RE GENERATED BY POLISH AND WILL NEVER BE
       1515151515 0040404062 4564656256 4544404271 4062454357 4740363636 1515151515 0040404040 rrrrr    RETURNED BY RECOG ...rrrrr     
       4057605665 5540204033 4063644162 6440574640 4570606245 6363515756 1515151515 0040404040  OPNUM 0 = START OF EXPRESSIONrrrrr     
       4057605665 5540214033 4046655643 6451575640 4162474063 6441626415 0040404040 4057605665  OPNUM 1 = FUNCTION ARG STARTr      OPNU
       5540224033 4063654263 4362516064 4063644162 6415151515 1515151515 5760626442 0611200350 M 2 = SUBSCRIPT STARTrrrrrrrrrOPRTB:t0!H
       1157602311 0023404040 1615151515 1121035011 5760241100 2440404043 3762151515 1121035011 tOP3t 3   (rrrrt1!HtOP4t 4   C/Rrrrt1!Ht
       5760251100 2540404017 1515151515 1121035011 5760261100 2640404034 1515151515 1121220350 OP5t 5   )rrrrrt1!HtOP6t 6   ,rrrrrt12!H
       1157602711 0027404040 1040166556 4162711715 1121240350 1157602120 1100212040 4005051515 tOP7t 7   + (UNARY)rt14!HtOP10t 10  **rr
       1121230350 1157602120 1100212140 4005151515 1121230350 1157602120 1100212240 4037151515 t13!HtOP10t 11  *rrrt13!HtOP10t 12  /rrr
       1121230350 1157602120 1100212340 4037371515 1121220350 1157602120 1100212440 4010401642 t13!HtOP10t 13  //rrt12!HtOP10t 14  + (B
       5156416271 1715151515 1121220350 1157602120 1100212540 4035401642 5156416271 1715151515 INARY)rrrrt12!HtOP10t 15  - (BINARY)rrrr
       1121220350 1157602126 1100212640 4035401665 5641627117 1515151515 1121210350 1157602120 t12!HtOP16t 16  - (UNARY)rrrrrt11!HtOP10
       1100212740 4036456136 1515151515 1121210350 1157602120 1100222040 4036564536 1515151515 t 17  .EQ.rrrrrt11!HtOP10t 20  .NE.rrrrr
       1121210350 1157602120 1100222140 4036476436 1515151515 1121210350 1157602120 1100222240 t11!HtOP10t 21  .GT.rrrrrt11!HtOP10t 22 
       4036474536 1515151515 1121210350 1157602120 1100222340 4036546436 1515151515 1121210350  .GE.rrrrrt11!HtOP10t 23  .LT.rrrrrt11!H
       1157602120 1100222440 4036544536 1515151515 1121200350 1157602225 1100222540 4036565764 tOP10t 24  .LE.rrrrrt10!HtOP25t 25  .NOT
       3615151515 1127035011 5760212011 0022264040 3641564436 1515151515 1126035011 5760212011 .rrrrt7!HtOP10t 26  .AND.rrrrrt6!HtOP10t
       0022274040 3657623615 1125035011 5760212011 0023204040 3670576236 1515151515 1123035011  27  .OR.rt5!HtOP10t 30  .XOR.rrrrrt3!Ht
       5760212011 0023214040 3654361515 1123035011 5760212011 0023224040 3662361515 1124035011 OP10t 31  .L.rrt3!HtOP10t 32  .R.rrt4!Ht
       5760232311 0023234040 3642361515 1124035011 5760232311 0023244040 3653361515 1124035011 OP33t 33  .B.rrt4!HtOP33t 34  .K.rrt4!Ht
       5760232311 0023254040 3650361515 1122035011 5760602326 1100232640 4033151515 1515151515 OP33t 35  .H.rrt2!HtOPP36t 36  =rrrrrrrr
       1515151515 7777700000 1302050206 1302050206 1302050206 1302050206 1302050206 1302050206 rrrrrbbX  "c*c:"c*c:"c*c:"c*c:"c*c:"c*c:
       1302050206 1302050206 1302050206 1302050206                                             "c*c:"c*c:"c*c:"c*c:
 1235: 0004300015 4664562025 1361200351 3414400000 0040456641 5440354063 4341564060 5754516350  &8 rFTN05"Q0!I,'     EVAL - SCAN POLISH
       4063646251 5647404745 5645624164 4540576564 6065644043 5744451515 1515151515 4566415406  STRING GENERATE OUTPUT CODErrrrrrrEVAL:
       1152655560 1136110045 5664627115 1155444162 1441114155 4163531100 5541635340 6057515664 tJUMPt.t ENTRYrtMDAR'AtAMASKt MASK POINT
       4562151515 1141625544 1145664154 6011006341 6645404163 4063644162 6440574640 6364625156 ERrrrtARMDtEVALPt SAVE AS START OF STRIN
       4715151515 1141627057 1446151515 1141625544 1145666641 6011006245 6345644066 4154654540 GrrrrtARXO'FrrrtARMDtEVVAPt RESET VALUE 
       5156404162 1515151515 1141625544 1145666641 4615151515 1141625544 1163645764 4611006245 IN ARrrrrrtARMDtEVVAFrrrrtARMDtSTOTFt RE
       6345644063 6045435141 5440133313 4046544147 1515151515 1141625544 1145664355 4311006245 SET SPECIAL "=" FLAGrrrrrtARMDtEVCMCt RE
       6345644043 5755554140 4357655664 4562151515 1141625544 1145666346 4611006245 6345644063 SET COMMA COUNTERrrrtARMDtEVSFFt RESET S
       6045435141 5440466556 4364515756 4046544147 1515151515 1141625544 1145666443 4611006245 PECIAL FUNCTION FLAGrrrrrtARMDtEVTCFt RE
       6345644064 6241434540 6045625551 6464454440 4654414715 1515151515 4566210611 4162705714 SET TRACE PERMITTED FLAGrrrrrrEV1:tARXO'
       4615151515 1141625544 1145665760 2211006245 6345644057 6045624156 4440605751 5664456263 FrrrrtARMDtEVOP2t RESET OPERAND POINTERS
       1515151515 1141625544 1145665760 2115151515 1155444162 1145664154 6011004745 6440636441 rrrrrtARMDtEVOP1rrrrtMDARtEVALPt GET STA
       4353406364 4162641515 1152655560 1145662242 1100475740 6364416264 4054575753 5156474057 CK STARTrrtJUMPtEV2Bt GO START LOOKING O
       5640636441 4353151515 1515151515 4566220611 5544416211 4566576022 1100635051 4664405760 N STACKrrrrrrrrEV2:tMDARtEVOP2t SHIFT OP
       4562415644 4060575156 6445626340 6560151515 1141625544 1145665760 2115151515 1155444162 ERAND POINTERS UPrrrtARMDtEVOP1rrrrtMDAR
       1145666064 6215151515 1141625544 1145665760 2215151515 1515151515 4566224106 1155444162 tEVPTRrrrrtARMDtEVOP2rrrrrrrrrEV2A:tMDAR
       1145666064 6211004745 6440564570 6440636441 4353405164 4555151515 1155444163 1446145611 tEVPTRt GET NEXT STACK ITEMrrrtMDAS'F'Nt
       2115151515 1515151515 4566224206 1141625544 1145666064 6215151515 1155444162 1451145014 1rrrrrrrrrEV2B:tARMDtEVPTRrrrrtMDAR'I'H'
       5611456660 6462110066 4154514440 4556646271 4012151515 1155444162 1441144611 2727272726 NtEVPTRt VALID ENTRY ?rrrtMDAR'A'Ft77776
       1515151515 1152605463 1145662311 0063535160 4051464071 4563151515 1515151515 1152655560 rrrrrtJPLStEV3t SKIP IF YESrrrrrrrrtJUMP
       1145662241 1100545757 5340414741 5156151515 1515151515 4566230611 5544416214 5114561145 tEV2At LOOK AGAINrrrrrrrrEV3:tMDAR'I'NtE
       6660646211 0057604562 4156444012 1515151515 1152604156 1145662211 0071456334 4054575753 VPTRt OPERAND ?rrrrrtJPANtEV2t YES, LOOK
       4041474151 5615151515 1515151515 1141624162 1446145014 5611110047 4564405760 4562416457  AGAINrrrrrrrrrtARAR'F'H'Ntt GET OPERATO
       6240435744 4515151515 1155444162 1441114327 2715151515 1152605463 1136102711 0063535160 R CODErrrrtMDAR'AtC77rrrrtJPLSt.+7t SKIP
       4051464056 5764404556 4415151515 1515151515 1155444162 1450114155 4163531100 5665545440  IF NOT ENDrrrrrrrrrtMDAR'HtAMASKt NULL 
       5765644054 4163644057 6045624164 5762404556 6462711515 1141625544 1451114566 6064621515 OUT LAST OPERATOR ENTRYrrtARMD'ItEVPTRrr
       1155444162 1456114566 6641461100 6641546545 4051564041 6240121515 1141564162 1470114566 tMDAR'NtEVVAFt VALUE IN AR ?rrtANAR'XtEV
       4154110051 5644457040 4566415440 4556646271 4051464056 5764151515 1515151515 1155444162 ALt INDEX EVAL ENTRY IF NOTrrrrrrrrtMDAR
       1145665760 2211004645 6443504041 4444624563 6340574640 6245636554 6415151515 1155445162 tEVOP2t FETCH ADDRESS OF RESULTrrrrtMDIR
       1145664154 1100624564 6562561515 1515151515 7777700000 5150602763 5150602763 5150602763 tEVALt RETURNrrrrrrrbbX  IHP7SIHP7SIHP7S
       5150602763 5150602763 5150602763 5150602763 5150602763 5150602763 5150602763            IHP7SIHP7SIHP7SIHP7SIHP7SIHP7SIHP7S
 1300: 0004400015 4664562025 1361200366 3414400000 1155444145 1454111100 4745644045 5664627140  &  rFTN05"Q0!V,'   tMDAE'Ltt GET ENTRY 
       4662575540 5760456241 6457621515 1155444162 1145665764 4235211100 4040406441 4254454041 FROM OPERATORrrtMDARtEVOTB-1t    TABLE A
       4343576244 5156474064 5740576045 6241645762 1515151515 1141625162 1446111100 4040404357 CCORDING TO OPERATORrrrrrtARIR'Ftt    CO
       4445151515 1141625544 1145666455 2111006341 6645404556 6462711515 1155444162 1441114155 DErrrtARMDtEVTM1t SAVE ENTRYrrtMDAR'AtAM
       4163531515 1155444162 1457145011 4324201515 1141625544 1145666455 3011006341 6645404451 ASKrrtMDAR'O'HtC40rrtARMDtEVTM8t SAVE DI
       6360416443 5015151515 1141627057 1446151515 1141625544 1145665764 6311006245 6345644041 SPATCHrrrrtARXO'FrrrtARMDtEVOTSt RESET A
       6363514756 5545566440 4441644140 6471604515 1141625544 1145666455 2211006245 6345644064 SSIGNMENT DATA TYPErtARMDtEVTM2t RESET T
       7160454046 5762402256 4440576045 6241564415 1141625544 1145666455 2311006245 6345644064 YPE FOR 2ND OPERANDrtARMDtEVTM3t RESET T
       7160454046 5762402163 6440576045 6241564415 1155444162 1145665760 2211000505 0505050505 YPE FOR 1ST OPERANDrtMDARtEVOP2t *******
       1515151515 1152605463 1136102215 1152655560 1136110005 0505050505 0515151515 1515151515 rrrrrtJPLSt.+2rtJUMPt.t *******rrrrrrrrr
       1155444162 1451145011 4566576022 1100634166 4540444164 4140647160 4540574640 5760456241 tMDAR'I'HtEVOP2t SAVE DATA TYPE OF OPERA
       5644402215 1141625544 1450114566 6455201021 1100404040 4156444042 4144407245 6257404654 ND 2rtARMD'HtEVTM0+1t    AND BAD ZERO FL
       4147151515 1155444162 1441144611 2120110013 7513404654 4147406345 6440121515 1152605463 AGrrrtMDAR'A'Ft10t "@" FLAG SET ?rrtJPLS
       1136102411 0071456334 4063535160 4064716045 4063456464 5156471515 1115151515 1155444162 t.+4t YES, SKIP TYPE SETTINGrrtrrrrtMDAR
       1451145011 4566576022 1100464564 4350404441 6441406471 6045151515 1155444162 1441114327 'I'HtEVOP2t FETCH DATA TYPErrrtMDAR'AtC7
       1515151515 1141625544 1145666455 2211006345 6440465762 4057604562 4156444022 1515151515 rrrrrtARMDtEVTM2t SET FOR OPERAND 2rrrrr
       1515151515 1155444162 1442114566 6455211100 6556416271 4057604562 4164576240 1215151515 rrrrrtMDAR'BtEVTM1t UNARY OPERATOR ?rrrr
       1152604156 1145662511 0063535160 4051464071 4563151515 1515151515 1155444162 1145665760 tJPANtEV5t SKIP IF YESrrrrrrrrtMDARtEVOP
       2111000505 0505050505 1515151515 1152605463 1136102211 0063535160 4051464071 4563151515 1t *******rrrrrtJPLSt.+2t SKIP IF YESrrr
       1515151515 1152655560 1136110005 0505050505 0515151515 1515151515 1155444162 1451114566 rrrrrtJUMPt.t *******rrrrrrrrrtMDAR'ItEV
       5760211100 4357554251 5645404241 4440724562 5740465441 4715151515 1155444162 1457114566 OP1t COMBINE BAD ZERO FLAGrrrrtMDAR'OtEV
       6455201021 1515151515 1141625544 1145666455 2010211515 1155444162 1451145011 4566576021 TM0+1rrrrrtARMDtEVTM0+1rrtMDAR'I'HtEVOP1
       1100137513 4046544147 4063456440 1215151515 1155444162 1441144611 2120151515 1152605463 t "@" FLAG SET ?rrrrtMDAR'A'Ft10rrrtJPLS
       1145662511 0071456334 4063535160 4064716045 4063456464 5156471515 1515151515 1155444162 tEV5t YES, SKIP TYPE SETTINGrrrrrrrtMDAR
       1451145011 4566576021 1100634166 4540444164 4140647160 4540465762 4057604562 4156444021 'I'HtEVOP1t SAVE DATA TYPE FOR OPERAND 1
       1515151515 1155444162 1441114327 1515151515 1141625544 1145666455 2315151515 1141625544 rrrrrtMDAR'AtC7rrrrrtARMDtEVTM3rrrrtARMD
       1145665764 6311006341 6645404163 6351475655 4556644064 7160451515 1515151515 4566250611 tEVOTSt SAVE ASSIGNMENT TYPErrrrrrrEV5:t
       5544416211 4566645523 1100435755 4251564540 4441644140 6471604563 4041564440 4745644045 MDARtEVTM3t COMBINE DATA TYPES AND GET E
       5664627115 1141625463 1123110040 4040466257 5540444164 4140647160 4540435756 6645626351 NTRYrtARLSt3t    FROM DATA TYPE CONVERSI
       5756406441 4254451515 1155444162 1457114566 6455221515 1155444145 1454151515 1155444162 ON TABLErrtMDAR'OtEVTM2rrtMDAE'LrrrtMDAR
       1145666364 4215151515 1141625162 1446151515 1141625544 1145666455 2411006341 6645404556 tEVSTBrrrrtARIR'FrrrtARMDtEVTM4t SAVE EN
       6462711515 7777700000 2564230770 2564230770 2564230770 2564230770 2564230770 2564230770 TRYrrbbX  5T3_X5T3_X5T3_X5T3_X5T3_X5T3_X
       2564230770 2564230770 2564230770 2564230770                                             5T3_X5T3_X5T3_X5T3_X
 1170: 0004500015 4664562025 1361200334 3414400000 1141626263 1123151515 1155444162 1441114327  &H rFTN05"Q0!,,'   tARRSt3rrrtMDAR'AtC7
       1515151515 1141625544 1145666455 2011006341 6645406245 6365546440 4441644140 6471604515 rrrrrtARMDtEVTM0t SAVE RESULT DATA TYPEr
       1155444162 1442145611 4566645521 1100655641 6271405760 4562416457 6240121515 1152604156 tMDAR'B'NtEVTM1t UNARY OPERATOR ?rrtJPAN
       1136102311 0052655560 4051464056 5764151515 1515151515 1155444162 1145666455 2211006345 t.+3t JUMP IF NOTrrrrrrrrtMDARtEVTM2t SE
       6440444164 4140647160 4540634155 4540416340 5760456241 5644151515 1141625544 1145666455 T DATA TYPE SAME AS OPERANDrrrtARMDtEVTM
       2015151515 1515151515 1155444162 1145666455 2111005155 5545445141 6445404451 6360416443 0rrrrrrrrrtMDARtEVTM1t IMMEDIATE DISPATC
       5040121515 1141565162 1145666455 3011004451 6360416443 5040514640 7145631515 1515151515 H ?rrtANIRtEVTM8t DISPATCH IF YESrrrrrrr
       4566260611 5544416214 5011456664 5521110045 7060575645 5664514154 4055574445 4012151515 EV6:tMDAR'HtEVTM1t EXPONENTIAL MODE ?rrr
       1155444162 1441144611 2715151515 1155447057 1446112215 1152605463 1145662125 1100526555 tMDAR'A'Ft7rrrrtMDXO'Ft2rtJPLStEV15t JUM
       6040514640 5657641515 1515151515 1155444162 1453114566 6455241100 4745644057 6045624156 P IF NOTrrrrrrrtMDAR'KtEVTM4t GET OPERAN
       4440214043 5756664562 6351575640 6471604515 1155444162 1441114321 2715151515 1141625544 D 1 CONVERSION TYPErtMDAR'AtC17rrrrtARMD
       1145666455 2211006341 6645151515 1155444162 1450114566 6455241100 4745644057 6045624156 tEVTM2t SAVErrrtMDAR'HtEVTM4t GET OPERAN
       4440224064 7160451515 1141626263 1125151515 1155444162 1441114321 2715151515 1141625544 D 2 TYPErrtARRSt5rrrtMDAR'AtC17rrrrtARMD
       1145666455 2311006341 6645151515 1152655560 1145662126 1515151515 1515151515 4566212506 tEVTM3t SAVErrrtJUMPtEV16rrrrrrrrrrEV15:
       1141627057 1446151515 1141625544 1145666455 2215151515 1141625544 1145666455 2311006245 tARXO'FrrrtARMDtEVTM2rrrrtARMDtEVTM3t RE
       6345644043 5756664562 6351575640 4357444563 1515151515 1155444162 1453114566 6455241100 SET CONVERSION CODESrrrrrtMDAR'KtEVTM4t 
       4745644057 6045624156 4440435756 6645626351 5756406471 6045151515 1155444162 1441145011 GET OPERAND CONVERSION TYPErrrtMDAR'A'Ht
       4323271515 1141625544 1450114566 6455311515 1155444162 1450114566 6455241100 4357566645 C37rrtARMD'HtEVTM9rrtMDAR'HtEVTM4t CONVE
       6264405760 4562415644 4021401215 1152604156 1136102411 0052655560 4051464071 4563151515 RT OPERAND 1 ?rtJPANt.+4t JUMP IF YESrrr
       1515151515 1155444162 1145666455 3111006341 6645405760 4562415644 4022404357 5666456263 rrrrrtMDARtEVTM9t SAVE OPERAND 2 CONVERS
       5157561515 1141625544 1145666455 2315151515 1152655560 1136102311 0063535160 4057664562 IONrrtARMDtEVTM3rrrrtJUMPt.+3t SKIP OVER
       1515151515 1515151515 1155444162 1145666455 3111006341 6645405760 4562415644 4021404357 rrrrrrrrrrtMDARtEVTM9t SAVE OPERAND 1 CO
       5666456263 5157561515 1141625544 1145666455 2215151515 1515151515 4566212606 1152606362 NVERSIONrrtARMDtEVTM2rrrrrrrrrEV16:tJPSR
       1163456441 5511006345 6440554143 5051564540 5441564765 4147454055 5744451515 1155444162 tSETAMt SET MACHINE LANGUAGE MODErrtMDAR
       1456114566 6641461100 5760456241 5644405156 4041624012 1515151515 1152604156 1145662126 'NtEVVAFt OPERAND IN AR ?rrrrrtJPANtEV16
       4211006353 5160405146 4056576415 1515151515 1155444162 1145665760 2211005163 4041624057 Bt SKIP IF NOTrrrrrrtMDARtEVOP2t IS AR O
       6045624156 4440224012 1515151515 1155447057 1145666641 6015151515 1152605463 1136102211 PERAND 2 ?rrrrrtMDXOtEVVAPrrrrtJPLSt.+2t
       0063535160 4051464056 5764151515 1152655560 1145662126 4215151515 1515151515 7777700000  SKIP IF NOTrrrtJUMPtEV16BrrrrrrrrrbbX  
       4042362247 4042362247 4042362247 4042362247 4042362247 4042362247 4042362247 4042362247  B.2G B.2G B.2G B.2G B.2G B.2G B.2G B.2G
       4042362247 4042362247                                                                    B.2G B.2G
  875: 0004600015 4664562025 1361200241 3414400000 1155444162 1145665760 2111005163 4051644057  &P rFTN05"Q0cA,'   tMDARtEVOP1t IS IT O
       6045624156 4440214012 1515151515 1155447057 1145666641 6015151515 1152605463 1136102211 PERAND 1 ?rrrrrtMDXOtEVVAPrrrrtJPLSt.+2t
       0063535160 4051464056 5764151515 1152655560 1145662126 4211005265 5560405146 4063415545  SKIP IF NOTrrrtJUMPtEV16Bt JUMP IF SAME
       1515151515 1515151515 1155444162 1450145611 4566645521 1100635057 6554444041 6240424540 rrrrrrrrrrtMDAR'H'NtEVTM1t SHOULD AR BE 
       6364576245 4440121515 1155444162 1441144611 2220151515 1152635463 1163645741 6211006364 STORED ?rrtMDAR'A'Ft20rrrtJSLStSTOARt ST
       5762454041 6240514640 7145631515 1515151515 4566212642 0611554441 6214531145 6664552111 ORE AR IF YESrrrrrrrEV16B:tMDAR'KtEVTM1t
       0043575666 4562644044 4164414064 7160456340 1215151515 1141624162 1446144214 5615151515  CONVERT DATA TYPES ?rrrrtARAR'F'B'Nrrrr
       1152604156 1145662122 1100526555 6040514640 5657151515 1515151515 1155444162 1456114566 tJPANtEV12t JUMP IF NOrrrrrrrrtMDAR'NtEV
       6641461100 6641546545 4051564041 6240121515 1152604156 1145662123 1100526555 6040514640 VAFt VALUE IN AR ?rrtJPANtEV13t JUMP IF 
       5657641515 1515151515 1155444162 1145666641 6011005760 4562415644 4022405156 4041624012 NOTrrrrrrrtMDARtEVVAPt OPERAND 2 IN AR ?
       1515151515 1155447057 1145665760 2215151515 1152605463 1145662124 1100526555 6040514640 rrrrrtMDXOtEVOP2rrrrtJPLStEV14t JUMP IF 
       5657151515 1515151515 4566212306 1155444162 1145666455 2311005760 4562415644 4022405645 NOrrrrrrrrEV13:tMDARtEVTM3t OPERAND 2 NE
       4544634043 5756664562 6351575640 1215151515 1152635463 1145664311 0043575666 4562644057 EDS CONVERSION ?rrrrtJSLStEVCt CONVERT O
       6045624156 4440224051 4640714563 1515151515 1155444162 1145665760 2215151515 1515151515 PERAND 2 IF YESrrrrrtMDARtEVOP2rrrrrrrrr
       1155444162 1145666455 2215151515 1152635463 1145664311 0043575666 4562644057 6045624156 tMDARtEVTM2rrrrtJSLStEVCt CONVERT OPERAN
       4440211515 1155444162 1145665760 2115151515 1152655560 1145662122 1100475740 4350454353 D 1rrtMDARtEVOP1rrrrtJUMPtEV12t GO CHECK
       4046544147 6315151515 1515151515 4566212406 1155444162 1145666455 2211005760 4562415644  FLAGSrrrrrrrrrEV14:tMDARtEVTM2t OPERAND
       4021405645 4544634043 5756664562 6351575640 1215151515 1152635463 1145664311 0043575666  1 NEEDS CONVERSION ?rrrrtJSLStEVCt CONV
       4562644051 4640714563 1515151515 1155444162 1145665760 2115151515 1515151515 1155444162 ERT IF YESrrrrrtMDARtEVOP1rrrrrrrrrtMDAR
       1145666455 2311004357 5666456264 4057604562 4156444022 1515151515 1152635463 1145664315 tEVTM3t CONVERT OPERAND 2rrrrrtJSLStEVCr
       1155444162 1145665760 2215151515 1515151515 7777700000 0044536051 0044536051 0044536051 tMDARtEVOP2rrrrrrrrrbbX   DKPI DKPI DKPI
       0044536051 0044536051 0044536051 0044536051 0044536051 0044536051 0044536051             DKPI DKPI DKPI DKPI DKPI DKPI DKPI
 1220: 0004700015 4664562025 1361200346 3414400000 4566212206 1155444162 1453114566 6455211100  &X rFTN05"Q0!F,'   EV12:tMDAR'KtEVTM1t 
       6364576245 4065564357 5644516451 5756415454 7140121515 1155444162 1441144611 2215151515 STORE UNCONDITIONALLY ?rrtMDAR'A'Ft2rrrr
       1152605463 1145663111 0047574063 6457624540 5146407145 6315151515 1515151515 1155444162 tJPLStEV9t GO STORE IF YESrrrrrrrrrtMDAR
       1456114566 6641461100 4156714057 6045624156 4440515640 4162401215 1152604156 1145662120 'NtEVVAFt ANY OPERAND IN AR ?rtJPANtEV10
       1100526555 6040514640 5657641515 1515151515 1155444162 1145666641 6011004162 4057604562 t JUMP IF NOTrrrrrrrtMDARtEVVAPt AR OPER
       4156444033 4057604562 4156444022 4012151515 1155447057 1145665760 2215151515 1152605463 AND = OPERAND 2 ?rrrtMDXOtEVOP2rrrrtJPLS
       1145662121 1100635351 6040514640 5657641515 1515151515 1155444162 1453114566 6455211100 tEV11t SKIP IF NOTrrrrrrrtMDAR'KtEVTM1t 
       6364576245 4051464057 6045624156 4440224051 5640416240 1215151515 1155444162 1441144611 STORE IF OPERAND 2 IN AR ?rrrrtMDAR'A'Ft
       2115151515 1152605463 1145663111 0052655560 4051464071 4563151515 1515151515 1155444162 1rrrrtJPLStEV9t JUMP IF YESrrrrrrrrtMDAR
       1453145611 4566645521 1100435755 5565644540 5146405760 4562415644 4022405156 4041624012 'K'NtEVTM1t COMMUTE IF OPERAND 2 IN AR ?
       1515151515 1155444162 1441144611 2120151515 1152605463 1145662120 1100526555 6040514640 rrrrrtMDAR'A'Ft10rrrtJPLStEV10t JUMP IF 
       5657151515 1515151515 1155444162 1145665760 2111006245 6645626345 4057604562 4156444060 NOrrrrrrrrtMDARtEVOP1t REVERSE OPERAND P
       5751566445 6263151515 1141625544 1145666455 3115151515 1155444162 1145665760 2215151515 OINTERSrrrtARMDtEVTM9rrrrtMDARtEVOP2rrrr
       1141625544 1145665760 2115151515 1155444162 1145666455 3115151515 1141625544 1145665760 tARMDtEVOP1rrrrtMDARtEVTM9rrrrtARMDtEVOP
       2215151515 1152655560 1145662120 1100475740 6062574345 6363151515 1515151515 4566212106 2rrrrtJUMPtEV10t GO PROCESSrrrrrrrrEV11:
       1155444162 1450145611 4566645521 1515151515 1155444162 1441144611 2420110063 6457624540 tMDAR'H'NtEVTM1rrrrrtMDAR'A'Ft40t STORE 
       5146405760 4562415644 4021405156 4041624012 1515151515 1152605463 1145662120 1100526555 IF OPERAND 1 IN AR ?rrrrrtJPLStEV10t JUM
       6040514640 5657151515 1515151515 4566310611 5260636211 6364574162 1100636457 6245405760 P IF NOrrrrrrrrEV9:tJPSRtSTOARt STORE OP
       4562415644 4051564041 6215151515 1515151515 4566212006 1155444162 1453145611 4566645521 ERAND IN ARrrrrrrrrrEV10:tMDAR'K'NtEVTM1
       1100634164 5163467140 6467574067 5762444062 4546456245 5643456340 1215151515 1155444162 t SATISFY TWO WORD REFERENCES ?rrrrtMDAR
       1441144611 2415151515 1152605463 1145662120 4211006353 5160405146 4056571515 1515151515 'A'Ft4rrrrtJPLStEV10Bt SKIP IF NOrrrrrrr
       1152606362 1145666357 2111004350 4543534051 4640414444 6245636340 6245464562 4556434515 tJPSRtEVSO1t CHECK IF ADDRESS REFERENCEr
       1152606362 1145666357 2211004040 4057564057 6045624156 4463151515 1515151515 4566212042 tJPSRtEVSO2t    ON OPERANDSrrrrrrrrEV10B
       0611554441 6214531145 6664552111 0044516360 4164435040 5657674012 1515151515 1141565162 :tMDAR'KtEVTM1t DISPATCH NOW ?rrrrrtANIR
       1145666455 3011005265 5560405146 4071456315 1515151515 4566212041 0611554441 6211456664 tEVTM8t JUMP IF YESrrrrrrEV10A:tMDARtEVT
       5520102111 0043575542 5156454042 4144407245 6257404654 4147151515 1155444162 1457114566 M0+1t COMBINE BAD ZERO FLAGrrrtMDAR'OtEV
       6455211515 1141625544 1145666455 2010211515 1155444162 1450114566 6455211100 4745644055 TM1rrtARMDtEVTM0+1rrtMDAR'HtEVTM1t GET M
       5744514671 4043574445 1515151515 1155444162 1441114327 1515151515 1155444145 1454111100 ODIFY CODErrrrrtMDAR'AtC7rrrrrtMDAE'Ltt 
       4451636041 6443504057 5640435744 4515151515 1155445162 1136102215 1141625162 1446151515 DISPATCH ON CODErrrrtMDIRt.+2rtARIR'Frrr
       1515151515 7777700000 0045141606 0045141606 0045141606 0045141606 0045141606 0045141606 rrrrrbbX   E'(: E'(: E'(: E'(: E'(: E'(:
       0045141606 0045141606 0045141606 0045141606                                              E'(: E'(: E'(: E'(:
 1410: 0005000015 4664562025 1361200414 3414400000 1152655560 1145662220 1100475740 6062574345  *  rFTN05"Q0&','   tJUMPtEV20t GO PROCE
       6363404451 6245436457 6263151515 1152655560 1145662130 1100475740 6345646560 4044516245 SS DIRECTORSrrrtJUMPtEV18t GO SETUP DIRE
       4364576240 6057515664 4562151515 1152655560 1145662131 1100475740 6345646560 4045706057 CTOR POINTERrrrtJUMPtEV19t GO SETUP EXPO
       5645566451 4154406057 5156644562 1515151515 1152655560 1145662127 1100475740 6345646560 NENTIAL POINTERrrrrrtJUMPtEV17t GO SETUP
       4046576240 3340576045 6241645762 1515151515 1515151515 4566213106 1155444162 1145666455  FOR = OPERATORrrrrrrrrrrEV19:tMDARtEVTM
       2411004745 6440457060 5756455664 5141544064 7160454055 5744451515 1141626263 1126151515 4t GET EXPONENTIAL TYPE MODErrtARRSt6rrr
       1152655560 1145662130 4111004757 4060625743 4563631515 1515151515 4566212706 1155444162 tJUMPtEV18At GO PROCESSrrrrrrrEV17:tMDAR
       1145666455 2011004745 6440624563 6554644044 4164414064 7160451515 1152655560 1145662130 tEVTM0t GET RESULT DATA TYPErrtJUMPtEV18
       4115151515 1515151515 4566213006 1155444162 1145666455 2411004745 6440576045 6241645762 ArrrrrrrrrEV18:tMDARtEVTM4t GET OPERATOR
       4044416441 4064716045 1515151515 1515151515 4566213041 0611554441 6214411143 2715151515  DATA TYPErrrrrrrrrrEV18A:tMDAR'AtC7rrrr
       1155444145 1145666455 3011004362 4541644540 4144446245 6363405156 4060575156 6445624054 tMDAEtEVTM8t CREATE ADDRESS IN POINTER L
       5163641515 1141625544 1145666455 3015151515 1155444162 1451114566 6455301100 4745644060 ISTrrtARMDtEVTM8rrrrtMDAR'ItEVTM8t GET P
       5751566445 6240645740 4451624543 6457626315 1141625544 1145666455 3011006341 6645151515 OINTER TO DIRECTORSrtARMDtEVTM8t SAVErrr
       1155444162 1457114566 6455201021 1100435755 4251564540 4241444072 4562574046 5441471515 tMDAR'OtEVTM0+1t COMBINE BAD ZERO FLAGrr
       1141625544 1145666455 2010211515 1155444162 1453114566 6455301100 6341645163 4671402240 tARMDtEVTM0+1rrtMDAR'KtEVTM8t SATISFY 2 
       6757624440 6245464562 4556434563 4012151515 1155444162 1441144611 2415151515 1152635463 WORD REFERENCES ?rrrtMDAR'A'Ft4rrrrtJSLS
       1145666357 2211006353 5160405146 4056571515 1515151515 4566222006 1155444162 1145666455 tEVSO2t SKIP IF NOrrrrrrrEV20:tMDARtEVTM
       3011004745 6440465156 4154406057 5156644562 1515151515 1152606362 1145441100 4566415465 8t GET FINAL POINTERrrrrrtJPSRtEDt EVALU
       4164454044 5162454364 5762405451 6364151515 1155444162 1145666064 6215151515 4566645520 ATE DIRECTOR LISTrrrtMDARtEVPTRrrrrEVTM0
       0611112032 4020110062 4563655464 4044416441 4064716045 4041564440 4241444072 4562574046 :tt0; 0t RESULT DATA TYPE AND BAD ZERO F
       5441476315 1152655560 1145662221 1100526555 6040514640 5760456241 5644405657 6440515640 LAGSrtJUMPtEV21t JUMP IF OPERAND NOT IN 
       4162151515 1515151515 4566222206 1155444162 1450114155 4163531100 5665545440 5765644057 ARrrrrrrrrEV22:tMDAR'HtAMASKt NULL OUT O
       6045624156 4440221515 1141625544 1451114566 5760221515 1155444162 1442114566 6455211100 PERAND 2rrtARMD'ItEVOP2rrtMDAR'BtEVTM1t 
       6556416271 4057604562 4164576240 1215151515 1152604156 1145662111 0052655560 4051464071 UNARY OPERATOR ?rrrrtJPANtEV1t JUMP IF Y
       4563151515 1515151515 1155444162 1450114155 4163531100 5665545440 5765644057 6045624156 ESrrrrrrrrtMDAR'HtAMASKt NULL OUT OPERAN
       4440211515 1141625544 1451114566 5760211515 1152655560 1145662111 0047574062 4560454164 D 1rrtARMD'ItEVOP1rrtJUMPtEV1t GO REPEAT
       1515151515 1515151515 4566222106 1155444162 1450114155 4163531100 5665545440 5765644057 rrrrrrrrrrEV21:tMDAR'HtAMASKt NULL OUT O
       6045624164 5762406757 6244151515 1141625544 1451114566 6064621515 1152655560 1145662111 PERATOR WORDrrrtARMD'ItEVPTRrrtJUMPtEV1t
       0047574062 4560454164 1515151515 1515151515 1515151515 4566576021 0611112011 0057604562  GO REPEATrrrrrrrrrrrrrrrEVOP1:tt0t OPER
       4156444021 4060575156 6445621515 4566576022 0611112011 0057604562 4156444022 4060575156 AND 1 POINTERrrEVOP2:tt0t OPERAND 2 POIN
       6445621515 4566606462 0611112011 0057604562 4164576240 6057515664 4562151515 4566664146 TERrrEVPTR:tt0t OPERATOR POINTERrrrEVVAF
       0611112011 0066415465 4540515640 4162404654 4147151515 4566664160 0611112011 0060575156 :tt0t VALUE IN AR FLAGrrrEVVAP:tt0t POIN
       6445624041 6440416240 6641546545 4045566462 7140515640 6364414353 1515151515 4566664144 TER AT AR VALUE ENTRY IN STACKrrrrrEVVAD
       0611112011 0066415465 4540515640 4162405163 4041444462 4563634046 5441471515 7777700000 :tt0t VALUE IN AR IS ADDRESS FLAGrrbbX  
       0356114451 0356114451 0356114451 0356114451 0356114451 0356114451 0356114451 0356114451 !NtDI!NtDI!NtDI!NtDI!NtDI!NtDI!NtDI!NtDI
       0356114451 0356114451                                                                   !NtDI!NtDI
 1190: 0005100015 4664562025 1361200340 3414400000 4566415460 0611112011 0063644162 6440574640  *+ rFTN05"Q0! ,'   EVALP:tt0t START OF 
       6364625156 4740605751 5664456215 4566415463 0611112011 0067576253 5156474060 5751566445 STRING POINTERrEVALS:tt0t WORKING POINTE
       6215151515 4566415454 0611112011 0040555163 4336405760 4562416457 6240606257 4345636351 RrrrrEVALL:tt0t  MISC. OPERATOR PROCESSI
       5647406563 4515151515 4566415466 0611112011 0040404013 4040404040 4013404040 4040404040 NG USErrrrEVALV:tt0t    "      "        
       4013404040 4040404013 1515151515 4566415467 0611112011 0040404013 4040404040 4013404040  "       "rrrrrEVALW:tt0t    "      "   
       4040404040 4013404040 4040404013 1515151515 4566415470 0611112011 0040456443 3615151515       "       "rrrrrEVALX:tt0t  ETC.rrrr
       4566415471 0611112011 0040456443 3615151515 4566415472 0611112011 0040456443 3615151515 EVALY:tt0t  ETC.rrrrEVALZ:tt0t  ETC.rrrr
       4566435543 0611112011 0043575555 4140435765 5664456240 4657624046 6556436451 5756151515 EVCMC:tt0t COMMA COUNTER FOR FUNCTIONrrr
       4566634646 0611112011 0063604543 5141544046 6556436451 5756404654 4147151515 4566576463 EVSFF:tt0t SPECIAL FUNCTION FLAGrrrEVOTS
       0611112011 0041636351 4756554556 6440444164 4140647160 4515151515 4566644346 0611112011 :tt0t ASSIGNMENT DATA TYPErrrrEVTCF:tt0t
       0064624143 4540434154 5440604562 5551646445 4440465441 4715151515 1515151515 4566645521  TRACE CALL PERMITTED FLAGrrrrrrrrrEVTM1
       0611112011 0064455560 3640636457 6241474515 4566645522 0611112015 4566645523 0611112015 :tt0t TEMP. STORAGErEVTM2:tt0rEVTM3:tt0r
       4566645524 0611112015 4566645525 0611112015 4566645526 0611112015 4566645527 0611112015 EVTM4:tt0rEVTM5:tt0rEVTM6:tt0rEVTM7:tt0r
       4566645530 0611112015 4566645531 0611112015 1515151515 1515151515 0043575555 4140576045 EVTM8:tt0rEVTM9:tt0rrrrrrrrrrr COMMA OPE
       6241645762 4060625743 4563635762 1515151515 1515151515 4566435755 0611554441 6214511145 RATOR PROCESSORrrrrrrrrrrEVCOM:tMDAR'ItE
       6660646211 0047456440 6057515664 4562406457 4057604562 4156441515 1155444162 1441114155 VPTRt GET POINTER TO OPERANDrrtMDAR'AtAM
       4163531515 1141625544 1145664154 6311006341 6645406057 5156644562 1515151515 1155444162 ASKrrtARMDtEVALSt SAVE POINTERrrrrrtMDAR
       1451145011 4566415463 1100674163 4057604562 4156444041 4046655643 6451575640 1215151515 'I'HtEVALSt WAS OPERAND A FUNCTION ?rrrr
       1155444162 1441144611 2326202020 1515151515 1155447057 1446112420 2020151515 1154637057 tMDAR'A'Ft36000rrrrrtMDXO'Ft4000rrrtLSXO
       1136102315 1152605463 1145666343 5511004757 4064574063 6542634362 5160644043 5755554140 t.+3rtJPLStEVSCMt GO TO SUBSCRIPT COMMA 
       5146405657 6415151515 1515151515 1152655560 1145664643 5511004554 6345344046 6556436451 IF NOTrrrrrrrrrtJUMPtEVFCMt ELSE, FUNCTI
       5756404357 5555411515 1111242020 2014222020 2015151515 1515151515 1515151515 0063654263 ON COMMArrtt4000'2000rrrrrrrrrrrrrr SUBS
       4362516064 4043575555 4140606257 4345636351 5647406257 6564515645 1515151515 1515151515 CRIPT COMMA PROCESSING ROUTINErrrrrrrrrr
       4566634355 0611554441 6214501145 6664552411 0043504543 5340444164 4140647160 4515151515 EVSCM:tMDAR'HtEVTM4t CHECK DATA TYPErrrr
       1155444162 1441114323 2715151515 1152635463 1145664311 0043575666 4562644057 6045624156 tMDAR'AtC37rrrrtJSLStEVCt CONVERT OPERAN
       4440514640 5645434563 6341627115 1155444162 1145665760 2215151515 1515151515 1515151515 D IF NECESSARYrtMDARtEVOP2rrrrrrrrrrrrrr
       4566415422 0611554441 6214501141 5541635311 0056655454 4057656440 4357555541 4057604562 EVAL2:tMDAR'HtAMASKt NULL OUT COMMA OPER
       4164576215 1141625544 1451114566 6064621515 1152655560 1145662111 0047574062 4535634341 ATORrtARMD'ItEVPTRrrtJUMPtEV1t GO RE-SCA
       5615151515 1515151515 1515151515 7777700000 5017333671 5017333671 5017333671 5017333671 NrrrrrrrrrrrrrrbbX  H)=.YH)=.YH)=.YH)=.Y
       5017333671 5017333671 5017333671 5017333671 5017333671 5017333671                       H)=.YH)=.YH)=.YH)=.YH)=.YH)=.Y
 1350: 0005200015 4664562025 1361200400 3414400000 0063654263 4362516064 4057604562 4164576240  *0 rFTN05"Q0& ,'    SUBSCRIPT OPERATOR 
       6062574345 6363515647 4062576564 5156451515 1515151515 4566636542 0611554441 6214501145 PROCESSING ROUTINErrrrrrrEVSUB:tMDAR'HtE
       6664552411 0046456443 5040647160 4540435756 6645626351 5756151515 1155444162 1441114323 VTM4t FETCH TYPE CONVERSIONrrrtMDAR'AtC3
       2715151515 1152635463 1145664311 0043575666 4562644051 4640564543 4563634162 7115151515 7rrrrtJSLStEVCt CONVERT IF NECESSARYrrrr
       1155444162 1145665760 2215151515 1155444162 1451145011 4566606462 1100464564 4350404156 tMDARtEVOP2rrrrtMDAR'I'HtEVPTRt FETCH AN
       4440634166 4540565736 4063654263 4362516064 6315151515 1141626263 1126151515 1155444162 D SAVE NO. SUBSCRIPTSrrrrtARRSt6rrrtMDAR
       1441114327 1515151515 1141625544 1145664154 7115151515 1141625544 1456114566 6455231100 'AtC7rrrrrtARMDtEVALYrrrrtARMD'NtEVTM3t 
       4154635740 6341664540 5156404357 6556644562 6315151515 1141625544 1456114566 6455241515 ALSO SAVE IN COUNTERSrrrrtARMD'NtEVTM4rr
       1141627057 1470114566 6455241100 4354454162 4041564440 4144526563 6440575645 4043576556 tARXO'XtEVTM4t CLEAR AND ADJUST ONE COUN
       6445621515 1141625544 1145664154 7211006245 6345644043 5756636441 5664405746 4663456440 TERrrtARMDtEVALZt RESET CONSTANT OFFSET 
       6641546545 1515151515 1155444162 1451114566 6064621100 6345644060 5751566445 6240424143 VALUErrrrrtMDAR'ItEVPTRt SET POINTER BAC
       5340645740 4162624171 4063715542 5754151515 1155444162 1441114155 4163531515 1141625544 K TO ARRAY SYMBOLrrrtMDAR'AtAMASKrrtARMD
       1145664154 6315151515 1141625544 1145664154 7015151515 1141625544 1145666455 2115151515 tEVALSrrrrtARMDtEVALXrrrrtARMDtEVTM1rrrr
       1155444162 1451114566 4154631100 4745644041 4444624563 6340574640 4451554556 6351575640 tMDAR'ItEVALSt GET ADDRESS OF DIMENSION 
       6441425445 1515151515 1155444162 1441114155 4163531100 4040406057 5156644562 1515151515 TABLErrrrrtMDAR'AtAMASKt    POINTERrrrrr
       1155444163 1446145611 2115151515 1141625544 1145664154 6615151515 1155444162 1451145011 tMDAS'F'Nt1rrrrtARMDtEVALVrrrrtMDAR'I'Ht
       4566415466 1100474564 4041444462 4563634057 4640445155 4556635157 5640545163 6415151515 EVALVt GET ADDRESS OF DIMENSION LISTrrrr
       1155444162 1441114155 4163531515 1155444163 1446112115 1141625544 1145664154 6611004040 tMDAR'AtAMASKrrtMDAS'Ft1rtARMDtEVALVt   
       4041564440 6341664515 1141625544 1145664154 6715151515 1155444162 1446114566 6455273521  AND SAVErtARMDtEVALWrrrrtMDAR'FtEVTM7-1
       1100515651 6451415451 7245406365 4263436251 6064406057 5156644562 4054516364 1515151515 t INITIALIZE SUBSCRIPT POINTER LISTrrrrr
       1141625544 1145666455 2215151515 1155444162 1451145011 4566415463 1100474564 4044416441 tARMDtEVTM2rrrrtMDAR'I'HtEVALSt GET DATA
       4064716045 1515151515 1155444162 1441114327 1515151515 1155444163 1446145611 2411004040  TYPErrrrrtMDAR'AtC7rrrrrtMDAS'F'Nt4t   
       4041564440 6345644054 4556476450 4046544147 4051464064 6757151515 1141625544 1456114566  AND SET LENGTH FLAG IF TWOrrrtARMD'NtEV
       4154541100 4040406757 6244404556 6462514563 4051564041 6262417115 1515151515 4566542106 ALLt    WORD ENTRIES IN ARRAYrrrrrrEVL1:
       1155444162 1145666455 2111004241 4353405746 4640636441 4353406057 5156644562 1515151515 tMDARtEVTM1t BACK OFF STACK POINTERrrrrr
       1155444163 1446145611 2115151515 1141625544 1145666455 2115151515 1155444162 1451114566 tMDAS'F'Nt1rrrrtARMDtEVTM1rrrrtMDAR'ItEV
       6455211100 5760456241 5644401215 1152604156 1145665421 1100526555 6040514640 5760456241 TM1t OPERAND ?rtJPANtEVL1t JUMP IF OPERA
       6457621515 1515151515 1155444162 1145666455 2111006341 6645404144 4462456363 4057564063 TORrrrrrrrtMDARtEVTM1t SAVE ADDRESS ON S
       6542634362 5160644054 5163641515 1141625544 1451147011 4566645522 1515151515 1155444162 UBSCRIPT LISTrrtARMD'I'XtEVTM2rrrrrtMDAR
       1470145611 4566645523 1100455644 4057464063 6542634362 5160646340 1215151515 1152605463 'X'NtEVTM3t END OF SUBSCRIPTS ?rrrrtJPLS
       1145665421 1100624560 4541644051 4640565764 1515151515 1515151515 1155444162 1163654263 tEVL1t REPEAT IF NOTrrrrrrrrrrtMDARtSUBS
       4615151515 1152605463 1136102215 1515151515 1152655560 1145665421 2011004554 6345404757 FrrrrtJPLSt.+2rrrrrrtJUMPtEVL10t ELSE GO
       4043575560 6564451515 1515151515 7777700000 4016700303 4016700303 4016700303 4016700303  COMPUTErrrrrrrbbX   (X!! (X!! (X!! (X!!
       4016700303 4016700303 4016700303 4016700303 4016700303 4016700303                        (X!! (X!! (X!! (X!! (X!! (X!!
 1355: 0005300015 4664562025 1361200401 3414400000 4566543120 0611526063 6211636457 4162110063  *8 rFTN05"Q0&%,'   EVL90:tJPSRtSTOARt S
       6457624540 4162405146 4041567115 1155444162 1446151515 1155444163 1145664154 7111004745 TORE AR IF ANYrtMDAR'FrrrtMDAStEVALYt GE
       6440135544 4162144640 5663654263 1315151515 1141625544 1456114566 4154711515 1152606362 T "MDAR'F NSUBS"rrrrtARMD'NtEVALYrrtJPSR
       1145665741 4211005765 6460656415 1152606362 1157637162 4611005765 6460656440 5764634043 tEVOABt OUTPUTrtJPSRtOSYRFt OUTPUT OTS C
       4154544064 5740246365 4263151515 1152606362 1124636542 6315151515 1155444162 1451114566 ALL TO 4SUBSrrrtJPSRt4SUBSrrrrtMDAR'ItEV
       4154631100 4645644350 4041444462 4563634057 4640416262 4171151515 1155444162 1441114155 ALSt FETCH ADDRESS OF ARRAYrrrtMDAR'AtAM
       4163531515 1155444162 1457114355 4441623646 1515151515 1152606362 1145576245 4611005765 ASKrrtMDAR'OtCMDAR.FrrrrrtJPSRtEOREFt OU
       6460656440 1355444162 1446404144 4462131515 1155444162 1145664154 6315151515 1155444162 TPUT "MDAR'F ADDR"rrtMDARtEVALSrrrrtMDAR
       1446114566 6455273521 1100634564 6560406057 5156644562 4064574063 6542634362 5160644054 'FtEVTM7-1t SETUP POINTER TO SUBSCRIPT L
       5163641515 1141625544 1145666455 2115151515 1515151515 4566543121 0611554441 6214511470 ISTrrtARMDtEVTM1rrrrrrrrrEVL91:tMDAR'I'X
       1145666455 2111004645 6443504056 4570644063 6542634362 5160641515 1141625544 1145666455 tEVTM1t FETCH NEXT SUBSCRIPTrrtARMDtEVTM
       2515151515 1152606362 1143534357 5611004357 5663644156 6440121515 1152655560 1145665431 5rrrrtJPSRtCKCONt CONSTANT ?rrtJUMPtEVL9
       2211005265 5560405146 4056576415 1515151515 1155444162 1441114155 4163531100 5541635340 2t JUMP IF NOTrrrrrrtMDAR'AtAMASKt MASK 
       4357566364 4156641515 1155444162 1457114355 4441633646 1100404040 4156444057 6564606564 CONSTANTrrtMDAR'OtCMDAS.Ft    AND OUTPUT
       4013554441 6314464043 5756636413 1515151515 1152606362 1145665741 4215151515 1152655560  "MDAS'F CONST"rrrrrtJPSRtEVOABrrrrtJUMP
       1145665431 2411004757 4057656460 6564405451 5551646315 1515151515 4566543122 0611554441 tEVL94t GO OUTPUT LIMITSrrrrrrEVL92:tMDA
       6211456664 5525110047 4556456241 6445401355 4441624040 6641546545 1315151515 1152606362 RtEVTM5t GENERATE "MDAR  VALUE"rrrrtJPSR
       1145436246 1515151515 1155444162 1143554441 6215151515 1515151515 4566543124 0611554441 tECRFrrrrrtMDARtCMDARrrrrrrrrrEVL94:tMDA
       6214461127 2727272611 0063456440 4357655664 4046576240 2215151515 1141625544 1145666455 R'Ft77776t SET COUNT FOR 2rrrrtARMDtEVTM
       2515151515 1155444162 1446114355 4441623646 1100634564 4046516263 6440515663 6462654364 5rrrrtMDAR'FtCMDAR.Ft SET FIRST INSTRUCT
       5157564064 5740135544 4162144613 1515151515 1141625544 1145666455 2415151515 1515151515 ION TO "MDAR'F"rrrrrtARMDtEVTM4rrrrrrrrr
       4566543123 0611554441 6214511470 1145664154 6711004645 6443504056 4570644054 5155516415 EVL93:tMDAR'I'XtEVALWt FETCH NEXT LIMITr
       1152604156 1136102411 0052655560 4051464060 5751566445 6215151515 1515151515 1155444162 tJPANt.+4t JUMP IF POINTERrrrrrrrrrtMDAR
       1451145711 4566645524 1100576564 6065644041 4263575465 6445151515 1152606362 1145665741 'I'OtEVTM4t OUTPUT ABSOLUTErrrtJPSRtEVOA
       4215151515 1152655560 1136102415 1515151515 1155444162 1441114155 4163531100 5762401355 BrrrrtJUMPt.+4rrrrrrtMDAR'AtAMASKt OR "M
       4441624040 6641546545 1340514640 6057515664 4562151515 1155444162 1457114355 4441621515 DAR  VALUE" IF POINTERrrrtMDAR'OtCMDARrr
       1152606362 1157624546 1515151515 1515151515 1155444162 1446114355 4441633646 1100634564 tJPSRtOREFrrrrrrrrrrtMDAR'FtCMDAS.Ft SET
       4056457064 4051566364 6236406457 4013554441 6314461315 1141625544 1145666455 2415151515  NEXT INSTR. TO "MDAS'F"rtARMDtEVTM4rrrr
       1155444162 1470114566 6455251100 4457564540 6467574067 5762446340 1215151515 1152605463 tMDAR'XtEVTM5t DONE TWO WORDS ?rrrrtJPLS
       1145665431 2311006245 6045416440 5146405657 6415151515 1515151515 1155444162 1470145611 tEVL93t REPEAT IF NOTrrrrrrrrrtMDAR'X'Nt
       4566415471 1100455644 4057464063 6542634362 5160646340 1215151515 1152605463 1145665431 EVALYt END OF SUBSCRIPTS ?rrrrtJPLStEVL9
       2111006245 6045416440 5146405657 6415151515 1515151515 1152655560 1145665430 2011004757 1t REPEAT IF NOTrrrrrrrrrtJUMPtEVL80t GO
       4057656460 6564406445 5560364063 6457624515 7777700000 1676364372 1676364372 1676364372  OUTPUT TEMP. STORErbbX  (+.CZ(+.CZ(+.CZ
       1676364372 1676364372 1676364372 1676364372 1676364372 1676364372 1676364372            (+.CZ(+.CZ(+.CZ(+.CZ(+.CZ(+.CZ(+.CZ
 1355: 0005400015 4664562025 1361200401 3414400000 4566542120 0611554441 6214511470 1145664154  *  rFTN05"Q0&%,'   EVL10:tMDAR'I'XtEVAL
       6611004645 6443504013 5155417013 1515151515 1141625544 1145666455 2111004040 4041564440 Vt FETCH "IMAX"rrrrrtARMDtEVTM1t    AND 
       6341664515 1155444162 1451147011 4566415466 1100464564 4350401351 2013404156 4415151515 SAVErtMDAR'I'XtEVALVt FETCH "I0" ANDrrrr
       1152604156 1145665431 2011004040 4047574057 6564606564 4043415454 4051464056 5764404357 tJPANtEVL90t    GO OUTPUT CALL IF NOT CO
       5663644156 6415151515 1515151515 1141624162 1446145015 1141626263 1121253615 1156575760 NSTANTrrrrrrrrrtARAR'F'HrtARRSt15.rtNOOP
       1515151515 1141625544 1456114566 4154721100 6341664540 4163404357 5663644156 6440574646 rrrrrtARMD'NtEVALZt SAVE AS CONSTANT OFF
       6345641515 1155444162 1450147014 5611456664 5524110057 5654714057 5645406365 4263436251 SETrrtMDAR'H'X'NtEVTM4t ONLY ONE SUBSCRI
       6064401215 1152604156 1145665426 2011005265 5560405146 4057564515 1515151515 1155444162 PT ?rtJPANtEVL60t JUMP IF ONErrrrrrtMDAR
       1145666455 2111006741 6340135155 4170134043 5756636441 5664401215 1152604156 1145665431 tEVTM1t WAS "IMAX" CONSTANT ?rtJPANtEVL9
       2011004757 4057656460 6564404341 5454405146 4056576415 1515151515 1155444162 1451147011 0t GO OUTPUT CALL IF NOTrrrrrrtMDAR'I'Xt
       4566415466 1100464564 4350401352 5541701315 1141625544 1145666455 2211004040 4041564440 EVALVt FETCH "JMAX"rtARMDtEVTM2t    AND 
       6341664515 1155444162 1451147011 4566415466 1100464564 4350401352 2013404156 4415151515 SAVErtMDAR'I'XtEVALVt FETCH "J0" ANDrrrr
       1152604156 1145665431 2011004040 4047574057 6564606564 4043415454 4051464056 5764404357 tJPANtEVL90t    GO OUTPUT CALL IF NOT CO
       5663644156 6415151515 1155607154 1145666455 2111004745 6440135155 4170055220 1315151515 NSTANTrrrrtMPYLtEVTM1t GET "IMAX*J0"rrrr
       1156575760 1515151515 1141626263 1121151515 1155444145 1456114566 4154721100 4040404156 tNOOPrrrrrtARRSt1rrrtMDAE'NtEVALZt    AN
       4440636542 6462414364 4046625755 4057464663 4564151515 1141625544 1456114566 4154721515 D SUBTRACT FROM OFFSETrrrtARMD'NtEVALZrr
       1155444162 1450147014 5611456664 5524110057 5654714064 6757406365 4263436251 6064634012 tMDAR'H'X'NtEVTM4t ONLY TWO SUBSCRIPTS ?
       1515151515 1152604156 1145665424 2011005265 5560405146 4064675715 1515151515 1155444162 rrrrrtJPANtEVL40t JUMP IF TWOrrrrrrtMDAR
       1145666455 2211006741 6340135255 4170134043 5756636441 5664401215 1152604156 1145665431 tEVTM2t WAS "JMAX" CONSTANT ?rtJPANtEVL9
       2011004757 4057656460 6564404341 5454405146 4056576415 1515151515 1155444162 1451147011 0t GO OUTPUT CALL IF NOTrrrrrrtMDAR'I'Xt
       4566415466 1100464564 4350401353 5541701315 1141625544 1145666455 2311004040 4041564440 EVALVt FETCH "KMAX"rtARMDtEVTM3t    AND 
       6341664515 1155444162 1451147011 4566415466 1100464564 4350401353 2013404156 4415151515 SAVErtMDAR'I'XtEVALVt FETCH "K0" ANDrrrr
       1152604156 1145665431 2011004040 4047574057 6564606564 4043415454 4051464056 5764404357 tJPANtEVL90t    GO OUTPUT CALL IF NOT CO
       5663644156 6415151515 1515151515 1155607154 1145666455 2211004745 6440135155 4170055255 NSTANTrrrrrrrrrtMPYLtEVTM2t GET "IMAX*JM
       4170055320 1315151515 1156575760 1515151515 1155607154 1145666455 2115151515 1156575760 AX*K0"rrrrtNOOPrrrrrtMPYLtEVTM1rrrrtNOOP
       1515151515 1141626263 1122151515 1155444145 1456114566 4154721100 4156444063 6542646241 rrrrrtARRSt2rrrtMDAE'NtEVALZt AND SUBTRA
       4364404662 5755405746 4663456440 6641546545 1515151515 1141625544 1456114566 4154721515 CT FROM OFFSET VALUErrrrrtARMD'NtEVALZrr
       1515151515 1155444162 1145666455 3111004350 4543534051 4640135313 4051634043 5756636441 rrrrrtMDARtEVTM9t CHECK IF "K" IS CONSTA
       5664151515 1152606362 1143534357 5615151515 1152655560 1145665422 2011005265 5560405146 NTrrrtJPSRtCKCONrrrrtJUMPtEVL20t JUMP IF
       4056576415 1515151515 1155607154 1145666455 2111004357 5560656445 4013515541 7005525541  NOTrrrrrrtMPYLtEVTM1t COMPUTE "IMAX*JMA
       7005531315 1156575760 1515151515 1155607154 1145666455 2215151515 1156575760 1515151515 X*K"rtNOOPrrrrrtMPYLtEVTM2rrrrtNOOPrrrrr
       1141626263 1122151515 1155444145 1145664154 7211004156 4440414444 4064574057 4646634564 tARRSt2rrrtMDAEtEVALZt AND ADD TO OFFSET
       1515151515 1141625544 1145664154 7215151515 7777700000 1540220330 1540220330 1540220330 rrrrrtARMDtEVALZrrrrbbX  r 2!8r 2!8r 2!8
       1540220330 1540220330 1540220330 1540220330 1540220330 1540220330 1540220330            r 2!8r 2!8r 2!8r 2!8r 2!8r 2!8r 2!8
 1300: 0005500015 4664562025 1361200366 3414400000 4566542420 0611554441 6211456664 5530110043  *H rFTN05"Q0!V,'   EVL40:tMDARtEVTM8t C
       5045435340 5146401352 1340516340 4357566364 4156641515 1152606362 1143534357 5615151515 HECK IF "J" IS CONSTANTrrtJPSRtCKCONrrrr
       1152655560 1145665425 2011005265 5560405146 4056576415 1515151515 1155607154 1145666455 tJUMPtEVL50t JUMP IF NOTrrrrrrtMPYLtEVTM
       2111004357 5560656445 4013515541 7005521315 1156575760 1515151515 1141626263 1121151515 1t COMPUTE "IMAX*J"rtNOOPrrrrrtARRSt1rrr
       1155444145 1145664154 7211004156 4440414444 4064574057 4646634564 4066415465 4515151515 tMDAEtEVALZt AND ADD TO OFFSET VALUErrrr
       1141625544 1145664154 7215151515 1515151515 4566542620 0611554441 6211456664 5527110043 tARMDtEVALZrrrrrrrrrEVL60:tMDARtEVTM7t C
       5045435340 5146401351 1340516340 4357566364 4156641515 1152606362 1143534357 5615151515 HECK IF "I" IS CONSTANTrrtJPSRtCKCONrrrr
       1152655560 1145665426 2511005265 5560405146 4056576415 1515151515 1155444145 1145664154 tJUMPtEVL65t JUMP IF NOTrrrrrrtMDAEtEVAL
       7211004144 4440135113 4064574057 4646634564 4066415465 4515151515 1141624162 1446145615 Zt ADD "I" TO OFFSET VALUErrrrtARAR'F'Nr
       1155444163 1446145611 2015151515 1141624162 1446145615 1141625544 1145664154 7215151515 tMDAS'F'Nt0rrrrtARAR'F'NrtARMDtEVALZrrrr
       1152605463 1145665423 2011005265 5560405146 4041567140 5746466345 6415151515 1515151515 tJPLStEVL30t JUMP IF ANY OFFSETrrrrrrrrr
       1155444162 1451114566 4154631100 5146405657 4057464663 4564344063 4564406371 5542575415 tMDAR'ItEVALSt IF NO OFFSET, SET SYMBOLr
       1155444162 1441145432 1135272620 2020035011 0040404044 5162454364 4062454645 6245564345 tMDAR'A'L;t-76000!Ht    DIRECT REFERENCE
       1515151515 1141625544 1451114566 4154631515 1152655560 1145664154 2711004156 4440475740 rrrrrtARMD'ItEVALSrrtJUMPtEVAL7t AND GO 
       4556441515 1515151515 4566542720 0611554441 6214461143 5544416236 4611004745 6440414444 ENDrrrrrrrEVL70:tMDAR'FtCMDAR.Ft GET ADD
       6245636340 5746401355 4441621446 1340515663 6462361515 1141625544 1145666455 2111006341 RESS OF "MDAR'F" INSTR.rrtARMDtEVTM1t SA
       6645406057 5156644562 4064574051 5663646265 4364515756 1515151515 1152606362 1163645741 VE POINTER TO INSTRUCTIONrrrrrtJPSRtSTOA
       6211006364 5762454041 6240514640 5645434563 6341627115 1515151515 4566542721 0611554441 Rt STORE AR IF NECESSARYrrrrrrEVL71:tMDA
       6214511450 1145664154 6311006371 5542575440 4140605751 5664456240 1215151515 1155444162 R'I'HtEVALSt SYMBOL A POINTER ?rrrrtMDAR
       1441144611 2326202020 1515151515 1155447057 1446112124 2020201515 1152605463 1145665427 'A'Ft36000rrrrrtMDXO'Ft14000rrtJPLStEVL7
       2211006245 4645624556 4345406751 6450405746 4663456440 5146405657 6415151515 1515151515 2t REFERENCE WITH OFFSET IF NOTrrrrrrrrr
       4566542723 0611526063 6211634564 4155110063 4564405541 4350515645 4043574445 4055574445 EVL73:tJPSRtSETAMt SET MACHINE CODE MODE
       1515151515 1155444162 1451114566 4154631100 5765646065 6440135544 4162144640 4041444462 rrrrrtMDAR'ItEVALSt OUTPUT "MDAR'F  ADDR
       1315151515 1155444162 1441114155 4163531100 4040404657 6240416262 4171406371 5542575415 "rrrrtMDAR'AtAMASKt    FOR ARRAY SYMBOLr
       1155444162 1457145111 4566645521 1100404040 1657624013 5544414514 4640414444 6213171515 tMDAR'O'ItEVTM1t    (OR "MDAE'F ADDR")rr
       1152606362 1157624546 1515151515 1515151515 4566542725 0611554441 6214561145 6641547211 tJPSRtOREFrrrrrrrrrrEVL75:tMDAR'NtEVALZt
       0041567140 5746466345 6440121515 1155444163 1446145611 2015151515 1141624162 1446145615  ANY OFFSET ?rrtMDAS'F'Nt0rrrrtARAR'F'Nr
       1152605463 1136102215 1152655560 1145665430 2011005265 5560405146 4056575645 1515151515 tJPLSt.+2rtJUMPtEVL80t JUMP IF NONErrrrr
       1515151515 1155444162 1145664154 5411006467 5740675762 4440544556 4764504012 1515151515 rrrrrtMDARtEVALLt TWO WORD LENGTH ?rrrrr
       1152604156 1136102311 0052655560 4051464071 4563151515 1515151515 1155444162 1145664154 tJPANt.+3t JUMP IF YESrrrrrrrrtMDARtEVAL
       7211004645 6443504057 4646634564 1515151515 1152655560 1136102211 0041564440 6353516015 Zt FETCH OFFSETrrrrrtJUMPt.+2t AND SKIPr
       1515151515 7777700000 7034510464 7034510464 7034510464 7034510464 7034510464 7034510464 rrrrrbbX  X,I&TX,I&TX,I&TX,I&TX,I&TX,I&T
       7034510464 7034510464 7034510464 7034510464                                             X,I&TX,I&TX,I&TX,I&T
 1450: 0005600015 4664562025 1361200424 3414400000 1155444162 1442114566 4154721100 4645644350  *P rFTN05"Q0&4,'   tMDAR'BtEVALZt FETCH
       4057464663 4564052215 1155444162 1441114155 4163531515 1155444162 1457114355 4441633646  OFFSET*2rtMDAR'AtAMASKrrtMDAR'OtCMDAS.F
       1100576564 6065644013 5544416314 4640405746 4663456413 1515151515 1152606362 1145665741 t OUTPUT "MDAS'F  OFFSET"rrrrrtJPSRtEVOA
       4215151515 1515151515 4566543020 0611554441 6214511450 1145664154 6311004645 6443504067 BrrrrrrrrrEVL80:tMDAR'I'HtEVALSt FETCH W
       5762444046 6257554063 6441435315 1141625544 1145666455 2211006341 6645151515 1155444162 ORD FROM STACKrtARMDtEVTM2t SAVErrrtMDAR
       1441145432 1121262711 0055416353 4044416441 4064716045 1515151515 1141625544 1450114566 'A'L;t167t MASK DATA TYPErrrrrtARMD'HtEV
       6455211100 6245636457 6245151515 1155444162 1451145014 5611456641 5463110075 4046544147 TM1t RESTORErrrtMDAR'I'H'NtEVALSt @ FLAG
       4063456440 1215151515 1155444162 1441144611 2120151515 1152605463 1145665430 2311006353  SET ?rrrrtMDAR'A'Ft10rrrtJPLStEVL83t SK
       5160405766 4562405146 4056576415 1515151515 1155444162 1450114566 6455211100 6345644041 IP OVER IF NOTrrrrrrtMDAR'HtEVTM1t SET A
       6240455664 6271404357 5664415156 5156471515 1155444163 1446112126 2020201100 4040404144 R ENTRY CONTAININGrrtMDAS'Ft16000t    AD
       4462456363 4057464041 6262417140 4556646271 1515151515 1141625544 1451145011 4566415463 DRESS OF ARRAY ENTRYrrrrrtARMD'I'HtEVALS
       1515151515 1155444162 1145664154 6311006345 6440416240 6057515664 4562151515 1141625544 rrrrrtMDARtEVALSt SET AR POINTERrrrtARMD
       1145666641 6015151515 1141625544 1457114566 6641461100 4040404156 4440465441 4715151515 tEVVAPrrrrtARMD'OtEVVAFt    AND FLAGrrrr
       1152655560 1145664154 2711004757 4045564415 1515151515 4566543023 0611526063 6211476445 tJUMPtEVAL7t GO ENDrrrrrrEVL83:tJPSRtGTE
       5560110047 4564406445 5560576241 6271406364 5762414745 4043455454 1515151515 1155444162 MPt GET TEMPORARY STORAGE CELLrrrrrtMDAR
       1457114566 6455211100 4357554251 5645405156 6457405645 6740675762 4415151515 1141625544 'OtEVTM1t COMBINE INTO NEW WORDrrrrtARMD
       1451114566 4154631100 6341664540 5156406364 4143531515 1155444162 1441114155 4163531515 'ItEVALSt SAVE IN STACKrrtMDAR'AtAMASKrr
       1155444162 1457114341 6255441515 1152606362 1157624546 1100576564 6065644013 4162554440 tMDAR'OtCARMDrrtJPSRtOREFt OUTPUT "ARMD 
       4040644555 6013151515 1155444162 1456114566 6455221100 7440465441 4740634564 4012151515   TEMP"rrrtMDAR'NtEVTM2t # FLAG SET ?rrr
       1155444162 1441144611 2120202015 1152605463 1145665430 2211004757 4045564440 5146405657 tMDAR'A'Ft1000rtJPLStEVL82t GO END IF NO
       6415151515 1515151515 1155444162 1145664154 6311005765 6460656440 4013554441 6214514040 TrrrrrrrrrtMDARtEVALSt OUTPUT  "MDAR'I  
       6445556013 1515151515 1152606362 1145436246 1100404040 4657545457 6745444042 7140401341 TEMP"rrrrrtJPSRtECRFt    FOLLOWED BY  "A
       6255444040 6445556013 1515151515 1155444162 1143554441 6236511515 1155444162 1145664154 RMD  TEMP"rrrrrtMDARtCMDAR.IrrtMDARtEVAL
       6315151515 1152606362 1145436246 1515151515 1155444162 1143416255 4415151515 1515151515 SrrrrtJPSRtECRFrrrrrtMDARtCARMDrrrrrrrrr
       4566543022 0611554441 6214511450 1145664154 6311006345 6440744046 5441474046 5762151515 EVL82:tMDAR'I'HtEVALSt SET # FLAG FORrrr
       1155444163 1446112120 2020110040 4040515644 5162454364 4062454645 6245564345 1515151515 tMDAS'Ft1000t    INDIRECT REFERENCErrrrr
       1141625544 1451145011 4566415463 1515151515 1152655560 1145664154 2611004757 4045564415 tARMD'I'HtEVALSrrrrrtJUMPtEVAL6t GO ENDr
       1515151515 4566542722 0611554441 6211456641 5454110064 6757406757 6244405445 5647645040 rrrrrEVL72:tMDARtEVALLt TWO WORD LENGTH 
       1215151515 1152604156 1136102311 0063535160 4051464071 4563151515 1515151515 1155444162 ?rrrrtJPANt.+3t SKIP IF YESrrrrrrrrtMDAR
       1145664154 7211004645 6443504057 5645356757 6244405445 5647645015 1152655560 1136102215 tEVALZt FETCH ONE-WORD LENGTHrtJUMPt.+2r
       1155444162 1442114566 4154721100 4645644350 4064675735 6757624440 5445564764 5015151515 tMDAR'BtEVALZt FETCH TWO-WORD LENGTHrrrr
       1515151515 1155444163 1446112122 2011005445 6363406450 4156402122 2040121515 1152604156 rrrrrtMDAS'Ft120t LESS THAN 120 ?rrtJPAN
       1145665427 2311004757 4057656460 6564404665 5454406345 6165455643 4540514640 5657641515 tEVL73t GO OUTPUT FULL SEQUENCE IF NOTrr
       1155444163 1446145611 2122201100 4554634534 4062456364 5762451515 1141625544 1157625746 tMDAS'F'Nt120t ELSE, RESTORErrtARMDtOROF
       6311004040 4041564440 6345644062 4546456245 5643454057 4646634564 1515151515 7777700000 St    AND SET REFERENCE OFFSETrrrrrbbX  
       7102523141 7102523141 7102523141 7102523141 7102523141 7102523141 7102523141 7102523141 YcJ9AYcJ9AYcJ9AYcJ9AYcJ9AYcJ9AYcJ9AYcJ9A
       7102523141 7102523141                                                                   YcJ9AYcJ9A
 1125: 0005700015 4664562025 1361200323 3414400000 1141627057 1446111100 6245634564 4041567140  *X rFTN05"Q0!3,'   tARXO'Ftt RESET ANY 
       5764504562 4057464663 4564406641 5465451515 1141625544 1145664154 7215151515 1152655560 OTHER OFFSET VALUErrtARMDtEVALZrrrrtJUMP
       1145665427 2311004757 4060625743 4563631515 1515151515 4566542320 0611554441 6214511450 tEVL73t GO PROCESSrrrrrrrEVL30:tMDAR'I'H
       1145664154 6311005163 4063715542 5754404140 6057515664 4562401215 1155444162 1441144611 tEVALSt IS SYMBOL A POINTER ?rtMDAR'A'Ft
       2326202020 1515151515 1141625544 1145666455 2115151515 1155447057 1446112124 2020201515 36000rrrrrtARMDtEVTM1rrrrtMDXO'Ft14000rr
       1152605463 1145665423 2111005265 5560405146 4056571515 1515151515 1152606362 1163645741 tJPLStEVL31t JUMP IF NOrrrrrrrtJPSRtSTOA
       6211006364 5762454041 6215151515 1152655560 1145665427 2011004757 4044574046 6554544043 Rt STORE ARrrrrtJUMPtEVL70t GO DO FULL C
       5755606564 4164515756 1515151515 1515151515 4566542321 0611554441 6214511450 1145664154 OMPUTATIONrrrrrrrrrrEVL31:tMDAR'I'HtEVAL
       6311006345 6440574646 6345644067 5762444046 5754545767 5156471515 1155444162 1441145432 St SET OFFSET WORD FOLLOWINGrrtMDAR'A'L;
       1135232620 2020151515 1155444162 1457145432 1121202020 2015151515 1141625544 1451145011 t-36000rrrtMDAR'O'L;t10000rrrrtARMD'I'Ht
       4566415463 1515151515 1155444162 1145664154 7011004241 4353406560 4063644143 5340605751 EVALSrrrrrtMDARtEVALXt BACK UP STACK POI
       5664456215 1155444163 1446145611 2115151515 1141625544 1145664154 7015151515 1155444162 NTERrtMDAS'F'Nt1rrrrtARMDtEVALXrrrrtMDAR
       1450114566 4154721100 6345644057 4646634564 4067576244 4051566457 4063644143 5315151515 'HtEVALZt SET OFFSET WORD INTO STACKrrrr
       1155444162 1457145432 1127272727 2615151515 1141625544 1451145011 4566415470 1515151515 tMDAR'O'L;t77776rrrrtARMD'I'HtEVALXrrrrr
       1155444162 1145666455 2111006741 6340637155 4257544045 7064456256 4154401215 1155447057 tMDARtEVTM1t WAS SYMBOL EXTERNAL ?rtMDXO
       1446112122 2020201115 1152605463 1145664154 2711004757 4045564440 5146405657 6415151515 'Ft12000trtJPLStEVAL7t GO END IF NOTrrrr
       1515151515 1155444162 1451145011 4566415463 1100634564 4064675735 6757624440 6245464562 rrrrrtMDAR'I'HtEVALSt SET TWO-WORD REFER
       4556434540 4251644051 5640644142 5445151515 1155444162 1457145311 4322151515 1141625544 ENCE BIT IN TABLErrrtMDAR'O'KtC2rrrtARMD
       1451145011 4566415463 1515151515 1152655560 1145664154 2711004757 4045564415 1515151515 'I'HtEVALSrrrrrtJUMPtEVAL7t GO ENDrrrrrr
       1515151515 4566542625 0611554441 6211456641 5454110064 6757406757 6244405445 5647645040 rrrrrEVL65:tMDARtEVALLt TWO WORD LENGTH 
       1215151515 1152604156 1145665426 2611005265 5560405146 4071456315 1515151515 1155444162 ?rrrrtJPANtEVL66t JUMP IF YESrrrrrrtMDAR
       1145666455 2711004645 6443504013 5113405156 6457404162 1515151515 1152606362 1145664741 tEVTM7t FETCH "I" INTO ARrrrrrtJPSRtEVGA
       7015151515 1156575760 1515151515 1155444162 1143554441 6215151515 1152655560 1145665425 XrrrrtNOOPrrrrrtMDARtCMDARrrrrtJUMPtEVL5
       3011005265 5560405766 4562151515 1515151515 4566542626 0611554441 6211456664 5527110046 8t JUMP OVERrrrrrrrrEVL66:tMDARtEVTM7t F
       4564435040 1351134051 5664574041 6215151515 1152606362 1145664741 7011004040 4062576441 ETCH "I" INTO ARrrrrtJPSRtEVGAXt    ROTA
       6445444054 4546644057 5645404251 6415151515 1141624162 1446144215 1155444162 1143554441 TED LEFT ONE BITrrrrtARAR'F'BrtMDARtCMDA
       6236421515 1152655560 1145665425 3015151515 1515151515 1515151515 7777700000 7663537271 R.BrrtJUMPtEVL58rrrrrrrrrrrrrrbbX  +SKZY
       7663537271 7663537271 7663537271 7663537271 7663537271 7663537271 7663537271 7663537271 +SKZY+SKZY+SKZY+SKZY+SKZY+SKZY+SKZY+SKZY
       7663537271                                                                              +SKZY
  905: 0006000015 4664562025 1361200247 3414400000 4566542520 0611554441 6211456664 5530110046  :  rFTN05"Q0cG,'   EVL50:tMDARtEVTM8t F
       4564435040 1352134051 5664574041 6215151515 1152606362 1145664741 7015151515 1156575760 ETCH "J" INTO ARrrrrtJPSRtEVGAXrrrrtNOOP
       1515151515 1155444162 1143554441 6215151515 1515151515 4566542522 0611554441 6211456664 rrrrrtMDARtCMDARrrrrrrrrrEVL52:tMDARtEVT
       5521110055 6554645160 5471404271 4013515541 7013151515 1152606362 1145665755 6015151515 M1t MULTIPLY BY "IMAX"rrrtJPSRtEVOMPrrrr
       1155444162 1145664154 5415151515 1515151515 4566542524 0611554441 6211456664 5527110051 tMDARtEVALLrrrrrrrrrEVL54:tMDARtEVTM7t I
       6340135113 4041404357 5663644156 6440121515 1152606362 1143534357 5615151515 1152655560 S "I" A CONSTANT ?rrtJPSRtCKCONrrrrtJUMP
       1145665425 2611005265 5560405146 4056571515 1515151515 1155444145 1145664154 7211004144 tEVL56t JUMP IF NOrrrrrrrtMDAEtEVALZt AD
       4440135113 4064574057 4646634564 4066415465 4515151515 1141625544 1145664154 7215151515 D "I" TO OFFSET VALUErrrrtARMDtEVALZrrrr
       1515151515 4566542530 0611554441 6214461143 5544414536 4611005765 6460656440 4040135544 rrrrrEVL58:tMDAR'FtCMDAE.Ft OUTPUT   "MD
       4145144640 4041444462 1315151515 1141625544 1145666455 2115151515 1152655560 1145665427 AE'F  ADDR"rrrrtARMDtEVTM1rrrrtJUMPtEVL7
       2115151515 1515151515 4566542526 0611554441 6211456641 5454110064 6757406757 6244405445 1rrrrrrrrrEVL56:tMDARtEVALLt TWO WORD LE
       5647645040 1215151515 1152604156 1145665425 2711005265 5560405146 4071456315 1515151515 NGTH ?rrrrtJPANtEVL57t JUMP IF YESrrrrrr
       1155444162 1145666455 2711005765 6460656440 4040135544 4145404051 1315151515 1152606362 tMDARtEVTM7t OUTPUT   "MDAE  I"rrrrtJPSR
       1145436246 1515151515 1155444162 1143554441 4515151515 1152655560 1145665425 3011006353 tECRFrrrrrtMDARtCMDAErrrrtJUMPtEVL58t SK
       5160405766 4562151515 1515151515 4566542527 0611554441 6211456664 5527110057 6564606564 IP OVERrrrrrrrrEVL57:tMDARtEVTM7t OUTPUT
       4040135544 4145144240 4051131515 1152606362 1145436246 1515151515 1155444162 1143554441   "MDAE'B  I"rrtJPSRtECRFrrrrrtMDARtCMDA
       4536421515 1152655560 1145665425 3011004757 4041444440 4144446245 6363151515 1515151515 E.BrrtJUMPtEVL58t GO ADD ADDRESSrrrrrrrr
       1515151515 4566542220 0611554441 6211456664 5531110047 4564405340 5156645740 4162151515 rrrrrEVL20:tMDARtEVTM9t GET K INTO ARrrr
       1152606362 1145664741 7015151515 1156575760 1515151515 1155444162 1143554441 6215151515 tJPSRtEVGAXrrrrtNOOPrrrrrtMDARtCMDARrrrr
       1515151515 4566542222 0611554441 6211456664 5530110051 6340135213 4041404357 5663644156 rrrrrEVL22:tMDARtEVTM8t IS "J" A CONSTAN
       6440121515 1152606362 1143534357 5615151515 1152655560 1145665422 2611005265 5560405146 T ?rrtJPSRtCKCONrrrrtJUMPtEVL26t JUMP IF
       4056576415 1515151515 7777700000 5557151434 5557151434 5557151434 5557151434 5557151434  NOTrrrrrrbbX  MOr',MOr',MOr',MOr',MOr',
       5557151434 5557151434 5557151434 5557151434 5557151434                                  MOr',MOr',MOr',MOr',MOr',
 1095: 0006100015 4664562025 1361200315 3414400000 1155607154 1145666455 2111004745 6440135155  :+ rFTN05"Q0!r,'   tMPYLtEVTM1t GET "IM
       4170055213 1515151515 1156575760 1515151515 1141626263 1121151515 1155444145 1145664154 AX*J"rrrrrtNOOPrrrrrtARRSt1rrrtMDAEtEVAL
       7211004144 4440645740 5746466345 6440664154 6545151515 1141625544 1145664154 7215151515 Zt ADD TO OFFSET VALUErrrtARMDtEVALZrrrr
       1155444162 1145666455 2111004357 5560656445 4040135155 4170055255 4170131515 1155607154 tMDARtEVTM1t COMPUTE  "IMAX*JMAX"rrtMPYL
       1145666455 2215151515 1156575760 1515151515 1141626263 1121151515 1152606362 1145665755 tEVTM2rrrrtNOOPrrrrrtARRSt1rrrtJPSRtEVOM
       6011005765 6460656440 5565546451 6054714051 5663646265 4364515756 1515151515 1155444162 Pt OUTPUT MULTIPLY INSTRUCTIONrrrrrtMDAR
       1145664154 5415151515 1152655560 1145665425 2411004757 4064456364 4013511315 1515151515 tEVALLrrrrtJUMPtEVL54t GO TEST "I"rrrrrr
       4566542226 0611554441 6211456664 5522110057 6564606564 4055655464 5160547140 4271401352 EVL26:tMDARtEVTM2t OUTPUT MULTIPLY BY "J
       5541701315 1152606362 1145665755 6015151515 1141627057 1446151515 1155444162 1145666455 MAX"rtJPSRtEVOMPrrrrtARXO'FrrrtMDARtEVTM
       3011005765 6460656440 1355444163 4040521315 1152606362 1145436246 1515151515 1155444162 8t OUTPUT "MDAS  J"rtJPSRtECRFrrrrrtMDAR
       1143554441 4515151515 1152655560 1145665425 2211004757 4057656460 6564405565 5464516054 tCMDAErrrrtJUMPtEVL52t GO OUTPUT MULTIPL
       7140427140 1351554170 1315151515 1515151515 1515151515 4566415426 0611416270 5714461515 Y BY "IMAX"rrrrrrrrrrrrrrEVAL6:tARXO'Frr
       1141625544 1145666641 6011006245 6345644057 6045624156 4440515640 4162151515 1141625544 tARMDtEVVAPt RESET OPERAND IN ARrrrtARMD
       1145666641 4615151515 1515151515 4566415427 0611554441 6211456641 5470110045 5644405746 tEVVAFrrrrrrrrrEVAL7:tMDARtEVALXt END OF
       4067576244 6340121515 1155447057 1145666064 6215151515 1152605463 1136102211 0062456045  WORDS ?rrtMDXOtEVPTRrrrrtJPLSt.+2t REPE
       4164405146 4056576415 1515151515 1152655560 1145662111 0047574062 4563644162 6440634341 AT IF NOTrrrrrrtJUMPtEV1t GO RESTART SCA
       5615151515 1515151515 1155444162 1145664154 7011004241 4353406560 4060575156 6445621515 NrrrrrrrrrtMDARtEVALXt BACK UP POINTERrr
       1155444163 1446145611 2115151515 1141625544 1145664154 7015151515 1155444162 1450114155 tMDAS'F'Nt1rrrrtARMDtEVALXrrrrtMDAR'HtAM
       4163531100 5665545440 5765644045 5664627140 5156406364 4143531515 1141625544 1451114566 ASKt NULL OUT ENTRY IN STACKrrtARMD'ItEV
       4154701515 1152655560 1145664154 2715151515 1515151515 1515151515 1515151515 0046655643 ALXrrtJUMPtEVAL7rrrrrrrrrrrrrrrrrrr FUNC
       6451575640 4357555541 4060625743 4563635762 4062576564 5156451515 1515151515 4566464355 TION COMMA PROCESSOR ROUTINErrrrrrrEVFCM
       0611526063 6211456647 4656110047 4564404665 5643645157 5640515646 5762554164 5157561515 :tJPSRtEVGFNt GET FUNCTION INFORMATIONrr
       1155444162 1145664154 6315151515 1156575760 1515151515 1155444162 1442114566 4154701100 tMDARtEVALSrrrrtNOOPrrrrrtMDAR'BtEVALXt 
       6341645163 4671406467 5740675762 4440624546 4562455643 4563401215 1152634156 1145666357 SATISFY TWO WORD REFERENCES ?rtJSANtEVSO
       2211005146 4071456334 4063416451 6346714057 6045624156 4440221515 1515151515 1152655560 2t IF YES, SATISFY OPERAND 2rrrrrrrtJUMP
       1145664154 2211004757 4054575753 4041474151 5615151515 1515151515 1515151515 1515151515 tEVAL2t GO LOOK AGAINrrrrrrrrrrrrrrrrrrr
       7777700000 1663225117 1663225117 1663225117 1663225117 1663225117 1663225117 1663225117 bbX  (S2I)(S2I)(S2I)(S2I)(S2I)(S2I)(S2I)
       1663225117 1663225117 1663225117                                                        (S2I)(S2I)(S2I)
 1295: 0006200015 4664562025 1361200365 3414400000 0046655643 6451575640 6062574345 6363515647  :0 rFTN05"Q0!U,'    FUNCTION PROCESSING
       4062576564 5156451515 1515151515 4566466556 0611526063 6211456647 4656110046 4564435040  ROUTINErrrrrrrEVFUN:tJPSRtEVGFNt FETCH 
       4665564364 5157564051 5646576255 4164515756 1515151515 1155444162 1451114566 6064621515 FUNCTION INFORMATIONrrrrrtMDAR'ItEVPTRrr
       1141625463 1123151515 1515151515 4566412306 1155444162 1451145011 4566415463 1515151515 tARLSt3rrrrrrrrEVA3:tMDAR'I'HtEVALSrrrrr
       1155444162 1441145432 1121262011 0063416645 4046544147 6340466257 5540466556 4364515756 tMDAR'A'L;t160t SAVE FLAGS FROM FUNCTION
       1515151515 1141625544 1145664154 6615151515 1155444162 1453145611 4566415470 1100445740 rrrrrtARMDtEVALVrrrrtMDAR'K'NtEVALXt DO 
       6745406364 5762454054 4163644057 6045624156 4440121515 1155444162 1441144611 2120151515 WE STORE LAST OPERAND ?rrtMDAR'A'Ft10rrr
       1152605463 1145664123 4311005265 5560405146 4056571515 1515151515 1155444162 1145666641 tJPLStEVA3Ct JUMP IF NOrrrrrrrtMDARtEVVA
       6011005441 6364405760 4562415644 4051564041 6240121515 1155447057 1145665760 2215151515 Pt LAST OPERAND IN AR ?rrtMDXOtEVOP2rrrr
       1152605463 1136102211 0063535160 4051464056 5764151515 1515151515 1152606362 1163645741 tJPLSt.+2t SKIP IF NOTrrrrrrrrtJPSRtSTOA
       6211004554 6345344063 6457624540 4162151515 1515151515 4566412343 0611554441 6214501145 Rt ELSE, STORE ARrrrrrrrrEVA3C:tMDAR'HtE
       6641547011 0063416451 6346714064 6757406757 6244406245 4645624556 4345634012 1515151515 VALXt SATISFY TWO WORD REFERENCES ?rrrrr
       1155444162 1441144611 2120201515 1152635463 1145666357 2211006341 6451634671 4051464064 tMDAR'A'Ft100rrtJSLStEVSO2t SATISFY IF T
       6757406757 6244406245 4645624556 4345151515 1152655560 1451114566 4154701100 4451636041 WO WORD REFERENCErrrtJUMP'ItEVALXt DISPA
       6443504064 5740647160 4540625765 6451564515 1515151515 1515151515 0040556554 6451605445 TCH TO TYPE ROUTINErrrrrrrrrrr  MULTIPLE
       4041624765 5545566440 4665564364 5157564060 6257434563 6357621515 1515151515 4566412506  ARGUMENT FUNCTION PROCESSORrrrrrrrEVA5:
       1141627057 1446111100 4354454162 4043575555 4140435765 5664456215 1141625544 1145664355 tARXO'Ftt CLEAR COMMA COUNTERrtARMDtEVCM
       4315151515 1155444162 1451145011 4566606462 1100474564 4056573640 4162476340 4662575540 CrrrrtMDAR'I'HtEVPTRt GET NO. ARGS FROM 
       5760456241 6457621515 1141626263 1126151515 1155444162 1441114323 2727151515 1155444162 OPERATORrrtARRSt6rrrtMDAR'AtC377rrrtMDAR
       1457114355 4441623646 1100436245 4164454013 5544416214 4613405156 6364623615 1152606362 'OtCMDAR.Ft CREATE "MDAR'F" INSTR.rtJPSR
       1145665741 4211004040 4041564440 5765646065 6415151515 1515151515 1155444162 1456145311 tEVOABt    AND OUTPUTrrrrrrrrrtMDAR'N'Kt
       4566415470 1100674163 4051644041 5640576645 6254417140 4341545440 1215151515 1155444162 EVALXt WAS IT AN OVERLAY CALL ?rrrrtMDAR
       1441144611 2215151515 1152605463 1145664125 4411006353 5160405146 4056576415 1515151515 'A'Ft2rrrrtJPLStEVA5Dt SKIP IF NOTrrrrrr
       1152606362 1154565363 6311005765 6460656440 5766456254 4171404341 5454404156 4440564155 tJPSRtLNKSSt OUTPUT OVERLAY CALL AND NAM
       4515151515 1152655560 1145664125 4111004156 4440635351 6040565762 5541544043 4154541515 ErrrrtJUMPtEVA5At AND SKIP NORMAL CALLrr
       1515151515 4566412544 0611554441 6214531145 6641547011 0051634051 6440515664 6251566351 rrrrrEVA5D:tMDAR'KtEVALXt IS IT INTRINSI
       4340466556 4364515756 4012151515 1152604156 1145664125 4511005265 5560405146 4071456315 C FUNCTION ?rrrtJPANtEVA5Et JUMP IF YESr
       1515151515 1141625544 1457115762 5746511100 6345644046 5762406062 5760456240 5155414745 rrrrrtARMD'OtOROFIt SET FOR PROPER IMAGE
       4057464663 4564151515 1155444162 1145664154 6311005765 6460656440 4140135260 6362134064  OFFSETrrrtMDARtEVALSt OUTPUT A "JPSR" T
       5715151515 1152606362 1145436246 7011004040 4064504540 4665564364 5157561515 1155444162 OrrrrtJPSRtECRFXt    THE FUNCTIONrrtMDAR
       1143526063 6215151515 1152655560 1145664125 4111006353 5160405766 4562151515 1515151515 tCJPSRrrrrtJUMPtEVA5At SKIP OVERrrrrrrrr
       7777700000 2633300744 2633300744 2633300744 2633300744 2633300744 2633300744 2633300744 bbX  6=8_D6=8_D6=8_D6=8_D6=8_D6=8_D6=8_D
       2633300744 2633300744 2633300744                                                        6=8_D6=8_D6=8_D
 1285: 0006300015 4664562025 1361200363 3414400000 4566412545 0611554441 6214501145 6641547111  :8 rFTN05"Q0!S,'   EVA5E:tMDAR'HtEVALYt
       0057656460 6564405764 6340434154 5415151515 1155444162 1441145011 4155416353 1515151515  OUTPUT OTS CALLrrrrtMDAR'A'HtAMASKrrrrr
       1155444163 1446112220 1515151515 1141625544 1450113610 2215151515 1152606362 1157637162 tMDAS'Ft20rrrrrtARMD'Ht.+2rrrrtJPSRtOSYR
       4615151515 1156575760 1515151515 1515151515 4566412541 0611554441 6211456641 5463110042 FrrrrtNOOPrrrrrrrrrrEVA5A:tMDARtEVALSt B
       4143534065 6040634541 6243504060 5751566445 6240427140 2115151515 1155444163 1446145611 ACK UP SEARCH POINTER BY 1rrrrtMDAS'F'Nt
       2115151515 1141625544 1145664154 6315151515 1155444162 1451114566 4154631100 4645644350 1rrrrtARMDtEVALSrrrrtMDAR'ItEVALSt FETCH
       4067576244 4012151515 1152604156 1145664125 4211005265 5560405146 4057604562 4164576215  WORD ?rrrtJPANtEVA5Bt JUMP IF OPERATORr
       1515151515 1155444162 1456145311 4566415470 1100464564 4350404271 4013554441 6214461340 rrrrrtMDAR'N'KtEVALXt FETCH BY "MDAR'F" 
       1215151515 1152604156 1145664125 4611005265 5560405146 4071456315 1515151515 1155444162 ?rrrrtJPANtEVA5Ft JUMP IF YESrrrrrrtMDAR
       1453145611 4566415470 1100434156 4057604562 4156444042 4540414043 5756636441 5664401215 'K'NtEVALXt CAN OPERAND BE A CONSTANT ?r
       1155444162 1441144611 2115151515 1152605463 1145664125 4711006353 5160405146 4056571515 tMDAR'A'Ft1rrrrtJPLStEVA5Gt SKIP IF NOrr
       1515151515 1155444162 1145664154 6311006445 6364404657 6240435756 6364415664 1515151515 rrrrrtMDARtEVALSt TEST FOR CONSTANTrrrrr
       1152606362 1143534357 5615151515 1152655560 1145664125 4711005265 5560405146 4056576440 tJPSRtCKCONrrrrtJUMPtEVA5Gt JUMP IF NOT 
       4357566364 4156641515 1515151515 1155444162 1441114155 4163531100 5541635315 1141625544 CONSTANTrrrrrrrtMDAR'AtAMASKt MASKrtARMD
       1145666455 2311006341 6645404357 5663644156 6440664154 6545151515 1155444162 1450114566 tEVTM3t SAVE CONSTANT VALUErrrtMDAR'HtEV
       4154701100 5760455637 4354576345 4046655643 6451575640 1215151515 1155444162 1441144611 ALXt OPEN/CLOSE FUNCTION ?rrrrtMDAR'A'Ft
       2420151515 1152605463 1145664125 5011007145 6334405265 5560151515 1515151515 1155444162 40rrrtJPLStEVA5Ht YES, JUMPrrrrrrrrtMDAR
       1145666455 2311004645 6443504043 5756636441 5664406641 5415151515 1155444162 1457114355 tEVTM3t FETCH CONSTANT VALrrrrtMDAR'OtCM
       4441623646 1100436245 4164454013 5544416214 4640404043 5756636413 1515151515 1152606362 DAR.Ft CREATE "MDAR'F   CONST"rrrrrtJPSR
       1145665741 4211005765 6460656440 4142635754 6564451515 1152655560 1145664125 4211006353 tEVOABt OUTPUT ABSOLUTErrtJUMPtEVA5Bt SK
       5160405766 4562151515 1515151515 4566412547 0611554441 6211456641 5463110057 6564606564 IP OVERrrrrrrrrEVA5G:tMDARtEVALSt OUTPUT
       4040135544 4162404066 4154654513 1515151515 1152606362 1145436246 1515151515 1155444162   "MDAR  VALUE"rrrrrtJPSRtECRFrrrrrtMDAR
       1143554441 6215151515 1152655560 1145664125 4211006353 5160405766 4562151515 1515151515 tCMDARrrrrtJUMPtEVA5Bt SKIP OVERrrrrrrrr
       4566412546 0611554441 6211456641 5463110046 4564435040 6057515664 4562406457 4041624765 EVA5F:tMDARtEVALSt FETCH POINTER TO ARGU
       5545566415 1152606362 1145436246 1100404040 4156444057 6564606564 4013554441 6214464041 MENTrtJPSRtECRFt    AND OUTPUT "MDAR'F A
       4444621315 1155444162 1143554441 6236461515 1515151515 4566412542 0611554441 6214501141 DDR"rtMDARtCMDAR.FrrrrrrrEVA5B:tMDAR'HtA
       5541635311 0056655454 4057656440 4556646271 4051564063 6441435315 1141625544 1451114566 MASKt NULL OUT ENTRY IN STACKrtARMD'ItEV
       4154631515 1141624162 1470114566 4355431100 5156444570 4043575555 4140435765 5664456215 ALSrrtARAR'XtEVCMCt INDEX COMMA COUNTERr
       1155444162 1145664154 6311005041 6645406745 4062454143 5045444064 5045404665 5643645157 tMDARtEVALSt HAVE WE REACHED THE FUNCTIO
       5615151515 1155447057 1145666064 6211004040 4057604562 4164576240 1215151515 1152605463 NrrrrtMDXOtEVPTRt    OPERATOR ?rrrrtJPLS
       1145664125 4111006245 6045416440 5146405657 6415151515 1515151515 7777700000 6266060344 tEVA5At REPEAT IF NOTrrrrrrrrrbbX  RV:!D
       6266060344 6266060344 6266060344 6266060344 6266060344 6266060344 6266060344 6266060344 RV:!DRV:!DRV:!DRV:!DRV:!DRV:!DRV:!DRV:!D
       6266060344                                                                              RV:!D
 1225: 0006400015 4664562025 1361200347 3414400000 4566412543 0611554441 6214501145 6641547111  :  rFTN05"Q0!G,'   EVA5C:tMDAR'HtEVALYt
       0043624541 6445404162 4045566462 7140675164 5040444164 4140647160 4515151515 1155444162  CREATE AR ENTRY WITH DATA TYPErrrrtMDAR
       1441114327 1100404040 5746404665 5643645157 5615151515 1141625544 1145666455 2111006341 'AtC7t    OF FUNCTIONrrrrtARMDtEVTM1t SA
       6645404441 6441406471 6045151515 1155444163 1446112126 2020201515 1155444162 1457114566 VE DATA TYPErrrtMDAS'Ft16000rrtMDAR'OtEV
       4154661100 5762405156 4046544147 6315151515 1141625544 1451145011 4566415472 1515151515 ALVt OR IN FLAGSrrrrtARMD'I'HtEVALZrrrrr
       1155444162 1145664154 7211006345 6440416240 6641546545 4060575156 6445621515 1141625544 tMDARtEVALZt SET AR VALUE POINTERrrtARMD
       1145666641 6015151515 1141625544 1457114566 6641461100 4040404156 4440465441 4715151515 tEVVAPrrrrtARMD'OtEVVAFt    AND FLAGrrrr
       1155444162 1145664125 4135211100 6741634046 6556436451 5756402455 4170405762 4024555156 tMDARtEVA5A-1t WAS FUNCTION 4MAX OR 4MIN
       4012151515 1155447057 1446112455 4170151515 1154637057 1136352115 1154637057 1145664125  ?rrrtMDXO'Ft4MAXrrrtLSXOt.-1rtLSXOtEVA5
       5215151515 1152605463 1145662111 0056573440 4757406245 6364416264 4063434156 1515151515 JrrrrtJPLStEV1t NO, GO RESTART SCANrrrrr
       1515151515 1155444162 1450114566 4154711100 4645644350 4041624736 4044416441 4064716045 rrrrrtMDAR'HtEVALYt FETCH ARG. DATA TYPE
       1515151515 1141626263 1123151515 1155444162 1441114327 1515151515 1141625544 1145666455 rrrrrtARRSt3rrrtMDAR'AtC7rrrrrtARMDtEVTM
       2211006341 6645404441 6441406471 6045151515 1155447057 1145666455 2111006341 5545404163 2t SAVE DATA TYPErrrtMDXOtEVTM1t SAME AS
       4062456365 5464406471 6045401215 1152605463 1136102211 0056573440 6353516015 1152655560  RESULT TYPE ?rtJPLSt.+2t NO, SKIPrtJUMP
       1145662111 0045546345 3440475740 6245636441 6264406343 4156151515 1515151515 1155444162 tEV1t ELSE, GO RESTART SCANrrrrrrrrtMDAR
       1145666455 2111004645 6443504064 6757405760 4562415644 4041636351 4756554556 6415151515 tEVTM1t FETCH TWO OPERAND ASSIGNMENTrrrr
       1141625463 1123110040 4040435756 6645626351 5756405665 5542456215 1155444162 1457114566 tARLSt3t    CONVERSION NUMBERrtMDAR'OtEV
       6455221100 4040404662 5755404457 6542544540 5760456241 5644406441 4254451515 1155444145 TM2t    FROM DOUBLE OPERAND TABLErrtMDAE
       1454151515 1155444162 1450114566 6364421515 1141625162 1446151515 1155444162 1441114323 'LrrrtMDAR'HtEVSTBrrtARIR'FrrrtMDAR'AtC3
       2711005541 6353404357 5666456263 5157564056 6555424562 1515151515 1152635463 1145664311 7t MASK CONVERSION NUMBERrrrrrtJSLStEVCt
       0044574043 5756664562 6351575640 5146405657 6440724562 5715151515 1155444162 1145666641  DO CONVERSION IF NOT ZEROrrrrtMDARtEVVA
       6011004040 4057564041 6240576045 6241564415 1152655560 1145662111 0047574062 4563644162 Pt    ON AR OPERANDrtJUMPtEV1t GO RESTAR
       6440634341 5615151515 1515151515 4566412552 0611112455 5156151515 1515151515 4566412550 T SCANrrrrrrrrrEVA5J:tt4MINrrrrrrrrEVA5H
       0611554441 6214531145 6641547111 0043545763 4540121515 1152604156 1136102311 0071456334 :tMDAR'KtEVALYt CLOSE ?rrtJPANt.+3t YES,
       4063535160 1515151515 1515151515 1155444162 1145664355 4311002163 6440416247 4051564057  SKIPrrrrrrrrrrtMDARtEVCMCt 1ST ARG IN O
       6045564012 1515151515 1152605463 1145664125 4711005657 3440635351 6015151515 1515151515 PEN ?rrrrrtJPLStEVA5Gt NO, SKIPrrrrrrrrr
       1155444162 1145666455 2311007145 6334404645 6443504065 5651644066 4154654515 1152606362 tMDARtEVTM3t YES, FETCH UNIT VALUErtJPSR
       1160655651 6411006062 5743456363 4051641515 1152606362 1157655651 6411005765 6460656440 tPUNITt PROCESS ITrrtJPSRtOUNITt OUTPUT 
       6556516440 5657364046 4564435015 1152655560 1145664125 4211006353 5160405766 4562151515 UNIT NO. FETCHrtJUMPtEVA5Bt SKIP OVERrrr
       1515151515 1515151515 7777700000 3354276777 3354276777 3354276777 3354276777 3354276777 rrrrrrrrrrbbX  =L7Wb=L7Wb=L7Wb=L7Wb=L7Wb
       3354276777 3354276777 3354276777 3354276777 3354276777                                  =L7Wb=L7Wb=L7Wb=L7Wb=L7Wb
 1225: 0006500015 4664562025 1361200347 3414400000 0064675740 4162476555 4556644046 6556436451  :H rFTN05"Q0!G,'    TWO ARGUMENT FUNCTI
       5756406062 5743456363 5762151515 1515151515 4566412706 1155444162 1145664154 6311004241 ON PROCESSORrrrrrrrrEVA7:tMDARtEVALSt BA
       4353406560 4063644143 5340605751 5664456215 1155444163 1446145611 2115151515 1141625544 CK UP STACK POINTERrtMDAS'F'Nt1rrrrtARMD
       1145664154 6315151515 1155444162 1451114566 4154631100 5760456241 5644401215 1152604156 tEVALSrrrrtMDAR'ItEVALSt OPERAND ?rtJPAN
       1145664127 4111005265 5560405146 4056576415 1515151515 1155444162 1145664154 6311006341 tEVA7At JUMP IF NOTrrrrrrtMDARtEVALSt SA
       6645406057 5156644562 4041634057 6045624156 4440221515 1141625544 1145665760 2215151515 VE POINTER AS OPERAND 2rrtARMDtEVOP2rrrr
       1152606362 1145664741 6411004745 6440416240 6641546545 1515151515 1155444162 1450114155 tJPSRtEVGATt GET AR VALUErrrrrtMDAR'HtAM
       4163531100 5665545440 5765644064 5051634063 6441435340 6757624415 1141625544 1451114566 ASKt NULL OUT THIS STACK WORDrtARMD'ItEV
       4154631515 1152655560 1145664125 4511004757 4057656460 6564406365 4262576564 5156454043 ALSrrtJUMPtEVA5Et GO OUTPUT SUBROUTINE C
       4154541515 1515151515 4566412741 0611554441 6214501141 5541635311 0056655454 4057656440 ALLrrrrrrrEVA7A:tMDAR'HtAMASKt NULL OUT 
       6450516340 6364414353 4067576244 1515151515 1141625544 1451114566 4154631515 1152655560 THIS STACK WORDrrrrrtARMD'ItEVALSrrtJUMP
       1145664127 1100475740 5457575340 4147415156 1515151515 1515151515 1515151515 0040435756 tEVA7t GO LOOK AGAINrrrrrrrrrrrrrrr  CON
       6645626351 5756404156 4440635156 4754454041 6247655545 5664404665 5643645157 5640606257 VERSION AND SINGLE ARGUMENT FUNCTION PRO
       4345636357 6215151515 1515151515 4566412641 0611554441 6211456666 4160110057 6045624156 CESSORrrrrrrrrrEVA6A:tMDARtEVVAPt OPERAN
       4440214051 5640416240 1215151515 1155447057 1145665760 2115151515 1152605463 1136102211 D 1 IN AR ?rrrrtMDXOtEVOP1rrrrtJPLSt.+2t
       0063535160 4051464056 5715151515 1152655560 1145664126 1023110045 5463454063 5351604057  SKIP IF NOrrrrtJUMPtEVA6+3t ELSE SKIP O
       6645624057 6450456240 6445636415 1515151515 4566412606 1155444162 1145666641 6011005760 VER OTHER TESTrrrrrrEVA6:tMDARtEVVAPt OP
       4562415644 4022405156 4041624012 1515151515 1155447057 1145665760 2215151515 1152635463 ERAND 2 IN AR ?rrrrrtMDXOtEVOP2rrrrtJSLS
       1163645741 6211006364 5762454051 4640565764 1515151515 1155444162 1453145611 4566415470 tSTOARt STORE IF NOTrrrrrtMDAR'K'NtEVALX
       1100674163 4051644043 5756664562 6351575640 5760456241 6457624012 1515151515 1155444162 t WAS IT CONVERSION OPERATOR ?rrrrrtMDAR
       1441144611 2215151515 1152605463 1145664126 4211005265 5560405146 4056571515 1515151515 'A'Ft2rrrrtJPLStEVA6Bt JUMP IF NOrrrrrrr
       1155444162 1145664154 7111004645 6443504043 5756664562 6351575640 4357444515 1152606362 tMDARtEVALYt FETCH CONVERSION CODErtJPSR
       1145664370 1100445740 4357566645 6263515756 1515151515 1152655560 1145664126 4311006353 tEVCXt DO CONVERSIONrrrrrtJUMPtEVA6Ct SK
       5160405766 4562151515 1515151515 4566412642 0611526063 6211456647 4164110047 4564405760 IP OVERrrrrrrrrEVA6B:tJPSRtEVGATt GET OP
       4562415644 4051564041 6215151515 1155444162 1450114566 4154711100 5765646065 6440434154 ERAND IN ARrrrrtMDAR'HtEVALYt OUTPUT CAL
       5440645740 5764634062 5765645156 4515151515 1155444162 1441145011 4155416353 1515151515 L TO OTS ROUTINErrrrtMDAR'A'HtAMASKrrrrr
       1155444163 1446112220 1515151515 1141625544 1450113610 2215151515 1152606362 1157637162 tMDAS'Ft20rrrrrtARMD'Ht.+2rrrrtJPSRtOSYR
       4615151515 1156575760 1515151515 1515151515 4566412643 0611554441 6214561145 6663464611 FrrrrtNOOPrrrrrrrrrrEVA6C:tMDAR'NtEVSFFt
       0063604543 5141544046 6556436451 5756401215 1152604156 1136102711 0063535160 4051464056  SPECIAL FUNCTION ?rtJPANt.+7t SKIP IF N
       5764151515 1515151515 7777700000 5751511251 5751511251 5751511251 5751511251 5751511251 OTrrrrrrrrbbX  OII?IOII?IOII?IOII?IOII?I
       5751511251 5751511251 5751511251 5751511251 5751511251                                  OII?IOII?IOII?IOII?IOII?I
 1360: 0006600015 4664562025 1361200402 3414400000 1155444162 1145664154 6311006341 6645404144  :P rFTN05"Q0&c,'   tMDARtEVALSt SAVE AD
       4462456363 4057464046 6556436451 5756406371 5542575415 1141625544 1145664154 7015151515 DRESS OF FUNCTION SYMBOLrtARMDtEVALXrrrr
       1141625544 1145666641 6011004040 4041564440 5156404162 4060575156 6445621515 1155444162 tARMDtEVVAPt    AND IN AR POINTERrrtMDAR
       1451114566 5760221100 5557664540 4162405760 4562415644 4045566462 7115151515 1141625544 'ItEVOP2t MOVE AR OPERAND ENTRYrrrrtARMD
       1451114566 4154631515 1152655560 1145664154 2711004757 4056655454 4057656440 6364414353 'ItEVALSrrtJUMPtEVAL7t GO NULL OUT STACK
       1515151515 1515151515 1155444162 1450114566 4154711100 4645644350 4062456365 5464404441 rrrrrrrrrrtMDAR'HtEVALYt FETCH RESULT DA
       6441406471 6045151515 1155444162 1441114327 1515151515 1155444163 1446112126 2020201100 TA TYPErrrtMDAR'AtC7rrrrrtMDAS'Ft16000t 
       4362454164 4540416240 4556646271 1515151515 1155444162 1457114566 4154661100 5762405156 CREATE AR ENTRYrrrrrtMDAR'OtEVALVt OR IN
       4046544147 6315151515 1141625544 1451145011 4566606462 1100634166 4540516415 1155444162  FLAGSrrrrtARMD'I'HtEVPTRt SAVE ITrtMDAR
       1145666064 6211006345 6440455664 6271405156 4041621515 1141625544 1145666641 6015151515 tEVPTRt SET ENTRY IN ARrrtARMDtEVVAPrrrr
       1141625544 1457114566 6641461515 1155444162 1450114155 4163531100 5665545440 5765644046 tARMD'OtEVVAFrrtMDAR'HtAMASKt NULL OUT F
       6556436451 5756405760 4562416457 6215151515 1141625544 1451114566 4154631515 1155444162 UNCTION OPERATORrrrrtARMD'ItEVALSrrtMDAR
       1453114566 4154701100 6345644065 5641627140 4665564364 5157564042 5164151515 1141625544 'KtEVALXt SET UNARY FUNCTION BITrrrtARMD
       1145666455 2115151515 1152655560 1145662222 1100475740 5665545440 5765644057 6045624156 tEVTM1rrrrtJUMPtEV22t GO NULL OUT OPERAN
       4463151515 1515151515 1515151515 0056576255 4154404762 4146704051 5541474540 5164455540 DSrrrrrrrrrrrrr NORMAL GRAFX IMAGE ITEM 
       4665564364 5157566315 1515151515 4547462120 0611554441 6211456657 6022110057 6045624156 FUNCTIONSrrrrrrEGF10:tMDARtEVOP2t OPERAN
       4440224041 4043575663 6441566440 1215151515 1152606362 1143534357 5615151515 1152655560 D 2 A CONSTANT ?rrrrtJPSRtCKCONrrrrtJUMP
       1145474621 2311005265 5560405146 4056576415 1515151515 1155444162 1441114155 4163531100 tEGF13t JUMP IF NOTrrrrrrtMDAR'AtAMASKt 
       5541635340 4357566364 4156644066 4154654515 1141625544 1145664154 6611006341 6645151515 MASK CONSTANT VALUErtARMDtEVALVt SAVErrr
       1155444162 1450114566 4154711100 4341564051 6445554050 4166454041 4043575663 6441566440 tMDAR'HtEVALYt CAN ITEM HAVE A CONSTANT 
       4162476555 4556644012 1515151515 1155444162 1441144611 2420151515 1152635463 1145626257 ARGUMENT ?rrrrrtMDAR'A'Ft40rrrtJSLStERRO
       6211004562 6257624051 4640565715 1111456221 2420151515 1515151515 1152606362 1163456447 Rt ERROR IF NOrttER140rrrrrrrrtJPSRtSETG
       5511006345 6440476241 4670405557 4445151515 1155444162 1450114566 4154711100 4645644350 Mt SET GRAFX MODErrrtMDAR'HtEVALYt FETCH
       4047624146 7040516445 5540435744 4515151515 1155444162 1441145011 4155416353 1100554163  GRAFX ITEM CODErrrrtMDAR'A'HtAMASKt MAS
       5315151515 1155444162 1457145011 4324110063 4564405155 5545445141 6445404251 6415151515 KrrrrtMDAR'O'HtC4t SET IMMEDIATE BITrrrr
       1155444162 1457114566 4154661100 4357554251 5645406751 6450405760 4562415644 4066415465 tMDAR'OtEVALVt COMBINE WITH OPERAND VALU
       4515151515 1152606362 1157414263 1100576564 6065644041 4263575465 6445151515 1155445162 ErrrrtJPSRtOABSt OUTPUT ABSOLUTErrrtMDIR
       1470114566 4154110062 4564656256 4046625755 4045664154 1515151515 1515151515 4547462123 'XtEVALt RETURN FROM EVALrrrrrrrrrrEGF13
       0611554441 6211456666 4146110057 6045624156 4440515640 4162401215 1152604156 1145474621 :tMDARtEVVAFt OPERAND IN AR ?rtJPANtEGF1
       2111004757 4063645762 4540514640 7145631515 1515151515 1155444162 1451145011 4566576022 1t GO STORE IF YESrrrrrrrtMDAR'I'HtEVOP2
       1100646265 4540664154 6545401215 1155444162 1441144611 2126201515 1152605463 1145474621 t TRUE VALUE ?rtMDAR'A'Ft160rrtJPLStEGF1
       2111004757 4063645762 4540646265 4540514640 5657641515 1515151515 1152655560 1145474621 1t GO STORE TRUE IF NOTrrrrrrrtJUMPtEGF1
       2211006353 5160405766 4562406364 5762451515 1515151515 7777700000 2606235352 2606235352 2t SKIP OVER STORErrrrrrrbbX  6:3KJ6:3KJ
       2606235352 2606235352 2606235352 2606235352 2606235352 2606235352 2606235352 2606235352 6:3KJ6:3KJ6:3KJ6:3KJ6:3KJ6:3KJ6:3KJ6:3KJ
  880: 0006700015 4664562025 1361200242 3414400000 4547462121 0611526063 6211636457 6462110063  :X rFTN05"Q0cB,'   EGF11:tJPSRtSTOTRt S
       6457624540 6462654540 6641546545 1515151515 1515151515 4547462122 0611554441 6211456641 TORE TRUE VALUErrrrrrrrrrEGF12:tMDARtEVA
       5471110051 6340435744 4540414064 4142544540 4357555541 5644401215 1155444162 1441144611 LYt IS CODE A TABLE COMMAND ?rtMDAR'A'Ft
       2727202020 1515151515 1155447057 1446112024 2020201515 1154637057 1145474621 3115151515 77000rrrrrtMDXO'Ft04000rrtLSXOtEGF19rrrr
       1152605463 1145474621 2511006353 5160405146 4056576415 1515151515 1155444162 1146636446 tJPLStEGF15t SKIP IF NOTrrrrrrtMDARtFSTF
       4711006345 6440464163 6440465441 4740515664 5740516445 5540435744 4515151515 1515151515 Gt SET FAST FLAG INTO ITEM CODErrrrrrrrr
       4547462130 0611554441 6214571145 6641547115 1141625544 1145664154 7115151515 1152655560 EGF18:tMDAR'OtEVALYrtARMDtEVALYrrrrtJUMP
       1145474621 2411006353 5160405766 4562151515 1515151515 4547462125 0611554441 6211456641 tEGF14t SKIP OVERrrrrrrrrEGF15:tMDARtEVA
       5471110060 5763435041 6240121515 1155447057 1446112027 2020201515 1152605463 1145474621 LYt POSCHAR ?rrtMDXO'Ft07000rrtJPLStEGF1
       2611005265 5560405146 4056576415 1515151515 1155444162 1453114324 1100474564 4062576441 6t JUMP IF NOTrrrrrrtMDAR'KtC4t GET ROTA
       6445404251 6415151515 1155444162 1441114350 6246471515 1152655560 1145474621 3011004757 TE BITrrrrtMDAR'AtCHRFGrrtJUMPtEGF18t GO
       4063456440 5156404357 4445151515 1515151515 4547462126 0611554441 6211456641 5471110043  SET IN CODErrrrrrrrEGF16:tMDARtEVALYt C
       5041624057 6240554556 6540121515 1155444162 1441144611 2725272727 1515151515 1155447057 HAR OR MENU ?rrtMDAR'A'Ft75777rrrrrtMDXO
       1446112120 2020201515 1152605463 1145474621 2411005265 5560405146 4056576415 1515151515 'Ft10000rrtJPLStEGF14t JUMP IF NOTrrrrrr
       1155444162 1143506246 4711005762 4051564062 5764416445 4041564440 4651704544 4042516463 tMDARtCHRFGt OR IN ROTATE AND FIXED BITS
       1515151515 1152655560 1145474621 3015151515 1515151515 4547462124 0611526063 6211634564 rrrrrtJUMPtEGF18rrrrrrrrrEGF14:tJPSRtSET
       4755110063 4564404762 4146704055 5744451515 1155444162 1145665760 2211005765 6460656440 GMt SET GRAFX MODErrtMDARtEVOP2t OUTPUT 
       6245464562 4556434540 6457405760 4562415644 4022151515 1152606362 1145436246 4715151515 REFERENCE TO OPERAND 2rrrtJPSRtECRFGrrrr
       1155444162 1450114566 4154711100 6751645040 5760404357 4445406641 5465451515 1155445162 tMDAR'HtEVALYt WITH OP CODE VALUErrtMDIR
       1470114566 4154110062 4564656256 4046625755 4045664154 1515151515 1515151515 4547462131 'XtEVALt RETURN FROM EVALrrrrrrrrrrEGF19
       0611112420 2020142120 2020151515 1515151515 1515151515 7777700000 2236446442 2236446442 :tt4000'1000rrrrrrrrrrrrrbbX  2.DTB2.DTB
       2236446442 2236446442 2236446442 2236446442 2236446442 2236446442 2236446442 2236446442 2.DTB2.DTB2.DTB2.DTB2.DTB2.DTB2.DTB2.DTB
 1290: 0007000015 4664562025 1361200364 3414400000 0055655464 5135416247 6555455664 4047624146  _  rFTN05"Q0!T,'    MULTI-ARGUMENT GRAF
       7040515541 4745405164 4555404665 5643645157 5663404016 5136453634 4063435760 4557563440 X IMAGE ITEM FUNCTIONS  (I.E., SCOPEON, 
       4564431715 1515151515 4547462220 0611526063 6211634564 4755110063 4564404762 4146704055 ETC)rrrrrrEGF20:tJPSRtSETGMt SET GRAFX M
       5744451515 1515151515 4547462227 0611554441 6211456641 5463110042 4143534065 6040636441 ODErrrrrrrEGF27:tMDARtEVALSt BACK UP STA
       4353406057 5156644562 1515151515 1155444163 1446145611 2115151515 1141625544 1145664154 CK POINTERrrrrrtMDAS'F'Nt1rrrrtARMDtEVAL
       6315151515 1155444162 1451114566 4154631100 5760456241 5644401215 1152604156 1145474622 SrrrrtMDAR'ItEVALSt OPERAND ?rtJPANtEGF2
       2711006245 6045416440 5146405657 6415151515 1515151515 1141627057 1446111100 6245634564 7t REPEAT IF NOTrrrrrrrrrtARXO'Ftt RESET
       4041434365 5565544164 4544406641 5465451515 1141625544 1145664154 6715151515 1155444162  ACCUMULATED VALUErrtARMDtEVALWrrrrtMDAR
       1145664154 6311005163 4057604562 4156444041 4043575663 6441566440 1215151515 1152606362 tEVALSt IS OPERAND A CONSTANT ?rrrrtJPSR
       1143534357 5615151515 1152655560 1145474622 2611005265 5560405146 4056571515 1515151515 tCKCONrrrrtJUMPtEGF26t JUMP IF NOrrrrrrr
       4547462225 0611416255 4411456641 5466110063 4166454043 5756636441 5664151515 1152605463 EGF25:tARMDtEVALVt SAVE CONSTANTrrrtJPLS
       1136102311 0072456257 4066415465 4540121515 1152606362 1145626257 6215151515 1111456221 t.+3t ZERO VALUE ?rrtJPSRtERRORrrrrttER1
       2330110045 6262576240 5146407245 6257151515 1515151515 1152634156 1145626257 6211004562 38t ERROR IF ZEROrrrrrrrrtJSANtERRORt ER
       6257624051 4640564547 4164516645 1515151515 1111456221 2330151515 1515151515 1155444162 ROR IF NEGATIVErrrrrttER138rrrrrrrrtMDAR
       1450114566 4154711100 4645644350 4055417036 4041624765 5545566440 6641546545 1515151515 'HtEVALYt FETCH MAX. ARGUMENT VALUErrrrr
       1155444162 1441114321 2715151515 1155444163 1446112115 1155444145 1456114566 4154661100 tMDAR'AtC17rrrrtMDAS'Ft1rtMDAE'NtEVALVt 
       4357556041 6245406641 5465451515 1152634156 1145626257 6211004562 6257624051 4640476245 COMPARE VALUErrtJSANtERRORt ERROR IF GRE
       4164456240 6450415640 5541703640 4154545767 4544151515 1111456221 2330151515 1515151515 ATER THAN MAX. ALLOWEDrrrttER138rrrrrrrr
       1155444162 1450114566 4154711100 4645644350 4046515641 5440635051 4664404357 6556641515 tMDAR'HtEVALYt FETCH FINAL SHIFT COUNTrr
       1155444162 1441144611 2420201100 6741634051 6440136245 4144134051 6445554012 1515151515 tMDAR'A'Ft400t WAS IT "READ" ITEM ?rrrrr
       1152605463 1145474622 2111005265 5560405146 4071456315 1515151515 1155444162 1450114321 tJPLStEGF21t JUMP IF YESrrrrrrtMDAR'HtC1
       1100464564 4350406350 5146644042 5164151515 1141626263 1451114566 4154661100 6350514664 t FETCH SHIFT BITrrrtARRS'ItEVALVt SHIFT
       4062514750 6440427140 6641546545 1515151515 1156575760 1515151515 1152655560 1145474622  RIGHT BY VALUErrrrrtNOOPrrrrrtJUMPtEGF2
       2211004757 4043575542 5156451515 1515151515 4547462221 0611554441 6214501143 2111004645 2t GO COMBINErrrrrrrEGF21:tMDAR'HtC1t FE
       6443504063 5051466440 4251641515 1141625463 1451114566 4154661100 6350514664 4054454664 TCH SHIFT BITrrtARLS'ItEVALVt SHIFT LEFT
       4042714066 4154654515 1156575760 1515151515 1515151515 4547462222 0611554441 6214571145  BY VALUErtNOOPrrrrrrrrrrEGF22:tMDAR'OtE
       6641546711 0043575542 5156454067 5164504063 4166454440 6641546545 1515151515 1141625544 VALWt COMBINE WITH SAVED VALUErrrrrtARMD
       1145664154 6711006245 6364576245 1515151515 1515151515 4547462223 0611554441 6211456641 tEVALWt RESTORErrrrrrrrrrEGF23:tMDARtEVA
       5463110042 4143534065 6040636441 4364406057 5156644562 1515151515 1155444163 1446145611 LSt BACK UP STACT POINTERrrrrrtMDAS'F'Nt
       2115151515 1141625544 1145664154 6315151515 1155444162 1451114566 4154631100 5760456241 1rrrrtARMDtEVALSrrrrtMDAR'ItEVALSt OPERA
       5644401215 1152604156 1145474622 2411005265 5560405146 4056576415 1515151515 7777700000 ND ?rtJPANtEGF24t JUMP IF NOTrrrrrrbbX  
       3621607610 3621607610 3621607610 3621607610 3621607610 3621607610 3621607610 3621607610 .1P++.1P++.1P++.1P++.1P++.1P++.1P++.1P++
       3621607610 3621607610                                                                   .1P++.1P++
 1200: 0007100015 4664562025 1361200342 3414400000 1155444162 1145664154 6311005163 4057604562  _+ rFTN05"Q0!B,'   tMDARtEVALSt IS OPER
       4156444041 4043575663 6441566440 1215151515 1152606362 1143534357 5615151515 1152605463 AND A CONSTANT ?rrrrtJPSRtCKCONrrrrtJPLS
       1136102211 0063535160 4051464056 5764151515 1152655560 1145474622 2511004554 6345344047 t.+2t SKIP IF NOTrrrtJUMPtEGF25t ELSE, G
       5740606257 4345636340 5645674057 6045624156 4415151515 1515151515 1152606362 1145626257 O PROCESS NEW OPERANDrrrrrrrrrtJPSRtERRO
       6211004562 6257624051 4640565764 4041404357 5663644156 6415151515 1111456221 2331151515 Rt ERROR IF NOT A CONSTANTrrrrttER139rrr
       1155445162 1470114566 4154151515 1515151515 4547462224 0611554441 6211456660 6462110041 tMDIR'XtEVALrrrrrrrrEGF24:tMDARtEVPTRt A
       6245406745 4041644045 5644405746 4046655643 6451575640 1215151515 1155447057 1145664154 RE WE AT END OF FUNCTION ?rrrrtMDXOtEVAL
       6315151515 1152605463 1145474622 2311006245 6045416440 5146405657 6415151515 1515151515 SrrrrtJPLStEGF23t REPEAT IF NOTrrrrrrrrr
       4547462231 0611554441 6214501145 6641547111 0046456443 5040465156 4154406350 5146644066 EGF29:tMDAR'HtEVALYt FETCH FINAL SHIFT V
       4154654515 1141626263 1124151515 1155444162 1441114323 2711005541 6353151515 1155444145 ALUErtARRSt4rrrtMDAR'AtC37t MASKrrrtMDAE
       1454111100 4357554251 5645406751 6450406350 5146644051 5663646236 1515151515 1141626263 'Ltt COMBINE WITH SHIFT INSTR.rrrrrtARRS
       1515151515 1141625544 1136102511 0063416645 4051566364 6265436451 5756151515 1155444162 rrrrrtARMDt.+5t SAVE INSTRUCTIONrrrtMDAR
       1145664154 7111005541 6353404762 4146704051 6445554043 5744451515 1155444162 1441114155 tEVALYt MASK GRAFX ITEM CODErrtMDAR'AtAM
       4163531515 1141625544 1145664154 7115151515 1155444162 1145664154 6711004645 6443504041 ASKrrtARMDtEVALYrrrrtMDARtEVALWt FETCH A
       4343655565 5441644544 4066415465 4515151515 1141626263 1111006350 5146644051 5664574060 CCUMULATED VALUErrrrtARRStt SHIFT INTO P
       5763516451 5756151515 1156575760 1515151515 1141625544 1145664154 6711006341 6645406257 OSITIONrrrtNOOPrrrrrtARMDtEVALWt SAVE RO
       6441644544 4066415465 4515151515 1155444162 1145666346 4611006360 4543514154 4046655643 TATED VALUErrrrtMDARtEVSFFt SPECIAL FUNC
       6451575640 1215151515 1152604156 1143663024 7111005265 5560405146 4071456315 1515151515 TION ?rrrrtJPANtCV84Yt JUMP IF YESrrrrrr
       1155444162 1145664154 6711004645 6443504066 4154654515 1155444162 1457145011 4324110063 tMDARtEVALWt FETCH VALUErtMDAR'O'HtC4t S
       4564405155 5545445141 6445404654 4147404251 6415151515 1155444162 1457145011 4566415471 ET IMMEDIATE FLAG BITrrrrtMDAR'O'HtEVALY
       1100435755 4251564540 4762414670 4051554147 4540435744 4515151515 1152606362 1157414263 t COMBINE GRAFX IMAGE CODErrrrtJPSRtOABS
       1100576564 6065644041 4263575465 6445151515 1155445162 1470114566 4154110062 4564656256 t OUTPUT ABSOLUTErrrtMDIR'XtEVALt RETURN
       4046625755 4045664154 1515151515 1515151515 4547462226 0611554441 6214511450 1145666064  FROM EVALrrrrrrrrrrEGF26:tMDAR'I'HtEVPT
       6211004451 4440466556 4364515756 4050416645 4057564540 4162476555 4556644012 1515151515 Rt DID FUNCTION HAVE ONE ARGUMENT ?rrrrr
       1155444162 1441144611 2327272020 1515151515 1155447057 1446112120 2015151515 1152635463 tMDAR'A'Ft37700rrrrrtMDXO'Ft100rrrrtJSLS
       1145626257 6211004562 6257624051 4640565715 1111456221 2331151515 1155444162 1145666346 tERRORt ERROR IF NOrttER139rrrtMDARtEVSF
       4611006360 4543514154 4046655643 6451575640 1215151515 1152604156 1143663024 7211005265 Ft SPECIAL FUNCTION ?rrrrtJPANtCV84Zt JU
       5560405146 4071456315 1515151515 1152655560 1145474621 2311004757 4044574041 6340565762 MP IF YESrrrrrrtJUMPtEGF13t GO DO AS NOR
       5541544046 6556436451 5756151515 1515151515 1515151515 7777700000 6252321641 6252321641 MAL FUNCTIONrrrrrrrrrrrrrbbX  RJ;(ARJ;(A
       6252321641 6252321641 6252321641 6252321641 6252321641 6252321641 6252321641 6252321641 RJ;(ARJ;(ARJ;(ARJ;(ARJ;(ARJ;(ARJ;(ARJ;(A
  580: 0007200015 4664562025 1361200146 3414400000 0040544151 4047624146 7040516445 5540466556  _0 rFTN05"Q0%F,'     LAI GRAFX ITEM FUN
       4364515756 1515151515 1515151515 4547462320 0611554441 6211456657 6021110057 6045624156 CTIONrrrrrrrrrrEGF30:tMDARtEVOP1t OPERAN
       4440214041 4043575663 6441566440 1215151515 1152606362 1143534357 5615151515 1152606362 D 1 A CONSTANT ?rrrrtJPSRtCKCONrrrrtJPSR
       1145626257 6211004562 6257624051 4640565764 1515151515 1111456221 2527151515 1515151515 tERRORt ERROR IF NOTrrrrrttER157rrrrrrrr
       1141625544 1145664154 6611006341 6645404357 5663644156 6440664154 6545151515 1152634156 tARMDtEVALVt SAVE CONSTANT VALUErrrtJSAN
       1145626257 6211004562 6257624051 4640564547 4164516645 1515151515 1111456221 2330151515 tERRORt ERROR IF NEGATIVErrrrrttER138rrr
       1155444163 1446145611 2327110047 6245416445 6240645041 5640232740 5743644154 4012151515 tMDAS'F'Nt37t GREATER THAN 37 OCTAL ?rrr
       1152604156 1136102315 1515151515 1152606362 1145626257 6211004562 6257624051 4640476245 tJPANt.+3rrrrrrtJPSRtERRORt ERROR IF GRE
       4164456215 1111456221 2330151515 1515151515 1155444162 1145664154 6611004357 5542515645 ATERrttER138rrrrrrrrtMDARtEVALVt COMBINE
       4064624156 6346576255 4056655542 4562406751 6450151515 1141625463 1123110040 4040476241  TRANSFORM NUMBER WITHrrrtARLSt3t    GRA
       4670405441 5140516445 5540435744 4515151515 1155444162 1457114566 4154711515 1141625544 FX LAI ITEM CODErrrrtMDAR'OtEVALYrrtARMD
       1145664154 7111006345 6440576045 6241564440 2240645740 5760456241 5644402115 1152655560 tEVALYt SET OPERAND 2 TO OPERAND 1rtJUMP
       1145474621 2011004757 4060625743 4563634041 6340565762 5541544051 6445551515 1515151515 tEGF10t GO PROCESS AS NORMAL ITEMrrrrrrr
       1515151515 7777700000 1663340312 1663340312 1663340312 1663340312 1663340312 1663340312 rrrrrbbX  (S,!?(S,!?(S,!?(S,!?(S,!?(S,!?
       1663340312 1663340312 1663340312 1663340312                                             (S,!?(S,!?(S,!?(S,!?
 1225: 0007300015 4664562025 1361200347 3414400000 0040636045 4351415440 4762414670 4057646340  _8 rFTN05"Q0!G,'     SPECIAL GRAFX OTS 
       4665564364 5157564043 4154546340 4016513645 3634405451 6364224434 4045644336 1715151515 FUNCTION CALLS  (I.E., LIST2D, ETC.)rrrr
       1515151515 4547462420 0611526063 6211636457 4162110063 6457624540 4162405146 4041567140 rrrrrEGF40:tJPSRtSTOARt STORE AR IF ANY 
       6641546545 1515151515 1155444162 1451114566 5760221100 4645644350 4057604562 4156444063 VALUErrrrrtMDAR'ItEVOP2t FETCH OPERAND S
       7155406441 4240605751 5664456215 1155444162 1441144611 2727272727 1100554163 5315151515 YM TAB POINTERrtMDAR'A'Ft77777t MASKrrrr
       1141625544 1145664154 6711006341 6645405164 1515151515 1515151515 1155444162 1451145311 tARMDtEVALWt SAVE ITrrrrrrrrrrtMDAR'I'Kt
       4566415467 1100516340 5760456241 5644404156 4041626241 7140121515 1155444162 1441144611 EVALWt IS OPERAND AN ARRAY ?rrtMDAR'A'Ft
       2720151515 1155447057 1446112220 1515151515 1152635463 1145626257 6211004562 6257624051 70rrrtMDXO'Ft20rrrrrtJSLStERRORt ERROR I
       4640565764 1515151515 1111456221 2530151515 1515151515 1155444162 1451145011 4566576022 F NOTrrrrrttER158rrrrrrrrtMDAR'I'HtEVOP2
       1100445745 6340576045 6241564440 5041664540 4156405746 4663456440 1215151515 1155444162 t DOES OPERAND HAVE AN OFFSET ?rrrrtMDAR
       1441144611 2326202020 1515151515 1155447057 1446112120 2020201515 1152605463 1136102315 'A'Ft36000rrrrrtMDXO'Ft10000rrtJPLSt.+3r
       1515151515 1152606362 1145626257 6211004562 6257624051 4640714563 1515151515 1111456221 rrrrrtJPSRtERRORt ERROR IF YESrrrrrttER1
       2531151515 1515151515 1152606362 1145666357 2211006341 6451634671 4064675740 6757624440 59rrrrrrrrtJPSRtEVSO2t SATISFY TWO WORD 
       6245464562 4556434540 5146405645 4544454415 1155444162 1145664154 6711004645 6443504063 REFERENCE IF NEEDEDrtMDARtEVALWt FETCH S
       5564414240 6057515664 4562151515 1152606362 1157605445 5611005765 6460656440 4357444540 MTAB POINTERrrrtJPSRtOPLENt OUTPUT CODE 
       4657624041 6262417140 5445564764 5015151515 1111201100 4040164457 6542544540 5445564764 FOR ARRAY LENGTHrrrrtt0t   (DOUBLE LENGT
       5040465762 4044576542 5445406062 4543171515 1152655560 1145474624 2411004357 4445404555 H FOR DOUBLE PREC)rrtJUMPtEGF44t CODE EM
       5164644544 3440475740 5765646065 6440576463 4043415454 1515151515 1515151515 1152604156 ITTED, GO OUTPUT OTS CALLrrrrrrrrrrtJPAN
       1136102311 0043575663 6441566440 4451554556 6351575663 4012151515 1515151515 1152606362 t.+3t CONSTANT DIMENSIONS ?rrrrrrrrtJPSR
       1157624546 1100565734 4057656460 6564406245 4645624556 4345406457 4046456443 5040664154 tOREFt NO, OUTPUT REFERENCE TO FETCH VAL
       6545151515 1152655560 1145474624 2411005265 5560404657 6240576463 4043415454 1515151515 UErrrtJUMPtEGF44t JUMP FOR OTS CALLrrrrr
       1515151515 1152606362 1157414263 1100714563 3440576564 6065644046 4564435040 5746404357 rrrrrtJPSRtOABSt YES, OUTPUT FETCH OF CO
       5663644041 6262417140 5445561515 1515151515 4547462424 0611554441 6214501145 6641547111 NST ARRAY LENrrrrrrrEGF44:tMDAR'HtEVALYt
       0057656460 6564404341 5454406457 1515151515 1155444162 1441145011 4155416353 1100404040  OUTPUT CALL TOrrrrrtMDAR'A'HtAMASKt    
       5764634063 6542625765 6451564515 1155444163 1446112220 1515151515 1141625544 1450113610 OTS SUBROUTINErtMDAS'Ft20rrrrrtARMD'Ht.+
       2215151515 1152606362 1157637162 4615151515 1156575760 1515151515 1155444162 1145665760 2rrrrtJPSRtOSYRFrrrrtNOOPrrrrrtMDARtEVOP
       2211004645 6443504057 6045624156 4440221515 1152606362 1145436246 1100576564 6065644013 2t FETCH OPERAND 2rrtJPSRtECRFt OUTPUT "
       5544416214 4640404144 4462134051 5663646265 4364515756 1515151515 1155444162 1143554441 MDAR'F  ADDR" INSTRUCTIONrrrrrtMDARtCMDA
       6236461515 1155445162 1470114566 4154110062 4564656256 4046625755 4045664154 1515151515 R.FrrtMDIR'XtEVALt RETURN FROM EVALrrrrr
       1515151515 1515151515 7777700000 4555704656 4555704656 4555704656 4555704656 4555704656 rrrrrrrrrrbbX  EMXFNEMXFNEMXFNEMXFNEMXFN
       4555704656 4555704656 4555704656 4555704656 4555704656                                  EMXFNEMXFNEMXFNEMXFNEMXFN
 1465: 0007400015 4664562025 1361200427 3414400000 0040456641 5465416445 4044516245 4364576240  _  rFTN05"Q0&7,'     EVALUATE DIRECTOR 
       5451636440 6365426257 6564515645 1515151515 1515151515 4544061152 6555601136 1100455664 LIST SUBROUTINErrrrrrrrrrED:tJUMPt.t ENT
       6271151515 1155444162 1441114155 4163531100 5541635340 4451624543 6457624060 5751566445 RYrrrtMDAR'AtAMASKt MASK DIRECTOR POINTE
       6215151515 1141625544 1145443011 0063416645 1515151515 1155444162 1446114544 4262633521 RrrrrtARMDtED8t SAVErrrrrtMDAR'FtEDBRS-1
       1100515651 6451415451 7245404262 4156435040 6364414353 1515151515 1141625544 1145442124 t INITIALIZE BRANCH STACKrrrrrtARMDtED14
       1515151515 1141627057 1446111100 6245634564 4063514756 4041564440 6556565762 5541545172 rrrrrtARXO'Ftt RESET SIGN AND UNNORMALIZ
       4544404654 4147631515 1141625544 1145445551 4611004040 4041564440 5657644051 5640416240 ED FLAGSrrtARMDtEDMIFt    AND NOT IN AR 
       4654414715 1141625544 1145446556 4615151515 1141625544 1145445641 6215151515 1155445162 FLAGrtARMDtEDUNFrrrrtARMDtEDNARrrrrtMDIR
       1451114544 1100464564 4350404651 5641544063 6457624540 4144446245 6363151515 1141625544 'ItEDt FETCH FINAL STORE ADDRESSrrrtARMD
       1145442120 1100634166 4515151515 1155444162 1451147011 4544110046 4564435040 6245636554 tED10t SAVErrrrtMDAR'I'XtEDt FETCH RESUL
       6440444164 4140647160 4515151515 1155444162 1441114327 1515151515 1141625544 1145442121 T DATA TYPErrrrtMDAR'AtC7rrrrrtARMDtED11
       1100634166 4515151515 1155444162 1451147014 5011454411 0046456443 5040424144 4072456257 t SAVErrrrtMDAR'I'X'HtEDt FETCH BAD ZERO
       4046544147 1515151515 1155444162 1441114321 2020151515 1154634162 1456114320 1100474564  FLAGrrrrrtMDAR'AtC100rrrtLSAR'NtC0t GET
       4056454741 6451664540 5146404251 6440304063 4564151515 1141625544 1145444272 4611006341  NEGATIVE IF BIT 8 SETrrrtARMDtEDBZFt SA
       6645404654 4147151515 1155444162 1145666641 4611005760 4562415644 4051564041 6240121515 VE FLAGrrrtMDARtEVVAFt OPERAND IN AR ?rr
       1152604156 1136102211 0063535160 4051464071 4563151515 1141627057 1454111100 4554634534 tJPANt.+2t SKIP IF YESrrrtARXO'Ltt ELSE,
       4063456440 7245625715 1515151515 1155444162 1451114566 6641601100 5762405760 4562415644  SET ZEROrrrrrrtMDAR'ItEVVAPt OR OPERAND
       4067576244 1515151515 1141625544 1145442511 0063416645 1515151515 1515151515 4544200611  WORDrrrrrtARMDtED5t SAVErrrrrrrrrrED0:t
       5544416214 5111454430 1100464564 4350404451 6245436457 6215151515 1515151515 4544204106 MDAR'ItED8t FETCH DIRECTORrrrrrrrrrED0A:
       1141625544 1145442611 0063416645 4051641515 1155444162 1441114155 4163531515 1141625544 tARMDtED6t SAVE ITrrtMDAR'AtAMASKrrtARMD
       1145443111 0063416645 4041444462 4563634046 5145544415 1155444162 1451145311 4544301100 tED9t SAVE ADDRESS FIELDrtMDAR'I'KtED8t 
       4745644057 6045624156 4440435744 4540164251 6463402640 4156444027 1715151515 1141625463 GET OPERAND CODE (BITS 6 AND 7)rrrrtARLS
       1122151515 1155444162 1441114323 1515151515 1155444145 1454151515 1155445162 1145442264 t2rrrtMDAR'AtC3rrrrrtMDAE'LrrrtMDIRtED2T
       1100656345 4043574445 4064574045 7045436564 4540466257 5515151515 1141625162 1446111100 t USE CODE TO EXECUTE FROMrrrrtARIR'Ftt 
       4040406441 4254451515 1141625544 1145442711 0063416645 4041444462 4563634057 4640576045    TABLErrtARMDtED7t SAVE ADDRESS OF OPE
       6241564415 1155444162 1451145011 4544301100 4645644350 4043575644 5164515756 4043574445 RANDrtMDAR'I'HtED8t FETCH CONDITION CODE
       1515151515 1155444162 1441114327 1515151515 1155444145 1454111100 6563454064 5740445163 rrrrrtMDAR'AtC7rrrrrtMDAE'Ltt USE TO DIS
       6041644350 4064574043 5756445164 5157564064 4563641515 1155445162 1136102211 0040404062 PATCH TO CONDITION TESTrrtMDIRt.+2t    R
       5765645156 4515151515 1141625162 1446151515 1515151515 1152655560 1145442311 0064626545 OUTINErrrrtARIR'FrrrrrrrrtJUMPtED3t TRUE
       4041546741 7163151515 1152655560 1145442441 1100576045 6241564440 5645474164 5166451515  ALWAYSrrrtJUMPtED4At OPERAND NEGATIVErr
       1152655560 1145442442 1100576045 6241564440 5657625541 5451724544 4054574751 4341541515 tJUMPtED4Bt OPERAND NORMALIZED LOGICALrr
       1152655560 1145442443 1100576045 6241564440 5657644066 4154514440 7245625715 1152655560 tJUMPtED4Ct OPERAND NOT VALID ZEROrtJUMP
       1145442444 1100576045 6241564440 3340212435 4251644043 5756636441 5664151515 1152655560 tED4Dt OPERAND = 14-BIT CONSTANTrrrtJUMP
       1145442445 1100576045 6241564440 5156404162 1515151515 1152655560 1145442446 1100635057 tED4Et OPERAND IN ARrrrrrtJUMPtED4Ft SHO
       6264405557 4445404654 4147406345 6415151515 1152655560 1145442311 0016565764 4065634544 RT MODE FLAG SETrrrrtJUMPtED3t (NOT USED
       1715151515 1515151515 7777700000 0026630632 0026630632 0026630632 0026630632 0026630632 )rrrrrrrrrbbX   6S:; 6S:; 6S:; 6S:; 6S:;
       0026630632 0026630632 0026630632 0026630632 0026630632                                   6S:; 6S:; 6S:; 6S:; 6S:;
 1425: 0007500015 4664562025 1361200417 3414400000 4544230611 5544416214 5114421456 1145443011  _H rFTN05"Q0&),'   ED3:tMDAR'I'B'NtED8t
       0043575644 5164515756 4062456645 6263454042 5164406345 6440121515 1152604156 1145442111  CONDITION REVERSE BIT SET ?rrtJPANtED1t
       0047574044 5740514640 5657641515 1515151515 4544234106 1155444162 1451147011 4544301100  GO DO IF NOTrrrrrrrED3A:tMDAR'I'XtED8t 
       4554634534 4046456443 5040564570 6440445162 4543645762 1515151515 1152655560 1145442041 ELSE, FETCH NEXT DIRECTORrrrrrtJUMPtED0A
       1100415644 4047574044 5740516415 1515151515 4544240611 5544416214 5114421456 1145443011 t AND GO DO ITrrrrrrED4:tMDAR'I'B'NtED8t
       0043575644 5164515756 4062456645 6263454063 4564401215 1152604156 1145442341 1100514756  CONDITION REVERSE SET ?rtJPANtED3At IGN
       5762454044 5162454364 5762405146 4056576415 1515151515 4544210611 5544416214 5114531145 ORE DIRECTOR IF NOTrrrrrrED1:tMDAR'I'KtE
       4430110046 4564435040 5760456241 6451575640 4357444515 1155444162 1441114321 2711004451 D8t FETCH OPERATION CODErtMDAR'AtC17t DI
       6360416443 5040645740 5760456241 6451575615 1155444145 1454151515 1155445162 1136102215 SPATCH TO OPERATIONrtMDAE'LrrrtMDIRt.+2r
       1141625162 1446151515 1515151515 1152655560 1145432032 1157606233 2020202020 0350151515 tARIR'FrrrrrrrrtJUMPtEC0;tOPR=00000!Hrrr
       1152655560 1145432132 1157416733 2021202020 0350151515 1152655560 1145432232 1157646333 tJUMPtEC1;tOAW=01000!HrrrtJUMPtEC2;tOTS=
       2022202020 0350151515 1152655560 1145432332 1157646346 3320232020 2003501515 1152655560 02000!HrrrtJUMPtEC3;tOTSF=03000!HrrtJUMP
       1145432432 1157415533 2024202020 0350151515 1152655560 1145432532 1162433320 2520202003 tEC4;tOAM=04000!HrrrtJUMPtEC5;tRC=05000!
       5015151515 1152655560 1145432632 1142623320 2620202003 5015151515 1152655560 1145432732 HrrrrtJUMPtEC6;tBR=06000!HrrrrtJUMPtEC7;
       1152633320 2720202003 5015151515 1152655560 1145432120 3211436233 2120202020 0350151515 tJS=07000!HrrrrtJUMPtEC10;tCR=10000!Hrrr
       1152655560 1145432121 3211544164 3321212020 2003501515 1152655560 1145432122 3211544162 tJUMPtEC11;tLAT=11000!HrrtJUMPtEC12;tLAR
       3321222020 2003501515 1152655560 1145432123 3211624546 3321232020 2003501515 1152655560 =12000!HrrtJUMPtEC13;tREF=13000!HrrtJUMP
       1145432124 3211624546 4133212420 2020035015 1152655560 1145432125 3211426263 3321252020 tEC14;tREFA=14000!HrtJUMPtEC15;tBRS=1500
       2003501515 1515151515 1515151515 0040445162 4543645762 4063715542 5754404445 4651565164 0!Hrrrrrrrrrrrr  DIRECTOR SYMBOL DEFINIT
       5157566315 1515151515 4162573326 2020035032 4057602133 2220200350 3240576022 3324202003 IONSrrrrrrARO=600!H; OP1=200!H; OP2=400!
       5032404556 4433242020 2020035015 5645473321 0350324056 3656454733 2220202021 0350324056 H; END=40000!HrNEG=1!H; N.NEG=20001!H; N
       5754332203 5032405636 5657543322 2020202203 5015151515 5666723323 0350324056 3656667233 OL=2!H; N.NOL=20002!HrrrrNVZ=3!H; N.NVZ=
       2220202023 0350324021 2442332403 5032405636 2124423322 2020202403 5015151515 4162332503 20003!H; 14B=4!H; N.14B=20004!HrrrrAR=5!
       5032405636 4162332220 2020250350 3240635064 3326035032 4056366350 6433222020 2026035032 H; N.AR=20005!H; SHT=6!H; N.SHT=20006!H;
       4043425633 2420324043 4464332220 1515151515 4341623321 2003503240 4460623322 2003503240  CBN=40; CDT=20rrrrrCAR=10!H; DPR=20!H; 
       4541653324 2003503240 6356413324 2020324063 4464332220 2032404365 5633212020 1515151515 EAU=40!H; SNA=400; SDT=200; CUN=100rrrrr
       4350563324 2020202032 4063416233 2220202020 3240624566 3321202020 2032404356 3324202020 CHN=40000; SAR=20000; REV=10000; CN=4000
       3240636556 3322202020 3240434272 3321202020 1515151515 1515151515 1515151515 4544220611 ; SUN=2000; CBZ=1000rrrrrrrrrrrrrrrED2:t
       5544416214 5011454426 1100576564 6065644056 5757604051 4640446062 2240121515 1155444162 MDAR'HtED6t OUTPUT NOOP IF DPR2 ?rrtMDAR
       1441144611 2220151515 1152635463 1145575657 6011005765 6460656440 5146407145 6315151515 'A'Ft20rrrtJSLStEONOPt OUTPUT IF YESrrrr
       1515151515 1155444162 1450145611 4544261100 5765646065 6440565757 6040514640 4541654057 rrrrrtMDAR'H'NtED6t OUTPUT NOOP IF EAU O
       6064515756 4012151515 1155444162 1441144611 2420151515 1152605463 1136102311 0063535160 PTION ?rrrtMDAR'A'Ft40rrrtJPLSt.+3t SKIP
       4051464056 5715151515 1515151515 1155444162 1145416557 4611004645 6443504045 4165405760  IF NOrrrrrrrrrtMDARtEAUOFt FETCH EAU OP
       6451575640 4654414715 1152635463 1145665756 5711005765 6460656440 5657576040 5146406345 TION FLAGrtJSLStEVONOt OUTPUT NOOP IF SE
       6415151515 1515151515 7777700000 5301460334 5301460334 5301460334 5301460334 5301460334 TrrrrrrrrrbbX  K%F!,K%F!,K%F!,K%F!,K%F!,
       5301460334 5301460334 5301460334 5301460334 5301460334                                  K%F!,K%F!,K%F!,K%F!,K%F!,
 1200: 0007600015 4664562025 1361200342 3414400000 1155444162 1450145611 4544261100 4357556054  _P rFTN05"Q0!B,'   tMDAR'H'NtED6t COMPL
       4555455664 4056454741 6451664540 4654414740 5146151515 1155444162 1441144611 2120110040 EMENT NEGATIVE FLAG IFrrrtMDAR'A'Ft10t  
       4040576045 6241564440 5645474164 5166454012 1515151515 1152605463 1136102120 1100635351   OPERAND NEGATIVE ?rrrrrtJPLSt.+10t SKI
       6040514640 5657151515 1515151515 1155444162 1456114566 6641461100 4162406057 5156644562 P IF NOrrrrrrrrtMDAR'NtEVVAFt AR POINTER
       4063456440 1215151515 1152604156 1136102611 0063535160 4051464056 5764151515 1515151515  SET ?rrrrtJPANt.+6t SKIP IF NOTrrrrrrrr
       1155444162 1451145014 5611456666 4160110045 5664627140 5156406364 4143534056 4547416451 tMDAR'I'H'NtEVVAPt ENTRY IN STACK NEGATI
       6645401215 1155444162 1441144611 2220111515 1152605463 1136102311 0063535160 4051464056 VE ?rtMDAR'A'Ft20trrtJPLSt.+3t SKIP IF N
       5764151515 1515151515 1155444162 1456114544 5551461100 4357556054 4555455664 4056454741 OTrrrrrrrrtMDAR'NtEDMIFt COMPLEMENT NEGA
       6451664540 4654414715 1141625544 1145445551 4615151515 1515151515 1155444162 1456114544 TIVE FLAGrtARMDtEDMIFrrrrrrrrrtMDAR'NtED
       2611004556 4440465441 4740634564 4012151515 1152604156 1145442341 1100475740 4457405645 6t END FLAG SET ?rrrtJPANtED3At GO DO NE
       7064404451 6245436457 6240514640 5657641515 1515151515 1155444162 1456114566 6443461100 XT DIRECTOR IF NOTrrrrrrrtMDAR'NtEVTCFt 
       6462414345 4060456255 5164644544 4012151515 1152604156 1145442243 4111005657 3440635351 TRACE PERMITTED ?rrrtJPANtED2CAt NO, SKI
       6015151515 1515151515 1141625544 1145666443 4611006245 6345644064 6241434540 4654414715 PrrrrrrrrrtARMDtEVTCFt RESET TRACE FLAGr
       1155444162 1451114566 6064621100 4645644350 4064624143 4540605751 5664456215 1152635463 tMDAR'ItEVPTRt FETCH TRACE POINTERrtJSLS
       1157646243 4311004341 5454406462 4143454057 6564606564 4051464063 4564151515 1155444162 tOTRCCt CALL TRACE OUTPUT IF SETrrrtMDAR
       1145665764 6311004040 4067516450 4044416441 4064716045 4041624736 4046456443 5015151515 tEVOTSt    WITH DATA TYPE ARG. FETCHrrrr
       1515151515 4544224341 0611554441 6211454421 2411004262 4156435040 6364414353 4045556064 rrrrrED2CA:tMDARtED14t BRANCH STACK EMPT
       7140121515 1155447057 1446114544 4262633521 1515151515 1152605463 1136102211 0063535160 Y ?rrtMDXO'FtEDBRS-1rrrrrtJPLSt.+2t SKIP
       4051464056 5764151515 1152655560 1145442272 1100455463 4534404757 4045564415 1515151515  IF NOTrrrtJUMPtED2Zt ELSE, GO ENDrrrrrr
       4544224306 1155444162 1451114544 2124110062 4563645762 4540414444 6245636340 4662575540 ED2C:tMDAR'ItED14t RESTORE ADDRESS FROM 
       6364414353 1515151515 1141625544 1145443015 1155444162 1145442124 1100424143 5340656040 STACKrrrrrtARMDtED8rtMDARtED14t BACK UP 
       6364414353 4060575156 6445621515 1155444163 1446145611 2115151515 1141625544 1145442124 STACK POINTERrrtMDAS'F'Nt1rrrrtARMDtED14
       1515151515 1152655560 1145442341 1100475740 4357566451 5665451515 1515151515 4544227206 rrrrrtJUMPtED3At GO CONTINUErrrrrrrED2Z:
       1155444162 1145442121 1100474564 4057656460 6564404441 6441406471 6045151515 1155444163 tMDARtED11t GET OUTPUT DATA TYPErrrtMDAS
       1446112126 2020201100 4362454164 4540416240 4556646271 1515151515 1141625544 1145443115 'Ft16000t CREATE AR ENTRYrrrrrtARMDtED9r
       1155444162 1441144611 2711005457 4751434154 4044416441 4064716045 4012151515 1155447057 tMDAR'A'Ft7t LOGICAL DATA TYPE ?rrrtMDXO
       1446112415 1152605463 1145442241 1100526555 6040514640 5657641515 1515151515 1155444162 'Ft4rtJPLStED2At JUMP IF NOTrrrrrrrtMDAR
       1456114544 6556461100 6556565762 5541545172 4544404654 4147406345 6415151515 1152604156 'NtEDUNFt UNNORMALIZED FLAG SETrrrrtJPAN
       1145442241 1100635351 6040514640 5657641515 1515151515 7777700000 7102232210 7102232210 tED2At SKIP IF NOTrrrrrrrbbX  Yc32+Yc32+
       7102232210 7102232210 7102232210 7102232210 7102232210 7102232210 7102232210 7102232210 Yc32+Yc32+Yc32+Yc32+Yc32+Yc32+Yc32+Yc32+
 1215: 0007700015 4664562025 1361200345 3414400000 1155444162 1145443111 0063456440 6556565762  _X rFTN05"Q0!E,'   tMDARtED9t SET UNNOR
       5541545172 4544404251 6415151515 1155444163 1446112420 1515151515 1141625544 1145443115 MALIZED BITrrrrtMDAS'Ft40rrrrrtARMDtED9r
       1515151515 4544224106 1155444162 1456114544 5551461100 5551566563 4046544147 4063456440 rrrrrED2A:tMDAR'NtEDMIFt MINUS FLAG SET 
       1215151515 1152604156 1136102411 0052655560 4051464056 5764151515 1515151515 1155444162 ?rrrrtJPANt.+4t JUMP IF NOTrrrrrrrrtMDAR
       1145443111 0063456440 5551566563 4042516415 1155444163 1446112220 1515151515 1141625544 tED9t SET MINUS BITrtMDAS'Ft20rrrrrtARMD
       1145443115 1515151515 1155444162 1456114544 4272461100 4241444072 4562574046 5441474063 tED9rrrrrrtMDAR'NtEDBZFt BAD ZERO FLAG S
       4564401215 1152604156 1136102411 0063535160 4051464056 5764151515 1515151515 1155444162 ET ?rtJPANt.+4t SKIP IF NOTrrrrrrrrtMDAR
       1145443111 0063456440 4241444072 4562574042 5164405156 4057604562 4156441515 1155444163 tED9t SET BAD ZERO BIT IN OPERANDrrtMDAS
       1446112120 2015151515 1141625544 1145443115 1515151515 1155444162 1145445641 6211005760 'Ft100rrrrtARMDtED9rrrrrrtMDARtEDNARt OP
       4562415644 4056576440 5156404162 4012151515 1152604156 1145442242 1100526555 6040514640 ERAND NOT IN AR ?rrrtJPANtED2Bt JUMP IF 
       6462654515 1515151515 1155444162 1451114544 2120110046 4564435040 5760456241 6457624067 TRUErrrrrrtMDAR'ItED10t FETCH OPERATOR W
       5762441515 1155444162 1441114155 4163531100 6245555766 4540575444 4064716045 1515151515 ORDrrtMDAR'AtAMASKt REMOVE OLD TYPErrrrr
       1155444162 1457145011 4544311100 6345644041 6240576045 6241564415 1141625544 1451114544 tMDAR'O'HtED9t SET AR OPERANDrtARMD'ItED
       2120110062 4563645762 4515151515 1155444162 1145442120 1100634564 4041624045 5664627140 10t RESTORErrrrtMDARtED10t SET AR ENTRY 
       6057515664 4562151515 1141625544 1145666641 6015151515 1141625544 1457114566 6641461100 POINTERrrrtARMDtEVVAPrrrrtARMD'OtEVVAFt 
       6345644041 6240664154 6545404654 4147151515 1141624162 1470114544 1515151515 1155445162 SET AR VALUE FLAGrrrtARAR'XtEDrrrrrtMDIR
       1470114544 1100624564 6562564016 2217151515 1515151515 4544224206 1155444162 1456114544 'XtEDt RETURN (2)rrrrrrrrED2B:tMDAR'NtED
       5551461100 5645474164 5166454046 5441474063 4564401215 1152604156 1136102411 0052655560 MIFt NEGATIVE FLAG SET ?rtJPANt.+4t JUMP
       4051464056 5764151515 1515151515 1155444162 1451145011 4544212011 0043575560 5445554556  IF NOTrrrrrrrrtMDAR'I'HtED10t COMPLEMEN
       6440576045 6241564440 5645474164 5166454046 5441471515 1155447057 1143222011 0040404051 T OPERAND NEGATIVE FLAGrrtMDXOtC20t    I
       4640714563 1515151515 1141625544 1451145011 4544212015 1515151515 1155444162 1145443111 F YESrrrrrtARMD'I'HtED10rrrrrrtMDARtED9t
       0055416353 4056456740 5760456241 5644404654 4147631515 1155444162 1441145432 1121242015  MASK NEW OPERAND FLAGSrrtMDAR'A'L;t140r
       1155444162 1457145014 5111454421 2011004357 5542515645 4067516450 4057544440 5760456241 tMDAR'O'H'ItED10t COMBINE WITH OLD OPERA
       5644151515 1141625544 1451145011 4544212015 1141627057 1446111100 6245634564 4041624045 NDrrrtARMD'I'HtED10rtARXO'Ftt RESET AR E
       5664627140 4654414740 4156444060 5751566445 6215151515 1141625544 1145666641 6015151515 NTRY FLAG AND POINTERrrrrtARMDtEVVAPrrrr
       1141625544 1145666641 4615151515 1155445162 1470114544 1100624564 6562564016 2117151515 tARMDtEVVAFrrrrtMDIR'XtEDt RETURN (1)rrr
       1515151515 1515151515 4544226406 1155444162 1145666641 6011001656 5764406563 4544171515 rrrrrrrrrrED2T:tMDARtEVVAPt (NOT USED)rr
       1155444162 1145665760 2111005760 4562415644 4021151515 1155444162 1145665760 2211005760 tMDARtEVOP1t OPERAND 1rrrtMDARtEVOP2t OP
       4562415644 4022151515 1155444162 1145666641 6011004162 4057604562 4156441515 1515151515 ERAND 2rrrtMDARtEVVAPt AR OPERANDrrrrrrr
       7777700000 3041460774 3041460774 3041460774 3041460774 3041460774 3041460774 3041460774 bbX  8AF_#8AF_#8AF_#8AF_#8AF_#8AF_#8AF_#
       3041460774 3041460774 3041460774                                                        8AF_#8AF_#8AF_#
 1055: 0010000015 4664562025 1361200305 3414400000 4544244106 1155444162 1451145011 4544301100  +  rFTN05"Q0!*,'   ED4A:tMDAR'I'HtED8t 
       5760456241 5644404651 4554444041 6240576045 6241564440 1215151515 1155444162 1441144611 OPERAND FIELD AR OPERAND ?rrrrtMDAR'A'Ft
       2620201515 1155447057 1446112620 2015151515 1152605463 1145442441 2111006353 5160405146 600rrtMDXO'Ft600rrrrtJPLStED4A1t SKIP IF
       4056576415 1515151515 1155444162 1450114544 2511004645 6443504063 4166454440 4162405760  NOTrrrrrrtMDAR'HtED5t FETCH SAVED AR OP
       4562415644 4046544147 6315151515 1152655560 1145442441 2110211100 6353516015 1515151515 ERAND FLAGSrrrrtJUMPtED4A1+1t SKIPrrrrrr
       4544244121 0611554441 6214511450 1145442711 0046456443 5040465441 4763404662 5755405760 ED4A1:tMDAR'I'HtED7t FETCH FLAGS FROM OP
       4562415644 1515151515 1155444162 1441144611 2220110056 4547416451 6645404654 4147406345 ERANDrrrrrtMDAR'A'Ft20t NEGATIVE FLAG SE
       6440121515 1152605463 1145442311 0064626545 4051464071 4563151515 1515151515 1152655560 T ?rrtJPLStED3t TRUE IF YESrrrrrrrrtJUMP
       1145442411 0045546345 3440464154 6345151515 1515151515 1515151515 4544244206 1155444162 tED4t ELSE, FALSErrrrrrrrrrrrrED4B:tMDAR
       1451145011 4544271100 4645644350 4046544147 6340466257 5540576045 6241564415 1155444162 'I'HtED7t FETCH FLAGS FROM OPERANDrtMDAR
       1441144611 2427110056 5762554154 5172454440 5457475143 4154401215 1155447057 1446112415 'A'Ft47t NORMALIZED LOGICAL ?rtMDXO'Ft4r
       1152605463 1145442411 0046415463 4540514640 5657641515 1152655560 1145442311 0045546345 tJPLStED4t FALSE IF NOTrrtJUMPtED3t ELSE
       3440646265 4515151515 1515151515 1515151515 4544244306 1155444162 1451145011 4544271100 , TRUErrrrrrrrrrrrrrED4C:tMDAR'I'HtED7t 
       4645644350 4057604562 4156444046 5441476315 1155444162 1441144611 2120201100 5156664154 FETCH OPERAND FLAGSrtMDAR'A'Ft100t INVAL
       5144407245 6257401215 1152605463 1145442311 0064626545 4051464071 4563151515 1515151515 ID ZERO ?rtJPLStED3t TRUE IF YESrrrrrrrr
       1152655560 1145442411 0045546345 3440464154 6345151515 1515151515 1515151515 4544244406 tJUMPtED4t ELSE, FALSErrrrrrrrrrrrrED4D:
       1155444162 1145442711 0043504543 5340465762 4021243542 5164404357 5663644156 6415151515 tMDARtED7t CHECK FOR 14-BIT CONSTANTrrrr
       1152606362 1143534357 5615151515 1152655560 1145442411 0052655560 4051464046 4154634515 tJPSRtCKCONrrrrtJUMPtED4t JUMP IF FALSEr
       1152655560 1145442311 0045546345 3440646265 4515151515 1515151515 1515151515 1515151515 tJUMPtED3t ELSE, TRUErrrrrrrrrrrrrrrrrrr
       4544244506 1155444162 1145442711 0057604562 4156444041 4444624563 6340634155 4540416340 ED4E:tMDARtED7t OPERAND ADDRESS SAME AS 
       4162151515 1155447057 1145666641 6011004040 4045566462 7140605751 5664456215 1152605463 ARrrrtMDXOtEVVAPt    ENTRY POINTERrtJPLS
       1145442411 0046415463 4540514640 5657151515 1152655560 1145442311 0045546345 3440646265 tED4t FALSE IF NOrrrtJUMPtED3t ELSE, TRU
       4515151515 1515151515 1515151515 4544244606 1155444162 1163505762 4611006350 5762644055 ErrrrrrrrrrrrrrED4F:tMDARtSHORFt SHORT M
       5744454046 5441471140 6345644012 1515151515 1152604156 1145442311 0064626545 4051464071 ODE FLAGt SET ?rrrrrtJPANtED3t TRUE IF Y
       4563151515 1152655560 1145442411 0045546345 3440464154 6345151515 1515151515 1515151515 ESrrrtJUMPtED4t ELSE, FALSErrrrrrrrrrrrr
       7777700000 2531035722 2531035722 2531035722 2531035722 2531035722 2531035722 2531035722 bbX  59!O259!O259!O259!O259!O259!O259!O2
       2531035722 2531035722 2531035722                                                        59!O259!O259!O2
   75: 0010100015 4664562025 1361200001 3414400000 7777777777 7777777777 7777777777 7777777777  ++ rFTN05"Q0 %,'   bbbbbbbbbbbbbbbbbbbb
       7777777777 7777777777 7777777777 7777777777 7777777777 7777777777 7777777777            bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
 1185: 0000100016 4664562026 1361200337 3414400000 0040576062 4043575555 4156444040 3535404065   + (FTN06"Q0!/,'     OPR COMMAND  --  U
       5641627140 4445435744 4540414444 6245636340 4651455444 1515151515 1515151515 4543200611 NARY DECODE ADDRESS FIELDrrrrrrrrrrEC0:t
       5544416214 5114501456 1145443011 0042516440 2125406345 6440121515 1141625544 1145442122 MDAR'I'H'NtED8t BIT 15 SET ?rrtARMDtED12
       1515151515 1152604156 1136102311 0063535160 4051464056 5764151515 1515151515 1155444162 rrrrrtJPANt.+3t SKIP IF NOTrrrrrrrrtMDAR
       1145432441 1100464564 4350404350 4151564041 4444624563 6315151515 1152606362 1143504151 tEC4At FETCH CHAIN ADDRESSrrrrtJPSRtCHAI
       5611004040 4041564440 4350415156 4065601515 1515151515 1155444162 1456144211 4544212211 Nt    AND CHAIN UPrrrrrrrtMDAR'N'BtED12t
       0042516440 2126406345 6440121515 1141625544 1456114544 2122151515 1515151515 1152634156  BIT 16 SET ?rrtARMD'NtED12rrrrrrrrtJSAN
       1163645741 6211006364 5762454041 6240514640 7145631515 1515151515 1155444162 1442114544 tSTOARt STORE AR IF YESrrrrrrrtMDAR'BtED
       2122110042 5164402127 4063456440 1215151515 1141625544 1145442122 1515151515 1152604156 12t BIT 17 SET ?rrrrtARMDtED12rrrrrtJPAN
       1136102711 0052655560 4051464056 5764151515 1515151515 1155444162 1145665760 2111004554 t.+7t JUMP IF NOTrrrrrrrrtMDARtEVOP1t EL
       6345344062 4566456263 4540576045 6241564463 1515151515 1141625544 1145442123 1515151515 SE, REVERSE OPERANDSrrrrrtARMDtED13rrrrr
       1155444162 1145665760 2215151515 1141625544 1145665760 2115151515 1155444162 1145442123 tMDARtEVOP2rrrrtARMDtEVOP1rrrrtMDARtED13
       1515151515 1141625544 1145665760 2215151515 1515151515 1155444162 1442114544 2122110042 rrrrrtARMDtEVOP2rrrrrrrrrtMDAR'BtED12t B
       5164402130 4063456440 1215151515 1141625544 1145442122 1515151515 1152604156 1136102311 IT 18 SET ?rrrrtARMDtED12rrrrrtJPANt.+3t
       0052655560 4051464056 5764151515 1515151515 1155444162 1456114544 5551461100 4357556054  JUMP IF NOTrrrrrrrrtMDAR'NtEDMIFt COMPL
       4555455664 4056454741 6451664540 4654414715 1141625544 1145445551 4615151515 1515151515 EMENT NEGATIVE FLAGrtARMDtEDMIFrrrrrrrrr
       1155444162 1442145611 4544212211 0042516440 2131406345 6440121515 1141565162 1145432041 tMDAR'B'NtED12t BIT 19 SET ?rrtANIRtEC0A
       1100634564 4065565657 6255415451 7245444051 4640714563 1515151515 1141624162 1446144211 t SET UNNORMALIZED IF YESrrrrrtARAR'F'Bt
       1100425164 4022204063 4564401215 1141565162 1145432042 1100624563 4564404241 4440724562 t BIT 20 SET ?rtANIRtEC0Bt RESET BAD ZER
       5740465441 4740514640 7145631515 1141624162 1446144214 5615151515 1141625544 1145442122 O FLAG IF YESrrtARAR'F'B'NrrrrtARMDtED12
       1100425164 4022214063 4564401215 1152604156 1136102411 0052655560 4051464056 5764151515 t BIT 21 SET ?rtJPANt.+4t JUMP IF NOTrrr
       1515151515 1141625544 1457114544 5641621100 6345644056 5764405156 4041624046 5441471515 rrrrrtARMD'OtEDNARt SET NOT IN AR FLAGrr
       1155444162 1145442711 0043504156 4745404651 5641544063 6457624540 4144446245 6363151515 tMDARtED7t CHANGE FINAL STORE ADDRESSrrr
       1141625544 1145442120 1100404040 6457406360 4543514651 4544405760 4562415644 1515151515 tARMDtED10t    TO SPECIFIED OPERANDrrrrr
       1515151515 1155444162 1442114544 2122110042 5164402222 4063456440 1215151515 1141625544 rrrrrtMDAR'BtED12t BIT 22 SET ?rrrrtARMD
       1145442122 1515151515 1152604156 1145432050 1100526555 6040514640 5657641515 1515151515 tED12rrrrrtJPANtEC0Ht JUMP IF NOTrrrrrrr
       1155444162 1451114544 3011006345 6440576564 6065644044 4164414064 7160454046 6257554042 tMDAR'ItED8t SET OUTPUT DATA TYPE FROM B
       5164631515 1155444162 1441114327 1100404040 2227352231 1515151515 1141625544 1145442121 ITSrrtMDAR'AtC7t    27-29rrrrrtARMDtED11
       1515151515 1515151515 7777700000 0216753554 0216753554 0216753554 0216753554 0216753554 rrrrrrrrrrbbX  c(@-Lc(@-Lc(@-Lc(@-Lc(@-L
       0216753554 0216753554 0216753554 0216753554 0216753554                                  c(@-Lc(@-Lc(@-Lc(@-Lc(@-L
 1070: 0000200016 4664562026 1361200310 3414400000 4543205006 1155444162 1442114544 2122110042   0 (FTN06"Q0!+,'   EC0H:tMDAR'BtED12t B
       5164402223 4063456440 1215151515 1141625544 1145442122 1515151515 1152604156 1145432051 IT 23 SET ?rrrrtARMDtED12rrrrrtJPANtEC0I
       1100526555 6040514640 5657641515 1515151515 1155444162 1451145011 4566576021 1100576045 t JUMP IF NOTrrrrrrrtMDAR'I'HtEVOP1t OPE
       6241564440 2140565762 5541545172 4544405457 4751434154 4012151515 1155444162 1441144611 RAND 1 NORMALIZED LOGICAL ?rrrtMDAR'A'Ft
       2427151515 1155447057 1446112415 1154635162 1145432041 1100634564 4065565657 6255415451 47rrrtMDXO'Ft4rtLSIRtEC0At SET UNNORMALI
       7245444051 4640565764 1515151515 1515151515 1155444162 1451145011 4566576022 1100576045 ZED IF NOTrrrrrrrrrrtMDAR'I'HtEVOP2t OPE
       6241564440 2240565762 5541545172 4544405457 4751434154 4012151515 1155444162 1441144611 RAND 2 NORMALIZED LOGICAL ?rrrtMDAR'A'Ft
       2427151515 1155447057 1446112415 1154635162 1145432041 1100634564 4065565657 6255415451 47rrrtMDXO'Ft4rtLSIRtEC0At SET UNNORMALI
       7245444051 4640565764 1515151515 1515151515 4543205106 1155444162 1442114544 2122110042 ZED IF NOTrrrrrrrrrrEC0I:tMDAR'BtED12t B
       5164402224 4063456440 1215151515 1141625544 1145442122 1515151515 1152604156 1145432052 IT 24 SET ?rrrrtARMDtED12rrrrrtJPANtEC0J
       1100526555 6040514640 5657641515 1515151515 1155444162 1145445551 4611005551 5665634046 t JUMP IF NOTrrrrrrrtMDARtEDMIFt MINUS F
       5441474063 4564401215 1152604156 1145432052 1100526555 6040514640 7145631515 1515151515 LAG SET ?rtJPANtEC0Jt JUMP IF YESrrrrrrr
       1141625544 1145444272 4611004354 4541624042 4144407245 6257404654 4147151515 1515151515 tARMDtEDBZFt CLEAR BAD ZERO FLAGrrrrrrrr
       4543205206 1155444162 1442114544 2122110042 5164402225 4063456440 1215151515 1152604156 EC0J:tMDAR'BtED12t BIT 25 SET ?rrrrtJPAN
       1145442211 0052655560 4051464056 5764151515 1515151515 1155444162 1442114566 6455211100 tED2t JUMP IF NOTrrrrrrrrtMDAR'BtEVTM1t 
       6556416271 4057604562 4164576240 1215151515 1152604156 1136102511 0063535160 4051464071 UNARY OPERATOR ?rrrrtJPANt.+5t SKIP IF Y
       4563151515 1515151515 1155444162 1451145011 4566576021 1100576045 6241564440 2140647160 ESrrrrrrrrtMDAR'I'HtEVOP1t OPERAND 1 TYP
       4540545747 5143415440 1215151515 1155447057 1446112415 1155444162 1441144611 2715151515 E LOGICAL ?rrrrtMDXO'Ft4rtMDAR'A'Ft7rrrr
       1152605463 1145432052 4111005265 5560405146 4056576415 1515151515 1155444162 1451145011 tJPLStEC0JAt JUMP IF NOTrrrrrrtMDAR'I'Ht
       4566576022 1100576045 6241564440 2240647160 4540545747 5143415440 1215151515 1155444162 EVOP2t OPERAND 2 TYPE LOGICAL ?rrrrtMDAR
       1441144611 2715151515 1155447057 1446112415 1515151515 4543205241 0611546351 6211434162 'A'Ft7rrrrtMDXO'Ft4rrrrrrEC0JA:tLSIRtCAR
       7057365411 0063456440 7245625740 5146405657 6415151515 1155444162 1451114544 3011004554 XO.Lt SET ZERO IF NOTrrrrtMDAR'ItED8t EL
       6345344063 4564404662 5755404451 6245436457 6215151515 1155444162 1441114327 1515151515 SE, SET FROM DIRECTORrrrrtMDAR'AtC7rrrrr
       1141625544 1145442121 1515151515 1152655560 1145442211 0041564440 4757404556 4415151515 tARMDtED11rrrrrtJUMPtED2t AND GO ENDrrrr
       1515151515 4543204106 1141625544 1457114544 6556461515 4543204206 1141625544 1456114544 rrrrrEC0A:tARMD'OtEDUNFrrEC0B:tARMD'NtED
       4272461515 1515151515 1515151515 7777700000 0271321133 0271321133 0271321133 0271321133 BZFrrrrrrrrrrrrbbX  cY;t=cY;t=cY;t=cY;t=
       0271321133 0271321133 0271321133 0271321133 0271321133 0271321133                       cY;t=cY;t=cY;t=cY;t=cY;t=cY;t=
 1120: 0000300016 4664562026 1361200322 3414400000 0040574167 4035405765 6460656440 4142635754   8 (FTN06"Q0!2,'     OAW - OUTPUT ABSOL
       6564454067 5762441515 1515151515 4543210611 5544416214 5111454431 1100464564 4350404144 UTE WORDrrrrrrrEC1:tMDAR'ItED9t FETCH AD
       4462456363 4544406757 6244151515 1515151515 4543214106 1152606362 1145665741 4211005765 DRESSED WORDrrrrrrrrEC1A:tJPSRtEVOABt OU
       6460656440 4142635754 6564454067 5762441515 1152655560 1145442211 0047574045 5644151515 TPUT ABSOLUTE WORDrrtJUMPtED2t GO ENDrrr
       1515151515 1515151515 0040576463 4035405765 6460656440 5764634062 4546456245 5643454063 rrrrrrrrrr  OTS - OUTPUT OTS REFERENCE S
       6542625765 6451564540 4341545415 1515151515 4543220611 5544416214 5011454431 1100464564 UBROUTINE CALLrrrrrrEC2:tMDAR'HtED9t FET
       4350404144 4462456363 1515151515 1155444163 1446112220 1100436245 4164454013 5260636213 CH ADDRESSrrrrrtMDAS'Ft20t CREATE "JPSR"
       1515151515 1515151515 4543224106 1141625544 1450113610 2211006341 6645406757 6244151515 rrrrrrrrrrEC2A:tARMD'Ht.+2t SAVE WORDrrr
       1152606362 1157637162 4611005765 6460656440 5764634062 4546456245 5643451515 1156575760 tJPSRtOSYRFt OUTPUT OTS REFERENCErrtNOOP
       1515151515 1152655560 1145442211 0047574045 5644151515 1515151515 1515151515 0040576463 rrrrrtJUMPtED2t GO ENDrrrrrrrrrrrrr  OTS
       4640354057 6564606564 4046655454 4067576244 4057646340 6245464562 4556434515 1515151515 F - OUTPUT FULL WORD OTS REFERENCErrrrrr
       4543230611 5544416214 5014511145 4431110046 4564435040 4665545440 5764634062 4546456245 EC3:tMDAR'H'ItED9t FETCH FULL OTS REFERE
       5643451515 1152655560 1145432241 1100475740 5765646065 6415151515 1515151515 1515151515 NCErrtJUMPtEC2At GO OUTPUTrrrrrrrrrrrrrr
       0040574155 4035405765 6460656440 4142635754 6564454041 5644405541 6253405457 4341645157   OAM - OUTPUT ABSOLUTE AND MARK LOCATIO
       5615151515 1515151515 4543240611 5544416211 5754574311 0063416645 4043656262 4556644054 NrrrrrrrrrEC4:tMDARtOLOCt SAVE CURRENT L
       5743416451 5756151515 1141625544 1454151515 4543244106 1111201515 1152655560 1145432111 OCATIONrrrtARMD'LrrrEC4A:tt0rrtJUMPtEC1t
       0047574057 6564606564 4041426357 5465644515 1515151515 1515151515 0040624340 3540435756  GO OUTPUT ABSOLUTErrrrrrrrrrr  RC - CON
       4451645157 5641544062 4546456245 5643454051 4640576045 6241564440 5156404162 1515151515 DITIONAL REFERENCE IF OPERAND IN ARrrrrr
       1515151515 4543250611 5544416211 4544271100 5760456241 5644405156 4041624012 1515151515 rrrrrEC5:tMDARtED7t OPERAND IN AR ?rrrrr
       1155447057 1145666641 6015151515 1152605463 1145432123 1100475740 6245464562 4556434540 tMDXOtEVVAPrrrrtJPLStEC13t GO REFERENCE 
       5760456241 5644405146 4056576415 1515151515 1141624162 1470114544 3111005156 4445704067 OPERAND IF NOTrrrrrrtARAR'XtED9t INDEX W
       5762444060 5751566445 6215151515 1152655560 1145432111 0047574057 6564606564 4041426357 ORD POINTERrrrrtJUMPtEC1t GO OUTPUT ABSO
       5465644515 1515151515 1515151515 0040426240 3540426241 5643504051 5640445162 4543645762 LUTErrrrrrrrrrr  BR - BRANCH IN DIRECTOR
       4054516364 1515151515 1515151515 4543260611 5544416211 4544311100 4745644042 6241564350  LISTrrrrrrrrrrEC6:tMDARtED9t GET BRANCH
       4041444462 4563631515 1155444163 1446145611 2111004144 5265636415 1141625544 1145443011  ADDRESSrrtMDAS'F'Nt1t ADJUSTrtARMDtED8t
       0063416645 4051564044 5162454364 5762405451 6364406057 5156644562 1515151515 1152655560  SAVE IN DIRECTOR LIST POINTERrrrrrtJUMP
       1145442211 0047574045 5644151515 1515151515 1515151515 7777700000 3720534146 3720534146 tED2t GO ENDrrrrrrrrrrrrrbbX  /0KAF/0KAF
       3720534146 3720534146 3720534146 3720534146 3720534146 3720534146 3720534146 3720534146 /0KAF/0KAF/0KAF/0KAF/0KAF/0KAF/0KAF/0KAF
 1150: 0000400016 4664562026 1361200330 3414400000 0040526340 3540526555 6040645740 5541435051     (FTN06"Q0!8,'     JS - JUMP TO MACHI
       5645405441 5647654147 4540636542 6257656451 5645151515 1515151515 4543270611 5260636214 NE LANGUAGE SUBROUTINErrrrrrrrEC7:tJPSR'
       5111454431 1100434154 5440414444 6245636345 4440636542 6257656451 5645151515 1152655560 ItED9t CALL ADDRESSED SUBROUTINErrrtJUMP
       1145442211 0047574045 5644151515 1515151515 1515151515 0040436240 3540435756 4451645157 tED2t GO ENDrrrrrrrrrrrrr  CR - CONDITIO
       5641544062 4546456245 5643454051 4640576045 6241564440 5163404140 2124354251 6440435756 NAL REFERENCE IF OPERAND IS A 14-BIT CON
       6364415664 1515151515 1515151515 4543212006 1155444162 1145442711 0043504543 5340514640 STANTrrrrrrrrrrEC10:tMDARtED7t CHECK IF 
       5760456241 5644405163 4021243542 5164404357 5663644156 6415151515 1152606362 1143534357 OPERAND IS 14-BIT CONSTANTrrrrtJPSRtCKCO
       5615151515 1152655560 1145432120 4111005265 5560405146 4056576415 1515151515 1155444162 NrrrrtJUMPtEC10At JUMP IF NOTrrrrrrtMDAR
       1441114155 4163531100 5541635340 4357566364 4156641515 1155444162 1457145114 7011454431 'AtAMASKt MASK CONSTANTrrtMDAR'O'I'XtED9
       1100576240 5156404142 6357546564 4540515663 6462654364 5157561515 1152655560 1145432141 t OR IN ABSOLUTE INSTRUCTIONrrtJUMPtEC1A
       1100475740 5765646065 6440414263 5754656445 1515151515 1515151515 4543212041 0611554441 t GO OUTPUT ABSOLUTErrrrrrrrrrEC10A:tMDA
       6211454427 1100464564 4350405760 4562415644 4060575156 6445621515 1152606362 1145436343 RtED7t FETCH OPERAND POINTERrrtJPSRtECSC
       1100636457 6245404357 5663644156 6415151515 1152655560 1145432123 1100415644 4062454645 t STORE CONSTANTrrrrtJUMPtEC13t AND REFE
       6245564345 4056576255 4154151515 1515151515 1515151515 0040544164 4035405457 4144404162 RENCE NORMALrrrrrrrrrrrrr  LAT - LOAD AR
       4067516450 4064626545 4066415465 4515151515 1515151515 4543212106 1155444162 1145442711  WITH TRUE VALUErrrrrrrrrEC11:tMDARtED7t
       0057604562 4156444051 5640416240 1215151515 1155447057 1145666641 6015151515 1152605463  OPERAND IN AR ?rrrrtMDXOtEVVAPrrrrtJPLS
       1145432122 1100526555 6040514640 5657641515 1515151515 1155444162 1450145611 4544251100 tEC12t JUMP IF NOTrrrrrrrtMDAR'H'NtED5t 
       4162406641 5465454056 4547416445 4415151515 1155444162 1441144611 2220151515 1152605463 AR VALUE NEGATEDrrrrtMDAR'A'Ft20rrrtJPLS
       1145432122 1100635351 6040514640 5657641515 1515151515 1155444162 1143416241 6236463656 tEC12t SKIP IF NOTrrrrrrrtMDARtCARAR.F.N
       1100576564 6065644013 4162416214 4614561315 1152606362 1145665741 4215151515 1155444162 t OUTPUT "ARAR'F'N"rtJPSRtEVOABrrrrtMDAR
       1456114322 2011006245 6345644041 6240564547 4164516645 4046544147 1515151515 1155444162 'NtC20t RESET AR NEGATIVE FLAGrrrrrtMDAR
       1441145011 4544251515 1141625544 1450114544 2515151515 1141627057 1446151515 1141625544 'A'HtED5rrtARMD'HtED5rrrrtARXO'FrrrtARMD
       1145445551 4611006245 6345644056 4547416451 6645404654 4147151515 1152655560 1145432011 tEDMIFt RESET NEGATIVE FLAGrrrtJUMPtEC0t
       0047574044 5740135760 6213404357 5555415644 1515151515 1515151515 1515151515 0040544162  GO DO "OPR" COMMANDrrrrrrrrrrrrrrr  LAR
       4035405457 4144404162 4067516450 4057604562 4156441515 1515151515 4543212206 1155444162  - LOAD AR WITH OPERANDrrrrrrrEC12:tMDAR
       1145442711 0057604562 4156444051 5640416240 1215151515 1155447057 1145666641 6015151515 tED7t OPERAND IN AR ?rrrrtMDXOtEVVAPrrrr
       1152605463 1136102215 1152655560 1145432011 0047574044 5740135760 6213404357 5555415644 tJPLSt.+2rtJUMPtEC0t GO DO "OPR" COMMAND
       4051464071 4563151515 1515151515 7777700000 4067605211 4067605211 4067605211 4067605211  IF YESrrrrrrrrbbX   WPJt WPJt WPJt WPJt
       4067605211 4067605211 4067605211 4067605211 4067605211 4067605211                        WPJt WPJt WPJt WPJt WPJt WPJt
 1445: 0000500016 4664562026 1361200423 3414400000 1155444162 1145442711 0046456443 5040605751   H (FTN06"Q0&3,'   tMDARtED7t FETCH POI
       5664456240 6457405760 4562415644 1515151515 1141625544 1145666641 6011006341 6645404163 NTER TO OPERANDrrrrrtARMDtEVVAPt SAVE AS
       4041624060 5751566445 6215151515 1152606362 1145436246 1100576564 6065644062 4546456245  AR POINTERrrrrtJPSRtECRFt OUTPUT REFERE
       5643454064 5740576045 6241564415 1155444162 1143554441 6211004040 4041634013 5544416213 NCE TO OPERANDrtMDARtCMDARt    AS "MDAR"
       1515151515 1141625544 1457114566 6641461100 6345644041 6240576045 6241564440 6062456345 rrrrrtARMD'OtEVVAFt SET AR OPERAND PRESE
       5664404654 4147151515 1155444162 1456114322 2011006245 5557664540 5645474046 5441474046 NT FLAGrrrtMDAR'NtC20t REMOVE NEG FLAG F
       6257554057 6045624156 4440455664 6271151515 1155444162 1441145014 5111454427 1515151515 ROM OPERAND ENTRYrrrtMDAR'A'H'ItED7rrrrr
       1141625544 1450145111 4544271515 1141625544 1450114544 2511004156 4440634564 4051566445 tARMD'H'ItED7rrtARMD'HtED5t AND SET INTE
       6256415440 5760456241 5644406757 6244151515 1152655560 1145432011 0047574044 5740135760 RNAL OPERAND WORDrrrtJUMPtEC0t GO DO "OP
       6213404357 5555415644 1515151515 1515151515 1515151515 0040624546 4035405657 6255415440 R" COMMANDrrrrrrrrrrrrrrr  REF - NORMAL 
       5760456241 5644406245 4645624556 4345151515 1515151515 4543212306 1155444162 1145442711 OPERAND REFERENCErrrrrrrrEC13:tMDARtED7t
       0046456443 5040576045 6241564440 6057515664 4562151515 1152606362 1145436246 1100576564  FETCH OPERAND POINTERrrrtJPSRtECRFt OUT
       6065644062 4546456245 5643454064 5740576045 6241564415 1155444162 1451114544 3111004040 PUT REFERENCE TO OPERANDrtMDAR'ItED9t   
       4067516450 4046655454 4067576244 1515151515 1152655560 1145442211 0047574045 5644151515  WITH FULL WORDrrrrrtJUMPtED2t GO ENDrrr
       1515151515 1515151515 0040624546 4140354062 4546456245 5643454057 6045624156 4440675164 rrrrrrrrrr  REFA - REFERENCE OPERAND WIT
       5057656440 5645474164 5166454043 5041564745 1515151515 1515151515 4543212406 1155444162 HOUT NEGATIVE CHANGErrrrrrrrrrEC14:tMDAR
       1145442711 0046456443 5040576045 6241564440 6057515664 4562151515 1152606362 1145436246 tED7t FETCH OPERAND POINTERrrrtJPSRtECRF
       7011005765 6460656440 6245464562 4556434540 6457405760 4562415644 4067516450 5765641515 Xt OUTPUT REFERENCE TO OPERAND WITHOUTrr
       1155444162 1451114544 3111004040 4056454741 6451664540 4350415647 4515151515 1152655560 tMDAR'ItED9t    NEGATIVE CHANGErrrrtJUMP
       1145442211 0047574045 5644151515 1515151515 0040426263 4035404262 4156435040 6457406365 tED2t GO ENDrrrrrrrr  BRS - BRANCH TO SU
       4262576564 5156451515 1515151515 4543212506 1155444162 1145443011 0063416645 4041444462 BROUTINErrrrrrrEC15:tMDARtED8t SAVE ADDR
       4563631515 1141625544 1451147011 4544212411 0040404057 5640636441 4353151515 1152655560 ESSrrtARMD'I'XtED14t    ON STACKrrrtJUMP
       1145432611 0047574044 5740426241 5643501515 1515151515 1515151515 4544555146 0611112011 tEC6t GO DO BRANCHrrrrrrrrrrrrEDMIF:tt0t
       0055515665 4640465441 4715151515 4544655646 0611112011 0065565657 6255415451 7245444046  MINUF FLAGrrrrEDUNF:tt0t UNNORMALIZED F
       5441471515 4544427246 0611112011 0042414440 7245625740 4654414715 4544564162 0611112011 LAGrrEDBZF:tt0t BAD ZERO FLAGrEDNAR:tt0t
       0056576440 5156404162 4046544147 1515151515 1515151515 4544250611 1120110041 6240664154  NOT IN AR FLAGrrrrrrrrrrED5:tt0t AR VAL
       6545404654 4147631515 4544260611 1120110063 4166454440 4357555541 5644406757 6244151515 UE FLAGSrrED6:tt0t SAVED COMMAND WORDrrr
       4544270611 1120110062 4546456245 5643454440 5760456241 5644404144 4462456363 1515151515 ED7:tt0t REFERENCED OPERAND ADDRESSrrrrr
       4544300611 1120110044 5162454364 5762405457 4341645157 5640605751 5664456215 4544310611 ED8:tt0t DIRECTOR LOCATION POINTERrED9:t
       1120110044 5162454364 5762404144 4462456363 4046514554 4440664154 6545151515 4544212006 t0t DIRECTOR ADDRESS FIELD VALUErrrED10:
       1111201100 4144446245 6363406457 4063416645 4041624057 6045624156 4415151515 4544212106 tt0t ADDRESS TO SAVE AR OPERANDrrrrED11:
       1111201100 6245636554 6440444164 4140647160 4515151515 4544212206 1111201100 6445556036 tt0t RESULT DATA TYPErrrrED12:tt0t TEMP.
       4063645762 4147451515 4544212306 1111201100 4040134040 4040401315 4544212406 1111454442  STORAGErrED13:tt0t   "     "rED14:ttEDB
       6263352111 0042624156 4350406364 4143534060 5751566445 6215151515 1515151515 4544426263 RS-1t BRANCH STACK POINTERrrrrrrrrrEDBRS
       0611203240 2032402032 4020324020 1515151515 1515151515 1515151515 7777700000 3657544724 :t0; 0; 0; 0; 0rrrrrrrrrrrrrrrbbX  .OLG4
       3657544724 3657544724 3657544724 3657544724 3657544724 3657544724 3657544724 3657544724 .OLG4.OLG4.OLG4.OLG4.OLG4.OLG4.OLG4.OLG4
       3657544724                                                                              .OLG4
 1230: 0000600016 4664562026 1361200350 3414400000 0040576564 6065644062 4546456245 5643454064   P (FTN06"Q0!H,'     OUTPUT REFERENCE T
       5740637155 4257541515 1515151515 4543624647 0611526555 6011361100 4556646271 4046576240 O SYMBOLrrrrrrrECRFG:tJUMPt.t ENTRY FOR 
       4762414670 4062454645 6245564345 1515151515 1141625544 1145436246 3111006341 6645406057 GRAFX REFERENCErrrrrtARMDtECRF9t SAVE PO
       5156644562 1515151515 1152606362 1163456447 5511006345 6440476241 4670405557 4445151515 INTERrrrrrtJPSRtSETGMt SET GRAFX MODErrr
       1155444162 1145436246 4711006341 6645401654 4317151515 1141625544 1145436246 1515151515 tMDARtECRFGt SAVE (LC)rrrtARMDtECRFrrrrr
       1152655560 1145436246 2111004757 4045566445 6240415644 4063456440 4142635754 6564454046 tJUMPtECRF1t GO ENTER AND SET ABSOLUTE F
       5441471515 1515151515 4543624670 0611526555 6011361100 4556646271 4046576240 4142635754 LAGrrrrrrrECRFX:tJUMPt.t ENTRY FOR ABSOL
       6564454062 4546456245 5643451515 1141625544 1145436246 3111006341 6645406057 5156644562 UTE REFERENCErrtARMDtECRF9t SAVE POINTER
       1515151515 1152606362 1163456441 5511006345 6440554143 5051564540 4357444540 5557444515 rrrrrtJPSRtSETAMt SET MACHINE CODE MODEr
       1155444162 1145436246 7015151515 1141625544 1145436246 1100634166 4540544340 4556646271 tMDARtECRFXrrrrtARMDtECRFt SAVE LC ENTRY
       1515151515 1152655560 1145436246 2111004757 4063456440 4142635754 6564454046 5441471515 rrrrrtJUMPtECRF1t GO SET ABSOLUTE FLAGrr
       1515151515 4543624606 1152655560 1136110045 5664627140 4657624060 5763635142 5445405645 rrrrrECRF:tJUMPt.t ENTRY FOR POSSIBLE NE
       4741645166 4540624546 1515151515 1141625544 1145436246 3111006341 6645405760 4562415644 GATIVE REFrrrrrtARMDtECRF9t SAVE OPERAND
       4060575156 6445621515 1152606362 1163456441 5511006345 6440554143 5051564540 4357444540  POINTERrrtJPSRtSETAMt SET MACHINE CODE 
       5557444515 1141627057 1454151515 4543624621 0611416270 5714461456 1515151515 1141625544 MODErtARXO'LrrrECRF1:tARXO'F'NrrrrrtARMD
       1145436246 2711006345 6440414263 5754656445 4046544147 1515151515 1155445162 1451114543 tECRF7t SET ABSOLUTE FLAGrrrrrtMDIR'ItEC
       6246110046 4564435040 5156636462 6543645157 5615151515 1155444162 1441145011 4155416353 RFt FETCH INSTRUCTIONrrrrtMDAR'A'HtAMASK
       1515151515 1141625544 1145436246 3011006341 6645151515 1155444162 1451145014 5611454362 rrrrrtARMDtECRF8t SAVErrrtMDAR'I'H'NtECR
       4631110060 5751566445 6240576045 6241564440 1215151515 1155444162 1441144611 2120202015 F9t POINTER OPERAND ?rrrrtMDAR'A'Ft1000r
       1152605463 1136102411 0052655560 4051464056 5764151515 1515151515 1155444162 1450114543 tJPLSt.+4t JUMP IF NOTrrrrrrrrtMDAR'HtEC
       6246301100 6345644051 5644516245 4364404251 6415151515 1155444162 1457114321 1515151515 RF8t SET INDIRECT BITrrrrtMDAR'OtC1rrrrr
       1141625544 1450114543 6246301515 1515151515 1155444162 1451145014 5611454362 4631110013 tARMD'HtECRF8rrrrrrrtMDAR'I'H'NtECRF9t "
       7513404654 4147404251 6440634564 4012151515 1155444162 1441144611 2120151515 1152605463 @" FLAG BIT SET ?rrrtMDAR'A'Ft10rrrtJPLS
       1145436246 2311005265 5560405146 4056576415 1515151515 1155444162 1147624146 4711004762 tECRF3t JUMP IF NOTrrrrrrtMDARtGRAFGt GR
       4146704055 5744454012 1515151515 1152604156 1136102611 0063535160 4051464071 4563151515 AFX MODE ?rrrrrtJPANt.+6t SKIP IF YESrrr
       1515151515 1155444162 1450114543 6246301100 6345644046 4163644055 5744451515 1155444162 rrrrrtMDAR'HtECRF8t SET FAST MODErrtMDAR
       1457145432 1126202020 2015151515 1141625544 1450114543 6246301515 1152655560 1145436246 'O'L;t60000rrrrtARMD'HtECRF8rrtJUMPtECRF
       2315151515 1515151515 1155444162 1145436246 3011006345 6440515555 4544514164 4540425164 3rrrrrrrrrtMDARtECRF8t SET IMMEDIATE BIT
       1515151515 1155444162 1457145011 4324151515 1141625544 1145436246 3011006341 6645405156 rrrrrtMDAR'O'HtC4rrrtARMDtECRF8t SAVE IN
       6364626543 6451575615 1515151515 7777700000 2065771677 2065771677 2065771677 2065771677 STRUCTIONrrrrrrbbX  0Ub(b0Ub(b0Ub(b0Ub(b
       2065771677 2065771677 2065771677 2065771677 2065771677 2065771677                       0Ub(b0Ub(b0Ub(b0Ub(b0Ub(b0Ub(b
  980: 0000700016 4664562026 1361200266 3414400000 4543624623 0611554441 6211454362 4631110046   X (FTN06"Q0cV,'   ECRF3:tMDARtECRF9t F
       4564435040 5760456241 5644406057 5156644562 1515151515 1152606362 1145436343 1100636457 ETCH OPERAND POINTERrrrrrtJPSRtECSCt STO
       6245404357 5663644156 6440514640 4140435756 6364415664 1515151515 1155444162 1145436246 RE CONSTANT IF A CONSTANTrrrrrtMDARtECRF
       2711004142 6357546564 4540624546 4562455643 4540121515 1152604156 1145436246 2211005265 7t ABSOLUTE REFERENCE ?rrtJPANtECRF2t JU
       5560405146 4071456315 1515151515 1155444162 1451145014 5611454362 4631110057 6045624156 MP IF YESrrrrrrtMDAR'I'H'NtECRF9t OPERAN
       4440564547 4164454440 1215151515 1155444162 1441144611 2220151515 1152605463 1136102411 D NEGATED ?rrrrtMDAR'A'Ft20rrrtJPLSt.+4t
       0052655560 4051464056 5764151515 1515151515 1155444162 1450114543 6246301100 4357556054  JUMP IF NOTrrrrrrrrtMDAR'HtECRF8t COMPL
       4555455664 4014564046 5145544440 5156405156 6364623615 1155447057 1143212415 1141625544 EMENT 'N FIELD IN INSTR.rtMDXOtC14rtARMD
       1450114543 6246301515 1515151515 4543624622 0611554441 6214511145 4362463111 0046456443 'HtECRF8rrrrrrrECRF2:tMDAR'ItECRF9t FETC
       5040576045 6241564440 6371554257 5440644142 5445406057 5156644562 1515151515 1155444162 H OPERAND SYMBOL TABLE POINTERrrrrrtMDAR
       1441114155 4163531100 5541635315 1155444162 1457114543 6246301100 5762405156 4051566364 'AtAMASKt MASKrtMDAR'OtECRF8t OR IN INST
       6265436451 5756151515 1152606362 1145576245 4611005765 6460656440 6245464562 4556434540 RUCTIONrrrtJPSRtEOREFt OUTPUT REFERENCE 
       6457405760 4562415644 1515151515 1155444162 1145436246 3115151515 1155445162 1470114543 TO OPERANDrrrrrtMDARtECRF9rrrrtMDIR'XtEC
       6246110062 4564656256 1515151515 1515151515 4543624627 0611112011 0041426357 5465644540 RFt RETURNrrrrrrrrrrECRF7:tt0t ABSOLUTE 
       6245464562 4556434540 4654414715 4543624630 0611112011 0051566364 6265436451 5756406341 REFERENCE FLAGrECRF8:tt0t INSTRUCTION SA
       6645151515 4543624631 0611112011 0057604562 4156444060 5751566445 6240634166 4515151515 VErrrECRF9:tt0t OPERAND POINTER SAVErrrr
       1515151515 1515151515 1515151515 1515151515 0057656460 6564404142 6357546564 4540675762 rrrrrrrrrrrrrrrrrrrr OUTPUT ABSOLUTE WOR
       4440515640 5541435051 5645405441 5647654147 4540555744 4515151515 1515151515 4566574142 D IN MACHINE LANGUAGE MODErrrrrrrrrEVOAB
       0611526555 6011361100 4556646271 1515151515 1141625544 1145665741 3111006341 6645406641 :tJUMPt.t ENTRYrrrrrtARMDtEVOA9t SAVE VA
       5465451515 1152606362 1163456441 5511006345 6440414263 5754656445 4055574445 1515151515 LUErrtJPSRtSETAMt SET ABSOLUTE MODErrrrr
       1155444162 1145665741 3111004645 6443504066 4154654515 1152606362 1157414263 1100576564 tMDARtEVOA9t FETCH VALUErtJPSRtOABSt OUT
       6065644041 4263575465 6445151515 1155445162 1145665741 4211006245 6465625615 1515151515 PUT ABSOLUTErrrtMDIRtEVOABt RETURNrrrrrr
       4566574131 0611112011 0045566462 7140664154 6545406341 6645151515 1515151515 1515151515 EVOA9:tt0t ENTRY VALUE SAVErrrrrrrrrrrrr
       1515151515 7777700000 7537242630 7537242630 7537242630 7537242630 7537242630 7537242630 rrrrrbbX  @/468@/468@/468@/468@/468@/468
       7537242630 7537242630 7537242630 7537242630                                             @/468@/468@/468@/468
 1255: 0001000016 4664562026 1361200355 3414400000 0057656460 6564406462 4143454043 4154544046  %  (FTN06"Q0!M,'    OUTPUT TRACE CALL F
       5762404163 6351475645 4440664162 5141425445 1515151515 1515151515 5764624343 0611526555 OR ASSIGNED VARIABLErrrrrrrrrrOTRCC:tJUM
       6011361100 4556646271 1515151515 1155444162 1441114155 4163531515 1141625544 1157646243 Pt.t ENTRYrrrrrtMDAR'AtAMASKrrtARMDtOTRC
       3111006341 6645406371 5536406441 4236406057 5156644562 1515151515 1155445162 1451115764 9t SAVE SYM. TAB. POINTERrrrrrtMDIR'ItOT
       6243431100 4645644350 4044416441 4064716045 1515151515 1155444162 1441114327 1100554163 RCCt FETCH DATA TYPErrrrrtMDAR'AtC7t MAS
       5315151515 1141625544 1157646243 3011006341 6645404441 6441406471 6045151515 1155444162 KrrrrtARMDtOTRC8t SAVE DATA TYPErrrtMDAR
       1451145311 5764624331 1100464564 4350406371 5542575440 6471604515 1155444162 1441144611 'I'KtOTRC9t FETCH SYMBOL TYPErtMDAR'A'Ft
       2720110055 4163531515 1155447057 1446112220 1100416262 4171401215 1152605463 1157646243 70t MASKrrtMDXO'Ft20t ARRAY ?rtJPLStOTRC
       2111005657 3440526555 6015151515 1515151515 1152606362 1157637162 4611005765 6460656440 1t NO, JUMPrrrrrrrrrtJPSRtOSYRFt OUTPUT 
       4162624171 4064624143 4515151515 1152606362 1124646243 4115151515 1155444162 1157646243 ARRAY TRACErrrrtJPSRt4TRCArrrrtMDARtOTRC
       3111004350 4543534046 5762402235 6757624440 6245464562 4556434515 1152606362 1143532267 9t CHECK FOR 2-WORD REFERENCErtJPSRtCK2W
       4415151515 1152606362 1145665756 5711005765 6460656440 5657576040 5146405756 4535675762 DrrrrtJPSRtEVONOt OUTPUT NOOP IF ONE-WOR
       4415151515 1155444162 1450115764 6243301100 4645644350 4044416441 4064716045 1515151515 DrrrrtMDAR'HtOTRC8t FETCH DATA TYPErrrrr
       1155444162 1457115764 6243311100 5762405156 4060575156 6445621515 1152606362 1157624546 tMDAR'OtOTRC9t OR IN POINTERrrtJPSRtOREF
       1100576564 6065644062 4546456245 5643451515 1152655560 1157646243 2235211100 6353516015 t OUTPUT REFERENCErrtJUMPtOTRC2-1t SKIPr
       1515151515 5764624321 0611554441 6214421157 6462433011 0046456443 5040220544 4164414064 rrrrrOTRC1:tMDAR'BtOTRC8t FETCH 2*DATA T
       7160451515 1155444145 1454111100 4357556065 6445405764 6340624546 4562455643 4515151515 YPErrtMDAE'Ltt COMPUTE OTS REFERENCErrrr
       1152606362 1124646243 5711004040 4043415454 1515151515 1141625544 1136102211 0063416645 tJPSRt4TRCOt    CALLrrrrrtARMDt.+2t SAVE
       1515151515 1152606362 1157637162 4611005765 6460656440 5764634062 4546456245 5643451515 rrrrrtJPSRtOSYRFt OUTPUT OTS REFERENCErr
       1156575760 1515151515 1515151515 1152606362 1146446351 5611005156 5164514154 5172454063 tNOOPrrrrrrrrrrtJPSRtFDSINt INITIALIZE S
       4541624350 4046576240 6371554257 5415151515 1515151515 5764624322 0611526063 6211464463 EARCH FOR SYMBOLrrrrrrrrrOTRC2:tJPSRtFDS
       7155110054 5757534065 6040564570 6440637155 4257541515 1152655560 1136110063 5057655444 YMt LOOK UP NEXT SYMBOLrrtJUMPt.t SHOULD
       4056576440 4745644050 4562454036 3615151515 1515151515 1155444162 1146446355 6011005163  NOT GET HERE ..rrrrrrrrrtMDARtFDSMPt IS
       4051644064 5045406371 5542575440 6745406741 5664401215 1155447057 1157646243 3115151515  IT THE SYMBOL WE WANT ?rtMDXOtOTRC9rrrr
       1152605463 1157646243 2211005657 3440545757 5340414741 5156151515 1515151515 1155444162 tJPLStOTRC2t NO, LOOK AGAINrrrrrrrrtMDAR
       1146446355 2111005765 6460656440 6371554257 5440675762 4440211515 1152606362 1145665741 tFDSM1t OUTPUT SYMBOL WORD 1rrtJPSRtEVOA
       4215151515 1155444162 1146446355 2211005765 6460656440 6371554257 5440675762 4440221515 BrrrrtMDARtFDSM2t OUTPUT SYMBOL WORD 2rr
       1152606362 1145665741 4215151515 1155445162 1470115764 6243431100 6245646562 5615151515 tJPSRtEVOABrrrrtMDIR'XtOTRCCt RETURNrrrr
       1515151515 5764624330 0611112011 0063416645 4440444164 4140647160 4515151515 5764624331 rrrrrOTRC8:tt0t SAVED DATA TYPErrrrOTRC9
       0611112011 0063416645 4440637155 3640644142 3640605751 5664456215 1515151515 1515151515 :tt0t SAVED SYM. TAB. POINTERrrrrrrrrrrr
       7777700000 7024372040 7024372040 7024372040 7024372040 7024372040 7024372040 7024372040 bbX  X4/0 X4/0 X4/0 X4/0 X4/0 X4/0 X4/0 
       7024372040 7024372040 7024372040                                                        X4/0 X4/0 X4/0 
 1370: 0001100016 4664562026 1361200404 3414400000 0063645762 4540435756 6364415664 4051564043  %+ (FTN06"Q0&&,'    STORE CONSTANT IN C
       5756636441 5664406441 4254451515 1515151515 4543634306 1152655560 1136110045 5664627115 ONSTANT TABLErrrrrrrECSC:tJUMPt.t ENTRYr
       1141625544 1145436343 3111006341 6645406057 5156644562 1515151515 1155444162 1451145011 tARMDtECSC9t SAVE POINTERrrrrrtMDAR'I'Ht
       4543634331 1100474564 4064716045 1515151515 1155447057 1446112026 2020201100 5163405164 ECSC9t GET TYPErrrrrtMDXO'Ft06000t IS IT
       4043575663 6441566440 1215151515 1155444162 1441144611 2326202020 1515151515 1154635162  CONSTANT ?rrrrtMDAR'A'Ft36000rrrrrtLSIR
       1145436343 1100624564 6562564051 4640565764 1515151515 1515151515 1155444162 1451114543 tECSCt RETURN IF NOTrrrrrrrrrrtMDAR'ItEC
       6343311100 6345644064 7160454033 4063715542 5754151515 1155444162 1441145432 1124202727 SC9t SET TYPE = SYMBOLrrrtMDAR'A'L;t4077
       2703501515 1141625544 1145436343 3015151515 1141627057 1446151515 1155444163 1451114543 7!HrrtARMDtECSC8rrrrtARXO'FrrrtMDAS'ItEC
       6343311100 4645644350 4043575663 6441566440 6641546545 1515151515 1152606362 1163644357 SC9t FETCH CONSTANT VALUErrrrrtJPSRtSTCO
       5611004154 5457434164 4540435756 6364415664 1515151515 1155444162 1441114155 4163531515 Nt ALLOCATE CONSTANTrrrrrtMDAR'AtAMASKrr
       1155444162 1457114543 6343301515 1141625544 1451114543 6343311100 6341664540 6057515664 tMDAR'OtECSC8rrtARMD'ItECSC9t SAVE POINT
       4562405156 4063715542 5754151515 1155445162 1145436343 1100624564 6562561515 1515151515 ER IN SYMBOLrrrtMDIRtECSCt RETURNrrrrrrr
       4543634330 0611112011 0067576244 4063416645 1515151515 4543634331 0611112011 0057604562 ECSC8:tt0t WORD SAVErrrrrECSC9:tt0t OPER
       4156444060 5751566445 6240634166 4515151515 1515151515 1515151515 0040636457 6245404162 AND POINTER SAVErrrrrrrrrrrrrr  STORE AR
       4051564064 4555603640 4345545415 1515151515 6364574162 0611526555 6011361100 4556646271  IN TEMP. CELLrrrrrrSTOAR:tJUMPt.t ENTRY
       1515151515 1155444162 1456114566 6641461100 5760456241 5644405156 4041624012 1515151515 rrrrrtMDAR'NtEVVAFt OPERAND IN AR ?rrrrr
       1141565162 1163645741 6211006245 6465625640 5146405657 6415151515 1515151515 1155444162 tANIRtSTOARt RETURN IF NOTrrrrrrrrrtMDAR
       1451145011 4566664160 1100464564 4350405760 4562415644 4067576244 1515151515 1141625544 'I'HtEVVAPt FETCH OPERAND WORDrrrrrtARMD
       1163645741 3011006341 6645151515 1155444162 1441145432 1121242711 0063456440 6471604540 tSTOA8t SAVErrrtMDAR'A'L;t147t SET TYPE 
       3340637155 4257544041 5644406245 5557664540 4654414763 1515151515 1141625544 1451145011 = SYMBOL AND REMOVE FLAGSrrrrrtARMD'I'Ht
       4566664160 1515151515 1152606362 1147644555 6011004745 6440644555 6057624162 7140636457 EVVAPrrrrrtJPSRtGTEMPt GET TEMPORARY STO
       6241474540 4345545415 1141625544 1163645741 3111006341 6645406057 5156644562 1515151515 RAGE CELLrtARMDtSTOA9t SAVE POINTERrrrrr
       1155444162 1457145111 4566664160 1515151515 1141625544 1451114566 6641601100 6341664540 tMDAR'O'ItEVVAPrrrrrtARMD'ItEVVAPt SAVE 
       6057515664 4562406457 4043455454 1515151515 1155444162 1163645741 3011005754 4440576045 POINTER TO CELLrrrrrtMDARtSTOA8t OLD OPE
       6241564440 5645474164 4544401215 1155444162 1441114322 2015151515 1154634162 1143365611 RAND NEGATED ?rtMDAR'AtC20rrrrtLSARtC.Nt
       0063456440 1456404651 4554444051 4640714563 1515151515 1155444162 1457114341 6255441100  SET 'N FIELD IF YESrrrrrtMDAR'OtCARMDt 
       4745644013 4162554413 4051566364 6265436451 5756151515 1155444162 1457116364 5741311100 GET "ARMD" INSTRUCTIONrrrtMDAR'OtSTOA9t 
       5762405156 4057604562 4156444060 5751566445 6215151515 1152606362 1157624546 1100576564 OR IN OPERAND POINTERrrrrtJPSRtOREFt OUT
       6065644051 5663646265 4364515756 1515151515 1141627057 1446151515 1141625544 1145666641 PUT INSTRUCTIONrrrrrtARXO'FrrrtARMDtEVVA
       4611006245 6345644066 4154654540 5156404162 4046544147 1515151515 1141625544 1145666641 Ft RESET VALUE IN AR FLAGrrrrrtARMDtEVVA
       6011006245 6345644041 6240605751 5664456215 1155445162 1163645741 6211006245 6465625615 Pt RESET AR POINTERrtMDIRtSTOARt RETURNr
       1515151515 6364574130 0611112011 0057544440 5760456241 5644406341 6645151515 6364574131 rrrrrSTOA8:tt0t OLD OPERAND SAVErrrSTOA9
       0611112011 0057604562 4156444060 5751566445 6240634141 4515151515 1515151515 7777700000 :tt0t OPERAND POINTER SAAErrrrrrrrrbbX  
       1007331121 1007331121 1007331121 1007331121 1007331121 1007331121 1007331121 1007331121 +_=t1+_=t1+_=t1+_=t1+_=t1+_=t1+_=t1+_=t1
       1007331121 1007331121                                                                   +_=t1+_=t1
  960: 0001200016 4664562026 1361200262 3414400000 0063645762 4540646265 4540664154 6545405156  %0 (FTN06"Q0cR,'    STORE TRUE VALUE IN
       4064455560 5762416271 4043455454 4063654262 5765645156 4515151515 1515151515 6364576462  TEMPORARY CELL SUBROUTINErrrrrrrrrSTOTR
       0611526555 6011361100 4556646271 1515151515 1155444162 1446112111 0063456440 3340576045 :tJUMPt.t ENTRYrrrrrtMDAR'Ft1t SET = OPE
       6241645762 4046544147 4046576240 6364576251 5647406445 5560361515 1152606362 1163645763 RATOR FLAG FOR STORING TEMP.rrtJPSRtSTOS
       6011004341 5454406360 4543514154 4033405041 5644544562 1515151515 1155444162 1456114322 Pt CALL SPECIAL = HANDLERrrrrrtMDAR'NtC2
       2011006245 6345644056 4547416451 6645404251 6415151515 1155444162 1441145014 5111456657 0t RESET NEGATIVE BITrrrrtMDAR'A'H'ItEVO
       6022151515 1141625544 1451145011 4566576022 1515151515 1141627057 1446151515 1141625544 P2rrrtARMD'I'HtEVOP2rrrrrtARXO'FrrrtARMD
       1145666641 6011006245 6345644041 6240455664 6271404654 4147404156 4440605751 5664456215 tEVVAPt RESET AR ENTRY FLAG AND POINTERr
       1141625544 1145666641 4615151515 1155445162 1163645764 6211006245 6465625615 1515151515 tARMDtEVVAFrrrrtMDIRtSTOTRt RETURNrrrrrr
       1515151515 0040636045 4351415440 3340576045 6241645762 4050415644 5445621515 1515151515 rrrrr  SPECIAL = OPERATOR HANDLERrrrrrrr
       6364576360 0611526555 6011361100 4556646271 1515151515 1141625544 1163645764 4611006341 STOSP:tJUMPt.t ENTRYrrrrrtARMDtSTOTFt SA
       6645406360 4543514154 4033404654 4147151515 1155444162 1451145011 4566576022 1100634166 VE SPECIAL = FLAGrrrtMDAR'I'HtEVOP2t SAV
       4540624563 6554644044 4164414064 7160451515 1141625544 1163645764 2015151515 1155444162 E RESULT DATA TYPErrtARMDtSTOT0rrrrtMDAR
       1441144611 2711006471 6045403340 5457475143 4154401215 1152605463 1136102215 1152655560 'A'Ft7t TYPE = LOGICAL ?rtJPLSt.+2rtJUMP
       1163646462 2211006353 5160404357 5666456263 5157564051 4640574364 4154151515 1515151515 tSTTR2t SKIP CONVERSION IF OCTALrrrrrrrr
       1155447057 1446112415 1152605463 1163646462 2111006353 5160405146 4056576415 1515151515 tMDXO'Ft4rtJPLStSTTR1t SKIP IF NOTrrrrrr
       1155444162 1446114366 2126110043 5756664562 6440645740 6462654540 5457475143 4154151515 tMDAR'FtCV16t CONVERT TO TRUE LOGICALrrr
       1152606362 1145441515 1155444162 1145665760 2215151515 1124324020 1515151515 1156575760 tJPSRtEDrrtMDARtEVOP2rrrrt4; 0rrrrrtNOOP
       1515151515 1515151515 6364646222 0611554441 6214461157 2326421515 1152655560 1163646462 rrrrrrrrrrSTTR2:tMDAR'FtO36BrrtJUMPtSTTR
       2110211100 4757404457 4063645762 4515151515 1515151515 6364646221 0611554441 6214461157 1+1t GO DO STORErrrrrrrrrSTTR1:tMDAR'FtO
       2326411100 4745644066 4154514440 4162406641 5465451515 1152606362 1145441515 1155444162 36At GET VALID AR VALUErrtJPSRtEDrrtMDAR
       1145665760 2215151515 6364576420 0611203240 2015151515 1156575760 1515151515 1155445162 tEVOP2rrrrSTOT0:t0; 0rrrrtNOOPrrrrrtMDIR
       1163645763 6011006245 6465625615 1515151515 1515151515 7777700000 5260554256 5260554256 tSTOSPt RETURNrrrrrrrrrrrbbX  JPMBNJPMBN
       5260554256 5260554256 5260554256 5260554256 5260554256 5260554256 5260554256 5260554256 JPMBNJPMBNJPMBNJPMBNJPMBNJPMBNJPMBNJPMBN
 1265: 0001300016 4664562026 1361200357 3414400000 0040435343 5756403540 4350454353 4051464043  %8 (FTN06"Q0!O,'     CKCON - CHECK IF C
       5756636441 5664402124 3542516463 4057624054 4563631515 1515151515 4353435756 0611526555 ONSTANT 14-BITS OR LESSrrrrrrrCKCON:tJUM
       6011361100 4556646271 1515151515 1141625544 1143534357 3115151515 1155444162 1451145311 Pt.t ENTRYrrrrrtARMDtCKCO9rrrrtMDAR'I'Kt
       4353435731 1100675762 4440415640 5156644547 4562404357 5663644156 6440121515 1155444162 CKCO9t WORD AN INTEGER CONSTANT ?rrtMDAR
       1441144611 2326151515 1155447057 1446112615 1154635162 1143534357 5611006245 6465625640 'A'Ft36rrrtMDXO'Ft6rtLSIRtCKCONt RETURN 
       5146405657 6440435756 6364415664 1515151515 1515151515 1155444162 1451145011 4353435731 IF NOT CONSTANTrrrrrrrrrrtMDAR'I'HtCKCO9
       1100664154 6545405645 4741644544 4012151515 1155444162 1441144611 2220151515 1152605463 t VALUE NEGATED ?rrrtMDAR'A'Ft20rrrtJPLS
       1136102411 0063535160 4051464071 4563151515 1515151515 1141627057 1446151515 1155444163 t.+4t SKIP IF YESrrrrrrrrtARXO'FrrrtMDAS
       1451114353 4357311100 4645644350 4060576351 6451664540 4357566364 4156641515 1155445162 'ItCKCO9t FETCH POSITIVE CONSTANTrrtMDIR
       1470114353 4357561100 4040404156 4440624564 6562564022 1515151515 1515151515 1141627057 'XtCKCONt    AND RETURN 2rrrrrrrrrrtARXO
       1446151515 1155444163 1451145611 4353435731 1100464564 4350405645 4741645166 4540664154 'FrrrtMDAS'I'NtCKCO9t FETCH NEGATIVE VAL
       6545151515 1155445162 1470114353 4357561100 4040404156 4440624564 6562564022 1515151515 UErrrtMDIR'XtCKCONt    AND RETURN 2rrrrr
       1515151515 4353435731 0611112015 1515151515 1515151515 0040456641 5465416445 4043575666 rrrrrCKCO9:tt0rrrrrrrrrrr  EVALUATE CONV
       4562635157 5640574640 5760456241 5644151515 1515151515 4566430611 5265556011 3611004556 ERSION OF OPERANDrrrrrrrrEVC:tJUMPt.t EN
       6462711515 1155444145 1454321145 6643644211 0043624541 6445406057 5156644562 4041444462 TRYrrtMDAE'L;tEVCTBt CREATE POINTER ADDR
       4563631515 1141625544 1145664331 1100634166 4540605751 5664456240 6457405760 4562415644 ESSrrtARMDtEVC9t SAVE POINTER TO OPERAND
       1515151515 1155444162 1145665760 2211006341 6645405760 4562415644 4022406057 5156644562 rrrrrtMDARtEVOP2t SAVE OPERAND 2 POINTER
       1515151515 1141625544 1145664330 1515151515 1155445162 1451114566 4311004645 6443504057 rrrrrtARMDtEVC8rrrrrtMDIR'ItEVCt FETCH O
       6045624156 4440605751 5664456215 1141625544 1145665760 2211006341 6645404163 4057604562 PERAND POINTERrtARMDtEVOP2t SAVE AS OPER
       4156444022 1515151515 1155447057 1145666641 6015151515 1152635463 1163645741 6211006364 AND 2rrrrrtMDXOtEVVAPrrrrtJSLStSTOARt ST
       5762454051 4640565764 4051564041 6215151515 1155444162 1451114566 4331110046 4564435040 ORE IF NOT IN ARrrrrtMDAR'ItEVC9t FETCH 
       4144446245 6363405746 4044516245 4364576240 5451636415 1152606362 1145664370 1100434154 ADDRESS OF DIRECTOR LISTrtJPSRtEVCXt CAL
       5440645740 4570454365 6445404451 6245436457 6240545163 6415151515 1155444162 1145664330 L TO EXECUTE DIRECTOR LISTrrrrtMDARtEVC8
       1100624563 6457624540 5760456241 5644402240 6057515664 4562151515 1141625544 1145665760 t RESTORE OPERAND 2 POINTERrrrtARMDtEVOP
       2215151515 1155445162 1470114566 4311006245 6465625615 1515151515 4566433006 1111201100 2rrrrtMDIR'XtEVCt RETURNrrrrrrEVC8:tt0t 
       5760456241 5644402240 6341664515 4566433106 1111201100 6445556036 4063645762 4147451515 OPERAND 2 SAVErEVC9:tt0t TEMP. STORAGErr
       1515151515 1515151515 0040434154 5440445162 4543645762 4045664154 6541645762 4063654262 rrrrrrrrrr  CALL DIRECTOR EVALUATOR SUBR
       5765645156 4515151515 1515151515 4566437006 1152655560 1136110045 5664627115 1152606362 OUTINErrrrrrrrrEVCX:tJUMPt.t ENTRYrtJPSR
       1145441100 4357556051 5445404451 6245436457 6263151515 1155444162 1145665760 2215151515 tEDt COMPILE DIRECTORSrrrtMDARtEVOP2rrrr
       4566432006 1120324020 1515151515 1156575760 1515151515 1155445162 1145664370 1100624564 EVC0:t0; 0rrrrrtNOOPrrrrrtMDIRtEVCXt RET
       6562561515 1515151515 7777700000 0357463104 0357463104 0357463104 0357463104 0357463104 URNrrrrrrrbbX  !OF9&!OF9&!OF9&!OF9&!OF9&
       0357463104 0357463104 0357463104 0357463104 0357463104                                  !OF9&!OF9&!OF9&!OF9&!OF9&
 1100: 0001400016 4664562026 1361200316 3414400000 0047456440 6641546545 4051564041 6240675164  %  (FTN06"Q0!(,'    GET VALUE IN AR WIT
       5040606257 6045624063 5147564063 6542625765 6451564515 1515151515 4566474164 0611526555 H PROPER SIGN SUBROUTINErrrrrrEVGAT:tJUM
       6011361100 4556646271 1515151515 1152606362 1145664457 4411004566 4154654164 4540435756 Pt.t ENTRYrrrrrtJPSRtEVDODt EVALUATE CON
       6645626351 5756151515 1111242015 1155445162 1145664741 6411006245 6465625615 1515151515 VERSIONrrrtt40rtMDIRtEVGATt RETURNrrrrrr
       1515151515 0047456440 6641546545 4051564041 6240564547 4164454440 6365426257 6564515645 rrrrr GET VALUE IN AR NEGATED SUBROUTINE
       1515151515 1515151515 4566474156 0611526555 6011361100 4556646271 1515151515 1152606362 rrrrrrrrrrEVGAN:tJUMPt.t ENTRYrrrrrtJPSR
       1145664457 4411004566 4154654164 4540435756 6645626351 5756151515 1111242115 1155445162 tEVDODt EVALUATE CONVERSIONrrrtt41rtMDIR
       1145664741 5611006245 6465625615 1515151515 1515151515 0047456440 6641546545 4051566457 tEVGANt RETURNrrrrrrrrrrr GET VALUE INTO
       4041624016 4241444072 4562573440 6556565762 5541545172 4544344056 4547416451 6645406045  AR (BAD ZERO, UNNORMALIZED, NEGATIVE PE
       6255516464 4544171515 1515151515 4566474166 0611526555 6011361100 4556646271 1515151515 RMITTED)rrrrrrrEVGAV:tJUMPt.t ENTRYrrrrr
       1152606362 1145664457 4411004745 6440415671 4066415465 4540515664 5740416215 1111242315 tJPSRtEVDODt GET ANY VALUE INTO ARrtt43r
       1155445162 1145664741 6611006245 6465625615 1515151515 1515151515 0047456440 4757574440 tMDIRtEVGAVt RETURNrrrrrrrrrrr GET GOOD 
       6641546545 4051566457 4041624016 6462654540 6351475634 4056576440 4241444072 4562573440 VALUE INTO AR (TRUE SIGN, NOT BAD ZERO, 
       5657625541 5451724544 1715151515 1515151515 4566474147 0611526555 6011361100 4556646271 NORMALIZED)rrrrrrrrrEVGAG:tJUMPt.t ENTRY
       1515151515 1155444162 1451145011 4566576022 1100435045 4353404441 6441406471 6045151515 rrrrrtMDAR'I'HtEVOP2t CHECK DATA TYPErrr
       1155444162 1441144611 2715151515 1152605463 1145664747 2211005265 5560405146 4056576440 tMDAR'A'Ft7rrrrtJPLStEVGG2t JUMP IF NOT 
       6471604540 3340574364 4154151515 1515151515 1152606362 1145664741 6411004745 6440646265 TYPE = OCTALrrrrrrrrtJPSRtEVGATt GET TRU
       4540635147 5640574640 6641546545 4051564041 6215151515 1155445162 1145664741 4715151515 E SIGN OF VALUE IN ARrrrrtMDIRtEVGAGrrrr
       1515151515 4566474722 0611554470 5714461124 1100647160 4540334054 5747514341 5440121515 rrrrrEVGG2:tMDXO'Ft4t TYPE = LOGICAL ?rr
       1152605463 1145664747 2111005265 5560405146 4056576415 1515151515 1152606362 1145664457 tJPLStEVGG1t JUMP IF NOTrrrrrrtJPSRtEVDO
       4411004357 5666456264 4064574064 6265454054 5747514341 5415151515 1111212615 1152606362 Dt CONVERT TO TRUE LOGICALrrrrtt16rtJPSR
       1145664741 6611004745 6440664154 6545405156 4041624051 4640565764 4041546245 4144711515 tEVGAVt GET VALUE IN AR IF NOT ALREADYrr
       1155445162 1145664741 4715151515 1515151515 4566474721 0611554441 6214461122 1100634564 tMDIRtEVGAGrrrrrrrrrEVGG1:tMDAR'Ft2t SET
       4063604543 5141544063 6457624540 4654414715 1141625544 1163645764 4615151515 1152606362  SPECIAL STORE FLAGrtARMDtSTOTFrrrrtJPSR
       1145664457 4411004457 4043575666 4562635157 5615151515 1111242411 0040404064 5740474564 tEVDODt DO CONVERSIONrrrrtt44t    TO GET
       4047575744 4066415465 4515151515 1155445162 1145664741 4711006245 6465625615 1515151515  GOOD VALUErrrrtMDIRtEVGAGt RETURNrrrrrr
       1515151515 7777700000 4145370671 4145370671 4145370671 4145370671 4145370671 4145370671 rrrrrbbX  AE/:YAE/:YAE/:YAE/:YAE/:YAE/:Y
       4145370671 4145370671 4145370671 4145370671                                             AE/:YAE/:YAE/:YAE/:Y
 1055: 0001500016 4664562026 1361200305 3414400000 0043575555 5756404566 4154654164 4540636045  %H (FTN06"Q0!*,'    COMMON EVALUATE SPE
       4351415440 4357566645 6263515756 6340625765 6451564515 1515151515 4566445744 0611526555 CIAL CONVERSIONS ROUTINErrrrrrEVDOD:tJUM
       6011361100 4556646271 1515151515 1155444162 1145666641 6011005760 4562415644 4022405156 Pt.t ENTRYrrrrrtMDARtEVVAPt OPERAND 2 IN
       4041624012 1515151515 1155447057 1145665760 2215151515 1152635463 1163645741 6211006364  AR ?rrrrrtMDXOtEVOP2rrrrtJSLStSTOARt ST
       5762454051 4640565764 1515151515 1155444162 1451114566 4457441100 4645644350 4043575666 ORE IF NOTrrrrrtMDAR'ItEVDODt FETCH CONV
       4562635157 5640435744 4540566555 4245621515 1152606362 1145664311 0045664154 6541644515 ERSION CODE NUMBERrrtJPSRtEVCt EVALUATEr
       1155444162 1145665760 2215151515 1155445162 1470114566 4457441100 6245646562 5615151515 tMDARtEVOP2rrrrtMDIR'XtEVDODt RETURNrrrr
       1515151515 1515151515 1515151515 0063416451 6346714064 6757406757 6244406245 4645624556 rrrrrrrrrrrrrrr SATISFY TWO WORD REFEREN
       4345404657 6240576062 4156444021 1515151515 1515151515 4566635721 0611526555 6011361100 CE FOR OPRAND 1rrrrrrrrrrEVSO1:tJUMPt.t 
       4556646271 1515151515 1155444162 1145665760 2111004645 6443504057 6045624156 4440214060 ENTRYrrrrrtMDARtEVOP1t FETCH OPERAND 1 P
       5751566445 6215151515 1152606362 1145665764 6711006341 6451634671 4064675735 6757624440 OINTERrrrrtJPSRtEVOTWt SATISFY TWO-WORD 
       6245464562 4556434515 1155445162 1145666357 2111006245 6465625615 1515151515 1515151515 REFERENCErtMDIRtEVSO1t RETURNrrrrrrrrrrr
       0063416451 6346714064 6757406757 6244406245 4645624556 4345404657 6240576045 6241564440  SATISFY TWO WORD REFERENCE FOR OPERAND 
       2215151515 1515151515 4566635722 0611526555 6011361100 4556646271 1515151515 1155444162 2rrrrrrrrrEVSO2:tJUMPt.t ENTRYrrrrrtMDAR
       1145665760 2211004645 6443504057 6045624156 4440224060 5751566445 6215151515 1152606362 tEVOP2t FETCH OPERAND 2 POINTERrrrrtJPSR
       1145665764 6711006341 6451634671 4064675735 6757624440 6245464562 4556434515 1155445162 tEVOTWt SATISFY TWO-WORD REFERENCErtMDIR
       1145666357 2211006245 6465625615 1515151515 1515151515 1515151515 0057656460 6564401356 tEVSO2t RETURNrrrrrrrrrrrrrrrr OUTPUT "N
       5757601340 5146406441 6247456440 5163404460 6222406365 4262576564 5156451515 1515151515 OOP" IF TARGET IS DPR2 SUBROUTINErrrrrrr
       4557565760 0611526555 6011361100 4556646271 1515151515 1155444162 1456114460 6224461100 EONOP:tJUMPt.t ENTRYrrrrrtMDAR'NtDPR4Ft 
       4460622440 5163406441 6247456440 5541435051 5645401215 1152634156 1145665756 5711005657 DPR4 IS TARGET MACHINE ?rtJSANtEVONOt NO
       3440576564 6065644040 1356575760 1315151515 1155445162 1145575657 6011006245 6465625615 , OUTPUT  "NOOP"rrrrtMDIRtEONOPt RETURNr
       1515151515 1515151515 1515151515 0057656460 6564401356 5757601340 5156636462 6543645157 rrrrrrrrrrrrrrr OUTPUT "NOOP" INSTRUCTIO
       5615151515 1515151515 4566575657 0611526555 6011361100 4556646271 1515151515 1141627057 NrrrrrrrrrEVONO:tJUMPt.t ENTRYrrrrrtARXO
       1446111100 4645644350 4013565757 6013151515 1152606362 1145665741 4211005765 6460656440 'Ftt FETCH "NOOP"rrrtJPSRtEVOABt OUTPUT 
       4142635754 6564451515 1155445162 1145665756 5711006245 6465625615 1515151515 1515151515 ABSOLUTErrtMDIRtEVONOt RETURNrrrrrrrrrrr
       7777700000 1316315353 1316315353 1316315353 1316315353 1316315353 1316315353 1316315353 bbX  "(9KK"(9KK"(9KK"(9KK"(9KK"(9KK"(9KK
       1316315353 1316315353 1316315353                                                        "(9KK"(9KK"(9KK
 1190: 0001600016 4664562026 1361200340 3414400000 0040576564 6065644055 6554645160 5471405156  %P (FTN06"Q0! ,'     OUTPUT MULTIPLY IN
       6364626543 6451575640 6365426257 6564515645 1515151515 1515151515 4566575560 0611526555 STRUCTION SUBROUTINErrrrrrrrrrEVOMP:tJUM
       6011361100 4556646271 1515151515 1141625544 1145665755 3111006341 6645406641 5465451515 Pt.t ENTRYrrrrrtARMDtEVOM9t SAVE VALUErr
       1155445162 1451114566 5755601100 4645644350 4044576542 5445406641 5465454056 4545444544 tMDIR'ItEVOMPt FETCH DOUBLE VALUE NEEDED
       4046544147 1515151515 1152604156 1145665755 2111005265 5560405146 4063456415 1515151515  FLAGrrrrrtJPANtEVOM1t JUMP IF SETrrrrrr
       1155444162 1145665755 3111006641 5465454045 6645564012 1515151515 1155444162 1441144611 tMDARtEVOM9t VALUE EVEN ?rrrrrtMDAR'A'Ft
       2115151515 1152605463 1145665755 2111005265 5560405146 4056576415 1515151515 1155444162 1rrrrtJPLStEVOM1t JUMP IF NOTrrrrrrtMDAR
       1145665755 3111004745 6440664154 6545372215 1141626263 1121151515 1155444162 1457114355 tEVOM9t GET VALUE/2rtARRSt1rrrtMDAR'OtCM
       6071511100 4745564562 4164454013 5560715140 4066415465 4537221340 5156636462 6543645157 PYIt GENERATE "MPYI  VALUE/2" INSTRUCTIO
       5615151515 1152606362 1145665741 4215151515 1152606362 1145575657 6011005765 6460656440 NrrrrtJPSRtEVOABrrrrtJPSRtEONOPt OUTPUT 
       5657576040 5146405645 4345636341 6271151515 1155445162 1470114566 5755601100 6245646562 NOOP IF NECESSARYrrrtMDIR'XtEVOMPt RETUR
       5615151515 1515151515 4566575521 0611554441 6211456657 5531110057 6564606564 4040135560 NrrrrrrrrrEVOM1:tMDARtEVOM9t OUTPUT  "MP
       7151404066 4154654513 1515151515 1155444162 1457114355 6071511515 1152606362 1145665741 YI  VALUE"rrrrrtMDAR'OtCMPYIrrtJPSRtEVOA
       4215151515 1152606362 1145575657 6011005765 6460656440 5657576040 5146405645 4345636341 BrrrrtJPSRtEONOPt OUTPUT NOOP IF NECESSA
       6271151515 1155445162 1451114566 5755601100 4457654254 4540664154 6545405645 4544454440 RYrrrtMDIR'ItEVOMPt DOUBLE VALUE NEEDED 
       1215151515 1141565162 1470114566 5755601100 6245646562 5640514640 7145631515 1515151515 ?rrrrtANIR'XtEVOMPt RETURN IF YESrrrrrrr
       1155444162 1143416262 6321110047 4556456241 6445401341 6262634021 1315151515 1152606362 tMDARtCARRS1t GENERATE "ARRS 1"rrrrtJPSR
       1145665741 4215151515 1155445162 1470114566 5755601100 6245646562 5615151515 1515151515 tEVOABrrrrtMDIR'XtEVOMPt RETURNrrrrrrrrr
       4566575531 0611112011 0064455560 4063645762 4147451515 1515151515 1515151515 0047456440 EVOM9:tt0t TEMP STORAGErrrrrrrrrrrr GET 
       4162405156 4060625760 4562404657 6255406365 4262576564 5156451515 1515151515 4566474170 AR IN PROPER FORM SUBROUTINErrrrrrrEVGAX
       0611526555 6011361100 4556646271 1515151515 1141625544 1145664741 3111006341 6645406057 :tJUMPt.t ENTRYrrrrrtARMDtEVGA9t SAVE PO
       5156644562 1515151515 1155447057 1145666641 6011005760 4562415644 4051564041 6240121515 INTERrrrrrtMDXOtEVVAPt OPERAND IN AR ?rr
       1152605463 1145664741 2111005265 5560405146 4056576415 1515151515 1155444162 1451114566 tJPLStEVGA1t JUMP IF NOTrrrrrrtMDAR'ItEV
       4741701100 4156714051 5555454451 4164454051 5663646265 4364515756 4047516645 5640121515 GAXt ANY IMMEDIATE INSTRUCTION GIVEN ?rr
       1152604156 1136102611 0052655560 4051464071 4563151515 1515151515 1155444162 1451145011 tJPANt.+6t JUMP IF YESrrrrrrrrtMDAR'I'Ht
       4566474131 1100516340 6641546545 4056454741 6451664540 1215151515 1155444162 1441114322 EVGA9t IS VALUE NEGATIVE ?rrrrtMDAR'AtC2
       2015151515 1154634162 1143416241 6236463656 1100576564 6065644013 4162416214 4614561340 0rrrrtLSARtCARAR.F.Nt OUTPUT "ARAR'F'N" 
       5163407145 6315151515 1152634156 1145665741 4215151515 1155445162 1470114566 4741701100 IS YESrrrrtJSANtEVOABrrrrtMDIR'XtEVGAXt 
       6245646562 5615151515 1515151515 7777700000 5171141674 5171141674 5171141674 5171141674 RETURNrrrrrrrrrbbX  IY'(#IY'(#IY'(#IY'(#
       5171141674 5171141674 5171141674 5171141674 5171141674 5171141674                       IY'(#IY'(#IY'(#IY'(#IY'(#IY'(#
 1155: 0001700016 4664562026 1361200331 3414400000 1155444162 1451145011 4566474131 1100464564  %X (FTN06"Q0!9,'   tMDAR'I'HtEVGA9t FET
       4350405645 4741645166 4540425164 1515151515 1155444162 1441114322 2015151515 1154634162 CH NEGATIVE BITrrrrrtMDAR'AtC20rrrrtLSAR
       1143365611 0047456440 1314561340 5146406345 6415151515 1155444162 1451145711 4566474170 tC.Nt GET "'N" IF SETrrrrtMDAR'I'OtEVGAX
       1100576240 5156404751 6645564051 5663646265 4364515756 1515151515 1152606362 1145665741 t OR IN GIVEN INSTRUCTIONrrrrrtJPSRtEVOA
       4211004156 4440576564 6065644051 6415151515 1155445162 1470114566 4741701100 6245646562 Bt AND OUTPUT ITrrrrtMDIR'XtEVGAXt RETUR
       5615151515 1515151515 4566474121 0611526063 6211636457 4162110063 6457624540 4162151515 NrrrrrrrrrEVGA1:tJPSRtSTOARt STORE ARrrr
       1155444162 1451147011 4566474170 1100464564 4350406245 4645624556 4345405156 6364626543 tMDAR'I'XtEVGAXt FETCH REFERENCE INSTRUC
       6451575615 1141625544 1136102315 1155444162 1145664741 3111005765 6460656440 4645644350 TIONrtARMDt.+3rtMDARtEVGA9t OUTPUT FETCH
       4046576240 6371554257 5415151515 1152606362 1145436246 1515151515 1156575760 1515151515  FOR SYMBOLrrrrtJPSRtECRFrrrrrtNOOPrrrrr
       1155445162 1145664741 7011006245 6465625615 1515151515 4566474131 0611112015 1515151515 tMDIRtEVGAXt RETURNrrrrrrEVGA9:tt0rrrrrr
       1515151515 0047456440 4144446245 6363405746 4064675740 6757624440 6245464562 4556434540 rrrrr GET ADDRESS OF TWO WORD REFERENCE 
       6365426257 6564515645 1515151515 1515151515 4566576467 0611526555 6011361100 4556646271 SUBROUTINErrrrrrrrrrEVOTW:tJUMPt.t ENTRY
       1515151515 1141625544 1145665764 3111006341 6645406057 5156644562 4064574045 5664627115 rrrrrtARMDtEVOT9t SAVE POINTER TO ENTRYr
       1155444162 1451145014 5611456657 6431151515 1155444162 1441144611 2220201100 2240675762 tMDAR'I'H'NtEVOT9rrrtMDAR'A'Ft200t 2 WOR
       4440624546 4562455643 4540121515 1154635162 1145665764 6711006353 5160405146 4056576415 D REFERENCE ?rrtLSIRtEVOTWt SKIP IF NOTr
       1515151515 1152606362 1163645741 6211006364 5762454041 6240514640 4651545445 4415151515 rrrrrtJPSRtSTOARt STORE AR IF FILLEDrrrr
       1141627057 1446111100 4354454162 4043576556 6445624064 5740644142 5445151515 1141625544 tARXO'Ftt CLEAR COUNTER TO TABLErrrtARMD
       1145665764 3015151515 1155444162 1451145014 5611456657 6431110074 4062454645 6245564345 tEVOT8rrrrtMDAR'I'H'NtEVOT9t # REFERENCE
       4046544147 4063456440 1215151515 1155444162 1441144611 2120202015 1152605463 1136102311  FLAG SET ?rrrrtMDAR'A'Ft1000rtJPLSt.+3t
       0063535160 4051464056 5764151515 1515151515 1141624162 1470114566 5764301100 5156444570  SKIP IF NOTrrrrrrrrtARAR'XtEVOT8t INDEX
       4064675143 4540514640 6345641515 1141624162 1470114566 5764301515 1515151515 1155444162  TWICE IF SETrrtARAR'XtEVOT8rrrrrrrtMDAR
       1451145011 4566576431 1100754062 4546456245 5643454046 5441474063 4564401215 1155444162 'I'HtEVOT9t @ REFERENCE FLAG SET ?rtMDAR
       1441144611 2120151515 1154635162 1136352311 0051564445 7040575643 4540514640 6345641515 'A'Ft10rrrtLSIRt.-3t INDEX ONCE IF SETrr
       1155444162 1446114566 4154641100 4745644060 5751566445 6240645740 6441425445 1515151515 tMDAR'FtEVALTt GET POINTER TO TABLErrrrr
       1155444163 1442114566 5764301515 1141625544 1145665764 3011006341 6645406057 5156644562 tMDAS'BtEVOT8rrtARMDtEVOT8t SAVE POINTER
       1515151515 1155444162 1145665764 3111004645 6443504063 7155425754 4064414254 4540605751 rrrrrtMDARtEVOT9t FETCH SYMBOL TABLE POI
       5664456215 1152606362 1145436246 1100415644 4057656460 6564405156 6364626543 6451575615 NTERrtJPSRtECRFt AND OUTPUT INSTRUCTIONr
       1155444162 1451114566 5764301515 1515151515 7777700000 7462242662 7462242662 7462242662 tMDAR'ItEVOT8rrrrrrrbbX  #R46R#R46R#R46R
       7462242662 7462242662 7462242662 7462242662 7462242662 7462242662 7462242662            #R46R#R46R#R46R#R46R#R46R#R46R#R46R
 1310: 0002000016 4664562026 1361200370 3414400000 1152606362 1147644555 6011004645 6443504064  c  (FTN06"Q0!X,'   tJPSRtGTEMPt FETCH T
       4555603640 6364576241 4745151515 1141625544 1145665764 2711006341 6645406057 5156644562 EMP. STORAGErrrtARMDtEVOT7t SAVE POINTER
       4064574064 4555603615 1155444162 1457114341 6255441100 5765646065 6440134162 5544406445  TO TEMP.rtMDAR'OtCARMDt OUTPUT "ARMD TE
       5560134051 5663646236 1515151515 1152606362 1157624546 1515151515 1155444162 1145665764 MP" INSTR.rrrrrtJPSRtOREFrrrrrtMDARtEVOT
       2711004357 5560656445 4056456740 5760456241 5644406757 6244404657 6215151515 1155444162 7t COMPUTE NEW OPERAND WORD FORrrrrtMDAR
       1451147014 5014571145 6657643011 0040404063 6441435340 4662575540 6445556036 4041444462 'I'X'H'OtEVOT8t    STACK FROM TEMP. ADDR
       4563631515 1141625544 1450114566 5764301100 4040406057 5156644562 3440564567 4046544147 ESSrrtARMD'HtEVOT8t    POINTER, NEW FLAG
       6340466257 5515151515 1155444162 1451145011 4566576431 1100404040 6441425445 3440415644 S FROMrrrrtMDAR'I'HtEVOT9t    TABLE, AND
       4057544440 4441644140 6471604515 1155444162 1441114327 1515151515 1155444162 1457114566  OLD DATA TYPErtMDAR'AtC7rrrrrtMDAR'OtEV
       5764301515 1141625544 1451145011 4566576431 1100634166 4540564567 4045566462 7115151515 OT8rrtARMD'I'HtEVOT9t SAVE NEW ENTRYrrrr
       1155445162 1145665764 6711006245 6465625615 1515151515 4566415464 0611554441 6214463211 tMDIRtEVOTWt RETURNrrrrrrEVALT:tMDAR'F;t
       2120202011 0040744057 4646344075 4057464615 1155444162 1446321120 1100407440 5746463440 1000t  # OFF, @ OFFrtMDAR'F;t0t  # OFF, 
       7540575615 1155444162 3211212020 2011004074 4057563440 4075405746 4615151515 1155444162 @ ONrtMDAR;t1000t  # ON,  @ OFFrrrrtMDAR
       1446321121 2020201100 4074405756 3440407540 5756151515 1515151515 4566576427 0611112015 'F;t1000t  # ON,  @ ONrrrrrrrrEVOT7:tt0r
       4566576430 0611112015 4566576431 0611112015 1515151515 1515151515 0040576564 6065644062 EVOT8:tt0rEVOT9:tt0rrrrrrrrrrr  OUTPUT R
       4546456245 5643454064 5740576045 6241564440 4350454353 5156474046 5762405746 4663456440 EFERENCE TO OPERAND CHECKING FOR OFFSET 
       6045626345 5664406365 4262576564 5156451515 1515151515 4557624546 0611526555 6011361100 PERSENT SUBROUTINErrrrrrrEOREF:tJUMPt.t 
       4556646271 1515151515 1141625544 1145576245 3111006341 6645405765 6460656440 6641546545 ENTRYrrrrrtARMDtEORE9t SAVE OUTPUT VALUE
       1515151515 1155445162 1451114557 6245461100 4645644350 4041444462 4563634057 4640455664 rrrrrtMDIR'ItEOREFt FETCH ADDRESS OF ENT
       6271151515 1141625544 1145576245 3011006341 6645404556 6462714041 4444624563 6315151515 RYrrrtARMDtEORE8t SAVE ENTRY ADDRESSrrrr
       1155444162 1451145011 4557624530 1100455664 6271405041 6340574646 6345644012 1515151515 tMDAR'I'HtEORE8t ENTRY HAS OFFSET ?rrrrr
       1155444162 1441144611 2326202020 1515151515 1155447057 1446112120 2020201515 1152605463 tMDAR'A'Ft36000rrrrrtMDXO'Ft10000rrtJPLS
       1145576245 2111006353 5160405146 4056576415 1515151515 1155444162 1145576245 3011004745 tEORE1t SKIP IF NOTrrrrrrtMDARtEORE8t GE
       6440414444 6245636340 5746405746 4663456440 6757624415 1155444163 1446145611 2115151515 T ADDRESS OF OFFSET WORDrtMDAS'F'Nt1rrrr
       1141625544 1145576245 3015151515 1155444162 1451114557 6245301100 4645644350 4067576244 tARMDtEORE8rrrrtMDAR'ItEORE8t FETCH WORD
       1515151515 1141625463 1121243611 0045706445 5644406351 4756406062 5760456254 7115151515 rrrrrtARLSt14.t EXTEND SIGN PROPERLYrrrr
       1156575760 1515151515 1141626263 1121243615 1156575760 1515151515 1141625544 1157625746 tNOOPrrrrrtARRSt14.rtNOOPrrrrrtARMDtOROF
       6311006341 6645404163 4057464663 4564406641 5465451515 1515151515 4557624521 0611554441 St SAVE AS OFFSET VALUErrrrrrrEORE1:tMDA
       6211455762 4531110046 4564435040 5765646065 6440675762 4415151515 1152606362 1157624546 RtEORE9t FETCH OUTPUT WORDrrrrtJPSRtOREF
       1100434154 5440465762 4057656460 6564406245 4645624556 4345151515 1155445162 1470114557 t CALL FOR OUTPUT REFERENCErrrtMDIR'XtEO
       6245461100 6245646562 5615151515 1515151515 4557624530 0611112015 4557624531 0611112015 REFt RETURNrrrrrrrrrEORE8:tt0rEORE9:tt0r
       1515151515 1515151515 1515151515 7777700000 6630560546 6630560546 6630560546 6630560546 rrrrrrrrrrrrrrrbbX  V8N*FV8N*FV8N*FV8N*F
       6630560546 6630560546 6630560546 6630560546 6630560546 6630560546                       V8N*FV8N*FV8N*FV8N*FV8N*FV8N*F
 1205: 0002100016 4664562026 1361200343 3414400000 0047456440 4665564364 5157564060 5751566445  c+ (FTN06"Q0!C,'    GET FUNCTION POINTE
       6240415644 4043575664 6257544067 5762446340 6365426257 6564515645 1515151515 1515151515 R AND CONTROL WORDS SUBROUTINErrrrrrrrrr
       4566474656 0611526555 6011361515 1155445162 1451114566 4746561100 4645644350 4041444462 EVGFN:tJUMPt.rrtMDIR'ItEVGFNt FETCH ADDR
       4563634057 4640466556 4364515756 4057604562 4156441515 1155444162 1441114155 4163531515 ESS OF FUNCTION OPERANDrrtMDAR'AtAMASKrr
       1141625544 1145664154 6315151515 1141625544 1145664154 7215151515 1155444162 1451145011 tARMDtEVALSrrrrtARMDtEVALZrrrrtMDAR'I'Ht
       4566415463 1100457064 4562564154 4046655643 6451575640 1215151515 1155444162 1441144611 EVALSt EXTERNAL FUNCTION ?rrrrtMDAR'A'Ft
       2326202020 1515151515 1155447057 1446112220 2020151515 1152605463 1136102511 0063535160 36000rrrrrtMDXO'Ft2000rrrtJPLSt.+5t SKIP
       4051464056 5764151515 1515151515 1155444162 1451114566 4154631100 6341664540 5765646065  IF NOTrrrrrrrrtMDAR'ItEVALSt SAVE OUTPU
       6440444164 4140647160 4515151515 1141625544 1145664154 7115151515 1155444162 1145664123 T DATA TYPErrrrtARMDtEVALYrrrrtMDARtEVA3
       6411006345 6440466556 4364515756 4064716045 4020151515 1152655560 1145664122 4115151515 Tt SET FUNCTION TYPE 0rrrtJUMPtEVA2Arrrr
       1515151515 1155444162 1451145011 4566415463 1100436245 4164454046 4564435040 4657624046 rrrrrtMDAR'I'HtEVALSt CREATE FETCH FOR F
       6556436451 5756151515 1155444162 1441145011 4155416353 1100404040 4357566462 5754406757 UNCTIONrrrtMDAR'A'HtAMASKt    CONTROL WO
       6244404662 5755406371 5542575415 1155444163 1446112221 2020201100 4040406441 4254451515 RD FROM SYMBOLrtMDAS'Ft21000t    TABLErr
       1141625162 1446145015 1141625544 1145664154 7111006341 6645406757 6244151515 1141624162 tARIR'F'HrtARMDtEVALYt SAVE WORDrrrtARAR
       1446145311 1100474564 4046655643 6451575640 6471604515 1155444162 1441114321 2711004040 'F'Ktt GET FUNCTION TYPErtMDAR'AtC17t   
       4055416353 1515151515 1155444145 1454151515 1155444162 1145664123 6411004645 6443504046  MASKrrrrrtMDAE'LrrrtMDARtEVA3Tt FETCH F
       6556436451 5756406471 6045404357 5664625754 4067576244 1515151515 1141625162 1446151515 UNCTION TYPE CONTROL WORDrrrrrtARIR'Frrr
       1515151515 4566412241 0611416255 4411456641 5470110063 4166454051 6415151515 1152604156 rrrrrEVA2A:tARMDtEVALXt SAVE ITrrrrtJPAN
       1145664122 4311005265 5560405146 4056574043 5756664562 6351575615 1515151515 1155444162 tEVA2Ct JUMP IF NO CONVERSIONrrrrrrtMDAR
       1145665760 2211005760 4562415644 4041404357 5663644156 6440121515 1152606362 1143534357 tEVOP2t OPERAND A CONSTANT ?rrtJPSRtCKCO
       5615151515 1152655560 1145664122 5011005265 5560405146 4056576415 1515151515 1155444162 NrrrrtJUMPtEVA2Ht JUMP IF NOTrrrrrrtMDAR
       1453114566 4154701100 5163404357 5663644156 6440664154 6545404154 5457674544 4012151515 'KtEVALXt IS CONSTANT VALUE ALLOWED ?rrr
       1155444162 1441144611 2115151515 1152605463 1145664122 4211005265 5560405146 4071456315 tMDAR'A'Ft1rrrrtJPLStEVA2Bt JUMP IF YESr
       1515151515 1155444162 1145665760 2211004554 6345344063 6457624540 4357566364 4156641515 rrrrrtMDARtEVOP2t ELSE, STORE CONSTANTrr
       1152606362 1145436343 1515151515 1515151515 4566412250 0611554441 6211456641 5471110051 tJPSRtECSCrrrrrrrrrrEVA2H:tMDARtEVALYt I
       6340466556 4364515756 4013726345 6413401215 1155447057 1446112424 7263641515 1152605463 S FUNCTION "ZSET" ?rtMDXO'Ft44ZSTrrtJPLS
       1145664122 4711004757 4043575666 4562644051 4640565764 1515151515 1515151515 1155444162 tEVA2Gt GO CONVERT IF NOTrrrrrrrrrrtMDAR
       1145664355 4311004156 7140435755 5541634012 1515151515 1152605463 1145664122 4311006353 tEVCMCt ANY COMMAS ?rrrrrtJPLStEVA2Ct SK
       5160404357 5666456263 5157564051 4640714563 1515151515 1515151515 7777700000 7020143223 IP CONVERSION IF YESrrrrrrrrrrbbX  X0';3
       7020143223 7020143223 7020143223 7020143223 7020143223 7020143223 7020143223 7020143223 X0';3X0';3X0';3X0';3X0';3X0';3X0';3X0';3
       7020143223                                                                              X0';3
 1255: 0002200016 4664562026 1361200355 3414400000 4566412247 0611554441 6214531145 6641547111  c0 (FTN06"Q0!M,'   EVA2G:tMDAR'KtEVALYt
       0046456443 5040444164 4140647160 4540435744 4515151515 1141625463 1126110060 5763516451  FETCH DATA TYPE CODErrrrtARLSt6t POSITI
       5756151515 1155445162 1451147011 4566474656 1100635351 4664405146 4054416364 4057604562 ONrrrtMDIR'I'XtEVGFNt SKIFT IF LAST OPER
       4156441515 1155444162 1441145432 1127201100 5541635340 4441644140 6471604515 1141625544 ANDrrtMDAR'A'L;t70t MASK DATA TYPErtARMD
       1145666455 2211004040 4041564440 6341664515 1155444162 1451145011 4566576022 1100464564 tEVTM2t    AND SAVErtMDAR'I'HtEVOP2t FET
       4350405760 4562415644 4044416441 4064716045 1515151515 1155444162 1441114327 1515151515 CH OPERAND DATA TYPErrrrrtMDAR'AtC7rrrrr
       1155444162 1457114566 6455221100 4357554251 5645406751 6450405764 5045624064 7160451515 tMDAR'OtEVTM2t COMBINE WITH OTHER TYPErr
       1155444145 1454151515 1155444162 1450114566 6364421100 4645644350 4043575666 4562635157 tMDAE'LrrrtMDAR'HtEVSTBt FETCH CONVERSIO
       5640435744 4540466257 5540644142 5445151515 1141625162 1446151515 1155444162 1441114323 N CODE FROM TABLErrrtARIR'FrrrtMDAR'AtC3
       2715151515 1152635463 1145664311 0043575666 4562644051 4640565756 7245625715 1155444162 7rrrrtJSLStEVCt CONVERT IF NONZEROrtMDAR
       1145665760 2215151515 1515151515 4566412243 0611554441 6214531456 1145664154 7011004357 tEVOP2rrrrrrrrrEVA2C:tMDAR'K'NtEVALXt CO
       5663644156 6440415454 5767454440 1215151515 1155444162 1441144611 2115151515 1152605463 NSTANT ALLOWED ?rrrrtMDAR'A'Ft1rrrrtJPLS
       1136102511 0063535160 4051464056 5715151515 1515151515 1155444162 1145665760 2211005163 t.+5t SKIP IF NOrrrrrrrrrtMDARtEVOP2t IS
       4057604562 4156444041 4043575663 6441566440 1215151515 1152606362 1143534357 5615151515  OPERAND A CONSTANT ?rrrrtJPSRtCKCONrrrr
       1152655560 1136102211 0063535160 4051464056 5764151515 1515151515 1152655560 1145664122 tJUMPt.+2t SKIP IF NOTrrrrrrrrtJUMPtEVA2
       4211004554 6345344063 5351604057 6645624063 6457624540 6445636463 1515151515 1515151515 Bt ELSE, SKIP OVER STORE TESTSrrrrrrrrrr
       1155444162 1145665760 2211006364 5762454043 5756636441 5664405146 4056454345 6363416271 tMDARtEVOP2t STORE CONSTANT IF NECESSARY
       1515151515 1152606362 1145436343 1515151515 1155444162 1442145611 4566415470 1100445740 rrrrrtJPSRtECSCrrrrrtMDAR'B'NtEVALXt DO 
       6745406364 5762454057 6045624156 4440121515 1152604156 1145664122 4211005265 5560405146 WE STORE OPERAND ?rrtJPANtEVA2Bt JUMP IF
       4056576415 1515151515 1141625463 1122110046 6554544056 5762554154 5172454440 6364576245  NOTrrrrrrtARLSt2t FULL NORMALIZED STORE
       4012151515 1152604156 1145664122 5211005265 5560405146 4056576415 1515151515 1155444162  ?rrrtJPANtEVA2Jt JUMP IF NOTrrrrrrtMDAR
       1145666641 4611006641 5465454051 5640416240 1215151515 1152604156 1145664122 4511006353 tEVVAFt VALUE IN AR ?rrrrtJPANtEVA2Et SK
       5160405146 4071456315 1515151515 1155444162 1451145011 4566576022 1100646265 4540664154 IP IF YESrrrrrrtMDAR'I'HtEVOP2t TRUE VAL
       6545401215 1155444162 1441144611 2126201515 1152605463 1145664122 4611005265 5560405146 UE ?rtMDAR'A'Ft160rrtJPLStEVA2Ft JUMP IF
       4056576415 1515151515 4566412252 0611526063 6211636457 4162110063 6457624540 6245476554  NOTrrrrrrEVA2J:tJPSRtSTOARt STORE REGUL
       4162151515 1152655560 1145664122 4211004757 4043504543 5340414444 6245636340 6245464562 ARrrrtJUMPtEVA2Bt GO CHECK ADDRESS REFER
       4556434515 1515151515 4566412245 0611554441 6211456666 4160110051 6340664154 6545406450 ENCErrrrrrEVA2E:tMDARtEVVAPt IS VALUE TH
       5163405760 4562415644 4012151515 1155447057 1145665760 2215151515 1152605463 1145664122 IS OPERAND ?rrrtMDXOtEVOP2rrrrtJPLStEVA2
       5211006364 5762454062 4547655441 6240514640 5657641515 1515151515 4566412246 0611526063 Jt STORE REGULAR IF NOTrrrrrrrEVA2F:tJPS
       6211636457 6462110063 6457624540 6462654540 5146405760 4562415644 4022151515 1515151515 RtSTOTRt STORE TRUE IF OPERAND 2rrrrrrrr
       7777700000 5405557701 5405557701 5405557701 5405557701 5405557701 5405557701 5405557701 bbX  L*Mb%L*Mb%L*Mb%L*Mb%L*Mb%L*Mb%L*Mb%
       5405557701 5405557701 5405557701                                                        L*Mb%L*Mb%L*Mb%
  535: 0002300016 4664562026 1361200135 3414400000 4566412242 0611416241 6214701145 6643554311  c8 (FTN06"Q0%-,'   EVA2B:tARAR'XtEVCMCt
       0051564445 7040435755 5541404357 6556644562 1515151515 1155444162 1451145014 5611456657  INDEX COMMA COUNTERrrrrrtMDAR'I'H'NtEVO
       6022110075 4041444462 4563634062 4546456245 5643454012 1515151515 1155444162 1441144611 P2t @ ADDRESS REFERENCE ?rrrrrtMDAR'A'Ft
       2120151515 1154635162 1145664746 5611006245 6465625640 5146405657 6415151515 1515151515 10rrrtLSIRtEVGFNt RETURN IF NOTrrrrrrrrr
       1155444162 1456114321 2011006245 5557664540 4144446245 6363406245 4645624556 4345404654 tMDAR'NtC10t REMOVE ADDRESS REFERENCE FL
       4147151515 1155444162 1441145114 5011456657 6022151515 1141625544 1451145011 4566576022 AGrrrtMDAR'A'I'HtEVOP2rrrtARMD'I'HtEVOP2
       1515151515 1152606362 1163645741 6215151515 1155444162 1145665760 2211006345 6440416240 rrrrrtJPSRtSTOARrrrrtMDARtEVOP2t SET AR 
       4556646271 4041444462 4563631515 1141625544 1145666641 6015151515 1152606362 1145436246 ENTRY ADDRESSrrtARMDtEVVAPrrrrtJPSRtECRF
       7011006245 4645624556 4345405760 4562415644 1515151515 1155444162 1143554441 6236461100 Xt REFERENCE OPERANDrrrrrtMDARtCMDAR.Ft 
       4040406751 6450401355 4441621446 1315151515 1141625544 1457114566 6641461100 6345644066    WITH "MDAR'F"rrrrtARMD'OtEVVAFt SET V
       4154654540 5156404162 1515151515 1152606362 1163645741 6211006364 5762454041 6215151515 ALUE IN ARrrrrrtJPSRtSTOARt STORE ARrrrr
       1515151515 1155445162 1145664746 5611006245 6465625615 1515151515 1515151515 1515151515 rrrrrtMDIRtEVGFNt RETURNrrrrrrrrrrrrrrrr
       7777700000 7677044554 7677044554 7677044554 7677044554 7677044554 7677044554 7677044554 bbX  +b&EL+b&EL+b&EL+b&EL+b&EL+b&EL+b&EL
       7677044554 7677044554 7677044554                                                        +b&EL+b&EL+b&EL
 1660: 0002400016 4664562026 1361200476 3414400000 0040576045 6241645762 4043575664 6257544064  c  (FTN06"Q0&+,'     OPERATOR CONTROL T
       4142544515 1515151515 4040400040 4251644020 4035405155 5545445141 6445404451 6360416443 ABLErrrrrr     BIT 0 - IMMEDIATE DISPATC
       5040645740 6062574345 6363515647 4062576564 5156451515 4040400040 4251644021 4035406556 H TO PROCESSING ROUTINErr     BIT 1 - UN
       4162714057 6045624164 5762151515 4040400040 4251644022 4035406245 6645626345 4057604562 ARY OPERATORrrr     BIT 2 - REVERSE OPER
       4156446340 5146405760 4562415644 4022405156 4041621515 4040400040 4251644023 4035406245 ANDS IF OPERAND 2 IN ARrr     BIT 3 - RE
       6357546645 4041444462 4563634051 4640646757 4067576244 4062454645 6245564345 1515151515 SOLVE ADDRESS IF TWO WORD REFERENCErrrrr
       4040400040 4251644024 4035406364 5762454041 6240655643 5756445164 5157564154 5471151515      BIT 4 - STORE AR UNCONDITIONALLYrrr
       4040400040 4251644025 4035406364 5762454041 6240514640 5760456241 5644402240 5156404162      BIT 5 - STORE AR IF OPERAND 2 IN AR
       1515151515 4040400040 4251644026 4035404451 6360416443 5040414664 4562405764 5045624042 rrrrr     BIT 6 - DISPATCH AFTER OTHER B
       5164634060 6257434563 6345441515 4040400040 4251644027 4035404357 5666456264 4057604562 ITS PROCESSEDrr     BIT 7 - CONVERT OPER
       4156446315 4040400040 4251644030 4035406345 6440605763 6351425445 4042414440 7245625715 ANDSr     BIT 8 - SET POSSIBLE BAD ZEROr
       4040400040 4251644031 4035406364 5762454051 4640576045 6241564440 2140515640 4162151515      BIT 9 - STORE IF OPERAND 1 IN ARrrr
       4040400040 4251644021 2040354044 5756146440 6364576245 4051464041 6240576045 6241564440      BIT 10 - DON'T STORE IF AR OPERAND 
       5657644057 6045624156 4440214057 6240221515 4040400040 4251646340 2122352124 4035404451 NOT OPERAND 1 OR 2rr     BITS 12-14 - DI
       6245436457 6240545163 6440605751 5664456240 5557445146 5143416451 5756404357 4445151515 RECTOR LIST POINTER MODIFICATION CODErrr
       4040400040 4040404040 3340204040 3535404044 5162454364 4041444462 4563634057 4640445162           = 0  --  DIRECT ADDRESS OF DIR
       4543645762 4054516364 1515151515 4040400040 4040404040 3340214040 3535404064 4142544540 ECTOR LISTrrrrr          = 1  --  TABLE 
       5156444570 4544404271 4057604562 4164576240 4566415465 4164515756 4055574445 1515151515 INDEXED BY OPERATOR EVALUATION MODErrrrr
       4040400040 4040404040 3340224040 3535404064 4142544540 5156444570 4544404271 4045706057           = 2  --  TABLE INDEXED BY EXPO
       5645566451 4154406471 6045405557 4445151515 4040400040 4040404040 3340234040 3535404064 NENTIAL TYPE MODErrr          = 3  --  T
       4142544540 5156444570 4544404271 4062456365 5464404441 6441406471 6045151515 4040400040 ABLE INDEXED BY RESULT DATA TYPErrr     
       4251646340 2125352231 4035404451 6360416443 5040414444 6245636340 5762404451 6245436457 BITS 15-29 - DISPATCH ADDRESS OR DIRECTO
       6240605751 5664456215 1515151515 1515151515 4566576442 0611262020 2020035011 4566435755 R POINTERrrrrrrrrrrrEVOTB:t60000!HtEVCOM
       1100404357 5555414057 6045624164 5762151515 1126202020 2003501145 6646655611 0040466556 t  COMMA OPERATORrrrt60000!HtEVFUNt  FUN
       4364515756 4057604562 4164576215 1126202020 2003501145 6663654211 0040636542 6343625160 CTION OPERATORrt60000!HtEVSUBt  SUBSCRIP
       6440576045 6241645762 1515151515 1120151515 1120151515 1124202220 2303501157 6026701100 T OPERATORrrrrrt0rrrt0rrrt40203!HtOP6Xt 
       4063604543 5141544033 4057604562 4164576240 1656574063 6457624517 1515151515 1120151515  SPECIAL = OPERATOR (NO STORE)rrrrrt0rrr
       1120212220 2203501157 2120641100 4005051515 1125242220 2103501157 6021211100 4005151515 t01202!HtO10Tt  **rrt54201!HtOP11t  *rrr
       1124242220 2103501157 6021221100 4037151515 1124242220 2103501157 6021231100 4037371515 t44201!HtOP12t  /rrrt44201!HtOP13t  //rr
       1121202220 2103501157 2124641100 4010151515 1120202220 2103501157 2125641100 4035151515 t10201!HtO14Tt  +rrrt00201!HtO15Tt  -rrr
       1122202122 2003501157 2126411100 4035401665 5641627117 1515151515 1121202220 2003501157 t20120!HtO16At  - (UNARY)rrrrrt10200!HtO
       2127411100 4036456136 1515151515 1121202220 2003501157 2220411100 4036564536 1515151515 17At  .EQ.rrrrrt10200!HtO20At  .NE.rrrrr
       1120242220 2003501157 2221411100 4036476436 1515151515 1120242220 2003501157 2222411100 t04200!HtO21At  .GT.rrrrrt04200!HtO22At 
       4036474536 1515151515 1120242220 2003501157 2223411100 4036546436 1515151515 1120242220  .GE.rrrrrt04200!HtO23At  .LT.rrrrrt0420
       2003501157 2224411100 4036544536 1515151515 1122202122 2003501157 2225411100 4036565764 0!HtO24At  .LE.rrrrrt20120!HtO25At  .NOT
       3615151515 1121202020 2003501157 2226411100 4036415644 3615151515 1121202020 2003501157 .rrrrt10000!HtO26At  .AND.rrrrt10000!HtO
       2227411100 4036576236 1515151515 1121202020 2003501157 2320411100 4036705762 3615151515 27At  .OR.rrrrrt10000!HtO30At  .XOR.rrrr
       1124212220 2003501157 6023211100 4036543615 1124212220 2003501157 6023221100 4036623615 t41200!HtOP31t  .L.rt41200!HtOP32t  .R.r
       1122202024 2003501157 2323411100 4036423615 1122202024 2003501157 2324411100 4036533615 t20040!HtO33At  .B.rt20040!HtO34At  .K.r
       1122202024 2003501157 2325411100 4036503615 1124202220 2303501157 6023261100 4033151515 t20040!HtO35At  .H.rt40203!HtOP36t  =rrr
       1515151515 7777700000 2512313136 2512313136 2512313136 2512313136 2512313136 2512313136 rrrrrbbX  5?99.5?99.5?99.5?99.5?99.5?99.
       2512313136 2512313136 2512313136 2512313136                                             5?99.5?99.5?99.5?99.
 1700: 0002500016 4664562026 1361200506 3414400000 0040576045 6241564440 4357554251 5641645157  cH (FTN06"Q0*:,'     OPERAND COMBINATIO
       5640435756 6462575440 6441425445 1515151515 1515151515 4040400040 4251644021 4040404040 N CONTROL TABLErrrrrrrrrr     BIT 1     
       4035401351 4036576036 4046134063 6045435141 5440434163 4540465441 4715151515 4040400040  - "I .OP. F" SPECIAL CASE FLAGrrrr     
       4251646340 2235254040 4035404570 6057564556 6451415440 5760456241 5644402140 4357566645 BITS 2-5   - EXPONENTIAL OPERAND 1 CONVE
       6263515756 4056655542 4562151515 4040400040 4251646340 2635314040 4035404570 6057564556 RSION NUMBERrrr     BITS 6-9   - EXPONEN
       6451415440 5760456241 5644402240 4357566645 6263515756 4056655542 4562151515 4040400040 TIAL OPERAND 2 CONVERSION NUMBERrrr     
       4251646340 2120352124 4035404163 6351475655 4556644043 5756664562 6351575640 5665554245 BITS 10-14 - ASSIGNMENT CONVERSION NUMBE
       6215151515 4040400040 4251644021 2540404040 4035405760 4562415644 4064574043 5756664562 Rrrrr     BIT 15     - OPERAND TO CONVER
       6440162140 3340576045 6241564440 2134402040 3340576045 6241564440 2217151515 4040400040 T (1 = OPERAND 1, 0 = OPERAND 2)rrr     
       4251646340 2126352220 4035405657 6255415440 4357566645 6263515756 4056655542 4562151515 BITS 16-20 - NORMAL CONVERSION NUMBERrrr
       4040400040 4251646340 2221352223 4035404570 6057564556 6451415440 4566415465 4164515756      BITS 21-23 - EXPONENTIAL EVALUATION
       4055574445 1515151515 4040400040 4251646340 2224352226 4035406245 6365546440 4441644140  MODErrrrr     BITS 24-26 - RESULT DATA 
       6471604515 4040400040 4251646340 2227352231 4035405657 6255415440 5760456241 6457624045 TYPEr     BITS 27-29 - NORMAL OPERATOR E
       6641546541 6451575640 5557444515 1515151515 4566636442 0611202020 2020035011 2020212021 VALUATION MODErrrrrrEVSTB:t00000!Ht00101
       1100405740 3657603640 5715151515 1120202020 2003501120 2021212111 0040574036 5760364051 t  O .OP. Orrrrt00000!Ht00111t  O .OP. I
       1515151515 1120202022 2303501120 2020222211 0040574036 5760364062 1515151515 1122202026 rrrrrt00023!Ht00022t  O .OP. Rrrrrrt2006
       2203501120 2020232311 0040574036 5760364046 1515151515 1120202721 2603501120 2021212411 2!Ht00033t  O .OP. Frrrrrt00716!Ht00114t
       0040574036 5760364054 1515151515 1120202020 2003501120 2023202511 0040574036 5760364044   O .OP. Lrrrrrt00000!Ht00305t  O .OP. D
       1515151515 1120202020 2003501120 2024202611 0040574036 5760364043 1515151515 1120202020 rrrrrt00000!Ht00406t  O .OP. Crrrrrt0000
       2003501120 2020202711 0040574036 5760364065 1515151515 1515151515 1120202020 2003501120 0!Ht00007t  O .OP. Urrrrrrrrrrt00000!Ht0
       2021212111 0040514036 5760364057 1515151515 1120202020 2003501120 2021212111 0040514036 0111t  I .OP. Orrrrrt00000!Ht00111t  I .
       5760364051 1515151515 1120202022 2303501125 2120222211 0040514036 5760364062 1515151515 OP. Irrrrrt00023!Ht51022t  I .OP. Rrrrrr
       1122202026 2203501126 2120232311 0040514036 5760364046 1515151515 1120202721 2603501126 t20062!Ht61033t  I .OP. Frrrrrt00716!Ht6
       2421212411 0040514036 5760364054 1515151515 1120202020 2003501120 2023202511 0040514036 4114t  I .OP. Lrrrrrt00000!Ht00305t  I .
       5760364044 1515151515 1120202020 2003501120 2024202611 0040514036 5760364043 1515151515 OP. Drrrrrt00000!Ht00406t  I .OP. Crrrrr
       1120202020 2003501120 2020202711 0040514036 5760364065 1515151515 1515151515 1120202020 t00000!Ht00007t  I .OP. Urrrrrrrrrrt0000
       2003501120 2025222211 0040624036 5760364057 1515151515 1120202021 2103501121 2125222211 0!Ht00522t  R .OP. Orrrrrt00011!Ht11522t
       0040624036 5760364051 1515151515 1120202020 2003501120 2022222211 0040624036 5760364062   R .OP. Irrrrrt00000!Ht00222t  R .OP. R
       1515151515 1120202024 2103501120 2122222211 0040624036 5760364046 1515151515 1120202721 rrrrrt00041!Ht01222t  R .OP. Frrrrrt0071
       2703501121 2725222211 0040624036 5760364054 1515151515 1120202020 2003501120 2023202511 7!Ht17522t  R .OP. Lrrrrrt00000!Ht00305t
       0040624036 5760364044 1515151515 1120202020 2003501120 2024202611 0040624036 5760364043   R .OP. Drrrrrt00000!Ht00406t  R .OP. C
       1515151515 1120202020 2003501120 2020202711 0040624036 5760364065 1515151515 1515151515 rrrrrt00000!Ht00007t  R .OP. Urrrrrrrrrr
       1122212020 2003501120 2025232311 0040464036 5760364057 1515151515 1122212022 2103501122 t21000!Ht00533t  F .OP. Orrrrrt21021!Ht2
       2125232311 0040464036 5760364051 1515151515 1120212022 2003501124 2122222211 0040464036 1533t  F .OP. Irrrrrt01020!Ht41222t  F .
       5760364062 1515151515 1120212024 2003501120 2022232311 0040464036 5760364046 1515151515 OP. Rrrrrrt01040!Ht00233t  F .OP. Frrrrr
       1120212721 2603501121 2625232311 0040464036 5760364054 1515151515 1120202020 2003501120 t01716!Ht16533t  F .OP. Lrrrrrt00000!Ht0
       2023202511 0040464036 5760364044 1515151515 1120202020 2003501120 2024202611 0040464036 0305t  F .OP. Drrrrrt00000!Ht00406t  F .
       5760364043 1515151515 1120202020 2003501120 2020202711 0040464036 5760364065 1515151515 OP. Crrrrrt00000!Ht00007t  F .OP. Urrrrr
       1515151515 1121262021 2603501120 2021212111 0040544036 5760364057 1515151515 1121262021 rrrrrt16016!Ht00111t  L .OP. Orrrrrt1601
       2603501125 2621212111 0040544036 5760364051 1515151515 1121262021 2603501125 2720222211 6!Ht56111t  L .OP. Irrrrrt16016!Ht57022t
       0040544036 5760364062 1515151515 1121262025 2603501125 2625232311 0040544036 5760364046   L .OP. Rrrrrrt16056!Ht56533t  L .OP. F
       1515151515 7777700000 6301504413 6301504413 6301504413 6301504413 6301504413 6301504413 rrrrrbbX  S%HD"S%HD"S%HD"S%HD"S%HD"S%HD"
       6301504413 6301504413 6301504413 6301504413                                             S%HD"S%HD"S%HD"S%HD"
  945: 0002600016 4664562026 1361200257 3414400000 1121262721 2603501120 2021212111 0040544036  cP (FTN06"Q0cO,'   t16716!Ht00111t  L .
       5760364054 1515151515 1120202020 2003501120 2023202511 0040544036 5760364044 1515151515 OP. Lrrrrrt00000!Ht00305t  L .OP. Drrrrr
       1120202020 2003501120 2024202611 0040544036 5760364043 1515151515 1120202020 2003501120 t00000!Ht00406t  L .OP. Crrrrrt00000!Ht0
       2020202711 0040544036 5760364065 1515151515 1515151515 1120202020 2003501120 2023202511 0007t  L .OP. Urrrrrrrrrrt00000!Ht00305t
       0040444036 5760364057 1515151515 1120202020 2003501120 2023202511 0040444036 5760364051   D .OP. Orrrrrt00000!Ht00305t  D .OP. I
       1515151515 1120202020 2003501120 2023202511 0040444036 5760364062 1515151515 1120202020 rrrrrt00000!Ht00305t  D .OP. Rrrrrrt0000
       2003501120 2023202511 0040444036 5760364046 1515151515 1120202020 2003501120 2023202511 0!Ht00305t  D .OP. Frrrrrt00000!Ht00305t
       0040444036 5760364054 1515151515 1120202020 2003501120 2023202511 0040444036 5760364044   D .OP. Lrrrrrt00000!Ht00305t  D .OP. D
       1515151515 1120202020 2003501120 2023202511 0040444036 5760364043 1515151515 1120202020 rrrrrt00000!Ht00305t  D .OP. Crrrrrt0000
       2003501120 2023202511 0040444036 5760364065 1515151515 1515151515 1120202020 2003501120 0!Ht00305t  D .OP. Urrrrrrrrrrt00000!Ht0
       2024202611 0040434036 5760364057 1515151515 1120202020 2003501120 2024202611 0040434036 0406t  C .OP. Orrrrrt00000!Ht00406t  C .
       5760364051 1515151515 1120202020 2003501120 2024202611 0040434036 5760364062 1515151515 OP. Irrrrrt00000!Ht00406t  C .OP. Rrrrrr
       1120202020 2003501120 2024202611 0040434036 5760364046 1515151515 1120202020 2003501120 t00000!Ht00406t  C .OP. Frrrrrt00000!Ht0
       2024202611 0040434036 5760364054 1515151515 1120202020 2003501120 2024202611 0040434036 0406t  C .OP. Lrrrrrt00000!Ht00406t  C .
       5760364044 1515151515 1120202020 2003501120 2024202611 0040434036 5760364043 1515151515 OP. Drrrrrt00000!Ht00406t  C .OP. Crrrrr
       1120202020 2003501120 2024202611 0040434036 5760364065 1515151515 1515151515 1120202020 t00000!Ht00406t  C .OP. Urrrrrrrrrrt0000
       2003501120 2020202711 0040654036 5760364057 1515151515 1120202020 2003501120 2020202711 0!Ht00007t  U .OP. Orrrrrt00000!Ht00007t
       0040654036 5760364051 1515151515 1120202020 2003501120 2020202711 0040654036 5760364062   U .OP. Irrrrrt00000!Ht00007t  U .OP. R
       1515151515 1120202020 2003501120 2020202711 0040654036 5760364046 1515151515 1120202020 rrrrrt00000!Ht00007t  U .OP. Frrrrrt0000
       2003501120 2020202711 0040654036 5760364054 1515151515 1120202020 2003501120 2020202711 0!Ht00007t  U .OP. Lrrrrrt00000!Ht00007t
       0040654036 5760364044 1515151515 1120202020 2003501120 2020202711 0040654036 5760364043   U .OP. Drrrrrt00000!Ht00007t  U .OP. C
       1515151515 1120202020 2003501120 2020202711 0040654036 5760364065 1515151515 1515151515 rrrrrt00000!Ht00007t  U .OP. Urrrrrrrrrr
       1515151515 1515151515 7777700000 3325513136 3325513136 3325513136 3325513136 3325513136 rrrrrrrrrrbbX  =5I9.=5I9.=5I9.=5I9.=5I9.
       3325513136 3325513136 3325513136 3325513136 3325513136                                  =5I9.=5I9.=5I9.=5I9.=5I9.
 1215: 0002700016 4664562026 1361200345 3414400000 0046655643 6451575640 6471604540 4357566462  cX (FTN06"Q0!E,'    FUNCTION TYPE CONTR
       5754406757 6244406441 4254451515 1515151515 4040400040 4251644020 4035404457 5614644043 OL WORD TABLErrrrrrr     BIT 0 - DON'T C
       5756664562 6440444164 4140647160 4515151515 4040400040 4251644021 4035406364 5762454041 ONVERT DATA TYPErrrr     BIT 1 - STORE A
       5454404162 4765554556 6463151515 4040400040 4251644022 4035406364 5762454054 4163644041 LL ARGUMENTSrrr     BIT 2 - STORE LAST A
       6247655545 5664151515 1515151515 4040400040 4251644023 4035406364 5762454064 6265454066 RGUMENTrrrrrrrr     BIT 3 - STORE TRUE V
       4154654563 1515151515 4040400040 4251644024 4035404357 5666456263 5157564046 6556436451 ALUESrrrrr     BIT 4 - CONVERSION FUNCTI
       5756151515 4040400040 4251644025 4035405760 4562415644 4043415640 6364417140 4140435756 ONrrr     BIT 5 - OPERAND CAN STAY A CON
       6364415664 1515151515 1515151515 4040400040 4251644026 4035404645 6443504041 6247364067 STANTrrrrrrrrrr     BIT 6 - FETCH ARG. W
       5164504013 5544416213 4066514345 4013554441 6214461315 4040400040 4251644027 4035406556 ITH "MDAR" VICE "MDAR'F"r     BIT 7 - UN
       4162714046 6556436451 5756151515 4040400040 4251644030 4035405441 6364405760 4562415644 ARY FUNCTIONrrr     BIT 8 - LAST OPERAND
       4043415614 6440424540 6467574067 5762444062 4546456245 5643451515 1515151515 4040400040  CAN'T BE TWO WORD REFERENCErrrrrrr     
       4251644031 4035406360 4543514154 4057604556 4057624043 5457634540 4665564364 5157561515 BIT 9 - SPECIAL OPEN OR CLOSE FUNCTIONrr
       1515151515 1515151515 1515151515 4566412364 0611262421 2020035011 4566412511 0020200640 rrrrrrrrrrrrrrrEVA3T:t64100!HtEVA5t 00: 
       4570644562 5641544046 6556436451 5756631515 1120202220 2003501145 6641261100 2021064063 EXTERNAL FUNCTIONSrrt00200!HtEVA6t 01: S
       5156475445 4041624765 5545566440 4665564364 5157566315 1121202520 2003501145 6641271100 INGLE ARGUMENT FUNCTIONSrt10500!HtEVA7t 
       2022064064 6757404162 4765554556 6440466556 4364515756 6315151515 1120222220 2003501145 02: TWO ARGUMENT FUNCTIONSrrrrt02200!HtE
       6641261100 2023064057 5645404162 4765554556 6440435756 6645626351 5756404665 5643641456 VA6t 03: ONE ARGUMENT CONVERSION FUNCT'N
       6315151515 1122202520 2003501145 6641251100 2024064055 6554645160 5445404162 4765554556 Srrrrt20500!HtEVA5t 04: MULTIPLE ARGUMEN
       6440466556 4364515756 6315151515 1120222020 2003501145 6641264111 0020250640 6467574041 T FUNCTIONSrrrrt02000!HtEVA6At 05: TWO A
       6247655545 5664404357 5666456263 5157564046 6556436414 5663151515 1124212220 2003501145 RGUMENT CONVERSION FUNCT'NSrrrt41200!HtE
       4746212011 0020260640 4762414670 4056576255 4154405164 4555404016 5136453634 4044701715 GF10t 06: GRAFX NORMAL ITEM  (I.E., DX)r
       1124212020 2003501145 4746222011 0020270640 4762414670 4055655464 5160544540 4162473640 t41000!HtEGF20t 07: GRAFX MULTIPLE ARG. 
       5164455515 1124212020 2003501145 4746232011 0021200640 5441514051 6445551515 1122212520 ITEMrt41000!HtEGF30t 10: LAI ITEMrrt2150
       2003501145 6641251100 2121064047 6241467040 5764634063 6560605762 6440434154 5463151515 0!HtEVA5t 11: GRAFX OTS SUPPORT CALLSrrr
       1124212420 2003501145 4746242011 0021220640 6360454351 4154404762 4146704057 6463406365 t41400!HtEGF40t 12: SPECIAL GRAFX OTS SU
       6060576264 4043415454 6315151515 1124232220 2003501145 6641261100 2123064047 6241467040 PPORT CALLSrrrrt43200!HtEVA6t 13: GRAFX 
       5764634043 5756664562 6351575640 4341545463 1515151515 1126262120 2003501145 6641251100 OTS CONVERSION CALLSrrrrrt66100!HtEVA5t 
       2124064057 6645625441 7140415644 4054515653 4340434154 5463151515 1126252424 2003501145 14: OVERLAY AND LINKC CALLSrrrt65440!HtE
       6641251100 2125064057 6045563743 5457634540 4665564364 5157561515 1515151515 1515151515 VA5t 15: OPEN/CLOSE FUNCTIONrrrrrrrrrrrr
       7777700000 6302465441 6302465441 6302465441 6302465441 6302465441 6302465441 6302465441 bbX  ScFLAScFLAScFLAScFLAScFLAScFLAScFLA
       6302465441 6302465441 6302465441                                                        ScFLAScFLAScFLA
  920: 0003000016 4664562026 1361200252 3414400000 0040435756 6645626351 5756404451 6245436457  !  (FTN06"Q0cJ,'     CONVERSION DIRECTO
       6240605751 5664456240 5451636415 1515151515 4566436442 0611262020 2020035011 3611002020 R POINTER LISTrrrrrrEVCTB:t60000!Ht.t 00
       0640565740 4357566645 6263515756 1515151515 1111436621 1100202106 4046406457 4062151515 : NO CONVERSIONrrrrrttCV1t 01: F TO Rrrr
       1111575651 5560110020 2206405140 6457404415 1111575651 5560110020 2306404640 6457404415 ttONIMPt 02: I TO DrttONIMPt 03: F TO Dr
       1111575651 5560110020 2406406240 6457404415 1111575651 5560110020 2506405140 6457404315 ttONIMPt 04: R TO DrttONIMPt 05: I TO Cr
       1111575651 5560110020 2606404640 6457404315 1111575651 5560110020 2706406240 6457404315 ttONIMPt 06: F TO CrttONIMPt 07: R TO Cr
       1515151515 1111575651 5560110021 2006404440 6457404315 1111436621 2111002121 0640514064 rrrrrttONIMPt 10: D TO CrttCV11t 11: I T
       5740621515 1111575651 5560110021 2206401515 1111575651 5560110021 2306401515 1111575651 O RrrttONIMPt 12: rrttONIMPt 13: rrttONI
       5560110021 2406401515 1111575651 5560110021 2506401515 1111436621 2611002126 0640415671 MPt 14: rrttONIMPt 15: rrttCV16t 16: ANY
       4064574064 6265454054 5747514341 5415151515 1111436621 2711002127 0640544064 5740621515  TO TRUE LOGICALrrrrttCV17t 17: L TO Rrr
       1515151515 1111436622 2011002220 0640624064 5740461515 1111436622 2111002221 0640514064 rrrrrttCV20t 20: R TO FrrttCV21t 21: I T
       5740461515 1111436622 2211002222 0640464064 5740511515 1111436622 2311002223 0640624064 O FrrttCV22t 22: F TO IrrttCV23t 23: R T
       5740511515 1111436622 2411002224 0640415671 4064574054 1515151515 1111575651 5560110022 O IrrttCV24t 24: ANY TO LrrrrrttONIMPt 2
       2506404440 6457405115 1111575651 5560110022 2606404440 6457406215 1111575651 5560110022 5: D TO IrttONIMPt 26: D TO RrttONIMPt 2
       2706404440 6457404615 1515151515 1111575651 5560110023 2006404340 6457405115 1111575651 7: D TO FrrrrrrttONIMPt 30: C TO IrttONI
       5560110023 2106404340 6457406215 1111575651 5560110023 2206404340 6457404615 1111575651 MPt 31: C TO RrttONIMPt 32: C TO FrttONI
       5560110023 2306404340 6457404415 1111575651 5560110023 2406401515 1111575651 5560110023 MPt 33: C TO DrttONIMPt 34: rrttONIMPt 3
       2506401515 1111575651 5560110023 2606401515 1111575651 5560110023 2706401515 1515151515 5: rrttONIMPt 36: rrttONIMPt 37: rrrrrrr
       1111436624 2011002420 0640646265 4540635147 5640416215 1111436624 2111002421 0640564547 ttCV40t 40: TRUE SIGN ARrttCV41t 41: NEG
       4164516645 4063514756 4041621515 1111436624 2211002422 0640414263 5754656445 4066415465 ATIVE SIGN ARrrttCV42t 42: ABSOLUTE VALU
       4515151515 1111436631 2011002423 0640415671 4066415465 4540515640 4162151515 1111572326 ErrrrttCV90t 43: ANY VALUE IN ARrrrttO36
       4111002424 0640475757 4440664154 6545405156 4041621515 7777700000 5066625566 5066625566 At 44: GOOD VALUE IN ARrrbbX  HVRMVHVRMV
       5066625566 5066625566 5066625566 5066625566 5066625566 5066625566 5066625566 5066625566 HVRMVHVRMVHVRMVHVRMVHVRMVHVRMVHVRMVHVRMV
  780: 0003100016 4664562026 1361200216 3414400000 0043575666 4562635157 5640445162 4543645762  !+ (FTN06"Q0c(,'    CONVERSION DIRECTOR
       4054516364 6340363636 1515151515 1515151515 1515151515 4366210611 5441621157 6022404342  LISTS ...rrrrrrrrrrrrrrrCV1:tLARtOP2 CB
       5640634464 4022151515 1157646340 2446645762 1143416214 4556441515 1515151515 1515151515 N SDT 2rrrtOTS 4FTORtCAR'ENDrrrrrrrrrrrr
       4366212106 1154416211 5760224043 4256406344 6440221515 1157646340 2451645762 1143416214 CV11:tLARtOP2 CBN SDT 2rrtOTS 4ITORtCAR'
       4556441515 1515151515 1515151515 4366212606 1157606211 6344644024 4043416215 1142624036 ENDrrrrrrrrrrrrCV16:tOPRtSDT 4 CARrtBR .
       1022115760 2240416215 1157606211 5760224056 5754406356 4114455644 1515151515 1515151515 +2tOP2 ARrtOPRtOP2 NOL SNA'ENDrrrrrrrrrr
       1154416411 5760224043 4272151515 1157606211 5760224056 5754144556 4415151515 1157416740 tLATtOP2 CBZrrrtOPRtOP2 NOL'ENDrrrrtOAW 
       4341626263 2231114460 6215151515 1157646346 4043415670 5743211114 4556441515 1515151515 CARRS29tDPRrrrrtOTSF CANXOC1t'ENDrrrrrrr
       1515151515 4366212706 1154416411 5760224043 4256406344 6440221515 1157416740 4341626263 rrrrrCV17:tLATtOP2 CBN SDT 2rrtOAW CARRS
       2231114460 6215151515 1157646346 4043415670 5743211515 1142624043 6621211515 1515151515 29tDPRrrrrtOTSF CANXOC1rrtBR CV11rrrrrrr
       1515151515 4366222006 1154416211 5760224043 4272406344 6440231515 1157646340 2462645746 rrrrrCV20:tLARtOP2 CBZ SDT 3rrtOTS 4RTOF
       1143416214 4556441515 1515151515 1515151515 4366222106 1162434043 5544416236 5011576022 tCAR'ENDrrrrrrrrrrrrCV21:tRC CMDAR.HtOP2
       4043416215 1157416740 4341626263 2125114460 6215151515 1157606211 4342724063 4464402314  CARrtOAW CARRS15tDPRrrrrtOPRtCBZ SDT 3'
       4556441515 1515151515 1515151515 4366222206 1157606211 6356414057 6022405636 4162151515 ENDrrrrrrrrrrrrCV22:tOPRtSNA OP2 N.ARrrr
       1157606211 4341624063 4464402114 4556441515 1515151515 1515151515 4366222306 1154416211 tOPRtCAR SDT 1'ENDrrrrrrrrrrrrCV23:tLARt
       5760224043 4256406344 6440211515 1157646340 2462645751 1143416214 4556441515 1515151515 OP2 CBN SDT 1rrtOTS 4RTOItCAR'ENDrrrrrrr
       1515151515 4366222406 1157606211 6344644024 1515151515 1142624036 1022115760 2240416215 rrrrrCV24:tOPRtSDT 4rrrrrtBR .+2tOP2 ARr
       1157606211 6356414063 6556144556 4415151515 1157606211 6365564043 4162144556 4415151515 tOPRtSNA SUN'ENDrrrrtOPRtSUN CAR'ENDrrrr
       1515151515 7777700000 0644324530 0644324530 0644324530 0644324530 0644324530 0644324530 rrrrrbbX  :D;E8:D;E8:D;E8:D;E8:D;E8:D;E8
       0644324530 0644324530 0644324530 0644324530                                             :D;E8:D;E8:D;E8:D;E8
  695: 0003200016 4664562026 1361200175 3414400000 0063604543 5141544060 6562605763 4540445162  !0 (FTN06"Q0%@,'    SPECIAL PURPOSE DIR
       4543645762 4054516364 6315151515 1515151515 1515151515 4366242006 1154416411 5760224043 ECTOR LISTSrrrrrrrrrrrrrrCV40:tLATtOP2 C
       4272144556 4415151515 1515151515 1515151515 4366242106 1142624043 6624214111 5760224056 BZ'ENDrrrrrrrrrrrrrrCV41:tBR CV41AtOP2 N
       3641621515 1157416740 4341624162 3646365611 4162574056 3656454715 1157606211 4356404342 .ARrrtOAW CARAR.F.NtARO N.NEGrtOPRtCN CB
       7214455644 1515151515 1515151515 4366242141 0611426240 4366242142 1157602240 5645471515 Z'ENDrrrrrrrrrrCV41A:tBR CV41BtOP2 NEGrr
       1162454641 4043554441 6236561157 6022151515 1157606211 4356404342 7214455644 1515151515 tREFA CMDAR.NtOP2rrrtOPRtCN CBZ'ENDrrrrr
       1515151515 4366242142 0611624546 4140435544 4162115760 2215151515 1157606211 4356404342 rrrrrCV41B:tREFA CMDARtOP2rrrrtOPRtCN CB
       7214455644 1515151515 1515151515 1515151515 4366312006 1154416211 5760224043 4162144556 Z'ENDrrrrrrrrrrrrrrrCV90:tLARtOP2 CAR'EN
       4415151515 1515151515 1515151515 4366242206 1154416211 5760224043 4272151515 1157646346 DrrrrrrrrrrrrrrCV42:tLARtOP2 CBZrrrtOTSF
       4043415670 5736561114 4556441515 1515151515 1515151515 4366242306 1154416411 5760221515  CANXO.Nt'ENDrrrrrrrrrrrrCV43:tLATtOP2rr
       1157646340 2441515664 1515151515 1157646340 2462645751 1114455644 1515151515 1515151515 tOTS 4AINTrrrrrtOTS 4RTOIt'ENDrrrrrrrrrr
       1515151515 4366242406 1154416411 5760221515 1157646340 2441515664 1114455644 1515151515 rrrrrCV44:tLATtOP2rrtOTS 4AINTt'ENDrrrrr
       1515151515 1515151515 4366242506 1154416411 5760221515 1157646340 6356435763 1515151515 rrrrrrrrrrCV45:tLATtOP2rrtOTS SNCOSrrrrr
       1157416740 4341626263 2125114460 6214455644 1515151515 1515151515 1515151515 4366242606 tOAW CARRS15tDPR'ENDrrrrrrrrrrrrrrrCV46:
       1154416411 5760221515 1157646340 6356435763 1515151515 1157646346 4043554441 6250435763 tLATtOP2rrtOTS SNCOSrrrrrtOTSF CMDARHCOS
       5615151515 1157416740 4341626263 2125114460 6214455644 1515151515 1515151515 1515151515 NrrrrtOAW CARRS15tDPR'ENDrrrrrrrrrrrrrrr
       7777700000 4521077677 4521077677 4521077677 4521077677 4521077677 4521077677 4521077677 bbX  E1_+bE1_+bE1_+bE1_+bE1_+bE1_+bE1_+b
       4521077677 4521077677 4521077677                                                        E1_+bE1_+bE1_+b
  755: 0003300016 4664562026 1361200211 3414400000 4366242706 1142624043 6624274111 5760224041  !8 (FTN06"Q0ct,'   CV47:tBR CV47AtOP2 A
       6215151515 1154416411 5760211515 1162454640 4355444145 3656115760 2240454165 1515151515 RrrrrtLATtOP1rrtREF CMDAE.NtOP2 EAUrrrrr
       1157646346 4043415641 6243201114 4556441515 1515151515 4366242741 0611574167 4043416241 tOTSF CANARC0t'ENDrrrrrrrCV47A:tOAW CARA
       6236463656 1141625740 5636564547 1515151515 1162454640 4355444145 1157602140 4541651515 R.F.NtARO N.NEGrrrrrtREF CMDAEtOP1 EAUrr
       1157646346 4043415641 6243201114 4556441515 1515151515 1515151515 4366252006 1142624043 tOTSF CANARC0t'ENDrrrrrrrrrrrrCV50:tBR C
       6625204111 5760224041 6215151515 1152631145 6663572215 1154416411 5760211515 1157646340 V50AtOP2 ARrrrrtJStEVSO2rtLATtOP1rrtOTS 
       2462414444 1515151515 1162454640 4355444162 3656115760 2215151515 1157646346 4043415641 4RADDrrrrrtREF CMDAR.NtOP2rrrrtOTSF CANA
       6243201114 4556441515 1515151515 4366252041 0611526311 4566635721 1515151515 1142624043 RC0t'ENDrrrrrrrCV50A:tJStEVSO1rrrrrtBR C
       6625201022 1157602240 5636416215 1157416740 4341624162 3646365611 4162574056 3656454715 V50+2tOP2 N.ARrtOAW CARAR.F.NtARO N.NEGr
       1157646340 2462414444 1515151515 1162454640 4355444162 1157602115 1157646346 4043415641 tOTS 4RADDrrrrrtREF CMDARtOP1rtOTSF CANA
       6243201114 4556441515 1515151515 1515151515 4366252106 1157606211 6341624057 6022404162 RC0t'ENDrrrrrrrrrrrrCV51:tOPRtSAR OP2 AR
       1515151515 1142624057 2123511515 1515151515 1515151515 4366252206 1157606211 6341624057 rrrrrtBR O13IrrrrrrrrrrrrCV52:tOPRtSAR O
       6022404162 1515151515 1142624057 2123621515 1515151515 1515151515 4366252306 1157606211 P2 ARrrrrrtBR O13RrrrrrrrrrrrrCV53:tOPRt
       6341624057 6022404162 1515151515 1142624057 2123461515 1515151515 1515151515 4366252406 SAR OP2 ARrrrrrtBR O13FrrrrrrrrrrrrCV54:
       1157606211 6341624057 6021404162 1515151515 1154416411 5760221515 1157416740 4341626263 tOPRtSAR OP1 ARrrrrrtLATtOP2rrtOAW CARRS
       2231114460 6215151515 1157415540 4341625544 1515151515 1154416411 5760211515 1157646346 29tDPRrrrrtOAM CARMDrrrrrtLATtOP1rrtOTSF
       4043415670 5736561515 1157416740 4355447057 3654151515 1157606240 4350561515 1157416740  CANXO.NrrtOAW CMDXO.LrrrtOPR CHNrrtOAW 
       4320114556 4415151515 1515151515 1515151515 7777700000 5231433304 5231433304 5231433304 C0tENDrrrrrrrrrrrrrrbbX  J9C=&J9C=&J9C=&
       5231433304 5231433304 5231433304 5231433304 5231433304 5231433304 5231433304            J9C=&J9C=&J9C=&J9C=&J9C=&J9C=&J9C=&
  750: 0003400016 4664562026 1361200210 3414400000 4366302006 1157606211 6365564043 4162406344  !  (FTN06"Q0c+,'   CV80:tOPRtSUN CAR SD
       6440241515 1142624043 6630204111 5760224021 2442151515 1154416411 5760221515 1157416740 T 4rrtBR CV80AtOP2 14BrrrtLATtOP2rrtOAW 
       4355444145 3654151515 1157416740 4341625463 2123151515 1157606211 6341621515 1152634043 CMDAE.LrrrtOAW CARLS13rrrtOPRtSARrrtJS C
       6630207015 1155444162 1515151515 1162454640 4341625463 3651115760 2240446062 1445564415 V80XrtMDARrrrrrtREF CARLS.ItOP2 DPR'ENDr
       1515151515 4366302041 0611526340 4366302070 1515151515 1155444162 1515151515 1152634043 rrrrrCV80A:tJS CV80XrrrrrtMDARrrrrrtJS C
       6630207115 1157606211 4460621445 5644151515 1515151515 4366302042 0611576062 1163655640 V80YrtOPRtDPR'ENDrrrrrrrrCV80B:tOPRtSUN 
       4341624063 4464402415 1142624043 6630204111 5760624021 2442151515 1152634043 6630207015 CAR SDT 4rtBR CV80AtOPR 14BrrrtJS CV80Xr
       1155444162 1453151515 1162454640 4341625463 3651115760 2240446062 1515151515 1157416740 tMDAR'KrrrtREF CARLS.ItOP2 DPRrrrrrtOAW 
       4341625463 2711144556 4415151515 1515151515 1515151515 4366302070 0611526555 6011361515 CARLS7t'ENDrrrrrrrrrrrrrrCV80X:tJUMPt.rr
       1155444162 1450114566 4154711515 1141626263 1123151515 1155444162 1441114327 1515151515 tMDAR'HtEVALYrrtARRSt3rrrtMDAR'AtC7rrrrr
       1155444145 1454151515 1155444162 1143663020 6415151515 1141625162 1446151515 1155444162 tMDAE'LrrrtMDARtCV80TrrrrtARIR'FrrrtMDAR
       1451147014 5711454430 1515151515 1141625544 1136102215 1152606362 1157637162 4615151515 'I'X'OtED8rrrrrtARMDt.+2rtJPSRtOSYRFrrrr
       1156575760 1515151515 1155445162 1143663020 7015151515 1515151515 1515151515 4366302071 tNOOPrrrrrtMDIRtCV80XrrrrrrrrrrrrrrCV80Y
       0611526555 6011361515 1155444162 1145665760 2215151515 1152606362 1143534357 5615151515 :tJUMPt.rrtMDARtEVOP2rrrrtJPSRtCKCONrrrr
       1156575760 1515151515 1155444145 1454151515 1141625463 1121233615 1152606362 1145665741 tNOOPrrrrrtMDAE'LrrrtARLSt13.rtJPSRtEVOA
       4215151515 1155445162 1143663020 7115151515 1515151515 1515151515 4366302064 0611115557 BrrrrtMDIRtCV80YrrrrrrrrrrrrrrCV80T:ttMO
       4445631515 1111545164 4563151515 1111636743 5063151515 1111636743 5064151515 1111636743 DESrrttLITESrrrttSWCHSrrrttSWCHTrrrttSWC
       5046151515 1515151515 1515151515 7777700000 2221112327 2221112327 2221112327 2221112327 HFrrrrrrrrrrrrrbbX  21t3721t3721t3721t37
       2221112327 2221112327 2221112327 2221112327 2221112327 2221112327                       21t3721t3721t3721t3721t3721t37
  550: 0003500016 4664562026 1361200140 3414400000 4366302106 1154416411 5760221515 1157646340  !H (FTN06"Q0% ,'   CV81:tLATtOP2rrtOTS 
       2424635443 1114455644 1515151515 1515151515 1515151515 1515151515 4366302206 1152631163 44SLCt'ENDrrrrrrrrrrrrrrrrrrrrCV82:tJStS
       4564415515 1157646340 2424445443 1515151515 1162454641 4043416255 4411576022 1445564415 ETAMrtOTS 44DLCrrrrrtREFA CARMDtOP2'ENDr
       1515151515 1515151515 1515151515 4366302306 1143624043 5544416211 5760224056 3641621515 rrrrrrrrrrrrrrrCV83:tCR CMDARtOP2 N.ARrr
       1157646340 2424555443 1114455644 1515151515 1515151515 1515151515 4366302406 1157606211 tOTS 44MLCt'ENDrrrrrrrrrrrrrrrCV84:tOPRt
       6341624063 6556406344 6440241515 1157646346 4043663024 6315151515 1152634043 6630247015 SAR SUN SDT 4rrtOTSF CV84SrrrrtJS CV84Xr
       1157646346 4043546341 6236561114 4556441515 1515151515 1515151515 4366302463 0611554441 tOTSF CLSAR.Nt'ENDrrrrrrrrrrrrCV84S:tMDA
       6211555744 4563151515 1515151515 4366302470 0611526555 6011361515 1141625544 1457114566 RtMODESrrrrrrrrCV84X:tJUMPt.rrtARMD'OtEV
       6346461515 1152655560 1145474622 2715151515 1515151515 4366302471 0611554441 6211435544 SFFrrtJUMPtEGF27rrrrrrrrrCV84Y:tMDARtCMD
       4162364636 4115151515 1155444162 1457114566 4154671515 1152606362 1157414263 1515151515 AR.F.ArrrrtMDAR'OtEVALWrrtJPSRtOABSrrrrr
       1155445162 1143663024 7015151515 1515151515 4366302472 0611554441 6211456657 6022151515 tMDIRtCV84XrrrrrrrrrCV84Z:tMDARtEVOP2rrr
       1152606362 1145436246 1515151515 1155444162 1143554441 6236411515 1155445162 1143663024 tJPSRtECRFrrrrrtMDARtCMDAR.ArrtMDIRtCV84
       7015151515 1515151515 1515151515 7777700000 1453634544 1453634544 1453634544 1453634544 XrrrrrrrrrrrrrrbbX  'KSED'KSED'KSED'KSED
       1453634544 1453634544 1453634544 1453634544 1453634544 1453634544                       'KSED'KSED'KSED'KSED'KSED'KSED
  585: 0003600016 4664562026 1361200147 3414400000 0040050540 5760456241 6457624044 5162454364  !P (FTN06"Q0%G,'     ** OPERATOR DIRECT
       5762405451 6364631515 1515151515 5721206406 1120242020 2003501157 2120516211 0040514005 OR LISTSrrrrrrrO10T:t04000!HtO10IRt  I *
       0540621515 1120242020 2003501157 2120515111 0040514005 0540511515 1120242020 2003501157 * Rrrt04000!HtO10IIt  I ** Irrt04000!HtO
       2120626211 0040624005 0540621515 1111575651 5560110040 4440050540 4415151515 1111575651 10RRt  R ** RrrttONIMPt  D ** DrrrrttONI
       5560110040 4340050540 4315151515 1120242020 2003501157 2120625111 0040624005 0540511515 MPt  C ** Crrrrt04000!HtO10RIt  R ** Irr
       1111575651 5560110040 4440050540 5115151515 1111575651 5560110040 4340050540 5115151515 ttONIMPt  D ** IrrrrttONIMPt  C ** Irrrr
       1515151515 5721205162 0611544164 1157602140 4342724063 4464402215 1157646340 2451457062 rrrrrO10IR:tLATtOP1 CBZ SDT 2rtOTS 4IEXR
       1515151515 1162454640 4355444162 1157602214 4556441515 1515151515 1515151515 5721205151 rrrrrtREF CMDARtOP2'ENDrrrrrrrrrrrrO10II
       0611544164 1157602140 4342724063 4464402115 1157646340 2451457051 1515151515 1162454640 :tLATtOP1 CBZ SDT 1rtOTS 4IEXIrrrrrtREF 
       4355444162 1157602214 4556441515 1515151515 1515151515 5721206262 0611544164 1157602140 CMDARtOP2'ENDrrrrrrrrrrrrO10RR:tLATtOP1 
       4342724063 4464402215 1157646340 2462457062 1515151515 1162454640 4355444162 1157602214 CBZ SDT 2rtOTS 4REXRrrrrrtREF CMDARtOP2'
       4556441515 1515151515 1515151515 5721206251 0611544164 1157602140 4342724063 4464402215 ENDrrrrrrrrrrrrO10RI:tLATtOP1 CBZ SDT 2r
       1157646340 2462457051 1515151515 1162454640 4355444162 1157602214 4556441515 1515151515 tOTS 4REXIrrrrrtREF CMDARtOP2'ENDrrrrrrr
       1515151515 1515151515 7777700000 7340615443 7340615443 7340615443 7340615443 7340615443 rrrrrrrrrrbbX  $ QLC$ QLC$ QLC$ QLC$ QLC
       7340615443 7340615443 7340615443 7340615443 7340615443                                  $ QLC$ QLC$ QLC$ QLC$ QLC
 1080: 0003700016 4664562026 1361200312 3414400000 0063456465 6040625765 6451564540 4657624005  !X (FTN06"Q0!?,'    SETUP ROUTINE FOR *
       3440373440 4156444037 3740576045 6241645762 6315151515 1515151515 5760212106 1155444162 , /, AND // OPERATORSrrrrrrrrrOP11:tMDAR
       1446115721 2164110063 4564404144 4462456363 4046576240 1305134057 6045624164 5762151515 'FtO11Tt SET ADDRESS FOR "*" OPERATORrrr
       1515151515 5760212141 0611416255 4411456664 5530110063 4166454044 5162454364 5762404144 rrrrrOP11A:tARMDtEVTM8t SAVE DIRECTOR AD
       4462456363 1515151515 1155444162 1442145611 4566645524 1100466241 4364515756 3751566445 DRESSrrrrrtMDAR'B'NtEVTM4t FRACTION/INTE
       4745624043 5755425156 4164515756 4012151515 1152604156 1145662611 0052655560 4051464056 GER COMBINATION ?rrrtJPANtEV6t JUMP IF N
       5764151515 1515151515 1155444162 1456114327 2711006345 6440444164 4140647160 4563406457 OTrrrrrrrrtMDAR'NtC77t SET DATA TYPES TO
       4051566445 4745621515 1155444162 1441114566 6455241515 1155444162 1457145432 1121211515  INTEGERrrtMDAR'AtEVTM4rrtMDAR'O'L;t11rr
       1141625544 1145666455 2415151515 1155444162 1143211100 6345644062 4563655464 4051566445 tARMDtEVTM4rrrrtMDARtC1t SET RESULT INTE
       4745621515 1141625544 1145666455 2015151515 1155444162 1145666455 2211005760 4562415644 GERrrtARMDtEVTM0rrrrtMDARtEVTM2t OPERAND
       4022404662 4143645157 5640121515 1155447057 1446112315 1152605463 1157602121 4211005265  2 FRACTION ?rrtMDXO'Ft3rtJPLStOP11Bt JU
       5560405146 4056576415 1515151515 1155444162 1143222211 0063456440 6457404357 5666456264 MP IF NOTrrrrrrtMDARtC22t SET TO CONVERT
       4057604562 4156444022 4064574051 5664454745 6215151515 5760212143 0611416255 4411456664  OPERAND 2 TO INTEGERrrrrOP11C:tARMDtEVT
       5523151515 1141625544 1450114566 6455221515 1152655560 1145662126 1100475740 6062574345 M3rrrtARMD'HtEVTM2rrtJUMPtEV16t GO PROCE
       6363151515 1515151515 5760212142 0611554441 6214501143 2222110043 5756664562 6440576045 SSrrrrrrrrOP11B:tMDAR'HtC22t CONVERT OPE
       6241564440 2140645740 5156644547 4562151515 1152655560 1157602121 4315151515 1515151515 RAND 1 TO INTEGERrrrtJUMPtOP11Crrrrrrrrr
       1515151515 5760212206 1155444162 1446115721 2264110063 4564404144 4462456363 4046576240 rrrrrOP12:tMDAR'FtO12Tt SET ADDRESS FOR 
       1337134057 6045624164 5762151515 1152655560 1157602121 4115151515 1515151515 1515151515 "/" OPERATORrrrtJUMPtOP11Arrrrrrrrrrrrrr
       5760212306 1155444162 1446115721 2364110063 4564404144 4462456363 4046576240 1337371340 OP13:tMDAR'FtO13Tt SET ADDRESS FOR "//" 
       5760456241 6457621515 1152655560 1157602121 4115151515 1515151515 1515151515 1515151515 OPERATORrrtJUMPtOP11Arrrrrrrrrrrrrrrrrrr
       0040054057 6045624164 5762404451 6245436457 6240545163 6463151515 1515151515 5721216406   * OPERATOR DIRECTOR LISTSrrrrrrrrO11T:
       1111572121 5111004057 4364415415 1121202003 5011572121 5111004051 5664454745 6215151515 ttO11It  OCTALrt100!HtO11It  INTEGERrrrr
       1120242120 2003501157 2121621100 4062454154 1515151515 1111572121 4611004046 6241436451 t04100!HtO11Rt  REALrrrrrttO11Ft  FRACTI
       5756111515 1111572121 5111004054 5747514341 5415151515 1111575651 5560110040 4457654254 ONtrrttO11It  LOGICALrrrrttONIMPt  DOUBL
       4540606245 4351635157 5615151515 1111575651 5560110040 4357556054 4570151515 1111575651 E PRECISIONrrrrttONIMPt  COMPLEXrrrttONI
       5560110040 6556444546 5156454415 1515151515 1515151515 7777700000 2565604024 2565604024 MPt  UNDEFINEDrrrrrrrrrrrbbX  5UP 45UP 4
       2565604024 2565604024 2565604024 2565604024 2565604024 2565604024 2565604024 2565604024 5UP 45UP 45UP 45UP 45UP 45UP 45UP 45UP 4
  845: 0004000016 4664562026 1361200233 3414400000 5721215106 1142624057 2121512111 6350641515  &  (FTN06"Q0c=,'   O11I:tBR O11I1tSHTrr
       1152631145 6663572215 1154416211 5760214043 4162151515 1157606211 4342561515 1157646340 tJStEVSO2rtLARtOP1 CARrrrtOPRtCBNrrtOTS 
       2451556071 1515151515 1162454640 4355444162 1157602214 4556441515 1515151515 5721215121 4IMPYrrrrrtREF CMDARtOP2'ENDrrrrrrrO11I1
       0611576062 1157602140 2124424062 4566151515 1154416211 5760214043 4162151515 1143624043 :tOPRtOP1 14B REVrrrtLARtOP1 CARrrrtCR C
       5560715411 5760224044 6062151515 1157416740 4341626263 2111144556 4415151515 1515151515 MPYLtOP2 DPRrrrtOAW CARRS1t'ENDrrrrrrrrr
       1515151515 5721216206 1154416211 5760214043 4162151515 1157606211 4342561515 1157646340 rrrrrO11R:tLARtOP1 CARrrrtOPRtCBNrrtOTS 
       2462556071 1515151515 1162454640 4355444162 1157602214 4556441515 1515151515 1515151515 4RMPYrrrrrtREF CMDARtOP2'ENDrrrrrrrrrrrr
       5721214606 1157606211 5760214021 2442406245 6615151515 1154416211 5760214043 4162404342 O11F:tOPRtOP1 14B REVrrrrtLARtOP1 CAR CB
       7215151515 1143624043 5560715411 5760224044 6062151515 1157416740 4341626263 2125114460 ZrrrrtCR CMPYLtOP2 DPRrrrtOAW CARRS15tDP
       6214455644 1515151515 1515151515 1515151515 1515151515 0040374057 6045624164 5762404451 R'ENDrrrrrrrrrrrrrrrrrrrr  / OPERATOR DI
       6245436457 6240545163 6463151515 1515151515 5721226406 1111572122 5111004057 4364415415 RECTOR LISTSrrrrrrrrO12T:ttO12It  OCTALr
       1121202003 5011572122 5111004051 5664454745 6215151515 1120242120 2003501157 2122621100 t100!HtO12It  INTEGERrrrrt04100!HtO12Rt 
       4062454154 1515151515 1111572122 4611004046 6241436451 5756151515 1111572122 5111004054  REALrrrrrttO12Ft  FRACTIONrrrttO12It  L
       5747514341 5415151515 1111575651 5560110040 4457654254 4515151515 1111575651 5560110040 OGICALrrrrttONIMPt  DOUBLErrrrttONIMPt  
       4357556054 4570151515 1111575651 5560110040 6556444546 5156454415 1515151515 5721225106 COMPLEXrrrttONIMPt  UNDEFINEDrrrrrrO12I:
       1142624057 2122512111 5760224041 6215151515 1142624057 2122512311 6350641515 1152631145 tBR O12I1tOP2 ARrrrrtBR O12I3tSHTrrtJStE
       6663572215 1154416211 5760214043 4162151515 1157606211 4342561515 1157646340 2451445166 VSO2rtLARtOP1 CARrrrtOPRtCBNrrtOTS 4IDIV
       1515151515 1162454640 4355444162 1157602214 4556441515 1515151515 5721225121 0611426240 rrrrrtREF CMDARtOP2'ENDrrrrrrrO12I1:tBR 
       5721225122 1163506415 1152631145 6663572115 1157646340 2451624466 1143416215 1157606211 O12I2tSHTrtJStEVSO1rtOTS 4IRDVtCARrtOPRt
       4342561515 1162454640 4355444162 1157602114 4556441515 1515151515 7777700000 2220457636 CBNrrtREF CMDARtOP1'ENDrrrrrrrbbX  20E+.
       2220457636 2220457636 2220457636 2220457636 2220457636 2220457636 2220457636 2220457636 20E+.20E+.20E+.20E+.20E+.20E+.20E+.20E+.
       2220457636                                                                              20E+.
  915: 0004100016 4664562026 1361200251 3414400000 5721225122 0611576062 1163416215 5721225123  &+ (FTN06"Q0cI,'   O12I2:tOPRtSARrO12I3
       0611624340 4355444162 3642115760 2115151515 1143624043 4451665411 5760224044 6062151515 :tRC CMDAR.BtOP1rrrrtCR CDIVLtOP2 DPRrrr
       1157416740 4341624162 3646365015 1157416740 4341626263 2125114460 6214455644 1515151515 tOAW CARAR.F.HrtOAW CARRS15tDPR'ENDrrrrr
       1515151515 5721226206 1142624057 2122622111 5760224041 6215151515 1154416211 5760214043 rrrrrO12R:tBR O12R1tOP2 ARrrrrtLARtOP1 C
       4162151515 1157606211 4342561515 1157646340 2462445166 1515151515 1162454640 4355444162 ARrrrtOPRtCBNrrtOTS 4RDIVrrrrrtREF CMDAR
       1157602214 4556441515 1515151515 5721226221 0611576463 4024626244 6611416257 4043416215 tOP2'ENDrrrrrrrO12R1:tOTS 4RRDVtARO CARr
       1157606211 4342561515 1162454640 4355444162 1157602114 4556441515 1515151515 5721224606 tOPRtCBNrrtREF CMDARtOP1'ENDrrrrrrrO12F:
       1157606211 5760224041 6240634162 1515151515 1157606211 4342721515 1157606211 5760214041 tOPRtOP2 AR SARrrrrrtOPRtCBZrrtOPRtOP1 A
       6240434162 1515151515 1162434043 5544416236 5011576021 1515151515 1143624043 4451665411 R CARrrrrrtRC CMDAR.HtOP1rrrrrtCR CDIVLt
       5760224044 6062151515 1157416740 4341624162 3646365015 1157416740 4341626263 2125114460 OP2 DPRrrrtOAW CARAR.F.HrtOAW CARRS15tDP
       6214455644 1515151515 1515151515 1515151515 0040373740 5760456241 6457624044 5162454364 R'ENDrrrrrrrrrrrrrrr  // OPERATOR DIRECT
       5762405451 6364631515 1515151515 5721236406 1111572123 5111004057 4364415415 1121202003 OR LISTSrrrrrrrO13T:ttO13It  OCTALrt100!
       5011572123 5111004051 5664454745 6215151515 1120242120 2003501157 2123621100 4062454154 HtO13It  INTEGERrrrrt04100!HtO13Rt  REAL
       1515151515 1111572123 4611004046 6241436451 5756151515 1111572123 5111004054 5747514341 rrrrrttO13Ft  FRACTIONrrrttO13It  LOGICA
       5415151515 1111575651 5560110040 4457654254 4515151515 1111575651 5560110040 4357556054 LrrrrttONIMPt  DOUBLErrrrttONIMPt  COMPL
       4570151515 1111575651 5560110040 6556444546 5156454415 1515151515 5721235106 1142624057 EXrrrttONIMPt  UNDEFINEDrrrrrrO13I:tBR O
       2123461163 5064151515 1142624057 2123512111 5760224041 6215151515 1515151515 1152631145 13FtSHTrrrtBR O13I1tOP2 ARrrrrrrrrrtJStE
       6663572215 1154416211 5760214043 4162151515 1157606211 4342561515 1157646340 2451445166 VSO2rtLARtOP1 CARrrrtOPRtCBNrrtOTS 4IDIV
       1515151515 1162454640 4355444162 1157602215 1142624057 2123512215 1515151515 5721235121 rrrrrtREF CMDARtOP2rtBR O13I2rrrrrrO13I1
       0611526311 4566635721 1515151515 1157646340 2451624466 1143416215 1157606240 4342561515 :tJStEVSO1rrrrrtOTS 4IRDVtCARrtOPR CBNrr
       1162454640 4355444162 1157602115 1515151515 5721235122 0611576463 4640435544 4162244451 tREF CMDARtOP1rrrrrrO13I2:tOTSF CMDAR4DI
       6662144556 4415151515 1515151515 1515151515 7777700000 1710164052 1710164052 1710164052 VR'ENDrrrrrrrrrrrrrrbbX  )+( J)+( J)+( J
       1710164052 1710164052 1710164052 1710164052 1710164052 1710164052 1710164052            )+( J)+( J)+( J)+( J)+( J)+( J)+( J
  855: 0004200016 4664562026 1361200235 3414400000 5721234606 1157606211 6341621515 1154416211  &0 (FTN06"Q0c-,'   O13F:tOPRtSARrrtLARt
       5760214043 4162151515 1157606211 4342561515 1157416740 4341626263 2231114460 6215151515 OP1 CARrrrtOPRtCBNrrtOAW CARRS29tDPRrrrr
       1157415540 4341625544 1515151515 1162454640 4355444162 3642115760 2115151515 1143624043 tOAM CARMDrrrrrtREF CMDAR.BtOP1rrrrtCR C
       4451665411 5760224044 6062151515 1157416740 4341624162 3646365015 1157416740 4341626263 DIVLtOP2 DPRrrrtOAW CARAR.F.HrtOAW CARRS
       2115151515 1157646346 4043554441 6236412415 1162454640 4355447057 3654151515 1157606211 1rrrrtOTSF CMDAR.A4rtREF CMDXO.LrrrtOPRt
       4350561515 1157416740 4320114556 4415151515 1515151515 1515151515 5721236206 1157606211 CHNrrtOAW C0tENDrrrrrrrrrrrrrrO13R:tOPRt
       5760224041 6240634162 1515151515 1152634045 6663572215 1154416211 5760214043 4162151515 OP2 AR SARrrrrrtJS EVSO2rtLARtOP1 CARrrr
       1157606211 4342561515 1157646340 2441555744 1515151515 1162454640 4355444162 1157602214 tOPRtCBNrrtOTS 4AMODrrrrrtREF CMDARtOP2'
       4556441515 1515151515 1515151515 0040104057 6045624164 5762404451 6245436457 6240545163 ENDrrrrrrrrrrrr  + OPERATOR DIRECTOR LIS
       6463151515 1515151515 5721246406 1121202003 5011572124 5111004057 4364415415 1121202003 TSrrrrrrrrO14T:t100!HtO14It  OCTALrt100!
       5011572124 5111004051 5664454745 6215151515 1120242120 2003501157 2124621100 4062454154 HtO14It  INTEGERrrrrt04100!HtO14Rt  REAL
       1515151515 1111572124 4611004046 6241436451 5756151515 1121202003 5011572124 5111004054 rrrrrttO14Ft  FRACTIONrrrt100!HtO14It  L
       5747514341 5415151515 1111575651 5560110040 4457654254 4515151515 1111575651 5560110040 OGICALrrrrttONIMPt  DOUBLErrrrttONIMPt  
       4357556054 4570151515 1111575651 5560110040 6556444546 5156454415 1515151515 1515151515 COMPLEXrrrttONIMPt  UNDEFINEDrrrrrrrrrrr
       5721245106 1142624057 2124512111 5760214041 6215151515 1157606211 5760214021 2442406245 O14I:tBR O14I1tOP1 ARrrrrtOPRtOP1 14B RE
       6615151515 1154416211 5760211515 1143624043 5544414511 5760224045 4165144556 4415151515 VrrrrtLARtOP1rrtCR CMDAEtOP2 EAU'ENDrrrr
       1515151515 5721245121 0611426240 5721245110 2211416257 4056365645 4715151515 1143624043 rrrrrO14I1:tBR O14I+2tARO N.NEGrrrrtCR C
       5544414536 5611576022 4045416540 4341621445 5644151515 1515151515 1515151515 5721246206 MDAE.NtOP2 EAU CAR'ENDrrrrrrrrrrrrrO14R:
       1142624057 2124622111 5760214041 6215151515 1154416211 5760211515 1157646340 2462414444 tBR O14R1tOP1 ARrrrrtLARtOP1rrtOTS 4RADD
       1515151515 1162454640 4355444162 1157602215 1157606211 4342561445 5644151515 1515151515 rrrrrtREF CMDARtOP2rtOPRtCBN'ENDrrrrrrrr
       7777700000 7055334777 7055334777 7055334777 7055334777 7055334777 7055334777 7055334777 bbX  XM=GbXM=GbXM=GbXM=GbXM=GbXM=GbXM=Gb
       7055334777 7055334777 7055334777                                                        XM=GbXM=GbXM=Gb
  995: 0004300016 4664562026 1361200271 3414400000 5721246221 0611426240 5721246210 2211416257  &8 (FTN06"Q0cY,'   O14R1:tBR O14R+2tARO
       4056365645 4715151515 1157646340 2462414444 1515151515 1157606211 4356151515 1162454640  N.NEGrrrrtOTS 4RADDrrrrrtOPRtCNrrrtREF 
       4355444162 3656115760 2215151515 1142624057 2124622135 2115151515 1515151515 5721244606 CMDAR.NtOP2rrrrtBR O14R1-1rrrrrrrrrO14F:
       1157606211 4342721515 1142624057 2124462111 5760214041 6215151515 1157606211 5760214021 tOPRtCBZrrtBR O14F1tOP1 ARrrrrtOPRtOP1 1
       2442406245 6615151515 1154416211 5760211515 1143624043 5544416311 5760224014 4556441515 4B REVrrrrtLARtOP1rrtCR CMDAStOP2 'ENDrr
       1515151515 5721244621 0611426240 5721244610 2211416257 4056365645 4715151515 1143624043 rrrrrO14F1:tBR O14F+2tARO N.NEGrrrrtCR C
       5544416336 5611576022 4040434162 1445564415 1515151515 1515151515 0040425156 4162714013 MDAS.NtOP2  CAR'ENDrrrrrrrrrrr  BINARY "
       3513405760 4562416457 6240445162 4543645762 4054516364 6315151515 1515151515 5721256406 -" OPERATOR DIRECTOR LISTSrrrrrrrrrO15T:
       1121202003 5011572125 5111004057 4364415415 1121202003 5011572125 5111004051 5664454745 t100!HtO15It  OCTALrt100!HtO15It  INTEGE
       6215151515 1121202003 5011572125 6211004062 4541541515 1111572125 4611004046 6241436451 Rrrrrt100!HtO15Rt  REALrrttO15Ft  FRACTI
       5756151515 1121202003 5011572125 5111004054 5747514341 5415151515 1111575651 5560110040 ONrrrt100!HtO15It  LOGICALrrrrttONIMPt  
       4457654254 4515151515 1111575651 5560110040 4357556054 4570151515 1111575651 5560110040 DOUBLErrrrttONIMPt  COMPLEXrrrttONIMPt  
       6556444546 5156454415 1515151515 1515151515 5721255106 1142624057 2125512111 5760224041 UNDEFINEDrrrrrrrrrrrO15I:tBR O15I1tOP2 A
       6215151515 1142624057 2125512211 5760214041 6215151515 1157606211 5760214021 2442406245 RrrrrtBR O15I2tOP1 ARrrrrtOPRtOP1 14B RE
       6640435615 1154416211 5760211515 1143624043 5544414536 5611576022 4045416514 4556441515 V CNrtLARtOP1rrtCR CMDAE.NtOP2 EAU'ENDrr
       1515151515 5721255122 0611426240 5721255110 2311416257 4056365645 4715151515 1143624043 rrrrrO15I2:tBR O15I+3tARO N.NEGrrrrtCR C
       5544414511 5760224043 4162404541 6514455644 1515151515 1515151515 5721255121 0611426240 MDAEtOP2 CAR EAU'ENDrrrrrrrrrrO15I1:tBR 
       5721255123 1141625740 5645471515 1157606211 4356151515 1143624043 5544414536 5611576021 O15I3tARO NEGrrtOPRtCNrrrtCR CMDAE.NtOP1
       4045416514 4556441515 1515151515 5721255123 0611436240 4355444145 1157602140 4541651445  EAU'ENDrrrrrrrO15I3:tCR CMDAEtOP1 EAU'E
       5644151515 1515151515 1515151515 5721256206 1142624057 2125622111 5760224041 6215151515 NDrrrrrrrrrrrrrO15R:tBR O15R1tOP2 ARrrrr
       1152631145 6663572215 1142624057 2125622211 4162574056 4547151515 1154416211 5760214043 tJStEVSO2rtBR O15R2tARO NEGrrrtLARtOP1 C
       4272151515 1157646340 2462414444 1515151515 1162454640 4355444162 3656115760 2214455644 BZrrrtOTS 4RADDrrrrrtREF CMDAR.NtOP2'END
       1515151515 1515151515 5721256222 0611576463 4024624144 4411434162 1515151515 1162454640 rrrrrrrrrrO15R2:tOTS 4RADDtCARrrrrrtREF 
       4355444162 1157602214 4556441515 1515151515 7777700000 4432325546 4432325546 4432325546 CMDARtOP2'ENDrrrrrrrbbX  D;;MFD;;MFD;;MF
       4432325546 4432325546 4432325546 4432325546 4432325546 4432325546 4432325546            D;;MFD;;MFD;;MFD;;MFD;;MFD;;MFD;;MF
  650: 0004400016 4664562026 1361200164 3414400000 5721256221 0611526311 4566635721 1515151515  &  (FTN06"Q0%T,'   O15R1:tJStEVSO1rrrrr
       1142624057 2125622311 4162574056 4547151515 1157646340 2462414444 1515151515 1162454640 tBR O15R3tARO NEGrrrtOTS 4RADDrrrrrtREF 
       4355444162 3656115760 2115151515 1157606211 4356144556 4415151515 1515151515 5721256223 CMDAR.NtOP1rrrrtOPRtCN'ENDrrrrrrrrrO15R3
       0611576463 4024624144 4415151515 1162454640 4355444162 1157602115 1157606211 4342721445 :tOTS 4RADDrrrrtREF CMDARtOP1rtOPRtCBZ'E
       5644151515 1515151515 1515151515 5721254606 1157606211 4342721515 1142624057 2125462111 NDrrrrrrrrrrrrrO15F:tOPRtCBZrrtBR O15F1t
       5760224041 6215151515 1142624057 2125462211 5760214041 6215151515 1157606211 5760214021 OP2 ARrrrrtBR O15F2tOP1 ARrrrrtOPRtOP1 1
       2442406245 6640435615 1154416211 5760211515 1143624043 5544416336 5611576022 4014455644 4B REV CNrtLARtOP1rrtCR CMDAS.NtOP2 'END
       1515151515 1515151515 5721254622 0611426240 5721254610 2311416257 4056365645 4715151515 rrrrrrrrrrO15F2:tBR O15F+3tARO N.NEGrrrr
       1143624043 5544416311 5760224043 4162401445 5644151515 1515151515 5721254621 0611426240 tCR CMDAStOP2 CAR 'ENDrrrrrrrrO15F1:tBR 
       5721254623 1141625740 5645471515 1157606211 4356151515 1143624043 5544416336 5611576021 O15F3tARO NEGrrtOPRtCNrrrtCR CMDAS.NtOP1
       1445564415 1515151515 5721254623 0611436240 4355444163 1157602140 1445564415 1515151515 'ENDrrrrrrO15F3:tCR CMDAStOP1 'ENDrrrrrr
       1515151515 1515151515 0040655641 6271401335 1340576045 6241645762 4044516245 4364576240 rrrrrrrrrr  UNARY "-" OPERATOR DIRECTOR 
       5451636415 1515151515 5721264106 1142624057 2126412111 5760224041 6215151515 1157606211 LISTrrrrrrO16A:tBR O16A1tOP2 ARrrrrtOPRt
       5760224063 5641404356 4063655614 4556441515 1515151515 5721264121 0611576062 1141625740 OP2 SNA CN SUN'ENDrrrrrrrO16A1:tOPRtARO 
       5636564547 4043561515 1157606211 6365561445 5644151515 1515151515 1515151515 7777700000 N.NEG CNrrtOPRtSUN'ENDrrrrrrrrrrrrrbbX  
       3720061106 3720061106 3720061106 3720061106 3720061106 3720061106 3720061106 3720061106 /0:t:/0:t:/0:t:/0:t:/0:t:/0:t:/0:t:/0:t:
       3720061106 3720061106                                                                   /0:t:/0:t:
  680: 0004500016 4664562026 1361200172 3414400000 0040364561 3640415644 4036564536 4057604562  &H (FTN06"Q0%Z,'     .EQ. AND .NE. OPER
       4164576240 4451624543 6457624054 5163646315 1515151515 5721274106 1157606211 4356110036 ATOR DIRECTOR LISTSrrrrrrO17A:tOPRtCNt .
       4561361515 1515151515 5722204106 1142624057 2220412311 5760214056 6672110036 5645361515 EQ.rrrrrrrO20A:tBR O20A3tOP1 NVZt .NE.rr
       1142624057 2220412211 5760224056 6672151515 1142624057 2220412111 4162574056 4547151515 tBR O20A2tOP2 NVZrrrtBR O20A1tARO NEGrrr
       1154416211 5760211515 1162454640 4355447057 1157602215 1142624057 2220412415 1515151515 tLARtOP1rrtREF CMDXOtOP2rtBR O20A4rrrrrr
       5722204121 0611624546 4043554470 5736561157 6022151515 1142624057 2220412415 1515151515 O20A1:tREF CMDXO.NtOP2rrrtBR O20A4rrrrrr
       5722204122 0611576062 1163416215 1162454640 4355444162 3656115760 2215151515 1157416740 O20A2:tOPRtSARrtREF CMDAR.NtOP2rrrrtOAW 
       4355444163 3646365615 1162454640 4355447057 3656115760 2115151515 1142624057 2220412415 CMDAS.F.NrtREF CMDXO.NtOP1rrrrtBR O20A4r
       1515151515 5722204123 0611426240 3610231157 6021404162 1515151515 1515151515 1162454640 rrrrrO20A3:tBR .+3tOP1 ARrrrrrrrrrrtREF 
       4355444162 3656115760 2115151515 1142624036 1023151515 1515151515 1142624036 1022114162 CMDAR.NtOP1rrrrtBR .+3rrrrrrrrtBR .+2tAR
       5740564547 1515151515 1157416740 4341624162 3646365615 1515151515 1157416740 4355444163 O NEGrrrrrtOAW CARAR.F.NrrrrrrtOAW CMDAS
       3646365615 1142624057 2220412111 5760224056 3656667215 1515151515 1157415540 4341625544 .F.NrtBR O20A1tOP2 N.NVZrrrrrrtOAM CARMD
       1515151515 1162454640 4355444162 3656115760 2215151515 1157416740 4355444163 3646365615 rrrrrtREF CMDAR.NtOP2rrrrtOAW CMDAS.F.Nr
       1157416740 4355447057 3654151515 1157606211 4350561515 1157416740 4320151515 1515151515 tOAW CMDXO.LrrrtOPRtCHNrrtOAW C0rrrrrrrr
       5722204124 0611574167 4043416241 6246505715 1157646346 4043546341 6236561515 1157606211 O20A4:tOAW CARARFHOrtOTSF CLSAR.NrrtOPRt
       6365564063 4464402414 4556441515 1515151515 1515151515 7777700000 6727714323 6727714323 SUN SDT 4'ENDrrrrrrrrrrrrbbX  W7YC3W7YC3
       6727714323 6727714323 6727714323 6727714323 6727714323 6727714323 6727714323 6727714323 W7YC3W7YC3W7YC3W7YC3W7YC3W7YC3W7YC3W7YC3
  880: 0004600016 4664562026 1361200242 3414400000 0040364764 3640576045 6241645762 4044516245  &P (FTN06"Q0cB,'     .GT. OPERATOR DIRE
       4364576240 5451636415 1515151515 5722214106 1142624057 2221412611 5760214056 6672151515 CTOR LISTrrrrrrO21A:tBR O21A6tOP1 NVZrrr
       1142624057 2221412611 5760224056 6672151515 1142624057 2221412111 5760224041 6215151515 tBR O21A6tOP2 NVZrrrtBR O21A1tOP2 ARrrrr
       1142624057 2221412311 5760214041 6215151515 1162454640 4355444162 1157602115 1162454640 tBR O21A3tOP1 ARrrrrtREF CMDARtOP1rtREF 
       4355447057 1157602215 1515151515 5722214125 0611574155 4043526041 5615151515 1162454640 CMDXOtOP2rrrrrrO21A5:tOAM CJPANrrrrtREF 
       4355444162 1157602115 1162454640 4355444145 3656115760 2215151515 1142624036 1022115760 CMDARtOP1rtREF CMDAE.NtOP2rrrrtBR .+2tOP
       2240563656 6672151515 1157416740 4355444163 3646365615 1157416740 4341624162 3654365615 2 N.NVZrrrtOAW CMDAS.F.NrtOAW CARAR.L.Nr
       1157606211 4350564063 6556406344 6440241515 1162454640 4355444162 1157602214 4556441515 tOPRtCHN SUN SDT 4rrtREF CMDARtOP2'ENDrr
       1515151515 5722214121 0611426240 5722214122 1141625740 5645471515 1157606211 6341621515 rrrrrO21A1:tBR O21A2tARO NEGrrtOPRtSARrr
       1162454640 4355447057 1157602115 1142624057 2221412515 1515151515 5722214122 0611576062 tREF CMDXOtOP1rtBR O21A5rrrrrrO21A2:tOPR
       1163416215 1162454640 4355447057 3656115760 2115151515 1142624057 2221412515 1515151515 tSARrtREF CMDXO.NtOP1rrrrtBR O21A5rrrrrr
       5722214123 0611426240 5722214124 1141625740 5645471515 1157606211 6341621515 1142624057 O21A3:tBR O21A4tARO NEGrrtOPRtSARrrtBR O
       2221412535 2115151515 1515151515 5722214124 0611576062 1163416215 1162454640 4355447057 21A5-1rrrrrrrrrO21A4:tOPRtSARrtREF CMDXO
       3656115760 2215151515 1142624057 2221412515 1515151515 5722214126 0611426240 5722214127 .NtOP2rrrrtBR O21A5rrrrrrO21A6:tBR O21A7
       1157602240 4162151515 1142624057 2221413011 5760214041 6215151515 1162454640 4355444162 tOP2 ARrrrtBR O21A8tOP1 ARrrrrtREF CMDAR
       1157602115 1162454640 4355447057 3656115760 2215151515 1515151515 5722214131 0611574155 tOP1rtREF CMDXO.NtOP2rrrrrrrrrO21A9:tOAM
       4043526041 5615151515 1162454640 4355447057 1157602215 1162454640 4341564162 3656115760  CJPANrrrrtREF CMDXOtOP2rtREF CANAR.NtOP
       2215151515 1157416740 4341624162 4650571515 1157416740 4352605463 1515151515 1157606240 2rrrrtOAW CARARFHOrrtOAW CJPLSrrrrrtOPR 
       4350561515 1152634057 2221417215 1142624057 2221412510 2115151515 1515151515 5722214127 CHNrrtJS O21AZrtBR O21A5+1rrrrrrrrrO21A7
       0611426240 3610241141 6257405645 4715151515 1157606211 6341621515 1162454640 4355447057 :tBR .+4tARO NEGrrrrtOPRtSARrrtREF CMDXO
       3656115760 2115151515 1142624057 2221413115 1515151515 7777700000 6323251065 6323251065 .NtOP1rrrrtBR O21A9rrrrrrbbX  S35+US35+U
       6323251065 6323251065 6323251065 6323251065 6323251065 6323251065 6323251065 6323251065 S35+US35+US35+US35+US35+US35+US35+US35+U
  835: 0004700016 4664562026 1361200231 3414400000 1157606211 6341621515 1162454640 4355447057  &X (FTN06"Q0c9,'   tOPRtSARrrtREF CMDXO
       1157602115 1142624057 2221413115 1515151515 5722214130 0611426240 3610231141 6257405645 tOP1rtBR O21A9rrrrrrO21A8:tBR .+3tARO NE
       4715151515 1157606211 6341621515 1142624057 2221413135 2115151515 1515151515 1157606211 GrrrrtOPRtSARrrtBR O21A9-1rrrrrrrrrtOPRt
       6341621515 1162454640 4355447057 1157602215 1142624057 2221413115 1515151515 1515151515 SARrrtREF CMDXOtOP2rtBR O21A9rrrrrrrrrrr
       0040636045 4351415440 4350415156 4062576564 5156454046 5762403647 6436404156 4440364745   SPECIAL CHAIN ROUTINE FOR .GT. AND .GE
       3640576045 6241645762 6315151515 1515151515 5722214172 0611526555 6011361515 1155444162 . OPERATORSrrrrrrrrrO21AZ:tJUMPt.rrtMDAR
       1157545743 1515151515 1155444163 1446145611 2115151515 1141625544 1145432441 1515151515 tOLOCrrrrrtMDAS'F'Nt1rrrrtARMDtEC4Arrrrr
       1155445162 1157222141 7215151515 1515151515 1515151515 0040364745 3640576045 6241645762 tMDIRtO21AZrrrrrrrrrrrrrr  .GE. OPERATOR
       4044516245 4364576240 5451636415 1515151515 5722224106 1142624057 2222412611 5760214056  DIRECTOR LISTrrrrrrO22A:tBR O22A6tOP1 N
       6672151515 1142624057 2222412611 5760224056 6672151515 1142624057 2222412111 5760224041 VZrrrtBR O22A6tOP2 NVZrrrtBR O22A1tOP2 A
       6215151515 1142624057 2222412311 5760214041 6215151515 1162454640 4355444162 1157602115 RrrrrtBR O22A3tOP1 ARrrrrtREF CMDARtOP1r
       1162454640 4355447057 1157602215 1515151515 5722224125 0611574155 4043526041 5615151515 tREF CMDXOtOP2rrrrrrO22A5:tOAM CJPANrrrr
       1162454640 4355444162 1157602215 1162454640 4355444145 3656115760 2115151515 1142624036 tREF CMDARtOP2rtREF CMDAE.NtOP1rrrrtBR .
       1022115760 2140563656 6672151515 1157416740 4355444163 3646365615 1157416740 4341624162 +2tOP1 N.NVZrrrtOAW CMDAS.F.NrtOAW CARAR
       3654151515 1157606211 4350564063 6556406344 6440241515 1162454640 4355444162 1157602214 .LrrrtOPRtCHN SUN SDT 4rrtREF CMDARtOP2'
       4556441515 1515151515 5722224121 0611426240 5722224122 1141625740 5645471515 1157606211 ENDrrrrrrrO22A1:tBR O22A2tARO NEGrrtOPRt
       6341621515 1162454640 4355447057 1157602115 1142624057 2222412515 1515151515 5722224122 SARrrtREF CMDXOtOP1rtBR O22A5rrrrrrO22A2
       0611576062 1163416215 1162454640 4355447057 3656115760 2115151515 1142624057 2222412515 :tOPRtSARrtREF CMDXO.NtOP1rrrrtBR O22A5r
       1515151515 5722224123 0611426240 5722224124 1141625740 5645471515 1157606211 6341621515 rrrrrO22A3:tBR O22A4tARO NEGrrtOPRtSARrr
       1142624057 2222412535 2115151515 1515151515 7777700000 5462731403 5462731403 5462731403 tBR O22A5-1rrrrrrrrrbbX  LR$'!LR$'!LR$'!
       5462731403 5462731403 5462731403 5462731403 5462731403 5462731403 5462731403            LR$'!LR$'!LR$'!LR$'!LR$'!LR$'!LR$'!
  685: 0005000016 4664562026 1361200173 3414400000 5722224124 0611576062 1163416215 1162454640  *  (FTN06"Q0%$,'   O22A4:tOPRtSARrtREF 
       4355447057 3656115760 2215151515 1142624057 2222412515 1515151515 5722224126 0611426240 CMDXO.NtOP2rrrrtBR O22A5rrrrrrO22A6:tBR 
       5722224127 1157602240 4162151515 1142624057 2222413011 5760214041 6215151515 1162454640 O22A7tOP2 ARrrrtBR O22A8tOP1 ARrrrrtREF 
       4355444162 1157602115 1162454640 4355447057 3656115760 2215151515 1515151515 5722224131 CMDARtOP1rtREF CMDXO.NtOP2rrrrrrrrrO22A9
       0611574155 4043526041 5615151515 1162454640 4355447057 1157602215 1162454640 4341564162 :tOAM CJPANrrrrtREF CMDXOtOP2rtREF CANAR
       3656115760 2215151515 1157416740 4341624162 4650571515 1157416740 4352605463 1515151515 .NtOP2rrrrtOAW CARARFHOrrtOAW CJPLSrrrrr
       1157606211 4350561515 1152634057 2221417215 1142624057 2222412510 2115151515 1515151515 tOPRtCHNrrtJS O21AZrtBR O22A5+1rrrrrrrrr
       5722224127 0611426240 3610241141 6257405645 4715151515 1157606211 6341621515 1162454640 O22A7:tBR .+4tARO NEGrrrrtOPRtSARrrtREF 
       4355447057 3656115760 2115151515 1142624057 2222413115 1515151515 1157606211 6341621515 CMDXO.NtOP1rrrrtBR O22A9rrrrrrtOPRtSARrr
       1162454640 4355447057 1157602115 1142624057 2222413115 1515151515 5722224130 0611426240 tREF CMDXOtOP1rtBR O22A9rrrrrrO22A8:tBR 
       3610231141 6257405645 4715151515 1157606211 6341621515 1142624057 2222413135 2115151515 .+3tARO NEGrrrrtOPRtSARrrtBR O22A9-1rrrr
       1515151515 1157606240 6341621515 1162454640 4355447057 1157602215 1142624057 2222413115 rrrrrtOPR SARrrtREF CMDXOtOP2rtBR O22A9r
       1515151515 1515151515 0040365464 3640576045 6241645762 4044516245 4364576240 5451636415 rrrrrrrrrr  .LT. OPERATOR DIRECTOR LISTr
       1515151515 5722234106 1157606211 6245661515 1142624057 2221411515 1515151515 1515151515 rrrrrO23A:tOPRtREVrrtBR O21Arrrrrrrrrrrr
       0040365445 3640576045 6241645762 4044516245 4364576240 5451636415 1515151515 5722244106   .LE. OPERATOR DIRECTOR LISTrrrrrrO24A:
       1157606211 6245661515 1142624057 2222411515 1515151515 1515151515 7777700000 4530427256 tOPRtREVrrtBR O22ArrrrrrrrrrrrbbX  E8BZN
       4530427256 4530427256 4530427256 4530427256 4530427256 4530427256 4530427256 4530427256 E8BZNE8BZNE8BZNE8BZNE8BZNE8BZNE8BZNE8BZN
       4530427256                                                                              E8BZN
  860: 0005100016 4664562026 1361200236 3414400000 0040365657 6436405760 4562416457 6240445162  *+ (FTN06"Q0c.,'     .NOT. OPERATOR DIR
       4543645762 4054516364 1515151515 1515151515 5722254106 1142624057 2225412111 5760224041 ECTOR LISTrrrrrrrrrrO25A:tBR O25A1tOP2 A
       6215151515 1157606211 5760224063 5641404356 4063655640 4344644024 1445564415 1515151515 RrrrrtOPRtOP2 SNA CN SUN CDT 4'ENDrrrrrr
       5722254121 0611576062 1143564041 6257405636 5645471515 1157606211 6365564043 4464402414 O25A1:tOPRtCN ARO N.NEGrrtOPRtSUN CDT 4'
       4556441515 1515151515 1515151515 0040364156 4436405760 4562416457 6215151515 1515151515 ENDrrrrrrrrrrrr  .AND. OPERATORrrrrrrrrr
       5722264106 1154416211 5760214056 3641621515 1142624057 2226412111 5760224056 4547151515 O26A:tLARtOP1 N.ARrrtBR O26A1tOP2 NEGrrr
       1142624057 2226412211 4162574056 4547151515 1162454641 4043554441 6236411157 6022151515 tBR O26A2tARO NEGrrrtREFA CMDAR.AtOP2rrr
       1157606211 4365564043 4464402414 4556441515 1515151515 5722264121 0611426240 5722264124 tOPRtCUN CDT 4'ENDrrrrrrrO26A1:tBR O26A4
       1141625740 5645471515 1162454641 4043554470 5736411157 6022151515 1157606211 4365564043 tARO NEGrrtREFA CMDXO.AtOP2rrrtOPRtCUN C
       4464402414 4556441515 1515151515 5722264124 0611624546 4140435544 4162365711 5760221515 DT 4'ENDrrrrrrrO26A4:tREFA CMDAR.OtOP2rr
       1157606211 6365564043 4464402440 4356144556 4415151515 1515151515 5722264122 0611624546 tOPRtSUN CDT 4 CN'ENDrrrrrrrrrO26A2:tREF
       4140435544 7057365711 5760221515 1157606211 4365564043 4464402414 4556441515 1515151515 A CMDXO.OtOP2rrtOPRtCUN CDT 4'ENDrrrrrrr
       1515151515 0040365762 3640576045 6241645762 1515151515 1515151515 5722274106 1154416211 rrrrr  .OR. OPERATORrrrrrrrrrrO27A:tLARt
       5760214056 3641621515 1142624057 2227412111 5760224056 4547151515 1142624057 2227412211 OP1 N.ARrrtBR O27A1tOP2 NEGrrrtBR O27A2t
       4162574056 4547151515 1162454641 4043554441 6236571157 6022151515 1157606211 4365564043 ARO NEGrrrtREFA CMDAR.OtOP2rrrtOPRtCUN C
       4464402414 4556441515 1515151515 5722274121 0611426240 5722274124 1141625740 5645471515 DT 4'ENDrrrrrrrO27A1:tBR O27A4tARO NEGrr
       1162454641 4043554470 5736571157 6022151515 1157606211 6365564043 5640434464 4024144556 tREFA CMDXO.OtOP2rrrtOPRtSUN CN CDT 4'EN
       4415151515 1515151515 5722274124 0611624546 4140435544 4162364111 5760221515 1157606211 DrrrrrrrrrO27A4:tREFA CMDAR.AtOP2rrtOPRt
       6365564043 4464402440 4356144556 4415151515 1515151515 5722274122 0611624546 4140435544 SUN CDT 4 CN'ENDrrrrrrrrrO27A2:tREFA CMD
       7057364111 5760221515 1157606211 6365564043 5640434464 4024144556 4415151515 1515151515 XO.AtOP2rrtOPRtSUN CN CDT 4'ENDrrrrrrrrr
       1515151515 7777700000 4437155767 4437155767 4437155767 4437155767 4437155767 4437155767 rrrrrbbX  D/rOWD/rOWD/rOWD/rOWD/rOWD/rOW
       4437155767 4437155767 4437155767 4437155767                                             D/rOWD/rOWD/rOWD/rOW
 1095: 0005200016 4664562026 1361200315 3414400000 0040367057 6236405760 4562416457 6215151515  *0 (FTN06"Q0!r,'     .XOR. OPERATORrrrr
       1515151515 5723204106 1154416211 5760214056 3641621515 1142624057 2320412111 5760224056 rrrrrO30A:tLARtOP1 N.ARrrtBR O30A1tOP2 N
       4547151515 1142624057 2320412311 4162574056 4547151515 1154416211 5760211515 5723204122 EGrrrtBR O30A3tARO NEGrrrtLARtOP1rrO30A2
       0611624546 4140435544 7057115760 2215151515 1157606211 4365564043 4464402414 4556441515 :tREFA CMDXOtOP2rrrrtOPRtCUN CDT 4'ENDrr
       1515151515 5723204121 0611426240 5723204122 1141625740 5645471515 5723204123 0611624546 rrrrrO30A1:tBR O30A2tARO NEGrrO30A3:tREF
       4140435544 7057365611 5760221515 1157606211 4365564043 4464402414 4556441515 1515151515 A CMDXO.NtOP2rrtOPRtCUN CDT 4'ENDrrrrrrr
       1515151515 0040365436 4041564440 3662364063 4564656040 6257656451 5645631515 1515151515 rrrrr  .L. AND .R. SETUP ROUTINESrrrrrrr
       5760232106 1155444162 1446115723 2141110063 4564404144 4462456363 4046576240 1336543613 OP31:tMDAR'FtO31At SET ADDRESS FOR ".L."
       1515151515 1515151515 5760232141 0611416255 4411456664 5530110063 6457624540 4451624543 rrrrrrrrrrOP31A:tARMDtEVTM8t STORE DIREC
       6457624041 4444624563 6315151515 1141627057 1446111100 6345644062 4563655464 4064716045 TOR ADDRESSrrrrtARXO'Ftt SET RESULT TYPE
       4057436441 5415151515 1141625544 1145666455 2015151515 1141625544 1145666455 2211004156  OCTALrrrrtARMDtEVTM0rrrrtARMDtEVTM2t AN
       4440565740 5760456241 5644402140 4357566645 6263515756 1515151515 1155444162 1145666455 D NO OPERAND 1 CONVERSIONrrrrrtMDARtEVTM
       2311005760 4562415644 4021405156 6445474562 4012151515 1155447057 1446112115 1152605463 3t OPERAND 1 INTEGER ?rrrtMDXO'Ft1rtJPLS
       1136102215 1141624162 1470114566 6455201100 6345644062 4563655464 4051566445 4745624051 t.+2rtARAR'XtEVTM0t SET RESULT INTEGER I
       4640714563 1515151515 1155444162 1451145011 4566576022 1100634564 4043575666 4562635157 F YESrrrrrtMDAR'I'HtEVOP2t SET CONVERSIO
       5640465762 4063454357 5644151515 1155444162 1441114327 1100404040 5760456241 5644404662 N FOR SECONDrrrtMDAR'AtC7t    OPERAND FR
       5755406441 4254451515 1155444145 1454151515 1155444162 1157602321 6415151515 1141625162 OM TABLErrtMDAE'LrrrtMDARtOP31TrrrrtARIR
       1446151515 1141625544 1145666455 2315151515 1152655560 1145662126 1100475740 6062574345 'FrrrtARMDtEVTM3rrrrtJUMPtEV16t GO PROCE
       6363151515 1515151515 1515151515 5760232206 1155444162 1446115723 2241110063 4564404144 SSrrrrrrrrrrrrrOP32:tMDAR'FtO32At SET AD
       4462456363 4046576240 1336623613 4057604562 4164576215 1152655560 1157602321 4115151515 DRESS FOR ".R." OPERATORrtJUMPtOP31Arrrr
       1515151515 5760232164 0611203240 2032402223 3240203240 2032402225 3240232032 4020151515 rrrrrOP31T:t0; 0; 23; 0; 0; 25; 30; 0rrr
       1515151515 1515151515 0040365436 4057604562 4164576240 4451624543 6457624054 5163641515 rrrrrrrrrr  .L. OPERATOR DIRECTOR LISTrr
       1515151515 5723214106 1154416211 5760214043 4162406344 6440201515 1143624043 4162546336 rrrrrO31A:tLARtOP1 CAR SDT 0rrtCR CARLS.
       5111576022 4044606214 4556441515 1515151515 1515151515 0040366236 4057604562 4164576240 ItOP2 DPR'ENDrrrrrrrrrrrr  .R. OPERATOR 
       4451624543 6457624054 5163641515 1515151515 5723224106 1154416211 5760214043 4162406344 DIRECTOR LISTrrrrrrrO32A:tLARtOP1 CAR SD
       6440201515 1143624043 4162626336 5111576022 4044606214 4556441515 1515151515 1515151515 T 0rrtCR CARRS.ItOP2 DPR'ENDrrrrrrrrrrrr
       7777700000 0010435404 0010435404 0010435404 0010435404 0010435404 0010435404 0010435404 bbX   +CL& +CL& +CL& +CL& +CL& +CL& +CL&
       0010435404 0010435404 0010435404                                                         +CL& +CL& +CL&
! 615: 0005300016 4664562026 1361200332 3414400000 0040364236 4057604562 4164576240 4451624543  *8 (FTN06"Q0!;,'     .B. OPERATOR DIREC
       6457624054 5163641515 1515151515 5723234106 1162434043 5544416236 4211576022 4043416215 TOR LISTrrrrrrrO33A:tRC CMDAR.BtOP2 CARr
       1157606211 6344644020 1445564415 1515151515 0040365336 4057604562 4164576240 4451624543 tOPRtSDT 0'ENDrrrrrr  .K. OPERATOR DIREC
       6457624054 5163641515 1515151515 5723244106 1162434043 5544416236 5311576022 4043416215 TOR LISTrrrrrrrO34A:tRC CMDAR.KtOP2 CARr
       1157606211 6344644020 1445564415 1515151515 0040365036 4057604562 4164576240 4451624543 tOPRtSDT 0'ENDrrrrrr  .H. OPERATOR DIREC
       6457624054 5163641515 1515151515 5723254106 1162434043 5544416236 5011576022 4043416215 TOR LISTrrrrrrrO35A:tRC CMDAR.HtOP2 CARr
       1157606211 6344644020 1445564415 1515151515 1515151515 1515151515 0040636045 4351415440 tOPRtSDT 0'ENDrrrrrrrrrrrrrrrr  SPECIAL 
       1333134057 6045624164 5762406062 4560625743 4563635762 1515151515 1515151515 5760267006 "=" OPERATOR PREPROCESSORrrrrrrrrrrOP6X:
       1155444162 1446112211 0063456440 6360454351 4154404654 4147406457 4052656364 4047456415 tMDAR'Ft2t SET SPECIAL FLAG TO JUST GETr
       1141625544 1163645764 4611004040 4064626545 4041624066 4154654515 1515151515 0040334057 tARMDtSTOTFt    TRUE AR VALUErrrrrr  = O
       6045624164 5762406062 4535606257 4345636357 6215151515 1515151515 5760232606 1155444162 PERATOR PRE-PROCESSORrrrrrrrrrOP36:tMDAR
       1446115723 2664110063 4564401333 1340576045 6241645762 4064414254 4540414444 6245636315 'FtO36Tt SET "=" OPERATOR TABLE ADDRESSr
       1141625544 1145666455 3015151515 1155444162 1145666455 2311006345 6440624563 6554644063 tARMDtEVTM8rrrrtMDARtEVTM3t SET RESULT S
       4155454044 4164414064 7160454041 6315151515 1141625544 1145666455 2011004040 4057604562 AME DATA TYPE ASrrrrtARMDtEVTM0t    OPER
       4156444021 1515151515 1155444162 1450114566 6455241100 6345644057 6045624156 4440224043 AND 1rrrrrtMDAR'HtEVTM4t SET OPERAND 2 C
       5756664562 6351575640 4357444515                                                        ONVERSION CODEr
end of file

there were 367 data blocks with 453,295 bytes, and 0 tapemarks
1 block with errors was marked with a ! before the length
no blocks had warnings
