@CAT,P 1013-005-005.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1013-005-005,,,130012053241,000 )@@G@@**PF**@@@#E6@@@@@@@@@@@[@L%@@@]FE /^@@@@J@@D/@@@]F^AA=@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@+@@@@@Y@[@@@@AC )@@G@@@@@@@X@@@@@@@@@@@@@@$@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@,@@UAD )@@G@@@@@@[]@@E@@(@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@/@@@@@@@[M@@@@@ @@;@@@@@T@@4AE )@@G@@@@K@@@@@I@@@@@@@@@@@L@@@@@@@[#@@@@@@@@@@@@@@@@@@@@@@@=@@@@@@@@@@@@@@@@@%AF )@@G@@@@@@@@@@S@@@@@@@@@@@@@@@@@@@@@@@@@[T@@@@[)@@@@@@@[[@@@@@@@@@@@@@@@@@@@[ AG )@@G@@@@V@@@@@@@@@@@@@@C@@@@@@@@@@@5@@&@@@@@@@@@@@@@@@@@@@@@@@<@@@@@@@@@@@@@[PAH )@@G@@@@@@@@@@@@@@@@@@@@@@Q@[S@@@@@@@@@@@@@@@@[X@[G@@@@@@@@@@[I@@@@@@@@@@@@@@@AI )@@G@@@@@@@O@@7@@@@@@@@@@@@@@@@[R@@F@@@@@@@@@@@@@@@@@J@@@@[E@@@@[<@@P@@\@@@@[OAJ )@@G@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@3@@@@@@@@@@[B@@@@@@@@@@@-@@[@@^@@?@@@@[-@[FAK )@@G@@@@@@@@@@@@[H@@6@[+@@@@@@@@.@@@@@R@@@@@@@@#@@@@@@@@1@@@@@*@@A@@@@@_@@@@[VAL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"@@@@@@@@@@@@@@@@[Q@@)@@@@@@@@@@@@@@D@@@@@@AM )@@G@@@@@@[Y@@0@@G@[K@@@@@N@@@@@@@@@@@:@@@@@@@@9@@@@[^@@@@@@@@@@@@@@@@@M@@E@[*P]?CBDAX )@@G@@ADRMAP @@@@@@@@[@@@APL @ @[@]]@@@]Q@@@@\YP#>CBDAPSNAP AY )@@G@@@@@@@W@@[@@@APL @ @[@]]@@@@P@@@@14P^ACBDASINOU @@@@@@@@[@@@AZ )@@G@@APL @ @[@]]@@@#1@@@@2DP^ICBDBEATNG @@@@@@@@[@@@APL BA )@@G@@@ @[@]]@@@[_@@@@5'P^$CBDBITMAP @@@@@@@@[@@@ @ @[@]]@@@@0BB )@@G@@@@@@79P ^CBDBUFMAN @@@@@@@@[@@@APL @ @[@]]@@@@"@@@@8(P ECBDBC )@@G@@CLEAR @@@@@@@@[@@@APL @ @[@]]@@@@0@@@@9$P SCBDCMPOUN BD )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@]6@@@@'RP 4CBDCODSTO @@@@@@@@[@@@BE )@@G@@APL @ @[@]]@@@@=@@@@.H@@DCCDCOMPIL @@@@@Z@@[@@@APL BF )@@G@@@ @[@]]@@@##@@@@.1@@PCCDCOMMO @@@@@@@@[@@@APL @ @[@]]@@@@_BG )@@G@@@@@[@4@@'CCDCONTIN @@@@@@@@[@@@APL @ @[@]]@@@[]@@@[[3@[TCCDBH )@@G@@COPIER @@@@@@@@[@@@APL @ @[@]]@@@[&@@@[]5@[>CCDDASINCO$ BI )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@@R@@@[^V@[,CCDDASINCOH$ @@@@@@@@[@@@BJ )@@G@@APL @ @[@]]@@@@Q@@@[^2@[1CCDDATAN$ @@@@@@@@[@@@APL BK )@@G@@@ @[@]]@@@[^@@@[ C@[3CCDDATANH$ @@@@[L@@[@@@APL @ @[@]]@@@@IBL )@@G@@@@@[AG@[6CCDDCOSH$ @@@@@@@@[@@@APL @ @[@]]@@@@D@@@[AU@[8CCDBM )@@G@@DEXP$ @@@@@@@@[@@@APL @ @[@]]@@@@<@@@[A<@['CCDDGAMMA BN )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@[M@@@[BA@[.CCDDLOG$ @@@@@@@@[@@@BO )@@G@@APL @ @[@]]@@@@W@@@[CS@][CCDDSINCO$ @@@@@@@@[@@@APL BP )@@G@@@ @[@]]@@@@%@@@[C4@]JCCDDSINH$ @@@@@@@@[@@@APL @ @[@]]@@@@DBQ )@@G@@@@@[DY@]LCCDDSQRT$ @@@@@2@@[@@@APL @ @[@]]@@@@T@@@[D$@]NCCDBR )@@G@@DTAN$ @@@@@@@@[@@@APL @ @[@]]@@@@C@@@[E@@]QCCDDTANH$ BS )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@@G@@@[EC@]RCCDEDLEAP @@@@@@@@[@@@BT )@@G@@APL @ @[@]]@@@[A@@@[EO@]&CCDERASER @@@@@@@@[@@@APL BU )@@G@@@ @[@]]@@@[8@@@[FU@#ECCDERRMSG @@@@@@@@[@@@APL @ @[@]]@@@[#BV )@@G@@@@@[HM@#:CCDFDINOU @@@@@@@@[@@@APL @ @[@]]@@@#>@@@[IP@ [CCDBW )@@G@@FHANAL @@@@@8@@[@@@APL @ @[@]]@@@@'@@@[L'@ (CCDFILASG BX )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@[F@@@[M4@ 8CCDFILRWR @@@@@@@@[@@@BY )@@G@@APL @ @[@]]@@@^(@@@[N_@ADCCDFILSUP @@@@@@@@[@@@APL BZ )@@G@@@ @[@]]@@@^(@@@[S*@A:CCDFNHPRT @@@@@@@@[@@@APL @ @[@]]@@@@(CA )@@G@@@@@[XL@BGCCDFNHXQT @@@@@'@@[@@@APL @ @[@]]@@@@(@@@[X'@BOCCDCB )@@G@@FRMTNG @@@@@@@@[@@@APL @ @[@]]@@@]L@@@[Y<@BYCCDFUNDEF CC )@@G@@@@@@[D@@[@@@APL @ @[@]]@@@^U@@@[)4@B1CCDFUNLBL @@@@[W@@[@@@CD )@@G@@APL @ @[@]]@@@@-@@@[>I@CJCCDFUNNYM @@@@@@@@[@@@APL CE )@@G@@@ @[@]]@@@[<@@@[>\@C!CCDFUNTBL @@@@@@@@[@@@APL @ @[@]]@@@]>CF )@@G@@@@@[$M@C9CCDIBEAMS @@@@@@@@[@@@APL @ @[@]]@@@AN@@@[(7@DSCCDCG )@@G@@INTERP @@@@@@@@[@@@APL @ @[@]]@@@ R@@@[0E@EPCCDLDPEND CH )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@[A@@@[5-@F^CCDLEXANL @@@@@@@@[@@@CI )@@G@@APL @ @[@]]@@@]4@@@[6$@FKCCDLEXCAN @@@@@@@@[@@@APL CJ )@@G@@@ @[@]]@@@[3@@@[9V@F&CCDL$IJSIM @@@@@@@@[@@@APL @ @[@]]@@@@TCK )@@G@@@@@[;I@F\CCDLINEAR @@@@@@@@[@@@APL @ @[@]]@@@]Y@@@[;$@F9CCDCL )@@G@@LINEKO @@@@@@@@[@@@APL @ @[@]]@@@[B@@@[" @GMCCDLODSAV CM )@@G@@@@@@[Z@@[@@@APL @ @[@]]@@@F#@@@[_G@G'CCDMICROP @@@@@@@@[@@@CN )@@G@@APL @ @[@]]@@@@"@@@]EJ@H8CCDMIXED @@@@[A@@[@@@APL CO )@@G@@@ @[@]]@@@^'@@@]FH@ICCCDMIXED2 @@@@@@@@[@@@APL @ @[@]]@@@]=CP )@@G@@@@@]KB@I&CCDMTHLIB @@@@[C@@[@@@APL @ @[@]]@@@["@@@]M:@I'CCDCQ )@@G@@NEXPB$ @@@@@@@@[@@@APL @ @[@]]@@@@-@@@]O(@I"CCDPRNTNG CR )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@[+@@@]PE@J^CCDRANDAC @@@@@@@@[@@@CS )@@G@@APL @ @[@]]@@@#.@@@]Q?@JNCCDRESERV @@@@@@@@[@@@APL CT )@@G@@@ @[@]]@@@[6@@@]U(@J:CCDSETUP @@@@@@@@[@@@APL @ @[@]]@@@#/CU )@@G@@@@@]WZ@K^CCDSORTOPS @@@@[J@@[@@@APL @ @[@]]@@@@7@@@])V@K5CCDCV )@@G@@STACK @@@@@@@@[@@@APL @ @[@]]@@@@\@@@]-M@K/CCDSTOPTR CW )@@G@@@@@@@@@@[@@@APL @ @[@]]@@@@/@@@]+[@L]CCDSTORAG @@@@@@@@[@@@CX )@@G@@APL @ @[@]]@@@#*@@@]+.@LGCCDSUBSCR @@@@[N@@[@@@APL CY )@@G@@@ @[@]]@@@@"@@@]&>@L)CCDTEXSTO @@@@@@@@[@@@APL @ @[@]]@@@[2CZ )@@G@@@@@]$<@O-CCDXQTSUP @@@@@@@@[@@@APL @ @[@]]@@@^[@@@](P@O4CCDDA )@@G@@CULLIT @@@@@@@@[@@@APL @ @[@][@@@@]@@@]!Q@SICCDADVTESTS DB )@@G@@@@@@@@@@[@@@APL @ @[@]@@@@@^@@@]!S@SKCCDASHCAN @@@@@@@@[@@@DC )@@G@@APL @ @[@][@@@F]@@@]!W@SSCCDBUSTER @@@@@@@@[@@@APL DD )@@G@@@ @[@]@@@@@,@@@]8Y@STCCDEXAMPLES @@@@@@@@[@@@APL @ @[@]@@@@@[DE )@@G@@@@@]9G@SUCCDMIXTESTS @@@@@@@@[@@@APL @ @[@][@@@@S@@@]9H@SVCCDDF )@@G@@SAMPLE @@@@@@@@[@@@APL @ @[@]@@@@@+@@@]9>@SWCCDDOMINO DG )@@G@@@@@@@@@@[@@@APL @ @ @ ]@@@[(@@@]'B[[@CCDTABLES @@@@@@@@[@@@DH )@@G@@APL @ @#@^]@@@]M@@@];0]H2CCDPRCPKG @@@@@@@@[@@@APL DI )@@G@@@ @]@#@@@@@C@@@]"]]I]CCDROOTSEG-RMAP@@@@@@@@[@@@APL @ @@@[A@@@@JDJ )@@G@@@@@]"EFTHCCDXQTSEG-RMAP @@@@@@@@[@@@APL @ @@@[A@@@@A@@@]"TFUICCDDK )@@G@@SYSSEG-RMAP @@@@@@@@[@@@APL @ @@@[A@@@@^@@@]"Z^^BCCDNOTREP DL )@@G@@@@@@@@@@[@@@APL @@@^@ A@@@@C@@@]"!CGDSYMBOL @@@@@@@@[@@@APL @ @]@#]@@@[EDO )@@G@@@@@#B)H&HCGDSYSMAP-ABS @@@@@@@@[@@@APL @@@]@#A@@@@B@@@#C%C9;CIDDP )@@G@@XQTMAP-ABS @@@@@@@@[@@@APL @ @@@[A@@@@B@@@#C1D[RCIDDBMAP-ABS DQ )@@G@@@@@@@@@@[@@@APL @ @[@]A@@@@B@@@#C8HV9CIDSITEPAR @@@@@@@@[@@@DR )@@G@@APL @ @@@[]@@@[7@@@#C_F'ZETDC8)@@@)@@@@I/=K[$-C@@EGGT/@@@EG@@EGEDS )@@G@@G/@__J[@@EGG/K@[&5D@@EGG/C@[$>*@@@@G/K@[$!/,0[)2@@@EGQ@@@EF_@@@EG#@#GEGXDT )@@G@@N@0[$?/K@[,1@#HEGXR@)EF_C*]EQVH@@EGG*@@@@G1@@@@G/K@[$;/,0[)2@@@EGR@@@EF_DU )@@G@@@@@EG#@#LEGXN@0[$'/K@[,1@#MEGXC/@@@[H@@EGD]@@EGDR@0EF_C?C@@EG+/)@[:-E@@EG=EN )@@G@@C/)@@^R@KEG>C@1EFQ;)/@@@;G)@@D;@0UG<[@1EFQC@@EGEH@@ERM*@@@@G/K@[:!E@@EG=EO )@@G@@C/)@@@R@)EG>C@2EFQ;)/@@@;G)@@D;@0UG<[@2EFQG_)@@[8L@[:CC@@EGL;K@@@][@@EG EP )@@G@@/,0[9 @@@EFR@@@EG @^WEGXC/@@@[[@@EG@/K@[=!N@0[:;/K@[,1@^)EGX @@EGIC@@EGAEQ )@@G@@C@)@@GG/)__21@@@@IC/@@@H[@@EGAC/)@@=H@)EF9C.@@@[C[)EG^H[)EF/*@@@@MC9@@@@ER )@@G@@G/@__.C_)@@][@@@[^[@)EG+[[@EG>[#)EGDC@@EGDG@@EF;;O@@@=W@@EF'R@0@@GC/@@@[ES )@@G@@H@@EGD;O@@@=W@@EF'E@K@@HT@KEF9E@)EG+C[#ER!;-H@@@;DI@@@[[@EGEC@@EG>/)@[?&ET )@@G@@/,0[9I@@@EGE@^(EGX[@@EGEC@@EGEH@@ERI(@@@@G/K@[!]C/@@@[G@@EGI[@@EGIG/@@@ EU )@@G@@;O@@@=W/@@@AC/)@@[H@)EGI;O)@@=W/)@@AR@K@@GE@0@@JT/0@@A[@0EG/K@[,1@ IEGXFE )@@G@@C/@@@[[@@EG@/K@[+DR@KEF_C0[EQVG/@__"[0[EQV/K@[=!N@0[,0/K@[,1@ MEGXR]0EGYFF )@@G@@9!)EG&9,@EG*9\)EG%R@KEG?R@)EG!R@0EG,N[@EG\*4@UGV/K@UGV/K@[[FAA0EGY[^@EGVFG )@@G@@9()EG&9%@EG*9:)EG%A@KEG?A@)EG!A@0EG,^[@EG\/KH@@@C8@@@]/\K[,/C@VK@@[@KEG)FH )@@G@@/K@[+#C8@@@#/\K[,/C@VK@@[@KEG)C8FK@[[@@EG-/K@[=OC/@__"G@FK@[[@@EHYC@@ERSFI )@@G@@H@@EHN(@@@@G/K@[\%/,0@&J@@[EG1@[ZEHU'^@[AC/,0@&J@@[EH]@[+EHUR@KEHOQ@KEHXFJ )@@G@@N[@EHYC8[)@@'^K[A^8L@[\<'^@[ACN@0[\(/K@[0S@[(EHUC@@ERG9(H0)^@)@F@[@[^@)^@1A*1 0)^@)^@)FY )@@G@@C1JEK)DDIC- F@'B*1^[OD8)CTZD([F[ZETOCD#DS)C-J^@)@A@[@[^@)^@1A*2 0)^@)^@)FZ )@@G@@^@)^@)^@)^[+G($HD,@H@[@[^@)^@1A*3 0)^@)^@)^@)^@)^@)^[OCD]D- F9NE-[CTFFTDGA )@@G@@D1^C(SF*,ET#D9KC(ZD1PD(]BK.A@;@J@[@[^@)^@1A*4 0)^@)^@)^@)^@)^@)^[OCD]D- GB )@@G@@F9NE-[CTFFTDD1^C(SF*,ETPCLZE-[CLGC(ZE[OEK'B(IDDGBS)^@)@A@[@[^@)^@1A*5 0)GC )@@G@@^@)^@)^@)^@)^@)^[ D1^^@)@G@[@[^@)^@1A*6 0)^@)^@)C(IC);^@)^@* K)^[JC0)DDIGD )@@G@@DDOF9NE-[CTFF9OCD]D- ^@)^@% C)@]@[@[^@)^@1A*7 0)@H@[@[^@)^@1A*8 0)^@)^@)GE )@@G@@^@)^@)^@)^@* K)^@%C1DD1^F9DD1ZETTD(]D9GF9OCD]D- K)^@) K(^@)@]@[@[^@)^@1GF )@@G@@A*9 0)@Q@[@[^@)^@1A00 0)^@)^@)E[MD9#C(^E(MC*)C1DD1^F9DD1ZETPCLZE-[CLGC**GG )@@G@@E1[EK)C1JE(IC)'CLJD9GC([D0;EL DTJEL^ -NCTJE[ -DD1^C(SBLDD1OC(BC(MBS)^@)GH )@@G@@@N@[@[^@)^@1A01 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[DC)'E-ZDD^F9NE-MDDIC8;^[QGI )@@G@@CDM^[OCD]D- F9GD9#CDODDJD0'E-ZD-DETOF9KE-M^@(BS)@]@[@[^@)^@1A02 0)@^@[@[GJ )@@G@@^@)^@1A03 0)^@)^@)E1[EK)@F@[@[^@)^@1A04 0)^@)^@)^@)^@)^@)^[NE(]F9OCD]D- GK )@@G@@^@'^[OF9OCD]D- F9KE-M^@;@B@[@[^@)^@1A05 0)^@)^@)^@)^@)^@)^[#E(MELZE[OEK)GL )@@G@@(#@@@[BLOF9GDDNE-ZE[OEK;@G@[@[^@)^@1A06 0)^@)^@)^@)^@)^@)^[BEL CDOF9OD[[GM )@@G@@D1ZD-DETOF9DC)'^[]D9JD- CDIBS)@]@[@[^@)^@1A07 0)@ @[@[^@)^@1A08 0)^@)^@)GN )@@G@@GL>G9(H0)^@)@B@[@[^@)^@1A09 0)^@)^@)C1JE(IC)'B(ACDGET BS)^@)@I@[@[^@)^@1GO )@@G@@A80 0)^@)^@)ETPCLZE-[CLGC*'B(OCD]D- F9NE-[CTFFTNCTJE[ F*,ETPCLZE-[CLGC(ZGP )@@G@@E[OEK;@H@[@[^@)^@1A81 0)^@)^@)CTPELMF9KE-MBK.ETPCLZE-[CLGC(Y 1CCDND[ZE-[GQ )@@G@@CLGC(VDDIC- F[XBS)@E@[@[^@)^@1A82 0)^@)^@)C9MC([E-ZE-CCDIF9GDDNE-ZDD^BK.GR )@@G@@E-ME( BS)^@)@D@[@[^@)^@1A83 0)^@)^@)DDA^[#E(MELZE[OEK)B)"^[IDDG^[OD[ D0)GS )@@G@@@A@[@[^@)^@1A84 0)^@)^@)^@)^@)^@)^[+G($HD,@N@[@[^@)^@1A85 0)^@)^@)^@)^@)GT )@@G@@^@)^[RD[DD- ^@*DD^^@"^[#E(MELZE[OELY 1DC-ZETOELDD1B^@(^[[D1^^[BEL CDOF9OGU )@@G@@D[[D1ZD-DETOF9DC))@K@[@[^@)^@1A86 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[^D8)DDAGV )@@G@@^@*^[DC)"CTPELMF9KE-MF0,DD^F9NE-MDDIC8(^[JEK)^@)@Q@[@[^@)^@1A87 0)^@)^@)GW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@* @)DD^B(#E(MELZE[OELY 1DC-ZETOELDD1B C)CDIC)) @)GX )@@G@@EL DTJEL^B1#E(MELZE[OELY 1MC(#F9IE(HCK( C)@K@[@[^@)^@1A88 0)^@)^@)^@)^@)GY )@@G@@^@)^@)^@)^@)^@)^[OD[ D0)CTPELMF9KE-MBK.CTPELMF9KE-MF0,D1 F[OF9ID9^C*)^@)GZ )@@G@@@J@[@[^@)^@1A89 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ D-NC*)C9MC([E-ZE-CCDIF9GHA )@@G@@DDNE-ZDD^BK.C1[D-NC*;^@)@E@[@[^@)^@1B@0 0)^@)^@)^@)^@)^@)^[DC0)CTPELMF9KHB )@@G@@E-M^@/B0)D1DD))^@)@Q@[@[^@)^@1B@1 0)^@)^@)^@)^@)^@)^[OD[ D0)DDA^@*CTPELMHC )@@G@@F9KE-MF0,DD^F9NE-MDDIC8.DD^ D[D1^ [#E(MELZE[OELY 1MC(#F9IE(HCK.EL DTJEL^HD )@@G@@ C)E-CC(I^@)@ @[@[^@)^@1B@2 0)^@)^@)^@)^@)^@)^@)(#@@@[^@)^@)^@)^[+G($HD,HE )@@G@@@E@[@[^@)^@1B@3 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[AD9PD1^BK.E-ME( BS)@H@[@[HF )@@G@@^@)^@1B@4 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[OCD]D- F9GD9#CDODDJD0'B(#E(MELZHG )@@G@@E[OEK;@C@[@[^@)^@1B@5 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ D1^BS)@A@[@[^@)^@1HH )@@G@@B@6 0)^@)^@)^@)^@)^@)^[ D1^BS)@H@[@[^@)^@1B@7 0)^@)^@)C(IC);^@)^@* K)C(IHI )@@G@@C))D9A^[ADDIC-ZDDIF9NFDHCLJD-ZE-[CLGC*) K(@]@[@[^@)^@1B@8 0)@]@[@[^@)^@1HJ )@@G@@B@9 0)@F@[@[^@)^@1BC0 0)^@)^@)^@)^@)^@)^@* K)C1DD1^F9QCDMF9DD1ZE-[CLGC*)HK )@@G@@ K(^@)@]@[@[^@)^@1BC1 0)@N@[@[^@)^@1BC2 0)^@)^@)E[MD9#C(^E(MC*)C1DD1^F9(HL )@@G@@H1ZIT9H(+F9OCD]D- [QCDM^[AD9PD1^BL]D9JD- CDIBTMC(FD9MC)'HDIE- C9 EK;^@)HM )@@G@@@J@[@[^@)^@1BC3 0)^@)^@)^@)^@)^@)^[DC)'E-ZDD^F9NE-MDDIC8;E1[EK)D-JCT[E-DHN )@@G@@D9IBLOF9GDDNE-ZE[OEK(BS)@]@[@[^@)^@1BC4 0)@^@[@[^@)^@1BC5 0)^@)^@)E1[EK)HO )@@G@@@I@[@[^@)^@1BC6 0)^@)^@)^@)^@)^@)^[OCD]D- F9DD1^C(S -KEL E1ZET#D9KC*?ITG9(H0)^@)@B@[@[^@)^@1BC8 0)HQ )@@G@@^@)^@)C1JE(IC)'B(ACDGET BS)^@)@D@[@[^@)^@1BC9 0)^@)^@)ITF93GT\I[>IB )@@G@@BL(H14G($G(2 C;^@)@]@[@[^@)^@2AC1 0)@F@[@[^@)^@2AC2 0)^@)^@)^@)^@)^@)^@)IC )@@G@@JS)^@/^[(G))H-(IT4^@"^@'BK.^[(G))J*)@]@[@[^@)^@2AC3 0)@^@[@[^@)^@2AC4 0)ID )@@G@@^@)^@)I1-IK)@D@[@[^@)^@2AC5 0)^@)^@)^@)^@)^@)^[H(ZH1\G->^@'^[3G(!F93I--GT:IF )@@G@@F9,H9=G*)BS)@F@[@[^@)^@2AC7 0)^@)^@)^@)^@)^@)^[=I(0H-ZG(,I-2JC)BK)GL\H9?IG )@@G@@G(-H0)BS)^@)@G@[@[^@)^@2AC8 0)^@)^@)^@)^@)^@)^[0I-2F94H9ZETOF9>H14IL9BK)IH )@@G@@I-ZH-(IT4F90I-2^@;@ @[@[^@)^@2AC9 0)^@)^@)GL>G9(H0)^@)@H@[@[^@)^@2AK0 0)II )@@G@@^@)^@)I->H(0F93G(!F9,H9=G*'B(3G(!F93I--GT:FT3G(!F93I--GT:F94H90F*;@L@[@[IJ )@@G@@^@)^@2AK1 0)^@)^@)HD,IT>IL4F9(H1ZI--GL?G**H1-H(>F93GT\I[> -2G(H(ZH1\G-> 1(G-ZG0?G-5I[?F9>H14IL9 -0I-2F94H9ZETOF9>H14IL9 C;^@)@D@[@[IM )@@G@@^@)^@2AK3 0)^@)^@)HD&^[,H94^[=I(0H-ZG(,I-2JC)I-*G(,^@)@A@[@[^@)^@2AK4 0)IN )@@G@@^@)^@)^@)^@)^@)^[+G($HD,@D@[@[^@)^@2AK5 0)^@)^@)^@)^@)^@)^[H14IL9BS)@^@[@[^@)^@2AK8 0)^@)^@)G(,G))@A@[@[^@)^@2AK9 0)^@)^@)IR )@@G@@G(?IT>^@)^[+G($HD,@Q@[@[^@)^@2AS0 0)^@)^@)^@)^@)^@)^[7IL(I->H-, [=HD-G9,IS )@@G@@F9&HD?G*?^8)HD=BK$ -4G(!I[ZIT>H(ZH1\G-> 1(G-ZG0?^8)GD?IL>GD=JC)G->GT?GD2IT )@@G@@G(=^8(BS)^@)@D@[@[^@)^@2AS1 0)^@)^@)^@)^@)^@)^[H1=BS)@I@[@[^@)^@2AS3 0)^@)^@)IT>H(ZIV )@@G@@IT4GDH(ZIT4GDH(ZIT4GDH(ZIT4GDF93GT\I[>F9(H14G($G(2 C;^@)@]@[@[^@)^@2A)0 0)@I@[@[^@)^@2A)1 0)^@)^@)JB )@@G@@^@)^@)^@)^@)^[;^@/HD=^[?HD3I))B0)BK'B*)B-(G))H-(IT4B0) ))HD=^@)J*)@]@[@[JC )@@G@@^@)^@2A)2 0)@^@[@[^@)^@2A)3 0)^@)^@)I1-IK)@E@[@[^@)^@2A)4 0)^@)^@)^@)^@)JD )@@G@@^@)^[H(ZH1\G->BK)IT>H(ZIT4GD^@;^@)@F@[@[^@)^@2A)6 0)^@)^@)JF )@@G@@^@)^@)^@)^[=I(0H-ZG(,I-2JC)BK)GL\H9?G(-H0)BS)^@)@G@[@[^@)^@2A)7 0)^@)^@)JG )@@G@@^@)^@)^@)^[0I-2F94H9ZETOF9>H14IL9^@'^[4F9?HD3I-ZI[4IK;@ @[@[^@)^@2A)8 0)JH )@@G@@^@)^@)GL>G9(H0)^@)@^@[@[^@)^@2A)9 0)^@)^@)I->H(0(D@@@[F93G(!F9,H9=G*'B(3JI )@@G@@G(!F93I--GT:FT3G(!F93I--GT:F94H90F*;@L@[@[^@)^@2A*0 0)^@)^@)HD,IT>IL4F9(JJ )@@G@@H1ZI--GL?G**H1-H(>F93GT\I[> -2G(H(ZH1\G-> 1(G-ZG0?G-5I[?F9>JL )@@G@@H14IL9 -0I-2F94H9ZETOF9>H14IL9 C;^@)@D@[@[^@)^@2A*2 0)^@)^@)HD&^[,H94^[=JM )@@G@@I(0H-ZG(,I-2JC)I-*G(,^@)@A@[@[^@)^@2A*3 0)^@)^@)^@)^@)^@)^[+G($HD,@D@[@[JN )@@G@@^@)^@2A*4 0)^@)^@)^@)^@)^@)^[H14IL9BS)@A@[@[^@)^@2A*7 0)JQ )@@G@@^@)^@)^@)^@)^@)^[>H1=^@)@A@[@[^@)^@2A*8 0)^@)^@)G(?IT>^@)^[+G($HD,@Q@[@[JR )@@G@@^@)^@2A*9 0)^@)^@)^@)^@)^@)^[7IL(I->H-, [=HD-G9,F9&HD?G*?^8)HD=BK$ -4G(!JS )@@G@@I[ZIT>H(ZH1\G-> 1(G-ZG0?^8)GD?IL>GD=JC)G->GT?GD2G(=^8(BS)^@)@D@[@[^@)^@2JT )@@G@@A00 0)^@)^@)^@)^@)^@)^[H1=BS)@C@[@[^@)^@2A02 0)^@)^@)IT>H(ZIT4GDH(ZIT4GDH(ZIT4GDF9,GD!G(ZIT2F92G(-H);@]@[@[^@)^@2A09 0)@B@[@[^@)^@2A80 0)^@)^@)KA )@@G@@^@)^@)^@)^[;^@/I-9I[>^[,(^@@@[GD!G*"^@'BK.^[2G(-H))J*E@]@[@[^@)^@2A81 0)KB )@@G@@@ @[@[^@)^@2A82 0)^@)^@)GL>G9(H0)^@)@C@[@[^@)^@2A83 0)^@)^@)IT>H(ZIT4GDH(ZIT4GDH(ZIT4GDBS)^@)@H@[@[^@)^@2A85 0)^@)^@)IT>H(ZKE )@@G@@IT4GDH(ZIT4GDH(ZIT4GDH(ZIT4GDBK.AC;^@)@F@[@[KG )@@G@@^@)^@2A87 0)^@)^@)G(,G);^[;^@)H9&^[4JD0G(ZH1-H(>F93ILZIL>GD?^[.^@)@]@[@[KH )@@G@@^@)^@2A88 0)@G@[@[^@)^@2A89 0)^@)^@)^@)^@)^@)^[;^@) LOFDKC(ZD1[D( F9NELZKI )@@G@@DDIE- C9 EK)J*)^@)@]@[@[^@)^@2B@0 0)@F@[@[^@)^@2B@1 0)^@)^@)I[2H9F9,GD!G(ZIT2F9(H14G($G(2BS)@]@[@[^@)^@2B@2 0)@G@[@[^@)^@2B@3 0)KK )@@G@@^@)^@)^@)^@)^@)^@)JS)B-4JD0G(ZH1-H(>B0)BK'B*)HD,I->G9>IK)J*)@]@[@[^@)^@2KL )@@G@@B@4 0)@ @[@[^@)^@2B@5 0)^@)^@)GL>G9(H0)^@)@C@[@[^@)^@2B@6 0)^@)^@)IT>H(ZKM )@@G@@IT4GDH(ZIT4GDH(ZIT4KN )@@G@@GDBS)^@)@I@[@[^@)^@2B@8 0)^@)^@)KO )@@G@@IT>H(ZIT4GDH(ZIT4GDH(ZIT4GDH(ZIT4GDBK.KQ )@@G@@AC;^@)@G@[@[^@)^@2BC0 0)^@)^@)G(,G);^@)JS)H9&^[4JD0G(ZH1-H(>F93ILZHD,I->KR )@@G@@G9>IK)J*)^@)@]@[@[^@)^@2BC1 0)@G@[@[^@)^@2BC2 0)^@)^@)^@)^@)^@)^@)^[;^@%KS )@@G@@E-TE[ F9ICDHC(ZETMF9]D9JD- CDI K)^[.@]@[@[^@)^@2BC3 0)@]@[@[^@)^@2BC4 0)KT )@@G@@(D@@@[^@)^@)I[2H9F9,GD!G(ZIT2F9+H9\H->GD,BS)@G@[@[^@)^@2KU )@@G@@BC5 0)^@)^@)^@)^@)^@)^@)JS)B-4JD0G*)H1-H(>^@"^@'BK.^[+H9\H->GD,^[.@]@[@[KV )@@G@@^@)^@2BC6 0)@ @[@[^@)^@2BC7 0)^@)^@)GL>G9(H0)^@)@C@[@[^@)^@2BC8 0)^@)^@)KW )@@G@@IT>H(ZIT4GDH(ZIT4GDKX )@@G@@H(ZIT4GDBS)^@)@I@[@[^@)^@3A@0 0)KY )@@G@@^@)^@)IT>H(ZIT4GDH(ZIT4GDGD,BS)KZ )@@G@@@H@[@[^@)^@3A@1 0)^@)^@)IT>H(ZIT4GDH(ZIT4GDBK.AC;^@)@G@[@[^@)^@3A@2 0)^@)^@)G(,G);^@)JS)H9&^[4JD0G(ZH1-H(>F93ILZLB )@@G@@GL\H9?G(-H0)J*)^@)@]@[@[^@)^@3A@3 0)@]@[@[^@)^@3A@4 0)@D@[@[^@)^@3A@5 0)LC )@@G@@^@)^@)^@)^@)^@)^@)JS) LQCDMF9^C(#F9NEK%^[.@]@[@[^@)^@3A@6 0)@D@[@[^@)^@3LD )@@G@@A@7 0)^@)^@)I[2H9GTZETMBS)^@)@]@[@[^@)^@3A@8 0)@J@[@[LE )@@G@@^@)^@3A@9 0)^@)^@)^@)^@)^@)^@)JS)B-6GD2^[=G(<^@"^@'BK.^@/HD=^[?HD3I))B0)LF )@@G@@BK)B))I-9I[>^@"^[.@]@[@[^@)^@3AC0 0)@^@[@[^@)^@3AC1 0)^@)^@)I1-IK)@E@[@[LG )@@G@@^@)^@3AC2 0)^@)^@)^@)^@)^@)^[4HD0G*'I-ZGL-IT(GTZI-9I[>BS)^@)@D@[@[^@)^@3LH )@@G@@AC3 0)^@)^@)^@)^@)^@)^[3HD'G*)BK)HD,I->G9>IK)BS)@E@[@[^@)^@3AC4 0)^@)^@)LI )@@G@@^@)^@)^@)^[6GD2F9H(ZH1\G->^@'^[3G(!F93I--GT:F9,H9=G*)BS)@ @[@[^@)^@3AC6 0)LK )@@G@@^@)^@)GL>G9(H0)^@)@I@[@[^@)^@3AC7 0)^@)^@)I->H(0F93G(!F9,H9=G*'B(3G(!F93LL )@@G@@I--GT:FS)IT>H(ZIT4GDLM )@@G@@BK.I->H(0F93G(!F9,H9=G*,I-ZI-9I[>BS)@F@[@[^@)^@3AC9 0)^@)^@)IT(JL>BK.I->LN )@@G@@H(0F93G(!F9,H9=G*,I-9I[>F93HD'G*;^@)@C@[@[^@)^@3AK0 0)^@)^@)IT>H(ZIT4GDH(0F93G(!F9,H9=G*'B(3G(!F93LP )@@G@@I--GT:FT3G(!F93I--GT:F94H90F*;@F@[@[^@)^@3AK2 0)^@)^@)I1-ILZGT\I(,I)'B(4LQ )@@G@@G(!I[ZIT>H(ZH1\G-> 1H0)^@)@A@[@[^@)^@3AK4 0)^@)^@)^@)^@)^@)^[+G($HD,@E@[@[LS )@@G@@^@)^@3AK5 0)^@)^@)^@)^@)^@)^[+GD3G*'B(4H90F90IL\GTZH->I0;^@)@I@[@[^@)^@3LT )@@G@@AK6 0)^@)^@)^@)^@)^@)^[\G1&IT>I)'B(+H-\GT:F93I--GT:FT+H-\GT:F93I--GT:F94LU )@@G@@H90F*;@H@[@[^@)^@3AK7 0)^@)^@)^@)^@)^@)^[0IL\GTZIT4GDH1=^@)@A@[@[^@)^@3LW )@@G@@AK9 0)^@)^@)G(?IT>^@)^[+G($HD,@B@[@[^@)^@3AS0 0)^@)^@)^@)^@)^@)^[+GD3G*'LX )@@G@@B*0BS)@K@[@[^@)^@3AS1 0)^@)^@)^@)^@)^@)^[\G1&IT>I)'B(2G(GTZIT4GDI):BK.IT(JL>BS)@A@[@[MA )@@G@@^@)^@3AS3 0)^@)^@)^@)^@)^@)^[>H1=BS)@E@[@[^@)^@3AS4 0)^@)^@)G1\IK)HD,G->MB )@@G@@J@)BK.AC)I-\^[(G-ZGT\I(,I))G-\@A@[@[^@)^@3AS5 0)^@)^@)^@)^@)^@)^[+G($HD,MC )@@G@@@C@[@[^@)^@3AS6 0)^@)^@)^@)^@)^@)^[\G1&IT>I):BK.AC;^@)@H@[@[^@)^@3AS7 0)MD )@@G@@^@)^@)^@)^@)^@)^[(G-ZIT4GDJ[X 16GD2F94JD0G*'B(4HD0G*;^@)@^@[@[ME )@@G@@^@)^@3AS8 0)^@)^@)^@)^@)(D@@@[^@)^[(G-ZIT4GDJ[X 16GD2F9+GD3G*'MF )@@G@@B(+GD3G*;^@)@I@[@[^@)^@3AS9 0)^@)^@)^@)^@)^@)^[(G-ZIT4GDJ[X 16MG )@@G@@GD2F9\G1&IT>I)'B(\G1&IT>I);^@)@G@[@[^@)^@3A)0 0)^@)^@)^@)^@)^@)^[(G-ZIT4MH )@@G@@GDJ[X 1BS)@^@[@[^@)^@3A)1 0)^@)^@)G(,G);@A@[@[MI )@@G@@^@)^@3A)2 0)^@)^@)HD=F9H(ZIT4GDH(ZIT4GDH(ZIT4GDH(ZIT4GDBK.IT(JL>BS)^@)ML )@@G@@@^@[@[^@)^@3A)5 0)^@)^@)G(,G);@]@[@[^@)^@3A)6 0)@G@[@[^@)^@3A)7 0)^@)^@)MM )@@G@@^@)^@)^@)^@)^@)JS) L#D9IE1[ELOFDKC(^C(#D-ZETMAC%^[.^@)@]@[@[^@)^@3A)8 0)MN )@@G@@@F@[@[^@)^@3A)9 0)^@)^@)I[2H9C->GT?F9NEK1BS)^@)MO )@@G@@@]@[@[^@)^@3A*0 0)@R@[@[^@)^@3A*1 0)^@)^@)^@)^@)JS/GT\H13I)?I1-IK?I-9I[>MP )@@G@@ -=G(<^[?^@"^@'BK.^@/GT\H13I)?I1-IK?I-9I[> -=G(<^[?B0)BS/GT\H13I)?I1-IK?MQ )@@G@@I-9I[> -=G(G9(H0)^@)MR )@@G@@@Q@[@[^@)^@3A*4 0)^@)^@)IT>H(ZIT4GDH(ZIT4GDBK.IT>H(ZIT4GDH(ZIT4GD S)^@)@K@[@[MT )@@G@@^@)^@3A*5 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[3G(!F93I--GT:FT3G(!F93I--GT:F94MU )@@G@@H90 *1F*,G->GT?F93HD'G*;@C@[@[^@)^@3A*6 0)^@)^@)IT>H(ZIT4GDC->GT?F9NELZAK;^@)@]@[@[MZ )@@G@@^@)^@3A02 0)@L@[@[^@)^@3A03 0)^@)^@)^@)^@)^@)^@)JS)B-GS)H)"^@'BK.^@/GT\H13I)?I1-IK?I-9I[>B0)J*)@]@[@[^@)^@3A04 0)@^@[@[NB )@@G@@^@)^@3A05 0)^@)^@)I1-IK)@H@[@[^@)^@3A06 0)^@)^@)^@)^@)^@)^[4G(!I[ZIT>H(ZNC )@@G@@H1\G->^@'^[3G(!F93I--GT:F9,H9=G*)BS)@ @[@[^@)^@3A07 0)^@)^@)GL>G9(H0)^@)ND )@@G@@@H@[@[^@)^@3A08 0)^@)^@)I->H(0F93G(!F9,H9=G*'B(3G(!F93I--GT:FT3G(!F93I--NE )@@G@@GT:F94H90F*;@K@[@[^@)^@3A09 0)^@)^@)IT>H(ZIT4GDH(ZIT4GDH(ZH1\G-> 13HD'G*;^@)@G@[@[^@)^@3A80 0)^@)^@)G(,G);NG )@@G@@^@)^[;^[\G0)CT\H1QGD2E-9I[>C->GT?F9NELZAK)J*)^@)@]@[@[^@)^@3A81 0)@H@[@[NH )@@G@@^@)^@3A82 0)^@)^@)^@)^@)^@)^@)^@)JS) L#D9IE1[ELOFDKC(^C(#D-NCTZETMF81 K)NI )@@G@@J*)^@)@]@[@[^@)^@3A83 0)@F@[@[^@)^@3A84 0)^@)^@)I[2H9C->GT?ET#F9NELZBS)@]@[@[^@)^@3A85 0)@O@[@[^@)^@3A86 0)^@)^@)^@)^@)NK )@@G@@^@)^@)JS)B-GS)H);B0)BK'B*)G->GT?GD2G*)B-GS)H)"@E@[@[^@)^@3A87 0)^@)^@)^@)^@)^@)^@/G(,G))H9&^[=NM )@@G@@G(^@"^[.^@)@^@[@[^@)^@3A88 0)^@)^@)I1-IK)@H@[@[^@)^@3A89 0)^@)^@)NN )@@G@@^@)^@)^@)^[4G(!I[ZIT>H(ZH1\G->^@'^[3G(!F93I--GT:F9,H9=G*)BS)@ @[@[^@)^@3NO )@@G@@B@0 0)^@)^@)GL>G9(H0)^@)@C@[@[^@)^@3B@1 0)^@)^@)IT>H(ZIT4GDH(0F93G(!F9,H9=(B@@@[G*'B(3G(!F93I--GT:NQ )@@G@@FT3G(!F93I--GT:F94H90F*;@K@[@[^@)^@3B@3 0)^@)^@)IT>H(ZIT4GDH(ZIT4NR )@@G@@GDH(ZH1\G-> 13HD'G*;^@)@G@[@[^@)^@3B@4 0)NS )@@G@@^@)^@)G(,G);^[;^[\G0)CT\H1QGD2E-9I[>C->GT?ETC->GTZETMF9QC);^@)@]@[@[^@)^@3B@9 0)@J@[@[^@)^@3BC0 0)^@)^@)NW )@@G@@^@)^@)^@)^@)JS)B-GS)B0)BK'B*)B-6GD2^[=G(H(ZH1\G->^@'^[3G(!F93I--GT:F9,H9=G*)BS)@ @[@[^@)^@3NZ )@@G@@BC4 0)^@)^@)GL>G9(H0)^@)@H@[@[^@)^@3BC5 0)^@)^@)I->H(0F93G(!F9,H9=G*'B(3OA )@@G@@G(!F93I--GT:FT3G(!F93I--GT:F94H90F*;@H@[@[^@)^@3BC6 0)^@)^@)IT>H(ZIT4GDH(ZIT4GDH(ZIT4GDH(ZIT4GDBK.I->H(0F93G(!F9,H9=OD )@@G@@G*,G->GTZIT(JL>BS)@F@[@[^@)^@3BC8 0)^@)^@)G(,G);^@)JS)H9&^[#H9,E1-ILOJD0OE )@@G@@G(^G(GT?F9NG(GT4HD\H0"^@'BK.^@/GT\H13I)?OI )@@G@@I1-IK?I-9I[> -=G(<^[?BS"(^@@@[^@/I[2H9H(ZH1\G->BK)IT>H(ZIT4GDBS)^@)@ @[@[^@)^@4A@8 0)^@)^@)GL>G9(OL )@@G@@H0)^@)@C@[@[^@)^@4A@9 0)^@)^@)IT>H(ZIT4GDH(0F93G(!F93I--GT:F9,H9=G*'B(3G(!F93I--GT:FT3G(!F93I--GT:ON )@@G@@F94H90F*;^@)@J@[@[^@)^@4AC1 0)^@)^@)IT>H(ZIT4GDH(ZIT4GDGT4BS)^@)@N@[@[^@)^@4AC2 0)^@)^@)ET>H(ZIT4GDH(ZIT4GDH(ZH1\G-> 1=G(BS)@E@[@[^@)^@4AC3 0)^@)^@)G(,G);^[;^[\G0)C->GT?F9NG(GT4HD\H0;B0/IT4^[?B0)J*)@]@[@[^@)^@4OV )@@G@@AK0 0)@^@[@[^@)^@4AK1 0)^@)^@)I1-IK)@G@[@[^@)^@4AK2 0)^@)^@)^@)^@)^@)^[4OW )@@G@@G(!I[ZIT>H(ZH1\G->BL3G(!F93I--GT:F9,H9=G*;@ @[@[^@)^@4AK3 0)^@)^@)GL>G9(OX )@@G@@H0)^@)@C@[@[^@)^@4AK4 0)^@)^@)IT>H(ZIT4GDH(0F93G(!F9,H9=G*'B(3G(!F93I--GT:FT3G(!F93I--GT:F94H90F*;OZ )@@G@@@M@[@[^@)^@4AK6 0)^@)^@)E[2H9H(0F93G(!F9,H9=G*,G->GT?F93HD'G*:AC;^@)@^@[@[^@)^@4AK7 0)^@)^@)JS)GT?PB )@@G@@( @@@[H93G*)IT9H(+H9?^[4GD+H->^[.^@)@D@[@[^@)^@4AK8 0)^@)^@)G-(IT0H93G**PC )@@G@@I-\I[ZGL?H9I0(BS)@C@[@[^@)^@4AK9 0)^@)^@)I-\I[ZGL?H9I0!BK.PD )@@G@@AC;^@)@M@[@[^@)^@4AS0 0)^@)^@)IT>H(ZIT4GDH(ZIT4GDBK.I->H(0F93G(!F9,H9=G*,G->GT?F93HD'G*;@C@[@[^@)^@4AS1 0)^@)^@)PF )@@G@@G(,G);^[;^[\G0)CL?H9G9(H1ZIT2BS)@]@[@[^@)^@4AS6 0)@F@[@[^@)^@4AS7 0)PI )@@G@@^@)^@)^@)^@)^@)^@)JS)B-+G($HD,B0)BK'B*)GL>G9(H0)J*)^@)@]@[@[^@)^@4AS8 0)PJ )@@G@@@ @[@[^@)^@4AS9 0)^@)^@)GL>G9(H0)^@)@F@[@[^@)^@4A)0 0)^@)^@)H--GL>H-ZIT4PK )@@G@@GDBS)^@)@Q@[@[^@)^@4A)1 0)^@)^@)G9>H1>ILZHD,PL )@@G@@IT4IK*D9KCTZD-^ -6H9?GD4AC?I-\I[ZI[2H9I1X S'B*1BS)^@)@C@[@[^@)^@4A)3 0)^@)^@)I-\I[ZGL?H9I0:BK.AC;^@)@N@[@[^@)^@4A)4 0)^@)^@)GL?H9I1ZIT4GDI1XBK.I[2H9I1XBS)^@)@E@[@[PQ )@@G@@^@)^@4A)5 0)^@)^@)JS)H90G(,^[,G(7^[3JD!GL\H))I--GL?G*)J*)^@)@F@[@[^@)^@4PR )@@G@@A)6 0)^@)^@)DD,HD4F9NI(+F9OGD+H-> [4H90F9+H-\GT:F9?G(6 C;^@)@P@[@[^@)^@4PS )@@G@@A)7 0)^@)^@)G9>H1>ILZHD,IT4IK*D9KCTZETO -6H9?GD4AC?I-\I[ZI[2H9H(ZIT4GDBS)^@)@D@[@[^@)^@4A*8 0)^@)^@)^[&H95H1= ->IL2H92QA )@@G@@BL+H9\H->GD,BS)^@)@B@[@[^@)^@4A*9 0)^@)^@)^[2G(:H92G)'HD,I->G9>IK;@D@[@[QB )@@G@@^@)^@4A00 0)^@)^@)^[(G->H14HD&HD>IK'I-ZHD=F93I-2HD,G8;@E@[@[^@)^@4A01 0)QC )@@G@@^@)^@)^[0I-2F94H9ZETOF9>H14IL9BL4F9?HD3I-ZI[4IK;@ @[@[^@)^@4A02 0)^@)^@)QD )@@G@@GL>G9(H0)^@)@B@[@[^@)^@4A03 0)^@)^@)G(2IL\IK'B(&GD?IT>BS)^@)@A@[@[^@)^@4QE )@@G@@A04 0)^@)^@)IL>HT\IL=BK.A@;^@)@H@[@[^@)^@4A05 0)^@)^@)I->H(0F93ITZH1\G->QF )@@G@@BK.IT>H(ZIT4GDH(ZIT4GDH(0F93ITZH1\G-> 14F9(G);^@)@M@[@[^@)^@4A07 0)^@)^@)G1(H1=QH )@@G@@F9(H1ZIT9H(+F94GD+H-> [&H95H1= -2G(:H92G)?HD=G(,I-(G1(G(2 -0I-2F8N]-NE-ZQI )@@G@@G(,I-2JC(BS)@C@[@[^@)^@4A08 0)^@)^@)HD&^[,H94^[&H95H1=^[4H[>H0)^@)@ @[@[QJ )@@G@@^@)^@4A09 0)^@)^@)^[+G($HD,^@)@B@[@[^@)^@4A80 0)^@)^@)^[>IL2H92F90IL\GS*QK )@@G@@GS(BS)@N@[@[^@)^@4A81 0)^@)^@)^[7IL(I->H-, [=HD-G9,F9&HD?G*?^8% K$ -< )$QL )@@G@@ K%^[(G))BK$ -(G->H14HD&HD>IK)I(,G->GT?GD2G(=^8(BS)^@)@A@[@[^@)^@4A82 0)QM )@@G@@^@)^@)^[>IL2H92BK.I-2I(>([@@@[BS)^@)@^@[@[^@)^@4A83 0)^@)^@)^[>H1=@L@[@[QN )@@G@@^@)^@4A84 0)^@)^@)G(?IT>^[(G0)I[4ILZI-\F9NE-ZG(,I-2JC,I[2H9H0)@ @[@[^@)^@4A85 0)^@)^@)^@)^[+G($HD,@C@[@[QP )@@G@@^@)^@4A86 0)^@)^@)^@)^[>IL2H92F90IL\GS*GS(BS)^@)@K@[@[^@)^@4A87 0)^@)^@)QQ )@@G@@^@)^[7IL(I->H-, [=HD-G9,F9&HD?G*?^8% K$ -< )$ K%^@)HD=^@'^8?HD=G(,I-(G1(QR )@@G@@G(2 )$@I@[@[^@)^@4A88 0)^@)^@)^@)^@)^[5H1=G(?GD2G(=^[-I))I-*HD3^[0IL\GT>QS )@@G@@G-5IL>^[?G(6G(?^8(BS)^@)@B@[@[^@)^@4A89 0)^@)^@)^@)^[>IL2H92BK.I-2I(>BS)QT )@@G@@@ @[@[^@)^@4B@0 0)^@)^@)^@)^[>H1=^@)@J@[@[^@)^@4B@1 0)^@)^@)^@)^@)^[>H-3QU )@@G@@G*)HD&^[0I-2F94H9ZETOF9>H14IL9F0,I-ZG1\IL!^@.^[0IL\GS)I-*G(,@A@[@[^@)^@4QV )@@G@@B@2 0)^@)^@)^@)^@)^@)^[+G($HD,@D@[@[^@)^@4B@3 0)^@)^@)^@)^@)^@)^[>IL2H92QW )@@G@@F90IL\GS*GS(BS)^@)@M@[@[^@)^@4B@4 0)^@)^@)^@)^@)^@)^[7IL(I->H-, [=HD-G9,QX )@@G@@F9&HD?G*?^8% K$ -< )$ K%I[2H9G))GD3^[-^[6GD2HD-GL?G*)H92^[IL2H92BK.I-2I(>BS)@A@[@[RA )@@G@@^@)^@4B@7 0)^@)^@)^@)^@)^@)^[>H1=^@)@B@[@[^@)^@4B@8 0)^@)^@)^@)^@)^@)^@)RB )@@G@@^[>H-3G*)^@)@B@[@[^@)^@4B@9 0)^@)^@)^@)^@)^@)^@)^@)^[+G($HD,@K@[@[^@)^@4RC )@@G@@BC0 0)^@)^@)^@)^@)^@)^@)^@)^[(G0)I[4ILZI-\F9NE-ZG(,I-2JDY 14F9&H92H*.GT\RD )@@G@@H13I--H14^[4H[>H0)@C@[@[^@)^@4BC1 0)^@)^@)^@)^@)^@)^@)^@)^@)^[+G($HD,^@)RE )@@G@@@F@[@[^@)^@4BC2 0)^@)^@)^@)^@)^@)^@)^@)^@)^[3G(!F93I--GT:FT3G(!F93I--GT:RF )@@G@@(A@@@[F94H90F*,GT\H13F9>J[0IK'B(4IL5G*;^@)@L@[@[^@)^@4BC3 0)^@)^@)^@)^@)RG )@@G@@^@)^@)^@)^@)^[3G(!F93I--GT:FT3G(!F93I--GT:F94H90F*,IL>GD=F9\H1?JC'B(4IL5RH )@@G@@G*;^@)@B@[@[^@)^@4BC4 0)^@)^@)^@)^@)^@)^@)^@)^@)^[>H1=@B@[@[^@)^@4BC5 0)RI )@@G@@^@)^@)^@)^@)^@)^@)^@)^[>H-3G*)@C@[@[^@)^@4BC6 0)^@)^@)^@)^@)^@)^@)^@)^@)RJ )@@G@@^[+G($HD,^@)@L@[@[^@)^@4BC7 0)^@)^@)^@)^@)^@)^@)^@)^@)^[3G(!F93I--GT:FT3RK )@@G@@G(!F93I--GT:F94H90F*,GT\H13F9>J[0IK'B(&GD?IT>BS)@K@[@[^@)^@4BC8 0)^@)^@)RL )@@G@@^@)^@)^@)^@)^@)^@)^[3G(!F93I--GT:FT3G(!F93I--GT:F94H90F*,IL>GD=F9\H1?JC'RM )@@G@@B*)^@)@I@[@[^@)^@4BC9 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[0I-2F94H9ZETOF9>H14RN )@@G@@IL9F0,IL>GD=F9\H1?JC;^@)@Q@[@[^@)^@5A@0 0)^@)^@)^@)^@)^@)^@)^@)^@)^[3G(!RO )@@G@@F93I--GT:FT3G(!F93I--GT:F94H90F*,I[2H9RR )@@G@@I);^@)@C@[@[^@)^@5A@2 0)^@)^@)^@)^@)^@)^@)^@)^@)^[>H1=BS)^@)@L@[@[^@)^@5RS )@@G@@A@3 0)^@)^@)^@)^@)^@)^@)^@)^[(G0)I[4ILZI-\F9NE-ZG(,I-2JDY 1#E-KF94JD0G*)RT )@@G@@B*)I-ZGL\H9?G(-H0)I-*G(,@L@[@[^@)^@5A@4 0)^@)^@)^@)^@)^@)^@)^@)^@)^[3G(!RU )@@G@@F93I--GT:FT3G(!F93I--GT:F94H90F*,H90I-(H(ZG(6GD?BK.G1-H-3G*;@B@[@[^@)^@5RV )@@G@@A@5 0)^@)^@)^@)^@)^@)^@)^@)^[>H1=BS)@B@[@[^@)^@5A@6 0)^@)^@)HD&^[>IL2H92RW )@@G@@^[4H[>H0)^@)@F@[@[^@)^@5A@7 0)^@)^@)^[$G(,G(2F9(H13I-2 [JE[#F9NE1# )0 )0RX )@@G@@ )!A*0 C;^@)@ @[@[^@)^@5A@8 0)^@)^@)IT>H(ZIT4GD<(D@@@[HTVIT>H(ZIT4GDIL2H92F92G(H(ZIT>SC )@@G@@H->GT4 [-GT4HD\H0'HD,I->G9>IK(BS)^@)@]@[@[^@)^@)^@2 0)@ @[@[^@)^@)^@3 0)SD )@@G@@^@)^@)GL>G9(H0)^@)@C@[@[^@)^@)^@4 0)^@)^@)^@)^[H-, @$IT\IL2JC)I(,HD!I[?G(!G(,I->G))G1>GD4I(2G*$SG )@@G@@ C;^@)@B@[@[^@)^@)^@7 0)^@)^@)^@)^@)^@)^@)^@)^[3I-\I@;@B@[@[^@)^@)^@8 0)SH )@@G@@^@)^@)^@)^@)^@)^@)^@)^[>H1=BS)@G@[@[^@)^@)^@9 0)^@)^@)^@)^@1AK'^@)^[1HD=SI )@@G@@F9NEK;^[;^@/ID(G)"^@'BK.^[(G))J*)^@)@]@[@[^@)^@)AC0 0)@F@[@[^@)^@)AC1 0)SJ )@@G@@^@)^@)^@)^@2A8'^@)^[OJD0G(ZH1-H(>F9NELZHD,I->G9>IK;^@)@]@[@[^@)^@)AC2 0)SK )@@G@@@F@[@[^@)^@)AC3 0)^@)^@)^@)^@2B@'^@)^[OJD0G(ZH1-H(>F9NELZGL\H9?G(-H0;^@)SL )@@G@@@]@[@[^@)^@)AC4 0)@E@[@[^@)^@)AC5 0)^@)^@)^@)^@2BC'^@)^[4JD0G(ZH1-H(>F9NSM )@@G@@ELZIL>GD?BS)@]@[@[^@)^@)AC6 0)@I@[@[^@)^@)AC7 0)^@)^@)^@)^@3A@'^@)^[(G-ZSN )@@G@@H-(IT4F93IK1BS)JS)B-(G))H-(IT4B0)BK'B*)HD=^[.^@)@]@[@[^@)^@)AC8 0)@L@[@[SO )@@G@@^@)^@)AC9 0)^@)^@)^@)^@3AC'^@)^[(G-ZH-(IT4F9NEK2BS)JS)B))HD=^[?HD3I))B0)SP )@@G@@BK'B*)B-(G))H-(IT4B0?HD=^[.^@)@]@[@[^@)^@)AK0 0)@B@[@[^@)^@)AK1 0)^@)^@)SQ )@@G@@^@)^@3AK'^@)^[6GD2F9=G(<([@@@[F9NEK;@]@[@[^@)^@)AK2 0)@F@[@[^@)^@)AK3 0)SR )@@G@@^@)^@)^@)^@3AS'^@)^[#H9,E1-ILOJD0G(^G(GS"^@'BK.^@/I1-IK)G->GS"^[.^@)ST )@@G@@@F@[@[^@)^@)AK5 0)^@)^@)^@)^@3A)'^@)^[#H9,E1-ILOJD0G(^G(^[=G(<^[?B0)BK'B*/SV )@@G@@GT\H13I))I1-IK)I-9I[>^[=G(^[=G(<^[?B0)BK'B*)B-GS)H)"BS)^@)@E@[@[^@)^@)AS0 0)^@)^@)^@)^@/GT\H13I)?I1-IK?I-9SZ )@@G@@I[>^[=G(^[=G(<^[?BS"^@'BK.^[=G(^@/GT\H13I)?I1-IL4JD0G*)TC )@@G@@G->GS)H)"^@)@D@[@[^@)^@)AS4 0)^@)^@)^@)^@)B->H1=^[\G0)G->GT?GD2G*)B0)J*)TD )@@G@@@]@[@[^@)^@)AS5 0)@E@[@[^@)^@)AS6 0)^@)^@)^@)^@3A8'^@)^[^G(GT4HD\TE )@@G@@H1ZETMBS)^@)@]@[@[^@)^@)AS7 0)@C@[@[^@)^@)AS8 0)^@)^@)^@)^@3B@'^@)^[+G($TF )@@G@@HD,F9NEK;^@)@]@[@[^@)^@)AS9 0)@C@[@[^@)^@)A)0 0)^@)^@)^@)^@3BC'^@)^[+H-\TG )@@G@@GT:F9NEK;^@)@]@[@[^@)^@)A)1 0)@D@[@[^@)^@)A)2 0)^@)^@)^@)^[>H1=BS)JS)G(,TH )@@G@@G))H9&^[@@@I)OZ )@@G@@/K@@FD>@@@I-/KF@@[C8H@@@?8I@@@/K@@E;C@@@IZC8K@@#/KF@@@C@@@IOC8K@@[/KF@@@PA )@@G@@C@@@IUC8K@@]/KF@@@L8@@@[C@)^@@G8)@@[*@I@@@?CY@@@/K@@FRG),@@@/K@@FL%CI@@@PB )@@G@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K@I+/KF@@[N8W@@@C^@^@@G8@@@[PC )@@G@@C9K@@[ @@^@IN8)@@@(@G@@@/K@@GG(4G@@@/K@@F/%1W@@@/K@@GGC?W@@@!8K@@A/K@@F_PD )@@G@@%(K^@I @@^@H[(K^@I9??@@[C-G@@@:9@@@[C@0@I+')H@G/H9@@@[T9@@@AG>G@@@')H@H^PE )@@G@@G)G@@@G8@@@[/K@@F$:9K@@[/K@@G^C*?@@@:8)@@.N8)@@[%[K@[[/K@@F//K@@F3%@)@I+PF )@@G@@[5@^@H:@)@I+[-K^@H/K@@F/(@@@[]:(K^@I/K@@GL[(K^@I @@^@H:[K@[[/K@@GTG9K@@[PG )@@G@@*@G@@@/K@@F& @@^@H @@^@I/KF@@@:(K^@I *@^@I9?K^@H98V@@@C8@@@-[=@^@I(?@^@IPH )@@G@@/KF@@[C@@^@UD8)@@@C80@@@C!@^@I8^@@G?1@@@@I!8)@[@C80@@E[))^@I[=0^@I/KF@@[PI )@@G@@C8K@@@;=@@@A?8K@@'?8K@@0/K@@G7(@@@@JC80@[@H8K@@0T8)@@EG8!@@@/K@@G>/^0@G*PJ )@@G@@%8K@@+:8K@@-C8.@@@/@0@G*/K@@G>9*)^@J9*)^@L[@)^@N[@)^@O[@)^@P9*)^@Q9*)^@SPK )@@G@@[@)^@U/K@@GB[1@^@H[!@^@H[(@^@H[>@^@H[5@^@I[1@^@I[!@^@IC80@@F+8K@@_:8)@@ PL )@@G@@;^@@@A8#0@HI9*@^@]C@@@IN8K@@^/\)@I N?K^@HPN )@@G@@(@@@[[/K@@H0C9K@@(')H)@@C[@^@N/\)@I C9K@@)')H)@@(*@^@H*=@^@H/K@@H6C@@@I&PO )@@G@@'=@@@J/KF@@@C9K@@/')H)@@N*K^@HC[@^@O/\)@I N=K^@H(@@@[[/K@@H3C9K@@/')H)@@PP )@@G@@C[@^@P/\)@I /K@@H3;>@@@A')H)@@8KK@I#/KI@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@PQ )@@G@@/\0@IH[-W)@@Q;K@IB/KJ@@@PROCESSOR CALL ERROR @[^@IKABNORMAL RETURN FRPR )@@G@@OM READ$ @[ @IPTOO MANY SPECIFICATIONS @[^@IV]@@@@@[@@@@@ @@[^@ PS )@@G@@@@[@IBTPF$ @@G^@[?@@@[@?A@@[V?B@@[X?C@@@+K@@@',L@@@_PW )@@G@@-M@@@-.N@@@?/O@@[W0P@@@01Q@@@12R@@@23S@@@34T@@@45U@@@56V@@@67W@@@78X@@@8PX )@@G@@9Y@@@9:Z@@@$;?@@@;<\@@@\=!@@@,>^@@@+?_@@[ZC[@@L#A#K@@L;G@@@M;CK@@M/@V@@@PY )@@G@@H9K@@[G[K@@HT8K@@# @@@@GW8@@@]/@K@J5O;@@@[R#0@L^;^0@@MK@@@@IP;K@@[&;K__"PZ )@@G@@;*@@@MQ#@@@FR]0@@LC[K@@G;DK@@MH9K@@[&'0__"R#)@L ')I)KERB_@I$;^0@@D/C0@K@QA )@@G@@[[H)@@C[@@L#8^K@K@;G@@@M;CK@@M/KH@@@/K@@KKR3;@@@R\;@@@R:;@@@R$;@@@R<;@@@QB )@@G@@R7;)@@Q;)@@ /K@@K[&;@@@@/@F@@@C[K@@G&#@@@FR]0@@H&;)@@[&'0@@[R#K@LAR#0@L#QC )@@G@@8^K@KXC[F)@@;=0@@D;*0@@X;C0@@X=80@[@/K@@K>R7_@I$/K@@K&R3_@H$')H)K' @@@@JQD )@@G@@/D@@KY/ K@KV;G@@@M;CK@@MR]0@@GT8K@@] @@@@GW8@@@#/@V@@@O;@@@[P;K@@[R;0@@ QE )@@G@@A<"@@@A$"@@@/^V@@@A:"@@@A\"@@@/KF@@@A7"@@@A3"@@@A\"@@@A:"@@@A$"@@@/K@@L@QF )@@G@@A<")@@R#K@LA/K@@K$)@@@@@@@@^@)__"@@ @@[@@@R;K@@[A:K^[X/K@@LF *@^[XA#@^[QQG )@@G@@A]0^@X*@@^@)/K@@M@0@@^[R/K@@LW(4@^[V(@@^[R/K@@M?()@^@Z/K@@U9 )@^@ZC[K^[SQH )@@G@@G9K@@[[[K^[R[[K^[S/K@@P-*4@^[V/K@@LI@@@%(I@@@%!I@@@%1I@@@%5I@@@RW )@@G@@9?K^@,9*K^@.R#@^@''=@@@I/K@@YH9?K^@29*K^@./K@@TM9?K^@49*K^@./K@@TM9?K^@0RX )@@G@@9*K^@./K@@TMR#@^@';@@@@MO3@^[";@@@@M'=@@@IR#@^[&R#K^[ZNCK^[QM#H)@@RF)^@>RY )@@G@@C@@^@-G8@@@[[@@^@-/K@@S(C9@@@[[(@^@Z9!@^@89(@^@.R#@^@''=@@@IC@@^@-G8@@@[RZ )@@G@@[@@^@-/K@@QN9!@^@69(@^@.R#@^@''=@@@IC@@^@-G8@@@[[@@^@- @@^[R @@^[S @@^[TSA )@@G@@ @@^[UC9@@@[[(@^[W @@^@Z/K@@M?9?@^[=9?)^[&RA0^[*/%0@U#R#@^[(AB@^[='=@@@HSB )@@G@@R#@^[=R;K@@ RA0^[%')H@U!8#K@UAR;K@@ P'0@@[:9@@@-/K@@Y>:9@@@)/K@@U-:9@@@@SC )@@G@@/K@@T/; @@@ ;DK@@Z/>@@UU8^K@UM/K@@T/')H@U!8#K@UPR;K@@ P'0@@[')J@U38#0@UTSD )@@G@@R;0@@ /K@@UKC9@@@ 8^K@UX/K@@T/')J@U38#0@U)R;0@@ /K@@UV9*@^[=AA0^[*R;K@@BSE )@@G@@A:K^[VR;K@@*A\K^[3%80@@ O;)@@[P#)^[&A3)^[" )@^[X/K@@ZQC-G)@@C>G@@@C(G@@@SF )@@G@@C!G@@@C1G@@@C5G@@@[-I)@@[>I@@@[(I@@@[!I@@@[1I@@@[5I@@@R#@^[/R#K^[,A#K^[1SG )@@G@@R;K^[,*?@^[XR;K^[0NCK^[QM#H)@@R;@^[4/,0@DF/K@@YH/K@@YVR;)@@+C@@^["[@@^@R#)^[&R#K^[ZNCK^[QM#Y)@@ABK^@&SM )@@G@@/K@@WFR;K@@BA:K^[VC9@@@ 0@@^[-C9@@@*[!@^[3*4@^[V/K@@ZF(0@^[V/K@@ZFC)K^P?SN )@@G@@!*K^P*/K@@Y2R#)^[-/C)@WR/@)@WV]*)^["/K@@WX?)K^["/K@@X@!*K^["/K@@WX @@^[-SO )@@G@@ *@^["R#0^[X/,0@Z2 ^@^MER#K^["(@@^@+/K@@W>(=@^["C@K^@<[@K^]D/GK@W(=80@[[SP )@@G@@/K@@W?R;)^]EAB)^]B/K@@W\R;)^#EAB)^]B/,0@ZZR;@^[_/,0@C@/K@@YHR#@^@W*=@^[XSQ )@@G@@O#@^MG*0@^[WO#@^MHA#@^@VR3@^]D0@@^]D/K@@W.RF@^]D;C@@@AO#@^@WO;@@@[A#@^@WSR )@@G@@(*@^[V/K@@LL/,0@Z2R#0^[X>80[@[/K@@XFRB@^ME%8@@W\/,0@ZWR]0^[Z/K@@XGR]0^[/SS )@@G@@R#@^[/QB@^[QNCK^[QM#F)@@ *@^[VR<)^["C9K@@];G)@@=W8)@@EO;0@@0;G0@@A8^K@XNST )@@G@@;[@@@M[ @^[30@@^["/K@@X2(4@^[W/K@@X2(0@^[W/K@@X2R#)^]QR#0^]R;C0@@S;*0@@SSU )@@G@@**@^[X9?)^]W?@)^[+/K@@YE%@)^[+/K@@X,?@0^[K^[1C9K@@-[(K^[1 @@^[\/KF@@@R;K@@[A]0^@XR;@@@KA3@^[7TI )@@G@@]@@^[R @@^[S @@^[T @@^[U @@^[? @@^[* @@^[+R;)@@)A7)^[+A7)^[< @@^[!R#)^P9TJ )@@G@@*@@^@)R#)^P7S8)@@WA#0^@W*@@^@)/K@@-&R;)@@-A#)^[:R#)^PZ;@)@@E/))@)=A[/K@@<=Q'K@>CC8@@@]/,0@F-/K@@<*/,)@>MC8@@@ [0@^P5/K@@<"UA )@@G@@C@@^PZ)8@=@@[@K^PZ/K@@<0C@@^PZ)8@^@@[@K^PZ/K@@<"/,)@>^/K@@<0C8@@@ [0@^P5UB )@@G@@/,)@>E(@@^P!/K@@$?C8@^P!'=@@[CC@@^N$/^)@$Q[@K^P9C8@@@[[?@^P2/K@@$?/,)@>[UC )@@G@@/K@@=Y/,)@>BC8@@@*C4K^P?=8K@@KC8@@@"[4@^PZ%8@@@*/K@@=)C8@@@[[C@^P>C8@^P)UD )@@G@@'=@@[ C@@@$ /^)@$WC@@@$LC=0^MQ:80@@E/K@@$WC*K^P*L)K^P*:80@@@C)K^MQ:80@@-UE )@@G@@H)K^MQ%80@@+/K@@=TC/Y@@[G)K^MQC*0^P*,@)@@H/K@@$W[)K^P?/K@@<1C@@@$P/K@@$WUF )@@G@@9?@^P)9*@^MTC8@^MT'=@@@#C4@^MW/@@@=!;G@@@#;CK@@-;*@@@AG8H 00[C@^N!C@@^N,UG )@@G@@/K@@$WC@@@$E9?K^M+C^0^MW:80@@W9/K@+8/K@@$WCC0^M$+80@@_9?K^M=?9@@@ 9/K^P+UH )@@G@@/K@@$W9?K^M*%9@@@@9/K^P&/K@@$W[C0^P>9?@^M%9*@^P*/K@@=F/,K@>H[@[[@[SI@^P)UI )@@G@@/,K@>H[0[@@]SI@^P!/,K@>H]0@@@]SO@^P!/,K@>H]@[@[@SO@@@@C4D@@@AAW^MNQ,D@@@UJ )@@G@@/,0@F-/%E@@@*?D@@@Q'%@@[Q+D@@@C@@^N2*=D@@@/K@@$Q*?D@@@*4@^@I/K@@>XC@@^N7UK )@@G@@/K@@$QC*@^@I/^@@><*@@^@H/K@@>:(4@^@IC8@@@[C)/OMN')J@+_(@@@@H9?K@+59*TK@[UL )@@G@@')J@+'+8@@@0/K@@&Y&FD@@[G@@@$3C@K@+69*@^M+9*DK@[/,0@HH/G@@>"C8K@@[C8@^M+UM )@@G@@'=@@[GCC)^M*!8)[@@>8)@)@/K@@>'/K@@&JC8@^M)'=@@@J/C@@&D')C@+/N8K@@FN/)__8UN )@@G@@9?K@$4<@@@@H;C@@@#;^K@@A8KK@&[;^K@@=9*K^N.C@@^N_/K@@$QC8K@@]>@@@$6C8K@@#UO )@@G@@C8@^M+'=@@[GCC)^M*')C@+/?8)K@@?8)[@@/K@@&PG8K@@K/K@@&TC@@^O#?8))@@?8)S@@UP )@@G@@/K@@$QC@@^OC=8)@]@/K@@$Q=8)@^@G8K@@)+0T@@@C@@^OI=8)@@KC@@^ON/^)@$Q')C@+/UQ )@@G@@C@0^MOC^_@@[QAD@@[9?@^@Q(4@^@I9?J@@]9*C@@]9?@@+6(0@^@I/K@@&09?@^@S/K@@&2UR )@@G@@(4@^@I9?J@@A9*C@@AC@@^@I**D@@@[@@^MQ*?@^@I**D@@@/KE@@@C@@^OU/,0@$R/KE@@@US )@@G@@I/U-OPTION CONFLICT @[^@&/SI: ELEMENT NOT FOUND @[^@$[SI: IMPROPERUT )@@G@@ LABEL BLOCK@[^@$ASI: CYCLE NONEXISTANT OR IN ERROR @[A@$FSI: MISSING UU )@@G@@FIELD @[#@$MR'0@$XCCT@@[G8K@@:[CW@@@'=@@@I/KF@@@'=@@@IC@0@$7N8K@@[')J@+_UV )@@G@@9*K^MT')J)+'+8@@@#/@K@$*C@H@<[[@@^MSC8@^MR'=@@@J8KK@$Z C@^P?R'0@@@/K@@$!UW )@@G@@R'0@@[OA0^MMQE)^MMQAK^MLQE@^ML/KF@@@@@7^M?@@$ 000000000000C@@@@@@@[@@[UX )@@G@@C8G@@@;G@@@=W8@@8KC8?@@@C8H@@@/\K@*DC8)@@:')])\T;G@@@=W8@@@/C8?@@@C8H@@@UY )@@G@@/\K@*DC8)@@:')])\TC8?@@@C8V@@@;G)@@=W8)@@EG8)@@0')])\TC8\@@0')])\T/KH@@@UZ )@@G@@C8G@@@&'0 AM?8@E<@/K@@*QH8@E<@&'0 PM;G@@@=W8@@8KC8?@@@C8H@@@/^)@*WC8)@@GVA )@@G@@;G)@@=W8)@@E/@)@*-G8)@@0')])\TC8\@@0')])\TC8)@@:')])\T;G@@@=W8@@@/C8?@@@VB )@@G@@C8H@@@/\K@*DC8)@@:')])\TC8?@@@/\K@*DC@@@@F;C@@@M/K@@0V;C@@@M+8@_@@;GK@@0VC )@@G@@/\K@*DC8)@@/')])\T+8@@_@;GK@@%/\K@*DC8)@@/')])\T+8@@@_K8K@[@/\K@*D/KF@@@VD )@@G@@;C@@@M+8@@_@;GK@@%/\K@*D+8@_@@;CK@@FC@X@%[C80@@^;)K@@A+8K@@_')])\T8#0@(CVE )@@G@@+8@@@_K8K@[@/\K@*D/KF@@@AE1@@#;C@@@M[@@@[[+8@_@@;CK@@F9?H@%[/,0@0MC8)@@ VF )@@G@@')])\TC@K@[[+8K@_@;G)@@%W8)@@E/@)@()G8)@@0')])\TC8\@@0')])\TC8)@@,')])\TVG )@@G@@+8K@@_C8I@Y?C8K@@ RE1@@# C[@@#/K@@1H;C@@@M+8@@@_C8.@[@[C1@@#;C0@@]C@)@@GVH )@@G@@CC[@@#T8@@ !G8J@@[;G)@@G;C0@@YG@I@%-G8J@@ACCL@@# C[@@#>8K@@[=8K@@#/K@@("VI )@@G@@?8)@@#H8@@@[;G@@@=W8@@@BC@H@%VC8KDAY/K@@0M JAN UARY FEB RUARY MAR CVJ )@@G@@H APR IL MAY JUN E JUL Y AUG UST SEP TVK )@@G@@EMBER OCT OBER NOV EMBER DEC EMBER @@@SUN@@@MON@@TUESWEDNES@THURSVL )@@G@@@@@FRI@SATUR@@@@@@@@@@@Z@@@@@;@@@@[U@@@@[8@@@@]R@@@@]5@@@@#O@@@@#3@@@@^LVM )@@G@@@@@@^0@@@@ IC8.@@@;G@@@M;CK@@M&;@@@[&;K@@[/K@@%6')G):+')])\T8#0@%4/KF@@@VN )@@G@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[/K@@:#')G):+:8)@@ /K@@: %8)@@@')])\T8#0@%"VO )@@G@@/KF@@@')])\T8#0@:C/KF@@@')G):+%8)@@ /K@@:[8#0@:C/KF@@@&'0@@@C?[@@[C^L@@[VP )@@G@@/K@@:Q&'0__"/K@@:O&'0@@@;G@@@M;CK@@M&;@@@[&;K@@[')G):+:0-@@@/K@@:X')])\TVQ )@@G@@/K@@:S0@@@@F/KF@@@[?[@@[[^L@@[/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@:*VR )@@G@@C)!)@@[^[@@]Q;@@@@/K[K@]C@K@?NC@0@@GC@@@@H/G@@:6/^@@:3C@@@?O/K@@:6;S@@@GVS )@@G@@;*@@@[;*.@@[H@@@?O;SK@@G;?@@@>;CI@@@)8@@@[9?@@@HG8K@@[T@K@?P;CK@@+;C)@@=VT )@@G@@;?!@@@G8)@@0')])\T'G@@?D'G@@?D'G@@?D;C)@@=;?)@@#/K@@?[;C@@@[/@F@@@C8)@@ VU )@@G@@')])\T;S@@@G;*@@@[;CH@@@/K@@:/C@K@?Q/K@@:!)+C*@@)@@@@@PPPPPP)@@)@@R7<@@@VV )@@G@@R3<@@@R\<@@@R:<@@@R$<@@@R<<@@@D8)@@@/\)@?'/\)@?'/\)@?'/\)@?'/\)@?'AE1@@#VW )@@G@@')]@?RR#@@@I/KF@@@R7<@@@R3<@@@R\<@@@R:<@@@R$<@@@/?)@?3/\)@?'/\)@?'/\)@?'VX )@@G@@/\)@?'/\)@?'/\)@?'R<<)@@/K@@\&AE1@@#')])?$A#)@@G')]@?R/KF@@@D8)@@[QE1@@#VY )@@G@@/KF@@@&'0@@@/K@@!@&"0__"AE1@@#')]@?R:@)@@G/K@@!J')])?$/K@@![&'0@@@/K@@!DVZ )@@G@@&"0__"AE1@@#')]@?R%8)@@ /K@@!J')])?$/K@@!ER#@@@I1@@@@F/KF@@@')])?$R#@@@IWA )@@G@@')]@?R/KF@@@R;0@@ &A0J_"/K@@!VR;0@@F&'0@@@ @@@@HAE1@@#')])?$:8)@@ /K@@!XWB )@@G@@;?@@@AO#K@@I8#0@!X0@@@@FR#@@@H')]@?R/KF@@@R;0@@ &"0__"/K@@!?R;0@@F&'0@@@WC )@@G@@ @@@@HAE1@@#')])?$;?@@@AO#K@@I8#0@!,0@@@@FR#@@@H')]@?R/KF@@@;?@@[C/K@@!9WD )@@G@@')])?$')]@?R:8)@@ /K@@!8 ?[@@[:8)@@+/K@@!M%8)@@-/KF@@@A\-@@[')])?$/KF@@@WE )@@G@@')])?$P;)@@0T8K@@EO#K@@I8#0@,^/KF@@@')])?$P;)@@0;?@@@#O#K@@I8#0@,E/KF@@@WF )@@G@@AE1@@#/,0@!6 @@@@J')]@?R:8)@@0/K@@,/\)@1$/\)@1$/\)@1$/\)@1$/\)@1$WM )@@G@@/\)@1$[)<)@@A^-@@]Q8,@@@C8<@@@?^-@@@/K@@\1H?-@@@!^-@@@/K@@\1R;+@@@Q8)@@@WN )@@G@@/K[K@]R;+@@@Q8)@@AP80@@[/K[K@]C8?@@@')])\T/KF@@@;G@@@=W8@@@AG^[@@@Q8!@@@WO )@@G@@Q8/@@@L?[@@@?^L@@@?^[@@@/K@@0]/KF@@@O8)@@AP80@@[/KF@@@G8]@@@C8N@@@H^L@@@WP )@@G@@T8K@@AG8H@@@/K@@\8C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@C80@@ /K@@0NC80@@F;^@@[]WQ )@@G@@+8K@@_%8)@@ :8)@@@/K@@0T')])\T8#0@0N/KF@@@C80@@ /K@@0YC80@@F;^@@[]+8K@@_WR )@@G@@%8)@@@')])\T8#0@0Y/KF@@@C@K@2#C80@@FAE1@@#R'0@@@+8K@@_%8)@@ /K@@00O'0@@AWS )@@G@@;G@@@A8#0@0*RE1@@#/KF@@@;?F@@@RE1@@#;^@@[]+8K@@_')])\T8#0@02/KF@@@C80@@@WT )@@G@@;G@@@#/@@@0_G80@@[;G@@@#/^@@0'C8)@@0')])\TC8)@@@;=K@@#G8)@@0')])\T8#0@0_WU )@@G@@/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@@0_&'0@@0/K@@1IC8K@@@&'0@@ N8X@@@C80@@@WV )@@G@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@1Q/^@@1K/C@@1V;?)@@AG80@@-8KK@1V9?@@@IWW )@@G@@C@0@@F;C0@@M/K@@1-C@)@@J')])\T8KK@1Z+8K@@_')])\T;G@@@A/^K@1+/KF@@@[@@@16WX )@@G@@C@@@2^'=@@@I(C[@@#/K@@1,RE1@@# C[@@#A^K@15[@@@16C8@@14'=@@[QC8@@@@/K@@\8WY )@@G@@E$PKT 8@E@@@@@@@@@***** EDIT$: ATTEMPT TO STORE OR LOAD OUTSIDE OF IMAGWZ )@@G@@E ***** @@[@@@ @[F@17&'0@%8/K@@2/&'0@%,/K@@2/&'0@:H/K@@2/&'0@:LXA )@@G@@/K@@2/&'0@:N/K@@2/&'0@:?/K@@2/&'0@:!/K@@2/&'0@?L/K@@2/&'0@\5/K@@2/&'0@\8XB )@@G@@/K@@2/&'0@0 /K@@2/&'0@2X/K@@2//,0@0F[@@^O/K@@2/&'0@07/K@@2/&'0@1 /K@@2/XD )@@G@@&'0@1G/K@@2/&'0@1H/K@@2/&'0@1E/K@@2/A]0^O+Q'0@3G/K@@2"A]0^O+Q'0@3F/K@@2"XE )@@G@@A]0^O+Q'0@3DA@K^OZA@)^O)A@0^O-9*@^O<9*)^O>^@K^O$CC0^O+R@K^OVR@)^OWR@0^OXXF )@@G@@/KJ@@@C@@^OC@K^O=A@K^OVA@)^OWA@0^OXR]0^O+R@K^OZR@)^O)R@0^O-C@0^O&XG )@@G@@N@K^O$/KF@@@&'0@3)/K@@2/&'0@3$/K@@2/&'0@3?/K@@2/&'0@3\/K@@2/&'0@34/K@@2/XH )@@G@@[0@^OYC?[@@@[?@^OYC^[@@@[^@^OYC@@^OY'=@@@IN?L@@@C^[@@@&;@@@[C8K^PCM#H)@@XI )@@G@@Q8)@@@Q^1@@@/KF@@@C8K@3$[^[@@@;C@@@M[?[@@@/KH@@@C8K@3?/K@@30&'0@$8/K@@2/XJ )@@G@@&'0@*K/K@@2/&'0@*1/K@@2/&'0@(@/K@@2/&'0@(K/K@@2/&'0@(%/K@@2//,0@< /K@@5%XK )@@G@@C@@^R)/,0@3WC8@^RA/,0@2H'=@@@?/,0@4@C/@@@,/,0@2PC/@@@[/,0@2T'=@@@?/,0@3"XL )@@G@@C@@^R-/,0@2='=@@@?/,0@38C@@^R+'=@@@I/,0@3SC@@^R<'=@@@I/,0@)C/K@@5%C'K@@@XM )@@G@@C')@@@C'0@@@C@@^R=/,0@LE/K@@5%/K@@5$0@@@@H/K@@4YG'0@@[C/@^RI/,0@\BC/@@@@XN )@@G@@/,0@\8/,0@?5%8@@@*/K@@5^/,0@3S/,0@?5%8@@@.:8@@@ /K@@43/,0@2P/K@@4!9?@^QBXO )@@G@@C@)^R>N8K@@^2@I)@@/K@@4'G')@@[/K@@5^C@)^R&N8K@@]2@I)@@/K@@5@H'K@@[/K@@5^XP )@@G@@%@@^R$/K@@5^H'K@@[C')@@[/,0@3SC/@@@ /,0@2TC@@@@RC8K@@A/,0@22C/@@@./,0@2PXQ )@@G@@C/@@@[/,0@2T/]K@5P/EK@5PC/@@@L/,0@2PC'K@@@C')@@@/K@@5RC/@@@[/,0@2TC/@@@^XR )@@G@@/,0@2TC@@@@PT8@@@ !8@@[=C8@@[=/,0@2TC8@^PDC8K@[K/,0@2BC@@^R+'=@@@I/,0@3SXS )@@G@@G]K@@QC')@@@/K@@4Y/,0@-"/K@@5%'=@@@DC@@^R('=@@@I'=@@@D@@@@@@@USE @@@@@@XT )@@G@@@@@@@@, @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[^#D@@@@@@@@@@@@@@@@@@@@@@@@XV )@@G@@@@[^[#@@@@@ ASCII MODE NO FIND SEPARATOR COLUMN CARD COUNT>XW )@@G@@ CARD COUNT<@#C^@;SIR EDIT ERR @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XY )@@G@@@@@@@@@@@@@@@@[^]E@Y>^]E@[I^]E@[O^]E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XZ )@@G@@@@@@@@@@@@@@__"^#D@@[^#E@@@@@ @@@@@@@@@@@@@@@@@@@@[^FE@@@@@ @@[^]E@@@@@ YA )@@G@@@@@@@@@YH^FE@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@^@)^@) *SDFF* YB )@@G@@@@@@@@@@@@@@@@@@@@@K@@@@@#)@@@@@@@@@^FE^I%@@C@@_@@[^]E@@[@@@@@@@@@@@@@@@YC )@@G@@@@@@@@@@@@@@@C@@@@@#)@@@@@@@@@^^E^B%@@C@@_@@[^#E@@[@@@@@@@@@/K@@ZY*[S@@@YD )@@G@@C@@@@@^@@@@@@@[^#E@@[^]E^[IC(R@@@@@@@@@@@@@@@@+9@@@@@@@@@@@@@@@@@@@FREE,YE )@@G@@OPTION@@@@@@@@@@@@@@@@@@@<@@@@@@]^MY@@E^M+K@O^M&@ASG,AX XXX NOT A PRYF )@@G@@OGRAM FILE @[^^N + 'LUSR]@^MFYT )@@G@@@A@@@@ + R_S@@@ 04016,1,072 /K@^LZSDFO K@]@@AD>G^X YU )@@G@@@@@@@@@[F@C@SDFI K@]@@GAR:[C @@@@@@@[:@DFINFOR$ K@]@@MDQD^KBYV )@@G@@@@V^@@@#1@E6FDASC K@]@@SN@5BEC@@@@@@@])@I$SIRASM K@#@@ZN[GBECYW )@@G@@@@@@@@@L,@LB@L6^@VPREPRM K@]@@>[=XC^B@]E^ML@ #@+5EDIT$T K@]@@:YX )@@G@@JQ]^SD@@@@@@@]6@$8EDIT$A K@]@@1GEDAQD@@@@@@@[(@%,EDIT$S K@]@@7YY )@@G@@JP4^SD@@@@@@@]-@?REDIT$ K@]@@.JO[^SD@@@@@@@#H@,8FDIT$A K@]@[#YZ )@@G@@JR]^SD@@@@@@@@K@2 FDIT$ K@]@[DJQ7^SD@@,^OV@[-@2PFDIT$T K@]@[JZA )@@G@@JR*^SD@@@@@@@@G@36ERU$ K@@@[NLU:CBCBONES @@#@@@GA*E]D@@@@@@ZB )@@G@@@[:@4]@]-^PD + 'ES'@A@@@@ + 04014,014,ZC )@@G@@073 @ @@@@ + 'LLA' @A@@@@ + 0401ZD )@@G@@*[@@@@*SDFF*@ @@_@@SSG ,,,,,,SGS/1,GEN.MATRIX @[@@@@SKEL @[@@@@#ECHO ZE )@@G@@@ @@@@*INCREMENT C TO [SEARCH,1,2] @#@@@@[SEARCH,1,2,C]: @]@@@@*CLEARZF )@@G@@ D @^@@@@*INCREMENT A TO [CONFD] @#@@@@*IF [CONFD,A]>1 @ @@@@*INCREZG )@@G@@MENT B TO [CONFD,A,2] @A@@@@*IF [CONFD,A,2,B] = [SEARCH,1,2,C] @#@@@@ZH )@@G@@*SET D TO D+1 @]@@@@*IF [DONT]=0@#@@@@[*D] [CONFD,A,1,1]@[@@@@*END ZI )@@G@@@[@@@@*END @[@@@@*LOOP @[@@@@*END @[@@@@*LOOP @]@@@@*IF [DONT] @#@@@@ZJ )@@G@@[*D] ELEMENTS. @[@@@@*END @[@@@@ @[@@@@*LOOP @[@@@@@EOF ___@@@ZK )@@G@@*[@@@@*SDFF*@#@@@@ AXR$ @[@@@@$(1) @ @@@@START L,U ZL )@@G@@ A0,CSFPAK @A@@@@ LXI,U A0,IOWPAK-CSFPAK@^@@@@ ERZM )@@G@@ CSF$@ @@@@ ER DATE$ @ @@@@ S ZN )@@G@@ A0,MSG+5 @D@@@@ S,T3 A0,MSG+7 . STORE YEAR ZO )@@G@@@ @@@@ SSL A0,12 @D@@@@ S,T1 A0,MSG+7 ZP )@@G@@ . STORE DAY @ @@@@ SSL A0,12 @D@@@@ ZQ )@@G@@ S,T2 A0,MSG+6 . STORE MONTH @^@@@@ L,U ZR )@@G@@ A0,5@ @@@@ L,U A1,'0' @ @@@@ TNE,S3 A1,MZS )@@G@@SG+6 @ @@@@ S,S3 A0,MSG+6 @ @@@@ TNE,S1 A1,MZT )@@G@@SG+7 @ @@@@ S,S1 A0,MSG+7 @ @@@@ TNE,S5 A1,MZU )@@G@@SG+7 @ @@@@ S,S5 A0,MSG+7 @ @@@@ L,U A0,IZV )@@G@@OWPAK @^@@@@ ER IOW$@ @@@@ ER EXIT$ ZW )@@G@@@[@@@@$(0) @#@@@@MSG '*[@@@@*SDFF*'@B@@@@ '@ @@@@GENDATE 000000 ZX )@@G@@ 00 00 00'@#@@@@ + 0777777000000 @A@@@@CSFPAK '@ASG,T GENDATESGS,F///ZY )@@G@@2 ' @^@@@@IOWPAK 'GENDATESGS' @[@@@@ + 0 @]@@@@ + 010,0,0 @]@@@@ZZ )@@G@@ + 9,MSG @[@@@@ + 0 @]@@@@ END START ___@@@^@)^@)^@)^@)^@)C(M^@)^@)AA )@@G@@^@)^@)C(SDDO^))^@)@[@@@@@@@@]*@CO@C@^@M^@@@CO^@M@@@@C@@@@@@[@@@@@@@@@@@^AB )@@G@@@@8@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@69 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@C@@@N^@@@@@___@@@___AD )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___AE )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___AF )@@G@@R;@^@D&;@@@^'=@@@J'=@@@MA#@^@ AR@^@B;C@@@GAZ@^@B;C@@@GAV@^@AR;@@@ R;K@@0AG )@@G@@:?K^@AA\@^@A:4K^@BA7@^@B:=K^@BA$@^@BR;@^@H'=@@@#'=@@@D*[@@@@*SDFF*@ @@@@AH )@@G@@GENDATE 000000 00 00 00___@@@@ASG,T GENDATESGS,F///2 GENDATESGS AI )@@G@@@@@@@@@C@@@@@@D^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MAIN @@E@@@@@@@@[AK )@@G@@ACLU*PAREPTMCH11(1R#0@@NLE ALREADY BACKED G.0@@=@B@[@@ACLU*PAUPDA(/]0^L>AL )@@G@@O ACTION COMPLETEDR]@^MF@C@[@@ACLU*PA-BACKR_S@@@ *FILE ALREADY BAC/K@^LZAM )@@G@@ERU$ K@@@@^J--E[DGENDATESGS @@]@@@[&U^^E@@N^@@@@P@C@ACLU*PA-COPYAN )@@G@@(1) *NO ACTION COMPLETED* @B@[@@ACLU*PA-DATA(1) *FILE ALREADY BACKEAO )@@G@@D UP* @B@[@@ACLU*PA-REPT@@^@@@@@^@@@@@^@@&@]W@@@RMATH$ @C@@@@@@@)@[AP )@@G@@DMATH$ @C@@@@@@@)@]CMATH$ @C@@@@@@@)@#NIOCB$ @C@@@@@@@)@^AQ )@@G@@ASM$ @C@@@@@@@)@ NWBCB$ @C@@@@@@@)@AED$ @C@@@@@@@)@BAR )@@G@@FLIT$ @C@@@@@@@)@CFURPR$ @C@@@@@@@)@DSPICB$ @C@@@@@@@)@EAS )@@G@@T$SCRN @C@@@@@@@)@FISISCB$ @C@@@@@@@)@GCTS$I @C@@@@@@@)@HAT )@@G@@BSCAN$ @C@@@@@@@)@IBFOR$I @C@@@@@@@)@JC2A$ @C@@@@@@@)@KAU )@@G@@C2S$ @C@@@@@@@)@LC2D$ @C@@@@@@@)@MC2E$ @C@@@@@@@)@NAV )@@G@@C2B$ @C@@@@@@@)@OC2F$ @C@@@@@@@)@PC2P$ @C@@@@@@@)@QAW )@@G@@FTN$1 @C@@@@@@@)@RFTN$2 @C@@@@@@@)@SFTN$3 @C@@@@@@@)@TAX )@@G@@FTN$4 @C@@@@@@@)@UFTN$U @C@@@@@@@)@VFTN$XR @C@@@@@@@)@WAY )@@G@@FTN$E @C@@@@@@@)@XCDMATH$ @C@@@@@@@)@YBCOB$I @C@@@@@@@)@3AZ )@@G@@EDQC$ @C@@@@@@@)@'EDQ$C1 @C@@@@@@@)@'EDQ$C2 @C@@@@@@@)@;BA )@@G@@STAT$ @C@@@@@@@)@/NYU1$ @C@@@@@@@)@.NYU2$ @C@@@@@@@)@"BB )@@G@@NYU3$ @C@@@@@@@)@_%>R0/IR>%>Q%PZ#09YQ%PU(P/J#>9U(P%>R0/IR>%>Q%PZ#0BC )@@G@@9YQ%PU(P/J#>9U(P%>R0/IR>*[S@@@*SDFF*@I@@@@CONFD ACCNTG SBLEV1,SBRUN,SBBD )@@G@@TIMEON,CONTIM,GROUP,TUSL,DUSL,SYML,SUANUM,ACCTON,; @I@@@@ BE )@@G@@ QGROUP,SUA(1),SUA(2),SUA(3),SUA(4),SUA(5),SUA(6),SUA(7),SUA(8),; BF )@@G@@@I@@@@ SUA(9),SUA(10),SUA(11),SUA(12),SUA(13),SUA(14),SUA(BG )@@G@@15),SUA(16),; @I@@@@ SUA(17),SUA(18),SUA(19),SUA(20),SBH )@@G@@UA(21),SUA(22),SUA(23),SUA(24),; @I@@@@ SUA(25),SUA(26)BI )@@G@@,SUA(27),SUA(28),SUA(29),SUA(30),SUA(31),SUA(32),; @ @@@@ BJ )@@G@@ SUA(33),STPAUL @A@@@@CONFD ACINT$ TIP,KONSFL,FILCTRL @H@@@@CONFD BK )@@G@@ ADH NMSA,IODBUG,NMHSP,NOS93,STPAUL,SBLEV1,SBLEV3,SIPIO,ALTERNATE,; BL )@@G@@@H@@@@ SUBSYSTEM,NIOAU,SYMBIONT,SMSADV,IOAUACR,IOAUSTR,IOABM )@@G@@UCHI,IOLM @#@@@@CONFD ARPID$ TIP@ @@@@CONFD BDSPOT SUBSYSTEM,IONSSBN )@@G@@@I@@@@CONFD BOOT1 ACU,SPU,NMSA,STPAUL,NOMUX,ESIBAS,EXTCH,DCBOOT,AUTORBO )@@G@@ECOV,CONNECT,; @F@@@@ SUBSYSTEM,SWAP,NIOAU,ESSIZE,EDITDBP )@@G@@UMPS,DCLUTS,OFLMEM@H@@@@CONFD BOOT2 ACU,ACUNSS,SPU,SPUNSS,IONSS,STPAUBQ )@@G@@L,NOMUX,ESIBAS,EXDRCH,EXOCH,; @H@@@@ EXTCH,EXPEXP,DCBOOT,DBR )@@G@@CLUTS,SYSPRP,OVSIZE,AUTORECOV,SWAP,STORE,;@G@@@@ CONNECT,SBS )@@G@@UBSYSTEM,NIOAU,ESSIZE,EDITDUMPS,OFLMEM,DBLOCK @I@@@@CONFD BOOT2A ACUBT )@@G@@,ACUNSS,SPU,SPUNSS,NOMUX,ESIBAS,FIXEDISC,DCBOOT,SYSPRP,SWAP,; @C@@@@BU )@@G@@ AUTORECOV,SUBSYSTEM,NIOAU,DCLUTS @C@@@@CONFD BOOT2B NCSBV )@@G@@P,TERMINAL,LTG,SYMBIONT,TIP @C@@@@CONFD BOOT2C NCSP,NOMUX,EXPTRACE,TBW )@@G@@ERMINAL,LTG @H@@@@CONFD BOOT2D SPU,UNIVAC,STPAUL,FCDBSZ,AUTORECOV,SWAPBX )@@G@@,TERMINAL,LTG,SYMBIONT,;@H@@@@ NCSP,U1CONFG,U3CONFG,NOS93,BY )@@G@@RTPROG,REPS,URSCNT,SBLEV1,EXSNAP,; @H@@@@ EXPRINT,NMSA,CABZ )@@G@@USTRP,CAUGRSP,IOAUSTR,IOAUACR,IOAUCHI,GCCINT,; @E@@@@ ESSCA )@@G@@IZE,URSCNT,QWMODE,SSSCSP,SUBSYSTEM,TIP @ @@@@CONFD BOOT2E TERMINAL,CB )@@G@@LTG @A@@@@CONFD BOOT2T TERMINAL,LTG,EXTCH @#@@@@CONFD BOOT2U CC )@@G@@@I@@@@CONFD BOOT2X ACU,SPU,NMSA,UNIVAC,STPAUL,NOMUX,ESIBAS,EXTCH,DCBOOCD )@@G@@T,AUTORECOV,; @G@@@@ CLRCOR,SWAP,CONNECT,SUBSYSTEM,NIOCE )@@G@@AU,ESSIZE,DCLUTS,OFLMEM @#@@@@CONFD BOOT2Y @#@@@@CONFD BOOT2Z CF )@@G@@@I@@@@CONFD BOOT3 ACU,SPU,NMSA,UNIVAC,STPAUL,NOMUX,ESIBAS,EXTCH,DCBOOCG )@@G@@T,AUTORECOV,; @H@@@@ CLRCOR,SWAP,CONNECT,SUBSYSTEM,NIOCH )@@G@@AU,ESSIZE,EDITDUMPS,DCLUTS,; @ @@@@ OFLMEM,DBLOCK @A@@@@CI )@@G@@CONFD BRMTRM SYMBIONT,NOMUX,CNIOC @H@@@@CONFD CATFR UNIVAC,DCLUTS,FCJ )@@G@@IXEDISC,DCBOOT,SYSPRP,STORE,RESERVE,SUBSYSTEM,; @C@@@@ ESSCK )@@G@@IZE,IONSS,CKSM,LASTRK,TIP @A@@@@CONFD CCR300 U3SFK,U3CONFG,RSICNT CL )@@G@@@C@@@@CONFD CDISP STPAUL,NCSP,SSSCSP,NOMUX,CSPRDP @A@@@@CONFD CGYCOCM )@@G@@D UNIVAC,NOMUX,NCSP,LTG@#@@@@CONFD CHKPAR @H@@@@CONFD CKEY STPCN )@@G@@AUL,NOMUX,DCBOOT,FNCCHK,SBLEV1,SBRUN,SBTIMEON,CONTIM,NCSP,; @H@@@@ CO )@@G@@ SYMBIONT,U1CONFG,U3CONFG,NOS93,RTPROG,SPU,REPS,URSCNT,DCLUTS,; CP )@@G@@@H@@@@ EXSNAP,EXPRINT,CKSM,NMSA,GCCINT,ESSIZE,QWMODE,CAUSTCQ )@@G@@RP,CAUGRSP,;@E@@@@ IOAUSTR,IOAUACR,IOAUCHI,SSSCSP,SUBSYSTECR )@@G@@M,TIP @^@@@@CONFD CKPT ACCTON @#@@@@CONFD CKPTFN @#@@@@CONFD CS )@@G@@ CKPTFS @ @@@@CONFD CKPTKY CNIOC,ESIBAS @ @@@@CONFD CKPTTB TLSCT )@@G@@,SSEQPT @F@@@@CONFD CMPOOL TIP,FILCTRL,CBUFCT,CHKSUM,C32NBR,C82NBRCU )@@G@@,MBUFCT @D@@@@CONFD CNSLI IONSS,AUTORECOV,SWAP,CONSOL,OPSTOP CV )@@G@@@B@@@@CONFD CNSLIT CNSN,CONSOL,OPSTOP,RTMC @H@@@@CONFD COMAVL SPUCW )@@G@@,NCSP,SSSCSP,NOMUX,CNIOC,ESIBAS,U1CONFG,U3CONFG,CSPPAR,LTG,;@B@@@@ CX )@@G@@ TERMINAL,RSICNT,IOLM,RTPROG@B@@@@CONFD COMBPC NCSP,NOMUX,TERMCY )@@G@@INAL,LTG @B@@@@CONFD COMCHN NOMUX,SUBSYSTEM,SBLEV1 @H@@@@CONFD CZ )@@G@@ COMDH NCSP,NOMUX,CNIOC,ESIBAS,DIALTM,TERMINAL,LTG,ALTERNATE,RTPROG,; DA )@@G@@@^@@@@ CSPRDP @H@@@@CONFD COME NCSP,NOMUX,ESIBAS,CNIDB )@@G@@OC,ESITMO,DIALTM,SBLEV1,SBLEV2,CSPLU,LTG,;@B@@@@ RTPROG,TEDC )@@G@@RMINAL,STPAUL @D@@@@CONFD COMILM CNIOC,ESIBAS,TERMINAL,LTG,DCLUTS,DD )@@G@@URSTRT@B@@@@CONFD COMINT NCSP,NOMUX,DCLUTS,RTPROG @^@@@@CONFD COMPODE )@@G@@L NCSP,LTG @I@@@@CONFD COMR UNIVAC,U1106,QWMODE,NCSP,NOMUX,ESIBAS,CDF )@@G@@NIOC,ESITMO,LTG,TERMINAL,; @A@@@@ RTPROG,U1CONFG,CSPRDPDG )@@G@@@E@@@@CONFD COMROU NCSP,NOMUX,CNIOC,ESIBAS,TERMINAL,LTG,RTPROG @H@@@@DH )@@G@@CONFD COMS NCSP,NOMUX,CNIOC,ESIBAS,REPS,TERMINAL,LTG,ALTERNATE,RTPRODI )@@G@@G,; @ @@@@ SBLEV1,CSPRDP @A@@@@CONFD COMSU2 UNIVAC,UWDJ )@@G@@RITP,MAXBDI @I@@@@CONFD COMT U1106,INCORE,NCSP,NOMUX,CNIOC,ESIBAS,ESDK )@@G@@ITMO,TERMINAL,ALTERNATE,; @B@@@@ RTPROG,LTG,SBLEV1,CSPDL )@@G@@RDP @C@@@@CONFD COR$VT TIP,FILCTRL,VTRECS,TRMXVT,VI3DIG @B@@@@CONFD DM )@@G@@ CPLOGS TIP,CBUFCT,CHKSUM,MBUFCT @I@@@@CONFD CSA UNIVAC,AFICM,REDN )@@G@@PS,RSICNT,MAXOPN,SWAP,SBLEV1,SBLEV3,LTG,TERMINAL,; @A@@@@ DO )@@G@@ LIBTE,UWRITP,FPRSC @ @@@@CONFD CSF MAXLOG,RSICNT @^@@@@CONFD DP )@@G@@ CSFMOD RSICNT @]@@@@CONFD CSI @^@@@@CONFD CSI1 STPAUL @ @@@@DQ )@@G@@CONFD CSI2 AUTORECOV,SWAP @B@@@@CONFD CSK CONNECT,SUBSYSTEM,SBLDR )@@G@@EV1 @I@@@@CONFD CSN UNIVAC,STPAUL,CLRCOR,STDPAG,STDBOT,SAFHDG,SHDDS )@@G@@GSP,CMSS,CMSL,MASS,; @C@@@@ ACCTON,OVERACC,OVRUSR,USERODT )@@G@@N,TIP @H@@@@CONFD CSP UNIVAC,STPAUL,ERACCNT,CLRCOR,STDPAG,STDBOT,SADU )@@G@@FHDG,SHDGSP,ROPT,;@G@@@@ ACCTON,OVRACC,OVRUSR,RESTRICT,STDDV )@@G@@ACC,USERON,PCTMAX,TIP @ @@@@CONFD CSPAT2 STPAUL,UNIVAC @A@@@@CONFD DW )@@G@@ CSPCOM IONSS,NCSP,CSPRDP @C@@@@CONFD CSPDEM UNIVAC,CMSL,MASS,ACCTDX )@@G@@ON,USERON @^@@@@CONFD CSPERR NCSP @A@@@@CONFD CSPESI NCSP,RTPRDY )@@G@@OG,CSPRDP @F@@@@CONFD CSPIH NCSP,UNIVAC,SSSCSP,CSPRDP,RTPROG,STPAULDZ )@@G@@,ICACOL @A@@@@CONFD CSPIN NCSP,UNIVAC,SSSCSP @B@@@@CONFD CSPINEA )@@G@@R NCSP,UNIVAC,STPAUL,SSSCSP @C@@@@CONFD CSPIO NCSP,UNIVAC,STPAUL,CSEB )@@G@@PRDP,RTPROG @ @@@@CONFD CSPMSS NCSP,CSPRDP @B@@@@CONFD CSPOUT NCSEC )@@G@@P,SSSCSP,UNIVAC,STPAUL @D@@@@CONFD CSPREC NCSP,SSSCSP,UNIVAC,CSPRDP,RED )@@G@@TPROG,STPAUL@ @@@@CONFD CSPRMI STPAUL,NCSP @ @@@@CONFD CSPRMO STPEE )@@G@@AUL,NCSP @H@@@@CONFD CSPSON NCSP,SSSCSP,UNIVAC,CSPRDP,RTPROG,LTG,TEEF )@@G@@RMINAL,DCLUTS,RSICNT @B@@@@CONFD CSPSSS NCSP,SSSCSP,UNIVAC,CSPRDP EG )@@G@@@E@@@@CONFD CSPSUB NCSP,UNIVAC,STPAUL,NOMUX,SUBSYSTEM,TERMINAL @B@@@@EH )@@G@@CONFD CSPUTL NCSP,STPAUL,EXPRT,CSPRDP @A@@@@CONFD CSTART MASS,ACCTEI )@@G@@ON,USERON @H@@@@CONFD DA UNIVAC,STPAUL,CNIOC,ESIBAS,RTPROG,MAXOPEJ )@@G@@N,SWAP,DMIN,DINC,DMAX,; @G@@@@ AUTORECOV,STORE,RSICNT,SBLEEK )@@G@@V1,SBLEV2,SBLEV3,SIPDAT,TIP @H@@@@CONFD DACCC IONSS,UNIVAC,STPAUL,REL )@@G@@TPROG,UWRITP,STORE,RSICNT,SWAP,MAXOPN,; @D@@@@ SBLEV1,SBEM )@@G@@LEV2,SBLEV3,SUBSYSTEM,OLM,TIP @ @@@@CONFD DAICRD UNIVAC,RTPROG @D@@@@EN )@@G@@CONFD DAILR UNIVAC,UWRITP,AFICM,FRRSC,SBLEV1,SBLEV3@H@@@@CONFD DALOAEO )@@G@@D UNIVAC,MAXOPN,STPAUL,SWAP,CLRCOR,AUTORECOV,SBLEV1,SBLEV3,TIP,; @A@@@@EP )@@G@@ LOG$TP,CLRTPC,FILCTRL@G@@@@CONFD DAMCOR OLM,NCSP,NOMUX,EQ )@@G@@RTPROG,CLRCOR,TERMINAL,LTG,STPAUL,SPU,ACU @I@@@@CONFD DAPA ACU,NCSP,ER )@@G@@NOMUX,RTPROG,MAXOPN,RSICNT,SWAP,AUTORECOV,STORE,CONSOL,; @F@@@@ ES )@@G@@ TERMINAL,LTG,SYMBIONT,STPAUL,SBLEV1,SBLEV3,TIP @H@@@@CONFD ET )@@G@@ DAPAM ACU,ACUNSS,SPU,MAXOPN,RSICNT,SWAP,AUTORECOV,STORE,STPAUL,OLM,; EU )@@G@@@^@@@@ UNIVAC @H@@@@CONFD DARQS STPAUL,UNIVAC,SUBSYSTEV )@@G@@EM,MAXOPN,RSICNT,SWAP,AUTORECOV,STORE,; @^@@@@ SBLEV1 EW )@@G@@@^@@@@CONFD DART RTPROG @H@@@@CONFD DASI UNIVAC,STPAUL,SBLEV1,EX )@@G@@SBLEV2,SBLEV3,CLRCOR,STORE,RSICNT,IONSS @H@@@@CONFD DC NMSA,IODBEY )@@G@@UG,UNIVAC,STPAUL,IOLM,SBLEV1,INCORE,SUBSYSTEM,SMSADV,;@C@@@@ EZ )@@G@@ IOAUACR,IOAUSTR,IOAUCHI,DCBOOT @^@@@@CONFD DCTBEL SYMBIONT @A@@@@FA )@@G@@CONFD DCTCP SYMBIONT,SUBSYSTEM @A@@@@CONFD DCTCR SYMBIONT,SUBSYSFB )@@G@@TEM @^@@@@CONFD DCTERM SYMBIONT @A@@@@CONFD DCTINT SYMBIONT,SUBSYSFC )@@G@@TEM @A@@@@CONFD DCTPR SYMBIONT,SUBSYSTEM @^@@@@CONFD DCTPRB SYMFD )@@G@@BIONT @C@@@@CONFD DCTRES SYMBIONT,STPAUL,USAMOD,SUBSYSTEM @I@@@@CONFD FE )@@G@@ DH IOLM,CNIOC,ESIBAS,DHLACE,DHLACH,DHLAC8,SBLEV1,CONNECT,SUBSYSTEMFF )@@G@@,; @A@@@@ NMSA,CHNPAR,IODBUG @I@@@@CONFD DISP UNIFG )@@G@@VAC,STPAUL,U1106,OLM,NCSP,NOMUX,CNIOC,ESIBAS,ESITMO,TLS,REPS,; @H@@@@FH )@@G@@ RTPROG,SBLEV1,SBLEV2,SBLEV3,TERMINAL,LTG,GROUP,GCCINT,ACCFI )@@G@@TON,; @A@@@@ TIP,LOG$TP,US$ER @A@@@@CONFD DKEY EXSFJ )@@G@@NAP,EXPRINT,DCLUTS@C@@@@CONFD DLABEL SUBSYSTEM,CKSM,STPAUL,FIXEDISC FK )@@G@@@D@@@@CONFD DPREP DCBOOT,SYSPRP,FASTSK,STPAUL,CKSM,TIP @G@@@@CONFD FL )@@G@@ DRC EXSNAP,DCLUTS,CONNECT,SUBSYSTEM,FIXEDISC,MASS,QGROUP @A@@@@FM )@@G@@CONFD DUMP NIOAU,CAUIPAR,STORE @B@@@@CONFD D5AILM WATTIM,TERMINALFN )@@G@@,LTG,RSICNT @H@@@@CONFD D5CCR DCT500,D5TTON,SATLMT,TRY2,TERMINAL,LTG,FO )@@G@@D5LINE,D5SATM,FRID71,; @F@@@@ TTYCNT,NOMUX,RSICNT,OUTPAR,FP )@@G@@DMDPAR,TEKTRO,SUBSYSTEM @H@@@@CONFD D5CRIT DCT500,D5LINE,D5SATM,TTYWDTFQ )@@G@@,FRID71,TTYCNT,LTG,NOMUX,RSICNT,; @^@@@@ TEKTRO @I@@@@FR )@@G@@CONFD EIH MPHW,UNIVAC,NCSP,NOMUX,RTPROG,UWRITP,LTG,TERMINAL,SBLEV1,FS )@@G@@SBLEV4,; @C@@@@ SBLEV5,MAXTUX,CAUSTRP,CAUGRSP @ @@@@FT )@@G@@CONFD ERRF0 RTPROG,TIP @A@@@@CONFD ESHS ESSIZE,SUBSYSTEM FU )@@G@@@A@@@@CONFD EXBKSG EXSNAP,EXPRINT,EXPRT @I@@@@CONFD EXERR ACU,SPU,MFV )@@G@@PHW,STPAUL,NOMUX,DCBOOT,AUTORECOV,SWAP,CONSOL,TERMINAL,; @F@@@@ FW )@@G@@ LTG,FNCCHK,NIOAU,CAUSTRP,CAUGRSP,DBLOCK,UNIVAC,TIP @H@@@@CONFD FX )@@G@@ EXITF0 NCSP,NOMUX,RTPROG,TERMINAL,LTG,SBLEV1,SBLEV2,SIPDAT,UNIVAC,; FY )@@G@@@B@@@@ STORE,RSICNT,SBLEV3,TIP @C@@@@CONFD EXMISC UNIFZ )@@G@@VAC,QWMODE,RTPROG,EXPRIM,TIP @H@@@@CONFD EXPOOL UNIVAC,EXPSPL,EXPRIM,GA )@@G@@EXPEXP,EXPTRACE,PRIEXP,SBLEV1,SBLEV3,; @C@@@@ SBLEV4,MAGB )@@G@@XOPN,STPAUL,POOLSIZE @A@@@@CONFD EX8BUF NOMUX,ESIBAS,NIOAU @H@@@@GC )@@G@@CONFD EX8LOD SPU,FNCCHK,XRESEG,XRPSEG,XTPSEG,SYMBIONT,NCSP,U1CONFG,U3CGD )@@G@@ONFG,;@H@@@@ NOS93,RTPROG,REPS,URSCNT,SBLEV1,EXSNAP,EXPRINGE )@@G@@T,DCLUTS,QWMODE,; @H@@@@ ESSIZE,NMSA,CAUSTRP,CAUGRSP,IOAUSGF )@@G@@TR,IOAUACR,IOAUCHI,GCCINT,; @E@@@@ DCBOOT,SYSPRP,SSSCSP,GG )@@G@@SUBSYSTEM,RSICNT,TIP @H@@@@CONFD EX8MAP URSCNT,NCSP,SYMBIONT,U1CONFGH )@@G@@G,U3CONFG,REPS,RSICNT,NOS93,RTPROG,;@H@@@@ SPU,ESSIZE,SBLEGI )@@G@@V1,QWMODE,GCCINT,EXSNAP,EXPRINT,XRESEG,XRPSEG,; @H@@@@ XTPGJ )@@G@@SEG,NMSA,CAUSTRP,CAUGRSP,IOAUSTR,IOAUACR,IOAUCHI,SUBSYSTEM,;@A@@@@ GK )@@G@@ SSSCSP,DCBOOT,TIP @I@@@@CONFD E8END TTYSTC,DCTSTC,RT4STC,GL )@@G@@MAXOPN,TTYCNT,SWAP,EXPRIM,EXPADJ,TERMINAL,; @H@@@@ LTGGM )@@G@@,REMOTE,SYMBIONT,U1CONFG,U3CONFG,TSITE,DCT500,NCSP,URSCNT,; @F@@@@ GN )@@G@@ D5LINE,D5SATM,GROUP,RSICNT,STATN,STNGRP,GCCMIN,TIP @ @@@@CONFD GO )@@G@@ E8ID STPAUL,SITEID @H@@@@CONFD FALL ESIBAS,MSW1,MSW5,DCBOOT,SUBGP )@@G@@SYSTEM,MAXOPN,EXSNAP,EXPRINT,CKSM,; @ @@@@ MASS,QGROUP GQ )@@G@@@E@@@@CONFD FASEC CNIOC,ESIBAS,SUBSYSTEM,EXSNAP,EXPRINT,CKSM @B@@@@GR )@@G@@CONFD FCUI TLS,TERMINAL,LTG,SUBSYSTEM @ @@@@CONFD FC$ASG TIP,FILCTGS )@@G@@RL @ @@@@CONFD FC$BLD TIP,FILCTRL @ @@@@CONFD FC$DER TIP,FILCTGT )@@G@@RL @ @@@@CONFD FC$DSS TIP,FILCTRL @ @@@@CONFD FC$FDC TIP,FILCTGU )@@G@@RL @H@@@@CONFD FC$FDT TIP,KONSFL,FILCTRL,C32NBR,C82NBR,TIMDAYS,TIMLGV )@@G@@NKBLKS,TRMXVT,; @F@@@@ LNKBLKS,MINBLKS,DAYBLKS,FIXPID,POGW )@@G@@LPID,AAANMR,AAASCR@ @@@@CONFD FC$FSC TIP,FILCTRL @ @@@@CONFD FC$GTGX )@@G@@S TIP,FILCTRL @ @@@@CONFD FC$IET TIP,FILCTRL @ @@@@CONFD FC$INGY )@@G@@T TIP,FILCTRL @B@@@@CONFD FC$LFC TIP,FILCTRL,FLFCTR,LOG$TP @A@@@@GZ )@@G@@CONFD FC$LLX TIP,FILCTRL,LOG$TP @ @@@@CONFD FC$LOW TIP,FILCTRL HA )@@G@@@ @@@@CONFD FC$LST TIP,FILCTRL @ @@@@CONFD FC$MSG TIP,FILCTRL HB )@@G@@@ @@@@CONFD FC$MSU TIP,FILCTRL @ @@@@CONFD FC$RCT TIP,FILCTRL HC )@@G@@@ @@@@CONFD FC$REL TIP,FILCTRL @ @@@@CONFD FC$RES TIP,FILCTRL HD )@@G@@@ @@@@CONFD FC$RFS TIP,FILCTRL @ @@@@CONFD FC$ROL TIP,FILCTRL HE )@@G@@@ @@@@CONFD FC$RR TIP,FILCTRL @ @@@@CONFD FC$RWD TIP,FILCTRL HF )@@G@@@A@@@@CONFD FC$SNP TIP,FILCTRL,LOG$TP @A@@@@CONFD FC$SS TIP,FILCTHG )@@G@@RL,LOG$TP @ @@@@CONFD FC$SSP TIP,FILCTRL @I@@@@CONFD FC$SUB TIPHH )@@G@@,KONSFL,FILCTRL,CBUFCT,C32NBR,C82NBR,TIMCTRL,TIMDAYS,VI$DEV,; @H@@@@HI )@@G@@ TIMLNKBLKS,TRMXVT,PR$DEV,TI$DEV,SE$DEV,SY$DEV,SS$DEV,VA$DHJ )@@G@@EV,; @H@@@@ LNKBLKS,MINBLKS,DAYBLKS,FIXPID,POLPID,AAANMR,HK )@@G@@AAASCR,LOG$TP @ @@@@CONFD FC$TBL TIP,FILCTRL @ @@@@CONFD FC$UTHL )@@G@@ TIP,FILCTRL @F@@@@CONFD FH IODBUG,IOLM,SBLEV1,CONNECT,SUBSYSHM )@@G@@TEM,NMSA,CHNPAR @C@@@@CONFD FHR CONNECT,SUBSYSTEM,NMSA,CHNPAR HN )@@G@@@E@@@@CONFD FIASG NMSA,EXSNAP,NCSP,NOMUX,TERMINAL,LTG,GROUP @A@@@@HO )@@G@@CONFD FIBLOK DBLOCK,SPU,ACU,ESSIZE@H@@@@CONFD FIBRKI NMSA,EXSNAP,NCSHP )@@G@@P,NOMUX,TFEXP,TFMAX,TERMINAL,LTG,SUBSYSTEM,; @C@@@@ ARBHQ )@@G@@DSK,ARBDRM,WHLDRM,GROUP,ACCTON@H@@@@CONFD FICKAC NMSA,EXSNAP,NCSP,NOMUHR )@@G@@X,CNIOC,ESIBAS,TERMINAL,LTG,CSPLU,CSPRDP,;@^@@@@ DCLUTS HS )@@G@@@I@@@@CONFD FICKAF NMSA,EXSNAP,NCSP,NOMUX,TERMINAL,LTG,SUBSYSTEM,ARBDSHT )@@G@@K,STPAUL,IONSS @F@@@@CONFD FICKAT NMSA,EXSNAP,NCSP,NOMUX,TERMINAL,LHU )@@G@@TG,SUBSYSTEM,IOLM @G@@@@CONFD FICRIT NMSA,EXSNAP,NCSP,NOMUX,MAXGRN,TERHV )@@G@@MINAL,LTG,GROUP,CSPRDP @H@@@@CONFD FIFREE STPAUL,NCSP,NOMUX,CNIOC,ESIHW )@@G@@BAS,TLS,PRIVAC,TERMINAL,LTG,RTPROG,;@A@@@@ SBLEV1,SBLEV5,CHX )@@G@@KSM @^@@@@CONFD FIHOLD SBLEV1 @B@@@@CONFD FIMAIN EXSNAP,NHOLDT,SHY )@@G@@BLEV1,SBLEV5@H@@@@CONFD FIRVSU ACU,SPU,OLM,NCSP,NOMUX,ESSIZE,DCLUTS,STHZ )@@G@@ORE,CONNECT,SUBSYSTEM,; @ @@@@ CKSM,IONSS @H@@@@CONFD IA )@@G@@ FISTDN ACU,SPU,ACUNSS,SPUNSS,NCSP,NMSA,ESSIZE,NOMUX,OLM,DCLUTS,STORE,;IB )@@G@@@B@@@@ NIOAU,CONNECT,IONSS,DCBOOT @H@@@@CONFD FISTUP ACUIC )@@G@@,SPU,ACUNSS,SPUNSS,NCSP,NMSA,ESSIZE,NOMUX,AUTORECOV,DCLUTS,;@F@@@@ ID )@@G@@ SUBSYSTEM,STORE,NIOAU,CONNECT,OLM,SYMBIONT,IONSS @B@@@@CONFD IE )@@G@@ FISUMM CONNECT,SUBSYSTEM,DCLUTS @^@@@@CONFD FIUMQ NMSA,IOLM@F@@@@IF )@@G@@CONFD FLTLOG CAUSTRP,CAUGRSP,CAUIPAR,IOAUSTR,IOAUACR,IOAUCHI @H@@@@IG )@@G@@CONFD FNCCNT UNIVAC,FNCCHK,FCDBSZ,SBLEV1,SBLEV3,STORE,XRESEG,XRPSEG,XTIH )@@G@@PSEG,;@H@@@@ SYMBIONT,U1CONFG,U3CONFG,NOS93,RTPROG,SPU,REPII )@@G@@S,URSCNT,SBLEV2,; @I@@@@ SBLEV4,STPAUL,EXSNAP,EXPRINT,NCSPIJ )@@G@@,NMSA,CAUSTRP,CAUGRSP,IOAUSTR,; @H@@@@ IOAUACR,IOAUCHIIK )@@G@@,GCCINT,ESSIZE,QWMODE,OVSIZE,SIPDAT,SUBSYSTEM,; @A@@@@ SSSIL )@@G@@CSP,DCBOOT,TIP @F@@@@CONFD FREL CNIOC,ESIBAS,SUBSYSTEM,EXSNAP,EXPIM )@@G@@RINT,CKSM,QGROUP @E@@@@CONFD FRSEC CNIOC,ESIBAS,SUBSYSTEM,EXSNAP,EXPIN )@@G@@RINT,CKSM @I@@@@CONFD FSMCT ACU,SPU,IONSS,AUTORECOV,NMSA,NIOAU,NCSPIO )@@G@@,NOMUX,DCLUTS,STORE,CKSM,; @ @@@@ CONNECT,ESSIZE @D@@@@IP )@@G@@CONFD GCCERA RS$TRA,STPAUL,GCCBAT,GCCPUN,GCCDEM @B@@@@CONFD GCCFUIQ )@@G@@N GCCBAT,GCCPUN,STPAUL,GCCDEM@A@@@@CONFD GENCCR RS$TRA,GCCPUN,GCCBAT IR )@@G@@@A@@@@CONFD GTLDCD SYMBIONT,SSSCSP,NCSP @H@@@@CONFD IH NMSA,LTG,IS )@@G@@TERMINAL,NOS93,MPHW,UNIVAC,NCSP,NOMUX,SBLEV1,SIPIO,; @G@@@@ IT )@@G@@ NIOAU,RTPROG,CNIOC,NMHSP,IOAUACR,IOAUSTR,IOAUCHI,CAUIPAR @I@@@@CONFD IU )@@G@@ IHESI MPHW,STPAUL,NOMUX,CNIOC,ESIBAS,SBLEV1,TERMINAL,LTG,CONNECT,NCSPIV )@@G@@,; @^@@@@ SUBSYSTEM@A@@@@CONFD IHTEMP NOMUX,ESIBAS,LTIW )@@G@@G @I@@@@CONFD INASG EXSNAP,EXPRINT,MAXOPN,RSICNT,SWAP,AUTORECOV,SIX )@@G@@TORE,TERMINAL,LTG,; @H@@@@ URSCNT,URDBUG,ACCS,ACCL,CMSIY )@@G@@S,CMSL,TMPSS,TMPSL,TUSS,TUSL,DUSS,; @I@@@@ DUSL,SYMS,SYML,IZ )@@G@@AMPRIOR,AAPRIOR,ADEDLN,ARTLVL,AXCEED,ASUAS,FIXS,; @H@@@@ JA )@@G@@ FIXL,TAPS,TAPL,DISCS,DISCL,MASS,MASL,QQSTRT,QQSTOP,QRTL,QQSET,;@H@@@@JB )@@G@@ QPAGES,QCARDS,QCBSIZ,QMPRIOR,QSUPS,QVDT,QDES1,QDES2,ATOCLJC )@@G@@,; @H@@@@ OVRUSR,STDACC,STDUSR,USERON,QCONECT,QVACNT,ACJD )@@G@@CTON,OVRACC,; @I@@@@ NTAP(1),NTAP(2),NTAP(3),NTAP(4),NJE )@@G@@TAP(5),QTAP(1),QTAP(2),QTAP(3),; @H@@@@ QTAP(4),QTAP(5)JF )@@G@@,NDISC(1),NDISC(2),NDISC(3),NDISC(4),NDISC(5),; @I@@@@ QDIJG )@@G@@SC(1),QDISC(2),QDISC(3),QDISC(4),QDISC(5),QRTMS(1),QRTMS(2),; @I@@@@JH )@@G@@ QRTMS(3),QRTMS(4),QRTMS(5),QRTMS(6),QRTMS(7),QRTMS(8),QRCJI )@@G@@MS(1),; @I@@@@ QRCMS(2),QRCMS(3),QRCMS(4),QRCMS(5),QRCJJ )@@G@@MS(6),QRCMS(7),QRCMS(8),; @I@@@@ AACMS(1),AACMS(2),AACJK )@@G@@MS(3),AACMS(4),AACMS(5),AACMS(6),AACMS(7),; @^@@@@ AACJL )@@G@@MS(8) @H@@@@CONFD INDA IONSS,DHLACE,DHLACH,DHLAC8,DCBOOT,MAXBDI,AUTOJM )@@G@@RECOV,SWAP,STORE,;@H@@@@ TERMINAL,LTG,REENTRANT,LIBTE,DCLUJN )@@G@@TS,SUBSYSTEM,STPAUL,FIXEDISC,;@^@@@@ FNCCHK @H@@@@CONFD JO )@@G@@ INDRIV NMSA,IONSS,STPAUL,EXSNAP,EXPRINT,NCSP,NOMUX,REBOOTCT,TERMINAL,;JP )@@G@@@I@@@@ LTG,REENTRANT,LIBTE,CONNECT,SUBSYSTEM,CSHRCV,NIOAU,JQ )@@G@@CSPRDP,CKSM,; @H@@@@ DCLUTS,ESSIZE,SPU,DIAGTYP,TPFTYP,JR )@@G@@DBLOCK,OVRACC,OVRUSR,LOGTYP,; @ @@@@ LOGEOF,TIP @D@@@@JS )@@G@@CONFD INGEN COR$MAX,TERMINAL,LTG,SYMBIONT,STPAUL @H@@@@CONFD INIT1JT )@@G@@ ACU,ACUNSS,SPU,SPUNSS,NMSA,IONSS,UNIVAC,STPAUL,NOMUX,EXTCH,; @I@@@@JU )@@G@@ EXPRIM,DCBOOT,MAXBDI,SBLEV1,SIPIO,SBRUN,SBTIMEON,CONTIM,CJV )@@G@@ONNECT,; @I@@@@ SUBSYSTEM,TERMINAL,LTG,NIOAU,ESSIZE,DCLJW )@@G@@UTS,XRESEG,XRPSEG,XTPSEG,; @B@@@@ DBLOCK,SIPDAT,SBLEV3,JX )@@G@@PCTMAX@I@@@@CONFD INIT2 ACU,SPU,IONSS,UNIVAC,STPAUL,DCLUTS,DCBOOT,CLRJY )@@G@@COR,OVSIZE,ESSIZE,; @H@@@@ SWAP,AUTORECOV,LTG,TERMINALJZ )@@G@@,STORE,XTPSEG,XRESEG,XRPSEG,RTMC,; @C@@@@ CNSN,DBLOCK,ACCKA )@@G@@TON,XRRCLG,TIP @B@@@@CONFD INRESV IONSS,FIXEDISC,RESERVE @A@@@@KB )@@G@@CONFD INTLOC NOMUX,TERMINAL,LTG @H@@@@CONFD IO SPU,NMSA,IONSS,KC )@@G@@IODBUG,POOLSIZE,STORE,NOS93,STPAUL,IOLM,NCSP,; @H@@@@ NOMKD )@@G@@UX,TLS,MAXBDI,TERMINAL,LTG,SUBSYSTEM,CHNPAR,INCORE,ESSIZE,; @I@@@@ KE )@@G@@ SBLEV1,SBLEV3,SIPIO,RLTIME,GROUP,NMHSP,CAUSTRP,CAUGRSP,CAUIPAR,KF )@@G@@; @B@@@@ IOAUACR,IOAUSTR,IOAUCHI,TIP@H@@@@CONFD IOD KG )@@G@@ ACU,SPU,NMSA,IONSS,CSPRDP,NOS93,ESSIZE,UNIVAC,IOLM,NCSP,CKSM,; @I@@@@KH )@@G@@ NOMUX,CNIOC,ESIBAS,FIXEDISC,SYSPRP,AUTORECOV,SWAP,CSPCLT,KI )@@G@@CSPLU,; @I@@@@ STORE,LTG,TERMINAL,CONNECT,SUBSYSTEM,DCKJ )@@G@@LUTS,POSDIR,POS60,NIOAU,; @C@@@@ IOAUACR,IOAUSTR,IOAUCKK )@@G@@HI,CAUIPAR @#@@@@CONFD IODISC @]@@@@CONFD IODOC@C@@@@CONFD IODUSKL )@@G@@T STORE,ESSIZE,SUBSYSTEM,IONSS @]@@@@CONFD IOECC@H@@@@CONFD IOESHKM )@@G@@ SUBSYSTEM,STPAUL,IOLM,ESSIZE,IODBUG,IOAUACR,IOAUSTR,IOAUCHI,; @ @@@@KN )@@G@@ CONNECT,SBLEV1 @ @@@@CONFD IOFCS IONSS,IODBUG @H@@@@KO )@@G@@CONFD IOMSA NMSA,IODBUG,STPAUL,AUTORECOV,SWAP,CONNECT,SUBSYSTEM,INCORKP )@@G@@E,; @F@@@@ SBLEV1,SBLEV3,SIPIO,IOAUACR,IOAUSTR,IOAUCHI,IKQ )@@G@@OLM @A@@@@CONFD IOMTIM NMSA,STPAUL,DCBOOT @A@@@@CONFD IONRDT TERKR )@@G@@MINAL,LTG,IOLM @B@@@@CONFD IOSPU SPU,SPUNSS,IODBUG,STORE @H@@@@KS )@@G@@CONFD JNTRNR UCDMST,U3CDST,TERMINAL,LTG,U1CONFG,U3CONFG,SYMBIONT,SUBSYKT )@@G@@STEM,;@C@@@@ RSICNT,UCTCS,CSPLU,ACSPLU,GCCINT @I@@@@CONFD KU )@@G@@ JNTRRS NOMUX,DEDLIN,TERMINAL,LTG,TSITE,SYMCLS,U1CONFG,U3CONFG,SYMBIONTKV )@@G@@,; @E@@@@ SUBSYSTEM,RSICNT,UCTCS,DCLUTS,CSPLU,ACSPLU KW )@@G@@@H@@@@CONFD KONS TIP,COREFILE,KONSFL,KONSEC,KSECNB,KONU3L,KONSBL,KONKX )@@G@@SPW,C32NBR,;@^@@@@ C82NBR @G@@@@CONFD KPOOL UNIVAC,NOKY )@@G@@MUX,DCBOOT,CKSM,DBLOCK,SUBSYSTEM,PCTMAX,TIP @A@@@@CONFD LBYTES SYMKZ )@@G@@BIONT,SSSCSP,NCSP @C@@@@CONFD LINK UWRITP,MAXBDI,REENTRANT,REPS,LTG LA )@@G@@@ @@@@CONFD LIST LIBTE,REPS @H@@@@CONFD LOCTAB RTLEV,MAXOPN,RSLB )@@G@@ICNT,SWAP,MAXTIM,MAXPAG,MAXCRD,APRIOR,MPRIOR,; @H@@@@ DEDLC )@@G@@LIN,TRMXCO,TRMXPO,TRMXT,STPAUL,UNIVAC,SBLEV1,MASS,ACCTON,; @^@@@@ LD )@@G@@ USUAS @B@@@@CONFD LOGGER STPAUL,MASLOG,COR$MAX,TIP @H@@@@LE )@@G@@CONFD LOGIT LOGTYP,LOGEOF,SBLEV1,SBFILE,CMSL,TUSL,DUSL,SYML,ACCTON,USLF )@@G@@ERON @^@@@@CONFD LOGM COR$MAX @E@@@@CONFD MACINT TIP,CBUFCT,C32NLG )@@G@@BR,C82NBR,CMPAN1,CMPAN2,CMPAN3@#@@@@CONFD MAPBLD TIP@#@@@@CONFD MAPUPLH )@@G@@D TIP@I@@@@CONFD MCT NMSA,IONSS,U1106,ESITMO,XRRCLG,SITEID,SSEQPT,LI )@@G@@SSDENS,SPU,CONNECT,; @H@@@@ SUBSYSTEM,CONSOL,STORE,NIOALJ )@@G@@U,ESSIZE,CKSM,FIXEDISC,REBOOTCT,; @B@@@@ DBLOCK,LOGTYP,LLK )@@G@@OGSS,LOGUNIT@#@@@@CONFD MISCNR @G@@@@CONFD MSCON STPAUL,DCLUTS,FLL )@@G@@IXEDISC,SUBSYSTEM,EXSNAP,EXPRINT,CKSM @#@@@@CONFD MSPOOL @F@@@@LM )@@G@@CONFD MSUP STORE,POSDIR,POS60,ESSIZE,CKSM,SUBSYSTEM,FIXEDISC @#@@@@LN )@@G@@CONFD NAME SPU@A@@@@CONFD NEC TIP,FILCTRL,COREFILE @^@@@@CONFD LO )@@G@@ ONCPSP SYMBIONT @^@@@@CONFD ONCRSP SYMBIONT @^@@@@CONFD ONPNSP SYMLP )@@G@@BIONT @^@@@@CONFD OSCP SYMBIONT @^@@@@CONFD OSCR SYMBIONT @^@@@@LQ )@@G@@CONFD OSPN SYMBIONT @ @@@@CONFD PAKEY TIP,POLPID @^@@@@CONFD LR )@@G@@ PANCSF SSEQPT @H@@@@CONFD PANTAG ACU,ACUNSS,SPU,SPUNSS,NMSA,IONSS,LS )@@G@@IODBUG,POOLSIZE,NMHSP,NOS93,; @H@@@@ UNIVAC,STPAUL,U1106,NLT )@@G@@OMUX,ESITMO,RM9300,FIXEDISC,REPS,RTPROG,; @H@@@@ RTLEV,MAXLU )@@G@@OPN,RSICNT,SWAP,EXPSPL,EXPRIM,EXPEXP,EXPADJ,EXPTRACE,;@H@@@@ LV )@@G@@ DCBOOT,CLRCOR,FCDBSZ,SITEID,PRIEXP,UWRITP,OVSIZE,MAXBDI,STORE,;@H@@@@LW )@@G@@ AUTORECOV,REBOOTCT,TERMINAL,LTG,REENTRANT,LIBTE,ESIBAS,SCLX )@@G@@GA,; @D@@@@ CNIOC,NCSP,CSPRDP,ESSIZE,EPLACM,EPLACP @ @@@@LY )@@G@@CONFD PANWRT STPAUL,SSEQPT @#@@@@CONFD PCTDEF @D@@@@CONFD PCTLNLZ )@@G@@K MAXOPN,SWAP,AUTORECOV,UNIVAC,CLRCOR,TIP@]@@@@CONFD PFP @]@@@@CONFD MA )@@G@@ PFS1 @#@@@@CONFD PNCHCN @C@@@@CONFD PNTERR PFRCVR,PFURVR,GCCINT,MB )@@G@@SYMBIONT @ @@@@CONFD PRCLOS FIXEDISC,TIP @H@@@@CONFD PRINT$ EXSMC )@@G@@NAP,EXPRINT,E8TAPM,E8DRPM,E8IML,E8PGL,STDPAG,STDBOT,SAFHDG,;@E@@@@ MD )@@G@@ SHDGSP,PRSPMX,RSNSWP,RSNGRP,RSICNT,SCGA,TIP @]@@@@CONFD PRTCNME )@@G@@@ @@@@CONFD PRTCON PRSPMX,RSICNT @B@@@@CONFD PR$RDS STPAUL,SCGA,EXSMF )@@G@@NAP,RSICNT @ @@@@CONFD PSH TIP,DSTITV @D@@@@CONFD PST TIPMG )@@G@@,FILCTRL,LOG$TP,VTRECS,COREFILE @#@@@@CONFD PUNCH$ @ @@@@CONFD MH )@@G@@ RB9000 NOS93,IODBUG @#@@@@CONFD RDCHKP @]@@@@CONFD RDCLR@#@@@@MI )@@G@@CONFD READA$ @D@@@@CONFD READ$ STPAUL,QWMODE,SYMBIONT,RSICNT,SCGMJ )@@G@@A @C@@@@CONFD REFORK RTPROG,CLRCOR,STPAUL,PCTMAX,TIP @E@@@@CONFD MK )@@G@@ REMID UNIVAC,REPS,LTG,EXSNAP,EXPRINT,GCCINT,TIP @ @@@@CONFD RMCPCML )@@G@@ SYMBIONT,DLTYPE@^@@@@CONFD RMCRC SYMBIONT @D@@@@CONFD RMCRTN RM9MM )@@G@@300,TERMINAL,LTG,SYMBIONT,DLTYPE @A@@@@CONFD RMCTL TERMINAL,LTG,SYMN )@@G@@MBIONT@C@@@@CONFD RMDSP RM9300,TERMINAL,LTG,SYMBIONT @D@@@@CONFD MO )@@G@@ RMMSG TTYSTC,RT4STC,DEDLIN,SYMBIONT,DCLUTS @^@@@@CONFD RMPB SYMMP )@@G@@BIONT @ @@@@CONFD RMPNC SYMBIONT,DLTYPE@H@@@@CONFD RMSID URSCNT,URMQ )@@G@@STRT,TTYSTC,DCTSTC,RT4STC,MAXOPN,RSICNT,SWAP,UCDMST,; @H@@@@ MR )@@G@@ U3CDST,U1CONFG,U3CONFG,DCT500,AUTORECOV,LTG,TERMINAL,SYMBIONT,;@ @@@@MS )@@G@@ QWMODE,TTYCNT @E@@@@CONFD RMSRTN RM9300,TERMINAL,LTG,SMT )@@G@@YMBIONT,ATRON,DLTYPE @D@@@@CONFD RMSUB MAXOPN,RSICNT,SWAP,AUTORECOMU )@@G@@V,SYMBIONT @F@@@@CONFD ROLBAK DCLUTS,SSEQPT,SSDENS,AUTORECOV,SWAP,OVRMV )@@G@@ACC,OVRUSR @H@@@@CONFD ROLOUT DCLUTS,MSW1,MSW2,MSW3,MSW4,MSW5,MSTOL,MMW )@@G@@AXOPN,EXSNAP,EXPRINT,; @ @@@@ OVRACC,OVRUSR @H@@@@CONFD MX )@@G@@ ROUTNG TIP,CBUFCT,DSTITV,LOG$TP,MBUFCT,VTRECS,TRDLID,PRINQE,TRMXVT,; MY )@@G@@@^@@@@ VI3DIG @^@@@@CONFD RSIACT RSICNT @B@@@@CONFD MZ )@@G@@ RSIFIO RSNPKT,RSNSWP,RSNGRP,RSICNT@ @@@@CONFD RSIGET RSNSWP,RSICNT NA )@@G@@@^@@@@CONFD RSIMSG RSICNT @ @@@@CONFD RSIPUT LOGONS,RSICNT @H@@@@NB )@@G@@CONFD RSIQUE NCSP,NOMUX,MAXOPN,RSICNT,SWAP,AUTORECOV,U1CONFG,U3CONFG,LNC )@@G@@TG,; @F@@@@ TERMINAL,FRID71,DCT500,TTYCNT,D5LINE,D5SATM,GND )@@G@@CCINT @H@@@@CONFD RSSUBS STDPAG,STDBOT,SAFHDG,SHDGSP,MAXINQ,RSNSWP,U1CNE )@@G@@ONFG,U3CONFG,; @E@@@@ RSICNT,SYMBIONT,NCSP,LOGONS,UCTCSNF )@@G@@,GCCINT @#@@@@CONFD RSTABL @ @@@@CONFD RSTASG STPAUL,UNIVAC NG )@@G@@@#@@@@CONFD RSTDMP TLS@ @@@@CONFD RSTFID TLS,STPAUL @B@@@@CONFD NH )@@G@@ RSTIMR U1CONFG,U3CONFG,RSICNT @#@@@@CONFD RSTPAR @ @@@@CONFD NI )@@G@@ RSTRT ACCTON,USERON @H@@@@CONFD SACCNT CMSS,CMSL,FIXS,FIXL,TAPS,TANJ )@@G@@PL,DISCS,DISCL,MASS,MASL,ACCTON,; @E@@@@ ATOCL,OVRACC,RENK )@@G@@CSIZ,STDACC,STDUSR,USERON @#@@@@CONFD SCH8PF @A@@@@CONFD SEXEMNL )@@G@@ TIP,CBUFCT,MBUFCT @#@@@@CONFD SMADCL @#@@@@CONFD SMADOP NM )@@G@@@#@@@@CONFD SMALTR TIP@D@@@@CONFD SMALTS STDPAG,STDBOT,SAFHDG,SHDGSPNN )@@G@@,SMALTM @^@@@@CONFD SMCRS SYMBIONT @^@@@@CONFD SMCSI QWMODE NO )@@G@@@^@@@@CONFD SMCVT1 SYMBIONT @#@@@@CONFD SMDACT @ @@@@CONFD SMDFANP )@@G@@C SSSCSP,NCSP @C@@@@CONFD SMFILE CONNECT,SUBSYSTEM,NCSP,SSSCSP NQ )@@G@@@ @@@@CONFD SMICOL SYMBIONT,QWMODE@F@@@@CONFD SMKEY NCSP,SSSCSP,NOMNR )@@G@@UX,RSICNT,SYMBIONT,CSPRDP,IONSS @G@@@@CONFD SMLIST NCSP,SSSCSP,NOMNS )@@G@@UX,URSCNT,DEDLIN,AUTORECOV,SWAP,SYMBIONT @B@@@@CONFD SMNXTP URSCNT,SYNT )@@G@@MBIONT,RSICNT,TIP @C@@@@CONFD SMPRB9 NOMUX,AUTORECOV,SWAP,SYMBIONT NU )@@G@@@B@@@@CONFD SMPRCN GCCINT,SAFHDG,SYMBIONT @F@@@@CONFD SMQUES MAXNV )@@G@@OPN,RSICNT,SWAP,RSMAXE,AUTORECOV,TERMINAL,LTG @#@@@@CONFD SMRKEY NW )@@G@@@#@@@@CONFD SMRTRM TIP@^@@@@CONFD SMSACR SYMBIONT @^@@@@CONFD SMSAPNX )@@G@@R SYMBIONT @^@@@@CONFD SMSENT SYMBIONT @^@@@@CONFD SMSNTN SYMBIONT NY )@@G@@@#@@@@CONFD SMTPOS @G@@@@CONFD SMUPQ URSCNT,NCSP,SYMBIONT,RSICNTNZ )@@G@@,CSPRDP,QWMODE,FIXEDISC,TIP @^@@@@CONFD SNAP EXSNAP @A@@@@CONFD OA )@@G@@ SN$AP U1106,EXSNAP,ESITMO @B@@@@CONFD SQKEY URSCNT,SUBSYSTEM,SYMBOB )@@G@@IONT @E@@@@CONFD SRKEY SSEQPT,SUBSYSTEM,FIXEDISC,URSCNT,SYMBIONT OC )@@G@@@#@@@@CONFD SSUTIL TIP@C@@@@CONFD SVKEY SSEQPT,URSCNT,SUBSYSTEM,SYMOD )@@G@@BIONT @C@@@@CONFD SXKEY SSEQPT,SUBSYSTEM,SYMBIONT,URSCNT @^@@@@CONFD OE )@@G@@ SYMACT SBLEV1 @F@@@@CONFD SYMBIO SCGA,MAXF4,MAXF8,MAXF17,CONNECT,SOF )@@G@@UBSYSTEM,UNIVAC @G@@@@CONFD SYMBKP STDPAG,STDBOT,SAFHDG,SHDGSP,NCSP,OG )@@G@@URSCNT,RSICNT,FIXEDISC @B@@@@CONFD SYMBUF EXSNAP,EXPRINT,SYMBIONT OH )@@G@@@^@@@@CONFD SYMCLC SCGA @ @@@@CONFD SYMCOR IONSS,STPAUL @ @@@@OI )@@G@@CONFD SYMCRS SYMBIONT,ASGSCN@D@@@@CONFD SYMICR STPAUL,TERMINAL,LTG,SOJ )@@G@@YMBIONT,ASGSCN @^@@@@CONFD SYMPCH SYMBIONT @^@@@@CONFD SYMPER SYMOK )@@G@@BIONT @E@@@@CONFD SYMPRB NCSP,CSPRDP,NOMUX,SYMBIONT,STPAUL,SSSCSP OL )@@G@@@I@@@@CONFD SYMPRS U1106,ESITMO,STDPAG,STDBOT,SAFHDG,SHDGSP,SYMBIONT,UOM )@@G@@RSCNT,SSSCSP,; @A@@@@ NCSP,SMSADV,GCCINT @E@@@@CONFD ON )@@G@@ SYMPUS PCHHDG,PCHMSG,SYMBIONT,URSCNT,SSSCSP,NCSP @ @@@@CONFD SYM75OO )@@G@@1 PRLOOP,SYMBIONT@I@@@@CONFD SYSBAL IONSS,UNIVAC,FCDBSZ,SBLEV1,SBLEV2OP )@@G@@,SBLEV3,SBLEV4,SBLEV5,SBTIMEON,; @H@@@@ SIPIO,SBFILE,SBOQ )@@G@@RUN,CONTIM,CONNECT,SUBSYSTEM,NMSA,STORE,RTPROG,;@H@@@@ SYMOR )@@G@@BIONT,REENTRANT,EXSNAP,EXPRINT,NCSP,U1CONFG,U3CONFG,NOS93,; @H@@@@ OS )@@G@@ CAUSTRP,CAUGRSP,IOAUSTR,IOAUACR,IOAUCHI,SPU,GCCINT,ESSIZE,; OT )@@G@@@E@@@@ URSCNT,QWMODE,SIPDAT,PRIEXP,SSSCSP,IOLM,TIP @I@@@@OU )@@G@@CONFD SYSSIP SYMBIONT,SBLEV1,SBLEV2,SBLEV3,SIPIO,CONTIM,SBFILE,SBRUN,COV )@@G@@ONTIM,; @H@@@@ SBTIMEON,NOMUX,NCSP,EXSNAP,EXPRINT,REENOW )@@G@@TRANT,RTPROG,U1CONFG,; @I@@@@ U3CONFG,NOS93,NMSA,CAUSTRP,OX )@@G@@CAUGRSP,IOAUSTR,IOAUACR,IOAUCHI,SPU,; @H@@@@ GCCINT,ESOY )@@G@@SIZE,URSCNT,QWMODE,SIPDAT,SSSCSP,SUBSYSTEM,IOLM,TIP @C@@@@CONFD TA OZ )@@G@@ STPAUL,CONNECT,SUBSYSTEM,NMSA @#@@@@CONFD TERLBL @F@@@@CONFD PA )@@G@@ TERM UNIVAC,REPS,RTPROG,NCSP,NOMUX,LTG,TERMINAL,TIP @A@@@@CONFD PB )@@G@@ TEST1 IONSS,STPAUL,IOLM @I@@@@CONFD TH IODBUG,UNIVAC,IOLM,TLPC )@@G@@S,SUBSYSTEM,IOAUACR,IOAUCHI,IOAUSTR,CAUIPAR @D@@@@CONFD THR IOLPD )@@G@@M,SUBSYSTEM,CAUIPAR,IOAUCHI,TLS @H@@@@CONFD TIME ACU,SPU,NCSP,NOPE )@@G@@MUX,AUTORECOV,SWAP,SBLEV1,TERMINAL,LTG,CONNECT,;@B@@@@ SUBPF )@@G@@SYSTEM,RTPROG,REMOTE,TIP@H@@@@CONFD TIMER TIP,TIMCTRL,TIMDAYS,TIMLNKBPG )@@G@@LKS,LNKBLKS,MINBLKS,DAYBLKS,FILCTRL @H@@@@CONFD TIMREQ TIP,TIMCTRL,TIMPH )@@G@@DAYS,TIMLNKBLKS,LNKBLKS,MINBLKS,DAYBLKS,FILCTRL @ @@@@CONFD TINTL TLSPI )@@G@@,PRIVAC @E@@@@CONFD TIPDSP TIP,FILCTRL,LOG$TP,TIMCTRL,US$ER,COREFIPJ )@@G@@LE @ @@@@CONFD TIPFUN TIP,COREFILE @ @@@@CONFD TIPKEY TIP,LOG$TPK )@@G@@P @A@@@@CONFD TIPLOD TIP,CLRTPC,LOG$TP @#@@@@CONFD TIPMIS TIPPL )@@G@@@#@@@@CONFD TIPSNP TIP@#@@@@CONFD TIPTRM TIP@D@@@@CONFD TLABEL QWMPM )@@G@@ODE,TLS,TPOWN,TLSIMP,PRIVAC,STPAUL @ @@@@CONFD TLANSI QWMODE,TLSIMP PN )@@G@@@^@@@@CONFD TLTRAL QWMODE @G@@@@CONFD TM TLS,SUBSYSTEM,IOLM,STPO )@@G@@PAUL,IODBUG,IOAUACR,IOAUSTR,IOAUCHI @ @@@@CONFD TMR SUBSYSTEM,IOLM PP )@@G@@@H@@@@CONFD TODRUM NCSP,NOMUX,AUTORECOV,SWAP,CSPCLT,CSPLU,ACSPLU,STATNPQ )@@G@@,TERMINAL,; @I@@@@ STNGRP,LTG,REMOTE,TSITE,D5LINE,D5SATM,SPR )@@G@@YMCLS,DCLUTS,GROUP,CSPAUX @D@@@@CONFD TOUT CNIOC,ESIBAS,HBM,U1COPS )@@G@@NFG,RSICNT,UCTCS @ @@@@CONFD TPLOGM TIP,LOG$TP @ @@@@CONFD TPLOGPT )@@G@@R TIP,LOG$TP @H@@@@CONFD TP$INT TIP,COREFILE,KONSFL,FILCTRL,TIMCTPU )@@G@@RL,TIMLNKBLKS,INTFLS,MIN432,; @G@@@@ MAX432,MIN782,MAX782,PV )@@G@@MINIF2,MAXIF2,TYP432,TYP782,TYPEF2 @^@@@@CONFD TRACER SYMBIONT @H@@@@PW )@@G@@CONFD TRACES NCSP,TERMINAL,LTG,SYMBIONT,U1CONFG,U3CONFG,NOS93,RTPROG,SPX )@@G@@PU,; @I@@@@ REPS,URSCNT,SBLEV1,EXSNAP,EXPRINT,NMSA,CAUSTRPY )@@G@@P,CAUGRSP,IOAUSTR,; @G@@@@ IOAUACR,IOAUCHI,GCCINT,ESSIPZ )@@G@@ZE,QWMODE,SSSCSP,SYBSYSTEM,TIP@#@@@@CONFD TREAD$ @H@@@@CONFD TRFUNQA )@@G@@C TIP,FILCTRL,CBUFCT,LOG$TP,STATXN,TIMCTRL,VTRECS,VI3DIG,TRMXVT,;@A@@@@QB )@@G@@ PRINQE,POLPID,TPTELE @#@@@@CONFD TSSRES @H@@@@CONFD QC )@@G@@ TSTPCT STPAUL,EXTCH,MAXBDI,TERMINAL,LTG,REENTRANT,CONNECT,SUBSYSTEM QD )@@G@@@ @@@@CONFD TSWAP TLS,PRIVAC @#@@@@CONFD TSWCNT @B@@@@CONFD QE )@@G@@ TSWFIL TLS,PRIVAC,LOGTYP,LOGEOF @#@@@@CONFD TSWMSH TLS@E@@@@CONFD QF )@@G@@ UCDMCT HBM,U1CONFG,SYMBIONT,RSICNT,UCTCS,U1DELY @C@@@@CONFD UCDMIQG )@@G@@N HBM,U1CONFG,SYMBIONT,RSICNT,UCTCS@H@@@@CONFD UKEYIN IONSS,NCSP,NOMUQH )@@G@@X,FNCCHK,SBLEV1,CNSN,CONSOL,URSCNT,QWMODE,RTMC,;@B@@@@ CKSQI )@@G@@M,SUBSYSTEM,TIP,LOG$TP @^@@@@CONFD UPREG SUBSYSTEM@A@@@@CONFD UPROAQJ )@@G@@R SUBSYSTEM,LASTRK @F@@@@CONFD VALA QWMODE,LOGONS,REMUSE,NOMUX,QK )@@G@@NCSP,LTG,TERMINAL,RSICNT@A@@@@CONFD XKEY UNIVAC,SUBSYSTEM @^@@@@QL )@@G@@CONFD ZRCOMP SUBSYSTEM@^@@@@CONFD ZREXPD SUBSYSTEM@^@@@@CONFD ZRIN QM )@@G@@ SUBSYSTEM@C@@@@CONFD ZRMAIN SUBSYSTEM,URDBUG,SYMBIONT,URSTRT @^@@@@QN )@@G@@CONFD ZROUT SUBSYSTEM@A@@@@CONFD ZSASNC SUBSYSTEM,URDBUG @B@@@@QO )@@G@@CONFD ZSINTS SUBSYSTEM,URDBUG,SYMBIONT @B@@@@CONFD ZSKEY SUBSYSTEMQP )@@G@@,URDBUG,SYMBIONT @^@@@@CONFD ZSPOOL SUBSYSTEM@B@@@@CONFD ZSTERM SUBQQ )@@G@@SYSTEM,URDBUG,SYMBIONT ___TEM,RTPROG,REMOTE,TIP@H@@@@CONFD TIMER TIPQR )@@G@@,TIMCTRL,TIMDAYS,TIMLNKBLKS,LNKBLKS,MINBLKS,DAYBLKS,FILCTRL @H@@@@CONFD QS )@@G@@ TIMREQ TIP,TIMCTRL,TIM*[S@@@*SDFF*@[@@@@*DACCC@]@@@@-561,563 @C@@@@QT )@@G@@ L A0,CLPTYPE,A2 . RUN TYPE@B@@@@ TNE,U QU )@@G@@ A0,DEMAND . @B@@@@ TLE,U A4,SPRD+CPLEV+1 . QV )@@G@@@]@@@@-2362,2362 @B@@@@ L A1,PCQEA,A0 . @C@@@@QW )@@G@@ L A1,CLPTYPE,A1 . RUN TYPE@]@@@@*DALOAD @#@@@@QX )@@G@@-40 DALOAD @B@@@@ AU A2,PCBDI,A0 . @B@@@@QY )@@G@@ L A5,BDPSR,A3 . @H@@@@ TEP,U A5,1QZ )@@G@@*/16 . $T CONTROL BANK WRITE PROTECTED ? @E@@@@ J RA )@@G@@ SEGER1 . $A YES,SEGER1 NO @#@@@@-56,56 DALOAD RB )@@G@@@H@@@@ A A5,BCLL,A2 . BASE + RELATIVE START = ABRC )@@G@@S ADDRESS @C@@@@ LSSL A5,9 . IN WORDS@B@@@@RD )@@G@@ L X10,A5 . @[@@@@*DAPAM@#@@@@-307,307 DARE )@@G@@PAM @F@@@@ TG A5,R1 . $T IS DEADLINE CRITIRF )@@G@@CAL? @]@@@@*EX8LOD @]@@@@-228/1,1 @F@@@@ JZ A10,RG )@@G@@VOIDSG . CHECK FOR 5-ID 2EGMEN3 @#@@@@-235 EX8LOD @]@@@@RH )@@G@@VOIDSG . @]@@@@*FISTUP @#@@@@-400,400 FISTUP @B@@@@ L RI )@@G@@ A3,MDBASE . @B@@@@ SSL A3,9 RJ )@@G@@ . @[@@@@*MSCON@#@@@@-2219,2222 DISP @F@@@@ LXI A0,BRK )@@G@@LDRD . $P GET USER BUFFER LENGTH @H@@@@ LSSL A0,6RL )@@G@@ . $P SHIFT OFF S1 TO REMOVE POSSIBLE @E@@@@ SSRM )@@G@@L A0,6 . $P SIGN EXTEND BITS @F@@@@ LXM RN )@@G@@ A0,BADRD . $P GET USER BUFFER ADDR @[@@@@*SMUPQ@#@@@@-897 RO )@@G@@ SMUPQ @H@@@@ SZ MLTBLK,A3 . ZERO, SO NOT RRP )@@G@@ELEASED ON NEXT FILE @]@@@@*SYMPRS @#@@@@-996,999 SYMPRS @^@@@@RQ )@@G@@-1006,1012 SYMPRS @[@@@@*TM @]@@@@-331,331 TM@G@@@@ TNRR )@@G@@ USTNBE,X9 . $T WRITE AFTER BACKING OVER EOF @[@@@@*TSWAPRS )@@G@@@]@@@@-489/5,5 @G@@@@ SZ RSTLOD,A0 . CLEAR ALRT )@@G@@TERNATE MESSAGE ADDRESS @B@@@@ S A4,TRUN,A0 . RU )@@G@@@]@@@@*UPROAR @D@@@@ L X8,A0 . GET D-BARV )@@G@@NK @F@@@@ SZ RTNFLG . CLEAR RETURN TO UPRERW )@@G@@G FLAG___^TUR7K^TJR])@[MR#@@[M;*@@@GBCH@@@BGH@@@*[@@@@*SDFF*@^@@@@PROGRARX )@@G@@MMER 32 0-0040S @#@@@@ROQUAL MTDEW @D@@@@PRINTAPES 1028/1020,1130RY )@@G@@/1288,1366/1390,1597/2840 @^@@@@ASMD E8ID ALWAYS @#@@_@DONTASRZ )@@G@@M CDISP @#@@_@DONTASM CSPAT2 @#@@_@DONTASM CSPCOM @#@@_@DONTASSA )@@G@@M CSPERR @#@@_@DONTASM CSPESI @#@@_@DONTASM CSPIH @#@@_@DONTASSB )@@G@@M CSPINR @#@@_@DONTASM CSPIN @#@@_@DONTASM CSPIO @#@@_@DONTASSC )@@G@@M CSPMSS @#@@_@DONTASM CSPOUT @#@@_@DONTASM CSPREC @#@@_@DONTASSD )@@G@@M CSPRMI @#@@_@DONTASM CSPRMO @#@@_@DONTASM CSPSON @#@@_@DONTASSE )@@G@@M CSPSSS @#@@_@DONTASM CSPSUB @#@@_@DONTASM CSPUTL @#@@_@DONTASSF )@@G@@M DCTBEL @#@@_@DONTASM DCTCP @#@@_@DONTASM DCTCR @#@@_@DONTASSG )@@G@@M DCTERM @#@@_@DONTASM DCTINT @#@@_@DONTASM DCTPRB @#@@_@DONTASSH )@@G@@M DCTPR @#@@_@DONTASM DCTRES @#@@_@DONTASM ONCPSP @#@@_@DONTASSI )@@G@@M ONCRSP @#@@_@DONTASM ONPNSP @#@@_@DONTASM RB9000 @#@@_@DONTASSJ )@@G@@M ZRCOMP @#@@_@DONTASM ZREXPD @]@@_@DONTASM ZRIN@#@@_@DONTASM ZRMASK )@@G@@IN @#@@_@DONTASM ZROUT @#@@_@DONTASM ZSASNC @#@@_@DONTASM ZSINSL )@@G@@TS @#@@_@DONTASM ZSKEY @#@@_@DONTASM ZSPOOL @#@@_@DONTASM ZSTESM )@@G@@RM @G@@@@RUN GEN0 GEN1 GEN2 GEN3 GEN4 GEN5 . FILES FOR GEN0-GENSN )@@G@@5 RUNSTREAMS@D@@@@MSGFILE MSGFILE ADD4COPY . ADD FILES SO )@@G@@@G@@@@PACK EVERYTHING . NOT, NOTHING, OR EVERYTHSP )@@G@@ING @F@@@@KLUDGE ''['' . FOR RESTART PROCEDSQ )@@G@@URE @^@@@@CONFIG ACCTON 2 @^@@@@CONFIG ACU 0 @^@@@@SR )@@G@@CONFIG ACUNSS 17 @^@@@@CONFIG ASGSCN 1 @^@@@@CONFIG CKSS )@@G@@SM 1 @^@@@@CONFIG CNIOC 0 @^@@@@CONFIG CNSN 1 ST )@@G@@@^@@@@CONFIG CONTIM 300 @^@@@@CONFIG COREFILE 0 @^@@@@CONFIGSU )@@G@@ CSPRDP 0 @^@@@@CONFIG DBLOCK 100 @^@@@@CONFIG DCBOOT SV )@@G@@ 1 @^@@@@CONFIG DCLUTS 8443@^@@@@CONFIG DEDLIN 0 @^@@@@SW )@@G@@CONFIG DHLACE 1 @^@@@@CONFIG DHLACH 1 @ @@@@CONFIG DISX )@@G@@AGTYP 'F40' @^@@@@CONFIG DINC 4 @^@@@@CONFIG DMAX SY )@@G@@ 90 @^@@@@CONFIG DMDPAR 0 @^@@@@CONFIG DMIN 40 @^@@@@SZ )@@G@@CONFIG EDITDUMPS 1 @^@@@@CONFIG ESSIZE 0 @^@@@@CONFIG EXTA )@@G@@DRCH 1 @^@@@@CONFIG EXOCH 7 @ @@@@CONFIG EXPADJ -010TB )@@G@@000 @^@@@@CONFIG EXPRINT 0 @I@@@@CONFIG EXPRT 0251461050TC )@@G@@505 . SPACES BEFORE SECOND ' CONFUSE EDQ MACRO @^@@@@CONFIG EXTD )@@G@@PTRACE 0100@^@@@@CONFIG EXSNAP 0 @^@@@@CONFIG FCDBSZ 50 TE )@@G@@@^@@@@CONFIG FIXEDISC 16 @^@@@@CONFIG GCCBAT 1 @^@@@@CONFIGTF )@@G@@ GCCDEM 1 @^@@@@CONFIG GCCINT 1 @^@@@@CONFIG GCCMIN TG )@@G@@ 60 @^@@@@CONFIG ICACOL 0 @^@@@@CONFIG IOLM 1 @^@@@@TH )@@G@@CONFIG IONSS 17 @ @@@@CONFIG LASTRK 0640000 @^@@@@CONFIGTI )@@G@@ LOGEOF 0 @^@@@@CONFIG LOGONS 0 @^@@@@CONFIG LOGSS TJ )@@G@@ 7 @^@@@@CONFIG LOGUNIT 4 @^@@@@CONFIG LOGTYP 1 @^@@@@TK )@@G@@CONFIG MASLOG 0 @^@@@@CONFIG MAXBDI 0100@^@@@@CONFIG MATL )@@G@@XCRD 50 @^@@@@CONFIG MAXF17 500 @^@@@@CONFIG MAXF4 0 TM )@@G@@@^@@@@CONFIG MAXF8 0 @^@@@@CONFIG MAXGRN 200 @^@@@@CONFIGTN )@@G@@ MAXOPN 5 @^@@@@CONFIG MAXPAG 25 @^@@@@CONFIG MAXTIM TO )@@G@@ 0 @^@@@@CONFIG MAXTUX 15 @^@@@@CONFIG MP 0 @^@@@@TP )@@G@@CONFIG MPRIOR 'D' @^@@@@CONFIG NCSP 0 @^@@@@CONFIG NITQ )@@G@@OAU 0 @^@@@@CONFIG NIOC 0 @^@@@@CONFIG NMHSP 0 TR )@@G@@@^@@@@CONFIG NMSA 4 @^@@@@CONFIG NOMUX 1 @^@@@@CONFIGTS )@@G@@ NOS93 0 @^@@@@CONFIG OFLMEM 0 @^@@@@CONFIG PFRCVR TT )@@G@@ 0 @A@@@@CONFIG PRIVAC '0-0040-167OV' @^@@@@CONFIG REBOOTCTTU )@@G@@ 4 @^@@@@CONFIG REMUSE 500 @^@@@@CONFIG RM9300 0 @^@@@@TV )@@G@@CONFIG RSICNT 16 @^@@@@CONFIG RS$TRA 1 @^@@@@CONFIG RTTW )@@G@@LEV 2 @^@@@@CONFIG RTMC 0 @^@@@@CONFIG SBFILE 0 TX )@@G@@@^@@@@CONFIG SBLEV1 0 @^@@@@CONFIG SBLEV2 0 @^@@@@CONFIGTY )@@G@@ SBLEV3 0 @^@@@@CONFIG SBLEV4 0 @^@@@@CONFIG SBLEV5 TZ )@@G@@ 0 @^@@@@CONFIG SBRUN 0 @^@@@@CONFIG SBTIMEON 0 @^@@@@UA )@@G@@CONFIG SCGA 0 @^@@@@CONFIG SIPDAT 0 @^@@@@CONFIG SIUB )@@G@@PIO 0 @ @@@@CONFIG SITEID 'N.Y.U.' @^@@@@CONFIG SMSADV UC )@@G@@ 1 @^@@@@CONFIG SPUNSS 17 @ @@@@CONFIG SSEQPT ' 6C' UD )@@G@@@^@@@@CONFIG SSSCSP 0 @^@@@@CONFIG STDPAG 66 @^@@@@CONFIGUE )@@G@@ STPAUL 0 @^@@@@CONFIG TEKTRO 0 @^@@@@CONFIG TLS UF )@@G@@ 0 @ @@@@CONFIG TPFTYP 'F17' @^@@@@CONFIG TRMXCO 1 UG )@@G@@@^@@@@CONFIG TRMXPO 1 @^@@@@CONFIG TRMXT 1 @^@@@@CONFIGUH )@@G@@ TTYCNT 16 @^@@@@CONFIG UCTCS 1 @ @@@@CONFIG UIBANK UI )@@G@@ 047000 @^@@@@CONFIG URSCNT 0 @^@@@@CONFIG U1CONFG 1 UJ )@@G@@@^@@@@CONFIG U1110 0 @^@@@@CONFIG U3CONFG 0 @[@@@@. UK )@@G@@@^@@@@CONFIG ARTLVL 0 @^@@@@CONFIG AXCEED 1 @^@@@@CONFIGUL )@@G@@ AACMS(1) 1000@^@@@@CONFIG AACMS(2) 5000@ @@@@CONFIG AACMS(3)UM )@@G@@ 20000 @ @@@@CONFIG AACMS(4) 20000 @ @@@@CONFIG AACMS(5)UN )@@G@@ 20000 @ @@@@CONFIG QPAGES 10000 @^@@@@CONFIG QCARDS UO )@@G@@ 1000@ @@@@CONFIG QCBSIZ 01000 @ @@@@CONFIG QSUPS 6000UP )@@G@@0 @^@@@@CONFIG QVDT 600 @^@@@@CONFIG NTAP(1) 5 @^@@@@UQ )@@G@@CONFIG NTAP(2) 5 @^@@@@CONFIG NTAP(3) 5 @^@@@@CONFIG QTUR )@@G@@AP(1) 600 @^@@@@CONFIG QTAP(2) 600 @^@@@@CONFIG QTAP(3) 600 US )@@G@@@^@@@@CONFIG QDISC(1) 600 @^@@@@CONFIG QDISC(2) 600 @^@@@@CONFIGUT )@@G@@ QDISC(3) 600 @^@@@@CONFIG QRTMS(1) 300 @^@@@@CONFIG QRTMS(2)UU )@@G@@ 300 @^@@@@CONFIG QRTMS(3) 5000@^@@@@CONFIG QRTMS(4) 5000@^@@@@UV )@@G@@CONFIG QRCMS(1) 5000@^@@@@CONFIG QRCMS(2) 5000@^@@@@CONFIG QRUW )@@G@@CMS(3) 5000@^@@@@CONFIG QRCMS(4) 5000@A@@@@CONFIG OVRACC '0-0UX )@@G@@040-167OV' @ @@@@CONFIG OVRUSR 'OVERHEAD'@^@@@@CONFIG RESTRICTUY )@@G@@ 1 @^@@@@CONFIG USERON 0 @ @@@@CONFIG USUAS 200000 UZ )@@G@@@[@@@@. @[@@@@. @ @@@@CONFIG SUA(1) ''0.0'' @ @@@@CONFIGVA )@@G@@ SUA(2) ''0.2'' @ @@@@CONFIG SUA(3) ''0.4'' @ @@@@CONFIGVB )@@G@@ SUA(4) ''0.0746''@ @@@@CONFIG SUA(5) ''0.0275''@ @@@@CONFIGVC )@@G@@ SUA(6) ''0.0'' @ @@@@CONFIG SUA(7) ''0.0'' @ @@@@CONFIGVD )@@G@@ SUA(8) ''0.0'' @ @@@@CONFIG SUA(9) ''0.0'' @ @@@@CONFIGVE )@@G@@ SUA(10) ''0.0'' @ @@@@CONFIG SUA(11) ''0.0'' @ @@@@CONFIGVF )@@G@@ SUA(12) ''0..0'' @ @@@@CONFIG SUA(13) ''0.0'' @ @@@@CONFIGVG )@@G@@ SUA(14) ''0.25'' @ @@@@CONFIG SUA(15) ''0.25'' @ @@@@CONFIGVH )@@G@@ SUA(16) ''0.25'' @ @@@@CONFIG SUA(17) ''0.25'' @ @@@@CONFIGVI )@@G@@ SUA(18) ''0.25'' @ @@@@CONFIG SUA(19) ''0.0'' @ @@@@CONFIGVJ )@@G@@ SUA(20) ''0.0'' @ @@@@CONFIG SUA(21) ''0.0'' @ @@@@CONFIGVK )@@G@@ SUA(22) ''0.0'' @ @@@@CONFIG SUA(23) ''0.0'' @ @@@@CONFIGVL )@@G@@ SUA(24) ''0.0'' @ @@@@CONFIG SUA(25) ''0.0'' @ @@@@CONFIGVM )@@G@@ SUA(26) ''0.0'' @ @@@@CONFIG SUA(27) ''0.0'' @ @@@@CONFIGVN )@@G@@ SUA(28) ''0.0'' @ @@@@CONFIG SUA(29) ''0.0'' @ @@@@CONFIGVO )@@G@@ SUA(30) ''0.0'' @ @@@@CONFIG SUA(31) ''0.0'' @ @@@@CONFIGVP )@@G@@ SUA(32) ''0.0'' @ @@@@CONFIG SUA(33) ''0.0'' @E@@@@REMOTEVQ )@@G@@ THINGO 0252314172761 'CLAIRE' USLOW1 APPLICATIONS@E@@@@REMOTE THINGVR )@@G@@O 0252314172762 'J.X.T.' USLOW2 APPLICATIONS@D@@@@REMOTE THINGO 025VS )@@G@@2314172763 '-BEAR-' USLOW3 TEDDY @E@@@@REMOTE THINGO 0252314172764 'VT )@@G@@JACK-S' USLOW4 APPLICATIONS@E@@@@REMOTE THINGO 0252314172765 'NICKIEVU )@@G@@' USLOW5 APPLICATIONS@E@@@@REMOTE THINGO 0252314172766 'QUINN!' UVV )@@G@@SLOW6 APPLICATIONS@E@@@@REMOTE THINGO 0250310221124 '>KRAK<' UCHRIT VW )@@G@@APPLICATIONS@E@@@@REMOTE THINGO 0250611031005 'ETOILE' UFICHE APPLICVX )@@G@@ATIONS@E@@@@REMOTE THINGO 0250715606061 'GEORGE' UGM001 APPLICATIONSVY )@@G@@@F@@@@REMOTE THINGO 0250601232461 '!TWIG!' UFAST1 APPLICATIONS-30/72VZ )@@G@@@F@@@@REMOTE THINGO 0250601232462 '-TRIP-' UFAST2 APPLICATIONS-30/72WA )@@G@@@F@@@@REMOTE THINGO 0250601232463 'STOPIT' UFAST3 APPLICATIONS-30/72WB )@@G@@@F@@@@REMOTE THINGO 0250601232464 'STASH!' UFAST4 APPLICATIONS-30/72WC )@@G@@@F@@@@REMOTE THINGO 0250601232465 '>TILT<' UFAST5 APPLICATIONS-30/72WD )@@G@@@F@@@@REMOTE THINGO 0250601232466 'STUFFY' UFAST6 APPLICATIONS-30/72WE )@@G@@@F@@@@REMOTE THINGO 0250601232467 '>TOWA<' UFAST7 APPLICATIONS-30/72WF )@@G@@@F@@@@REMOTE THINGO 0250601236762 'FT72PH' UFAS72 POMPLUN-PHRI-30/72WG )@@G@@@E@@@@REMOTE THINGO 0256360046163 'FD13PH' U30D13 PHRI-30/132 @E@@@@WH )@@G@@REMOTE THINGO 0252162676061 'MCTT01' UQ2701 DR-TICK @D@@@@REMOTEWI )@@G@@ THINGO 0252161666671 'MCTT02' UQ1669 MEDCTR@D@@@@REMOTE THINGO 025WJ )@@G@@3262676164 'MCTT03' UZ2714 MEDCTR@D@@@@REMOTE THINGO 0253267646760 'WK )@@G@@MCTT04' UZ7470 MEDCTR@D@@@@REMOTE THINGO 0252164666263 'MCTT05' UWL )@@G@@Q4623 MEDCTR@D@@@@REMOTE THINGO 0252166717166 'MCTT06' UQ6996 MEDCTRWM )@@G@@@D@@@@REMOTE THINGO 0253265656267 'MCTT07' UZ5527 MEDCTR@D@@@@REMOTEWN )@@G@@ THINGO 0253261626762 'MCTT08' UZ1272 MEDCTR@D@@@@REMOTE THINGO 025WO )@@G@@2661646661 'MCTT09' UV1461 MEDCTR@D@@@@REMOTE THINGO 0252663656465 'WP )@@G@@MCTT10' UV3545 MEDCTR@D@@@@REMOTE THINGO 0252663616065 'MCTT11' UWQ )@@G@@V3105 MEDCTR@D@@@@REMOTE THINGO 0252664606461 'MCTT12' UV4041 MEDCTRWR )@@G@@@D@@@@REMOTE THINGO 0250164656761 'MCTT13' UA4571 MEDCTR@D@@@@REMOTEWS )@@G@@ THINGO 0252163606161 'MCTT14' UQ3011 MEDCTR@D@@@@REMOTE THINGO 025WT )@@G@@3067676267 'MCTT15' UX7727 MEDCTR@D@@@@REMOTE THINGO 0250371716164 'WU )@@G@@MCTT16' UC9914 MEDCTR@D@@@@REMOTE THINGO 0250365656663 'MCTT17' UWV )@@G@@C5563 MEDCTR@D@@@@REMOTE THINGO 0250364616270 'MCTT18' UC4128 MEDCTRWW )@@G@@@D@@@@REMOTE THINGO 0250366656362 'MCTT19' UC6532 MEDCTR@D@@@@REMOTEWX )@@G@@ THINGO 0250365626167 'MCTT20' UC5217 MEDCTR@E@@@@REMOTE THINGO 025WY )@@G@@1767606761 'PHRI05' UO7071 PHRI-POMPLIN@F@@@@REMOTE THINGO 025076464WZ )@@G@@6767 'PROV02' UG4477 PROVOST-OFFICE @F@@@@REMOTE THINGO 025076665XA )@@G@@7066 'PROV03' UG6586 PROVOST-OFFICE @F@@@@REMOTE THINGO 025236263XB )@@G@@7170 'UCREG5' US2398 REGISTRATION-UCAS @F@@@@REMOTE THINGO 025236360XC )@@G@@6471 'UCREG6' US3049 REGISTRATION-UCAS @E@@@@REMOTE THINGO 025131426XD )@@G@@6167 'ARCTIC' UKLV17 OCEANOGRAPHY@E@@@@REMOTE THINGO 0251314266762 'XE )@@G@@REDSEA' UKLV72 OCEANOGRAPHY@E@@@@REMOTE THINGO 0251314266466 'BERINGXF )@@G@@' UKLV46 OCEANOGRAPHY@E@@@@REMOTE THINGO 0251314267060 'BAIKAL' UXG )@@G@@KLV80 OCEANOGRAPHY@E@@@@REMOTE THINGO 0251314266671 'THAMES' UKLV69 XH )@@G@@OCEANOGRAPHY@E@@@@REMOTE THINGO 0251311200110 'DEDSEA' UKIPAH OCEANOXI )@@G@@GRAPHY@E@@@@REMOTE THINGO 0252355100420 'OTPHRI' US-HDP PHRI-NOVICK XJ )@@G@@@E@@@@REMOTE THINGO 0250471616264 'PHRI02' UD9124 PHRI-NOVICK @E@@@@XK )@@G@@REMOTE THINGO 0252271616201 'ROCK01' UR912A ROCKEFELLER @E@@@@REMOTEXL )@@G@@ THINGO 0252262666165 'ROCK02' UR2615 ROCKEFELLER @E@@@@REMOTE THINGXM )@@G@@O 0252267627064 'ROCK03' UR7284 ROCKEFELLER @E@@@@REMOTE THINGO 025XN )@@G@@2266646571 'ROCK04' UR6459 ROCKEFELLER @E@@@@REMOTE THINGO 025226662XO )@@G@@6461 'ROCK05' UR6241 ROCKEFELLER @D@@@@REMOTE THINGO 0251455140420 'XP )@@G@@OFPHRI' UL-LDP PHRI @D@@@@REMOTE THINGO 0251455100420 'ODPHRI' UXQ )@@G@@L-HDP PHRI @E@@@@REMOTE THINGO 0252004206161 'DAK001' UPDP11 DOUG-KXR )@@G@@OPPIE @F@@@@REMOTE THINGO 0256160556163 '-FONG-' U10-13 ZEITLIN-10/1XS )@@G@@30 @F@@@@REMOTE THINGO 0256360556762 '-TEST-' U30-72 ZEITLIN-30/7XT )@@G@@2 @F@@@@REMOTE THINGO 0256360556163 '-DEEZ-' U30-13 ZEITLIN-30/1XU )@@G@@30 @E@@@@REMOTE THINGO 0250405151716 '-RTST-' UDEMON ZEITLIN XV )@@G@@@D@@@@REMOTE THINGO 0256161636001 '-GBA1-' U1130A GBA @D@@@@REMOTEXW )@@G@@ THINGO 0256161636002 '-GBA2-' U1130B GBA @D@@@@REMOTE THINGO 025XX )@@G@@6161636003 '-GBA3-' U1130C GBA @F@@@@REMOTE THINGO 0252327021661 'XY )@@G@@USWB01' USWBN1 WEATHER-BUREAU @F@@@@REMOTE THINGO 0252327021662 'XZ )@@G@@USWB02' USWBN2 WEATHER-BUREAU @F@@@@REMOTE THINGO 0252303171561 'YA )@@G@@COMRCE' USCOM1 COMMERCE-SCHOOL @D@@@@REMOTE THINGO 0251405010422 'YB )@@G@@MEYERS' ULEADR MEYERS@F@@@@REMOTE THINGO 0250522161105 'ERNEST' UYC )@@G@@ERNIE OPERATIONS-EFO @F@@@@REMOTE THINGO 0252201202431 'LARRYC' UYD )@@G@@RAPTY OPERATIONS-LC @F@@@@REMOTE THINGO 0252005222231 '-T-MOY' UYE )@@G@@PERRY OPERATIONS-PM @E@@@@REMOTE THINGO 0252627303132 'COMTST' UYF )@@G@@VWXYZ COMM-TESTER @F@@@@REMOTE THINGO 0250215140102 'PHYS01' UPHYSX YG )@@G@@PHYSICS-DOWNTOWN @F@@@@REMOTE THINGO 0251002220104 'BHRADO' UHBRAD YH )@@G@@BELLEVUE-RADIOLOGY@E@@@@REMOTE THINGO 0250310051561 'CHEM01' UCHEM1 YI )@@G@@CHEM-DEPT @E@@@@REMOTE THINGO 0250310051562 'CHEM02' UCHEM2 CHEM-DYJ )@@G@@EPT @F@@@@REMOTE THINGO 0252303220527 'SYSTMS' USCREW SYSTEMS-10CPYK )@@G@@S @F@@@@REMOTE THINGO 0252215172605 'XTREEM' URMOVE SYSTEMS-30CPYL )@@G@@S @F@@@@REMOTE THINGO 0252303220322 'ITSRCR' USCRCR BOB-ROBBINS-YM )@@G@@30CPS @F@@@@REMOTE THINGO 0250301221714 '!THWAK' UCAROL SYSTEMS-CAROYN )@@G@@L @E@@@@REMOTE THINGO 0252022170122 'ATHOME' UPROAR SYSTEMS-DUFFYO )@@G@@@E@@@@REMOTE THINGO 0250671656460 'MDCT01' UF9540 NYUMED-30/72@E@@@@YP )@@G@@REMOTE THINGO 0250671617160 'MDCT02' UF9190 NYUMED-30/72@E@@@@REMOTEYQ )@@G@@ THINGO 0250660616462 'MDCT03' UF0142 NYUMED-30/72@E@@@@REMOTE THINGYR )@@G@@O 0250661666161 'MDCT04' UF1611 NYUMED-30/72@F@@@@REMOTE THINGO 025YS )@@G@@2217070522 'ROGESO' UROGER ROGER-SO-370/145 @E@@@@REMOTE THINGO 025YT )@@G@@6160146163 '-FONG2' U10L13 CHORY-LARRY @F@@@@REMOTE THINGO 025610215YU )@@G@@0522 'MR-1BM' U1BMER J-ACKNER-370/145 @F@@@@REMOTE THINGO 025021114YV )@@G@@1423 'TTBILL' UBILLS B-SUROWIC-370/145 @F@@@@REMOTE THINGO 025201416YW )@@G@@2470 'PLANT8' UPLNT8 UNIVAC-PLANT8 @E@@@@REMOTE THINGO 025230504YX )@@G@@6061 'EDSCL1' USED01 SCHL-OF-ED @F@@@@REMOTE THINGO 0252305046062 'YY )@@G@@EDSCL2' USED02 ED-SCH(D-PAYNE) @E@@@@REMOTE THINGO 0250210171414 'YZ )@@G@@PRABHL' UBHOLL B-HOLLANDER @D@@@@REMOTE THINGO 0256061070201 'GBA001ZA )@@G@@' U01GBA GBA @E@@@@REMOTE THINGO 0250717140431 'BGOLDN' UGOLDY ZB )@@G@@BEN-GOLDIN @F@@@@REMOTE THINGO 0250204012401 'BRDAB1' UBDATA BRDCASZC )@@G@@T-DATA-BASE @E@@@@REMOTE THINGO 0252723240461 'STUD01' UWSTD1 STUDENZD )@@G@@TS @E@@@@REMOTE THINGO 0252723240462 'STUD02' UWSTD2 STUDENTS ZE )@@G@@@E@@@@REMOTE THINGO 0252723240463 'STUD03' UWSTD3 STUDENTS @E@@@@ZF )@@G@@REMOTE THINGO 0252723240464 'STUD04' UWSTD4 STUDENTS @E@@@@REMOTEZG )@@G@@ THINGO 0256161607001 'U1108A' U1108A STUDENTS @E@@@@REMOTE THINGZH )@@G@@O 0256161607002 'U1108B' U1108B STUDENTS @E@@@@REMOTE THINGO 025ZI )@@G@@6161607003 'U1108C' U1108C STUDENTS @E@@@@REMOTE THINGO 025616160ZJ )@@G@@7004 'U1108D' U1108D STUDENTS @E@@@@REMOTE THINGO 0256161607005 'ZK )@@G@@U1108E' U1108E STUDENTS @E@@@@REMOTE THINGO 0256161607006 'U1108FZL )@@G@@' U1108F STUDENTS @E@@@@REMOTE THINGO 0256161607007 'U1108G' UZM )@@G@@1108G STUDENTS @E@@@@REMOTE THINGO 0256161607010 'U1108H' U1108H ZN )@@G@@STUDENTS @E@@@@REMOTE THINGO 0256161607011 'U1108I' U1108I STUDENZO )@@G@@TS @E@@@@REMOTE THINGO 0256161607012 'U1108J' U1108J STUDENTS ZP )@@G@@@E@@@@REMOTE THINGO 0256161607013 'U1108K' U1108K STUDENTS @E@@@@ZQ )@@G@@REMOTE THINGO 0256161607014 'U1108L' U1108L STUDENTS @E@@@@REMOTEZR )@@G@@ THINGO 0256161607015 'U1108M' U1108M STUDENTS @E@@@@REMOTE THINGZS )@@G@@O 0256161607016 'U1108N' U1108N STUDENTS @E@@@@REMOTE THINGO 025ZT )@@G@@6161607020 'U1108P' U1108P STUDENTS @E@@@@REMOTE THINGO 025616160ZU )@@G@@7021 'U1108Q' U1108Q STUDENTS @E@@@@REMOTE THINGO 0256161607022 'ZV )@@G@@U1108R' U1108R STUDENTS @E@@@@REMOTE THINGO 0256161607023 'U1108SZW )@@G@@' U1108S STUDENTS @E@@@@REMOTE THINGO 0256161607024 'U1108T' UZX )@@G@@1108T STUDENTS @E@@@@REMOTE THINGO 0256161607026 'U1108V' U1108V ZY )@@G@@STUDENTS @E@@@@REMOTE THINGO 0256161607027 'U1108W' U1108W STUDENZZ )@@G@@TS @E@@@@REMOTE THINGO 0256161607030 'U1108X' U1108X STUDENTS AA )@@G@@@E@@@@REMOTE THINGO 0256161607031 'U1108Y' U1108Y STUDENTS @E@@@@AB )@@G@@REMOTE THINGO 0256161607032 'U1108Z' U1108Z STUDENTS @F@@@@REMOTEAC )@@G@@ THINGO 0250220016061 'BPA001' UBPA01 BUS&PUB-ADMIN @E@@@@REMOTEAD )@@G@@ THINGO 0250220012223 'BPA002' UBPARS RON-SEIGL @E@@@@REMOTE THINGAE )@@G@@O 0250220012361 'BPA003' UBPAS1 BPA-STUDENTS@D@@@@REMOTE THINGO 025AF )@@G@@0220010515 'BPA004' UBPAEM BPA-ED@F@@@@REMOTE THINGO 0252224022307 'AG )@@G@@R/TBAS' URTBSG REAL-TIME-BASIC @E@@@@REMOTE THINGO 0252324012515 'AH )@@G@@SYS370' USTAUM IBM-370 @D@@@@REMOTE THINGO 0250305236061 'TTYCESAI )@@G@@' UCES01 CES @E@@@@REMOTE THINGO 0251405222401 'DAMMOR' ULERTA AJ )@@G@@DAMES&MOORE @E@@@@REMOTE THINGO 0252317062413 'SOFTEC' USOFTK SOF-TEAK )@@G@@CH @E@@@@REMOTE THINGO 0250417246063 'RAY001' UDOT03 RAYTHEON AL )@@G@@@E@@@@REMOTE THINGO 0250260606166 'RAY002' UB0016 RAYTHEON @E@@@@AM )@@G@@REMOTE THINGO 0250417246064 'RAY003' UDOT04 RAYTHEON @E@@@@REMOTEAN )@@G@@ THINGO 0253020606160 'XPAN10' UXP010 XPANSHUN @E@@@@REMOTE THINGAO )@@G@@O 0253020606161 'XPAN11' UXP011 XPANSHUN @E@@@@REMOTE THINGO 025AP )@@G@@3020606162 'XPAN12' UXP012 XPANSHUN @E@@@@REMOTE THINGO 025302060AQ )@@G@@6071 'XPAN09' UXP009 XPANSHUN @E@@@@REMOTE THINGO 0253020606070 'AR )@@G@@XPAN08' UXP008 XPANSHUN @E@@@@REMOTE THINGO 0253020606067 'XPAN07AS )@@G@@' UXP007 XPANSHUN @E@@@@REMOTE THINGO 0253020606066 'XPAN06' UAT )@@G@@XP006 XPANSHUN @E@@@@REMOTE THINGO 0253020606065 'XPAN05' UXP005 AU )@@G@@XPANSHUN @E@@@@REMOTE THINGO 0253020606064 'XPAN04' UXP004 XPANSHAV )@@G@@UN @E@@@@REMOTE THINGO 0253020606063 'XPAN03' UXP003 XPANSHUN AW )@@G@@@E@@@@REMOTE THINGO 0253020606062 'XPAN02' UXP002 XPANSHUN @E@@@@AX )@@G@@REMOTE THINGO 0253020606061 'XPAN01' UXP001 XPANSHUN @E@@@@REMOTEAY )@@G@@ THINGO 0253020606060 'XPAN00' UXP000 XPANSHUN @E@@@@REMOTE THINGAZ )@@G@@O 050024252601 'RMMCT4',NO NAK MEDCTR-1004 @F@@@@REMOTE THINGO 05BA )@@G@@0024252602 'RMAINT',NO NAK 1004-MAINTENANCE @F@@@@REMOTE THINGO 05BB )@@G@@0024252603 'RMSEAS',NO NAK METEOROLOGY-1004 @E@@@@REMOTE THINGO 05BC )@@G@@0000000040 'RM1130',NO NAK GBA-1130 @D@@@@REMOTE THINGO 05000000BD )@@G@@0001 'RMWASQ',NO NAK UHMC @E@@@@REMOTE THINGO 050000000033 'RMSNDSBE )@@G@@',NO NAK SMITH-SINGER@D@@@@REMOTE THINGO 050000000012 'RMTISH',NO BF )@@G@@ NAK UHMC @E@@@@REMOTE THINGO 050000000002 'RMRK92',NO NAK ROCK-9BG )@@G@@200 @F@@@@REMOTE THINGO 050000000031 'RMROCK',PUNCH NAK ROCKEFELLER-BH )@@G@@PDP15 @F@@@@REMOTE THINGO 050000000010 'RMDATA',PUNCH NAK BROADCAST-DABI )@@G@@TABASE@E@@@@REMOTE THINGO 050000000042 'U90019',NO NAK RAYTHEON BJ )@@G@@___6 'U1108V' U1108V STUDENTS @E@@@@REMOTE THINGO 0256161607027 'BK )@@G@@======@@^@@ @@@@@@@@@@@@@@ ^( @@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@L8/FAE70-1 @@@@]]@@@@@/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^C@@A@@A@]+BM )@@G@@@JJ@@@@@V@@^@@@@18@@@@@@@^@@@]@^@@@[@ @@@]K^@)@)@]@@@B@@@SOP@#@@@B@@@LIABN )@@G@@@^@@@B@@@LOA@ @@@B@@@LIP@A@@@B@@@LOP@B@@@B@@@LCB@C @@B@@@LPI@D @@B@@@LDJBO )@@G@@@E @@B@@@LIJ@F @@B@@@LPD)G@@@B@@@SPD)H@@@B@@@LBR@@@___@[Q^@@@@Q^#Q@A*^L?BP )@@G@@@@?^S%@AP^U2@@,^-P@[H^( @[-^61@[W^8:@@E^'Y@@E^'5@@I^"+@]6 R?@@Q V])]@^[QBQ )@@G@@)I@^#?)@Q^SO)[W^TQ)@I^-B)B]^+#)GZ^%M)@T^8M)@R^'B)@H^'*)#<^'_)S/^"0)@) U+BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[^]P@@@@@@@@@@@@@@@@@@@@@@@@@@[^@>BS )@@G@@@@@@@ ASCII MODE NO FIND SEPARATOR COLUMN CARD COUNT> CARD BT )@@G@@COUNT<@#C^@USIR EDIT ERR @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@[^[Q@S$^[Q@[I^[Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@@+@@@@[__"^]P@[^^[Q@@[^]Q@@@@@ @@@@@@@@@@@@@@@@@@@@[^E?@@@@@ BX )@@G@@@@[^[Q@@@@@ @@@@@@@SJ^E?@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@^@)^@) BY )@@G@@*SDFF* @@@@@@@@@@@@@@@@@@@K@@@@@#)@@@@@@@@@^E?^IG@@C@@_@@[^[Q@@[@@@BZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@#)@@@@@@@@@^#?^BG@@C@@_@@[^]Q@@[@@@@@@@@@CA )@@G@@/K@@T)/K@@@@/K@@T4/K@^L\*4@^@//K@^L\/K@@T.R#)^9VR;0@@=;G@@@=W8@@@EO;!@@:CB )@@G@@;@)@@AP;0@@A/^@^L5;@\@@@/KF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@?@@@[@?A@@[V?B@@[X?C@@@+K@@@',L@@@_-M@@@-.N@@@?CG )@@G@@/O@@[W0P@@@01Q@@@12R@@@23S@@@34T@@@45U@@@56V@@@67W@@@78X@@@89Y@@@9:Z@@@$CH )@@G@@;?@@@;<\@@@\=!@@@,>^@@@+?_@@[ZC[@^O-A#K@@L;G@@@M;CK@@M/@V@@@H9K@@[G[K@@HCI )@@G@@T8K@@# @@@@GW8@@@]/@K^NNO;@@@[R#0^O+;^0@@MK@@@@IP;K@@[&;K__";*@@@MQ#@@@FCJ )@@G@@R]0@@LC[K@@G;DK@@MH9K@@[&'0__"R#)^O<')I=N*RB_^M ;^0@@D/C0^NY[[H)@@C[@^O-CK )@@G@@8^K^NY;G@@@M;CK@@M/KH@@@/K@^N,R3;@@@R\;@@@R:;@@@R$;@@@R<;@@@R7;)@@Q;)@@ CL )@@G@@/K@^NZ&;@@@@/@F@@@C[K@@G&#@@@FR]0@@H&;)@@[&'0@@[R#K^O=R#0^O-8^K^N;C[F)@@CM )@@G@@;=0@@D;*0@@X;C0@@X=80@[@/K@^O#R7_^M /K@^O^R3_^L ')H=OS @@@@J/D@^N// K^N9CN )@@G@@;G@@@M;CK@@MR]0@@GT8K@@] @@@@GW8@@@#/@V@@@O;@@@[P;K@@[R;0@@ A<"@@@A$"@@@CO )@@G@@/^V@@@A:"@@@A\"@@@/KF@@@A7"@@@A3"@@@A\"@@@A:"@@@A$"@@@/K@^OYA<")@@R#K^O=CP )@@G@@/K@^O )@@@@@@@@^@)__"@@ @@[@@@[@@^SJC8W@@@KCK^SJH8)@@[&;K^O;C@@@@H'=@@@HCQ )@@G@@G8W@@@ @H@@@>@@^S%/K@^O8>@@^S:/KF@@[C8H@@@?8I@@@/K@^O%C@@^SIC8K@@#/KF@@@CR )@@G@@C@@^S#C8K@@[/KF@@@C@@^SDC8K@@]/KF@@@L8@@@[C@)^SJG8)@@[*@I@@@?CY@@@/K@^PACS )@@G@@G),@@@/K@^P@%CI@@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K^S?/KF@@[CT )@@G@@N8W@@@C^@^SJG8@@@[C9K@@[ @@^SXN8)@@@(@G@@@/K@^P;(4G@@@/K@^P:%1W@@@/K@^P;CU )@@G@@C?W@@@!8K@@A/K@^P,%(K^SX @@^SW[(K^SX9??@@[C-G@@@:9@@@[C@0^S?')H^Q:H9@@@[CV )@@G@@T9@@@AG>G@@@')H^Q3G)G@@@G8@@@[/K@^PQ:9K@@[/K@^P3C*?@@@:8)@@.N8)@@[%[K@[[CW )@@G@@/K@^P:/K@^P+%@)^S?[5@^SW:@)^S?[-K^SW/K@^P:(@@@[]:(K^SX/K@^Q@[(K^SX @@^SWCX )@@G@@:[K@[[/K@^QCG9K@@[*@G@@@/K@^PP @@^SW @@^SX/KF@@@:[K@[[ *@^SX9?K^SW98V@@@CY )@@G@@C8@@@-[=@^SX(?@^SX/KF@@[C@@^S(D8)@@@C80@@@C!@^SX8^@^QV1@@@@I!8)@[@C80@@ECZ )@@G@@[))^SX[=0^SX/KF@@[C8K@@@;=@@@A?8K@@'?8K@@0/K@^Q&(@@@@JC80@[@H8K@@0T8)@@EDA )@@G@@G8!@@@/K@^QO/^0^QR%8K@@+:8K@@-C8.@@@/@0^QR/K@^QO9*)^SY9*)^S)[@)^S+[@)^S9*)^S$[@)^S(/K@^P6[1@^SW[!@^SW[(@^SW[>@^SW[5@^SX[1@^SX[!@^SXDC )@@G@@C80@@F+8K@@_:8)@@ ;^@@@A8#0^Q.9*@^SLC@@^S!C@K^S,C8)@@BC@0^S?[@"^SO8#)^RADD )@@G@@N4K^SW9!@^SY/\)^R4C9K@@*(4@^SW*)@^SW')H)@@N0K^SW9!@^S)*@@@[[/K@^RPC[@^S\DE )@@G@@N8K@@^/\)^R4N?K^SW(@@@[[/K@^RZC9K@@(')H)@@C[@^S+/\)^R4C9K@@)')H)@@(*@^SWDF )@@G@@*=@^SW/K@^R>C@@^S0'=@@@J/KF@@@C9K@@/')H)@@N*K^SWC[@^S@@@A')H)@@8KK^R2/KI@@@[5W@@@[1W@@@DH )@@G@@[!W@@@[(W@@@[>W@@@/\0^R/[-W)@@Q;K^R6/KJ@@@PROCESSOR CALL ERROR @[^^R_DI )@@G@@ABNORMAL RETURN FROM READ$ @[ ^S^TOO MANY SPECIFICATIONS @[^^SE@@@@@@DJ )@@G@@@USE @@@@@@@@@@@@, ]@@@@@[@@@@@ @@[^SO@@[^R6TPF$ @@G^SKTPF$ DK )@@G@@ **EF**@@@@@@C8@@@@C4@ SSC?@ SSC0@ SS[4K SS[?K SS[0K SS9?K^S1DL )@@G@@9?K SG9?K S&9?K STA AX AR @@@@@@@@@@@@@@@^S5@@@@@@@@@@@@@@@@@@DM )@@G@@@@@@@@@FREE,OPTION@@@@@@@@@@@@@@@@@@@<@@@@@@]^TM@@E^TQK@O^TU@ASG,AX DN )@@G@@AA0^T AE)^T AAK^T^AE@^T^C@@^)4/,0^O>/K@^)YC@@^T)[@@ SF 4@ SFC8K@@@=8@)@@DO )@@G@@G8K@@[=8@@@)G8K@@]C@@^Y//KH^V#/K@^VB/K@^VO/K@^V0/K@^)Y/,)^W7/K@^VK/,)^W.DP )@@G@@Q'K^X^C8@@@#/,0^PK/K@^V4/,)^XI/K@^V4C@@ SF)8@)@@[@K SF/K@^V&/,)^W'/K@^V&DQ )@@G@@/,)^W.C8@@@ [0@ S-/,)^XA(@@ ST/K@^),C8@ ST'=@@[CC@@^Z[/^)^)S[@K S>C8@@@[DR )@@G@@[?@ SYR;@@@ A3@ S-/K@^),/,)^X@/K@^V(/K@^VT9?@^S19*@ S&9?@^)59*@ S*9?@^S2DS )@@G@@9*@ S?/K@^VT/,)^W7/K@^WO/,)^W./,)^X#C8@@@*C4K SS=8K@@KC8@@@"[4@ SF%8@@@*DT )@@G@@/K@^WQC8@@@[[C@ SLC8@ SG'=@@[ C@@^ZA/^)^)YC@@^ZTC=0^TE:80@@E/K@^)YC*K SODU )@@G@@L)K SO:80@@@C)K^TE:80@@-H)K^TE%80@@+/K@^WJC/Y@@[G)K^TEC*0 SO,@)@@H/K@^)YDV )@@G@@[)K SS/K@^VUC@@^ZX/K@^)Y9?@ SG9*@^THC8@^TH'=@@@#C4@^TK/@@^W<;G@@@#;CK@@-DW )@@G@@;*@@@AG8H 00[C@^ZLC@@^ZM/K@^)YC@@^ZF9?K^TQC^0^TK:80@@W9/K^S4/K@^)YCC0^TVDX )@@G@@+80@@_9?K^TS?9@@@ 9/K SI/K@^)Y9?K^TW%9@@@@9/K SM/K@^)Y[C0 SL9?@^TY9*@ SODY )@@G@@/K@^W[/,K^XD[@[[@[SI@ SG/,K^XD[0[@@#SI@ ST/,K^XD]0@@@]RO@ S&/,K^XD]0[@@]DZ )@@G@@RO@ S&/,K^XD#0@@@#SO@ ST/,K^XD#@[@[@SO@@@@C4D@@@AAW^TAQ,D@@@/,0^PK/%E@@@EA )@@G@@*?D@@@Q'%@@[Q+D@@@C@@^Z-*=D@@@/K@^)S*?D@@@*4@^SX/K@^XTC@@^Z&/K@^)SC*@^SXEB )@@G@@/^@^XZ*@@^SW/K@^X$(4@^SXC8@@@[C)/OTA')J^S.(@@@@H9?K^S19*TK@[')J^S6+8@@@0EC )@@G@@/K@^YU&FD@@[G@@^)7C@K^S29*@^TQ9*DK@[/,0^Q//G@^X'C8K@@[C8@^TQ'=@@[GCC)^TWED )@@G@@!8)[@@>8)@)@/K@^X6/K@^YFC8@^TO'=@@@J/C@^Y ')C^S9N8K@@FN/)__89?K^)8<@@@@HEE )@@G@@;C@@@#;^K@@A8KK^X.;^K@@=9*K^Z,C@@^Z0/K@^)SC8K@@]>@@^)'C8K@@#C8@^TQ'=@@[GEF )@@G@@CC)^TW')C^S9?8)K@@?8)[@@/K@^YLG8K@@K/K@^YPC@@^Z4?8))@@?8)S@@/K@^)SC@@^Z9EG )@@G@@=8)@]@/K@^)S=8)@^@G8K@@)+0T@@@C@@^Z_=8)@@KC@@^)^/^)^)S')C^S9C@0^TBC^_@@[EH )@@G@@QAD@@[9?@^S>(4@^SX9?J@@]9*C@@]9?@^S2(0@^SX/K@^Y?9?@^S$/K@^Y,(4@^SX9?J@@AEI )@@G@@9*C@@AC@@^SX**D@@@[@@^TE*?@^SX**D@@@/KE@@@C@@^)F/,0^)T/KE@@@I/U-OPTION CEJ )@@G@@ONFLICT @[^^Y8XXX NOT A PROGRAM FILE @[^^Y.SI: ELEMENT NOT FOUND EK )@@G@@@[^^Z]SI: IMPROPER LABEL BLOCK@[^^ZBSI: TAPE I/O ERROR - STATUS: @@@ EL )@@G@@@[A^ZGSI: CYCLE NONEXISTANT OR IN ERROR @[A^ZNSI: MISSING FIELD @[#^ZUEM )@@G@@XXX ILLEGAL FIELD @[#^ZYXXX BADLY CODED FIELD @[^^Z+XXX FILE COULD NOTEN )@@G@@ BE ASSIGNED - STATUS: @@@@@@@@@@@@@[D^Z$XXX ILLEGAL DEVICE@[#^Z1XXX FIEO )@@G@@LE CAN NOT BE READ@[^^Z5XXX READ ONLY OUTPUT FILE @[ ^Z'XXX OUTPUT FEP )@@G@@ILE IS TAPE @[^^)@XXX CYCLE SPECIFICATION IGNORED @[A^) I OR U OPTIOEQ )@@G@@N NOT ALLOWED IN DEMAND, USE @ELT OR @ED. @[D^)GR#@^)P/K@^)YR'0^)ZCCT@@[ER )@@G@@G8K@@:[CW@@@'=@@@I/KF@@@'=@@@IC@0^);N8K@@]')J^S.9*K^TH')J=S6+8@@@#/@K^)%ES )@@G@@C@H^T@[@@^TGC8@^TF'=@@@J8KK^)- C@ SSR'0@@@/K@^)\R'0@@[OA0^T QE)^T QAK^T^ET )@@G@@QE@^T^/KF@@@@[M^T)NAME$ @@$ 000000000000C@@@@@@@[@@[@FREE,OPTIONEU )@@G@@@@@@@@@@@@@@FILE NOT ASSIGNED: @@@@@@@@@@@@@[A^-@@@@@@@@@@@@@@@@@@@EV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EX )@@G@@@@@@@@@@@@@@__"@@G@@[@@@/K@J__/K@@&)/K@J__/K@@&9@@@@@@@@@@@@TPF$ EY )@@G@@@@@@@@@C@@@@@#)@@@@@@@@@^+#^>=@@[@@@@@[^-B&;@@[=Q;@ M0'=@@@49?K N89*K^(KEZ )@@G@@R#@^(J%@K^(N'=@@[.R#@^(M'=@@[9@@[^(KTPF$ A$M LIB$ END ASM. ERRFA )@@G@@ORS : AMOUNT OF UNUSED TABLE AREA : DECIMAL UNDEFINED SYFB )@@G@@MBOLS:@[ RS@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LOG ASSEMBLY IN ERROR - ELEMFC )@@G@@ENT: @@@@@@@@@@@@ FLAGS: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@H@I@@@H@G@[@N@O@[@N@M ^@)^@)@@@@@@FE )@@G@@@@@@@@@@@@@@*** TOO MANY LONG LABELS *** @[A^%C@@@@@@@@@@@@@@@@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^^8'ERROR WHILE READING PROCEDURE @@@@@@@@@@@@FG )@@G@@ FROM FASTRAND @@@@@@@[^ RSLINE NUMBER SEQUENCE ERRORS @@@@@@@@@@@@FH )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@KG@@@@K>@@@@K"K@@@LR4@@@L48)@@MIA*@@M$*M@@N^1FK@NX.Y^@N7W5>@OO%[ZCK[)@@@FJ )@@G@@@@@@@@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@FK )@@G@@@@@@@@KS&DU@@@@@@@KV\:0)@@@@@@KY;&?*@@@@@@K+>KF9@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@K@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ * - FM )@@G@@@@@@@@@@@@@@@@@@@@000000@[D^7_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@@__"@@@@@@@@@@@@@@@I$ FORM 6,4,4,4,2,16. @@ @@@ASM$TD EQU 0FP )@@G@@XXXXXXXXXXXX @@@@@@@@@@@@/,@@.>C@@^9F'=@@@I/K@^9G@#A]X]R#@ SF>8@@@^FQ )@@G@@/K@@.1'=@@@QASSEMBLY WAS RE-STARTED AFTER ADDING **K TO TABLE AREA@@@@@@FR )@@G@@. '. ASM12F70-1 -( ) SC-02@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@; 3$000000@@@@J_@[Q RK@[C RK@[K RQ@[Q RKFT )@@G@@@@@@@@@@@@@@ASM$PF @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@D@@@@@I@@@@@L@@@@@RFY )@@G@@@@@@@T@@@@@U@@@@@G@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ )@@G@@@@@@@@@@@@@@@@@ R8@@@ R7@@@ R'@@@ R5@@@ R9@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@]@@@@@#@@@@@^@@@@@ @@@@@AGI )@@G@@@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@K@@@@@L@@@@@MGJ )@@G@@@@@@@N@@@@@O@@@@@P@@@@@Q@@@@@R@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@@@X@@@@@YGK )@@G@@@@@@@Z@@@@@)@@@@@-@@@@@+@@@@@<@@@@@=@@@@@>@@@@@&@@@@@$@@@@@*@@@@@(@@@@@%GL )@@G@@@@@@@:@@@@@?@@@@@!@@@@@,@@@@@\@@@@@0@@@@@1@@@@@2@@@@@3@@@@@4@@@@@5@@@@@6GM )@@G@@@@@@@7@@@@@8@@@@@9@@@@@'@@@@@;@@@@@/@@@@@.@@@@@"@@@@@_@@@@@@@@@@@@@@@@@@GN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^9"@@@@@@@@@@@@GO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@E 2!@@E 41@@[B/-)RP VS)[' 27+B& 4;)#YB/+@@@___GQ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___GR )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@@@@@@@@@@@@@@@@@@@@@@GS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GU )@@G@@$MAIN$ @@^@@^@@@@@]@@@[@ @@@@@][WR 3N[@$ 3O/K@]V49*R 3O/K@]V4^[B 3.GV )@@G@@/?K[&'A#Q VH/@K]V6/K@]V2()A VE/K@]V6^[B 3./?K[&'+@K@">%@K@@I^[@ R'=@@@"&GW )@@G@@^[@ R9!@)^9%[@)^9%/K@]V6BINBCD EAO SDBSP EAS SDBTDEC GX )@@G@@EAX SDBTF EA) SDBTOD EA< SDCHAR EA$ SDDATA GY )@@G@@EA! SDDEFLIST EA3 SDDIRECTIVES G[= SDEDIT C.S XDENDPRE GZ )@@G@@EBW SDEQUF EB+ SDERU$ D1<]FEESRCH EB& SDFDASC HA )@@G@@EB: SDFORMREF EB5 SDFSI EB' SDFUNCREF EC SDGET HB )@@G@@ECF SDGETREF ECJ SDGITMS ECQ SDGSIS ECY SDGVLU HC )@@G@@EC+ SDHLST EC> SDID EC$ SDINFOR$ EC! SDINLN HD )@@G@@EC3 SDMAIN LVQFAEMVSTITM EDA SDNEGSR EDF SDNSRT HE )@@G@@EDM SDNSRTE EDR SDPLF EDZ SDPOSTPR$ ED< SDPREPRO HF )@@G@@ED? SDPROCESS ED6 SDQUOTE ED" SDREAD EEB SDROR HG )@@G@@EEI SDRORBIT EEM SDRSMP EEQ SDRSTITM EEU SDSCAN HH )@@G@@EE? SDSCRP EE6 SDSDFI NRS^ DSDFO D>G^X SIRASM HI )@@G@@EF] SDSKIP EFF SDSRCH EFK SDSTOR EFO SDSTUFFS HJ )@@G@@EFQ SDUNDEF EFW SDUNXT EFZ SDWRD EF= SD@@@@@@@@@@@@HK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@\$DBANK @]H@@(C@6 VF:@7 2"HL )@@G@@/K@@\ZC@@@[A%8@@@[*4@^;W/K@@\MC8@@@#[0B 2.^5A VEN@)@"*R'7 2./?K]MP/?K[+NHM )@@G@@()A VD/K@@,3C0B 2.+8@@@N%8K@@#/K@@\M%8@@@#/K@@\@@@@@]BK@@[@^@[F@C@@@@@]^HN )@@G@@K@@[@^@](@DF@@@@]E@@@[@^@LG@F4@@@@@#@@@[@^@#Z@X@@@@@[<@@@[@^@@$@)Z@@@@[2HO )@@G@@@@@[@^@A&@-A@@@@[I@@@[@^@@X@$?@@@@[)@@@[@^@]A@*D@@@@@S@@@[@^@P#@%J@@@@@3HP )@@G@@@@@[@^@]N@_M@@@@@P@@@[@^@[N[[>@@@@[(@@@[@^@AG[]8@@@@@-@@@[@^@]+[D^@@@@[OHQ )@@G@@@@@[@^@@)[F&@@@@[;@@@[@^@@?[GA@@@@[5@@@[@^@@?[G2@@@@@!@@@[@^@#7[HY@@@@]THR )@@G@@@@@[@^@['[LP@@@@[8@@@[@^@@9[NJ@@@@@/@@@[@^@[T[OC@@@@@_@@@[@^@#9[P-@@@@[\HS )@@G@@@@@[@^@A=[TU@@@@@6@@@[@^@]P[Z"@@@@]H@@@[@^@@,[+N@@@@[]@@@[@^@@,[<[@@@@[?HT )@@G@@@@@[@^@[8[<\@@@@@J@@@[@^@@)[>$@@@@]Z@@@[@^@@N[&B@@@@[R@@@[@^@@)[&U@@@@["HU )@@G@@@@@[@^@Q-[&'@@@@@D@@@[@^@@Q[.V@@@@@V@@@[@^@GM[.1@@@@@9@@@[@^@@P]E#@@@@@GHV )@@G@@@@@[@^@@L]ES@@@@]N@@@[@^@[O]E(@@@@[U@@@[@^@#.]F.@@@@[X@@@[@^@[N]J'@@@@[ HW )@@G@@@@@[@^@@1]LH@@@@@0@@@[@^@@I]L"@@@@]W@@@[@^@@D]MG@@@@]K@@@[@^@[H]MP@@@@@$HX )@@G@@@@@[@^@[R]N+@@@@][@@@[@^@]R]O9@@@@@Y@@@[@^@#G]RK@@@@@M@@@[@^@[2]UW@@@@@AHY )@@G@@@@@[@^@@F]WI@@@@[L@@@[@^@IG]WT@@@@]E)@@@@ @L?^@@@@@@]E)@@]@ @@B^L?@@@@@@HZ )@@G@@)@@@@ @@E^L3@@@@@#)@@@@ @@C^L.@@@@@%)@@@@ @])^M @@@@[F)@@@@ @^G^O>@@@@[&IA )@@G@@)@@@@ @CF^S1@@@@[<)@@@@ @@F^)/@@@@[2)@@@@ @@I^-B@@@@[2)@@]@ @B0^-P@@@@[IIB )@@G@@)@@@@ @@J^( @@@@@S)@@@@ @@<^(O@@@@[()@@@@ @@[^(7@@@@@-)@@@@ @@[^(8@@@@[;IC )@@G@@)@@@@ @@[^(9@@@@[5)@@@@ @@[^('@@@@@!)@@@@ @@#^(;@@@@]T)@@@@ @@[^("@@@@[8ID )@@G@@@[X@@V@[I@@@@@@@[*@@K@@@@@@@@@@@@@@@@@@@@Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@[=@@-@@@@@@@@@@@@@@@@@@@@@@@%@@@@@@@@@@@@@@[@[R@@@@@H@@N@@@IF )@@G@@@@@@@7@@^@@@@[Z@@@@@@@[U@@P@@@@[(@@@@@@@@@@@@@@@@@@@@L@['@[V@@@@@Z@@:@@@IG )@@G@@@@@@@@@@ @@@@@@@[;@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@[K@@@@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@6@@@@@@@@@@@@@@@@@@@[]@@@@@@@@@@@@@@@@@@@@(@@#@@@II )@@G@@@@@@@@@[D@@@@@@@@W@@+@[:@@@@@1@@@@@@@@@@@@@@@@@@@@@@[2@[?@@@@@@@@@@@C@@@IJ )@@G@@@@@@@@@@@@[!@@@@@3@@@@@@@@@@[ @[A@@@@@@@[O@[,@@@@@@@@J@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@9@@@@@@@@@@@@@@O@@@@@@@@Q@@@@@@@@0@@@@[1@@@@@@@[@@@@@@@@@@@[-@[B@@@IL )@@G@@@@,@[G@[4@@@@[5@@@@@@@@@@[\@@@@[H@@M@[7@@!@[>@@E@@@@@_@@@@@8@@@@[#@@@@@GIM )@@G@@@@@@@@@@@@@D@@@@@F@[M@@@@@@@[L@@@@@@@@@@[9@@@@@@@@I@@)@@@@@@@@@@@>@[^@@@IN )@@G@@@@@@[S@@U@@@@@@@@@@@@@@@@@@@@&@@@@@@@@@@[J@@@@[T@@@@@@@@B@@@@@A@@@@@@@@@IO )@@G@@@@@@@=@@"@@\@@@@@'@@$@@@@@@@@@@@@@@@@[E@@@@@^@[/FUZZUP @@]@@@@@@HGZIP )@@G@@FUZZDN @@]@@4@@@HGZFUZDEF @@]@[C@@@HGZSETFUZ @@]@@5@@@HIRIQ )@@G@@FUZDIF @@]@@@@@@HJ/THALFW @@]@@@@@@HMUCFLOAT @@]@@T@@@HN2IR )@@G@@TESTIN @@]@@/@@@HPZVERIFY @@]@@@@@@HVUVERIFS @@]@@@@@@HVUIS )@@G@@VERIFZ @@]@[F@@@HVUVERIFW @@]@@@@@@HVUJMRTST @@]@@@@@@HY>IT )@@G@@JN$010 @@]@@@@@@HY>ERROR @@]@@S@@@H)4FCALL @@]@@@@@@H+LIU )@@G@@SCALL @@]@@@@@@H+LFC$000 @@]@@R@@@H+LCALREP @@]@@<@@@H=(IV )@@G@@GHFINT @@]@@@@@@H>YCBLOCK @@#@@@@@@H$1STATEV @@#@@@@@@H48IW )@@G@@CONFIG @@^@@@@@@H'GALLOCT @@ @@X@@@H/!ALGLOB @@ @@@@@@H/!IX )@@G@@FREE @@ @[[@@@H"XUNLNKL @@ @@@@@@H_+ALOCTB @@ @@@@@@I@ENDSW @@A@@@@@@IQ>JH )@@G@@PS$010 @@A@@@@@@IQ>QWDON @@A@@.@@@IR*QWDOFF @@A@@@@@@IR.JI )@@G@@DTG @@A@@@@@@IS-DTLE @@A@@@@@@IS-TSC @@A@[$@@@IW=JJ )@@G@@TSL @@A@@@@@@IW=TSA @@A@[/@@@IW=LTSC @@A@@@@@@IW=JK )@@G@@LTSL @@A@@@@@@IW=TSTO @@A@@@@@@IZBTLD @@A@[0@@@IZBJL )@@G@@TTE @@A@@@@@@I)#TTNE @@A@@@@@@I)#LIJ @@A@@@@@@I-DJM )@@G@@FILDEF @@B@@@@@@I+IDOIO @@B@[%@@@I3(JNOPER @@B@@@@@@I4"JN )@@G@@TEMPIC @@B@@@@@@I6HPOP @@C@@@@@@I7-PUSH @@C@@@@@@I7-JO )@@G@@PU$H01 @@C@[3@@@I7-POPDEF @@C@@@@@@I7-PSUDOP @@D@@@@@@I"BJP )@@G@@SKMARX @@D@@@@@@JA?APSYMB @@E@@@@@@JB/TDIGIT @@E@@@@@@JVVJQ )@@G@@TNDIGT @@E@@@@@@JVVJDIGIT @@E@[+@@@JVVJNDIGT @@E@@@@@@JVVJR )@@G@@TALFA @@E@@@@@@JVVTNALFA @@E@@@@@@JVVJALFA @@E@@@@@@JVVJS )@@G@@JNALFA @@E@@@@@@JVVTALFAM @@E@@@@@@JVVTNALFM @@E@@@@@@JVVJT )@@G@@JALFAM @@E@@@@@@JVVJNALFM @@E@[&@@@JVVT$EX01 @@E@@@@@@JVVJU )@@G@@T$EX10 @@E@@@@@@JVVT$EX20 @@E@@@@@@JVVFDSYMB @@E@@@@@@JZSJV )@@G@@OUTCNV @@E@@@@@@J,LOUTCNB @@E@@@@@@J,LOC$010 @@E@@@@@@J,LJW )@@G@@INCNV @@E@[8@@@J02APLBCI @@E@@@@@@J2LWSDEF @@F@@@@@@J6NJX )@@G@@ABSADR @@F@@@@@@J",RELADR @@F@@@@@@J"_WSDUMP @@F@@@@@@J_UJY )@@G@@BASCPY @@F@@@@@@K@CBASACT @@F@@@@@@K@CABSCPY @@F@@@@@@K@:JZ )@@G@@ABSACT @@F@@@@@@K@:RELCPY @@F@[6@@@K[FRELACT @@F@@@@@@K[FKA )@@G@@RUNCTL @@F@@@@@@K[6IODEF @@F@@@@@@KEMMOVE @@F@@@@@@KNSKB )@@G@@MOVE$1 @@F@@@@@@KNSMOVE$2 @@F@@@@@@KNSMOVE$4 @@F@@@@@@KNSKC )@@G@@MOVE$6 @@F@@@@@@KNSMOVE$7 @@F@@@@@@KNSSEND @@F@@@@@@KRSKD )@@G@@PRINT @@F@@@@@@KT)TIMEON @@F@@@@@@KU+TIMOFF @@F@@@@@@KV:KE )@@G@@#@@^9XE)]@BRC[]@@@A@]@@^B@B@@@CK]@@@A@B@@#]@]^/9CLB@@@#@[ ]9A@B@@]CLB@@@KF )@@G@@#@]^_HA@B@@[CLB@@@#@] #DA@B@@@CLB@@@]@]^.!#@[ #HEK@@BQV@@@@@I@@ [1#@@^9XKG )@@G@@E)]@BNC[]@@@A@]@@^B@B@@@CK]@@@A@B@@#]@]^/9CLB@@@#@[ ]9A@B@@]CLB@@@#@]^_HKH )@@G@@A@B@@[CLB@@@#@] #DA@B@@@CLB@@@]@]^.(#@[ #LEK@@BMV@@@@@I@@ [!#@@^9XE)]@BJKI )@@G@@C[]@@@A@]@@^B@B@@@CK]@@@A@B@@#]@]^/9CLB@@@#@[ ]9A@B@@]CLB@@@#@]^_ A@B@@[KJ )@@G@@CLB@@@#@]^;9A@B@@@CLB@@@]@]^"L#@[^_LEK@@BIV@@@@@I@@ [(#@@^9XE)]@BFC[]@@@KK )@@G@@A@]@@^B@B@@@CK]@@@A@B@@#]@]^/9CLB@@@#@[ ]9A@B@@]CLB@@@#@]^_DA@B@@[CLB@@@KL )@@G@@#@]^;9A@B@@@CLB@@@]@]^"-#@[^9XEK@@BEV@@@@@I@@ [>#@@^9XE)]@BBC[]@@@A@]@@^KM )@@G@@B@B@@@CK]@@@A@B@@#]@]^/9CLB@@@#@[ ]9A@B@@]CLB@@@#@]^_HA@B@@[CLB@@@#@] #DKN )@@G@@A@B@@@CLB@@@]@]^.1#@[^'DEK@@BAV@@@@@I@@ [-#@@^9XE)]@B#C[]@@@A@]@@^B@B@@@KO )@@G@@CK]@@@A@B@@#]@]^/9CLB@@@#@[ ]9A@B@@]CLB@@@#@]^_HA@B@@[CLB@@@#@] #DA@B@@@KP )@@G@@CLB@@@]@]^.!#@[ #PEK@@B]V@@@@@I@@ [X#@@^9XE)]@A_C[]@@@A@]@@^B@B@@@CK]@@@KQ )@@G@@A@B@@#]@]^/9CLB@@@#@[ ]9A@B@@]CLB@@@#@]^_HA@B@@[CLB@@@#@] #DA@B@@@CLB@@@KR )@@G@@]@]^.(#@[ #TEK@@A"V@@@@@I@@ [T#@@^9XE)]@A;C[]@@@A@]@@^B@B@@@CK]@@@A@B@@#KS )@@G@@]@]^/9CLB@@@#@[ ]9A@B@@]CLB@@@#@]^".A@B@@[CLB@@@#@] #XA@B@@@CLB@@@]@]^.9KT )@@G@@#@[ ]9EK@@A'V@@@@@I@@ [P#@@^9XE)]@A7C[]@@@A@]@@^B@B@@@CK]@@@A@B@@#]@]^/9KU )@@G@@CLB@@@#@[ ]9A@B@@]CLB@@@#@]^_ A@B@@[CLB@@@#@]^;9A@B@@@CLB@@@]@]^.5#@[ #-KV )@@G@@EK@@A6O@@@@[H@@ [LEB[@A5C[ @@@A@ @@@B@B@@@C^ @@@]@[^9!#[[@@[E#@@A4O@@@@@KW )@@G@@V@@@@@C[]@@@B@B@@@]@] [[E>@@A1C[[@@@B@B@@@]@[^9[E>@@A0C[[@@@B@B@@@]@[^9 KX )@@G@@E>@@A\I@@ [H#@@^9XE)]@A,C[]@@@A@]@@[]@] [[CG]@@@#@]^".A@]@@@CE]@@@]@]>[[KY )@@G@@#@] [ E[@@A!C[]@@@A@]@@@]@] [[CF]@@@]@] @9]@] @.E[@@A?C[]@@@A@]@@@]@] @.KZ )@@G@@CK]@@J]@[^9[B@]@@@E[@@A:C[]@@@A@]@@@]@] @9CK]@@J]@[^9 B@]@@@E[@@A%V@@@@@LA )@@G@@C[]@@@B@B@@@]@] [[E>@@A$C[[@@@B@B@@@]@[^9HE>@@A&C[[@@@B@B@@@]@[^89E>@@A>LB )@@G@@I@@ [D#@@^9XE)]@A=C[]@@@A@]@@[]@] [[CG]@@@#@]^".A@]@@@CE]@@@]@]>[[#@] [ LC )@@G@@E[@@A@@AXI@@ @5#@@^9XE)]@AWF@@^;[B[@@@@EN[@AUK@2 @HF@@ @(H@@ @(LF )@@G@@EB[@ARV@@@@@C[]@@@B@B@@@]@]^8TE>@@AOC[]@@@B@B@@@]@]^8LE>@@ANC[]@@@B@B@@@LG )@@G@@]@]^8HE>@@AMC[]@@@B@B@@@]@]^8DE>@@AKK@4 @1C[]@@@B@B@@@A@]@@[CJ]@@@T-@@@TLH )@@G@@ @[@@TA@]@@@CN]@@@^[[__"]@]^8 E>@@AJG@[ @1J@4^'LC[[@@@B@B@@@]@[ @-E>@@AGLI )@@G@@C[[@@@B@B@@@]@[ @TE>@@AFC[[@@@B@B@@@]@[ @PE>@@AEC[[@@@B@B@@@]@[^/-E>@@ADLJ )@@G@@I@@ @!#@@^9XE)]@ACO@@@@[H@@ @(EB[@ABC[ @@@A@ @@@B@B@@@CA @@@]@]=8D#@]^".LK )@@G@@E#@@AAO@@@@@C[[@@@A@[@@@B@B@@@CK[@@@]@[^/-]@[ @>EK@@A C[[@@@A@[@@]]@[ @-LL )@@G@@CF[@@@#[[@[=A@[@@[CJ[@@@/,0B,2@]8I1/,0B?E@@@I:T@@@I1R@@@I:F@]/I1(@@I:>/K@BJXC4)I:FLP )@@G@@[4)I:(C/)@@[C[@I:(H[@I1S*@@@@KC8)@@@C.@@@[C[)I:(H[)I1T*@@@@MC9@@@@)@)@@KLQ )@@G@@C.@@@[C[)I:(H[)I1J*@@@@MC9@@@@)[@@@J[[KI:E/>KBJ=/,0[']@@@I;9@@@I0R@@@I:FLR )@@G@@@#EI1/,0B\O@@@I:F@@@I:>@#PI1I1<@@KI:&@@KI:$R@KI1XN.@@@DC8[,:S'^K[A^8L@BK7'^@[ACLZ )@@G@@/,0[A6@@[I1W@@@I?J@#!I1<'^@[AC/,0@& @@@I1W@@@I1I@#\I1(@@I:>MN )@@G@@/K@BU(C4)I:F[4)I:?C/)@@[C[@I:?H[@I1L*@@@@KC8)@@@C.@@@[C[)I:?H[)I1P*@@@@MMO )@@G@@C9@@@@)@)@@K/=0BN8/,0[']@@@I;9@@@I0Z@@@I:F@^,I1(@@I:>/K@BU(T/@@@A[@@I:*MR )@@G@@H/@@@=E@@@@GC@)I:F;C?@@@E@@I:*C@0I:$;)/@@@;G)Y:*[@0I:$C/@@@[C@)I:$H@)I1MMS )@@G@@*@@@@IC8@@@@C/)@@[C[@I:$H[@I1L*@@@@KC8)@@@)@@@@IC/)@@[C[@I:$H[@I1N*@@@@KMT )@@G@@C8)@@@)@)@@H[@0I:E/=0BPDC/@@@[C[@I:$H[@I1O*@@@@KC8@@@@C.@@@[C[)I:$H[)I1PMU )@@G@@*@@@@MC9@@@@)@@@@KC.@@@[C[)I:$H[)I1Q*@@@@MC9@@@@C@@@@H)@@@@K[@KI:E/=KBPDMV )@@G@@/,0[']@@@I;9@@@I0<@@@I:F@ [I1@ #I1(@@I:>/K@BP"C4)I:F[4)I:(C/)@@[C[@I:(H[@I1SMY )@@G@@*@@@@KC8)@@@C.@@@[C[)I:(H[)I1T*@@@@MC9@@@@)@)@@KC.@@@[C[)I:(H[)I1J*@@@@MMZ )@@G@@C9@@@@C@)@@J)@)@@K[@0I:E/=0BQ /,0[']@@@I;9@@@I0$@@@I:F@ KI1/,0B\O@@@I:F@@@I:>@ 4I1I1*//. @F@@@@ @COPIN TAPE.,*. . INITIALILX )@@G@@ZE LIBRARY @^@@@@ @FIN @]@@@@COLUMN 14 @F@@@@ LY )@@G@@ THE *.,ETC. FIELDS ON THE ABOVE CARDS @F@@@@ LZ )@@G@@ REFER TO THE PUBLIC WORKSPACE FILE-- I.E.THEY MUST @F@@@@ MA )@@G@@ AGREE WITH THE PARAMETERS SET IN SITEPAR/APL WHICH @G@@@@ MB )@@G@@ DEFINE THIS FILE. YOU ***MUST*** ***NOT*** ATTEMPT TO @E@@@@MC )@@G@@ EXPLICITLY CREATE THE FILE; APL WILL CREATE AND@F@@@@ MD )@@G@@ INITIALIZE THE FILE ITSELF IF IT FINDS THAT THE FILE @E@@@@ ME )@@G@@ WAS NOT ALREADY CREATED (E.G. BY A PREVIOUS @ @@@@ MF )@@G@@ GENERATION). @F@@@@ (3) AT THIS POINT, YOU NOW HAVE A VERSIMG )@@G@@ON OF APL, WHICH @F@@@@ CONSISTS OF THE THREE ABSOLUTE ELEMMH )@@G@@ENTS APL, APL$XQ @F@@@@ AND APL$SY. THE ELEMENT APL IS THE MI )@@G@@ONE CALLED BY THE @F@@@@ PROCESSOR CALL CARD. THE ELEMENTS MJ )@@G@@APL$XQ AND APL$SY @G@@@@ ARE REENTRANT MODULES LOADED BY SIMMK )@@G@@ULATION OF THE 1110 @G@@@@ LIJ INSTRUCTION WITH THE ERML )@@G@@ LINK$. THE PROCESSOR IS @F@@@@ CAPABLE OF DETERMINING MM )@@G@@WHETHER IT IS BEING EXECUTED @G@@@@ FROM SYS$*LIB$ OR NOT, MN )@@G@@AND WILL TAKE IT UPON ITSELF TO @E@@@@ DO AN RLIST$ IF OMO )@@G@@NE IS NECESSARY. THE ABSOLUTE@E@@@@ ELEMENTS MAY BE PUT INTMP )@@G@@O SYS$*LIB$ AT YOUR @ @@@@ CONVENIENCE. @F@@@@ MQ )@@G@@ (4) IF YOU ARE RUNNING THE RIGHT (OR WRONG, DEPENDING ON @G@@@@ MR )@@G@@ YOUR POINT OF VIEW) VERSION OF LEVEL26, THE SAMPLE RUN @F@@@@MS )@@G@@ MAY GIVE SPURIOUS ERRORS, USUALLY INDICATED BY WHAT @F@@@@MT )@@G@@ SEEMS TO BE MISSING WORDS IN THE INPUT STATEMENTS. @F@@@@MU )@@G@@ THIS IS A BUG IN EXEC8, WHICH SHOWS UP BECAUSE APL @F@@@@MV )@@G@@ DOES ER TREAD$'S FROM AN @ADD FILE. AT ONE POINT A@G@@@@MW )@@G@@ 'FIX' WAS DISTRIBUTED WHICH CAUSED THE EXEC TO USE THE MX )@@G@@@F@@@@ PACKET ADDRESS AS THE BUFFER ADDRESS. A LATER FIX MY )@@G@@@F@@@@ ACTUALLY REPAIRED THE PROBLEM. IF YOU SEEM TO BE MZ )@@G@@@E@@@@ HAVING THIS PROBLEM, BE SURE YOUR SYSTEM IS @^@@@@NA )@@G@@ UP-TO-DATE.@F@@@@ (5) IT IS POSSIBLE THAT YOU MAY GNB )@@G@@ET A SYMBIONT ERROR TYPE@F@@@@ 03 DURING THE COLLECTION. IF NC )@@G@@THIS HAPPENS, USE THE @F@@@@ FURPUR @PCH COMMAND TO PUNCH ND )@@G@@THE ELEMENT GENERATE/APL@F@@@@ ON CARDS AND PUT IT IN YOUR RNE )@@G@@UNSTREAM INSTEAD OF @G@@@@ @ADD'ING IT FROM THE FILE. TNF )@@G@@HIS ERROR IS NOT AN ERROR @F@@@@ IN THE COLLECTOR, ALTHONG )@@G@@UGH IT MAY SEEM TO BE SUCH. @F@@@@ (6) THE CHARACTERISTICS OF NH )@@G@@APL USERS ARE SUCH THAT THEY @F@@@@ MAKE VERY LIBERAL USE ONI )@@G@@F THE )SAVE AND )CONTINUE @F@@@@ COMMANDS. SINCE EACH )NJ )@@G@@SAVE CREATES A NEW ELEMENT IN @G@@@@ THE FILE, AND DELETES TNK )@@G@@HE OLD COPY, THE FILE SHOULD BE @F@@@@ @PACKED FREQUENTLNL )@@G@@Y (AT LEAST ONCE A DAY). THIS IS @G@@@@ MOST EASILY DONE NM )@@G@@BY THE INSERTION OF A CANNED RUN INTO @F@@@@ BOOTELT, WHNN )@@G@@ICH WILL PACK THE FILE AT EVERY REBOOT. @]@@@@COLUMN 2 @ @@@@3LIBRANO )@@G@@RY NUMBERS AND QUOTAS @F@@@@ SINCE THERE ARE NO RESTRICTIONS ON TNP )@@G@@HE NAMES UNDER WHICH @F@@@@ USERS MAY SAVE WORKSPACES, IT IS OBVIOUS NQ )@@G@@THAT AN ADDITIONAL ME- @F@@@@ CHANISM IS NEEDED IN ORDER TO INSURE UNIQNR )@@G@@UENESS OF THE ELEMENTS @F@@@@ SAVED BY DIFFERENT USERS IN THE COMMON FINS )@@G@@LE. FOR THIS PURPOSE, @F@@@@ APL AUTOMATICALLY GENERATES A 'LIBRARY NUNT )@@G@@MBER' FOR EACH USER BY @G@@@@ HASHING TOGETHER HIS ACCOUNT NUMBER AND CNU )@@G@@URRENT QUALIFIER. COLLI- @F@@@@ SIONS ARE RESOLVED BY KEEPING A SPENV )@@G@@CIAL ELEMENT IN THE LIBRARY @F@@@@ FILE IN WHICH A RECORD OF EVERY LIBNW )@@G@@RARY NUMBER AND THE ASSOCIATED@F@@@@ ACCOUNT NUMBER AND QUALIFIER ARE KENX )@@G@@PT. IN THIS WAY, IT IS UNNE- @F@@@@ CESSARY FOR A USER TO KNOW WHAT HISNY )@@G@@ LIBRARY NUMBER IS (OR EVEN @G@@@@ THAT HE HAS ONE), UNLESS HE WISHES NZ )@@G@@TO SHARE WORKSPACES WITH A USER @E@@@@ WHO RUNS UNDER A DIFFERENT ACOA )@@G@@COUNT NUMBER AND/OR QUALIFIER.@F@@@@ IF APL\1100 HAS BEEN CONFIGUREDOB )@@G@@ SUCH THAT A SINGLE FILE IS @F@@@@ USED FOR ALL WORKSPACES (ONEFIL EQUOC )@@G@@ 1 IN SITEPAR/APL), THEN EACH @F@@@@ USER IS LIMITED TO A FIXED QUOTA OFOD )@@G@@ MASS STORAGE IN SECTORS WHICH@G@@@@ IS SET BY THE INSTALLATION MANAGER.OE )@@G@@ IF EACH USER HAS HIS OWN FILE, @B@@@@ THE LIMIT IS SIMPLY THE SIZE OF )@@G@@OF HIS FILE.@F@@@@ ADDITIONAL FEATURES OF THE LIBRARY SYSTEM ARE: (OG )@@G@@1) NO USER @F@@@@ CAN )DROP A WORKSPACE EXCEPT THE USER WHO ORIGINALLY OH )@@G@@)SAVED IT; @F@@@@ (2) NO USER CAN )SAVE IN A PUBLIC WORKSPACE EXCEPT THOI )@@G@@E USER WHO @F@@@@ SAVED IT ORIGINALLY; (3) ONLY THE INSTALLATION MANAGEOJ )@@G@@R MAY SAVE A@E@@@@ WORKSPACE IN LIBRARIES 1-99; (4) NO ONE MAY )LIB A USOK )@@G@@ER'S @D@@@@ WORKSPACES BUT HIMSELF OR THE INSTALLATION MANAGER. @A@@@@OL )@@G@@3INSTALLATION MANAGER PRIVILEGES @F@@@@ ORDINARILY, A USER SIGNSOM )@@G@@ ON TO APL USING THE CARD @APL, @F@@@@ WITHOUT ANY OPTIONS, FIELDS OON )@@G@@R SUBFIELDS. THE USER MAY SIGN ON @F@@@@ WITH A LIBRARY NUMBER OTHER TOO )@@G@@HAN THE ONE AUTOMATICALLY CALCULATED@F@@@@ BY PUTTING THE DESIRED LIBRAROP )@@G@@Y NUMBER AS SPEC1 ON HIS @APL CARD, @^@@@@ I.E. @APL @F@@@@OQ )@@G@@ ONE LIBRARY NUMBER IS BUILT INTO THE SYSTEM AS A PRIVILEGED @F@@@@OR )@@G@@ NUMBER-THIS NUMBER IS 271828, AND IT IS INTENDED FOR THE USE OF @F@@@@OS )@@G@@ THE INSTALLATION MANAGER. IN ORDER TO SIGN ON WITH THIS NUMBER, @F@@@@OT )@@G@@ IT *MUST* BE PUT AS SPEC1 ON THE PROCESSOR CALL CARD. IT IS @F@@@@OU )@@G@@ RECOMMENDED THAT THE INSTALLATION MANAGER PUT A LOCK ON THIS @F@@@@OV )@@G@@ NUMBER AS SOON AS HE INTRODUCES APL TO HIS INSTALLATION. THIS IS@F@@@@OW )@@G@@ DONE BY SIGNING ON WITH THE NUMBER-- I.E. @APL 271828 AND THEN @F@@@@OX )@@G@@ SIGNING OFF WITH A LOCK ON THE )OFF COMMAND-- I.E. )OFF: @F@@@@OY )@@G@@ ONCE THIS IS DONE, THE ONLY WAY TO SIGN BACK ON THIS NUMBER IS TO@G@@@@OZ )@@G@@ SPECIFY BOTH THE NUMBER AND THE LOCK ON THE PROCESSOR CALL CARD BY PA )@@G@@@^@@@@ @APL 271828/ @F@@@@ WITH THE RELEASE OF APL\1100 VPB )@@G@@ERSION 5.8, IMPLEMENTATION OF @F@@@@ THE SPECIAL FUNCTIONS FOR THE INSTAPC )@@G@@LLATION MANAGER IS ESSENTIALLY@F@@@@ COMPLETE. THE WORKSPACE 271828 OPFNPD )@@G@@S CONTAINS A COMPLETE SET OF @E@@@@ FUNCTIONS FOR MAINTENENCE OF THE WOPE )@@G@@RKSPACE FILE, INCLUDING @F@@@@ FUNCTIONS TO LIST SELECTED INFORMATION, APF )@@G@@ND FUNCTIONS TO DO MASS @F@@@@ STORAGE BILLING. EXCEPT FOR AN OCCASIONAPG )@@G@@L FURPUR @PACK OF THE @F@@@@ WORKSPACE FILE, IT IS NOW POSSIBLE TO MAIPH )@@G@@NTAIN THE APL WORKSPACE @D@@@@ COMPLEX COMPLETELY FROM WITHIN THE APL SYPI )@@G@@STEM ITSELF.@F@@@@ IN ADDITION TO THE SPECIAL PRIVILEGES FOR THE INPJ )@@G@@STALLATION @G@@@@ MANAGER, IT SHOULD BE NOTED THAT THE DISTRIBUTED PUBLPK )@@G@@IC WORKSPACES @E@@@@ (SUCH AS 1 NEWS) HAVE ALL BEEN SAVED UNDER THE PL )@@G@@INSTALLATION@F@@@@ MANAGER'S IDENTIFICATION. THUS, NO ONE MAY CHANGE ANPM )@@G@@Y OF THESE @F@@@@ WORKSPACES BUT THE INSTALLATION MANAGER. FOR THESE RPN )@@G@@EASONS, IT @F@@@@ IS STRONGLY RECOMMENDED THAT THE LIBRARY NUMBER FOR TPO )@@G@@HE INSTALLA-@F@@@@ TION MANAGER BE LOCKED WITH A LOCALLY DEFINED PASSWORPP )@@G@@D AS SOON AS@ @@@@ THE SYSTEM IS IMPLEMENTED. @#@@@@4USER INFORMATION PQ )@@G@@@#@@@@3USER MANUALS @F@@@@ EVERY ATTEMPT HAS BEEN MADE TO MAKE PR )@@G@@APL\1100 COMPATIBLE WITH@F@@@@ OTHER EXTANT VERSIONS OF APL. THE PRIMARPS )@@G@@Y DIFFERENCE IS IN THE @F@@@@ CHARACTER SET, WITH OTHER DIFFERENCES BEIPT )@@G@@NG MINOR. ALL THE STAN-@G@@@@ DARD MANUALS AND TEXTS WHICH DESCRIBE THEPU )@@G@@ APL LANGUAGE AND THE USE @F@@@@ OF THE APL TERMINAL SYSTEM MAY BE UPV )@@G@@SED ESSENTIALLY AS WRITTEN. @F@@@@ SINCE APL\1100 INCLUDES SOME UNIQUEPW )@@G@@ EXTENSIONS, AND MORE ARE @G@@@@ PLANNED, WE HAVE DECIDED TO PRODUCEPX )@@G@@ A MANUAL SPECIFIC TO APL\1100, @G@@@@ A PRELIMINARY COPY OF WHICH MPY )@@G@@AY BE FOUND IN THE THIRD FILE OF THIS @#@@@@ DISTRIBUTION. @F@@@@PZ )@@G@@ AN APL\1100 USER WHO DOES NOT HAVE A COPY OF THE MANUAL MAY @G@@@@QA )@@G@@ INFORM HIMSELF ABOUT ITS FEATURES BY EXAMINING THE CONTENTS OF THE QB )@@G@@@F@@@@ PUBLIC WORKSPACES '1 APL1100' AND '1 CHARACTERSET'. THE FOLLO- QC )@@G@@@F@@@@ WING RUNSTREAM IS SUFFICIENT FOR A USER TO GET HIMSELF STARTED: QD )@@G@@@^@@@@ @RUN @^@@@@ @APL @A@@@@ QE )@@G@@ )LOAD 1 APL1100 @ @@@@ DESCRIBE @B@@@@QF )@@G@@ )LOAD 1 CHARACTERSET @ @@@@ DESCQG )@@G@@RIBE @^@@@@ )OFF@^@@@@ @FIN @#@@@@QH )@@G@@3BIBLIOGRAPHY @F@@@@ THE FOLLOWING PUBLICATIONS CONTAIN DESCRIPTIONSQI )@@G@@ OF APL AND ITS @F@@@@ USE. THIS LIST IS BY NO MEANS EXHAUSTIVE, BUT QJ )@@G@@REPRESENTS ONLY @F@@@@ THOSE PUBLICATIONS PERSONALLY KNOWN TO THE AUTHQK )@@G@@ORS OF APL\1100 AT@G@@@@ THIS TIME. NEW TEXTS IN APL ARE CONSTANTLY BEIQL )@@G@@NG BROUGHT OUT, AND @F@@@@ YOU ARE ADVISED TO CONSULT THE ADVERTISINQM )@@G@@G IN RECENT ISSUES OF @B@@@@ CACM OR DATAMATION FOR THE LATEST TEXTS.QN )@@G@@@E@@@@ A PROGRAMMING LANGUAGE, K. E. IVERSON, WILEY(1962). @]@@@@QO )@@G@@COLUMN 16 @E@@@@ PRIMARILY OF HISTORICAL INTEREST, THIS QP )@@G@@BOOK @F@@@@ DESCRIBES THE ORIGINAL APL NOTATION, WHICH DIQQ )@@G@@FFERS @F@@@@ SOMEWHAT FROM THE IMPLEMENTED PROGRAMMING SYSQR )@@G@@TEM. @E@@@@ APL/360 REFERENCE MANUAL, S. PAKIN, SCIENCE RESEARCH QS )@@G@@@E@@@@ ASSOCIATES, CHICAGO (1970). THIS IS THE MOST@F@@@@QT )@@G@@ COMPLETE REFERENCE TO THE IMPLEMENTED LANGUAGE. @F@@@@QU )@@G@@ A FORMAL DESCRIPTION OF APL, R.H. LATHWELL AND J.E. MEZEI. @G@@@@QV )@@G@@ IBM PHILADELPHIA SCIENTIFIC CENTER, TECH. REPORT NO. QW )@@G@@@F@@@@ 320-3008 (1971). THIS GIVES A FORMAL DEFINITION OFQX )@@G@@@E@@@@ THE SEMANTICS (NOT SYNTAX) OF THE APL SYSTEM,@D@@@@QY )@@G@@ DESCRIBED IN TERMS OF APL FUNCTIONS. @E@@@@ APL: QZ )@@G@@AN INTERACTIVE APPROACH, L. GILMAN AND A. ROSE, @F@@@@ WILRA )@@G@@EY(1970). THIS IS THE BEST AVAILABLE TUTORIAL @F@@@@ PUBRB )@@G@@LICATION; IT CAN BE USED AS A SELF-TEACHING TOOL@C@@@@ WITRC )@@G@@H WHICH TO LEARN THE LANGUAGE.@]@@@@COLUMN 2 ___@@@ OTHER EXTANT VERSRD )@@G@@IONS OF APL. THE PRIMARY DIFFERENCE IS IN THE @F@@@@ CHARACTER SET, WIRE )@@G@@TH OTHER DIFFERENCES BEI*[S@@@*SDFF*@[@@@[/. @]@@@[ DEF .@D@@@[RF )@@G@@. ********** DEFINITIONS OF FUZZING ACCURACY *****@G@@@[FUZIND EQU RG )@@G@@ 12 . DEFAULT FUZZ INDEX (NO OF BITS TO IGNORE) @[@@@[. RH )@@G@@@E@@@[. INTEGER CONVERSION WITH FUZZING--- @F@@@[RI )@@G@@F PROC . ARG IN A4,A5, RESULT (MAY BE DFL OR HFI) IN A1,A2 @^@@@[RJ )@@G@@FUZZUP* NAME 0 . CEILING@^@@@[FUZZDN* NAME 1 . FLOOR @ @@@[ UNLI$RK )@@G@@T . @ @@@[ LMJ A0,FUZER$ . @D@@@[ DO F(0,0)RL )@@G@@ , +0.0D . NO ADJUSTMENT FOR FLOOR @C@@@[ DO 1-F(0,0) , +1.0D RM )@@G@@ . BUT CEILING ADDS ONE @#@@@[ LI$T . @F@@@[FUZDEF* NAME 0 . RN )@@G@@ DUMMY ENTRY TO DEFINE FUZZING CONSTS @]@@@[ END .@[@@@[RO )@@G@@. @B@@@[. SET FUZZING PARAMETERS IN WORKSPACE @[@@@[. @D@@@[RP )@@G@@P PROC . ENTER WITH FUZZ INDEX TO USE IN A2 @#@@@[SETFUZ* NAMERQ )@@G@@ . @ @@@[ UNLI$T . @C@@@[ SA A2,WSFUZI RR )@@G@@ . PUT INDEX INTO THE WS@E@@@[ JZ A2,LINEUP . IF INDEX IS ZERRS )@@G@@O, NO FUZZING @E@@@[ AA,U A2,02001-60 . FUZZINDEX OF 60 ALLOWRT )@@G@@S 100% ERROR@C@@@[ LSSL A2,1 . MOVE EXPONENT OVER @E@@@[RU )@@G@@ AA,U A2,1 . SO WE CAN FOLD IN THE DIGIT BIT @E@@@[LINEUPRV )@@G@@ LDSL A1,72-13 . ALIGN NORMALIZED DFLOAT FUZZCONST@C@@@[ DS RW )@@G@@ A1,WSFUZZ . AND PUT IT IN THE WS @#@@@[ LI$T . @#@@@[ RX )@@G@@ END . @[@@@[. @ @@@[F PROC . @ @@@[FUZDIFRY )@@G@@* NAME . @^@@@[RITE EQU F(1,1) . @^@@@[LEFT EQU RZ )@@G@@ F(1,2) . @B@@@[ DFAN RITE,LEFT , . FORM SIGNED DIF@#@@@[ SA )@@G@@ UNLIST . @F@@@[ DFM LEFT,WSFUZZ . GET ABS ERROR=PERCENT(FUZSB )@@G@@Z)*ARGUMENT @C@@@[ DLM LEFT,LEFT . FORCE IT POSITIVE @C@@@[SC )@@G@@ JP RITE,$+3 . IS SIGNED DIF NEG? @E@@@[ DFA LEFT,SD )@@G@@RITE . YES, CALCULATE DIFF BY ADDITION @E@@@[ J $+2 SE )@@G@@ . AND TEST ABS(ERR)-ABS(DIF) @F@@@[ DFAN LEFT,RITE . DIFSF )@@G@@ IS POS, SUBTRACT GIVES -ABS(DIF) @F@@@[ TN LEFT . WASSG )@@G@@ DIF.GT.ALLOWABLE ABSOLUTE ERROR? @G@@@[ DSL RITE,72 . NO,SH )@@G@@ WITHIN ERROR. FORCE DIFFERENCE TO ZERO @C@@@[ DSL LEFT,72 SI )@@G@@ . CLEAR OTHER ARG REG @#@@@[ LIST . @ @@@[ END SJ )@@G@@ . @[@@@[. @F@@@[. TEST WHETHER CONTENTS OF A DOUBLE RESK )@@G@@G WILL FIT IN A HALFWORD@[@@@[. @#@@@[T PROC . @#@@@[THALFWSL )@@G@@* NAME . @#@@@[ UNLI$T . @E@@@[ JNZ T(1,1),NOGO . IF SM )@@G@@OFLO INTO LEFT REG, NOT HALF @E@@@[ LDSL T(1,1),19 . OTHERWISESN )@@G@@ ALIGH H1 AND SIGN OF H2@E@@@[ JNZ T(1,1),NOBACK . IF ALL BITS NSO )@@G@@OT THE SAME, QUIT @F@@@[ DSA T(1,1),19 . ALL SAME, RESTORE SIGSP )@@G@@NED ORIGINAL VALUE@C@@@[ J NOGO+1 . TAKE SUCCESS EXIT SQ )@@G@@@E@@@[NOBACK DSA T(1,1),19 . MISMATCH, RESTORE ORIGINAL VALUE @[@@@[SR )@@G@@NOGO .@#@@@[ LI$T . @]@@@[ END .@[@@@[. @F@@@[A SS )@@G@@ PROC . CONDITIONAL FLOAT-- CHECKS SIZE OF DOUBLE INTEGERS @#@@@[CFLOATST )@@G@@* NAME . @D@@@[ LA,U A(1,1),02074. INITIALIZE FOR NORMAL FLOATSU )@@G@@@#@@@[ UNLIST . @F@@@[ JNZ A(1,2),FLOAT . AND IF LEFT HASV )@@G@@LF NON-ZERO, GO DO IT @E@@@[ LDSL A(1,2),19 . OTHERWISE, SPLISW )@@G@@T SIGN FROM VALUE @E@@@[ JZ A(1,2),HALF . IF STILL ZERO, MUST BSX )@@G@@E HALFINT @F@@@[ LA,U A(1,1),02074-19 . IF NOT, PREPARE FOR SHISY )@@G@@FTED FLOAT @A@@@[FLOAT DFP A(1,1),A(1,2) . FLOAT @A@@@[ J SZ )@@G@@ HALF+1 . AND EXIT @D@@@[HALF DSA A(1,2),19 . HALFINT-- RESTOTA )@@G@@RE VALUE @#@@@[ LIST . @]@@@[ END .@[@@@[. @C@@@[TB )@@G@@I PROC . TEST A DFLOAT FOR HALFINT. @G@@@[TESTIN* NAME . WTC )@@G@@ORKREG,WORD X . IF SKIP, HALFINT IS IN WORKREG+1,2 @G@@@[ I$ 076,TD )@@G@@014,I(1,1)-A0,I(1,3),2*I(1,*3)+I(1,*2),I(1,2) . DFU ARG @#@@@[ TE )@@G@@ UNLIST . @D@@@[ DJZ I(1,1)+1,NOSKIP+1 . IF ZERO, ITS HALFINTTF )@@G@@@B@@@[ TLE,U I(1,1),02001 . PURE FRACTION?@C@@@[ J NOSKITG )@@G@@P . YES, MUST BE DOUBLE @F@@@[ TG,U I(1,1),02022 . WILL INTTH )@@G@@EGER PART FIT IN 17 BITS? @B@@@[ J NOSKIP . NO--GOODBTI )@@G@@YE @E@@@[ LDSC I(1,1)+1,1 . MAKE SURE NEXT TEST IS FOR +0 TJ )@@G@@@G@@@[ JNZ I(1,1)+2,NOSKIP . YES- BE SURE LEAST SIGNIF PART IS TK )@@G@@ZERO @E@@@[ LNA I(1,1),I(1,1) . NEGATE EXPONENT FOR SHIFT TL )@@G@@@E@@@[ DSA I(1,1)+1,02031,I(1,1) . ALIGN INTEGER PART @G@@@[TM )@@G@@ JNZ I(1,1)+2,NOSKIP . IF FRACT NOT CLEAR, GIVE UP RIGHT AWAY TN )@@G@@@E@@@[ LDSC I(1,1)+1,1 . MAKE SURE NEXT TEST IS FOR +0 @F@@@[TO )@@G@@ JNZ I(1,1)+2,NOSKIP . IF NONZERO FRACT, ITS DOUBLE @D@@@[TP )@@G@@ DSA I(1,1)+1,37 . SIGN EXTEND INTEGER @^@@@[ J TQ )@@G@@ NOSKIP+1 @]@@@[NOSKIP . @#@@@[ LIST . @]@@@[ END .TR )@@G@@@[@@@[/. @[@@@[. @F@@@[. THIS PROC POPS AND DECODES THE TOP OTS )@@G@@PERAND ON THE STACK @F@@@[. ARGUMENTS ARE ALL XFER LOCNS, I.E. LTT )@@G@@OC1,LOC2,LOC3 , WHERE: @A@@@[. LOC1= EXIT IF STAKMARK @F@@@[TU )@@G@@. LOC2,LOC3 = EXIT IF UNDEFINED- FOR STORE-TYPE ENTRIES, @G@@@[TV )@@G@@. LOC2 IS USED, ELSE LOC3. OTHER FIELD NO LONGER USEDTW )@@G@@@G@@@[. IF A SECOND FIELD IS SUPPLIED, IT IS A POINTER TO A LOCN IN TX )@@G@@WHICH @C@@@[. THE (PACKED) DESCRIPTOR IS TO BE STORED @[@@@[. TY )@@G@@@E@@@[. IF THE STACK CONTAINS A STAKMARK, IT IS LEFT IN A6. @E@@@[TZ )@@G@@. IF IT CONTAINS A DATUM, REGS ARE SET AS FOLLOWS-- @[@@@[. UA )@@G@@@D@@@[. A0 -ABS ADR OF 1ST (PERHAPS ONLY) WORD OF DATA@E@@@[. UB )@@G@@ A1 -ABS ADR OF 1ST DATA VAL OF DIM VECTOR, IF ANY @#@@@[. A2 -UC )@@G@@TYPE @#@@@[. A3 -MODE @D@@@[. A4 -RANK (ALSO=LENGTH OF DIMUD )@@G@@VECT, IF ANY) @G@@@[. A5 -LENGTH OF DATUM (I.E. NO OF ELEMENTSUE )@@G@@) OR VALUE, IF SCALHAFI @G@@@[. A6 -RELATIVE ADDR OF DESCRIPTOR BLUF )@@G@@OK (OR STACK ENTRY IF MARK) @E@@@[. A7 -RELATIVE ADDR OF DESCR BUG )@@G@@LOK OF DIMVECT (IF ANY) @[@@@[. @#@@@[V PROC . @D@@@[VERIFYUH )@@G@@* NAME 0 . POP AND REQUIRE DEFINED VAL @G@@@[VERIFS* NAME 1 UI )@@G@@ . POP AND FLAG UNDEF VAL BY EXIT THRU 2ND SUBFIELD @C@@@[VERIFZ* NAMEUJ )@@G@@ 2 . NOPOP, REQUIRE DEFVAL @F@@@[VERIFW* NAME 3 . NOPOP, AUK )@@G@@LLOW UNDEFINED (AS IN STORE OPNS) @^@@@[ UNLI$T . @F@@@[UL )@@G@@VF$FLG EQU 1**V(0,0) . TRUE IFF STORE ENTRY (NAME LINE ODD ) @C@@@[UM )@@G@@ LA,U A2,VF$FLG . PICK UP STORE FLAG @C@@@[ LA,U A1,V(UN )@@G@@0,0)<2 . SET STACKPOPPING FLAG@D@@@[ LMJ A0,VERIF$ . GO TO DECUO )@@G@@ODING SUBROUTINE @D@@@[. THE NEXT INSTR IS EXECUTED BY AN 'EX' IN THE SUP )@@G@@UBRTNE@F@@@[ DO V(2)>0 , I$ 071,012,02,V(2,2),2*V(2,*2)+V(2,*1),V(2,1) UQ )@@G@@. @E@@@[ DO V(2)<1 , NOP 0,0 . IT WILL STORE DESCR, IF SPECIFIED UR )@@G@@@C@@@[ J V(1,1) . STAKMARK EXIT (1,A1)@G@@@[. NEXT WORD US )@@G@@IS UNDEFINED VALUE EXIT, WHICH IS FIELD2 FOR STORE-TYPE @F@@@[. CALLUT )@@G@@S, AND FIELD3 FOR OTHERS (HISTORICAL REASONS, SORRY). THE @B@@@[. OTHEUU )@@G@@R FIELD (3 OR 2) IS NO LONGER USED. @C@@@[ J V(1,3-VF$FLG) . UV )@@G@@ (2,A1) @C@@@[ LI$T . NORMAL EXIT IS (3,A1)UW )@@G@@@ @@@[ END . @[@@@[. @A@@@[. PROCS TO TEST ARUX )@@G@@G MODES AND RANKS @[@@@[. @F@@@[P PROC . GENERAL: RANK,UY )@@G@@BAD MODE1,MODE2,...,BADMODE @F@@@[JMRTST* NAME . WHERE RANK UZ )@@G@@AND MODES ARE THOSE EXPECTED @#@@@[ UNLI$T . @C@@@[ JE,U VA )@@G@@ A5,1 JN0010 . LENGTH 1 ALWAYS GOOD @D@@@[ JNE,U A4,P(1,1) P(1,2) VB )@@G@@. ELSE FORCE RANK CHECK @B@@@[JN0010 . TARGET FOR SUCCESSFUL RANK TEST VC )@@G@@@ @@@[. NOW DO MODE CHEX, IF ANY @E@@@[ DO P(2)=0 , GO JN$010 . IF VD )@@G@@NO MODES GIVEN, DON'T CHECK @C@@@[ JZ A5,JN0020 . NULLS CANVE )@@G@@ BE ANY MODE@C@@@[NMODS EQU P(2)-1 . NO OF MODES SPECIFIED@G@@@[VF )@@G@@ DO NMODS>1 ,K DO NMODS-1 , JE,U A3,P(2,K) JN0020 . ALL BUT LAST MODE VG )@@G@@@F@@@[ JNE,U A3,P(2,NMODS) P(2,NMODS+1) . CHECK LAST MODE VH )@@G@@@B@@@[JN0020 . TARGET FOR SUCCESSFUL MODE TESTS @#@@@[JN$010* NAME . VI )@@G@@@#@@@[ LI$T . @#@@@[ END . @ @@@[/. GENERATE ERROR VJ )@@G@@RETURNS @[@@@[. @^@@@[E PROC . CODE,LOC @#@@@[ERROR* NAME VK )@@G@@. @ @@@[ UNLI$T . @ @@@[ SLJ ERPRNT VL )@@G@@ . @ @@@[ + E(1,1),E(1,2) . @ @@@[ LI$T VM )@@G@@ . @]@@@[ END .@D@@@[/. PROC TO SETUP FORTRAN CALLINGVN )@@G@@ SEQUENCE @A@@@[. WITH 1 OR 2 ARGUMENTS @[@@@[. @D@@@[VO )@@G@@. USAGE: FCALL SUBNAM,WALKBK ARG1,ARG2...ARGN @G@@@[. NOTE**VP )@@G@@** FCALL IS SPECIAL PROC FOR MATHRTNES, AND ASSUMES ARGS @E@@@[. VQ )@@G@@ IN REGISTERS. NORMAL FORTRAN TYPE CALLS USE SCALL. @[@@@[. @[@@@[VR )@@G@@. @ @@@[F PROC . @ @@@[FCALL* NAME VS )@@G@@ . @B@@@[NARGS EQU F(2) . NUMBER OF ARGS @ @@@[ UNLI$VT )@@G@@T . @E@@@[ DS A4,F(2,NARGS) . PUT LAST ARG VU )@@G@@IN CALL SEQ @G@@@[ DO NARGS>1 , DS A1,F(2,1) . PUT FIRST ARG IN CAVV )@@G@@LL SEQ, IF USED @ @@@[ GO FC$000 . @G@@@[SCALL* NAME VW )@@G@@ . ENTRY POINT FOR CALLS WITH THEIR ARGS ALREADY@D@@@[ VX )@@G@@ . STORED IN CALL SEQ LOCS @B@@@[NARGS EQU F(2) VY )@@G@@ . NUMBER OF ARGS @ @@@[ UNLI$T . @ @@@[FC$000VZ )@@G@@* NAME . @D@@@[ LMJ X11,F(1,1) . GO TO FORTRAN SWA )@@G@@UBROUTINE @D@@@[L DO NARGS , +F(2,L) . GENERATE ARGUMENT POINTERS WB )@@G@@@B@@@[ +F(1,3),F(1,2) . WALKBACK WORD @ @@@[ LI$T WC )@@G@@ . @ @@@[ END . @E@@@[/. CALL REP OR LMWD )@@G@@J, DEPENDING UPON RE-ENTRANT MAP PARAMETER@[@@@[. @G@@@[P PROC WE )@@G@@ . CALL SEQ: CALREP, XA,TARGET,TAG . @#@@@[CALREPWF )@@G@@* NAME . @#@@@[ UNLI$T . @G@@[[ DO P(0)>1 , LXI,U P(1,1),P(0,WG )@@G@@1) . IF GIVEN, FORCE BANK DESCR INDEX @C @@[ LIJ P(1,1),P(1,WH )@@G@@2),P(1,3) . AND CALL IT@#[@@[ LI$T . @#@@@[ END . WI )@@G@@@[@@@[. @B@@@[P PROC . GET NUM IN HALFINT TO A2 @B@@@[GHFINTWJ )@@G@@* NAME . PARAM I LINKREG (X4 OR X6) @ @@@[ UNLI$T . WK )@@G@@@D@@@[ALEFT EQU A1+3*(P(1,1)=X6) . RESULT REG IS A1 OR A4@A@@@[ WL )@@G@@ LMJ P(1,1),0,P(1,1) . @D@@@[ JZ ALEFT,DUN . IF HALFINWM )@@G@@T, WE'RE DONE @#@@@[. DFLOAT RESULT @ @@@[ DO P(1,1)=X4 , DL A4,A1WN )@@G@@ . @ @@@[ FUZZDN . @C@@@[ JNZ A1,P(2,1) WO )@@G@@ . IF CAN'T FIX, DIE @ @@@[ DO P(1,1)=X6 , J OUT . @]@@@[DUN WP )@@G@@ . @ @@@[ DO P(1,1)=X6 , DL A1,A4 . @]@@@[OUT . @C@@@[ DO P(WQ )@@G@@1)>1 , SA A2,P(1,2) . POST THE PARAM VALUE@#@@@[ LI$T . @#@@@[WR )@@G@@ END . ___E @F@@@[ JNE,U A3,P(2,NMODS) P(2,NMODS+1) WS )@@G@@ . CHECK LAST MODE @B@@@[JN0020 . TARGET FOR SUCCESSFUL MODE TESTS WT )@@G@@*[S@@@*SDFF*@F@@@[/. THIS PROC DEFINES THE INTERNAL CONTROL BLOCKS USED WU )@@G@@BY APL-- @]@@@[ DEF @E@@@[. FOR EACH BLOCK, S1 OF 1ST WD=BWV )@@G@@LOCK TYPE AS FOLLOWS-- @F@@@[ZTPNAM EQU 1 . NAME BLOCK (CONTAINS SYMBOLWW )@@G@@IC VARIABLE/FN NAME) @D@@@[ZTPLIT EQU 2 . DESCRIPTOR BLOCK, LITERAL CWX )@@G@@ONSTANT @E@@@[ZTPDIM EQU 3 . DIMENSION VECTOR (SPECIFIES ARRAY SHAWY )@@G@@PES) @C@@@[ZTPVAR EQU 4 . DESCRIPTOR BLOCK, NAMED VARIABLE @E@@@[ZTPTMPWZ )@@G@@ EQU 5 . DESCRIPTOR BLOCK, COMPILER DEFINED TEMPORARY @D@@@[ZTPFUN EQU 6XA )@@G@@ . FUNCTION BLOCK, USER DEFINED FUNCTION @E@@@[ZTPSTA EQU 7 . STACK BLOXB )@@G@@CK, USED WHEN STACK OVERFLOWS R-REGS@D@@@[ZTPTXT EQU 010 . TEXXC )@@G@@T (LEXICALL POINTERS) @B@@@[ZTPCOD EQU 011 . CODE (COMPILED)XD )@@G@@@C@@@[ZTPFTB EQU 012 . CLOSED FUNC TABLE @E@@@[ZTPSEC EQU XE )@@G@@ 013 . SYMBOL TABLE SECONDARY ENTRIES @E@@@[ZTPNMP EQU 014 . NXF )@@G@@AME BLOK FOR IMPLICITLY NAMED PLEX ELEMENT@G@@[[ZTPNFD EQU 076 XG )@@G@@ . BLOC TYPE FOR OBJECTS NOT FOUND BY ')COPY' @[@@@[. @F@@@[. XH )@@G@@S2 OF DESCRIPTOR BLOX INDICATES MODE OF DATA AS FOLLOWS-- @G@@@[ZMONULXI )@@G@@ EQU 0 . ENTRY NULL (I.E. PGM ERROR, EMPTY STACK, ETC)@F@@@[XJ )@@G@@ZMOUNK EQU 1 . UNKNOWN (UNINITIALIZED NAMED VARIABLE) @G@@@[XK )@@G@@ZMOCHR EQU 2 . CHARACTER MODE (NOTE: IF CHAR, ALWAYS VECTOR)XL )@@G@@@D@@@[ZMOLGL EQU 3 . LOGICAL (I.E. BIT-STRING) @B@@@[ZMOHFIXM )@@G@@ EQU 4 . HALF-INTEGER @A@@@[ZMOINT EQU 5 . INTXN )@@G@@EGER @E@@@[ZMODFL EQU 7 . DOUBLE PRECISION FLOATING POINT XO )@@G@@@F@@@[ZMODFI EQU 8 . FLAG FOR FLOATING TO INT CONVERSION XP )@@G@@@D@@@[ZMOMIX EQU 9 . FLAG FOR MIXED OPERANDS @C@@@[ZMOPTRXQ )@@G@@ EQU 10 . POINTER VARIABLE @F@@@[ZMOMAX EQU 10 XR )@@G@@ . MAX MODE VAL (USED TO GENERATE TABLES) @E@@@[. S3 OF DESCRIPTOR IXS )@@G@@NDICATES RANK, I.E. RHO(RHO(X)) @A@@@[ZRANKS EQU 0 . SCAXT )@@G@@LAR @A@@@[ZRANKV EQU 1 . VECTOR @G@@@[. XU )@@G@@ . OTHER RANKS (MATRIX, ETC) DEFINED DYNAMICALLY@#@@@[. BLOCK FORMXV )@@G@@ATS-- @G@@@[. : WORD1 : WORD2 : WORXW )@@G@@D3 : @G@@@[. TYPE : S1 S2 S3 H2 : S1 S2 S3 H2 :XX )@@G@@ H1 H2 : @G@@@[. LIT DESCRIPTS--: : XY )@@G@@ : : @G@@@[. SCAL INT : TP MO RA IMDATA : XZ )@@G@@ : : @G@@@[. SCAL FLOAT : 02 MO RA :YA )@@G@@ LEFT HALF DATA : RITE 1/2 DATA : @G@@@[. VECT (ANY) : 02 MO RA LEYB )@@G@@NGTH : ... DATA ... : ... DATA ... : @G@@@[. NAMED VBL DSCR-: YC )@@G@@ : : : @G@@@[. SCAL INT/BIT :YD )@@G@@ TP MO RA IMVALU : : FLEVEL NEXTDS : @G@@@[. SCAL REAYE )@@G@@L : TP MO RA DATADR : : FLEVEL NEXTDS : @G@@@[. VEYF )@@G@@CT (ALL) : 04 MO RA LENGTH : DATADR : FLEVEL NEXTDS : @G@@@[YG )@@G@@. ARRAY (ALL) : TP MO RA LENGTH : DIMVAD DATADR : FLEVEL NEXTDS : YH )@@G@@@G@@@[. PRIM NAME BLOK : 01 *NCHR FWDSTL : REFCNT NEXTDS : FIRST 4 CHAYI )@@G@@RS : @G@@@[. SEC NAME BLOCK :013 ----- FWDSTL : 4 CHARS OF NAME : MORE YJ )@@G@@OF NAME : @G@@@[. FUNCT BLOCK : TP VF NA NLINES : LF TBLADR :YK )@@G@@ LASTDS OPNADR : @[@@@[. @]@@@[. WHERE-- @^@@@[. TP = BLOCK YL )@@G@@TYPE @^@@@[. MO = MODE OF DATA@#@@@[. RA = RANK @D@@@[. IMDYM )@@G@@ATA = IMMEDIATE DATA VALUE OF SPECIFIED DATUM @D@@@[. DATADR = WORKSPYN )@@G@@ ADDR OF 1ST DATA WORD OF THIS DATUM@C@@@[. LENGTH = TOTAL NO OF ELEMENYO )@@G@@TS, I.E. +/,RHO(X)@G@@@[. FLEVEL = FUNCT CALL LEVEL AT WHICH THIS VALUEYP )@@G@@ IS DEFINED (0=GLOBAL) @G@@@[. NEXTDS = POINTER TO NEXT DESCRIPTOR, PUYQ )@@G@@SH DOWN SYMBOL DEFINITIONS @C@@@[. DIMVAD = ADDR OF DESCRIPTOR BLOK YR )@@G@@OF DIMVETOR @F@@@[. NCHR =TOTAL NO OF CHARS IN THIS NAME (NOTE-- USESYS )@@G@@ ***Q2***) @G@@@[. FWDSTL =FOWARD SYMBOL TABLE LINK TO NEXT 2NDARY ENTYT )@@G@@RY FOR THIS NAME @F@@@[. REFCNT =NO OF TIMES THIS NAME IS REFERENCED IYU )@@G@@N LEXICAL TEXT @E@@@[. VF = RESULT FLAG (0=UNVALUED FUNC, 1=VALUYV )@@G@@ED FUNC) @D@@@[. NA = NO OF FUNC ARGS (0=NONAD,1=MONAD,2=DYAD) YW )@@G@@@G@@@[. NLINES = NO OF LINES IN THIS FUNC (INCLUDING LINE ZERO/FUNC HEAYX )@@G@@DER) @D@@@[. LF = LOCK FLAG (NON-ZERO IF DEFN IS LOCKED) @C@@@[YY )@@G@@. TBLADR = ADDR OF LINENO TABLE (CLOSED FUNCS) @D@@@[. OPNADR = CHAIN YZ )@@G@@TO 1ST BLOK OF OPEN FUNC TABLES @[@@@[. @G@@@[. FLAGS STOREDZA )@@G@@ IN 1ST OCTAL DIGIT OF LEXICALLY ANALYZED TEXT WHICH @A@@@[. INDICATE TZB )@@G@@YPE OF TEXT ENTRY-- @[@@@[. @E@@@[LEXOPR EQU 0 . PRIMITIVE OPRZC )@@G@@ (REMAINDER OF WD=OPCODE) @G@@@[LEXLIT EQU 1 . LIT CONST FOLLOWS (ZD )@@G@@REST OF ENTRY=NO OF WDS USED BY LIT)@G@@@[LEXNAM EQU 2 . OPERAND/FUNC ZE )@@G@@NAME (REST OF ENTRY=SYMBOL TABLE ADDR) @A@@@[LEXSTP EQU 3 . STOPVECZF )@@G@@TOR NAME @A@@@[LEXTRC EQU 4 . TRACEVECTOR NAME @[@@@[. @]@@@[ZG )@@G@@C PROC .@D@@@[CBLOCK* NAME . S1,S2,S3,H2 S1,S2,S3,H2 H1,H2 . ZH )@@G@@@^@@@[CB FORM 6,6,6,18 . @C@@@[ DO C(1)>0 , CB C(1,1),C(1,2),C(1,3)ZI )@@G@@,C(1,4) . @^@@@[ DO C(1)>0 , UNLIST . @C@@@[ DO C(2)>0 , CB C(2,1),CZJ )@@G@@(2,2),C(2,3),C(2,4) . @ @@@[ DO C(3)>0 , +C(1,3),C(2,3) . @^@@@[ DO C(ZK )@@G@@1)>0 , LIST . @]@@@[ END . @[@@@[/. @C@@@[. DEFS OF VALS ANZL )@@G@@D LOCNS IN STATEVECTOR.... @E@@@[ DEF . VALUES BEZM )@@G@@LOW ARE KEPT IN 'STVCUR'@ @@@[STSUSP EQU 0 . SUSPENDED @A@@@[STFUNCZN )@@G@@ EQU 1 . IN FUNC DEF MODE @B@@@[STFUNX EQU 2 . EXECUTING A USER FUZO )@@G@@NCTION@B@@@[STEVAL EQU 3 . ACCEPTING EVALUATED INPUT@C@@@[STUNQU EQU ZP )@@G@@ 4 . PROCESSING AN UNQUOTED LINE @[@@@[. @#@@@[S PROC . ZQ )@@G@@@B@@@[STATEV* NAME . DEFINE LOCS IN STATEVECTOR @[@@@[. @C@@@[. ZR )@@G@@ ***** STATEVECTOR LAYOUT ***** @B@@@[. .........ZS )@@G@@.............. @B@@@[. STATEV : CUR : DPT : CHAIN : @B@@@[ZT )@@G@@. STATEV+1 : STMNTNO : INSTCTR : @B@@@[. STATEV+2 : COMCODZU )@@G@@E : LEXTEXT : @B@@@[. STATEV+3 : FNAM/UQDS : FUNDESC : @B@@@[ZV )@@G@@. STATEV+4 : FUNLINS : FUNTABL : @B@@@[. STATEV+5 : STAKFLZW )@@G@@G : S : T: : @B@@@[. ....................... @[@@@[ZX )@@G@@. @E@@@[. WORDS STATEV+5,6 AND 7 ARE RESERVED FOR FUTURE EXPANSION ZY )@@G@@@[@@@[. @G@@@[STVCUR* EQUF WSTATE,,Q1 . CUR = CURRENT STATE (PEZZ )@@G@@R 'DEF'S ABOVE) @G@@@[STVDPT* EQUF WSTATE,,Q2 . DPT = CURRENT DEPAA )@@G@@TH OF FUNCTION NESTING @F@@@[STVCHN* EQUF WSTATE,,H2 . CHAIN = LINK AB )@@G@@TO PREVIOUS STATEBLOK @F@@@[STVSTN* EQUF WSTATE+1,,H1 . STMNTNO= CURREAC )@@G@@NT STATENT NO (IBEAM 26)@F@@@[STVICT* EQUF WSTATE+1,,H2 . INSTCTR=CURRENAD )@@G@@T IC (WITHIN STMNT) @F@@@[STVCCL* EQUF WSTATE+2,,H1 . COMCODE=COMPILAE )@@G@@ED CODE LEFT WD ADDR @G@@@[STVLXT* EQUF WSTATE+2,,H2 . LEXTEXT= ADDR AF )@@G@@OF LEXICAL TEXT (CURRENT STMT)@G@@@[STVFNN* EQUF WSTATE+3,,H1 . FNAM/UQ=AG )@@G@@ ADD OF FN NAMBLOK/UNQOUTED DESCR @F@@@[STVFND* EQUF WSTATE+3,,H2 . FUAH )@@G@@NDSC = ADDR OF CURRENT FUNC DESCR @F@@@[STVFNL* EQUF WSTATE+4,,H1 . FUAI )@@G@@NLINS= NO OF LINES IN THIS FUNC @E@@@[STVFTA* EQUF WSTATE+4,,H2 . FUAJ )@@G@@NTBL=ADDR OF FUNCTION TABLE @G@@@[STVSTK* EQUF WSTATE+5,,H1 . STAKFLAGAK )@@G@@-- NON-ZERO IF ANYTHING IS STACKED @D@@@[STVSTP* EQUF WSTATE+5,,S4 . S AL )@@G@@ = STOPVECTOR FLAG @D@@@[STVTRC* EQUF WSTATE+5,,S5 . T =TRACEVAM )@@G@@ECTOR FLAG @[@@@[. @]@@@[ END .___ @[@@@[. @E@@@[LEXOPRAN )@@G@@*[S@@@*SDFF*@F@@@[/. ASSEMBLY-TIME CONFIGURATION PARAMETERS AND PROCSAO )@@G@@ FOR APL-- @[@@@[. @#@@@[ DEF . @[#@@[. @D@@@[. PARAAP )@@G@@METERS WHICH AFFECT THE APL LANGUAGE ITSELF @[@@@[. @G@@@[MAXSUBAQ )@@G@@ EQU 63 . MAX NO OF SUBSCRIPTS ALLOWED. SINCE ONLY A SIXTH WORD @G@@@[AR )@@G@@ . IS DEFINED IN DESCRIPTORS FOR RANK, THIS CANNOT EXCEED AS )@@G@@@C@@@[ . 63, BUT IT COULD BE SMALLER @G@@@[MAXNAM EQU AT )@@G@@ 76 . MAX NO OF CHARS IN A VARIABLE OR FUNC NAME @[@@@[. AU )@@G@@@G@@@[MXCNTG EQU 9 . MAX NO OF 'SYSTEM ERROR' TYPE CONTINGENCIES ALLOWAV )@@G@@ED @G@@@[ . BEFORE TOTAL COLLAPSE (ER EABT$) OF APL. TAW )@@G@@HIS VALUE @G@@@[ . IS USED TO GUARD AGAINST THE POSSIBILAX )@@G@@ITY OF LOOPS INTO @G@@@[ . AND OUT OF THE CONTINGENCY ROUTAY )@@G@@INE CAUSED BY IOPR'S @C@@@[. . AND IGDM'S IN STRANGE PLAAZ )@@G@@CES. @[@@@[. @#@@[[CONFIG* PROC . @]I@@[ END. ___@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB )@@G@@*[S@@@*SDFF*@[@@@[. @A@@@[. DYNAMIC STORAGE ALLOCATION PROX @[@@@[BC )@@G@@. @G@@@[P PROC . ALLOCATE A BLOCK (X11,A0,A1,R1 ARE USED),BD )@@G@@ LOC TO A1 @F@@[[ALLOCT* NAME BALLOC . ENTRY FOR TEMPORARY ALBE )@@G@@LOCATIONS @E@@[[ALGLOB* NAME BALLOG . ENTRY FOR GLOBAL ALLOCBF )@@G@@ATIONS@#@@[[ UNLI$T . @G[@@[ . OR ALLOCT,J BG )@@G@@LOC,TAG(,J) WSFULL (IF A0 NOT SET) @E@@@[N EQU P-1 . FIEBH )@@G@@LD NO OF WSFULL SPECIFICATION @G@@@[ DO N>1 , I$ 010,P(0,1)+P(1,3),00,P(BI )@@G@@1,2),2*P(1,*2)+P(1,*1),P(1,1) . LA0 @E@@[[ LMJ X11,P(0,0) BJ )@@G@@. CALL ALLOCATION SUBROUTINE @F#@@[ I$ 074,04,00,P(N,2),2*P(N,*2)+P(N,*BK )@@G@@1),P(N,1) . JUMP IF WS IS FULL@#@@[[ LI$T . @ [@@[ END. BL )@@G@@ . @[@@@[. @E@@@[P PROC . FREE A BLOCK (X11BM )@@G@@,A0,A1,R1 ARE USED) @G@@@[FREE* NAME . TO USE, LOAD A0 WITH SIZBN )@@G@@E, A1 WITH LOCATION OF BLOK @ @@@[ LMJ X11,BLFREE . @]@@@[BO )@@G@@ END .@F@@@[/. THE FOLLOWING PROCS ARE DESIGNED TO ALLOW A REASONABP )@@G@@BLY ORDERLY @G@@@[. TRANSITION BETWEEN THE PRESENT METHOD OF STORAGE ALLBQ )@@G@@OCATION, AND THE @C@@@[. SYSTEM USED BY APL/360, WHICH IS MUCH SLICKER.BR )@@G@@@[@@@[. @G@@@[S PROC . UNLINK LARGEST BLOCK; POST ITS LIMITS FBS )@@G@@OR NEW ALLOCATION @#@@@[UNLNKL* NAME . @#@@@[ UNLI$T . @F@@[[BT )@@G@@ LMJ X11,BALARG . UNLINK LARGEST AVAILABLE BLOCK @#I@@[BU )@@G@@ LI$T . @]@@@[ END .@[@@@[. @G@@@[. ALLOCATE SPACE FBV )@@G@@ROM THE POOLED BLOCK, AND RETURN THE UNUSED PART TO @B@@@[. THE NORMALBW )@@G@@ LIST OF AVAILABLE STORAGE @[@@@[. @E@@@[A PROC . ASSUME BX )@@G@@A0 = NO OF WORDS TO BE ALLOCATED @F@@@[ALOCTB* NAME 0 . ALLBY )@@G@@OCATE FROM BOTTOM OF POOLED BLOCK @E@@@[ALOCTT* NAME 1 . ALLBZ )@@G@@OCATE FROM TOP OF POOLED BLOCK@#@@@[ UNLI$T . @E@@@[ LA CA )@@G@@ A1,WSFFWA . 1ST WORD ADDR OF POOLED BLOCK @E@@@[ LA A2,WSCB )@@G@@FLWA . LAST WORD ADDR OF POOLED BLOCK @G@@@[. COMPUTE LOWER AND UPPECC )@@G@@R LIMITS OF BLOK TO BE CHAINED ON FREE LIST @G@@@[ DO 1-A(0,0) , AA CD )@@G@@A1,A0 . ALLOCATING FROM BOTTOM, BUMP LOWER ADDRESS @G@@@[ DO A(0,0) ,CE )@@G@@ ANA A2,A0 . ALLOCATING FROM TOP, DECREMENT UPPER ADDR @G@@@[ DO A(CF )@@G@@0,0) , AA,U A2,1 . AND THEN BUMP TO ADDR OF 1ST WD BEING FREED @E@@@[CG )@@G@@ LA,U A0,1,A2 . BUMP HI ADDR OF BLOK BEING FREED @G@@@[ CH )@@G@@ ANA A0,A1 . LESS LOW ADDR GIVES NO OF WDS TO PUT BACK @D@@@[CI )@@G@@ JN A0,A(1,1) . IF NEGATIVE, SYSTEM ERROR @E@@@[ JZ CJ )@@G@@ A0,CLEAR . IF NO WDS LEFT, DON'T TRY TO FREE@F@@@[ FREE CK )@@G@@ . PUT UNUSED SPACE ON REGULAR FREE LIST @B@@@[CLEAR SZ WSFFWCL )@@G@@A . CLEAR POINTERS @ @@@[ SZ WSFLWA . @#@@@[ CM )@@G@@ LI$T . @]@@@[ END .___FF*@[@@@[. @A@@@[. DYNAMIC STORAGECN )@@G@@ ALLOCATION PROX @[@@@[. @G@@@[P PROC . ALLOCATE A BLOCK CO )@@G@@(X11,A0,A1,R1 ARE USED), LOC TO A1 @F@@[[ALLOCT*[S@@@*SDFF*@F@@@[/. THECP )@@G@@SE PROCS GIVE A SET OF JUMPS WHICH ACT LIKE THE TEST INSTRS @D@@@[P CQ )@@G@@ PROC . OP(,J) AREG,UTEST,UTAG(,J) DEST,DTAG @A@@@[JE* NAME 053 CR )@@G@@ . OPCODE IS:TNE @A@@@[JNE* NAME 052 . TE @A@@@[JG* CS )@@G@@ NAME 054 . TNG @A@@@[JNG* NAME 055 . TG CT )@@G@@@A@@@[JLE* NAME 055 . TG @A@@@[JW* NAME 057 . CU )@@G@@ TNW @A@@@[JNW* NAME 056 . TW @A@@@[JOP* NAME CV )@@G@@ 044 . TEP @A@@@[JEP* NAME 045 . TOP @ @@@[CW )@@G@@. GENERATE TEST INSTRUCTION @#@@@[ UNLI$T . @G@@@[ I$ P(0,0),PCX )@@G@@(0,1)+P(1,4),P(1,1)-12,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) . @F@@@[ I$ 07CY )@@G@@4,04,0,P(2,2),2*P(2,*2)+P(2,*1),P(2,1) . JUMP IF TEST FAILS @#@@@[ CZ )@@G@@ LI$T . @]@@@[ END .@[@@@[. @ @@@[P PROC . OP REG,DESDA )@@G@@T,TAG @A@@@[JNGD* NAME 070 . OPCODE IS: JGD @ @@@[I FORM 6,1,7DB )@@G@@,4,2,16 . @#@@@[ UNLI$T . @B@@@[ I P(0,0),0,P(1,1),0DC )@@G@@,0,$+2 . @D@@@[ I$ 074,04,0,P(1,3),2*P(1,*3)+P(1,*2),P(1,2) DD )@@G@@@#@@@[ LI$T . @]@@@[ END .@[@@@[. @D@@@[P PROC DE )@@G@@. ***** COMPUTED JUMP PROC ******** @[@@@[. @F@@@[. THIS JUMP DF )@@G@@ACTS LIKE A COMPUTED GO TO. THE FIRST FIELD SPECIFIES@F@@@[. THE AREG TDG )@@G@@O BE JUMPED ON, AND A NOHIT EXIT. SUBSEQUENT PAIRS @G@@@[. GIVE A VALDH )@@G@@UE, AND A CORRESPONDING JUMP DESTINATION. IF THE REG IS @G@@@[. NOT DI )@@G@@ONE OF THE SPECIFIED VALUES, THE PROGRAM WILL JUMP TO THE NOHIT . @F@@@[DJ )@@G@@. I.E. USAGE IS: COMJMP AREG,NOHIT VAL1,DEST1 VAL2,DEST2 ...ETC. @G@@@[DK )@@G@@. IF NOHIT CONDITION IS AN ERROR, THEN NOHIT ADDR MAY BE OMITTED, WHICH DL )@@G@@@G@@@[. WILL THEN CAUSE AN IGDM BY JUMPING TO ZERO WHEN (IF) THE ERROR ODM )@@G@@CCURS @[@@@[. @#@@@[COMJMP* NAME 1 . @#@@@[JMPTBL* NAME 0 . @[@@@[DN )@@G@@. @#@@@[ UNLI$T . @B@@@[. FIND MIN, MAX AND DISPLACEMENT VALDO )@@G@@UES---@[@@@[. @B@@@[NTAGS EQU P-2 . NO OF TAGS @C@@@[DP )@@G@@VMIN(1) EQU P(2,1)*P(0,0) . INITIALIZE MIN VAL @G@@@[ DO P(0,0) ,K DO NDQ )@@G@@TAGS , DO P(K+1,1)DMAX(1) ,DMAX(1) EQU DISDT )@@G@@P(K) .@ @@@[VMAX(1) EQU DMAX(1)+VMIN(1) . @^@@@[NJUMPS EQU DMAX(1)+1 . DU )@@G@@@E@@@[. NOW GENERATE TESTS FOR VALID ARGS, AND THE ACTUAL JUMP @E@@@[DV )@@G@@ DO P(0,0)=0 , GO C$JP01 . IF MAKING A JUMPTABLE, DON'T TEST@D@@@[ DW )@@G@@ TG,XU P(1,1),VMIN(1) . IS MIN VAL .GT. REG? @E@@@[ TG,XU P(1,1DX )@@G@@),VMAX(1)+1 . NO, IS MAX VAL .GE. REG? @E@@@[ J P(1,2) DY )@@G@@ . ARG NOT IN TABLE, GO TO NOHIT @D@@@[ J $+1-VMIN(1),P(1,1DZ )@@G@@) . JUMP INTO THE TABLE @#@@@[C$JP01* NAME . @F@@@[. IN CASE NOT ALL EA )@@G@@VALUES ARE GIVEN, MAKE A TABLE FULL OF NOHITS-- @C@@@[ORG EQU $ . EB )@@G@@ MARK BEGINNING OF TABLE@D@@@[NOHIT EQU P(0,0)+1 . SET SUBFIEC )@@G@@ELD OF NOHIT JUMP @ @@@[ J P(1,NOHIT) . @E@@@[K DO NJUMPS-ED )@@G@@1 , J P(1,NOHIT) . FILL ENTIRE TABLE WITH NOHITS@B@@@[FINI EQU $ . EE )@@G@@ MARK END OF TABLE@F@@@[. NOW ZAP THE ERROR JUMPS BY OVERLAYING WIEF )@@G@@TH CORRECT JUMPS --- @#@@@[O PROC . @#@@@[OLAY* NAME . EG )@@G@@@B@@@[ RES ORG+DISP(K)-$ . SET LOC CTR @D@@@[ J P(K+1EH )@@G@@,2) . GENERATE THE CORRECT JUMP @]@@@[ END .@^@@@[K DO NTAGS ,EI )@@G@@ OLAY . @D@@@[ RES FINI-$ . RESET LC FOR PROPER END EJ )@@G@@@#@@@[ LI$T . @]@@@[ END .@[@@@[. @ @@@[. CONVERT TEK )@@G@@O DOUBLE FLOATING @#@@@[F PROC . @ @@@[DFLOAT* NAME . AREGEL )@@G@@,U,TAG@#@@@[ UNLI$T . @ @@@[ LA,U F(1,1),02074 .@E@@@[EM )@@G@@ I$ 076,015,F(1,1)-12,F(1,3),2*F(1,*3)+F(1,*2),F(1,2) . @#@@@[ EN )@@G@@ LI$T . @]@@@[ END .@A@@@[/. MULTIPLE REGISTER SAVE AND LOAD EO )@@G@@@[@@@[. @G@@@[. FOR EACH CONTIGUOUS GROUP OF REGS TO BE SAVED, USE 1EP )@@G@@ FIELD OF THE @C@@@[. FORM: 1STREG,1STCORELOCN, NUMBER OF REGS EQ )@@G@@@[@@@[. @#@@@[P PROC . @ @@@[SAVER* NAME 0 . ER )@@G@@@ @@@[LOADR* NAME 1 . @C@@@[ PROC . THIS PROC HANDLES )@@G@@ES A SINGLE FIELD @#@@@[SFLD* NAME . @C@@@[M(1) EQU P(K,1) ET )@@G@@ . FIRST REG TO SAVE @C@@@[C(1) EQU P(K,2) . 1ST CORE LOCN TEU )@@G@@O USE @C@@@[N(1) EQU P(K,3) . NO OF REGS TO SAVE @G@@@[ DO (MEV )@@G@@(1)>(R1-1))++((M(1)+N(1))5 ,$(I(0,0)) LIT . EXCEPT FOR DFS )@@G@@ISPOSABLE CODE @D@@@[$(I(0,0)) . SET LC FOR WHATEVER FOLLOWS FT )@@G@@. @]@@@[ END .@[@@@[. @G@@@[. UNLIST/LIST CONTROL FOR FU )@@G@@NESTED PROC CALLS. LOCN CTR 20 IS USED @G@@@[. TO COUNT RECURSIONFV )@@G@@ LEVELS SO ONLY PROG LEVEL CODE WILL PRINT . @F@@@[. THE PROCS UNFW )@@G@@LI$T AND LI$T MUST BE USED IN MATCHED PAIRS . @[@@@[. @#@@@[ FX )@@G@@ PROC . @#@@@[UNLI$T* NAME . @^@@@[$(20),BUMPIT* PROC . @E@@@[FY )@@G@@LEVEL EQU $ . SAVE CURRENT RECURSION LEVEL @G@@@[ DO LEFZ )@@G@@VEL=0 , LIST . AT PROG LEV, LET DUMMY WD PRINT (BOTH ASM PASSES) @G@@@[GA )@@G@@ RES BUMPIT(1,1)-$ . SET LC TO SAME AS CALLING LOC FOR IDENT USAGEGB )@@G@@@E@@@[ +0 . DUMMY WORD TO FORCE PRINT OF PROC CALL LINE@D@@@[GC )@@G@@ RES LEVEL+1-$ . INCREMENT LEVEL COUNTER @]@@@[ END .GD )@@G@@@F@@@[ BUMPIT $ . BUMP RECURSION LEVEL COUNT, PRINT PRESENT LOCN GE )@@G@@@B@@@[ UNLIST . THEN TURN OFF THS LISTING @]@@@[ END .@[@@@[GF )@@G@@. @#@@@[$(20),LI$T* PROC .@F@@@[ DO $>0 , RES -1 . RESET NESTING LEVGG )@@G@@EL (DO IS TO PREVENT ERRORS) @G@@@[ DO $=0 , LIST . IF WE'RE AT OUTERMOGH )@@G@@ST NESTING LEVEL, TURN LIST BACK ON.@]@@@[ END .@[@@@[. @G@@@[GI )@@G@@. SET PROC/END PAIRS FOR CONDITIONAL ASSEMBLY. IF FLAG (1ST FIELD) IS GJ )@@G@@@E@@@[. ON (NON-ZERO) CODE IS ASSEMBLED, OTHERWISE PROC'D OUT . @[@@@[GK )@@G@@. @#@@@[P PROC . @D@@@[PROCSW* NAME . SET SWITCGL )@@G@@H TO PROC/RES @E@@@[ DO P(1,1)=0 ,* EQU PROC . IF SWITCH OFF, PROC GM )@@G@@THE CODE OFF@#@@@[ GO PS$010 .@#@@@[ENDSW* NAME . @F@@@[ DO P(GN )@@G@@1,1)=0 ,* EQU END . MATCH TO ABOVE PROC FOR SWITCH OFF @#@@@[PS$010GO )@@G@@* NAME . @G@@@[ DO 1-P(1,1)=0 ,* EQU RES . IF SWITCH ON, ALLOW THE COGP )@@G@@DE TO ASSEMBLE @]@@@[ END .@[@@@[. @C@@@[QWDON* PROC 0,2. GQ )@@G@@TURN ON QUARTER WORD MODE @^@@@[ LA,U A0,1,*0. @#@@@[ GR )@@G@@ ER PSR$.@]@@@[ END. @C@@@[QWDOFF* PROC 0,2. TURN OFF QUARTER GS )@@G@@WORD MODE @#@@@[ LA,U A0,1.@#@@@[ ER PSR$.@]@@@[ GT )@@G@@ END. @A@@@[/. EXTENDED DOUBLE PRECISION OPS @[@@@[. @A@@@[. GU )@@G@@ DOUBLE PRECISION TESTS @#@@@[D PROC . @#@@@[DTG* NAME GV )@@G@@ 02 . @#@@@[DTLE* NAME 03 . @#@@@[ UNLI$T . @F@@@[UADR EQU GW )@@G@@ D(1,*2)*/16+D(1,2) . LUMP INDIRECT BIT INTO U-FIELD @[@@@[. @F@@@[GX )@@G@@ TLE D(1,1),UADR,D(1,3) . IS MOST SIGNIF WORD LESS OR EQUAL? @E@@@[GY )@@G@@ J GRTR . NO, TAKE GRTR EXIT RIGHT AWAY @E@@@[ DTE GZ )@@G@@D(1,1),UADR,D(1,3) . YES, IF IDENTICAL, GET RIGHT OUT @E@@@[ TE D(1,1)HA )@@G@@,UADR,D(1,3) . ELSE ARE MOST SIGNIF WDS .EQ. ? @F@@@[ J LEQ HB )@@G@@ . NO. SINCE WE KNOW LEQ, MUST BE .LT. @G@@@[. SINCE MOST SIG IHC )@@G@@S .EQ. (BY TE), BUT LEAST IS NOT (BY DTE), WE CAN @G@@@[. TAKE THE DHD )@@G@@IFFERENCE WITHOUT FEAR OF EITHER OVERFLOW OR NEGATIVE ZERO @C@@@[ DAN HE )@@G@@D(1,1),UADR,D(1,3) . COMPUTE A MINUS U @G@@@[ I$ 074,D(0,0),D(1,1)-A0HF )@@G@@,0,0,NOFIX . JP/JN TAKE NOSKIP EXIT WITH FIXUP @E@@@[ DA D(1,1),UADR,HG )@@G@@D(1,3) . SKIP EXIT.. RESTORE OPERAND VALUE@G@@@[ DO D(1,*3) ,SKIP NOP 0,HH )@@G@@0,*D(1,3) . IF INCR ON, SKIP HERE TO BUMP XREG @F@@@[ J LAST+1 HI )@@G@@ . AFTER VALUE RESTORATION, TAKE SKIP EXIT@F@@@[NOFIX DA D(1,1),UAHJ )@@G@@DR,D(1,3) . NOSKIP EXIT, FIX UP VALUE OF OPERAND@B@@@[NOSKIP . NORMAL NHK )@@G@@OSKIPS ALL COME HERE @F@@@[ DO D(1,*3) , NOP 0,0,*D(1,3) . IF INCREMEHL )@@G@@NTATION ON, BUMP THE REG@[@@@[LAST. @A@@@[ DO D(1,*3)<1 ,SKIP EQU LAST+1HM )@@G@@ . @C@@@[GRTR EQU (D(0,0)=3)*NOSKIP+(D(0,0)=2)*SKIP .@C@@@[LEQ HN )@@G@@ EQU (D(0,0)=2)*NOSKIP+(D(0,0)=3)*SKIP .@]@@@[ LI$T . @]@@@[ HO )@@G@@ END .@[@@@[. @ @@@[/. TRIPLE WORD OPERATIONS @G@@@[. ***** CAUTHP )@@G@@ION *** INDIRECTION REQUIRES 3 ADDRESS POINTER WDS ***** @[@@@[. HQ )@@G@@@E@@@[S PROC . SHIFTS-- *OPS GENERATED FOR EACH ARE* @G@@@[HR )@@G@@. ***** CAUTION ***** THESE PROCS FAIL FOR SHIFT COUNTS GRTR THAN 36 HS )@@G@@@C@@@[TSC* NAME 01 . DSC LSSC DSC@C@@@[TSL* NAME HT )@@G@@ 03 . DSL LSSL DSL@C@@@[TSA* NAME 05 . HU )@@G@@ DSA LSSL DSA@D@@@[LTSC* NAME 011 . LDSC SSC LDSHV )@@G@@C @D@@@[LTSL* NAME 013 . LDSL SSL LDSL @G@@@[HW )@@G@@ARAD EQU S(0,0)<010 . TRUE FOR RITE SHIFTS (8'S BIT IS DIRECTION) HX )@@G@@@G@@@[C(1) EQU S(0,0)**06 . GET TYPE (ARITH,LGL,CIRC);TURN OFF DOUBHY )@@G@@LE BIT@F@@@[ DO S(0,0)=5 ,C(1) EQU 2 . IF ARITH, FORCE 2ND INSTR TO LOGIHZ )@@G@@CAL @#@@@[ UNLI$T . @D@@@[ I$ 073,S(0,0),S(1,1)-A0+ARAD,S(1,3)IA )@@G@@,S(1,*2),S(1,2) . @E@@@[ I$ 073,C(1)+8*ARAD,S(1,1)-A0+1,S(1,3),S(1,*2),SIB )@@G@@(1,2) . @F@@@[ I$ 073,S(0,0),S(1,1)-A0+1-ARAD,S(1,3),2*S(1,*3)+S(1,*IC )@@G@@2),S(1,2) . @#@@@[ LI$T . @]@@@[ END @[@@@[. @ @@@[ID )@@G@@. TRIPLE LOAD AND STORES @[@@@[. @ @@@[T PROC IE )@@G@@ . @#@@@[TSTO* NAME 0 @#@@@[TLD* NAME 1 @#@@@[ UNLI$IF )@@G@@T . @E@@@[ I$ 071,012+T(0,0),T(1,1)-A0,T(1,3),T(1,*2),T(1,2) IG )@@G@@@G@@@[ I$ 1+7*T(0,0),0,T(1,1)-A0+2,T(1,3),2*T(1,*3)+T(1,*2),T(1IH )@@G@@,2)+2 @#@@@[ LI$T . @#@@@[ END . @[@@@[. @ @@@[II )@@G@@. TRIPLE EQUALITY TESTS @[@@@[. @#@@@[T PROC . @#@@@[IJ )@@G@@TTE* NAME 0 . @#@@@[TTNE* NAME 1 . @#@@@[ UNLI$T . @F@@@[IK )@@G@@. CAUTION... INDEX INCREMENTATION BIT IS IGNORED BY THIS PROC @F@@@[IL )@@G@@ I$ 053,0,T(1,1)-A0+2,T(1,3),T(1,*2),T(1,2)+2 . TNE REG+2,WD+2 @E@@@[IM )@@G@@ I$ 071,017,T(1,1)-A0,T(1,3),T(1,*2),T(1,2) . DTE REG,WORD @^@@@[ DO T(IN )@@G@@0,0) , J $+2 . @#@@@[ LI$T . @]@@@[ END .@^@@@[/. PROIO )@@G@@X FOR CALLING REPS@[@@@[. @#@@@[P PROC . @C@@@[LIJ* NAME IP )@@G@@ . FORMAT LIJ XA,TARG,XB @F@@@[ UNLI$T . THIS PROC IQ )@@G@@IS COMPANION TO LIJ SIMULATOR RTNE @F@@@[ I$ 072,01,P(1,1),0,0,LIIR )@@G@@J$$ . SLJ WITH XA STASHED IN IT @G@@@[ I$ 010,U,A0-A0,P(1,3),2IS )@@G@@*P(1,*3)+P(1,*2),P(1,2) . LA,U A0,TARG,XB@#@@@[ LI$T . @#@@@[IT )@@G@@ END . ___ . AFTER VALUE RES*[S@@@*SDFF*@#@@@[ IU )@@G@@ DEF . @[@@@[. @ @@@[. PERMISSION BIT DEFINITIONS @[@@@[. IV )@@G@@@A@@@[FIPALL EQU 1*/0 . ALLOW ALL@B@@@[FIPXUS EQU 1*/1 IW )@@G@@ . ALLOW @ASG,X @F@@@[FIPLOK EQU 1*/2 . ALLOW TEMPORARY XUSE IX )@@G@@VIA LOCKSECTOR @B@@@[FIPCAT EQU 1*/3 . CATENATION @A@@@[IY )@@G@@FIPRWR EQU 1*/4 . REWRITE @E@@@[FIPREA EQU 1*/5 . REAIZ )@@G@@D (BOTH DATA AND TOC POINTERS)@C@@@[FIPRCO EQU 1*/6 . READ COMPJA )@@G@@ONENT INFO @B@@@[FIPDEL EQU 1*/7 . DELETE ALLOWED @[@@@[. JB )@@G@@@[@@@[. @A@@@[. DEFINITIONS OF PACKET LABELS-- @[@@@[. @G@@@[JC )@@G@@. THE FOLLOWING WORDS HAVE THE SAME USE FOR BOTH RANDOM AND SDF FILES JD )@@G@@@[@@@[. @B@@@[FCTABL EQUF 0,X8 . BASE OF TABLE @F@@@[LGLXUSJE )@@G@@ EQUF FCTABL,,S1 . EXCLUSIVE USE FLAG: 2**0 <=> @ASG,X @G@@@[ JF )@@G@@ . 2**1 <=> LOCAL LOCK VIA LOCKSECTOR (FHOLD) @G@@@[JG )@@G@@LGDCLF EQUF FCTABL,,S2 . USAGE: 0=UNDCL, 1=SEQNL, 2=RANDOM (NAMED) JH )@@G@@@E@@@[ . 3=SEQNL, 4=RANDOM (UNNAMED)@C@@@[JI )@@G@@LGOPNF EQUF FCTABL,,S3 . OPEN FLAG, 0=CLOSED @D@@@[LGASGF EQUF FCTABJJ )@@G@@L,,S4 . ASSIGN BITS, 0=NOT ASSIGNED@C@@@[LGLNUM EQUF FCTABL,,Q4 . LOGJK )@@G@@ICAL UNIT NUM @C@@@[LGPERM EQUF FCTABL+1,,Q4 . PERMISSION BITS JL )@@G@@@C@@@[LGUKEY EQUF FCTABL+2 . USER'S KEY (2 WORDS) @F@@@[LGQUAL EQUF JM )@@G@@ LGUKEY+2 . QUALIFIER, FIELDATA LJSF FROM FACIL$ @C@@@[LGFNAM EQUF JN )@@G@@ LGQUAL+2 . FILENAME, AS ABOVE @[@@@[. @D@@@[. PACKET AND DATA JO )@@G@@AREAS FOR SECTOR ZERO (LABEL SECTOR)@B@@@[. ALSO USED FOR I/O PACKET ON JP )@@G@@SDF FILES- @B@@@[SZPAKT EQUF LGFNAM+2 . SECTOR 0 PACKET@C@@@[SZUNAMJQ )@@G@@ EQUF SZPAKT . SECTOR 0 USE NAME @C@@@[SZTSWD EQUF SZPAKT+2 JR )@@G@@ . TEST AND SET WORD @D@@@[SZSTAT EQUF SZPAKT+3,,S1 . SECTOR 0 IJS )@@G@@/O STATUS @D@@@[SZFUNC EQUF SZPAKT+3,,S2 . SECTOR 0 FUNCTION CODEJT )@@G@@@B@@@[SZACES EQUF SZPAKT+4 . ACCESS WORD @C@@@[SZWDCT EQUF SZPAKJU )@@G@@T+4,,H1 . SECTOR 0 WORDCT @D@@@[SZBADR EQUF SZPAKT+4,,H2 . SECTJV )@@G@@OR 0 BUF ADDR @D@@@[SZDADR EQUF SZPAKT+5 . SECTOR 0 DRUM ADJW )@@G@@DR @C@@@[. AN EXTRA WORD HERE NEEDED ONLY FOR SDF FILES @D@@@[SDSIZSJX )@@G@@ EQUF SZDADR+1,,H1 . SDF BUF SIZE (SECTORS)@E@@@[SDNCWD EQUF SZDADJY )@@G@@R+1,,H2 . NEXT SDF CTL WD (LOC IN BUF)@D@@@[SDBEND EQUF SZDADR+2,,HJZ )@@G@@1 . LWA+1 OF SDF BUFFER @G@@@[. I/O BUF-FOR SDF FILES, 4 SECTORS- KA )@@G@@FOR RANDOM, 28 WDS FOR SECTOR ZERO @E@@@[SZBUFR EQUF SZDADR+3 . STAKB )@@G@@RT OF BUF FOR SECT 0 -SDF I/O @F@@@[SDTSIZ EQUF 2+4*28+(0177777**SZBUFRKC )@@G@@) . TABLE SIZE FOR SDF FILES @[@@@[. @C@@@[. --- DEFINE SECTOR ZEROKD )@@G@@ (CONTROL SECTOR) ----- @[@@@[. @C@@@[SZLCTL EQUF SZBUFR . LABKE )@@G@@EL CONTROL WORD @B@@@[SZLABL EQUF SZLCTL+1 . LABEL (**RA**) @A@@@[KF )@@G@@SZTADR EQUF SZLABL+1 . TOC ADDR @D@@@[SZTMAX EQUF SZTADR+1,,H1 KG )@@G@@. MAX NO OF TOC ENTRIES @E@@@[SZTCUR EQUF SZTADR+1,,H2 . CURRENT NOKH )@@G@@ OF TOC ENTRIES @B@@@[SZLADR EQUF SZTADR+2 . LOCKSECTOR ADDR@B@@@[KI )@@G@@SZMADR EQUF SZLADR+1 . BITMAP ADDR @E@@@[SZMSIZ EQUF SZMADR+1,,HKJ )@@G@@1 . BITMAP SIZE (NO OF SECTORS) @F@@@[SZDSIZ EQUF SZMADR+1,,H2 KK )@@G@@. DATA AREA SIZE (NO OF SECTORS) @E@@@[SZFWRA EQUF SZMADR+2 . 1STKL )@@G@@ (LOWEST) DATA WRITE ADDR @C@@@[SZNWRA EQUF SZFWRA+1 . NEXT DATAKM )@@G@@ WRITE ADDR @E@@@[SZLIBN EQUF SZNWRA+1 . LIBNO OF OWNER (DFLOAT, 2 WKN )@@G@@DS) @D@@@[SZTDAT EQUF SZLIBN+2 . TDATE$ OF CREATION OF FILE @D@@@[KO )@@G@@SZTLST EQUF SZTDAT+1 . TDATE$ OF LAST @ASG/FREE @E@@@[SZSIZE EQU KP )@@G@@ SZTLST+1-SZBUFR . NO OF WDS USED OF CTL SECTOR@B@@@[. PACKET AND BUF SKQ )@@G@@PACE FOR TOC ENTRIES @C@@@[TOPAKT EQUF SZBUFR+28 . PACKET FOR TOC KR )@@G@@READS @D@@@[TOUNAM EQUF TOPAKT . USE NAME FOR TOC PACKET @C@@@[KS )@@G@@TOTSWD EQUF TOPAKT+2 . TEST AND SET WORD @D@@@[TOSTAT EQUF TOPAKKT )@@G@@T+3,,S1 . TOC I/O STATUS FLAG @E@@@[TOFUNC EQUF TOPAKT+3,,S2 KU )@@G@@. FUNC CODE FOR TOC ACCESS @A@@@[TOWDCT EQUF TOPAKT+4,,H1 . KV )@@G@@@A@@@[TOBADR EQUF TOPAKT+4,,H2 . @A@@@[TODADR EQUF TOPAKT+5 KW )@@G@@ . @D@@@[TOSNUM EQUF TODADR+1,,H1 . CURRENT TOC SEG NO KX )@@G@@@F@@@[TOEADR EQUF TODADR+1,,H2 . BUF ADDR OF CURRENT TOC ENTRY KY )@@G@@@B@@@[TOBUFR EQUF TODADR+2 . TOC BUFFER@C@@@[. TOC ENTRIES FOR KZ )@@G@@CURRENT ENTRY BIASED OFF X11--@C@@@[TCNTRY EQUF 0,X11 . CURRENT TLA )@@G@@OC ENTRY @D@@@[TCNWDS EQUF TCNTRY,,H1 . NO WDS USED BY DATA ENTRY LB )@@G@@@D@@@[TCDPTR EQUF TCNTRY+1 . DATA POINTER (SECTOR ADDR) @B@@@[TCDSCRLC )@@G@@ EQUF TCNTRY+2 . APL DESCRIPTOR @D@@@[TCTYPE EQUF TCDSCR,,S1 . TYPLD )@@G@@E (ALWAYS TEMPORARY) @A@@@[TCMODE EQUF TCDSCR,,S2 . MODE @A@@@[LE )@@G@@TCRANK EQUF TCDSCR,,S3 . RANK @A@@@[TCLNTH EQUF TCDSCR,,H2 . LENLF )@@G@@GTH @E@@@[TCTDAT EQUF TCDSCR+1 . TDATE WHEN DATUM WAS WRITTEN LG )@@G@@@D@@@[TCLIBN EQUF TCTDAT+1 . LIBNO OF WRITER OF ELEMENT @C@@@[. PACKLH )@@G@@ET FOR LOCKSECTOR (FOR REWRITING) I/O @D@@@[LKPAKT EQUF TOBUFR+28 LI )@@G@@ . I/O PACKET FOR LOCKSECTOR @ @@@[LKUNAM EQUF LKPAKT . @ @@@[LJ )@@G@@LKTSWD EQUF LKPAKT+2 . @ @@@[LKSTAT EQUF LKPAKT+3,,S1 . @ @@@[LK )@@G@@LKFUNC EQUF LKPAKT+3,,S2 . @ @@@[LKWDCT EQUF LKPAKT+4,,H1 . @ @@@[LL )@@G@@LKBADR EQUF LKPAKT+4,,H2 . @ @@@[LKDADR EQUF LKPAKT+5 . @C@@@[LM )@@G@@LKSLOP EQUF LKPAKT+6 . SLOP WORD FOR XFER @[@@@[. @A@@@[. PACKLN )@@G@@ET AND DATA AREA FOR BIT MAP @[@@@[. @^@@@[BMPAKT EQUF LKSLOP+1 LO )@@G@@@ @@@[BMUNAM EQUF BMPAKT . @ @@@[BMTSWD EQUF BMPAKT+2 . LP )@@G@@@A@@@[BMSTAT EQUF BMPAKT+3,,S1 . @A@@@[BMFUNC EQUF BMPAKT+3,,SLQ )@@G@@2 . @A@@@[BMPACW EQUF BMPAKT+4 . ACCESS WD@ @@@[BMWDCT EQUF LR )@@G@@ BMPACW,,H1 . @ @@@[BMBADR EQUF BMPACW,,H2 . @F@@@[BMDADR EQUF LS )@@G@@ BMPAKT+5 . DRUM ADDR OF CURRENT BITMAP SECTOR @G@@@[BMDTAD EQUF LT )@@G@@ BMDADR+1 . DATA SECT ADDR CORRESP TO THIS BITMAP SECT @[@@@[. LU )@@G@@@F@@@[BMBUFR EQUF BMPAKT+9 . 28 WORD BUF TO HOLD 1 SECTOR OF BITMAP LV )@@G@@@[@@@[. @A@@@[. PACKET AND CONTROL INFO FOR DATA--@[@@@[. @ @@@[LW )@@G@@DAPAKT EQUF BMBUFR+28 . @D@@@[DASTAT EQUF DAPAKT+3,,S1 . DATALX )@@G@@ AREA I/O STATUS @B@@@[DAUNAM EQUF DAPAKT . USE NAME @C@@@[LY )@@G@@DATSWD EQUF DAPAKT+2 . TEST AND SET WORD @A@@@[DAFUNC EQUF DAPAKLZ )@@G@@T+3,,S2 . @E@@@[DAPACW EQUF DAPAKT+4 . PRIMARY ACCESS WORD FMA )@@G@@OR DATA @ @@@[DAWDCT EQUF DAPACW,,H1 . @B@@@[DABADR EQUF DAPACMB )@@G@@W,,H2 . BUF ADDR @B@@@[DADADR EQUF DAPAKT+5 . DRUM ADDR MC )@@G@@@E@@@[DASGAW EQUF DAPAKT+6 . SCATTER-GATHER ACCESS WDS (2 WDS)@D@@@[MD )@@G@@DASNUM EQUF DASGAW+2,,H2 . CURRENT DATA ITEM NO @F@@@[RATSIZ EQUF ME )@@G@@ 1+(0177777**DASNUM) . TABLE SIZE FOR RANDOM FILES @[@@@[. @C@@@[MF )@@G@@. COMPUTE TOT BUF SIZE NEEDED TO HOLD THE ABOVE @[@@@[. @#@@@[ MG )@@G@@ PROC . @#@@@[FILDEF* NAME . @B@@@[ DO RATSIZ>SDTSIZ ,FCTSIZ* EQUMH )@@G@@ RATSIZ . @C@@@[ DO 1-(RATSIZ>SDTSIZ) ,FCTSIZ* EQU SDTSIZ . @]@@@[MI )@@G@@ END .@[@@@[. @A@@@[. DO INPUT/OUTPUT ON USER FILE-- @[@@@[MJ )@@G@@. @ @@@[P PROC . FUNC,PKT ERROR @#@@@[DOIO* NAME . @ @@@[MK )@@G@@ UNLI$T . @B@@@[ LA,U A0,P(1,1) . FUNCTION ML )@@G@@CODE @A@@@[ SA,S2 A0,P(1,2)+3 . TO PACKET@B@@@[ LA,U A0,P(MM )@@G@@1,2) . PACKET ADDR @A@@@[ ER IOW$ . DO THE OP@D@@@[MN )@@G@@ LA,S1 A0,P(1,2)+3 . GET STATUS FROM PACKET @C@@@[ JNZ MO )@@G@@ A0,P(2,1) . AND EXIT IF ERROR @#@@@[ LI$T . @#@@@[ MP )@@G@@ END . @[@@@[. @B@@@[. CHECK WHETHER A PERMISSION IS GIVEN-- MQ )@@G@@@[@@@[. @#@@@[P PROC . @#@@@[JNOPER* NAME . @ @@@[ MR )@@G@@ UNLI$T . @D@@@[ LA P(1,1),LGPERM . GET PERMISMS )@@G@@SION BITS @F@@@[ TOP,U P(1,1),P(1,2) . IS REQUESTED PERMISSIOMT )@@G@@N EXPLICIT? @G@@@[ JNB P(1,1),P(2,1) . NO, IF 'ALL' NOT GIVENMU )@@G@@ IETHER, WIPE OUT @#@@@[ LI$T . @#@@@[ END . @[@@@[MV )@@G@@. @F@@@[. TEMPORARY PROX TO PUT ALL LOCN CTRS INTO THE D-BANK UNTIL MW )@@G@@APL @ @@@[. BECOMES A SEGMENTED REP-- @[@@@[. @#@@@[ PROC MX )@@G@@ . @#@@@[TEMPIC* NAME . @#@@@[P PROC . @^@@@[INSTRS** NAMMY )@@G@@E 6 . @^@@@[CONSTS** NAME 8 . @^@@@[VARBLS** NAME 10 . MZ )@@G@@@^@@@[VARCON** NAME 12 . @#@@@[$(14) LIT . @]@@@[$(P(0,0)) . NA )@@G@@@B@@@[ END . OF DEFN OF INTERNAL PROC @A@@@[ END . OF OUNB )@@G@@TERMOST PROC DEFN ___,,S2 . @A@@@[BMPACW*[S@@@*SDFF*@C@@@[/. PRONC )@@G@@X FOR PUSH AND POP OF VARIABLE STACK. @E@@@[. USED IN CONJUNCTION WND )@@G@@ITH STACK SUBRTNE- STKPSH,STKPOP . @]@@@[ DEF .@E@@@[STKLFT EQU NE )@@G@@ R5 . LEFTMOST R-REG USED FOR STACK @E@@@[STKRIT EQU R15 NF )@@G@@ . RIGHTMOST R-REG USED FOR STACK @[@@@[. @E@@@[STKNRG EQU NG )@@G@@ STKRIT-STKLFT+1 . TOT NO R-REGS USED FOR STACK@[@@@[. @#@@@[P NH )@@G@@ PROC . @D@@@[POP* NAME 1 . POP(,J) LOC(,TAG) STAKEMPTY NI )@@G@@@C@@@[PUSH* NAME 0 . PUSH(,J) LOC(,TAG) WSFULL @#@@@[ UNLI$NJ )@@G@@T . @ @@@[R0 EQU R1-1 . @^@@@[JAY EQU P(0,1) . NK )@@G@@@^@@@[LOC EQU P(1,1) . @^@@@[TAG EQU P(1,2) . @A@@@[HI NL )@@G@@ EQU 2*P(1,*2)+P(1,*1) . @D@@@[REG EQU (LOC<(A15+1))++((LOC>R0NM )@@G@@)**(LOC2 , +0,PSUDOF(O(1,1),O(1,2),O(1,3))+O(1,4) . TYPE 1@F@@@[ DO O(QA )@@G@@1)>0 , DO O(1)<3 , +0,PSUDOF(O(1,1),0,0)+O(1,2) . TYPE 2 @]@@@[ QB )@@G@@ END .@E@@@[/. THIS PROC DEFINES THE ENTRIES WHICH APPEAR IN THE STACK QC )@@G@@@[@@@[. @G@@@[. STACK ENTRIES ARE 18 BITS-- IF THE MOST SIGNIFIQD )@@G@@CANT (BIT 17) IS @G@@@[. OFF, THE ENTRY IS A DESCRIPTOR ADDR, IN WQE )@@G@@HICH CASE BIT 16 ON @C@@@[. IMPLIES THE OPERAND IS TO BE REDUCEQF )@@G@@D. @G@@@[. IF BIT 17 IS ON, THE ENTRY IS A STACK MARKER ASQG )@@G@@ BELOW: @[@@@[. @#@@@[ DEF . @E@@@[SKMRHS EQU 04000QH )@@G@@00 . RIGHT HAND SIDE OF STATEMENT @E@@@[SKMESL EQU 0600000 QI )@@G@@ . END SUBSCRIPT LIST (I.E. ']') @E@@@[SKMELX EQU 0600001 . ELIQJ )@@G@@DED INDEX MARKER (I.E. ;;) @[@@@[. @#@@@[S PROC . @#@@@[QK )@@G@@SKMARX* NAME . @]@@@[ END .___--INDEX AND EXECUTE @G@@@[PSQVSVQL )@@G@@ EQU 2 . --VALUE OF STOPVECT @G@@@[QM )@@G@@PSQVTV EQU 3 . *[S@@@*SDFF*@D@@@[ DEF . DEFINITION OFQN )@@G@@ APL INTERNAL CODES-- @G@@@[. QO )@@G@@ CONTROL CODES @G@@@[ANULL EQU 000 . NOTE: NULL MUST *QP )@@G@@*NEVER** BE CHANGED TO BE NON-ZERO @C@@@[AINVAL EQU 0020 . INVALID CHAQQ )@@G@@RACTER MARKER @A@@@[AEOL EQU 0021 . END OF LINE FLAG @A@@@[ABKSP QR )@@G@@ EQU 0022 . BACKSPACE CARRIAGE@ @@@[ALINFD EQU 0023 . LINE-FEED @A@@@[QS )@@G@@ACRTRN EQU 0024 . CARRIAGE RETURN @B@@@[AESCAP EQU 0025 . ESCAPE (O BKQT )@@G@@SP U BKSP T)@B@@@[. DIGITS @^@@@[AZERO QU )@@G@@ EQU 0100 . 0 @^@@@[AONE EQU 0101 . 1 @^@@@[ATWO EQU 0102 QV )@@G@@. 2 @^@@@[ATHREE EQU 0103 . 3 @^@@@[AFOUR EQU 0104 . 4 @^@@@[QW )@@G@@AFIVE EQU 0105 . 5 @^@@@[ASIX EQU 0106 . 6 @^@@@[ASEVEN EQU 0QX )@@G@@107 . 7 @^@@@[AEIGHT EQU 0110 . 8 @^@@@[ANINE EQU 0111 . 9 QY )@@G@@@B@@@[. UNDERLINED DIGITS@^@@@[A0BAR EQU 0112 QZ )@@G@@ . @^@@@[A1BAR EQU 0113 . @^@@@[A2BAR EQU 0114 . @^@@@[RA )@@G@@A3BAR EQU 0115 . @^@@@[A4BAR EQU 0116 . @^@@@[A5BAR EQU 0RB )@@G@@117 . @^@@@[A6BAR EQU 0120 . @^@@@[A7BAR EQU 0121 . RC )@@G@@@^@@@[A8BAR EQU 0122 . @^@@@[A9BAR EQU 0123 . @C@@@[. RD )@@G@@ ALFABETICS @B@@@[AA EQU 0124 . A RE )@@G@@ ALFABETIC 'A' @#@@@[AB EQU 0125 @#@@@[AC EQU 0126 @#@@@[RF )@@G@@AD EQU 0127 @#@@@[AE EQU 0130 @#@@@[AF EQU 0131 @#@@@[RG )@@G@@AG EQU 0132 @#@@@[AH EQU 0133 @#@@@[AI EQU 0134 @#@@@[RH )@@G@@AJ EQU 0135 @#@@@[AK EQU 0136 @#@@@[AL EQU 0137 @#@@@[RI )@@G@@AM EQU 0140 @#@@@[AN EQU 0141 @#@@@[AO EQU 0142 @#@@@[RJ )@@G@@AP EQU 0143 @#@@@[AQ EQU 0144 @#@@@[AR EQU 0145 @#@@@[RK )@@G@@AS EQU 0146 @#@@@[AT EQU 0147 @#@@@[AU EQU 0150 @#@@@[RL )@@G@@AV EQU 0151 @#@@@[AW EQU 0152 @#@@@[AX EQU 0153 @#@@@[RM )@@G@@AY EQU 0154 @#@@@[AZ EQU 0155 @B@@@[AABAR EQU 0156 . UNDERN )@@G@@RLINED ALFABETICS @#@@@[ABBAR EQU 0157 @#@@@[ACBAR EQU 0160 @#@@@[RO )@@G@@ADBAR EQU 0161 @#@@@[AEBAR EQU 0162 @#@@@[AFBAR EQU 0163 @#@@@[RP )@@G@@AGBAR EQU 0164 @#@@@[AHBAR EQU 0165 @#@@@[AIBAR EQU 0166 @#@@@[RQ )@@G@@AJBAR EQU 0167 @#@@@[AKBAR EQU 0170 @#@@@[ALBAR EQU 0171 @#@@@[RR )@@G@@AMBAR EQU 0172 @#@@@[ANBAR EQU 0173 @#@@@[AOBAR EQU 0174 @#@@@[RS )@@G@@APBAR EQU 0175 @#@@@[AQBAR EQU 0176 @#@@@[ARBAR EQU 0177 @#@@@[RT )@@G@@ASBAR EQU 0200 @#@@@[ATBAR EQU 0201 @#@@@[AUBAR EQU 0202 @#@@@[RU )@@G@@AVBAR EQU 0203 @#@@@[AWBAR EQU 0204 @#@@@[AXBAR EQU 0205 @#@@@[RV )@@G@@AYBAR EQU 0206 @#@@@[AZBAR EQU 0207 @ @@@[AAT EQU 0210 RW )@@G@@ . @ @@@[ADOLAR EQU 0211 . @[@@[[. @A@@[[. DECORATIONRX )@@G@@ CODES OF VARIOUS TYPES @[@@[[. @D@@[[. EXTRAS DEFINED RY )@@G@@BY THE ASCII SET------- @C@@[[ARTACK EQU 0217 . RIGHT POINTING RZ )@@G@@TACK @C@@[[ALTACK EQU 0220 . LEFT POINTING TACK @C@@[[ARBRACSA )@@G@@ EQU 0221 . RIGHT CURLY BRACE @C@@[[ALBRAC EQU 0222 SB )@@G@@ . LEFT CURLY BRACE @A@@[[ADIMND EQU 0223 . DIAMOND @G@@[[SC )@@G@@. . ***** OTHER UNUSED DECORATIONS ON 2741-- SD )@@G@@@ ]@@[AUNION EQU 0224 . @B@@@[AINTER EQU 0225 . INTSE )@@G@@ERSECTION @A@@@[ACNTNS EQU 0226 . CONTAINS @B@@@[ACNTIN EQU SF )@@G@@ 0227 . CONTAINEDIN @A@@@[ADIERS EQU 0230 . DIERESIS SG )@@G@@@ @@@[AALFA EQU 0231 . @ @@@[AOMEGA EQU 0233 . SH )@@G@@@[@@[[. @G@@[[. THE TAGS AMONST AND ADYAST ARE USED IN INTERP/APL TOSI )@@G@@ SET TABLE SIZES @[@@[[. @F@@[[AMONST EQU 0234 . CODESJ )@@G@@ FOR SMALLEST VALUED MONAD @F@@[[ADYAST EQU 0234 . CODESK )@@G@@ FOR SMALLEST VALUED DYAD @[@@[[. @A@@@[ADOMNO EQU 0234 SL )@@G@@ . DOMINO @A[@@[ALGNOT EQU 0240 . LOGICAL NOT @#@@@[AGOTO EQU 0SM )@@G@@241 @ @@@[AUPGRD EQU 0242 . UPGRADE @A@@@[ADNGRD EQU 0243 . SN )@@G@@ DOWNGRADE @[@@[[. @G@@[[. THE TAG ARBIAS DEFINES THE 'REDUCTION BISO )@@G@@AS'. FUNCS WHICH APPEAR IN @G@@[[. COMPOUND OPS (E.G. REDUCTION, SCANSP )@@G@@, INNER PRODUCT) HAVE THEIR OPCODES @G@@[[. BIASED BY THIS AMOUNT BY THESQ )@@G@@ COMPILER SO THAT THEY CAN BE PACKED INTO @G@@[[. SIX BITS. ANY NEW PRISR )@@G@@MITIVES WHICH CAN APPEAR IN COMPOUND OPERATIONS @D@@[[. MUST THEREFORE HSS )@@G@@AVE CODES IN THE RANGE (0244-0343) @[@@[[. @A@@[[ARBIAS EQU 024ST )@@G@@4 . @[@@[[. @ #@@[AADD EQU 0244 . + ADD @A@@@[SU )@@G@@ASUBTR EQU 0245 . - SUBTRACT @A@@@[AMULT EQU 0246 . MULTISV )@@G@@PLY @A@@@[ADIVID EQU 0247 . DIVIDE @ @@@[ACEIL EQU 0250 SW )@@G@@ . CEILING @ @@@[AFLOOR EQU 0251 . FLOOR @B@@@[AEXPON EQU 0252 SX )@@G@@ . EXPONENTIAL/POWER @ @@@[ALOG EQU 0253 . LOGARITHM@ @@@[ARESIDSY )@@G@@ EQU 0254 . RESIDUE @A@@@[AFACTL EQU 0255 . ! FACTORIAL @A@@@[SZ )@@G@@ACIRCL EQU 0256 . TRIG FUNC@A[@@[AROLL EQU 0257 . ROLTA )@@G@@L/DEAL@A@@@[ASIZE EQU 0260 . SIZE/ RESHAPE @A@@@[ARAVEL EQU 0261 TB )@@G@@ . RAVEL/CATENATE @ @@@[AINDEX EQU 0262 . IOTA @A@@@[ASYSTM EQU 0TC )@@G@@263 . IBEAM @B@@@[AMEMBR EQU 0264 . MEMBERSHIP, UNQUOTE TD )@@G@@@A[@@[AREVER EQU 0265 . REVERSE/ROTATE @B@@@[ARVFIR EQU 0266 . REVERTE )@@G@@SE ON 1ST COORD @ @@@[AXPOSE EQU 0267 . TRANSPOSE @B@@@[AMONEN EQU 0TF )@@G@@267 . ***** END OF MONADS @^@@@[AREDUC EQU 0270 . REDUCE@B@@@[ARDFIRTG )@@G@@ EQU 0271 . REDUCE ON 1ST COORDINATE@B@@@[. BEGITH )@@G@@N PURE DYADS@#@@@[AXPFIR EQU 0272 @^@@@[AXPAND EQU 0273 . EXPAND@#]@@[TI )@@G@@ALGOR EQU 0274 @A@@@[ALGNAN EQU 0275 . LOGICAL NOTAND @A@@@[ALGNORTJ )@@G@@ EQU 0276 . LOGICAL NOR @A@@@[ALESS EQU 0277 . LOGICAL .LT. TK )@@G@@@D@@@[ALEQ EQU 0300 . LESSTHAN OR EQUAL @A@@@[AEQUL TL )@@G@@ EQU 0301 . .EQ. @D@@@[AGEQ EQU 0302 . GREATM )@@G@@TER THAN OR EQUAL @A@@@[AGRTR EQU 0303 . .GT. @B@@@[AUNEQLTN )@@G@@ EQU 0304 . UNEQUAL @ @@@[ALGAND EQU 0305 . LOGICAL AND TO )@@G@@@#[@@[ADROP EQU 0306 @#@@@[ATAKE EQU 0307 . @A@@@[ADCODE EQU 0310 TP )@@G@@. DECODE @A@@@[ANCODE EQU 0311 . ENCODE @B@@@[ASTORETQ )@@G@@ EQU 0312 . STORE(LEFT ARROW)@B@@@[AOUTER EQU 0313 . OUTTR )@@G@@ER PRODUCT @E@@@[ADYAEN EQU 0313 . ***** END OF DYADS **TS )@@G@@*** @C@@@[. PUNCTUATION @B@@@[AQUAD TT )@@G@@ EQU 0314 . " DISPLAY VARIABLE @D@@@[AQQUAD EQU 0315 . QUOTE-QUATU )@@G@@D ( CHARACTER INPUT) @^@@@[ACOLON EQU 0316 . : @^@@@[ALPAR EQU 0TV )@@G@@317 . ( @C@@@[ALBRAK EQU 0320 . LEFT SUBSCRIPT BRACKET @^@@@[TW )@@G@@ARPAR EQU 0321 . ) @C@@@[ARBRAK EQU 0322 . RIGHT SUBSCRIPT BRACKTX )@@G@@ET @B@@@[ASEMIC EQU 0323 . SUBSCRIPT SEPARATOR @ @@@[. LTY )@@G@@EXICAL ITEMS @B@@@[AFUNCT EQU 0324 . FUNCTION DEFINITION @B@@@[TZ )@@G@@ALOCK EQU 0325 . LOCKED FUNCTION DEFN @E@@@[AALFAN EQU 0326 . ALFUA )@@G@@ANUMERIC LITERAL ( SINGLE QUOTE) @ @@@[ASPACE EQU 0327 . SPACEUB )@@G@@@A@@@[AUMINS EQU 0330 . UNARY MINUS@A@@@[ADECPT EQU 0331 . . UC )@@G@@ DECIMAL @B@@@[AMARK EQU 0332 . MARK FOR TRACE, STOP @^@@@[ATRACEUD )@@G@@ EQU 0333 . @^@@@[ASTOP EQU 0334 . @A@@@[ALAMP EQU 0335 UE )@@G@@. COMMENTS @D@@@[ALLIST EQU 0366 . $[ LEFT HAND DELIMITER FORUF )@@G@@ LISTS@D@@@[ARLIST EQU 0337 . $] RITET HAND DELIMITER FOR LISTS@A@@@[UG )@@G@@AUNDRL EQU 0340 . UNDERLINE@F@@@[. ***** INTERNAL SYMBOLS TO MAUH )@@G@@RK STORED TEXT OF FUNCT HEADER LINES@C@@@[AFNNAM EQU 0350 . NAMUI )@@G@@E OF THE FUNCT @B@@@[AFNANS EQU 0351 . RESULT OF FUNCT@C@@@[UJ )@@G@@AFNARG EQU 0352 . ARGUMENT OF FUNCT @D@@@[AFNLCL EQU 0353 UK )@@G@@ . LOCAL VARIABLE OF FUNCT @^@@@[APSYMB* PROC 0,0 . @]@@@[UL )@@G@@ END @F@@@[/. PROX TO TEST WHETHER A PARTICULAR SYMBOL (IN A0) ISUM )@@G@@ SOME TYPE @G@@@[. CAUTION: A REORDERING OF APSYMB MAY NECESSITATE UN )@@G@@CHANGING THESE,TOO@D@@@[T PROC . TEST/JUMP ON DIGIT/NOT DIGIUO )@@G@@T . @#@@@[TDIGIT* NAME 01 . @#@@@[TNDIGT* NAME 02 . @#@@@[JDIGIT* NAMEUP )@@G@@ 03 . @#@@@[JNDIGT* NAME 04 . @ @@@[ UNLI$T . @ @@@[UQ )@@G@@ TG,U A0,AZERO . @ @@@[ TG,U A0,ANINE+1 . @^@@@[UR )@@G@@ GO T$EX10 . @C@@@[. TEST/JUMP ON ALFA/NONUS )@@G@@-ALFA @#@@@[TALFA* NAME 01 . @#@@@[TNALFA* NAME 02 . @#@@@[JALFA* NAMEUT )@@G@@ 03 . @#@@@[JNALFA* NAME 04 . @ @@@[ UNLI$T . @B@@@[UU )@@G@@ TNE,U A0,AMARK . IS CHAR A MARK?@C@@@[ DO 1-(T(0,0)**1) , J LAUV )@@G@@ST . YES, DO @C@@@[ DO T(0,0)=1 , J LAST+1 . THE PUW )@@G@@ROPER @B@@@[ DO T(0,0)=3 , J T(1,1) . THING@^@@@[ TG,U UX )@@G@@ A0,A0BAR . @^@@@[ GO T$EX01 . @E@@@[. UY )@@G@@ TEST/JUMP ON ALFAMERIC/NONALFAM @#@@@[TALFAM* NAME 01 . @#@@@[TNALFMUZ )@@G@@* NAME 02 . @#@@@[JALFAM* NAME 03 . @#@@@[JNALFM* NAME 04 . @ @@@[ VA )@@G@@ UNLI$T . @B@@@[ TNE,U A0,AMARK . IS CHAR A MARK?VB )@@G@@@C@@@[ DO 1-(T(0,0)**1) , J LAST . YES, DO @C@@@[ DO T(0,0)=1VC )@@G@@ , J LAST+1 . THE PROPER @B@@@[ DO T(0,0)=3 , J T(1,1) VD )@@G@@ . THING@^@@@[ TG,U A0,AZERO . @#@@@[T$EX01* NAME . @ @@@[VE )@@G@@ TG,U A0,AZBAR+1 . @ET@@[. ASSEMBVF )@@G@@LE ANY NEEDED JUMPS @#@@@[T$EX10* NAME . @ @@@[ DO T(0,0)=1 , GO VG )@@G@@ T$EX20 . @^@@@[ DO T(0,0)<4 , J $+2 . @ @@@[ DO T(0,0)>2 , J T(1,1)VH )@@G@@ . @#@@@[T$EX20* NAME . @[@@@[LAST .@#@@@[ LI$T . @]@@@[VI )@@G@@ END .@[I@@[/. @E@@@[FDSYMB* PROC . DEFINE INTERNAL/FIELDATVJ )@@G@@A CHAR EQUIVALENCE@E@@@[. FLDATA(I) IS FIELDATA WHERE I IS INTERVK )@@G@@NAL CODE @E@@@[. APSYMF(F) IS INTERNAL CODE WHERE F IS FIELDAVL )@@G@@TA @F@@@[. IT IS ASSUMED THAT THE INTERNAL APL CODES HAVE BEEN PREVIOVM )@@G@@USLY @A@@@[. DEFINED BY AN 'APSYMB' REFERENCE. @[@@@[. @D@@@[. DEFIVN )@@G@@NE CHARACTERS TO BE USED AS FLAGS IN FIELDATA @B@@@[FDFLAN* EQU 2 . NVO )@@G@@O OF CHARS USED AS FLAGS@#@@@[FDFLAG*(1) EQU '$'@#@@@[FDFLAG*(2) EQU '@'VP )@@G@@@[@@@[. @F@@@[FDSGMT** FUNC . FIND WHICH SEGMENT (64 WD) AN FD CHAR VQ )@@G@@FALLS INTO @]@@@[I(1) EQU 192@A@@@[AFLAG EQU (FDSGMT(1)/0100)**077 VR )@@G@@@B@@@[K DO 2 , DO AFLAG=FDFLAG(K) ,I(1) EQU K*64@A@@@[ DO FDSGMT(1)<0100VS )@@G@@00 ,I(1) EQU 0 @]@@@[ END I(1) @[@@@[. @C@@@[SORT* PROC . INTEVT )@@G@@RNAL,FD INTERNAL,FD ... ETC. @D@@@[L DO SORT ,TAG(L) EQU SORT(L,2)+0100VU )@@G@@00*SORT(L,*2) @C@@@[L DO SORT ,FLDATA**(SORT(L,1)+1) EQU TAG(L) VV )@@G@@@D@@@[L DO SORT ,Z(L) EQU FDSGMT(TAG(L))+(077**SORT(L,2))+1 @B@@@[L DO SVW )@@G@@ORT ,APSYMF**(Z(L)) EQU SORT(L,1) @]@@@[ END @[@@@[. @F@@@[VX )@@G@@. THE FOLLOWING POINTS SHOULD BE NOTED IN USING THE SORT PROC-- @G@@@[VY )@@G@@. (1) THE ORDER OF PARAMETER FIELDS IS IMMATERIAL EXCEPT THAT ALTERNATEVZ )@@G@@@F@@@[. DEFS (IF ANY) OF A SYMBOL MUST ALL PRECEDE THE PRIMARY DEF. WA )@@G@@@G@@@[. (2) SUBFIELDS MUST BE OF THE FORM: INTERNAL,FD . IF FD IS MULTWB )@@G@@I-CHAR@B@@@[. IT MUST BE PRECEDED BY AN ASTERISK. @F@@@[. IT WILWC )@@G@@L PRINT AS A QUESTION MARK WHEN WRITTEN AS OUTPUT @G@@@[. (3) QUESTWD )@@G@@ION MARK CAN NEVER BE INPUT FROM A TTY. ALTERNATE IS '$Q' @G@@@[. (4)WE )@@G@@ THE FOLLOWING FD CHARS HAVE AMBIGUOUS TTY AND PRINTER GRAPHICS: @C@@@[WF )@@G@@. GRAPHIC PRINTER TTY OCTAL @B@@@[. ^ DEWG )@@G@@LTA UP ARROW 04@B@@@[. " LOZENGE DOUBLE QUOTE 76WH )@@G@@@B@@@[. RECORD MK LEFT ARROW 77@G@@@[. THE RECORD MWI )@@G@@ARK (077) CAN NEVER BE USED, AS SYSTEM I/O USES IT @G@@@[. AS A FWJ )@@G@@LAG FOR END OF LINE (AT OUTPUT), AND TTY USES IT FOR EDITING@[@@@[. WK )@@G@@@B@@@[. NOW LET'S DEFINE THE DAMN SYMBOLS--- @[@@@[. @]@@@[ SORT WL )@@G@@; @E@@@[; **** UNDERLINED NUMERICS **** WM )@@G@@@G@@@[A0BAR, '0' A1BAR, '1' A2BAR, '2' A3BAR, '3' A4BAR, '4' WN )@@G@@ ; @G@@@[A5BAR, '5' A6BAR, '6' A7BAR, '7' A8BAR, '8' A9BAR, WO )@@G@@'9' ; @C@@@[ ; ***** NUMERICS ***** @G@@@[WP )@@G@@ AZERO, '0' AONE, '1' ATWO, '2' ATHREE, '3' AFOUR, '4' ; WQ )@@G@@@G@@@[ AFIVE, '5' ASIX, '6' ASEVEN, '7' AEIGHT, '8' ANINE, '9' WR )@@G@@ ; @D@@@[ ; . ***** UNDERLINED ALFABETICS ***** @G@@@[WS )@@G@@ AABAR, 'A' ABBAR, 'B' ACBAR, 'C' ADBAR, 'D' AEBAR, 'E' ; WT )@@G@@@G@@@[ AFBAR, 'F' AGBAR, 'G' AHBAR, 'H' AIBAR, 'I' AJBAR, 'J' WU )@@G@@ ; @G@@@[ AKBAR, 'K' ALBAR, 'L' AMBAR, 'M' ANBAR, 'N' AOBAR, WV )@@G@@ 'O' ; @G@@@[ APBAR, 'P' AQBAR, 'Q' ARBAR, 'R' ASBAR, 'S' AWW )@@G@@TBAR, 'T' ; @G@@@[ AUBAR, 'U' AVBAR, 'V' AWBAR, 'W' AXBAR, WX )@@G@@'X' AYBAR, 'Y' ; @#@@@[ AZBAR, 'Z' ; @D@@@[ ; WY )@@G@@ ***** ORDINARY ALFABETICS ***** @G@@@[ AA, 'A' AB, 'B' AC,WZ )@@G@@ 'C' AD, 'D' AE, 'E' ; @G@@@[ AF, 'F' AG, 'GXA )@@G@@' AH, 'H' AI, 'I' AJ, 'J' ; @G@@@[ AK, 'K' AL, XB )@@G@@ 'L' AM, 'M' AN, 'N' AO, 'O' ; @G@@@[ AP, 'P'XC )@@G@@ AQ, 'Q' AR, 'R' AS, 'S' AT, 'T' ; @G@@@[ AU, XD )@@G@@ 'U' AV, 'V' AW, 'W' AX, 'X' AY, 'Y' ; @G@@@[XE )@@G@@ AZ, 'Z' ; XF )@@G@@@G@@@[AUNION,*'@U' AINTER,*'@I' ACNTNS,*'@C' ACNTIN,*'@N' ADIERS,*'@S' XG )@@G@@ ; @G@@[[AALFA, *'@F' AOMEGA,*'@W' ADOMNO,*'@%' AUNDRL,*'@-' XH )@@G@@ ; @D[@@[ ; ALTERNATE CHARS FOR SITES WITHOUT UOM TTY35 CHANGESXI )@@G@@@G@@@[ AMULT, *'$%' ATAKE, *'@T' ADROP, *'@D' AQUAD, *'$W' AQQUAD,*'$H' XJ )@@G@@ ; @D@@@[ ; ***** PRIMITIVE SCALAR OPS ***** @G@@@[XK )@@G@@ AADD, '+' ASUBTR, '-' AMULT, '#' ADIVID, '%' ACEIL, *'$C' ; XL )@@G@@@G@@@[ AFLOOR,*'$L' AEXPON, '*' ALOG, *'$*' ARESID,*'$!' AFACTL, '!' XM )@@G@@ ; @G@@@[ AROLL, *'$Q' AROLL, '?' ACIRCL,*'$T' ALGNOT,*'$N' ALGAND,XN )@@G@@*'$A' ; @G@@@[ ALGOR, *'$O' ALGNAN,*'@A' ALGNOR,*'@O' ALESS, '<' AXO )@@G@@LEQ, *'$<' ; @G@@[[ ALGOR, *'$+' ALGNOR,*'@+' ; NEW STANDARDS FOR XP )@@G@@LOGICAL OR ON OUTPUT @E@@[[ ALGAND,*'$#' ALGNAN,*'@#' ; AND ALSO FOXQ )@@G@@R LOGICAL AND @G@@@[ AEQUL, '=' AUNEQL,*'$=' AGRTR, '>' AGEQ, *XR )@@G@@'$>' ; @D@@@[ ; ***** PRIMITIVE MIXED FUNCTXS )@@G@@IONS ***** @G@@@[ ASIZE, *'$R' ARAVEL, ',' AINDEX,*'$I' ATAKE, '^' AXT )@@G@@DROP, *'$^' ; @G@@@[ AUPGRD,*'$U' ADNGRD,*'$D' AREDUC, '/' AXPAND, XU )@@G@@'\' AREVER,*'$V' ; @G@@@[ AXPOSE,*'$X' AMEMBR,*'$E' ADCODE,*'$B' ANXV )@@G@@CODE,*'@B' ; @D@@@[ ; ***** PRIMITIVE MIXED ON LXW )@@G@@AST COORD ***** @G@@@[ ARDFIR,*'$/' AXPFIR,*'$\' ARVFIR,*'@V' XX )@@G@@ ; @C@@@[ ; ***** OTHER CALCULATIONAL OPS **XY )@@G@@*** @G@@@[ AOUTER,*'$.' AGOTO, *'$G' AQUAD, '"' AQQUAD,*'$"' ASYSTM,XZ )@@G@@*'$Y' ; @G@@@[ ASTORE,*'$S' YA )@@G@@ ; @D@@@[ ; ***** PUNCTUATION AND SYSTEM SYMBOLS *YB )@@G@@**** @G@@@[ AUMINS, '&' ASPACE, ' ' AALFAN, 072 ALPAR, '(' ARPAR, YC )@@G@@ ')' ; @G@@@[ ALBRAK, '[' ARBRAK, ']' ADECPT, '.' ACOLON, ':' AYD )@@G@@SEMIC, ';' ; @G@@@[ AFUNCT,*'$F' ALAMP, *'$:' ALOCK, *'$K' AMARK, *YE )@@G@@'$M' ; @F@@@[ AESCAP,*'$@' ; ESCAPE FROM QUOTE-QUAD INPYF )@@G@@UT (O-BKSP-U-BKSP-T) @G@@@[ ADOLAR,*'$$' ADOLAR, '$' ; DOLLAR SIGN FYG )@@G@@OR INPUT ($$) AND OUTPUT ($) @F@@@[ AAT, *'@@' AAT, '@' ; ATSIGN YH )@@G@@FOR INPUT (@@) AND OUTPUT (@) @G@@@[ . END OF CORRESPONDENCE TBL BETYI )@@G@@WEEN FIELDATA AND INTERNAL -WHEW! @]@@@[ END @D@@@[/. CONVERSIOYJ )@@G@@N PROCS BETWEEN FIELDATA AND INTERNAL CODE@[@@@[. @F@@@[O PROC YK )@@G@@ . EXECUTE TIME CONVERSION, INTERNAL TO FIELDATA @D@@@[OUTCNV* NAMEYL )@@G@@ 0 . COUNTLOC FROM,TO (NO WDS LEFT IN A0) @G@@@[OUTCNB* NAME 1 . ENTRY TYM )@@G@@O FORCE BLANK FILL REGARDLESS OF BATCH/DEMAND @#@@@[ UNLI$T . YN )@@G@@@D@@@[ LR,O(0,1) R1,O(1,1) . CHAR COUNT FOR OUTPUT @G@@@[ DO O(YO )@@G@@2,1)<0 , GO OC$010 . IF NOT GIVEN, BYPASS SETUP OF 'FROM' LINKAGE @E@@@[YP )@@G@@ DL A1,WRFCTL . INITIALIZE POINTERS IN EDIT RTNE @F@@@[ YQ )@@G@@ LXM,U*(1-O(2,*1)) A2,O(2,1) . SET BEGIN ADDR OF 'FROM' AREA@#@@@[OC$010YR )@@G@@* NAME . @D@@@[ LA A0,(+1,O(2,2)) . SET ADDR OF 'TO' AREA YS )@@G@@@F@@@[ DO 1-O(0,0) , LMJ X11,WREDIT . EDIT WITH BATCH/DEMAND FILL CHAR YT )@@G@@@E@@@[ DO O(0,0) , LMJ X11,WREDIB . EDIT WITH FORCED BLANK FILL @D@@@[YU )@@G@@ ANA A0,(+1,O(2,2)) . COMPUTE NO OF WORDS USED@#@@@[ LI$T YV )@@G@@. @]@@@[ END .@[@@@[. @[@@@[. @A@@@[. TRANSLATE FD TOYW )@@G@@ INTERNAL CODE @[@@@[. @A@@@[. CALL: INCNV IN,OUT,COUNT ERROR YX )@@G@@@[@@@[. @ @@@[P PROC . @ @@@[INCNV* NAME YY )@@G@@ . @ @@@[ UNLI$T . @B@@@[ L,P(0,1) R1YZ )@@G@@,P(1,3) . CHAR COUNT @ @@@[ LXI,U A0,1 . @A@@@[ DO 1ZA )@@G@@-P(1,*1) , LXM,U A0,P(1,1) .@A@@@[ DO P(1,*1) , LXM A0,P(1,1) .ZB )@@G@@@ @@@[ LXI,U X3,1 . @A@@@[ DO 1-P(1,*2) , LXM,U X3,P(1,ZC )@@G@@2) .@A@@@[ DO P(1,*2) , LXM X3,P(1,2) .@A@@@[ LMJ X11,TZD )@@G@@RANFD . DO IT @ @@@[ DO P(2)>0 , J P(2,1) . @ @@@[ LI$T ZE )@@G@@ . @ @@@[ END . @[@@@[. @[@@@[ZF )@@G@@. @G@@@[APLBCI* PROC . THIS PROC GENERATES MESSAGE CONSTANTS, I.E. TZG )@@G@@HE INTERNAL @G@@@[. CODE CORRESPONDING TO A MESSAGE WHICH IZH )@@G@@S PUNCHED ON THE @G@@@[. SOURCE CARD IN THE ASSEMBLER'S CHZI )@@G@@ARACTER SET (FIELDATA) @G@@@[. WE ASSUME THAT THE FIELDATA--- INTERNZJ )@@G@@AL CORRESPONDENCE HAS BEEN @G@@@[. ALREADY ESTABLISHED THROUGH A REFZK )@@G@@ERENCE TO THE 'FDSYMB PROCEDURE. @C@@@[UNPK* PROC. CONVERT ONE FIELZL )@@G@@D TO INTERNAL @E@@@[DBL EQU UNPK(1,1)+0D . FORCE SYMBOL TO DOUBLEZM )@@G@@ PRECISION @G@@@[L DO 12 ,C(L) EQU 077**(DBL*/(6*(L-12))) . EXTRACT EZN )@@G@@ACH CHARACTER @D@@@[NK(1) EQU 12. SET NO OF CHARS TO BE CONVERTZO )@@G@@ED @B@@@[ DO C(1)+C(2)+C(3)+C(4)=0 ,NK(1) EQU 8. @D@@@[ DO NK(1)=8 ZP )@@G@@, DO C(5)+C(6)+C(7)+C(8)=0 ,NK(1) EQU 4. @D@@@[ DO NK(1)=4 , DO C(9)+C(ZQ )@@G@@10)+C(11)+C(12)=0 , END. @F@@@[ DO NK(1)<12 ,L DO NK(1) ,C(L) EQU CZR )@@G@@(L+12-NK(1)) . WORD ADJUST @C@@@[ADJUST NAME . NOW LEFT ADJUST AND BZS )@@G@@LANK FILL @B@@@[ DO C(1)>0 , GO BCIGEN. OUT IF ADJUSTED @B@@@[L DO NZT )@@G@@K(1) ,C(L) EQU C(L+1) . LEFT ADJUST@B@@@[C(NK(1)) EQU ASPACE. .ZU )@@G@@ BLANK FILL @ @@@[ GO ADJUST. TRY AGAIN@C@@@[BCIGEN* NAME. NOWZV )@@G@@ GENERATE THE DATA WORD(S) @E@@@[M DO NK(1)/4 , + APSYMF(C(4*M-3)+1),ZW )@@G@@APSYMF(C(4*M-2)+1), ; @D@@@[ APSYMF(C(4*M-1)+1),APSYMFZX )@@G@@(C(4*M)+1). @]@@@[ END. @A@@@[L DO APLBCI(1) , UNPK APLBCI(1,L) ZY )@@G@@@]@@@[ END ___ @D@@@[ LR,O(0,1) R1,O(1,1) . CHAR COUNT FOZZ )@@G@@R OUTPUT @G@@@[ DO O(2,1)<0 , GO OC$010 . IF *[S@@@*SDFF*@ @@@[. DEFIAA )@@G@@NE SIZE OF WORKSPACE @]@@@[ DEF .@E@@@[WSSVSI EQU 8 AB )@@G@@ . SIZE OF STATE INDICATOR BLOCK @G@@[[WSYSIZ EQU 256 AC )@@G@@. DEFAULT SYMBOL TBL SIZE (NO OF ENTRIES) @F@@[[WSSIND EQU 2 AD )@@G@@ . DEFAULT WS SIZE (4096 WD BLOCKS) @G@@[[WSSIZE EQU 4096*WSSIAE )@@G@@ND . DEFAULT FREE STORAGE (NOMINAL) IN WORDS @D@@[[WSTAG EQU X1 AF )@@G@@ . BASE REG FOR WORKSPACE@B@@[[. NOW DEFINE TAGS IN THE WORKSAG )@@G@@PACE ITSELF @C@@[[WSID EQUF 0,WSTAG . WORKSPACE NAME @B@@[[AH )@@G@@WSPASW EQU WSID+3 . PASSWORD @D@@[[WSDSAV EQU WSPASW+2 AI )@@G@@ . TIME/DATE OF LAST SAVE@F@@[[WSASIZ EQU WSDSAV+2 . ACTUAJ )@@G@@AL SIZE OF CURRENT WORKSPACE @B@@[[WSISIZ EQUF WSASIZ,,H1 . SIZEAK )@@G@@ INDEX@D@@[[WSNSIZ EQUF WSASIZ,,H2 . NOMINAL SIZE IN WORDS @F@@[[AL )@@G@@WSFREE EQU WSASIZ+1 . POINTER TO START OF FREE LIST @E@@[[AM )@@G@@WSSTAK EQU WSFREE+1 . POINTER TO TOP OF STACK @E@@[[WSSFEIAN )@@G@@ EQU WSSTAK+1 . SIGNAL FLAG FOR EVAL INPUT @H@@[[WSTATE EQU AO )@@G@@ WSSFEI+2 . STATE VECTOR (FIELDS DEFINED BY PROC STATEV) @E@@[[AP )@@G@@WSFLGA EQU WSTATE+WSSVSI . FLAG WORD FOR SYMBOL TABLE @F@@[[WSYMAXAQ )@@G@@ EQUF WSFLGA,,H2 . MAX NO ENTRIES ALLOWED IN SYM TBL @F@@[[WSFLGBAR )@@G@@ EQU WSFLGA+1 . ANOTHER SYMBOL TABLE FLAG WORD @F@@[[WSYORGAS )@@G@@ EQUF WSFLGB,,H1 . POINTER TO 1ST WORD OF SYMB TBL @F@@[[WSYENDAT )@@G@@ EQUF WSFLGB,,H2 . POINTER TO LAST WORD OF SYMB TBL @E@@[[WSFLGCAU )@@G@@ EQU WSFLGB+1 . AND YET ANOTHER FLAG WORD @H@@[[WSVERS EQUFAV )@@G@@ WSFLGC,,Q1 . APL VERSION UNDER WHICH THIS WS LAST SAVED @G@@[[AW )@@G@@WSLEVL EQUF WSFLGC,,Q2 . AND LEVEL (IN CASE WS FMT EVER CHANGES) AX )@@G@@@G@@[[WSYNUM EQUF WSFLGC,,H2 . CURRENT NO OF ENTRIES IN SYMBOL TAAY )@@G@@BLE @F@@[[WSFUZZ EQU WSFLGC+1 . 1ST WORD OF (DFLOAT) FUZZ COAZ )@@G@@NST @A@@[[WSFLGD EQU WSFUZZ+2 . @F@@[[WSFUZI EQUF WSFBA )@@G@@LGD,,Q1 . FUZZ INDEX (NO BITS TO IGNORE) @C@@[[WSPARES(1) EQU 66 BB )@@G@@ . 66 SPARE WORDS @A@@[[WSFLGE EQU WSFLGD+1+WSPARES(1) .BC )@@G@@@B@@[[WSDBUG EQUF WSFLGE,,Q1 . DEBUG FLAG@C@@[[WSIXOR EQUF WSFBD )@@G@@LGE,,Q2 . INDEX ORIGIN @D@@[[WSDGTS EQUF WSFLGE,,Q3 . SETTBE )@@G@@ING OF )DIGITS @D@@[[WSWDTH EQUF WSFLGE,,Q4 . SETTING OF )WIDTBF )@@G@@H @D@@[[WSRAND EQU WSFLGE+1 . RANDOM NUMBER SEED @F@@[[BG )@@G@@WSMSIZ EQU WSRAND+1 . MAX SIZE TO WHICH WS CAN EXPAND @E@@[[BH )@@G@@WSMSZI EQUF WSMSIZ,,H1 . INDEX PORTION OF MAX SIZE @F@@[[WSFPNTBI )@@G@@ EQU WSMSIZ+1 . POINTERS FOR DETATCHED FREE BLOCK @F@@[[WSFFWABJ )@@G@@ EQUF WSFPNT,,H1 . 1ST WD ADDR OF DETACHED BLOCK @F@@[[WSFLWABK )@@G@@ EQUF WSFPNT,,H2 . LAST WD ADDR OF DETACHED BLOCK @E@@[[WSGARBBL )@@G@@ EQU WSFPNT+1 . POINTER TO GARBAGE LIST @C@@[[WSPARES(1) EBM )@@G@@QU 15 . 15 SPARE WORDS @E@@[[WSYTBL EQU WSGARB+1+WSPAREBN )@@G@@S(1) . START OF SYMBOL TABLE @D@@[[WSPARES(1) EQU 3*WSYSIZ . 3 WDBO )@@G@@S PER TABLE ENTRY @F@@[[WSWORK EQU WSYTBL+WSPARES(1) . NOMINAL STABP )@@G@@RT OF FREE STORAGE@[@@[[. @F@@[[WSINFO EQU 20 . DEFIBQ )@@G@@NE LOCN CTR USED FOR WORKSPACE@[@@[[. @#@@[[WSDEF* PROC . @G@@[[BR )@@G@@$(WSINFO) RES 0-$ . RESET COUNTER FOR USE BY UNLI$T/LI$T BS )@@G@@@#@@[[ END . @[_@@[. @D@@@[. CONVERSIONS BETWEEN ABSOLUTEBT )@@G@@ AND RELATIVE WS ADDRS @[@@@[. @#@@@[P PROC . @#@@@[ABSADRBU )@@G@@* NAME . @ @@@[ A,U P(1,1),0,WSTAG . @]@@@[ END .@#@@@[BV )@@G@@P PROC . @#@@@[RELADR* NAME . @ @@@[ AN,U P(1,1),0,WSTBW )@@G@@AG . @]@@@[ END .@[@@[[. @ @@[[. PROC TO DUMP THE WORKSPACE BX )@@G@@@[@@[[. @#@@[[ PROC . @#@@[[WSDUMP* NAME . @#@@[[ BY )@@G@@ UNLI$T . @G@@[[ X$DUMP 0,WSWORK-WSID+4096,'O','AXR',X1 . ONBZ )@@G@@LY DUMP 1ST 4K BLK@#@@[[ LI$T . @#@@[[ END . @[@@[[CA )@@G@@. @C@@[[. PROCS TO SET BASEREG TO COPY OR ACTIVE WS @[@@[[. CB )@@G@@@D@@[[B PROC . SET BASEREG FOR COPY/ACTIVE WS @^@@[[BASCPYCC )@@G@@* NAME 0 . @^@@[[BASACT* NAME 1 . @D@@[[ LX WSTAGCD )@@G@@,RCCFWA+B(0,0)*(RCAFWA-RCCFWA) . @^@@[[ END . @ @@[[CE )@@G@@R PROC *1 . @ @@[[ABSCPY* NAME 0 . @ @@[[CF )@@G@@ABSACT* NAME 1 . @D@@[[ A R(1,1),RCCFWA+R(0,0)*(RCG )@@G@@CAFWA-RCCFWA) . @#@@[[ END . @ @@[[R PROC *1 CH )@@G@@ . @ @@[[RELCPY* NAME 0 . @ @@[[RELACT* NAME 1 CI )@@G@@ . @D@@[[ AN R(1,1),RCCFWA+R(0,0)*(RCAFWA-RCCFWA) . @#@@[[CJ )@@G@@ END . @A@@@[/. DEFINITION OF RUN CONTROL BLOCK @#@@[[ CK )@@G@@ DEF . @D@@[[RCDMND EQU RUNBLK . DEMAND/BATCH FLAG CL )@@G@@@C@@[[RCSPAR(1) EQU RCDMND+1 . ONE SPARE WORD @F@@[[RCTREA EQU CM )@@G@@ RCSPAR(1)+1 . ADDR OF TREAD$ ROUTINE TO BE USED @E@@[[RCWRIT EQU CN )@@G@@ RCTREA+1 . ADDR OF ROUTINE FOR PRINT$'S@E@@[[RCLSIZ EQU RCWCO )@@G@@RIT+1 . DEFAULT LINE LENGTH (CHARS) @F@@[[RCDATE EQU RCLSIZ+1 CP )@@G@@ . TODAYS DATE (YYMMDD IN DECIMAL) @G@@[[RCONTM EQU RCDATE+1 CQ )@@G@@ . TIME OF DAY AT SIGNON (DFLOAT 60'THS) @G@@[[RCPUON EQU RCOCR )@@G@@NTM+2 . COMPUTER TIME USED AT SIGNON (60THS) @H@@[[RCKEYT EQU CS )@@G@@ RCPUON+2 . ACCUMULATED KEYING TIME (INTEGER MILLISEC) @C@@[[CT )@@G@@RCSPAR(1) EQU RCKEYT+1 . ONE SPARE WORD @D@@[[RCLIBN EQU RCSCU )@@G@@PAR(1)+1 . USER'S LIBRARY NUMBER @D@@[[RCOPTW EQU RCLIBN+2 CV )@@G@@. PROCESSOR OPTIONS WORD@E@@[[RCFCTL EQU RCOPTW+1 . FILE SYST CW )@@G@@CONTROL PARAMS @D@@[[RCNFIL EQUF RCFCTL,,H1 . NO OF ASSIGNED FCX )@@G@@ILES @F@@[[RCFSIZ EQUF RCFCTL,,H2 . SIZE OF AN FCT BUFFER (WORDSCY )@@G@@) @E@@[[RCFFWA EQUF RCFCTL+1,,H1 . FWA OF 1ST WD OF FCT BLOCKS CZ )@@G@@@E@@[[RCFLWA EQUF RCFCTL+1,,H2 . LWA OF FILE CONTROL TABLES @D@@[[DA )@@G@@RCADDF EQU RCFCTL+2 . ADD FILE READ FLAG @G@@[[RCPTIF EQU DB )@@G@@ RCADDF+1 . PAPER TAPE INPUT FLAG (PROMPT WITH X-ON)@F@@[[RCOUTIDC )@@G@@ EQUF RCPTIF+1,,H2 . OUTPUT INHIBIT FLAG (SITE/CSITE) @F@@[[RCALTPDD )@@G@@ EQU RCPTIF+2 . ALT PRINT FILE PKT: ACCESS WORD @G@@[[RCALTFDE )@@G@@ EQU RCALTP+1 . FILENAME (0 IF NONE)@G@@[[DF )@@G@@RCPADW EQU RCALTF+2 . CTL WD FOR TIMING OF ASCII-APL TERMINALSDG )@@G@@@F@@[[RCPTCH EQUF RCPADW,,H1 . NUM OF PRINT CHARS IN NULL RATIO DH )@@G@@@G@@[[RCPDCH EQUF RCPADW,,H2 . PAD CHRS IN NULL RATIO (ASCII TERMDI )@@G@@INALS)@E@@[[RCTBOO EQU RCPADW+1 . TDATE$ OF LAST SYSTEM REBOOTDJ )@@G@@@F@@[[RCBOOT EQU RCTBOO+1 . LAST REBOOT IN SECS SINCE 1/1/64 DK )@@G@@@G@@[[RCMXWS EQU RCBOOT+1 . SIZE CTL WD FOR MAX WS USER MAY HADL )@@G@@VE @F@@[[RCDFWS EQU RCMXWS+1 . SIZE CTL WD FOR DEFAULT CLEADM )@@G@@R WS @C@@[[RCSPAR(1) EQU RCDFWS+9 . 9 SPARE WORDS @F@@[[RCWRMKDN )@@G@@ EQU RCSPAR(1)+1 . ADDR OF OUTPUT AND MARK ROUTINE @E@@[[RCCOREDO )@@G@@ EQU RCWRMK+1 . OVERALL CORE MGMT FLAGS @D@@[[RCMASF EQUFDP )@@G@@ RCCORE,,Q1 . MASTER CONSOLE FLAG @E@@[[RCLASD EQUF RCCORE,,HDQ )@@G@@2 . CURRENT LAST D-BANK LOCN @E@@[[RCAFWA EQUF RCCORE+1,,H1 DR )@@G@@. FIRST WORD ADDR OF ACTIVE WS@E@@[[RCALWA EQUF RCCORE+1,,H2 . LASTDS )@@G@@ WORD ADDR OF ACTIVE WS @E@@[[RCCFWA EQUF RCCORE+2,,H1 . FWA OF COPDT )@@G@@Y WS (0 IF NONE) @C@@[[RCCLWA EQUF RCCORE+2,,H2 . LWA OF COPY WS DU )@@G@@@C@@[[RCSPAR(1) EQU RCCORE+2+2 . 2 SPARE WORDS @B@@[[RCPCT EQU DV )@@G@@ RCSPAR(1)+1 . PCT BUFFER@C@@[[RCRUNI EQU RCPCT . ORIGDW )@@G@@INAL RUNID @C@@[[RCRUNG EQU RCPCT+1 . GENERATED RUNID @B@@[[DX )@@G@@RCQUAL EQU RCPCT+021 . QUALIFIER @C@@[[RCACNT EQU RCPCT+023DY )@@G@@ . ACCOUNT NUMBER @F@@[[PCTRES EQU 0144 . SIZE OF PCDZ )@@G@@T BUFFER (NOTE: MUST @G@@[[ . EXTEND UP EA )@@G@@TO FILE WE'RE EXECUTING FROM) @E@@[[RCSPAR(1) EQU RCPCT+PCTRES . 1ST EB )@@G@@WORD AFTER PCT AREA @#@@[[RUNCTL* PROC . @#@@[[ END . EC )@@G@@@[<@@[/. @^@@@[. DEFINITIONS FOR I/O @A@@[[ DEF ED )@@G@@ . @[D@@[. @ @@@[. ACCOUNT FILE DEFINTIONS@ @@@[. EE )@@G@@ ACCNT DEFINED IN ACCNTG@[@@@[. @E@@@[ACLIBN EQU ACCNT+0 . LIBEF )@@G@@RARY # TO SEARCH OR ENTER @B@@@[ACKEY EQU ACCNT+2 . KEY ON NUEG )@@G@@MBER @ @@@[ACLAST EQU ACCNT+4 . @B@@@[ACACNT EQU ACCNT+5 EH )@@G@@ . ACCOUNT NUMBER @A@@@[ACQUAL EQU ACCNT+7 . QUALIFIER@A@@@[ACQWTAEI )@@G@@ EQU ACCNT+9 . WS QUOTA @C@@@[ACUSED EQU ACCNT+10 . WS QUOTA EJ )@@G@@USED SO FAR @B@@@[ACPERM EQU ACCNT+11 . PERMISSION BITS@[@@[[. EK )@@G@@@G@@[[. THESE EQUF'S ARE FOR NEW STYLE BILLING USING SECTORS AND TRK SECEL )@@G@@S @[@@[[. @G@@[[ACRUNI EQU ACDUMY+9 . GENERATED RUNID EM )@@G@@(FOR )PORTS) NOTE LIBNO @G@@[[ . USES ACTUAEN )@@G@@L (IF RUNID IS USED AT ALL) @F@@[[ACMAXU EQUF ACDUMY+10,,H1 . MAX EO )@@G@@ALLOWED DRUM USAGE (SECTORS) @E@@[[ACCURU EQUF ACDUMY+10,,H2 . CURREP )@@G@@ENT USAGE IN SECTORS @G@@[[ACMXWS EQUF ACDUMY+11,,S1 . MAX WORKSPEQ )@@G@@ACE SIZE INDEX( FOR CORE CTL) @C@@[[ACPERB EQUF ACDUMY+11,,Q4 . PERMER )@@G@@ISSION BITS @G@@[[ACTRKS EQU ACDUMY+12 . ACCUMULATED TRK SECS SES )@@G@@INCE LAST BILLING @G@@[[ACTBIL EQU ACDUMY+13 . TDATE$ OF LAST MET )@@G@@ASS STORAGE BILLING @[@@[[. @B@@[[. FLAG BITS USED IN PERMISSIONEU )@@G@@ FIELD-- @B@@[[. EQU 01 . UNUSED @C@@[[ACLOKBEV )@@G@@ EQU 02 . LOCKED OUT BIT @D@@[[ACINUB EQU 04 EW )@@G@@ . NUMBER IN USE BIT @E@@[[ACCONB EQU 010 . LASTEX )@@G@@ SESSION )CONTINUED @F@@[[ACCINH EQU 020 . CONTINUE WEY )@@G@@ORKSPACES INHIBITED @F@@[[ACPINH EQU 040 . PUBLIC LIBEZ )@@G@@RARY )SAVE'S INHIBITED @[@@[[. @[@@@[. @G@@[[. DEFINITIONA OF FFA )@@G@@IELDS IN THE PREAMBLE OF WORKSPACES. THE STORAGE @B@@[[. ITSELF IS FB )@@G@@RESERVED IN ELEMENT LODSAV-- @[@@[[. @^@@[[. OLD FORMAT PREAMBLES--FC )@@G@@@[@@[[. @C]@@[DQUAL EQU DIRECT+0 . SAVERS QUALIFIER @C@@@[FD )@@G@@DACNT EQU DIRECT+2 . SAVERS ACCOUNT NUMBER@B@@@[DREF EQU DIRECFE )@@G@@T+4 . REFERENCE COUNT@B@@@[DKEY EQU DIRECT+5 . KEY FOR THIS WSFF )@@G@@@B@@@[DNAME EQU DIRECT+7 . NAME OF THIS WS@C@@@[DCAT EQU DIRECFG )@@G@@T+10 . TIME/DATE CATALOGUED @D@@@[DLAST EQU DIRECT+11 . TIME/DATEFH )@@G@@ LAST REFERENCED @C@@@[DSIZE EQU DIRECT+12 . SIZE OF WS IN WORDS FI )@@G@@@B@@@[DLIB EQU DIRECT+13 . LIB # OF SAVER @E@@@[DMOST EQU DIRECFJ )@@G@@T+15 . TIME/DATE OF MOST RECENT SAVE @[@@[[. @^@@[[. NEW FORMATFK )@@G@@ PREAMBLE @[@@[[. @G@@[[DRFAKE EQU PREAMB . 4 WDS OF ZFL )@@G@@ERO REQUIRED TO FAKE REL FMT @G@@[[DRFLAG EQU PREAMB+4 . FLAGFM )@@G@@ WORD-- 'APL*XY' (VERSION-LEVEL) @F@@[[DRVERS EQUF DRFLAG,,S5 FN )@@G@@. PROCESSOR VERSION AT LAST )SAVE @C@@[[DRLEVL EQUF DRFLAG,,S6 FO )@@G@@. ... AND LEVEL @F@@[[DRFTOT EQU PREAMB+16 . TOTAL REF CNT (SFP )@@G@@INCE WS CREATION) @G@@[[DRFSAV EQU PREAMB+17 . REF COUNT SINCE FQ )@@G@@LAST )SAVE OF THIS WS @G@@[[DRFRES EQU PREAMB+18 . REF CNT WIFR )@@G@@NCE LAST RESET OF WORD DTRES @G@@[[DTDRES EQU PREAMB+19 . TDATFS )@@G@@E$ OF LAST RESET OF REFCNT ABOVE @E@@[[DRQUAL EQU PREAMB+20 FT )@@G@@. SAVER'S QUALIFIER (2 WORDS) @F@@[[DRACNT EQU PREAMB+22 . AND FU )@@G@@HIS ACCOUNT (ALSO 2 WORDS) @D@@[[DRUNID EQU PREAMB+24 . AND FV )@@G@@ALSO HIS RUNID @G@@[[DMXSIZ EQU PREAMB+25 . MAX CORE SIZE TOFW )@@G@@ WHICH WS CAN EXPAND @C@@[[DRSPA2 EQU PREAMB+26 . 2ND SPARE FX )@@G@@WORD @E@@[[DRSPA1 EQU PREAMB+27 . 1ST (REALLY LAST) SPARE WORDFY )@@G@@@#@@@[ PROC . @#@@@[IODEF* NAME . @]@@@[ END @A@@@[FZ )@@G@@/. TRANSMIT A MESSAGE TO THE USER--@[@@@[. @ @@@[MOVE* PROC . NWDGA )@@G@@S,FROM,TO @ @@@[ UNLI$T . @C@@@[NWDS EQU MOVE(GB )@@G@@1,1) . NO OF WDS TO BE MOVED @^@@@[ DO NWDS=0 , GO MOVE$7 .@G@@@[ DO NWGC )@@G@@DS<7 , GO MOVE$1 . IF 6 WDS OR FEWER, USE REG XFERS FOR LESS CODE @ @@@[GD )@@G@@. 7 WDS OR MORE-- USE A BT @^@@@[ LXI,U A0,1 . @ @@@[ GE )@@G@@ LXM,U A0,MOVE(1,2) . @^@@@[ LXI,U A1,1 . @ @@@[ LXM,UGF )@@G@@ A1,MOVE(1,3) . @ @@@[ LR,U R1,MOVE(1,1) . @^@@@[ BT GG )@@G@@ A1,,*A0 . @^@@@[ GO MOVE$7 . @B@@@[MOVE$1* NAME . GENERATE GH )@@G@@REG XFER INSTRS @^@@@[ DO NWDS>1 , GO MOVE$2 .@ @@@[ LA A0,MOGI )@@G@@VE(1,2) . @ @@@[ SA A0,MOVE(1,3) . @^@@@[ GO MOVE$GJ )@@G@@7 . @#@@@[MOVE$2* NAME . @ @@@[ DL A0,MOVE(1,2) . @ @@@[GK )@@G@@ DS A0,MOVE(1,3) . @^@@@[ DO NWDS=2 , GO MOVE$7 .@^@@@[ DO NWGL )@@G@@DS>3 , GO MOVE$4 .@ @@@[ LA A0,MOVE(1,2)+2 . @ @@@[ SA GM )@@G@@ A0,MOVE(1,3)+2 . @^@@@[ GO MOVE$7 . @#@@@[MOVE$4* NAME . GN )@@G@@@ @@@[ DL A0,MOVE(1,2)+2 . @ @@@[ DS A0,MOVE(1,3)+2 . GO )@@G@@@^@@@[ DO NWDS=4 , GO MOVE$7 .@^@@@[ DO NWDS>5 , GO MOVE$6 .@ @@@[ GP )@@G@@ LA A0,MOVE(1,2)+4 . @ @@@[ SA A0,MOVE(1,3)+4 . @^@@@[ GQ )@@G@@ GO MOVE$7 . @#@@@[MOVE$6* NAME . @ @@@[ DL A0,MOVE(1,2GR )@@G@@)+4 @ @@@[ DS A0,MOVE(1,3)+4 . @#@@@[MOVE$7* NAME . @ @@@[GS )@@G@@ LI$T . @]@@@[ END. @[@@@[. @[@@@[. GT )@@G@@@A@@@[. PROC TO PRINT LITERAL MESSAGES @[@@@[. @]@@@[. CALL: GU )@@G@@@[@@@[. @B@@@[. SEND '12 CHAR MAX','MORE ',.... @[@@@[. GV )@@G@@@ @@@[P PROC . @ @@@[SEND* NAME . GW )@@G@@@ @@@[ UNLI$T . @F@@@[LCTR EQU & . REMGX )@@G@@EMBER WHICH LOCATION CTR WE'RE USING@E@@@[ CONSTS . . ANDGY )@@G@@ SWITCH TO GENERATE CONSTANTS @G@@@[ DO LCTR=& , J PAST . IF CODE IS ON GZ )@@G@@SAME COUNTER, JUMP AREOUND DATA @[@@@[TOP. @A@@@[K DO P(1) , AHA )@@G@@PLBCI P(1,K) .@D@@@[NCHAR EQU ($-TOP)*4 . CHAR COUNT FOR THIS MHB )@@G@@ESSAGE@C@@@[$(LCTR) . RESET LOCN CTR TO ITS ORIGINAL SETTING@ @@@[PAST HC )@@G@@ L,U A4,NCHAR . @ @@@[ L,U A3,TOP . @ @@@[ HD )@@G@@ LMJ X11,PRSEND . @#@@@[ LI$T . @#@@@[ END . HE )@@G@@@[@@@[. @A@@@[. PROC TO SEND LITERAL MESSAGES @[@@@[. @]@@@[HF )@@G@@. CALL: @[@@@[. @D@@@[. PRINT COUNT,ADDRESS ( COUNT IN APLHG )@@G@@ CHARS ) @[@@@[. @ @@@[P PROC . @ @@@[PRINT*HH )@@G@@ NAME . @ @@@[ UNLI$T . @B@@@[ HI )@@G@@ L,U A4,P(1,1) . CHAR COUNT @B@@@[ L,U A3,P(1,2) . MESHJ )@@G@@SAGE ADDR @ @@@[ LMJ X11,PRSEND . @ @@@[ LI$T HK )@@G@@ . @ @@@[ END . @[@@@[. @[@@@[. HL )@@G@@@[@@@[. @ @@@[. PROCS TO COMPUTE KEYING TIME@[@@@[. @ @@@[P HM )@@G@@ PROC . @C@@@[TIMEON* NAME . TURN KEYING TIMHN )@@G@@ER ON @#@@@[ UNLI$T @F@@[[ ER TIME$ . TIMEHO )@@G@@ NOW (MILLISEC) IS 'BEFORE' @G@@[[ ANA A0,RCKEYT . LESSHP )@@G@@ ACCUMULATION GIVES (BEFORE-TOTAL) @G@@[[ SNA A0,RCKEYT HQ )@@G@@. SAVE -(BEFORE-TOT) WHICH IS (TOT-BEFORE)@ ]@@[ LI$T HR )@@G@@ . @ @@@[ END . @[@@@[. @[@@@[. @ @@@[HS )@@G@@P PROC . @F@@@[TIMOFF* NAME . TURN OFF HT )@@G@@TIM-R AND UPDATE KEYING TIME @#@@@[ UNLI$T @D@@[[ ER HU )@@G@@ TIME$ . TIME NOW IS 'AFTER' @H@@[[ AA A0,RCKEYTHV )@@G@@ . PLUS (TOT-BEFORE) GIVES TOT+(AFTER-BEFORE) @F@@[[ TP HW )@@G@@ A0 . WAS AFTER GREATER THAN BEFORE? @G@@[[ AA HX )@@G@@ A0,(+24*60*60*1000) . NO, FUDGE FOR CLOCK THRU MIDNITE @G@@[[ HY )@@G@@ SA A0,RCKEYT . POST KEYING TIME ACCUMULATED TO NOW @ A@@[HZ )@@G@@ LI$T . @ @@@[ END . ___5 ,IA )@@G@@ GO MOVE$6 .@ @@@[ LA A0,MOVE(1,2)+4 . @ @@@[ SA A0,MOIB )@@G@@VE(1,3)+4 . @^@@@[ GO MOVE$7 . @#@@@[*[S@@@*SDFF*@G@@@@. ****IC )@@G@@***************************************************************** @G@@@@ID )@@G@@. STANDARD PROCS - INCLUDED BY AN @ADD PRCPKG/APL IN SOURCE DECKS * IE )@@G@@@G@@@@. IF )@@G@@ * @G@@@@ AXR$ . IG )@@G@@ * @G@@@@ CONFIG . DEFINE ASSEMBLY PARAMETERS IH )@@G@@ * @G@@@@ APSYMB. DEFINE APL SYMBOL SET II )@@G@@ * @G@@@@ FDSYMB. DEFINE FIELDATA SYMBOLSIJ )@@G@@ * @G@@@@ WSDEF. DEFINE WORKSPACE IK )@@G@@ * @G@@@@WORKSP INFO 2 20. SET ASIL )@@G@@IDE THE SPACE * @G@@@@ RUNCTL. DEFINIM )@@G@@E RUN CTRL BLOK(S) * @G@@@@RUNCON INFO 2 22.IN )@@G@@ AND SET ASIDE ITS SPACE * @G@@@@ CBLOCIO )@@G@@K . DEFINE CONTROL BLOCK TYPES * @G@@@@. IP )@@G@@ * @G@@@@IQ )@@G@@. END OF STANDARD PROC BLOCK * IR )@@G@@@G@@@@. ****************************************************************IS )@@G@@***** @[@@@@. @[@[@@. @E@@[[ BRIEF . UOM ASSEMBLER ONLY,IT )@@G@@ REMOVE AT OTHER SITES @[[@@@. @ @[@@ VARBLS . IU )@@G@@@[@@[[. @F@@[[. LOC CTR SETTINGS FOR INITIALIZATION AND MASTER CONSOIV )@@G@@LE CODE @[@@[[. @#@@[[ MASTER @G@@[[ACMAST INFO 2 MIW )@@G@@CINFO . COMMON BLOCK FOR MASTER CONSOLE CLDE @G@@[[ACINIT INFOIX )@@G@@ 2 ININFO . COMMON BLOCK FOR INITIALIZATION CODE @D@[@@ACCNT*IY )@@G@@ RES 14 . ACCOUNT INFO FOR THIS RUN @D@[@@DINDEX* RES 1. IZ )@@G@@ DRUM INDEX FOR THIS RUN @E@@[[. BUFFER IN WHICH ACCOUNT DATAJA )@@G@@ IS KEPT THROUGHOUT RUN-- @[@@[[. @G@@[[. NOTE: THE TAGS ACXXXX JB )@@G@@WHICH POINT INTO THE WORDS OF THE ACCOUNTING @F@@[[. ENTRY ARE EQU'D JC )@@G@@BY THE PROC IODEF (IN PDP ELEMENT WSDEF/APL) @F@@[[. BECAUSE SOME AREJD )@@G@@ PARTIAL WORDS, WHICH CANNOT BE EXTERNALIZED @[@@[[. @#@@[[ JE )@@G@@ VARBLS . @A@@[[ACCNT* RES 14 . @[@@[[. @F@@[[JF )@@G@@. DUMMY AREA USED FOR DEBUGGING UNTIL ACCOUNT EL FMT IS CHANGED-- @[@@[[JG )@@G@@. @F@@[[ACDUMY* EQU ACCNT . ENABL E NEW STYLE WS ACCOUNTJH )@@G@@ING @[@@[[. @G@@[[ACTMAS* RES 1 . TIME OF LAST MS JI )@@G@@BILLING IN SECONDS-- @G@@[[ . COMPUTED FROM WORD ACTBILJJ )@@G@@ OF USER ENTRY, WHICH IS TDATE@[@@[[. @ #@@@ IODEF JK )@@G@@ . @ @[@@ ACON . @]@[@@MCONS* PROC.@[@[@@$(28).JL )@@G@@@]@[@@ END. @ @[@@WHURP INFO 2 28 . @[@@[[. @#@@[[JM )@@G@@I PROC . @C@@[[LOCK* NAME RDL$ . PKT,ERR DRUMADR,ACW JN )@@G@@@^@@[[UNLOCK* NAME UNL$ . @ @@[[ACQIR* NAME ACQ$ . @^@@[[JO )@@G@@READ* NAME R$ . @^@@[[WRITE* NAME W$ . @^@@[[ UNLI$JP )@@G@@T . @G@@[[ DO I(1)>0 , DO 1-(I(1,1)<0) , LA,U A0,I(1,1) . IF NEDJQ )@@G@@ED GET PKT ADDR @D@@[[ LA,U A1,I(0,0) . GET FUNCTION CODJR )@@G@@E @B@@[[ SA,S2 A1,3,A0 . STASH IT @C@@[[ DO I(2)<2 ,JS )@@G@@ GO IO$010 . SKIP ACESS WORD? @ @@[[ LA A1,I(2,2) . NO JT )@@G@@@B@@[[ SA A1,4,A0 . TO PACKET @#@@[[IO$010* NAME . JU )@@G@@@ @@[[ DO I(2)<1 , GO IO$020 . @ @@[[ DO I(2,1)<0 , GO IO$020 . JV )@@G@@@C@@[[ LA,U*(1-I(2,*1)) A1,I(2,1) . GET DRUMAD @D@@[[ SA JW )@@G@@ A1,5,A0 . DRUM ADDR TO PACKET @#@@[[IO$020* NAME . @A@@[[JX )@@G@@ ER IOW$ . DO IT @B@@[[ DO I(1)<2 , GO IO$040 . ERRJY )@@G@@OR CHECK? @B@@[[ TZ,S1 3,A0 . YES, DO IT @ @@[[ JZ )@@G@@ J I(1,2) . @ @@[[IO$040* NAME . @ @@[[ KA )@@G@@ LI$T . @ @@[[ END . @[@@[[. KB )@@G@@@A@@[[. PROGRAM FILE STUFF FOR ACCNT EL @[@@[[. @#@@[[P PROC KC )@@G@@ . @ @@[[PFSRCH* NAME 0 . @ @@[[ UNLI$T KD )@@G@@ . @ @@[[ LA,U A0,PFPKT . @ @@[[ ER PFS$ KE )@@G@@ . @B@@[[ JNZ A2,P(1,1) . ABNORMAL EXIT @#@@[[ LI$T KF )@@G@@ . @#@@[[ END . @[@@[[. @#@@[[P PROC . @ @@[[KG )@@G@@PFINEW* NAME . INSERT ELEMENT @ @@[[ UNLI$T . @E@@[[KH )@@G@@ TZ,S6 PFSIZW . IS NEW EL SIZE A TRAK MULTIPLE? @A@@[[ KI )@@G@@ ER ERR$ . NO, CRASH@B@@[[ LA A1,PFTSIZ . YES, GET KJ )@@G@@IT @C@@[[ AA A1,PFTADR . PLUS START ADDR OF EL@D@@[[ KK )@@G@@ SA A1,IODADR . IS NEXT WRITE ADDR, POST IT@C@@[[ ACQIR IOPKTKL )@@G@@,P(1,1) . GET THAT TRACK @D@@[[ SZ PFTDAT . BE SURE WKM )@@G@@E GET TODAY'S DATE@D@@[[ SZ PFPSIZ . FORCE PREAMBLE SIZE TKN )@@G@@O ZERO@B@@[[ SZ PFPADR . AND ITS ADDRESS@F@@[[ LNA,UKO )@@G@@ A0,PFPKT . FORCE AUTO UPDATE OF NEXT WRITE ADDR @G@@[[ LA KP )@@G@@ A1,IODADR . NEXT WRITE ADDR IS WHAT WE JUST ACQUIRED @A@@[[ KQ )@@G@@ ER PFI$ . DO IT @C@@[[ JNZ A2,P(1,1) . DIE IF NOKR )@@G@@T SUCCESSFUL@#@@[[ LI$T . @#@@[[ END . @[ @@@/. KS )@@G@@@[@@@@. @[@@@@. @E@@@@. FORMAT OF THE CONTROL SECTOR ( SKT )@@G@@ECTOR 0 ) OF THE @D@@@@. ACCOUNT ELEMENT ( ACCOUNTING/000000000KU )@@G@@000 ).@[@@@@. @[@@@@. @[@@@@. @G@@@@. . . . . . . . .KV )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@@@@. . KW )@@G@@ . . @G@@@@. 0 . KX )@@G@@ MSGCNT : MCFLAG . ENTRIES . @G@@@@. KY )@@G@@ . . . @G@@@@KZ )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LA )@@G@@@G@@@@. . LB )@@G@@ . @G@@@@. 1 . ASSUMED QUOTAS LC )@@G@@ . @G@@@@. . LD )@@G@@ . @G@@@@. . . . . . . . . . . . . . . . . . . . .LE )@@G@@ . . . . . . . . . . . @G@@@@. . LF )@@G@@ . @G@@@@. 2 . ASLG )@@G@@SUMED PERM BITS . @G@@@@. . LH )@@G@@ . @G@@@@. . . . . . . . .LI )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@@@@. . LJ )@@G@@ . @G@@@@. 3 . LK )@@G@@ MASCON- . @G@@@@. LL )@@G@@ . . @G@@@@LM )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LN )@@G@@@G@@@@. . LO )@@G@@ . @G@@@@. . NUMBER LP )@@G@@ . @G@@@@. . LQ )@@G@@ . @G@@@@. . . . . . . . . . . . . . . . . . . . .LR )@@G@@ . . . . . . . . . . . @G@@@@. . LS )@@G@@ . @G@@@@. 5 . MELT )@@G@@SSAGE . @G@@@@. . LU )@@G@@ . @G@@@@. . LV )@@G@@ . @G@@@@. . LW )@@G@@ . @B@@@@. LX )@@G@@ . @B@@@@. LY )@@G@@ . @B@@@@. . @[@@@@. @[@@@@LZ )@@G@@. @[@@@@. @F@@@@. MSGCNT - FLAG INDICATING THERE IS A MEMA )@@G@@SSAGE THAT SHOULD @G@@@@. BE DISPLAYED AT SIGN-ON TIME.MB )@@G@@ THIS FIELD CONTAINS @D@@@@. THE CHARACTER COUNT OF MC )@@G@@THE MESSAGE.@[@@@@. @F@@@@. MCFLAG - IF NON-ZERO, THE MASTERMD )@@G@@ IS SIGNED ON WITH WRITE@C@@@@. ENABLED INTO THE ACCOINTME )@@G@@S FILE@[@@@@. @F@@@@. ENTRIES - NUMBER OF ACCOUNT NUMBERS CUMF )@@G@@RRENTLY ENTERED IN@ @@@@. THE FILE. @[@@@@. @G@@@@MG )@@G@@. ASSUMED QUOTA - THIS WILL BE USED TO SET A WORKSPACE QUOTA MH )@@G@@@G@@@@. FOR NEW NUMBERS ENTERED IN THE ACCOUNT FMI )@@G@@ILE. @[@@@@. @H@@@@. ASSUMED PERM BITS - THIS WILL BE USED MJ )@@G@@TO SET THE PERMISSION BITS @H@@@@. FOR NEMK )@@G@@W NUMBERS ENTERED IN THE ACCOUNT FILE. @[@@@@. @H@@@@. MAML )@@G@@SCON NUMBER - THIS IS THE CURRENT MASTER CONSOLE LIBRARY NUMBER. @[@@@@MM )@@G@@. @G@@@@. MESSAGE - WORDS 5-27 CONTAIN THE MESSAGE TO BE DISMN )@@G@@PLAYED AT @D@@@@. SIGN-ON IF MSGCNT IS NON-ZERO. MO )@@G@@@[@@@@. @[@[@@/. @[@[@@. @G@[@@. FORMAT OF INDIVIDUALMP )@@G@@ ACCOUNT ENTRY. ENTRY IS 14 WORDS LONG @B@[@@. AND THERE ARE MQ )@@G@@TWO PER SECTOR. @[@[@@. @[@[@@. @G@[@@. . . . . . . . .MR )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@[@@. . MS )@@G@@ . @G@[@@. 0 . MT )@@G@@ ACLIBN . @G@[@@. MU )@@G@@ . . @G@[@@MV )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . MW )@@G@@@G@[@@. . MX )@@G@@ . @G@[@@. . MY )@@G@@ . @G@[@@. . MZ )@@G@@ . @G@[@@. . . . . . . . . . . . . . . . . . . . .NA )@@G@@ . . . . . . . . . . . @G@[@@. . NB )@@G@@ . @G@[@@. 2 . ACNC )@@G@@KEY . @G@[@@. . ND )@@G@@ . @G@[@@. . . . . . . . .NE )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@[@@. . NF )@@G@@ . @G@[@@. . NG )@@G@@ . @G@[@@. NH )@@G@@ . . @G@[@@NI )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . NJ )@@G@@@G@[@@. . NK )@@G@@ . @G@[@@. 4 . ACLAST NL )@@G@@ . @G@[@@. . NM )@@G@@ . @G@[@@. . . . . . . . . . . . . . . . . . . . .NN )@@G@@ . . . . . . . . . . . @G@[@@. . NO )@@G@@ . @G@[@@. 5 . ACNP )@@G@@ACNT . @G@[@@. . NQ )@@G@@ . @G@[@@. . . . . . . . .NR )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@[@@. . NS )@@G@@ . @G@[@@. . NT )@@G@@ . @G@[@@. NU )@@G@@ . . @G@[@@NV )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . NW )@@G@@@G@[@@. . NX )@@G@@ . @G@[@@. 7 . ACQUAL NY )@@G@@ . @G@[@@. . NZ )@@G@@ . @G@[@@. . . . . . . . . . . . . . . . . . . . .OA )@@G@@ . . . . . . . . . . . @G@[@@. . OB )@@G@@ . @G@[@@. . OC )@@G@@ . @G@[@@. . OD )@@G@@ . @G@[@@. . . . . . . . .OE )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @G@[@@. . OF )@@G@@ . @G@[@@. 9 . OG )@@G@@ ACQWTA . @G@[@@. OH )@@G@@ . . @G@[@@OI )@@G@@. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . OJ )@@G@@@G@[@@. . OK )@@G@@ . @G@[@@. 10 . ACUSED OL )@@G@@ . @G@[@@. . OM )@@G@@ . @G@[@@. . . . . . . . . . . . . . . . . . . . .ON )@@G@@ . . . . . . . . . . . @G@[@@. . OO )@@G@@ . @G@[@@. . OP )@@G@@ . @G@[@@. 11 . OQ )@@G@@ ACPERM . @G@[@@. . . . . . . . .OR )@@G@@ . . . . . . . . . . . . . . . . . . . . . . . @[@[@@. @[@[@@. OS )@@G@@@[@[@@. @E@[@@. ACLIBN - LIBRARY NUMBER FOR USER. DOUBLE FLOOT )@@G@@ATING @[@[@@. @D@[@@. ACKEY - LIBRARY NUMBER LOCK. 8 APL CHAOU )@@G@@RS. @[@[@@. @F@[@@. ACLAST - LAST REFERENCE FOR THIS NUMBEOV )@@G@@R. TDATE FORMAT @[@[@@. @D@[@@. ACACNT - USERS ACCOUNT NUMOW )@@G@@BER. 12 FD CHARS @[@[@@. @C@[@@. ACQUAL - USERS QUALIFIER. OX )@@G@@12 FD CHARS @[@[@@. @D@[@@. ACQWTA - WORKSPACE QUOTA. FORMATOY )@@G@@ AS FOLLOWS:@[@[@@. @C@[@@. S1 = 0 SAYS CONTINUE NOT ALLOWEDOZ )@@G@@. @A@[@@. S1 <>0 SYAS CONTINUE OK. @F@[@@. S2 = MAXPA )@@G@@ NUMBER OF PUBLIC WORKSPACES THAT CAN BE SAVED. @C@[@@. S3 = MAXPB )@@G@@ NUMBER OF 4K WORKSPACES. @#@[@@. S4 = 8K @#@[@@. S5PC )@@G@@ = 16K@#@[@@. S6 = 32K@[@[@@. @G@[@@. ACUSED - CURREPD )@@G@@NT SAVED WORKSPACE STATUS. FORMAT AS FOLLOWS: @[@[@@. @B@[@@. PE )@@G@@ S1 = 0 SAYS CONTINUE IS SAVED. @B@[@@. S1 <>0 SAYS NO CONTIPF )@@G@@NUE EXISTS. @E@[@@. S2 = CURRENT NUMBER OF SAVED PUBLIC WORKSPACPG )@@G@@ES. @D@[@@. S3 = CURRENT NUMBER OF SAVED 4K WORKSPACES. @#@[@@PH )@@G@@. S4 = 8K.@^@[@@. S5 = 16 K @#@[@@. S6 = 32KPI )@@G@@@[@[@@. @F@[@@. ACPERM - PERMISSION BITS FOR THIS NUMBER. BPJ )@@G@@ITS ARE USED@ @[@@. AS FOLLOWS:@[@[@@. @ @[@@. PK )@@G@@ BIT 0 - NOT USED @B@[@@. BIT 1 - NUMBER IS LOCKED OUT PL )@@G@@@A@[@@. BIT 2 - NUMBER IS IN USE. @D@[@@. BIT 3 - NUMBERPM )@@G@@ WAS CONTINUED LAST SESSION. @[@[@@. @[@[@@. @ @[@@/ MCONSPN )@@G@@ . @ @[@@. INITIAL LOOKUP OF LIB NO @F@[@@. LIB NO IN PO )@@G@@A5,A6 ADDR OF WHERE TO XFER ACCOUNT ENTRY IN A0 @ @[@@. RETURNS DRPP )@@G@@UM INDEX IN A0 @G@@[[. ENTRIES FOR EACH USER ARE IN 14 WORDS. FOR DEPQ )@@G@@TAILED LAYOUT, SEE THE @A@@[[. PROC IODEF IN ELEMENT WSDEF/APL @C@@[[PR )@@G@@/. INITIALIZE ACCOUNTING DATA (AT SIGNON TIME) @F@@[[. ENTER WITH A0=ENPS )@@G@@TER/NOENTER FLAG, A1,2=KEY IN APLCHARS (LJSF) @^@@[[. NORMAL EXIT 1,XPT )@@G@@11 @D@@[[. ERROR EXIT 0,X11 WITH A0=0 (NOFIND), 1 (BAD KEY) @[@@[[PU )@@G@@. @ @[@@SACCNT* SX X11,SALINK . @D@[@@ SA A0,WHERE PV )@@G@@ . SAVE ADDR TO XFER ENTRY TO @C@[@@ DS A5,WHICH . SAVE # TOPW )@@G@@ LOOK FOR @#@@[[ INITAL . @A@@[[SACCNT* SX X11,SALINK PX )@@G@@. @E@@[[ DS A1,SAKEYA . STASH USER SPECIFIED KEY PY )@@G@@@F@@[[ TZ,U ONEFIL . HAS SITE IMPLEMENTED ONE FILE? PZ )@@G@@@E@@[[ J SA0005 . YES, GO DO A REAL LOOKUP @F@@[[QA )@@G@@ DS A1,ASSUMD+2 . NO, JAM KEY IN ASSUMED PARAMS AREA@G@@[[QB )@@G@@ LMJ X11,DEFALT . AND BUILD DUMMY ENTRY USING DEFAULTS QC )@@G@@@E@@[[ LA,U A0,0377777 . GET BIG NUMBER (2047 TRACKS)@E@@[[QD )@@G@@ SA A0,ACMAXU . MAKE IT HIS DRUM USAGE MAX @C@@[[ QE )@@G@@ J SA0500 . AND GO CLEAN UP @E@@[[. THIS SITE HAS HONEST-TQF )@@G@@O-GOD ACCOUNTING WITHIN APL ITSELF--@C@@[[SA0005 SA A0,SAENTF QG )@@G@@. SAVE ENTER FLAG @ @[@@ LA,U A0,PFPKT . @B@[@@ ER QH )@@G@@ PFS$ . FIND ELEMENT @B@[@@ JZ A2,AC0100 . IS IT THEQI )@@G@@RE ? @D@[@@ TNE,U A2,1 . WAS IT REALLY A NO FOND? @E@@[[QJ )@@G@@ PFSRCH SA0010 . LOOK FOR ACCOUNT ELEMENT @C@@[[ QK )@@G@@ J SA0100 . GOT IT, CONTINUE@E@@[[SA0010 TNE,U A2,1 QL )@@G@@ . WAS PF STATUS A NO FIND? @F_@@@ LMJ X11,ACREAT . YESQM )@@G@@, GO MAKE AN ACCOUNTING ELEMENT @C@@@@ ER ERR$ . NO,QN )@@G@@ GIVE UP HERE @G@[@@ J AC0300 . NOW THAT WE HAVE AN EQO )@@G@@LEM, SAY THE #'S NOT IN @ @[@@AC0100 LA,U A0,R$ . @ @[@@ QP )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@ QQ )@@G@@ LA,H2 A1,TXTADD . @ @[@@ DS A0,IOPKT+4 . @ @[@@ QR )@@G@@ LA,U A0,IOPKT . @B@[@@ ER IOW$ . GET SECTOR ZEROQS )@@G@@@ @[@@ TZ,S1 3,A0 . @ @[@@ ER ERR$ . QT )@@G@@@E@[@@ LR,U R1,1 . ASSUMING I AM A MASTER CONSOLE @E@[@@QU )@@G@@ DL A0,BUFF+3 . GET THE MASTER CONSOLE NUMBER @B@[@@ QV )@@G@@ DTE A0,RCLIBN . AM I HE??? @A@[@@ LR,U R1,0 . NOPQW )@@G@@E @C@[@@ SR R1,RCMASF . SET APPROPRIATE FLAG @ @[@@ QX )@@G@@ DL A1,BUFF+1 . @A@[@@ SA A1,ASSUMD+9 . SET QUOTA@C@[@@QY )@@G@@ SA A2,ASSUMD+11 . AND PERMISSIONS @A@[@@ TZ PAFLAQZ )@@G@@G . PA SENT? @A@[@@ J AC0200 . GUESS SO @C@[@@ RA )@@G@@ TNZ,Q1 BUFF . NO, IS THERE ANY? @A@[@@ J AC0200 RB )@@G@@ . NOPE @C@[@@ LA,Q1 A4,BUFF . YES, GET CHAR COUNT @E@@[[RC )@@G@@ J SA0300 . AND GO ENTER USER IN IT @A@@[[. ACCORD )@@G@@UNT ELEMENT EXISTS, GET IT @F@@[[SA0100 READ IOPKT,0 *PFTADR,(+28,RE )@@G@@BUFF) . GET CTRL SECTOR @D@@[[. IF NECESSARY, CONVERT CONTROL SECTRF )@@G@@OR TO NEW FORMAT @E@@[[SA0110 TZ,S1 BUFF+2 . IS THIS AN OLD FRG )@@G@@ORMAT FILE? @E@@[[ J SA0120 . NO, NO CONVERSION NEEDRH )@@G@@ED @G@@[[ DL A0,ASSUMD+10 . YES, GET DRUM USAVE AND PERMRI )@@G@@ISSIONS @G@@[[ DS A0,BUFF+1 . JAM NEW FORMAT DEFAULTRJ )@@G@@S INTO CTL SECT @E@@[[ WRITE IOPKT,0 . AND WRITE IT BACRK )@@G@@K TO DRUM @G@@[[. PUT DEFAULTS FROM DRUM CTL SECT INTO ASSUMED VALUES RL )@@G@@IN CASE NEW USER @E@@[[SA0120 DL A0,BUFF+1 . GET DRUM BUF COPRM )@@G@@Y OF DATA @F@@[[ DS A0,ASSUMD+10 . TO SKELETON ENTRY FOR RN )@@G@@LATER USE @E@@[[ DL A0,BUFF+3 . GET MASTER CONSOLE NUMRO )@@G@@BER @C@@[[ DS A0,ACMCON . AND STASH IT @B@@[[. IF TRP )@@G@@HERE'S A )HI MESSAGE, TRANSMIT IT @F@@[[ LA,Q1 A4,BUFF RQ )@@G@@. GET CHAR COUNT FOR )HI MESSAGE @G@@[[ JZ A4,SA0200 RR )@@G@@. IF NONE TO SEND, GO LOOK UP THIS USER @BR@@@ LA,U A3,BUFF+5 RS )@@G@@ . AND WHERE IT IS@ @@@@ LMJ X11,PRSEND . @ @[@@AC0200 DL RT )@@G@@ A0,WHICH . @B@[@@ LMJ X11,ACFNUM . FIND NUMBER @C@@[[RU )@@G@@. NOW LOOK THIS USER UP IN THE ACCOUNT ELEMENT @C@@[[SA0200 DL A0,RV )@@G@@RCLIBN . GET USER'S LIBNO@F@@[[ LA A2,SABACW . GET RW )@@G@@SCRATCH BUFFER ACCESS WORD @E@@[[ LMJ X11,FINDNO . FINDRX )@@G@@ THIS USER'S NUMBER @ ]@@@ ER ERR$ . @C@[@@ RY )@@G@@ JZ A0,AC0300 . NO ADDRESS, NO FIND @C@@][ JZ A0,SA0300 RZ )@@G@@ . NO ADDRESS, NO FIND @ @[@@ SA A0,INDEX . @F@@[[ SA )@@G@@ SA A0,DRUMAD . POST LOCN OF OUR ACCOUNT ENTRY @C]@@@ SB )@@G@@ LR,U R1,14 . PREPARE TO MOVE ENTRY@D@@@@ LXI,U A1,1 SC )@@G@@ . A1 SET UP BY FIND RTNE @C@[@@ LA,H2 A0,WHERE . TRANSFER SD )@@G@@IT HERE @ @[@@ LXI,U A0,1 . @F@@[[ LA A0,SE )@@G@@(+1,ACCNT) . MOVE TO STANDARD ACCOUNTING AREA @ ]@@@ BT A0,0,SF )@@G@@*A1 . @ @[@@ LA A0,INDEX . @ @[@@ LX X11,SSG )@@G@@ALINK . @ @[@@ J 2,X11 . @ @[@@AC0300 LX X11,SSH )@@G@@ALINK . @C@[@@ J 1,X11 . REPORT A NO FIND @ @[@@SI )@@G@@SALINK RES 1 . @F@@[[ J SA0400 . GO SSJ )@@G@@EE IF CONVERSION IS REQUIRED @D@@[[. NOFIND-- ENTER THIS USER IN THE ACSK )@@G@@COUNT ELEMENT @G@@[[SA0300 LA A0,(+ASPACE,ASPACE,ASPACE,ASPACE)SL )@@G@@ . GET SOME BLANKS @G@@[[ JNE A0,SAKEYA SA0800 . QUIT SM )@@G@@IF USER TYPED A NON-BLANK KEY @C@@[[ DL A0,RCLIBN . GET SN )@@G@@HS LIBNO @D@@[[ LA A2,SAENTF . AND AUTO ENTER FLAG SO )@@G@@@C@@[[ DTE A0,ACMCON . MASTER CONSOLE? @F@@[[ JZ SP )@@G@@ A2,SA0800 . NO, QUIT IF ENTER FLAG IS CLEAR @F@@[[ LMJ SQ )@@G@@ X11,DEFALT . BUT IF OK, INITIALIZE TO DEFAULTS @E@@[[ LA,U SR )@@G@@ A3,ACCNT . SET POINTER TO INITIALIZED DATA @B@@[[ LMJ X11,ESS )@@G@@NTER . AND ENTER IT @ @@[[ ER ERR$ . @F@@[[ ST )@@G@@ SA A0,DRUMAD . POST LOCN OF OUR ACCOUNT ENTRY @C@@[[. CONVSU )@@G@@ERT ENTRY TO NEW FORMAT, IF NECESSARY @F@@[[SA0400 TZ ACMXWS SV )@@G@@ . HAS MAX ALLOWED WS BEEN SET UP? @H@@[[ J SA0500 SW )@@G@@ . YES, THIS ENTRY HAS ALREAYD BEEN CONVERTED @E@@[[ LA,USX )@@G@@ A0,2 . NO, SET NOMINAL INDEX OF 2 @F@@[[ SA A0,SY )@@G@@ACMXWS . ALD LET HIM HAVE AN 8K WORKSPACE @F@@[[ SZ ACTSZ )@@G@@RKS . CLEAR ACCUMULATED TRACK SECONDS @E@@[[ LA A0,TA )@@G@@(+1,1,0,0,0,0) . TDATE$ FOR 1 JAN 64 @E@@[[ SA A0,ACTBILTB )@@G@@ . POST AS LAST MS BILLING TIME@E@@[[ LA,U A0,ACCINH TC )@@G@@. GET CONTINUE INHIBIT BIT @G@@[[ TZ,S1 ACQWTA . IS UTD )@@G@@SER NOW ALLOWED TO HAVE A CONTINUE? @E@@[[ LA,U A0,0 TE )@@G@@. YES, CLEAR INHIBIT FLAG @G@@[[ OR A0,ACPERM . OLD TF )@@G@@PERMISSIONS PLUS CONTINUE INHIBIT @E@@[[ LA,U A0,ACPINH TG )@@G@@. GET PUBLIC SAVE INHIBIT BIT @G@@[[ TZ,S2 ACQWTA . DOESTH )@@G@@ USER NOW HAVE ANY PUBLIC QUOTA @E@@[[ LA,U A0,0 TI )@@G@@. YES, CLEAR INHIBIT FLAG @G@@[[ OR A1,A0 . COMBTJ )@@G@@INE PUBLIC ALLOWED WITH OTHER PERMS @E@@[[ SA A2,ACPERB TK )@@G@@. SAVE NEW FORMAT PERMISSIONS @G@@[[ LA,S4 A0,ACQWTA . GET TL )@@G@@OLD QUOTA IN NO OF 8K WORKSPACES @D@@[[ AA,S2 A0,ACQWTA TM )@@G@@. PLUS PUBLIC QUOTA @G@@[[ MSI,U A0,148 . ASSUME AVGTN )@@G@@ WS 2 TRACKS PLUS A LITTLE @E@@[[ LA,S4 A1,ACUSED . GET TO )@@G@@CURRENT PRIVATE USAGE @D@@[[ AA,S2 A1,ACUSED . PLUS PUBLITP )@@G@@C USAGE @G@@[[ MSI,U A1,148 . ASSUME EXISTING WSSES TQ )@@G@@ARE ALL AVG SIZE @G@@[[ SA A0,ACMAXU . SAVE EXTIMATED MTR )@@G@@AX USAGE IN SECTORS @G@@[[ SA A1,ACCURU . SAVE ESTIMTS )@@G@@ATED CURRENT USAGE IN SECTORS @G@@[[. FINISH INITIALIZING ACCOUNT DATA. TT )@@G@@NOTE THAT SETUP WILL SET LAST REF @G@@[[. ANC CLEAR IN USE AND CONTINUTU )@@G@@ED BITS AFTER DETERMINING WHETHER THIS @ @@[[. USER IS ENTITLED TO SITV )@@G@@GN ON @F@@[[SA0500 DL A0,SAKEYA . GET KEY GIVEN ON PROCESSOR CTW )@@G@@ALL @F@@[[ DTE A0,ACKEY . DOES IT MATCH THE ACCOUNT ENTX )@@G@@TRY? @E@@[[ J SA0810 . NO, TAKE NUMBER LOCKED EXIT TY )@@G@@@E@@[[ LA A0,RCRUNG . YES, GET GENERATED RUNID @D@@[[TZ )@@G@@ SA A0,ACRUNI . POST FOR USE BY )PORTS@G@@[[ LA UA )@@G@@ A0,ACTBIL . GET LAST MS BILLING TIME (TDATE$ FMT) @D@@[[ UB )@@G@@ LMJ X11,TIMTDF . CONVERT TO SECONDS @F@@[[ SA A2,UC )@@G@@ACTMAS . POST FOR USE IN STORAGE ACCOUNTING@E@@[[ LA A0,UD )@@G@@ACPERM . RECOVER PERMISSION BITS @A@@[[SA0510 LX X11,SALINUE )@@G@@K . @C@@[[ J 1,X11 . NORMAL EXIT @[@@[[UF )@@G@@. @C@@[[SA0800 LA,U A0,0 . SET NOFIND FLAG @A@@[[ UG )@@G@@ J SA0999 . @C@@[[SA0810 LA,U A0,1 . SET UH )@@G@@BAD KEY FLAG@[@@[[. @E@@[[SA0999 SZ DRUMAD . MARK USER UI )@@G@@NOT SIGNED ON @A@@[[ LX X11,SALINK . @C@@[[ UJ )@@G@@ J 0,X11 . ABNORMAL EXIT @[@@[[. @A@@[[SALINK EQUFUK )@@G@@ $,,H1 . @B@@[[SAENTF EQUF $,,S4 . ENTER FLAGUL )@@G@@@A@@[[ RES 1 . @G@@[[SAKEYA RES 2 UM )@@G@@ . USER'S KEY FROM PROCESSOR CALL IMAGE @G@@[[SABACW +448,BUFF UN )@@G@@ . ACCESS WD FOR I/O BUFF USED BY LOOKUP @[@@[[/. @G@@[[UO )@@G@@. SUBROUTINE TO SET ACCOUNT DATA TO DEFAULTS-- USED WHEN NEW USERS ENTERUP )@@G@@@E@@[[. THE SYSTEM OR IF SITE HAS NOT IMPLEMENTED A SINGLE FILE @[@@[[UQ )@@G@@. @#@@[[ INITAL . @E@@[[DEFALT LR,U R1,14 . ENTRUR )@@G@@IES ARE 14 WORDS LONG @A@@[[ LA A1,(+1,ASSUMD) . @A@@[[US )@@G@@ LA A0,(+1,ACCNT) . @D@@[[ BT A0,0,*A1 UT )@@G@@. MOVE ASSUMED VALUES @A@@[[ DL A0,RCLIBN . @C@@[[UU )@@G@@ DS A0,ACLIBN . SET UP LIBNO @A@@[[ DL A0,UV )@@G@@RCQUAL . @B@@[[ DS A0,ACQUAL . QUALIFIER @A@@[[UW )@@G@@ DL A0,RCACNT . @C@@[[ DS A0,ACACNT UX )@@G@@. AND ACCOUNT @E@@[[ ER TDATE$ . FIND OUT WHAT TIUY )@@G@@ME IT IS NOW@G@@[[ SA A0,ACLAST . AND MAKE IT THE TIME OUZ )@@G@@F LAST REFERENCE @B@@[[ J 0,X11 . RETURN @[A@@@VA )@@G@@/. @C@@@@. ACCOUNTING ELEMENT DOES NOT EXIST, CREATE ONE @[@@@@. VB )@@G@@@D@[@@ACREAT LA,U A0,RDL$ . HOLD THINGS UP FOR AWHILE @ @[@@ VC )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@ VD )@@G@@ LA,U A1,1791 . @ @[@@ DS A0,IOPKT+4 . @ @[@@ VE )@@G@@ LA,U A0,IOPKT . @ @[@@ ER IOW$ . @ @[@@ VF )@@G@@ TZ,S1 3,A0 . @ @[@@ ER ERR$ . @#@@[[ VG )@@G@@ INITAL . @E@@[[ACREAT LOCK IOPKT,0 1791,(+28,BUFF) . LOCK THE FILVH )@@G@@E @ D@@@ LA,U A0,PFPKT . @C@@@@ ER PFWL$ VI )@@G@@ . GETNEXT WRITE LOC @ @@@@ JNZ A2,AC2100 . @C@@@@ VJ )@@G@@ SA A1,TXTADD . ELEMENT TO START HERE@B@@@@ LA,U A0,0 VK )@@G@@ . NO ENTRIES @A@[@@ LA A1,ASSUMD+9 . QUOTAS @B@[@@ VL )@@G@@ LA A2,ASSUMD+11 . PERMISSIONS @B@[@@ DL A3,(+ACMNUM) . MAVM )@@G@@SCON NUMBER @ @[@@ TSTO A0,BUFF . @ @[@@ DS A3,BUVN )@@G@@FF+3 . @E@@[[ LA A1,ASUSAG . GET ASSUMED MAX DRUM UVO )@@G@@SAGE @D@@[[ LA A2,ASPERM . AND PERMISSIONS WORD @D@@[[VP )@@G@@ TSTO A0,BUFF . STASH QUOTAS, ETC @F@@[[ DL VQ )@@G@@ A0,ACMCON . GET MASTER CONSOLE ASSUMED LIBNUM @A@@[[ DS VR )@@G@@ A0,BUFF+3 . @ @[@@ LA,U A0,W$ . @ @[@@ VS )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A1,TXTADD . @ @[@@ VT )@@G@@ SA A1,IOPKT+5 . @ @[@@ LA,U A0,IOPKT . @C@[@@ VU )@@G@@ ER IOW$ . WRITE CONTROL SECTOR @ @[@@ TZ,S1 3,A0 VV )@@G@@ . @ @[@@ J AC2100 . @ @[@@ LA A1,TXTADD VW )@@G@@ . @E@[@@ AA,U A1,64 . THIS WILL BE THE NEXT WRITE LOC, VX )@@G@@@F@[@@ SA A1,IOPKT+5 . SO LET'S WRITE IN IT TO GET OUR TRACK VY )@@G@@@ @[@@ ER IOW$ . @ @[@@ TZ,S1 3,A0 . VZ )@@G@@@ @[@@ J AC2100 . @F@@[[ WRITE IOPKT,AC2100 *PWA )@@G@@FTADR . WRITE CTL SECT FROM BUFF@E@@[[ LA A1,IODADR WB )@@G@@. GET DRUM ADDR OF CTL SECT @D@@[[ AA,U A1,64 . BUMPWC )@@G@@ TO NEXT TRACK @D@@[[ SA A1,IODADR . PUT BACK IN PACKWD )@@G@@ET @G@@[[ ACQIR -1,AC2100 . AND FORESTALL I/O 5'S BY ACQWE )@@G@@UIRING IT @ N@@@ LA,U A0,64 . @C@@@@ SA A0,TXWF )@@G@@TSIZ . START WITH ONE TRACK @E@@@@ SZ TDATE . I DON'T KWG )@@G@@NOW WHAT TIME IT IS @C@@@@ LA A1,IOPKT+5 . GET NEXT WRITE WH )@@G@@LOC @ @@@@ LNA,U A0,PFPKT . @D@@@@ ER PFI$ WI )@@G@@ . CREATE THE NEW ELEMENT @ @[@@ JNZ A2,AC2100 . @ @[@@WJ )@@G@@ LA,U A0,UNL$ . @ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@WK )@@G@@ LA,U A0,1791 . @ @[@@ SA A0,IOPKT+5 . @ @[@@WL )@@G@@ LA,U A0,IOPKT . @E@[@@ ER IOW$ . LET SOMEBWM )@@G@@ODY ELSE USE IT NOW @ @[@@ TZ,S1 3,A0 . @ @[@@ WN )@@G@@ ER ERR$ . @F@[@@ J 1,X11 . GO BACK IN A WAWO )@@G@@Y TO SAY THAT ALL IS OK @ @[@@AC2100 LA,U A0,UNL$ . @ @[@@ WP )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA,U A1,1791 . @ @[@@ WQ )@@G@@ SA A1,IOPKT+5 . @ @[@@ LA,U A0,IOPKT . @ @[@@ WR )@@G@@ ER IOW$ . @ @[@@ ER ERR$ . @C@[@@/. ROUWS )@@G@@TINE TO FIND AN ACCOUNTING ENTRY ON DRUM @A@[@@. ENTER WITH A0,A1 = # TWT )@@G@@O LOOK FOR @E@[@@. LEAVE WITH A0 = DRUM INDEX OF ENTRY OR ZERO IF NOT FWU )@@G@@OUND @C@[@@. A1 = INDEX INTO BUFF TO GET ENTRY @ @[@@ WV )@@G@@ INSTRS . @ @[@@ACFNUM* SX X11,ACFLNK . @D@[@@ WW )@@G@@ DS A0,ACNUMB . SAVE # WE'RE LOOKING FOR @D@[@@ LA,U A0,PFWX )@@G@@PKT . FIND THE ACCOUNTING ELEMENT@ @[@@ ER PFS$ . WY )@@G@@@ @[@@ JNZ A2,0,X11 . @ @[@@ LA,U A0,R$ . WZ )@@G@@@ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(28,BUFF) . XA )@@G@@@ @[@@ LA,H2 A1,TXTADD . @ @[@@ DS A0,IOPKT+4 . XB )@@G@@@ @[@@ LA,U A0,IOPKT . @B@[@@ ER IOW$ . GETXC )@@G@@ SECTOR ZERO@ @[@@ TZ,S1 3,A0 . @ @[@@ J 0,X11XD )@@G@@ . @ @[@@ LA,U A1,224 . @E@[@@ SA,H1 A1,IOXE )@@G@@PKT+4 . SET UP I/O PACKET FOR SEARCH LOOP@F@[@@ LA,H2 A2,BUFF XF )@@G@@ . GET NUMBER OF ENTRIES TO LOOK THROUGH @C@[@@ AA,U A2,2 XG )@@G@@ . FUDGE FOR SECTOR ZERO@C@[@@ DL A4,ACNUMB . WE LOOK FOR THIXH )@@G@@S @D@[@@AC1100 LR,U R1,16 . ASSUME A FULL BUFFERS WORTH@A@[@@XI )@@G@@ TLE,U A2,16 . IF NOT, @B@[@@ LR R1,A2 . KNOXJ )@@G@@CK IT DOWN @C@[@@ ER IOW$ . READ THE NEXT BUFFER @ @[@@XK )@@G@@ TZ,S1 3,A0 . @C@[@@ J AC1190 . GO CHECK XL )@@G@@FOR I/O 5'S @A@[@@AC1110 LX X11,(14,BUFF-14) . @G@[@@AC1120 SE XM )@@G@@ A4,14,*X11 . SEARCH THRU BUFF FOR MATCH ON FIRST WORD OF #@E@[@@ XN )@@G@@ J AC1130 . NOT IN THIS ONE, TRY ANOTHER @E@[@@ TE XO )@@G@@ A5,1,X11 . FIRST WORDS MATCH, TRY SECOND @C@[@@ J AC112XP )@@G@@0 . NOPE, KEEP TRYING @A@[@@ J AC1140 . FOUND IT:XQ )@@G@@@E@[@@AC1130 ANA,U A2,16 . DECREMENT # OF ENTRIES TO SEARCH @C@[@@XR )@@G@@ JG,U A2,1 AC1150 . NUMBER NOT FOUND @C@[@@ LA A1,5,XS )@@G@@A0 . GET CURRENT READ ADDR@D@[@@ AA,U A1,8 . BUMP TO GXT )@@G@@ET NEXT BUFFER @ @[@@ SA A1,5,A0 . @F@[@@ J XU )@@G@@ AC1100 . GO READ IN ANOTHER 8 SECTORS WORTH @ @[@@AC1140 LA,U XV )@@G@@ A0,0,X11 . @D@[@@ ANA,U A0,BUFF . THIS MANY WORDS INTO XW )@@G@@BUFF @ @[@@ DSL A0,36 . @ @[@@ DI,U A0,28 XX )@@G@@ . @ @[@@ LXI A0,A1 . @ @[@@ AA,H2 A0,IOPKT+5 XY )@@G@@ . @D@[@@AC1145 LA A1,X11 . RETURN INDEX INTO BUFF @ @[@@XZ )@@G@@AC1146 LX X11,ACFLNK . @ @[@@ J 1,X11 . @C@[@@YA )@@G@@AC1150 LA,U A0,0 . REPORT A NO FIND @ @[@@ J AC114YB )@@G@@6 . @C@[@@AC1190 LA,S1 A1,3,A0 . GET I/O ERROR STATUS @B@[@@YC )@@G@@ JE,U A1,5 AC1110 . I/O 5'S OK @C@[@@ LX X11,ACFLNK YD )@@G@@ . EVERYTHING ELSE DIES @ @[@@ J 0,X11 . @ @[@@ YE )@@G@@ VARBLS . @ @[@@ACFLNK RES 1 . @ @[@@ACNUMBYF )@@G@@ RES 2 . @[@[@@/. @[@[@@. @F@[@@. COPY THE CTRRENTYG )@@G@@ ACCOUNTING ELEMENT AND ALLOCATE AN EXTRA TRACK @D@[@@. NOTE: THIS ROUTIYH )@@G@@NE DOES NOT PUT A LOCK ON THE FILE -@D@[@@. THIS SHOULD BE DONE BY YI )@@G@@THE CALLER ID DESIRED @ @[@@ INSTRS . @ @[@@ACCOPYYJ )@@G@@* LA,U A0,PFPKT . @C@[@@ ER PFS$ . FIND THE ELEMENYK )@@G@@ET @ @[@@ JNZ A2,0,X11 . @C@[@@ ER PFWL$ YL )@@G@@ . GET NEXT WRITE LOC @ @[@@ JNZ A2,0,X11 . @D@[@@ YM )@@G@@ LA A0,TXTADD . SAVE WHERE PLD ELEMENT WAS @ @[@@ SA A0,NXYN )@@G@@TADD . @C@[@@ SA A1,TXTADD . POST NEW START ADDR @D@[@@YO )@@G@@ LA A5,TXTSIZ . GET SIZ OF OLD ELEMENT @D@[@@ SSL YP )@@G@@ A5,3 . TURN IT INTO A BUFFER COUNT@C@[@@ ANA,U A5,1 YQ )@@G@@ . AND NOW A JGD COUNT @ @[@@ LA A1,(224,BUFF) . @C@[@@ YR )@@G@@ SA A1,IOPKT+4 . SET COPY OF ELEMENT @ @[@@ LA,U A1,W$ YS )@@G@@ . @ @[@@ LA,U A2,R$ . @C@[@@ LA A3,TXTADD YT )@@G@@ . GET FIRST WRITE ADDR @C@[@@ LA A4,NXTADD . GET FIRST RE1D YU )@@G@@ADDR @ @[@@ LA,U A0,IOPKT . @C@[@@CO0100 SA A4,IOPKT+5 YV )@@G@@ . SET NEXT READ ADDR @ @[@@ SA,S2 A2,IOPKT+3 . @C@[@@ YW )@@G@@ ER IOW$ . READ IN NEXT BUFFER @ @[@@ TZ,S1 3,A0 YX )@@G@@ . @ @[@@ J 0,X11 . @C@[@@ SA A3,IOPKT+5 YY )@@G@@ . SET NEXT WRITE ADDR @ @[@@ SA,S2 A1,IOPKT+3 . @ @[@@ YZ )@@G@@ ER IOW$ . @ @[@@ TZ,S1 3,A0 . @ @[@@ ZA )@@G@@ J 0,X11 . @ @[@@ AA,U A4,8 . @ @[@@ ZB )@@G@@ AA,U A3,8 . @ @[@@ JGD A5,CO0100 . @ @[@@ ZC )@@G@@ SA,H1 A1,IOPKT+4 . @ @[@@ SA A3,IOPKT+5 . @F@[@@ ZD )@@G@@ ER IOW$ . WRITE IN NEXT TRACK TO GET IT ALLOCATD @ @[@@ ZE )@@G@@ TZ,S1 3,A0 . @ @[@@ J 0,X11 . @ @[@@ ZF )@@G@@ LA A0,TXTSIZ . @D@[@@ SA A0,A5 . TEMP SAVE OLD TZG )@@G@@EXT SIZE @E@[@@ AA,U A0,64 . BUMP ELEM LENGTH BY ONE TRAZH )@@G@@CK @ @[@@ SA A0,TXTSIZ . @ @[@@ SZ TDATE ZI )@@G@@ . @E@[@@ AU A0,TXTADD . COMPUTE REAL NEXT WRITE ADDR ZJ )@@G@@@C@[@@ LNA,U A0,PFPKT . REGISTER THE NEW ELEM@C@[@@ ER ZK )@@G@@ PFI$ . INSERT THE NEW ELEM @ @[@@ JNZ A2,0,X11 . ZL )@@G@@@ @[@@. ZERO OUT THE OLD ELEMENT @D@[@@ LA A0,(2,BUFF) . FIRZM )@@G@@ST CLEAR OUT BUFFER @ @[@@ LR,U R1,111 . @ @[@@ ZN )@@G@@ DSL A1,72 . @ @[@@ DS A1,0,*A0 . @ @[@@ ZO )@@G@@ JGD R1,$-1 . @F@[@@ SSL A5,3 . TURN OLD ELEM SZP )@@G@@IZ INTO A BUFFER COUNT @ @[@@ ANA,U A5,1 . @ @[@@ ZQ )@@G@@ LA A0,(224,BUFF) . @C@[@@ LA A1,NXTADD . GET ADDR OF OLDZR )@@G@@ ELEM @ @[@@ DS A0,IOPKT+4 . @ @[@@ LA,U A0,W$ ZS )@@G@@ . @ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA,U A0,IOPKT ZT )@@G@@ . @E@[@@CO0200 ER IOW$ . WRITE OUT A BUFFER FULL OF ZEROESZU )@@G@@@ @[@@ TZ,S1 3,A0 . @ @[@@ J 0,X11 . ZV )@@G@@@C@[@@ AA,U A1,8 . BUMP NEXT WRITE ADDR @ @[@@ SA ZW )@@G@@ A1,IOPKT+5 . @ @[@@ JGD A5,CO0200 . @B@[@@ J ZX )@@G@@ 1,X11 . ALL DONE ! @#@[@@ VARBLS @ @[@@NXTADD RES ZY )@@G@@ 1 . @C@@[[ TZ A2 . WAS PFI OK? ZZ )@@G@@@G@@[[AC2100 LX,U X11,0 . ERROR-- SET X11 SO WE'LL IGDM AT EAA )@@G@@XIT @E@@[[ UNLOCK IOPKT,0 1791,(+28,BUFF) . RELEASE THE FILE AB )@@G@@@E@@[[ J 1,X11 . NORMAL EXIT OR IGDM IF ERROR@[@@[[AC )@@G@@. @F@@[[. THE SKELETON INFORMATION BELOW IS USED TO INITIALIZE THE DAD )@@G@@EFAULT@G@@[[. VALUES OF SECTORS ALLOWED, ETC., IN THE CONTROL SECTOR OF AE )@@G@@THE ACCOUNT @G@@[[. ELEMENT AT THE TIME A NEW APLFILE IS CREATED AND INIAF )@@G@@TIALIZED. ONCE @G@@[[. THE FILE HAS BEEN CREATED, THE VALUES IN THE FAG )@@G@@ILE ITSELF ARE READ BACK@G@@[[. ON TOP OF THE CONSTANTS BELOW AND USED TAH )@@G@@O INITIALIZE THE ACCOUNT ENTRY@F@@[[. FOR NEW USERS. THUS CHANGING THE AI )@@G@@ASSUMED VALUES MAY BE DONE BY @G@@[[. EXECUTING AN APPROPRIATE APL FUNCTAJ )@@G@@ION WHICH WRITES THE NEW DEFAULTS @B@@[[. INTO THE CONTROL SECTOR OF TAK )@@G@@HE FILE. @[@@[[. @H@@[[ACMCON* +271828.0D . MASTER CONAL )@@G@@SOLE LIBNUM (E BECAUSE IBM USES PI) @B@@[[ASSUMD* + 0.0D AM )@@G@@. LIBNO @B@@[[ APLBCI ' ' . KEY (NONE)@F@@[[ AN )@@G@@ +1,1,0,0,0,0 . LAST REF TO THIS NR (1 JAN 64) @D@@[[ AO )@@G@@ 'WWWWWXXXXX' . EXEC 8 ACCOUNT NUMBER @C@@[[ 'YYYYYZZZZAP )@@G@@Z' . EXEC 8 QUALIFIER@G@@[[ 'RUNIDX' . EXECAQ )@@G@@ 8 RUNID (ACTUAL, NOT ORIGINAL) @G@@[[ASUSAG +MAXDRM,0 AR )@@G@@. MAX NO DRUM SECTS ALLOWED, NO IN USE @E@@[[PERMS FORM 6,24,1,1,AS )@@G@@4 . LAYOUT OF PERMISSIONS WORD @F@@[[ASPERM PERMS MAXWSI,0,PUBINHAT )@@G@@,CONINH,0 . INITIAL PERMISSIONS @F@@[[ + 0 AU )@@G@@. TRACK SECONDS SINCE LAST BILLING @F@@[[ +1,1,0,0,0,0 AV )@@G@@. TDATE$ OF LAST BILLING (1 JAN 64) @[_@@@/. @[@@@@. @B@@@@. ENTEAW )@@G@@R A NUMBER INTO THE ACCOUNTS ELEMENT@B@@@@. UPON ENTRY, A3=ADDR OF DATA AX )@@G@@TO ENTER @B@@@@. LEAVES WITH A0 = DRUM INDEX OF ENTRY @]@[@@ AY )@@G@@ MCONS@ @[@@ENTER* SX X11,ENLINK . @D@[@@ SA A3,WHERE AZ )@@G@@ . SAVE ADDR TO XFER FROM @ @[@@ LA,U A0,RDL$ . @ @[@@BA )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@BB )@@G@@ LA,U A1,1791 . @ @[@@ DS A0,IOPKT+4 . @ @[@@BC )@@G@@ LA,U A0,IOPKT . @E@[@@ ER IOW$ . HOLD UP OBD )@@G@@THER PEOPLE FOR A WHILE @ @[@@ TZ,S1 3,A0 . @ @[@@ BE )@@G@@ ER ERR$ . @ @[@@ LA,U A0,PFPKT . @C@[@@ BF )@@G@@ ER PFS$ . FIND THE ELEMENT @ @[@@ JNZ A2,AC3900 BG )@@G@@ . @ @[@@ LA A0,TXTADD . @ @[@@ SA A0,IOPKT+5 BH )@@G@@ . @ @[@@ LA,U A0,R$ . @ @[@@ SA,S2 A0,IOPKT+3 BI )@@G@@ . @ @[@@ LA,U A0,IOPKT . @D@[@@ ER IOW$ BJ )@@G@@ . READ CONTROL SECTOR (0) @ @[@@ TZ,S1 3,A0 . @ @[@@BK )@@G@@ J AC3900 . @A@[@@. FIND OUT IF LAST TRACK IS FULL BL )@@G@@@B@[@@ LA,H2 A0,BUFF . GET ENTRY COUNT@A@[@@ SA A0,NRBM )@@G@@ENT . TEMP SAVE@D@[@@ AA,U A0,2 . DONT FORGET SECTOR ZEBN )@@G@@RO @ @[@@ DSL A0,36 . @C@[@@ DSC A0,5 BO )@@G@@ . 128 ENTRIES PER TRACK@C@[@@ JNZ A0,AC3100 . IS THIS TRACK FBP )@@G@@ULL? @E@[@@ TZ,Q2 BUFF . IS THE MASCON ON WITH WRITE? BQ )@@G@@@G@[@@ J AC3910 . YES, DON'T LET THIS GUY MOVE THE ELEMENBR )@@G@@T @E@[@@ LMJ X11,ACCOPY . YES, GO ALLOCATE AN EXTRA TRACK BS )@@G@@@ @[@@ J AC3900 . @^@[@@. COMPUTE DRUM INDEX @C@[@@BT )@@G@@AC3100 LA A0,NRENT . RESTORE $ OF ENTRIES @F@[@@ AA,U A0,2 BU )@@G@@ . DON'T FORGET WE HAVE SOMETHING IN SEC 0@D@[@@ DSL A0,1 BV )@@G@@ . FIND # SECTORS WE HAVE @E@[@@ AA,H2 A0,TXTADD . BIABW )@@G@@S TO FIND NEXT FREE SECTOR @D@[@@ JP A1,$+2 . DOES THISBX )@@G@@ ENTRY GO IN H1? @A@[@@ LXI,U A0,14 . NO, H2 @D@[@@ BY )@@G@@ SA A0,INDEX . SAVE FRESH DRUM POINTER @C@[@@ LA,U A1,0,BZ )@@G@@A0 . ISOLATE DRUM ADDR @ @[@@ LA A0,(28,BUFF) . @ @[@@CA )@@G@@ DS A0,IOPKT+4 . @ @[@@ LA,U A0,R$ . @ @[@@CB )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA,U A0,IOPKT . @G@[@@CC )@@G@@ ER IOW$ . READ IN THE SECTOR WHERE THE NEW ENTRY GOES CD )@@G@@@ @[@@ TZ,S1 3,A0 . @ @[@@ J AC3900 . CE )@@G@@@E@[@@ LA A1,WHERE . GET PLACE FROM WHICH TO MOVE ITEM@ @[@@CF )@@G@@ LXI,U A1,1 . @ @[@@ LA A2,(1,BUFF) . @ @[@@CG )@@G@@ AA,H1 A2,INDEX . @ @[@@ LR,U R1,14 . @C@[@@CH )@@G@@ BT A2,0,*A1 . MOVE IN NEW ENTRY @ @[@@ LA,U A1,W$CI )@@G@@ . @ @[@@ SA,S2 A1,IOPKT+3 . @C@[@@ ER IOW$ CJ )@@G@@ . WRITE IT TO DRUM @ @[@@ TZ,S1 3,A0 . @ @[@@CK )@@G@@ J AC3900 . @ @[@@ LA A1,TXTADD . @ @[@@CL )@@G@@ SA A1,IOPKT+5 . @C@[@@ LA,U A2,R$ . READ CONTCM )@@G@@ROL SECTOR @ @[@@ SA,S2 A2,IOPKT+3 . @ @[@@ ER IOW$ CN )@@G@@ . @ @[@@ TZ,S1 3,A0 . @ @[@@ J AC390CO )@@G@@0 . @B@[@@ LA,H2 A1,BUFF . GET ENTRY COUNT@D@[@@ CP )@@G@@ AA,U A1,1 . BUMP TO INCLUDE THIS ENTRY @ @[@@ SA,H2 A1,BUCQ )@@G@@FF . @ @[@@ LA,U A2,W$ . @ @[@@ SA,S2 A2,IOCR )@@G@@PKT+3 . @E@[@@ ER IOW$ . WRITE BACK UPDATED CONTROL CS )@@G@@SECTOR@ @[@@ TZ,S1 3,A0 . @ @[@@ J AC3900 CT )@@G@@ . @ @[@@ LA,U A1,UNL$ . @ @[@@ SA,S2 A1,IOPKT+3 CU )@@G@@ . @ @[@@ LA,U A1,1791 . @ @[@@ SA A1,IOPKT+5 CV )@@G@@ . @D@[@@ ER IOW$ . FREE UP THE FILE FOR OTHERS@ @[@@CW )@@G@@ TZ,S1 3,A0 . @ @[@@ ER ERR$ . @C@[@@CX )@@G@@ LA A0,INDEX . RETURN THE DRUM INDEX@ @[@@ LX X11,ECY )@@G@@NLINK . @ @[@@ J 1,X11 . @ @[@@AC3900 LA,U A0,UNCZ )@@G@@L$ . @ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(2DA )@@G@@8,BUFF) . @ @[@@ LA,U A1,1791 . @ @[@@ DS A0,IODB )@@G@@PKT+4 . @ @[@@ LA,U A0,IOPKT . @ @[@@ ER IOW$ DC )@@G@@ . @ @[@@ ER ERR$ . @ @[@@AC3910 ERROR YLIBRDD )@@G@@A . @ @[@@ LA,U A0,UNL$ . @ @[@@ SA,S2 A0,IODE )@@G@@PKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@ LA,U A1,17DF )@@G@@91 . @ @[@@ DS A0,IOPKT+4 . @ @[@@ LA,U A0,IODG )@@G@@PKT . @B@[@@ ER IOW$ . UNLOCK 1791 @ @[@@ DH )@@G@@ TZ,S1 3,A0 . @ @[@@ ER ERR$ . @ @[@@ DI )@@G@@ J SINOFF . @E@[@@/. UPDATE THE ACCOUNTING ENTRY WHOSE DRUM DJ )@@G@@INDEX IS IN A0 @#@@[[ INITAL . @F@@[[. TEMP UNTIL SACCNT IS RDK )@@G@@EWRITTEN TO DO THIS ALWAYS BY DEFAULT @ @@[[ENTER SX X11,ENLINDL )@@G@@K . @F@@[[ SA A3,ENINIT . SAVE POINTER TO INITIALIZATION STDM )@@G@@UFF @E@@[[ LOCK IOPKT,0 1791,(+28,BUFF) . LOCK THE FILE DN )@@G@@@F@@[[EN0010 PFSRCH . LOOK FOR CURRENT ACCOUNTING ELEMENT DO )@@G@@@F@@[[ LA A3,ENINIT . RECOVER ADDR OF INITIALIZATION STUFF DP )@@G@@@E@@[[ LA,U A0,0 . SET EXPANSION FLAG TO CONDITIONAL@F@@[[DQ )@@G@@ LMJ X11,ADDENT . TRY TO ADD AN ENTRY FOR THIS USER @E@@[[DR )@@G@@ J EN0900 . ERROR-- GO UNLOCK AND THEN DIE @C@@[[ DS )@@G@@ SA A0,ENINDX . TEMP SAVE OUR INDEX @C@@[[ UNLOCK IOPKT,0 1DT )@@G@@791 . RELEASE THE FILE@D@@[[ LA A0,ENINDX . RECOVER THDU )@@G@@E INDEX @F@@[[ JZ A0,EN0040 . IF ENTRY NOT MADE, SIGN OFFDV )@@G@@ THIS GUY @C@@[[ LX X11,ENLINK . ELSE GET LINKAGE@C@@[[DW )@@G@@ J 1,X11 . AND TAKE NORMAL EXIT @E@@[[. ENTRY NOT MADE BDX )@@G@@ECAUSE MASTER CONS IS UPDATING THE FILE-- @D@@[[EN0040 ERROR YLIBRA DY )@@G@@ . SIGNAL LIBRARY TABLE FULL @B@@[[ J SINOFF . AND SIGN DZ )@@G@@OFF @A@@[[. I/O ERROR WHILE FILE LOCKED-- @C@@[[EN0900 UNLOCK IOPEA )@@G@@KT 1791 . RELEASE THE FILE@C@@[[ ER ERR$ . AND DIE HEB )@@G@@ORRIBLY @[@@[[. @ @@[[ENLINK EQUF $,,H1 . @ @@[[ENINITEC )@@G@@ EQUF $,,H2 . @ @@[[ RES 1 . @E@@[[ENINDXED )@@G@@ RES 1 . LOD IN WHICH INDES IS TEMP STORED@B@@[[/. UPDATE THEE )@@G@@IS USER'S ACCOUNTING ENTRY-- @#_@@@ INSTRS @ @@@@UPDATE* SX EF )@@G@@ X11,UPLINK . @B@[@@ SA A0,INDEX . SAVE DRUM INDEX@D@[@@EG )@@G@@ SZ UPMOVE . CLEAR ELEMENT MOVED FLAG @ @[@@ LA,U EH )@@G@@ A0,RDL$ . @ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA EI )@@G@@ A3,(28,BUFF) . @ @[@@ LA,U A4,1791 . @ @[@@ DS EJ )@@G@@ A3,IOPKT+4 . @ @[@@ LA,U A0,IOPKT . @B@[@@ ER EK )@@G@@ IOW$ . PUT A HOLD ON @ @[@@ TZ,S1 3,A0 . @ @[@@EL )@@G@@ ER ERR$ . @E@[@@UP0100 LA,H1 A1,INDEX . GET WORD EM )@@G@@POINTER INTO SECTOR @C@[@@ AA,U A1,BUFF . SET UP REGS FOREN )@@G@@ BT @ @[@@ LXI,U A1,1 . @ @[@@ LA A2,(1,ACCNTEO )@@G@@) . @ @[@@ ER TDATE$ . @D@[@@ SA A0,ACLAST EP )@@G@@ . SET LAST REFERENCE FIELD @D@[@@ LA,H2 A3,INDEX . GET DRUM EQ )@@G@@ADDR OF ENTRY @ @[@@ SA A3,IOPKT+5 . @ @[@@ LA,U ER )@@G@@ A3,R$ . @ @[@@ SA,S2 A3,IOPKT+3 . @ @[@@ LA,U ES )@@G@@ A0,IOPKT . @D@[@@ ER IOW$ . READ SECTOR WITH ENTRET )@@G@@Y @ @[@@ TZ,S1 3,A0 . @ @[@@ J UP0900 EU )@@G@@ . @F@@[[ TZ,U ONEFIL . HAS SITE IMPLEMENTED SINGLE EV )@@G@@FILE? @F@@[[ TNZ DRUMAD . DID WE ACTUALLY GET TO SIGN EW )@@G@@ON? @D@@[[ J 1,X11 . NO, PRETEND WE UPDATED@F@@[[EX )@@G@@ SZ UPMOVE . YES, CLEAR ELEMENT MOVED FLAG @F@@[[EY )@@G@@ LOCK IOPKT,0 1791,(+28,BUFF) . COMMANDEER THE FILE @E@@[[EZ )@@G@@UP0100 LA,H2 A0,DRUMAD . GET SECTOR OUR ENTRY IS IN @B@@[[ FA )@@G@@ SA A0,IODADR . TO PACKET @D@@[[ READ IOPKT,UP0900 -1FB )@@G@@,(+28,BUFF) . GET IT @DT@@@ TNZ BUFF . HAS THE ELEMENTFC )@@G@@ MOVED? @E@@@@ J UP0200 . YES, GO FIND A NEW DRUM POIFD )@@G@@NTER @ @[@@ LR,U R1,14 . @D@[@@ BT A1,0,*A2 FE )@@G@@ . NO, MOVE IN THE NEW ENTRY @ @[@@ LA,U A1,W$ . @ @[@@FF )@@G@@ SA,S2 A1,IOPKT+3 . @D@[@@ ER IOW$ . WRITE SECFG )@@G@@TOR BACK TO DRUM @ @[@@ TZ,S1 3,A0 . @ @[@@ J FH )@@G@@ UP0900 . @ @[@@ LA,U A1,UNL$ . @ @[@@ SA,S2FI )@@G@@ A1,IOPKT+3 . @ @[@@ LA,U A1,1791 . @ @[@@ SA FJ )@@G@@ A1,IOPKT+5 . @C@[@@ ER IOW$ . TURN OFF THE HOLD FK )@@G@@@ @[@@ TZ,S1 3,A0 . @ @[@@ ER ERR$ . FL )@@G@@@D@@[[. UPDATE COPY OF DATA, MOVE TO BUFFER, FLUSH IT OUT @D@@[[ FM )@@G@@ ER TDATE$ . GET THE PRESENT TIME @E@@[[ SA A0,FN )@@G@@ACLAST . POST AS TIME OF LAST REF @D@@[[ LA,U A1,BUFF FO )@@G@@ . TARGET ADDR IN BUFF @F@@[[ AA,H1 A1,DRUMAD . PLUSFP )@@G@@ HALFSECTOR OFFSET, IF ANY @A@@[[ LXI,U A1,1 . FQ )@@G@@@F@@[[ LA A2,(+1,ACCNT) . SOURCE IS ALWAYS THE CANNED AREA FR )@@G@@@C@@[[ LR,U R1,14 . MOVE 14 WORDS @B@@[[ BT FS )@@G@@ A1,0,*A2 . DO IT @E@@[[ WRITE IOPKT,UP0900 . WRITFT )@@G@@E UPDATED ACCOUNT ENTRY @D@@[[ UNLOCK -1,0 1791 . AND RELEASFU )@@G@@E THE FILE @ I@@@ LX X11,UPLINK . @ @@@@ J 1,X11FV )@@G@@ . @D@@@@UP0200 TZ UPMOVE . HAVE WE TRIED THIS YET? FW )@@G@@@A@@@@ J UP0900 . YES, DIE @D@[@@ DL A0,RCLIBN FX )@@G@@ . NO, GET THIS GUYS LIB NO @E@[@@ LMJ X11,ACFNUM . AND GO FIFY )@@G@@ND IT IN THE NEW ELEMENT@D@@[[ PFSRCH . FIND NEW COPY OF ACCOUNT FZ )@@G@@ELEMENT @B@@[[ DL A0,RCLIBN . GET OUR LIBNO @D@@[[ GA )@@G@@ LA A2,(+448,BUFF) . SUPPLY SCRATCH SPACE @F@@[[ LMJ X11GB )@@G@@,FINDNO . AND FIND OUR PLACE IN NEW COPY @A]@@@ J UP090GC )@@G@@0 . ?????????@D@@@@ JZ A0,UP0900 . COULD NOT FIND THE NUGD )@@G@@MBER @D@[@@ SA A0,INDEX . SET THE NEW DRUM INDEX @D@@][GE )@@G@@ SA A0,DRUMAD . SET THE NEW DRUM INDEX @H[@@@ SX GF )@@G@@ X11,UPMOVE . MARK RECOVERY ATTMPTED(SO NO LOOPS IF BAD FILE) @ @@@@GG )@@G@@ J UP0100 . @ @[@@UP0900 LA,U A0,UNL$ . @ @[@@GH )@@G@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@GI )@@G@@ LA,U A1,1791 . @ @[@@ DS A0,IOPKT+4 . @ @[@@GJ )@@G@@ LA,U A0,IOPKT . @B@[@@ ER IOW$ . UNLOCK THGK )@@G@@E FILE@[@@[[. @E@@[[UP0900 UNLOCK IOPKT 1791,(+28,BUFF) . RELEASGL )@@G@@E THE FILE @AB@@@ ER ERR$ . AND DIE @ @@@@ VARBLGM )@@G@@S . @B@@@@UPLINK EQUF $,,H1 . RETURN LINK @G@@@@GN )@@G@@UPMOVE EQUF $,,H2 . FLAG FOR TESTING IF ACCNT ELEMENT HAS MOVED GO )@@G@@@^@@@@ RES 1 . @F@@@@/. THESE ARE ROUTINES TO MANIPULATE GP )@@G@@THE ACCOUNTS FILE AS PER THE @^@@@@. MASTER CONSOLE I-BEAMS@#@[@@ GQ )@@G@@ MCONS . @D@[@@. OPEN FILE. A1=0 => READ ONLY , 1=> WRITE ENABLE GR )@@G@@@]@[@@ACFOPN*. @B@[@@ SX X11,AFLINK . SAVE RETURN @D@[@@GS )@@G@@ LA,XU A0,-1 . ASSUME FILE ALREADY OPEN @C@[@@ TZ,Q2GT )@@G@@ MCAWRD . IS THE FILE OPEN? @B@[@@ J AF0850 . YESGU )@@G@@, TELL HIM @C@[@@ SNA,Q2 A0,MCAWRD . NO, MARK AS OPEN @B@[@@GV )@@G@@ SA A1,A5 . SAVE ALLOW FLAG@E@[@@ LA,U A0,PFPKT GW )@@G@@ . LETS GET THE RIGHT SPOT ON DRUM @ @[@@ ER PFS$ . GX )@@G@@@ @[@@ JNZ A2,AF0820 . @ @[@@ LA,U A0,RDL$ . GY )@@G@@@ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA A1,(28,BUFF) . GZ )@@G@@@D@[@@ LA,U A2,1791 . WE WANT TO LOCK ON 1791 @ @[@@ HA )@@G@@ DS A1,IOPKT+4 . @ @[@@ LA,U A0,IOPKT . @D@[@@ HB )@@G@@ ER IOW$ . HOLD UP THINGS FOR A WHILE @C@[@@ TZ,S1 3,A0 HC )@@G@@ . DID THE LOCK WORK? @D@[@@ J AF0820 . NO, GO REHD )@@G@@PORT AN I/O ERROR @D@[@@ LA A2,TXTADD . YES, GET ADDR OF ELEMHE )@@G@@ENT @C@[@@ SA A2,IOPKT+5 . POST IT IN PACKET @ @[@@ HF )@@G@@ LA,U A3,R$ . @ @[@@ SA,S2 A3,IOPKT+3 . @D@[@@ HG )@@G@@ ER IOW$ . READ IN CONTROL SECTOR @B@[@@ TZ,S1 3,A0 HH )@@G@@ . DID WE GET IT? @F@[@@ J AF0819 . NO, GO UNLOCK AHI )@@G@@ND THE GIVE I/O ERROR @D@[@@ SA,Q2 A5,BUFF . YES, SET ALLOW HJ )@@G@@FLAG IN BUFF@ @[@@ LA,U A3,W$ . @ @[@@ SA,S2 A3,IOHK )@@G@@PKT+3 . @E@[@@ ER IOW$ . WRITE MODIFIED CONTROL SECTHL )@@G@@OR @C@[@@ TZ,S1 3,A0 . DID THE WRITE WORK? @D@[@@ HM )@@G@@ J AF0819 . NO, SAY WE GOT AN I/O ERR @D@[@@ LA,U A1,UNHN )@@G@@L$ . SET UP PACKET FOR UNLOCKING@ @[@@ SA,S2 A1,IOPKT+3 . HO )@@G@@@B@[@@ LA,U A1,1791 . DO IT TO 1791 @ @[@@ SA A1,IOHP )@@G@@PKT+5 . @F@[@@ ER IOW$ . GIVE SOME TIME TO OTHER PEOHQ )@@G@@PLE NOW @B@[@@ TZ,S1 3,A0 . DID IT WORK? @C@[@@ HR )@@G@@ J AF0820 . NO, GO SAY TOO BAD @G@[@@ AA,U A2,1 HS )@@G@@ . NOW POINT PACKET AT SECTOR ONE(START OF DATA)@ @[@@ LA A1,(2HT )@@G@@24,ACPAGE) .@ @[@@ DS A1,IOPKT+4 . @ @[@@ LA,U A1,R$HU )@@G@@ . @ @[@@ SA,S2 A1,IOPKT+3 . @D@[@@ ER IOW$ HV )@@G@@ . LOAD IN THE FIRST PAGE @B@[@@ TZ,S1 3,A0 . DIDHW )@@G@@ WE GET IT? @C@[@@ J AF0820 . NO, GO TELL HIM SO @G@[@@HX )@@G@@ LA,U A0,16 . DEFAULT VALUE FOR # OF ENTRIES IS 16 PER PAGEHY )@@G@@@F@[@@ LA,H2 A1,BUFF . BUT THERE MAY BE FEWER THAN THAT, SO, HZ )@@G@@@D@[@@ TLE A1,A0 . IF REALLY FEWER THAN 16, @G@[@@ IA )@@G@@ LA A0,A1 . POST LOWER AMNT AS # OF ENTRIES IN THE PAGE @E@[@@IB )@@G@@ LXI,U A2,0,A0 . AND PACK IT INTO THE PAGE INDEX @ @[@@ IC )@@G@@ SA A2,ACPIND . @C@[@@ SZ PAGEST . SET FIRST REC #ID )@@G@@-1 @D@[@@ LA,H2 A0,BUFF . GET # OF ENTRIES IN FILE @D@[@@IE )@@G@@ SA,H2 A0,MCAWRD . POST # ENTRIES IN THE FILE @C@[@@ SA,Q1IF )@@G@@ A5,MCAWRD . SET LOCAL ALLOW FLAG @C@[@@ SZ,H1 ACTIND . CLEIG )@@G@@AR LAST REC # @A@[@@ J AF0850 . AND ELAVE@[@[@@. IH )@@G@@@ @[@@. GET RECORD SPECIFIED BY (A1)@]@[@@ACGREC*. @ @[@@ SX II )@@G@@ X11,AFLINK . @C@[@@ TNZ,Q2 MCAWRD . IS THE FILE OPEN? IJ )@@G@@@B@[@@ J AF0810 . NO, TELL HIM SO@G@[@@ TZ,Q1 MCAWRIK )@@G@@D . IF WRITE TURNED ON AND A RECORD IS ACTIVE @E@[@@ TNZ,HIL )@@G@@1 ACTIND . THEN COPY OLD RECORD BACK TO PAGE@B@[@@ J AF020IM )@@G@@0 . OTHERWISE DON'T@D@[@@ LA,H2 A0,ACTIND . GET INDEX OF REIN )@@G@@C INTO PAGE @ @[@@ AA A0,(1,ACPAGE) . @ @[@@ LA A2,(1IO )@@G@@,ACTIVE) . @ @[@@ LR,U R1,14 . @C@[@@ BT A0,0,IP )@@G@@*A2 . MOVE OLD RECORD OUT @D@[@@AF0200 LA,H2 A0,MCAWRD . HIGHEST RIQ )@@G@@ECORD # THAT LIVES@ @[@@ TG,U A1,1 . @E@[@@ TLE IR )@@G@@ A0,A1 . DOES THE DESIRED RECORD EXIST? @D@[@@ J AF083IS )@@G@@0 . NO, TELL HIM SO - @E@[@@ SA A1,ACTEMP . YESIT )@@G@@, SAVE THE WANTED RECORD # @E@[@@ LA A2,PAGEST . GET FIRSTIU )@@G@@ REC #-1 IN THIS PAGE @C@[@@ AU,H1 A2,ACPIND . A3=LAST REC IN IV )@@G@@PAGE @D@[@@ TNW A2,A1 . DO WE HAVE THIS RECORD? @E@[@@IW )@@G@@ J AF0250 . YES, WE DON'T NEED A NEW PAGE @ @[@@ IX )@@G@@ LA A3,A1 . @E@[@@ DSL A3,1 . FIND REL SECTORIY )@@G@@ ADDR OF RECORD @D@[@@ JP A4,$+2 . IF FIRST RECORD OF SEIZ )@@G@@CTOR, @B@[@@ AA,U A3,1 . FUDGE UP BY ONE@E@[@@ AA,H2JA )@@G@@ A3,TXTADD . AND BIAS BY ABSOLUTE ADDR OF ELEM@E@[@@ TNZ,Q1 MCAWJB )@@G@@RD . WAS THE FILE OPEN FOR WRITE? @D@[@@ J AF0225 JC )@@G@@ . NO, SKIP WRITING OF PAGE @D@[@@ LA,U A0,RDL$ . YES, SET JD )@@G@@PACKET FOR LOCK @ @[@@ SA,S2 A0,IOPKT+3 . @ @[@@ LA JE )@@G@@ A0,(28,BUFF) . @C@[@@ LA,U A1,1791 . LOACK GOES ON 1791 JF )@@G@@@ @[@@ DS A0,IOPKT+4 . @ @[@@ LA,U A0,IOPKT . JG )@@G@@@ @[@@ ER IOW$ . @C@[@@ TZ,S1 3,A0 . DIDJH )@@G@@ WE GET THE LOCK ?@F@[@@ J AF0820 . NO, GO GIVE HIM THE UJI )@@G@@NIVERSAL I/O ERROR@D@[@@ LA,U A1,W$ . SET UP PACKET FOR WRIJJ )@@G@@TE @ @[@@ SA,S2 A1,IOPKT+3 . @ @[@@ LA A1,(224,ACPJK )@@G@@AGE) .@D@[@@ LA,H2 A2,ACPIND . GET ADDR OF CURRENT PAGE @C@[@@JL )@@G@@ DS A1,IOPKT+4 . POST IT IN THE PACKET@E@[@@ ER IOW$ JM )@@G@@ . WRITE CURRENT PAGE BACK TO DRUM @B@[@@ TZ,S1 3,A0 JN )@@G@@ . DID IT TAKE? @B@[@@ J AF0819 . NO, GO TELL HIM@ @[@@JO )@@G@@ LA,U A1,UNL$ . @ @[@@ SA,S2 A1,IOPKT+3 . @ @[@@JP )@@G@@ LA A1,(28,BUFF) . @ @[@@ LA,U A2,1791 . @ @[@@JQ )@@G@@ DS A1,IOPKT+4 . @B@[@@ ER IOW$ . UNLOCK 17JR )@@G@@91 @ @[@@ TZ,S1 3,A0 . @ @[@@ J AF0820 JS )@@G@@ . @E@[@@AF0225 LA A2,(224,ACPAGE) . A3 HAS ADDR OF NEXT PAGE JT )@@G@@@E@[@@ DS A2,IOPKT+4 . POST LOC AND LENGTH OF NEXT LOAD @ @[@@JU )@@G@@ LA,U A1,R$ . @ @[@@ SA,S2 A1,IOPKT+3 . @ @[@@JV )@@G@@ LA,U A0,IOPKT . @C@[@@ ER IOW$ . LOAD IN NJW )@@G@@EXT PAGE @B@[@@ TZ,S1 3,A0 . DID WE GET IT? @B@[@@ JX )@@G@@ J AF0820 . NO, SAY SO @B@[@@ LXI,U A3,16 . 16 JY )@@G@@ENTRIES HERE@C@[@@ SA A3,ACPIND . POST NEW PAGE INDEX @C@[@@JZ )@@G@@ LA A1,ACTEMP . GET RECORD # WE WANT @A@[@@ ANU,U A1,1 KA )@@G@@ . LESS 1, @C@[@@ JN A4,$+2 . OR IF EVEN REC #, KB )@@G@@@A@[@@ ANA,U A2,1 . LESS TWO,@C@[@@ SA A2,PAGEST KC )@@G@@ . GIVES FIRST REC#-1 @ @[@@AF0250 AA,U A2,1 . @ @[@@ KD )@@G@@ ANU A1,A2 . @ @[@@ MSI,U A2,14 . @G@[@@ KE )@@G@@ SA,H2 A2,ACTIND . WORD RELATIVE INDEX OF THIS REC INTON PAGE @ @[@@KF )@@G@@ AA A2,(1,ACPAGE) . @ @[@@ LA A1,(1,ACTIVE) . @ @[@@KG )@@G@@ LR,U R1,14 . @F@[@@ BT A1,0,*A2 . LOAD DESIKH )@@G@@RED REC INTO ACTIVE BUFFER @ @[@@ LA A1,ACTEMP . @B@[@@KI )@@G@@ LA,H1 A0,ACTIND . GET OLD REC NUM@C@[@@ SA,H1 A1,ACTIND KJ )@@G@@ . SET NUM OF THIS ONE @A@[@@ J AF0850 . LEAVE @[@[@@KK )@@G@@. @ @[@@. GET CURRENT FILE POSITION @]@[@@ACFPOS*. @B@[@@ KL )@@G@@ LA,H1 A0,ACTIND . GET RECORD NUM @B@[@@ TNZ,Q2 MCAWRD . IS KM )@@G@@FILE OPEN? @B@[@@ LA,XU A0,-1 . NO, TELL HIM @ @[@@ KN )@@G@@ J 1,X11 . @[@[@@. @H@[@@. CLOSE FILE. A1=0=> AS IS , KO )@@G@@ 1=> GARBAGE COLLECT , 2=> GARB COLL AND PACK @]@[@@ACFCLO*. @B@[@@KP )@@G@@ SX X11,AFLINK . WHAT ELSE? @ @[@@ SX X8,AFRSAV KQ )@@G@@ . @ @[@@ SX X9,AFRSAV+1 . @ @[@@ SX X10,AFRSAV+KR )@@G@@2 . @ @[@@ TSTO A12,AFRSAV+3 . @ @[@@ SR R2,AFRSAV+6KS )@@G@@ . @ @[@@ SR R3,AFRSAV+7 . @C@[@@ TNZ,Q2 MCAWRD KT )@@G@@ . IS THE FILE OPEN? @C@[@@ J AF0810 . NO, GO TELL HIMKU )@@G@@ SO @C@[@@ SZ,Q2 MCAWRD . MARK FILE AS CLOSED @E@[@@ KV )@@G@@ LA,U A0,0 . RETURN VALUE IF WRITE IS OFF @D@[@@ TNZ,QKW )@@G@@1 MCAWRD . HAS WRITE BEEN ALLOEED? @E@[@@ J AF0850 KX )@@G@@ . NO, EVRYTHING ALREADY CLOEED @C@[@@ SA A1,ACTEMP . SAVKY )@@G@@E PARAMETER WORD @B@[@@. WRITE OUT LAST PAGE BACK INTO THE FILE @C@[@@KZ )@@G@@ LA,U A0,RDL$ . SET UP LOCK PACKET @ @[@@ SA,S2 A0,IOLA )@@G@@PKT+3 . @ @[@@ LA A0,(28,BUFF) . @ @[@@ LA,U A1,17LB )@@G@@91 . @ @[@@ DS A0,IOPKT+4 . @ @[@@ LA,U A0,IOLC )@@G@@PKT . @B@[@@ ER IOW$ . LOCK ON 1791 @B@[@@ LD )@@G@@ TZ,S1 3,A0 . DID IT TAKE? @B@[@@ J AF0820 . NO,LE )@@G@@ GO SAY SO @E@[@@ TNZ,H1 ACTIND . IS THERE A RECIRD LEFT IN ALF )@@G@@CTIVE @E@[@@ J AF0300 . NO, NOTHING TO WRITE TO DRUM HERELG )@@G@@@E@[@@ LA,H2 A0,ACTIND . YES, PUT IT BACK IN THE PAGE @ @[@@LH )@@G@@ AA A0,(1,ACPAGE) . @ @[@@ LA A2,(1,ACTIVE) . @ @[@@LI )@@G@@ LR,U R1,14 . @F@[@@ BT A0,0,*A2 . THEN WRITLJ )@@G@@E THE PAGE BACK TO THE DRUM @E@[@@ LA,U A0,W$ . SET UP PALK )@@G@@CKET FOR NEXT WRITE @ @[@@ SA,S2 A0,IOPKT+3 . @A@[@@ LL )@@G@@ LA A0,(224,ACPAGE) . @D@[@@ LA,H2 A1,ACPIND . GET ADDR LM )@@G@@OF CURRENT PAGE @B@[@@ DS A0,IOPKT+4 . POST IN PACKET @ @[@@LN )@@G@@ LA,U A0,IOPKT . @D@[@@ ER IOW$ . WRITE BACLO )@@G@@K CURRENT PAGE @E@[@@ TZ,S1 3,A0 . DID IT MAKE IT THERE LP )@@G@@SAFELY? @E@[@@ J AF0819 . NO, GO UNLOCK AND SAY II//OLQ )@@G@@O ERR @B@[@@AF0300 LA A0,ACTEMP . GET PARAMETER @E@[@@ JZ LR )@@G@@ A0,AF0800 . IF CLOSE AS IS, WE'RE ALL DONE @ @[@@ T