MAIL BCD 05/12/69 2020.2 15359 00000 1 MAD PROGRAM LISTING ... ... ... FILE MAIL0 MAD 03/18/69 1011.8 - MAIL ...MAIL COMMAND LM00001 ... LAST MODIFIED 3/17/69 BY R. ROACH LM00002 ... LM00003 ... LM00004 GCLS.(A,0) *001 LM00005 LM00006 WHENEVER A(1).E.FENCE.OR.A(2).E.FENCE.OR.A(3).E.FENCE *002 LM00007 PRFULL.($'R'1INSTRUCTIONS:$) *003 LM00008 PRFULL.($ '4MAIL NAME1 NAME2 PROB1 PROG1 PROB2 PROG2 ...$) *004 LM00009 PRFULL.($ WHERE '=NAME1 NAME2'= IS THE FILE TO BE MAILED,$) *005 LM00010 PRFULL.($ AND '=PROBN PROGN'= ARE DIRECTORIES TO WHICH '8$, *006 LM00011 1 $IT IS TO BE SENT.'B$) *006 LM00012 CHNCOM.(0) *007 LM00013 END OF CONDITIONAL *008 LM00014 LM00015 DIMENSION ME(2) *009 LM00016 ATTNAM.(ME(2)...3) *010 LM00017 FERRTN.(DSKER.) *011 LM00018 USER = GLOC.(COMLOC.($USER$)) *012 LM00019 UFDNAM = BZ57.(GLOC.(COMLOC.($UFDNM$)+USER)) *013 LM00020 ATTACH.(ME(2),ME(1)) *014 LM00021 GETBUF.(B1,432) *015 LM00022 GETBUF.(B2,432) *016 LM00023 LM00024 FSTATE.(A(1),A(2),Z(7)...8) *017 LM00025 LTH = Z(7) *018 LM00026 LM00027 WHENEVER LTH.G.432 *019 LM00028 PRFULL.(RX,A(1)...2,$ MUST BE LESS THAN 1 RECORD LONG.'B$) *020 LM00029 CHNCOM.(0) *021 LM00030 VECTOR VALUES RX = $'R'X'8$ *022 LM00031 OR WHENEVER Z(6).A.10K.NE.0.OR.Z(6).A.20K.NE.0.AND.Z.A.777777K.NE.ME *023 LM00032 PRFULL.(RX,A(1)...2,$''S MODE PREVENTS READING.'B$) *024 LM00033 CHNCOM.(0) *025 LM00034 END OF CONDITIONAL *026 LM00035 LM00036 OPEN.($R$,A(1),A(2)) *027 LM00037 RDFILE.(A(1),A(2),1,BUFF(432)...LTH) *028 LM00038 CLOSE.(A(1),A(2)) *029 LM00039 LM00040 WHENEVER BUFF(432).RS.18.NE. 777777K *030 LM00041 PRFULL.(RX,A(1)...2,$ MUST BE LINE MARKED.'B$) *031 LM00042 CHNCOM.(0) *032 LM00043 END OF CONDITIONAL *033 LM00044 LM00045 WHOAMI.(PROB...2) *034 LM00046 DIMENSION PROG(1) *035 LM00047 EQUIVALENCE (PROB,PROG(1)) *036 LM00048 PROB1 = LJUST.(PROB) *037 LM00049 PROG1 = BZ57.(PROG) *038 LM00050 PROBN = BZ57.(PROB) *039 LM00051 GETTM.(DATE,TIME) *040 LM00052 LTH = LTH+11 *041 LM00053 CINDEX = 3 *042 LM00054 LM00055 CKMETA WHENEVER A(CINDEX).E.$(LIST)$ *043 LM00056 LIST=1B *044 LM00057 N1 = A(CINDEX+1) *045 LM00058 N2 = A(CINDEX+2) *046 LM00059 BFOPEN.($R$,N1,N2,B1(B1+432),-0,-0,DSKER.) *047 LM00060 GTWDBX.(N1,N2) *048 LM00061 CINDEX = CINDEX + 3 *049 LM00062 TRANSFER TO CKMETA *050 LM00063 OR WHENEVER A(CINDEX).E.$ *$.AND.A(CINDEX+1).E.$ *$ *051 LM00064 CINDEX = CINDEX+2 *052 LM00065 USRCHK.(PROB,PROG,CKMETA) *053 LM00066 BB=2 *054 LM00067 TRANSFER TO SRCH *055 LM00068 OR WHENEVER A(CINDEX).E.$(URGT)$ *056 LM00069 CINDEX = CINDEX+1 *057 LM00070 USRCHK.(PROB,PROG,CKMETA) *058 LM00071 BOX = MAIL *059 LM00072 MAIL = $URGENT$ *060 LM00073 TRANSFER TO CKMETA *061 LM00074 END OF CONDITIONAL *062 LM00075 LM00076 GETARG ARGS.(ALL) *063 LM00077 TRANSFER TO GETARG *064 LM00078 LM00079 ALL CONTINUE *065 LM00080 LM00081 THROUGH ASEND, FOR I=0,2,I.GE.AA *066 LM00082 ASEND SEND.(APRG(I),APRG(I+1)) *067 LM00083 LM00084 SRCH WHENEVER BB.G.0 *068 LM00085 OPNMF. *069 LM00086 SLOOP RDMF.(X,Y) *070 LM00087 THROUGH BSEND,FOR C=0,2,C.G.BB *071 LM00088 WHENEVER X.E.BPRG(C).OR.BPRG(C).E.$ALLALL$ *072 LM00089 WHENEVER Y.E.BPRG(C+1).OR.BPRG(C+1).E.$ALLALL$,SEND.(X,Y) *073 LM00090 END OF CONDITIONAL *074 LM00091 BSEND CONTINUE *075 LM00092 TRANSFER TO SLOOP *076 LM00093 EX BFCLOS.(MFD,FILE) *077 LM00094 END OF CONDITIONAL *078 LM00095 LM00096 CHNCOM.(0) *079 LM00097 LM00098 LM00099 NORMAL MODE IS INTEGER *080 LM00100 DIMENSION A(20),APRG(202),BPRG(22) *081 LM00101 DIMENSION B1(0), B2(0) *082 LM00102 DIMENSION Z(7) *083 LM00103 BOOLEAN LIST *084 LM00104 VECTOR VALUES MFD=$M.F.D.$ *085 LM00105 VECTOR VALUES UFD=$U.F.D.$ *086 LM00106 VECTOR VALUES FILE=$(FILE)$ *087 LM00107 VECTOR VALUES MAIL=$ MAIL$ *088 LM00108 VECTOR VALUES BOX=$ BOX$ *089 LM00109 VECTOR VALUES BPRG = $ALLALL$, $ALLALL$ *090 LM00110 VECTOR VALUES AA = 0 *091 LM00111 VECTOR VALUES BB = 0 *092 LM00112 VECTOR VALUES FENCE=777777777777K *093 LM00113 LM00114 DIMENSION BUFF(443) *094 LM00115 EQUIVALENCE (BUFF(443),LM) *095 LM00116 VECTOR VALUES LM = 777777000012K *096 LM00117 VECTOR VALUES BUFF(442) = $ FROM $ *097 LM00118 EQUIVALENCE (BUFF(441),PROB1), (BUFF(440),PROG1) *098 LM00119 VECTOR VALUES BUFF(439) = 603145605757K *099 LM00120 EQUIVALENCE (BUFF(438),PROBN) *100 LM00121 VECTOR VALUES BUFF(437) = 605757575757K *101 LM00122 EQUIVALENCE (BUFF(436),UFDNAM) *102 LM00123 VECTOR VALUES BUFF(435) = 605721636057K *103 LM00124 EQUIVALENCE (BUFF(434),DATE), (BUFF(433),TIME) *104 LM00125 LM00126 LM00127 LM00128 INTERNAL FUNCTION(X,Y) *105 LM00129 ENTRY TO USRCHK. *106 LM00130 LM00131 WHENEVER X.NE.$ M1416$ .OR. (Y.NE.$ 385$ .AND. Y *107 LM00132 1 .NE. $ 4301$ .AND. Y .NE. $ 2962$ .AND. Y .NE. *107 LM00133 2 $ 3845$) *107 LM00134 3 , ERROR RETURN *107 LM00135 FUNCTION RETURN *108 LM00136 END OF FUNCTION *109 LM00137 LM00138 LM00139 INTERNAL FUNCTION(THRU) *110 LM00140 ENTRY TO ARGS. *111 LM00141 STATEMENT LABEL THRU *112 LM00142 LM00143 WHENEVER LIST *113 LM00144 GTWD.(X,THRU) *114 LM00145 GTWD.(Y,THRU) *115 LM00146 OTHERWISE *116 LM00147 X=A(CINDEX) *117 LM00148 Y=A(CINDEX+1) *118 LM00149 WHENEVER X.E.FENCE.OR.Y.E.FENCE,TRANSFER TO THRU *119 LM00150 CINDEX=CINDEX+2 *120 LM00151 END OF CONDITIONAL *121 LM00152 LM00153 WHENEVER X.E.$ *$ *122 LM00154 BPRG(BB)=$ALLALL$ *123 LM00155 BPRG(BB+1)=Y.A.777777777717K *124 LM00156 BB=BB+2 *125 LM00157 OR WHENEVER Y.E.$ *$ *126 LM00158 BPRG(BB)=REPROB.(X) *127 LM00159 BPRG(BB+1)=$ALLALL$ *128 LM00160 BB=BB+2 *129 LM00161 OTHERWISE *130 LM00162 APRG(AA)=REPROB.(X) *131 LM00163 APRG(AA+1)=Y.A.777777777717K *132 LM00164 AA=AA+2 *133 LM00165 END OF CONDITIONAL *134 LM00166 LM00167 WHENEVER AA.G.200.OR.BB.G.20 *135 LM00168 PRINT COMMENT $TOO MANY ADDRESSEES$ *136 LM00169 TRANSFER TO THRU *137 LM00170 END OF CONDITIONAL *138 LM00171 LM00172 FUNCTION RETURN *139 LM00173 END OF FUNCTION *140 LM00174 LM00175 LM00176 INTERNAL FUNCTION *141 LM00177 ENTRY TO OPNMF. *142 LM00178 LM00179 ATTACH.(MFD,FILE) *143 LM00180 BFOPEN.($R$,MFD,FILE,B2(B2+432),-0,-0,DSKER.) *144 LM00181 ATTACH.(ME(2),ME(1)) *145 LM00182 BFREAD.(MFD,FILE,Z(3)...3,DSKER.,-0,DSKER.) *146 LM00183 FUNCTION RETURN *147 LM00184 END OF FUNCTION *148 LM00185 LM00186 LM00187 INTERNAL FUNCTION(X,Y) *149 LM00188 ENTRY TO RDMF. *150 LM00189 RR BFREAD.(MFD,FILE,Z(7)...7,EX,-0,DSKER.) *151 LM00190 X=Z(7) *152 LM00191 Y=Z(6) *153 LM00192 WHENEVER X.E.0.OR.Y.E.0.OR.X.E.UFD,TRANSFER TO RR *154 LM00193 WHENEVER Y.RS.12.E.$00CMFL$,TRANSFER TO RR *155 LM00194 FUNCTION RETURN *156 LM00195 END OF FUNCTION *157 LM00196 LM00197 LM00198 INTERNAL FUNCTION(M,N) *158 LM00199 ENTRY TO SEND. *159 LM00200 LM00201 Z=SMAIL.(M,N,LM,LTH,MAIL,BOX) *160 LM00202 WHENEVER Z.E.0 *161 LM00203 FUNCTION RETURN *162 LM00204 OR WHENEVER Z.E.4 *163 LM00205 PRFULL.(RX,M,RX,N,$ NOT FOUND.'B$) *164 LM00206 OR WHENEVER Z.E.3 *165 LM00207 PRFULL.(RX,M,RX,N,$ DOES NOT WANT MAIL.'B$) *166 LM00208 OR WHENEVER Z.E.2 *167 LM00209 PRFULL.(RX,M,RX,N,$''S MAIL BOX IS BUSY.'B$) *168 LM00210 OTHERWISE *169 LM00211 PRFULL.($'R DISK ERROR SENDING TO'8$,M,N,$'B'8$) *170 LM00212 END OF CONDITIONAL *171 LM00213 LM00214 FUNCTION RETURN *172 LM00215 END OF FUNCTION *173 LM00216 LM00217 END OF PROGRAM *174 LM00218 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 03000 TRANSFER VECTOR LENGTH 00035 PROGRAM BEGINS 01533 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) AA 00750 A 1 BPRG 01343 A 1 FILE 01347 A 1 N1 01360 1 SLOOP 00746 4 ALL 00741 4 BSEND 00042 4 GETARG 00744 4 N2 01361 1 SRCH 00747 4 APRG 01263 A 1 BUFF 00740 A 1 I 01350 1 PROB1 00047 1 TIME 00057 1 A 01310 A 1 CINDEX 01344 1 LIST 01351 2 PROBN 00052 1 UFDNAM 00054 1 ASEND 00042 4 CKMETA 00742 4 LM 00045 A 1 PROB 00043 1 UFD 01363 A 1 B1 01311 A 1 C 01345 1 LTH 01352 1 PROG1 00050 1 USER 01364 1 B2 01312 A 1 DATE 00056 1 MAIL 01353 A 1 PROG 00044 A 1 X 01365 1 BB 01313 A 1 EX 00743 4 ME 01356 A 1 RR 00745 4 Y 01366 1 BOX 01314 A 1 FENCE 01346 A 1 MFD 01357 A 1 RX 01362 A 1 Z 01376 A 1 0FUNCTION DICTIONARY ATTACH 00000 1 ATTNAM 00001 1 BFCLOS 00002 1 BFOPEN 00003 1 BFREAD 00004 1 BZ57 00005 1 CHNCOM 00006 1 CLOSE 00007 1 COMLOC 00010 1 DSKER 00011 1 ERROR 00012 1 EXIT 00013 1 FERRTN 00014 1 FSTATE 00015 1 GCLS 00016 1 GETBUF 00017 1 GETTM 00020 1 GLOC 00021 1 GTWDBX 00022 1 GTWD 00023 1 .PCOMT 00024 1 .SETUP 00025 1 LJUST 00026 1 OPEN 00027 1 PRFULL 00030 1 RDFILE 00031 1 REPROB 00032 1 SMAIL 00033 1 WHOAMI 00034 1 ARGS 00035 1 OPNMF 00036 1 RDMF 00037 1 SEND 00040 1 USRCHK 00041 1 0ABSOLUTE CONSTANTS 01432 +142214106060 01426 +141060606060 01454 +314527606346 01472 -116062254524 01457 -026025515146 01434 +145160243162 01521 -227033142260 01501 -203162602264 01453 +314360224667 01430 +141462604421 01460 -033314226060 01464 -056360442131 01463 -054663606621 01500 -202446256260 01467 -066445243314 01504 -204546636026 01403 +000000000004 01416 +000023442643 01407 +000000000014 01404 +000000000007 01413 +000000000310 01412 +000000000024 01532 -377777777717 01502 -204401040106 01511 -206060031005 01510 -206004030001 01506 -206002110602 01507 -206003100405 01436 +214343214343 01525 -245127254563 01531 -346451276334 01512 -206060606054 01530 -344331626334 01406 +000000000013 01446 +252433142260 01447 +256044215142 01440 +222560433145 01411 +000000000022 01471 -116060606060 01451 +273314226060 01470 -112521243145 01527 -252545636260 01443 +242560475125 01431 +141462604446 01410 +000000000020 01415 +000000777777 01462 -052733142260 01465 -065124604346 01473 -200160512523 01516 -226063302145 01437 +222560432562 01503 -204464626360 01401 +000000000002 01405 +000000000010 01414 +000000000660 01524 -242624454460 01526 -246225516060 01402 +000000000003 01441 +226060606060 01515 -222545633314 01523 -234660222560 01456 +316360316260 01452 +312330601410 01513 -206346606630 01522 -234651312562 01477 -202431512523 01427 +141360215125 01505 -204751462745 01425 +134751462245 01476 -202145246014 01435 +213143252473 01466 -066022256044 01450 +263143256063 01517 -226063302560 01445 +250214136031 01444 +250160452144 01475 -201413452144 01514 -206630255125 01422 +026033333360 01424 +026047514627 01420 +016047514622 01421 +016047514627 01423 +026047514622 01417 +016045214425 01461 -036045214425 01474 -201404442131 01455 +314645623560 01520 -226351642363 01433 +145114013145 01377 +000000000000 01400 +000000000001 01442 +233000000000 0STATEMENT DICTIONARY 00741 TXL -302135002135 00742 TXL -302020002014 00743 TXL -302242002237 00744 TXL -302134002132 00745 TXL -302573002562 00746 TXL -302174002171 00747 TXL -302170002164 0PROGRAM GCLS.(A,0) 001 LM00005 01533 TSX +0 07400 4 00025 01534 TSX +0 07400 4 00016 01535 TXH +3 00000 0 01310 01536 TXH +3 00000 0 01377 W'R A(1).E.FENCE.OR.A(2).E.FENCE.OR.A(3).E.FENCE 002 LM00007 01537 CLA +0 50000 0 01305 01540 SUB +0 40200 0 01346 01541 TZE +0 10000 0 01550 01542 CLA +0 50000 0 01306 01543 SUB +0 40200 0 01346 01544 TZE +0 10000 0 01550 01545 CLA +0 50000 0 01307 01546 SUB +0 40200 0 01346 01547 TNZ -0 10000 0 01615 PRFULL.($'R'1INSTRUCTIONS:$) 003 LM00008 01550 TSX +0 07400 4 00030 01551 TXH +3 00000 0 01433 01552 TXH +3 00000 0 01520 01553 TXH +3 00000 0 01455 PRFULL.($ '4MAIL NAME1 NAME2 PROB1 PROG1 PROB2 PROG2 ...$) 004 LM00009 01554 TSX +0 07400 4 00030 01555 TXH +3 00000 0 01474 01556 TXH +3 00000 0 01461 01557 TXH +3 00000 0 01417 01560 TXH +3 00000 0 01423 01561 TXH +3 00000 0 01421 01562 TXH +3 00000 0 01420 01563 TXH +3 00000 0 01424 01564 TXH +3 00000 0 01422 PRFULL.($ WHERE '=NAME1 NAME2'= IS THE FILE TO BE MAILED,$) 005 LM00010 01565 TSX +0 07400 4 00030 01566 TXH +3 00000 0 01514 01567 TXH +3 00000 0 01475 01570 TXH +3 00000 0 01444 01571 TXH +3 00000 0 01445 01572 TXH +3 00000 0 01517 01573 TXH +3 00000 0 01450 01574 TXH +3 00000 0 01466 01575 TXH +3 00000 0 01435 PRFULL.($ AND '=PROBN PROGN'= ARE DIRECTORIES TO WHICH '8$, 006 LM00011 1 $IT IS TO BE SENT.'B$) 006 LM00012 01576 TSX +0 07400 4 00030 01577 TXH +3 00000 0 01476 01600 TXH +3 00000 0 01425 01601 TXH +3 00000 0 01505 01602 TXH +3 00000 0 01427 01603 TXH +3 00000 0 01477 01604 TXH +3 00000 0 01522 01605 TXH +3 00000 0 01513 01606 TXH +3 00000 0 01452 01607 TXH +3 00000 0 01456 01610 TXH +3 00000 0 01523 01611 TXH +3 00000 0 01515 01612 TXH +3 00000 0 01441 CHNCOM.(0) 007 LM00013 01613 TSX +0 07400 4 00006 01614 TXH +3 00000 0 01377 E'L 008 LM00014 D'N ME(2) 009 LM00016 ATTNAM.(ME(2)...3) 010 LM00017 01615 TSX +0 07400 4 00001 01616 TIX +2 01402 0 01354 FERRTN.(DSKER.) 011 LM00018 01617 TSX +0 07400 4 00014 01620 TXH +3 00000 0 00011 USER = GLOC.(COMLOC.($USER$)) 012 LM00019 01621 TSX +0 07400 4 00010 01622 TXH +3 00000 0 01526 01623 STO +0 60100 0 02774 01624 TSX +0 07400 4 00021 01625 TXH +3 00000 0 02774 01626 STO +0 60100 0 01364 UFDNAM = BZ57.(GLOC.(COMLOC.($UFDNM$)+USER)) 013 LM00020 01627 TSX +0 07400 4 00010 01630 TXH +3 00000 0 01524 01631 ADD +0 40000 0 01364 01632 STO +0 60100 0 02774 01633 TSX +0 07400 4 00021 01634 TXH +3 00000 0 02774 01635 STO +0 60100 0 02774 01636 TSX +0 07400 4 00005 01637 TXH +3 00000 0 02774 01640 STO +0 60100 0 00054 ATTACH.(ME(2),ME(1)) 014 LM00021 01641 TSX +0 07400 4 00000 01642 TXH +3 00000 0 01354 01643 TXH +3 00000 0 01355 GETBUF.(B1,432) 015 LM00022 01644 TSX +0 07400 4 00017 01645 TXH +3 00000 0 01311 01646 TXH +3 00000 0 01414 GETBUF.(B2,432) 016 LM00023 01647 TSX +0 07400 4 00017 01650 TXH +3 00000 0 01312 01651 TXH +3 00000 0 01414 FSTATE.(A(1),A(2),Z(7)...8) 017 LM00025 01652 TSX +0 07400 4 00015 01653 TXH +3 00000 0 01307 01654 TXH +3 00000 0 01306 01655 TIX +2 01405 0 01367 LTH = Z(7) 018 LM00026 01656 CLA +0 50000 0 01367 01657 STO +0 60100 0 01352 W'R LTH.G.432 019 LM00028 01660 CLA +0 50000 0 01352 01661 SUB +0 40200 0 01414 01662 TZE +0 10000 0 01700 01663 TMI -0 12000 0 01700 PRFULL.(RX,A(1)...2,$ MUST BE LESS THAN 1 RECORD LONG.'B$) 020 LM00029 01664 TSX +0 07400 4 00030 01665 TXH +3 00000 0 01362 01666 TIX +2 01401 0 01307 01667 TXH +3 00000 0 01503 01670 TXH +3 00000 0 01437 01671 TXH +3 00000 0 01516 01672 TXH +3 00000 0 01473 01673 TXH +3 00000 0 01465 01674 TXH +3 00000 0 01462 CHNCOM.(0) 021 LM00030 01675 TSX +0 07400 4 00006 01676 TXH +3 00000 0 01377 V'S RX = $'R'X'8$ 022 LM00031 01362 +1 45114 6 71410 O'R Z(6).A.10K.NE.0.OR.Z(6).A.20K.NE.0.AND.Z.A.777777K.NE.ME 023 LM00032 01677 TRA +0 02000 0 01734 01700 CAL -0 50000 0 01376 01701 ANA -0 32000 0 01415 01702 SLW +0 60200 0 02774 01703 CLA +0 50000 0 02774 01704 SUB +0 40200 0 01356 01705 TZE +0 10000 0 01714 01706 CAL -0 50000 0 01370 01707 ANA -0 32000 0 01410 01710 SLW +0 60200 0 02774 01711 CLA +0 50000 0 02774 01712 SUB +0 40200 0 01377 01713 TNZ -0 10000 0 01722 01714 CAL -0 50000 0 01370 01715 ANA -0 32000 0 01405 01716 SLW +0 60200 0 02774 01717 CLA +0 50000 0 02774 01720 SUB +0 40200 0 01377 01721 TZE +0 10000 0 01734 PRFULL.(RX,A(1)...2,$''S MODE PREVENTS READING.'B$) 024 LM00033 01722 TSX +0 07400 4 00030 01723 TXH +3 00000 0 01362 01724 TIX +2 01401 0 01307 01725 TXH +3 00000 0 01431 01726 TXH +3 00000 0 01443 01727 TXH +3 00000 0 01527 01730 TXH +3 00000 0 01470 01731 TXH +3 00000 0 01451 CHNCOM.(0) 025 LM00034 01732 TSX +0 07400 4 00006 01733 TXH +3 00000 0 01377 E'L 026 LM00035 OPEN.($R$,A(1),A(2)) 027 LM00037 01734 TSX +0 07400 4 00027 01735 TXH +3 00000 0 01471 01736 TXH +3 00000 0 01307 01737 TXH +3 00000 0 01306 RDFILE.(A(1),A(2),1,BUFF(432)...LTH) 028 LM00038 01740 TSX +0 07400 4 00031 01741 TXH +3 00000 0 01307 01742 TXH +3 00000 0 01306 01743 TXH +3 00000 0 01400 01744 TIX +2 01352 0 00060 CLOSE.(A(1),A(2)) 029 LM00039 01745 TSX +0 07400 4 00007 01746 TXH +3 00000 0 01307 01747 TXH +3 00000 0 01306 W'R BUFF(432).RS.18.NE. 777777K 030 LM00041 01750 CAL -0 50000 0 01411 01751 STA +0 62100 0 01753 01752 CAL -0 50000 0 00060 01753 LGR -0 76500 0 00000 01754 SLW +0 60200 0 02774 01755 CLA +0 50000 0 02774 01756 SUB +0 40200 0 01415 01757 TZE +0 10000 0 01771 PRFULL.(RX,A(1)...2,$ MUST BE LINE MARKED.'B$) 031 LM00042 01760 TSX +0 07400 4 00030 01761 TXH +3 00000 0 01362 01762 TIX +2 01401 0 01307 01763 TXH +3 00000 0 01503 01764 TXH +3 00000 0 01440 01765 TXH +3 00000 0 01447 01766 TXH +3 00000 0 01446 CHNCOM.(0) 032 LM00043 01767 TSX +0 07400 4 00006 01770 TXH +3 00000 0 01377 E'L 033 LM00044 WHOAMI.(PROB...2) 034 LM00046 01771 TSX +0 07400 4 00034 01772 TIX +2 01401 0 00043 D'N PROG(1) 035 LM00047 E'E (PROB,PROG(1)) 036 LM00048 PROB1 = LJUST.(PROB) 037 LM00049 01773 TSX +0 07400 4 00026 01774 TXH +3 00000 0 00043 01775 STO +0 60100 0 00047 PROG1 = BZ57.(PROG) 038 LM00050 01776 TSX +0 07400 4 00005 01777 TXH +3 00000 0 00044 02000 STO +0 60100 0 00050 PROBN = BZ57.(PROB) 039 LM00051 02001 TSX +0 07400 4 00005 02002 TXH +3 00000 0 00043 02003 STO +0 60100 0 00052 GETTM.(DATE,TIME) 040 LM00052 02004 TSX +0 07400 4 00020 02005 TXH +3 00000 0 00056 02006 TXH +3 00000 0 00057 LTH = LTH+11 041 LM00053 02007 CLA +0 50000 0 01352 02010 ADD +0 40000 0 01406 02011 STO +0 60100 0 01352 CINDEX = 3 042 LM00054 02012 CLA +0 50000 0 01402 02013 STO +0 60100 0 01344 CKMETA W'R A(CINDEX).E.$(LIST)$ 043 LM00056 02014 LXA +0 53400 1 01344 02015 CLA +0 50000 1 01310 02016 SUB +0 40200 0 01530 02017 TNZ -0 10000 0 02065 LIST=1B 044 LM00057 02020 CLA +0 50000 0 01400 02021 STO +0 60100 0 01351 N1 = A(CINDEX+1) 045 LM00058 02022 CLA +0 50000 0 01344 02023 ADD +0 40000 0 01400 02024 PAX +0 73400 2 00000 02025 CLA +0 50000 2 01310 02026 STO +0 60100 0 01360 N2 = A(CINDEX+2) 046 LM00059 02027 CLA +0 50000 0 01344 02030 ADD +0 40000 0 01401 02031 PAX +0 73400 2 00000 02032 CLA +0 50000 2 01310 02033 STO +0 60100 0 01361 BFOPEN.($R$,N1,N2,B1(B1+432),-0,-0,DSKER.) 047 LM00060 02034 CLS +0 50200 0 01377 02035 STO +0 60100 0 02774 02036 CLS +0 50200 0 01377 02037 STO +0 60100 0 02775 02040 CLA +0 50000 0 01311 02041 ADD +0 40000 0 01414 02042 SUB +0 40200 0 02043 02043 TXH +3 00000 0 01311 02044 STA +0 62100 0 02051 02045 TSX +0 07400 4 00003 02046 TXH +3 00000 0 01471 02047 TXH +3 00000 0 01360 02050 TXH +3 00000 0 01361 02051 TXH +3 00000 0 00000 02052 TXH +3 00000 0 02775 02053 TXH +3 00000 0 02774 02054 TXH +3 00000 0 00011 GTWDBX.(N1,N2) 048 LM00061 02055 TSX +0 07400 4 00022 02056 TXH +3 00000 0 01360 02057 TXH +3 00000 0 01361 CINDEX = CINDEX + 3 049 LM00062 02060 CLA +0 50000 0 01344 02061 ADD +0 40000 0 01402 02062 STO +0 60100 0 01344 T'O CKMETA 050 LM00063 02063 TRA +0 02000 0 00742 O'R A(CINDEX).E.$ *$.AND.A(CINDEX+1).E.$ *$ 051 LM00064 02064 TRA +0 02000 0 02132 02065 CLA +0 50000 0 01344 02066 ADD +0 40000 0 01400 02067 PAX +0 73400 1 00000 02070 CLA +0 50000 1 01310 02071 SUB +0 40200 0 01512 02072 TNZ -0 10000 0 02112 02073 LXA +0 53400 1 01344 02074 CLA +0 50000 1 01310 02075 SUB +0 40200 0 01512 02076 TNZ -0 10000 0 02112 CINDEX = CINDEX+2 052 LM00065 02077 CLA +0 50000 0 01344 02100 ADD +0 40000 0 01401 02101 STO +0 60100 0 01344 USRCHK.(PROB,PROG,CKMETA) 053 LM00066 02102 TSX +0 07400 4 00041 02103 TXH +3 00000 0 00043 02104 TXH +3 00000 0 00044 02105 TXH +3 00000 0 00742 BB=2 054 LM00067 02106 CLA +0 50000 0 01401 02107 STO +0 60100 0 01313 T'O SRCH 055 LM00068 02110 TRA +0 02000 0 00747 O'R A(CINDEX).E.$(URGT)$ 056 LM00069 02111 TRA +0 02000 0 02132 02112 LXA +0 53400 1 01344 02113 CLA +0 50000 1 01310 02114 SUB +0 40200 0 01531 02115 TNZ -0 10000 0 02132 CINDEX = CINDEX+1 057 LM00070 02116 CLA +0 50000 0 01344 02117 ADD +0 40000 0 01400 02120 STO +0 60100 0 01344 USRCHK.(PROB,PROG,CKMETA) 058 LM00071 02121 TSX +0 07400 4 00041 02122 TXH +3 00000 0 00043 02123 TXH +3 00000 0 00044 02124 TXH +3 00000 0 00742 BOX = MAIL 059 LM00072 02125 CLA +0 50000 0 01353 02126 STO +0 60100 0 01314 MAIL = $URGENT$ 060 LM00073 02127 CLA +0 50000 0 01525 02130 STO +0 60100 0 01353 T'O CKMETA 061 LM00074 02131 TRA +0 02000 0 00742 E'L 062 LM00075 GETARG ARGS.(ALL) 063 LM00077 02132 TSX +0 07400 4 00035 02133 TXH +3 00000 0 00741 T'O GETARG 064 LM00078 02134 TRA +0 02000 0 00744 ALL CONTINUE 065 LM00080 T'H ASEND, FOR I=0,2,I.GE.AA 066 LM00082 02135 CLA +0 50000 0 01377 02136 STO +0 60100 0 01350 02137 TRA +0 02000 0 02143 02140 CLA +0 50000 0 01350 02141 ADD +0 40000 0 01401 02142 STO +0 60100 0 01350 02143 CLA +0 50000 0 01350 02144 SUB +0 40200 0 00750 02145 TZE +0 10000 0 02164 02146 TPL +0 12000 0 02164 ASEND SEND.(APRG(I),APRG(I+1)) 067 LM00083 02147 CLA +0 50000 0 01350 02150 ADD +0 40000 0 01400 02151 SUB +0 40200 0 02152 02152 TXH +3 00000 0 01263 02153 STA +0 62100 0 02162 02154 CLA +0 50000 0 01350 02155 SUB +0 40200 0 02156 02156 TXH +3 00000 0 01263 02157 STA +0 62100 0 02161 02160 TSX +0 07400 4 00040 02161 TXH +3 00000 0 00000 02162 TXH +3 00000 0 00000 02163 TRA +0 02000 0 02140 SRCH W'R BB.G.0 068 LM00085 02164 CLA +0 50000 0 01313 02165 SUB +0 40200 0 01377 02166 TZE +0 10000 0 02242 02167 TMI -0 12000 0 02242 OPNMF. 069 LM00086 02170 TSX +0 07400 4 00036 SLOOP RDMF.(X,Y) 070 LM00087 02171 TSX +0 07400 4 00037 02172 TXH +3 00000 0 01365 02173 TXH +3 00000 0 01366 T'H BSEND,FOR C=0,2,C.G.BB 071 LM00088 02174 CLA +0 50000 0 01377 02175 STO +0 60100 0 01345 02176 TRA +0 02000 0 02202 02177 CLA +0 50000 0 01345 02200 ADD +0 40000 0 01401 02201 STO +0 60100 0 01345 02202 CLA +0 50000 0 01345 02203 SUB +0 40200 0 01313 02204 TZE +0 10000 0 02206 02205 TPL +0 12000 0 02236 W'R X.E.BPRG(C).OR.BPRG(C).E.$ALLALL$ 072 LM00089 02206 LXA +0 53400 1 01345 02207 CLA +0 50000 1 01343 02210 SUB +0 40200 0 01436 02211 TZE +0 10000 0 02216 02212 LXA +0 53400 2 01345 02213 CLA +0 50000 0 01365 02214 SUB +0 40200 2 01343 02215 TNZ -0 10000 0 02235 W'R Y.E.BPRG(C+1).OR.BPRG(C+1).E.$ALLALL$,SEND.(X,Y) 073 LM00090 02216 CLA +0 50000 0 01345 02217 ADD +0 40000 0 01400 02220 PAX +0 73400 1 00000 02221 CLA +0 50000 1 01343 02222 SUB +0 40200 0 01436 02223 TZE +0 10000 0 02232 02224 CLA +0 50000 0 01345 02225 ADD +0 40000 0 01400 02226 PAX +0 73400 2 00000 02227 CLA +0 50000 0 01366 02230 SUB +0 40200 2 01343 02231 TNZ -0 10000 0 02235 02232 TSX +0 07400 4 00040 02233 TXH +3 00000 0 01365 02234 TXH +3 00000 0 01366 E'L 074 LM00091 BSEND CONTINUE 075 LM00092 02235 TRA +0 02000 0 02177 T'O SLOOP 076 LM00093 02236 TRA +0 02000 0 00746 EX BFCLOS.(MFD,FILE) 077 LM00094 02237 TSX +0 07400 4 00002 02240 TXH +3 00000 0 01357 02241 TXH +3 00000 0 01347 E'L 078 LM00095 CHNCOM.(0) 079 LM00097 02242 TSX +0 07400 4 00006 02243 TXH +3 00000 0 01377 N'S INTEGER 080 LM00100 D'N A(20),APRG(202),BPRG(22) 081 LM00101 D'N B1(0), B2(0) 082 LM00102 D'N Z(7) 083 LM00103 B'N LIST 084 LM00104 V'S MFD=$M.F.D.$ 085 LM00105 01357 -0 43326 3 32433 V'S UFD=$U.F.D.$ 086 LM00106 01363 -2 43326 3 32433 V'S FILE=$(FILE)$ 087 LM00107 01347 -3 42631 4 32534 V'S MAIL=$ MAIL$ 088 LM00108 01353 -2 06044 2 13143 V'S BOX=$ BOX$ 089 LM00109 01314 -2 06060 2 24667 V'S BPRG = $ALLALL$, $ALLALL$ 090 LM00110 01342 +2 14343 2 14343 01343 +2 14343 2 14343 V'S AA = 0 091 LM00111 00750 +0 00000 0 00000 V'S BB = 0 092 LM00112 01313 +0 00000 0 00000 V'S FENCE=777777777777K 093 LM00113 01346 -3 77777 7 77777 D'N BUFF(443) 094 LM00115 E'E (BUFF(443),LM) 095 LM00116 V'S LM = 777777000012K 096 LM00117 00045 -3 77777 0 00012 V'S BUFF(442) = $ FROM $ 097 LM00118 00046 -2 02651 4 64460 E'E (BUFF(441),PROB1), (BUFF(440),PROG1) 098 LM00119 V'S BUFF(439) = 603145605757K 099 LM00120 00051 -2 03145 6 05757 E'E (BUFF(438),PROBN) 100 LM00121 V'S BUFF(437) = 605757575757K 101 LM00122 00053 -2 05757 5 75757 E'E (BUFF(436),UFDNAM) 102 LM00123 V'S BUFF(435) = 605721636057K 103 LM00124 00055 -2 05721 6 36057 E'E (BUFF(434),DATE), (BUFF(433),TIME) 104 LM00125 INTERNAL FUNCTION(X,Y) 105 LM00129 02244 TRA +0 02000 0 02317 E'O USRCHK. 106 LM00130 02245 TRA +0 02000 0 02250 00041 TTR +0 02100 0 02246 02246 SXA +0 63400 2 02300 02247 TSX +0 07400 2 02300 W'R X.NE.$ M1416$ .OR. (Y.NE.$ 385$ .AND. Y 107 LM00132 1 .NE. $ 4301$ .AND. Y .NE. $ 2962$ .AND. Y .NE. 107 LM00133 2 $ 3845$) 107 LM00134 3 , ERROR RETURN 107 LM00135 02250 CLA +0 50000 0 00024 02251 SUB +0 40200 0 01507 02252 TZE +0 10000 0 02264 02253 CLA +0 50000 0 00024 02254 SUB +0 40200 0 01506 02255 TZE +0 10000 0 02264 02256 CLA +0 50000 0 00024 02257 SUB +0 40200 0 01510 02260 TZE +0 10000 0 02264 02261 CLA +0 50000 0 00024 02262 SUB +0 40200 0 01511 02263 TNZ -0 10000 0 02267 02264 CLA +0 50000 0 00024 02265 SUB +0 40200 0 01502 02266 TZE +0 10000 0 02276 02267 LXA +0 53400 4 02313 02270 CLA +0 50000 4 00003 02271 STA +0 62100 0 02273 02272 LDQ +0 56000 0 02274 02273 TLQ +0 04000 0 00000 02274 TXH +3 00000 0 00000 02275 TSX +0 07400 4 00012 F'N 108 LM00136 02276 TRA +0 02000 0 02313 E'N 109 LM00137 02277 TSX +0 07400 4 00013 02300 TXH +3 00000 0 00000 02301 SXD -0 63400 1 02300 02302 SXA +0 63400 4 02313 02303 CLA +0 50000 4 00001 02304 STA +0 62100 0 02264 02305 CLA +0 50000 4 00002 02306 STA +0 62100 0 02250 02307 STA +0 62100 0 02253 02310 STA +0 62100 0 02256 02311 STA +0 62100 0 02261 02312 TRA +0 02000 2 00001 02313 AXT +0 77400 4 00000 02314 LXA +0 53400 2 02300 02315 LXD -0 53400 1 02300 02316 TRA +0 02000 4 00001 INTERNAL FUNCTION(THRU) 110 LM00140 02317 TRA +0 02000 0 02476 E'O ARGS. 111 LM00141 02320 TRA +0 02000 0 02323 00035 TTR +0 02100 0 02321 02321 SXA +0 63400 2 02460 02322 TSX +0 07400 2 02460 STATEMENT LABEL THRU 112 LM00142 W'R LIST 113 LM00144 02323 NZT -0 52000 0 01351 02324 TRA +0 02000 0 02334 GTWD.(X,THRU) 114 LM00145 02325 TSX +0 07400 4 00023 02326 TXH +3 00000 0 01365 02327 TXH +3 00000 0 00024 GTWD.(Y,THRU) 115 LM00146 02330 TSX +0 07400 4 00023 02331 TXH +3 00000 0 01366 02332 TXH +3 00000 0 00024 O'E 116 LM00147 02333 TRA +0 02000 0 02356 X=A(CINDEX) 117 LM00148 02334 LXA +0 53400 2 01344 02335 CLA +0 50000 2 01310 02336 STO +0 60100 0 01365 Y=A(CINDEX+1) 118 LM00149 02337 CLA +0 50000 0 01344 02340 ADD +0 40000 0 01400 02341 PAX +0 73400 2 00000 02342 CLA +0 50000 2 01310 02343 STO +0 60100 0 01366 W'R X.E.FENCE.OR.Y.E.FENCE,T'O THRU 119 LM00150 02344 CLA +0 50000 0 01366 02345 SUB +0 40200 0 01346 02346 TZE +0 10000 0 02352 02347 CLA +0 50000 0 01365 02350 SUB +0 40200 0 01346 02351 TNZ -0 10000 0 02353 02352 TRA +0 02000 0 00024 CINDEX=CINDEX+2 120 LM00151 02353 CLA +0 50000 0 01344 02354 ADD +0 40000 0 01401 02355 STO +0 60100 0 01344 E'L 121 LM00152 W'R X.E.$ *$ 122 LM00154 02356 CLA +0 50000 0 01365 02357 SUB +0 40200 0 01512 02360 TNZ -0 10000 0 02400 BPRG(BB)=$ALLALL$ 123 LM00155 02361 LXA +0 53400 1 01313 02362 CLA +0 50000 0 01436 02363 STO +0 60100 1 01343 BPRG(BB+1)=Y.A.777777777717K 124 LM00156 02364 CAL -0 50000 0 01366 02365 ANA -0 32000 0 01532 02366 SLW +0 60200 0 02475 02367 CLA +0 50000 0 01313 02370 ADD +0 40000 0 01400 02371 PAX +0 73400 1 00000 02372 CLA +0 50000 0 02475 02373 STO +0 60100 1 01343 BB=BB+2 125 LM00157 02374 CLA +0 50000 0 01313 02375 ADD +0 40000 0 01401 02376 STO +0 60100 0 01313 O'R Y.E.$ *$ 126 LM00158 02377 TRA +0 02000 0 02437 02400 CLA +0 50000 0 01366 02401 SUB +0 40200 0 01512 02402 TNZ -0 10000 0 02420 BPRG(BB)=REPROB.(X) 127 LM00159 02403 TSX +0 07400 4 00032 02404 TXH +3 00000 0 01365 02405 LXA +0 53400 1 01313 02406 STO +0 60100 1 01343 BPRG(BB+1)=$ALLALL$ 128 LM00160 02407 CLA +0 50000 0 01313 02410 ADD +0 40000 0 01400 02411 PAX +0 73400 1 00000 02412 CLA +0 50000 0 01436 02413 STO +0 60100 1 01343 BB=BB+2 129 LM00161 02414 CLA +0 50000 0 01313 02415 ADD +0 40000 0 01401 02416 STO +0 60100 0 01313 O'E 130 LM00162 02417 TRA +0 02000 0 02437 APRG(AA)=REPROB.(X) 131 LM00163 02420 TSX +0 07400 4 00032 02421 TXH +3 00000 0 01365 02422 LXA +0 53400 1 00750 02423 STO +0 60100 1 01263 APRG(AA+1)=Y.A.777777777717K 132 LM00164 02424 CAL -0 50000 0 01366 02425 ANA -0 32000 0 01532 02426 SLW +0 60200 0 02475 02427 CLA +0 50000 0 00750 02430 ADD +0 40000 0 01400 02431 PAX +0 73400 1 00000 02432 CLA +0 50000 0 02475 02433 STO +0 60100 1 01263 AA=AA+2 133 LM00165 02434 CLA +0 50000 0 00750 02435 ADD +0 40000 0 01401 02436 STO +0 60100 0 00750 E'L 134 LM00166 W'R AA.G.200.OR.BB.G.20 135 LM00168 02437 CLA +0 50000 0 01313 02440 SUB +0 40200 0 01412 02441 TZE +0 10000 0 02443 02442 TPL +0 12000 0 02447 02443 CLA +0 50000 0 00750 02444 SUB +0 40200 0 01413 02445 TZE +0 10000 0 02456 02446 TMI -0 12000 0 02456 PRINT COMMENT $TOO MANY ADDRESSEES$ 136 LM00169 02447 TSX +0 07400 4 00024 02450 +0 00000 0 00004 02451 -2 34646 6 04421 02452 -0 57060 2 12424 02453 -1 12562 6 22525 02454 -2 26060 6 06060 T'O THRU 137 LM00170 02455 TRA +0 02000 0 00024 E'L 138 LM00171 F'N 139 LM00173 02456 TRA +0 02000 0 02471 E'N 140 LM00174 02457 TSX +0 07400 4 00013 02460 TXH +3 00000 0 00000 02461 SXD -0 63400 1 02460 02462 SXA +0 63400 4 02471 02463 CLA +0 50000 4 00001 02464 STO +0 60100 0 02327 02465 STO +0 60100 0 02332 02466 STA +0 62100 0 02352 02467 STA +0 62100 0 02455 02470 TRA +0 02000 2 00001 02471 AXT +0 77400 4 00000 02472 LXA +0 53400 2 02460 02473 LXD -0 53400 1 02460 02474 TRA +0 02000 4 00001 INTERNAL FUNCTION 141 LM00177 02476 TRA +0 02000 0 02556 E'O OPNMF. 142 LM00178 02477 TRA +0 02000 0 02502 00036 TTR +0 02100 0 02500 02500 SXA +0 63400 2 02544 02501 TSX +0 07400 2 02544 ATTACH.(MFD,FILE) 143 LM00180 02502 TSX +0 07400 4 00000 02503 TXH +3 00000 0 01357 02504 TXH +3 00000 0 01347 BFOPEN.($R$,MFD,FILE,B2(B2+432),-0,-0,DSKER.) 144 LM00181 02505 CLS +0 50200 0 01377 02506 STO +0 60100 0 02554 02507 CLS +0 50200 0 01377 02510 STO +0 60100 0 02555 02511 CLA +0 50000 0 01312 02512 ADD +0 40000 0 01414 02513 SUB +0 40200 0 02514 02514 TXH +3 00000 0 01312 02515 STA +0 62100 0 02522 02516 TSX +0 07400 4 00003 02517 TXH +3 00000 0 01471 02520 TXH +3 00000 0 01357 02521 TXH +3 00000 0 01347 02522 TXH +3 00000 0 00000 02523 TXH +3 00000 0 02555 02524 TXH +3 00000 0 02554 02525 TXH +3 00000 0 00011 ATTACH.(ME(2),ME(1)) 145 LM00182 02526 TSX +0 07400 4 00000 02527 TXH +3 00000 0 01354 02530 TXH +3 00000 0 01355 BFREAD.(MFD,FILE,Z(3)...3,DSKER.,-0,DSKER.) 146 LM00183 02531 CLS +0 50200 0 01377 02532 STO +0 60100 0 02555 02533 TSX +0 07400 4 00004 02534 TXH +3 00000 0 01357 02535 TXH +3 00000 0 01347 02536 TIX +2 01402 0 01373 02537 TXH +3 00000 0 00011 02540 TXH +3 00000 0 02555 02541 TXH +3 00000 0 00011 F'N 147 LM00184 02542 TRA +0 02000 0 02550 E'N 148 LM00185 02543 TSX +0 07400 4 00013 02544 TXH +3 00000 0 00000 02545 SXD -0 63400 1 02544 02546 SXA +0 63400 4 02550 02547 TRA +0 02000 2 00001 02550 AXT +0 77400 4 00000 02551 LXA +0 53400 2 02544 02552 LXD -0 53400 1 02544 02553 TRA +0 02000 4 00001 INTERNAL FUNCTION(X,Y) 149 LM00188 02556 TRA +0 02000 0 02645 E'O RDMF. 150 LM00189 02557 TRA +0 02000 0 02562 00037 TTR +0 02100 0 02560 02560 SXA +0 63400 2 02624 02561 TSX +0 07400 2 02624 RR BFREAD.(MFD,FILE,Z(7)...7,EX,-0,DSKER.) 151 LM00190 02562 CLS +0 50200 0 01377 02563 STO +0 60100 0 02644 02564 TSX +0 07400 4 00004 02565 TXH +3 00000 0 01357 02566 TXH +3 00000 0 01347 02567 TIX +2 01404 0 01367 02570 TXH +3 00000 0 00743 02571 TXH +3 00000 0 02644 02572 TXH +3 00000 0 00011 X=Z(7) 152 LM00191 02573 CLA +0 50000 0 01367 02574 STO +0 60100 0 00024 Y=Z(6) 153 LM00192 02575 CLA +0 50000 0 01370 02576 STO +0 60100 0 00024 W'R X.E.0.OR.Y.E.0.OR.X.E.UFD,T'O RR 154 LM00193 02577 CLA +0 50000 0 00024 02600 SUB +0 40200 0 01363 02601 TZE +0 10000 0 02610 02602 CLA +0 50000 0 00024 02603 SUB +0 40200 0 01377 02604 TZE +0 10000 0 02610 02605 CLA +0 50000 0 00024 02606 SUB +0 40200 0 01377 02607 TNZ -0 10000 0 02611 02610 TRA +0 02000 0 00745 W'R Y.RS.12.E.$00CMFL$,T'O RR 155 LM00194 02611 CAL -0 50000 0 01407 02612 STA +0 62100 0 02614 02613 CAL -0 50000 0 00024 02614 LGR -0 76500 0 00000 02615 SLW +0 60200 0 02644 02616 CLA +0 50000 0 02644 02617 SUB +0 40200 0 01416 02620 TNZ -0 10000 0 02622 02621 TRA +0 02000 0 00745 F'N 156 LM00195 02622 TRA +0 02000 0 02640 E'N 157 LM00196 02623 TSX +0 07400 4 00013 02624 TXH +3 00000 0 00000 02625 SXD -0 63400 1 02624 02626 SXA +0 63400 4 02640 02627 CLA +0 50000 4 00001 02630 STA +0 62100 0 02574 02631 STA +0 62100 0 02577 02632 STA +0 62100 0 02605 02633 CLA +0 50000 4 00002 02634 STA +0 62100 0 02576 02635 STA +0 62100 0 02602 02636 STA +0 62100 0 02613 02637 TRA +0 02000 2 00001 02640 AXT +0 77400 4 00000 02641 LXA +0 53400 2 02624 02642 LXD -0 53400 1 02624 02643 TRA +0 02000 4 00001 INTERNAL FUNCTION(M,N) 158 LM00199 02645 TRA +0 02000 0 02773 E'O SEND. 159 LM00200 02646 TRA +0 02000 0 02651 00040 TTR +0 02100 0 02647 02647 SXA +0 63400 2 02747 02650 TSX +0 07400 2 02747 Z=SMAIL.(M,N,LM,LTH,MAIL,BOX) 160 LM00202 02651 TSX +0 07400 4 00033 02652 TXH +3 00000 0 00024 02653 TXH +3 00000 0 00024 02654 TXH +3 00000 0 00045 02655 TXH +3 00000 0 01352 02656 TXH +3 00000 0 01353 02657 TXH +3 00000 0 01314 02660 STO +0 60100 0 01376 W'R Z.E.0 161 LM00203 02661 CLA +0 50000 0 01376 02662 SUB +0 40200 0 01377 02663 TNZ -0 10000 0 02666 F'N 162 LM00204 02664 TRA +0 02000 0 02767 O'R Z.E.4 163 LM00205 02665 TRA +0 02000 0 02745 02666 CLA +0 50000 0 01376 02667 SUB +0 40200 0 01403 02670 TNZ -0 10000 0 02702 PRFULL.(RX,M,RX,N,$ NOT FOUND.'B$) 164 LM00206 02671 TSX +0 07400 4 00030 02672 TXH +3 00000 0 01362 02673 TXH +3 00000 0 00024 02674 TXH +3 00000 0 01362 02675 TXH +3 00000 0 00024 02676 TXH +3 00000 0 01504 02677 TXH +3 00000 0 01467 02700 TXH +3 00000 0 01441 O'R Z.E.3 165 LM00207 02701 TRA +0 02000 0 02745 02702 CLA +0 50000 0 01376 02703 SUB +0 40200 0 01402 02704 TNZ -0 10000 0 02717 PRFULL.(RX,M,RX,N,$ DOES NOT WANT MAIL.'B$) 166 LM00208 02705 TSX +0 07400 4 00030 02706 TXH +3 00000 0 01362 02707 TXH +3 00000 0 00024 02710 TXH +3 00000 0 01362 02711 TXH +3 00000 0 00024 02712 TXH +3 00000 0 01500 02713 TXH +3 00000 0 01463 02714 TXH +3 00000 0 01464 02715 TXH +3 00000 0 01460 O'R Z.E.2 167 LM00209 02716 TRA +0 02000 0 02745 02717 CLA +0 50000 0 01376 02720 SUB +0 40200 0 01401 02721 TNZ -0 10000 0 02734 PRFULL.(RX,M,RX,N,$''S MAIL BOX IS BUSY.'B$) 168 LM00210 02722 TSX +0 07400 4 00030 02723 TXH +3 00000 0 01362 02724 TXH +3 00000 0 00024 02725 TXH +3 00000 0 01362 02726 TXH +3 00000 0 00024 02727 TXH +3 00000 0 01430 02730 TXH +3 00000 0 01453 02731 TXH +3 00000 0 01501 02732 TXH +3 00000 0 01521 O'E 169 LM00211 02733 TRA +0 02000 0 02745 PRFULL.($'R DISK ERROR SENDING TO'8$,M,N,$'B'8$) 170 LM00212 02734 TSX +0 07400 4 00030 02735 TXH +3 00000 0 01434 02736 TXH +3 00000 0 01457 02737 TXH +3 00000 0 01472 02740 TXH +3 00000 0 01454 02741 TXH +3 00000 0 01426 02742 TXH +3 00000 0 00024 02743 TXH +3 00000 0 00024 02744 TXH +3 00000 0 01432 E'L 171 LM00213 F'N 172 LM00215 02745 TRA +0 02000 0 02767 E'N 173 LM00216 02746 TSX +0 07400 4 00013 02747 TXH +3 00000 0 00000 02750 SXD -0 63400 1 02747 02751 SXA +0 63400 4 02767 02752 CLA +0 50000 4 00001 02753 STO +0 60100 0 02652 02754 STO +0 60100 0 02673 02755 STO +0 60100 0 02707 02756 STO +0 60100 0 02724 02757 STO +0 60100 0 02742 02760 CLA +0 50000 4 00002 02761 STO +0 60100 0 02653 02762 STO +0 60100 0 02675 02763 STO +0 60100 0 02711 02764 STO +0 60100 0 02726 02765 STO +0 60100 0 02743 02766 TRA +0 02000 2 00001 02767 AXT +0 77400 4 00000 02770 LXA +0 53400 2 02747 02771 LXD -0 53400 1 02747 02772 TRA +0 02000 4 00001 E'M 174 LM00218 02773 TSX +0 07400 4 00013 1 MAD PROGRAM LISTING ... ... ... FILE SMAIL MAD 03/18/69 1008.6 - ...FUCTION SENDS MAIL TO A USER LM00001 LM00002 EXTERNAL FUNCTION(AD1,AD2,BUF,N,N1,N2) *001 LM00003 ENTRY TO SMAIL. *002 LM00004 LM00005 NORMAL MODE IS INTEGER *003 LM00006 LM00007 A=4 *004 LM00008 UNLINK.(T1,T2,S1) *005 LM00009 S1 LINK.(T1,T2,AD1,AD2,N1,N2,0,S7) *006 LM00010 A=A-1 *007 LM00011 TILOCK.(S5) *008 LM00012 FSTATE.(T1,T2,MODE(1)...2,S2) *009 LM00013 WHENEVER MODE .A. 124K .NE. 0, TRANSFER TO S6 *010 LM00014 CHFILE.(T1,T2,1,-0,-0,S2) *011 LM00015 S2 OPEN.($W$,T1,T2,1,2,S6) *012 LM00016 A=A-1 *013 LM00017 BUFFER.(T1,T2,B1(432)...432) *014 LM00018 WRFILE.(T1,T2,0,BUF...N,-0,-0,S3) *015 LM00019 S3 CLOSE.(T1,T2,S4) *016 LM00020 A=A-1 *017 LM00021 S4 CHFILE.(T1,T2,0,-0,-0,S5) *018 LM00022 S5 A=A-1 *019 LM00023 S6 UNLINK.(T1,T2,S7) *020 LM00024 S7 FUNCTION RETURN A *021 LM00025 VECTOR VALUES T1=$TEM$ *022 LM00026 VECTOR VALUES T2=$BOX$ *023 LM00027 DIMENSION B1(432), MODE(1) *024 LM00028 END OF FUNCTION *025 LM00029 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01115 TRANSFER VECTOR LENGTH 00012 PROGRAM BEGINS 00720 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES SMAIL 00721 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) A 00022 1 S1 00013 4 S4 00016 4 S6 00020 4 T1 00706 A 1 B1 00703 A 1 S2 00014 4 S5 00017 4 S7 00021 4 T2 00707 A 1 MODE 00705 A 1 S3 00015 4 0FUNCTION DICTIONARY BUFFER 00000 1 CHFILE 00001 1 CLOSE 00002 1 EXIT 00003 1 FSTATE 00004 1 LINK 00005 1 OPEN 00006 1 TILOCK 00007 1 UNLINK 00010 1 WRFILE 00011 1 0ABSOLUTE CONSTANTS 00715 +000000000660 00717 -266060606060 00714 +000000000124 00712 +000000000002 00710 +000000000000 00713 +000000000004 00711 +000000000001 00716 +233000000000 0STATEMENT DICTIONARY 00013 TXL -300742000731 00014 TXL -301005000776 00015 TXL -301034001030 00016 TXL -301052001037 00017 TXL -301055001052 00020 TXL -301061001055 00021 TXL -301063001061 0PROGRAM EXTERNAL FUNCTION(AD1,AD2,BUF,N,N1,N2) 001 LM00003 E'O SMAIL. 002 LM00004 00720 TRA +0 02000 0 00723 00721 SXA +0 63400 2 01064 00722 TSX +0 07400 2 01064 N'R 003 LM00006 A=4 004 LM00008 00723 CLA +0 50000 0 00713 00724 STO +0 60100 0 00022 UNLINK.(T1,T2,S1) 005 LM00009 00725 TSX +0 07400 4 00010 00726 TXH +3 00000 0 00706 00727 TXH +3 00000 0 00707 00730 TXH +3 00000 0 00013 S1 LINK.(T1,T2,AD1,AD2,N1,N2,0,S7) 006 LM00010 00731 TSX +0 07400 4 00005 00732 TXH +3 00000 0 00706 00733 TXH +3 00000 0 00707 00734 TXH +3 00000 0 00024 00735 TXH +3 00000 0 00024 00736 TXH +3 00000 0 00024 00737 TXH +3 00000 0 00024 00740 TXH +3 00000 0 00710 00741 TXH +3 00000 0 00021 A=A-1 007 LM00011 00742 CLA +0 50000 0 00022 00743 SUB +0 40200 0 00711 00744 STO +0 60100 0 00022 TILOCK.(S5) 008 LM00012 00745 TSX +0 07400 4 00007 00746 TXH +3 00000 0 00017 FSTATE.(T1,T2,MODE(1)...2,S2) 009 LM00013 00747 TSX +0 07400 4 00004 00750 TXH +3 00000 0 00706 00751 TXH +3 00000 0 00707 00752 TIX +2 00712 0 00704 00753 TXH +3 00000 0 00014 W'R MODE .A. 124K .NE. 0, T'O S6 010 LM00014 00754 CAL -0 50000 0 00705 00755 ANA -0 32000 0 00714 00756 SLW +0 60200 0 01111 00757 CLA +0 50000 0 01111 00760 SUB +0 40200 0 00710 00761 TZE +0 10000 0 00763 00762 TRA +0 02000 0 00020 CHFILE.(T1,T2,1,-0,-0,S2) 011 LM00015 00763 CLS +0 50200 0 00710 00764 STO +0 60100 0 01111 00765 CLS +0 50200 0 00710 00766 STO +0 60100 0 01112 00767 TSX +0 07400 4 00001 00770 TXH +3 00000 0 00706 00771 TXH +3 00000 0 00707 00772 TXH +3 00000 0 00711 00773 TXH +3 00000 0 01112 00774 TXH +3 00000 0 01111 00775 TXH +3 00000 0 00014 S2 OPEN.($W$,T1,T2,1,2,S6) 012 LM00016 00776 TSX +0 07400 4 00006 00777 TXH +3 00000 0 00717 01000 TXH +3 00000 0 00706 01001 TXH +3 00000 0 00707 01002 TXH +3 00000 0 00711 01003 TXH +3 00000 0 00712 01004 TXH +3 00000 0 00020 A=A-1 013 LM00017 01005 CLA +0 50000 0 00022 01006 SUB +0 40200 0 00711 01007 STO +0 60100 0 00022 BUFFER.(T1,T2,B1(432)...432) 014 LM00018 01010 TSX +0 07400 4 00000 01011 TXH +3 00000 0 00706 01012 TXH +3 00000 0 00707 01013 TIX +2 00715 0 00023 WRFILE.(T1,T2,0,BUF...N,-0,-0,S3) 015 LM00019 01014 CLS +0 50200 0 00710 01015 STO +0 60100 0 01112 01016 CLS +0 50200 0 00710 01017 STO +0 60100 0 01111 01020 TSX +0 07400 4 00011 01021 TXH +3 00000 0 00706 01022 TXH +3 00000 0 00707 01023 TXH +3 00000 0 00710 01024 TIX +2 00400 0 00024 01025 TXH +3 00000 0 01111 01026 TXH +3 00000 0 01112 01027 TXH +3 00000 0 00015 S3 CLOSE.(T1,T2,S4) 016 LM00020 01030 TSX +0 07400 4 00002 01031 TXH +3 00000 0 00706 01032 TXH +3 00000 0 00707 01033 TXH +3 00000 0 00016 A=A-1 017 LM00021 01034 CLA +0 50000 0 00022 01035 SUB +0 40200 0 00711 01036 STO +0 60100 0 00022 S4 CHFILE.(T1,T2,0,-0,-0,S5) 018 LM00022 01037 CLS +0 50200 0 00710 01040 STO +0 60100 0 01112 01041 CLS +0 50200 0 00710 01042 STO +0 60100 0 01111 01043 TSX +0 07400 4 00001 01044 TXH +3 00000 0 00706 01045 TXH +3 00000 0 00707 01046 TXH +3 00000 0 00710 01047 TXH +3 00000 0 01111 01050 TXH +3 00000 0 01112 01051 TXH +3 00000 0 00017 S5 A=A-1 019 LM00023 01052 CLA +0 50000 0 00022 01053 SUB +0 40200 0 00711 01054 STO +0 60100 0 00022 S6 UNLINK.(T1,T2,S7) 020 LM00024 01055 TSX +0 07400 4 00010 01056 TXH +3 00000 0 00706 01057 TXH +3 00000 0 00707 01060 TXH +3 00000 0 00021 S7 F'N A 021 LM00025 01061 CLA +0 50000 0 00022 01062 TRA +0 02000 0 01105 V'S T1=$TEM$ 022 LM00026 00706 -2 32544 6 06060 V'S T2=$BOX$ 023 LM00027 00707 +2 24667 6 06060 D'N B1(432), MODE(1) 024 LM00028 E'N 025 LM00029 01063 TSX +0 07400 4 00003 01064 TXH +3 00000 0 00000 01065 SXD -0 63400 1 01064 01066 SXA +0 63400 4 01105 01067 CLA +0 50000 4 00001 01070 STO +0 60100 0 00734 01071 CLA +0 50000 4 00002 01072 STO +0 60100 0 00735 01073 CLA +0 50000 4 00003 01074 STA +0 62100 0 01024 01075 CLA +0 50000 4 00004 01076 ALS +0 76700 0 00022 01077 STD +0 62200 0 01024 01100 CLA +0 50000 4 00005 01101 STO +0 60100 0 00736 01102 CLA +0 50000 4 00006 01103 STO +0 60100 0 00737 01104 TRA +0 02000 2 00001 01105 AXT +0 77400 4 00000 01106 LXA +0 53400 2 01064 01107 LXD -0 53400 1 01064 01110 TRA +0 02000 4 00001 MOVE BCD 09/18/68 2318.3 5228 00000 1 MOVE - MOVE A FILE. PAGE 1 1/10/66 - NOEL I. MORRIS UNLIST M CALL MACRO SUBR,LIST TRANSFER VECTOR 00000 246242255160 DSKER 00001 234647706060 COPY 00660 RCOUNT EQU 432 1 MOVE - MOVE A FILE. PAGE 2 00002 CALL SETBRK(CHN) 00002 0074 00 4 00136 TSX SETBRK,4 .002 00003 3 00000 0 00102 PAR CHN .004 00004 CALL FERRTN SET FILE SYSTEM ERROR RETURN 00004 0074 00 4 00137 TSX FERRTN,4 .002 00005 0 00000 0 00000 PZE $DSKER .. 00006 CALL GETCLS((CBUF,,0)) GET COMMAND BUFFER CONTENTS 00006 0074 00 4 00140 TSX GETCLS,4 .002 00007 3 00000 0 00107 PAR CBUF,,0 .004 00010 -0500 00 0 00107 CAL CBUF PICK UP NAME OF COMMAND 00011 0322 00 0 00172 ERA =H APND CHECK FOR 'APND' 00012 0602 00 0 00134 SLW TRSW. IF 'APND', DON'T TRFILE 00013 0774 00 4 00003 AXT 3,4 CHECK FIRST THREE PARAMETERS 00014 -0500 00 4 00113 CAL CBUF+4,4 .. 00015 0322 00 0 00135 ERA FENCE FOR FENCE 00016 0100 00 0 00104 TZE ILPAR .. 00017 2 00001 4 00014 TIX *-3,4,1 .. 00020 -0500 00 0 00112 CAL O1 IF OUTPUT NAME 1 00021 0322 00 0 00173 ERA =H * IS AN ASTERISK, 00022 -0100 00 0 00025 TNZ *+3, .. 00023 -0500 00 0 00110 CAL I1 IT IS SAME AS 00024 0602 00 0 00112 SLW O1 INPUT NAME 1 00025 -0500 00 0 00113 CAL O2 IF OUTPUT NAME 2 00026 0322 00 0 00135 ERA FENCE IS NOT SPECIFIED, 00027 -0100 00 0 00032 TNZ *+3 .. 00030 -0500 00 0 00111 CAL I2 IT IS SAME AS 00031 0602 00 0 00113 SLW O2 INPUT NAME 2 00032 CALL GETMEM GET MEM BOUND AND ASSIGN BUFFERS 00032 0074 00 4 00141 TSX GETMEM,4 .002 00033 0621 00 0 00072 STA CALL+5 .. 00034 0361 00 0 00133 ACL NWDSPR .. 00035 0621 00 0 00073 STA CALL+6 .. 00036 0361 00 0 00133 ACL NWDSPR .. 00037 0621 00 0 00074 STA CALL+7 .. 00040 0361 00 0 00133 ACL NWDSPR .. 00041 EXTEND DBUF+3 .. 00041 0621 00 0 00064 STA DBUF+3 .003 00042 0361 00 0 00157 ACL =432 .002 00043 0074 00 4 00142 TSX SETMEM,4 .003 00044 CALL OPEN(=HW,O1,O2) OPEN OUTPUT FILE 00044 0074 00 4 00143 TSX OPEN,4 .002 00045 3 00000 0 00200 PAR =HW .004 00046 3 00000 0 00112 PAR O1 .004 00047 3 00000 0 00113 PAR O2 .004 1 MOVE - MOVE A FILE. PAGE 3 00050 CALL OPEN(=HR,I1,I2) OPEN INPUT FILE 00050 0074 00 4 00143 TSX OPEN,4 .002 00051 3 00000 0 00171 PAR =HR .004 00052 3 00000 0 00110 PAR I1 .004 00053 3 00000 0 00111 PAR I2 .004 00054 0520 00 0 00134 ZET TRSW. CHECK FOR TRUNCATION 00055 CALL TRFILE(O1,O2,=0) TRUNCATE OUTPUT 00055 0074 00 4 00144 TSX TRFILE,4 .002 00056 3 00000 0 00112 PAR O1 .004 00057 3 00000 0 00113 PAR O2 .004 00060 3 00000 0 00156 PAR =0 .004 00061 DBUF CALL BUFFER(O1,O2(**,,RCOUNT)) ASSIGN BUFFER 00061 0074 00 4 00145 TSX BUFFER,4 .002 00062 3 00000 0 00112 PAR O1 .004 00063 3 00000 0 00113 PAR O2 .004 00064 3 00660 0 00000 PAR **,,RCOUNT .004 00065 CALL CALL $COPY(I1,I2,O1,O2,**,**,**,NWDSPR,$DSKER) COPY THE FI 00065 0074 00 4 00001 TSX $COPY,4 .002 00066 3 00000 0 00110 PAR I1 .004 00067 3 00000 0 00111 PAR I2 .004 00070 3 00000 0 00112 PAR O1 .004 00071 3 00000 0 00113 PAR O2 .004 00072 3 00000 0 00000 PAR ** .004 00073 3 00000 0 00000 PAR ** .004 00074 3 00000 0 00000 PAR ** .004 00075 3 00000 0 00133 PAR NWDSPR .004 00076 3 00000 0 00000 PAR $DSKER .004 00077 CLOS CALL CLOSE(=HALL,=-0) CLOSE ALL FILES 00077 0074 00 4 00146 TSX CLOSE,4 .002 00100 3 00000 0 00160 PAR =HALL .004 00101 3 00000 0 00167 PAR =-0 .004 00102 CHN CALL CHNCOM(0) EXIT TO CHNCOM 00102 0074 00 4 00147 TSX CHNCOM,4 .002 00103 3 00000 0 00000 PAR 0 .004 00104 ILPAR COMENT NOTNUF,5,(INCOMPLETE SET OF PARAMETERS.) 00104 0074 00 4 00150 TSX WRFLX,4 .003 00105 3 00005 0 00151 PAR NOTNUF,,5 .005 00106 0021 00 0 00102 XIT CHN .. 1 MOVE - MOVE A FILE. PAGE 4 00107 CBUF BSS 20 00110 I1 SYN CBUF+1 00111 I2 SYN CBUF+2 00112 O1 SYN CBUF+3 00113 O2 SYN CBUF+4 00133 0 00000 0 06600 NWDSPR PZE 8*RCOUNT 00134 0 00000 0 00000 TRSW. PZE 0 00135 777777777777 FENCE VFD O36// 00136 RMT * REMOTE SEQUENCES. 00136 0101 00 0 00174 SETBRK TIA =HSETBRK .002 00137 0101 00 0 00164 FERRTN TIA =HFERRTN .002 00140 0101 00 0 00165 GETCLS TIA =HGETCLS .002 00141 0101 00 0 00166 GETMEM TIA =HGETMEM .002 00142 0101 00 0 00175 SETMEM TIA =HSETMEM .002 00143 0101 00 0 00170 OPEN TIA =HOPEN .002 00144 0101 00 0 00176 TRFILE TIA =HTRFILE .002 00145 0101 00 0 00161 BUFFER TIA =HBUFFER .002 00146 0101 00 0 00163 CLOSE TIA =HCLOSE .002 00147 0101 00 0 00162 CHNCOM TIA =HCHNCOM .002 00150 0101 00 0 00177 WRFLX TIA =HWRFLX .002 00151 314523464447 NOTNUF BCI 5,INCOMPLETE SET OF PARAMETERS. .002 00152 432563256062 00153 256360462660 00154 472151214425 00155 632551623360 END LITERALS 00156 000000000000 00157 000000000660 00160 214343606060 00161 226426262551 00162 233045234644 00163 234346622560 00164 262551516345 00165 272563234362 00166 272563442544 00167 400000000000 00170 464725456060 00171 516060606060 00172 606021474524 00173 606060606054 00174 622563225142 00175 622563442544 00176 635126314325 00177 665126436760 00200 666060606060 1 MOVE - MOVE A FILE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 201 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 110 I1 23, 52, 66, 133 111 I2 30, 53, 67, 133 112 O1 20, 24, 46, 56, 62, 70, 133 113 O2 25, 31, 47, 57, 63, 71, 133 102 CHN 3, 106 65 CALL 33, 35, 37 107 CBUF 7, 10, 14, 133 77 CLOS 1 COPY 65 61 DBUF 41 143 OPEN 44, 50 146 CLOSE 77 0 DSKER 5, 76 135 FENCE 15, 26 104 ILPAR 16 134 TRSW. 12, 54 150 WRFLX 104 145 BUFFER 61 147 CHNCOM 102 137 FERRTN 4 140 GETCLS 6 141 GETMEM 32 151 NOTNUF 105 133 NWDSPR 34, 36, 40, 75 660 RCOUNT 2, 64, 133 136 SETBRK 2 142 SETMEM 43 144 TRFILE 55 0 NO ERROR IN ABOVE ASSEMBLY. 1 COPY - COPY ONE FILE INTO ANOTHER. PAGE 1 1/18/66 - NOEL I. MORRIS * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * CALLING SEQUENCE - * * COPY. (IN1, IN2, OUT1, OUT2, BUFF1, BUFF2, BUFF3, NWDSPR, ERRET) * * IN1 = PRIMARY NAME OF INPUT FILE. * IN2 = SECONDARY NAME OF INPUT FILE. * OUT1 = PRIMARY NAME OF OUTPUT FILE. * OUT2 = SECONDARY NAME OF OUTPUT FILE. * BUFF1, BUFF2, AND BUFF3 ARE DISK BUFFERS. * NWDSPR = LENGTH OF THE DISK BUFFERS. * ERRET = FILE SYSTEM ERROR RETURN. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * UNLIST M CALL MACRO SUBR,LIST 00000 ENTRY COPY 00000 0634 00 1 00107 COPY SXA X1,1 SAVE XRS 00001 0634 00 2 00110 SXA X2,2 .. 00002 0634 00 4 00111 SXA X4,4 .. 00003 -0500 60 4 00001 CAL* 1,4 GET IN1 00004 0602 00 0 00170 SLW IN1 .. 00005 -0500 60 4 00002 CAL* 2,4 GET IN2 00006 0602 00 0 00171 SLW IN2 .. 00007 -0500 60 4 00003 CAL* 3,4 GET OUT1 00010 0602 00 0 00172 SLW OUT1 .. 00011 -0500 60 4 00004 CAL* 4,4 GET OUT2 00012 0602 00 0 00173 SLW OUT2 .. 00013 -0500 00 4 00005 CAL 5,4 GET BUFFER ADDRESSES 00014 0621 00 0 00151 STA BUFF1 .. 00015 -0500 00 4 00006 CAL 6,4 .. 00016 0621 00 0 00152 STA BUFF2 .. 00017 -0500 00 4 00007 CAL 7,4 .. 00020 0621 00 0 00153 STA BUFF3 .. 00021 -0500 60 4 00010 CAL* 8,4 GET RECORD COUNT 00022 0602 00 0 00154 SLW EOFCT .. 00023 0602 00 0 00155 SLW EOFCT+1 .. 00024 0602 00 0 00156 SLW EOFCT+2 .. 00025 CALL FERRTN SET UP FILE SYSTEM ERROR RETURN 00025 0074 00 4 00174 TSX FERRTN,4 .002 00026 0 00000 0 00141 PZE ERR .. 00027 0621 00 0 00106 STA RETERR SAVE OLD ERROR RETURN 1 COPY - COPY ONE FILE INTO ANOTHER. PAGE 2 00030 0600 00 0 00166 STZ TEOF RESET EOF INDIC. 00031 -0625 00 0 00165 STL FIRST SET FIRST TIME INDIC. 00032 CALL FSTATE(IN1,IN2(STAT,,5)) PICK UP INPUT FILE STATUS 00032 0074 00 4 00175 TSX FSTATE,4 .002 00033 3 00000 0 00170 PAR IN1 .004 00034 3 00000 0 00171 PAR IN2 .004 00035 3 00005 0 00157 PAR STAT,,5 .004 00036 -0774 00 1 00000 AXC 0,1 INITIALIZE INPUT BUFFER INDEX 00037 -0774 00 2 00000 AXC 0,2 INITIALIZE OUTPUT BUFFER INDEX 00040 LOOP SYN * 00040 0520 00 0 00166 ZET TEOF CHECK FOR PREVIOUS EOF 00041 0020 00 0 00065 TRA CONTIN SKIP READ IF SO 00042 -0500 00 1 00151 CAL BUFLOC,1 SET BUFFER FOR READ 00043 0602 00 0 00050 SLW RD+4 .. 00044 RD CALL RDFILE(IN1,IN2,=0(**,...,**)EOF,COUNT) READ 00044 0074 00 4 00176 TSX RDFILE,4 .002 00045 3 00000 0 00170 PAR IN1 .004 00046 3 00000 0 00171 PAR IN2 .004 00047 3 00000 0 00201 PAR =0 .004 00050 2 00000 0 00000 BLK **,,** .004 00051 3 00000 0 00113 PAR EOF .004 00052 3 00000 0 00164 PAR COUNT .004 00053 0500 00 0 00163 CLA R.PTR STEP THE READ POINTER 00054 0400 00 0 00154 ADD EOFCT BY BUFFER LENGTH 00055 0602 00 0 00163 SLW R.PTR .. 00056 1 77777 1 00057 TXI *+1,1,-1 STEP READ BUFFER INDEX 00057 3 77775 1 00061 TXH *+2,1,-3 .. 00060 -0774 00 1 00000 AXC 0,1 .. 00061 -0520 00 0 00165 NZT FIRST IF NOT FIRST TIME, 00062 0020 00 0 00065 TRA CONTIN KEEP GOING 00063 0600 00 0 00165 STZ FIRST OTHERWISE, 00064 0020 00 0 00040 TRA LOOP GO READ ANOTHER RECORD 00065 -0500 00 2 00151 CONTIN CAL BUFLOC,2 SET BUFFER FOR WRITE 00066 0602 00 0 00073 SLW WR+4 .. 00067 WR CALL WRFILE(OUT1,OUT2,=0(**,...,**)) WRITE 00067 0074 00 4 00177 TSX WRFILE,4 .002 00070 3 00000 0 00172 PAR OUT1 .004 00071 3 00000 0 00173 PAR OUT2 .004 00072 3 00000 0 00201 PAR =0 .004 00073 2 00000 0 00000 BLK **,,** .004 00074 -0520 00 0 00166 NZT TEOF IF EOF, 00075 0020 00 0 00101 TRA WINCR .. 00076 0756 00 2 00000 PCA ,2 CHECK FOR HAVING WRITTEN LAST RECORD 1 COPY - COPY ONE FILE INTO ANOTHER. PAGE 3 00077 0402 00 0 00167 SUB EOFX .. 00100 0100 00 0 00105 TZE FINISH .. 00101 1 77777 2 00102 WINCR TXI *+1,2,-1 STEP WRITE BUFFER INDEX 00102 3 77775 2 00104 TXH *+2,2,-3 .. 00103 -0774 00 2 00000 AXC 0,2 .. 00104 0020 00 0 00040 TRA LOOP CONTINUE COPYING 00105 FINISH SYN * 00105 CALL FERRTN RESTORE OLD ERROR RETURN 00105 0074 00 4 00174 TSX FERRTN,4 .002 00106 0 00000 0 00000 RETERR PZE ** .. 00107 0774 00 1 00000 X1 AXT **,1 RESTORE XRS 00110 0774 00 2 00000 X2 AXT **,2 .. 00111 0774 00 4 00000 X4 AXT **,4 .. 00112 0020 00 4 00012 TRA 10,4 RETURN 00113 -0625 00 0 00166 EOF STL TEOF SET EOF INDIC. 00114 CALL FSTATE(IN1,IN2(STAT,,1)) FIND LENGTH NOW 00114 0074 00 4 00175 TSX FSTATE,4 .002 00115 3 00000 0 00170 PAR IN1 .004 00116 3 00000 0 00171 PAR IN2 .004 00117 3 00001 0 00157 PAR STAT,,1 .004 00120 0500 00 0 00157 CLA STAT LENGTH + 1 - POINTER 00121 0400 00 0 00202 ADD =1 .. 00122 0402 00 0 00163 SUB R.PTR .. 00123 0402 00 0 00164 SUB COUNT SHOULD EQUAL EOF COUNT 00124 0100 00 0 00132 TZE EOF.OK IF SO, NOTHING TO CORRECT 00125 0400 00 0 00154 ADD EOFCT LENGTH + 1 - POINTER + BUFFER LENGTH 00126 0601 00 0 00164 STO COUNT IS THE CORRECT EOF COUNT 00127 3 00000 1 00131 TXH *+2,1,0 DECREASE THE READ BUFFER INDEX 00130 -0774 00 1 00003 AXC 3,1 .. 00131 1 00001 1 00132 TXI *+1,1,1 TO CORRECT FOR MISSED EOF 00132 -0500 00 0 00164 EOF.OK CAL COUNT SET EOF COUNT 00133 0602 00 1 00154 SLW EOFCT,1 .. 00134 0636 00 1 00167 SCA EOFX,1 SAVE READ BUFFER INDEX 00135 CALL FWAIT(IN1,IN2) WAIT FOR I/O 00135 0074 00 4 00200 TSX FWAIT,4 .002 00136 3 00000 0 00170 PAR IN1 .004 00137 3 00000 0 00171 PAR IN2 .004 00140 0020 00 0 00065 TRA CONTIN NOW, FINISH UP 00141 -0500 00 0 00106 ERR CAL RETERR RESTORE OLD ERROR RETURN 00142 0621 00 0 00144 STA *+2 .. 00143 CALL FERRTN .. 00143 0074 00 4 00174 TSX FERRTN,4 .002 00144 0 00000 0 00000 PZE ** .. 1 COPY - COPY ONE FILE INTO ANOTHER. PAGE 4 00145 0522 00 0 00107 XEC X1 RESTORE XRS 00146 0522 00 0 00110 XEC X2 .. 00147 0522 00 0 00111 XEC X4 .. 00150 0020 60 4 00011 TRA* 9,4 AND TAKE ERROR RETURN 00151 BUFLOC SYN * 00151 2 00154 0 00000 BUFF1 PTW **,,EOFCT 00152 2 00155 0 00000 BUFF2 PTW **,,EOFCT+1 00153 2 00156 0 00000 BUFF3 PTW **,,EOFCT+2 00154 EOFCT BSS 3 00157 STAT BSS 5 00163 R.PTR SYN STAT+4 00164 0 00000 0 00000 COUNT PZE 00165 0 00000 0 00000 FIRST PZE 00166 0 00000 0 00000 TEOF PZE 00167 0 00000 0 00000 EOFX PZE 00170 0 00000 0 00000 IN1 PZE 00171 0 00000 0 00000 IN2 PZE 00172 0 00000 0 00000 OUT1 PZE 00173 0 00000 0 00000 OUT2 PZE 00174 RMT * REMOTE SEQUENCES. 00174 0101 00 0 00203 FERRTN TIA =HFERRTN .002 00175 0101 00 0 00204 FSTATE TIA =HFSTATE .002 00176 0101 00 0 00206 RDFILE TIA =HRDFILE .002 00177 0101 00 0 00207 WRFILE TIA =HWRFILE .002 00200 0101 00 0 00205 FWAIT TIA =HFWAIT .002 END LITERALS 00201 000000000000 00202 000000000001 00203 262551516345 00204 266263216325 00205 266621316360 00206 512426314325 00207 665126314325 1 COPY - COPY ONE FILE INTO ANOTHER. PAGE 1 POST PROCESSOR ASSEMBLY DATA 210 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 44 RD 43 67 WR 66 107 X1 0, 145 110 X2 1, 146 111 X4 2, 147 113 EOF 51 141 ERR 26 170 IN1 4, 33, 45, 115, 136 171 IN2 6, 34, 46, 116, 137 0 COPY 0 167 EOFX 77, 134 40 LOOP 40, 64, 104 172 OUT1 10, 70 173 OUT2 12, 71 157 STAT 35, 117, 120, 164 166 TEOF 30, 40, 74, 113 151 BUFF1 14 152 BUFF2 16 153 BUFF3 20 164 COUNT 52, 123, 126, 132 154 EOFCT 22, 23, 24, 54, 125, 133, 151, 152, 153 165 FIRST 31, 61, 63 200 FWAIT 135 163 R.PTR 53, 55, 122, 164 101 WINCR 75 151 BUFLOC 42, 65, 151 65 CONTIN 41, 62, 140 132 EOF.OK 124 174 FERRTN 25, 105, 143 105 FINISH 100, 105 175 FSTATE 32, 114 176 RDFILE 44 106 RETERR 27, 141 177 WRFILE 67 0 NO ERROR IN ABOVE ASSEMBLY. NOCMMD BCD 10/04/70 1632.0 283 00000 1 PAGE 1 TRANSFER VECTOR 00000 272563234644 GETCOM 00001 665126436760 WRFLX 00002 0074 00 4 00000 TSX $GETCOM,4 00003 0 00000 0 00000 PZE 0 GET CURRNT COMMAND NAME 00004 0602 00 0 00011 SLW MESS+1 00005 0074 00 4 00001 TSX $WRFLX,4 00006 0 00011 0 00010 PZE MESS,,9 00007 0101 00 0 00021 TIA =HDEAD 00010 606063302560 MESS BCI 9, THE ****** COMMAND IS NOT CURRENTLY AVAILABLE. 00011 545454545454 00012 602346444421 00013 452460316260 00014 454663602364 00015 515125456343 00016 706021652131 00017 432122432533 00020 606060606060 END LITERALS 00021 242521246060 1 PAGE 1 POST PROCESSOR ASSEMBLY DATA 22 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 10 MESS 4, 6 1 WRFLX 5 0 GETCOM 2 0 NO ERROR IN ABOVE ASSEMBLY. OPTION BCD 10/04/70 1632.0 6463 00000 1 MAD PROGRAM LISTING ... ... ... FILE OPTION MAD 03/03/70 1030.8 - OPT ...OPTION COMMAND LM00001 LM00002 NORMAL MODE IS INTEGER *001 LM00003 GETCLS.(CBF(20)) *002 LM00004 LM00005 WHENEVER CBF(19) .E. FNS *003 LM00006 PR12.($'*'6OPTION'7 ARGS$) *004 LM00007 PR12.($ ARGS MAY BE$) *005 LM00008 PR12.($ '6PRINT'7'/'/TO PRINT OPTION STATUS$) *006 LM00009 PR12.($ '6SETSYS'7 SYSNAM MASK'/TO SET UP SUBSYSTEM$) *007 LM00010 PR12.($ '6SET'7 BITS'/'/TO TURN ON USER OPTION BITS$) *008 LM00011 PR12.($ '6RESET'7 BITS'/TO TURN OFF OPTION BITS$) *009 LM00012 PR12.($ '6LOAD'7 BITS'/TO LOAD A NEW SET OF OPTIONS$) *010 LM00013 PR12.($ '6HELP'7'/'/FOR A SUMMARY OF OPTIONS '+ MASK$) *011 LM00014 PR12. *012 LM00015 LM00016 OR WHENEVER CBF(19) .E. $SETSYS$ *013 LM00017 SYSNAM = CBF(18) *014 LM00018 WHENEVER SYSNAM .E. FNS *015 LM00019 FOO PR12.($ ILLEGAL OPTION COMMAND.$) *016 LM00020 XIT CHNCOM.(0) *017 LM00021 END OF CONDITIONAL *018 LM00022 BITS = ZEL.(CBF(17)) *019 LM00023 WHENEVER BITS .A. $YYYYYY$ .NE. 0 *020 LM00024 BADBIT PR12.($ ILLEGAL BITS$) *021 LM00025 TRANSFER TO XIT *022 LM00026 END OF CONDITIONAL *023 LM00027 SETSYS.(SYSNAM, BCOCT.(BITS)) *024 LM00028 LM00029 OR WHENEVER CBF(19) .E. $ SET$ *025 LM00030 BITS = ZEL.(CBF(18)) *026 LM00031 WHENEVER BITS .A. $YYYYYY$ .NE. 0, TRANSFER TO BADBIT *027 LM00032 SETOPT.(BCOCT.(BITS)) *028 LM00033 LM00034 OR WHENEVER CBF(19) .E. $ RESET$ *029 LM00035 BITS = ZEL.(CBF(18)) *030 LM00036 WHENEVER BITS .A. $YYYYYY$ .NE. 0, TRANSFER TO BADBIT *031 LM00037 RSOPT.(BCOCT.(BITS)) *032 LM00038 LM00039 OR WHENEVER CBF(19) .E. $ LOAD$ *033 LM00040 BITS = ZEL.(CBF(18)) *034 LM00041 WHENEVER BITS .A. $YYYYYY$ .NE. 0, TRANSFER TO BADBIT *035 LM00042 LDOPT.(BCOCT.(BITS)) *036 LM00043 LM00044 OR WHENEVER CBF(19) .E. $ HELP$ *037 LM00045 PR12.($'USER OPTIONS:$) *038 LM00046 PR12.($ 1. SEARCH USER 'U'F'D FIRST FOR COMMAND FILE$) *039 LM00047 PR12.($ 2. SEARCH FOR COMMANDS IN USER OR SYSTEM DIRECT *040 LM00048 1 ORIES, BUT NOT BOTH$) *040 LM00049 PR12.($ 4. RESET ACTIVE FILES IF NEW COMMAND WHILE DORM *041 LM00050 1 ANT RESETS CORE IMAGE$) *041 LM00051 PR12.($ 10. ENABLE USER SUBSYSTEM$) *042 LM00052 PR12.($ 20. INHIBIT QUIT SIGNALS FROM CONSOLE$) *043 LM00053 PR12.($ 40. CURRENT PROGRAM IS SUBSYSTEM$) *044 LM00054 PR12.($ 100. AUTOMATIC SAVE WHEN GOING TO SUBSYSTEM$) *045 LM00055 PR12.($'*'SUBSYSTEM CONDITION CODE MASK:$) *046 LM00056 PR12.($ 1. TRAP NEW COMMAND IF '6DEAD$) *047 LM00057 PR12.($ 2. TRAP PROGRAM CALL TO '6DEAD$) *048 LM00058 PR12.($ 4. TRAP END OF COMMAND CHAIN IF GOING '6DEAD *049 LM00059 1 $) *049 LM00060 PR12.($ 10. TRAP ERROR IF GOING '6DEAD$) *050 LM00061 PR12.($ 1000. TRAP NEW COMMAND IF '6DORMNT$) *051 LM00062 PR12.($ 2000. TRAP CALL TO '6DORMNT$) *052 LM00063 PR12.($ 4000. TRAP END OF CHAIN IF '6DORMNT$) *053 LM00064 PR12.($ 10000. TRAP ERROR IF GOING '6DORMNT$) *054 LM00065 PR12. *055 LM00066 LM00067 OR WHENEVER CBF(19) .E. $ PRINT$ *056 LM00068 GETSYS.(SYSNAM, BITS) *057 LM00069 OBITS = GETOPT.(0) *058 LM00070 PR12.($'*'CURRENT OPTION STATUS:$) *059 LM00071 PR12.($ OPTION BITS: '8$,OCRBC.(OBITS)) *060 LM00072 WHENEVER OBITS .A. 10K .NE. 0 *061 LM00073 PR12.($ SUBSYSTEM: '6'8$,SYSNAM) *062 LM00074 PR12.($ SUBSYSTEM MASK: '8$,OCRBC.(BITS)) *063 LM00075 OTHERWISE *064 LM00076 PR12.($ NO SUBSYSTEM$) *065 LM00077 END OF CONDITIONAL *066 LM00078 PR12. *067 LM00079 LM00080 OTHERWISE *068 LM00081 TRANSFER TO FOO *069 LM00082 END OF CONDITIONAL *070 LM00083 CHNCOM.(0) *071 LM00084 LM00085 VECTOR VALUES FNS = 777777777777K *072 LM00086 DIMENSION CBF(20) *073 LM00087 END OF PROGRAM *074 LM00088 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01101 TRANSFER VECTOR LENGTH 00016 PROGRAM BEGINS 00330 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BADBIT 00017 4 CBF 00047 A 1 FOO 00020 4 SYSNAM 00052 1 XIT 00021 4 BITS 00022 1 FNS 00050 A 1 OBITS 00051 1 0FUNCTION DICTIONARY BCOCT 00000 1 CHNCOM 00001 1 EXIT 00002 1 GETCLS 00003 1 GETOPT 00004 1 GETSYS 00005 1 .SETUP 00006 1 LDOPT 00007 1 OCRBC 00010 1 PR12 00011 1 RSOPT 00012 1 SETOPT 00013 1 SETSYS 00014 1 ZEL 00015 1 0ABSOLUTE CONSTANTS 00154 -046060606060 00103 +226270626325 00234 -204546606264 00077 +216242356014 00301 -226325446044 00056 +061410606060 00260 -206060606014 00300 -226325443560 00055 +000000000010 00061 +106060606060 00145 +356060606014 00161 -056022316362 00146 +356060606060 00200 -112545636046 00065 +145414236451 00240 -204751314563 00206 -200100000000 00315 -236060606060 00060 +062446514445 00162 -056031266014 00123 +266023302131 00245 -206004000000 00172 -065144456360 00312 -234660140624 00217 -202321434360 00244 -206002000000 00112 +244651444563 00243 -206001000000 00127 +314527601406 00226 -203126602746 00223 -202551514651 00113 +246060606060 00207 -201406242521 00224 -202746314527 00071 +213145603126 00075 +214524602330 00124 +266023464444 00222 -202545246046 00057 +062425212460 00150 -036063466014 00074 +214460232143 00241 -204751462751 00110 +242521246060 00225 -203126601406 00170 -064444214524 00233 -204525666023 00144 +336063512147 00274 -224235606060 00166 -062425604421 00311 -233146456023 00221 -202346452431 00066 +145414626422 00302 -226325446060 00262 -206264226270 00130 +314527606346 00125 +302545602746 00270 -222165256066 00151 -042163312360 00136 +336021646346 00251 -206060010000 00306 -227062632544 00133 +316260626422 00167 -062751214460 00115 +254563604751 00137 +336023645151 00254 -206060600400 00163 -056246432560 00202 -114644602346 00155 -052143626026 00134 +316360623127 00101 +223163605064 00141 +336031453031 00253 -206060600200 00326 -306263254460 00204 -116062642262 00147 -032560646225 00140 +336025452122 00252 -206060600100 00117 +256031442127 00320 -236260234651 00314 -236051256225 00111 +244651442145 00325 -263031432560 00153 -044421452460 00160 -052566602346 00121 +256260312660 00324 -252560263143 00313 -236021236331 00142 +336051256225 00257 -206060606004 00216 -202246633060 00323 -246360454663 00126 +312562736022 00177 -112523634651 00307 -232544602431 00173 -065160627062 00264 -206462255160 00157 -052462603145 00105 +233060264651 00256 -206060606002 00156 -052460263143 00220 -202346444421 00303 -226360264651 00063 +142460263151 00203 -116014641426 00106 +233060646225 00143 +336062252151 00255 -206060606001 00273 -223560606060 00070 +146462255160 00247 -206030254347 00250 -206043462124 00242 -205125622563 00261 -206060622563 00276 -226060606060 00072 +214360223163 00327 -307070707070 00053 +000000000000 00152 -044421452433 00132 +314645602346 00073 +214360464763 00227 -203143432527 00272 -222563627062 00100 +216242606060 00275 -226014206044 00171 -064763314645 00205 -117060462660 00263 -206264444421 00265 -212646516021 00175 -071407146114 00210 -201406302543 00164 -056260606060 00237 -204647633146 00271 -222563604626 00076 +216045256660 00230 -204346212460 00317 -236214616346 00107 +241407602231 00211 -201406434621 00102 +223163626060 00235 -204626266046 00135 +316362146163 00122 +256314076022 00213 -201406512562 00321 -236260606060 00131 +314645602231 00116 +255160464763 00236 -204645606462 00174 -066063645145 00267 -221461146163 00062 +140760223163 00114 +254460606060 00322 -242262706263 00316 -236064476062 00266 -216346606225 00231 -204421624214 00305 -227062452144 00304 -227062140760 00214 -201406622563 00277 -226321636462 00176 -076331464560 00201 -113145636046 00067 +146163466047 00165 -056314071461 00212 -201406475131 00120 +256060606060 00232 -204421706022 00246 -206021512762 00215 -202151276260 00310 -233146451407 00064 +145414064647 00054 +000000000001 00104 +233000000000 0STATEMENT DICTIONARY 00017 TXL -300467000463 00020 TXL -300450000443 00021 TXL -300452000450 0PROGRAM N'R 001 LM00003 GETCLS.(CBF(20)) 002 LM00004 00330 TSX +0 07400 4 00006 00331 TSX +0 07400 4 00003 00332 TXH +3 00000 0 00023 W'R CBF(19) .E. FNS 003 LM00006 00333 CLA +0 50000 0 00024 00334 SUB +0 40200 0 00050 00335 TNZ -0 10000 0 00433 PR12.($'*'6OPTION'7 ARGS$) 004 LM00007 00336 TSX +0 07400 4 00011 00337 TXH +3 00000 0 00064 00340 TXH +3 00000 0 00310 00341 TXH +3 00000 0 00215 PR12.($ ARGS MAY BE$) 005 LM00008 00342 TSX +0 07400 4 00011 00343 TXH +3 00000 0 00246 00344 TXH +3 00000 0 00232 00345 TXH +3 00000 0 00120 PR12.($ '6PRINT'7'/'/TO PRINT OPTION STATUS$) 006 LM00009 00346 TSX +0 07400 4 00011 00347 TXH +3 00000 0 00212 00350 TXH +3 00000 0 00165 00351 TXH +3 00000 0 00067 00352 TXH +3 00000 0 00201 00353 TXH +3 00000 0 00176 00354 TXH +3 00000 0 00277 PR12.($ '6SETSYS'7 SYSNAM MASK'/TO SET UP SUBSYSTEM$) 007 LM00010 00355 TSX +0 07400 4 00011 00356 TXH +3 00000 0 00214 00357 TXH +3 00000 0 00304 00360 TXH +3 00000 0 00305 00361 TXH +3 00000 0 00231 00362 TXH +3 00000 0 00266 00363 TXH +3 00000 0 00316 00364 TXH +3 00000 0 00322 00365 TXH +3 00000 0 00114 PR12.($ '6SET'7 BITS'/'/TO TURN ON USER OPTION BITS$) 008 LM00011 00366 TSX +0 07400 4 00011 00367 TXH +3 00000 0 00214 00370 TXH +3 00000 0 00062 00371 TXH +3 00000 0 00267 00372 TXH +3 00000 0 00174 00373 TXH +3 00000 0 00236 00374 TXH +3 00000 0 00116 00375 TXH +3 00000 0 00131 00376 TXH +3 00000 0 00321 PR12.($ '6RESET'7 BITS'/TO TURN OFF OPTION BITS$) 009 LM00012 00377 TSX +0 07400 4 00011 00400 TXH +3 00000 0 00213 00401 TXH +3 00000 0 00122 00402 TXH +3 00000 0 00135 00403 TXH +3 00000 0 00174 00404 TXH +3 00000 0 00235 00405 TXH +3 00000 0 00176 00406 TXH +3 00000 0 00102 PR12.($ '6LOAD'7 BITS'/TO LOAD A NEW SET OF OPTIONS$) 010 LM00013 00407 TSX +0 07400 4 00011 00410 TXH +3 00000 0 00211 00411 TXH +3 00000 0 00107 00412 TXH +3 00000 0 00317 00413 TXH +3 00000 0 00230 00414 TXH +3 00000 0 00076 00415 TXH +3 00000 0 00271 00416 TXH +3 00000 0 00237 00417 TXH +3 00000 0 00164 PR12.($ '6HELP'7'/'/FOR A SUMMARY OF OPTIONS '+ MASK$) 011 LM00014 00420 TSX +0 07400 4 00011 00421 TXH +3 00000 0 00210 00422 TXH +3 00000 0 00175 00423 TXH +3 00000 0 00265 00424 TXH +3 00000 0 00263 00425 TXH +3 00000 0 00205 00426 TXH +3 00000 0 00171 00427 TXH +3 00000 0 00275 00430 TXH +3 00000 0 00100 PR12. 012 LM00015 00431 TSX +0 07400 4 00011 O'R CBF(19) .E. $SETSYS$ 013 LM00017 00432 TRA +0 02000 0 01073 00433 CLA +0 50000 0 00024 00434 SUB +0 40200 0 00272 00435 TNZ -0 10000 0 00477 SYSNAM = CBF(18) 014 LM00018 00436 CLA +0 50000 0 00025 00437 STO +0 60100 0 00052 W'R SYSNAM .E. FNS 015 LM00019 00440 CLA +0 50000 0 00052 00441 SUB +0 40200 0 00050 00442 TNZ -0 10000 0 00452 FOO PR12.($ ILLEGAL OPTION COMMAND.$) 016 LM00020 00443 TSX +0 07400 4 00011 00444 TXH +3 00000 0 00227 00445 TXH +3 00000 0 00073 00446 TXH +3 00000 0 00132 00447 TXH +3 00000 0 00152 XIT CHNCOM.(0) 017 LM00021 00450 TSX +0 07400 4 00001 00451 TXH +3 00000 0 00053 E'L 018 LM00022 BITS = ZEL.(CBF(17)) 019 LM00023 00452 TSX +0 07400 4 00015 00453 TXH +3 00000 0 00026 00454 STO +0 60100 0 00022 W'R BITS .A. $YYYYYY$ .NE. 0 020 LM00024 00455 CAL -0 50000 0 00022 00456 ANA -0 32000 0 00327 00457 SLW +0 60200 0 01076 00460 CLA +0 50000 0 01076 00461 SUB +0 40200 0 00053 00462 TZE +0 10000 0 00470 BADBIT PR12.($ ILLEGAL BITS$) 021 LM00025 00463 TSX +0 07400 4 00011 00464 TXH +3 00000 0 00227 00465 TXH +3 00000 0 00072 00466 TXH +3 00000 0 00276 T'O XIT 022 LM00026 00467 TRA +0 02000 0 00021 E'L 023 LM00027 SETSYS.(SYSNAM, BCOCT.(BITS)) 024 LM00028 00470 TSX +0 07400 4 00000 00471 TXH +3 00000 0 00022 00472 STO +0 60100 0 01076 00473 TSX +0 07400 4 00014 00474 TXH +3 00000 0 00052 00475 TXH +3 00000 0 01076 O'R CBF(19) .E. $ SET$ 025 LM00030 00476 TRA +0 02000 0 01073 00477 CLA +0 50000 0 00024 00500 SUB +0 40200 0 00261 00501 TNZ -0 10000 0 00522 BITS = ZEL.(CBF(18)) 026 LM00031 00502 TSX +0 07400 4 00015 00503 TXH +3 00000 0 00025 00504 STO +0 60100 0 00022 W'R BITS .A. $YYYYYY$ .NE. 0, T'O BADBIT 027 LM00032 00505 CAL -0 50000 0 00022 00506 ANA -0 32000 0 00327 00507 SLW +0 60200 0 01076 00510 CLA +0 50000 0 01076 00511 SUB +0 40200 0 00053 00512 TZE +0 10000 0 00514 00513 TRA +0 02000 0 00017 SETOPT.(BCOCT.(BITS)) 028 LM00033 00514 TSX +0 07400 4 00000 00515 TXH +3 00000 0 00022 00516 STO +0 60100 0 01076 00517 TSX +0 07400 4 00013 00520 TXH +3 00000 0 01076 O'R CBF(19) .E. $ RESET$ 029 LM00035 00521 TRA +0 02000 0 01073 00522 CLA +0 50000 0 00024 00523 SUB +0 40200 0 00242 00524 TNZ -0 10000 0 00545 BITS = ZEL.(CBF(18)) 030 LM00036 00525 TSX +0 07400 4 00015 00526 TXH +3 00000 0 00025 00527 STO +0 60100 0 00022 W'R BITS .A. $YYYYYY$ .NE. 0, T'O BADBIT 031 LM00037 00530 CAL -0 50000 0 00022 00531 ANA -0 32000 0 00327 00532 SLW +0 60200 0 01076 00533 CLA +0 50000 0 01076 00534 SUB +0 40200 0 00053 00535 TZE +0 10000 0 00537 00536 TRA +0 02000 0 00017 RSOPT.(BCOCT.(BITS)) 032 LM00038 00537 TSX +0 07400 4 00000 00540 TXH +3 00000 0 00022 00541 STO +0 60100 0 01076 00542 TSX +0 07400 4 00012 00543 TXH +3 00000 0 01076 O'R CBF(19) .E. $ LOAD$ 033 LM00040 00544 TRA +0 02000 0 01073 00545 CLA +0 50000 0 00024 00546 SUB +0 40200 0 00250 00547 TNZ -0 10000 0 00570 BITS = ZEL.(CBF(18)) 034 LM00041 00550 TSX +0 07400 4 00015 00551 TXH +3 00000 0 00025 00552 STO +0 60100 0 00022 W'R BITS .A. $YYYYYY$ .NE. 0, T'O BADBIT 035 LM00042 00553 CAL -0 50000 0 00022 00554 ANA -0 32000 0 00327 00555 SLW +0 60200 0 01076 00556 CLA +0 50000 0 01076 00557 SUB +0 40200 0 00053 00560 TZE +0 10000 0 00562 00561 TRA +0 02000 0 00017 LDOPT.(BCOCT.(BITS)) 036 LM00043 00562 TSX +0 07400 4 00000 00563 TXH +3 00000 0 00022 00564 STO +0 60100 0 01076 00565 TSX +0 07400 4 00007 00566 TXH +3 00000 0 01076 O'R CBF(19) .E. $ HELP$ 037 LM00045 00567 TRA +0 02000 0 01073 00570 CLA +0 50000 0 00024 00571 SUB +0 40200 0 00247 00572 TNZ -0 10000 0 01006 PR12.($'USER OPTIONS:$) 038 LM00046 00573 TSX +0 07400 4 00011 00574 TXH +3 00000 0 00070 00575 TXH +3 00000 0 00171 00576 TXH +3 00000 0 00273 PR12.($ 1. SEARCH USER 'U'F'D FIRST FOR COMMAND FILE$) 039 LM00047 00577 TSX +0 07400 4 00011 00600 TXH +3 00000 0 00255 00601 TXH +3 00000 0 00143 00602 TXH +3 00000 0 00106 00603 TXH +3 00000 0 00203 00604 TXH +3 00000 0 00063 00605 TXH +3 00000 0 00303 00606 TXH +3 00000 0 00220 00607 TXH +3 00000 0 00156 00610 TXH +3 00000 0 00120 PR12.($ 2. SEARCH FOR COMMANDS IN USER OR SYSTEM DIRECT 040 LM00048 1ORIES, BUT NOT BOTH$) 040 LM00049 00611 TSX +0 07400 4 00011 00612 TXH +3 00000 0 00256 00613 TXH +3 00000 0 00143 00614 TXH +3 00000 0 00105 00615 TXH +3 00000 0 00220 00616 TXH +3 00000 0 00157 00617 TXH +3 00000 0 00264 00620 TXH +3 00000 0 00173 00621 TXH +3 00000 0 00307 00622 TXH +3 00000 0 00177 00623 TXH +3 00000 0 00126 00624 TXH +3 00000 0 00323 00625 TXH +3 00000 0 00216 PR12.($ 4. RESET ACTIVE FILES IF NEW COMMAND WHILE DORM 041 LM00050 1ANT RESETS CORE IMAGE$) 041 LM00051 00626 TSX +0 07400 4 00011 00627 TXH +3 00000 0 00257 00630 TXH +3 00000 0 00142 00631 TXH +3 00000 0 00313 00632 TXH +3 00000 0 00324 00633 TXH +3 00000 0 00121 00634 TXH +3 00000 0 00160 00635 TXH +3 00000 0 00153 00636 TXH +3 00000 0 00325 00637 TXH +3 00000 0 00111 00640 TXH +3 00000 0 00314 00641 TXH +3 00000 0 00320 00642 TXH +3 00000 0 00117 00643 TXH +3 00000 0 00120 PR12.($ 10. ENABLE USER SUBSYSTEM$) 042 LM00052 00644 TSX +0 07400 4 00011 00645 TXH +3 00000 0 00252 00646 TXH +3 00000 0 00140 00647 TXH +3 00000 0 00147 00650 TXH +3 00000 0 00204 00651 TXH +3 00000 0 00326 PR12.($ 20. INHIBIT QUIT SIGNALS FROM CONSOLE$) 043 LM00053 00652 TSX +0 07400 4 00011 00653 TXH +3 00000 0 00253 00654 TXH +3 00000 0 00141 00655 TXH +3 00000 0 00101 00656 TXH +3 00000 0 00134 00657 TXH +3 00000 0 00155 00660 TXH +3 00000 0 00202 00661 TXH +3 00000 0 00163 PR12.($ 40. CURRENT PROGRAM IS SUBSYSTEM$) 044 LM00054 00662 TSX +0 07400 4 00011 00663 TXH +3 00000 0 00254 00664 TXH +3 00000 0 00137 00665 TXH +3 00000 0 00115 00666 TXH +3 00000 0 00167 00667 TXH +3 00000 0 00133 00670 TXH +3 00000 0 00306 PR12.($ 100. AUTOMATIC SAVE WHEN GOING TO SUBSYSTEM$) 045 LM00055 00671 TSX +0 07400 4 00011 00672 TXH +3 00000 0 00251 00673 TXH +3 00000 0 00136 00674 TXH +3 00000 0 00151 00675 TXH +3 00000 0 00270 00676 TXH +3 00000 0 00125 00677 TXH +3 00000 0 00130 00700 TXH +3 00000 0 00262 00701 TXH +3 00000 0 00302 PR12.($'*'SUBSYSTEM CONDITION CODE MASK:$) 046 LM00056 00702 TSX +0 07400 4 00011 00703 TXH +3 00000 0 00066 00704 TXH +3 00000 0 00306 00705 TXH +3 00000 0 00221 00706 TXH +3 00000 0 00311 00707 TXH +3 00000 0 00166 00710 TXH +3 00000 0 00274 PR12.($ 1. TRAP NEW COMMAND IF '6DEAD$) 047 LM00057 00711 TSX +0 07400 4 00011 00712 TXH +3 00000 0 00255 00713 TXH +3 00000 0 00144 00714 TXH +3 00000 0 00233 00715 TXH +3 00000 0 00170 00716 TXH +3 00000 0 00225 00717 TXH +3 00000 0 00110 PR12.($ 2. TRAP PROGRAM CALL TO '6DEAD$) 048 LM00058 00720 TSX +0 07400 4 00011 00721 TXH +3 00000 0 00256 00722 TXH +3 00000 0 00144 00723 TXH +3 00000 0 00241 00724 TXH +3 00000 0 00074 00725 TXH +3 00000 0 00150 00726 TXH +3 00000 0 00057 PR12.($ 4. TRAP END OF COMMAND CHAIN IF GOING '6DEAD 049 LM00059 1$) 049 LM00060 00727 TSX +0 07400 4 00011 00730 TXH +3 00000 0 00257 00731 TXH +3 00000 0 00144 00732 TXH +3 00000 0 00222 00733 TXH +3 00000 0 00124 00734 TXH +3 00000 0 00075 00735 TXH +3 00000 0 00071 00736 TXH +3 00000 0 00224 00737 TXH +3 00000 0 00207 00740 TXH +3 00000 0 00113 PR12.($ 10. TRAP ERROR IF GOING '6DEAD$) 050 LM00061 00741 TSX +0 07400 4 00011 00742 TXH +3 00000 0 00252 00743 TXH +3 00000 0 00144 00744 TXH +3 00000 0 00223 00745 TXH +3 00000 0 00226 00746 TXH +3 00000 0 00127 00747 TXH +3 00000 0 00110 PR12.($ 1000. TRAP NEW COMMAND IF '6DORMNT$) 051 LM00062 00750 TSX +0 07400 4 00011 00751 TXH +3 00000 0 00243 00752 TXH +3 00000 0 00144 00753 TXH +3 00000 0 00233 00754 TXH +3 00000 0 00170 00755 TXH +3 00000 0 00225 00756 TXH +3 00000 0 00112 PR12.($ 2000. TRAP CALL TO '6DORMNT$) 052 LM00063 00757 TSX +0 07400 4 00011 00760 TXH +3 00000 0 00244 00761 TXH +3 00000 0 00144 00762 TXH +3 00000 0 00217 00763 TXH +3 00000 0 00312 00764 TXH +3 00000 0 00172 PR12.($ 4000. TRAP END OF CHAIN IF '6DORMNT$) 053 LM00064 00765 TSX +0 07400 4 00011 00766 TXH +3 00000 0 00245 00767 TXH +3 00000 0 00144 00770 TXH +3 00000 0 00222 00771 TXH +3 00000 0 00123 00772 TXH +3 00000 0 00162 00773 TXH +3 00000 0 00060 00774 TXH +3 00000 0 00315 PR12.($ 10000. TRAP ERROR IF GOING '6DORMNT$) 054 LM00065 00775 TSX +0 07400 4 00011 00776 TXH +3 00000 0 00206 00777 TXH +3 00000 0 00144 01000 TXH +3 00000 0 00223 01001 TXH +3 00000 0 00226 01002 TXH +3 00000 0 00127 01003 TXH +3 00000 0 00112 PR12. 055 LM00066 01004 TSX +0 07400 4 00011 O'R CBF(19) .E. $ PRINT$ 056 LM00068 01005 TRA +0 02000 0 01073 01006 CLA +0 50000 0 00024 01007 SUB +0 40200 0 00240 01010 TNZ -0 10000 0 01072 GETSYS.(SYSNAM, BITS) 057 LM00069 01011 TSX +0 07400 4 00005 01012 TXH +3 00000 0 00052 01013 TXH +3 00000 0 00022 OBITS = GETOPT.(0) 058 LM00070 01014 TSX +0 07400 4 00004 01015 TXH +3 00000 0 00053 01016 STO +0 60100 0 00051 PR12.($'*'CURRENT OPTION STATUS:$) 059 LM00071 01017 TSX +0 07400 4 00011 01020 TXH +3 00000 0 00065 01021 TXH +3 00000 0 00200 01022 TXH +3 00000 0 00176 01023 TXH +3 00000 0 00277 01024 TXH +3 00000 0 00146 PR12.($ OPTION BITS: '8$,OCRBC.(OBITS)) 060 LM00072 01025 TSX +0 07400 4 00010 01026 TXH +3 00000 0 00051 01027 STO +0 60100 0 01076 01030 TSX +0 07400 4 00011 01031 TXH +3 00000 0 00237 01032 TXH +3 00000 0 00161 01033 TXH +3 00000 0 00145 01034 TXH +3 00000 0 00061 01035 TXH +3 00000 0 01076 W'R OBITS .A. 10K .NE. 0 061 LM00073 01036 CAL -0 50000 0 00051 01037 ANA -0 32000 0 00055 01040 SLW +0 60200 0 01076 01041 CLA +0 50000 0 01076 01042 SUB +0 40200 0 00053 01043 TZE +0 10000 0 01064 PR12.($ SUBSYSTEM: '6'8$,SYSNAM) 062 LM00074 01044 TSX +0 07400 4 00011 01045 TXH +3 00000 0 00262 01046 TXH +3 00000 0 00300 01047 TXH +3 00000 0 00260 01050 TXH +3 00000 0 00056 01051 TXH +3 00000 0 00052 PR12.($ SUBSYSTEM MASK: '8$,OCRBC.(BITS)) 063 LM00075 01052 TSX +0 07400 4 00010 01053 TXH +3 00000 0 00022 01054 STO +0 60100 0 01076 01055 TSX +0 07400 4 00011 01056 TXH +3 00000 0 00262 01057 TXH +3 00000 0 00301 01060 TXH +3 00000 0 00077 01061 TXH +3 00000 0 00061 01062 TXH +3 00000 0 01076 O'E 064 LM00076 01063 TRA +0 02000 0 01070 PR12.($ NO SUBSYSTEM$) 065 LM00077 01064 TSX +0 07400 4 00011 01065 TXH +3 00000 0 00234 01066 TXH +3 00000 0 00103 01067 TXH +3 00000 0 00154 E'L 066 LM00078 PR12. 067 LM00079 01070 TSX +0 07400 4 00011 O'E 068 LM00081 01071 TRA +0 02000 0 01073 T'O FOO 069 LM00082 01072 TRA +0 02000 0 00020 E'L 070 LM00083 CHNCOM.(0) 071 LM00084 01073 TSX +0 07400 4 00001 01074 TXH +3 00000 0 00053 V'S FNS = 777777777777K 072 LM00086 00050 -3 77777 7 77777 D'N CBF(20) 073 LM00087 E'M 074 LM00088 01075 TSX +0 07400 4 00002 P BCD 02/08/69 2403.5 43162 00000 1 MAD PROGRAM LISTING ... ... ... FILE P MAD 02/05/69 1704.2 - 'P' 01/19/69 LM00001 LM00002 WHENEVER (COMARG.(2,FN1).E.FENCE).OR.(COMARG.(1,FN).E.FENCE) *001 LM00003 WHENEVER FN.E.$ HELP$.OR.FN.E.$(HELP)$, TRANSFER TO HELP *002 LM00004 PRFULL.($'1'RINCOMPLETE '1COMMAND.'*'B$) *003 LM00005 CHNCOM.(0) *004 LM00006 END OF CONDITIONAL *005 LM00007 GETBUF.(IN,360) *006 LM00008 GETBUF.(OUT,84) *007 LM00009 GETBUF.(ITABS,150) *008 LM00010 GETBUF.(OTABS,150) *009 LM00011 MODE=0 *010 LM00012 LMSW=0B *011 LM00013 LNSZ=0 *012 LM00014 HDRSW=0B *013 LM00015 DATESW=0B *014 LM00016 CC=0B *015 LM00017 NCCS=1B *016 LM00018 PS=0B *017 LM00019 NIT=0 *018 LM00020 NOT=0 *019 LM00021 MADSW=0B *020 LM00022 THROUGH AL, FOR I=3,1,COMARG.(I,ARG).E.FENCE *021 LM00023 ARGX=ARG *022 LM00024 WHENEVER ARG.A.77K.E.34K *023 LM00025 ARG=LJUST.(ARG.A.7777777777K2.V.60K) *024 LM00026 WHENEVER ARG.A.77K10.NE.74K10, TRANSFER TO BAD *025 LM00027 ARG=BZEL.(RJUST.(ARG.A.7777777777K.V.60K10)) *026 LM00028 END OF CONDITIONAL *027 LM00029 WHENEVER ARG.E.$ 6$ *028 LM00030 MODE=6 *029 LM00031 OR WHENEVER ARG.E.$ 9$ *030 LM00032 MODE=9 *031 LM00033 CC=0B *032 LM00034 NCCS=0B *033 LM00035 OR WHENEVER ARG.E.$ 12$ *034 LM00036 MODE=12 *035 LM00037 CC=0B *036 LM00038 NCCS=0B *037 LM00039 OR WHENEVER ARG.E.$ CC$ *038 LM00040 CC=1B *039 LM00041 NCCS=0B *040 LM00042 OR WHENEVER ARG.E.$ NCC$ *041 LM00043 CC=0B *042 LM00044 NCCS=0B *043 LM00045 OR WHENEVER ARG.E.$ WR$ *044 LM00046 WR=1B *045 LM00047 OR WHENEVER ARG.E.$ PS$ *046 LM00048 PS=1B *047 LM00049 OR WHENEVER ARG.E.$ HDR$ *048 LM00050 HDRSW=1B *049 LM00051 PAGENO=1 *050 LM00052 PGNO=2 *051 LM00053 TRANSFER TO PHDR1 *052 LM00054 OR WHENEVER ARG.E.$ DATE$ *053 LM00055 DATESW=1B *054 LM00056 PGNO=0 *055 LM00057 PHDR1 FTIME.(GTDYTM.(0),DATE,TIME) *056 LM00058 DATE(1)=(DATE.A.7777K).LS.18.V.$/00' $ *057 LM00059 DATE=(DATE.A.7777K8).RS.6.V.(DATE.A.7777K4).RS.12 *058 LM00060 1 .V.$ 00/00$ *058 LM00061 VECTOR VALUES PGN=$ PAGE 1'8$ *059 LM00062 DIMENSION DATE(1) *060 LM00063 OR WHENEVER ARG.E.$ ITABS$ *061 LM00064 GETTAB.(NIT,ITABS(ITABS)) *062 LM00065 OR WHENEVER ARG.E.$ OTABS$ *063 LM00066 GETTAB.(NOT,OTABS(OTABS)) *064 LM00067 OR WHENEVER ARG.E.$ HELP$ *065 LM00068 HELP PRMESS. *066 LM00069 PRFULL.($'UP NAME1 NAME2 -MODES-$) *067 LM00070 PRFULL.($'UMODES 'LARE:$) *068 LM00071 PRFULL.($'U 6 9 12 CC NCC WR PS HDR DATE HELP$) *069 LM00072 PRFULL.($'U ITAB 'N OTAB 'N LL 'N PGL 'N BLKSIZ 'N'8$, *070 LM00073 1 $ FILE 'LNAME4$) *070 LM00074 PRFULL.($'U ITABS '4LIST OTABS '4LIST$) *071 LM00075 PRFULL.($ LIST CONTAINS: 'U'N CTSS FAP MAD$) *072 LM00076 TRANSFER TO EGRETS *073 LM00077 OR WHENEVER COMARG.(I+1,ARG1).NE.FENCE *074 LM00078 I=I+1 *075 LM00079 WHENEVER ARG.E.$ ITAB$ *076 LM00080 ITD=BCDC.(ARG1) *077 LM00081 WHENEVER ITD.E.0, TRANSFER TO ILL *078 LM00082 OR WHENEVER ARG.E.$ OTAB$ *079 LM00083 OTD=BCDC.(ARG1) *080 LM00084 WHENEVER OTD.E.0, TRANSFER TO ILL *081 LM00085 OR WHENEVER ARG.E.$ LL$ *082 LM00086 SLL=BCDC.(ARG1) *083 LM00087 WHENEVER SLL.E.0, TRANSFER TO ILL *084 LM00088 OR WHENEVER ARG.E.$ PGL$ *085 LM00089 SPGL=BCDC.(ARG1) *086 LM00090 WHENEVER SPGL.E.0, TRANSFER TO ILL *087 LM00091 OR WHENEVER ARG.E.$BLKSIZ$ *088 LM00092 LNSZ=BCDC.(ARG1) *089 LM00093 WHENEVER LNSZ.E.0, TRANSFER TO ILL *090 LM00094 CC=0B *091 LM00095 NCCS=0B *092 LM00096 OR WHENEVER ARG.E.$ FILE$ *093 LM00097 FILESW=1B *094 LM00098 FNARY=FN *095 LM00099 FNARY(1)=ARG1 *096 LM00100 DELETE.(FNARY,FNARY(1),0,EGRETS) *097 LM00101 DIMENSION FNARY(1) *098 LM00102 OPENW.(FN,ARG1) *099 LM00103 OTHERWISE *100 LM00104 TRANSFER TO BAD *101 LM00105 END OF CONDITIONAL *102 LM00106 OTHERWISE *103 LM00107 BAD PRFULL.($'R'X'8$,ARGX,$ NOT RECOGNIZED.'B$) *104 LM00108 TRANSFER TO EGRETS *105 LM00109 ILL PRFULL.($'R'X'8$,ARGX,$'X '8$,ARG1,$ ILLEGAL.'B$) *106 LM00110 TRANSFER TO EGRETS *107 LM00111 AL END OF CONDITIONAL *108 LM00112 WHENEVER (SPGL.L.5.OR.(SPGL.L.8.AND.HDRSW)).AND.SPGL.NE.0 *109 LM00113 PRFULL.($'R'3 PGL '8$,BZEL.(DEFBC.(SPGL)),$ ILLEGAL.'B$) *110 LM00114 TRANSFER TO EGRETS *111 LM00115 END OF CONDITIONAL *112 LM00116 WHENEVER NIT.E.0 *113 LM00117 THROUGH ITDL, FOR I=ITD+1,ITD,I.G.150 *114 LM00118 NIT=NIT+1 *115 LM00119 ITABS(ITABS+NIT)=I *116 LM00120 ITDL CONTINUE *117 LM00121 END OF CONDITIONAL *118 LM00122 WHENEVER NOT.E.0 *119 LM00123 THROUGH OTDL, FOR I=OTD+1,OTD,I.G.150 *120 LM00124 NOT=NOT+1 *121 LM00125 OTABS(OTABS+NOT)=I *122 LM00126 OTDL CONTINUE *123 LM00127 END OF CONDITIONAL *124 LM00128 SETBRK.(BRKOUT) *125 LM00129 LM00130 THINK ABOUT MODE LM00131 LM00132 OPENF.(FN,FN1) *126 LM00133 EOFCT=360 *127 LM00134 RDWAIT.(FN,FN1,1,IN(IN+360)...360,EOFT,EOFCT) *128 LM00135 EOFT IL=360-EOFCT *129 LM00136 THROUGH LLM, FOR I=360,-1,I.LE.IL.OR.LMSW *130 LM00137 WHENEVER IN(IN+I).A.LM .E.LM, LMSW=1B *131 LM00138 LLM CONTINUE *132 LM00139 WHENEVER MODE.E.0 *133 LM00140 N9=0B *134 LM00141 N12=0B *135 LM00142 THROUGH LT, FOR I=360,-1,I.LE.IL.OR.N9.AND.N12 *136 LM00143 CHAR=IN(IN+I) *137 LM00144 WHENEVER CHAR.A.LM.E.LM, TRANSFER TO LT *138 LM00145 WHENEVER .NOT.N9.AND.CHAR.A.600600600600K.NE.0,N9=1B *139 LM00146 WHENEVER .NOT.N12.AND.CHAR.A.720072007200K.NE.0,N12=1B *140 LM00147 LT CONTINUE *141 LM00148 WHENEVER .NOT.N9.AND.N12 *142 LM00149 MODE=9 *143 LM00150 NCCS=0B *144 LM00151 CC=0B *145 LM00152 OR WHENEVER .NOT.N12.AND.N9 *146 LM00153 MODE=12 *147 LM00154 NCCS=0B *148 LM00155 CC=0B *149 LM00156 OTHERWISE *150 LM00157 MODE=6 *151 LM00158 END OF CONDITIONAL *152 LM00159 END OF CONDITIONAL *153 LM00160 IN(IN+IL+1)=0 *154 LM00161 THROUGH CCTL, FOR I=360,-1,I.LE.IL.OR..NOT.NCCS *155 LM00162 PCC=IN(IN+I-1).RS.30 *156 LM00163 PCL THROUGH PCL, FOR J=0,1,J.G.NPCC.OR.PCC.E.PCCL(J) *157 LM00164 WHENEVER J.G.NPCC.OR.IN(IN+I).A.LM.NE.LM *158 LM00165 NCCS=0B *159 LM00166 CC=0B *160 LM00167 OTHERWISE *161 LM00168 I=I-IN(IN+I).A.77777K *162 LM00169 CC=1B *163 LM00170 END OF CONDITIONAL *164 LM00171 CCTL CONTINUE *165 LM00172 LM00173 GET UNITID AND PICK UP TIMING CODES LM00174 LM00175 WHOAMI.(OUT(OUT+4)...4) *166 LM00176 WHENEVER OUT(OUT+1) .E. $(FIB) $ *167 LM00177 ID=10 *168 LM00178 TRANSFER TO GETTIM *169 LM00179 OTHERWISE *170 LM00180 ID = OUT(OUT+1) .RS. 30 *171 LM00181 WHENEVER ID.G.9 *172 LM00182 PRFULL.($'R'1ILLEGAL '1CONSOLE 'UID:'X'8$,OUT(OUT+1), *173 LM00183 1 $'B'9$) *173 LM00184 TRANSFER TO BRKOUT *174 LM00185 END OF CONDITIONAL *175 LM00186 GETTIM TCR = TCR(ID) *176 LM00187 TCRLF=TCRLF(ID) *177 LM00188 WHENEVER FILESW, TCRLF=1 *178 LM00189 TBS = TBS(ID) *179 LM00190 TSP = TSP(ID) *180 LM00191 TTAB = TTAB(ID) *181 LM00192 TLF = TLF(ID) *182 LM00193 WHENEVER FILESW, TLF=1 *183 LM00194 LL=LL(ID) *184 LM00195 WHENEVER SLL.NE.0, LL=SLL *185 LM00196 PGL=PGL(ID) *186 LM00197 WHENEVER SPGL.NE.0, PGL=SPGL *187 LM00198 D(8)=PGL/5 *188 LM00199 D(7)=(PGL-1)/4 *189 LM00200 D(6)=(PGL-2)/3 *190 LM00201 D(5)=2*D(7) *191 LM00202 D(1)=PGL *192 LM00203 END OF CONDITIONAL *193 LM00204 WHENEVER LNSZ.NE.0 *194 LM00205 LMSW=0B *195 LM00206 OR WHENEVER .NOT.LMSW.AND.MODE.E.6 *196 LM00207 LNSZ=14 *197 LM00208 OTHERWISE *198 LM00209 LNSZ=0 *199 LM00210 END OF CONDITIONAL *200 LM00211 SETSIZ.(MODE,LNSZ,LMSW) *201 LM00212 SETFUL.(0) *202 LM00213 AX=1 *203 LM00214 BX=1 *204 LM00215 AY=0 *205 LM00216 WHENEVER CC.OR.PS *206 LM00217 CCN=CC *207 LM00218 CCX=CC.OR.PS *208 LM00219 BY=0 *209 LM00220 OTHERWISE *210 LM00221 BY=1 *211 LM00222 CCN=0B *212 LM00223 CCX=0B *213 LM00224 END OF CONDITIONAL *214 LM00225 K=1 *215 LM00226 WHENEVER DATESW.OR.HDRSW *216 LM00227 BY=4 *217 LM00228 AY=4 *218 LM00229 PRTCHR.(PTCHAR.) *219 LM00230 PRFULA.($'*'*'X$,FN,$ 'X'8$,FN1,DATE...2,TIME,PGN...PGNO, *220 LM00231 1 $'*'*'9$) *220 LM00232 END OF CONDITIONAL *221 LM00233 EOFSW=0B *222 LM00234 LOOP N=READF.(IN(IN),360,777K,EOF) *223 LM00235 THROUGH CHARL, FOR I=1,1,I.G.N *224 LM00236 CHAR=IN(IN+I).A.177K *225 LM00237 WHENEVER MODE.E.9, CHAR=ASCTSS.(CHAR) *226 LM00238 WHENEVER CHAR.E.57K, TRANSFER TO CHARL *227 LM00239 PTF=1B *228 LM00240 CKP=1B *229 LM00241 WHENEVER CCN *230 LM00242 CCN=0B *231 LM00243 L2 THROUGH L2, FOR J=0,1,J.G.NPCC.OR.CHAR.E.PCCL(J) *232 LM00244 WHENEVER J.G.NPCC, TRANSFER TO CKHDR *233 LM00245 PTF=0B *234 LM00246 TRANSFER TO PCCP(J) *235 LM00247 LM00248 1 2 3 4 5 -- SKIPS LM00249 PCCP(1) *236 LM00250 PCCP(5) *237 LM00251 PCCP(6) *238 LM00252 PCCP(7) *239 LM00253 PCCP(8) WHENEVER BY.E.BY/PGL*PGL, TRANSFER TO CKHDR *240 LM00254 X=((BY-BY/PGL*PGL)/D(J)+1)*D(J) *241 LM00255 WHENEVER X.G.PGL, X=PGL *242 LM00256 BY=BY/PGL*PGL+X+2 *243 LM00257 TRANSFER TO CKHDR *244 LM00258 LM00259 SPACE 0 - LM00260 PCCP(0) *245 LM00261 PCCP(2) *246 LM00262 PCCP(3) BY=BY+D(J) *247 LM00263 TRANSFER TO CKHDR *248 LM00264 LM00265 + / S T LM00266 PCCP(4) *249 LM00267 PCCP(9) *250 LM00268 PCCP(10) *251 LM00269 PCCP(11) BY=BY+D(J) *252 LM00270 CKP=0B *253 LM00271 TRANSFER TO CKHDR *254 LM00272 LM00273 OR WHENEVER CCX.OR..NOT.(CC.OR.PS) *255 LM00274 CKP=CCX *256 LM00275 CKHDR CCX=0B *257 LM00276 WHENEVER AY/PGL.NE.(BY+2)/PGL.AND.HDRSW *258 LM00277 BY=BY+4 *259 LM00278 AY=AY+1 *260 LM00279 AX=1 *261 LM00280 PTCHAR.(SP(0)) *262 LM00281 WHENEVER TLF.G.0 *263 LM00282 CHR=SP(0) *264 LM00283 OTHERWISE *265 LM00284 CHR=SP(1) *266 LM00285 END OF CONDITIONAL *267 LM00286 SK1 X=AY-AY/PGL*PGL *268 LM00287 WHENEVER X.NE.0, X=PGL-X *269 LM00288 AY=AY+X *270 LM00289 THROUGH SK2, FOR X=X,-1,X.E.0 *271 LM00290 SK2 PTCHAR.(CHR) *272 LM00291 PAGENO=PAGENO+1 *273 LM00292 PGN(1)=BZ57.(DEFBC.(PAGENO)) *274 LM00293 PRFULA.($'*'*'X$,FN,$ 'X'8$,FN1,DATE...2,TIME,PGN...PGNO, *275 LM00294 1 $'*'*'9$) *275 LM00295 AY=AY+4 *276 LM00296 WHENEVER BY.L.AY, BY=AY *277 LM00297 WHENEVER AY/PGL.NE.(BY+2)/PGL, TRANSFER TO SK1 *278 LM00298 END OF CONDITIONAL *279 LM00299 LM00300 WHENEVER CKP *280 LM00301 MOD=BY-(BY/PGL)*PGL *281 LM00302 WHENEVER MOD.G.PGL-3.OR.MOD.L.2 *282 LM00303 BY=((BY+3)/PGL)*PGL+2 *283 LM00304 END OF CONDITIONAL *284 LM00305 END OF CONDITIONAL *285 LM00306 WHENEVER .NOT.PTF, TRANSFER TO CHARL *286 LM00307 END OF CONDITIONAL *287 LM00308 LM00309 L1 THROUGH L1, FOR J=0,1,J.G.NSPC .OR. CHAR.E.SP(J) *288 LM00310 WHENEVER J.LE.NSPC *289 LM00311 TRANSFER TO SPP(J) *290 LM00312 CR LM00313 SPP(0) BX=1 *291 LM00314 BY=BY+1 *292 LM00315 CCN=CC *293 LM00316 CCX=CC.OR.PS *294 LM00317 TRANSFER TO CHARL *295 LM00318 LF LM00319 SPP(1) BY=BY+1 *296 LM00320 CCX=CC.OR.PS *297 LM00321 TRANSFER TO CHARL *298 LM00322 TAB LM00323 SPP(2) CONTINUE *299 LM00324 TL1 THROUGH TL1, FOR TI=1,1,ITABS(ITABS+TI).G.BX *300 LM00325 BX=ITABS(ITABS+TI) *301 LM00326 TRANSFER TO CHARL *302 LM00327 SP LM00328 SPP(3) BX=BX+1 *303 LM00329 TRANSFER TO CHARL *304 LM00330 BS LM00331 SPP(4) BX=BX-1 *305 LM00332 TRANSFER TO CHARL *306 LM00333 CR NO LF LM00334 SPP(5) BX=1 *307 LM00335 TRANSFER TO CHARL *308 LM00336 LM00337 OTHERWISE *309 LM00338 FILOUT WHENEVER CHAR.E.MADBS.AND.BX.E.12.AND.MADSW *310 LM00339 BX=11 *311 LM00340 TRANSFER TO CHARL *312 LM00341 END OF CONDITIONAL *313 LM00342 L3 THROUGH L3, FOR J=0,1,J.G.NNOSP.OR.CHAR.E.NOSP(J) *314 LM00343 WHENEVER J.LE.NNOSP *315 LM00344 PTCHAR.(CHAR) *316 LM00345 TRANSFER TO CHARL *317 LM00346 END OF CONDITIONAL *318 LM00347 WHENEVER BX.G.LL *319 LM00348 WHENEVER WR *320 LM00349 BX=1 *321 LM00350 BY=BY+1 *322 LM00351 OTHERWISE *323 LM00352 TRANSFER TO NOPT *324 LM00353 END OF CONDITIONAL *325 LM00354 END OF CONDITIONAL *326 LM00355 WHENEVER AX.E.BX.AND.AY.E.BY, TRANSFER TO PCHAR *327 LM00356 WHENEVER BY.E.AY.AND.BX.E.AX+1 *328 LM00357 PTCHAR.(SP(3)) *329 LM00358 TRANSFER TO PCHAR *330 LM00359 OR WHENEVER BX.E.1.AND.BY.E.AY+1 *331 LM00360 PTCHAR.(SP(0)) *332 LM00361 TRANSFER TO PCHAR *333 LM00362 END OF CONDITIONAL *334 LM00363 FILL FROM A TO B LM00364 THROUGH RL, FOR J=0,1,J.G.NSPC *335 LM00365 RL NC(J)=0 *336 LM00366 WHENEVER BY.G.AY .AND. TLF.G.0 *337 LM00367 NCR=1 *338 LM00368 AX=1 *339 LM00369 AY=AY+1 *340 LM00370 END OF CONDITIONAL *341 LM00371 WHENEVER AX.L.BX *342 LM00372 HORZ.(AX,BX) *343 LM00373 OTHERWISE *344 LM00374 WHENEVER TCR*AX+HORZ.(1,BX).L.(AX-BX)*TBS.AND. *345 LM00375 1 (BY.G.AY.OR.TCRLF.E.0) *345 LM00376 WHENEVER BY.G.AY *346 LM00377 NCR=NCR+1 *347 LM00378 AY=AY+1 *348 LM00379 AX=1 *349 LM00380 OTHERWISE *350 LM00381 NCRLF=1 *351 LM00382 AX=1 *352 LM00383 END OF CONDITIONAL *353 LM00384 OTHERWISE *354 LM00385 NBS=AX-BX *355 LM00386 NSP=0 *356 LM00387 NTAB=0 *357 LM00388 END OF CONDITIONAL *358 LM00389 END OF CONDITIONAL *359 LM00390 WHENEVER TLF.G.0 *360 LM00391 NCR=NCR+BY-AY *361 LM00392 OTHERWISE *362 LM00393 NLF=NLF+BY-AY *363 LM00394 END OF CONDITIONAL *364 LM00395 THROUGH FILL, FOR J=0,1,J.G.NSPC *365 LM00396 THROUGH FILL1, FOR L=1,1,L.G.NC(J) *366 LM00397 PTCHAR.(SP(J)) *367 LM00398 FILL1 CONTINUE *368 LM00399 FILL CONTINUE *369 LM00400 PCHAR WHENEVER EOFSW, TRANSFER TO DONE *370 LM00401 AX=BX *371 LM00402 AY=BY *372 LM00403 PTCHAR.(CHAR) *373 LM00404 AX=AX+1 *374 LM00405 NOPT BX=BX+1 *375 LM00406 END OF CONDITIONAL *376 LM00407 CHARL CONTINUE *377 LM00408 TRANSFER TO LOOP *378 LM00409 DONE WHENEVER K.NE.0 *379 LM00410 WHENEVER FILESW *380 LM00411 WTA.(OUT(OUT),K-1) *381 LM00412 CLOSEW. *382 LM00413 OTHERWISE *383 LM00414 PNTLIN.(OUT(OUT),K-1) *384 LM00415 END OF CONDITIONAL *385 LM00416 END OF CONDITIONAL *386 LM00417 BRKOUT CLOSEF. *387 LM00418 EGRETS SETBCD.(0) *388 LM00419 CHNCOM.(0) *389 LM00420 LM00421 EOF EOFSW=1B *390 LM00422 WHENEVER CC *391 LM00423 WHENEVER BY.NE.(BY/PGL)*PGL *392 LM00424 BY=(BY/PGL+1)*PGL+1 *393 LM00425 END OF CONDITIONAL *394 LM00426 OTHERWISE *395 LM00427 BY=BY+2 *396 LM00428 BX=1 *397 LM00429 END OF CONDITIONAL *398 LM00430 TRANSFER TO FILOUT *399 LM00431 LM00432 INTERNAL FUNCTION (PTC) *400 LM00433 ENTRY TO PTCHAR. *401 LM00434 WHENEVER FILESW *402 LM00435 C=TSSASC.(PTC) *403 LM00436 OTHERWISE *404 LM00437 C=PTC *405 LM00438 END OF CONDITIONAL *406 LM00439 OUT(OUT+K)=C *407 LM00440 K=K+1 *408 LM00441 WHENEVER K.G.84 *409 LM00442 WHENEVER FILESW *410 LM00443 WTA.(OUT(OUT),84) *411 LM00444 OTHERWISE *412 LM00445 PNTLIN.(OUT(OUT),84) *413 LM00446 END OF CONDITIONAL *414 LM00447 K=1 *415 LM00448 END OF CONDITIONAL *416 LM00449 FUNCTION RETURN *417 LM00450 END OF FUNCTION *418 LM00451 LM00452 LM00453 INTERNAL FUNCTION (AA,BB) *419 LM00454 ENTRY TO HORZ. *420 LM00455 A=AA *421 LM00456 B=BB *422 LM00457 TL2 THROUGH TL2, FOR ATI=1,1,OTABS(OTABS+ATI).G.A *423 LM00458 TL3 THROUGH TL3, FOR BTI=1,1,OTABS(OTABS+BTI).G.B *424 LM00459 NTAB=BTI-ATI *425 LM00460 WHENEVER NTAB.G.0 *426 LM00461 A1=OTABS(OTABS+BTI-1) *427 LM00462 T=(A1-A)*TTAB+NTAB*TSP *428 LM00463 A=A1 *429 LM00464 ATI=BTI *430 LM00465 OTHERWISE *431 LM00466 T=0 *432 LM00467 END OF CONDITIONAL *433 LM00468 NSP=B-A *434 LM00469 LTAB=OTABS(OTABS+ATI)-A *435 LM00470 NBS=LTAB-NSP *436 LM00471 TMSP=NSP*TSP *437 LM00472 TMBS=TTAB*LTAB+TSP+TBS*NBS *438 LM00473 WHENEVER TMSP.LE.TMBS *439 LM00474 NBS=0 *440 LM00475 T=T+TMSP *441 LM00476 OTHERWISE *442 LM00477 NSP=0 *443 LM00478 NTAB=NTAB+1 *444 LM00479 T=T+TMBS *445 LM00480 END OF CONDITIONAL *446 LM00481 FUNCTION RETURN T *447 LM00482 END OF FUNCTION *448 LM00483 LM00484 INTERNAL FUNCTION (NN,A) *449 LM00485 ENTRY TO GETTAB. *450 LM00486 WHENEVER COMARG.(I+1).E.FENCE, TRANSFER TO BAD *451 LM00487 N=NN *452 LM00488 THROUGH TAL, FOR I=I+1,1,COMARG.(I,ARG1).E.FENCE *453 LM00489 WHENEVER ARG1.E.$ FAP$ *454 LM00490 THROUGH FCL, FOR J=0,1,FAPTAB(J).E.0 *455 LM00491 N=N+1 *456 LM00492 FCL A(N)=FAPTAB(J) *457 LM00493 OR WHENEVER ARG1.E.$ MAD$ *458 LM00494 WHENEVER ARG.E.$ ITABS$, MADSW=1B *459 LM00495 THROUGH MCL, FOR J=0,1,MADTAB(J).E.0 *460 LM00496 N=N+1 *461 LM00497 MCL A(N)=MADTAB(J) *462 LM00498 OR WHENEVER ARG1.E.$ CTSS$ *463 LM00499 THROUGH XCL, FOR J=15,15,J.G.150 *464 LM00500 N=N+1 *465 LM00501 XCL A(N)=J *466 LM00502 OR WHENEVER ZEL.(ARG1).A.$$.E.0 *467 LM00503 N=N+1 *468 LM00504 A(N)=BCDEC.(ARG1) *469 LM00505 OTHERWISE *470 LM00506 TRANSFER TO RET *471 LM00507 END OF CONDITIONAL *472 LM00508 TAL CONTINUE *473 LM00509 RET I=I-1 *474 LM00510 SORT CH=0B *475 LM00511 THROUGH SL, FOR J=2,1,J.G.N *476 LM00512 WHENEVER A(J).E.A(J-1) *477 LM00513 A(J)=A(N) *478 LM00514 N=N-1 *479 LM00515 CH=1B *480 LM00516 OR WHENEVER A(J).L.A(J-1) *481 LM00517 ARG1=A(J-1) *482 LM00518 A(J-1)=A(J) *483 LM00519 A(J)=ARG1 *484 LM00520 CH=1B *485 LM00521 END OF CONDITIONAL *486 LM00522 SL CONTINUE *487 LM00523 WHENEVER CH, TRANSFER TO SORT *488 LM00524 N=N+1 *489 LM00525 A(N)=1000 *490 LM00526 NN=N *491 LM00527 FUNCTION RETURN *492 LM00528 END OF FUNCTION *493 LM00529 LM00530 INTERNAL FUNCTION (Z) *494 LM00531 ENTRY TO BCDC. *495 LM00532 WHENEVER ZEL.(Z).A.$$.NE.0, TRANSFER TO BAD *496 LM00533 FUNCTION RETURN BCDEC.(Z) *497 LM00534 END OF FUNCTION *498 LM00535 LM00536 VECTOR VALUES NSPC=5 *499 LM00537 VECTOR VALUES SP=55K,107K,72K,60K,135K,136K *500 LM00538 VECTOR VALUES NNOSP=2 *501 LM00539 VECTOR VALUES NOSP=113K,132K,133K *502 LM00540 VECTOR VALUES NPCC=11 *503 LM00541 VECTOR VALUES PCCL=60K,1K,0K,40K,20K,2K,3K,4K,5K,61K,62K,63K *504 LM00542 VECTOR VALUES D=0,66,1,2,-1,32,21,16,13,0,1,2 *505 LM00543 VECTOR VALUES MADBS=35K *506 LM00544 VECTOR VALUES LM=777777K6 *507 LM00545 VECTOR VALUES FENCE = 777777777777K *508 LM00546 VECTOR VALUES FAPTAB=8,16,35,40,45,50,55,60,65,70,75,80,85,0 *509 LM00547 VECTOR VALUES MADTAB=12,17,22,27,32,37,42,47,52,57,62,67,72,77,82,87,0 *510 LM00548 DIMENSION IN(0),OUT(0),NC(5),ITABS(0),OTABS(0) *511 LM00549 LM00550 TIMING TABLE FOR EACH DEVICE LM00551 LM00552 VECTOR VALUES TCR = 0,2,8,128,176,176,8,8,8,1,1 *512 LM00553 VECTOR VALUES TCRLF=0,1,1,0,0,0,1,0,1,0,0 *513 LM00554 VECTOR VALUES TBS = 0,1K5,112,1K5,1K5,1K5,1K5,88,112,1,1 *514 LM00555 VECTOR VALUES TSP = 0,88,72,64,88,88,88,88,72,1,1 *515 LM00556 VECTOR VALUES TTAB = 0,24,8,1K5,1K5,1K5,24,24,8,1,1 *516 LM00557 VECTOR VALUES TLF = 0,1,0,0,0,0,0,1,0,1,0 *517 LM00558 VECTOR VALUES LL=0,87,129,68,68,68,87,87,129,79,1K5 *518 LM00559 VECTOR VALUES PGL=0,66,66,66,66,66,66,66,66,56,66 *519 LM00560 VECTOR VALUES ITD=10 *520 LM00561 VECTOR VALUES OTD=10 *521 LM00562 LM00563 EQUIVALENCE (NCR,NC(0)),(NLF,NC(1)),(NTAB,NC(2)), *522 LM00564 1 (NSP,NC(3)),(NBS,NC(4)),(NCRLF,NC(5)) *522 LM00565 NORMAL MODE IS INTEGER *523 LM00566 BOOLEAN N9,N12,CC,NCCS,CCN,EOFSW,WR,PS,CH,LMSW,DATESW *524 LM00567 BOOLEAN FILESW,HDRSW,MADSW,CCX,PTF,CKP *525 LM00568 END OF PROGRAM *526 LM00569 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 04424 TRANSFER VECTOR LENGTH 00042 PROGRAM BEGINS 00662 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) A1 00123 1 DONE 00061 4 J 00223 1 NLF 00053 1 RL 00046 4 AL 00046 4 D 00165 A 1 K 00224 1 NNOSP 00276 A 1 SK1 00113 4 ARG1 00124 1 EGRETS 00062 4 L1 00046 4 NOPT 00073 4 SK2 00046 4 ARG 00125 1 EOFCT 00166 1 L2 00046 4 NOSP 00301 A 1 SLL 00347 1 ARGX 00126 1 EOF 00063 4 L3 00046 4 NOT 00302 1 SL 00046 4 A 00127 1 EOFSW 00167 2 LLM 00046 4 NPCC 00303 A 1 SORT 00114 4 ATI 00130 1 EOFT 00064 4 LL 00237 A 1 N 00304 1 SPGL 00350 1 AX 00131 1 FAPTAB 00205 A 1 LM 00240 A 1 NSPC 00305 A 1 SPP 00122 A 4 AY 00132 1 FCL 00046 4 LMSW 00241 2 NSP 00051 1 SP 00356 A 1 BAD 00055 4 FENCE 00206 A 1 LNSZ 00242 1 NTAB 00052 1 TAL 00046 4 BRKOUT 00056 4 FILESW 00207 2 LOOP 00071 4 OTABS 00306 A 1 TBS 00371 A 1 B 00133 1 FILL1 00046 4 L 00243 1 OTDL 00046 4 TCRLF 00404 A 1 BTI 00134 1 FILL 00046 4 LTAB 00244 1 OTD 00307 A 1 TCR 00417 A 1 BX 00135 1 FILOUT 00065 4 LT 00072 4 OUT 00310 A 1 TIME 00420 1 BY 00136 1 FN1 00210 1 MADBS 00245 A 1 PAGENO 00311 1 TI 00421 1 CCN 00137 2 FNARY 00212 A 1 MADSW 00246 2 PCCL 00325 A 1 TL1 00046 4 CC 00140 2 FN 00213 1 MADTAB 00267 A 1 PCCP 00107 A 4 TL2 00046 4 CCTL 00046 4 GETTIM 00066 4 MCL 00046 4 PCC 00326 1 TL3 00046 4 CCX 00141 2 HDRSW 00214 2 MODE 00270 1 PCHAR 00110 4 TLF 00434 A 1 CHARL 00057 4 HELP 00067 4 MOD 00271 1 PCL 00046 4 TMBS 00435 1 CHAR 00142 1 ID 00215 1 N12 00272 2 PGL 00341 A 1 TMSP 00436 1 CHR 00143 1 ILL 00070 4 N9 00273 2 PGNO 00342 1 T 00437 1 CH 00144 2 IL 00216 1 NBS 00050 1 PGN 00344 A 1 TSP 00452 A 1 CKHDR 00060 4 IN 00217 A 1 NCCS 00274 2 PHDR1 00111 4 TTAB 00465 A 1 CKP 00145 2 I 00220 1 NCRLF 00047 1 PS 00345 2 WR 00466 2 C 00146 1 ITABS 00221 A 1 NCR 00054 1 PTF 00346 2 XCL 00046 4 DATE 00150 A 1 ITDL 00046 4 NC 00054 A 1 RET 00112 4 X 00467 1 DATESW 00151 2 ITD 00222 A 1 NIT 00275 1 0FUNCTION DICTIONARY ASCTSS 00000 1 BCDEC 00001 1 BZ57 00002 1 BZEL 00003 1 CHNCOM 00004 1 CLOSEF 00005 1 CLOSEW 00006 1 COMARG 00007 1 DEFBC 00010 1 DELETE 00011 1 EXIT 00012 1 FTIME 00013 1 GETBUF 00014 1 GTDYTM 00015 1 .SETUP 00016 1 LJUST 00017 1 OPENF 00020 1 OPENW 00021 1 PNTLIN 00022 1 PRFULA 00023 1 PRFULL 00024 1 PRMESS 00025 1 PRTCHR 00026 1 RDWAIT 00027 1 READF 00030 1 RJUST 00031 1 SETBCD 00032 1 SETBRK 00033 1 SETFUL 00034 1 SETSIZ 00035 1 TSSASC 00036 1 WHOAMI 00037 1 WTA 00040 1 ZEL 00041 1 BCDC 00042 1 GETTAB 00043 1 HORZ 00044 1 PTCHAR 00045 1 0ABSOLUTE CONSTANTS 00521 +000000001750 00640 -206060606060 00505 +000000000017 00616 -206023636262 00626 -206060442124 00624 -206060262147 00502 +000000000013 00511 +000000000057 00515 +000000000177 00520 +000000000777 00540 +145414541411 00606 -201467141060 00541 +145414541467 00504 +000000000016 00533 +142214116060 00565 +312435146714 00574 -064325601464 00531 +140123464562 00567 -032527214360 00535 +145114013143 00501 +000000000012 00655 -342631223460 00474 +000000000004 00523 +000000077777 00510 +000000000036 00653 -320072007200 00602 -200600600600 00526 +106060606060 00615 -204727436014 00536 +145114036060 00475 +000000000005 00477 +000000000010 00551 +214333142260 00610 -203143432527 00546 +146760141060 00651 -312524331422 00561 +252346274531 00612 -204546636051 00537 +145114671410 00553 +224342623171 00630 -206060472743 00634 -206060604343 00623 -206046632122 00622 -206031632122 00552 +214760442124 00557 +236362626026 00605 -201464144560 00645 -232131456235 00644 -226360234645 00633 -206060604331 00532 +140443316263 00576 -066321226260 00570 -033162636060 00550 +212262601404 00560 +250460606060 00603 -201443452144 00620 -206026314325 00652 -316014451410 00607 -202243426231 00563 +274360144560 00604 -201445606047 00534 +144560604343 00613 -204663212260 00547 +212260144560 00545 +146460603163 00577 -076060606060 00647 -232560302543 00564 +302451602421 00650 -265160476260 00556 +236045232360 00527 +116001026023 00544 +146460600660 00562 +253560606060 00643 -226014432151 00542 +146444462425 00573 -062425624060 00572 -042502604044 00571 -042501604521 00543 +146447604521 00614 -204663212262 00611 -203163212262 00601 -200000610000 00660 -377700000000 00524 +000077770000 00642 -210000146060 00506 +000000000022 00522 +000000007777 00617 -206024216325 00625 -206060302451 00635 -206060604762 00641 -206060606651 00627 -206060452323 00632 -206060602323 00503 +000000000014 00631 -206060600102 00500 +000000000011 00637 -206060606011 00476 +000000000006 00636 -206060606006 00600 -200000000000 00525 +007777777777 00654 -340000000000 00657 -370000000000 00512 +000000000060 00661 -377777777700 00507 +000000000034 00513 +000000000077 00473 +000000000003 00516 +000000000226 00514 +000000000124 00517 +000000000550 00470 +000000000000 00566 +331454142260 00575 -064444214524 00646 -232560140123 00555 +234644474325 00530 +140114513145 00621 -206030254347 00656 -343025434734 00472 +000000000002 00471 +000000000001 00554 +233000000000 0STATEMENT DICTIONARY 00055 TXL -301452001444 00056 TXL -303506003505 00057 TXL -303451003450 00060 TXL -302566002564 00061 TXL -303455003452 00062 TXL -303510003506 00063 TXL -303514003512 00064 TXL -301623001620 00065 TXL -303126003116 00066 TXL -302160002155 00067 TXL -301236001235 00070 TXL -301462001453 00071 TXL -302373002361 00072 TXL -301741001740 00073 TXL -303450003445 00074 TXL -302550002544 00075 TXL -302544002544 00076 TXL -302544002544 00077 TXL -302477002465 00100 TXL -302465002465 00101 TXL -302465002465 00102 TXL -302465002465 00103 TXL -302544002544 00104 TXL -302543002537 00105 TXL -302537002537 00106 TXL -302465002465 00107 TXL -302537002537 00110 TXL -303434003431 00111 TXL -301150001141 00112 TXL -304223004220 00113 TXL -302640002627 00114 TXL -304225004223 00115 TXL -303114003112 00116 TXL -303111003106 00117 TXL -303105003102 00120 TXL -303056003056 00121 TXL -303045003042 00122 TXL -303024003022 0PROGRAM W'R (COMARG.(2,FN1).E.FENCE).OR.(COMARG.(1,FN).E.FENCE) 001 LM00003 00662 TSX +0 07400 4 00016 00663 TSX +0 07400 4 00007 00664 TXH +3 00000 0 00471 00665 TXH +3 00000 0 00213 00666 SUB +0 40200 0 00206 00667 TZE +0 10000 0 00675 00670 TSX +0 07400 4 00007 00671 TXH +3 00000 0 00472 00672 TXH +3 00000 0 00210 00673 SUB +0 40200 0 00206 00674 TNZ -0 10000 0 00714 W'R FN.E.$ HELP$.OR.FN.E.$(HELP)$, T'O HELP 002 LM00004 00675 CLA +0 50000 0 00213 00676 SUB +0 40200 0 00656 00677 TZE +0 10000 0 00703 00700 CLA +0 50000 0 00213 00701 SUB +0 40200 0 00621 00702 TNZ -0 10000 0 00704 00703 TRA +0 02000 0 00067 PRFULL.($'1'RINCOMPLETE '1COMMAND.'*'B$) 003 LM00005 00704 TSX +0 07400 4 00024 00705 TXH +3 00000 0 00530 00706 TXH +3 00000 0 00555 00707 TXH +3 00000 0 00646 00710 TXH +3 00000 0 00575 00711 TXH +3 00000 0 00566 CHNCOM.(0) 004 LM00006 00712 TSX +0 07400 4 00004 00713 TXH +3 00000 0 00470 E'L 005 LM00007 GETBUF.(IN,360) 006 LM00008 00714 TSX +0 07400 4 00014 00715 TXH +3 00000 0 00217 00716 TXH +3 00000 0 00517 GETBUF.(OUT,84) 007 LM00009 00717 TSX +0 07400 4 00014 00720 TXH +3 00000 0 00310 00721 TXH +3 00000 0 00514 GETBUF.(ITABS,150) 008 LM00010 00722 TSX +0 07400 4 00014 00723 TXH +3 00000 0 00221 00724 TXH +3 00000 0 00516 GETBUF.(OTABS,150) 009 LM00011 00725 TSX +0 07400 4 00014 00726 TXH +3 00000 0 00306 00727 TXH +3 00000 0 00516 MODE=0 010 LM00012 00730 CLA +0 50000 0 00470 00731 STO +0 60100 0 00270 LMSW=0B 011 LM00013 00732 CLA +0 50000 0 00470 00733 STO +0 60100 0 00241 LNSZ=0 012 LM00014 00734 CLA +0 50000 0 00470 00735 STO +0 60100 0 00242 HDRSW=0B 013 LM00015 00736 CLA +0 50000 0 00470 00737 STO +0 60100 0 00214 DATESW=0B 014 LM00016 00740 CLA +0 50000 0 00470 00741 STO +0 60100 0 00151 CC=0B 015 LM00017 00742 CLA +0 50000 0 00470 00743 STO +0 60100 0 00140 NCCS=1B 016 LM00018 00744 CLA +0 50000 0 00471 00745 STO +0 60100 0 00274 PS=0B 017 LM00019 00746 CLA +0 50000 0 00470 00747 STO +0 60100 0 00345 NIT=0 018 LM00020 00750 CLA +0 50000 0 00470 00751 STO +0 60100 0 00275 NOT=0 019 LM00021 00752 CLA +0 50000 0 00470 00753 STO +0 60100 0 00302 MADSW=0B 020 LM00022 00754 CLA +0 50000 0 00470 00755 STO +0 60100 0 00246 T'H AL, FOR I=3,1,COMARG.(I,ARG).E.FENCE 021 LM00023 00756 CLA +0 50000 0 00473 00757 STO +0 60100 0 00220 00760 TRA +0 02000 0 00764 00761 CLA +0 50000 0 00220 00762 ADD +0 40000 0 00471 00763 STO +0 60100 0 00220 00764 TSX +0 07400 4 00007 00765 TXH +3 00000 0 00220 00766 TXH +3 00000 0 00125 00767 SUB +0 40200 0 00206 00770 TZE +0 10000 0 01464 ARGX=ARG 022 LM00024 00771 CLA +0 50000 0 00125 00772 STO +0 60100 0 00126 W'R ARG.A.77K.E.34K 023 LM00025 00773 CAL -0 50000 0 00125 00774 ANA -0 32000 0 00513 00775 SLW +0 60200 0 04420 00776 CLA +0 50000 0 04420 00777 SUB +0 40200 0 00507 01000 TNZ -0 10000 0 01031 ARG=LJUST.(ARG.A.7777777777K2.V.60K) 024 LM00026 01001 CAL -0 50000 0 00125 01002 ANA -0 32000 0 00661 01003 ORA -0 50100 0 00512 01004 SLW +0 60200 0 04420 01005 TSX +0 07400 4 00017 01006 TXH +3 00000 0 04420 01007 STO +0 60100 0 00125 W'R ARG.A.77K10.NE.74K10, T'O BAD 025 LM00027 01010 CAL -0 50000 0 00125 01011 ANA -0 32000 0 00657 01012 SLW +0 60200 0 04420 01013 CLA +0 50000 0 04420 01014 SUB +0 40200 0 00654 01015 TZE +0 10000 0 01017 01016 TRA +0 02000 0 00055 ARG=BZEL.(RJUST.(ARG.A.7777777777K.V.60K10)) 026 LM00028 01017 CAL -0 50000 0 00125 01020 ANA -0 32000 0 00525 01021 ORA -0 50100 0 00600 01022 SLW +0 60200 0 04420 01023 TSX +0 07400 4 00031 01024 TXH +3 00000 0 04420 01025 STO +0 60100 0 04420 01026 TSX +0 07400 4 00003 01027 TXH +3 00000 0 04420 01030 STO +0 60100 0 00125 E'L 027 LM00029 W'R ARG.E.$ 6$ 028 LM00030 01031 CLA +0 50000 0 00125 01032 SUB +0 40200 0 00636 01033 TNZ -0 10000 0 01037 MODE=6 029 LM00031 01034 CLA +0 50000 0 00476 01035 STO +0 60100 0 00270 O'R ARG.E.$ 9$ 030 LM00032 01036 TRA +0 02000 0 01463 01037 CLA +0 50000 0 00125 01040 SUB +0 40200 0 00637 01041 TNZ -0 10000 0 01051 MODE=9 031 LM00033 01042 CLA +0 50000 0 00500 01043 STO +0 60100 0 00270 CC=0B 032 LM00034 01044 CLA +0 50000 0 00470 01045 STO +0 60100 0 00140 NCCS=0B 033 LM00035 01046 CLA +0 50000 0 00470 01047 STO +0 60100 0 00274 O'R ARG.E.$ 12$ 034 LM00036 01050 TRA +0 02000 0 01463 01051 CLA +0 50000 0 00125 01052 SUB +0 40200 0 00631 01053 TNZ -0 10000 0 01063 MODE=12 035 LM00037 01054 CLA +0 50000 0 00503 01055 STO +0 60100 0 00270 CC=0B 036 LM00038 01056 CLA +0 50000 0 00470 01057 STO +0 60100 0 00140 NCCS=0B 037 LM00039 01060 CLA +0 50000 0 00470 01061 STO +0 60100 0 00274 O'R ARG.E.$ CC$ 038 LM00040 01062 TRA +0 02000 0 01463 01063 CLA +0 50000 0 00125 01064 SUB +0 40200 0 00632 01065 TNZ -0 10000 0 01073 CC=1B 039 LM00041 01066 CLA +0 50000 0 00471 01067 STO +0 60100 0 00140 NCCS=0B 040 LM00042 01070 CLA +0 50000 0 00470 01071 STO +0 60100 0 00274 O'R ARG.E.$ NCC$ 041 LM00043 01072 TRA +0 02000 0 01463 01073 CLA +0 50000 0 00125 01074 SUB +0 40200 0 00627 01075 TNZ -0 10000 0 01103 CC=0B 042 LM00044 01076 CLA +0 50000 0 00470 01077 STO +0 60100 0 00140 NCCS=0B 043 LM00045 01100 CLA +0 50000 0 00470 01101 STO +0 60100 0 00274 O'R ARG.E.$ WR$ 044 LM00046 01102 TRA +0 02000 0 01463 01103 CLA +0 50000 0 00125 01104 SUB +0 40200 0 00641 01105 TNZ -0 10000 0 01111 WR=1B 045 LM00047 01106 CLA +0 50000 0 00471 01107 STO +0 60100 0 00466 O'R ARG.E.$ PS$ 046 LM00048 01110 TRA +0 02000 0 01463 01111 CLA +0 50000 0 00125 01112 SUB +0 40200 0 00635 01113 TNZ -0 10000 0 01117 PS=1B 047 LM00049 01114 CLA +0 50000 0 00471 01115 STO +0 60100 0 00345 O'R ARG.E.$ HDR$ 048 LM00050 01116 TRA +0 02000 0 01463 01117 CLA +0 50000 0 00125 01120 SUB +0 40200 0 00625 01121 TNZ -0 10000 0 01132 HDRSW=1B 049 LM00051 01122 CLA +0 50000 0 00471 01123 STO +0 60100 0 00214 PAGENO=1 050 LM00052 01124 CLA +0 50000 0 00471 01125 STO +0 60100 0 00311 PGNO=2 051 LM00053 01126 CLA +0 50000 0 00472 01127 STO +0 60100 0 00342 T'O PHDR1 052 LM00054 01130 TRA +0 02000 0 00111 O'R ARG.E.$ DATE$ 053 LM00055 01131 TRA +0 02000 0 01463 01132 CLA +0 50000 0 00125 01133 SUB +0 40200 0 00617 01134 TNZ -0 10000 0 01204 DATESW=1B 054 LM00056 01135 CLA +0 50000 0 00471 01136 STO +0 60100 0 00151 PGNO=0 055 LM00057 01137 CLA +0 50000 0 00470 01140 STO +0 60100 0 00342 PHDR1 FTIME.(GTDYTM.(0),DATE,TIME) 056 LM00058 01141 TSX +0 07400 4 00015 01142 TXH +3 00000 0 00470 01143 STO +0 60100 0 04420 01144 TSX +0 07400 4 00013 01145 TXH +3 00000 0 04420 01146 TXH +3 00000 0 00150 01147 TXH +3 00000 0 00420 DATE(1)=(DATE.A.7777K).LS.18.V.$/00' $ 057 LM00059 01150 CAL -0 50000 0 00150 01151 ANA -0 32000 0 00522 01152 SLW +0 60200 0 04420 01153 CAL -0 50000 0 00506 01154 STA +0 62100 0 01156 01155 CAL -0 50000 0 04420 01156 ALS +0 76700 0 00000 01157 ORA -0 50100 0 00642 01160 SLW +0 60200 0 00147 DATE=(DATE.A.7777K8).RS.6.V.(DATE.A.7777K4).RS.12 058 LM00060 1 .V.$ 00/00$ 058 LM00061 01161 CAL -0 50000 0 00150 01162 ANA -0 32000 0 00524 01163 SLW +0 60200 0 04420 01164 CAL -0 50000 0 00503 01165 STA +0 62100 0 01167 01166 CAL -0 50000 0 04420 01167 LGR -0 76500 0 00000 01170 SLW +0 60200 0 04420 01171 CAL -0 50000 0 00150 01172 ANA -0 32000 0 00660 01173 SLW +0 60200 0 04421 01174 CAL -0 50000 0 00476 01175 STA +0 62100 0 01177 01176 CAL -0 50000 0 04421 01177 LGR -0 76500 0 00000 01200 ORA -0 50100 0 04420 01201 ORA -0 50100 0 00601 01202 SLW +0 60200 0 00150 V'S PGN=$ PAGE 1'8$ 059 LM00062 00343 +0 11410 6 06060 00344 -2 04721 2 72560 D'N DATE(1) 060 LM00063 O'R ARG.E.$ ITABS$ 061 LM00064 01203 TRA +0 02000 0 01463 01204 CLA +0 50000 0 00125 01205 SUB +0 40200 0 00611 01206 TNZ -0 10000 0 01217 GETTAB.(NIT,ITABS(ITABS)) 062 LM00065 01207 CLA +0 50000 0 00221 01210 SUB +0 40200 0 01211 01211 TXH +3 00000 0 00221 01212 STA +0 62100 0 01215 01213 TSX +0 07400 4 00043 01214 TXH +3 00000 0 00275 01215 TXH +3 00000 0 00000 O'R ARG.E.$ OTABS$ 063 LM00066 01216 TRA +0 02000 0 01463 01217 CLA +0 50000 0 00125 01220 SUB +0 40200 0 00614 01221 TNZ -0 10000 0 01232 GETTAB.(NOT,OTABS(OTABS)) 064 LM00067 01222 CLA +0 50000 0 00306 01223 SUB +0 40200 0 01224 01224 TXH +3 00000 0 00306 01225 STA +0 62100 0 01230 01226 TSX +0 07400 4 00043 01227 TXH +3 00000 0 00302 01230 TXH +3 00000 0 00000 O'R ARG.E.$ HELP$ 065 LM00068 01231 TRA +0 02000 0 01463 01232 CLA +0 50000 0 00125 01233 SUB +0 40200 0 00621 01234 TNZ -0 10000 0 01312 HELP PRMESS. 066 LM00069 01235 TSX +0 07400 4 00025 PRFULL.($'UP NAME1 NAME2 -MODES-$) 067 LM00070 01236 TSX +0 07400 4 00024 01237 TXH +3 00000 0 00543 01240 TXH +3 00000 0 00571 01241 TXH +3 00000 0 00572 01242 TXH +3 00000 0 00573 PRFULL.($'UMODES 'LARE:$) 068 LM00071 01243 TSX +0 07400 4 00024 01244 TXH +3 00000 0 00542 01245 TXH +3 00000 0 00643 01246 TXH +3 00000 0 00562 PRFULL.($'U 6 9 12 CC NCC WR PS HDR DATE HELP$) 069 LM00072 01247 TSX +0 07400 4 00024 01250 TXH +3 00000 0 00544 01251 TXH +3 00000 0 00527 01252 TXH +3 00000 0 00556 01253 TXH +3 00000 0 00650 01254 TXH +3 00000 0 00564 01255 TXH +3 00000 0 00647 01256 TXH +3 00000 0 00577 PRFULL.($'U ITAB 'N OTAB 'N LL 'N PGL 'N BLKSIZ 'N'8$, 070 LM00073 1 $ FILE 'LNAME4$) 070 LM00074 01257 TSX +0 07400 4 00024 01260 TXH +3 00000 0 00545 01261 TXH +3 00000 0 00547 01262 TXH +3 00000 0 00613 01263 TXH +3 00000 0 00534 01264 TXH +3 00000 0 00604 01265 TXH +3 00000 0 00563 01266 TXH +3 00000 0 00607 01267 TXH +3 00000 0 00652 01270 TXH +3 00000 0 00620 01271 TXH +3 00000 0 00603 01272 TXH +3 00000 0 00560 PRFULL.($'U ITABS '4LIST OTABS '4LIST$) 071 LM00075 01273 TSX +0 07400 4 00024 01274 TXH +3 00000 0 00545 01275 TXH +3 00000 0 00550 01276 TXH +3 00000 0 00570 01277 TXH +3 00000 0 00576 01300 TXH +3 00000 0 00532 PRFULL.($ LIST CONTAINS: 'U'N CTSS FAP MAD$) 072 LM00076 01301 TSX +0 07400 4 00024 01302 TXH +3 00000 0 00633 01303 TXH +3 00000 0 00644 01304 TXH +3 00000 0 00645 01305 TXH +3 00000 0 00605 01306 TXH +3 00000 0 00557 01307 TXH +3 00000 0 00552 T'O EGRETS 073 LM00077 01310 TRA +0 02000 0 00062 O'R COMARG.(I+1,ARG1).NE.FENCE 074 LM00078 01311 TRA +0 02000 0 01463 01312 CLA +0 50000 0 00220 01313 ADD +0 40000 0 00471 01314 STO +0 60100 0 04421 01315 TSX +0 07400 4 00007 01316 TXH +3 00000 0 04421 01317 TXH +3 00000 0 00124 01320 SUB +0 40200 0 00206 01321 TZE +0 10000 0 01444 I=I+1 075 LM00079 01322 CLA +0 50000 0 00220 01323 ADD +0 40000 0 00471 01324 STO +0 60100 0 00220 W'R ARG.E.$ ITAB$ 076 LM00080 01325 CLA +0 50000 0 00125 01326 SUB +0 40200 0 00622 01327 TNZ -0 10000 0 01340 ITD=BCDC.(ARG1) 077 LM00081 01330 TSX +0 07400 4 00042 01331 TXH +3 00000 0 00124 01332 STO +0 60100 0 00222 W'R ITD.E.0, T'O ILL 078 LM00082 01333 CLA +0 50000 0 00222 01334 SUB +0 40200 0 00470 01335 TNZ -0 10000 0 01337 01336 TRA +0 02000 0 00070 O'R ARG.E.$ OTAB$ 079 LM00083 01337 TRA +0 02000 0 01443 01340 CLA +0 50000 0 00125 01341 SUB +0 40200 0 00623 01342 TNZ -0 10000 0 01353 OTD=BCDC.(ARG1) 080 LM00084 01343 TSX +0 07400 4 00042 01344 TXH +3 00000 0 00124 01345 STO +0 60100 0 00307 W'R OTD.E.0, T'O ILL 081 LM00085 01346 CLA +0 50000 0 00307 01347 SUB +0 40200 0 00470 01350 TNZ -0 10000 0 01352 01351 TRA +0 02000 0 00070 O'R ARG.E.$ LL$ 082 LM00086 01352 TRA +0 02000 0 01443 01353 CLA +0 50000 0 00125 01354 SUB +0 40200 0 00634 01355 TNZ -0 10000 0 01366 SLL=BCDC.(ARG1) 083 LM00087 01356 TSX +0 07400 4 00042 01357 TXH +3 00000 0 00124 01360 STO +0 60100 0 00347 W'R SLL.E.0, T'O ILL 084 LM00088 01361 CLA +0 50000 0 00347 01362 SUB +0 40200 0 00470 01363 TNZ -0 10000 0 01365 01364 TRA +0 02000 0 00070 O'R ARG.E.$ PGL$ 085 LM00089 01365 TRA +0 02000 0 01443 01366 CLA +0 50000 0 00125 01367 SUB +0 40200 0 00630 01370 TNZ -0 10000 0 01401 SPGL=BCDC.(ARG1) 086 LM00090 01371 TSX +0 07400 4 00042 01372 TXH +3 00000 0 00124 01373 STO +0 60100 0 00350 W'R SPGL.E.0, T'O ILL 087 LM00091 01374 CLA +0 50000 0 00350 01375 SUB +0 40200 0 00470 01376 TNZ -0 10000 0 01400 01377 TRA +0 02000 0 00070 O'R ARG.E.$BLKSIZ$ 088 LM00092 01400 TRA +0 02000 0 01443 01401 CLA +0 50000 0 00125 01402 SUB +0 40200 0 00553 01403 TNZ -0 10000 0 01420 LNSZ=BCDC.(ARG1) 089 LM00093 01404 TSX +0 07400 4 00042 01405 TXH +3 00000 0 00124 01406 STO +0 60100 0 00242 W'R LNSZ.E.0, T'O ILL 090 LM00094 01407 CLA +0 50000 0 00242 01410 SUB +0 40200 0 00470 01411 TNZ -0 10000 0 01413 01412 TRA +0 02000 0 00070 CC=0B 091 LM00095 01413 CLA +0 50000 0 00470 01414 STO +0 60100 0 00140 NCCS=0B 092 LM00096 01415 CLA +0 50000 0 00470 01416 STO +0 60100 0 00274 O'R ARG.E.$ FILE$ 093 LM00097 01417 TRA +0 02000 0 01443 01420 CLA +0 50000 0 00125 01421 SUB +0 40200 0 00620 01422 TNZ -0 10000 0 01442 FILESW=1B 094 LM00098 01423 CLA +0 50000 0 00471 01424 STO +0 60100 0 00207 FNARY=FN 095 LM00099 01425 CLA +0 50000 0 00213 01426 STO +0 60100 0 00212 FNARY(1)=ARG1 096 LM00100 01427 CLA +0 50000 0 00124 01430 STO +0 60100 0 00211 DELETE.(FNARY,FNARY(1),0,EGRETS) 097 LM00101 01431 TSX +0 07400 4 00011 01432 TXH +3 00000 0 00212 01433 TXH +3 00000 0 00211 01434 TXH +3 00000 0 00470 01435 TXH +3 00000 0 00062 DIMENSION FNARY(1) 098 LM00102 OPENW.(FN,ARG1) 099 LM00103 01436 TSX +0 07400 4 00021 01437 TXH +3 00000 0 00213 01440 TXH +3 00000 0 00124 O'E 100 LM00104 01441 TRA +0 02000 0 01443 T'O BAD 101 LM00105 01442 TRA +0 02000 0 00055 E'L 102 LM00106 O'E 103 LM00107 01443 TRA +0 02000 0 01463 BAD PRFULL.($'R'X'8$,ARGX,$ NOT RECOGNIZED.'B$) 104 LM00108 01444 TSX +0 07400 4 00024 01445 TXH +3 00000 0 00537 01446 TXH +3 00000 0 00126 01447 TXH +3 00000 0 00612 01450 TXH +3 00000 0 00561 01451 TXH +3 00000 0 00651 T'O EGRETS 105 LM00109 01452 TRA +0 02000 0 00062 ILL PRFULL.($'R'X'8$,ARGX,$'X '8$,ARG1,$ ILLEGAL.'B$) 106 LM00110 01453 TSX +0 07400 4 00024 01454 TXH +3 00000 0 00537 01455 TXH +3 00000 0 00126 01456 TXH +3 00000 0 00546 01457 TXH +3 00000 0 00124 01460 TXH +3 00000 0 00610 01461 TXH +3 00000 0 00551 T'O EGRETS 107 LM00111 01462 TRA +0 02000 0 00062 AL E'L 108 LM00112 01463 TRA +0 02000 0 00761 W'R (SPGL.L.5.OR.(SPGL.L.8.AND.HDRSW)).AND.SPGL.NE.0 109 LM00113 01464 CLA +0 50000 0 00350 01465 SUB +0 40200 0 00470 01466 TZE +0 10000 0 01517 01467 NZT -0 52000 0 00214 01470 TRA +0 02000 0 01475 01471 CLA +0 50000 0 00350 01472 SUB +0 40200 0 00477 01473 TZE +0 10000 0 01475 01474 TMI -0 12000 0 01501 01475 CLA +0 50000 0 00350 01476 SUB +0 40200 0 00475 01477 TZE +0 10000 0 01517 01500 TPL +0 12000 0 01517 PRFULL.($'R'3 PGL '8$,BZEL.(DEFBC.(SPGL)),$ ILLEGAL.'B$) 110 LM00114 01501 TSX +0 07400 4 00010 01502 TXH +3 00000 0 00350 01503 STO +0 60100 0 04421 01504 TSX +0 07400 4 00003 01505 TXH +3 00000 0 04421 01506 STO +0 60100 0 04421 01507 TSX +0 07400 4 00024 01510 TXH +3 00000 0 00536 01511 TXH +3 00000 0 00615 01512 TXH +3 00000 0 00526 01513 TXH +3 00000 0 04421 01514 TXH +3 00000 0 00610 01515 TXH +3 00000 0 00551 T'O EGRETS 111 LM00115 01516 TRA +0 02000 0 00062 E'L 112 LM00116 W'R NIT.E.0 113 LM00117 01517 CLA +0 50000 0 00275 01520 SUB +0 40200 0 00470 01521 TNZ -0 10000 0 01546 T'H ITDL, FOR I=ITD+1,ITD,I.G.150 114 LM00118 01522 CLA +0 50000 0 00222 01523 ADD +0 40000 0 00471 01524 STO +0 60100 0 00220 01525 TRA +0 02000 0 01531 01526 CLA +0 50000 0 00220 01527 ADD +0 40000 0 00222 01530 STO +0 60100 0 00220 01531 CLA +0 50000 0 00220 01532 SUB +0 40200 0 00516 01533 TZE +0 10000 0 01535 01534 TPL +0 12000 0 01546 NIT=NIT+1 115 LM00119 01535 CLA +0 50000 0 00275 01536 ADD +0 40000 0 00471 01537 STO +0 60100 0 00275 ITABS(ITABS+NIT)=I 116 LM00120 01540 CLA +0 50000 0 00221 01541 ADD +0 40000 0 00275 01542 PAX +0 73400 1 00000 01543 CLA +0 50000 0 00220 01544 STO +0 60100 1 00221 ITDL C'E 117 LM00121 01545 TRA +0 02000 0 01526 E'L 118 LM00122 W'R NOT.E.0 119 LM00123 01546 CLA +0 50000 0 00302 01547 SUB +0 40200 0 00470 01550 TNZ -0 10000 0 01575 T'H OTDL, FOR I=OTD+1,OTD,I.G.150 120 LM00124 01551 CLA +0 50000 0 00307 01552 ADD +0 40000 0 00471 01553 STO +0 60100 0 00220 01554 TRA +0 02000 0 01560 01555 CLA +0 50000 0 00220 01556 ADD +0 40000 0 00307 01557 STO +0 60100 0 00220 01560 CLA +0 50000 0 00220 01561 SUB +0 40200 0 00516 01562 TZE +0 10000 0 01564 01563 TPL +0 12000 0 01575 NOT=NOT+1 121 LM00125 01564 CLA +0 50000 0 00302 01565 ADD +0 40000 0 00471 01566 STO +0 60100 0 00302 OTABS(OTABS+NOT)=I 122 LM00126 01567 CLA +0 50000 0 00306 01570 ADD +0 40000 0 00302 01571 PAX +0 73400 1 00000 01572 CLA +0 50000 0 00220 01573 STO +0 60100 1 00306 OTDL C'E 123 LM00127 01574 TRA +0 02000 0 01555 E'L 124 LM00128 SETBRK.(BRKOUT) 125 LM00129 01575 TSX +0 07400 4 00033 01576 TXH +3 00000 0 00056 OPENF.(FN,FN1) 126 LM00133 01577 TSX +0 07400 4 00020 01600 TXH +3 00000 0 00213 01601 TXH +3 00000 0 00210 EOFCT=360 127 LM00134 01602 CLA +0 50000 0 00517 01603 STO +0 60100 0 00166 RDWAIT.(FN,FN1,1,IN(IN+360)...360,EOFT,EOFCT) 128 LM00135 01604 CLA +0 50000 0 00217 01605 ADD +0 40000 0 00517 01606 SUB +0 40200 0 01607 01607 TXH +3 00000 0 00217 01610 STA +0 62100 0 01615 01611 TSX +0 07400 4 00027 01612 TXH +3 00000 0 00213 01613 TXH +3 00000 0 00210 01614 TXH +3 00000 0 00471 01615 TIX +2 00517 0 00000 01616 TXH +3 00000 0 00064 01617 TXH +3 00000 0 00166 EOFT IL=360-EOFCT 129 LM00136 01620 CLA +0 50000 0 00517 01621 SUB +0 40200 0 00166 01622 STO +0 60100 0 00216 T'H LLM, FOR I=360,-1,I.LE.IL.OR.LMSW 130 LM00137 01623 CLA +0 50000 0 00517 01624 STO +0 60100 0 00220 01625 TRA +0 02000 0 01631 01626 CLS +0 50200 0 00471 01627 ADD +0 40000 0 00220 01630 STO +0 60100 0 00220 01631 ZET +0 52000 0 00241 01632 TRA +0 02000 0 01653 01633 CLA +0 50000 0 00220 01634 SUB +0 40200 0 00216 01635 TZE +0 10000 0 01653 01636 TMI -0 12000 0 01653 W'R IN(IN+I).A.LM .E.LM, LMSW=1B 131 LM00138 01637 CLA +0 50000 0 00217 01640 ADD +0 40000 0 00220 01641 PAX +0 73400 1 00000 01642 CAL -0 50000 1 00217 01643 ANA -0 32000 0 00240 01644 SLW +0 60200 0 04421 01645 CLA +0 50000 0 04421 01646 SUB +0 40200 0 00240 01647 TNZ -0 10000 0 01652 01650 CLA +0 50000 0 00471 01651 STO +0 60100 0 00241 LLM C'E 132 LM00139 01652 TRA +0 02000 0 01626 W'R MODE.E.0 133 LM00140 01653 CLA +0 50000 0 00270 01654 SUB +0 40200 0 00470 01655 TNZ -0 10000 0 01771 N9=0B 134 LM00141 01656 CLA +0 50000 0 00470 01657 STO +0 60100 0 00273 N12=0B 135 LM00142 01660 CLA +0 50000 0 00470 01661 STO +0 60100 0 00272 T'H LT, FOR I=360,-1,I.LE.IL.OR.N9.AND.N12 136 LM00143 01662 CLA +0 50000 0 00517 01663 STO +0 60100 0 00220 01664 TRA +0 02000 0 01670 01665 CLS +0 50200 0 00471 01666 ADD +0 40000 0 00220 01667 STO +0 60100 0 00220 01670 NZT -0 52000 0 00272 01671 TRA +0 02000 0 01674 01672 ZET +0 52000 0 00273 01673 TRA +0 02000 0 01741 01674 CLA +0 50000 0 00220 01675 SUB +0 40200 0 00216 01676 TZE +0 10000 0 01741 01677 TMI -0 12000 0 01741 CHAR=IN(IN+I) 137 LM00144 01700 CLA +0 50000 0 00217 01701 ADD +0 40000 0 00220 01702 PAX +0 73400 2 00000 01703 CLA +0 50000 2 00217 01704 STO +0 60100 0 00142 W'R CHAR.A.LM.E.LM, T'O LT 138 LM00145 01705 CAL -0 50000 0 00142 01706 ANA -0 32000 0 00240 01707 SLW +0 60200 0 04421 01710 CLA +0 50000 0 04421 01711 SUB +0 40200 0 00240 01712 TNZ -0 10000 0 01714 01713 TRA +0 02000 0 00072 W'R .NOT.N9.AND.CHAR.A.600600600600K.NE.0,N9=1B 139 LM00146 01714 CAL -0 50000 0 00142 01715 ANA -0 32000 0 00602 01716 SLW +0 60200 0 04421 01717 CLA +0 50000 0 04421 01720 SUB +0 40200 0 00470 01721 TZE +0 10000 0 01726 01722 ZET +0 52000 0 00273 01723 TRA +0 02000 0 01726 01724 CLA +0 50000 0 00471 01725 STO +0 60100 0 00273 W'R .NOT.N12.AND.CHAR.A.720072007200K.NE.0,N12=1B 140 LM00147 01726 CAL -0 50000 0 00142 01727 ANA -0 32000 0 00653 01730 SLW +0 60200 0 04421 01731 CLA +0 50000 0 04421 01732 SUB +0 40200 0 00470 01733 TZE +0 10000 0 01740 01734 ZET +0 52000 0 00272 01735 TRA +0 02000 0 01740 01736 CLA +0 50000 0 00471 01737 STO +0 60100 0 00272 LT C'E 141 LM00148 01740 TRA +0 02000 0 01665 W'R .NOT.N9.AND.N12 142 LM00149 01741 NZT -0 52000 0 00272 01742 TRA +0 02000 0 01754 01743 ZET +0 52000 0 00273 01744 TRA +0 02000 0 01754 MODE=9 143 LM00150 01745 CLA +0 50000 0 00500 01746 STO +0 60100 0 00270 NCCS=0B 144 LM00151 01747 CLA +0 50000 0 00470 01750 STO +0 60100 0 00274 CC=0B 145 LM00152 01751 CLA +0 50000 0 00470 01752 STO +0 60100 0 00140 O'R .NOT.N12.AND.N9 146 LM00153 01753 TRA +0 02000 0 01771 01754 NZT -0 52000 0 00273 01755 TRA +0 02000 0 01767 01756 ZET +0 52000 0 00272 01757 TRA +0 02000 0 01767 MODE=12 147 LM00154 01760 CLA +0 50000 0 00503 01761 STO +0 60100 0 00270 NCCS=0B 148 LM00155 01762 CLA +0 50000 0 00470 01763 STO +0 60100 0 00274 CC=0B 149 LM00156 01764 CLA +0 50000 0 00470 01765 STO +0 60100 0 00140 O'E 150 LM00157 01766 TRA +0 02000 0 01771 MODE=6 151 LM00158 01767 CLA +0 50000 0 00476 01770 STO +0 60100 0 00270 E'L 152 LM00159 E'L 153 LM00160 IN(IN+IL+1)=0 154 LM00161 01771 CLA +0 50000 0 00217 01772 ADD +0 40000 0 00216 01773 ADD +0 40000 0 00471 01774 PAX +0 73400 1 00000 01775 CLA +0 50000 0 00470 01776 STO +0 60100 1 00217 T'H CCTL, FOR I=360,-1,I.LE.IL.OR..NOT.NCCS 155 LM00162 01777 CLA +0 50000 0 00517 02000 STO +0 60100 0 00220 02001 TRA +0 02000 0 02005 02002 CLS +0 50200 0 00471 02003 ADD +0 40000 0 00220 02004 STO +0 60100 0 00220 02005 NZT -0 52000 0 00274 02006 TRA +0 02000 0 02101 02007 CLA +0 50000 0 00220 02010 SUB +0 40200 0 00216 02011 TZE +0 10000 0 02101 02012 TMI -0 12000 0 02101 PCC=IN(IN+I-1).RS.30 156 LM00163 02013 CLA +0 50000 0 00217 02014 ADD +0 40000 0 00220 02015 SUB +0 40200 0 00471 02016 PAX +0 73400 1 00000 02017 CAL -0 50000 0 00510 02020 STA +0 62100 0 02022 02021 CAL -0 50000 1 00217 02022 LGR -0 76500 0 00000 02023 SLW +0 60200 0 00326 PCL T'H PCL, FOR J=0,1,J.G.NPCC.OR.PCC.E.PCCL(J) 157 LM00164 02024 CLA +0 50000 0 00470 02025 STO +0 60100 0 00223 02026 TRA +0 02000 0 02032 02027 CLA +0 50000 0 00223 02030 ADD +0 40000 0 00471 02031 STO +0 60100 0 00223 02032 LXA +0 53400 2 00223 02033 CLA +0 50000 0 00326 02034 SUB +0 40200 2 00325 02035 TZE +0 10000 0 02043 02036 CLA +0 50000 0 00223 02037 SUB +0 40200 0 00303 02040 TZE +0 10000 0 02042 02041 TPL +0 12000 0 02043 02042 TRA +0 02000 0 02027 W'R J.G.NPCC.OR.IN(IN+I).A.LM.NE.LM 158 LM00165 02043 CLA +0 50000 0 00217 02044 ADD +0 40000 0 00220 02045 PAX +0 73400 1 00000 02046 CAL -0 50000 1 00217 02047 ANA -0 32000 0 00240 02050 SLW +0 60200 0 04421 02051 CLA +0 50000 0 04421 02052 SUB +0 40200 0 00240 02053 TNZ -0 10000 0 02060 02054 CLA +0 50000 0 00223 02055 SUB +0 40200 0 00303 02056 TZE +0 10000 0 02065 02057 TMI -0 12000 0 02065 NCCS=0B 159 LM00166 02060 CLA +0 50000 0 00470 02061 STO +0 60100 0 00274 CC=0B 160 LM00167 02062 CLA +0 50000 0 00470 02063 STO +0 60100 0 00140 O'E 161 LM00168 02064 TRA +0 02000 0 02100 I=I-IN(IN+I).A.77777K 162 LM00169 02065 CLA +0 50000 0 00217 02066 ADD +0 40000 0 00220 02067 PAX +0 73400 1 00000 02070 CAL -0 50000 1 00217 02071 ANA -0 32000 0 00523 02072 SLW +0 60200 0 04421 02073 CLA +0 50000 0 00220 02074 SUB +0 40200 0 04421 02075 STO +0 60100 0 00220 CC=1B 163 LM00170 02076 CLA +0 50000 0 00471 02077 STO +0 60100 0 00140 E'L 164 LM00171 CCTL C'E 165 LM00172 02100 TRA +0 02000 0 02002 WHOAMI.(OUT(OUT+4)...4) 166 LM00176 02101 CLA +0 50000 0 00310 02102 ADD +0 40000 0 00474 02103 SUB +0 40200 0 02104 02104 TXH +3 00000 0 00310 02105 STA +0 62100 0 02107 02106 TSX +0 07400 4 00037 02107 TIX +2 00474 0 00000 W'R OUT(OUT+1) .E. $(FIB) $ 167 LM00177 02110 CLA +0 50000 0 00310 02111 ADD +0 40000 0 00471 02112 PAX +0 73400 1 00000 02113 CLA +0 50000 1 00310 02114 SUB +0 40200 0 00655 02115 TNZ -0 10000 0 02122 ID=10 168 LM00178 02116 CLA +0 50000 0 00501 02117 STO +0 60100 0 00215 T'O GETTIM 169 LM00179 02120 TRA +0 02000 0 00066 O'E 170 LM00180 02121 TRA +0 02000 0 02247 ID = OUT(OUT+1) .RS. 30 171 LM00181 02122 CLA +0 50000 0 00310 02123 ADD +0 40000 0 00471 02124 PAX +0 73400 1 00000 02125 CAL -0 50000 0 00510 02126 STA +0 62100 0 02130 02127 CAL -0 50000 1 00310 02130 LGR -0 76500 0 00000 02131 SLW +0 60200 0 00215 W'R ID.G.9 172 LM00182 02132 CLA +0 50000 0 00215 02133 SUB +0 40200 0 00500 02134 TZE +0 10000 0 02155 02135 TMI -0 12000 0 02155 PRFULL.($'R'1ILLEGAL '1CONSOLE 'UID:'X'8$,OUT(OUT+1), 173 LM00183 1 $'B'9$) 173 LM00184 02136 CLA +0 50000 0 00310 02137 ADD +0 40000 0 00471 02140 SUB +0 40200 0 02141 02141 TXH +3 00000 0 00310 02142 STA +0 62100 0 02152 02143 TSX +0 07400 4 00024 02144 TXH +3 00000 0 00535 02145 TXH +3 00000 0 00567 02146 TXH +3 00000 0 00531 02147 TXH +3 00000 0 00574 02150 TXH +3 00000 0 00565 02151 TXH +3 00000 0 00526 02152 TXH +3 00000 0 00000 02153 TXH +3 00000 0 00533 T'O BRKOUT 174 LM00185 02154 TRA +0 02000 0 00056 E'L 175 LM00186 GETTIM TCR = TCR(ID) 176 LM00187 02155 LXA +0 53400 2 00215 02156 CLA +0 50000 2 00417 02157 STO +0 60100 0 00417 TCRLF=TCRLF(ID) 177 LM00188 02160 CLA +0 50000 2 00404 02161 STO +0 60100 0 00404 W'R FILESW, TCRLF=1 178 LM00189 02162 NZT -0 52000 0 00207 02163 TRA +0 02000 0 02166 02164 CLA +0 50000 0 00471 02165 STO +0 60100 0 00404 TBS = TBS(ID) 179 LM00190 02166 LXA +0 53400 2 00215 02167 CLA +0 50000 2 00371 02170 STO +0 60100 0 00371 TSP = TSP(ID) 180 LM00191 02171 CLA +0 50000 2 00452 02172 STO +0 60100 0 00452 TTAB = TTAB(ID) 181 LM00192 02173 CLA +0 50000 2 00465 02174 STO +0 60100 0 00465 TLF = TLF(ID) 182 LM00193 02175 CLA +0 50000 2 00434 02176 STO +0 60100 0 00434 W'R FILESW, TLF=1 183 LM00194 02177 NZT -0 52000 0 00207 02200 TRA +0 02000 0 02203 02201 CLA +0 50000 0 00471 02202 STO +0 60100 0 00434 LL=LL(ID) 184 LM00195 02203 LXA +0 53400 2 00215 02204 CLA +0 50000 2 00237 02205 STO +0 60100 0 00237 W'R SLL.NE.0, LL=SLL 185 LM00196 02206 CLA +0 50000 0 00347 02207 SUB +0 40200 0 00470 02210 TZE +0 10000 0 02213 02211 CLA +0 50000 0 00347 02212 STO +0 60100 0 00237 PGL=PGL(ID) 186 LM00197 02213 LXA +0 53400 2 00215 02214 CLA +0 50000 2 00341 02215 STO +0 60100 0 00341 W'R SPGL.NE.0, PGL=SPGL 187 LM00198 02216 CLA +0 50000 0 00350 02217 SUB +0 40200 0 00470 02220 TZE +0 10000 0 02223 02221 CLA +0 50000 0 00350 02222 STO +0 60100 0 00341 D(8)=PGL/5 188 LM00199 02223 LDQ +0 56000 0 00341 02224 PXD -0 75400 0 00000 02225 LLS +0 76300 0 00000 02226 DVP +0 22100 0 00475 02227 STQ -0 60000 0 00155 D(7)=(PGL-1)/4 189 LM00200 02230 CLA +0 50000 0 00341 02231 SUB +0 40200 0 00471 02232 LRS +0 76500 0 00043 02233 DVP +0 22100 0 00474 02234 STQ -0 60000 0 00156 D(6)=(PGL-2)/3 190 LM00201 02235 CLA +0 50000 0 00341 02236 SUB +0 40200 0 00472 02237 LRS +0 76500 0 00043 02240 DVP +0 22100 0 00473 02241 STQ -0 60000 0 00157 D(5)=2*D(7) 191 LM00202 02242 LDQ +0 56000 0 00472 02243 MPY +0 20000 0 00156 02244 STQ -0 60000 0 00160 D(1)=PGL 192 LM00203 02245 CLA +0 50000 0 00341 02246 STO +0 60100 0 00164 E'L 193 LM00204 W'R LNSZ.NE.0 194 LM00205 02247 CLA +0 50000 0 00242 02250 SUB +0 40200 0 00470 02251 TZE +0 10000 0 02255 LMSW=0B 195 LM00206 02252 CLA +0 50000 0 00470 02253 STO +0 60100 0 00241 O'R .NOT.LMSW.AND.MODE.E.6 196 LM00207 02254 TRA +0 02000 0 02267 02255 CLA +0 50000 0 00270 02256 SUB +0 40200 0 00476 02257 TNZ -0 10000 0 02265 02260 ZET +0 52000 0 00241 02261 TRA +0 02000 0 02265 LNSZ=14 197 LM00208 02262 CLA +0 50000 0 00504 02263 STO +0 60100 0 00242 O'E 198 LM00209 02264 TRA +0 02000 0 02267 LNSZ=0 199 LM00210 02265 CLA +0 50000 0 00470 02266 STO +0 60100 0 00242 E'L 200 LM00211 SETSIZ.(MODE,LNSZ,LMSW) 201 LM00212 02267 TSX +0 07400 4 00035 02270 TXH +3 00000 0 00270 02271 TXH +3 00000 0 00242 02272 TXH +3 00000 0 00241 SETFUL.(0) 202 LM00213 02273 TSX +0 07400 4 00034 02274 TXH +3 00000 0 00470 AX=1 203 LM00214 02275 CLA +0 50000 0 00471 02276 STO +0 60100 0 00131 BX=1 204 LM00215 02277 CLA +0 50000 0 00471 02300 STO +0 60100 0 00135 AY=0 205 LM00216 02301 CLA +0 50000 0 00470 02302 STO +0 60100 0 00132 W'R CC.OR.PS 206 LM00217 02303 ZET +0 52000 0 00345 02304 TRA +0 02000 0 02307 02305 NZT -0 52000 0 00140 02306 TRA +0 02000 0 02324 CCN=CC 207 LM00218 02307 CLA +0 50000 0 00140 02310 STO +0 60100 0 00137 CCX=CC.OR.PS 208 LM00219 02311 ZET +0 52000 0 00345 02312 TRA +0 02000 0 02317 02313 ZET +0 52000 0 00140 02314 TRA +0 02000 0 02317 02315 PXD -0 75400 0 00000 02316 TRA +0 02000 0 02320 02317 CLA +0 50000 0 00471 02320 STO +0 60100 0 00141 BY=0 209 LM00220 02321 CLA +0 50000 0 00470 02322 STO +0 60100 0 00136 O'E 210 LM00221 02323 TRA +0 02000 0 02332 BY=1 211 LM00222 02324 CLA +0 50000 0 00471 02325 STO +0 60100 0 00136 CCN=0B 212 LM00223 02326 CLA +0 50000 0 00470 02327 STO +0 60100 0 00137 CCX=0B 213 LM00224 02330 CLA +0 50000 0 00470 02331 STO +0 60100 0 00141 E'L 214 LM00225 K=1 215 LM00226 02332 CLA +0 50000 0 00471 02333 STO +0 60100 0 00224 W'R DATESW.OR.HDRSW 216 LM00227 02334 ZET +0 52000 0 00214 02335 TRA +0 02000 0 02340 02336 NZT -0 52000 0 00151 02337 TRA +0 02000 0 02357 BY=4 217 LM00228 02340 CLA +0 50000 0 00474 02341 STO +0 60100 0 00136 AY=4 218 LM00229 02342 CLA +0 50000 0 00474 02343 STO +0 60100 0 00132 PRTCHR.(PTCHAR.) 219 LM00230 02344 TSX +0 07400 4 00026 02345 TXH +3 00000 0 00045 PRFULA.($'*'*'X$,FN,$ 'X'8$,FN1,DATE...2,TIME,PGN...PGNO, 220 LM00231 1 $'*'*'9$) 220 LM00232 02346 TSX +0 07400 4 00023 02347 TXH +3 00000 0 00541 02350 TXH +3 00000 0 00213 02351 TXH +3 00000 0 00606 02352 TXH +3 00000 0 00210 02353 TIX +2 00472 0 00150 02354 TXH +3 00000 0 00420 02355 TIX +2 00342 0 00344 02356 TXH +3 00000 0 00540 E'L 221 LM00233 EOFSW=0B 222 LM00234 02357 CLA +0 50000 0 00470 02360 STO +0 60100 0 00167 LOOP N=READF.(IN(IN),360,777K,EOF) 223 LM00235 02361 CLA +0 50000 0 00217 02362 SUB +0 40200 0 02363 02363 TXH +3 00000 0 00217 02364 STA +0 62100 0 02366 02365 TSX +0 07400 4 00030 02366 TXH +3 00000 0 00000 02367 TXH +3 00000 0 00517 02370 TXH +3 00000 0 00520 02371 TXH +3 00000 0 00063 02372 STO +0 60100 0 00304 T'H CHARL, FOR I=1,1,I.G.N 224 LM00236 02373 CLA +0 50000 0 00471 02374 STO +0 60100 0 00220 02375 TRA +0 02000 0 02401 02376 CLA +0 50000 0 00220 02377 ADD +0 40000 0 00471 02400 STO +0 60100 0 00220 02401 CLA +0 50000 0 00220 02402 SUB +0 40200 0 00304 02403 TZE +0 10000 0 02405 02404 TPL +0 12000 0 03451 CHAR=IN(IN+I).A.177K 225 LM00237 02405 CLA +0 50000 0 00217 02406 ADD +0 40000 0 00220 02407 PAX +0 73400 1 00000 02410 CAL -0 50000 1 00217 02411 ANA -0 32000 0 00515 02412 SLW +0 60200 0 00142 W'R MODE.E.9, CHAR=ASCTSS.(CHAR) 226 LM00238 02413 CLA +0 50000 0 00270 02414 SUB +0 40200 0 00500 02415 TNZ -0 10000 0 02421 02416 TSX +0 07400 4 00000 02417 TXH +3 00000 0 00142 02420 STO +0 60100 0 00142 W'R CHAR.E.57K, T'O CHARL 227 LM00239 02421 CLA +0 50000 0 00142 02422 SUB +0 40200 0 00511 02423 TNZ -0 10000 0 02425 02424 TRA +0 02000 0 00057 PTF=1B 228 LM00240 02425 CLA +0 50000 0 00471 02426 STO +0 60100 0 00346 CKP=1B 229 LM00241 02427 CLA +0 50000 0 00471 02430 STO +0 60100 0 00145 W'R CCN 230 LM00242 02431 NZT -0 52000 0 00137 02432 TRA +0 02000 0 02554 CCN=0B 231 LM00243 02433 CLA +0 50000 0 00470 02434 STO +0 60100 0 00137 L2 T'H L2, FOR J=0,1,J.G.NPCC.OR.CHAR.E.PCCL(J) 232 LM00244 02435 CLA +0 50000 0 00470 02436 STO +0 60100 0 00223 02437 TRA +0 02000 0 02443 02440 CLA +0 50000 0 00223 02441 ADD +0 40000 0 00471 02442 STO +0 60100 0 00223 02443 LXA +0 53400 2 00223 02444 CLA +0 50000 0 00142 02445 SUB +0 40200 2 00325 02446 TZE +0 10000 0 02454 02447 CLA +0 50000 0 00223 02450 SUB +0 40200 0 00303 02451 TZE +0 10000 0 02453 02452 TPL +0 12000 0 02454 02453 TRA +0 02000 0 02440 W'R J.G.NPCC, T'O CKHDR 233 LM00245 02454 CLA +0 50000 0 00223 02455 SUB +0 40200 0 00303 02456 TZE +0 10000 0 02461 02457 TMI -0 12000 0 02461 02460 TRA +0 02000 0 00060 PTF=0B 234 LM00246 02461 CLA +0 50000 0 00470 02462 STO +0 60100 0 00346 T'O PCCP(J) 235 LM00247 02463 LXA +0 53400 2 00223 02464 TRA +0 02000 2 00107 PCCP(1) 236 LM00250 PCCP(5) 237 LM00251 PCCP(6) 238 LM00252 PCCP(7) 239 LM00253 PCCP(8) W'R BY.E.BY/PGL*PGL, T'O CKHDR 240 LM00254 02465 LDQ +0 56000 0 00136 02466 PXD -0 75400 0 00000 02467 LLS +0 76300 0 00000 02470 DVP +0 22100 0 00341 02471 MPY +0 20000 0 00341 02472 XCA +0 13100 0 00000 02473 CHS +0 76000 0 00002 02474 ADD +0 40000 0 00136 02475 TNZ -0 10000 0 02477 02476 TRA +0 02000 0 00060 X=((BY-BY/PGL*PGL)/D(J)+1)*D(J) 241 LM00255 02477 LDQ +0 56000 0 00136 02500 PXD -0 75400 0 00000 02501 LLS +0 76300 0 00000 02502 DVP +0 22100 0 00341 02503 MPY +0 20000 0 00341 02504 XCA +0 13100 0 00000 02505 CHS +0 76000 0 00002 02506 ADD +0 40000 0 00136 02507 LXA +0 53400 2 00223 02510 LRS +0 76500 0 00043 02511 DVP +0 22100 2 00165 02512 XCA +0 13100 0 00000 02513 ADD +0 40000 0 00471 02514 XCA +0 13100 0 00000 02515 MPY +0 20000 2 00165 02516 STQ -0 60000 0 00467 W'R X.G.PGL, X=PGL 242 LM00256 02517 CLA +0 50000 0 00467 02520 SUB +0 40200 0 00341 02521 TZE +0 10000 0 02525 02522 TMI -0 12000 0 02525 02523 CLA +0 50000 0 00341 02524 STO +0 60100 0 00467 BY=BY/PGL*PGL+X+2 243 LM00257 02525 LDQ +0 56000 0 00136 02526 PXD -0 75400 0 00000 02527 LLS +0 76300 0 00000 02530 DVP +0 22100 0 00341 02531 MPY +0 20000 0 00341 02532 XCA +0 13100 0 00000 02533 ADD +0 40000 0 00467 02534 ADD +0 40000 0 00472 02535 STO +0 60100 0 00136 T'O CKHDR 244 LM00258 02536 TRA +0 02000 0 00060 PCCP(0) 245 LM00261 PCCP(2) 246 LM00262 PCCP(3) BY=BY+D(J) 247 LM00263 02537 LXA +0 53400 2 00223 02540 CLA +0 50000 0 00136 02541 ADD +0 40000 2 00165 02542 STO +0 60100 0 00136 T'O CKHDR 248 LM00264 02543 TRA +0 02000 0 00060 PCCP(4) 249 LM00267 PCCP(9) 250 LM00268 PCCP(10) 251 LM00269 PCCP(11) BY=BY+D(J) 252 LM00270 02544 LXA +0 53400 2 00223 02545 CLA +0 50000 0 00136 02546 ADD +0 40000 2 00165 02547 STO +0 60100 0 00136 CKP=0B 253 LM00271 02550 CLA +0 50000 0 00470 02551 STO +0 60100 0 00145 T'O CKHDR 254 LM00272 02552 TRA +0 02000 0 00060 O'R CCX.OR..NOT.(CC.OR.PS) 255 LM00274 02553 TRA +0 02000 0 02775 02554 ZET +0 52000 0 00345 02555 TRA +0 02000 0 02560 02556 NZT -0 52000 0 00140 02557 TRA +0 02000 0 02562 02560 NZT -0 52000 0 00141 02561 TRA +0 02000 0 02775 CKP=CCX 256 LM00275 02562 CLA +0 50000 0 00141 02563 STO +0 60100 0 00145 CKHDR CCX=0B 257 LM00276 02564 CLA +0 50000 0 00470 02565 STO +0 60100 0 00141 W'R AY/PGL.NE.(BY+2)/PGL.AND.HDRSW 258 LM00277 02566 NZT -0 52000 0 00214 02567 TRA +0 02000 0 02735 02570 CLA +0 50000 0 00136 02571 ADD +0 40000 0 00472 02572 LRS +0 76500 0 00043 02573 DVP +0 22100 0 00341 02574 STQ -0 60000 0 04421 02575 LDQ +0 56000 0 00132 02576 PXD -0 75400 0 00000 02577 LLS +0 76300 0 00000 02600 DVP +0 22100 0 00341 02601 XCA +0 13100 0 00000 02602 SUB +0 40200 0 04421 02603 TZE +0 10000 0 02735 BY=BY+4 259 LM00278 02604 CLA +0 50000 0 00136 02605 ADD +0 40000 0 00474 02606 STO +0 60100 0 00136 AY=AY+1 260 LM00279 02607 CLA +0 50000 0 00132 02610 ADD +0 40000 0 00471 02611 STO +0 60100 0 00132 AX=1 261 LM00280 02612 CLA +0 50000 0 00471 02613 STO +0 60100 0 00131 PTCHAR.(SP(0)) 262 LM00281 02614 TSX +0 07400 4 00045 02615 TXH +3 00000 0 00356 W'R TLF.G.0 263 LM00282 02616 CLA +0 50000 0 00434 02617 SUB +0 40200 0 00470 02620 TZE +0 10000 0 02625 02621 TMI -0 12000 0 02625 CHR=SP(0) 264 LM00283 02622 CLA +0 50000 0 00356 02623 STO +0 60100 0 00143 O'E 265 LM00284 02624 TRA +0 02000 0 02627 CHR=SP(1) 266 LM00285 02625 CLA +0 50000 0 00355 02626 STO +0 60100 0 00143 E'L 267 LM00286 SK1 X=AY-AY/PGL*PGL 268 LM00287 02627 LDQ +0 56000 0 00132 02630 PXD -0 75400 0 00000 02631 LLS +0 76300 0 00000 02632 DVP +0 22100 0 00341 02633 MPY +0 20000 0 00341 02634 XCA +0 13100 0 00000 02635 CHS +0 76000 0 00002 02636 ADD +0 40000 0 00132 02637 STO +0 60100 0 00467 W'R X.NE.0, X=PGL-X 269 LM00288 02640 CLA +0 50000 0 00467 02641 SUB +0 40200 0 00470 02642 TZE +0 10000 0 02646 02643 CLA +0 50000 0 00341 02644 SUB +0 40200 0 00467 02645 STO +0 60100 0 00467 AY=AY+X 270 LM00289 02646 CLA +0 50000 0 00132 02647 ADD +0 40000 0 00467 02650 STO +0 60100 0 00132 T'H SK2, FOR X=X,-1,X.E.0 271 LM00290 02651 CLA +0 50000 0 00467 02652 STO +0 60100 0 00467 02653 TRA +0 02000 0 02657 02654 CLS +0 50200 0 00471 02655 ADD +0 40000 0 00467 02656 STO +0 60100 0 00467 02657 CLA +0 50000 0 00467 02660 SUB +0 40200 0 00470 02661 TZE +0 10000 0 02665 SK2 PTCHAR.(CHR) 272 LM00291 02662 TSX +0 07400 4 00045 02663 TXH +3 00000 0 00143 02664 TRA +0 02000 0 02654 PAGENO=PAGENO+1 273 LM00292 02665 CLA +0 50000 0 00311 02666 ADD +0 40000 0 00471 02667 STO +0 60100 0 00311 PGN(1)=BZ57.(DEFBC.(PAGENO)) 274 LM00293 02670 TSX +0 07400 4 00010 02671 TXH +3 00000 0 00311 02672 STO +0 60100 0 04421 02673 TSX +0 07400 4 00002 02674 TXH +3 00000 0 04421 02675 STO +0 60100 0 00343 PRFULA.($'*'*'X$,FN,$ 'X'8$,FN1,DATE...2,TIME,PGN...PGNO, 275 LM00294 1 $'*'*'9$) 275 LM00295 02676 TSX +0 07400 4 00023 02677 TXH +3 00000 0 00541 02700 TXH +3 00000 0 00213 02701 TXH +3 00000 0 00606 02702 TXH +3 00000 0 00210 02703 TIX +2 00472 0 00150 02704 TXH +3 00000 0 00420 02705 TIX +2 00342 0 00344 02706 TXH +3 00000 0 00540 AY=AY+4 276 LM00296 02707 CLA +0 50000 0 00132 02710 ADD +0 40000 0 00474 02711 STO +0 60100 0 00132 W'R BY.L.AY, BY=AY 277 LM00297 02712 CLA +0 50000 0 00136 02713 SUB +0 40200 0 00132 02714 TZE +0 10000 0 02720 02715 TPL +0 12000 0 02720 02716 CLA +0 50000 0 00132 02717 STO +0 60100 0 00136 W'R AY/PGL.NE.(BY+2)/PGL, T'O SK1 278 LM00298 02720 CLA +0 50000 0 00136 02721 ADD +0 40000 0 00472 02722 LRS +0 76500 0 00043 02723 DVP +0 22100 0 00341 02724 STQ -0 60000 0 04421 02725 LDQ +0 56000 0 00132 02726 PXD -0 75400 0 00000 02727 LLS +0 76300 0 00000 02730 DVP +0 22100 0 00341 02731 XCA +0 13100 0 00000 02732 SUB +0 40200 0 04421 02733 TZE +0 10000 0 02735 02734 TRA +0 02000 0 00113 E'L 279 LM00299 W'R CKP 280 LM00301 02735 NZT -0 52000 0 00145 02736 TRA +0 02000 0 02772 MOD=BY-(BY/PGL)*PGL 281 LM00302 02737 LDQ +0 56000 0 00136 02740 PXD -0 75400 0 00000 02741 LLS +0 76300 0 00000 02742 DVP +0 22100 0 00341 02743 MPY +0 20000 0 00341 02744 XCA +0 13100 0 00000 02745 CHS +0 76000 0 00002 02746 ADD +0 40000 0 00136 02747 STO +0 60100 0 00271 W'R MOD.G.PGL-3.OR.MOD.L.2 282 LM00303 02750 CLA +0 50000 0 00271 02751 SUB +0 40200 0 00472 02752 TZE +0 10000 0 02754 02753 TMI -0 12000 0 02762 02754 CLA +0 50000 0 00341 02755 SUB +0 40200 0 00473 02756 CHS +0 76000 0 00002 02757 ADD +0 40000 0 00271 02760 TZE +0 10000 0 02772 02761 TMI -0 12000 0 02772 BY=((BY+3)/PGL)*PGL+2 283 LM00304 02762 CLA +0 50000 0 00136 02763 ADD +0 40000 0 00473 02764 LRS +0 76500 0 00043 02765 DVP +0 22100 0 00341 02766 MPY +0 20000 0 00341 02767 XCA +0 13100 0 00000 02770 ADD +0 40000 0 00472 02771 STO +0 60100 0 00136 E'L 284 LM00305 E'L 285 LM00306 W'R .NOT.PTF, T'O CHARL 286 LM00307 02772 ZET +0 52000 0 00346 02773 TRA +0 02000 0 02775 02774 TRA +0 02000 0 00057 E'L 287 LM00308 L1 T'H L1, FOR J=0,1,J.G.NSPC .OR. CHAR.E.SP(J) 288 LM00310 02775 CLA +0 50000 0 00470 02776 STO +0 60100 0 00223 02777 TRA +0 02000 0 03003 03000 CLA +0 50000 0 00223 03001 ADD +0 40000 0 00471 03002 STO +0 60100 0 00223 03003 LXA +0 53400 2 00223 03004 CLA +0 50000 0 00142 03005 SUB +0 40200 2 00356 03006 TZE +0 10000 0 03014 03007 CLA +0 50000 0 00223 03010 SUB +0 40200 0 00305 03011 TZE +0 10000 0 03013 03012 TPL +0 12000 0 03014 03013 TRA +0 02000 0 03000 W'R J.LE.NSPC 289 LM00311 03014 CLA +0 50000 0 00223 03015 SUB +0 40200 0 00305 03016 TZE +0 10000 0 03020 03017 TPL +0 12000 0 03116 T'O SPP(J) 290 LM00312 03020 LXA +0 53400 2 00223 03021 TRA +0 02000 2 00122 SPP(0) BX=1 291 LM00314 03022 CLA +0 50000 0 00471 03023 STO +0 60100 0 00135 BY=BY+1 292 LM00315 03024 CLA +0 50000 0 00136 03025 ADD +0 40000 0 00471 03026 STO +0 60100 0 00136 CCN=CC 293 LM00316 03027 CLA +0 50000 0 00140 03030 STO +0 60100 0 00137 CCX=CC.OR.PS 294 LM00317 03031 ZET +0 52000 0 00345 03032 TRA +0 02000 0 03037 03033 ZET +0 52000 0 00140 03034 TRA +0 02000 0 03037 03035 PXD -0 75400 0 00000 03036 TRA +0 02000 0 03040 03037 CLA +0 50000 0 00471 03040 STO +0 60100 0 00141 T'O CHARL 295 LM00318 03041 TRA +0 02000 0 00057 SPP(1) BY=BY+1 296 LM00320 03042 CLA +0 50000 0 00136 03043 ADD +0 40000 0 00471 03044 STO +0 60100 0 00136 CCX=CC.OR.PS 297 LM00321 03045 ZET +0 52000 0 00345 03046 TRA +0 02000 0 03053 03047 ZET +0 52000 0 00140 03050 TRA +0 02000 0 03053 03051 PXD -0 75400 0 00000 03052 TRA +0 02000 0 03054 03053 CLA +0 50000 0 00471 03054 STO +0 60100 0 00141 T'O CHARL 298 LM00322 03055 TRA +0 02000 0 00057 SPP(2) C'E 299 LM00324 TL1 T'H TL1, FOR TI=1,1,ITABS(ITABS+TI).G.BX 300 LM00325 03056 CLA +0 50000 0 00471 03057 STO +0 60100 0 00421 03060 TRA +0 02000 0 03064 03061 CLA +0 50000 0 00421 03062 ADD +0 40000 0 00471 03063 STO +0 60100 0 00421 03064 CLA +0 50000 0 00221 03065 ADD +0 40000 0 00421 03066 PAX +0 73400 1 00000 03067 CLA +0 50000 1 00221 03070 SUB +0 40200 0 00135 03071 TZE +0 10000 0 03073 03072 TPL +0 12000 0 03074 03073 TRA +0 02000 0 03061 BX=ITABS(ITABS+TI) 301 LM00326 03074 CLA +0 50000 0 00221 03075 ADD +0 40000 0 00421 03076 PAX +0 73400 2 00000 03077 CLA +0 50000 2 00221 03100 STO +0 60100 0 00135 T'O CHARL 302 LM00327 03101 TRA +0 02000 0 00057 SPP(3) BX=BX+1 303 LM00329 03102 CLA +0 50000 0 00135 03103 ADD +0 40000 0 00471 03104 STO +0 60100 0 00135 T'O CHARL 304 LM00330 03105 TRA +0 02000 0 00057 SPP(4) BX=BX-1 305 LM00332 03106 CLA +0 50000 0 00135 03107 SUB +0 40200 0 00471 03110 STO +0 60100 0 00135 T'O CHARL 306 LM00333 03111 TRA +0 02000 0 00057 SPP(5) BX=1 307 LM00335 03112 CLA +0 50000 0 00471 03113 STO +0 60100 0 00135 T'O CHARL 308 LM00336 03114 TRA +0 02000 0 00057 O'E 309 LM00338 03115 TRA +0 02000 0 03450 FILOUT W'R CHAR.E.MADBS.AND.BX.E.12.AND.MADSW 310 LM00339 03116 NZT -0 52000 0 00246 03117 TRA +0 02000 0 03131 03120 CLA +0 50000 0 00135 03121 SUB +0 40200 0 00503 03122 TNZ -0 10000 0 03131 03123 CLA +0 50000 0 00142 03124 SUB +0 40200 0 00245 03125 TNZ -0 10000 0 03131 BX=11 311 LM00340 03126 CLA +0 50000 0 00502 03127 STO +0 60100 0 00135 T'O CHARL 312 LM00341 03130 TRA +0 02000 0 00057 E'L 313 LM00342 L3 T'H L3, FOR J=0,1,J.G.NNOSP.OR.CHAR.E.NOSP(J) 314 LM00343 03131 CLA +0 50000 0 00470 03132 STO +0 60100 0 00223 03133 TRA +0 02000 0 03137 03134 CLA +0 50000 0 00223 03135 ADD +0 40000 0 00471 03136 STO +0 60100 0 00223 03137 LXA +0 53400 2 00223 03140 CLA +0 50000 0 00142 03141 SUB +0 40200 2 00301 03142 TZE +0 10000 0 03150 03143 CLA +0 50000 0 00223 03144 SUB +0 40200 0 00276 03145 TZE +0 10000 0 03147 03146 TPL +0 12000 0 03150 03147 TRA +0 02000 0 03134 W'R J.LE.NNOSP 315 LM00344 03150 CLA +0 50000 0 00223 03151 SUB +0 40200 0 00276 03152 TZE +0 10000 0 03154 03153 TPL +0 12000 0 03157 PTCHAR.(CHAR) 316 LM00345 03154 TSX +0 07400 4 00045 03155 TXH +3 00000 0 00142 T'O CHARL 317 LM00346 03156 TRA +0 02000 0 00057 E'L 318 LM00347 W'R BX.G.LL 319 LM00348 03157 CLA +0 50000 0 00135 03160 SUB +0 40200 0 00237 03161 TZE +0 10000 0 03174 03162 TMI -0 12000 0 03174 W'R WR 320 LM00349 03163 NZT -0 52000 0 00466 03164 TRA +0 02000 0 03173 BX=1 321 LM00350 03165 CLA +0 50000 0 00471 03166 STO +0 60100 0 00135 BY=BY+1 322 LM00351 03167 CLA +0 50000 0 00136 03170 ADD +0 40000 0 00471 03171 STO +0 60100 0 00136 O'E 323 LM00352 03172 TRA +0 02000 0 03174 T'O NOPT 324 LM00353 03173 TRA +0 02000 0 00073 E'L 325 LM00354 E'L 326 LM00355 W'R AX.E.BX.AND.AY.E.BY, T'O PCHAR 327 LM00356 03174 CLA +0 50000 0 00132 03175 SUB +0 40200 0 00136 03176 TNZ -0 10000 0 03203 03177 CLA +0 50000 0 00131 03200 SUB +0 40200 0 00135 03201 TNZ -0 10000 0 03203 03202 TRA +0 02000 0 00110 W'R BY.E.AY.AND.BX.E.AX+1 328 LM00357 03203 CLA +0 50000 0 00131 03204 ADD +0 40000 0 00471 03205 CHS +0 76000 0 00002 03206 ADD +0 40000 0 00135 03207 TNZ -0 10000 0 03217 03210 CLA +0 50000 0 00136 03211 SUB +0 40200 0 00132 03212 TNZ -0 10000 0 03217 PTCHAR.(SP(3)) 329 LM00358 03213 TSX +0 07400 4 00045 03214 TXH +3 00000 0 00353 T'O PCHAR 330 LM00359 03215 TRA +0 02000 0 00110 O'R BX.E.1.AND.BY.E.AY+1 331 LM00360 03216 TRA +0 02000 0 03232 03217 CLA +0 50000 0 00132 03220 ADD +0 40000 0 00471 03221 CHS +0 76000 0 00002 03222 ADD +0 40000 0 00136 03223 TNZ -0 10000 0 03232 03224 CLA +0 50000 0 00135 03225 SUB +0 40200 0 00471 03226 TNZ -0 10000 0 03232 PTCHAR.(SP(0)) 332 LM00361 03227 TSX +0 07400 4 00045 03230 TXH +3 00000 0 00356 T'O PCHAR 333 LM00362 03231 TRA +0 02000 0 00110 E'L 334 LM00363 T'H RL, FOR J=0,1,J.G.NSPC 335 LM00365 03232 CLA +0 50000 0 00470 03233 STO +0 60100 0 00223 03234 TRA +0 02000 0 03240 03235 CLA +0 50000 0 00223 03236 ADD +0 40000 0 00471 03237 STO +0 60100 0 00223 03240 CLA +0 50000 0 00223 03241 SUB +0 40200 0 00305 03242 TZE +0 10000 0 03244 03243 TPL +0 12000 0 03250 RL NC(J)=0 336 LM00366 03244 LXA +0 53400 1 00223 03245 CLA +0 50000 0 00470 03246 STO +0 60100 1 00054 03247 TRA +0 02000 0 03235 W'R BY.G.AY .AND. TLF.G.0 337 LM00367 03250 CLA +0 50000 0 00434 03251 SUB +0 40200 0 00470 03252 TZE +0 10000 0 03267 03253 TMI -0 12000 0 03267 03254 CLA +0 50000 0 00136 03255 SUB +0 40200 0 00132 03256 TZE +0 10000 0 03267 03257 TMI -0 12000 0 03267 NCR=1 338 LM00368 03260 CLA +0 50000 0 00471 03261 STO +0 60100 0 00054 AX=1 339 LM00369 03262 CLA +0 50000 0 00471 03263 STO +0 60100 0 00131 AY=AY+1 340 LM00370 03264 CLA +0 50000 0 00132 03265 ADD +0 40000 0 00471 03266 STO +0 60100 0 00132 E'L 341 LM00371 W'R AX.L.BX 342 LM00372 03267 CLA +0 50000 0 00131 03270 SUB +0 40200 0 00135 03271 TZE +0 10000 0 03277 03272 TPL +0 12000 0 03277 HORZ.(AX,BX) 343 LM00373 03273 TSX +0 07400 4 00044 03274 TXH +3 00000 0 00131 03275 TXH +3 00000 0 00135 O'E 344 LM00374 03276 TRA +0 02000 0 03357 W'R TCR*AX+HORZ.(1,BX).L.(AX-BX)*TBS.AND. 345 LM00375 1 (BY.G.AY.OR.TCRLF.E.0) 345 LM00376 03277 CLA +0 50000 0 00404 03300 SUB +0 40200 0 00470 03301 TZE +0 10000 0 03306 03302 CLA +0 50000 0 00136 03303 SUB +0 40200 0 00132 03304 TZE +0 10000 0 03350 03305 TMI -0 12000 0 03350 03306 CLA +0 50000 0 00131 03307 SUB +0 40200 0 00135 03310 XCA +0 13100 0 00000 03311 MPY +0 20000 0 00371 03312 STQ -0 60000 0 04421 03313 TSX +0 07400 4 00044 03314 TXH +3 00000 0 00471 03315 TXH +3 00000 0 00135 03316 STO +0 60100 0 04420 03317 LDQ +0 56000 0 00417 03320 MPY +0 20000 0 00131 03321 XCA +0 13100 0 00000 03322 ADD +0 40000 0 04420 03323 SUB +0 40200 0 04421 03324 TZE +0 10000 0 03350 03325 TPL +0 12000 0 03350 W'R BY.G.AY 346 LM00377 03326 CLA +0 50000 0 00136 03327 SUB +0 40200 0 00132 03330 TZE +0 10000 0 03343 03331 TMI -0 12000 0 03343 NCR=NCR+1 347 LM00378 03332 CLA +0 50000 0 00054 03333 ADD +0 40000 0 00471 03334 STO +0 60100 0 00054 AY=AY+1 348 LM00379 03335 CLA +0 50000 0 00132 03336 ADD +0 40000 0 00471 03337 STO +0 60100 0 00132 AX=1 349 LM00380 03340 CLA +0 50000 0 00471 03341 STO +0 60100 0 00131 O'E 350 LM00381 03342 TRA +0 02000 0 03347 NCRLF=1 351 LM00382 03343 CLA +0 50000 0 00471 03344 STO +0 60100 0 00047 AX=1 352 LM00383 03345 CLA +0 50000 0 00471 03346 STO +0 60100 0 00131 E'L 353 LM00384 O'E 354 LM00385 03347 TRA +0 02000 0 03357 NBS=AX-BX 355 LM00386 03350 CLA +0 50000 0 00131 03351 SUB +0 40200 0 00135 03352 STO +0 60100 0 00050 NSP=0 356 LM00387 03353 CLA +0 50000 0 00470 03354 STO +0 60100 0 00051 NTAB=0 357 LM00388 03355 CLA +0 50000 0 00470 03356 STO +0 60100 0 00052 E'L 358 LM00389 E'L 359 LM00390 W'R TLF.G.0 360 LM00391 03357 CLA +0 50000 0 00434 03360 SUB +0 40200 0 00470 03361 TZE +0 10000 0 03370 03362 TMI -0 12000 0 03370 NCR=NCR+BY-AY 361 LM00392 03363 CLA +0 50000 0 00054 03364 ADD +0 40000 0 00136 03365 SUB +0 40200 0 00132 03366 STO +0 60100 0 00054 O'E 362 LM00393 03367 TRA +0 02000 0 03374 NLF=NLF+BY-AY 363 LM00394 03370 CLA +0 50000 0 00053 03371 ADD +0 40000 0 00136 03372 SUB +0 40200 0 00132 03373 STO +0 60100 0 00053 E'L 364 LM00395 T'H FILL, FOR J=0,1,J.G.NSPC 365 LM00396 03374 CLA +0 50000 0 00470 03375 STO +0 60100 0 00223 03376 TRA +0 02000 0 03402 03377 CLA +0 50000 0 00223 03400 ADD +0 40000 0 00471 03401 STO +0 60100 0 00223 03402 CLA +0 50000 0 00223 03403 SUB +0 40200 0 00305 03404 TZE +0 10000 0 03406 03405 TPL +0 12000 0 03431 T'H FILL1, FOR L=1,1,L.G.NC(J) 366 LM00397 03406 CLA +0 50000 0 00471 03407 STO +0 60100 0 00243 03410 TRA +0 02000 0 03414 03411 CLA +0 50000 0 00243 03412 ADD +0 40000 0 00471 03413 STO +0 60100 0 00243 03414 LXA +0 53400 2 00223 03415 CLA +0 50000 0 00243 03416 SUB +0 40200 2 00054 03417 TZE +0 10000 0 03421 03420 TPL +0 12000 0 03430 PTCHAR.(SP(J)) 367 LM00398 03421 CLA +0 50000 0 00223 03422 SUB +0 40200 0 03423 03423 TXH +3 00000 0 00356 03424 STA +0 62100 0 03426 03425 TSX +0 07400 4 00045 03426 TXH +3 00000 0 00000 FILL1 C'E 368 LM00399 03427 TRA +0 02000 0 03411 FILL C'E 369 LM00400 03430 TRA +0 02000 0 03377 PCHAR W'R EOFSW, T'O DONE 370 LM00401 03431 NZT -0 52000 0 00167 03432 TRA +0 02000 0 03434 03433 TRA +0 02000 0 00061 AX=BX 371 LM00402 03434 CLA +0 50000 0 00135 03435 STO +0 60100 0 00131 AY=BY 372 LM00403 03436 CLA +0 50000 0 00136 03437 STO +0 60100 0 00132 PTCHAR.(CHAR) 373 LM00404 03440 TSX +0 07400 4 00045 03441 TXH +3 00000 0 00142 AX=AX+1 374 LM00405 03442 CLA +0 50000 0 00131 03443 ADD +0 40000 0 00471 03444 STO +0 60100 0 00131 NOPT BX=BX+1 375 LM00406 03445 CLA +0 50000 0 00135 03446 ADD +0 40000 0 00471 03447 STO +0 60100 0 00135 E'L 376 LM00407 CHARL C'E 377 LM00408 03450 TRA +0 02000 0 02376 T'O LOOP 378 LM00409 03451 TRA +0 02000 0 00071 DONE W'R K.NE.0 379 LM00410 03452 CLA +0 50000 0 00224 03453 SUB +0 40200 0 00470 03454 TZE +0 10000 0 03505 W'R FILESW 380 LM00411 03455 NZT -0 52000 0 00207 03456 TRA +0 02000 0 03473 WTA.(OUT(OUT),K-1) 381 LM00412 03457 CLA +0 50000 0 00224 03460 SUB +0 40200 0 00471 03461 STO +0 60100 0 04421 03462 CLA +0 50000 0 00310 03463 SUB +0 40200 0 03464 03464 TXH +3 00000 0 00310 03465 STA +0 62100 0 03467 03466 TSX +0 07400 4 00040 03467 TXH +3 00000 0 00000 03470 TXH +3 00000 0 04421 CLOSEW. 382 LM00413 03471 TSX +0 07400 4 00006 O'E 383 LM00414 03472 TRA +0 02000 0 03505 PNTLIN.(OUT(OUT),K-1) 384 LM00415 03473 CLA +0 50000 0 00224 03474 SUB +0 40200 0 00471 03475 STO +0 60100 0 04421 03476 CLA +0 50000 0 00310 03477 SUB +0 40200 0 03500 03500 TXH +3 00000 0 00310 03501 STA +0 62100 0 03503 03502 TSX +0 07400 4 00022 03503 TXH +3 00000 0 00000 03504 TXH +3 00000 0 04421 E'L 385 LM00416 E'L 386 LM00417 BRKOUT CLOSEF. 387 LM00418 03505 TSX +0 07400 4 00005 EGRETS SETBCD.(0) 388 LM00419 03506 TSX +0 07400 4 00032 03507 TXH +3 00000 0 00470 CHNCOM.(0) 389 LM00420 03510 TSX +0 07400 4 00004 03511 TXH +3 00000 0 00470 EOF EOFSW=1B 390 LM00422 03512 CLA +0 50000 0 00471 03513 STO +0 60100 0 00167 W'R CC 391 LM00423 03514 NZT -0 52000 0 00140 03515 TRA +0 02000 0 03543 W'R BY.NE.(BY/PGL)*PGL 392 LM00424 03516 LDQ +0 56000 0 00136 03517 PXD -0 75400 0 00000 03520 LLS +0 76300 0 00000 03521 DVP +0 22100 0 00341 03522 MPY +0 20000 0 00341 03523 XCA +0 13100 0 00000 03524 CHS +0 76000 0 00002 03525 ADD +0 40000 0 00136 03526 TZE +0 10000 0 03542 BY=(BY/PGL+1)*PGL+1 393 LM00425 03527 LDQ +0 56000 0 00136 03530 PXD -0 75400 0 00000 03531 LLS +0 76300 0 00000 03532 DVP +0 22100 0 00341 03533 XCA +0 13100 0 00000 03534 ADD +0 40000 0 00471 03535 XCA +0 13100 0 00000 03536 MPY +0 20000 0 00341 03537 XCA +0 13100 0 00000 03540 ADD +0 40000 0 00471 03541 STO +0 60100 0 00136 E'L 394 LM00426 O'E 395 LM00427 03542 TRA +0 02000 0 03550 BY=BY+2 396 LM00428 03543 CLA +0 50000 0 00136 03544 ADD +0 40000 0 00472 03545 STO +0 60100 0 00136 BX=1 397 LM00429 03546 CLA +0 50000 0 00471 03547 STO +0 60100 0 00135 E'L 398 LM00430 T'O FILOUT 399 LM00431 03550 TRA +0 02000 0 00065 INTERNAL FUNCTION (PTC) 400 LM00433 03551 TRA +0 02000 0 03641 ENTRY TO PTCHAR. 401 LM00434 03552 TRA +0 02000 0 03555 00045 TTR +0 02100 0 03553 03553 SXA +0 63400 2 03626 03554 TSX +0 07400 2 03626 W'R FILESW 402 LM00435 03555 NZT -0 52000 0 00207 03556 TRA +0 02000 0 03563 C=TSSASC.(PTC) 403 LM00436 03557 TSX +0 07400 4 00036 03560 TXH +3 00000 0 00024 03561 STO +0 60100 0 00146 O'E 404 LM00437 03562 TRA +0 02000 0 03565 C=PTC 405 LM00438 03563 CLA +0 50000 0 00024 03564 STO +0 60100 0 00146 E'L 406 LM00439 OUT(OUT+K)=C 407 LM00440 03565 CLA +0 50000 0 00310 03566 ADD +0 40000 0 00224 03567 PAX +0 73400 1 00000 03570 CLA +0 50000 0 00146 03571 STO +0 60100 1 00310 K=K+1 408 LM00441 03572 CLA +0 50000 0 00224 03573 ADD +0 40000 0 00471 03574 STO +0 60100 0 00224 W'R K.G.84 409 LM00442 03575 CLA +0 50000 0 00224 03576 SUB +0 40200 0 00514 03577 TZE +0 10000 0 03624 03600 TMI -0 12000 0 03624 W'R FILESW 410 LM00443 03601 NZT -0 52000 0 00207 03602 TRA +0 02000 0 03613 WTA.(OUT(OUT),84) 411 LM00444 03603 CLA +0 50000 0 00310 03604 SUB +0 40200 0 03605 03605 TXH +3 00000 0 00310 03606 STA +0 62100 0 03610 03607 TSX +0 07400 4 00040 03610 TXH +3 00000 0 00000 03611 TXH +3 00000 0 00514 O'E 412 LM00445 03612 TRA +0 02000 0 03622 PNTLIN.(OUT(OUT),84) 413 LM00446 03613 CLA +0 50000 0 00310 03614 SUB +0 40200 0 03615 03615 TXH +3 00000 0 00310 03616 STA +0 62100 0 03620 03617 TSX +0 07400 4 00022 03620 TXH +3 00000 0 00000 03621 TXH +3 00000 0 00514 E'L 414 LM00447 K=1 415 LM00448 03622 CLA +0 50000 0 00471 03623 STO +0 60100 0 00224 E'L 416 LM00449 F'N 417 LM00450 03624 TRA +0 02000 0 03635 END OF FUNCTION 418 LM00451 03625 TSX +0 07400 4 00012 03626 TXH +3 00000 0 00000 03627 SXD -0 63400 1 03626 03630 SXA +0 63400 4 03635 03631 CLA +0 50000 4 00001 03632 STO +0 60100 0 03560 03633 STA +0 62100 0 03563 03634 TRA +0 02000 2 00001 03635 AXT +0 77400 4 00000 03636 LXA +0 53400 2 03626 03637 LXD -0 53400 1 03626 03640 TRA +0 02000 4 00001 INTERNAL FUNCTION (AA,BB) 419 LM00454 03641 TRA +0 02000 0 04035 ENTRY TO HORZ. 420 LM00455 03642 TRA +0 02000 0 03645 00044 TTR +0 02100 0 03643 03643 SXA +0 63400 2 04020 03644 TSX +0 07400 2 04020 A=AA 421 LM00456 03645 CLA +0 50000 0 00024 03646 STO +0 60100 0 00127 B=BB 422 LM00457 03647 CLA +0 50000 0 00024 03650 STO +0 60100 0 00133 TL2 T'H TL2, FOR ATI=1,1,OTABS(OTABS+ATI).G.A 423 LM00458 03651 CLA +0 50000 0 00471 03652 STO +0 60100 0 00130 03653 TRA +0 02000 0 03657 03654 CLA +0 50000 0 00130 03655 ADD +0 40000 0 00471 03656 STO +0 60100 0 00130 03657 CLA +0 50000 0 00306 03660 ADD +0 40000 0 00130 03661 PAX +0 73400 1 00000 03662 CLA +0 50000 1 00306 03663 SUB +0 40200 0 00127 03664 TZE +0 10000 0 03666 03665 TPL +0 12000 0 03667 03666 TRA +0 02000 0 03654 TL3 T'H TL3, FOR BTI=1,1,OTABS(OTABS+BTI).G.B 424 LM00459 03667 CLA +0 50000 0 00471 03670 STO +0 60100 0 00134 03671 TRA +0 02000 0 03675 03672 CLA +0 50000 0 00134 03673 ADD +0 40000 0 00471 03674 STO +0 60100 0 00134 03675 CLA +0 50000 0 00306 03676 ADD +0 40000 0 00134 03677 PAX +0 73400 1 00000 03700 CLA +0 50000 1 00306 03701 SUB +0 40200 0 00133 03702 TZE +0 10000 0 03704 03703 TPL +0 12000 0 03705 03704 TRA +0 02000 0 03672 NTAB=BTI-ATI 425 LM00460 03705 CLA +0 50000 0 00134 03706 SUB +0 40200 0 00130 03707 STO +0 60100 0 00052 W'R NTAB.G.0 426 LM00461 03710 CLA +0 50000 0 00052 03711 SUB +0 40200 0 00470 03712 TZE +0 10000 0 03741 03713 TMI -0 12000 0 03741 A1=OTABS(OTABS+BTI-1) 427 LM00462 03714 CLA +0 50000 0 00306 03715 ADD +0 40000 0 00134 03716 SUB +0 40200 0 00471 03717 PAX +0 73400 2 00000 03720 CLA +0 50000 2 00306 03721 STO +0 60100 0 00123 T=(A1-A)*TTAB+NTAB*TSP 428 LM00463 03722 LDQ +0 56000 0 00052 03723 MPY +0 20000 0 00452 03724 STQ -0 60000 0 04034 03725 CLA +0 50000 0 00123 03726 SUB +0 40200 0 00127 03727 XCA +0 13100 0 00000 03730 MPY +0 20000 0 00465 03731 XCA +0 13100 0 00000 03732 ADD +0 40000 0 04034 03733 STO +0 60100 0 00437 A=A1 429 LM00464 03734 CLA +0 50000 0 00123 03735 STO +0 60100 0 00127 ATI=BTI 430 LM00465 03736 CLA +0 50000 0 00134 03737 STO +0 60100 0 00130 O'E 431 LM00466 03740 TRA +0 02000 0 03743 T=0 432 LM00467 03741 CLA +0 50000 0 00470 03742 STO +0 60100 0 00437 E'L 433 LM00468 NSP=B-A 434 LM00469 03743 CLA +0 50000 0 00133 03744 SUB +0 40200 0 00127 03745 STO +0 60100 0 00051 LTAB=OTABS(OTABS+ATI)-A 435 LM00470 03746 CLA +0 50000 0 00306 03747 ADD +0 40000 0 00130 03750 PAX +0 73400 1 00000 03751 CLA +0 50000 1 00306 03752 SUB +0 40200 0 00127 03753 STO +0 60100 0 00244 NBS=LTAB-NSP 436 LM00471 03754 CLA +0 50000 0 00244 03755 SUB +0 40200 0 00051 03756 STO +0 60100 0 00050 TMSP=NSP*TSP 437 LM00472 03757 LDQ +0 56000 0 00051 03760 MPY +0 20000 0 00452 03761 STQ -0 60000 0 00436 TMBS=TTAB*LTAB+TSP+TBS*NBS 438 LM00473 03762 LDQ +0 56000 0 00371 03763 MPY +0 20000 0 00050 03764 STQ -0 60000 0 04034 03765 LDQ +0 56000 0 00465 03766 MPY +0 20000 0 00244 03767 XCA +0 13100 0 00000 03770 ADD +0 40000 0 00452 03771 ADD +0 40000 0 04034 03772 STO +0 60100 0 00435 W'R TMSP.LE.TMBS 439 LM00474 03773 CLA +0 50000 0 00436 03774 SUB +0 40200 0 00435 03775 TZE +0 10000 0 03777 03776 TPL +0 12000 0 04005 NBS=0 440 LM00475 03777 CLA +0 50000 0 00470 04000 STO +0 60100 0 00050 T=T+TMSP 441 LM00476 04001 CLA +0 50000 0 00437 04002 ADD +0 40000 0 00436 04003 STO +0 60100 0 00437 O'E 442 LM00477 04004 TRA +0 02000 0 04015 NSP=0 443 LM00478 04005 CLA +0 50000 0 00470 04006 STO +0 60100 0 00051 NTAB=NTAB+1 444 LM00479 04007 CLA +0 50000 0 00052 04010 ADD +0 40000 0 00471 04011 STO +0 60100 0 00052 T=T+TMBS 445 LM00480 04012 CLA +0 50000 0 00437 04013 ADD +0 40000 0 00435 04014 STO +0 60100 0 00437 E'L 446 LM00481 F'N T 447 LM00482 04015 CLA +0 50000 0 00437 04016 TRA +0 02000 0 04030 END OF FUNCTION 448 LM00483 04017 TSX +0 07400 4 00012 04020 TXH +3 00000 0 00000 04021 SXD -0 63400 1 04020 04022 SXA +0 63400 4 04030 04023 CLA +0 50000 4 00001 04024 STA +0 62100 0 03645 04025 CLA +0 50000 4 00002 04026 STA +0 62100 0 03647 04027 TRA +0 02000 2 00001 04030 AXT +0 77400 4 00000 04031 LXA +0 53400 2 04020 04032 LXD -0 53400 1 04020 04033 TRA +0 02000 4 00001 INTERNAL FUNCTION (NN,A) 449 LM00485 04035 TRA +0 02000 0 04361 ENTRY TO GETTAB. 450 LM00486 04036 TRA +0 02000 0 04041 00043 TTR +0 02100 0 04037 04037 SXA +0 63400 2 04325 04040 TSX +0 07400 2 04325 W'R COMARG.(I+1).E.FENCE, T'O BAD 451 LM00487 04041 CLA +0 50000 0 00220 04042 ADD +0 40000 0 00471 04043 STO +0 60100 0 04360 04044 TSX +0 07400 4 00007 04045 TXH +3 00000 0 04360 04046 SUB +0 40200 0 00206 04047 TNZ -0 10000 0 04051 04050 TRA +0 02000 0 00055 N=NN 452 LM00488 04051 CLA +0 50000 0 00024 04052 STO +0 60100 0 00304 T'H TAL, FOR I=I+1,1,COMARG.(I,ARG1).E.FENCE 453 LM00489 04053 CLA +0 50000 0 00220 04054 ADD +0 40000 0 00471 04055 STO +0 60100 0 00220 04056 TRA +0 02000 0 04062 04057 CLA +0 50000 0 00220 04060 ADD +0 40000 0 00471 04061 STO +0 60100 0 00220 04062 TSX +0 07400 4 00007 04063 TXH +3 00000 0 00220 04064 TXH +3 00000 0 00124 04065 SUB +0 40200 0 00206 04066 TZE +0 10000 0 04220 W'R ARG1.E.$ FAP$ 454 LM00490 04067 CLA +0 50000 0 00124 04070 SUB +0 40200 0 00624 04071 TNZ -0 10000 0 04115 T'H FCL, FOR J=0,1,FAPTAB(J).E.0 455 LM00491 04072 CLA +0 50000 0 00470 04073 STO +0 60100 0 00223 04074 TRA +0 02000 0 04100 04075 CLA +0 50000 0 00223 04076 ADD +0 40000 0 00471 04077 STO +0 60100 0 00223 04100 LXA +0 53400 1 00223 04101 CLA +0 50000 1 00205 04102 SUB +0 40200 0 00470 04103 TZE +0 10000 0 04114 N=N+1 456 LM00492 04104 CLA +0 50000 0 00304 04105 ADD +0 40000 0 00471 04106 STO +0 60100 0 00304 FCL A(N)=FAPTAB(J) 457 LM00493 04107 LXA +0 53400 1 00304 04110 LXA +0 53400 2 00223 04111 CLA +0 50000 2 00205 04112 STO +0 60100 1 00024 04113 TRA +0 02000 0 04075 O'R ARG1.E.$ MAD$ 458 LM00494 04114 TRA +0 02000 0 04217 04115 CLA +0 50000 0 00124 04116 SUB +0 40200 0 00626 04117 TNZ -0 10000 0 04150 W'R ARG.E.$ ITABS$, MADSW=1B 459 LM00495 04120 CLA +0 50000 0 00125 04121 SUB +0 40200 0 00611 04122 TNZ -0 10000 0 04125 04123 CLA +0 50000 0 00471 04124 STO +0 60100 0 00246 T'H MCL, FOR J=0,1,MADTAB(J).E.0 460 LM00496 04125 CLA +0 50000 0 00470 04126 STO +0 60100 0 00223 04127 TRA +0 02000 0 04133 04130 CLA +0 50000 0 00223 04131 ADD +0 40000 0 00471 04132 STO +0 60100 0 00223 04133 LXA +0 53400 1 00223 04134 CLA +0 50000 1 00267 04135 SUB +0 40200 0 00470 04136 TZE +0 10000 0 04147 N=N+1 461 LM00497 04137 CLA +0 50000 0 00304 04140 ADD +0 40000 0 00471 04141 STO +0 60100 0 00304 MCL A(N)=MADTAB(J) 462 LM00498 04142 LXA +0 53400 1 00304 04143 LXA +0 53400 2 00223 04144 CLA +0 50000 2 00267 04145 STO +0 60100 1 00024 04146 TRA +0 02000 0 04130 O'R ARG1.E.$ CTSS$ 463 LM00499 04147 TRA +0 02000 0 04217 04150 CLA +0 50000 0 00124 04151 SUB +0 40200 0 00616 04152 TNZ -0 10000 0 04175 T'H XCL, FOR J=15,15,J.G.150 464 LM00500 04153 CLA +0 50000 0 00505 04154 STO +0 60100 0 00223 04155 TRA +0 02000 0 04161 04156 CLA +0 50000 0 00223 04157 ADD +0 40000 0 00505 04160 STO +0 60100 0 00223 04161 CLA +0 50000 0 00223 04162 SUB +0 40200 0 00516 04163 TZE +0 10000 0 04165 04164 TPL +0 12000 0 04174 N=N+1 465 LM00501 04165 CLA +0 50000 0 00304 04166 ADD +0 40000 0 00471 04167 STO +0 60100 0 00304 XCL A(N)=J 466 LM00502 04170 LXA +0 53400 1 00304 04171 CLA +0 50000 0 00223 04172 STO +0 60100 1 00024 04173 TRA +0 02000 0 04156 O'R ZEL.(ARG1).A.$$.E.0 467 LM00503 04174 TRA +0 02000 0 04217 04175 TSX +0 07400 4 00041 04176 TXH +3 00000 0 00124 04177 STO +0 60100 0 04360 04200 CAL -0 50000 0 04360 04201 ANA -0 32000 0 00640 04202 SLW +0 60200 0 04360 04203 CLA +0 50000 0 04360 04204 SUB +0 40200 0 00470 04205 TNZ -0 10000 0 04216 N=N+1 468 LM00504 04206 CLA +0 50000 0 00304 04207 ADD +0 40000 0 00471 04210 STO +0 60100 0 00304 A(N)=BCDEC.(ARG1) 469 LM00505 04211 TSX +0 07400 4 00001 04212 TXH +3 00000 0 00124 04213 LXA +0 53400 1 00304 04214 STO +0 60100 1 00024 O'E 470 LM00506 04215 TRA +0 02000 0 04217 T'O RET 471 LM00507 04216 TRA +0 02000 0 00112 E'L 472 LM00508 TAL C'E 473 LM00509 04217 TRA +0 02000 0 04057 RET I=I-1 474 LM00510 04220 CLA +0 50000 0 00220 04221 SUB +0 40200 0 00471 04222 STO +0 60100 0 00220 SORT CH=0B 475 LM00511 04223 CLA +0 50000 0 00470 04224 STO +0 60100 0 00144 T'H SL, FOR J=2,1,J.G.N 476 LM00512 04225 CLA +0 50000 0 00472 04226 STO +0 60100 0 00223 04227 TRA +0 02000 0 04233 04230 CLA +0 50000 0 00223 04231 ADD +0 40000 0 00471 04232 STO +0 60100 0 00223 04233 CLA +0 50000 0 00223 04234 SUB +0 40200 0 00304 04235 TZE +0 10000 0 04237 04236 TPL +0 12000 0 04310 W'R A(J).E.A(J-1) 477 LM00513 04237 CLA +0 50000 0 00223 04240 SUB +0 40200 0 00471 04241 LXA +0 53400 1 00223 04242 PAX +0 73400 2 00000 04243 CLA +0 50000 1 00024 04244 SUB +0 40200 2 00024 04245 TNZ -0 10000 0 04257 A(J)=A(N) 478 LM00514 04246 LXA +0 53400 2 00304 04247 CLA +0 50000 2 00024 04250 STO +0 60100 1 00024 N=N-1 479 LM00515 04251 CLA +0 50000 0 00304 04252 SUB +0 40200 0 00471 04253 STO +0 60100 0 00304 CH=1B 480 LM00516 04254 CLA +0 50000 0 00471 04255 STO +0 60100 0 00144 O'R A(J).L.A(J-1) 481 LM00517 04256 TRA +0 02000 0 04307 04257 CLA +0 50000 0 00223 04260 SUB +0 40200 0 00471 04261 LXA +0 53400 1 00223 04262 PAX +0 73400 2 00000 04263 CLA +0 50000 1 00024 04264 SUB +0 40200 2 00024 04265 TZE +0 10000 0 04307 04266 TPL +0 12000 0 04307 ARG1=A(J-1) 482 LM00518 04267 CLA +0 50000 0 00223 04270 SUB +0 40200 0 00471 04271 PAX +0 73400 2 00000 04272 CLA +0 50000 2 00024 04273 STO +0 60100 0 00124 A(J-1)=A(J) 483 LM00519 04274 CLA +0 50000 0 00223 04275 SUB +0 40200 0 00471 04276 PAX +0 73400 1 00000 04277 LXA +0 53400 2 00223 04300 CLA +0 50000 2 00024 04301 STO +0 60100 1 00024 A(J)=ARG1 484 LM00520 04302 LXA +0 53400 1 00223 04303 CLA +0 50000 0 00124 04304 STO +0 60100 1 00024 CH=1B 485 LM00521 04305 CLA +0 50000 0 00471 04306 STO +0 60100 0 00144 E'L 486 LM00522 SL C'E 487 LM00523 04307 TRA +0 02000 0 04230 W'R CH, T'O SORT 488 LM00524 04310 NZT -0 52000 0 00144 04311 TRA +0 02000 0 04313 04312 TRA +0 02000 0 00114 N=N+1 489 LM00525 04313 CLA +0 50000 0 00304 04314 ADD +0 40000 0 00471 04315 STO +0 60100 0 00304 A(N)=1000 490 LM00526 04316 LXA +0 53400 1 00304 04317 CLA +0 50000 0 00521 04320 STO +0 60100 1 00024 NN=N 491 LM00527 04321 CLA +0 50000 0 00304 04322 STO +0 60100 0 00024 F'N 492 LM00528 04323 TRA +0 02000 0 04354 END OF FUNCTION 493 LM00529 04324 TSX +0 07400 4 00012 04325 TXH +3 00000 0 00000 04326 SXD -0 63400 1 04325 04327 SXA +0 63400 4 04354 04330 CLA +0 50000 4 00001 04331 STA +0 62100 0 04051 04332 STA +0 62100 0 04322 04333 CLA +0 50000 4 00002 04334 STA +0 62100 0 04112 04335 STA +0 62100 0 04145 04336 STA +0 62100 0 04172 04337 STA +0 62100 0 04214 04340 STA +0 62100 0 04243 04341 STA +0 62100 0 04244 04342 STA +0 62100 0 04247 04343 STA +0 62100 0 04250 04344 STA +0 62100 0 04263 04345 STA +0 62100 0 04264 04346 STA +0 62100 0 04272 04347 STA +0 62100 0 04300 04350 STA +0 62100 0 04301 04351 STA +0 62100 0 04304 04352 STA +0 62100 0 04320 04353 TRA +0 02000 2 00001 04354 AXT +0 77400 4 00000 04355 LXA +0 53400 2 04325 04356 LXD -0 53400 1 04325 04357 TRA +0 02000 4 00001 INTERNAL FUNCTION (Z) 494 LM00531 04361 TRA +0 02000 0 04417 E'O BCDC. 495 LM00532 04362 TRA +0 02000 0 04365 00042 TTR +0 02100 0 04363 04363 SXA +0 63400 2 04403 04364 TSX +0 07400 2 04403 W'R ZEL.(Z).A.$$.NE.0, T'O BAD 496 LM00533 04365 TSX +0 07400 4 00041 04366 TXH +3 00000 0 00024 04367 STO +0 60100 0 04416 04370 CAL -0 50000 0 04416 04371 ANA -0 32000 0 00640 04372 SLW +0 60200 0 04416 04373 CLA +0 50000 0 04416 04374 SUB +0 40200 0 00470 04375 TZE +0 10000 0 04377 04376 TRA +0 02000 0 00055 F'N BCDEC.(Z) 497 LM00534 04377 TSX +0 07400 4 00001 04400 TXH +3 00000 0 00024 04401 TRA +0 02000 0 04412 E'N 498 LM00535 04402 TSX +0 07400 4 00012 04403 TXH +3 00000 0 00000 04404 SXD -0 63400 1 04403 04405 SXA +0 63400 4 04412 04406 CLA +0 50000 4 00001 04407 STO +0 60100 0 04366 04410 STO +0 60100 0 04400 04411 TRA +0 02000 2 00001 04412 AXT +0 77400 4 00000 04413 LXA +0 53400 2 04403 04414 LXD -0 53400 1 04403 04415 TRA +0 02000 4 00001 V'S NSPC=5 499 LM00537 00305 +0 00000 0 00005 V'S SP=55K,107K,72K,60K,135K,136K 500 LM00538 00351 +0 00000 0 00136 00352 +0 00000 0 00135 00353 +0 00000 0 00060 00354 +0 00000 0 00072 00355 +0 00000 0 00107 00356 +0 00000 0 00055 V'S NNOSP=2 501 LM00539 00276 +0 00000 0 00002 V'S NOSP=113K,132K,133K 502 LM00540 00277 +0 00000 0 00133 00300 +0 00000 0 00132 00301 +0 00000 0 00113 V'S NPCC=11 503 LM00541 00303 +0 00000 0 00013 V'S PCCL=60K,1K,0K,40K,20K,2K,3K,4K,5K,61K,62K,63K 504 LM00542 00312 +0 00000 0 00063 00313 +0 00000 0 00062 00314 +0 00000 0 00061 00315 +0 00000 0 00005 00316 +0 00000 0 00004 00317 +0 00000 0 00003 00320 +0 00000 0 00002 00321 +0 00000 0 00020 00322 +0 00000 0 00040 00323 +0 00000 0 00000 00324 +0 00000 0 00001 00325 +0 00000 0 00060 V'S D=0,66,1,2,-1,32,21,16,13,0,1,2 505 LM00543 00152 +0 00000 0 00002 00153 +0 00000 0 00001 00154 +0 00000 0 00000 00155 +0 00000 0 00015 00156 +0 00000 0 00020 00157 +0 00000 0 00025 00160 +0 00000 0 00040 00161 -0 00000 0 00001 00162 +0 00000 0 00002 00163 +0 00000 0 00001 00164 +0 00000 0 00102 00165 +0 00000 0 00000 V'S MADBS=35K 506 LM00544 00245 +0 00000 0 00035 V'S LM=777777K6 507 LM00545 00240 -3 77777 0 00000 V'S FENCE = 777777777777K 508 LM00546 00206 -3 77777 7 77777 V'S FAPTAB=8,16,35,40,45,50,55,60,65,70,75,80,85,0 509 LM00547 00170 +0 00000 0 00000 00171 +0 00000 0 00125 00172 +0 00000 0 00120 00173 +0 00000 0 00113 00174 +0 00000 0 00106 00175 +0 00000 0 00101 00176 +0 00000 0 00074 00177 +0 00000 0 00067 00200 +0 00000 0 00062 00201 +0 00000 0 00055 00202 +0 00000 0 00050 00203 +0 00000 0 00043 00204 +0 00000 0 00020 00205 +0 00000 0 00010 V'S MADTAB=12,17,22,27,32,37,42,47,52,57,62,67,72,77,82,87,0 510 LM00548 00247 +0 00000 0 00000 00250 +0 00000 0 00127 00251 +0 00000 0 00122 00252 +0 00000 0 00115 00253 +0 00000 0 00110 00254 +0 00000 0 00103 00255 +0 00000 0 00076 00256 +0 00000 0 00071 00257 +0 00000 0 00064 00260 +0 00000 0 00057 00261 +0 00000 0 00052 00262 +0 00000 0 00045 00263 +0 00000 0 00040 00264 +0 00000 0 00033 00265 +0 00000 0 00026 00266 +0 00000 0 00021 00267 +0 00000 0 00014 DIMENSION IN(0),OUT(0),NC(5),ITABS(0),OTABS(0) 511 LM00549 V'S TCR = 0,2,8,128,176,176,8,8,8,1,1 512 LM00553 00405 +0 00000 0 00001 00406 +0 00000 0 00001 00407 +0 00000 0 00010 00410 +0 00000 0 00010 00411 +0 00000 0 00010 00412 +0 00000 0 00260 00413 +0 00000 0 00260 00414 +0 00000 0 00200 00415 +0 00000 0 00010 00416 +0 00000 0 00002 00417 +0 00000 0 00000 V'S TCRLF=0,1,1,0,0,0,1,0,1,0,0 513 LM00554 00372 +0 00000 0 00000 00373 +0 00000 0 00000 00374 +0 00000 0 00001 00375 +0 00000 0 00000 00376 +0 00000 0 00001 00377 +0 00000 0 00000 00400 +0 00000 0 00000 00401 +0 00000 0 00000 00402 +0 00000 0 00001 00403 +0 00000 0 00001 00404 +0 00000 0 00000 V'S TBS = 0,1K5,112,1K5,1K5,1K5,1K5,88,112,1,1 514 LM00555 00357 +0 00000 0 00001 00360 +0 00000 0 00001 00361 +0 00000 0 00160 00362 +0 00000 0 00130 00363 +0 00000 1 00000 00364 +0 00000 1 00000 00365 +0 00000 1 00000 00366 +0 00000 1 00000 00367 +0 00000 0 00160 00370 +0 00000 1 00000 00371 +0 00000 0 00000 V'S TSP = 0,88,72,64,88,88,88,88,72,1,1 515 LM00556 00440 +0 00000 0 00001 00441 +0 00000 0 00001 00442 +0 00000 0 00110 00443 +0 00000 0 00130 00444 +0 00000 0 00130 00445 +0 00000 0 00130 00446 +0 00000 0 00130 00447 +0 00000 0 00100 00450 +0 00000 0 00110 00451 +0 00000 0 00130 00452 +0 00000 0 00000 V'S TTAB = 0,24,8,1K5,1K5,1K5,24,24,8,1,1 516 LM00557 00453 +0 00000 0 00001 00454 +0 00000 0 00001 00455 +0 00000 0 00010 00456 +0 00000 0 00030 00457 +0 00000 0 00030 00460 +0 00000 1 00000 00461 +0 00000 1 00000 00462 +0 00000 1 00000 00463 +0 00000 0 00010 00464 +0 00000 0 00030 00465 +0 00000 0 00000 V'S TLF = 0,1,0,0,0,0,0,1,0,1,0 517 LM00558 00422 +0 00000 0 00000 00423 +0 00000 0 00001 00424 +0 00000 0 00000 00425 +0 00000 0 00001 00426 +0 00000 0 00000 00427 +0 00000 0 00000 00430 +0 00000 0 00000 00431 +0 00000 0 00000 00432 +0 00000 0 00000 00433 +0 00000 0 00001 00434 +0 00000 0 00000 V'S LL=0,87,129,68,68,68,87,87,129,79,1K5 518 LM00559 00225 +0 00000 1 00000 00226 +0 00000 0 00117 00227 +0 00000 0 00201 00230 +0 00000 0 00127 00231 +0 00000 0 00127 00232 +0 00000 0 00104 00233 +0 00000 0 00104 00234 +0 00000 0 00104 00235 +0 00000 0 00201 00236 +0 00000 0 00127 00237 +0 00000 0 00000 V'S PGL=0,66,66,66,66,66,66,66,66,56,66 519 LM00560 00327 +0 00000 0 00102 00330 +0 00000 0 00070 00331 +0 00000 0 00102 00332 +0 00000 0 00102 00333 +0 00000 0 00102 00334 +0 00000 0 00102 00335 +0 00000 0 00102 00336 +0 00000 0 00102 00337 +0 00000 0 00102 00340 +0 00000 0 00102 00341 +0 00000 0 00000 V'S ITD=10 520 LM00561 00222 +0 00000 0 00012 V'S OTD=10 521 LM00562 00307 +0 00000 0 00012 EQUIVALENCE (NCR,NC(0)),(NLF,NC(1)),(NTAB,NC(2)), 522 LM00564 1 (NSP,NC(3)),(NBS,NC(4)),(NCRLF,NC(5)) 522 LM00565 NORMAL MODE IS INTEGER 523 LM00566 BOOLEAN N9,N12,CC,NCCS,CCN,EOFSW,WR,PS,CH,LMSW,DATESW 524 LM00567 BOOLEAN FILESW,HDRSW,MADSW,CCX,PTF,CKP 525 LM00568 END OF PROGRAM 526 LM00569 04417 TSX +0 07400 4 00012 1 OPENW,WTA,CLOSEW 02/05/69 1710.5 PAGE 1 * OPENW.(FN,FN1) * WTA.(A,N) * CLOSEW. 00031 ENTRY WTA 00006 ENTRY OPENW 00071 ENTRY CLOSEW TRANSFER VECTOR 00000 464725456060 OPEN 00001 226426262551 BUFFER 00002 665166213163 WRWAIT 00003 234346622560 CLOSE LINKAGE DIRECTOR 00004 000000000000 00005 666321606060 00006 0636 00 4 00027 OPENW SCA XRO,4 00007 -0500 60 4 00001 CAL* 1,4 00010 0602 00 0 00123 SLW FN 00011 -0500 60 4 00002 CAL* 2,4 00012 0602 00 0 00124 SLW FN1 00013 0074 00 4 00000 TSX $OPEN,4 00014 3 00000 0 01670 PTH =HW 00015 3 00000 0 00123 PTH FN 00016 3 00000 0 00124 PTH FN1 00017 0074 00 4 00001 TSX $BUFFER,4 00020 3 00000 0 00123 PTH FN 00021 3 00000 0 00124 PTH FN1 00022 3 00660 0 00126 PTH WBUF,,432 00023 -0500 00 0 01667 CAL =O77 00024 0602 00 0 00125 SLW AC 00025 0774 00 4 00660 AXT 432,4 00026 0634 00 4 00043 SXA WC,4 00027 -0774 00 4 00000 XRO AXC ,4 00030 0020 00 4 00001 TRA 1,4 * 00031 0636 00 4 00066 WTA SCA XRW,4 00032 0634 00 1 00067 SXA XRW+1,1 00033 -0500 00 4 00001 CAL 1,4 00034 0621 00 0 00045 STA LDQ 00035 -0500 60 4 00002 CAL* 2,4 00036 0734 00 4 00000 PAX ,4 00037 -0634 00 4 00044 SXD LOOP,4 00040 0774 00 1 00001 AXT 1,1 00041 -0500 00 0 00125 CAL AC 00042 0140 00 0 00042 TOV * 00043 0774 00 4 00000 WC AXT ,4 00044 3 00044 1 00064 LOOP TXH OUT,1,1** 00045 0560 00 1 00000 LDQ LDQ **,1 00046 -0773 00 0 00033 RQL 36-9 00047 -0763 00 0 00011 LGL 9 00050 -0140 00 0 00063 TNO CLE 00051 0602 00 4 01666 SLW BUF+432,4 00052 2 00001 4 00062 TIX NW,4,1 00053 0074 00 4 00002 TSX $WRWAIT,4 1 OPENW,WTA,CLOSEW 02/05/69 1710.5 PAGE 2 00054 3 00000 0 00123 PTH FN 00055 3 00000 0 00124 PTH FN1 00056 3 00000 0 01666 PTH =0 00057 3 00660 0 01006 PTH BUF,,432 00060 0140 00 0 00060 TOV * 00061 0774 00 4 00660 AXT 432,4 00062 -0500 00 0 01667 NW CAL =O77 00063 1 00001 1 00044 CLE TXI LOOP,1,1 00064 0634 00 4 00043 OUT SXA WC,4 00065 0602 00 0 00125 SLW AC 00066 -0774 00 4 00000 XRW AXC ,4 00067 0774 00 1 00000 AXT ,1 00070 0020 00 4 00001 TRA 1,4 * 00071 0636 00 4 00121 CLOSEW SCA XRC,4 00072 0534 00 4 00043 LXA WC,4 00073 -0500 00 0 00125 CAL AC 00074 -0340 00 0 01667 LAS =O77 00075 0020 00 0 00077 TRA *+2 00076 0020 00 0 00105 TRA LE 00077 0140 00 0 00077 TOV * 00100 0560 00 0 01666 LDQ =0 00101 -0763 00 0 00011 LGL 9 00102 -0140 00 0 00101 TNO *-1 00103 0602 00 4 01666 SLW BUF+432,4 00104 1 77777 4 00105 TXI *+1,4,-1 00105 -0636 00 4 00107 LE SCD *+2,4 00106 0774 00 4 00660 AXT 432,4 00107 1 00000 4 00110 TXI *+1,4,** 00110 -0634 00 4 00115 SXD *+5,4 00111 0074 00 4 00002 TSX $WRWAIT,4 00112 3 00000 0 00123 PTH FN 00113 3 00000 0 00124 PTH FN1 00114 3 00000 0 01666 PTH =0 00115 3 00000 0 01006 PTH BUF,,** 00116 0074 00 4 00003 TSX $CLOSE,4 00117 3 00000 0 00123 PTH FN 00120 3 00000 0 00124 PTH FN1 00121 -0774 00 4 00000 XRC AXC ,4 00122 0020 00 4 00001 TRA 1,4 00123 0 00000 0 00000 FN 00124 0 00000 0 00000 FN1 00125 0 00000 0 00000 AC 00126 WBUF BSS 432 01006 BUF BSS 432 END LITERALS 01666 000000000000 01667 000000000077 01670 666060606060 1 OPENW,WTA,CLOSEW 02/05/69 1710.5 PAGE 1 POST PROCESSOR ASSEMBLY DATA 1671 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 125 AC 24, 41, 65, 73 123 FN 10, 15, 20, 54, 112, 117 105 LE 76 62 NW 52 43 WC 26, 64, 72 1006 BUF 51, 57, 103, 115 63 CLE 50 124 FN1 12, 16, 21, 55, 113, 120 45 LDQ 34 64 OUT 44 31 WTA 0 121 XRC 71 27 XRO 6 66 XRW 31, 32 44 LOOP 37, 63 0 OPEN 13 126 WBUF 22 3 CLOSE 116 6 OPENW 0 1 BUFFER 17 71 CLOSEW 0 2 WRWAIT 53, 111 0 NO ERROR IN ABOVE ASSEMBLY. 1 OPENF,SETSIZ,READF,CLOSEF 02/05/69 1710.6 PAGE 1 * OPENF.(FN1,FN2) * SETSIZ.(CHARSIZ,LINESIZ,LINEMARKSW) * N=READF.(A,NMAX,BRK,EOF) * CLOSEF.() 00061 ENTRY READF 00006 ENTRY OPENF 00040 ENTRY SETSIZ 00213 ENTRY CLOSEF TRANSFER VECTOR 00000 464725456060 OPEN 00001 452346446060 NCOM 00002 512466213163 RDWAIT 00003 234346622560 CLOSE LINKAGE DIRECTOR 00004 000000000000 00005 512521242660 00006 0636 00 4 00032 OPENF SCA XRO,4 00007 -0500 60 4 00001 CAL* 1,4 00010 0602 00 0 00221 SLW FN 00011 -0500 60 4 00002 CAL* 2,4 00012 0602 00 0 00222 SLW FN1 00013 0074 00 4 00000 TSX $OPEN,4 00014 3 00000 0 01127 PTH =HR 00015 3 00000 0 00221 PTH FN 00016 3 00000 0 00222 PTH FN1 00017 3 00000 0 01125 PTH =-0 00020 3 00000 0 01125 PTH =-0 00021 3 00000 0 00034 PTH ERR 00022 0634 00 0 00077 SXA WC,0 00023 0634 00 0 00100 SXA CC,0 00024 0600 00 0 00223 STZ EOFSW 00025 0600 00 0 00224 STZ EOFSW1 00026 -0634 00 0 00123 SXD TXH,0 00027 -0500 00 0 01117 CAL =1 00030 0602 00 0 00231 SLW RELADR 00031 -0625 00 0 00227 STL FIRST 00032 -0774 00 4 00000 XRO AXC ,4 00033 0020 00 4 00001 TRA 1,4 * 00034 0074 00 4 00001 ERR TSX $NCOM,4 00035 3 00000 0 01126 PTH =HPRNTER 00036 3 00000 0 01121 PTH =O51 00037 0101 00 0 01124 TIA =HDORMNT * 00040 -0500 60 4 00001 SETSIZ CAL* 1,4 00041 0621 00 0 00172 STA SFTN 00042 0560 00 0 01120 LDQ =36 00043 -0754 00 0 00000 ZAC 00044 0221 60 4 00001 DVP* 1,4 00045 -0130 00 0 00000 XCL 00046 0621 00 0 00170 STA N1 00047 -0500 60 4 00002 CAL* 2,4 00050 0621 00 0 00232 STA LNSZ 1 OPENF,SETSIZ,READF,CLOSEF 02/05/69 1710.6 PAGE 2 00051 0602 00 0 00233 SLW DO 00052 -0500 60 4 00003 CAL* 3,4 00053 0602 00 0 00234 SLW LMSW 00054 -0602 00 0 00233 ORS DO 00055 0600 00 0 00235 STZ LCT 00056 0600 00 0 00236 STZ NDLM 00057 -0625 00 0 00227 STL FIRST 00060 0020 00 4 00001 TRA 1,4 * 00061 0636 00 4 00205 READF SCA XRR,4 00062 0520 00 0 00224 ZET EOFSW1 00063 0020 60 4 00004 TRA* 4,4 00064 0634 00 1 00206 SXA XRR+1,1 00065 0634 00 2 00207 SXA XRR+2,2 00066 -0500 00 4 00001 CAL 1,4 00067 0621 00 0 00174 STA SLW 00070 0774 00 1 00000 AXT 0,1 00071 -0500 60 4 00002 CAL* 2,4 00072 0734 00 2 00000 PAX ,2 00073 1 77777 2 00074 TXI *+1,2,-1 00074 -0634 00 2 00102 SXD LOOP,2 00075 -0500 60 4 00003 CAL* 3,4 00076 0602 00 0 00226 SLW BRK 00077 0774 00 4 00000 WC AXT **,4 00100 0774 00 2 00000 CC AXT **,2 00101 0560 00 0 00230 LDQ MQ 00102 3 00000 1 00201 LOOP TXH OUT,1,** 00103 2 00001 2 00171 TIX SFT,2,1 00104 -0520 00 0 00233 NZT DO 00105 0020 00 0 00123 TRA TXH 00106 0520 00 0 00235 ZET LCT 00107 0020 00 0 00123 TRA TXH 00110 0520 00 0 00236 ZET NDLM 00111 0020 00 0 00123 TRA TXH 00112 -0500 00 0 00232 CAL LNSZ 00113 0602 00 0 00235 SLW LCT 00114 0520 00 0 00227 ZET FIRST 00115 0020 00 0 00122 TRA TXH-1 00116 -0100 00 0 00120 TNZ *+2 00117 -0625 00 0 00236 STL NDLM 00120 -0500 00 0 01122 CAL =O55 00121 0020 00 0 00173 TRA STO 00122 0600 00 0 00227 STZ FIRST 00123 3 00000 4 00147 TXH TXH NRD,4,** 00124 0520 00 0 00223 ZET EOFSW 00125 0020 00 0 00200 TRA REOF 00126 0074 00 4 00002 TSX $RDWAIT,4 00127 3 00000 0 00221 PTH FN 00130 3 00000 0 00222 PTH FN1 00131 3 00000 0 00231 PTH RELADR 00132 3 00660 0 00237 PTH BUF,,432 00133 3 00000 0 00142 PTH EOF 00134 3 00000 0 00225 PTH EOFCT 00135 -0500 00 0 00231 CAL RELADR 00136 0400 00 0 01123 ADD =432 00137 0602 00 0 00231 SLW RELADR 1 OPENF,SETSIZ,READF,CLOSEF 02/05/69 1710.6 PAGE 3 00140 -0774 00 4 00660 AXC 432,4 00141 0020 00 0 00145 TRA SXD 00142 0535 00 4 00225 EOF LAC EOFCT,4 00143 -0625 00 0 00223 STL EOFSW 00144 -3 00000 4 00200 TXL REOF,4,0 00145 -0634 00 4 00123 SXD SXD TXH,4 00146 0774 00 4 00000 AXT 0,4 00147 0520 00 0 00234 NRD ZET LMSW 00150 0520 00 0 00235 ZET LCT 00151 0020 00 0 00163 TRA GET 00152 -0500 00 4 00237 CAL BUF,4 00153 1 77777 4 00154 TXI *+1,4,-1 00154 0322 00 0 01130 ERA =O777777000000 00155 -0320 00 0 01130 ANA =O777777000000 00156 -0100 00 0 00102 TNZ LOOP 00157 -0500 00 4 00236 CAL BUF-1,4 00160 0621 00 0 00235 STA LCT 00161 0600 00 0 00236 STZ NDLM 00162 0020 00 0 00102 TRA LOOP 00163 -0500 00 0 00235 GET CAL LCT 00164 0402 00 0 01117 SUB =1 00165 0602 00 0 00235 SLW LCT 00166 0560 00 4 00237 LDQ BUF,4 00167 1 77777 4 00170 TXI *+1,4,-1 00170 0774 00 2 00004 N1 AXT 4,2 00171 -0754 00 0 00000 SFT ZAC 00172 -0763 00 0 00011 SFTN LGL 9 00173 1 00001 1 00174 STO TXI *+1,1,1 00174 0602 00 1 00000 SLW SLW **,1 00175 0322 00 0 00226 ERA BRK 00176 0100 00 0 00201 TZE OUT 00177 0020 00 0 00102 TRA LOOP 00200 -0625 00 0 00224 REOF STL EOFSW1 00201 0634 00 4 00077 OUT SXA WC,4 00202 0634 00 2 00100 SXA CC,2 00203 -0600 00 0 00230 STQ MQ 00204 0754 00 1 00000 PXA ,1 00205 -0774 00 4 00000 XRR AXC ,4 00206 0774 00 1 00000 AXT ,1 00207 0774 00 2 00000 AXT ,2 00210 0100 60 4 00004 TZE* 4,4 00211 0020 00 4 00001 TRA 1,4 * 00212 0 00000 0 00000 N 00213 0636 00 4 00217 CLOSEF SCA XRC,4 00214 0074 00 4 00003 TSX $CLOSE,4 00215 3 00000 0 00221 PTH FN 00216 3 00000 0 00222 PTH FN1 00217 -0774 00 4 00000 XRC AXC ,4 00220 0020 00 4 00001 TRA 1,4 00221 0 00000 0 00000 FN 00222 0 00000 0 00000 FN1 00223 0 00000 0 00000 EOFSW 00224 0 00000 0 00000 EOFSW1 00225 0 00000 0 00000 EOFCT 00226 0 00000 0 00000 BRK 1 OPENF,SETSIZ,READF,CLOSEF 02/05/69 1710.6 PAGE 4 00227 0 00000 0 00000 FIRST 00230 0 00000 0 00000 MQ 00231 0 00000 0 00000 RELADR 00232 0 00000 0 00000 LNSZ 00233 0 00000 0 00000 DO 00234 0 00000 0 00000 LMSW 00235 0 00000 0 00000 LCT 00236 0 00000 0 00000 NDLM 00237 BUF BSS 432 END LITERALS 01117 000000000001 01120 000000000044 01121 000000000051 01122 000000000055 01123 000000000660 01124 244651444563 01125 400000000000 01126 475145632551 01127 516060606060 01130 777777000000 1 OPENF,SETSIZ,READF,CLOSEF 02/05/69 1710.6 PAGE 1 POST PROCESSOR ASSEMBLY DATA 1131 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 212 N 100 CC 23, 202 233 DO 51, 54, 104 221 FN 10, 15, 127, 215 230 MQ 101, 203 170 N1 46 77 WC 22, 201 226 BRK 76, 175 237 BUF 132, 152, 157, 166 142 EOF 133 34 ERR 21 222 FN1 12, 16, 130, 216 163 GET 151 235 LCT 55, 106, 113, 150, 160, 163, 165 147 NRD 123 201 OUT 102, 176 171 SFT 103 174 SLW 67 173 STO 121 145 SXD 141 123 TXH 26, 105, 107, 111, 115, 145 217 XRC 213 32 XRO 6 205 XRR 61, 64, 65 234 LMSW 53, 147 232 LNSZ 50, 112 102 LOOP 74, 156, 162, 177 1 NCOM 34 236 NDLM 56, 110, 117, 161 0 OPEN 13 200 REOF 125, 144 172 SFTN 41 3 CLOSE 214 225 EOFCT 134, 142 223 EOFSW 24, 124, 143 227 FIRST 31, 57, 114, 122 6 OPENF 0 61 READF 0 213 CLOSEF 0 224 EOFSW1 25, 62, 200 2 RDWAIT 126 231 RELADR 30, 131, 135, 137 40 SETSIZ 0 0 NO ERROR IN ABOVE ASSEMBLY. 1 CHARACTER CONVERSION ROUTINE 02/05/69 1711.4 PAGE 1 * ASCTSS CONVERTS A SINGLE ASCII CHARACTER INTO A CTSS CHARACTER. * TSSASC CONVERTS A SINGLE CTSS CHARACTER INTO AN ASCII CHARACTER. * * NO ESCAPE CONVENTIONS ARE RELEVANT. * MAD CALLING SEQUENCE * X = ASCTSS.(CHAR) * X = TSSASC.(CHAR) * WRITTEN BY ROBERT MORRIS, DECEMBER, 1965 * FIXED FOR PR(1966)ASCII BY J. H. SALTZER, OCT. 66. * 00004 ENTRY ASCTSS 00002 ENTRY TSSASC * LINKAGE DIRECTOR 00000 000000000000 00001 216223636262 00002 -0625 00 0 00017 TSSASC STL XYZFL 00003 0020 00 0 00005 TRA *+2 00004 0600 00 0 00017 ASCTSS STZ XYZFL 00005 0634 00 1 00015 SXA XR1,1 00006 0500 60 4 00001 CLA* 1,4 00007 -0320 00 0 00220 ANA =O177 00010 0737 00 1 00000 PAC ,1 00011 0500 00 1 00020 CLA TABLE,1 00012 0520 00 0 00017 ZET XYZFL 00013 0771 00 0 00022 ARS 18 00014 -0320 00 0 00220 ANA =O177 00015 0774 00 1 00000 XR1 AXT **,1 00016 0020 00 4 00002 TRA 2,4 * 00017 0 00000 0 00000 XYZFL PZE * T MACRO X,Y VFD O18/X,O18/Y END * 00020 TABLE EQU * 00020 T 060,057 0 NUL 00021 T 061,057 1 SOH 00022 T 062,057 2 STX 00023 T 063,057 3 ETX 00024 T 064,057 4 EOT 00025 T 065,057 5 ENQ 00026 T 066,057 6 ACK 00027 T 067,113 7 BEL 00030 T 070,135 8 BS 00031 T 071,072 9 HT 00032 T 000,055 NUL NL 00033 T 075,172 EQUALS VT 00034 T 047,052 ACUTE FF 00035 T 000,136 NUL CR 00036 T 000,133 NUL SO 00037 T 000,132 NUL SI 00040 T 053,057 PLUS DLE 1 CHARACTER CONVERSION ROUTINE 02/05/69 1711.4 PAGE 2 00041 T 101,057 A RHT 00042 T 102,110 B HLF 00043 T 103,057 C CS 00044 T 104,111 D HLR 00045 T 105,057 E NAK 00046 T 106,057 F SYN 00047 T 107,057 G ETB 00050 T 110,057 H CAN 00051 T 111,057 I EM 00052 T 000,057 NUL SS 00053 T 056,057 PERIOD ESC 00054 T 051,057 CLOSE PAREN FS 00055 T 072,057 COLON GS 00056 T 000,057 NUL RS 00057 T 000,057 NUL US 00060 T 055,060 MINUS SPACE 00061 T 112,114 J EXCLAM PT 00062 T 113,137 K QUOTE 00063 T 114,104 L NR SIGN 00064 T 115,053 M DOLLAR SIGN 00065 T 116,105 N PERCENT 00066 T 117,120 O AMPERSAND 00067 T 120,014 P ACUTE 00070 T 121,074 Q OPEN PAREN 00071 T 122,034 R CLOSE PAREN 00072 T 014,054 FF STAR 00073 T 044,020 DOLLARS PLUS 00074 T 052,073 STAR COMMA 00075 T 012,040 NL DASH 00076 T 000,033 NUL PERIOD 00077 T 000,061 NUL SLASH 00100 T 040,000 BLANK 0 00101 T 057,001 SLASH 1 00102 T 123,002 S 2 00103 T 124,003 T 3 00104 T 125,004 U 4 00105 T 126,005 V 5 00106 T 127,006 W 6 00107 T 130,007 X 7 00110 T 131,010 Y 8 00111 T 132,011 Z 9 00112 T 011,035 TAB COLON 00113 T 054,103 COMMA SEMICOLON 00114 T 050,152 OPEN PAREN LESS THAN 00115 T 000,013 NUL EQUALS 00116 T 000,155 NUL GREATER THAN 00117 T 000,156 NUL QUESTION 00120 T 174,106 VERTICAL BAR AT SIGN PR(1966)ASCII 00121 T 135,021 CLOSE BRACKET A 00122 T 134,022 LSLANT B PR(1966)ASCII 00123 T 073,023 SEMICOLON C 00124 T 043,024 NR SIGN D 00125 T 045,025 PERCENT E PR(1966)ASCII 00126 T 100,026 AT F PR(1966)ASCII 00127 T 000,027 LINE FEED G 00130 T 022,030 HLF H 1 CHARACTER CONVERSION ROUTINE 02/05/69 1711.4 PAGE 3 00131 T 024,031 HLR I 00132 T 136,041 CIRCUMFLEX J 00133 T 007,042 BELL K 00134 T 041,043 EXCLAM L 00135 T 000,044 WRU M 00136 T 000,045 HANG UP N 00137 T 000,046 PR OFF O 00140 T 046,047 AMPERSAND P 00141 T 141,050 A Q 00142 T 142,051 B R 00143 T 143,062 C S 00144 T 144,063 D T 00145 T 145,064 E U 00146 T 146,065 F V 00147 T 147,066 G W 00150 T 150,067 H X 00151 T 151,070 I Y 00152 T 017,071 BLACK Z 00153 T 016,153 RED OPEN BRA 00154 T 176,102 OVERLINE/TILDE LSLANT PR(1966)ASCII 00155 T 010,101 BS CLOSE BRA 00156 T 015,112 CRLF::// CIRCUMFLEX PR(1966)ASCII 00157 T 042,140 QUOTE UNDERLINE 00160 T 137,160 UNDERLINE GRAVE PR(1966)ASCII 00161 T 152,121 J A 00162 T 153,122 K B 00163 T 154,123 L C 00164 T 155,124 M D 00165 T 156,125 N E 00166 T 157,126 O F 00167 T 160,127 P G 00170 T 161,130 Q G 00171 T 162,131 R I 00172 T 074,141 LESS THAN J 00173 T 133,142 OPEN BRA K 00174 T 000,143 PREFIX L 00175 T 076,144 GREATER THAN M 00176 T 077,145 QUESTION N 00177 T 000,146 NULL O 00200 T 140,147 GRAVE ACCENT P PR(1966)ASCII 00201 T 000,150 LK Q 00202 T 163,151 S R 00203 T 164,162 T S 00204 T 165,163 U T 00205 T 166,164 V U 00206 T 167,165 W V 00207 T 170,166 X W 00210 T 171,167 Y X 00211 T 172,170 Z Y 00212 T 013,171 VT Z 00213 T 173,173 OPEN BRACE OPEN BRACE 00214 T 175,100 CLOSE BRACE VERTICAL BAR PR(1966)ASCII 00215 T 000,174 PR ON CLOSE BRACE 00216 T 000,134 ULK OVERLINE/TILDE PR(1966)ASCII 00217 T 000,057 ALT MODE DEL * 1 CHARACTER CONVERSION ROUTINE 02/05/69 1711.4 PAGE 4 END LITERALS 00220 000000000177 1 CHARACTER CONVERSION ROUTINE 02/05/69 1711.4 PAGE 1 POST PROCESSOR ASSEMBLY DATA 221 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 15 XR1 5 20 TABLE 11, 20 17 XYZFL 2, 4, 12 4 ASCTSS 0 2 TSSASC 0 0 NO ERROR IN ABOVE ASSEMBLY. 1 EXECUTE PNTLIN.(A,N) PRINTS AS 84A1 02/05/69 1711.7 PAGE 1 00003 ENTRY PNTLIN TRANSFER VECTOR 00000 665126436721 WRFLXA LINKAGE DIRECTOR 00001 000000000000 00002 474563433145 00003 0634 00 4 00060 PNTLIN SXA XR,4 00004 0634 00 1 00061 SXA XR+1,1 00005 0634 00 2 00062 SXA XR+2,2 00006 -0500 00 4 00001 CAL 1,4 00007 0621 00 0 00021 STA A 00010 -0500 60 4 00002 CAL* 2,4 00011 0734 00 1 00000 PAX ,1 00012 -0634 00 1 00020 SXD TXH,1 00013 0774 00 1 00000 AXT 0,1 00014 0774 00 2 00034 LOOP AXT 28,2 00015 0774 00 4 00003 AXT 3,4 00016 -0754 00 0 00000 ZAC 00017 1 00001 1 00020 TXI *+1,1,1 00020 3 00000 1 00032 TXH TXH OUT,1,** 00021 0560 00 1 00000 A LDQ **,1 00022 -0773 00 0 00030 RQL 24 00023 -0763 00 0 00014 LGL 12 00024 2 00001 4 00017 TIX *-5,4,1 00025 0602 00 2 00121 SLW B+28,2 00026 2 00001 2 00015 TIX *-9,2,1 00027 0774 00 2 00000 AXT 0,2 00030 0634 00 1 00064 SXA XR1,1 00031 0020 00 0 00041 TRA WRT 00032 0600 00 0 00064 OUT STZ XR1 00033 3 00005 4 00041 TXH WRT,4,5 00034 0560 00 0 00121 LDQ =O005700570057 00035 -0763 00 0 00014 LGL 12 00036 2 00001 4 00035 TIX *-1,4,1 00037 0602 00 2 00121 SLW B+28,2 00040 1 77777 2 00041 TXI *+1,2,-1 00041 0754 00 2 00000 WRT PXA ,2 00042 0737 00 2 00000 PAC ,2 00043 1 00034 2 00044 TXI *+1,2,28 00044 0774 00 1 00065 AXT B,1 00045 0634 00 1 00053 L SXA PAR,1 00046 0774 00 4 00034 AXT 28,4 00047 -0634 00 4 00053 SXD PAR,4 00050 3 00034 2 00052 TXH *+2,2,28 00051 -0634 00 2 00053 SXD PAR,2 00052 0074 00 4 00000 TSX $WRFLXA,4 00053 0 00000 0 00000 PAR 00054 1 00034 1 00055 TXI *+1,1,28 00055 2 00034 2 00045 TIX L,2,28 00056 0534 00 1 00064 LXA XR1,1 00057 3 00000 1 00014 TXH LOOP,1,0 00060 0774 00 4 00000 XR AXT ,4 00061 0774 00 1 00000 AXT ,1 1 EXECUTE PNTLIN.(A,N) PRINTS AS 84A1 02/05/69 1711.7 PAGE 2 00062 0774 00 2 00000 AXT ,2 00063 0020 00 4 00001 TRA 1,4 00064 0 00000 0 00000 XR1 00065 B BSS 28 END LITERALS 00121 005700570057 1 EXECUTE PNTLIN.(A,N) PRINTS AS 84A1 02/05/69 1711.7 PAGE 1 POST PROCESSOR ASSEMBLY DATA 122 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 21 A 7 65 B 25, 37, 44 45 L 55 60 XR 3, 4, 5 32 OUT 20 53 PAR 45, 47, 51 20 TXH 12 41 WRT 31, 33 64 XR1 30, 32, 56 14 LOOP 57 3 PNTLIN 0 0 WRFLXA 52 0 NO ERROR IN ABOVE ASSEMBLY. PERMIT BCD 09/18/68 2318.4 4865 00000 1 MAD PROGRAM LISTING ... ... ... FILE PERMT MAD 02/07/68 2207.0 - .. EMERGENCY PERMIT COMMAND. LM00001 .. J. H. SALTZER, AUGUST, 1965. LM00002 (MODIFIED BY D. E. OPPERT, SEPT-OCT, 1965) LM00003 LM00004 .. USAGE . . . LM00005 .. PERMIT NAME1 NAME2 MODE PROB PROG LM00006 LM00007 NORMAL MODE IS INTEGER *001 LM00008 DIMENSION VEC(6), BF(432) *002 LM00009 VECTOR VALUES P = $PERMIT$ *003 LM00010 VECTOR VALUES F = $ FILE$ *004 LM00011 VECTOR VALUES VEC(6) = 777777000005K *005 LM00012 VECTOR VALUES FENCE = 777777777777K *006 LM00013 LM00014 LM00015 .. CHECK ARGUMENTS. LM00016 .. LM00017 THROUGH GETARG, FOR I = 5, -1, I .L. 1 *007 LM00018 VEC(I) = COMARG.(6-I) *008 LM00019 GETARG WHENEVER VEC(I) .E. FENCE, TRANSFER TO BADARG *009 LM00020 WHENEVER COMARG.(6) .NE. FENCE, TRANSFER TO BADARG *010 LM00021 LM00022 LM00023 FOLLOWING PATCH ALLOWS MODE TO BE EXPRESSED IN LETTERS. LM00024 I.E., T, S, R, W, V, L, OR P. LM00025 LM00026 DIMENSION TABLE(6), TBL(6) *011 LM00027 VECTOR VALUES TABLE = $00000T00000S00000R00000W00000V00000L00000P$ *012 LM00028 VECTOR VALUES TBL = 1, 2, 4, 64, 128, 256, 4096 *013 LM00029 T S R W V L P LM00030 LM00031 LM00032 DETERMINE WHTHR MODE IS NUMERICAL OR ALPHA-CAL LM00033 LM00034 DIMENSION TABL(5) *014 LM00035 VECTOR VALUES TABL = 777777777700K, 777777770077K, 777777007777K *015 LM00036 VECTOR VALUES TABL(3) = 777700777777K, 770077777777K, 007777777777K *016 LM00037 LM00038 LM00039 T2 = VEC(3) *017 LM00040 THROUGH PC, FOR I = 0, 6, I .G. 30 *018 LM00041 PC WHENEVER((VEC(3).RS.I).A.77K).E.60K,T2=T2.A.TABL(I/6) *019 LM00042 WHENEVER ( T2 .A. 707070707070K ) .E. 0, TRANSFER TO PB *020 LM00043 LM00044 A. H. WHEN MODE IS ALPHA-L LM00045 LM00046 T2 = 0 *021 LM00047 THROUGH PA, FOR I = 0, 6, I .G. 30 *022 LM00048 THROUGH PD, FOR J = 0, 1, J .G. 6 *023 LM00049 PD WHENEVER((VEC(3).RS.I).A.77K).E.TABLE(J),TRANSFER TO PE *024 LM00050 WHENEVER ( (VEC(3) .RS. I) .A. 77K) .E. 60K, TRANSFER TO PA *025 LM00051 LM00052 PRINT COMMENT $MODE UNACCEPTABLE$ *026 LM00053 CHNCOM.(0) *027 LM00054 LM00055 PE T2 = T2 .V. TBL(J) *028 LM00056 PA CONTINUE *029 LM00057 LM00058 VEC(3) = T2 .V. $ 000$ *030 LM00059 LM00060 END OF PATCH LM00061 LM00062 PB WHENEVER BCOCT.(VEC(3)) .G. 177K, TRANSFER TO BADARG *031 LM00063 .. LM00064 ..ADD PERMISSION. LM00065 LM00066 TEMP = VEC(3) *032 LM00067 WHENEVER VEC(2) .E. $ *$ *033 LM00068 VEC(3) = VEC(2) *034 LM00069 OTHERWISE *035 LM00070 VEC(3) = REPROB.(VEC(2)) *036 LM00071 END OF CONDITIONAL *037 LM00072 LM00073 VEC(2) = VEC(1) *038 LM00074 VEC(1) = TEMP *039 LM00075 OPEN.($W$, P, F, 120K) *040 LM00076 LM00077 NOTICE THAT PERMT FILE IS LM00078 PRIVATE AND PROTECTED. LM00079 LM00080 BUFFER.(P, F, BF(432)...432) *041 LM00081 WRFILE.(P, F, 0, VEC(6)...6) *042 LM00082 CLOSE.(P,F) *043 LM00083 CHNCOM.(0) *044 LM00084 LM00085 BADARG PRINT COMMENT $PERMIT NAME1 NAME2 MODE PROBNO PROGNO$ *045 LM00086 CHNCOM.(0) *046 LM00087 LM00088 END OF PROGRAM *047 LM00089 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01247 TRANSFER VECTOR LENGTH 00013 PROGRAM BEGINS 00762 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BADARG 00014 4 GETARG 00013 4 PB 00016 4 P 00705 A 1 TBL 00732 A 1 BF 00700 A 1 I 00703 1 PC 00013 4 T2 00706 1 TEMP 00733 1 FENCE 00701 A 1 J 00704 1 PD 00013 4 TABLE 00715 A 1 VEC 00742 A 1 F 00702 A 1 PA 00015 4 PE 00017 4 TABL 00723 A 1 0FUNCTION DICTIONARY BCOCT 00000 1 BUFFER 00001 1 CHNCOM 00002 1 CLOSE 00003 1 COMARG 00004 1 EXIT 00005 1 .PCOMT 00006 1 .SETUP 00007 1 OPEN 00010 1 REPROB 00011 1 WRFILE 00012 1 0ABSOLUTE CONSTANTS 00754 +000000000660 00752 +000000000120 00760 -266060606060 00757 -206060606054 00753 +000000000177 00756 -206060000000 00761 -307070707070 00750 +000000000060 00751 +000000000077 00747 +000000000036 00743 +000000000000 00746 +000000000006 00745 +000000000005 00744 +000000000001 00755 +233000000000 0STATEMENT DICTIONARY 00014 TXL -301241001230 00015 TXL -301155001154 00016 TXL -301166001160 00017 TXL -301154001150 0PROGRAM NORMAL MODE IS INTEGER 001 LM00008 DIMENSION VEC(6), BF(432) 002 LM00009 VECTOR VALUES P = $PERMIT$ 003 LM00010 00762 TSX +0 07400 4 00007 00705 -0 72551 4 43163 VECTOR VALUES F = $ FILE$ 004 LM00011 00702 -2 06026 3 14325 VECTOR VALUES VEC(6) = 777777000005K 005 LM00012 00734 -3 77777 0 00005 VECTOR VALUES FENCE = 777777777777K 006 LM00013 00701 -3 77777 7 77777 THROUGH GETARG, FOR I = 5, -1, I .L. 1 007 LM00018 00763 CLA +0 50000 0 00745 00764 STO +0 60100 0 00703 00765 TRA +0 02000 0 00771 00766 CLS +0 50200 0 00744 00767 ADD +0 40000 0 00703 00770 STO +0 60100 0 00703 00771 CLA +0 50000 0 00703 00772 SUB +0 40200 0 00744 00773 TZE +0 10000 0 00775 00774 TMI -0 12000 0 01012 VEC(I) = COMARG.(6-I) 008 LM00019 00775 CLA +0 50000 0 00746 00776 SUB +0 40200 0 00703 00777 STO +0 60100 0 01244 01000 TSX +0 07400 4 00004 01001 TXH +3 00000 0 01244 01002 LXA +0 53400 1 00703 01003 STO +0 60100 1 00742 GETARG WHENEVER VEC(I) .E. FENCE, TRANSFER TO BADARG 009 LM00020 01004 LXA +0 53400 1 00703 01005 CLA +0 50000 1 00742 01006 SUB +0 40200 0 00701 01007 TNZ -0 10000 0 01011 01010 TRA +0 02000 0 00014 01011 TRA +0 02000 0 00766 WHENEVER COMARG.(6) .NE. FENCE, TRANSFER TO BADARG 010 LM00021 01012 TSX +0 07400 4 00004 01013 TXH +3 00000 0 00746 01014 SUB +0 40200 0 00701 01015 TZE +0 10000 0 01017 01016 TRA +0 02000 0 00014 D'N TABLE(6), TBL(6) 011 LM00027 V'S TABLE = $00000T00000S00000R00000W00000V00000L00000P$ 012 LM00028 00707 +0 00000 0 00047 00710 +0 00000 0 00043 00711 +0 00000 0 00065 00712 +0 00000 0 00066 00713 +0 00000 0 00051 00714 +0 00000 0 00062 00715 +0 00000 0 00063 V'S TBL = 1, 2, 4, 64, 128, 256, 4096 013 LM00029 00724 +0 00000 0 10000 00725 +0 00000 0 00400 00726 +0 00000 0 00200 00727 +0 00000 0 00100 00730 +0 00000 0 00004 00731 +0 00000 0 00002 00732 +0 00000 0 00001 D'N TABL(5) 014 LM00035 V'S TABL = 777777777700K, 777777770077K, 777777007777K 015 LM00036 00721 -3 77777 0 07777 00722 -3 77777 7 70077 00723 -3 77777 7 77700 V'S TABL(3) = 777700777777K, 770077777777K, 007777777777K 016 LM00037 00716 +0 07777 7 77777 00717 -3 70077 7 77777 00720 -3 77700 7 77777 T2 = VEC(3) 017 LM00040 01017 CLA +0 50000 0 00737 01020 STO +0 60100 0 00706 T'H PC, FOR I = 0, 6, I .G. 30 018 LM00041 01021 CLA +0 50000 0 00743 01022 STO +0 60100 0 00703 01023 TRA +0 02000 0 01027 01024 CLA +0 50000 0 00703 01025 ADD +0 40000 0 00746 01026 STO +0 60100 0 00703 01027 CLA +0 50000 0 00703 01030 SUB +0 40200 0 00747 01031 TZE +0 10000 0 01033 01032 TPL +0 12000 0 01056 PC W'R((VEC(3).RS.I).A.77K).E.60K,T2=T2.A.TABL(I/6) 019 LM00042 01033 CAL -0 50000 0 00703 01034 STA +0 62100 0 01036 01035 CAL -0 50000 0 00737 01036 LGR -0 76500 0 00000 01037 ANA -0 32000 0 00751 01040 SLW +0 60200 0 01244 01041 CLA +0 50000 0 01244 01042 SUB +0 40200 0 00750 01043 TNZ -0 10000 0 01055 01044 LDQ +0 56000 0 00703 01045 PXD -0 75400 0 00000 01046 LLS +0 76300 0 00000 01047 DVP +0 22100 0 00746 01050 XCA +0 13100 0 00000 01051 PAX +0 73400 2 00000 01052 CAL -0 50000 0 00706 01053 ANA -0 32000 2 00723 01054 SLW +0 60200 0 00706 01055 TRA +0 02000 0 01024 W'R ( T2 .A. 707070707070K ) .E. 0, T'O PB 020 LM00043 01056 CAL -0 50000 0 00706 01057 ANA -0 32000 0 00761 01060 SLW +0 60200 0 01244 01061 CLA +0 50000 0 01244 01062 SUB +0 40200 0 00743 01063 TNZ -0 10000 0 01065 01064 TRA +0 02000 0 00016 T2 = 0 021 LM00047 01065 CLA +0 50000 0 00743 01066 STO +0 60100 0 00706 T'H PA, FOR I = 0, 6, I .G. 30 022 LM00048 01067 CLA +0 50000 0 00743 01070 STO +0 60100 0 00703 01071 TRA +0 02000 0 01075 01072 CLA +0 50000 0 00703 01073 ADD +0 40000 0 00746 01074 STO +0 60100 0 00703 01075 CLA +0 50000 0 00703 01076 SUB +0 40200 0 00747 01077 TZE +0 10000 0 01101 01100 TPL +0 12000 0 01155 T'H PD, FOR J = 0, 1, J .G. 6 023 LM00049 01101 CLA +0 50000 0 00743 01102 STO +0 60100 0 00704 01103 TRA +0 02000 0 01107 01104 CLA +0 50000 0 00704 01105 ADD +0 40000 0 00744 01106 STO +0 60100 0 00704 01107 CLA +0 50000 0 00704 01110 SUB +0 40200 0 00746 01111 TZE +0 10000 0 01113 01112 TPL +0 12000 0 01127 PD W'R((VEC(3).RS.I).A.77K).E.TABLE(J),T'O PE 024 LM00050 01113 CAL -0 50000 0 00703 01114 STA +0 62100 0 01116 01115 CAL -0 50000 0 00737 01116 LGR -0 76500 0 00000 01117 ANA -0 32000 0 00751 01120 LXA +0 53400 2 00704 01121 SLW +0 60200 0 01244 01122 CLA +0 50000 0 01244 01123 SUB +0 40200 2 00715 01124 TNZ -0 10000 0 01126 01125 TRA +0 02000 0 00017 01126 TRA +0 02000 0 01104 W'R ( (VEC(3) .RS. I) .A. 77K) .E. 60K, T'O PA 025 LM00051 01127 CAL -0 50000 0 00703 01130 STA +0 62100 0 01132 01131 CAL -0 50000 0 00737 01132 LGR -0 76500 0 00000 01133 ANA -0 32000 0 00751 01134 SLW +0 60200 0 01244 01135 CLA +0 50000 0 01244 01136 SUB +0 40200 0 00750 01137 TNZ -0 10000 0 01141 01140 TRA +0 02000 0 00015 PRINT COMMENT $MODE UNACCEPTABLE$ 026 LM00053 01141 TSX +0 07400 4 00006 01142 +0 00000 0 00003 01143 -0 44624 2 56064 01144 -0 52123 2 32547 01145 -2 32122 4 32560 CHNCOM.(0) 027 LM00054 01146 TSX +0 07400 4 00002 01147 TXH +3 00000 0 00743 PE T2 = T2 .V. TBL(J) 028 LM00056 01150 LXA +0 53400 2 00704 01151 CAL -0 50000 0 00706 01152 ORA -0 50100 2 00732 01153 SLW +0 60200 0 00706 PA CONTINUE 029 LM00057 01154 TRA +0 02000 0 01072 VEC(3) = T2 .V. $ 000$ 030 LM00059 01155 CAL -0 50000 0 00706 01156 ORA -0 50100 0 00756 01157 SLW +0 60200 0 00737 PB WHENEVER BCOCT.(VEC(3)) .G. 177K, TRANSFER TO BADARG 031 LM00063 01160 TSX +0 07400 4 00000 01161 TXH +3 00000 0 00737 01162 SUB +0 40200 0 00753 01163 TZE +0 10000 0 01166 01164 TMI -0 12000 0 01166 01165 TRA +0 02000 0 00014 TEMP = VEC(3) 032 LM00067 01166 CLA +0 50000 0 00737 01167 STO +0 60100 0 00733 WHENEVER VEC(2) .E. $ *$ 033 LM00068 01170 CLA +0 50000 0 00740 01171 SUB +0 40200 0 00757 01172 TNZ -0 10000 0 01176 VEC(3) = VEC(2) 034 LM00069 01173 CLA +0 50000 0 00740 01174 STO +0 60100 0 00737 OTHERWISE 035 LM00070 01175 TRA +0 02000 0 01201 VEC(3) = REPROB.(VEC(2)) 036 LM00071 01176 TSX +0 07400 4 00011 01177 TXH +3 00000 0 00740 01200 STO +0 60100 0 00737 END OF CONDITIONAL 037 LM00072 VEC(2) = VEC(1) 038 LM00074 01201 CLA +0 50000 0 00741 01202 STO +0 60100 0 00740 VEC(1) = TEMP 039 LM00075 01203 CLA +0 50000 0 00733 01204 STO +0 60100 0 00741 OPEN.($W$, P, F, 120K) 040 LM00076 01205 TSX +0 07400 4 00010 01206 TXH +3 00000 0 00760 01207 TXH +3 00000 0 00705 01210 TXH +3 00000 0 00702 01211 TXH +3 00000 0 00752 BUFFER.(P, F, BF(432)...432) 041 LM00081 01212 TSX +0 07400 4 00001 01213 TXH +3 00000 0 00705 01214 TXH +3 00000 0 00702 01215 TIX +2 00754 0 00020 WRFILE.(P, F, 0, VEC(6)...6) 042 LM00082 01216 TSX +0 07400 4 00012 01217 TXH +3 00000 0 00705 01220 TXH +3 00000 0 00702 01221 TXH +3 00000 0 00743 01222 TIX +2 00746 0 00734 CLOSE.(P,F) 043 LM00083 01223 TSX +0 07400 4 00003 01224 TXH +3 00000 0 00705 01225 TXH +3 00000 0 00702 CHNCOM.(0) 044 LM00084 01226 TSX +0 07400 4 00002 01227 TXH +3 00000 0 00743 BADARG PRINT COMMENT $PERMIT NAME1 NAME2 MODE PROBNO PROGNO$ 045 LM00086 01230 TSX +0 07400 4 00006 01231 +0 00000 0 00007 01232 -0 72551 4 43163 01233 -2 04521 4 42501 01234 -2 04521 4 42502 01235 -2 04446 2 42560 01236 -0 75146 2 24546 01237 -2 04751 4 62745 01240 -0 66060 6 06060 CHNCOM.(0) 046 LM00087 01241 TSX +0 07400 4 00002 01242 TXH +3 00000 0 00743 END OF PROGRAM 047 LM00089 01243 TSX +0 07400 4 00005 1 PAGE 1 FILE NAME -- REPRB FAP * 00002 ENTRY REPROB REFORMAT PROBLEM NUMBER. * J.H. SALTZER * (MAINTAINED BY D.E. OPPERT) * (SEPT - OCT, 1965) * * LINKAGE DIRECTOR 00000 000000000000 00001 512547514622 00002 0560 60 4 00001 REPROB LDQ* 1,4 GET PROBLEM NUMBER WITH LEADING BLANKS. 00003 0774 00 1 00000 AXT 0,1 COUNT BLANKS. 00004 -0754 00 0 00000 LP ZAC CLEAR FOR COMPARISON. 00005 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER. 00006 -0340 00 0 00024 LAS =H00000 COMPARE WITH ONE BLANK. 00007 0020 00 0 00011 TRA FND NOT BLANK, GO. 00010 1 00001 1 00004 TXI LP,1,1 YES, COUNT IT. 00011 -0501 00 0 00025 FND ORA =H0000 0 NON-BLANK FOUND, ADD PRECEDING BLANK. 00012 -2 00001 1 00015 LOOP TNX DONE,1,1 SEE HOW MANY ZEROS TO ADD. 00013 0767 00 0 00006 ALS 6 MOVE IN A ZERO. 00014 0020 00 0 00012 TRA LOOP 00015 0140 00 0 00016 DONE TOV *+1 TURN OFF OVERFLOW INDICATOR. 00016 -0763 00 0 00006 LGL 6 00017 -0140 00 0 00016 TNO *-1 .. 00020 0602 00 0 00023 SLW TEMP 00021 0500 00 0 00023 CLA TEMP 00022 0020 00 4 00001 TRA 1,4 RETURN TO MAD PROGRAM 00023 0 00000 0 00000 TEMP TEMPORARY STORAGE FOR RESULT. END LITERALS 00024 000000000060 00025 000000006000 1 PAGE 1 POST PROCESSOR ASSEMBLY DATA 26 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 4 LP 10 11 FND 7 15 DONE 12 12 LOOP 14 23 TEMP 20, 21 2 REPROB 0 0 NO ERROR IN ABOVE ASSEMBLY. PINFO BCD 05/12/69 2020.2 3914 00000 1 MAD PROGRAM LISTING ... ... ... FILE PINFO MAD 03/18/69 1456.5 - PINFO COMMAND - PETER R. BOS 11/67 LM00001 LM00002 USAGE... LM00003 PINFO NAME1 -NAME2- LM00004 PINFO WILL SWITCH TO THE PUBLIC FILE AND PRINT LM00005 FILE NAME1 NAME2. DEFAULT FOR NAME2 IS 'INFO'. LM00006 LM00007 NORMAL MODE IS INTEGER *001 LM00008 DIMENSION BUF1(0), BUF2(0), LINE(15) *002 LM00009 VECTOR VALUES FNS=777777777777K *003 LM00010 LM00011 DEFINE UNARY OPERATOR .CAL., PRECEDENCE SAME AS = *004 LM00012 MODE STRUCTURE .CAL.1 TO 1 *005 LM00013 CAL B *006 LM00014 OUT LAC *007 LM00015 END *008 LM00016 DEFINE UNARY OPERATOR .LDQ., PRECEDENCE SAME AS = *009 LM00017 MODE STRUCTURE .LDQ.1 TO 1 *010 LM00018 LDQ B *011 LM00019 OUT MQ *012 LM00020 END *013 LM00021 LM00022 SETBRK.(CHN) *014 LM00023 NM1=COMARG.(1) *015 LM00024 WHENEVER NM1.E.FNS *016 LM00025 PRINT COMMENT $'PINFO' NAME1 -NAME2-$ *017 LM00026 PRINT COMMENT $IF NAME2 OMITTED, INFO ASSUMED$ *018 LM00027 CHNCOM.(0) *019 LM00028 END OF CONDITIONAL *020 LM00029 TMP=COMARG.(2) *021 LM00030 WHENEVER TMP.NE.FNS, NM2=TMP *022 LM00031 VECTOR VALUES NM2=$ INFO$ *023 LM00032 LM00033 TSSFIL. *024 LM00034 GETBUF.(BUF1,431) *025 LM00035 GETBUF.(BUF2,431) *026 LM00036 BFOPEN.($R$,NM1,NM2,BUF1(BUF1+431),BUF2(BUF2+431),-0,ERR) *027 LM00037 BFREAD.(NM1,NM2,LMARK...1,EOF,TMP,ERR) *028 LM00038 WHENEVER LMARK.A.777777K6.E.777777K6, TRANSFER TO RDLINE *029 LM00039 LINE(14)=LMARK *030 LM00040 BFREAD.(NM1,NM2,LINE(13)...13,EOF,TMP,ERR) *031 LM00041 TRANSFER TO PCARD *032 LM00042 LM00043 RDCARD BFREAD.(NM1,NM2,LINE(14)...14,EOF,TMP,ERR) *033 LM00044 PCARD WRFX.(LINE(14)...12) *034 LM00045 TRANSFER TO RDCARD *035 LM00046 RDLM BFREAD.(NM1,NM2,LMARK...1,EOF,TMP,ERR) *036 LM00047 WHENEVER LMARK.A.777777K6.NE.777777K6, TRANSFER TO RDLM *037 LM00048 RDLINE LMARK=LMARK.A.17K *038 LM00049 BFREAD.(NM1,NM2,LINE(LMARK)...LMARK,EOF,TMP,ERR) *039 LM00050 WRFX.(LINE(LMARK)...LMARK) *040 LM00051 TRANSFER TO RDLM *041 LM00052 LM00053 EOF BFCLOS.(NM1,NM2,ERR) *042 LM00054 CHN USRFIL. *043 LM00055 CHNCOM.(0) *044 LM00056 LM00057 ERR .CAL.$PRNTER$ *045 LM00058 .LDQ.400000000071K *046 LM00059 NEXCOM. *047 LM00060 LM00061 END OF PROGRAM *048 LM00062 MODE STRUCTURE .CAL.1 TO 1 005 LM00013 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11101 ) MODE STRUCTURE .LDQ.1 TO 1 010 LM00018 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11201 ) 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00310 TRANSFER VECTOR LENGTH 00016 PROGRAM BEGINS 00072 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BUF1 00026 A 1 EOF 00020 4 LINE 00050 A 1 NM2 00053 A 1 RDLINE 00024 4 BUF2 00027 A 1 ERR 00021 4 LMARK 00051 1 PCARD 00022 4 RDLM 00025 4 CHN 00017 4 FNS 00030 A 1 NM1 00052 1 RDCARD 00023 4 TMP 00054 1 0FUNCTION DICTIONARY BFCLOS 00000 1 BFOPEN 00001 1 BFREAD 00002 1 CHNCOM 00003 1 COMARG 00004 1 EXIT 00005 1 GETBUF 00006 1 .PCOMT 00007 1 .SETUP 00010 1 NEXCOM 00011 1 SETBRK 00012 1 TSSFIL 00013 1 USRFIL 00014 1 WRFX 00015 1 0ABSOLUTE CONSTANTS 00066 -000000000071 00067 -075145632551 00063 +000000000017 00060 +000000000014 00062 +000000000016 00061 +000000000015 00071 -377777000000 00070 -116060606060 00064 +000000000657 00057 +000000000002 00055 +000000000000 00056 +000000000001 00065 +233000000000 0STATEMENT DICTIONARY 00017 TXL -300277000276 00020 TXL -300276000272 00021 TXL -300302000301 00022 TXL -300226000224 00023 TXL -300224000215 00024 TXL -300250000245 00025 TXL -300236000227 0PROGRAM N'S INTEGER 001 LM00008 D'N BUF1(0), BUF2(0), LINE(15) 002 LM00009 V'S FNS=777777777777K 003 LM00010 00072 TSX +0 07400 4 00010 00030 -3 77777 7 77777 DEFINE UNARY OPERATOR .CAL., PRECEDENCE SAME AS = 004 LM00012 MODE STRUCTURE .CAL.1 TO 1 005 LM00013 DEFINE UNARY OPERATOR .LDQ., PRECEDENCE SAME AS = 009 LM00017 MODE STRUCTURE .LDQ.1 TO 1 010 LM00018 SETBRK.(CHN) 014 LM00023 00073 TSX +0 07400 4 00012 00074 TXH +3 00000 0 00017 NM1=COMARG.(1) 015 LM00024 00075 TSX +0 07400 4 00004 00076 TXH +3 00000 0 00056 00077 STO +0 60100 0 00052 W'R NM1.E.FNS 016 LM00025 00100 CLA +0 50000 0 00052 00101 SUB +0 40200 0 00030 00102 TNZ -0 10000 0 00122 PRINT COMMENT $'PINFO' NAME1 -NAME2-$ 017 LM00026 00103 TSX +0 07400 4 00007 00104 +0 00000 0 00004 00105 +1 44731 4 52646 00106 +1 46045 2 14425 00107 +0 16040 4 52144 00110 +2 50240 6 06060 PRINT COMMENT $IF NAME2 OMITTED, INFO ASSUMED$ 018 LM00027 00111 TSX +0 07400 4 00007 00112 +0 00000 0 00005 00113 +3 12660 4 52144 00114 +2 50260 4 64431 00115 -2 36325 2 47360 00116 +3 14526 4 66021 00117 -2 26264 4 42524 CHNCOM.(0) 019 LM00028 00120 TSX +0 07400 4 00003 00121 TXH +3 00000 0 00055 E'L 020 LM00029 TMP=COMARG.(2) 021 LM00030 00122 TSX +0 07400 4 00004 00123 TXH +3 00000 0 00057 00124 STO +0 60100 0 00054 W'R TMP.NE.FNS, NM2=TMP 022 LM00031 00125 CLA +0 50000 0 00054 00126 SUB +0 40200 0 00030 00127 TZE +0 10000 0 00132 00130 CLA +0 50000 0 00054 00131 STO +0 60100 0 00053 V'S NM2=$ INFO$ 023 LM00032 00053 -2 06031 4 52646 TSSFIL. 024 LM00034 00132 TSX +0 07400 4 00013 GETBUF.(BUF1,431) 025 LM00035 00133 TSX +0 07400 4 00006 00134 TXH +3 00000 0 00026 00135 TXH +3 00000 0 00064 GETBUF.(BUF2,431) 026 LM00036 00136 TSX +0 07400 4 00006 00137 TXH +3 00000 0 00027 00140 TXH +3 00000 0 00064 BFOPEN.($R$,NM1,NM2,BUF1(BUF1+431),BUF2(BUF2+431),-0,ERR) 027 LM00037 00141 CLS +0 50200 0 00055 00142 STO +0 60100 0 00305 00143 CLA +0 50000 0 00027 00144 ADD +0 40000 0 00064 00145 SUB +0 40200 0 00146 00146 TXH +3 00000 0 00027 00147 STA +0 62100 0 00162 00150 CLA +0 50000 0 00026 00151 ADD +0 40000 0 00064 00152 SUB +0 40200 0 00153 00153 TXH +3 00000 0 00026 00154 STA +0 62100 0 00161 00155 TSX +0 07400 4 00001 00156 TXH +3 00000 0 00070 00157 TXH +3 00000 0 00052 00160 TXH +3 00000 0 00053 00161 TXH +3 00000 0 00000 00162 TXH +3 00000 0 00000 00163 TXH +3 00000 0 00305 00164 TXH +3 00000 0 00021 BFREAD.(NM1,NM2,LMARK...1,EOF,TMP,ERR) 028 LM00038 00165 TSX +0 07400 4 00002 00166 TXH +3 00000 0 00052 00167 TXH +3 00000 0 00053 00170 TIX +2 00056 0 00051 00171 TXH +3 00000 0 00020 00172 TXH +3 00000 0 00054 00173 TXH +3 00000 0 00021 W'R LMARK.A.777777K6.E.777777K6, T'O RDLINE 029 LM00039 00174 CAL -0 50000 0 00051 00175 ANA -0 32000 0 00071 00176 SLW +0 60200 0 00305 00177 CLA +0 50000 0 00305 00200 SUB +0 40200 0 00071 00201 TNZ -0 10000 0 00203 00202 TRA +0 02000 0 00024 LINE(14)=LMARK 030 LM00040 00203 CLA +0 50000 0 00051 00204 STO +0 60100 0 00032 BFREAD.(NM1,NM2,LINE(13)...13,EOF,TMP,ERR) 031 LM00041 00205 TSX +0 07400 4 00002 00206 TXH +3 00000 0 00052 00207 TXH +3 00000 0 00053 00210 TIX +2 00061 0 00033 00211 TXH +3 00000 0 00020 00212 TXH +3 00000 0 00054 00213 TXH +3 00000 0 00021 T'O PCARD 032 LM00042 00214 TRA +0 02000 0 00022 RDCARD BFREAD.(NM1,NM2,LINE(14)...14,EOF,TMP,ERR) 033 LM00044 00215 TSX +0 07400 4 00002 00216 TXH +3 00000 0 00052 00217 TXH +3 00000 0 00053 00220 TIX +2 00062 0 00032 00221 TXH +3 00000 0 00020 00222 TXH +3 00000 0 00054 00223 TXH +3 00000 0 00021 PCARD WRFX.(LINE(14)...12) 034 LM00045 00224 TSX +0 07400 4 00015 00225 TIX +2 00060 0 00032 T'O RDCARD 035 LM00046 00226 TRA +0 02000 0 00023 RDLM BFREAD.(NM1,NM2,LMARK...1,EOF,TMP,ERR) 036 LM00047 00227 TSX +0 07400 4 00002 00230 TXH +3 00000 0 00052 00231 TXH +3 00000 0 00053 00232 TIX +2 00056 0 00051 00233 TXH +3 00000 0 00020 00234 TXH +3 00000 0 00054 00235 TXH +3 00000 0 00021 W'R LMARK.A.777777K6.NE.777777K6, T'O RDLM 037 LM00048 00236 CAL -0 50000 0 00051 00237 ANA -0 32000 0 00071 00240 SLW +0 60200 0 00305 00241 CLA +0 50000 0 00305 00242 SUB +0 40200 0 00071 00243 TZE +0 10000 0 00245 00244 TRA +0 02000 0 00025 RDLINE LMARK=LMARK.A.17K 038 LM00049 00245 CAL -0 50000 0 00051 00246 ANA -0 32000 0 00063 00247 SLW +0 60200 0 00051 BFREAD.(NM1,NM2,LINE(LMARK)...LMARK,EOF,TMP,ERR) 039 LM00050 00250 CLA +0 50000 0 00051 00251 SUB +0 40200 0 00252 00252 TXH +3 00000 0 00050 00253 STA +0 62100 0 00257 00254 TSX +0 07400 4 00002 00255 TXH +3 00000 0 00052 00256 TXH +3 00000 0 00053 00257 TIX +2 00051 0 00000 00260 TXH +3 00000 0 00020 00261 TXH +3 00000 0 00054 00262 TXH +3 00000 0 00021 WRFX.(LINE(LMARK)...LMARK) 040 LM00051 00263 CLA +0 50000 0 00051 00264 SUB +0 40200 0 00265 00265 TXH +3 00000 0 00050 00266 STA +0 62100 0 00270 00267 TSX +0 07400 4 00015 00270 TIX +2 00051 0 00000 T'O RDLM 041 LM00052 00271 TRA +0 02000 0 00025 EOF BFCLOS.(NM1,NM2,ERR) 042 LM00054 00272 TSX +0 07400 4 00000 00273 TXH +3 00000 0 00052 00274 TXH +3 00000 0 00053 00275 TXH +3 00000 0 00021 CHN USRFIL. 043 LM00055 00276 TSX +0 07400 4 00014 CHNCOM.(0) 044 LM00056 00277 TSX +0 07400 4 00003 00300 TXH +3 00000 0 00055 ERR .CAL.$PRNTER$ 045 LM00058 00301 CAL -0 50000 0 00067 .LDQ.400000000071K 046 LM00059 00302 LDQ +0 56000 0 00066 NEXCOM. 047 LM00060 00303 TSX +0 07400 4 00011 END OF PROGRAM 048 LM00062 00304 TSX +0 07400 4 00005 1 WRFX., WRFXA., RDFX., RDFXA.- MAD CALLS TO WRFLX, ETC. 03/18/69 1456.6 PAGE 1 PETER R. BOS --- AUGUST 1967 PCC ON NOLNK 00004 ENTRY WRFX 00006 ENTRY WRFXA 00010 ENTRY RDFX 00012 ENTRY RDFXA LBL WRFX PCC OFF ALLOW MAD CALLS FOR CONSOLE I/O. TRANSFER VECTOR 00000 665126436760 WRFLX 00001 665126436721 WRFLXA 00002 512426436760 RDFLX 00003 512426436721 RDFLXA 00004 -0500 00 0 00000 WRFX CAL $WRFLX 00005 0020 00 0 00013 TRA GO 00006 -0500 00 0 00001 WRFXA CAL $WRFLXA 00007 0020 00 0 00013 TRA GO 00010 -0500 00 0 00002 RDFX CAL $RDFLX 00011 0020 00 0 00013 TRA GO 00012 -0500 00 0 00003 RDFXA CAL $RDFLXA 00013 0621 00 0 00023 GO STA TSX 00014 0634 00 4 00025 SXA FX4,4 00015 -0500 00 4 00001 CAL 1,4 PICK UP A(N)...N FROM MAD. 00016 0621 00 0 00024 STA WR 00017 -0737 00 4 00000 PDC 0,4 GET COUNT. 00020 -0500 00 4 00000 CAL 0,4 .. 00021 0734 00 4 00000 PAX 0,4 .. 00022 -0634 00 4 00024 SXD WR,4 .. 00023 0074 00 4 00000 TSX TSX -,4 00024 0 00000 0 00000 WR PZE -,0,- 00025 0774 00 4 00000 FX4 AXT -,4 00026 0020 00 4 00001 TRA 1,4 END 1 WRFX., WRFXA., RDFX., RDFXA.- MAD CALLS TO WRFLX, ETC. 03/18/69 1456.6 PAGE 1 POST PROCESSOR ASSEMBLY DATA 27 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 13 GO 5, 7, 11 24 WR 16, 22 25 FX4 14 23 TSX 13 10 RDFX 0 4 WRFX 0 2 RDFLX 10 12 RDFXA 0 0 WRFLX 4 6 WRFXA 0 3 RDFLXA 12 1 WRFLXA 6 0 NO ERROR IN ABOVE ASSEMBLY. PLOAD BCD 09/18/68 2318.4 25611 00000 1 MAD PROGRAM LISTING ... ... ... FILE PBLOAD MAD 02/07/68 2215.9 - LM00001 PRELOD NAME1 TYPE -COMB- -NOLIST- LM00002 WHERE TYPE IS EITHER 'NCLOAD' OR 'VLOAD' OR NOTHING LM00003 LM00004 CHECKS NAME1 LOAD TO SEE IF IT WILL LOAD LM00005 SUCCESSFULLY. CREATES A LINE MARKED LM00006 FILE, NAME1 STOMAP, WHICH INCLUDES ERROR LM00007 COMMENTS IF ANY, CHECKS FOR MISSING FILES, LM00008 MISSING ENTRY POINTS, DUPLICATED ENTRY POINTS, LM00009 AND CORE OVERLAP. LM00010 LM00011 NORMAL MODE IS INTEGER *001 LM00012 DIMENSION BUFF1(432),BUFF2(432),A(14),PROG(28),TVARAY(4000) *002 LM00013 DIMENSION EPARAY(9600,DIM),MFARAY(100),MEARAY(600),MULT(200) *003 LM00014 DIMENSION LINE(33),FILNAM(2),BUFF3(432),TV1(8000,DTV) *004 LM00015 EQUIVALENCE (FILNAM(0),N1),(FILNAM(1),NA2) *005 LM00016 VECTOR VALUES BL = 432 *006 LM00017 VECTOR VALUES BLANK3 = $ $,777777000003K *007 LM00018 VECTOR VALUES DIFC=$TOTAL LOCATIONS NOT USED $,0,$ DECIMAL$, *008 LM00019 1 777777777777K *008 LM00020 VECTOR VALUES DIM = 2,17,16 *009 LM00021 VECTOR VALUES DTV = 2,3,2 *010 LM00022 VECTOR VALUES FENCE = 777777777777K *011 LM00023 VECTOR VALUES HEAD = 777777000013K,$0 NAME T.V. ORGIN LENTH *012 LM00024 1 COMMON CROSS REFERENCE$ *012 LM00025 VECTOR VALUES HPC = $HIGHEST PROGRAM LOCATION $,0,777777777777K *013 LM00026 VECTOR VALUES ICOMB = 0 *014 LM00027 VECTOR VALUES ILIST = 0 *015 LM00028 VECTOR VALUES JE = 0 *016 LM00029 VECTOR VALUES JT = -50 *017 LM00030 VECTOR VALUES LCOM = 77777K *018 LM00031 VECTOR VALUES LCM = $LOWEST COMMON LOCATION $,0,777777777777K *019 LM00032 VECTOR VALUES LC = 33 *020 LM00033 VECTOR VALUES LPOINT = 7000K *021 LM00034 VECTOR VALUES MASK1 = 7777K8 *022 LM00035 VECTOR VALUES MASK2 = 000077000000K *023 LM00036 VECTOR VALUES MASK3 = 000000777777K *024 LM00037 VECTOR VALUES MASK4 = 577777777777K *025 LM00038 VECTOR VALUES MEARAY(0) = 0 *026 LM00039 VECTOR VALUES MESS1 = $EOF IN PROGRAM CARD INFORMATION, FILE SKIPPED$ *027 LM00040 VECTOR VALUES MESS2 = $COMMAND FORM IS ' PLOAD NAME1 -TYPE- -'NOLIST'- *028 LM00041 1 -'COMB'-'$,777777777777K *028 LM00042 VECTOR VALUES MESS3 = $ WHERE TYPE MAY BE 'NCLOAD' OR 'VLOAD'$, *029 LM00043 1 777777777777K *029 LM00044 VECTOR VALUES MFARAY(0) = 0 *030 LM00045 VECTOR VALUES MULT(0) = 0 *031 LM00046 VECTOR VALUES NASTY = 0,777777777777K *032 LM00047 VECTOR VALUES NA2 = $STOMAP$ *033 LM00048 VECTOR VALUES N2 = $ LOAD$ *034 LM00049 VECTOR VALUES QBSS = $ BSS$ *035 LM00050 VECTOR VALUES QCOMB = $ COMB$ *036 LM00051 VECTOR VALUES PROGSW = 0 *037 LM00052 VECTOR VALUES SUM1 = 777777000004K,$0 PRELOAD SUCCESSFUL$, *038 LM00053 2 777777000006K,$ LOWEST COMMON LOCATION $,0, *038 LM00054 3 777777000006K,$ HIGHEST PROGRAM LOCATION$,0, *038 LM00055 4 777777000010K,$ TOTAL NOT USED $,0,$ DECIMAL$ *038 LM00056 VECTOR VALUES SUM1A = $UNSUCC$ *039 LM00057 VECTOR VALUES SUM2 = 777777000004K,$ MISSING FILES ARE$ *040 LM00058 VECTOR VALUES SUM3 = 777777000005K,$ MISSING ENTRY POINTS ARE$ *041 LM00059 VECTOR VALUES SUM4 = 777777000006K,$ DUPLICATED ENTRY POINTS ARE$ *042 LM00060 VECTOR VALUES TITLE = 777777000020K,$ STOMAP FOR PRELOD OF $ *043 LM00061 1 ,0,$ SYSTEM $,0,$ $,0,$ $,0,$ $,0,0 *043 LM00062 VECTOR VALUES TVSW = 0 *044 LM00063 VECTOR VALUES PL = 0 *045 LM00064 VECTOR VALUES TAG = $******$ *046 LM00065 VECTOR VALUES BLANK = $ $ *047 LM00066 VECTOR VALUES ZERO = 0 *048 LM00067 FERRTN.(ERR1) *049 LM00068 FERRTN.(ERR2) *050 LM00069 FERRTN.(ERR3) *051 LM00070 FERRTN.(ERR4) *052 LM00071 LM00072 GET AND CHECK ARGUMENTS LM00073 LM00074 WHENEVER COMARG.(1,N1).E.FENCE *053 LM00075 PRNTP.(MESS2) *054 LM00076 PRNTP.(MESS3) *055 LM00077 CHNCOM.(0) *056 LM00078 OR WHENEVER COMARG.(2) .E. FENCE *057 LM00079 TRANSFER TO START *058 LM00080 OR WHENEVER COMARG.(2).E.$NCLOAD$ *059 LM00081 LPOINT = 30K *060 LM00082 OR WHENEVER COMARG.(2).E.$ VLOAD$ *061 LM00083 LPOINT = 346K *062 LM00084 END OF CONDITIONAL *063 LM00085 WHENEVER COMARG.(2).E.QCOMB .OR. COMARG.(3) .E. QCOMB *064 LM00086 1 .OR. COMARG.(4) .E. QCOMB,ICOMB = 1 *064 LM00087 WHENEVER COMARG.(3) .E. $NOLIST$ .OR. COMARG.(2) .E. $NOLIST$ *065 LM00088 1 .OR. COMARG.(4) .E. $NOLIST$, ILIST = 1 *065 LM00089 READ FILE NAMES FROM CTSSLD LM00090 START BFOPEN.($R$,N1,N2,BUFF1(BL),-0,-0,ERR1) *066 LM00091 LM00092 READ CTSSLD LM00093 LM00094 READ1 BFREAD.(N1,N2,A(14)...14,EOF1,EOFCT,ERR1) *067 LM00095 WHENEVER (A(14) .E. TAG) .OR. (A(14) .E. $ $), TRANSFER TO READ1 *068 LM00096 BFOPEN.($R$,A(14),QBSS,BUFF2(BL),-0,-0,ERR2) *069 LM00097 LM00098 READ NEXT BSS FILE CARD LM00099 LM00100 READ2 BFREAD.(A(14),QBSS,PROG(28)...28,EOF2,EOFCT,ERR2) *070 LM00101 R2 WHENEVER (PROG(28) .A. MASK1) .E. 4005K8 *071 LM00102 NW = (PROG(28) .A. MASK2) .RS. 18 *072 LM00103 K = 26 *073 LM00104 WHENEVER PROGSW .E. 1, TRANSFER TO LTOP1 *074 LM00105 NW = NW-2 *075 LM00106 K = K-2 *076 LM00107 PROGSW = 1 *077 LM00108 LPOINT = LPOINT + PL *078 LM00109 TEMP = (PROG(25) .A. 4K11) .RS. 3 *079 LM00110 WHENEVER TEMP .NE. 0, LPOINT = 2*((LPOINT+1)/2) *080 LM00111 LM00112 STORE PROGRAM INFORMATION LM00113 LM00114 PL = PROG(26).A.MASK3 *081 LM00115 TVL = PROG(26) .RS. 18 *082 LM00116 EPARAY(JE,3) = PROG(25) .A. 377777777777K *083 LM00117 WHENEVER (EPARAY(JE,3).NE.0).AND.(EPARAY(JE,3).L.LCOM), *084 LM00118 1 LCOM = EPARAY(JE,3) *084 LM00119 EPARAY(JE,0) = A(14) *085 LM00120 EPARAY(JE,1) = OCABC.(LPOINT) *086 LM00121 EPARAY(JE,2) = PL *087 LM00122 EPARAY(JE,4) = TAG *088 LM00123 JE =JE+1 *089 LM00124 LTOP1 THROUGH LOOP1, FOR ICNT = NW,-2,ICNT.LE.0 *090 LM00125 EPARAY(JE,0) = PROG(K) *091 LM00126 EPARAY(JE,1) = OCABC.(.ABS.(PROG(K-1)) + LPOINT) *092 LM00127 EPARAY(JE,2) = 3 *093 LM00128 K = K-2 *094 LM00129 LOOP1 JE = JE + 1 *095 LM00130 TRANSFER TO READ2 *096 LM00131 END OF CONDITIONAL *097 LM00132 LM00133 STORE TRANSFER VECTOR LM00134 LM00135 WHENEVER TVSW .E. 1, TRANSFER TO LTOP2 *098 LM00136 TVSW =1 *099 LM00137 JT = (JT/50 + 1) * 50 *100 LM00138 TVARAY(JT) = A(14) *101 LM00139 JT = JT + 1 *102 LM00140 LTOP2 K = 24 *103 LM00141 IC = 20 *104 LM00142 WHENEVER TVL.L.20, IC = TVL *105 LM00143 THROUGH LOOP2, FOR ICNT = IC, -1, ICNT .E. 0 *106 LM00144 TVARAY(JT) = PROG(K) *107 LM00145 K = K - 1 *108 LM00146 LOOP2 JT = JT + 1 *109 LM00147 WHENEVER TVL .G. 20 *110 LM00148 TVL = TVL - 20 *111 LM00149 TRANSFER TO READ2 *112 LM00150 OTHERWISE *113 LM00151 TVARAY(JT) = FENCE *114 LM00152 TVSW = 0 *115 LM00153 END OF CONDITIONAL *116 LM00154 PROGSW = 0 *117 LM00155 WHENEVER ICOMB .E. 0 *118 LM00156 BFCLOS.(A(14),QBSS,READ1) *119 LM00157 TRANSFER TO READ1 *120 LM00158 END OF CONDITIONAL *121 LM00159 LM00160 IF THIS IS A COMBINED FILE, SEARCH FOR REMAINING P.C. LM00161 LM00162 SKIP BFREAD.(A(14),QBSS,PROG(28)...28,EOF3,EOFCT,ERR3) *122 LM00163 WHENEVER PROG(28) .A. MASK1 .E. 4005K8, TRANSFER TO R2 *123 LM00164 TRANSFER TO SKIP *124 LM00165 EOF3 BFCLOS.(A(14),QBSS,READ1) *125 LM00166 TRANSFER TO READ1 *126 LM00167 LM00168 ENTIRE CTSSLD HAS BEEN READ AND ALL PROGRAM LM00169 INFORMATION STORED LM00170 LM00171 EOF1 BFCLOS.(N1,N2,EOF1A) *127 LM00172 EOF1A HCORE = LPOINT + PL *128 LM00173 JESAVE = JE *129 LM00174 WHENEVER JT .L. 0 *130 LM00175 TVARAY(1) = FENCE *131 LM00176 TVARAY(2) = FENCE *132 LM00177 TRANSFER TO PART2 *133 LM00178 END OF CONDITIONAL *134 LM00179 TVARAY(JT+1) = FENCE *135 LM00180 JT = - 50 *136 LM00181 TRANSFER TO PART2 *137 LM00182 LM00183 I/O ERROR RETURNS LM00184 LM00185 EOF2 PRNTP.(MESS1) *138 LM00186 TRANSFER TO ER2A *139 LM00187 ERR1 PRNTER. *140 LM00188 BFCLOS.($ALL$,-0,ERRX) *141 LM00189 ERRX CHNCOM.(0) *142 LM00190 ERR2 PRNTER. *143 LM00191 ER2A BFCLOS.(A(14),QBSS,ER2B) *144 LM00192 ER2B MFARAY = MFARAY + 1 *145 LM00193 MFARAY(MFARAY) = A(14) *146 LM00194 TRANSFER TO READ1 *147 LM00195 ERR3 PRNTER. *148 LM00196 BFCLOS. (A(14),QBSS,READ1) *149 LM00197 TRANSFER TO READ1 *150 LM00198 LM00199 CHECK T.V. AGAINST ENTRY POINTS LM00200 IF ENTRY POINT FOUND, STORE CALLING FILE NAME LM00201 IF ENTRY POINT NOT FOUND, STORE TRANSFER NAME LM00202 IN MISSING ENTRY POINT ARRAY (MEARAY) LM00203 LM00204 PART2 JT = (JT/50 + 1)*50 *151 LM00205 MODNAM = TVARAY(JT) *152 LM00206 MNAM JT = JT +1 *153 LM00207 WHENEVER TVARAY(JT) .NE. FENCE, TRANSFER TO LTOP3 *154 LM00208 WHENEVER TVARAY(JT+1) .E. FENCE, TRANSFER TO DUPCK *155 LM00209 TRANSFER TO PART2 *156 LM00210 LTOP3 THROUGH LOOP3, FOR JE=1,1, JE.GE.JESAVE *157 LM00211 WHENEVER EPARAY(JE,4) .E. TAG *158 LM00212 FILEN = EPARAY(JE,0) *159 LM00213 TRANSFER TO LOOP3 *160 LM00214 END OF CONDITIONAL *161 LM00215 WHENEVER TVARAY(JT) .NE. EPARAY(JE,0), TRANSFER TO LOOP3 *162 LM00216 TV1(JT,0) = FILEN *163 LM00217 TV1(JT,1) = EPARAY(JE,1) *164 LM00218 WHENEVER EPARAY(JE,2) .G. 14, TRANSFER TO MNAM *165 LM00219 EPARAY(JE,EPARAY(JE,2)) = MODNAM *166 LM00220 EPARAY(JE,2) = EPARAY(JE,2) + 1 *167 LM00221 TRANSFER TO MNAM *168 LM00222 LOOP3 CONTINUE *169 LM00223 MEARAY = MEARAY + 1 *170 LM00224 MEARAY(MEARAY) = TVARAY(JT) *171 LM00225 TV1(JT,0) = BLANK *172 LM00226 TV1(JT,1) = BLANK *173 LM00227 TRANSFER TO MNAM *174 LM00228 LM00229 CHECK FOR DUPLICATED ENTRY POINTS LM00230 LM00231 DUPCK THROUGH LOOP5, FOR JE1 = 1,1,JE1.GE.JESAVE *175 LM00232 WHENEVER EPARAY(JE1,4) .E. TAG, TRANSFER TO LOOP5 *176 LM00233 THROUGH LOOP4, FOR JE=JE1+1,1,JE.E.JESAVE *177 LM00234 WHENEVER EPARAY(JE,4) .E. TAG, TRANSFER TO LOOP4 *178 LM00235 WHENEVER EPARAY(JE1,0) .NE. EPARAY(JE,0), TRANSFER TO LOOP4 *179 LM00236 MULT = MULT + 1 *180 LM00237 MULT(MULT) = EPARAY(JE,0) *181 LM00238 TRANSFER TO LOOP5 *182 LM00239 LOOP4 CONTINUE *183 LM00240 LOOP5 CONTINUE *184 LM00241 LM00242 WRITE FILE FOR OUTPUT LM00243 LM00244 EXECUTE DELETE.(FILNAM) *185 LM00245 BFOPEN.($W$,N1,NA2,BUFF1(BL),BUFF2(BL),BUFF3(BL),ERR4) *186 LM00246 TITLE(8) = N1 *187 LM00247 GETTM.(TITLE(11),TITLE(13)) *188 LM00248 TITLE(5)=(N1.A.777777770000K).V.000000005757K *189 LM00249 WHOAMI.(TITLE(16)...2) *190 LM00250 LINE(LC-15) = TITLE(16) *191 LM00251 LINE(LC-16) = TITLE(15) *192 LM00252 THROUGH LOOP6, FOR IC = 0,1,IC .G. 14 *193 LM00253 LOOP6 LINE(LC-IC) = TITLE(IC) *194 LM00254 BFWRIT.(N1,NA2,LINE(LC)...17,ERR4) *195 LM00255 WHENEVER ILIST .E. 1 .OR. JESAVE .L. 1, TRANSFER TO SUMERY *196 LM00256 THROUGH LOOP7, FOR IC = 0,1,IC .G. 11 *197 LM00257 LOOP7 LINE(LC-IC) = HEAD(IC) *198 LM00258 BFWRIT.(N1,NA2,LINE(LC)...12, ERR4) *199 LM00259 JT = -50 *200 LM00260 JE = 0 *201 LM00261 LM00262 PRINT FILE LINE LM00263 LM00264 LTOP8 BFWRIT.(N1,NA2,BLANK3(3)...4,ERR4) *202 LM00265 LINE(LC) = 777777000007K *203 LM00266 LINE(LC-1) = BLANK *204 LM00267 LINE(LC-2) = $FILE $ *205 LM00268 LINE(LC-3) = EPARAY(JE,0) *206 LM00269 LINE(LC-4) = BLANK *207 LM00270 LINE(LC-5) = (EPARAY(JE,1)) *208 LM00271 LINE(LC-6) = OCABC.(EPARAY(JE,2)) *209 LM00272 LINE(LC-7) = OCABC.(EPARAY(JE,3)) *210 LM00273 BFWRIT.(N1,NA2,LINE(LC)...8,ERR4) *211 LM00274 LM00275 PRINT EACH TRANSFER VECTOR LM00276 LM00277 LINE(LC) = 777777000011K *212 LM00278 LINE(LC-1) = BLANK *213 LM00279 LINE(LC-2) = BLANK *214 LM00280 LINE(LC-3) = BLANK *215 LM00281 LINE(LC-5) = BLANK *216 LM00282 LINE(LC-6) = BLANK *217 LM00283 LINE(LC-7) = BLANK *218 LM00284 JT = (JT/50+1)*50 + 1 *219 LM00285 LTOP9 WHENEVER TVARAY(JT) .E. FENCE, TRANSFER TO TOP10 *220 LM00286 LINE(LC-4) = TVARAY(JT) *221 LM00287 LINE(LC-8) = TV1(JT,0) *222 LM00288 LINE(LC-9) = TV1(JT,1) *223 LM00289 BFWRIT.(N1,NA2,LINE(LC)...10,ERR4) *224 LM00290 JT = JT + 1 *225 LM00291 TRANSFER TO LTOP9 *226 LM00292 TOP10 LINE(LC-4) = BLANK *227 LM00293 LINE(LC-6) = BLANK *228 LM00294 LINE(LC-7) = BLANK *229 LM00295 LTOP10 JE = JE + 1 *230 LM00296 LM00297 PRINT EACH ENTRY POINT NAME, LOAD POINT LM00298 AND CALLERS LM00299 LM00300 WHENEVER JE .GE. JESAVE, TRANSFER TO SUMERY *231 LM00301 WHENEVER EPARAY(JE,4) .E. TAG, TRANSFER TO LTOP8 *232 LM00302 NLC= (2*(EPARAY(JE,2)-3)+7) *233 LM00303 LINE(LC)= (NLC-1).V.777777K6 *234 LM00304 LINE(LC-3) = EPARAY(JE,0) *235 LM00305 LINE(LC-5) = (EPARAY(JE,1)) *236 LM00306 LINE(LC-7) = BLANK *237 LM00307 LCNT = LC - 8 *238 LM00308 THROUGH LOOP11, FOR IC = 3,1,IC .E. EPARAY(JE,2) *239 LM00309 LINE(LCNT) = EPARAY(JE,IC) *240 LM00310 LINE(LCNT-1) = 735757575757K *241 LM00311 LOOP11 LCNT = LCNT-2 *242 LM00312 BFWRIT.(N1,NA2,LINE(LC)...NLC,ERR4) *243 LM00313 TRANSFER TO LTOP10 *244 LM00314 LM00315 PRINT PRELOD SUMMARY LM00316 LM00317 SUMERY SUM1(18) = OCABC.(HCORE) *245 LM00318 SUM1(11) = OCABC.(LCOM) *246 LM00319 SUM1(25) = BZEL.(DERBC.(LCOM-HCORE)) *247 LM00320 WHENEVER HCORE.G.LCOM, SUM1(25) =SUM1(25).A.MASK4 *248 LM00321 HPC(5) = SUM1(18) *249 LM00322 LCM(5) = SUM1(11) *250 LM00323 DIFC(5) = SUM1(25) *251 LM00324 WHENEVER HCORE .L. LCOM .AND. (MEARAY+MFARAY) .E. 0 *252 LM00325 LM00326 SUCCESSFUL PRELOD LM00327 LM00328 THROUGH LOOP13, FOR IC = 0,1,IC .G. 27 *253 LM00329 LOOP13 LINE(LC-IC) = SUM1(IC) *254 LM00330 BFWRIT.(N1,NA2,LINE(LC)...28,ERR4) *255 LM00331 PRINT COMMENT $SYSTEM PRELOAD SUCCESSFUL$ *256 LM00332 PRNTP.(LCM) *257 LM00333 PRNTP.(HPC) *258 LM00334 PRNTP.(DIFC) *259 LM00335 TRANSFER TO MUCK *260 LM00336 END OF CONDITIONAL *261 LM00337 UNSUCCESSFUL PRELOD LM00338 LM00339 SUM1(3) = SUM1A *262 LM00340 THROUGH LOOP14, FOR IC = 0,1,IC .G. 27 *263 LM00341 LOOP14 LINE(LC-IC) = SUM1(IC) *264 LM00342 BFWRIT.(N1,NA2,LINE(LC)...28, ERR4) *265 LM00343 PRINT COMMENT $SYSTEM PRELOAD UNSUCCESSFUL$ *266 LM00344 PRNTP.(LCM) *267 LM00345 PRNTP.(HPC) *268 LM00346 PRNTP.(DIFC) *269 LM00347 WHENEVER MFARAY .E. 0, TRANSFER TO MECK *270 LM00348 LM00349 PRINT MISSING FILES LM00350 LM00351 THROUGH LOOP15, FOR IC = 0,1,IC .G. 4 *271 LM00352 LOOP15 LINE(LC-IC) = SUM2(IC) *272 LM00353 BFWRIT.(N1,NA2,LINE(LC)...5,ERR4) *273 LM00354 PRINT COMMENT $MISSING FILES ARE$ *274 LM00355 LINE(LC) = 777777000003K *275 LM00356 LINE(LC-2) = BLANK *276 LM00357 THROUGH LOOP16, FOR IC = 1,1,IC .G. MFARAY *277 LM00358 LINE(LC-3) = MFARAY(IC) *278 LM00359 NASTY(0) = MFARAY(IC) *279 LM00360 PRNTP.(NASTY) *280 LM00361 LOOP16 BFWRIT.(N1,NA2,LINE(LC)...4,ERR4) *281 LM00362 MECK WHENEVER MEARAY .E. 0, TRANSFER TO MUCK *282 LM00363 LM00364 PRINT MISSING ENTRY POINTS LM00365 LM00366 THROUGH LOOP17, FOR IC = 0,1,IC .G. 5 *283 LM00367 LOOP17 LINE(LC-IC) = SUM3(IC) *284 LM00368 BFWRIT.(N1,NA2,LINE(LC)...6,ERR4) *285 LM00369 PRINT COMMENT $MISSING ENTRY POINTS ARE$ *286 LM00370 LINE(LC) = 777777000003K *287 LM00371 LINE(LC-2) = BLANK *288 LM00372 THROUGH LOOP18, FOR IC = 1,1,IC .G. MEARAY *289 LM00373 LINE(LC-3) = MEARAY(IC) *290 LM00374 NASTY(0) = MEARAY(IC) *291 LM00375 PRNTP.(NASTY) *292 LM00376 LOOP18 BFWRIT. (N1,NA2,LINE(LC)...4,ERR4) *293 LM00377 MUCK WHENEVER MULT .E. 0, TRANSFER TO END *294 LM00378 LM00379 PRINT DUPLICATED ENTRY POINTS LM00380 LM00381 THROUGH LOOP19, FOR IC = 0,1,IC .G. 6 *295 LM00382 LOOP19 LINE(LC-IC) = SUM4(IC) *296 LM00383 BFWRIT.(N1,NA2,LINE(LC)...7,ERR4) *297 LM00384 PRINT COMMENT $DUPLICATED ENTRY POINTS ARE$ *298 LM00385 LINE(LC) = 777777000003K *299 LM00386 LINE (LC-2) = BLANK *300 LM00387 THROUGH LOOP20, FOR IC = 1,1,IC .G. MULT *301 LM00388 LINE(LC-3) = MULT(IC) *302 LM00389 NASTY(0) = MULT(IC) *303 LM00390 PRNTP.(NASTY) *304 LM00391 LOOP20 BFWRIT.(N1,NA2,LINE(LC)...4,ERR4) *305 LM00392 TRANSFER TO END *306 LM00393 ERR4 PRNTER. *307 LM00394 END BFCLOS.(N1,NA2,END2) *308 LM00395 END2 CHNCOM.(0) *309 LM00396 END OF PROGRAM *310 LM00397 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 61746 TRANSFER VECTOR LENGTH 00024 PROGRAM BEGINS 57137 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) A 00110 A 1 ERR3 00043 4 LOOP11 00024 4 MASK1 25477 A 1 PROGSW 27411 A 1 BLANK3 00114 A 1 ERR4 00044 4 LOOP13 00024 4 MASK2 25500 A 1 QBSS 27412 A 1 BLANK 00115 A 1 ERRX 00045 4 LOOP14 00024 4 MASK3 25501 A 1 QCOMB 27413 A 1 BL 00116 A 1 FENCE 25363 A 1 LOOP15 00024 4 MASK4 25502 A 1 R2 00063 4 BUFF1 00777 A 1 FILEN 25364 1 LOOP16 00024 4 MEARAY 26633 A 1 READ1 00064 4 BUFF2 01660 A 1 FILNAM 00027 A 1 LOOP17 00024 4 MECK 00057 4 READ2 00065 4 BUFF3 02541 A 1 HCORE 25365 1 LOOP18 00024 4 MESS1 26643 A 1 SKIP 00066 4 DIFC 02552 A 1 HEAD 25401 A 1 LOOP19 00024 4 MESS2 26656 A 1 START 00067 4 DIM 02555 A 1 HPC 25410 A 1 LOOP1 00024 4 MESS3 26666 A 1 SUM1A 27414 A 1 DTV 02560 A 1 ICNT 25411 1 LOOP20 00024 4 MFARAY 27033 A 1 SUM1 27450 A 1 DUPCK 00030 4 ICOMB 25412 A 1 LOOP2 00024 4 MNAM 00060 4 SUM2 27455 A 1 END2 00031 4 IC 25413 1 LOOP3 00046 4 MODNAM 27034 1 SUM3 27463 A 1 END 00032 4 ILIST 25414 A 1 LOOP4 00047 4 MUCK 00061 4 SUM4 27472 A 1 EOF1A 00033 4 JE1 25415 1 LOOP5 00050 4 MULT 27345 A 1 SUMERY 00070 4 EOF1 00034 4 JE 25416 A 1 LOOP6 00024 4 N1 00027 1 TAG 27473 A 1 EOF2 00035 4 JESAVE 25417 1 LOOP7 00024 4 N2 27346 A 1 TEMP 27474 1 EOF3 00036 4 JT 25420 A 1 LPOINT 25476 A 1 NA2 00026 A 1 TITLE 27515 A 1 EOFCT 02561 1 K 25421 1 LTOP10 00051 4 NASTY 27350 A 1 TOP10 00071 4 EPARAY 25362 A 1 LCM 25430 A 1 LTOP1 00052 4 NLC 27351 1 TV1 47216 A 1 ER2A 00037 4 LCNT 25431 1 LTOP2 00053 4 NW 27352 1 TVARAY 57057 A 1 ER2B 00040 4 LCOM 25432 A 1 LTOP3 00054 4 PART2 00062 4 TVL 57060 1 ERR1 00041 4 LC 25433 A 1 LTOP8 00055 4 PL 27353 A 1 TVSW 57061 A 1 ERR2 00042 4 LINE 25475 A 1 LTOP9 00056 4 PROG 27410 A 1 ZERO 57062 A 1 0FUNCTION DICTIONARY .03310 00000 0 .03311 00001 0 BFCLOS 00002 1 BFOPEN 00003 1 BFREAD 00004 1 BFWRIT 00005 1 BZEL 00006 1 CHNCOM 00007 1 COMARG 00010 1 DELETE 00011 1 DERBC 00012 1 EXIT 00013 1 FERRTN 00014 1 GETTM 00015 1 .PCOMT 00016 1 .SETUP 00017 1 OCABC 00020 1 PRNTER 00021 1 PRNTP 00022 1 WHOAMI 00023 1 0ABSOLUTE CONSTANTS 57133 -377777000003 57110 +000000000033 57131 -335757575757 57132 -377777000000 57075 +000000000012 57074 +000000000011 57135 -377777000011 57073 +000000000010 57072 +000000000007 57071 +000000000006 57070 +000000000005 57117 +263143256060 57134 -377777000007 57077 +000000000014 57076 +000000000013 57103 +000000000021 57102 +000000000020 57101 +000000000017 57114 +000000005757 57136 -377777770000 57130 -266060606060 57115 +214343606060 57105 +000000000024 57112 +000000000062 57120 +377777777777 57121 -000000000000 57107 +000000000032 57104 +000000000022 57122 -000500000000 57111 +000000000034 57126 -206060606060 57100 +000000000016 57125 -116060606060 57124 -054643316263 57066 +000000000003 57067 +000000000004 57113 +000000000346 57127 -206543462124 57106 +000000000030 57123 -052343462124 57065 +000000000002 57063 +000000000000 57064 +000000000001 57116 +233000000000 0STATEMENT DICTIONARY 00030 TXL -360272060260 00031 TXL -361741061737 00032 TXL -361737061733 00033 TXL -357754057751 00034 TXL -357751057745 00035 TXL -360001057777 00036 TXL -357744057740 00037 TXL -360020060014 00040 TXL -360023060020 00041 TXL -360003060002 00042 TXL -360014060013 00043 TXL -360030060027 00044 TXL -361733061732 00045 TXL -360013060011 00046 TXL -360232060231 00047 TXL -360362060361 00050 TXL -360363060362 00051 TXL -361036061033 00052 TXL -357536057524 00053 TXL -357635057633 00054 TXL -360103060071 00055 TXL -360543060536 00056 TXL -360743060736 00057 TXL -361510061504 00060 TXL -360054060051 00061 TXL -361622061616 00062 TXL -360046060035 00063 TXL -357336057330 00064 TXL -357272057263 00065 TXL -357330057321 00066 TXL -357730057721 00067 TXL -357263057243 00070 TXL -361211061206 00071 TXL -361021061014 0PROGRAM NORMAL MODE IS INTEGER 001 LM00012 DIMENSION BUFF1(432),BUFF2(432),A(14),PROG(28),TVARAY(4000) 002 LM00013 DIMENSION EPARAY(9600,DIM),MFARAY(100),MEARAY(600),MULT(200) 003 LM00014 DIMENSION LINE(33),FILNAM(2),BUFF3(432),TV1(8000,DTV) 004 LM00015 EQUIVALENCE (FILNAM(0),N1),(FILNAM(1),NA2) 005 LM00016 V'S BL = 432 006 LM00017 57137 TSX +0 07400 4 00017 00116 +0 00000 0 00660 V'S BLANK3 = $ $,777777000003K 007 LM00018 00111 -3 77777 0 00003 00112 -2 06060 6 06060 00113 -2 06060 6 06060 00114 -2 06060 6 06060 V'S DIFC=$TOTAL LOCATIONS NOT USED $,0,$ DECIMAL$, 008 LM00019 1777777777777K 008 LM00020 02542 -3 77777 7 77777 02543 +2 14360 6 06060 02544 -2 02425 2 33144 02545 +0 00000 0 00000 02546 -2 06060 6 06060 02547 -2 36064 6 22524 02550 -0 64562 6 04546 02551 -0 34623 2 16331 02552 -2 34663 2 14360 V'S DIM = 2,17,16 009 LM00021 02553 +0 00000 0 00020 02554 +0 00000 0 00021 02555 +0 00000 0 00002 V'S DTV = 2,3,2 010 LM00022 02556 +0 00000 0 00002 02557 +0 00000 0 00003 02560 +0 00000 0 00002 V'S FENCE = 777777777777K 011 LM00023 25363 -3 77777 7 77777 V'S HEAD = 777777000013K,$0 NAME T.V. ORGIN LENTH 012 LM00024 1 COMMON CROSS REFERENCE$ 012 LM00025 25366 -0 52325 6 06060 25367 -1 12526 2 55125 25370 +2 35146 6 26260 25371 -2 06060 6 06060 25372 +2 34644 4 44645 25373 -0 32545 6 33060 25374 -0 65127 3 14560 25375 -2 06333 6 53360 25376 -2 04521 4 42560 25377 -2 06060 6 06060 25400 +0 06060 6 06060 25401 -3 77777 0 00013 V'S HPC = $HIGHEST PROGRAM LOCATION $,0,777777777777K 013 LM00026 25402 -3 77777 7 77777 25403 +0 00000 0 00000 25404 -2 06060 6 06060 25405 +2 32163 3 14645 25406 -1 12144 6 04346 25407 -2 36047 5 14627 25410 +3 03127 3 02562 V'S ICOMB = 0 014 LM00027 25412 +0 00000 0 00000 V'S ILIST = 0 015 LM00028 25414 +0 00000 0 00000 V'S JE = 0 016 LM00029 25416 +0 00000 0 00000 V'S JT = -50 017 LM00030 25420 -0 00000 0 00062 V'S LCOM = 77777K 018 LM00031 25432 +0 00000 0 77777 V'S LCM = $LOWEST COMMON LOCATION $,0,777777777777K 019 LM00032 25422 -3 77777 7 77777 25423 +0 00000 0 00000 25424 -2 06060 6 06060 25425 -2 33146 4 56060 25426 -0 56043 4 62321 25427 -2 02346 4 44446 25430 -0 34666 2 56263 V'S LC = 33 020 LM00033 25433 +0 00000 0 00041 V'S LPOINT = 7000K 021 LM00034 25476 +0 00000 0 07000 V'S MASK1 = 7777K8 022 LM00035 25477 -3 77700 0 00000 V'S MASK2 = 000077000000K 023 LM00036 25500 +0 00077 0 00000 V'S MASK3 = 000000777777K 024 LM00037 25501 +0 00000 7 77777 V'S MASK4 = 577777777777K 025 LM00038 25502 -1 77777 7 77777 V'S MEARAY(0) = 0 026 LM00039 26633 +0 00000 0 00000 V'S MESS1 = $EOF IN PROGRAM CARD INFORMATION, FILE SKIPPED$ 027 LM00040 26634 -0 72524 6 06060 26635 +2 56062 4 23147 26636 -0 57360 2 63143 26637 -1 14421 6 33146 26640 +2 46031 4 52646 26641 +2 14460 2 32151 26642 -2 04751 4 62751 26643 +2 54626 6 03145 V'S MESS2 = $COMMAND FORM IS ' PLOAD NAME1 -TYPE- -'NOLIST'- 028 LM00041 1-'COMB'-'$,777777777777K 028 LM00042 26644 -3 77777 7 77777 26645 +1 44014 6 06060 26646 -0 01423 4 64422 26647 +3 16263 1 44060 26650 -2 04014 4 54643 26651 -0 06370 4 72540 26652 -0 52144 2 50160 26653 -0 74346 2 12460 26654 -2 03162 6 01460 26655 +2 46026 4 65144 26656 +2 34644 4 42145 V'S MESS3 = $ WHERE TYPE MAY BE 'NCLOAD' OR 'VLOAD'$, 029 LM00043 1 777777777777K 029 LM00044 26657 -3 77777 7 77777 26660 +2 12414 6 06060 26661 -1 16014 6 54346 26662 -0 62124 1 46046 26663 +2 56014 4 52343 26664 -2 04421 7 06022 26665 +2 56063 7 04725 26666 -2 06066 3 02551 V'S MFARAY(0) = 0 030 LM00045 27033 +0 00000 0 00000 V'S MULT(0) = 0 031 LM00046 27345 +0 00000 0 00000 V'S NASTY = 0,777777777777K 032 LM00047 27347 -3 77777 7 77777 27350 +0 00000 0 00000 V'S NA2 = $STOMAP$ 033 LM00048 00026 -2 26346 4 42147 V'S N2 = $ LOAD$ 034 LM00049 27346 -2 06043 4 62124 V'S QBSS = $ BSS$ 035 LM00050 27412 -2 06060 2 26262 V'S QCOMB = $ COMB$ 036 LM00051 27413 -2 06023 4 64422 V'S PROGSW = 0 037 LM00052 27411 +0 00000 0 00000 V'S SUM1 = 777777000004K,$0 PRELOAD SUCCESSFUL$, 038 LM00053 2777777000006K,$ LOWEST COMMON LOCATION $,0, 038 LM00054 3777777000006K,$ HIGHEST PROGRAM LOCATION$,0, 038 LM00055 4777777000010K,$ TOTAL NOT USED $,0,$ DECIMAL$ 038 LM00056 27415 +2 14360 6 06060 27416 -2 02425 2 33144 27417 +0 00000 0 00000 27420 -2 06060 6 06060 27421 +2 52460 6 06060 27422 -0 54663 6 06462 27423 -2 34663 2 14360 27424 -2 06060 6 06060 27425 -3 77777 0 00010 27426 +0 00000 0 00000 27427 +2 32163 3 14645 27430 -1 12144 6 04346 27431 -2 36047 5 14627 27432 +3 03127 3 02562 27433 -2 06060 6 06060 27434 -3 77777 0 00006 27435 +0 00000 0 00000 27436 -2 33146 4 56060 27437 -0 56043 4 62321 27440 -2 02346 4 44446 27441 -0 34666 2 56263 27442 -2 06060 6 06060 27443 -3 77777 0 00006 27444 +2 56262 2 66443 27445 -2 06062 6 42323 27446 +2 54346 2 12460 27447 +0 06060 6 04751 27450 -3 77777 0 00004 V'S SUM1A = $UNSUCC$ 039 LM00057 27414 -2 44562 6 42323 V'S SUM2 = 777777000004K,$ MISSING FILES ARE$ 040 LM00058 27451 -2 26021 5 12560 27452 +2 76026 3 14325 27453 -0 43162 6 23145 27454 -2 06060 6 06060 27455 -3 77777 0 00004 V'S SUM3 = 777777000005K,$ MISSING ENTRY POINTS ARE$ 041 LM00059 27456 -2 36260 2 15125 27457 -3 06047 4 63145 27460 +2 76025 4 56351 27461 -0 43162 6 23145 27462 -2 06060 6 06060 27463 -3 77777 0 00005 V'S SUM4 = 777777000006K,$ DUPLICATED ENTRY POINTS ARE$ 042 LM00060 27464 +2 15125 6 06060 27465 -0 63145 6 36260 27466 -0 56351 7 06047 27467 +2 16325 2 46025 27470 +2 46447 4 33123 27471 -2 06060 6 06060 27472 -3 77777 0 00006 V'S TITLE = 777777000020K,$ STOMAP FOR PRELOD OF $ 043 LM00061 1 ,0,$ SYSTEM $,0,$ $,0,$ $,0,$ $,0,0 043 LM00062 27475 +0 00000 0 00000 27476 +0 00000 0 00000 27477 -2 06060 6 06060 27500 +0 00000 0 00000 27501 -2 06060 6 06060 27502 +0 00000 0 00000 27503 -2 06060 6 06060 27504 -2 06060 6 06060 27505 +0 00000 0 00000 27506 -0 46060 6 06060 27507 -2 06270 6 26325 27510 +0 00000 0 00000 27511 -0 62460 4 62660 27512 -1 16047 5 12543 27513 -0 42147 6 02646 27514 -2 06060 6 26346 27515 -3 77777 0 00020 V'S TVSW = 0 044 LM00063 57061 +0 00000 0 00000 V'S PL = 0 045 LM00064 27353 +0 00000 0 00000 V'S TAG = $******$ 046 LM00065 27473 -1 45454 5 45454 V'S BLANK = $ $ 047 LM00066 00115 -2 06060 6 06060 V'S ZERO = 0 048 LM00067 57062 +0 00000 0 00000 FERRTN.(ERR1) 049 LM00068 57140 TSX +0 07400 4 00014 57141 TXH +3 00000 0 00041 FERRTN.(ERR2) 050 LM00069 57142 TSX +0 07400 4 00014 57143 TXH +3 00000 0 00042 FERRTN.(ERR3) 051 LM00070 57144 TSX +0 07400 4 00014 57145 TXH +3 00000 0 00043 FERRTN.(ERR4) 052 LM00071 57146 TSX +0 07400 4 00014 57147 TXH +3 00000 0 00044 W'R COMARG.(1,N1).E.FENCE 053 LM00075 57150 TSX +0 07400 4 00010 57151 TXH +3 00000 0 57064 57152 TXH +3 00000 0 00027 57153 SUB +0 40200 0 25363 57154 TNZ -0 10000 0 57164 PRNTP.(MESS2) 054 LM00076 57155 TSX +0 07400 4 00022 57156 TXH +3 00000 0 26656 PRNTP.(MESS3) 055 LM00077 57157 TSX +0 07400 4 00022 57160 TXH +3 00000 0 26666 CHNCOM.(0) 056 LM00078 57161 TSX +0 07400 4 00007 57162 TXH +3 00000 0 57063 O'R COMARG.(2) .E. FENCE 057 LM00079 57163 TRA +0 02000 0 57207 57164 TSX +0 07400 4 00010 57165 TXH +3 00000 0 57065 57166 SUB +0 40200 0 25363 57167 TNZ -0 10000 0 57172 T'O START 058 LM00080 57170 TRA +0 02000 0 00067 O'R COMARG.(2).E.$NCLOAD$ 059 LM00081 57171 TRA +0 02000 0 57207 57172 TSX +0 07400 4 00010 57173 TXH +3 00000 0 57065 57174 SUB +0 40200 0 57123 57175 TNZ -0 10000 0 57201 LPOINT = 30K 060 LM00082 57176 CLA +0 50000 0 57106 57177 STO +0 60100 0 25476 O'R COMARG.(2).E.$ VLOAD$ 061 LM00083 57200 TRA +0 02000 0 57207 57201 TSX +0 07400 4 00010 57202 TXH +3 00000 0 57065 57203 SUB +0 40200 0 57127 57204 TNZ -0 10000 0 57207 LPOINT = 346K 062 LM00084 57205 CLA +0 50000 0 57113 57206 STO +0 60100 0 25476 E'L 063 LM00085 W'R COMARG.(2).E.QCOMB .OR. COMARG.(3) .E. QCOMB 064 LM00086 1 .OR. COMARG.(4) .E. QCOMB,ICOMB = 1 064 LM00087 57207 TSX +0 07400 4 00010 57210 TXH +3 00000 0 57067 57211 SUB +0 40200 0 27413 57212 TZE +0 10000 0 57223 57213 TSX +0 07400 4 00010 57214 TXH +3 00000 0 57066 57215 SUB +0 40200 0 27413 57216 TZE +0 10000 0 57223 57217 TSX +0 07400 4 00010 57220 TXH +3 00000 0 57065 57221 SUB +0 40200 0 27413 57222 TNZ -0 10000 0 57225 57223 CLA +0 50000 0 57064 57224 STO +0 60100 0 25412 W'R COMARG.(3) .E. $NOLIST$ .OR. COMARG.(2) .E. $NOLIST$ 065 LM00088 1 .OR. COMARG.(4) .E. $NOLIST$, ILIST = 1 065 LM00089 57225 TSX +0 07400 4 00010 57226 TXH +3 00000 0 57067 57227 SUB +0 40200 0 57124 57230 TZE +0 10000 0 57241 57231 TSX +0 07400 4 00010 57232 TXH +3 00000 0 57065 57233 SUB +0 40200 0 57124 57234 TZE +0 10000 0 57241 57235 TSX +0 07400 4 00010 57236 TXH +3 00000 0 57066 57237 SUB +0 40200 0 57124 57240 TNZ -0 10000 0 57243 57241 CLA +0 50000 0 57064 57242 STO +0 60100 0 25414 START BFOPEN.($R$,N1,N2,BUFF1(BL),-0,-0,ERR1) 066 LM00091 57243 CLS +0 50200 0 57063 57244 STO +0 60100 0 61742 57245 CLS +0 50200 0 57063 57246 STO +0 60100 0 61743 57247 CLA +0 50000 0 00116 57250 SUB +0 40200 0 57251 57251 TXH +3 00000 0 00777 57252 STA +0 62100 0 57257 57253 TSX +0 07400 4 00003 57254 TXH +3 00000 0 57125 57255 TXH +3 00000 0 00027 57256 TXH +3 00000 0 27346 57257 TXH +3 00000 0 00000 57260 TXH +3 00000 0 61743 57261 TXH +3 00000 0 61742 57262 TXH +3 00000 0 00041 READ1 BFREAD.(N1,N2,A(14)...14,EOF1,EOFCT,ERR1) 067 LM00095 57263 TSX +0 07400 4 00004 57264 TXH +3 00000 0 00027 57265 TXH +3 00000 0 27346 57266 TIX +2 57100 0 00072 57267 TXH +3 00000 0 00034 57270 TXH +3 00000 0 02561 57271 TXH +3 00000 0 00041 W'R (A(14) .E. TAG) .OR. (A(14) .E. $ $), T'O READ1 068 LM00096 57272 CLA +0 50000 0 00072 57273 SUB +0 40200 0 57126 57274 TZE +0 10000 0 57300 57275 CLA +0 50000 0 00072 57276 SUB +0 40200 0 27473 57277 TNZ -0 10000 0 57301 57300 TRA +0 02000 0 00064 BFOPEN.($R$,A(14),QBSS,BUFF2(BL),-0,-0,ERR2) 069 LM00097 57301 CLS +0 50200 0 57063 57302 STO +0 60100 0 61743 57303 CLS +0 50200 0 57063 57304 STO +0 60100 0 61742 57305 CLA +0 50000 0 00116 57306 SUB +0 40200 0 57307 57307 TXH +3 00000 0 01660 57310 STA +0 62100 0 57315 57311 TSX +0 07400 4 00003 57312 TXH +3 00000 0 57125 57313 TXH +3 00000 0 00072 57314 TXH +3 00000 0 27412 57315 TXH +3 00000 0 00000 57316 TXH +3 00000 0 61742 57317 TXH +3 00000 0 61743 57320 TXH +3 00000 0 00042 READ2 BFREAD.(A(14),QBSS,PROG(28)...28,EOF2,EOFCT,ERR2) 070 LM00101 57321 TSX +0 07400 4 00004 57322 TXH +3 00000 0 00072 57323 TXH +3 00000 0 27412 57324 TIX +2 57111 0 27354 57325 TXH +3 00000 0 00035 57326 TXH +3 00000 0 02561 57327 TXH +3 00000 0 00042 R2 W'R (PROG(28) .A. MASK1) .E. 4005K8 071 LM00102 57330 CAL -0 50000 0 27354 57331 ANA -0 32000 0 25477 57332 SLW +0 60200 0 61743 57333 CLA +0 50000 0 61743 57334 SUB +0 40200 0 57122 57335 TNZ -0 10000 0 57606 NW = (PROG(28) .A. MASK2) .RS. 18 072 LM00103 57336 CAL -0 50000 0 27354 57337 ANA -0 32000 0 25500 57340 SLW +0 60200 0 61743 57341 CAL -0 50000 0 57104 57342 STA +0 62100 0 57344 57343 CAL -0 50000 0 61743 57344 LGR -0 76500 0 00000 57345 SLW +0 60200 0 27352 K = 26 073 LM00104 57346 CLA +0 50000 0 57107 57347 STO +0 60100 0 25421 W'R PROGSW .E. 1, T'O LTOP1 074 LM00105 57350 CLA +0 50000 0 27411 57351 SUB +0 40200 0 57064 57352 TNZ -0 10000 0 57354 57353 TRA +0 02000 0 00052 NW = NW-2 075 LM00106 57354 CLA +0 50000 0 27352 57355 SUB +0 40200 0 57065 57356 STO +0 60100 0 27352 K = K-2 076 LM00107 57357 CLA +0 50000 0 25421 57360 SUB +0 40200 0 57065 57361 STO +0 60100 0 25421 PROGSW = 1 077 LM00108 57362 CLA +0 50000 0 57064 57363 STO +0 60100 0 27411 LPOINT = LPOINT + PL 078 LM00109 57364 CLA +0 50000 0 25476 57365 ADD +0 40000 0 27353 57366 STO +0 60100 0 25476 TEMP = (PROG(25) .A. 4K11) .RS. 3 079 LM00110 57367 CAL -0 50000 0 27357 57370 ANA -0 32000 0 57121 57371 SLW +0 60200 0 61743 57372 CAL -0 50000 0 57066 57373 STA +0 62100 0 57375 57374 CAL -0 50000 0 61743 57375 LGR -0 76500 0 00000 57376 SLW +0 60200 0 27474 W'R TEMP .NE. 0, LPOINT = 2*((LPOINT+1)/2) 080 LM00111 57377 CLA +0 50000 0 27474 57400 SUB +0 40200 0 57063 57401 TZE +0 10000 0 57410 57402 CLA +0 50000 0 25476 57403 ADD +0 40000 0 57064 57404 LRS +0 76500 0 00043 57405 DVP +0 22100 0 57065 57406 MPY +0 20000 0 57065 57407 STQ -0 60000 0 25476 PL = PROG(26).A.MASK3 081 LM00115 57410 CAL -0 50000 0 27356 57411 ANA -0 32000 0 25501 57412 SLW +0 60200 0 27353 TVL = PROG(26) .RS. 18 082 LM00116 57413 CAL -0 50000 0 57104 57414 STA +0 62100 0 57416 57415 CAL -0 50000 0 27356 57416 LGR -0 76500 0 00000 57417 SLW +0 60200 0 57060 EPARAY(JE,3) = PROG(25) .A. 377777777777K 083 LM00117 57420 CAL -0 50000 0 27357 57421 ANA -0 32000 0 57120 57422 SLW +0 60200 0 61743 57423 LDQ +0 56000 0 57066 57424 CLA +0 50000 0 25416 57425 TSX +0 07400 4 00001 57426 TXH +3 02555 0 25362 57427 PAX +0 73400 1 00000 57430 CLA +0 50000 0 61743 57431 STO +0 60100 1 25362 W'R (EPARAY(JE,3).NE.0).AND.(EPARAY(JE,3).L.LCOM), 084 LM00118 1LCOM = EPARAY(JE,3) 084 LM00119 57432 LDQ +0 56000 0 57066 57433 CLA +0 50000 0 25416 57434 TSX +0 07400 4 00001 57435 TXH +3 02555 0 25362 57436 PAX +0 73400 1 00000 57437 CLA +0 50000 1 25362 57440 SUB +0 40200 0 25432 57441 TZE +0 10000 0 57462 57442 TPL +0 12000 0 57462 57443 LDQ +0 56000 0 57066 57444 CLA +0 50000 0 25416 57445 TSX +0 07400 4 00001 57446 TXH +3 02555 0 25362 57447 PAX +0 73400 1 00000 57450 CLA +0 50000 1 25362 57451 SUB +0 40200 0 57063 57452 TZE +0 10000 0 57462 57453 LDQ +0 56000 0 57066 57454 CLA +0 50000 0 25416 57455 TSX +0 07400 4 00001 57456 TXH +3 02555 0 25362 57457 PAX +0 73400 2 00000 57460 CLA +0 50000 2 25362 57461 STO +0 60100 0 25432 EPARAY(JE,0) = A(14) 085 LM00120 57462 LDQ +0 56000 0 57063 57463 CLA +0 50000 0 25416 57464 TSX +0 07400 4 00001 57465 TXH +3 02555 0 25362 57466 PAX +0 73400 1 00000 57467 CLA +0 50000 0 00072 57470 STO +0 60100 1 25362 EPARAY(JE,1) = OCABC.(LPOINT) 086 LM00121 57471 TSX +0 07400 4 00020 57472 TXH +3 00000 0 25476 57473 STO +0 60100 0 61743 57474 LDQ +0 56000 0 57064 57475 CLA +0 50000 0 25416 57476 TSX +0 07400 4 00001 57477 TXH +3 02555 0 25362 57500 PAX +0 73400 1 00000 57501 CLA +0 50000 0 61743 57502 STO +0 60100 1 25362 EPARAY(JE,2) = PL 087 LM00122 57503 LDQ +0 56000 0 57065 57504 CLA +0 50000 0 25416 57505 TSX +0 07400 4 00001 57506 TXH +3 02555 0 25362 57507 PAX +0 73400 1 00000 57510 CLA +0 50000 0 27353 57511 STO +0 60100 1 25362 EPARAY(JE,4) = TAG 088 LM00123 57512 LDQ +0 56000 0 57067 57513 CLA +0 50000 0 25416 57514 TSX +0 07400 4 00001 57515 TXH +3 02555 0 25362 57516 PAX +0 73400 1 00000 57517 CLA +0 50000 0 27473 57520 STO +0 60100 1 25362 JE =JE+1 089 LM00124 57521 CLA +0 50000 0 25416 57522 ADD +0 40000 0 57064 57523 STO +0 60100 0 25416 LTOP1 T'H LOOP1, FOR ICNT = NW,-2,ICNT.LE.0 090 LM00125 57524 CLA +0 50000 0 27352 57525 STO +0 60100 0 25411 57526 TRA +0 02000 0 57532 57527 CLS +0 50200 0 57065 57530 ADD +0 40000 0 25411 57531 STO +0 60100 0 25411 57532 CLA +0 50000 0 25411 57533 SUB +0 40200 0 57063 57534 TZE +0 10000 0 57605 57535 TMI -0 12000 0 57605 EPARAY(JE,0) = PROG(K) 091 LM00126 57536 LDQ +0 56000 0 57063 57537 CLA +0 50000 0 25416 57540 TSX +0 07400 4 00001 57541 TXH +3 02555 0 25362 57542 PAX +0 73400 1 00000 57543 LXA +0 53400 2 25421 57544 CLA +0 50000 2 27410 57545 STO +0 60100 1 25362 EPARAY(JE,1) = OCABC.(.ABS.(PROG(K-1)) + LPOINT) 092 LM00127 57546 CLA +0 50000 0 25421 57547 SUB +0 40200 0 57064 57550 PAX +0 73400 2 00000 57551 CLA +0 50000 2 27410 57552 SSP +0 76000 0 00003 57553 ADD +0 40000 0 25476 57554 STO +0 60100 0 61743 57555 TSX +0 07400 4 00020 57556 TXH +3 00000 0 61743 57557 STO +0 60100 0 61743 57560 LDQ +0 56000 0 57064 57561 CLA +0 50000 0 25416 57562 TSX +0 07400 4 00001 57563 TXH +3 02555 0 25362 57564 PAX +0 73400 1 00000 57565 CLA +0 50000 0 61743 57566 STO +0 60100 1 25362 EPARAY(JE,2) = 3 093 LM00128 57567 LDQ +0 56000 0 57065 57570 CLA +0 50000 0 25416 57571 TSX +0 07400 4 00001 57572 TXH +3 02555 0 25362 57573 PAX +0 73400 1 00000 57574 CLA +0 50000 0 57066 57575 STO +0 60100 1 25362 K = K-2 094 LM00129 57576 CLA +0 50000 0 25421 57577 SUB +0 40200 0 57065 57600 STO +0 60100 0 25421 LOOP1 JE = JE + 1 095 LM00130 57601 CLA +0 50000 0 25416 57602 ADD +0 40000 0 57064 57603 STO +0 60100 0 25416 57604 TRA +0 02000 0 57527 T'O READ2 096 LM00131 57605 TRA +0 02000 0 00065 E'L 097 LM00132 W'R TVSW .E. 1, T'O LTOP2 098 LM00136 57606 CLA +0 50000 0 57061 57607 SUB +0 40200 0 57064 57610 TNZ -0 10000 0 57612 57611 TRA +0 02000 0 00053 TVSW =1 099 LM00137 57612 CLA +0 50000 0 57064 57613 STO +0 60100 0 57061 JT = (JT/50 + 1) * 50 100 LM00138 57614 LDQ +0 56000 0 25420 57615 PXD -0 75400 0 00000 57616 LLS +0 76300 0 00000 57617 DVP +0 22100 0 57112 57620 XCA +0 13100 0 00000 57621 ADD +0 40000 0 57064 57622 XCA +0 13100 0 00000 57623 MPY +0 20000 0 57112 57624 STQ -0 60000 0 25420 TVARAY(JT) = A(14) 101 LM00139 57625 LXA +0 53400 1 25420 57626 CLA +0 50000 0 00072 57627 STO +0 60100 1 57057 JT = JT + 1 102 LM00140 57630 CLA +0 50000 0 25420 57631 ADD +0 40000 0 57064 57632 STO +0 60100 0 25420 LTOP2 K = 24 103 LM00141 57633 CLA +0 50000 0 57106 57634 STO +0 60100 0 25421 IC = 20 104 LM00142 57635 CLA +0 50000 0 57105 57636 STO +0 60100 0 25413 W'R TVL.L.20, IC = TVL 105 LM00143 57637 CLA +0 50000 0 57060 57640 SUB +0 40200 0 57105 57641 TZE +0 10000 0 57645 57642 TPL +0 12000 0 57645 57643 CLA +0 50000 0 57060 57644 STO +0 60100 0 25413 T'H LOOP2, FOR ICNT = IC, -1, ICNT .E. 0 106 LM00144 57645 CLA +0 50000 0 25413 57646 STO +0 60100 0 25411 57647 TRA +0 02000 0 57653 57650 CLS +0 50200 0 57064 57651 ADD +0 40000 0 25411 57652 STO +0 60100 0 25411 57653 CLA +0 50000 0 25411 57654 SUB +0 40200 0 57063 57655 TZE +0 10000 0 57671 TVARAY(JT) = PROG(K) 107 LM00145 57656 LXA +0 53400 1 25420 57657 LXA +0 53400 2 25421 57660 CLA +0 50000 2 27410 57661 STO +0 60100 1 57057 K = K - 1 108 LM00146 57662 CLA +0 50000 0 25421 57663 SUB +0 40200 0 57064 57664 STO +0 60100 0 25421 LOOP2 JT = JT + 1 109 LM00147 57665 CLA +0 50000 0 25420 57666 ADD +0 40000 0 57064 57667 STO +0 60100 0 25420 57670 TRA +0 02000 0 57650 W'R TVL .G. 20 110 LM00148 57671 CLA +0 50000 0 57060 57672 SUB +0 40200 0 57105 57673 TZE +0 10000 0 57702 57674 TMI -0 12000 0 57702 TVL = TVL - 20 111 LM00149 57675 CLA +0 50000 0 57060 57676 SUB +0 40200 0 57105 57677 STO +0 60100 0 57060 T'O READ2 112 LM00150 57700 TRA +0 02000 0 00065 O'E 113 LM00151 57701 TRA +0 02000 0 57707 TVARAY(JT) = FENCE 114 LM00152 57702 LXA +0 53400 1 25420 57703 CLA +0 50000 0 25363 57704 STO +0 60100 1 57057 TVSW = 0 115 LM00153 57705 CLA +0 50000 0 57063 57706 STO +0 60100 0 57061 E'L 116 LM00154 PROGSW = 0 117 LM00155 57707 CLA +0 50000 0 57063 57710 STO +0 60100 0 27411 W'R ICOMB .E. 0 118 LM00156 57711 CLA +0 50000 0 25412 57712 SUB +0 40200 0 57063 57713 TNZ -0 10000 0 57721 BFCLOS.(A(14),QBSS,READ1) 119 LM00157 57714 TSX +0 07400 4 00002 57715 TXH +3 00000 0 00072 57716 TXH +3 00000 0 27412 57717 TXH +3 00000 0 00064 T'O READ1 120 LM00158 57720 TRA +0 02000 0 00064 E'L 121 LM00159 SKIP BFREAD.(A(14),QBSS,PROG(28)...28,EOF3,EOFCT,ERR3) 122 LM00163 57721 TSX +0 07400 4 00004 57722 TXH +3 00000 0 00072 57723 TXH +3 00000 0 27412 57724 TIX +2 57111 0 27354 57725 TXH +3 00000 0 00036 57726 TXH +3 00000 0 02561 57727 TXH +3 00000 0 00043 W'R PROG(28) .A. MASK1 .E. 4005K8, T'O R2 123 LM00164 57730 CAL -0 50000 0 27354 57731 ANA -0 32000 0 25477 57732 SLW +0 60200 0 61743 57733 CLA +0 50000 0 61743 57734 SUB +0 40200 0 57122 57735 TNZ -0 10000 0 57737 57736 TRA +0 02000 0 00063 T'O SKIP 124 LM00165 57737 TRA +0 02000 0 00066 EOF3 BFCLOS.(A(14),QBSS,READ1) 125 LM00166 57740 TSX +0 07400 4 00002 57741 TXH +3 00000 0 00072 57742 TXH +3 00000 0 27412 57743 TXH +3 00000 0 00064 T'O READ1 126 LM00167 57744 TRA +0 02000 0 00064 EOF1 BFCLOS.(N1,N2,EOF1A) 127 LM00172 57745 TSX +0 07400 4 00002 57746 TXH +3 00000 0 00027 57747 TXH +3 00000 0 27346 57750 TXH +3 00000 0 00033 EOF1A HCORE = LPOINT + PL 128 LM00173 57751 CLA +0 50000 0 25476 57752 ADD +0 40000 0 27353 57753 STO +0 60100 0 25365 JESAVE = JE 129 LM00174 57754 CLA +0 50000 0 25416 57755 STO +0 60100 0 25417 W'R JT .L. 0 130 LM00175 57756 CLA +0 50000 0 25420 57757 SUB +0 40200 0 57063 57760 TZE +0 10000 0 57767 57761 TPL +0 12000 0 57767 TVARAY(1) = FENCE 131 LM00176 57762 CLA +0 50000 0 25363 57763 STO +0 60100 0 57056 TVARAY(2) = FENCE 132 LM00177 57764 CLA +0 50000 0 25363 57765 STO +0 60100 0 57055 T'O PART2 133 LM00178 57766 TRA +0 02000 0 00062 E'L 134 LM00179 TVARAY(JT+1) = FENCE 135 LM00180 57767 CLA +0 50000 0 25420 57770 ADD +0 40000 0 57064 57771 PAX +0 73400 1 00000 57772 CLA +0 50000 0 25363 57773 STO +0 60100 1 57057 JT = - 50 136 LM00181 57774 CLS +0 50200 0 57112 57775 STO +0 60100 0 25420 T'O PART2 137 LM00182 57776 TRA +0 02000 0 00062 EOF2 PRNTP.(MESS1) 138 LM00186 57777 TSX +0 07400 4 00022 60000 TXH +3 00000 0 26643 T'O ER2A 139 LM00187 60001 TRA +0 02000 0 00037 ERR1 PRNTER. 140 LM00188 60002 TSX +0 07400 4 00021 BFCLOS.($ALL$,-0,ERRX) 141 LM00189 60003 CLS +0 50200 0 57063 60004 STO +0 60100 0 61743 60005 TSX +0 07400 4 00002 60006 TXH +3 00000 0 57115 60007 TXH +3 00000 0 61743 60010 TXH +3 00000 0 00045 ERRX CHNCOM.(0) 142 LM00190 60011 TSX +0 07400 4 00007 60012 TXH +3 00000 0 57063 ERR2 PRNTER. 143 LM00191 60013 TSX +0 07400 4 00021 ER2A BFCLOS.(A(14),QBSS,ER2B) 144 LM00192 60014 TSX +0 07400 4 00002 60015 TXH +3 00000 0 00072 60016 TXH +3 00000 0 27412 60017 TXH +3 00000 0 00040 ER2B MFARAY = MFARAY + 1 145 LM00193 60020 CLA +0 50000 0 27033 60021 ADD +0 40000 0 57064 60022 STO +0 60100 0 27033 MFARAY(MFARAY) = A(14) 146 LM00194 60023 LXA +0 53400 1 27033 60024 CLA +0 50000 0 00072 60025 STO +0 60100 1 27033 T'O READ1 147 LM00195 60026 TRA +0 02000 0 00064 ERR3 PRNTER. 148 LM00196 60027 TSX +0 07400 4 00021 BFCLOS. (A(14),QBSS,READ1) 149 LM00197 60030 TSX +0 07400 4 00002 60031 TXH +3 00000 0 00072 60032 TXH +3 00000 0 27412 60033 TXH +3 00000 0 00064 T'O READ1 150 LM00198 60034 TRA +0 02000 0 00064 PART2 JT = (JT/50 + 1)*50 151 LM00205 60035 LDQ +0 56000 0 25420 60036 PXD -0 75400 0 00000 60037 LLS +0 76300 0 00000 60040 DVP +0 22100 0 57112 60041 XCA +0 13100 0 00000 60042 ADD +0 40000 0 57064 60043 XCA +0 13100 0 00000 60044 MPY +0 20000 0 57112 60045 STQ -0 60000 0 25420 MODNAM = TVARAY(JT) 152 LM00206 60046 LXA +0 53400 2 25420 60047 CLA +0 50000 2 57057 60050 STO +0 60100 0 27034 MNAM JT = JT +1 153 LM00207 60051 CLA +0 50000 0 25420 60052 ADD +0 40000 0 57064 60053 STO +0 60100 0 25420 W'R TVARAY(JT) .NE. FENCE, T'O LTOP3 154 LM00208 60054 LXA +0 53400 1 25420 60055 CLA +0 50000 1 57057 60056 SUB +0 40200 0 25363 60057 TZE +0 10000 0 60061 60060 TRA +0 02000 0 00054 W'R TVARAY(JT+1) .E. FENCE, T'O DUPCK 155 LM00209 60061 CLA +0 50000 0 25420 60062 ADD +0 40000 0 57064 60063 PAX +0 73400 1 00000 60064 CLA +0 50000 1 57057 60065 SUB +0 40200 0 25363 60066 TNZ -0 10000 0 60070 60067 TRA +0 02000 0 00030 T'O PART2 156 LM00210 60070 TRA +0 02000 0 00062 LTOP3 T'H LOOP3, FOR JE=1,1, JE.GE.JESAVE 157 LM00211 60071 CLA +0 50000 0 57064 60072 STO +0 60100 0 25416 60073 TRA +0 02000 0 60077 60074 CLA +0 50000 0 25416 60075 ADD +0 40000 0 57064 60076 STO +0 60100 0 25416 60077 CLA +0 50000 0 25416 60100 SUB +0 40200 0 25417 60101 TZE +0 10000 0 60232 60102 TPL +0 12000 0 60232 W'R EPARAY(JE,4) .E. TAG 158 LM00212 60103 LDQ +0 56000 0 57067 60104 CLA +0 50000 0 25416 60105 TSX +0 07400 4 00001 60106 TXH +3 02555 0 25362 60107 PAX +0 73400 1 00000 60110 CLA +0 50000 1 25362 60111 SUB +0 40200 0 27473 60112 TNZ -0 10000 0 60123 FILEN = EPARAY(JE,0) 159 LM00213 60113 LDQ +0 56000 0 57063 60114 CLA +0 50000 0 25416 60115 TSX +0 07400 4 00001 60116 TXH +3 02555 0 25362 60117 PAX +0 73400 2 00000 60120 CLA +0 50000 2 25362 60121 STO +0 60100 0 25364 T'O LOOP3 160 LM00214 60122 TRA +0 02000 0 00046 E'L 161 LM00215 W'R TVARAY(JT) .NE. EPARAY(JE,0), T'O LOOP3 162 LM00216 60123 LDQ +0 56000 0 57063 60124 CLA +0 50000 0 25416 60125 TSX +0 07400 4 00001 60126 TXH +3 02555 0 25362 60127 LXA +0 53400 1 25420 60130 PAX +0 73400 2 00000 60131 CLA +0 50000 1 57057 60132 SUB +0 40200 2 25362 60133 TZE +0 10000 0 60135 60134 TRA +0 02000 0 00046 TV1(JT,0) = FILEN 163 LM00217 60135 LDQ +0 56000 0 57063 60136 CLA +0 50000 0 25420 60137 TSX +0 07400 4 00001 60140 TXH +3 02560 0 47216 60141 PAX +0 73400 1 00000 60142 CLA +0 50000 0 25364 60143 STO +0 60100 1 47216 TV1(JT,1) = EPARAY(JE,1) 164 LM00218 60144 LDQ +0 56000 0 57064 60145 CLA +0 50000 0 25416 60146 TSX +0 07400 4 00001 60147 TXH +3 02555 0 25362 60150 STO +0 60100 0 61743 60151 LDQ +0 56000 0 57064 60152 CLA +0 50000 0 25420 60153 TSX +0 07400 4 00001 60154 TXH +3 02560 0 47216 60155 PAX +0 73400 1 00000 60156 LXA +0 53400 2 61743 60157 CLA +0 50000 2 25362 60160 STO +0 60100 1 47216 W'R EPARAY(JE,2) .G. 14, T'O MNAM 165 LM00219 60161 LDQ +0 56000 0 57065 60162 CLA +0 50000 0 25416 60163 TSX +0 07400 4 00001 60164 TXH +3 02555 0 25362 60165 PAX +0 73400 1 00000 60166 CLA +0 50000 1 25362 60167 SUB +0 40200 0 57100 60170 TZE +0 10000 0 60173 60171 TMI -0 12000 0 60173 60172 TRA +0 02000 0 00060 EPARAY(JE,EPARAY(JE,2)) = MODNAM 166 LM00220 60173 LDQ +0 56000 0 57065 60174 CLA +0 50000 0 25416 60175 TSX +0 07400 4 00001 60176 TXH +3 02555 0 25362 60177 SUB +0 40200 0 60200 60200 TXH +3 00000 0 25362 60201 STA +0 62100 0 60202 60202 LDQ +0 56000 0 00000 60203 CLA +0 50000 0 25416 60204 TSX +0 07400 4 00000 60205 TXH +3 02555 0 25362 60206 PAX +0 73400 1 00000 60207 CLA +0 50000 0 27034 60210 STO +0 60100 1 25362 EPARAY(JE,2) = EPARAY(JE,2) + 1 167 LM00221 60211 LDQ +0 56000 0 57065 60212 CLA +0 50000 0 25416 60213 TSX +0 07400 4 00001 60214 TXH +3 02555 0 25362 60215 PAX +0 73400 1 00000 60216 CLA +0 50000 1 25362 60217 ADD +0 40000 0 57064 60220 STO +0 60100 0 61743 60221 LDQ +0 56000 0 57065 60222 CLA +0 50000 0 25416 60223 TSX +0 07400 4 00001 60224 TXH +3 02555 0 25362 60225 PAX +0 73400 1 00000 60226 CLA +0 50000 0 61743 60227 STO +0 60100 1 25362 T'O MNAM 168 LM00222 60230 TRA +0 02000 0 00060 LOOP3 CONTINUE 169 LM00223 60231 TRA +0 02000 0 60074 MEARAY = MEARAY + 1 170 LM00224 60232 CLA +0 50000 0 26633 60233 ADD +0 40000 0 57064 60234 STO +0 60100 0 26633 MEARAY(MEARAY) = TVARAY(JT) 171 LM00225 60235 LXA +0 53400 1 26633 60236 LXA +0 53400 2 25420 60237 CLA +0 50000 2 57057 60240 STO +0 60100 1 26633 TV1(JT,0) = BLANK 172 LM00226 60241 LDQ +0 56000 0 57063 60242 CLA +0 50000 0 25420 60243 TSX +0 07400 4 00001 60244 TXH +3 02560 0 47216 60245 PAX +0 73400 1 00000 60246 CLA +0 50000 0 00115 60247 STO +0 60100 1 47216 TV1(JT,1) = BLANK 173 LM00227 60250 LDQ +0 56000 0 57064 60251 CLA +0 50000 0 25420 60252 TSX +0 07400 4 00001 60253 TXH +3 02560 0 47216 60254 PAX +0 73400 1 00000 60255 CLA +0 50000 0 00115 60256 STO +0 60100 1 47216 T'O MNAM 174 LM00228 60257 TRA +0 02000 0 00060 DUPCK T'H LOOP5, FOR JE1 = 1,1,JE1.GE.JESAVE 175 LM00232 60260 CLA +0 50000 0 57064 60261 STO +0 60100 0 25415 60262 TRA +0 02000 0 60266 60263 CLA +0 50000 0 25415 60264 ADD +0 40000 0 57064 60265 STO +0 60100 0 25415 60266 CLA +0 50000 0 25415 60267 SUB +0 40200 0 25417 60270 TZE +0 10000 0 60363 60271 TPL +0 12000 0 60363 W'R EPARAY(JE1,4) .E. TAG, T'O LOOP5 176 LM00233 60272 LDQ +0 56000 0 57067 60273 CLA +0 50000 0 25415 60274 TSX +0 07400 4 00001 60275 TXH +3 02555 0 25362 60276 PAX +0 73400 1 00000 60277 CLA +0 50000 1 25362 60300 SUB +0 40200 0 27473 60301 TNZ -0 10000 0 60303 60302 TRA +0 02000 0 00050 T'H LOOP4, FOR JE=JE1+1,1,JE.E.JESAVE 177 LM00234 60303 CLA +0 50000 0 25415 60304 ADD +0 40000 0 57064 60305 STO +0 60100 0 25416 60306 TRA +0 02000 0 60312 60307 CLA +0 50000 0 25416 60310 ADD +0 40000 0 57064 60311 STO +0 60100 0 25416 60312 CLA +0 50000 0 25416 60313 SUB +0 40200 0 25417 60314 TZE +0 10000 0 60362 W'R EPARAY(JE,4) .E. TAG, T'O LOOP4 178 LM00235 60315 LDQ +0 56000 0 57067 60316 CLA +0 50000 0 25416 60317 TSX +0 07400 4 00001 60320 TXH +3 02555 0 25362 60321 PAX +0 73400 1 00000 60322 CLA +0 50000 1 25362 60323 SUB +0 40200 0 27473 60324 TNZ -0 10000 0 60326 60325 TRA +0 02000 0 00047 W'R EPARAY(JE1,0) .NE. EPARAY(JE,0), T'O LOOP4 179 LM00236 60326 LDQ +0 56000 0 57063 60327 CLA +0 50000 0 25416 60330 TSX +0 07400 4 00001 60331 TXH +3 02555 0 25362 60332 STO +0 60100 0 61743 60333 LDQ +0 56000 0 57063 60334 CLA +0 50000 0 25415 60335 TSX +0 07400 4 00001 60336 TXH +3 02555 0 25362 60337 PAX +0 73400 1 00000 60340 LXA +0 53400 2 61743 60341 CLA +0 50000 1 25362 60342 SUB +0 40200 2 25362 60343 TZE +0 10000 0 60345 60344 TRA +0 02000 0 00047 MULT = MULT + 1 180 LM00237 60345 CLA +0 50000 0 27345 60346 ADD +0 40000 0 57064 60347 STO +0 60100 0 27345 MULT(MULT) = EPARAY(JE,0) 181 LM00238 60350 LDQ +0 56000 0 57063 60351 CLA +0 50000 0 25416 60352 TSX +0 07400 4 00001 60353 TXH +3 02555 0 25362 60354 LXA +0 53400 1 27345 60355 PAX +0 73400 2 00000 60356 CLA +0 50000 2 25362 60357 STO +0 60100 1 27345 T'O LOOP5 182 LM00239 60360 TRA +0 02000 0 00050 LOOP4 CONTINUE 183 LM00240 60361 TRA +0 02000 0 60307 LOOP5 CONTINUE 184 LM00241 60362 TRA +0 02000 0 60263 EXECUTE DELETE.(FILNAM) 185 LM00245 60363 TSX +0 07400 4 00011 60364 TXH +3 00000 0 00027 BFOPEN.($W$,N1,NA2,BUFF1(BL),BUFF2(BL),BUFF3(BL),ERR4) 186 LM00246 60365 CLA +0 50000 0 00116 60366 SUB +0 40200 0 60367 60367 TXH +3 00000 0 02541 60370 STA +0 62100 0 60407 60371 CLA +0 50000 0 00116 60372 SUB +0 40200 0 60373 60373 TXH +3 00000 0 01660 60374 STA +0 62100 0 60406 60375 CLA +0 50000 0 00116 60376 SUB +0 40200 0 60377 60377 TXH +3 00000 0 00777 60400 STA +0 62100 0 60405 60401 TSX +0 07400 4 00003 60402 TXH +3 00000 0 57130 60403 TXH +3 00000 0 00027 60404 TXH +3 00000 0 00026 60405 TXH +3 00000 0 00000 60406 TXH +3 00000 0 00000 60407 TXH +3 00000 0 00000 60410 TXH +3 00000 0 00044 TITLE(8) = N1 187 LM00247 60411 CLA +0 50000 0 00027 60412 STO +0 60100 0 27505 GETTM.(TITLE(11),TITLE(13)) 188 LM00248 60413 TSX +0 07400 4 00015 60414 TXH +3 00000 0 27502 60415 TXH +3 00000 0 27500 TITLE(5)=(N1.A.777777770000K).V.000000005757K 189 LM00249 60416 CAL -0 50000 0 00027 60417 ANA -0 32000 0 57136 60420 ORA -0 50100 0 57114 60421 SLW +0 60200 0 27510 WHOAMI.(TITLE(16)...2) 190 LM00250 60422 TSX +0 07400 4 00023 60423 TIX +2 57065 0 27475 LINE(LC-15) = TITLE(16) 191 LM00251 60424 CLA +0 50000 0 25433 60425 SUB +0 40200 0 57101 60426 PAX +0 73400 1 00000 60427 CLA +0 50000 0 27475 60430 STO +0 60100 1 25475 LINE(LC-16) = TITLE(15) 192 LM00252 60431 CLA +0 50000 0 25433 60432 SUB +0 40200 0 57102 60433 PAX +0 73400 1 00000 60434 CLA +0 50000 0 27476 60435 STO +0 60100 1 25475 T'H LOOP6, FOR IC = 0,1,IC .G. 14 193 LM00253 60436 CLA +0 50000 0 57063 60437 STO +0 60100 0 25413 60440 TRA +0 02000 0 60444 60441 CLA +0 50000 0 25413 60442 ADD +0 40000 0 57064 60443 STO +0 60100 0 25413 60444 CLA +0 50000 0 25413 60445 SUB +0 40200 0 57100 60446 TZE +0 10000 0 60450 60447 TPL +0 12000 0 60457 LOOP6 LINE(LC-IC) = TITLE(IC) 194 LM00254 60450 CLA +0 50000 0 25433 60451 SUB +0 40200 0 25413 60452 PAX +0 73400 1 00000 60453 LXA +0 53400 2 25413 60454 CLA +0 50000 2 27515 60455 STO +0 60100 1 25475 60456 TRA +0 02000 0 60441 BFWRIT.(N1,NA2,LINE(LC)...17,ERR4) 195 LM00255 60457 CLA +0 50000 0 25433 60460 SUB +0 40200 0 60461 60461 TXH +3 00000 0 25475 60462 STA +0 62100 0 60466 60463 TSX +0 07400 4 00005 60464 TXH +3 00000 0 00027 60465 TXH +3 00000 0 00026 60466 TIX +2 57103 0 00000 60467 TXH +3 00000 0 00044 W'R ILIST .E. 1 .OR. JESAVE .L. 1, T'O SUMERY 196 LM00256 60470 CLA +0 50000 0 25417 60471 SUB +0 40200 0 57064 60472 TZE +0 10000 0 60474 60473 TMI -0 12000 0 60477 60474 CLA +0 50000 0 25414 60475 SUB +0 40200 0 57064 60476 TNZ -0 10000 0 60500 60477 TRA +0 02000 0 00070 T'H LOOP7, FOR IC = 0,1,IC .G. 11 197 LM00257 60500 CLA +0 50000 0 57063 60501 STO +0 60100 0 25413 60502 TRA +0 02000 0 60506 60503 CLA +0 50000 0 25413 60504 ADD +0 40000 0 57064 60505 STO +0 60100 0 25413 60506 CLA +0 50000 0 25413 60507 SUB +0 40200 0 57076 60510 TZE +0 10000 0 60512 60511 TPL +0 12000 0 60521 LOOP7 LINE(LC-IC) = HEAD(IC) 198 LM00258 60512 CLA +0 50000 0 25433 60513 SUB +0 40200 0 25413 60514 PAX +0 73400 1 00000 60515 LXA +0 53400 2 25413 60516 CLA +0 50000 2 25401 60517 STO +0 60100 1 25475 60520 TRA +0 02000 0 60503 BFWRIT.(N1,NA2,LINE(LC)...12, ERR4) 199 LM00259 60521 CLA +0 50000 0 25433 60522 SUB +0 40200 0 60523 60523 TXH +3 00000 0 25475 60524 STA +0 62100 0 60530 60525 TSX +0 07400 4 00005 60526 TXH +3 00000 0 00027 60527 TXH +3 00000 0 00026 60530 TIX +2 57077 0 00000 60531 TXH +3 00000 0 00044 JT = -50 200 LM00260 60532 CLS +0 50200 0 57112 60533 STO +0 60100 0 25420 JE = 0 201 LM00261 60534 CLA +0 50000 0 57063 60535 STO +0 60100 0 25416 LTOP8 BFWRIT.(N1,NA2,BLANK3(3)...4,ERR4) 202 LM00265 60536 TSX +0 07400 4 00005 60537 TXH +3 00000 0 00027 60540 TXH +3 00000 0 00026 60541 TIX +2 57067 0 00111 60542 TXH +3 00000 0 00044 LINE(LC) = 777777000007K 203 LM00266 60543 LXA +0 53400 1 25433 60544 CLA +0 50000 0 57134 60545 STO +0 60100 1 25475 LINE(LC-1) = BLANK 204 LM00267 60546 CLA +0 50000 0 25433 60547 SUB +0 40200 0 57064 60550 PAX +0 73400 1 00000 60551 CLA +0 50000 0 00115 60552 STO +0 60100 1 25475 LINE(LC-2) = $FILE $ 205 LM00268 60553 CLA +0 50000 0 25433 60554 SUB +0 40200 0 57065 60555 PAX +0 73400 1 00000 60556 CLA +0 50000 0 57117 60557 STO +0 60100 1 25475 LINE(LC-3) = EPARAY(JE,0) 206 LM00269 60560 LDQ +0 56000 0 57063 60561 CLA +0 50000 0 25416 60562 TSX +0 07400 4 00001 60563 TXH +3 02555 0 25362 60564 STO +0 60100 0 61743 60565 CLA +0 50000 0 25433 60566 SUB +0 40200 0 57066 60567 PAX +0 73400 1 00000 60570 LXA +0 53400 2 61743 60571 CLA +0 50000 2 25362 60572 STO +0 60100 1 25475 LINE(LC-4) = BLANK 207 LM00270 60573 CLA +0 50000 0 25433 60574 SUB +0 40200 0 57067 60575 PAX +0 73400 1 00000 60576 CLA +0 50000 0 00115 60577 STO +0 60100 1 25475 LINE(LC-5) = (EPARAY(JE,1)) 208 LM00271 60600 LDQ +0 56000 0 57064 60601 CLA +0 50000 0 25416 60602 TSX +0 07400 4 00001 60603 TXH +3 02555 0 25362 60604 STO +0 60100 0 61743 60605 CLA +0 50000 0 25433 60606 SUB +0 40200 0 57070 60607 PAX +0 73400 1 00000 60610 LXA +0 53400 2 61743 60611 CLA +0 50000 2 25362 60612 STO +0 60100 1 25475 LINE(LC-6) = OCABC.(EPARAY(JE,2)) 209 LM00272 60613 LDQ +0 56000 0 57065 60614 CLA +0 50000 0 25416 60615 TSX +0 07400 4 00001 60616 TXH +3 02555 0 25362 60617 SUB +0 40200 0 60620 60620 TXH +3 00000 0 25362 60621 STA +0 62100 0 60623 60622 TSX +0 07400 4 00020 60623 TXH +3 00000 0 00000 60624 STO +0 60100 0 61743 60625 CLA +0 50000 0 25433 60626 SUB +0 40200 0 57071 60627 PAX +0 73400 1 00000 60630 CLA +0 50000 0 61743 60631 STO +0 60100 1 25475 LINE(LC-7) = OCABC.(EPARAY(JE,3)) 210 LM00273 60632 LDQ +0 56000 0 57066 60633 CLA +0 50000 0 25416 60634 TSX +0 07400 4 00001 60635 TXH +3 02555 0 25362 60636 SUB +0 40200 0 60637 60637 TXH +3 00000 0 25362 60640 STA +0 62100 0 60642 60641 TSX +0 07400 4 00020 60642 TXH +3 00000 0 00000 60643 STO +0 60100 0 61743 60644 CLA +0 50000 0 25433 60645 SUB +0 40200 0 57072 60646 PAX +0 73400 1 00000 60647 CLA +0 50000 0 61743 60650 STO +0 60100 1 25475 BFWRIT.(N1,NA2,LINE(LC)...8,ERR4) 211 LM00274 60651 CLA +0 50000 0 25433 60652 SUB +0 40200 0 60653 60653 TXH +3 00000 0 25475 60654 STA +0 62100 0 60660 60655 TSX +0 07400 4 00005 60656 TXH +3 00000 0 00027 60657 TXH +3 00000 0 00026 60660 TIX +2 57073 0 00000 60661 TXH +3 00000 0 00044 LINE(LC) = 777777000011K 212 LM00278 60662 LXA +0 53400 1 25433 60663 CLA +0 50000 0 57135 60664 STO +0 60100 1 25475 LINE(LC-1) = BLANK 213 LM00279 60665 CLA +0 50000 0 25433 60666 SUB +0 40200 0 57064 60667 PAX +0 73400 1 00000 60670 CLA +0 50000 0 00115 60671 STO +0 60100 1 25475 LINE(LC-2) = BLANK 214 LM00280 60672 CLA +0 50000 0 25433 60673 SUB +0 40200 0 57065 60674 PAX +0 73400 1 00000 60675 CLA +0 50000 0 00115 60676 STO +0 60100 1 25475 LINE(LC-3) = BLANK 215 LM00281 60677 CLA +0 50000 0 25433 60700 SUB +0 40200 0 57066 60701 PAX +0 73400 1 00000 60702 CLA +0 50000 0 00115 60703 STO +0 60100 1 25475 LINE(LC-5) = BLANK 216 LM00282 60704 CLA +0 50000 0 25433 60705 SUB +0 40200 0 57070 60706 PAX +0 73400 1 00000 60707 CLA +0 50000 0 00115 60710 STO +0 60100 1 25475 LINE(LC-6) = BLANK 217 LM00283 60711 CLA +0 50000 0 25433 60712 SUB +0 40200 0 57071 60713 PAX +0 73400 1 00000 60714 CLA +0 50000 0 00115 60715 STO +0 60100 1 25475 LINE(LC-7) = BLANK 218 LM00284 60716 CLA +0 50000 0 25433 60717 SUB +0 40200 0 57072 60720 PAX +0 73400 1 00000 60721 CLA +0 50000 0 00115 60722 STO +0 60100 1 25475 JT = (JT/50+1)*50 + 1 219 LM00285 60723 LDQ +0 56000 0 25420 60724 PXD -0 75400 0 00000 60725 LLS +0 76300 0 00000 60726 DVP +0 22100 0 57112 60727 XCA +0 13100 0 00000 60730 ADD +0 40000 0 57064 60731 XCA +0 13100 0 00000 60732 MPY +0 20000 0 57112 60733 XCA +0 13100 0 00000 60734 ADD +0 40000 0 57064 60735 STO +0 60100 0 25420 LTOP9 W'R TVARAY(JT) .E. FENCE, T'O TOP10 220 LM00286 60736 LXA +0 53400 1 25420 60737 CLA +0 50000 1 57057 60740 SUB +0 40200 0 25363 60741 TNZ -0 10000 0 60743 60742 TRA +0 02000 0 00071 LINE(LC-4) = TVARAY(JT) 221 LM00287 60743 CLA +0 50000 0 25433 60744 SUB +0 40200 0 57067 60745 PAX +0 73400 1 00000 60746 LXA +0 53400 2 25420 60747 CLA +0 50000 2 57057 60750 STO +0 60100 1 25475 LINE(LC-8) = TV1(JT,0) 222 LM00288 60751 LDQ +0 56000 0 57063 60752 CLA +0 50000 0 25420 60753 TSX +0 07400 4 00001 60754 TXH +3 02560 0 47216 60755 STO +0 60100 0 61743 60756 CLA +0 50000 0 25433 60757 SUB +0 40200 0 57073 60760 PAX +0 73400 1 00000 60761 LXA +0 53400 2 61743 60762 CLA +0 50000 2 47216 60763 STO +0 60100 1 25475 LINE(LC-9) = TV1(JT,1) 223 LM00289 60764 LDQ +0 56000 0 57064 60765 CLA +0 50000 0 25420 60766 TSX +0 07400 4 00001 60767 TXH +3 02560 0 47216 60770 STO +0 60100 0 61743 60771 CLA +0 50000 0 25433 60772 SUB +0 40200 0 57074 60773 PAX +0 73400 1 00000 60774 LXA +0 53400 2 61743 60775 CLA +0 50000 2 47216 60776 STO +0 60100 1 25475 BFWRIT.(N1,NA2,LINE(LC)...10,ERR4) 224 LM00290 60777 CLA +0 50000 0 25433 61000 SUB +0 40200 0 61001 61001 TXH +3 00000 0 25475 61002 STA +0 62100 0 61006 61003 TSX +0 07400 4 00005 61004 TXH +3 00000 0 00027 61005 TXH +3 00000 0 00026 61006 TIX +2 57075 0 00000 61007 TXH +3 00000 0 00044 JT = JT + 1 225 LM00291 61010 CLA +0 50000 0 25420 61011 ADD +0 40000 0 57064 61012 STO +0 60100 0 25420 T'O LTOP9 226 LM00292 61013 TRA +0 02000 0 00056 TOP10 LINE(LC-4) = BLANK 227 LM00293 61014 CLA +0 50000 0 25433 61015 SUB +0 40200 0 57067 61016 PAX +0 73400 1 00000 61017 CLA +0 50000 0 00115 61020 STO +0 60100 1 25475 LINE(LC-6) = BLANK 228 LM00294 61021 CLA +0 50000 0 25433 61022 SUB +0 40200 0 57071 61023 PAX +0 73400 1 00000 61024 CLA +0 50000 0 00115 61025 STO +0 60100 1 25475 LINE(LC-7) = BLANK 229 LM00295 61026 CLA +0 50000 0 25433 61027 SUB +0 40200 0 57072 61030 PAX +0 73400 1 00000 61031 CLA +0 50000 0 00115 61032 STO +0 60100 1 25475 LTOP10 JE = JE + 1 230 LM00296 61033 CLA +0 50000 0 25416 61034 ADD +0 40000 0 57064 61035 STO +0 60100 0 25416 W'R JE .GE. JESAVE, T'O SUMERY 231 LM00301 61036 CLA +0 50000 0 25416 61037 SUB +0 40200 0 25417 61040 TZE +0 10000 0 61042 61041 TMI -0 12000 0 61043 61042 TRA +0 02000 0 00070 W'R EPARAY(JE,4) .E. TAG, T'O LTOP8 232 LM00302 61043 LDQ +0 56000 0 57067 61044 CLA +0 50000 0 25416 61045 TSX +0 07400 4 00001 61046 TXH +3 02555 0 25362 61047 PAX +0 73400 1 00000 61050 CLA +0 50000 1 25362 61051 SUB +0 40200 0 27473 61052 TNZ -0 10000 0 61054 61053 TRA +0 02000 0 00055 NLC= (2*(EPARAY(JE,2)-3)+7) 233 LM00303 61054 LDQ +0 56000 0 57065 61055 CLA +0 50000 0 25416 61056 TSX +0 07400 4 00001 61057 TXH +3 02555 0 25362 61060 PAX +0 73400 1 00000 61061 CLA +0 50000 1 25362 61062 SUB +0 40200 0 57066 61063 XCA +0 13100 0 00000 61064 MPY +0 20000 0 57065 61065 XCA +0 13100 0 00000 61066 ADD +0 40000 0 57072 61067 STO +0 60100 0 27351 LINE(LC)= (NLC-1).V.777777K6 234 LM00304 61070 CLA +0 50000 0 27351 61071 SUB +0 40200 0 57064 61072 STO +0 60100 0 61743 61073 CAL -0 50000 0 61743 61074 ORA -0 50100 0 57132 61075 LXA +0 53400 1 25433 61076 SLW +0 60200 1 25475 LINE(LC-3) = EPARAY(JE,0) 235 LM00305 61077 LDQ +0 56000 0 57063 61100 CLA +0 50000 0 25416 61101 TSX +0 07400 4 00001 61102 TXH +3 02555 0 25362 61103 STO +0 60100 0 61743 61104 CLA +0 50000 0 25433 61105 SUB +0 40200 0 57066 61106 PAX +0 73400 1 00000 61107 LXA +0 53400 2 61743 61110 CLA +0 50000 2 25362 61111 STO +0 60100 1 25475 LINE(LC-5) = (EPARAY(JE,1)) 236 LM00306 61112 LDQ +0 56000 0 57064 61113 CLA +0 50000 0 25416 61114 TSX +0 07400 4 00001 61115 TXH +3 02555 0 25362 61116 STO +0 60100 0 61743 61117 CLA +0 50000 0 25433 61120 SUB +0 40200 0 57070 61121 PAX +0 73400 1 00000 61122 LXA +0 53400 2 61743 61123 CLA +0 50000 2 25362 61124 STO +0 60100 1 25475 LINE(LC-7) = BLANK 237 LM00307 61125 CLA +0 50000 0 25433 61126 SUB +0 40200 0 57072 61127 PAX +0 73400 1 00000 61130 CLA +0 50000 0 00115 61131 STO +0 60100 1 25475 LCNT = LC - 8 238 LM00308 61132 CLA +0 50000 0 25433 61133 SUB +0 40200 0 57073 61134 STO +0 60100 0 25431 T'H LOOP11, FOR IC = 3,1,IC .E. EPARAY(JE,2) 239 LM00309 61135 CLA +0 50000 0 57066 61136 STO +0 60100 0 25413 61137 TRA +0 02000 0 61143 61140 CLA +0 50000 0 25413 61141 ADD +0 40000 0 57064 61142 STO +0 60100 0 25413 61143 LDQ +0 56000 0 57065 61144 CLA +0 50000 0 25416 61145 TSX +0 07400 4 00001 61146 TXH +3 02555 0 25362 61147 PAX +0 73400 2 00000 61150 CLA +0 50000 0 25413 61151 SUB +0 40200 2 25362 61152 TZE +0 10000 0 61174 LINE(LCNT) = EPARAY(JE,IC) 240 LM00310 61153 LDQ +0 56000 0 25413 61154 CLA +0 50000 0 25416 61155 TSX +0 07400 4 00001 61156 TXH +3 02555 0 25362 61157 LXA +0 53400 1 25431 61160 PAX +0 73400 2 00000 61161 CLA +0 50000 2 25362 61162 STO +0 60100 1 25475 LINE(LCNT-1) = 735757575757K 241 LM00311 61163 CLA +0 50000 0 25431 61164 SUB +0 40200 0 57064 61165 PAX +0 73400 1 00000 61166 CLA +0 50000 0 57131 61167 STO +0 60100 1 25475 LOOP11 LCNT = LCNT-2 242 LM00312 61170 CLA +0 50000 0 25431 61171 SUB +0 40200 0 57065 61172 STO +0 60100 0 25431 61173 TRA +0 02000 0 61140 BFWRIT.(N1,NA2,LINE(LC)...NLC,ERR4) 243 LM00313 61174 CLA +0 50000 0 25433 61175 SUB +0 40200 0 61176 61176 TXH +3 00000 0 25475 61177 STA +0 62100 0 61203 61200 TSX +0 07400 4 00005 61201 TXH +3 00000 0 00027 61202 TXH +3 00000 0 00026 61203 TIX +2 27351 0 00000 61204 TXH +3 00000 0 00044 T'O LTOP10 244 LM00314 61205 TRA +0 02000 0 00051 SUMERY SUM1(18) = OCABC.(HCORE) 245 LM00318 61206 TSX +0 07400 4 00020 61207 TXH +3 00000 0 25365 61210 STO +0 60100 0 27426 SUM1(11) = OCABC.(LCOM) 246 LM00319 61211 TSX +0 07400 4 00020 61212 TXH +3 00000 0 25432 61213 STO +0 60100 0 27435 SUM1(25) = BZEL.(DERBC.(LCOM-HCORE)) 247 LM00320 61214 CLA +0 50000 0 25432 61215 SUB +0 40200 0 25365 61216 STO +0 60100 0 61743 61217 TSX +0 07400 4 00012 61220 TXH +3 00000 0 61743 61221 STO +0 60100 0 61743 61222 TSX +0 07400 4 00006 61223 TXH +3 00000 0 61743 61224 STO +0 60100 0 27417 W'R HCORE.G.LCOM, SUM1(25) =SUM1(25).A.MASK4 248 LM00321 61225 CLA +0 50000 0 25365 61226 SUB +0 40200 0 25432 61227 TZE +0 10000 0 61234 61230 TMI -0 12000 0 61234 61231 CAL -0 50000 0 27417 61232 ANA -0 32000 0 25502 61233 SLW +0 60200 0 27417 HPC(5) = SUM1(18) 249 LM00322 61234 CLA +0 50000 0 27426 61235 STO +0 60100 0 25403 LCM(5) = SUM1(11) 250 LM00323 61236 CLA +0 50000 0 27435 61237 STO +0 60100 0 25423 DIFC(5) = SUM1(25) 251 LM00324 61240 CLA +0 50000 0 27417 61241 STO +0 60100 0 02545 W'R HCORE .L. LCOM .AND. (MEARAY+MFARAY) .E. 0 252 LM00325 61242 CLA +0 50000 0 26633 61243 ADD +0 40000 0 27033 61244 SUB +0 40200 0 57063 61245 TNZ -0 10000 0 61322 61246 CLA +0 50000 0 25365 61247 SUB +0 40200 0 25432 61250 TZE +0 10000 0 61322 61251 TPL +0 12000 0 61322 T'H LOOP13, FOR IC = 0,1,IC .G. 27 253 LM00329 61252 CLA +0 50000 0 57063 61253 STO +0 60100 0 25413 61254 TRA +0 02000 0 61260 61255 CLA +0 50000 0 25413 61256 ADD +0 40000 0 57064 61257 STO +0 60100 0 25413 61260 CLA +0 50000 0 25413 61261 SUB +0 40200 0 57110 61262 TZE +0 10000 0 61264 61263 TPL +0 12000 0 61273 LOOP13 LINE(LC-IC) = SUM1(IC) 254 LM00330 61264 CLA +0 50000 0 25433 61265 SUB +0 40200 0 25413 61266 PAX +0 73400 1 00000 61267 LXA +0 53400 2 25413 61270 CLA +0 50000 2 27450 61271 STO +0 60100 1 25475 61272 TRA +0 02000 0 61255 BFWRIT.(N1,NA2,LINE(LC)...28,ERR4) 255 LM00331 61273 CLA +0 50000 0 25433 61274 SUB +0 40200 0 61275 61275 TXH +3 00000 0 25475 61276 STA +0 62100 0 61302 61277 TSX +0 07400 4 00005 61300 TXH +3 00000 0 00027 61301 TXH +3 00000 0 00026 61302 TIX +2 57111 0 00000 61303 TXH +3 00000 0 00044 PRINT COMMENT $SYSTEM PRELOAD SUCCESSFUL$ 256 LM00332 61304 TSX +0 07400 4 00016 61305 +0 00000 0 00005 61306 -2 27062 6 32544 61307 -2 04751 2 54346 61310 +2 12460 6 26423 61311 +2 32562 6 22664 61312 -0 36060 6 06060 PRNTP.(LCM) 257 LM00333 61313 TSX +0 07400 4 00022 61314 TXH +3 00000 0 25430 PRNTP.(HPC) 258 LM00334 61315 TSX +0 07400 4 00022 61316 TXH +3 00000 0 25410 PRNTP.(DIFC) 259 LM00335 61317 TSX +0 07400 4 00022 61320 TXH +3 00000 0 02552 T'O MUCK 260 LM00336 61321 TRA +0 02000 0 00061 E'L 261 LM00337 SUM1(3) = SUM1A 262 LM00340 61322 CLA +0 50000 0 27414 61323 STO +0 60100 0 27445 T'H LOOP14, FOR IC = 0,1,IC .G. 27 263 LM00341 61324 CLA +0 50000 0 57063 61325 STO +0 60100 0 25413 61326 TRA +0 02000 0 61332 61327 CLA +0 50000 0 25413 61330 ADD +0 40000 0 57064 61331 STO +0 60100 0 25413 61332 CLA +0 50000 0 25413 61333 SUB +0 40200 0 57110 61334 TZE +0 10000 0 61336 61335 TPL +0 12000 0 61345 LOOP14 LINE(LC-IC) = SUM1(IC) 264 LM00342 61336 CLA +0 50000 0 25433 61337 SUB +0 40200 0 25413 61340 PAX +0 73400 1 00000 61341 LXA +0 53400 2 25413 61342 CLA +0 50000 2 27450 61343 STO +0 60100 1 25475 61344 TRA +0 02000 0 61327 BFWRIT.(N1,NA2,LINE(LC)...28, ERR4) 265 LM00343 61345 CLA +0 50000 0 25433 61346 SUB +0 40200 0 61347 61347 TXH +3 00000 0 25475 61350 STA +0 62100 0 61354 61351 TSX +0 07400 4 00005 61352 TXH +3 00000 0 00027 61353 TXH +3 00000 0 00026 61354 TIX +2 57111 0 00000 61355 TXH +3 00000 0 00044 PRINT COMMENT $SYSTEM PRELOAD UNSUCCESSFUL$ 266 LM00344 61356 TSX +0 07400 4 00016 61357 +0 00000 0 00005 61360 -2 27062 6 32544 61361 -2 04751 2 54346 61362 +2 12460 6 44562 61363 -2 42323 2 56262 61364 +2 66443 6 06060 PRNTP.(LCM) 267 LM00345 61365 TSX +0 07400 4 00022 61366 TXH +3 00000 0 25430 PRNTP.(HPC) 268 LM00346 61367 TSX +0 07400 4 00022 61370 TXH +3 00000 0 25410 PRNTP.(DIFC) 269 LM00347 61371 TSX +0 07400 4 00022 61372 TXH +3 00000 0 02552 W'R MFARAY .E. 0, T'O MECK 270 LM00348 61373 CLA +0 50000 0 27033 61374 SUB +0 40200 0 57063 61375 TNZ -0 10000 0 61377 61376 TRA +0 02000 0 00057 T'H LOOP15, FOR IC = 0,1,IC .G. 4 271 LM00352 61377 CLA +0 50000 0 57063 61400 STO +0 60100 0 25413 61401 TRA +0 02000 0 61405 61402 CLA +0 50000 0 25413 61403 ADD +0 40000 0 57064 61404 STO +0 60100 0 25413 61405 CLA +0 50000 0 25413 61406 SUB +0 40200 0 57067 61407 TZE +0 10000 0 61411 61410 TPL +0 12000 0 61420 LOOP15 LINE(LC-IC) = SUM2(IC) 272 LM00353 61411 CLA +0 50000 0 25433 61412 SUB +0 40200 0 25413 61413 PAX +0 73400 1 00000 61414 LXA +0 53400 2 25413 61415 CLA +0 50000 2 27455 61416 STO +0 60100 1 25475 61417 TRA +0 02000 0 61402 BFWRIT.(N1,NA2,LINE(LC)...5,ERR4) 273 LM00354 61420 CLA +0 50000 0 25433 61421 SUB +0 40200 0 61422 61422 TXH +3 00000 0 25475 61423 STA +0 62100 0 61427 61424 TSX +0 07400 4 00005 61425 TXH +3 00000 0 00027 61426 TXH +3 00000 0 00026 61427 TIX +2 57070 0 00000 61430 TXH +3 00000 0 00044 PRINT COMMENT $MISSING FILES ARE$ 274 LM00355 61431 TSX +0 07400 4 00016 61432 +0 00000 0 00003 61433 -0 43162 6 23145 61434 +2 76026 3 14325 61435 -2 26021 5 12560 LINE(LC) = 777777000003K 275 LM00356 61436 LXA +0 53400 1 25433 61437 CLA +0 50000 0 57133 61440 STO +0 60100 1 25475 LINE(LC-2) = BLANK 276 LM00357 61441 CLA +0 50000 0 25433 61442 SUB +0 40200 0 57065 61443 PAX +0 73400 1 00000 61444 CLA +0 50000 0 00115 61445 STO +0 60100 1 25475 T'H LOOP16, FOR IC = 1,1,IC .G. MFARAY 277 LM00358 61446 CLA +0 50000 0 57064 61447 STO +0 60100 0 25413 61450 TRA +0 02000 0 61454 61451 CLA +0 50000 0 25413 61452 ADD +0 40000 0 57064 61453 STO +0 60100 0 25413 61454 CLA +0 50000 0 25413 61455 SUB +0 40200 0 27033 61456 TZE +0 10000 0 61460 61457 TPL +0 12000 0 61504 LINE(LC-3) = MFARAY(IC) 278 LM00359 61460 CLA +0 50000 0 25433 61461 SUB +0 40200 0 57066 61462 PAX +0 73400 1 00000 61463 LXA +0 53400 2 25413 61464 CLA +0 50000 2 27033 61465 STO +0 60100 1 25475 NASTY(0) = MFARAY(IC) 279 LM00360 61466 CLA +0 50000 2 27033 61467 STO +0 60100 0 27350 PRNTP.(NASTY) 280 LM00361 61470 TSX +0 07400 4 00022 61471 TXH +3 00000 0 27350 LOOP16 BFWRIT.(N1,NA2,LINE(LC)...4,ERR4) 281 LM00362 61472 CLA +0 50000 0 25433 61473 SUB +0 40200 0 61474 61474 TXH +3 00000 0 25475 61475 STA +0 62100 0 61501 61476 TSX +0 07400 4 00005 61477 TXH +3 00000 0 00027 61500 TXH +3 00000 0 00026 61501 TIX +2 57067 0 00000 61502 TXH +3 00000 0 00044 61503 TRA +0 02000 0 61451 MECK W'R MEARAY .E. 0, T'O MUCK 282 LM00363 61504 CLA +0 50000 0 26633 61505 SUB +0 40200 0 57063 61506 TNZ -0 10000 0 61510 61507 TRA +0 02000 0 00061 T'H LOOP17, FOR IC = 0,1,IC .G. 5 283 LM00367 61510 CLA +0 50000 0 57063 61511 STO +0 60100 0 25413 61512 TRA +0 02000 0 61516 61513 CLA +0 50000 0 25413 61514 ADD +0 40000 0 57064 61515 STO +0 60100 0 25413 61516 CLA +0 50000 0 25413 61517 SUB +0 40200 0 57070 61520 TZE +0 10000 0 61522 61521 TPL +0 12000 0 61531 LOOP17 LINE(LC-IC) = SUM3(IC) 284 LM00368 61522 CLA +0 50000 0 25433 61523 SUB +0 40200 0 25413 61524 PAX +0 73400 1 00000 61525 LXA +0 53400 2 25413 61526 CLA +0 50000 2 27463 61527 STO +0 60100 1 25475 61530 TRA +0 02000 0 61513 BFWRIT.(N1,NA2,LINE(LC)...6,ERR4) 285 LM00369 61531 CLA +0 50000 0 25433 61532 SUB +0 40200 0 61533 61533 TXH +3 00000 0 25475 61534 STA +0 62100 0 61540 61535 TSX +0 07400 4 00005 61536 TXH +3 00000 0 00027 61537 TXH +3 00000 0 00026 61540 TIX +2 57071 0 00000 61541 TXH +3 00000 0 00044 PRINT COMMENT $MISSING ENTRY POINTS ARE$ 286 LM00370 61542 TSX +0 07400 4 00016 61543 +0 00000 0 00004 61544 -0 43162 6 23145 61545 +2 76025 4 56351 61546 -3 06047 4 63145 61547 -2 36260 2 15125 LINE(LC) = 777777000003K 287 LM00371 61550 LXA +0 53400 1 25433 61551 CLA +0 50000 0 57133 61552 STO +0 60100 1 25475 LINE(LC-2) = BLANK 288 LM00372 61553 CLA +0 50000 0 25433 61554 SUB +0 40200 0 57065 61555 PAX +0 73400 1 00000 61556 CLA +0 50000 0 00115 61557 STO +0 60100 1 25475 T'H LOOP18, FOR IC = 1,1,IC .G. MEARAY 289 LM00373 61560 CLA +0 50000 0 57064 61561 STO +0 60100 0 25413 61562 TRA +0 02000 0 61566 61563 CLA +0 50000 0 25413 61564 ADD +0 40000 0 57064 61565 STO +0 60100 0 25413 61566 CLA +0 50000 0 25413 61567 SUB +0 40200 0 26633 61570 TZE +0 10000 0 61572 61571 TPL +0 12000 0 61616 LINE(LC-3) = MEARAY(IC) 290 LM00374 61572 CLA +0 50000 0 25433 61573 SUB +0 40200 0 57066 61574 PAX +0 73400 1 00000 61575 LXA +0 53400 2 25413 61576 CLA +0 50000 2 26633 61577 STO +0 60100 1 25475 NASTY(0) = MEARAY(IC) 291 LM00375 61600 CLA +0 50000 2 26633 61601 STO +0 60100 0 27350 PRNTP.(NASTY) 292 LM00376 61602 TSX +0 07400 4 00022 61603 TXH +3 00000 0 27350 LOOP18 BFWRIT. (N1,NA2,LINE(LC)...4,ERR4) 293 LM00377 61604 CLA +0 50000 0 25433 61605 SUB +0 40200 0 61606 61606 TXH +3 00000 0 25475 61607 STA +0 62100 0 61613 61610 TSX +0 07400 4 00005 61611 TXH +3 00000 0 00027 61612 TXH +3 00000 0 00026 61613 TIX +2 57067 0 00000 61614 TXH +3 00000 0 00044 61615 TRA +0 02000 0 61563 MUCK W'R MULT .E. 0, T'O END 294 LM00378 61616 CLA +0 50000 0 27345 61617 SUB +0 40200 0 57063 61620 TNZ -0 10000 0 61622 61621 TRA +0 02000 0 00032 T'H LOOP19, FOR IC = 0,1,IC .G. 6 295 LM00382 61622 CLA +0 50000 0 57063 61623 STO +0 60100 0 25413 61624 TRA +0 02000 0 61630 61625 CLA +0 50000 0 25413 61626 ADD +0 40000 0 57064 61627 STO +0 60100 0 25413 61630 CLA +0 50000 0 25413 61631 SUB +0 40200 0 57071 61632 TZE +0 10000 0 61634 61633 TPL +0 12000 0 61643 LOOP19 LINE(LC-IC) = SUM4(IC) 296 LM00383 61634 CLA +0 50000 0 25433 61635 SUB +0 40200 0 25413 61636 PAX +0 73400 1 00000 61637 LXA +0 53400 2 25413 61640 CLA +0 50000 2 27472 61641 STO +0 60100 1 25475 61642 TRA +0 02000 0 61625 BFWRIT.(N1,NA2,LINE(LC)...7,ERR4) 297 LM00384 61643 CLA +0 50000 0 25433 61644 SUB +0 40200 0 61645 61645 TXH +3 00000 0 25475 61646 STA +0 62100 0 61652 61647 TSX +0 07400 4 00005 61650 TXH +3 00000 0 00027 61651 TXH +3 00000 0 00026 61652 TIX +2 57072 0 00000 61653 TXH +3 00000 0 00044 PRINT COMMENT $DUPLICATED ENTRY POINTS ARE$ 298 LM00385 61654 TSX +0 07400 4 00016 61655 +0 00000 0 00005 61656 +2 46447 4 33123 61657 +2 16325 2 46025 61660 -0 56351 7 06047 61661 -0 63145 6 36260 61662 +2 15125 6 06060 LINE(LC) = 777777000003K 299 LM00386 61663 LXA +0 53400 1 25433 61664 CLA +0 50000 0 57133 61665 STO +0 60100 1 25475 LINE (LC-2) = BLANK 300 LM00387 61666 CLA +0 50000 0 25433 61667 SUB +0 40200 0 57065 61670 PAX +0 73400 1 00000 61671 CLA +0 50000 0 00115 61672 STO +0 60100 1 25475 T'H LOOP20, FOR IC = 1,1,IC .G. MULT 301 LM00388 61673 CLA +0 50000 0 57064 61674 STO +0 60100 0 25413 61675 TRA +0 02000 0 61701 61676 CLA +0 50000 0 25413 61677 ADD +0 40000 0 57064 61700 STO +0 60100 0 25413 61701 CLA +0 50000 0 25413 61702 SUB +0 40200 0 27345 61703 TZE +0 10000 0 61705 61704 TPL +0 12000 0 61731 LINE(LC-3) = MULT(IC) 302 LM00389 61705 CLA +0 50000 0 25433 61706 SUB +0 40200 0 57066 61707 PAX +0 73400 1 00000 61710 LXA +0 53400 2 25413 61711 CLA +0 50000 2 27345 61712 STO +0 60100 1 25475 NASTY(0) = MULT(IC) 303 LM00390 61713 CLA +0 50000 2 27345 61714 STO +0 60100 0 27350 PRNTP.(NASTY) 304 LM00391 61715 TSX +0 07400 4 00022 61716 TXH +3 00000 0 27350 LOOP20 BFWRIT.(N1,NA2,LINE(LC)...4,ERR4) 305 LM00392 61717 CLA +0 50000 0 25433 61720 SUB +0 40200 0 61721 61721 TXH +3 00000 0 25475 61722 STA +0 62100 0 61726 61723 TSX +0 07400 4 00005 61724 TXH +3 00000 0 00027 61725 TXH +3 00000 0 00026 61726 TIX +2 57067 0 00000 61727 TXH +3 00000 0 00044 61730 TRA +0 02000 0 61676 T'O END 306 LM00393 61731 TRA +0 02000 0 00032 ERR4 PRNTER. 307 LM00394 61732 TSX +0 07400 4 00021 END BFCLOS.(N1,NA2,END2) 308 LM00395 61733 TSX +0 07400 4 00002 61734 TXH +3 00000 0 00027 61735 TXH +3 00000 0 00026 61736 TXH +3 00000 0 00031 END2 CHNCOM.(0) 309 LM00396 61737 TSX +0 07400 4 00007 61740 TXH +3 00000 0 57063 E'M 310 LM00397 61741 TSX +0 07400 4 00013 PRBIN BCD 05/12/69 2020.2 16186 00000 1 MAD PROGRAM LISTING ... ... ... FILE PRBIN MAD 02/24/69 2223.1 - PRBIN PRINT A FILE IN SPREAD OCTAL (BINARY). LM00001 LM00002 D. A. ANDERSON AND R. A. ROACH 02/24/69 LM00003 LM00004 USAGE: LM00005 LM00006 LM00007 PRBIN N1 N2 -START- -'THRU'/'TO'/'...' END- -NWORDS- LM00008 -DELTA- -BLOCKSIZE- -'OFF'/'OFFON'/'ONOFF'- -N3- -N4- LM00009 LM00010 LOADING INSTRUCTIONS: LM00011 LM00012 LAED NCLOAD PRBIN (SRCH) (SYS) XLIBE LM00013 SAVE PRBIN LM00014 LM00015 LM00016 NORMAL MODE IS INTEGER *001 LM00017 DIMENSION B0(0),B1(0),B2(0),B3(0),BON(50),BOFF(50) *002 LM00018 BOOLEAN STARTF,ENDF,LLF,DELTAF,TEMPF,OFF,ON,NEWON,NEWOFF,OCT *003 LM00019 BOOLEAN BLKSZF *004 LM00020 VECTOR VALUES STARTF = 0B *005 LM00021 VECTOR VALUES ENDF = 0B *006 LM00022 VECTOR VALUES LLF = 0B *007 LM00023 VECTOR VALUES DELTAF = 0B *008 LM00024 VECTOR VALUES BLKSZF = 0B *009 LM00025 VECTOR VALUES ON = 1B *010 LM00026 VECTOR VALUES OFF = 0B *011 LM00027 VECTOR VALUES NEWON = 1B *012 LM00028 VECTOR VALUES NEWOFF = 1B *013 LM00029 VECTOR VALUES OCT = 0B *014 LM00030 VECTOR VALUES FENCE = 777777777777K *015 LM00031 VECTOR VALUES MAXON = 25,19,25,19,19,19,19,19,25,16 *016 LM00032 VECTOR VALUES BL = 605757575757K *017 LM00033 VECTOR VALUES CR = 555757575757K *018 LM00034 EQUIVALENCE (BL,BOFF(49)) *019 LM00035 EQUIVALENCE (TEMP,TEMPF) *020 LM00036 VECTOR VALUES LM = 777777K6 *021 LM00037 VECTOR VALUES N4 = $ BIN$ *022 LM00038 VECTOR VALUES RECCNT = 432 *023 LM00039 VECTOR VALUES MAXOFF = 29 *024 LM00040 VECTOR VALUES ARGS1 = 3,$ TO$,$ THRU$,$ ...$ *025 LM00041 VECTOR VALUES ARGS2 = 6,$ O$,$ OFF$,$ (OFF)$,$ OFFON$,$ONOFF$, *026 LM00042 1 $ *$ *026 LM00043 LM00044 LM00045 PROCESS COMMAND BUFFER AND SET UP FLAGS LM00046 LM00047 N1 = COMARG.(1) *027 LM00048 WHENEVER N1 .E. FENCE .OR. N1 .E. $(HELP)$ *028 LM00049 HELP PRMESS. *029 LM00050 PRMESS.($ CORRECT USAGE IS:$) *030 LM00051 PRMESS. *031 LM00052 PRMESA.(COMARG.(0),$ N1 N2 -START- -'THRU'/'TO'/'...' $) *032 LM00053 PRMESS.($END- -NWORDS- -DELTA- -BLOCKSIZE-$) *033 LM00054 PRMESS.($ -'OFF'/'OFFON'/'ONOFF'- -N3- -N4-$) *034 LM00055 EXITM. *035 LM00056 END OF CONDITIONAL *036 LM00057 LM00058 WHENEVER COMARG.(2,N2) .E. FENCE *037 LM00059 TRANSFER TO HELP *038 LM00060 BADFMT PRMESS.($ILLEGAL ARGUMENT:$,TEMP) *039 LM00061 EXITM. *040 LM00062 END OF CONDITIONAL *041 LM00063 LM00064 J = 3 *042 LM00065 NUMBER.(START,STARTF,GO,OCT) *043 LM00066 WHENEVER COMARG.(J,TEMP) .E. FENCE, TRANSFER TO GO *044 LM00067 LOOPA THROUGH LOOPA, FOR K = 1,1,K.G.ARGS1 .OR. TEMP.E.ARGS1(K) *045 LM00068 WHENEVER K .LE. ARGS1 *046 LM00069 J = J+1 *047 LM00070 NUMBER.(END,ENDF,BADFMT,TEMPF) *048 LM00071 END OF CONDITIONAL *049 LM00072 NUMBER.(NON,LLF,GO,TEMPF) *050 LM00073 NUMBER.(DELTA,DELTAF,GO,TEMPF) *051 LM00074 NUMBER.(BLKSIZ,BLKSZF,GO,TEMPF) *052 LM00075 TEMPF = 0B *053 LM00076 NUMBER.(TEMP,TEMPF,GO,TEMPF) *054 LM00077 WHENEVER TEMPF, TRANSFER TO HELP *055 LM00078 LM00079 GO WHENEVER .NOT.STARTF, START = 1 *056 LM00080 WHENEVER START .E. 0, START = 1 *057 LM00081 WHENEVER .NOT.ENDF, END = 377777777777K *058 LM00082 WHENEVER .NOT.DELTAF, DELTA = 1 *059 LM00083 WHENEVER .NOT.BLKSZF, BLKSIZ = 1 *060 LM00084 LM00085 WHENEVER BLKSIZ .G. DELTA *061 LM00086 PRMESS.($BLOCK SIZE GREATER THAN DELTA.$) *062 LM00087 EXITM. *063 LM00088 END OF CONDITIONAL *064 LM00089 LM00090 WHOAMI.(BOFF(3)...4) *065 LM00091 CONSOL = BOFF.RS.30 *066 LM00092 WHENEVER CONSOL .G. 9, CONSOL = 0 *067 LM00093 GETTM.(DATE,TIME) *068 LM00094 WHENEVER LLF *069 LM00095 NOFF = NON *070 LM00096 OTHERWISE *071 LM00097 NON = (MAXON(CONSOL)-1)/3 *072 LM00098 NOFF = 9 *073 LM00099 END OF CONDITIONAL *074 LM00100 LM00101 GETBUF.(B0,432) *075 LM00102 FERRTN.(IOERR) *076 LM00103 SETBRK.(EXITM.) *077 LM00104 OPEN.($R$,N1,N2) *078 LM00105 LM00106 LM00107 WHENEVER ON *079 LM00108 PRMESS.(CR,N1,BL,N2,BL,BL,DATE,BL,TIME,CR) *080 LM00109 END OF CONDITIONAL *081 LM00110 LM00111 WHENEVER OFF *082 LM00112 GETBUF.(B1,432) *083 LM00113 GETBUF.(B2,432) *084 LM00114 GETBUF.(B3,432) *085 LM00115 BFOPEN.($W$,N3,N4,B1(B1+432),B2(B2+432),B3(B3+432),IOERR) *086 LM00116 LM00117 BOFF(48) = 777777000012K *087 LM00118 BOFF(47) = $1$ *088 LM00119 BOFF(46) = N1 *089 LM00120 BOFF(45) = BL *090 LM00121 BOFF(44) = BZ57.(N2) *091 LM00122 BOFF(43) = $ FOR$ *092 LM00123 BOFF(42) = BOFF(3) *093 LM00124 BOFF(41) = BZ57.(BOFF(2)) - 1K10 *094 LM00125 BOFF(40) = $$ *095 LM00126 BOFF(39) = DATE *096 LM00127 BOFF(38) = TIME *097 LM00128 BOFF(37) = 777777000001K *098 LM00129 BOFF(36) = BL *099 LM00130 BOFF(35) = 777777000001K *100 LM00131 BOFF(34) = BL *101 LM00132 LM00133 BFWRIT.(N3,N4,BOFF(48)...15,IOERR) *102 LM00134 END OF CONDITIONAL *103 LM00135 LM00136 THROUGH LOOP, FOR LOC1 = START,DELTA,LOC1.G.END *104 LM00137 WHENEVER BLKSZF *105 LM00138 WHENEVER ON.AND.ONCNT.G.1 *106 LM00139 PRMESS.(BON(1)...ONCNT) *107 LM00140 NEWON=1B *108 LM00141 ONCNT=1 *109 LM00142 END OF CONDITIONAL *110 LM00143 WHENEVER OFF.AND.OFFCNT.G.2 *111 LM00144 BOFF(50)=OFFCNT.V.LM *112 LM00145 MCOUNT=OFFCNT+1 *113 LM00146 BFWRIT.(N3,N4,BOFF(50)...MCOUNT,IOERR) *114 LM00147 NEWOFF=1B *115 LM00148 OFFCNT=2 *116 LM00149 END OF CONDITIONAL *117 LM00150 END OF CONDITIONAL *118 LM00151 THROUGH LOOP, FOR LOC=LOC1,1,LOC.E.LOC1+BLKSIZ *119 LM00152 TEMP = (LOC-1)/432 * 432 + 1 *120 LM00153 WHENEVER TEMP .NE. RELLOC *121 LM00154 RELLOC = TEMP *122 LM00155 RDWAIT.(N1,N2,RELLOC,B0(B0+432)...432,EOF,EOFCT) *123 LM00156 END OF CONDITIONAL *124 LM00157 BACK TEMP = LOC - RELLOC *125 LM00158 WHENEVER TEMP .G. RECCNT, TRANSFER TO FINALE *126 LM00159 WORD = B0(B0+432-TEMP) *127 LM00160 LM00161 LM00162 WHENEVER .NOT.ON, TRANSFER TO OVER1 *128 LM00163 WHENEVER NEWON *129 LM00164 WHENEVER .NOT. OCT *130 LM00165 BON(1) = BZEL.(DEFBC.(LOC)) *131 LM00166 OTHERWISE *132 LM00167 BON(1) = OCRBC.(LOC) *133 LM00168 END OF CONDITIONAL *134 LM00169 NEWON = 0B *135 LM00170 ONCNT = 1 *136 LM00171 ONWRDS = 0 *137 LM00172 END OF CONDITIONAL *138 LM00173 LM00174 BON(ONCNT+1) = BL *139 LM00175 BON(ONCNT+2) = OCLBC.(WORD) *140 LM00176 BON(ONCNT+3) = OCRBC.(WORD) *141 LM00177 ONCNT = ONCNT + 3 *142 LM00178 ONWRDS = ONWRDS + 1 *143 LM00179 LM00180 WHENEVER ONWRDS.GE.NON *144 LM00181 PRMESS.(BON(1)...ONCNT) *145 LM00182 NEWON = 1B *146 LM00183 ONCNT = 1 *147 LM00184 OR WHENEVER ONCNT .GE. MAXON(CONSOL) *148 LM00185 PRMESS.(BON(1)...ONCNT) *149 LM00186 BON(1) = $$ *150 LM00187 ONCNT = 1 *151 LM00188 END OF CONDITIONAL *152 LM00189 LM00190 OVER1 WHENEVER .NOT. OFF, TRANSFER TO LOOP *153 LM00191 WHENEVER NEWOFF *154 LM00192 WHENEVER .NOT. OCT *155 LM00193 BOFF(48) = BZEL.(DEFBC.(LOC)) *156 LM00194 OTHERWISE *157 LM00195 BOFF(48) = OCRBC.(LOC) *158 LM00196 END OF CONDITIONAL *159 LM00197 NEWOFF = 0B *160 LM00198 OFFCNT = 2 *161 LM00199 OFFWDS = 0 *162 LM00200 END OF CONDITIONAL *163 LM00201 LM00202 BOFF(50-OFFCNT-1) = BL *164 LM00203 BOFF(50-OFFCNT-2) = OCLBC.(WORD) *165 LM00204 BOFF(50-OFFCNT-3) = OCRBC.(WORD) *166 LM00205 OFFCNT = OFFCNT + 3 *167 LM00206 OFFWDS = OFFWDS + 1 *168 LM00207 LM00208 WHENEVER OFFWDS .GE. NOFF *169 LM00209 BOFF(50) = OFFCNT.V.LM *170 LM00210 MCOUNT = OFFCNT+1 *171 LM00211 BFWRIT.(N3,N4,BOFF(50)...MCOUNT,IOERR) *172 LM00212 NEWOFF = 1B *173 LM00213 OFFCNT = 2 *174 LM00214 OR WHENEVER OFFCNT .GE. MAXOFF *175 LM00215 BOFF(50) = OFFCNT.V.LM *176 LM00216 MCOUNT = OFFCNT+1 *177 LM00217 BFWRIT.(N3,N4,BOFF(50)...MCOUNT,IOERR) *178 LM00218 OFFCNT = 2 *179 LM00219 BOFF(48) = $$ *180 LM00220 END OF CONDITIONAL *181 LM00221 LOOP CONTINUE *182 LM00222 LM00223 LM00224 EOF RECCNT = EOFCT - 1 *183 LM00225 TRANSFER TO BACK *184 LM00226 LM00227 LM00228 IOERR PRDIAG. *185 LM00229 LM00230 LM00231 FINALE WHENEVER ON .AND. ONCNT.G.1, PRMESS.(BON(1)...ONCNT) *186 LM00232 WHENEVER OFF .AND. OFFCNT .G. 2 *187 LM00233 BOFF(50) = OFFCNT .V. LM *188 LM00234 MCOUNT = -OFFCNT-1 *189 LM00235 BFWRIT.(N3,N4,BOFF(50)...MCOUNT,IOERR) *190 LM00236 BFCLOS.(N3,N4,IOERR) *191 LM00237 END OF CONDITIONAL *192 LM00238 EXITM. *193 LM00239 LM00240 INTERNAL FUNCTION (A,B,C,D) *194 LM00241 STATEMENT LABEL C *195 LM00242 BOOLEAN B,D *196 LM00243 ENTRY TO NUMBER. *197 LM00244 LM00245 NUM WHENEVER COMARG.(J,TEMP).E.FENCE, TRANSFER TO C *198 LM00246 J = J+1 *199 LM00247 LOOPA2 THROUGH LOOPA2, FOR K = ARGS2,-1,K.E.0 .OR. TEMP.E.ARGS2(K) *200 LM00248 TRANSFER TO ARGT(K) *201 LM00249 LM00250 ARGT(0) WHENEVER ZEL.(TEMP) .A. $$ .NE. 0, TRANSFER TO BADFMT *202 LM00251 A = BCDEC.(TEMP) *203 LM00252 B = 1B *204 LM00253 ARGT(6) FUNCTION RETURN *205 LM00254 LM00255 ARGT(1) WHENEVER COMARG.(J,TEMP) .E. FENCE, TRANSFER TO BADFMT *206 LM00256 J = J + 1 *207 LM00257 WHENEVER ZEL.(TEMP).A.$YYYYYY$ .NE. 0, TRANSFER TO BADFMT *208 LM00258 A = BCOCT.(TEMP) *209 LM00259 D = 1B *210 LM00260 B = 1B *211 LM00261 FUNCTION RETURN *212 LM00262 LM00263 LM00264 'OFF' OR '(OFF)' LM00265 LM00266 ARGT(2) *213 LM00267 ARGT(3) ON = 0B *214 LM00268 LM00269 'OFFON' OR 'ONOFF' LM00270 LM00271 ARGT(4) *215 LM00272 ARGT(5) OFF = 1B *216 LM00273 WHENEVER COMARG.(J,N3) .E. FENCE *217 LM00274 N3 = N1 *218 LM00275 TRANSFER TO C *219 LM00276 END OF CONDITIONAL *220 LM00277 LM00278 J = J+2 *221 LM00279 WHENEVER COMARG.(J-1,N4) .NE. FENCE, TRANSFER TO NUM *222 LM00280 N4 = $ BIN$ *223 LM00281 TRANSFER TO C *224 LM00282 LM00283 END OF FUNCTION *225 LM00284 LM00285 END OF PROGRAM *226 LM00286 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01702 TRANSFER VECTOR LENGTH 00031 PROGRAM BEGINS 00410 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ARGS1 00143 A 1 BON 00243 A 1 HELP 00133 4 MCOUNT 00276 1 OFFWDS 00312 1 ARGS2 00152 A 1 CONSOL 00244 1 IOERR 00134 4 N1 00277 1 ONCNT 00313 1 ARGT 00125 A 4 CR 00245 A 1 J 00255 1 N2 00300 1 ON 00314 A 2 B0 00153 A 1 DATE 00246 1 K 00256 1 N3 00301 1 ONWRDS 00315 1 B1 00154 A 1 DELTAF 00247 A 2 LLF 00257 A 2 N4 00302 A 1 OVER1 00137 4 B2 00155 A 1 DELTA 00250 1 LM 00260 A 1 NEWOFF 00303 A 2 RECCNT 00316 A 1 B3 00156 A 1 ENDF 00251 A 2 LOC1 00261 1 NEWON 00304 A 2 RELLOC 00317 1 BACK 00126 4 END 00252 1 LOC 00262 1 NOFF 00305 1 STARTF 00320 A 2 BADFMT 00127 4 EOFCT 00253 1 LOOPA2 00032 4 NON 00306 1 START 00321 1 BLKSIZ 00157 1 EOF 00130 4 LOOPA 00032 4 NUM 00136 4 TEMPF 00116 2 BLKSZF 00160 A 2 FENCE 00254 A 1 LOOP 00135 4 OCT 00307 A 2 TEMP 00116 1 BL 00034 A 1 FINALE 00131 4 MAXOFF 00263 A 1 OFFCNT 00310 1 TIME 00322 1 BOFF 00115 A 1 GO 00132 4 MAXON 00275 A 1 OFF 00311 A 2 WORD 00323 1 0FUNCTION DICTIONARY BCDEC 00000 1 BCOCT 00001 1 BFCLOS 00002 1 BFOPEN 00003 1 BFWRIT 00004 1 BZ57 00005 1 BZEL 00006 1 COMARG 00007 1 DEFBC 00010 1 EXITM 00011 1 EXIT 00012 1 FERRTN 00013 1 GETBUF 00014 1 GETTM 00015 1 .SETUP 00016 1 OCLBC 00017 1 OCRBC 00020 1 OPEN 00021 1 PRDIAG 00022 1 PRMESA 00023 1 PRMESS 00024 1 RDWAIT 00025 1 SETBRK 00026 1 WHOAMI 00027 1 ZEL 00030 1 NUMBER 00031 1 0ABSOLUTE CONSTANTS 00373 -206060223145 00403 -307070707070 00334 +000000000062 00332 +000000000017 00406 -377777000001 00336 +010000000000 00372 -206026465160 00337 +016060606060 00407 -377777000012 00402 -266060606060 00367 -116060606060 00335 +000000000660 00331 +000000000011 00333 +000000000036 00330 +000000000004 00347 +242543632133 00375 -206330214560 00366 -112521632551 00400 -223171256027 00344 +224346234260 00353 +377777777777 00327 +000000000003 00361 -042545633560 00360 -036021512764 00352 +314343252721 00326 +000000000002 00362 -050440606060 00355 -004503406040 00365 -062626144060 00363 -051461144645 00376 -211446262646 00354 -001446262614 00374 -206060606060 00404 -312540606060 00357 -034623426231 00401 -232140604022 00356 -006040242543 00364 -056646512462 00350 +254524406040 00341 +143333331460 00377 -211463461461 00342 +146330516414 00343 +215163406040 00340 +026060406263 00371 -204501606045 00324 +000000000000 00351 +272560316235 00346 +236360646221 00370 -202346515125 00405 -343025434734 00325 +000000000001 00345 +233000000000 0STATEMENT DICTIONARY 00117 TXL -301562001561 00120 TXL -301621001617 00121 TXL -301617001617 00122 TXL -301617001615 00123 TXL -301615001615 00124 TXL -301570001562 00125 TXL -301554001542 00126 TXL -301161001156 00127 TXL -300476000471 00130 TXL -301445001442 00131 TXL -301457001447 00132 TXL -300604000600 00133 TXL -300423000422 00134 TXL -301447001446 00135 TXL -301442001440 00136 TXL -301517001511 00137 TXL -301307001304 0PROGRAM N'R 001 LM00017 D'N B0(0),B1(0),B2(0),B3(0),BON(50),BOFF(50) 002 LM00018 BOOLEAN STARTF,ENDF,LLF,DELTAF,TEMPF,OFF,ON,NEWON,NEWOFF,OCT 003 LM00019 BOOLEAN BLKSZF 004 LM00020 V'S STARTF = 0B 005 LM00021 00410 TSX +0 07400 4 00016 00320 +0 00000 0 00000 V'S ENDF = 0B 006 LM00022 00251 +0 00000 0 00000 V'S LLF = 0B 007 LM00023 00257 +0 00000 0 00000 V'S DELTAF = 0B 008 LM00024 00247 +0 00000 0 00000 V'S BLKSZF = 0B 009 LM00025 00160 +0 00000 0 00000 V'S ON = 1B 010 LM00026 00314 +0 00000 0 00001 V'S OFF = 0B 011 LM00027 00311 +0 00000 0 00000 V'S NEWON = 1B 012 LM00028 00304 +0 00000 0 00001 V'S NEWOFF = 1B 013 LM00029 00303 +0 00000 0 00001 V'S OCT = 0B 014 LM00030 00307 +0 00000 0 00000 V'S FENCE = 777777777777K 015 LM00031 00254 -3 77777 7 77777 V'S MAXON = 25,19,25,19,19,19,19,19,25,16 016 LM00032 00264 +0 00000 0 00020 00265 +0 00000 0 00031 00266 +0 00000 0 00023 00267 +0 00000 0 00023 00270 +0 00000 0 00023 00271 +0 00000 0 00023 00272 +0 00000 0 00023 00273 +0 00000 0 00031 00274 +0 00000 0 00023 00275 +0 00000 0 00031 V'S BL = 605757575757K 017 LM00033 00034 -2 05757 5 75757 V'S CR = 555757575757K 018 LM00034 00245 -1 55757 5 75757 E'E (BL,BOFF(49)) 019 LM00035 E'E (TEMP,TEMPF) 020 LM00036 V'S LM = 777777K6 021 LM00037 00260 -3 77777 0 00000 V'S N4 = $ BIN$ 022 LM00038 00302 -2 06060 2 23145 V'S RECCNT = 432 023 LM00039 00316 +0 00000 0 00660 V'S MAXOFF = 29 024 LM00040 00263 +0 00000 0 00035 V'S ARGS1 = 3,$ TO$,$ THRU$,$ ...$ 025 LM00041 00140 -2 06060 3 33333 00141 -2 06063 3 05164 00142 -2 06060 6 06346 00143 +0 00000 0 00003 V'S ARGS2 = 6,$ O$,$ OFF$,$ (OFF)$,$ OFFON$,$ONOFF$, 026 LM00042 1 $ *$ 026 LM00043 00144 -2 06060 6 06054 00145 -0 64546 2 62660 00146 -2 04626 2 64645 00147 -2 07446 2 62634 00150 -2 06060 4 62626 00151 -2 06060 6 06046 00152 +0 00000 0 00006 N1 = COMARG.(1) 027 LM00048 00411 TSX +0 07400 4 00007 00412 TXH +3 00000 0 00325 00413 STO +0 60100 0 00277 W'R N1 .E. FENCE .OR. N1 .E. $(HELP)$ 028 LM00049 00414 CLA +0 50000 0 00277 00415 SUB +0 40200 0 00405 00416 TZE +0 10000 0 00422 00417 CLA +0 50000 0 00277 00420 SUB +0 40200 0 00254 00421 TNZ -0 10000 0 00463 HELP PRMESS. 029 LM00050 00422 TSX +0 07400 4 00024 PRMESS.($ CORRECT USAGE IS:$) 030 LM00051 00423 TSX +0 07400 4 00024 00424 TXH +3 00000 0 00370 00425 TXH +3 00000 0 00346 00426 TXH +3 00000 0 00351 PRMESS. 031 LM00052 00427 TSX +0 07400 4 00024 PRMESA.(COMARG.(0),$ N1 N2 -START- -'THRU'/'TO'/'...' $) 032 LM00053 00430 TSX +0 07400 4 00007 00431 TXH +3 00000 0 00324 00432 STO +0 60100 0 01677 00433 TSX +0 07400 4 00023 00434 TXH +3 00000 0 01677 00435 TXH +3 00000 0 00371 00436 TXH +3 00000 0 00340 00437 TXH +3 00000 0 00343 00440 TXH +3 00000 0 00342 00441 TXH +3 00000 0 00377 00442 TXH +3 00000 0 00341 PRMESS.($END- -NWORDS- -DELTA- -BLOCKSIZE-$) 033 LM00054 00443 TSX +0 07400 4 00024 00444 TXH +3 00000 0 00350 00445 TXH +3 00000 0 00364 00446 TXH +3 00000 0 00356 00447 TXH +3 00000 0 00401 00450 TXH +3 00000 0 00357 00451 TXH +3 00000 0 00404 PRMESS.($ -'OFF'/'OFFON'/'ONOFF'- -N3- -N4-$) 034 LM00055 00452 TSX +0 07400 4 00024 00453 TXH +3 00000 0 00374 00454 TXH +3 00000 0 00354 00455 TXH +3 00000 0 00376 00456 TXH +3 00000 0 00363 00457 TXH +3 00000 0 00365 00460 TXH +3 00000 0 00355 00461 TXH +3 00000 0 00362 EXITM. 035 LM00056 00462 TSX +0 07400 4 00011 E'L 036 LM00057 W'R COMARG.(2,N2) .E. FENCE 037 LM00059 00463 TSX +0 07400 4 00007 00464 TXH +3 00000 0 00326 00465 TXH +3 00000 0 00300 00466 SUB +0 40200 0 00254 00467 TNZ -0 10000 0 00477 T'O HELP 038 LM00060 00470 TRA +0 02000 0 00133 BADFMT PRMESS.($ILLEGAL ARGUMENT:$,TEMP) 039 LM00061 00471 TSX +0 07400 4 00024 00472 TXH +3 00000 0 00352 00473 TXH +3 00000 0 00360 00474 TXH +3 00000 0 00361 00475 TXH +3 00000 0 00116 EXITM. 040 LM00062 00476 TSX +0 07400 4 00011 E'L 041 LM00063 J = 3 042 LM00065 00477 CLA +0 50000 0 00327 00500 STO +0 60100 0 00255 NUMBER.(START,STARTF,GO,OCT) 043 LM00066 00501 TSX +0 07400 4 00031 00502 TXH +3 00000 0 00321 00503 TXH +3 00000 0 00320 00504 TXH +3 00000 0 00132 00505 TXH +3 00000 0 00307 W'R COMARG.(J,TEMP) .E. FENCE, T'O GO 044 LM00067 00506 TSX +0 07400 4 00007 00507 TXH +3 00000 0 00255 00510 TXH +3 00000 0 00116 00511 SUB +0 40200 0 00254 00512 TNZ -0 10000 0 00514 00513 TRA +0 02000 0 00132 LOOPA T'H LOOPA, FOR K = 1,1,K.G.ARGS1 .OR. TEMP.E.ARGS1(K) 045 LM00068 00514 CLA +0 50000 0 00325 00515 STO +0 60100 0 00256 00516 TRA +0 02000 0 00522 00517 CLA +0 50000 0 00256 00520 ADD +0 40000 0 00325 00521 STO +0 60100 0 00256 00522 LXA +0 53400 2 00256 00523 CLA +0 50000 0 00116 00524 SUB +0 40200 2 00143 00525 TZE +0 10000 0 00533 00526 CLA +0 50000 0 00256 00527 SUB +0 40200 0 00143 00530 TZE +0 10000 0 00532 00531 TPL +0 12000 0 00533 00532 TRA +0 02000 0 00517 W'R K .LE. ARGS1 046 LM00069 00533 CLA +0 50000 0 00256 00534 SUB +0 40200 0 00143 00535 TZE +0 10000 0 00537 00536 TPL +0 12000 0 00547 J = J+1 047 LM00070 00537 CLA +0 50000 0 00255 00540 ADD +0 40000 0 00325 00541 STO +0 60100 0 00255 NUMBER.(END,ENDF,BADFMT,TEMPF) 048 LM00071 00542 TSX +0 07400 4 00031 00543 TXH +3 00000 0 00252 00544 TXH +3 00000 0 00251 00545 TXH +3 00000 0 00127 00546 TXH +3 00000 0 00116 E'L 049 LM00072 NUMBER.(NON,LLF,GO,TEMPF) 050 LM00073 00547 TSX +0 07400 4 00031 00550 TXH +3 00000 0 00306 00551 TXH +3 00000 0 00257 00552 TXH +3 00000 0 00132 00553 TXH +3 00000 0 00116 NUMBER.(DELTA,DELTAF,GO,TEMPF) 051 LM00074 00554 TSX +0 07400 4 00031 00555 TXH +3 00000 0 00250 00556 TXH +3 00000 0 00247 00557 TXH +3 00000 0 00132 00560 TXH +3 00000 0 00116 NUMBER.(BLKSIZ,BLKSZF,GO,TEMPF) 052 LM00075 00561 TSX +0 07400 4 00031 00562 TXH +3 00000 0 00157 00563 TXH +3 00000 0 00160 00564 TXH +3 00000 0 00132 00565 TXH +3 00000 0 00116 TEMPF = 0B 053 LM00076 00566 CLA +0 50000 0 00324 00567 STO +0 60100 0 00116 NUMBER.(TEMP,TEMPF,GO,TEMPF) 054 LM00077 00570 TSX +0 07400 4 00031 00571 TXH +3 00000 0 00116 00572 TXH +3 00000 0 00116 00573 TXH +3 00000 0 00132 00574 TXH +3 00000 0 00116 W'R TEMPF, T'O HELP 055 LM00078 00575 NZT -0 52000 0 00116 00576 TRA +0 02000 0 00600 00577 TRA +0 02000 0 00133 GO W'R .NOT.STARTF, START = 1 056 LM00080 00600 ZET +0 52000 0 00320 00601 TRA +0 02000 0 00604 00602 CLA +0 50000 0 00325 00603 STO +0 60100 0 00321 W'R START .E. 0, START = 1 057 LM00081 00604 CLA +0 50000 0 00321 00605 SUB +0 40200 0 00324 00606 TNZ -0 10000 0 00611 00607 CLA +0 50000 0 00325 00610 STO +0 60100 0 00321 W'R .NOT.ENDF, END = 377777777777K 058 LM00082 00611 ZET +0 52000 0 00251 00612 TRA +0 02000 0 00615 00613 CLA +0 50000 0 00353 00614 STO +0 60100 0 00252 W'R .NOT.DELTAF, DELTA = 1 059 LM00083 00615 ZET +0 52000 0 00247 00616 TRA +0 02000 0 00621 00617 CLA +0 50000 0 00325 00620 STO +0 60100 0 00250 W'R .NOT.BLKSZF, BLKSIZ = 1 060 LM00084 00621 ZET +0 52000 0 00160 00622 TRA +0 02000 0 00625 00623 CLA +0 50000 0 00325 00624 STO +0 60100 0 00157 W'R BLKSIZ .G. DELTA 061 LM00086 00625 CLA +0 50000 0 00157 00626 SUB +0 40200 0 00250 00627 TZE +0 10000 0 00640 00630 TMI -0 12000 0 00640 PRMESS.($BLOCK SIZE GREATER THAN DELTA.$) 062 LM00087 00631 TSX +0 07400 4 00024 00632 TXH +3 00000 0 00344 00633 TXH +3 00000 0 00400 00634 TXH +3 00000 0 00366 00635 TXH +3 00000 0 00375 00636 TXH +3 00000 0 00347 EXITM. 063 LM00088 00637 TSX +0 07400 4 00011 E'L 064 LM00089 WHOAMI.(BOFF(3)...4) 065 LM00091 00640 TSX +0 07400 4 00027 00641 TIX +2 00330 0 00112 CONSOL = BOFF.RS.30 066 LM00092 00642 CAL -0 50000 0 00333 00643 STA +0 62100 0 00645 00644 CAL -0 50000 0 00115 00645 LGR -0 76500 0 00000 00646 SLW +0 60200 0 00244 W'R CONSOL .G. 9, CONSOL = 0 067 LM00093 00647 CLA +0 50000 0 00244 00650 SUB +0 40200 0 00331 00651 TZE +0 10000 0 00655 00652 TMI -0 12000 0 00655 00653 CLA +0 50000 0 00324 00654 STO +0 60100 0 00244 GETTM.(DATE,TIME) 068 LM00094 00655 TSX +0 07400 4 00015 00656 TXH +3 00000 0 00246 00657 TXH +3 00000 0 00322 W'R LLF 069 LM00095 00660 NZT -0 52000 0 00257 00661 TRA +0 02000 0 00665 NOFF = NON 070 LM00096 00662 CLA +0 50000 0 00306 00663 STO +0 60100 0 00305 O'E 071 LM00097 00664 TRA +0 02000 0 00675 NON = (MAXON(CONSOL)-1)/3 072 LM00098 00665 LXA +0 53400 1 00244 00666 CLA +0 50000 1 00275 00667 SUB +0 40200 0 00325 00670 LRS +0 76500 0 00043 00671 DVP +0 22100 0 00327 00672 STQ -0 60000 0 00306 NOFF = 9 073 LM00099 00673 CLA +0 50000 0 00331 00674 STO +0 60100 0 00305 E'L 074 LM00100 GETBUF.(B0,432) 075 LM00102 00675 TSX +0 07400 4 00014 00676 TXH +3 00000 0 00153 00677 TXH +3 00000 0 00335 FERRTN.(IOERR) 076 LM00103 00700 TSX +0 07400 4 00013 00701 TXH +3 00000 0 00134 SETBRK.(EXITM.) 077 LM00104 00702 TSX +0 07400 4 00026 00703 TXH +3 00000 0 00011 OPEN.($R$,N1,N2) 078 LM00105 00704 TSX +0 07400 4 00021 00705 TXH +3 00000 0 00367 00706 TXH +3 00000 0 00277 00707 TXH +3 00000 0 00300 W'R ON 079 LM00108 00710 NZT -0 52000 0 00314 00711 TRA +0 02000 0 00725 PRMESS.(CR,N1,BL,N2,BL,BL,DATE,BL,TIME,CR) 080 LM00109 00712 TSX +0 07400 4 00024 00713 TXH +3 00000 0 00245 00714 TXH +3 00000 0 00277 00715 TXH +3 00000 0 00034 00716 TXH +3 00000 0 00300 00717 TXH +3 00000 0 00034 00720 TXH +3 00000 0 00034 00721 TXH +3 00000 0 00246 00722 TXH +3 00000 0 00034 00723 TXH +3 00000 0 00322 00724 TXH +3 00000 0 00245 E'L 081 LM00110 W'R OFF 082 LM00112 00725 NZT -0 52000 0 00311 00726 TRA +0 02000 0 01035 GETBUF.(B1,432) 083 LM00113 00727 TSX +0 07400 4 00014 00730 TXH +3 00000 0 00154 00731 TXH +3 00000 0 00335 GETBUF.(B2,432) 084 LM00114 00732 TSX +0 07400 4 00014 00733 TXH +3 00000 0 00155 00734 TXH +3 00000 0 00335 GETBUF.(B3,432) 085 LM00115 00735 TSX +0 07400 4 00014 00736 TXH +3 00000 0 00156 00737 TXH +3 00000 0 00335 BFOPEN.($W$,N3,N4,B1(B1+432),B2(B2+432),B3(B3+432),IOERR) 086 LM00116 00740 CLA +0 50000 0 00156 00741 ADD +0 40000 0 00335 00742 SUB +0 40200 0 00743 00743 TXH +3 00000 0 00156 00744 STA +0 62100 0 00765 00745 CLA +0 50000 0 00155 00746 ADD +0 40000 0 00335 00747 SUB +0 40200 0 00750 00750 TXH +3 00000 0 00155 00751 STA +0 62100 0 00764 00752 CLA +0 50000 0 00154 00753 ADD +0 40000 0 00335 00754 SUB +0 40200 0 00755 00755 TXH +3 00000 0 00154 00756 STA +0 62100 0 00763 00757 TSX +0 07400 4 00003 00760 TXH +3 00000 0 00402 00761 TXH +3 00000 0 00301 00762 TXH +3 00000 0 00302 00763 TXH +3 00000 0 00000 00764 TXH +3 00000 0 00000 00765 TXH +3 00000 0 00000 00766 TXH +3 00000 0 00134 BOFF(48) = 777777000012K 087 LM00118 00767 CLA +0 50000 0 00407 00770 STO +0 60100 0 00035 BOFF(47) = $1$ 088 LM00119 00771 CLA +0 50000 0 00337 00772 STO +0 60100 0 00036 BOFF(46) = N1 089 LM00120 00773 CLA +0 50000 0 00277 00774 STO +0 60100 0 00037 BOFF(45) = BL 090 LM00121 00775 CLA +0 50000 0 00034 00776 STO +0 60100 0 00040 BOFF(44) = BZ57.(N2) 091 LM00122 00777 TSX +0 07400 4 00005 01000 TXH +3 00000 0 00300 01001 STO +0 60100 0 00041 BOFF(43) = $ FOR$ 092 LM00123 01002 CLA +0 50000 0 00372 01003 STO +0 60100 0 00042 BOFF(42) = BOFF(3) 093 LM00124 01004 CLA +0 50000 0 00112 01005 STO +0 60100 0 00043 BOFF(41) = BZ57.(BOFF(2)) - 1K10 094 LM00125 01006 TSX +0 07400 4 00005 01007 TXH +3 00000 0 00113 01010 SUB +0 40200 0 00336 01011 STO +0 60100 0 00044 BOFF(40) = $$ 095 LM00126 01012 CLA +0 50000 0 00374 01013 STO +0 60100 0 00045 BOFF(39) = DATE 096 LM00127 01014 CLA +0 50000 0 00246 01015 STO +0 60100 0 00046 BOFF(38) = TIME 097 LM00128 01016 CLA +0 50000 0 00322 01017 STO +0 60100 0 00047 BOFF(37) = 777777000001K 098 LM00129 01020 CLA +0 50000 0 00406 01021 STO +0 60100 0 00050 BOFF(36) = BL 099 LM00130 01022 CLA +0 50000 0 00034 01023 STO +0 60100 0 00051 BOFF(35) = 777777000001K 100 LM00131 01024 CLA +0 50000 0 00406 01025 STO +0 60100 0 00052 BOFF(34) = BL 101 LM00132 01026 CLA +0 50000 0 00034 01027 STO +0 60100 0 00053 BFWRIT.(N3,N4,BOFF(48)...15,IOERR) 102 LM00134 01030 TSX +0 07400 4 00004 01031 TXH +3 00000 0 00301 01032 TXH +3 00000 0 00302 01033 TIX +2 00332 0 00035 01034 TXH +3 00000 0 00134 E'L 103 LM00135 T'H LOOP, FOR LOC1 = START,DELTA,LOC1.G.END 104 LM00137 01035 CLA +0 50000 0 00321 01036 STO +0 60100 0 00261 01037 TRA +0 02000 0 01043 01040 CLA +0 50000 0 00261 01041 ADD +0 40000 0 00250 01042 STO +0 60100 0 00261 01043 CLA +0 50000 0 00261 01044 SUB +0 40200 0 00252 01045 TZE +0 10000 0 01047 01046 TPL +0 12000 0 01442 W'R BLKSZF 105 LM00138 01047 NZT -0 52000 0 00160 01050 TRA +0 02000 0 01112 W'R ON.AND.ONCNT.G.1 106 LM00139 01051 CLA +0 50000 0 00313 01052 SUB +0 40200 0 00325 01053 TZE +0 10000 0 01065 01054 TMI -0 12000 0 01065 01055 NZT -0 52000 0 00314 01056 TRA +0 02000 0 01065 PRMESS.(BON(1)...ONCNT) 107 LM00140 01057 TSX +0 07400 4 00024 01060 TIX +2 00313 0 00242 NEWON=1B 108 LM00141 01061 CLA +0 50000 0 00325 01062 STO +0 60100 0 00304 ONCNT=1 109 LM00142 01063 CLA +0 50000 0 00325 01064 STO +0 60100 0 00313 E'L 110 LM00143 W'R OFF.AND.OFFCNT.G.2 111 LM00144 01065 CLA +0 50000 0 00310 01066 SUB +0 40200 0 00326 01067 TZE +0 10000 0 01112 01070 TMI -0 12000 0 01112 01071 NZT -0 52000 0 00311 01072 TRA +0 02000 0 01112 BOFF(50)=OFFCNT.V.LM 112 LM00145 01073 CAL -0 50000 0 00310 01074 ORA -0 50100 0 00260 01075 SLW +0 60200 0 00033 MCOUNT=OFFCNT+1 113 LM00146 01076 CLA +0 50000 0 00310 01077 ADD +0 40000 0 00325 01100 STO +0 60100 0 00276 BFWRIT.(N3,N4,BOFF(50)...MCOUNT,IOERR) 114 LM00147 01101 TSX +0 07400 4 00004 01102 TXH +3 00000 0 00301 01103 TXH +3 00000 0 00302 01104 TIX +2 00276 0 00033 01105 TXH +3 00000 0 00134 NEWOFF=1B 115 LM00148 01106 CLA +0 50000 0 00325 01107 STO +0 60100 0 00303 OFFCNT=2 116 LM00149 01110 CLA +0 50000 0 00326 01111 STO +0 60100 0 00310 E'L 117 LM00150 E'L 118 LM00151 T'H LOOP, FOR LOC=LOC1,1,LOC.E.LOC1+BLKSIZ 119 LM00152 01112 CLA +0 50000 0 00261 01113 STO +0 60100 0 00262 01114 TRA +0 02000 0 01120 01115 CLA +0 50000 0 00262 01116 ADD +0 40000 0 00325 01117 STO +0 60100 0 00262 01120 CLA +0 50000 0 00261 01121 ADD +0 40000 0 00157 01122 CHS +0 76000 0 00002 01123 ADD +0 40000 0 00262 01124 TZE +0 10000 0 01441 TEMP = (LOC-1)/432 * 432 + 1 120 LM00153 01125 CLA +0 50000 0 00262 01126 SUB +0 40200 0 00325 01127 LRS +0 76500 0 00043 01130 DVP +0 22100 0 00335 01131 MPY +0 20000 0 00335 01132 XCA +0 13100 0 00000 01133 ADD +0 40000 0 00325 01134 STO +0 60100 0 00116 W'R TEMP .NE. RELLOC 121 LM00154 01135 CLA +0 50000 0 00116 01136 SUB +0 40200 0 00317 01137 TZE +0 10000 0 01156 RELLOC = TEMP 122 LM00155 01140 CLA +0 50000 0 00116 01141 STO +0 60100 0 00317 RDWAIT.(N1,N2,RELLOC,B0(B0+432)...432,EOF,EOFCT) 123 LM00156 01142 CLA +0 50000 0 00153 01143 ADD +0 40000 0 00335 01144 SUB +0 40200 0 01145 01145 TXH +3 00000 0 00153 01146 STA +0 62100 0 01153 01147 TSX +0 07400 4 00025 01150 TXH +3 00000 0 00277 01151 TXH +3 00000 0 00300 01152 TXH +3 00000 0 00317 01153 TIX +2 00335 0 00000 01154 TXH +3 00000 0 00130 01155 TXH +3 00000 0 00253 E'L 124 LM00157 BACK TEMP = LOC - RELLOC 125 LM00158 01156 CLA +0 50000 0 00262 01157 SUB +0 40200 0 00317 01160 STO +0 60100 0 00116 W'R TEMP .G. RECCNT, T'O FINALE 126 LM00159 01161 CLA +0 50000 0 00116 01162 SUB +0 40200 0 00316 01163 TZE +0 10000 0 01166 01164 TMI -0 12000 0 01166 01165 TRA +0 02000 0 00131 WORD = B0(B0+432-TEMP) 127 LM00160 01166 CLA +0 50000 0 00153 01167 ADD +0 40000 0 00335 01170 SUB +0 40200 0 00116 01171 PAX +0 73400 2 00000 01172 CLA +0 50000 2 00153 01173 STO +0 60100 0 00323 W'R .NOT.ON, T'O OVER1 128 LM00163 01174 ZET +0 52000 0 00314 01175 TRA +0 02000 0 01177 01176 TRA +0 02000 0 00137 W'R NEWON 129 LM00164 01177 NZT -0 52000 0 00304 01200 TRA +0 02000 0 01223 W'R .NOT. OCT 130 LM00165 01201 ZET +0 52000 0 00307 01202 TRA +0 02000 0 01212 BON(1) = BZEL.(DEFBC.(LOC)) 131 LM00166 01203 TSX +0 07400 4 00010 01204 TXH +3 00000 0 00262 01205 STO +0 60100 0 01677 01206 TSX +0 07400 4 00006 01207 TXH +3 00000 0 01677 01210 STO +0 60100 0 00242 O'E 132 LM00167 01211 TRA +0 02000 0 01215 BON(1) = OCRBC.(LOC) 133 LM00168 01212 TSX +0 07400 4 00020 01213 TXH +3 00000 0 00262 01214 STO +0 60100 0 00242 E'L 134 LM00169 NEWON = 0B 135 LM00170 01215 CLA +0 50000 0 00324 01216 STO +0 60100 0 00304 ONCNT = 1 136 LM00171 01217 CLA +0 50000 0 00325 01220 STO +0 60100 0 00313 ONWRDS = 0 137 LM00172 01221 CLA +0 50000 0 00324 01222 STO +0 60100 0 00315 E'L 138 LM00173 BON(ONCNT+1) = BL 139 LM00175 01223 CLA +0 50000 0 00313 01224 ADD +0 40000 0 00325 01225 PAX +0 73400 1 00000 01226 CLA +0 50000 0 00034 01227 STO +0 60100 1 00243 BON(ONCNT+2) = OCLBC.(WORD) 140 LM00176 01230 TSX +0 07400 4 00017 01231 TXH +3 00000 0 00323 01232 STO +0 60100 0 01677 01233 CLA +0 50000 0 00313 01234 ADD +0 40000 0 00326 01235 PAX +0 73400 1 00000 01236 CLA +0 50000 0 01677 01237 STO +0 60100 1 00243 BON(ONCNT+3) = OCRBC.(WORD) 141 LM00177 01240 TSX +0 07400 4 00020 01241 TXH +3 00000 0 00323 01242 STO +0 60100 0 01677 01243 CLA +0 50000 0 00313 01244 ADD +0 40000 0 00327 01245 PAX +0 73400 1 00000 01246 CLA +0 50000 0 01677 01247 STO +0 60100 1 00243 ONCNT = ONCNT + 3 142 LM00178 01250 CLA +0 50000 0 00313 01251 ADD +0 40000 0 00327 01252 STO +0 60100 0 00313 ONWRDS = ONWRDS + 1 143 LM00179 01253 CLA +0 50000 0 00315 01254 ADD +0 40000 0 00325 01255 STO +0 60100 0 00315 W'R ONWRDS.GE.NON 144 LM00181 01256 CLA +0 50000 0 00315 01257 SUB +0 40200 0 00306 01260 TZE +0 10000 0 01262 01261 TMI -0 12000 0 01271 PRMESS.(BON(1)...ONCNT) 145 LM00182 01262 TSX +0 07400 4 00024 01263 TIX +2 00313 0 00242 NEWON = 1B 146 LM00183 01264 CLA +0 50000 0 00325 01265 STO +0 60100 0 00304 ONCNT = 1 147 LM00184 01266 CLA +0 50000 0 00325 01267 STO +0 60100 0 00313 O'R ONCNT .GE. MAXON(CONSOL) 148 LM00185 01270 TRA +0 02000 0 01304 01271 LXA +0 53400 2 00244 01272 CLA +0 50000 0 00313 01273 SUB +0 40200 2 00275 01274 TZE +0 10000 0 01276 01275 TMI -0 12000 0 01304 PRMESS.(BON(1)...ONCNT) 149 LM00186 01276 TSX +0 07400 4 00024 01277 TIX +2 00313 0 00242 BON(1) = $$ 150 LM00187 01300 CLA +0 50000 0 00374 01301 STO +0 60100 0 00242 ONCNT = 1 151 LM00188 01302 CLA +0 50000 0 00325 01303 STO +0 60100 0 00313 E'L 152 LM00189 OVER1 W'R .NOT. OFF, T'O LOOP 153 LM00191 01304 ZET +0 52000 0 00311 01305 TRA +0 02000 0 01307 01306 TRA +0 02000 0 00135 W'R NEWOFF 154 LM00192 01307 NZT -0 52000 0 00303 01310 TRA +0 02000 0 01333 W'R .NOT. OCT 155 LM00193 01311 ZET +0 52000 0 00307 01312 TRA +0 02000 0 01322 BOFF(48) = BZEL.(DEFBC.(LOC)) 156 LM00194 01313 TSX +0 07400 4 00010 01314 TXH +3 00000 0 00262 01315 STO +0 60100 0 01677 01316 TSX +0 07400 4 00006 01317 TXH +3 00000 0 01677 01320 STO +0 60100 0 00035 O'E 157 LM00195 01321 TRA +0 02000 0 01325 BOFF(48) = OCRBC.(LOC) 158 LM00196 01322 TSX +0 07400 4 00020 01323 TXH +3 00000 0 00262 01324 STO +0 60100 0 00035 E'L 159 LM00197 NEWOFF = 0B 160 LM00198 01325 CLA +0 50000 0 00324 01326 STO +0 60100 0 00303 OFFCNT = 2 161 LM00199 01327 CLA +0 50000 0 00326 01330 STO +0 60100 0 00310 OFFWDS = 0 162 LM00200 01331 CLA +0 50000 0 00324 01332 STO +0 60100 0 00312 E'L 163 LM00201 BOFF(50-OFFCNT-1) = BL 164 LM00203 01333 CLA +0 50000 0 00334 01334 SUB +0 40200 0 00310 01335 SUB +0 40200 0 00325 01336 PAX +0 73400 1 00000 01337 CLA +0 50000 0 00034 01340 STO +0 60100 1 00115 BOFF(50-OFFCNT-2) = OCLBC.(WORD) 165 LM00204 01341 TSX +0 07400 4 00017 01342 TXH +3 00000 0 00323 01343 STO +0 60100 0 01677 01344 CLA +0 50000 0 00334 01345 SUB +0 40200 0 00310 01346 SUB +0 40200 0 00326 01347 PAX +0 73400 1 00000 01350 CLA +0 50000 0 01677 01351 STO +0 60100 1 00115 BOFF(50-OFFCNT-3) = OCRBC.(WORD) 166 LM00205 01352 TSX +0 07400 4 00020 01353 TXH +3 00000 0 00323 01354 STO +0 60100 0 01677 01355 CLA +0 50000 0 00334 01356 SUB +0 40200 0 00310 01357 SUB +0 40200 0 00327 01360 PAX +0 73400 1 00000 01361 CLA +0 50000 0 01677 01362 STO +0 60100 1 00115 OFFCNT = OFFCNT + 3 167 LM00206 01363 CLA +0 50000 0 00310 01364 ADD +0 40000 0 00327 01365 STO +0 60100 0 00310 OFFWDS = OFFWDS + 1 168 LM00207 01366 CLA +0 50000 0 00312 01367 ADD +0 40000 0 00325 01370 STO +0 60100 0 00312 W'R OFFWDS .GE. NOFF 169 LM00209 01371 CLA +0 50000 0 00312 01372 SUB +0 40200 0 00305 01373 TZE +0 10000 0 01375 01374 TMI -0 12000 0 01415 BOFF(50) = OFFCNT.V.LM 170 LM00210 01375 CAL -0 50000 0 00310 01376 ORA -0 50100 0 00260 01377 SLW +0 60200 0 00033 MCOUNT = OFFCNT+1 171 LM00211 01400 CLA +0 50000 0 00310 01401 ADD +0 40000 0 00325 01402 STO +0 60100 0 00276 BFWRIT.(N3,N4,BOFF(50)...MCOUNT,IOERR) 172 LM00212 01403 TSX +0 07400 4 00004 01404 TXH +3 00000 0 00301 01405 TXH +3 00000 0 00302 01406 TIX +2 00276 0 00033 01407 TXH +3 00000 0 00134 NEWOFF = 1B 173 LM00213 01410 CLA +0 50000 0 00325 01411 STO +0 60100 0 00303 OFFCNT = 2 174 LM00214 01412 CLA +0 50000 0 00326 01413 STO +0 60100 0 00310 O'R OFFCNT .GE. MAXOFF 175 LM00215 01414 TRA +0 02000 0 01440 01415 CLA +0 50000 0 00310 01416 SUB +0 40200 0 00263 01417 TZE +0 10000 0 01421 01420 TMI -0 12000 0 01440 BOFF(50) = OFFCNT.V.LM 176 LM00216 01421 CAL -0 50000 0 00310 01422 ORA -0 50100 0 00260 01423 SLW +0 60200 0 00033 MCOUNT = OFFCNT+1 177 LM00217 01424 CLA +0 50000 0 00310 01425 ADD +0 40000 0 00325 01426 STO +0 60100 0 00276 BFWRIT.(N3,N4,BOFF(50)...MCOUNT,IOERR) 178 LM00218 01427 TSX +0 07400 4 00004 01430 TXH +3 00000 0 00301 01431 TXH +3 00000 0 00302 01432 TIX +2 00276 0 00033 01433 TXH +3 00000 0 00134 OFFCNT = 2 179 LM00219 01434 CLA +0 50000 0 00326 01435 STO +0 60100 0 00310 BOFF(48) = $$ 180 LM00220 01436 CLA +0 50000 0 00374 01437 STO +0 60100 0 00035 E'L 181 LM00221 LOOP CONTINUE 182 LM00222 01440 TRA +0 02000 0 01115 01441 TRA +0 02000 0 01040 EOF RECCNT = EOFCT - 1 183 LM00225 01442 CLA +0 50000 0 00253 01443 SUB +0 40200 0 00325 01444 STO +0 60100 0 00316 T'O BACK 184 LM00226 01445 TRA +0 02000 0 00126 IOERR PRDIAG. 185 LM00229 01446 TSX +0 07400 4 00022 FINALE W'R ON .AND. ONCNT.G.1, PRMESS.(BON(1)...ONCNT) 186 LM00232 01447 CLA +0 50000 0 00313 01450 SUB +0 40200 0 00325 01451 TZE +0 10000 0 01457 01452 TMI -0 12000 0 01457 01453 NZT -0 52000 0 00314 01454 TRA +0 02000 0 01457 01455 TSX +0 07400 4 00024 01456 TIX +2 00313 0 00242 W'R OFF .AND. OFFCNT .G. 2 187 LM00233 01457 CLA +0 50000 0 00310 01460 SUB +0 40200 0 00326 01461 TZE +0 10000 0 01504 01462 TMI -0 12000 0 01504 01463 NZT -0 52000 0 00311 01464 TRA +0 02000 0 01504 BOFF(50) = OFFCNT .V. LM 188 LM00234 01465 CAL -0 50000 0 00310 01466 ORA -0 50100 0 00260 01467 SLW +0 60200 0 00033 MCOUNT = -OFFCNT-1 189 LM00235 01470 CLS +0 50200 0 00310 01471 SUB +0 40200 0 00325 01472 STO +0 60100 0 00276 BFWRIT.(N3,N4,BOFF(50)...MCOUNT,IOERR) 190 LM00236 01473 TSX +0 07400 4 00004 01474 TXH +3 00000 0 00301 01475 TXH +3 00000 0 00302 01476 TIX +2 00276 0 00033 01477 TXH +3 00000 0 00134 BFCLOS.(N3,N4,IOERR) 191 LM00237 01500 TSX +0 07400 4 00002 01501 TXH +3 00000 0 00301 01502 TXH +3 00000 0 00302 01503 TXH +3 00000 0 00134 E'L 192 LM00238 EXITM. 193 LM00239 01504 TSX +0 07400 4 00011 I'N (A,B,C,D) 194 LM00241 01505 TRA +0 02000 0 01676 STATEMENT LABEL C 195 LM00242 BOOLEAN B,D 196 LM00243 E'O NUMBER. 197 LM00244 01506 TRA +0 02000 0 01511 00031 TTR +0 02100 0 01507 01507 SXA +0 63400 2 01651 01510 TSX +0 07400 2 01651 NUM W'R COMARG.(J,TEMP).E.FENCE, T'O C 198 LM00246 01511 TSX +0 07400 4 00007 01512 TXH +3 00000 0 00255 01513 TXH +3 00000 0 00116 01514 SUB +0 40200 0 00254 01515 TNZ -0 10000 0 01517 01516 TRA +0 02000 0 00024 J = J+1 199 LM00247 01517 CLA +0 50000 0 00255 01520 ADD +0 40000 0 00325 01521 STO +0 60100 0 00255 LOOPA2 T'H LOOPA2, FOR K = ARGS2,-1,K.E.0 .OR. TEMP.E.ARGS2(K) 200 LM00248 01522 CLA +0 50000 0 00152 01523 STO +0 60100 0 00256 01524 TRA +0 02000 0 01530 01525 CLS +0 50200 0 00325 01526 ADD +0 40000 0 00256 01527 STO +0 60100 0 00256 01530 LXA +0 53400 2 00256 01531 CLA +0 50000 0 00116 01532 SUB +0 40200 2 00152 01533 TZE +0 10000 0 01540 01534 CLA +0 50000 0 00256 01535 SUB +0 40200 0 00324 01536 TZE +0 10000 0 01540 01537 TRA +0 02000 0 01525 T'O ARGT(K) 201 LM00249 01540 LXA +0 53400 2 00256 01541 TRA +0 02000 2 00125 ARGT(0) W'R ZEL.(TEMP) .A. $$ .NE. 0, T'O BADFMT 202 LM00251 01542 TSX +0 07400 4 00030 01543 TXH +3 00000 0 00116 01544 STO +0 60100 0 01675 01545 CAL -0 50000 0 01675 01546 ANA -0 32000 0 00374 01547 SLW +0 60200 0 01675 01550 CLA +0 50000 0 01675 01551 SUB +0 40200 0 00324 01552 TZE +0 10000 0 01554 01553 TRA +0 02000 0 00127 A = BCDEC.(TEMP) 203 LM00252 01554 TSX +0 07400 4 00000 01555 TXH +3 00000 0 00116 01556 STO +0 60100 0 00024 B = 1B 204 LM00253 01557 CLA +0 50000 0 00325 01560 STO +0 60100 0 00024 ARGT(6) F'N 205 LM00254 01561 TRA +0 02000 0 01671 ARGT(1) W'R COMARG.(J,TEMP) .E. FENCE, T'O BADFMT 206 LM00256 01562 TSX +0 07400 4 00007 01563 TXH +3 00000 0 00255 01564 TXH +3 00000 0 00116 01565 SUB +0 40200 0 00254 01566 TNZ -0 10000 0 01570 01567 TRA +0 02000 0 00127 J = J + 1 207 LM00257 01570 CLA +0 50000 0 00255 01571 ADD +0 40000 0 00325 01572 STO +0 60100 0 00255 W'R ZEL.(TEMP).A.$YYYYYY$ .NE. 0, T'O BADFMT 208 LM00258 01573 TSX +0 07400 4 00030 01574 TXH +3 00000 0 00116 01575 STO +0 60100 0 01675 01576 CAL -0 50000 0 01675 01577 ANA -0 32000 0 00403 01600 SLW +0 60200 0 01675 01601 CLA +0 50000 0 01675 01602 SUB +0 40200 0 00324 01603 TZE +0 10000 0 01605 01604 TRA +0 02000 0 00127 A = BCOCT.(TEMP) 209 LM00259 01605 TSX +0 07400 4 00001 01606 TXH +3 00000 0 00116 01607 STO +0 60100 0 00024 D = 1B 210 LM00260 01610 CLA +0 50000 0 00325 01611 STO +0 60100 0 00024 B = 1B 211 LM00261 01612 CLA +0 50000 0 00325 01613 STO +0 60100 0 00024 F'N 212 LM00262 01614 TRA +0 02000 0 01671 ARGT(2) 213 LM00267 ARGT(3) ON = 0B 214 LM00268 01615 CLA +0 50000 0 00324 01616 STO +0 60100 0 00314 ARGT(4) 215 LM00272 ARGT(5) OFF = 1B 216 LM00273 01617 CLA +0 50000 0 00325 01620 STO +0 60100 0 00311 W'R COMARG.(J,N3) .E. FENCE 217 LM00274 01621 TSX +0 07400 4 00007 01622 TXH +3 00000 0 00255 01623 TXH +3 00000 0 00301 01624 SUB +0 40200 0 00254 01625 TNZ -0 10000 0 01631 N3 = N1 218 LM00275 01626 CLA +0 50000 0 00277 01627 STO +0 60100 0 00301 T'O C 219 LM00276 01630 TRA +0 02000 0 00024 E'L 220 LM00277 J = J+2 221 LM00279 01631 CLA +0 50000 0 00255 01632 ADD +0 40000 0 00326 01633 STO +0 60100 0 00255 W'R COMARG.(J-1,N4) .NE. FENCE, T'O NUM 222 LM00280 01634 CLA +0 50000 0 00255 01635 SUB +0 40200 0 00325 01636 STO +0 60100 0 01675 01637 TSX +0 07400 4 00007 01640 TXH +3 00000 0 01675 01641 TXH +3 00000 0 00302 01642 SUB +0 40200 0 00254 01643 TZE +0 10000 0 01645 01644 TRA +0 02000 0 00136 N4 = $ BIN$ 223 LM00281 01645 CLA +0 50000 0 00373 01646 STO +0 60100 0 00302 T'O C 224 LM00282 01647 TRA +0 02000 0 00024 E'N 225 LM00284 01650 TSX +0 07400 4 00012 01651 TXH +3 00000 0 00000 01652 SXD -0 63400 1 01651 01653 SXA +0 63400 4 01671 01654 CLA +0 50000 4 00001 01655 STA +0 62100 0 01556 01656 STA +0 62100 0 01607 01657 CLA +0 50000 4 00002 01660 STA +0 62100 0 01560 01661 STA +0 62100 0 01613 01662 CLA +0 50000 4 00003 01663 STA +0 62100 0 01516 01664 STA +0 62100 0 01630 01665 STA +0 62100 0 01647 01666 CLA +0 50000 4 00004 01667 STA +0 62100 0 01611 01670 TRA +0 02000 2 00001 01671 AXT +0 77400 4 00000 01672 LXA +0 53400 2 01651 01673 LXD -0 53400 1 01651 01674 TRA +0 02000 4 00001 E'M 226 LM00286 01676 TSX +0 07400 4 00012 PRBSS BCD 09/18/68 2319.2 10583 00000 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 1 7/7/65 - NOEL I. MORRIS UNLIST M CALL MACRO SUBR,LIST 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 2 INITIALIZE AND READ BSS FILE. TRANSFER VECTOR 00000 434164626360 LJUST 00001 222646472545 BFOPEN 00002 246242255160 DSKER 00003 512422626260 RDBSS 00004 222623434662 BFCLOS 00005 256646512460 EWORD 00006 252330215160 ECHAR 00007 664331452560 WLINE 00010 462321222360 OCABC 00011 227125436060 BZEL 00012 462324222360 OCDBC 00013 462351222360 OCRBC 00014 514164626360 RJUST 00015 0760 00 0 00016 START LMTM 7 XRS 00016 CALL SETBRK(CHNXIT) SET BREAK LEVEL 00016 0074 00 4 00417 TSX SETBRK,4 .002 00017 3 00000 0 00356 PAR CHNXIT .004 00020 -0500 00 0 00470 CAL =HSQZBSS SET SECONDARY NAME TO 'SQZBSS' 00021 0602 00 0 00373 SLW SNAM INITIALLY 00022 CALL GC GET FIRST PARAMETER 00022 0074 00 4 00335 TSX GC,4 .002 00023 0602 00 0 77425 SLW FILNAM .. 00024 -0340 00 0 00465 LAS =H (SQZ) CHECK FOR SQUEEZED FILE 00025 0020 00 0 00027 TRA *+2 .. 00026 0020 00 0 00106 TRA SQ .. 00027 0560 00 0 00464 LDQ =H CHANGE SQZBSS 00030 -0620 00 0 00373 SLQ SNAM TO BSS 00031 0322 00 0 00374 FERA ERA FENCE CHECK FOR FENCE 00032 0100 00 0 00345 TZE ILPAR INCOMPLETE SET OF PARAMETERS 00033 CALL GC NEXT PARAMETER 00033 0074 00 4 00335 TSX GC,4 .002 00034 0602 00 0 00376 SLW ENTRY ENTRY POINT TO LOOK FOR 00035 0322 00 0 00374 ERA FENCE CHECK FOR NONE 00036 -0100 00 0 00041 TNZ *+3 IF NONE, PRINT ALL 00037 -0625 00 0 00366 STL FOUND .. 00040 0020 00 0 00044 TRA GMEM SKIP LJUST 00041 CALL $LJUST(ENTRY) ENTRIES ARE LEFT JUSTIFIED 00041 0074 00 4 00000 TSX $LJUST,4 .002 00042 3 00000 0 00376 PAR ENTRY .004 00043 0601 00 0 00376 STO ENTRY .. GET MEMORY BOUND AND ASSIGN BUFFERS. 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 3 INITIALIZE AND READ BSS FILE. 00044 GMEM CALL GETMEM GET MEMORY BOUND 00044 0074 00 4 00420 TSX GETMEM,4 .002 00045 0361 00 0 00361 ACL LENGTH ENTRY/T.V. BUFFER 00046 0621 00 0 00226 STA TBL1 .. 00047 0621 00 0 00262 STA TBL4+1 .. 00050 0361 00 0 00451 ACL =1 .. 00051 0621 00 0 00257 STA PENT .. 00052 0621 00 0 00153 STA PTV .. 00053 0621 00 0 00232 STA TBL2 .. 00054 0621 00 0 00330 STA TBL3 .. 00055 0361 00 0 00451 ACL =1 DISK BUFFERS 00056 0621 00 0 00067 STA OPN+4 .. 00057 0361 00 0 00452 ACL =432 .. 00060 0621 00 0 00070 STA OPN+5 .. 00061 0361 00 0 00452 ACL =432 .. 00062 CALL SETMEM RESET MEMORY BOUND 00062 0074 00 4 00421 TSX SETMEM,4 .002 00063 OPN CALL $BFOPEN(=HR,FILNAM,SNAM,**,**,=-0,$DSKER) 00063 0074 00 4 00001 TSX $BFOPEN,4 .002 00064 3 00000 0 00462 PAR =HR .004 00065 3 00000 0 77425 PAR FILNAM .004 00066 3 00000 0 00373 PAR SNAM .004 00067 3 00000 0 00000 PAR ** .004 00070 3 00000 0 00000 PAR ** .004 00071 3 00000 0 00460 PAR =-0 .004 00072 3 00000 0 00002 PAR $DSKER .004 00073 0520 00 0 00365 NEXCD ZET ENDSW CHECK FOR END OF RUN 00074 0020 00 0 00116 TRA END .. 00075 CALL $RDBSS(EOF) READ A CARD 00075 0074 00 4 00003 TSX $RDBSS,4 .002 00076 3 00000 0 00112 PAR EOF .004 00077 -0046 00 0 00000 PIA FIRST WORD IN AC 00100 -0320 00 0 00453 ANA =O37077777 MASK WDCNT AND LOAD ADDRESS 00101 0734 00 2 00000 PAX ,2 LOAD ADDRESS IN XR2 00102 -0734 00 3 00000 PDX ,3 WDCNT IN XR3 00103 -0056 00 400000 LNT 400000 CHECK FOR PROGRAM CARD 00104 0020 00 0 00243 TRA I.C. INSTRUCTION CARD 00105 0020 00 0 00136 TRA P.C. PROGRAM CARD 00106 -0625 00 0 77424 SQ STL FILNAM-1 SET SQUEEZ PARAMETER 00107 CALL GC GET NEXT PARAMETER 00107 0074 00 4 00335 TSX GC,4 .002 00110 0602 00 0 77425 SLW FILNAM .. 00111 0020 00 0 00031 TRA FERA GO CHECK PARAMETER 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 4 END OF FILE SECTION. 00112 -0625 00 0 00365 EOF STL ENDSW SET EOF SWITCH 00113 0520 00 0 00363 ZET PCSW CHECK FOR PROCESSING PROGRAM CARDS 00114 0020 00 0 00251 TRA LASTNT THIS WILL CATCH PROG. WITH NO INST. CARDS 00115 0020 00 0 00145 TRA LASTV AND PROCESS THE LAST OF THE STUFF 00116 END CALL $BFCLOS(FILNAM,SNAM,$DSKER) 00116 0074 00 4 00004 TSX $BFCLOS,4 .002 00117 3 00000 0 77425 PAR FILNAM .004 00120 3 00000 0 00373 PAR SNAM .004 00121 3 00000 0 00002 PAR $DSKER .004 00122 CALL WRFLX((*,,0)) PRINT A CARRIAGE RETURN 00122 0074 00 4 00422 TSX WRFLX,4 .002 00123 3 00000 0 00123 PAR *,,0 .004 00124 0520 00 0 00366 ZET FOUND CHECK FOR ENTRY EVER FOUND 00125 0020 00 0 00357 TRA CHN WAS FOUND, EXIT TO CHNCOM 00126 -0500 00 0 77425 CAL FILNAM SET NAME IN ERROR COMMENT 00127 0602 00 0 00403 SLW NAME .. 00130 CALL WRFLX((NONE,,7)) COMMENT THAT ENTRY NOT FOUND 00130 0074 00 4 00422 TSX WRFLX,4 .002 00131 3 00007 0 00375 PAR NONE,,7 .004 00132 0520 00 0 00370 ZET EOVF CHECK FOR ENTRY TABLE OVERFLOW 00133 COMENT CAUSE,6,(MAY BE DUE TO OVERFLOW IN ENTRY TABLE.) 00133 0074 00 4 00422 TSX WRFLX,4 .003 00134 3 00006 0 00423 PAR CAUSE,,6 .005 COMMENT ON POSSIBLE CAUSE. 00135 0020 00 0 00357 TRA CHN AND EXIT TO CHNCOM 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 5 PROCESS PROGRAM CARDS. 00136 -0625 00 0 00363 P.C. STL PCSW SET PROGRAM CARD SWITCH 00137 -0636 00 3 00241 SCD PWC,3 COMPLEMENT OF WORD COUNT 00140 -0774 00 4 00000 AXC 0,4 INITIALIZE CARD WORD INDEX 00141 -0520 00 0 00362 NZT ICSW CHECK FOR FIRST PROGRAM CARD 00142 0020 00 0 00222 TRA ECHK-2 NOT FIRST, SKIP THIS SECT. 00143 0600 00 0 00362 STZ ICSW RESET INSTRUCTION CARD SWITCH 00144 0520 00 0 00364 ZET SUBSQ CHECK FOR FIRST TIME THROUGH 00145 -0520 00 0 00366 LASTV NZT FOUND HAS ENTRY BEEN FOUND 00146 0020 00 0 00164 TRA PSKP NO, SKIP PRINT 00147 0774 00 2 00001 AXT 1,2 XR2 IS T.V. ENTRY POINTER 00150 0774 00 3 00014 PTVCK1 AXT 12,3 12 ENTRIES PER LINE 00151 3 00000 2 00164 TXH PSKP,2,** DON'T PRINT NULL LINE 00152 3 00000 2 00163 PTVCHK TXH TVFIN,2,** CHECK FOR ALL T.V. ENTRIES 00153 0560 00 2 00000 PTV LDQ **,2 GET ENTRY 00154 CALL $EWORD GIVE TO PRINT ASSEMBLER 00154 0074 00 4 00005 TSX $EWORD,4 .002 00155 0560 00 0 00464 LDQ =H FOLLOW BY 1 BALNK 00156 CALL $ECHAR .. 00156 0074 00 4 00006 TSX $ECHAR,4 .002 00157 1 00001 2 00160 TXI *+1,2,1 NEXT T.V. ENTRY 00160 2 00001 3 00152 TIX PTVCHK,3,1 NEXT 00161 CALL $WLINE PRINT OUT ASSEMBLED LINE 00161 0074 00 4 00007 TSX $WLINE,4 .002 00162 0020 00 0 00150 TRA PTVCK1 AND START NEXT ONE 00163 TVFIN CALL $WLINE PRINT LAST LINE 00163 0074 00 4 00007 TSX $WLINE,4 .002 00164 0520 00 0 00365 PSKP ZET ENDSW CHECK FOR END OF FILE ENCOUNTERED 00165 0020 00 0 00116 TRA END GOOD-BYE 00166 -0625 00 0 00364 STL SUBSQ SET SUBSEQUENT INDIC. 00167 -0534 00 4 77430 LXD CARD+2,4 GET T.V. LENGTH IN XR4 00170 -3 00617 4 00173 TXL *+3,4,LTH-1 CHECK FOR TOO BIG FOR T.V. TABLE 00171 -0625 00 0 00371 STL TVOV SET T.V. OVERFLOW INDIC. 00172 0774 00 4 00617 AXT LTH-1,4 FORCE LENGTH TO 199 00173 -0634 00 4 00152 SXD PTVCHK,4 STORE FOR T.V. CHECKING 00174 -0634 00 4 00151 SXD PTVCK1+1,4 .. 00175 -0634 00 4 00326 SXD ITVCHK,4 .. 00176 CALL $OCABC(CARD+2) CONVERT LENGTH 00176 0074 00 4 00010 TSX $OCABC,4 .002 00177 3 00000 0 77430 PAR CARD+2 .004 00200 0601 00 0 00407 STO COMENT+2 STORE INTO COMMENT 00201 CALL $BZEL(COMENT+2) BLANK LEADING ZEROS 00201 0074 00 4 00011 TSX $BZEL,4 .002 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 6 PROCESS PROGRAM CARDS. 00202 3 00000 0 00407 PAR COMENT+2 .004 00203 0601 00 0 00407 STO COMENT+2 .. 00204 CALL $OCDBC(CARD+2) ALSO T.V. SIZE 00204 0074 00 4 00012 TSX $OCDBC,4 .002 00205 3 00000 0 77430 PAR CARD+2 .004 00206 0601 00 0 00415 STO COMENT+8 .. 00207 CALL $BZEL(COMENT+8) .. 00207 0074 00 4 00011 TSX $BZEL,4 .002 00210 3 00000 0 00415 PAR COMENT+8 .004 00211 0601 00 0 00415 STO COMENT+8 .. 00212 CALL $OCABC(CARD+3) AND LOWEST COMMON 00212 0074 00 4 00010 TSX $OCABC,4 .002 00213 3 00000 0 77431 PAR CARD+3 .004 00214 0601 00 0 00412 STO COMENT+5 .. 00215 CALL $BZEL(COMENT+5) .. 00215 0074 00 4 00011 TSX $BZEL,4 .002 00216 3 00000 0 00412 PAR COMENT+5 .004 00217 0601 00 0 00412 STO COMENT+5 .. 00220 0774 00 1 00000 AXT 0,1 ENTRY TABLE POINTER 00221 -0774 00 4 00002 AXC 2,4 SKIP FIRST 2 WORDS ON FIRST P.C. 00222 0520 00 0 00367 ZET EOV CHECK FOR PREVIOUS OVERFLOW 00223 0020 00 0 00073 TRA NEXCD .. 00224 3 00617 1 00350 ECHK TXH EFULL,1,LTH-1 CHECK FOR FULL TABLE 00225 -0500 00 4 77431 CAL CARD+3,4 GET NUMERIC ENTRY 00226 0602 00 1 00000 TBL1 SLW **,1 .. 00227 -0500 00 4 77430 CAL CARD+2,4 AND BCD NAME 00230 -0100 00 0 00232 TNZ *+2 IF ZERO, 00231 -0500 00 0 00472 CAL =H(MAIN) SET TO '(MAIN)' 00232 0602 00 1 00000 TBL2 SLW **,1 .. 00233 0322 00 0 00376 ERA ENTRY IS THIS ENTRY 00234 -0100 00 0 00236 TNZ *+2 .. 00235 -0625 00 0 00366 STL FOUND SET INDIC. IF ENTRY FOUND 00236 -0634 00 1 00307 SXD ECOUNT,1 SAVE ENTRY COUNTER 00237 1 00002 1 00240 TXI *+1,1,2 STEP ENTRY TABLE POINTER 00240 1 77776 4 00241 TXI *+1,4,-2 AND CARD POINTER 00241 3 00000 4 00224 PWC TXH ECHK,4,** AND GET NEXT PAIR 00242 0020 00 0 00073 TRA NEXCD GO READ NEXT CARD 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 7 PROCESS INSTRUCTION CARDS. 00243 -0625 00 0 00362 I.C. STL ICSW SET INSTRUCTION CARD SWITCH 00244 -0636 00 3 00333 SCD IWC,3 COMPLEMENT OF WORD COUNT 00245 1 00001 2 00246 TXI *+1,2,1 00246 -0520 00 0 00363 NZT PCSW CHECK FOR FIRST INSTRUCTION CARD 00247 0020 00 0 00323 TRA ISKP SKIP PRINT AFTER FIRST 00250 0600 00 0 00363 STZ PCSW RESET PROGRAM CARD SWITCH 00251 -0520 00 0 00366 LASTNT NZT FOUND HAS ENTRY BEEN FOUND 00252 0020 00 0 00073 TRA NEXCD NO,SKIP PRINT 00253 CALL WRFLX((*,,0)) SKIP A LINE 00253 0074 00 4 00422 TSX WRFLX,4 .002 00254 3 00000 0 00254 PAR *,,0 .004 00255 0774 00 5 00000 AXT 0,5 XR5 IS ENTRY TABLE POINTER 00256 0774 00 3 00006 AXT 6,3 6 ENTRIES PER LINE 00257 0560 00 5 00000 PENT LDQ **,5 GET NAME 00260 CALL $EWORD SEND TO PRINT ROUTINE 00260 0074 00 4 00005 TSX $EWORD,4 .002 00261 TBL4 CALL $OCRBC((**,5)) CONVERT ENTRY TO OCTAL BCD 00261 0074 00 4 00013 TSX $OCRBC,4 .002 00262 0761 00 5 00000 EFA **,5 .004 00263 0560 00 0 00464 LDQ =H BLANKS IN MQ 00264 -0765 00 0 00006 LGR 6 DO AN LJUST 00265 -0100 00 0 00264 TNZ *-1 .. 00266 0500 60 0 00262 CLA* TBL4+1 GET ENTRY POINT 00267 0120 00 0 00272 TPL *+3 CHECK FOR NEG. ENTRY POINT 00270 -0500 00 0 00463 CAL =H - GET MINUS SIGN 00271 -0765 00 0 00006 LGR 6 AND SIFT IN 00272 -0600 00 0 00372 STQ TEMP .. 00273 CALL $RJUST(TEMP) NOW RIGHT ADJUST 00273 0074 00 4 00014 TSX $RJUST,4 .002 00274 3 00000 0 00372 PAR TEMP .004 00275 0601 00 0 00372 STO TEMP .. 00276 CALL $BZEL(TEMP) BLANK LEADING ZEROS 00276 0074 00 4 00011 TSX $BZEL,4 .002 00277 3 00000 0 00372 PAR TEMP .004 00300 0131 00 0 00000 XCA .. 00301 CALL $EWORD AND ENTER THAT ALSO 00301 0074 00 4 00005 TSX $EWORD,4 .002 00302 0560 00 0 00457 LDQ =H. AND DECIMAL POINT AND BLANK 00303 CALL $ECHAR .. 00303 0074 00 4 00006 TSX $ECHAR,4 .002 00304 -0773 00 0 00006 RQL 6 .. 00305 CALL $ECHAR .. 00305 0074 00 4 00006 TSX $ECHAR,4 .002 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 8 PROCESS INSTRUCTION CARDS. 00306 1 00002 5 00307 TXI *+1,5,2 NEXT ENTRY 00307 3 00000 5 00313 ECOUNT TXH EFIN,5,** CHECK FOR ALL ENTRIES PRINTED 00310 2 00001 3 00257 TIX PENT,3,1 .. 00311 CALL $WLINE PRINT OUT COMPLETED LINE 00311 0074 00 4 00007 TSX $WLINE,4 .002 00312 0020 00 0 00256 TRA PENT-1 NEXT LINE 00313 EFIN CALL $WLINE PRINT OUT LAST LINE 00313 0074 00 4 00007 TSX $WLINE,4 .002 00314 CALL WRFLX((COMENT,,10)) AND COMMENT 00314 0074 00 4 00422 TSX WRFLX,4 .002 00315 3 00012 0 00405 PAR COMENT,,10 .004 00316 0520 00 0 00371 ZET TVOV CHECK FOR T.V. TABLE OVERFLOW 00317 COMENT TVF,4,(T.V. TABLE IS FULL.) 00317 0074 00 4 00422 TSX WRFLX,4 .003 00320 3 00004 0 00431 PAR TVF,,4 .005 COMMENT ON T.V. TABLE OVERFLOW 00321 0600 00 0 00371 STZ TVOV RESET T.V. OVERFLOW INDIC. 00322 0600 00 0 00367 STZ EOV AND ENTRY TABLE OVERFLOW INDIC. 00323 -0520 00 0 00366 ISKP NZT FOUND SKIP NEXT SECTION IF NOT FOUND 00324 0020 00 0 00073 TRA NEXCD .. 00325 0774 00 4 00000 AXT 0,4 CARD POINTER 00326 3 00000 2 00073 ITVCHK TXH NEXCD,2,** CHECK FOR LOAD ADDRESS .G. T.V. LTH 00327 -0500 00 4 77432 CAL CARD+4,4 GET T.V. ENTRY 00330 0602 00 2 00000 TBL3 SLW **,2 STORE IN TABLE 00331 1 00001 2 00332 TXI *+1,2,1 STEP ADDRESS 00332 1 77777 4 00333 TXI *+1,4,-1 AND CARD POINTER 00333 3 00000 4 00326 IWC TXH ITVCHK,4,** CHECK FOR WORD COUNT EXCEEDED 00334 0020 00 0 00073 TRA NEXCD AND READ NEXT CARD IF SO 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 9 MISCELLANEOUS ROUTINES. 00335 0634 00 4 00343 GC SXA GCX4,4 GETCOM CALLING ROUTINE 00336 0534 00 4 00342 LXA .GX,4 GET PARAMETER COUNT 00337 1 00001 4 00340 TXI *+1,4,1 INCREMENT 00340 0634 00 4 00342 SXA .GX,4 AND RESTORE 00341 CALL GETCOM NOW GO TO GETCOM 00341 0074 00 4 00435 TSX GETCOM,4 .002 00342 0 00000 0 00000 .GX PZE 0 PARAMETER NUMBER 00343 0774 00 4 00000 GCX4 AXT **,4 RESTORE XR4 00344 0020 00 4 00001 TRA 1,4 RETURN WITH PARAMETER IN LAC 00345 ILPAR COMENT ICSET,5,(INCOMPLETE SET OF PARAMETERS.) 00345 0074 00 4 00422 TSX WRFLX,4 .003 00346 3 00005 0 00436 PAR ICSET,,5 .005 00347 0020 00 0 00356 TRA CHNXIT EXIT TO CHNCOM 00350 0520 00 0 00366 EFULL ZET FOUND CHECK FOR ENTRY FOUND 00351 COMENT ETF,4,(ENTRY TABLE OVERFLOW.) 00351 0074 00 4 00422 TSX WRFLX,4 .003 00352 3 00004 0 00443 PAR ETF,,4 .005 00353 -0625 00 0 00367 STL EOV SET OVERFLOW INDICS. 00354 -0625 00 0 00370 STL EOVF .. 00355 0020 00 0 00073 TRA NEXCD AND GO TO NEXT CARD 00356 CHNXIT CALL RESETF RESET ACTIVE FILES (IF ANY) 00356 0074 00 4 00447 TSX RESETF,4 .002 00357 CHN CALL CHNCOM(0) AND EXIT TO CHNCOM 00357 0074 00 4 00450 TSX CHNCOM,4 .002 00360 3 00000 0 00000 PAR 0 .004 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 10 STORAGE AND CONSTANTS. 00620 LTH EQU 400 00361 0 00000 0 00617 LENGTH PZE LTH-1 00362 0 00000 0 00362 ICSW PZE * NON-ZERO FOR INSTRUCTION 00363 0 00000 0 00000 PCSW PZE NON-ZERO FRO PROGRAM CARD 00364 0 00000 0 00000 SUBSQ PZE ZERO FIRST TIME THROUGH 00365 0 00000 0 00000 ENDSW PZE GOES NON-ZERO AFTER EOF ENCOUNTERED 00366 0 00000 0 00000 FOUND PZE NON-ZERO WHEN ENTRY FOUND 00367 0 00000 0 00000 EOV PZE NON-ZERO IF ENTRY TABLE FULL 00370 0 00000 0 00000 EOVF PZE NON-ZERO IF ENTRY TABLE OVERFLOWED 00371 0 00000 0 00000 TVOV PZE NON-ZERO IF T.V. TABLE FULL 00372 0 00000 0 00000 TEMP PZE TEMPORARY STORAGE LOC'N 00373 0 00000 0 00000 SNAM PZE SECOND NAME FOR FILE 00374 -377777777777 FENCE OCT 777777777777 00375 254563517060 NONE BCI 1,ENTRY 00376 0 00000 0 00000 ENTRY PZE 00377 604546636026 BCI 3, NOT FOUND IN LIBE 00400 466445246031 00401 456043312225 00402 605757575757 VFD O36/605757575757 00403 0 00000 0 00000 NAME PZE 00404 606060226262 BCI 1, BSS 00405 432545276330 COMENT VFD H36/LENGTH,O6/60,H6/=,O24/57575757,36/0,O12/7360, 00406 601357575757 00407 000000000000 00410 736023464444 ETC H36/COMMON,O6/60,H6/=,O12/5757,36/0,O12/7360,H24/T.V., 00411 464560135757 00412 000000000000 00413 736063336533 00414 601357575757 ETC O6/60,H6/=,O24/57575757,36/0,H6/.,O30/5757575757 00415 000000000000 00416 335757575757 77426 COMMON 27 77426 CARD COMMON 1 77425 FILNAM COMMON 2 00417 RMT * REMOTE SEQUENCES. 00417 0101 00 0 00466 SETBRK TIA =HSETBRK .002 00420 0101 00 0 00456 GETMEM TIA =HGETMEM .002 00421 0101 00 0 00467 SETMEM TIA =HSETMEM .002 00422 0101 00 0 00471 WRFLX TIA =HWRFLX .002 00423 442170602225 CAUSE BCI 6,MAY BE DUE TO OVERFLOW IN ENTRY TABLE. .002 00424 602464256063 00425 466046652551 00426 264346666031 00427 456025456351 00430 706063212243 00431 633365336063 TVF BCI 4,T.V. TABLE IS FULL. .002 00432 212243256031 00433 626026644343 00434 336060606060 00435 0101 00 0 00455 GETCOM TIA =HGETCOM .002 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 11 STORAGE AND CONSTANTS. 00436 314523464447 ICSET BCI 5,INCOMPLETE SET OF PARAMETERS. .002 00437 432563256062 00440 256360462660 00441 472151214425 00442 632551623360 00443 254563517060 ETF BCI 4,ENTRY TABLE OVERFLOW. .002 00444 632122432560 00445 466525512643 00446 466633606060 00447 0101 00 0 00461 RESETF TIA =HRESETF .002 00450 0101 00 0 00454 CHNCOM TIA =HCHNCOM .002 END LITERALS 00451 000000000001 00452 000000000660 00453 000037077777 00454 233045234644 00455 272563234644 00456 272563442544 00457 336060606060 00460 400000000000 00461 512562256326 00462 516060606060 00463 606060606040 00464 606060606060 00465 607462507134 00466 622563225142 00467 622563442544 00470 625071226262 00471 665126436760 00472 744421314534 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 1 POST PROCESSOR ASSEMBLY DATA 77423 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 473 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 335 GC 22, 33, 107 106 SQ 26 357 CHN 125, 135 116 END 74, 165 112 EOF 76 367 EOV 222, 322, 353 443 ETF 352 333 IWC 244 342 .GX 336, 340 620 LTH 170, 172, 224, 361 63 OPN 56, 60 153 PTV 52 241 PWC 137 431 TVF 320 11 BZEL 201, 207, 215, 276 77426 CARD 167, 177, 205, 213, 225, 227, 327, 417 224 ECHK 142, 241 313 EFIN 307 370 EOVF 132, 354 31 FERA 111 343 GCX4 335 44 GMEM 40 362 ICSW 141, 143, 243 243 I.C. 104 323 ISKP 247 403 NAME 127 375 NONE 131 363 PCSW 113, 136, 246, 250 257 PENT 51, 310, 312 136 P.C. 105 164 PSKP 146, 151 373 SNAM 21, 30, 66, 120 226 TBL1 46 232 TBL2 53 330 TBL3 54 261 TBL4 47, 266 372 TEMP 272, 274, 275, 277 371 TVOV 171, 316, 321 423 CAUSE 134 2 DSKER 72, 121 6 ECHAR 156, 303, 305 350 EFULL 224 365 ENDSW 73, 112, 164 376 ENTRY 34, 42, 43, 233 5 EWORD 154, 260, 301 374 FENCE 31, 35 366 FOUND 37, 124, 145, 235, 251, 323, 350 436 ICSET 346 345 ILPAR 32 145 LASTV 115 1 PRBSS - PRINT BSS FILE SUMMARY. PAGE 2 POST PROCESSOR ASSEMBLY DATA 0 LJUST 41 73 NEXCD 223, 242, 252, 324, 326, 334, 355 10 OCABC 176, 212 12 OCDBC 204 13 OCRBC 261 3 RDBSS 75 14 RJUST 273 15 START 364 SUBSQ 144, 166 163 TVFIN 152 7 WLINE 161, 163, 311, 313 422 WRFLX 122, 130, 133, 253, 314, 317, 345, 351 4 BFCLOS 116 1 BFOPEN 63 450 CHNCOM 357 356 CHNXIT 17, 347 405 COMENT 200, 202, 203, 206, 210, 211, 214, 216, 217, 315 307 ECOUNT 236 77425 FILNAM 23, 65, 106, 110, 117, 126, 417 435 GETCOM 341 420 GETMEM 44 326 ITVCHK 175, 333 251 LASTNT 114 361 LENGTH 45 152 PTVCHK 160, 173 150 PTVCK1 162, 174 447 RESETF 356 417 SETBRK 16 421 SETMEM 62 0 NO ERROR IN ABOVE ASSEMBLY. 1 RDBSS - BSS FILE READING ROUTINE. PAGE 1 NOEL I. MORRIS - 6/21/65 UNLIST M CALL MACRO SUBR,LIST 00003 ENTRY RDBSS TRANSFER VECTOR 00000 222651252124 BFREAD 00001 246242255160 DSKER 00002 462321222360 OCABC 00003 0634 00 4 00073 RDBSS SXA XR4,4 SAVE XRS 00004 0520 00 0 77424 WZERO ZET FILN-1 CHECK FOR SQZBSS FILE 00005 0020 00 0 00017 TRA SQZ .. 00006 CALL $BFREAD(FILN,BSS(BUFF,,28)EOF,EOFCT,$DSKER) 00006 0074 00 4 00000 TSX $BFREAD,4 .002 00007 3 00000 0 77425 PAR FILN .004 00010 3 00000 0 00114 PAR BSS .004 00011 3 00034 0 77426 PAR BUFF,,28 .004 00012 3 00000 0 00111 PAR EOF .004 00013 3 00000 0 00113 PAR EOFCT .004 00014 3 00000 0 00001 PAR $DSKER .004 00015 0441 00 0 77426 LDI BUFF GET FIRST WORD IN SI 00016 0020 00 0 00050 TRA CHECK GO CHECK CHECKSUM 00017 0774 00 4 00034 SQZ AXT 28,4 ZERO OUT THE READ BUFFER 00020 0600 00 4 77462 STZ BUFF+28,4 .. 00021 2 00001 4 00020 TIX *-1,4,1 .. 00022 CALL $BFREAD(FILN,=HSQZBSS(BUFF,,1)EOF,EOFCT,$DSKER) 00022 0074 00 4 00000 TSX $BFREAD,4 .002 00023 3 00000 0 77425 PAR FILN .004 00024 3 00000 0 00134 PAR =HSQZBSS .004 00025 3 00001 0 77426 PAR BUFF,,1 .004 00026 3 00000 0 00111 PAR EOF .004 00027 3 00000 0 00113 PAR EOFCT .004 00030 3 00000 0 00001 PAR $DSKER .004 00031 0441 00 0 77426 LDI BUFF GET FIRST WORD IN SI 00032 -0046 00 0 00000 PIA IN AC 00033 -0320 00 0 00130 ANA =O77000000 MASK WORDCOUNT 00034 -0734 00 4 00000 PDX ,4 WORDCOUNT IN XR4 00035 -0056 00 200000 LNT 200000 CHECK FOR REL. BIN CARD 00036 1 00001 4 00040 TXI *+2,4,1 MUST BE A PROGRAM CARD 00037 1 00003 4 00040 TXI *+1,4,3 RELOCATABLE INSTRUCTION CARD 00040 -0634 00 4 00044 SXD VRR+3,4 STORE FOR READING REST OF CARD 00041 VRR CALL $BFREAD(FILN,=HSQZBSS(BUFF+1,,**)EOF,EOFCT,$DSKER) 00041 0074 00 4 00000 TSX $BFREAD,4 .002 00042 3 00000 0 77425 PAR FILN .004 00043 3 00000 0 00134 PAR =HSQZBSS .004 1 RDBSS - BSS FILE READING ROUTINE. PAGE 2 00044 3 00000 0 77427 PAR BUFF+1,,** .004 00045 3 00000 0 00111 PAR EOF .004 00046 3 00000 0 00113 PAR EOFCT .004 00047 3 00000 0 00001 PAR $DSKER .004 00050 -0046 00 0 00000 CHECK PIA FIRST WORD IN AC 00051 -0320 00 0 00130 ANA =O77000000 MASK THE WORD COUNT 00052 -0734 00 4 00000 PDX ,4 WORD COUNT IN XR4 00053 -3 00000 4 00004 TXL WZERO,4,0 TRY AGAIN IF WORD COUNT ZERO 00054 -0056 00 400000 LNT 400000 CHECK FOR PROGRAM CARD 00055 0020 00 0 00062 TRA *+5 .. 00056 -0500 00 0 77432 CAL BUFF+4 GET ENTRY NAME 00057 -0100 00 0 00061 TNZ *+2 CHECK FOR MAIN PROGRAM 00060 -0500 00 0 00136 CAL =H(MAIN) SET ENTRY TO '(MAIN)' 00061 0602 00 0 00121 SLW PGN .. 00062 -0056 00 100000 LNT 100000 CHECK FOR IGNORE CHECKSUM PUNCH 00063 -0520 00 0 77427 NZT BUFF+1 ALSO BLANK CHECKSUM 00064 0020 00 0 00073 TRA IGCHK 00065 0774 00 4 00026 AXT 22,4 ADD UP CHECKSUM 00066 -0500 00 0 77426 CAL BUFF .. 00067 0361 00 4 77456 ACL BUFF+24,4 .. 00070 2 00001 4 00067 TIX *-1,4,1 .. 00071 0322 00 0 77427 ERA BUFF+1 XOR IN THE CHECKSUM TO COMPARE 00072 -0100 00 0 00075 TNZ CHKERR NON-ZERO ON ERROR 00073 IGCHK SYN * 00073 0774 00 4 00000 XR4 AXT **,4 RESTORE XRS 00074 0020 00 4 00002 TRA 2,4 RETURN 00075 -0054 00 400000 CHKERR LFT 400000 CHECK FOR PROG. CARD 00076 0020 00 0 00106 TRA P.C. .. 00077 CALL $OCABC(BUFF) CONVERT LOAD ADDRESS TO OCTAL BCD 00077 0074 00 4 00002 TSX $OCABC,4 .002 00100 3 00000 0 77426 PAR BUFF .004 00101 0560 00 0 00133 LDQ =H BLANK OUT SECOND WORD 00102 -0603 00 0 00125 DST DST MSG+8 STORE INTO MESSAGE 00103 CALL WRFLX((MSG,,10)) PRINT ERROR MESSAGE 00103 0074 00 4 00127 TSX WRFLX,4 .002 00104 3 00012 0 00115 PAR MSG,,10 .004 00105 0020 00 0 00073 TRA IGCHK KEEP GOING 00106 0500 00 0 00132 P.C. CLA =HPROGRA SET LOAD ADDRESS TO 00107 0560 00 0 00131 LDQ =HM CARD 'PROGRAM CARD' 00110 0020 00 0 00102 TRA DST .. 00111 EOF SYN * 00111 0522 00 0 00073 XEC XR4 AND XRS 00112 0020 60 4 00001 TRA* 1,4 EOF RETURN 1 RDBSS - BSS FILE READING ROUTINE. PAGE 3 00113 0 00000 0 00000 EOFCT PZE 00114 606060226262 BSS BCI 1, BSS 00115 233025234262 MSG BCI 4,CHECKSUM ERROR IN PROG. 00116 644460255151 00117 465160314560 00120 475146273360 00121 0 00000 0 00000 PGN PZE 00122 736043462124 BCI 2,, LOAD ADDRE 00123 602124245125 00124 626260135757 VFD H12/SS,O6/60,H6/=,O12/5757 00125 BSS 2 77426 COMMON 27 77426 BUFF COMMON 1 77425 FILN COMMON 2 00127 RMT * REMOTE SEQUENCES 00127 0101 00 0 00135 WRFLX TIA =HWRFLX .002 END LITERALS 00130 000077000000 00131 446023215124 00132 475146275121 00133 606060606060 00134 625071226262 00135 665126436760 00136 744421314534 1 RDBSS - BSS FILE READING ROUTINE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 77423 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 137 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 114 BSS 10 102 DST 110 111 EOF 12, 26, 45, 111 115 MSG 102, 104 121 PGN 61 17 SQZ 5 41 VRR 40 73 XR4 3, 111 77426 BUFF 11, 15, 20, 25, 31, 44, 56, 63, 66, 67, 71, 100, 127 77425 FILN 4, 7, 23, 42, 127 106 P.C. 76 50 CHECK 16 1 DSKER 14, 30, 47 113 EOFCT 13, 27, 46 73 IGCHK 64, 73, 105 2 OCABC 77 3 RDBSS 0 127 WRFLX 103 4 WZERO 53 0 BFREAD 6, 22, 41 75 CHKERR 72 0 NO ERROR IN ABOVE ASSEMBLY. 1 ASSEMBLE 84 CHARACTER PRINT BUFFER. PAGE 1 7/4/65 - NOEL I. MORRIS UNLIST M CALL MACRO SUBR,LIST 00002 ENTRY ECHAR 00011 ENTRY EWORD 00022 ENTRY WLINE LINKAGE DIRECTOR 00000 000000000000 00001 252330215160 00016 WPL EQU 14 WORDS PER LINE 00124 CPL EQU 6*WPL CHARACTERS PER LINE 00000 XR4 EQU *-2 LINKAGE DIRECTOR *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- ECHAR - ENTER ONE CHARACTER INTO PRINT BUFFER. *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 00002 -0634 00 4 00000 ECHAR SXD XR4,4 SAVE XR4 00003 0774 00 4 00124 CHX AXT CPL,4 INDEX TO CURRENT POSITION IN PRINT BUFFER 00004 -0620 00 4 00173 SLQ PTBL+CPL,4 STORE CHARACTER FOR CRQ TABLE 00005 1 77777 4 00006 TXI *+1,4,-1 CHECK FOR OVERFLOW 00006 0634 00 4 00003 SXA CHX,4 SAVE BUFFER INDEX 00007 -0534 00 4 00000 ERTN LXD XR4,4 RESTORE XR4 00010 0020 00 4 00001 TRA 1,4 AND RETURN *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- EWORD - ENTER A FULL WORD INTO PRINT BUFFER. *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 00011 0634 00 4 00017 EWORD SXA WX4,4 SAVE XRS 00012 0634 00 1 00020 SXA WX1,1 .. 00013 0774 00 1 00006 AXT 6,1 SIX CHARACTERS IN WORD 00014 CALL ECHAR 00014 0074 00 4 00002 TSX ECHAR,4 .002 00015 -0773 00 0 00006 RQL 6 SHIFT TO NEXT CHARACTER 00016 2 00001 1 00014 TIX *-2,1,1 AND LOOP 00017 0774 00 4 00000 WX4 AXT **,4 RESTORE XRS 00020 0774 00 1 00000 WX1 AXT **,1 .. 00021 0020 00 4 00001 TRA 1,4 RETURN 1 ASSEMBLE 84 CHARACTER PRINT BUFFER. PAGE 2 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- WLINE - ASSEMBLE AND PRINT OUT BUFFER CONTENTS. *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 00022 -0634 00 4 00000 WLINE SXD XR4,4 SAVE XRS 00023 0634 00 1 00035 SXA XR1,1 .. 00024 0774 00 4 00016 AXT WPL,4 OUTPUT WORD COUNTER 00025 0774 00 1 00047 AXT PTBL,1 INITIALIZE CRQ 00026 0634 00 1 00030 CRL SXA CRQ,1 CRQ TABLE ADDRESS 00027 0560 00 0 00174 LDQ =0 MUST BE ZERO FOR CRQ 00030 -0154 06 1 00047 CRQ CRQ PTBL,1,6 PRESTO, SIX CHARACTERS IN MQ 00031 -0600 00 4 00065 STQ PTBL+WPL,4 USE SAME BUFFER 00032 2 00001 4 00026 TIX CRL,4,1 ASSEMBLE ALL WORDS 00033 CALL WRFLX((PTBL,,WPL)) 00033 0074 00 4 00173 TSX WRFLX,4 .002 00034 3 00016 0 00047 PAR PTBL,,WPL .004 WRITE OUT BUFFER CONTENTS ON CONSOLE 00035 0774 00 1 00000 XR1 AXT **,1 RESTORE XR1 00036 0774 00 4 00124 RESET AXT CPL,4 RESET THE CRQ TABLE 00037 0634 00 4 00003 SXA CHX,4 .. 00040 -0500 00 0 00046 CAL INIW .. 00041 0602 00 4 00173 SLW PTBL+CPL,4 .. 00042 0361 00 0 00175 ACL =1 .. 00043 2 00001 4 00041 TIX *-2,4,1 .. 00044 -0534 00 4 00000 LXD XR4,4 RESTORE XR4 00045 0020 00 4 00001 TRA 1,4 AND RETURN *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 00046 600000000050 INIW VFD O21/6000000,15/PTBL+1 00047 PTBL DUP 1,CPL 00047 600000000050 VFD O21/6000000,15/*+1 00050 600000000051 00051 600000000052 00052 600000000053 00053 600000000054 00054 600000000055 00055 600000000056 00056 600000000057 00057 600000000060 00060 600000000061 00061 600000000062 00062 600000000063 00063 600000000064 00064 600000000065 1 ASSEMBLE 84 CHARACTER PRINT BUFFER. PAGE 3 00065 600000000066 00066 600000000067 00067 600000000070 00070 600000000071 00071 600000000072 00072 600000000073 00073 600000000074 00074 600000000075 00075 600000000076 00076 600000000077 00077 600000000100 00100 600000000101 00101 600000000102 00102 600000000103 00103 600000000104 00104 600000000105 00105 600000000106 00106 600000000107 00107 600000000110 00110 600000000111 00111 600000000112 00112 600000000113 00113 600000000114 00114 600000000115 00115 600000000116 00116 600000000117 00117 600000000120 00120 600000000121 00121 600000000122 00122 600000000123 00123 600000000124 00124 600000000125 00125 600000000126 00126 600000000127 00127 600000000130 00130 600000000131 00131 600000000132 00132 600000000133 00133 600000000134 00134 600000000135 00135 600000000136 00136 600000000137 00137 600000000140 00140 600000000141 00141 600000000142 00142 600000000143 00143 600000000144 00144 600000000145 00145 600000000146 00146 600000000147 00147 600000000150 00150 600000000151 00151 600000000152 00152 600000000153 00153 600000000154 00154 600000000155 1 ASSEMBLE 84 CHARACTER PRINT BUFFER. PAGE 4 00155 600000000156 00156 600000000157 00157 600000000160 00160 600000000161 00161 600000000162 00162 600000000163 00163 600000000164 00164 600000000165 00165 600000000166 00166 600000000167 00167 600000000170 00170 600000000171 00171 600000000172 00172 600000000173 END REMOTE SEQUENCES WRFLX GEN (TIA)(=HWRFLX) .001 00173 0101 00 0 00176 WRFLX TIA =HWRFLX .002 1 ASSEMBLE 84 CHARACTER PRINT BUFFER. PAGE 1 POST PROCESSOR ASSEMBLY DATA 177 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 3 CHX 6, 37 124 CPL 2, 3, 4, 36, 41, 47 26 CRL 32 30 CRQ 26 16 WPL 2, 24, 31, 34 20 WX1 12 17 WX4 11 35 XR1 23 0 XR4 2, 7, 22, 44 7 ERTN 46 INIW 40 47 PTBL 4, 25, 30, 31, 34, 41, 46 2 ECHAR 0, 14 11 EWORD 0 36 RESET 22 WLINE 0 173 WRFLX 33 0 NO ERROR IN ABOVE ASSEMBLY. 1 DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. PAGE 1 REVISED 9/14/65 - NOEL I. MORRIS UNLIST M CALL MACRO SUBR,LIST 00000 ENTRY DSKER 00000 -0500 00 0 00006 DSKER CAL =HPRNTER 00001 0560 00 0 00004 LDQ =O-71 00002 CALL NEXCOM 00002 0074 00 4 00003 TSX NEXCOM,4 .002 00003 RMT * REMOTE SEQUENCES 00003 0101 00 0 00005 NEXCOM TIA =HNEXCOM .002 END LITERALS 00004 400000000071 00005 452567234644 00006 475145632551 1 DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. PAGE 1 POST PROCESSOR ASSEMBLY DATA 7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 0 DSKER 0 3 NEXCOM 2 0 NO ERROR IN ABOVE ASSEMBLY. PRFIB BCD 05/12/69 2020.2 4682 00000 1 MAD PROGRAM LISTING ... ... ... FILE PRFIB MAD 05/04/69 1511.6 - PRFIB PRINT ALL PENDING FIB JOBS FOR USER LM00001 LM00002 LM00003 MODIFIED FOR '(ALL)' ARGUMENT BY ROGER ROACH 5/18/67 LM00004 MODIFIED FOR 'PROB PROG' ARGUMENTS BY JIM BIXBY 12/26/67 LM00005 ABOVE OPTIONS RESTRICTED TO M1416 BY P.R.BOS 1/2/68 LM00006 LM00007 NORMAL MODE IS INTEGER *001 LM00008 DIMENSION CARD (13), WHO (1), BUFF1 (431) *002 LM00009 LM00010 PRESET DECLARATIONS. LM00011 LM00012 VECTOR VALUES FIBJOB = $FIBJOB$ *003 LM00013 VECTOR VALUES FILE = $ FILE$ *004 LM00014 VECTOR VALUES C0056 = $ C0056$ *005 LM00015 VECTOR VALUES FIBMON = $ 99995$ *006 LM00016 VECTOR VALUES FENCE = 777777777777K *007 LM00017 VECTOR VALUES MZE = -0 *008 LM00018 VECTOR VALUES CT = 0 *009 LM00019 VECTOR VALUES FIRST = 1B *010 LM00020 VECTOR VALUES ALL = $ (ALL)$ *011 LM00021 VECTOR VALUES M1416 = $ M1416$ *012 LM00022 LM00023 LM00024 EQUIVALENCE (PROBN, WHO (1)), (PROGN, WHO) *013 LM00025 EQUIVALENCE (JPROB, CARD (13)), (JPROG, CARD (11)), *014 LM00026 1 (ESTTIM, CARD (9)), (DRB4, CARD (8)), *014 LM00027 2 (JNAME, CARD (10)) *014 LM00028 LM00029 LM00030 LM00031 PICK UP PARAMETERS LM00032 LM00033 PRMESS. *015 LM00034 WHOAMI. (WHO (1) ... 2) *016 LM00035 WHENEVER WHO(1) .NE. M1416 *017 LM00036 ARG = FENCE *018 LM00037 OTHERWISE *019 LM00038 ARG = COMARG.(1) *020 LM00039 ARG2 = COMARG.(2) *021 LM00040 WHENEVER ARG.NE.FENCE.AND.ARG2.NE.FENCE *022 LM00041 PROBN = ARG *023 LM00042 PROGN = ARG2 *024 LM00043 END OF CONDITIONAL *025 LM00044 END OF CONDITIONAL *026 LM00045 LM00046 FERRTN. (ERROR) *027 LM00047 LM00048 LM00049 LINK TO FIBJOB FILE AND SEARCH FOR USER'S JOB. LM00050 LM00051 LINK. (FIBJOB, FILE, C0056, FIBMON, MZE, MZE, 124K, ERR1) *028 LM00052 BFOPEN. ($R$, FIBJOB, FILE, BUFF1 (431), MZE, MZE, ERR1) *029 LM00053 UNLINK. (FIBJOB, FILE) *030 LM00054 LM00055 READ BFREAD. (FIBJOB, FILE, CARD (13) ... 14, CLOS, CT, ERROR) *031 LM00056 LM00057 WHENEVER ARG .E. ALL, TRANSFER TO ONWARD *032 LM00058 WHENEVER JPROB .NE. PROBN .OR. JPROG .NE. PROGN, TRANSFER TO READ *033 LM00059 LM00060 LM00061 CARD FOUND. LM00062 LM00063 ONWARD WHENEVER FIRST *034 LM00064 WHENEVER ARG.E.ALL,PRMESA.($ PROB PROG$,BL) *035 LM00065 PRMESS. (HEADER ... 5) *036 LM00066 VECTOR VALUES HEADER = $JOBNAM LIMIT DATE TIME$ *037 LM00067 PRMESS. *038 LM00068 FIRST = 0B *039 LM00069 END OF CONDITIONAL *040 LM00070 LM00071 FTIME. (DRB4, DATE, TIME) *041 LM00072 DATEX = ((DATE.A.7777K8)).V.((DATE.A.7777K4).RS.6).V.$00/00 $ *042 LM00073 WHENEVER ARG.E.ALL,PRMESA.(JPROB,JPROG,BL) *043 LM00074 PRMESS. (JNAME, BZEL. (DERBC. (ESTTIM)), BL, DATEX, TIME) *044 LM00075 VECTOR VALUES BL = 6060 6057 5757K *045 LM00076 TRANSFER TO READ *046 LM00077 LM00078 CLOS BFCLOS. (FIBJOB, FILE, ERROR) *047 LM00079 LM00080 WHENEVER FIRST *048 LM00081 PRMESS. (NOJOB ... 3, PROBN, PROGN, $.$) *049 LM00082 VECTOR VALUES NOJOB = $ NO FIB JOBS FOR$ *050 LM00083 END OF CONDITIONAL *051 LM00084 LM00085 PRMESS. *052 LM00086 LM00087 CHNCOM. (0) *053 LM00088 LM00089 LM00090 FILE SYSTEM ERROR ENCOUNTERED. LM00091 LM00092 ERR1 UNLINK. (FIBJOB, FILE) *054 LM00093 ERROR DSKER. *055 LM00094 LM00095 LM00096 END OF PROGRAM *056 LM00097 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01212 TRANSFER VECTOR LENGTH 00021 PROGRAM BEGINS 00777 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ALL 00047 A 1 CLOS 00042 4 ESTTIM 00030 1 JNAME 00027 1 ONWARD 00045 4 ARG2 00050 1 CT 00734 A 1 FENCE 00737 A 1 JPROB 00024 1 PROBN 00022 1 ARG 00051 1 DATE 00735 1 FIBJOB 00740 A 1 JPROG 00026 1 PROGN 00023 1 BL 00052 A 1 DATEX 00736 1 FIBMON 00741 A 1 M1416 00751 A 1 READ 00046 4 BUFF1 00732 A 1 DRB4 00031 1 FILE 00742 A 1 MZE 00752 A 1 TIME 00756 1 C0056 00733 A 1 ERR1 00043 4 FIRST 00743 A 2 NOJOB 00755 A 1 WHO 00023 A 1 CARD 00041 A 1 ERROR 00044 4 HEADER 00750 A 1 0FUNCTION DICTIONARY BFCLOS 00000 1 BFOPEN 00001 1 BFREAD 00002 1 BZEL 00003 1 CHNCOM 00004 1 COMARG 00005 1 DERBC 00006 1 DSKER 00007 1 EXIT 00010 1 FERRTN 00011 1 FTIME 00012 1 .SETUP 00013 1 LINK 00014 1 PRMESA 00015 1 PRMESS 00016 1 UNLINK 00017 1 WHOAMI 00020 1 0ABSOLUTE CONSTANTS 00772 +336060606060 00762 +000000000003 00767 +000061000060 00776 -377700000000 00764 +000000000006 00770 +000077770000 00757 +000000000000 00763 +000000000005 00775 -206047514627 00774 -204751462260 00765 +000000000016 00773 -116060606060 00766 +000000000124 00761 +000000000002 00760 +000000000001 00771 +233000000000 0STATEMENT DICTIONARY 00042 TXL -301170001164 00043 TXL -301205001202 00044 TXL -301206001205 00045 TXL -301103001101 00046 TXL -301066001057 0PROGRAM N'R 001 LM00008 D'N CARD (13), WHO (1), BUFF1 (431) 002 LM00009 V'S FIBJOB = $FIBJOB$ 003 LM00013 00777 TSX +0 07400 4 00013 00740 +2 63122 4 14622 V'S FILE = $ FILE$ 004 LM00014 00742 -2 06026 3 14325 V'S C0056 = $ C0056$ 005 LM00015 00733 -2 02300 0 00506 V'S FIBMON = $ 99995$ 006 LM00016 00741 -2 01111 1 11105 V'S FENCE = 777777777777K 007 LM00017 00737 -3 77777 7 77777 V'S MZE = -0 008 LM00018 00752 -0 00000 0 00000 V'S CT = 0 009 LM00019 00734 +0 00000 0 00000 V'S FIRST = 1B 010 LM00020 00743 +0 00000 0 00001 V'S ALL = $ (ALL)$ 011 LM00021 00047 -2 07421 4 34334 V'S M1416 = $ M1416$ 012 LM00022 00751 -2 04401 0 40106 E'E (PROBN, WHO (1)), (PROGN, WHO) 013 LM00025 E'E (JPROB, CARD (13)), (JPROG, CARD (11)), 014 LM00026 1 (ESTTIM, CARD (9)), (DRB4, CARD (8)), 014 LM00027 2 (JNAME, CARD (10)) 014 LM00028 PRMESS. 015 LM00034 01000 TSX +0 07400 4 00016 WHOAMI. (WHO (1) ... 2) 016 LM00035 01001 TSX +0 07400 4 00020 01002 TIX +2 00761 0 00022 W'R WHO(1) .NE. M1416 017 LM00036 01003 CLA +0 50000 0 00022 01004 SUB +0 40200 0 00751 01005 TZE +0 10000 0 01011 ARG = FENCE 018 LM00037 01006 CLA +0 50000 0 00737 01007 STO +0 60100 0 00051 O'E 019 LM00038 01010 TRA +0 02000 0 01031 ARG = COMARG.(1) 020 LM00039 01011 TSX +0 07400 4 00005 01012 TXH +3 00000 0 00760 01013 STO +0 60100 0 00051 ARG2 = COMARG.(2) 021 LM00040 01014 TSX +0 07400 4 00005 01015 TXH +3 00000 0 00761 01016 STO +0 60100 0 00050 W'R ARG.NE.FENCE.AND.ARG2.NE.FENCE 022 LM00041 01017 CLA +0 50000 0 00050 01020 SUB +0 40200 0 00737 01021 TZE +0 10000 0 01031 01022 CLA +0 50000 0 00051 01023 SUB +0 40200 0 00737 01024 TZE +0 10000 0 01031 PROBN = ARG 023 LM00042 01025 CLA +0 50000 0 00051 01026 STO +0 60100 0 00022 PROGN = ARG2 024 LM00043 01027 CLA +0 50000 0 00050 01030 STO +0 60100 0 00023 E'L 025 LM00044 E'L 026 LM00045 FERRTN. (ERROR) 027 LM00047 01031 TSX +0 07400 4 00011 01032 TXH +3 00000 0 00044 LINK. (FIBJOB, FILE, C0056, FIBMON, MZE, MZE, 124K, ERR1) 028 LM00052 01033 TSX +0 07400 4 00014 01034 TXH +3 00000 0 00740 01035 TXH +3 00000 0 00742 01036 TXH +3 00000 0 00733 01037 TXH +3 00000 0 00741 01040 TXH +3 00000 0 00752 01041 TXH +3 00000 0 00752 01042 TXH +3 00000 0 00766 01043 TXH +3 00000 0 00043 BFOPEN. ($R$, FIBJOB, FILE, BUFF1 (431), MZE, MZE, ERR1) 029 LM00053 01044 TSX +0 07400 4 00001 01045 TXH +3 00000 0 00773 01046 TXH +3 00000 0 00740 01047 TXH +3 00000 0 00742 01050 TXH +3 00000 0 00053 01051 TXH +3 00000 0 00752 01052 TXH +3 00000 0 00752 01053 TXH +3 00000 0 00043 UNLINK. (FIBJOB, FILE) 030 LM00054 01054 TSX +0 07400 4 00017 01055 TXH +3 00000 0 00740 01056 TXH +3 00000 0 00742 READ BFREAD. (FIBJOB, FILE, CARD (13) ... 14, CLOS, CT, ERROR) 031 LM00056 01057 TSX +0 07400 4 00002 01060 TXH +3 00000 0 00740 01061 TXH +3 00000 0 00742 01062 TIX +2 00765 0 00024 01063 TXH +3 00000 0 00042 01064 TXH +3 00000 0 00734 01065 TXH +3 00000 0 00044 W'R ARG .E. ALL, T'O ONWARD 032 LM00058 01066 CLA +0 50000 0 00051 01067 SUB +0 40200 0 00047 01070 TNZ -0 10000 0 01072 01071 TRA +0 02000 0 00045 W'R JPROB .NE. PROBN .OR. JPROG .NE. PROGN, T'O READ 033 LM00059 01072 CLA +0 50000 0 00026 01073 SUB +0 40200 0 00023 01074 TNZ -0 10000 0 01100 01075 CLA +0 50000 0 00024 01076 SUB +0 40200 0 00022 01077 TZE +0 10000 0 01101 01100 TRA +0 02000 0 00046 ONWARD W'R FIRST 034 LM00064 01101 NZT -0 52000 0 00743 01102 TRA +0 02000 0 01117 W'R ARG.E.ALL,PRMESA.($ PROB PROG$,BL) 035 LM00065 01103 CLA +0 50000 0 00051 01104 SUB +0 40200 0 00047 01105 TNZ -0 10000 0 01112 01106 TSX +0 07400 4 00015 01107 TXH +3 00000 0 00774 01110 TXH +3 00000 0 00775 01111 TXH +3 00000 0 00052 PRMESS. (HEADER ... 5) 036 LM00066 01112 TSX +0 07400 4 00016 01113 TIX +2 00763 0 00750 V'S HEADER = $JOBNAM LIMIT DATE TIME$ 037 LM00067 00744 -0 42560 6 06060 00745 -2 32560 6 06331 00746 -2 36060 6 02421 00747 -2 06043 3 14431 00750 -0 14622 4 52144 PRMESS. 038 LM00068 01114 TSX +0 07400 4 00016 FIRST = 0B 039 LM00069 01115 CLA +0 50000 0 00757 01116 STO +0 60100 0 00743 E'L 040 LM00070 FTIME. (DRB4, DATE, TIME) 041 LM00072 01117 TSX +0 07400 4 00012 01120 TXH +3 00000 0 00031 01121 TXH +3 00000 0 00735 01122 TXH +3 00000 0 00756 DATEX = ((DATE.A.7777K8)).V.((DATE.A.7777K4).RS.6).V.$00/00 $ 042 LM00073 01123 CAL -0 50000 0 00735 01124 ANA -0 32000 0 00770 01125 SLW +0 60200 0 01207 01126 CAL -0 50000 0 00764 01127 STA +0 62100 0 01131 01130 CAL -0 50000 0 01207 01131 LGR -0 76500 0 00000 01132 SLW +0 60200 0 01207 01133 CAL -0 50000 0 00735 01134 ANA -0 32000 0 00776 01135 ORA -0 50100 0 01207 01136 ORA -0 50100 0 00767 01137 SLW +0 60200 0 00736 W'R ARG.E.ALL,PRMESA.(JPROB,JPROG,BL) 043 LM00074 01140 CLA +0 50000 0 00051 01141 SUB +0 40200 0 00047 01142 TNZ -0 10000 0 01147 01143 TSX +0 07400 4 00015 01144 TXH +3 00000 0 00024 01145 TXH +3 00000 0 00026 01146 TXH +3 00000 0 00052 PRMESS. (JNAME, BZEL. (DERBC. (ESTTIM)), BL, DATEX, TIME) 044 LM00075 01147 TSX +0 07400 4 00006 01150 TXH +3 00000 0 00030 01151 STO +0 60100 0 01207 01152 TSX +0 07400 4 00003 01153 TXH +3 00000 0 01207 01154 STO +0 60100 0 01207 01155 TSX +0 07400 4 00016 01156 TXH +3 00000 0 00027 01157 TXH +3 00000 0 01207 01160 TXH +3 00000 0 00052 01161 TXH +3 00000 0 00736 01162 TXH +3 00000 0 00756 V'S BL = 6060 6057 5757K 045 LM00076 00052 -2 06060 5 75757 T'O READ 046 LM00077 01163 TRA +0 02000 0 00046 CLOS BFCLOS. (FIBJOB, FILE, ERROR) 047 LM00079 01164 TSX +0 07400 4 00000 01165 TXH +3 00000 0 00740 01166 TXH +3 00000 0 00742 01167 TXH +3 00000 0 00044 W'R FIRST 048 LM00081 01170 NZT -0 52000 0 00743 01171 TRA +0 02000 0 01177 PRMESS. (NOJOB ... 3, PROBN, PROGN, $.$) 049 LM00082 01172 TSX +0 07400 4 00016 01173 TIX +2 00762 0 00755 01174 TXH +3 00000 0 00022 01175 TXH +3 00000 0 00023 01176 TXH +3 00000 0 00772 V'S NOJOB = $ NO FIB JOBS FOR$ 050 LM00083 00753 -2 02646 5 16060 00754 +2 26041 4 62262 00755 -2 04546 6 02631 E'L 051 LM00084 PRMESS. 052 LM00086 01177 TSX +0 07400 4 00016 CHNCOM. (0) 053 LM00088 01200 TSX +0 07400 4 00004 01201 TXH +3 00000 0 00757 ERR1 UNLINK. (FIBJOB, FILE) 054 LM00093 01202 TSX +0 07400 4 00017 01203 TXH +3 00000 0 00740 01204 TXH +3 00000 0 00742 ERROR DSKER. 055 LM00094 01205 TSX +0 07400 4 00007 E'M 056 LM00097 01206 TSX +0 07400 4 00010 PRINT BCD 09/18/68 2319.3 23960 00000 1 MAD PROGRAM LISTING ... ... ... FILE PRINT0 MAD 02/07/68 2232.7 - PRNTF ..PRINTS FILE OF VARIABLE LENGTH BCD RECORDS LM00001 LM00002 ..PRINT NAME1 NAME2 R (TO R1) F(1) L(1) ... F(N) L(N) LM00003 ..TAB (FULL) LM00004 LM00005 ..PRINTING BEGINS WITH THE RTH RECORD, ENDS WITH R1TH RECORD LM00006 ..PRINTED LINE IS A CONCATENATION OF EVERY F(I)...L(I) FIELDS LM00007 ..WHERE F(I) AND L(I) ARE THE RANKS OF FIRST AND LAST LM00008 ..CHARACTER OF THE FIELD SELECTED FROM THE RECORD LM00009 .. 'R' IS INTERPRETED AS A LINE NUMBER, AS LONG AS RECORDS LM00010 ..KEEP 14 WORDS LONG. ANY DIFFERENT LENGTH SWITCHES TO LM00011 ..INTERPRETATION AS RECORD NUMBER STARTING FROM 1, BY 1. LM00012 .. 'THRU' INSTEAD OF 'TO', FORCES RECORD NUMBER MODE. LM00013 ..LINE NUMBER IS PRINTED ON THE LEFT, UNLESS USER'S LM00014 ..EDITING SPECIFICATIONS. (LINE NUMBER = COL. 73 - 80) LM00015 ..LAST L(N) MAY BE OMITTED, AND IS ASSUMED F(N). LM00016 ..COMPUTATION CENTER JUNE 64 LOUIS POUZIN LM00017 ..OCTOBER 65 E.QUISENBERRY LM00018 LM00019 GCLS.(A,0) *001 LM00020 AA THROUGH AA, FOR A=1, 1, A.E.20.OR.A(A).E.FENCE *002 LM00021 LM00022 ..THERE ARE A-1 SIGNIFICANT ARGUMENTS LM00023 LM00024 WHENEVER A.LE.2, TRANSFER TO ERR1 *003 LM00025 BFOPEN.($R$,A(1),A(2),BUF1(432),-0,-0,NEXT) *004 LM00026 TRANSFER TO WHEN *005 LM00027 NEXT PRNTER.(61K) *006 LM00028 EXECUTE BRAKE. *007 LM00029 TRANSFER TO OUT *008 LM00030 WHEN WHENEVER A.E.3,TRANSFER TO DD *009 LM00031 WHENEVER A(3).E.$(FULL)$ *010 LM00032 EXECUTE FULMD. *011 LM00033 FULL=5 *012 LM00034 WHENEVER A.E.4,TRANSFER TO DD *013 LM00035 N=4 *014 LM00036 OTHERWISE *015 LM00037 N=3 *016 LM00038 END OF CONDITIONAL *017 LM00039 WHENEVER TDEC.(A(N)).E.0, EXECUTE ERR2.(A(N)) *018 LM00040 R=BCDEC.(A(N)) *019 LM00041 WHENEVER R.E.0, R=1 *020 LM00042 LN=ZEL.(A(N)) *021 LM00043 WHENEVER A.E.N+1, TRANSFER TO DD *022 LM00044 WHENEVER A(N+1).E.$(FULL)$ *023 LM00045 EXECUTE FULMD. *024 LM00046 FULL=5 *025 LM00047 TRANSFER TO DD *026 LM00048 END OF CONDITIONAL *027 LM00049 WHENEVER A(N+1).E.$ THRU$ *028 LM00050 FIX=0 *029 LM00051 TRANSFER TO GG *030 LM00052 OR WHENEVER A(N+1).E.$ TO$ *031 LM00053 GG CONTINUE *032 LM00054 WHENEVER A.GE.N+3 *033 LM00055 WHENEVER TDEC.(A(N+2)).E.0, EXECUTE ERR2.(A(N+2)) *034 LM00056 L1=ZEL.(A(N+2)) *035 LM00057 END OF CONDITIONAL *036 LM00058 D=N+2 *037 LM00059 WHENEVER L1.L.LN *038 LM00060 MES2=A(N) *039 LM00061 MES2(2)=A(N+2) *040 LM00062 EXECUTE PRNTP.(MES2) *041 LM00063 EXECUTE BRAKE. *042 LM00064 TRANSFER TO OUT *043 LM00065 END OF CONDITIONAL *044 LM00066 WHENEVER A.LE.N+3, TRANSFER TO DD *045 LM00067 END OF CONDITIONAL *046 LM00068 MINUS=0 *047 LM00069 THROUGH EE, FOR E=D+1,1,E.E.A *048 LM00070 WHENEVER A(E).E.$ TAB$,TRANSFER TO QBMP *049 LM00071 WHENEVER A(E).E.$(FULL)$ *050 LM00072 EXECUTE FULMD. *051 LM00073 MINUS=MINUS+1 *052 LM00074 FULL=5 *053 LM00075 TRANSFER TO EE *054 LM00076 END OF CONDITIONAL *055 LM00077 WHENEVER TDEC.(A(E)).E.0,EXECUTE ERR2.(A(E)) *056 LM00078 EDIT=1 *057 LM00079 C=BCDEC.(A(E)) *058 LM00080 C(E-D-MINUS)=C *059 LM00081 WHENEVER XMOD.(E-D-MINUS,2).E.1,C(E-D-MINUS+1)=C *060 LM00082 TRANSFER TO EE *061 LM00083 QBMP TBCT=TBCT+1 *062 LM00084 MINUS=MINUS+1 *063 LM00085 EE CONTINUE *064 LM00086 DD CONTINUE *065 LM00087 LM00088 LM00089 EXECUTE SETBRK.(FF1) *066 LM00090 WHENEVER R.LE.1.AND.D.E.3.AND.MES3.E.0 *067 LM00091 KK(0)=575757575755K *068 LM00092 KK(1)=A(1) *069 LM00093 KK(2)=575757575760K *070 LM00094 KK(3)=A(2) *071 LM00095 KK(4)=606060606060K *072 LM00096 KK(6)=KK(2) *073 LM00097 GETTM.(KK(5),KK(7)) *074 LM00098 KK(8)=KK(0) *075 LM00099 KK(9)=575757575755K *076 LM00100 KK(10)=FENCE *077 LM00101 PRNTPC.(KK) *078 LM00102 END OF CONDITIONAL *079 LM00103 THROUGH BB, FOR B=1,1,FIX.E.0.AND.B.G.R *080 LM00104 BFREAD.(A(1),A(2),K(NAX)...1,FF,QEOFCT,QERR) *081 LM00105 WHENEVER K(NAX).A.MASK1.NE.MASK1 *082 LM00106 TRANSFER TO LNUM *083 LM00107 OTHERWISE *084 LM00108 EXECUTE INMK. *085 LM00109 FIX=0 *086 LM00110 END OF CONDITIONAL *087 LM00111 TRANSFER TO BB *088 LM00112 ..CARD IMAGE FILES SHOULD ONLY BE PRINTED IN THE 6 BIT MODE LM00113 LNUM BFREAD.(A(1),A(2),K(21)...13,FF,QEOFCT,QERR) *089 LM00114 WHENEVER GLBLN.(W).GE.LN.AND.FIX.E.1,TRANSFER TO JJ *090 LM00115 BB CONTINUE *091 LM00116 JJ CONTINUE *092 LM00117 WHENEVER GLBLN.(W).G.L1.AND.FIX.E.1,TRANSFER TO FF *093 LM00118 LM00119 R1=BCDEC.(L1) *094 LM00120 WHENEVER EDIT.E.0 *095 LM00121 THROUGH LL,FOR L=R,1,L.G.R1.AND.FIX.E.0 *096 LM00122 WHENEVER FIX.E.0.AND.K(NAX).A.MASK1.E.MASK1,TRANSFER TO MARK1 *097 LM00123 WHENEVER FIX.E.0 *098 LM00124 ICD=-1 *099 LM00125 LINC=12 *100 LM00126 EGB=22 *101 LM00127 TRANSFER TO MARK2 *102 LM00128 END OF CONDITIONAL *103 LM00129 KK(0)=K(10) *104 LM00130 KK(1)=K(9) *105 LM00131 ZERO=2 *106 LM00132 ICD=1 *107 LM00133 LINC=12 *108 LM00134 EGB=22 *109 LM00135 TRANSFER TO MARK2 *110 LM00136 MARK1 ICD=-1 *111 LM00137 LINC=CLIN *112 LM00138 EGB=BEG *113 LM00139 MARK2 PRNCT=(36/CHAR)*LINC-1 *114 LM00140 DEN1=NAX-LINC *115 LM00141 UNPKNR.(K(EGB)...K(DEN1),KCHOS...KCHOS(PRNCT),CHAR) *116 LM00142 EXECUTE PRYNT. *117 LM00143 WHENEVER GLBLN.(W).GE.L1.AND.FIX.E.1,TRANSFER TO FF1 *118 LM00144 WHENEVER L.E.R1.AND.FIX.E.0,TRANSFER TO FF1 *119 LM00145 BFREAD.(A(1),A(2),K(NAX)...1,FF1,QEOFCT,QERR) *120 LM00146 WHENEVER K(NAX).A.MASK1.E.MASK1 *121 LM00147 EXECUTE INMK. *122 LM00148 FIX=0 *123 LM00149 OTHERWISE *124 LM00150 BFREAD.(A(1),A(2),K(21)...13,FF1,QEOFCT,QERR) *125 LM00151 END OF CONDITIONAL *126 LM00152 LL CONTINUE *127 LM00153 OTHERWISE *128 LM00154 ACT=A-D-MINUS *129 LM00155 ACT=ACT/2 *130 LM00156 THROUGH RR,FOR L=R,1,L.G.R1.AND.FIX.E.0 *131 LM00157 WHENEVER FIX.E.0.AND.K(NAX).A.MASK1.E.MASK1,TRANSFER TO MARK *132 LM00158 UNPKNR.(K(22)...K(9),KUNP(1)...KUNP(84),CHAR) *133 LM00159 COMN ARYCT=-1 *134 LM00160 EXECUTE PKOFF. *135 LM00161 PRNCT=ARYCT-TBCT *136 LM00162 EXECUTE PRYNT. *137 LM00163 TRANSFER TO CHECK *138 LM00164 MARK NED=(36/CHAR)*CLIN *139 LM00165 DEN=NAX-CLIN *140 LM00166 UNPKNR.(K(BEG)...K(DEN),KUNP(1)...KUNP(NED),CHAR) *141 LM00167 TRANSFER TO COMN *142 LM00168 CHECK WHENEVER GLBLN.(W).GE.L1.AND.FIX.E.1,TRANSFER TO FF1 *143 LM00169 WHENEVER L.E.R1.AND.FIX.E.0,TRANSFER TO FF1 *144 LM00170 BFREAD.(A(1),A(2),K(NAX)...1,FF1,QEOFCT,QERR) *145 LM00171 WHENEVER K(NAX).A.MASK1.E.MASK1 *146 LM00172 EXECUTE INMK. *147 LM00173 FIX=0 *148 LM00174 OTHERWISE *149 LM00175 BFREAD.(A(1),A(2),K(21)...13,FF1,QEOFCT,QERR) *150 LM00176 END OF CONDITIONAL *151 LM00177 RR CONTINUE *152 LM00178 END OF CONDITIONAL *153 LM00179 LM00180 ..WHEN END OF FILE LM00181 LM00182 QERR PRNTER.(61K) *154 LM00183 TRANSFER TO FF1 *155 LM00184 FF CONTINUE *156 LM00185 EOF=A(3) *157 LM00186 EXECUTE PRNTP.(EOF) *158 LM00187 FF1 BFCLOS.(A(1),A(2),OUT) *159 LM00188 EXECUTE SAVBRK. *160 LM00189 OUT EXECUTE CHNCOM.(0) *161 LM00190 LM00191 ERR1 EXECUTE PRNTP.(MES) *162 LM00192 TRANSFER TO OUT *163 LM00193 LM00194 * * * * * * * * * * * * * * * LM00195 LM00196 INTERNAL FUNCTION(Z) *164 LM00197 ENTRY TO ERR2. *165 LM00198 MES3=Z *166 LM00199 EXECUTE PRNTP.(MES3) *167 LM00200 TRANSFER TO DD *168 LM00201 END OF FUNCTION *169 LM00202 LM00203 INTERNAL FUNCTION *170 LM00204 ENTRY TO FULMD. *171 LM00205 BLANK=006000600060K *172 LM00206 CHAR=12 *173 LM00207 WORD=3 *174 LM00208 NAX=132 *175 LM00209 BEG=131 *176 LM00210 FUNCTION RETURN *177 LM00211 END OF FUNCTION *178 LM00212 LM00213 INTERNAL FUNCTION *179 LM00214 ENTRY TO GLBLN. *180 LM00215 W=(K(10).LS.12).V.(K(9).RS.24) *181 LM00216 W=W.A.007777777777K *182 LM00217 FUNCTION RETURN W *183 LM00218 END OF FUNCTION *184 LM00219 LM00220 INTERNAL FUNCTION *185 LM00221 ENTRY TO INMK. *186 LM00222 ZERO=0 *187 LM00223 CLIN=K(NAX).A.MASK2 *188 LM00224 WHENEVER CLIN.G.NAX *189 LM00225 MOV=CLIN-NAX *190 LM00226 CLIN=NAX *191 LM00227 END OF CONDITIONAL *192 LM00228 BFREAD.(A(1),A(2),K(BEG)...CLIN,FF1,QEOFCT,QERR) *193 LM00229 MOVNE WHENEVER MOV.NE.0 *194 LM00230 WHENEVER MOV.G.NAX *195 LM00231 MV=NAX *196 LM00232 MOV=MOV-NAX *197 LM00233 OTHERWISE *198 LM00234 MV=MOV *199 LM00235 MOV=0 *200 LM00236 END OF CONDITIONAL *201 LM00237 BFREAD.(A(1),A(2),KK(BEG)...MV,FF1,QEOFCT,QERR) *202 LM00238 TRANSFER TO MOVNE *203 LM00239 END OF CONDITIONAL *204 LM00240 FUNCTION RETURN *205 LM00241 END OF FUNCTION *206 LM00242 LM00243 INTERNAL FUNCTION *207 LM00244 ENTRY TO PRYNT. *208 LM00245 TOP=PRNCT *209 LM00246 THROUGH LOOP,FOR IB=TOP,-1,IB.L.0 *210 LM00247 WHENEVER KCHOS(IB).NE.60K.AND.KCHOS(IB).NE.57K, *211 LM00248 1 TRANSFER TO NBLK *211 LM00249 LOOP PRNCT=PRNCT-1 *212 LM00250 NBLK NUM=(PRNCT)/WORD+1+ZERO *213 LM00251 WHENEVER PRNCT.L.0 *214 LM00252 NUM=0 *215 LM00253 TRANSFER TO OMIT *216 LM00254 END OF CONDITIONAL *217 LM00255 PAKNR.(KCHOS...KCHOS(PRNCT),KK(ZERO)...KK(NUM-1),CHAR) *218 LM00256 OMIT KK(NUM)=575757575755K *219 LM00257 WHENEVER FLAG.E.1 *220 LM00258 KK(NUM)=FENCE *221 LM00259 FLAG=0 *222 LM00260 WHENEVER FULL.E.5,SETFUL. *223 LM00261 TRANSFER TO PC *224 LM00262 END OF CONDITIONAL *225 LM00263 KK(NUM+1)=FENCE *226 LM00264 WHENEVER FULL.E.5 *227 LM00265 KK(NUM)=005700570055K *228 LM00266 EXECUTE SETFUL. *229 LM00267 END OF CONDITIONAL *230 LM00268 PC PRNTPC.(KK) *231 LM00269 FUNCTION RETURN *232 LM00270 END OF FUNCTION *233 LM00271 LM00272 INTERNAL FUNCTION *234 LM00273 ENTRY TO PKOFF. *235 LM00274 CKEND=CLIN*WORD *236 LM00275 THROUGH PICKC,FOR I=1,1,I.G.ACT *237 LM00276 MIN=C(2*(I-1)+1) *238 LM00277 MAX=C(2*I) *239 LM00278 INC=1 *240 LM00279 WHENEVER MAX.L.MIN,INC=-1 *241 LM00280 THROUGH CHOSC,FOR II=MIN,INC,II.E.MAX+INC *242 LM00281 WHENEVER ARYCT.E.130 *243 LM00282 PRNCT=ARYCT *244 LM00283 FLAG=1 *245 LM00284 EXECUTE PRYNT. *246 LM00285 ARYCT=0 *247 LM00286 END OF CONDITIONAL *248 LM00287 WHENEVER II.G.CKEND,TRANSFER TO CHO *249 LM00288 ARYCT=ARYCT+1 *250 LM00289 KCHOS(ARYCT)=KUNP(II) *251 LM00290 CHOSC CONTINUE *252 LM00291 CHO WHENEVER TBCT.E.0,TRANSFER TO PICKC *253 LM00292 THROUGH PICKC,FOR N=1,1,N.G.TBCT *254 LM00293 ARYCT=ARYCT+1 *255 LM00294 KCHOS(ARYCT)=72K *256 LM00295 PICKC CONTINUE *257 LM00296 FUNCTION RETURN *258 LM00297 END OF FUNCTION *259 LM00298 LM00299 * * * * * * * * * * * * * * * LM00300 LM00301 NORMAL MODE IS INTEGER *260 LM00302 DIMENSION KK(135),BUF1(432),K(132),KUNP(396), *261 LM00303 1 KCHOS(396),A(19),C(19) *261 LM00304 LM00305 VECTOR VALUES FULL=0 *262 LM00306 VECTOR VALUES ZERO=0 *263 LM00307 VECTOR VALUES BMASK=000000000057K *264 LM00308 VECTOR VALUES CLIN=14 *265 LM00309 VECTOR VALUES MOV=0 *266 LM00310 VECTOR VALUES BLANK=606060606060K *267 LM00311 VECTOR VALUES FLAG=0 *268 LM00312 VECTOR VALUES NAX=22 *269 LM00313 VECTOR VALUES BEG=21 *270 LM00314 VECTOR VALUES EOF(1)=$ NOT IN FILE.$, 777777777777K *271 LM00315 VECTOR VALUES C=0, 1, 72 *272 LM00316 VECTOR VALUES D=3 *273 LM00317 VECTOR VALUES R=1 *274 LM00318 VECTOR VALUES R1=377777777777K *275 LM00319 VECTOR VALUES L1=377777777777K *276 LM00320 VECTOR VALUES K=$$ *277 LM00321 VECTOR VALUES FIX=1 *278 LM00322 VECTOR VALUES EDIT=0 *279 LM00323 VECTOR VALUES E=6 *280 LM00324 VECTOR VALUES H=0 *281 LM00325 VECTOR VALUES MES=$ INCORRECT FORMAT$, 777777777777K *282 LM00326 VECTOR VALUES TABCOV=15 *283 LM00327 VECTOR VALUES TBCT=0 *284 LM00328 VECTOR VALUES MASK1=777777000000K *285 LM00329 VECTOR VALUES MASK2=000000777777K *286 LM00330 VECTOR VALUES MES=$COMMAND FORMAT IS 'PRINT NAME1 NAME2 *287 LM00331 1 -R(TO/THRU R2) F(1) L(1) ... F(N) L(N) TAB (FULL)-$, *287 LM00332 2 777777777777K *287 LM00333 VECTOR VALUES WORD=6 *288 LM00334 VECTOR VALUES CHAR=6 *289 LM00335 VECTOR VALUES MES1(2)=$ NOT FOUND$, 777777777777K *290 LM00336 VECTOR VALUES MES2(1)=$ TO$, 0,$ IS ILLEGAL$, 777777777777K *291 LM00337 VECTOR VALUES MES3(1)=$ NOT DECIMAL. FOLLOWING ARGUMENTS ARE *292 LM00338 1 IGNORED.$, 777777777777K *292 LM00339 VECTOR VALUES FENCE=777777777777K *293 LM00340 END OF PROGRAM *294 LM00341 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 05213 TRANSFER VECTOR LENGTH 00025 PROGRAM BEGINS 03261 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) AA 00033 4 DEN1 01027 1 II 01051 1 MASK1 03127 A 1 OMIT 00056 4 ACT 00065 1 DEN 01030 1 INC 01052 1 MASK2 03130 A 1 OUT 00057 4 ARYCT 00066 1 D 01031 A 1 I 01053 1 MAX 03131 1 PC 00060 4 A 00112 A 1 EDIT 01032 A 1 JJ 00046 4 MES1 03136 A 1 PICKC 00061 4 BB 00034 4 EE 00041 4 KCHOS 01670 A 1 MES2 03144 A 1 PRNCT 03210 1 BEG 00113 A 1 EGB 01033 1 KK 02100 A 1 MES3 03156 A 1 QBMP 00062 4 BLANK 00114 A 1 EOF 01040 A 1 K 02305 A 1 MES 03177 A 1 QEOFCT 03211 1 BMASK 00115 A 1 ERR1 00042 4 KUNP 03122 A 1 MIN 03200 1 QERR 00063 4 B 00116 1 E 01041 A 1 L1 03123 A 1 MINUS 03201 1 R1 03212 A 1 BUF1 00777 A 1 FENCE 01042 A 1 LINC 03124 1 MOVNE 00053 4 RR 00033 4 CHAR 01000 A 1 FF1 00043 4 LL 00033 4 MOV 03202 A 1 R 03213 A 1 CHECK 00035 4 FF 00044 4 LN 03125 1 MV 03203 1 TABCOV 03214 A 1 CHO 00036 4 FIX 01043 A 1 LNUM 00047 4 NAX 03204 A 1 TBCT 03215 A 1 CHOSC 00033 4 FLAG 01044 A 1 LOOP 00033 4 NBLK 00054 4 TOP 03216 1 CKEND 01001 1 FULL 01045 A 1 L 03126 1 NED 03205 1 WHEN 00064 4 CLIN 01002 A 1 GG 00045 4 MARK1 00050 4 NEXT 00055 4 WORD 03217 A 1 COMN 00037 4 H 01046 A 1 MARK2 00051 4 N 03206 1 W 03220 1 C 01026 A 1 IB 01047 1 MARK 00052 4 NUM 03207 1 ZERO 03221 A 1 DD 00040 4 ICD 01050 1 0FUNCTION DICTIONARY BCDEC 00000 1 BFCLOS 00001 1 BFOPEN 00002 1 BFREAD 00003 1 BRAKE 00004 1 CHNCOM 00005 1 EXIT 00006 1 GCLS 00007 1 GETTM 00010 1 .SETUP 00011 1 PAKNR 00012 1 PRNTER 00013 1 PRNTPC 00014 1 PRNTP 00015 1 SAVBRK 00016 1 SETBRK 00017 1 SETFUL 00020 1 TDEC 00021 1 UNPKNR 00022 1 XMOD 00023 1 ZEL 00024 1 ERR2 00025 1 FULMD 00026 1 GLBLN 00027 1 INMK 00030 1 PKOFF 00031 1 PRYNT 00032 1 0ABSOLUTE CONSTANTS 03241 +000000000072 03242 +000000000202 03245 +005700570055 03237 +000000000060 03236 +000000000057 03247 +007777777777 03234 +000000000030 03243 +000000000203 03244 +000000000204 03246 +006000600060 03235 +000000000044 03233 +000000000026 03230 +000000000014 03231 +000000000015 03254 -206060606060 03253 -175757575760 03252 -175757575755 03256 -206060632122 03255 -206060606346 03257 -206063305164 03226 +000000000004 03227 +000000000005 03260 -342664434334 03225 +000000000003 03240 +000000000061 03251 -116060606060 03224 +000000000002 03232 +000000000024 03222 +000000000000 03223 +000000000001 03250 +233000000000 0STATEMENT DICTIONARY 00034 TXL -304017004016 00035 TXL -304362004351 00036 TXL -305152005146 00037 TXL -304307004305 00040 TXL -303666003666 00041 TXL -303666003665 00042 TXL -304447004445 00043 TXL -304442004436 00044 TXL -304432004432 00045 TXL -303455003455 00046 TXL -304017004017 00047 TXL -304005003776 00050 TXL -304117004115 00051 TXL -304133004123 00052 TXL -304323004315 00053 TXL -304623004620 00054 TXL -304733004723 00055 TXL -303327003325 00056 TXL -304770004765 00057 TXL -304445004443 00060 TXL -305022005020 00061 TXL -305174005172 00062 TXL -303662003657 00063 TXL -304431004427 00064 TXL -303335003331 0PROGRAM GCLS.(A,0) 001 LM00020 03261 TSX +0 07400 4 00011 03262 TSX +0 07400 4 00007 03263 TXH +3 00000 0 00112 03264 TXH +3 00000 0 03222 AA THROUGH AA, FOR A=1, 1, A.E.20.OR.A(A).E.FENCE 002 LM00021 03265 CLA +0 50000 0 03223 03266 STO +0 60100 0 00112 03267 TRA +0 02000 0 03273 03270 CLA +0 50000 0 00112 03271 ADD +0 40000 0 03223 03272 STO +0 60100 0 00112 03273 LXA +0 53400 1 00112 03274 CLA +0 50000 1 00112 03275 SUB +0 40200 0 01042 03276 TZE +0 10000 0 03303 03277 CLA +0 50000 0 00112 03300 SUB +0 40200 0 03232 03301 TZE +0 10000 0 03303 03302 TRA +0 02000 0 03270 WHENEVER A.LE.2, TRANSFER TO ERR1 003 LM00025 03303 CLA +0 50000 0 00112 03304 SUB +0 40200 0 03224 03305 TZE +0 10000 0 03307 03306 TPL +0 12000 0 03310 03307 TRA +0 02000 0 00042 BFOPEN.($R$,A(1),A(2),BUF1(432),-0,-0,NEXT) 004 LM00026 03310 CLS +0 50200 0 03222 03311 STO +0 60100 0 05207 03312 CLS +0 50200 0 03222 03313 STO +0 60100 0 05210 03314 TSX +0 07400 4 00002 03315 TXH +3 00000 0 03251 03316 TXH +3 00000 0 00111 03317 TXH +3 00000 0 00110 03320 TXH +3 00000 0 00117 03321 TXH +3 00000 0 05210 03322 TXH +3 00000 0 05207 03323 TXH +3 00000 0 00055 TRANSFER TO WHEN 005 LM00027 03324 TRA +0 02000 0 00064 NEXT PRNTER.(61K) 006 LM00028 03325 TSX +0 07400 4 00013 03326 TXH +3 00000 0 03240 EXECUTE BRAKE. 007 LM00029 03327 TSX +0 07400 4 00004 TRANSFER TO OUT 008 LM00030 03330 TRA +0 02000 0 00057 WHEN WHENEVER A.E.3,TRANSFER TO DD 009 LM00031 03331 CLA +0 50000 0 00112 03332 SUB +0 40200 0 03225 03333 TNZ -0 10000 0 03335 03334 TRA +0 02000 0 00040 WHENEVER A(3).E.$(FULL)$ 010 LM00032 03335 CLA +0 50000 0 00107 03336 SUB +0 40200 0 03260 03337 TNZ -0 10000 0 03352 EXECUTE FULMD. 011 LM00033 03340 TSX +0 07400 4 00026 FULL=5 012 LM00034 03341 CLA +0 50000 0 03227 03342 STO +0 60100 0 01045 WHENEVER A.E.4,TRANSFER TO DD 013 LM00035 03343 CLA +0 50000 0 00112 03344 SUB +0 40200 0 03226 03345 TNZ -0 10000 0 03347 03346 TRA +0 02000 0 00040 N=4 014 LM00036 03347 CLA +0 50000 0 03226 03350 STO +0 60100 0 03206 OTHERWISE 015 LM00037 03351 TRA +0 02000 0 03354 N=3 016 LM00038 03352 CLA +0 50000 0 03225 03353 STO +0 60100 0 03206 END OF CONDITIONAL 017 LM00039 WHENEVER TDEC.(A(N)).E.0, EXECUTE ERR2.(A(N)) 018 LM00040 03354 CLA +0 50000 0 03206 03355 SUB +0 40200 0 03356 03356 TXH +3 00000 0 00112 03357 STA +0 62100 0 03361 03360 TSX +0 07400 4 00021 03361 TXH +3 00000 0 00000 03362 SUB +0 40200 0 03222 03363 TNZ -0 10000 0 03372 03364 CLA +0 50000 0 03206 03365 SUB +0 40200 0 03366 03366 TXH +3 00000 0 00112 03367 STA +0 62100 0 03371 03370 TSX +0 07400 4 00025 03371 TXH +3 00000 0 00000 R=BCDEC.(A(N)) 019 LM00041 03372 CLA +0 50000 0 03206 03373 SUB +0 40200 0 03374 03374 TXH +3 00000 0 00112 03375 STA +0 62100 0 03377 03376 TSX +0 07400 4 00000 03377 TXH +3 00000 0 00000 03400 STO +0 60100 0 03213 WHENEVER R.E.0, R=1 020 LM00042 03401 CLA +0 50000 0 03213 03402 SUB +0 40200 0 03222 03403 TNZ -0 10000 0 03406 03404 CLA +0 50000 0 03223 03405 STO +0 60100 0 03213 LN=ZEL.(A(N)) 021 LM00043 03406 CLA +0 50000 0 03206 03407 SUB +0 40200 0 03410 03410 TXH +3 00000 0 00112 03411 STA +0 62100 0 03413 03412 TSX +0 07400 4 00024 03413 TXH +3 00000 0 00000 03414 STO +0 60100 0 03125 WHENEVER A.E.N+1, TRANSFER TO DD 022 LM00044 03415 CLA +0 50000 0 03206 03416 ADD +0 40000 0 03223 03417 CHS +0 76000 0 00002 03420 ADD +0 40000 0 00112 03421 TNZ -0 10000 0 03423 03422 TRA +0 02000 0 00040 WHENEVER A(N+1).E.$(FULL)$ 023 LM00045 03423 CLA +0 50000 0 03206 03424 ADD +0 40000 0 03223 03425 PAX +0 73400 1 00000 03426 CLA +0 50000 1 00112 03427 SUB +0 40200 0 03260 03430 TNZ -0 10000 0 03435 EXECUTE FULMD. 024 LM00046 03431 TSX +0 07400 4 00026 FULL=5 025 LM00047 03432 CLA +0 50000 0 03227 03433 STO +0 60100 0 01045 TRANSFER TO DD 026 LM00048 03434 TRA +0 02000 0 00040 END OF CONDITIONAL 027 LM00049 WHENEVER A(N+1).E.$ THRU$ 028 LM00050 03435 CLA +0 50000 0 03206 03436 ADD +0 40000 0 03223 03437 PAX +0 73400 1 00000 03440 CLA +0 50000 1 00112 03441 SUB +0 40200 0 03257 03442 TNZ -0 10000 0 03447 FIX=0 029 LM00051 03443 CLA +0 50000 0 03222 03444 STO +0 60100 0 01043 TRANSFER TO GG 030 LM00052 03445 TRA +0 02000 0 00045 OR WHENEVER A(N+1).E.$ TO$ 031 LM00053 03446 TRA +0 02000 0 03545 03447 CLA +0 50000 0 03206 03450 ADD +0 40000 0 03223 03451 PAX +0 73400 1 00000 03452 CLA +0 50000 1 00112 03453 SUB +0 40200 0 03255 03454 TNZ -0 10000 0 03545 GG CONTINUE 032 LM00054 WHENEVER A.GE.N+3 033 LM00055 03455 CLA +0 50000 0 03206 03456 ADD +0 40000 0 03225 03457 CHS +0 76000 0 00002 03460 ADD +0 40000 0 00112 03461 TZE +0 10000 0 03463 03462 TMI -0 12000 0 03513 WHENEVER TDEC.(A(N+2)).E.0, EXECUTE ERR2.(A(N+2)) 034 LM00056 03463 CLA +0 50000 0 03206 03464 ADD +0 40000 0 03224 03465 SUB +0 40200 0 03466 03466 TXH +3 00000 0 00112 03467 STA +0 62100 0 03471 03470 TSX +0 07400 4 00021 03471 TXH +3 00000 0 00000 03472 SUB +0 40200 0 03222 03473 TNZ -0 10000 0 03503 03474 CLA +0 50000 0 03206 03475 ADD +0 40000 0 03224 03476 SUB +0 40200 0 03477 03477 TXH +3 00000 0 00112 03500 STA +0 62100 0 03502 03501 TSX +0 07400 4 00025 03502 TXH +3 00000 0 00000 L1=ZEL.(A(N+2)) 035 LM00057 03503 CLA +0 50000 0 03206 03504 ADD +0 40000 0 03224 03505 SUB +0 40200 0 03506 03506 TXH +3 00000 0 00112 03507 STA +0 62100 0 03511 03510 TSX +0 07400 4 00024 03511 TXH +3 00000 0 00000 03512 STO +0 60100 0 03123 END OF CONDITIONAL 036 LM00058 D=N+2 037 LM00059 03513 CLA +0 50000 0 03206 03514 ADD +0 40000 0 03224 03515 STO +0 60100 0 01031 WHENEVER L1.L.LN 038 LM00060 03516 CLA +0 50000 0 03123 03517 SUB +0 40200 0 03125 03520 TZE +0 10000 0 03536 03521 TPL +0 12000 0 03536 MES2=A(N) 039 LM00061 03522 LXA +0 53400 2 03206 03523 CLA +0 50000 2 00112 03524 STO +0 60100 0 03144 MES2(2)=A(N+2) 040 LM00062 03525 CLA +0 50000 0 03206 03526 ADD +0 40000 0 03224 03527 PAX +0 73400 2 00000 03530 CLA +0 50000 2 00112 03531 STO +0 60100 0 03142 EXECUTE PRNTP.(MES2) 041 LM00063 03532 TSX +0 07400 4 00015 03533 TXH +3 00000 0 03144 EXECUTE BRAKE. 042 LM00064 03534 TSX +0 07400 4 00004 TRANSFER TO OUT 043 LM00065 03535 TRA +0 02000 0 00057 END OF CONDITIONAL 044 LM00066 WHENEVER A.LE.N+3, TRANSFER TO DD 045 LM00067 03536 CLA +0 50000 0 03206 03537 ADD +0 40000 0 03225 03540 CHS +0 76000 0 00002 03541 ADD +0 40000 0 00112 03542 TZE +0 10000 0 03544 03543 TPL +0 12000 0 03545 03544 TRA +0 02000 0 00040 END OF CONDITIONAL 046 LM00068 MINUS=0 047 LM00069 03545 CLA +0 50000 0 03222 03546 STO +0 60100 0 03201 THROUGH EE, FOR E=D+1,1,E.E.A 048 LM00070 03547 CLA +0 50000 0 01031 03550 ADD +0 40000 0 03223 03551 STO +0 60100 0 01041 03552 TRA +0 02000 0 03556 03553 CLA +0 50000 0 01041 03554 ADD +0 40000 0 03223 03555 STO +0 60100 0 01041 03556 CLA +0 50000 0 01041 03557 SUB +0 40200 0 00112 03560 TZE +0 10000 0 03666 WHENEVER A(E).E.$ TAB$,TRANSFER TO QBMP 049 LM00071 03561 LXA +0 53400 1 01041 03562 CLA +0 50000 1 00112 03563 SUB +0 40200 0 03256 03564 TNZ -0 10000 0 03566 03565 TRA +0 02000 0 00062 WHENEVER A(E).E.$(FULL)$ 050 LM00072 03566 LXA +0 53400 1 01041 03567 CLA +0 50000 1 00112 03570 SUB +0 40200 0 03260 03571 TNZ -0 10000 0 03601 EXECUTE FULMD. 051 LM00073 03572 TSX +0 07400 4 00026 MINUS=MINUS+1 052 LM00074 03573 CLA +0 50000 0 03201 03574 ADD +0 40000 0 03223 03575 STO +0 60100 0 03201 FULL=5 053 LM00075 03576 CLA +0 50000 0 03227 03577 STO +0 60100 0 01045 TRANSFER TO EE 054 LM00076 03600 TRA +0 02000 0 00041 END OF CONDITIONAL 055 LM00077 WHENEVER TDEC.(A(E)).E.0,EXECUTE ERR2.(A(E)) 056 LM00078 03601 CLA +0 50000 0 01041 03602 SUB +0 40200 0 03603 03603 TXH +3 00000 0 00112 03604 STA +0 62100 0 03606 03605 TSX +0 07400 4 00021 03606 TXH +3 00000 0 00000 03607 SUB +0 40200 0 03222 03610 TNZ -0 10000 0 03617 03611 CLA +0 50000 0 01041 03612 SUB +0 40200 0 03613 03613 TXH +3 00000 0 00112 03614 STA +0 62100 0 03616 03615 TSX +0 07400 4 00025 03616 TXH +3 00000 0 00000 EDIT=1 057 LM00079 03617 CLA +0 50000 0 03223 03620 STO +0 60100 0 01032 C=BCDEC.(A(E)) 058 LM00080 03621 CLA +0 50000 0 01041 03622 SUB +0 40200 0 03623 03623 TXH +3 00000 0 00112 03624 STA +0 62100 0 03626 03625 TSX +0 07400 4 00000 03626 TXH +3 00000 0 00000 03627 STO +0 60100 0 01026 C(E-D-MINUS)=C 059 LM00081 03630 CLA +0 50000 0 01041 03631 SUB +0 40200 0 01031 03632 SUB +0 40200 0 03201 03633 PAX +0 73400 1 00000 03634 CLA +0 50000 0 01026 03635 STO +0 60100 1 01026 WHENEVER XMOD.(E-D-MINUS,2).E.1,C(E-D-MINUS+1)=C 060 LM00082 03636 CLA +0 50000 0 01041 03637 SUB +0 40200 0 01031 03640 SUB +0 40200 0 03201 03641 STO +0 60100 0 05210 03642 TSX +0 07400 4 00023 03643 TXH +3 00000 0 05210 03644 TXH +3 00000 0 03224 03645 SUB +0 40200 0 03223 03646 TNZ -0 10000 0 03656 03647 CLA +0 50000 0 01041 03650 SUB +0 40200 0 01031 03651 SUB +0 40200 0 03201 03652 ADD +0 40000 0 03223 03653 PAX +0 73400 1 00000 03654 CLA +0 50000 0 01026 03655 STO +0 60100 1 01026 TRANSFER TO EE 061 LM00083 03656 TRA +0 02000 0 00041 QBMP TBCT=TBCT+1 062 LM00084 03657 CLA +0 50000 0 03215 03660 ADD +0 40000 0 03223 03661 STO +0 60100 0 03215 MINUS=MINUS+1 063 LM00085 03662 CLA +0 50000 0 03201 03663 ADD +0 40000 0 03223 03664 STO +0 60100 0 03201 EE CONTINUE 064 LM00086 03665 TRA +0 02000 0 03553 DD CONTINUE 065 LM00087 EXECUTE SETBRK.(FF1) 066 LM00090 03666 TSX +0 07400 4 00017 03667 TXH +3 00000 0 00043 WHENEVER R.LE.1.AND.D.E.3.AND.MES3.E.0 067 LM00091 03670 CLA +0 50000 0 03156 03671 SUB +0 40200 0 03222 03672 TNZ -0 10000 0 03731 03673 CLA +0 50000 0 01031 03674 SUB +0 40200 0 03225 03675 TNZ -0 10000 0 03731 03676 CLA +0 50000 0 03213 03677 SUB +0 40200 0 03223 03700 TZE +0 10000 0 03702 03701 TPL +0 12000 0 03731 KK(0)=575757575755K 068 LM00092 03702 CLA +0 50000 0 03252 03703 STO +0 60100 0 02100 KK(1)=A(1) 069 LM00093 03704 CLA +0 50000 0 00111 03705 STO +0 60100 0 02077 KK(2)=575757575760K 070 LM00094 03706 CLA +0 50000 0 03253 03707 STO +0 60100 0 02076 KK(3)=A(2) 071 LM00095 03710 CLA +0 50000 0 00110 03711 STO +0 60100 0 02075 KK(4)=606060606060K 072 LM00096 03712 CLA +0 50000 0 03254 03713 STO +0 60100 0 02074 KK(6)=KK(2) 073 LM00097 03714 CLA +0 50000 0 02076 03715 STO +0 60100 0 02072 GETTM.(KK(5),KK(7)) 074 LM00098 03716 TSX +0 07400 4 00010 03717 TXH +3 00000 0 02073 03720 TXH +3 00000 0 02071 KK(8)=KK(0) 075 LM00099 03721 CLA +0 50000 0 02100 03722 STO +0 60100 0 02070 KK(9)=575757575755K 076 LM00100 03723 CLA +0 50000 0 03252 03724 STO +0 60100 0 02067 KK(10)=FENCE 077 LM00101 03725 CLA +0 50000 0 01042 03726 STO +0 60100 0 02066 PRNTPC.(KK) 078 LM00102 03727 TSX +0 07400 4 00014 03730 TXH +3 00000 0 02100 END OF CONDITIONAL 079 LM00103 THROUGH BB, FOR B=1,1,FIX.E.0.AND.B.G.R 080 LM00104 03731 CLA +0 50000 0 03223 03732 STO +0 60100 0 00116 03733 TRA +0 02000 0 03737 03734 CLA +0 50000 0 00116 03735 ADD +0 40000 0 03223 03736 STO +0 60100 0 00116 03737 CLA +0 50000 0 00116 03740 SUB +0 40200 0 03213 03741 TZE +0 10000 0 03746 03742 TMI -0 12000 0 03746 03743 CLA +0 50000 0 01043 03744 SUB +0 40200 0 03222 03745 TZE +0 10000 0 04017 BFREAD.(A(1),A(2),K(NAX)...1,FF,QEOFCT,QERR) 081 LM00105 03746 CLA +0 50000 0 03204 03747 SUB +0 40200 0 03750 03750 TXH +3 00000 0 02305 03751 STA +0 62100 0 03755 03752 TSX +0 07400 4 00003 03753 TXH +3 00000 0 00111 03754 TXH +3 00000 0 00110 03755 TIX +2 03223 0 00000 03756 TXH +3 00000 0 00044 03757 TXH +3 00000 0 03211 03760 TXH +3 00000 0 00063 WHENEVER K(NAX).A.MASK1.NE.MASK1 082 LM00106 03761 LXA +0 53400 1 03204 03762 CAL -0 50000 1 02305 03763 ANA -0 32000 0 03127 03764 SLW +0 60200 0 05210 03765 CLA +0 50000 0 05210 03766 SUB +0 40200 0 03127 03767 TZE +0 10000 0 03772 TRANSFER TO LNUM 083 LM00107 03770 TRA +0 02000 0 00047 OTHERWISE 084 LM00108 03771 TRA +0 02000 0 03775 EXECUTE INMK. 085 LM00109 03772 TSX +0 07400 4 00030 FIX=0 086 LM00110 03773 CLA +0 50000 0 03222 03774 STO +0 60100 0 01043 END OF CONDITIONAL 087 LM00111 TRANSFER TO BB 088 LM00112 03775 TRA +0 02000 0 00034 LNUM BFREAD.(A(1),A(2),K(21)...13,FF,QEOFCT,QERR) 089 LM00114 03776 TSX +0 07400 4 00003 03777 TXH +3 00000 0 00111 04000 TXH +3 00000 0 00110 04001 TIX +2 03231 0 02260 04002 TXH +3 00000 0 00044 04003 TXH +3 00000 0 03211 04004 TXH +3 00000 0 00063 WHENEVER GLBLN.(W).GE.LN.AND.FIX.E.1,TRANSFER TO JJ 090 LM00115 04005 CLA +0 50000 0 01043 04006 SUB +0 40200 0 03223 04007 TNZ -0 10000 0 04016 04010 TSX +0 07400 4 00027 04011 TXH +3 00000 0 03220 04012 SUB +0 40200 0 03125 04013 TZE +0 10000 0 04015 04014 TMI -0 12000 0 04016 04015 TRA +0 02000 0 00046 BB CONTINUE 091 LM00116 04016 TRA +0 02000 0 03734 JJ CONTINUE 092 LM00117 WHENEVER GLBLN.(W).G.L1.AND.FIX.E.1,TRANSFER TO FF 093 LM00118 04017 CLA +0 50000 0 01043 04020 SUB +0 40200 0 03223 04021 TNZ -0 10000 0 04030 04022 TSX +0 07400 4 00027 04023 TXH +3 00000 0 03220 04024 SUB +0 40200 0 03123 04025 TZE +0 10000 0 04030 04026 TMI -0 12000 0 04030 04027 TRA +0 02000 0 00044 R1=BCDEC.(L1) 094 LM00120 04030 TSX +0 07400 4 00000 04031 TXH +3 00000 0 03123 04032 STO +0 60100 0 03212 WHENEVER EDIT.E.0 095 LM00121 04033 CLA +0 50000 0 01032 04034 SUB +0 40200 0 03222 04035 TNZ -0 10000 0 04240 THROUGH LL,FOR L=R,1,L.G.R1.AND.FIX.E.0 096 LM00122 04036 CLA +0 50000 0 03213 04037 STO +0 60100 0 03126 04040 TRA +0 02000 0 04044 04041 CLA +0 50000 0 03126 04042 ADD +0 40000 0 03223 04043 STO +0 60100 0 03126 04044 CLA +0 50000 0 01043 04045 SUB +0 40200 0 03222 04046 TNZ -0 10000 0 04053 04047 CLA +0 50000 0 03126 04050 SUB +0 40200 0 03212 04051 TZE +0 10000 0 04053 04052 TPL +0 12000 0 04237 WHENEVER FIX.E.0.AND.K(NAX).A.MASK1.E.MASK1,TRANSFER TO MARK1 097 LM00123 04053 LXA +0 53400 1 03204 04054 CAL -0 50000 1 02305 04055 ANA -0 32000 0 03127 04056 SLW +0 60200 0 05210 04057 CLA +0 50000 0 05210 04060 SUB +0 40200 0 03127 04061 TNZ -0 10000 0 04066 04062 CLA +0 50000 0 01043 04063 SUB +0 40200 0 03222 04064 TNZ -0 10000 0 04066 04065 TRA +0 02000 0 00050 WHENEVER FIX.E.0 098 LM00124 04066 CLA +0 50000 0 01043 04067 SUB +0 40200 0 03222 04070 TNZ -0 10000 0 04100 ICD=-1 099 LM00125 04071 CLS +0 50200 0 03223 04072 STO +0 60100 0 01050 LINC=12 100 LM00126 04073 CLA +0 50000 0 03230 04074 STO +0 60100 0 03124 EGB=22 101 LM00127 04075 CLA +0 50000 0 03233 04076 STO +0 60100 0 01033 TRANSFER TO MARK2 102 LM00128 04077 TRA +0 02000 0 00051 END OF CONDITIONAL 103 LM00129 KK(0)=K(10) 104 LM00130 04100 CLA +0 50000 0 02273 04101 STO +0 60100 0 02100 KK(1)=K(9) 105 LM00131 04102 CLA +0 50000 0 02274 04103 STO +0 60100 0 02077 ZERO=2 106 LM00132 04104 CLA +0 50000 0 03224 04105 STO +0 60100 0 03221 ICD=1 107 LM00133 04106 CLA +0 50000 0 03223 04107 STO +0 60100 0 01050 LINC=12 108 LM00134 04110 CLA +0 50000 0 03230 04111 STO +0 60100 0 03124 EGB=22 109 LM00135 04112 CLA +0 50000 0 03233 04113 STO +0 60100 0 01033 TRANSFER TO MARK2 110 LM00136 04114 TRA +0 02000 0 00051 MARK1 ICD=-1 111 LM00137 04115 CLS +0 50200 0 03223 04116 STO +0 60100 0 01050 LINC=CLIN 112 LM00138 04117 CLA +0 50000 0 01002 04120 STO +0 60100 0 03124 EGB=BEG 113 LM00139 04121 CLA +0 50000 0 00113 04122 STO +0 60100 0 01033 MARK2 PRNCT=(36/CHAR)*LINC-1 114 LM00140 04123 LDQ +0 56000 0 03235 04124 PXD -0 75400 0 00000 04125 LLS +0 76300 0 00000 04126 DVP +0 22100 0 01000 04127 MPY +0 20000 0 03124 04130 XCA +0 13100 0 00000 04131 SUB +0 40200 0 03223 04132 STO +0 60100 0 03210 DEN1=NAX-LINC 115 LM00141 04133 CLA +0 50000 0 03204 04134 SUB +0 40200 0 03124 04135 STO +0 60100 0 01027 UNPKNR.(K(EGB)...K(DEN1),KCHOS...KCHOS(PRNCT),CHAR) 116 LM00142 04136 CLA +0 50000 0 03210 04137 SUB +0 40200 0 04140 04140 TXH +3 00000 0 01670 04141 ALS +0 76700 0 00022 04142 STD +0 62200 0 04156 04143 CLA +0 50000 0 01027 04144 SUB +0 40200 0 04145 04145 TXH +3 00000 0 02305 04146 ALS +0 76700 0 00022 04147 STD +0 62200 0 04155 04150 CLA +0 50000 0 01033 04151 SUB +0 40200 0 04152 04152 TXH +3 00000 0 02305 04153 STA +0 62100 0 04155 04154 TSX +0 07400 4 00022 04155 TIX +2 00000 0 00000 04156 TIX +2 00000 0 01670 04157 TXH +3 00000 0 01000 EXECUTE PRYNT. 117 LM00143 04160 TSX +0 07400 4 00032 WHENEVER GLBLN.(W).GE.L1.AND.FIX.E.1,TRANSFER TO FF1 118 LM00144 04161 CLA +0 50000 0 01043 04162 SUB +0 40200 0 03223 04163 TNZ -0 10000 0 04172 04164 TSX +0 07400 4 00027 04165 TXH +3 00000 0 03220 04166 SUB +0 40200 0 03123 04167 TZE +0 10000 0 04171 04170 TMI -0 12000 0 04172 04171 TRA +0 02000 0 00043 WHENEVER L.E.R1.AND.FIX.E.0,TRANSFER TO FF1 119 LM00145 04172 CLA +0 50000 0 01043 04173 SUB +0 40200 0 03222 04174 TNZ -0 10000 0 04201 04175 CLA +0 50000 0 03126 04176 SUB +0 40200 0 03212 04177 TNZ -0 10000 0 04201 04200 TRA +0 02000 0 00043 BFREAD.(A(1),A(2),K(NAX)...1,FF1,QEOFCT,QERR) 120 LM00146 04201 CLA +0 50000 0 03204 04202 SUB +0 40200 0 04203 04203 TXH +3 00000 0 02305 04204 STA +0 62100 0 04210 04205 TSX +0 07400 4 00003 04206 TXH +3 00000 0 00111 04207 TXH +3 00000 0 00110 04210 TIX +2 03223 0 00000 04211 TXH +3 00000 0 00043 04212 TXH +3 00000 0 03211 04213 TXH +3 00000 0 00063 WHENEVER K(NAX).A.MASK1.E.MASK1 121 LM00147 04214 LXA +0 53400 1 03204 04215 CAL -0 50000 1 02305 04216 ANA -0 32000 0 03127 04217 SLW +0 60200 0 05210 04220 CLA +0 50000 0 05210 04221 SUB +0 40200 0 03127 04222 TNZ -0 10000 0 04227 EXECUTE INMK. 122 LM00148 04223 TSX +0 07400 4 00030 FIX=0 123 LM00149 04224 CLA +0 50000 0 03222 04225 STO +0 60100 0 01043 OTHERWISE 124 LM00150 04226 TRA +0 02000 0 04236 BFREAD.(A(1),A(2),K(21)...13,FF1,QEOFCT,QERR) 125 LM00151 04227 TSX +0 07400 4 00003 04230 TXH +3 00000 0 00111 04231 TXH +3 00000 0 00110 04232 TIX +2 03231 0 02260 04233 TXH +3 00000 0 00043 04234 TXH +3 00000 0 03211 04235 TXH +3 00000 0 00063 END OF CONDITIONAL 126 LM00152 LL CONTINUE 127 LM00153 04236 TRA +0 02000 0 04041 OTHERWISE 128 LM00154 04237 TRA +0 02000 0 04427 ACT=A-D-MINUS 129 LM00155 04240 CLA +0 50000 0 00112 04241 SUB +0 40200 0 01031 04242 SUB +0 40200 0 03201 04243 STO +0 60100 0 00065 ACT=ACT/2 130 LM00156 04244 LDQ +0 56000 0 00065 04245 PXD -0 75400 0 00000 04246 LLS +0 76300 0 00000 04247 DVP +0 22100 0 03224 04250 STQ -0 60000 0 00065 THROUGH RR,FOR L=R,1,L.G.R1.AND.FIX.E.0 131 LM00157 04251 CLA +0 50000 0 03213 04252 STO +0 60100 0 03126 04253 TRA +0 02000 0 04257 04254 CLA +0 50000 0 03126 04255 ADD +0 40000 0 03223 04256 STO +0 60100 0 03126 04257 CLA +0 50000 0 01043 04260 SUB +0 40200 0 03222 04261 TNZ -0 10000 0 04266 04262 CLA +0 50000 0 03126 04263 SUB +0 40200 0 03212 04264 TZE +0 10000 0 04266 04265 TPL +0 12000 0 04427 WHENEVER FIX.E.0.AND.K(NAX).A.MASK1.E.MASK1,TRANSFER TO MARK 132 LM00158 04266 LXA +0 53400 1 03204 04267 CAL -0 50000 1 02305 04270 ANA -0 32000 0 03127 04271 SLW +0 60200 0 05210 04272 CLA +0 50000 0 05210 04273 SUB +0 40200 0 03127 04274 TNZ -0 10000 0 04301 04275 CLA +0 50000 0 01043 04276 SUB +0 40200 0 03222 04277 TNZ -0 10000 0 04301 04300 TRA +0 02000 0 00052 UNPKNR.(K(22)...K(9),KUNP(1)...KUNP(84),CHAR) 133 LM00159 04301 TSX +0 07400 4 00022 04302 TIX +2 02274 0 02257 04303 TIX +2 02776 0 03121 04304 TXH +3 00000 0 01000 COMN ARYCT=-1 134 LM00160 04305 CLS +0 50200 0 03223 04306 STO +0 60100 0 00066 EXECUTE PKOFF. 135 LM00161 04307 TSX +0 07400 4 00031 PRNCT=ARYCT-TBCT 136 LM00162 04310 CLA +0 50000 0 00066 04311 SUB +0 40200 0 03215 04312 STO +0 60100 0 03210 EXECUTE PRYNT. 137 LM00163 04313 TSX +0 07400 4 00032 TRANSFER TO CHECK 138 LM00164 04314 TRA +0 02000 0 00035 MARK NED=(36/CHAR)*CLIN 139 LM00165 04315 LDQ +0 56000 0 03235 04316 PXD -0 75400 0 00000 04317 LLS +0 76300 0 00000 04320 DVP +0 22100 0 01000 04321 MPY +0 20000 0 01002 04322 STQ -0 60000 0 03205 DEN=NAX-CLIN 140 LM00166 04323 CLA +0 50000 0 03204 04324 SUB +0 40200 0 01002 04325 STO +0 60100 0 01030 UNPKNR.(K(BEG)...K(DEN),KUNP(1)...KUNP(NED),CHAR) 141 LM00167 04326 CLA +0 50000 0 03205 04327 SUB +0 40200 0 04330 04330 TXH +3 00000 0 03122 04331 ALS +0 76700 0 00022 04332 STD +0 62200 0 04346 04333 CLA +0 50000 0 01030 04334 SUB +0 40200 0 04335 04335 TXH +3 00000 0 02305 04336 ALS +0 76700 0 00022 04337 STD +0 62200 0 04345 04340 CLA +0 50000 0 00113 04341 SUB +0 40200 0 04342 04342 TXH +3 00000 0 02305 04343 STA +0 62100 0 04345 04344 TSX +0 07400 4 00022 04345 TIX +2 00000 0 00000 04346 TIX +2 00000 0 03121 04347 TXH +3 00000 0 01000 TRANSFER TO COMN 142 LM00168 04350 TRA +0 02000 0 00037 CHECK WHENEVER GLBLN.(W).GE.L1.AND.FIX.E.1,TRANSFER TO FF1 143 LM00169 04351 CLA +0 50000 0 01043 04352 SUB +0 40200 0 03223 04353 TNZ -0 10000 0 04362 04354 TSX +0 07400 4 00027 04355 TXH +3 00000 0 03220 04356 SUB +0 40200 0 03123 04357 TZE +0 10000 0 04361 04360 TMI -0 12000 0 04362 04361 TRA +0 02000 0 00043 WHENEVER L.E.R1.AND.FIX.E.0,TRANSFER TO FF1 144 LM00170 04362 CLA +0 50000 0 01043 04363 SUB +0 40200 0 03222 04364 TNZ -0 10000 0 04371 04365 CLA +0 50000 0 03126 04366 SUB +0 40200 0 03212 04367 TNZ -0 10000 0 04371 04370 TRA +0 02000 0 00043 BFREAD.(A(1),A(2),K(NAX)...1,FF1,QEOFCT,QERR) 145 LM00171 04371 CLA +0 50000 0 03204 04372 SUB +0 40200 0 04373 04373 TXH +3 00000 0 02305 04374 STA +0 62100 0 04400 04375 TSX +0 07400 4 00003 04376 TXH +3 00000 0 00111 04377 TXH +3 00000 0 00110 04400 TIX +2 03223 0 00000 04401 TXH +3 00000 0 00043 04402 TXH +3 00000 0 03211 04403 TXH +3 00000 0 00063 WHENEVER K(NAX).A.MASK1.E.MASK1 146 LM00172 04404 LXA +0 53400 1 03204 04405 CAL -0 50000 1 02305 04406 ANA -0 32000 0 03127 04407 SLW +0 60200 0 05210 04410 CLA +0 50000 0 05210 04411 SUB +0 40200 0 03127 04412 TNZ -0 10000 0 04417 EXECUTE INMK. 147 LM00173 04413 TSX +0 07400 4 00030 FIX=0 148 LM00174 04414 CLA +0 50000 0 03222 04415 STO +0 60100 0 01043 OTHERWISE 149 LM00175 04416 TRA +0 02000 0 04426 BFREAD.(A(1),A(2),K(21)...13,FF1,QEOFCT,QERR) 150 LM00176 04417 TSX +0 07400 4 00003 04420 TXH +3 00000 0 00111 04421 TXH +3 00000 0 00110 04422 TIX +2 03231 0 02260 04423 TXH +3 00000 0 00043 04424 TXH +3 00000 0 03211 04425 TXH +3 00000 0 00063 END OF CONDITIONAL 151 LM00177 RR CONTINUE 152 LM00178 04426 TRA +0 02000 0 04254 END OF CONDITIONAL 153 LM00179 QERR PRNTER.(61K) 154 LM00183 04427 TSX +0 07400 4 00013 04430 TXH +3 00000 0 03240 TRANSFER TO FF1 155 LM00184 04431 TRA +0 02000 0 00043 FF CONTINUE 156 LM00185 EOF=A(3) 157 LM00186 04432 CLA +0 50000 0 00107 04433 STO +0 60100 0 01040 EXECUTE PRNTP.(EOF) 158 LM00187 04434 TSX +0 07400 4 00015 04435 TXH +3 00000 0 01040 FF1 BFCLOS.(A(1),A(2),OUT) 159 LM00188 04436 TSX +0 07400 4 00001 04437 TXH +3 00000 0 00111 04440 TXH +3 00000 0 00110 04441 TXH +3 00000 0 00057 EXECUTE SAVBRK. 160 LM00189 04442 TSX +0 07400 4 00016 OUT EXECUTE CHNCOM.(0) 161 LM00190 04443 TSX +0 07400 4 00005 04444 TXH +3 00000 0 03222 ERR1 EXECUTE PRNTP.(MES) 162 LM00192 04445 TSX +0 07400 4 00015 04446 TXH +3 00000 0 03177 TRANSFER TO OUT 163 LM00193 04447 TRA +0 02000 0 00057 INTERNAL FUNCTION(Z) 164 LM00197 04450 TRA +0 02000 0 04474 ENTRY TO ERR2. 165 LM00198 04451 TRA +0 02000 0 04454 00025 TTR +0 02100 0 04452 04452 SXA +0 63400 2 04462 04453 TSX +0 07400 2 04462 MES3=Z 166 LM00199 04454 CLA +0 50000 0 00024 04455 STO +0 60100 0 03156 EXECUTE PRNTP.(MES3) 167 LM00200 04456 TSX +0 07400 4 00015 04457 TXH +3 00000 0 03156 TRANSFER TO DD 168 LM00201 04460 TRA +0 02000 0 00040 END OF FUNCTION 169 LM00202 04461 TSX +0 07400 4 00006 04462 TXH +3 00000 0 00000 04463 SXD -0 63400 1 04462 04464 SXA +0 63400 4 04470 04465 CLA +0 50000 4 00001 04466 STA +0 62100 0 04454 04467 TRA +0 02000 2 00001 04470 AXT +0 77400 4 00000 04471 LXA +0 53400 2 04462 04472 LXD -0 53400 1 04462 04473 TRA +0 02000 4 00001 INTERNAL FUNCTION 170 LM00204 04474 TRA +0 02000 0 04524 ENTRY TO FULMD. 171 LM00205 04475 TRA +0 02000 0 04500 00026 TTR +0 02100 0 04476 04476 SXA +0 63400 2 04514 04477 TSX +0 07400 2 04514 BLANK=006000600060K 172 LM00206 04500 CLA +0 50000 0 03246 04501 STO +0 60100 0 00114 CHAR=12 173 LM00207 04502 CLA +0 50000 0 03230 04503 STO +0 60100 0 01000 WORD=3 174 LM00208 04504 CLA +0 50000 0 03225 04505 STO +0 60100 0 03217 NAX=132 175 LM00209 04506 CLA +0 50000 0 03244 04507 STO +0 60100 0 03204 BEG=131 176 LM00210 04510 CLA +0 50000 0 03243 04511 STO +0 60100 0 00113 FUNCTION RETURN 177 LM00211 04512 TRA +0 02000 0 04520 END OF FUNCTION 178 LM00212 04513 TSX +0 07400 4 00006 04514 TXH +3 00000 0 00000 04515 SXD -0 63400 1 04514 04516 SXA +0 63400 4 04520 04517 TRA +0 02000 2 00001 04520 AXT +0 77400 4 00000 04521 LXA +0 53400 2 04514 04522 LXD -0 53400 1 04514 04523 TRA +0 02000 4 00001 INTERNAL FUNCTION 179 LM00214 04524 TRA +0 02000 0 04562 ENTRY TO GLBLN. 180 LM00215 04525 TRA +0 02000 0 04530 00027 TTR +0 02100 0 04526 04526 SXA +0 63400 2 04551 04527 TSX +0 07400 2 04551 W=(K(10).LS.12).V.(K(9).RS.24) 181 LM00216 04530 CAL -0 50000 0 03234 04531 STA +0 62100 0 04533 04532 CAL -0 50000 0 02274 04533 LGR -0 76500 0 00000 04534 SLW +0 60200 0 04561 04535 CAL -0 50000 0 03230 04536 STA +0 62100 0 04540 04537 CAL -0 50000 0 02273 04540 ALS +0 76700 0 00000 04541 ORA -0 50100 0 04561 04542 SLW +0 60200 0 03220 W=W.A.007777777777K 182 LM00217 04543 CAL -0 50000 0 03220 04544 ANA -0 32000 0 03247 04545 SLW +0 60200 0 03220 FUNCTION RETURN W 183 LM00218 04546 CLA +0 50000 0 03220 04547 TRA +0 02000 0 04555 END OF FUNCTION 184 LM00219 04550 TSX +0 07400 4 00006 04551 TXH +3 00000 0 00000 04552 SXD -0 63400 1 04551 04553 SXA +0 63400 4 04555 04554 TRA +0 02000 2 00001 04555 AXT +0 77400 4 00000 04556 LXA +0 53400 2 04551 04557 LXD -0 53400 1 04551 04560 TRA +0 02000 4 00001 INTERNAL FUNCTION 185 LM00221 04562 TRA +0 02000 0 04667 ENTRY TO INMK. 186 LM00222 04563 TRA +0 02000 0 04566 00030 TTR +0 02100 0 04564 04564 SXA +0 63400 2 04657 04565 TSX +0 07400 2 04657 ZERO=0 187 LM00223 04566 CLA +0 50000 0 03222 04567 STO +0 60100 0 03221 CLIN=K(NAX).A.MASK2 188 LM00224 04570 LXA +0 53400 1 03204 04571 CAL -0 50000 1 02305 04572 ANA -0 32000 0 03130 04573 SLW +0 60200 0 01002 WHENEVER CLIN.G.NAX 189 LM00225 04574 CLA +0 50000 0 01002 04575 SUB +0 40200 0 03204 04576 TZE +0 10000 0 04605 04577 TMI -0 12000 0 04605 MOV=CLIN-NAX 190 LM00226 04600 CLA +0 50000 0 01002 04601 SUB +0 40200 0 03204 04602 STO +0 60100 0 03202 CLIN=NAX 191 LM00227 04603 CLA +0 50000 0 03204 04604 STO +0 60100 0 01002 END OF CONDITIONAL 192 LM00228 BFREAD.(A(1),A(2),K(BEG)...CLIN,FF1,QEOFCT,QERR) 193 LM00229 04605 CLA +0 50000 0 00113 04606 SUB +0 40200 0 04607 04607 TXH +3 00000 0 02305 04610 STA +0 62100 0 04614 04611 TSX +0 07400 4 00003 04612 TXH +3 00000 0 00111 04613 TXH +3 00000 0 00110 04614 TIX +2 01002 0 00000 04615 TXH +3 00000 0 00043 04616 TXH +3 00000 0 03211 04617 TXH +3 00000 0 00063 MOVNE WHENEVER MOV.NE.0 194 LM00230 04620 CLA +0 50000 0 03202 04621 SUB +0 40200 0 03222 04622 TZE +0 10000 0 04655 WHENEVER MOV.G.NAX 195 LM00231 04623 CLA +0 50000 0 03202 04624 SUB +0 40200 0 03204 04625 TZE +0 10000 0 04635 04626 TMI -0 12000 0 04635 MV=NAX 196 LM00232 04627 CLA +0 50000 0 03204 04630 STO +0 60100 0 03203 MOV=MOV-NAX 197 LM00233 04631 CLA +0 50000 0 03202 04632 SUB +0 40200 0 03204 04633 STO +0 60100 0 03202 OTHERWISE 198 LM00234 04634 TRA +0 02000 0 04641 MV=MOV 199 LM00235 04635 CLA +0 50000 0 03202 04636 STO +0 60100 0 03203 MOV=0 200 LM00236 04637 CLA +0 50000 0 03222 04640 STO +0 60100 0 03202 END OF CONDITIONAL 201 LM00237 BFREAD.(A(1),A(2),KK(BEG)...MV,FF1,QEOFCT,QERR) 202 LM00238 04641 CLA +0 50000 0 00113 04642 SUB +0 40200 0 04643 04643 TXH +3 00000 0 02100 04644 STA +0 62100 0 04650 04645 TSX +0 07400 4 00003 04646 TXH +3 00000 0 00111 04647 TXH +3 00000 0 00110 04650 TIX +2 03203 0 00000 04651 TXH +3 00000 0 00043 04652 TXH +3 00000 0 03211 04653 TXH +3 00000 0 00063 TRANSFER TO MOVNE 203 LM00239 04654 TRA +0 02000 0 00053 END OF CONDITIONAL 204 LM00240 FUNCTION RETURN 205 LM00241 04655 TRA +0 02000 0 04663 END OF FUNCTION 206 LM00242 04656 TSX +0 07400 4 00006 04657 TXH +3 00000 0 00000 04660 SXD -0 63400 1 04657 04661 SXA +0 63400 4 04663 04662 TRA +0 02000 2 00001 04663 AXT +0 77400 4 00000 04664 LXA +0 53400 2 04657 04665 LXD -0 53400 1 04657 04666 TRA +0 02000 4 00001 INTERNAL FUNCTION 207 LM00244 04667 TRA +0 02000 0 05034 ENTRY TO PRYNT. 208 LM00245 04670 TRA +0 02000 0 04673 00032 TTR +0 02100 0 04671 04671 SXA +0 63400 2 05024 04672 TSX +0 07400 2 05024 TOP=PRNCT 209 LM00246 04673 CLA +0 50000 0 03210 04674 STO +0 60100 0 03216 THROUGH LOOP,FOR IB=TOP,-1,IB.L.0 210 LM00247 04675 CLA +0 50000 0 03216 04676 STO +0 60100 0 01047 04677 TRA +0 02000 0 04703 04700 CLS +0 50200 0 03223 04701 ADD +0 40000 0 01047 04702 STO +0 60100 0 01047 04703 CLA +0 50000 0 01047 04704 SUB +0 40200 0 03222 04705 TZE +0 10000 0 04707 04706 TMI -0 12000 0 04723 WHENEVER KCHOS(IB).NE.60K.AND.KCHOS(IB).NE.57K, 211 LM00248 1TRANSFER TO NBLK 211 LM00249 04707 LXA +0 53400 1 01047 04710 CLA +0 50000 1 01670 04711 SUB +0 40200 0 03236 04712 TZE +0 10000 0 04717 04713 CLA +0 50000 1 01670 04714 SUB +0 40200 0 03237 04715 TZE +0 10000 0 04717 04716 TRA +0 02000 0 00054 LOOP PRNCT=PRNCT-1 212 LM00250 04717 CLA +0 50000 0 03210 04720 SUB +0 40200 0 03223 04721 STO +0 60100 0 03210 04722 TRA +0 02000 0 04700 NBLK NUM=(PRNCT)/WORD+1+ZERO 213 LM00251 04723 LDQ +0 56000 0 03210 04724 PXD -0 75400 0 00000 04725 LLS +0 76300 0 00000 04726 DVP +0 22100 0 03217 04727 XCA +0 13100 0 00000 04730 ADD +0 40000 0 03223 04731 ADD +0 40000 0 03221 04732 STO +0 60100 0 03207 WHENEVER PRNCT.L.0 214 LM00252 04733 CLA +0 50000 0 03210 04734 SUB +0 40200 0 03222 04735 TZE +0 10000 0 04742 04736 TPL +0 12000 0 04742 NUM=0 215 LM00253 04737 CLA +0 50000 0 03222 04740 STO +0 60100 0 03207 TRANSFER TO OMIT 216 LM00254 04741 TRA +0 02000 0 00056 END OF CONDITIONAL 217 LM00255 PAKNR.(KCHOS...KCHOS(PRNCT),KK(ZERO)...KK(NUM-1),CHAR) 218 LM00256 04742 CLA +0 50000 0 03207 04743 SUB +0 40200 0 03223 04744 SUB +0 40200 0 04745 04745 TXH +3 00000 0 02100 04746 ALS +0 76700 0 00022 04747 STD +0 62200 0 04763 04750 CLA +0 50000 0 03221 04751 SUB +0 40200 0 04752 04752 TXH +3 00000 0 02100 04753 STA +0 62100 0 04763 04754 CLA +0 50000 0 03210 04755 SUB +0 40200 0 04756 04756 TXH +3 00000 0 01670 04757 ALS +0 76700 0 00022 04760 STD +0 62200 0 04762 04761 TSX +0 07400 4 00012 04762 TIX +2 00000 0 01670 04763 TIX +2 00000 0 00000 04764 TXH +3 00000 0 01000 OMIT KK(NUM)=575757575755K 219 LM00257 04765 LXA +0 53400 1 03207 04766 CLA +0 50000 0 03252 04767 STO +0 60100 1 02100 WHENEVER FLAG.E.1 220 LM00258 04770 CLA +0 50000 0 01044 04771 SUB +0 40200 0 03223 04772 TNZ -0 10000 0 05004 KK(NUM)=FENCE 221 LM00259 04773 CLA +0 50000 0 01042 04774 STO +0 60100 1 02100 FLAG=0 222 LM00260 04775 CLA +0 50000 0 03222 04776 STO +0 60100 0 01044 WHENEVER FULL.E.5,SETFUL. 223 LM00261 04777 CLA +0 50000 0 01045 05000 SUB +0 40200 0 03227 05001 TNZ -0 10000 0 05003 05002 TSX +0 07400 4 00020 TRANSFER TO PC 224 LM00262 05003 TRA +0 02000 0 00060 END OF CONDITIONAL 225 LM00263 KK(NUM+1)=FENCE 226 LM00264 05004 CLA +0 50000 0 03207 05005 ADD +0 40000 0 03223 05006 PAX +0 73400 1 00000 05007 CLA +0 50000 0 01042 05010 STO +0 60100 1 02100 WHENEVER FULL.E.5 227 LM00265 05011 CLA +0 50000 0 01045 05012 SUB +0 40200 0 03227 05013 TNZ -0 10000 0 05020 KK(NUM)=005700570055K 228 LM00266 05014 LXA +0 53400 1 03207 05015 CLA +0 50000 0 03245 05016 STO +0 60100 1 02100 EXECUTE SETFUL. 229 LM00267 05017 TSX +0 07400 4 00020 END OF CONDITIONAL 230 LM00268 PC PRNTPC.(KK) 231 LM00269 05020 TSX +0 07400 4 00014 05021 TXH +3 00000 0 02100 FUNCTION RETURN 232 LM00270 05022 TRA +0 02000 0 05030 END OF FUNCTION 233 LM00271 05023 TSX +0 07400 4 00006 05024 TXH +3 00000 0 00000 05025 SXD -0 63400 1 05024 05026 SXA +0 63400 4 05030 05027 TRA +0 02000 2 00001 05030 AXT +0 77400 4 00000 05031 LXA +0 53400 2 05024 05032 LXD -0 53400 1 05024 05033 TRA +0 02000 4 00001 INTERNAL FUNCTION 234 LM00273 05034 TRA +0 02000 0 05206 ENTRY TO PKOFF. 235 LM00274 05035 TRA +0 02000 0 05040 00031 TTR +0 02100 0 05036 05036 SXA +0 63400 2 05176 05037 TSX +0 07400 2 05176 CKEND=CLIN*WORD 236 LM00275 05040 LDQ +0 56000 0 01002 05041 MPY +0 20000 0 03217 05042 STQ -0 60000 0 01001 THROUGH PICKC,FOR I=1,1,I.G.ACT 237 LM00276 05043 CLA +0 50000 0 03223 05044 STO +0 60100 0 01053 05045 TRA +0 02000 0 05051 05046 CLA +0 50000 0 01053 05047 ADD +0 40000 0 03223 05050 STO +0 60100 0 01053 05051 CLA +0 50000 0 01053 05052 SUB +0 40200 0 00065 05053 TZE +0 10000 0 05055 05054 TPL +0 12000 0 05174 MIN=C(2*(I-1)+1) 238 LM00277 05055 CLA +0 50000 0 01053 05056 SUB +0 40200 0 03223 05057 XCA +0 13100 0 00000 05060 MPY +0 20000 0 03224 05061 XCA +0 13100 0 00000 05062 ADD +0 40000 0 03223 05063 PAX +0 73400 2 00000 05064 CLA +0 50000 2 01026 05065 STO +0 60100 0 03200 MAX=C(2*I) 239 LM00278 05066 LDQ +0 56000 0 03224 05067 MPY +0 20000 0 01053 05070 XCA +0 13100 0 00000 05071 PAX +0 73400 2 00000 05072 CLA +0 50000 2 01026 05073 STO +0 60100 0 03131 INC=1 240 LM00279 05074 CLA +0 50000 0 03223 05075 STO +0 60100 0 01052 WHENEVER MAX.L.MIN,INC=-1 241 LM00280 05076 CLA +0 50000 0 03131 05077 SUB +0 40200 0 03200 05100 TZE +0 10000 0 05104 05101 TPL +0 12000 0 05104 05102 CLS +0 50200 0 03223 05103 STO +0 60100 0 01052 THROUGH CHOSC,FOR II=MIN,INC,II.E.MAX+INC 242 LM00281 05104 CLA +0 50000 0 03200 05105 STO +0 60100 0 01051 05106 TRA +0 02000 0 05112 05107 CLA +0 50000 0 01051 05110 ADD +0 40000 0 01052 05111 STO +0 60100 0 01051 05112 CLA +0 50000 0 03131 05113 ADD +0 40000 0 01052 05114 CHS +0 76000 0 00002 05115 ADD +0 40000 0 01051 05116 TZE +0 10000 0 05146 WHENEVER ARYCT.E.130 243 LM00282 05117 CLA +0 50000 0 00066 05120 SUB +0 40200 0 03242 05121 TNZ -0 10000 0 05131 PRNCT=ARYCT 244 LM00283 05122 CLA +0 50000 0 00066 05123 STO +0 60100 0 03210 FLAG=1 245 LM00284 05124 CLA +0 50000 0 03223 05125 STO +0 60100 0 01044 EXECUTE PRYNT. 246 LM00285 05126 TSX +0 07400 4 00032 ARYCT=0 247 LM00286 05127 CLA +0 50000 0 03222 05130 STO +0 60100 0 00066 END OF CONDITIONAL 248 LM00287 WHENEVER II.G.CKEND,TRANSFER TO CHO 249 LM00288 05131 CLA +0 50000 0 01051 05132 SUB +0 40200 0 01001 05133 TZE +0 10000 0 05136 05134 TMI -0 12000 0 05136 05135 TRA +0 02000 0 00036 ARYCT=ARYCT+1 250 LM00289 05136 CLA +0 50000 0 00066 05137 ADD +0 40000 0 03223 05140 STO +0 60100 0 00066 KCHOS(ARYCT)=KUNP(II) 251 LM00290 05141 LXA +0 53400 1 00066 05142 LXA +0 53400 2 01051 05143 CLA +0 50000 2 03122 05144 STO +0 60100 1 01670 CHOSC CONTINUE 252 LM00291 05145 TRA +0 02000 0 05107 CHO WHENEVER TBCT.E.0,TRANSFER TO PICKC 253 LM00292 05146 CLA +0 50000 0 03215 05147 SUB +0 40200 0 03222 05150 TNZ -0 10000 0 05152 05151 TRA +0 02000 0 00061 THROUGH PICKC,FOR N=1,1,N.G.TBCT 254 LM00293 05152 CLA +0 50000 0 03223 05153 STO +0 60100 0 03206 05154 TRA +0 02000 0 05160 05155 CLA +0 50000 0 03206 05156 ADD +0 40000 0 03223 05157 STO +0 60100 0 03206 05160 CLA +0 50000 0 03206 05161 SUB +0 40200 0 03215 05162 TZE +0 10000 0 05164 05163 TPL +0 12000 0 05173 ARYCT=ARYCT+1 255 LM00294 05164 CLA +0 50000 0 00066 05165 ADD +0 40000 0 03223 05166 STO +0 60100 0 00066 KCHOS(ARYCT)=72K 256 LM00295 05167 LXA +0 53400 1 00066 05170 CLA +0 50000 0 03241 05171 STO +0 60100 1 01670 PICKC CONTINUE 257 LM00296 05172 TRA +0 02000 0 05155 05173 TRA +0 02000 0 05046 FUNCTION RETURN 258 LM00297 05174 TRA +0 02000 0 05202 END OF FUNCTION 259 LM00298 05175 TSX +0 07400 4 00006 05176 TXH +3 00000 0 00000 05177 SXD -0 63400 1 05176 05200 SXA +0 63400 4 05202 05201 TRA +0 02000 2 00001 05202 AXT +0 77400 4 00000 05203 LXA +0 53400 2 05176 05204 LXD -0 53400 1 05176 05205 TRA +0 02000 4 00001 NORMAL MODE IS INTEGER 260 LM00302 DIMENSION KK(135),BUF1(432),K(132),KUNP(396), 261 LM00303 1KCHOS(396),A(19),C(19) 261 LM00304 VECTOR VALUES FULL=0 262 LM00306 01045 +0 00000 0 00000 VECTOR VALUES ZERO=0 263 LM00307 03221 +0 00000 0 00000 VECTOR VALUES BMASK=000000000057K 264 LM00308 00115 +0 00000 0 00057 VECTOR VALUES CLIN=14 265 LM00309 01002 +0 00000 0 00016 VECTOR VALUES MOV=0 266 LM00310 03202 +0 00000 0 00000 VECTOR VALUES BLANK=606060606060K 267 LM00311 00114 -2 06060 6 06060 VECTOR VALUES FLAG=0 268 LM00312 01044 +0 00000 0 00000 VECTOR VALUES NAX=22 269 LM00313 03204 +0 00000 0 00026 VECTOR VALUES BEG=21 270 LM00314 00113 +0 00000 0 00025 VECTOR VALUES EOF(1)=$ NOT IN FILE.$, 777777777777K 271 LM00315 01034 -3 77777 7 77777 01035 +3 36060 6 06060 01036 -0 56026 3 14325 01037 -2 04546 6 36031 VECTOR VALUES C=0, 1, 72 272 LM00316 01024 +0 00000 0 00110 01025 +0 00000 0 00001 01026 +0 00000 0 00000 VECTOR VALUES D=3 273 LM00317 01031 +0 00000 0 00003 VECTOR VALUES R=1 274 LM00318 03213 +0 00000 0 00001 VECTOR VALUES R1=377777777777K 275 LM00319 03212 +3 77777 7 77777 VECTOR VALUES L1=377777777777K 276 LM00320 03123 +3 77777 7 77777 VECTOR VALUES K=$$ 277 LM00321 02305 -2 06060 6 06060 VECTOR VALUES FIX=1 278 LM00322 01043 +0 00000 0 00001 VECTOR VALUES EDIT=0 279 LM00323 01032 +0 00000 0 00000 VECTOR VALUES E=6 280 LM00324 01041 +0 00000 0 00006 VECTOR VALUES H=0 281 LM00325 01046 +0 00000 0 00000 VECTOR VALUES MES=$ INCORRECT FORMAT$, 777777777777K 282 LM00326 03174 -3 77777 7 77777 03175 -0 65144 2 16360 03176 -1 12523 6 36026 03177 -2 03145 2 34651 VECTOR VALUES TABCOV=15 283 LM00327 03214 +0 00000 0 00017 VECTOR VALUES TBCT=0 284 LM00328 03215 +0 00000 0 00000 VECTOR VALUES MASK1=777777000000K 285 LM00329 03127 -3 77777 0 00000 VECTOR VALUES MASK2=000000777777K 286 LM00330 03130 +0 00000 7 77777 VECTOR VALUES MES=$COMMAND FORMAT IS 'PRINT NAME1 NAME2 287 LM00331 1-R(TO/THRU R2) F(1) L(1) ... F(N) L(N) TAB (FULL)-$, 287 LM00332 2777777777777K 287 LM00333 03157 -3 77777 7 77777 03160 +3 44060 6 06060 03161 -2 07426 6 44343 03162 -0 53460 6 32122 03163 -3 44534 6 04374 03164 -2 03333 3 36026 03165 +3 46043 7 40134 03166 +0 23460 2 67401 03167 -2 33051 6 46051 03170 -0 05174 6 34661 03171 -2 06060 6 06060 03172 -2 04521 4 42502 03173 -2 04521 4 42501 03174 +1 44751 3 14563 03175 +2 16360 3 16260 03176 +2 46026 4 65144 03177 +2 34644 4 42145 VECTOR VALUES WORD=6 288 LM00334 03217 +0 00000 0 00006 VECTOR VALUES CHAR=6 289 LM00335 01000 +0 00000 0 00006 VECTOR VALUES MES1(2)=$ NOT FOUND$, 777777777777K 290 LM00336 03132 -3 77777 7 77777 03133 -0 66445 2 46060 03134 -2 04546 6 36026 VECTOR VALUES MES2(1)=$ TO$, 0,$ IS ILLEGAL$, 777777777777K 291 LM00337 03137 -3 77777 7 77777 03140 -0 32527 2 14360 03141 -2 03162 6 03143 03142 +0 00000 0 00000 03143 -2 06060 6 34660 VECTOR VALUES MES3(1)=$ NOT DECIMAL. FOLLOWING ARGUMENTS ARE 292 LM00338 1 IGNORED.$, 777777777777K 292 LM00339 03145 -3 77777 7 77777 03146 -0 65125 2 43360 03147 -1 12560 3 12745 03150 +2 54563 6 26021 03151 -2 02151 2 76444 03152 -0 34666 3 14527 03153 +3 36060 2 64643 03154 +2 52331 4 42143 03155 -2 04546 6 36024 VECTOR VALUES FENCE=777777777777K 293 LM00340 01042 -3 77777 7 77777 END OF PROGRAM 294 LM00341 05206 TSX +0 07400 4 00006 1 GLIMS IS USED TO EVALUATE THE THE MAD EXPRESSION PAGE 1 FILE NAME -- UNPNR FAP 00002 ENTRY UNPKNR INSERT WMACS ZMQ MACRO LDQ =0 ZMQ END 0 00001 1 60000 --- OPSYN PZE * A...B. WORD IS THE ARGUMENT(TXH A,,B), AND THE REST IS AS FOLLOWS-- * * GLIMS WORD,HOLD,BUMP,CHECK * ... * HOLD AXC --,1 * X BSS * ... * CHECK --- *+2,1,-- * BUMP TXI X,1,-- * * THE IR SPECIFIED IS ALWAYS -THIS WORD. * GLIMS MACRO WORD,HOLD,BUMP,CHECK,D1,D2,D3 CAL WORD STD D1 AXT 1,1 PAX ,2 D1 TXL D2,2,1 AXT -1,1 D2 BSS IRP BUMP SCD BUMP,1 IRP PAX ,2 IRP HOLD SXA HOLD,2 IRP PDX ,2 LDQ =O700000000000 TXL D3,1,1 TXI *+1,2,1 LDQ =O300000000000 D3 BSS XCL IRP CHECK SCD CHECK,2 STP CHECK IRP GLIMS END REPORT MACRO Z,TEXT,CR01,CR02,CR03 TRA CR01 BCI Z,TEXT CR01 BSS TSX $WRFLX,4 CR01-Z,,Z REPORT END 1 GLIMS IS USED TO EVALUATE THE THE MAD EXPRESSION PAGE 2 FILE NAME -- UNPNR FAP LINKAGE DIRECTOR 00000 000000000000 00001 644547424551 00002 0634 00 1 00103 UNPKNR SXA UP07,1 00003 0634 00 2 00104 SXA UP08,2 00004 0636 00 4 00105 SCA UP09,4 00005 0600 00 0 00107 STZ CHCNT INITIALIZE COUNT 00006 GLIMS (1,4),HLDW,BMPW,CHKW GET LIMITS A 00014 ..002 BSS .001 A 00024 ..003 BSS .001 00027 GLIMS (2,4),HLDC,(BMPC1,BMPC2),(CHKC1,CHKC2) A 00035 ..005 BSS .001 A 00046 ..006 BSS .001 00053 -0500 60 4 00003 CAL* 3,4 GET BYTE SIZE 00054 0621 00 0 00064 STA UP03 .. 00055 0767 00 0 00022 ALS 18 .. 00056 0622 00 0 00073 STD UP04 .. 00057 -0774 00 1 00000 HLDW AXC --,1 FIRST WORD 00060 -0774 00 2 00000 HLDC AXC --,2 FIRST CHARACTER 00061 0774 00 4 00044 UP01 AXT 36,4 IR4 COUNTS CHARS IN WORD 00062 0560 00 1 00000 LDQ ,1 00063 -0754 00 0 00000 UP02 ZAC 00064 -0763 00 0 00000 UP03 LGL -- 00065 0602 00 2 00000 SLW ,2 00066 -0500 00 0 00107 CAL CHCNT 00067 0400 00 0 00110 ADD =1 00070 0602 00 0 00107 SLW CHCNT 00071 0 00000 2 00103 CHKC1 --- UP07,2,-- 00072 1 00000 2 00073 BMPC1 TXI *+1,2,-- 00073 2 00000 4 00063 UP04 TIX UP02,4,-- 00074 0 00000 1 00076 CHKW --- UP05,1,-- 00075 1 00000 1 00061 BMPW TXI UP01,1,-- * 00076 -0500 00 0 00111 UP05 CAL =O60 FILL CHARACTER BUFFER IF WORDS RAN OUT 00077 0602 00 2 00000 UP06 SLW ,2 .. 00100 0 00000 2 00103 CHKC2 --- UP07,2,-- .. 00101 1 00000 2 00077 BMPC2 TXI UP06,2,-- .. * 00102 -0500 00 0 00107 CAL CHCNT GET COUNT OF CHARS UNPACKED. 00103 0774 00 1 00000 UP07 AXT --,1 RETURN 00104 0774 00 2 00000 UP08 AXT --,2 .. 00105 -0774 00 4 00000 UP09 AXC --,4 .. 00106 0020 00 4 00001 TRA 1,4 .. 00107 0 00000 0 00000 CHCNT CHARACTER COUNT END LITERALS 00110 000000000001 00111 000000000060 00112 300000000000 00113 700000000000 1 GLIMS IS USED TO EVALUATE THE THE MAD EXPRESSION PAGE 1 POST PROCESSOR ASSEMBLY DATA 114 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 75 BMPW 14 74 CHKW 25, 26 60 HLDC 40 57 HLDW 16 61 UP01 75 63 UP02 73 64 UP03 54 73 UP04 56 76 UP05 74 77 UP06 101 103 UP07 2, 71, 100 104 UP08 3 105 UP09 4 72 BMPC1 35 101 BMPC2 36 107 CHCNT 5, 66, 70, 102 71 CHKC1 47, 50 100 CHKC2 51, 52 12 ..001 7 14 ..002 12 24 ..003 21 33 ..004 30 35 ..005 33 46 ..006 43 2 UNPKNR 0 0 NO ERROR IN ABOVE ASSEMBLY. 1 GLIMS IS USED TO EVALUATE THE THE MAD EXPRESSION PAGE 1 FILE NAME -- PAKNR FAP 00002 ENTRY PAKNR INSERT WMACS ZMQ MACRO LDQ =0 ZMQ END 0 00001 1 60000 --- OPSYN PZE * A...B. WORD IS THE ARGUMENT(TXH A,,B), AND THE REST IS AS FOLLOWS-- * * GLIMS WORD,HOLD,BUMP,CHECK * ... * HOLD AXC --,1 * X BSS * ... * CHECK --- *+2,1,-- * BUMP TXI X,1,-- * * THE IR SPECIFIED IS ALWAYS -THIS WORD. * GLIMS MACRO WORD,HOLD,BUMP,CHECK,D1,D2,D3 CAL WORD STD D1 AXT 1,1 PAX ,2 D1 TXL D2,2,1 AXT -1,1 D2 BSS IRP BUMP SCD BUMP,1 IRP PAX ,2 IRP HOLD SXA HOLD,2 IRP PDX ,2 LDQ =O700000000000 TXL D3,1,1 TXI *+1,2,1 LDQ =O300000000000 D3 BSS XCL IRP CHECK SCD CHECK,2 STP CHECK IRP GLIMS END REPORT MACRO Z,TEXT,CR01,CR02,CR03 TRA CR01 BCI Z,TEXT CR01 BSS TSX $WRFLX,4 CR01-Z,,Z REPORT END 1 GLIMS IS USED TO EVALUATE THE THE MAD EXPRESSION PAGE 2 FILE NAME -- PAKNR FAP LINKAGE DIRECTOR 00000 000000000000 00001 472142455160 00002 0634 00 1 00120 PAKNR SXA PK12,1 00003 0634 00 2 00121 SXA PK13,2 00004 0636 00 4 00122 SCA PK14,4 00005 GLIMS (1,4),HLDC,BMPC,CHKC A 00013 ..002 BSS .001 A 00023 ..003 BSS .001 00026 GLIMS (2,4),HLDW,(BMPW1,BMPW2),(CHKW1,CHKW2) A 00034 ..005 BSS .001 A 00045 ..006 BSS .001 00052 -0500 60 4 00003 CAL* 3,4 00053 0734 00 1 00000 PAX ,1 00054 0634 00 1 00072 SXA PK04,1 00055 0634 00 1 00107 SXA PK09,1 00056 -0634 00 1 00073 SXD PK05,1 00057 -0634 00 1 00110 SXD PK10,1 00060 -0636 00 1 00077 SCD PK06,1 00061 -0636 00 1 00112 SCD PK11,1 00062 1 77734 1 00063 TXI *+1,1,-36 00063 0636 00 1 00071 SCA PK03,1 00064 0636 00 1 00106 SCA PK08,1 * 00065 -0774 00 1 00000 HLDW AXC --,1 FIRST WORD 00066 -0774 00 2 00000 HLDC AXC --,2 FIRST CHARACTER 00067 0774 00 4 77734 PK01 AXT -36,4 00070 0560 00 2 00000 PK02 LDQ ,2 00071 -0773 00 0 00000 PK03 RQL -- (36-BITS) 00072 -0763 00 0 00000 PK04 LGL -- (BITS) 00073 1 00000 4 00074 PK05 TXI *+1,4,-- (BITS) 00074 0 00000 2 00111 CHKC --- PKP10,2,-- 00075 1 00000 2 00076 BMPC TXI *+1,2,-- 00076 -3 00000 4 00100 TXL *+2,4,0 00077 -3 00000 4 00070 PK06 TXL PK02,4,-- (-BITS) 00100 ZMQ 00101 -0763 00 4 00000 LGL ,4 00102 0602 00 1 00000 SLW ,1 * 00103 0 00000 1 00120 CHKW1 --- PK12,1,-- 00104 1 00000 1 00067 BMPW1 TXI PK01,1,-- * 00105 0560 00 0 00125 PK07 LDQ =O57 FILL IN LAST WORD 00106 -0773 00 0 00000 PK08 RQL -- (36-BITS) 00107 -0763 00 0 00000 PK09 LGL -- (BITS) 00110 1 00000 4 00111 PK10 TXI *+1,4,-- (BITS) 00111 -3 00000 4 00113 PKP10 TXL *+2,4,0 (DAMN) 00112 -3 00000 4 00105 PK11 TXL PK07,4,-- (-BITS) 00113 0602 00 1 00000 SLW ,1 00114 0 00000 1 00120 CHKW2 --- PK12,1,-- 00115 1 00000 1 00116 BMPW2 TXI *+1,1,-- 00116 0774 00 4 77734 AXT -36,4 00117 0020 00 0 00105 TRA PK07 * 1 GLIMS IS USED TO EVALUATE THE THE MAD EXPRESSION PAGE 3 FILE NAME -- PAKNR FAP 00120 0774 00 1 00000 PK12 AXT --,1 00121 0774 00 2 00000 PK13 AXT --,2 00122 -0774 00 4 00000 PK14 AXC --,4 00123 0020 00 4 00001 TRA 1,4 END LITERALS 00124 000000000000 00125 000000000057 00126 300000000000 00127 700000000000 1 GLIMS IS USED TO EVALUATE THE THE MAD EXPRESSION PAGE 1 POST PROCESSOR ASSEMBLY DATA 130 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 75 BMPC 13 74 CHKC 24, 25 66 HLDC 15 65 HLDW 37 67 PK01 104 70 PK02 77 71 PK03 63 72 PK04 54 73 PK05 56 77 PK06 60 105 PK07 112, 117 106 PK08 64 107 PK09 55 110 PK10 57 112 PK11 61 120 PK12 2, 103, 114 121 PK13 3 122 PK14 4 104 BMPW1 34 115 BMPW2 35 103 CHKW1 46, 47 114 CHKW2 50, 51 11 ..001 6 13 ..002 11 23 ..003 20 32 ..004 27 34 ..005 32 45 ..006 42 2 PAKNR 0 111 PKP10 74 0 NO ERROR IN ABOVE ASSEMBLY. PRNTER BCD 05/12/69 1845.6 11001 00000 1 PRNTER COMMAND ROGER ROACH 10-16-67 PAGE 1 * * IF THE COMMAND IS CALLED BY ANY OTHER NAME IT WILL ACCEPT THREE * ARGUMENTS - 1. ENTRY NAME, 2. ERROR CODE, AND 3. I/O ERROR CODE. * * IF PRNTER IS CALLED WITH A MASK BEGINNING WITH A BLANK, IT'LL ASSSUME * THIS MASK IS IN SPREAD OCTAL. OTHERWISE IT IS IN BINARY. A NEGATIVE * ARGUMENT WILL RESULT IN CALLING CHNCOM OTHERWISE BRAKE IS CALLED. * TRANSFER VECTOR 00000 272563234644 GETCOM 00001 314624312127 IODIAG 00002 475145632551 PRNTER 00003 233045234644 CHNCOM 00004 222346236360 BCOCT 00005 225121422560 BRAKE 00006 222324252360 BCDEC 00007 434164626360 LJUST 00010 0074 00 4 00000 TSX $GETCOM,4 TEST THE COMMAND NAME 00011 0 00000 0 00000 PZE 0 00012 -0340 00 0 00137 LAS =HPRNTER 00013 0020 00 0 00015 TRA *+2 NOT PRNTER 00014 0020 00 0 00023 TRA CALL2 00015 0500 00 0 00051 CALL1 CLA DIAGTR FAKE OUT OF IODIAG 00016 0601 60 0 00001 STO* $IODIAG 00017 0074 00 4 00002 TSX $PRNTER,4 00020 3 00000 0 00134 PTH =O351 00021 0074 00 4 00003 TSX $CHNCOM,4 00022 0 00000 0 00000 PZE 0 * 00023 0500 00 0 00133 CALL2 CLA DIAGTA IODIAG'S TIA 00024 0601 60 0 00001 STO* $IODIAG 00025 0074 00 4 00000 TSX $GETCOM,4 00026 0 00000 0 00001 PZE 1 00027 -0340 00 0 00132 LAS FENCE 00030 0020 00 0 00032 TRA *+2 A FENCE, USE THE MASK 00031 -0500 00 0 00136 CAL =O-375 ASSUME 375 IF NO MASK 00032 0602 00 0 00131 SLW MASK 00033 -0320 00 0 00141 ANA =O770000000000 00034 0322 00 0 00140 ERA =H 00000 00035 -0100 00 0 00042 TNZ *+5 00036 0074 00 4 00004 TSX $BCOCT,4 00037 0 00000 0 00131 PZE MASK 00040 -0760 00 0 00003 SSM 00041 0601 00 0 00131 STO MASK 00042 0074 00 4 00002 TSX $PRNTER,4 00043 0 00000 0 00131 PZE MASK 00044 0500 00 0 00131 CLA MASK 00045 -0120 00 0 00047 TMI *+2 00046 0074 00 4 00005 TSX $BRAKE,4 00047 0074 00 4 00003 TSX $CHNCOM,4 00050 0 00000 0 00000 PZE 0 * * FAKE OUT OF IODIAG * 1 PRNTER COMMAND ROGER ROACH 10-16-67 PAGE 2 00051 0021 00 0 00052 DIAGTR TTR *+1 00052 0634 00 4 00117 SXA XR4,4 00053 0500 00 4 00001 CLA 1,4 00054 0621 00 0 00130 STA BUFFAD 00055 0622 00 0 00130 STD BUFFAD 00056 0074 00 4 00000 TSX GETCOM,4 00057 0 00000 0 00001 PZE 1 00060 -0340 00 0 00132 LAS FENCE 00061 0020 00 0 00063 TRA *+2 00062 0020 00 0 00023 TRA CALL2 00063 0602 00 0 00122 SLW ENTRY 00064 0074 00 4 00000 TSX GETCOM,4 00065 0 00000 0 00002 PZE 2 00066 -0340 00 0 00132 LAS FENCE 00067 0020 00 0 00071 TRA *+2 00070 0020 00 0 00100 TRA TRNSFR 00071 0602 00 0 00123 SLW ERCODE 00072 0074 00 4 00000 TSX GETCOM,4 00073 0 00000 0 00003 PZE 3 00074 -0340 00 0 00132 LAS FENCE 00075 0020 00 0 00077 TRA *+2 00076 0020 00 0 00100 TRA TRNSFR 00077 0602 00 0 00124 SLW IOERCD * 00100 0074 00 4 00006 TRNSFR TSX $BCDEC,4 00101 0 00000 0 00123 PZE ERCODE 00102 0601 00 0 00123 STO ERCODE 00103 0074 00 4 00006 TSX $BCDEC,4 00104 0 00000 0 00124 PZE IOERCD 00105 0601 00 0 00124 STO IOERCD 00106 0074 00 4 00007 TSX $LJUST,4 00107 0 00000 0 00122 PZE ENTRY 00110 0601 00 0 00122 STO ENTRY 00111 -0535 00 4 00130 LDC BUFFAD,4 00112 1 00001 4 00113 TXI *+1,4,1 00113 -0500 00 4 00121 CAL BUFF,4 00114 0602 60 0 00130 SLW* BUFFAD 00115 -3 00000 4 00117 TXL XR4,4,0 00116 1 00001 4 00113 TXI *-3,4,1 * 00117 0774 00 4 00000 XR4 AXT **,4 00120 0020 00 4 00002 TRA 2,4 * 00121 0 00000 0 00000 BUFF PZE 00122 464725456060 ENTRY BCI 1,OPEN 00123 0 00000 0 00001 ERCODE PZE 1 00124 0 00000 0 00005 IOERCD PZE 5 00125 +000000000000 REST OCT 0,0,0 00126 +000000000000 00127 +000000000000 * 00130 0 00000 4 00000 BUFFAD PZE **,4,** 00131 0 00000 0 00000 MASK 00132 -377777777777 FENCE OCT 777777777777 00133 0101 00 0 00135 DIAGTA TIA =HIODIAG END 1 PRNTER COMMAND ROGER ROACH 10-16-67 PAGE 3 LITERALS 00134 000000000351 00135 314624312127 00136 400000000375 00137 475145632551 00140 600000000000 00141 770000000000 1 PRNTER COMMAND ROGER ROACH 10-16-67 PAGE 1 POST PROCESSOR ASSEMBLY DATA 142 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 117 XR4 52, 115 121 BUFF 113 131 MASK 32, 37, 41, 43, 44 125 REST 6 BCDEC 100, 103 4 BCOCT 36 5 BRAKE 46 15 CALL1 23 CALL2 14, 62 122 ENTRY 63, 107, 110 132 FENCE 27, 60, 66, 74 7 LJUST 106 130 BUFFAD 54, 55, 111, 114 3 CHNCOM 21, 47 133 DIAGTA 23 51 DIAGTR 15 123 ERCODE 71, 101, 102 0 GETCOM 10, 25, 56, 64, 72 1 IODIAG 16, 24 124 IOERCD 77, 104, 105 2 PRNTER 17, 42 100 TRNSFR 70, 76 0 NO ERROR IN ABOVE ASSEMBLY. 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 1 * DON WAGNER'S VERSION WITH VARIABLE VERBOSITY. 00003 ENTRY PRNTER EXTERN IODIAG * * CALLED BY * PRNTER.(MASK) * WHERE MASK HAS A BIT ON FOR EACH MESSAGE PART DESIRED. * THE MESSAGE PARTS ARE-- * THE WORD 'ERROR ' * ERROR NUMBER * FILE NAME * FILE SYSTEM ROUTINE NAME * CALLING LOCATION * FILE SYSTEM LOCATION * CARRIAGE RETURN * * FOR COMPATIBILITY, IF NO ARGUMENT IS SPECIFIED OR IF * MASK.E.0 A DEFAULT MASK IS USED. * * ALSO CALLED BY * PRNTER.(MASK,FCN) * WHERE FCN IS A USER'S OUTPUT ROUTINE, CALLED BY PRNTER WITH * FCN.(BUFF(Z)...Z,Z) * * BECAUSE THE STAND-ALONE PROGRAMS NEED A SLIGHTLY DIFFERENT * PRNTER, THE FOLLOWING ASSEMBLY PARAMETER (LIB) DETERMINES * WHETHER COLT IS CALLED, HOW LONG A PRINTED LINE IS, * WHETHER WRFLX OR WRFLXA IS CALLED. TRANSFER VECTOR 00000 314624312127 IODIAG 00001 234643636060 COLT 00002 665126436721 WRFLXA 00001 LIB EQU 1 * LIB IS 1 FOR A NORMAL LIBRARY SUBROUTINE, 0 FOR GARMAN'S * SPECIAL ROUTINE. * * COLT MACRO EITHER CALLS $COLT OR DOES AN EASY SUBSET FOR GARMAN. * LIBCLT MACRO TSX $COLT,4 IR4 LIBCLT END * INDCLT MACRO LDI 1,4 IIL 300000 TXH CAL =O1000000 OFT =O700000700000 CAL =0 TXI *+1,4,-1 INDCLT END * 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 2 2 12251 0 10641 COLT OPSYN LIBCLT * 00003 0636 00 1 00266 PRNTER SCA SAV1,1 00004 0636 00 2 00267 SCA SAV2,2 00005 0604 00 0 01265 STI SAVI 00006 -0634 00 4 01263 SXD IR4,4 00007 COLT 00007 0074 00 4 00001 TSX $COLT,4 .001 00010 0 00000 0 01263 IR4 .001 00011 0636 00 4 00270 SCA SAV4,4 00012 -0534 00 4 01263 LXD IR4,4 00013 -0734 00 2 00000 PDX ,2 00014 -3 00000 2 00017 TXL PR00,2,0 00015 0441 60 4 00001 LDI* 1,4 00016 -0520 60 4 00001 NZT* 1,4 00017 0055 00 000375 PR00 SIR DFMASK 00020 0604 00 0 01266 STI MASK 00021 0600 00 0 01262 STZ CALLSW 00022 -3 00001 2 00026 TXL PRP1,2,1 00023 -0500 00 4 00002 CAL 2,4 00024 0621 00 0 00247 STA CALL 00025 -0625 00 0 01262 STL CALLSW A 00026 PRP1 BSS 00026 0074 00 4 00000 TSX IODIAG,4 GET ERROR INFO 00027 3 00007 0 01253 TXH DIBUF,,7 .. * 00030 0535 00 2 01255 LAC DIBUF+2,2 PICK UP ERROR CODE 00031 0636 00 2 01267 SCA ERRN,2 00032 3 77775 2 00274 TXH STAND,2,-3 1 AND 2 ARE STANDARD. 00033 -3 77634 2 00276 TXL STAND1,2,-100 100 UP ALSO * 00034 -0500 00 0 01254 CAL DIBUF+1 ALL OTHERS DEPEND UPON ROUTINE. 00035 0774 00 1 00072 AXT NOCALL,1 00036 -0340 00 1 00403 PR01 LAS CALLS,1 SEARCH FOR IO ROUTINE 00037 0020 00 0 00041 TRA *+2 00040 0020 00 0 00043 TRA PR02 FOUND 00041 2 00002 1 00036 TIX PR01,1,2 00042 0020 00 0 00271 TRA NFOUND NOT FOUND * 00043 0500 00 1 00404 PR02 CLA CALLS+1,1 FOUND 00044 0120 00 0 00046 PRP2 TPL *+2 MINUS MEANS DON'T PRINT FILE NAME. 00045 0057 00 000020 RIR FNBIT .. 00046 0604 00 0 01266 STI MASK .. 00047 0760 00 0 00006 COM CHECK WHETHER NUMBER IS KNOWN FOR ENTRY 00050 0622 00 0 00051 STD *+1 .. 00051 3 00000 2 00053 TXH *+2,2,-- .. 00052 0020 00 0 00271 TRA NFOUND .. 00053 0500 60 1 00404 CLA* CALLS+1,1 POINTER TO MESSAGE 00054 -0120 00 0 00301 TMI IOER MINUS MEANS IO ERROR. 00055 0737 00 2 00000 GMESS PAC ,2 CALCULATE MESSAGE LIMITS ETC. 00056 -3 00000 2 00271 TXL NFOUND,2,0 .. IR2=CURRENT WORD IN MESSAGE 00057 0734 00 1 00000 PAX ,1 .. 00060 0622 00 0 00061 STD PR03 .. 00061 1 00000 1 00062 PR03 TXI *+1,1,-- .. 00062 -0756 00 1 00000 PCD ,1 .. 00063 0622 00 0 00123 STD MS03 .. LIMIT OF MESSAGE 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 3 00064 0622 00 0 00167 STD MSP7 .. .. 00065 0622 00 0 00162 STD MS07 .. .. * 00066 -0774 00 1 01227 AXC OTBUF,1 IR1=-CURRENT PLACE IN OUTPUT BUFFER * 00067 0056 00 000200 RNT QTBIT IS THE WORD 'ERROR' DESIRED 00070 0020 00 0 00074 TRA QT01 00071 -0500 00 0 01300 CAL =HERROR 00072 0602 00 1 00000 SLW ,1 00073 1 77777 1 00074 TXI *+1,1,-1 A 00074 QT01 BSS * 00074 0056 00 000100 RNT NRBIT IS ERROR NUMBER DESIRED 00075 0020 00 0 00105 TRA NR02 NO 00076 0074 00 4 01203 TSX DEFBC,4 YES TD 00077 3 00000 0 01267 TXH ERRN 00100 0560 00 0 01302 LDQ =O356057575757 A 00101 NR01 BSS 00101 -0765 00 0 00006 LGR 6 00102 -0100 00 0 00101 TNZ NR01 00103 -0600 00 1 00000 NRP1 STQ ,1 00104 1 77777 1 00105 TXI *+1,1,-1 A 00105 NR02 BSS * 00105 0056 00 000040 RNT MSBIT IS MESSAGE DESIRED 00106 0020 00 0 00140 TRA MSP5 NO 00107 0560 00 2 00000 MS01 LDQ ,2 YES, GET WORD FROM MESSAGE 00110 0774 00 4 00044 AXT 36,4 IR4 COUNTS CHARACTERS 00111 -0763 00 0 00006 MS02 LGL 6 DOES WORD HAVE A $ 00112 0044 00 0 00000 PAI .. 00113 0051 00 000053 IIR FCHAR .. 00114 0054 00 000077 RFT 000077 .. 00115 0020 00 0 00117 TRA *+2 .. 00116 0020 00 0 00132 TRA MS04 .. 00117 2 00006 4 00111 TIX MS02,4,6 .. 00120 0602 00 1 00000 SLW ,1 NO, STORE IT 00121 1 77777 1 00122 TXI *+1,1,-1 .. 00122 1 77777 2 00123 TXI *+1,2,-1 AND LOOP 00123 3 00000 2 00107 MS03 TXH MS01,2,-- .. 00124 0441 00 0 01266 LDI MASK 00125 0057 00 000040 RIR MSBIT IF NO $ FOUND, INDICATE THAT THERE 00126 0604 00 0 01266 STI MASK 00127 -0500 00 0 01310 CAL =O605757575757 IS NO SECOND HALF, THEN 00130 0602 00 1 00000 SLW ,1 PUT IN FILE NAME. 00131 1 77777 1 00140 TXI MSP5,1,-1 .. * 00132 0560 00 0 01305 MS04 LDQ =O575757575757 YES, PUT IN PART BEFORE $ 00133 0771 00 0 00006 ARS 6 .. 00134 0634 00 4 00135 SXA MSP4,4 .. 00135 -0763 00 0 00000 MSP4 LGL -- 00136 0602 00 1 00000 SLW ,1 00137 1 77777 1 00140 TXI *+1,1,-1 A 00140 MSP5 BSS * 00140 0441 00 0 01266 FN01 LDI MASK * 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 4 00141 0056 00 000020 RNT FNBIT IS FILE NAME DESIRED 00142 0020 00 0 00152 TRA FN02 NO 00143 -0500 00 0 01257 CAL DIBUF+4 YES 00144 0602 00 1 00000 SLW ,1 00145 -0500 00 0 01310 CAL =O605757575757 00146 0602 00 1 00001 SLW 1,1 00147 -0500 00 0 01260 CAL DIBUF+5 00150 0602 00 1 00002 SLW 2,1 00151 1 77775 1 00152 TXI *+1,1,-3 A 00152 FN02 BSS * 00152 0056 00 000040 MS05 RNT MSBIT IS MESSAGE DESIRED (SECOND TIME ASKED) 00153 0020 00 0 00170 TRA MSP8 NO 00154 -0500 00 2 00000 MS06 CAL ,2 YES--GET THE PART AFTER THE $ 00155 0560 00 0 01305 LDQ =O575757575757 00156 -0763 00 4 00052 LGL 42,4 .. 00157 0602 00 1 00000 SLW ,1 AND STORE INTO OUTPUT LINE 00160 1 77777 1 00161 TXI *+1,1,-1 00161 1 77777 2 00162 TXI *+1,2,-1 00162 -3 00000 2 00170 MS07 TXL MSP8,2,-- 00163 -0500 00 2 00000 MSP6 CAL ,2 PUT IN REST OF MESSAGE 00164 0602 00 1 00000 SLW ,1 .. 00165 1 77777 1 00166 TXI *+1,1,-1 .. 00166 1 77777 2 00167 TXI *+1,2,-1 .. 00167 3 00000 2 00163 MSP7 TXH MSP6,2,-- .. A 00170 MSP8 BSS * 00170 0441 00 0 01266 RN01 LDI MASK 00171 0056 00 000010 RNT RNBIT IS ROUTINE NAME DESIRED 00172 0020 00 0 00200 TRA RN02 NO 00173 -0500 00 0 01303 CAL =O404057575757 YES 00174 0602 00 1 00000 SLW ,1 00175 -0500 00 0 01254 CAL DIBUF+1 00176 0602 00 1 00001 SLW 1,1 00177 1 77776 1 00200 TXI *+1,1,-2 A 00200 RN02 BSS * 00200 0056 00 000004 LC01 RNT LCBIT IS LOCATION DESIRED 00201 0020 00 0 00217 TRA LC02 NO 00202 -0500 00 0 01306 CAL =O602163575757 YES 00203 0602 00 1 00000 SLW ,1 00204 0074 00 4 01214 TSX OCABC,4 GET BCD OF LOCATION. TD 00205 3 00000 0 01253 TXH DIBUF .. 00206 0601 00 1 00001 STO 1,1 00207 1 77776 1 00210 TXI *+1,1,-2 00210 -0534 00 4 01253 LXD DIBUF,4 IS IT CORE A 00211 3 00001 4 00217 TXH LC02,4,1 .. 00212 -0500 00 0 01307 CAL =H CORE YES--MENTION THE FACT. 00213 0602 00 1 00000 SLW ,1 00214 -0500 00 0 01277 CAL =O215757575757 00215 0602 00 1 00001 SLW 1,1 00216 1 77776 1 00217 TXI *+1,1,-2 A 00217 LC02 BSS * 00217 0056 00 000002 FS01 RNT FSBIT IS FILE SYSTEM LOC DESIRED 00220 0020 00 0 00231 TRA FS02 NO 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 5 00221 -0500 00 0 01311 CAL =O607426336233 YES 00222 0602 00 1 00000 SLW ,1 00223 0074 00 4 01214 TSX OCABC,4 TD 00224 3 00000 0 01261 TXH DIBUF+6 00225 0601 00 1 00001 STO 1,1 00226 -0500 00 0 01301 CAL =O345757575757 00227 0602 00 1 00002 SLW 2,1 00230 1 77775 1 00231 TXI *+1,1,-3 A 00231 FS02 BSS * 00231 0056 00 000001 CR01 RNT CRBIT IS CARRIAGE RETURN DESIRED 00232 0020 00 0 00236 TRA CR02 NO 00233 -0500 00 0 01304 CAL =O555757575757 YES 00234 0602 00 1 00000 SLW ,1 00235 1 77777 1 00236 TXI *+1,1,-1 A 00236 CR02 BSS * 00236 1 01227 1 00237 PR04 TXI *+1,1,OTBUF CALCULATE SIZE OF RESULTING LINE 00237 0756 00 1 00000 PCA ,1 .. 00240 0734 00 1 00000 PAX ,1 .. NOW IR1=SIZE * 00241 -0520 00 0 01262 NZT CALLSW CALL USER-SPECIFIED FUNCTION 00242 0020 00 0 00253 TRA PRP4 OR JUST PRINT 00243 0634 00 1 01264 SXA LINZ,1 SET UP MAD ARG 00244 -0634 00 1 00250 SXD CL01,1 SET UP FAP ARG 00245 1 01227 1 00246 TXI *+1,1,OTBUF 00246 0634 00 1 00250 SXA CL01,1 00247 0074 00 4 00000 CALL TSX --,4 CALL FUNCTION 00250 3 00000 0 00000 CL01 TXH --,,-- TD 00251 3 00000 0 01264 TXH LINZ 00252 0020 00 0 00265 TRA RT01 * A 00253 PRP4 BSS 00253 0774 00 2 01227 AXT OTBUF,2 00254 -2 00016 1 00261 PR05 TNX PR07,1,WRFLXZ 00255 0634 00 2 00257 SXA PR06,2 00256 0074 00 4 00002 TSX $WRFLXA,4 00257 0 00016 0 00000 PR06 --,,WRFLXZ 00260 1 00016 2 00254 TXI PR05,2,WRFLXZ * 00261 0634 00 2 00264 PR07 SXA PR08,2 00262 -0634 00 1 00264 SXD PR08,1 00263 0074 00 4 00002 TSX $WRFLXA,4 00264 0 00000 0 00000 PR08 --,,-- * RETURN A 00265 RT01 BSS 00265 0441 00 0 01265 LDI SAVI 00266 -0774 00 1 00000 SAV1 AXC --,1 00267 -0774 00 2 00000 SAV2 AXC --,2 00270 0020 00 0 00000 SAV4 TRA -- RETURN AS DIRECTED BY COLT * 00271 0500 00 0 00403 NFOUND CLA DNF 00272 0055 00 000100 SIR NRBIT 00273 0020 00 0 00055 TRA GMESS * 00274 0500 00 2 00404 STAND CLA PZE1-1,2 ERROR CODES 1 AND 2 ARE STANDARD 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 6 00275 0020 00 0 00055 TRA GMESS .. FOR ALL IO CALLS * 00276 -3 77632 2 00271 STAND1 TXL NFOUND,2,PZE100-PZE999-100 UNKNOWN IF CODE TOO LARGE 00277 0500 00 2 00243 CLA PZE100-100,2 PICK UP STANDARD CODE 00300 0020 00 0 00055 TRA GMESS * 00301 0535 00 2 01256 IOER LAC DIBUF+3,2 IO ERROR CODE 00302 0636 00 2 01267 SCA ERRN,2 00303 -3 77771 2 00306 TXL IOER2,2,-NOIOER 00304 0500 00 2 00557 CLA IOERT,2 00305 0020 00 0 00055 TRA GMESS 00306 0500 00 0 00404 IOER2 CLA DNFIO 00307 0055 00 000100 SIR NRBIT 00310 0020 00 0 00055 TRA GMESS 00311 CALLB SYN * TABLE OF POSSIBLE I/O CALLS 00311 644724442624 BCI 1,UPDMFD 00312 0 00005 2 00406 UPDMF,2,5 00313 242543442624 BCI 1,DELMFD 00314 0 00004 2 00412 DELMF,2,4 00315 216363212330 BCI 1,ATTACH 00316 0 00004 2 00414 ATTAC,2,4 00317 644724216325 BCI 1,UPDATE 00320 -0 00003 2 00411 MZE UPDAT,2,3 00321 464725456060 BCI 1,OPEN 00322 0 00024 2 00416 OPEN,2,20 00323 226426262551 BCI 1,BUFFER 00324 0 00006 2 00440 BUFFE,2,6 00325 512426314325 BCI 1,RDFILE 00326 0 00010 2 00444 RDFIL,2,8 00327 512466213163 BCI 1,RDWAIT 00330 0 00010 2 00444 RDFIL,2,8 00331 665126314325 BCI 1,WRFILE 00332 0 00012 2 00452 WRFIL,2,10 00333 665166213163 BCI 1,WRWAIT 00334 0 00012 2 00452 WRFIL,2,10 00335 635126314325 BCI 1,TRFILE 00336 0 00011 2 00462 TRFIL,2,9 00337 262330252342 BCI 1,FCHECK 00340 0 00005 2 00471 CLOSE,2,5 00341 266621316360 BCI 1,FWAIT 00342 0 00005 2 00471 CLOSE,2,5 00343 234346622560 BCI 1,CLOSE 00344 0 00006 2 00471 CLOSE,2,6 00345 512562256326 BCI 1,RESETF 00346 0 00003 2 00411 UPDAT,2,3 00347 233026314325 BCI 1,CHFILE 00350 0 00014 2 00475 CHFIL,2,12 00351 242543263143 BCI 1,DELFIL 00352 0 00010 2 00507 DELFL,2,8 00353 266263216325 BCI 1,FSTATE 00354 0 00005 2 00507 DELFL,2,5 00355 444665263143 BCI 1,MOVFIL 00356 0 00012 2 00515 MOVFL,2,10 00357 622563263143 BCI 1,SETFIL 00360 0 00005 2 00525 SETFL,2,5 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 7 00361 433145426060 BCI 1,LINK 00362 0 00006 2 00530 LINK,2,6 00363 644543314542 BCI 1,UNLINK 00364 0 00005 2 00534 UNLIN,2,5 00365 214343466360 BCI 1,ALLOT 00366 -0 00003 2 00537 MZE ALLOT,2,3 00367 626346512725 BCI 1,STORGE 00370 -0 00004 2 00537 MZE ALLOT,2,4 00371 444664456360 BCI 1,MOUNT 00372 -0 00004 2 00541 MZE MOUNT,2,4 00373 644446644563 BCI 1,UMOUNT 00374 -0 00003 2 00543 MZE UMOUN,2,3 00375 652551312670 BCI 1,VERIFY 00376 -0 00007 2 00544 MZE VERIF,2,7 00377 432122254360 BCI 1,LABEL 00400 -0 00006 2 00544 MZE VERIF,2,6 00401 632147263143 BCI 1,TAPFIL 00402 0 00006 2 00551 TAPFL,2,6 00403 CALLS SYN * 00072 NOCALL EQU CALLS-CALLB * * POINTER TO DIAGNOSTIC COMMENTS * 00403 0 00003 0 00566 DNF PZE DIAG0,,3 00404 0 00004 0 01135 DNFIO PZE DIAGI0,,4 * 00405 0 00010 0 00571 PZE1 PZE DIAG1,,8 00406 0 00006 0 00601 DIAG2,,6 * 00407 0 00004 0 00607 PZE100 DIAG00,,4 00410 0 00004 0 00613 DIAG01,,4 00411 PZE999 SYN * END OF STANDARD CODES * 00406 UPDMF EQU *-3 00411 0 00004 0 00617 DIAGA1,,4 00412 0 00004 0 00623 DIAGA2,,4 00413 0 00004 0 00636 DIAGA5,,4 * 00411 UPDAT EQU *-3 00414 0 00004 0 00623 DIAGA2,,4 * 00412 DELMF EQU *-3 00415 0 00003 0 00627 DIAGA3,,3 00416 0 00004 0 00632 DIAGA4,,4 * 00414 ATTAC EQU *-3 00417 0 00003 0 00627 DIAGA3,,3 00420 0 00004 0 00623 DIAGA2,,4 * 00416 OPEN EQU *-3 00421 0 00002 0 00642 DIAGB1,,2 00422 0 00004 0 00644 DIAGB2,,4 00423 0 00003 0 00650 DIAGB3,,3 00424 0 00003 0 00566 DIAG0,,3 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 8 00425 0 00004 0 00657 DIAGB5,,4 00426 0 00004 0 00663 DIAGB6,,4 00427 0 00006 0 00667 DIAGB7,,6 00430 0 00006 0 00675 DIAGB8,,6 00431 0 00004 0 00623 DIAGA2,,4 00432 0 00002 0 00703 DIAGB9,,2 00433 0 00003 0 00705 DIAGC1,,3 00434 0 00005 0 00710 DIAGC2,,5 00435 0 00004 0 00715 DIAGC3,,4 00436 0 00005 0 00721 DIAGC4,,5 00437 -0 00000 0 00000 MZE 00440 0 00004 0 00726 DIAGC5,,4 00441 0 00004 0 00613 DIAG01,,4 00442 0 00007 0 00752 DIAGC9,,7 * 00440 BUFFE EQU *-3 00443 0 00002 0 00761 DIAGD1,,2 00444 0 00005 0 00763 DIAGD2,,5 00445 0 00003 0 00770 DIAGD3,,3 00446 -0 00000 0 00000 MZE * 00444 RDFIL EQU *-3 00447 0 00002 0 00761 DIAGD1,,2 00450 0 00004 0 00773 DIAGD4,,4 00451 0 00004 0 01003 DIAGD6,,4 00452 0 00005 0 00763 DIAGD2,,5 00453 -0 00000 0 00000 MZE 00454 0 00003 0 00732 DIAGC6,,3 * 00452 WRFIL EQU *-3 00455 0 00002 0 00761 DIAGD1,,2 00456 0 00004 0 00777 DIAGD5,,4 00457 0 00004 0 01003 DIAGD6,,4 00460 0 00004 0 00715 DIAGC3,,4 00461 0 00005 0 00763 DIAGD2,,5 00462 -0 00000 0 00000 MZE 00463 0 00010 0 00735 DIAGC7,,8 00464 0 00005 0 00745 DIAGC8,,5 * 00462 TRFIL EQU *-3 00465 0 00002 0 00761 DIAGD1,,2 00466 0 00004 0 00777 DIAGD5,,4 00467 0 00004 0 01003 DIAGD6,,4 00470 0 00005 0 00763 DIAGD2,,5 00471 0 00003 0 01007 DIAGD7,,3 00472 -0 00000 0 00000 MZE 00473 0 00010 0 00735 DIAGC7,,8 * 00471 CLOSE EQU *-3 00474 0 00002 0 00761 DIAGD1,,2 00475 0 00005 0 00763 DIAGD2,,5 00476 -0 00000 0 00000 MZE 00477 0 00004 0 00623 DIAGA2,,4 * 00475 CHFIL EQU *-3 00500 0 00006 0 01012 DIAGD8,,6 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 9 00501 0 00002 0 00703 DIAGB9,,2 00502 0 00004 0 00653 DIAGB4,,4 00503 0 00004 0 00657 DIAGB5,,4 00504 0 00004 0 00663 DIAGB6,,4 00505 0 00010 0 01020 DIAGD9,,8 00506 0 00004 0 00715 DIAGC3,,4 00507 0 00003 0 01030 DIAGE2,,3 00510 0 00004 0 00623 DIAGA2,,4 00511 0 00002 0 00642 DIAGB1,,2 * 00507 DELFL EQU *-3 00512 0 00002 0 00703 DIAGB9,,2 00513 0 00004 0 00653 DIAGB4,,4 00514 0 00004 0 00657 DIAGB5,,4 00515 0 00003 0 01036 DIAGE3,,3 00516 0 00004 0 00623 DIAGA2,,4 00517 0 00002 0 00642 DIAGB1,,2 * 00515 MOVFL EQU *-3 00520 0 00002 0 00703 DIAGB9,,2 00521 0 00002 0 01041 DIAGE4,,2 00522 0 00003 0 01036 DIAGE3,,3 00523 0 00007 0 01043 DIAGE5,,7 00524 0 00004 0 00623 DIAGA2,,4 00525 0 00002 0 00642 DIAGB1,,2 00526 0 00004 0 00613 DIAG01,,4 00527 0 00004 0 00726 DIAGC5,,4 * 00525 SETFL EQU *-3 00530 0 00003 0 00705 DIAGC1,,3 00531 0 00004 0 00623 DIAGA2,,4 00532 0 00002 0 01041 DIAGE4,,2 * 00530 LINK EQU *-3 00533 0 00003 0 01030 DIAGE2,,3 00534 0 00004 0 00623 DIAGA2,,4 00535 0 00006 0 01052 DIAGE6,,6 00536 0 00004 0 00726 DIAGC5,,4 * 00534 UNLIN EQU *-3 00537 0 00002 0 00703 DIAGB9,,2 00540 0 00002 0 01060 DIAGE7,,2 00541 0 00004 0 00623 DIAGA2,,4 * 00537 ALLOT EQU *-3 00542 0 00003 0 00705 DIAGC1,,3 00543 0 00004 0 00623 DIAGA2,,4 * 00541 MOUNT EQU *-3 00544 0 00007 0 01062 DIAGF1,,7 00545 0 00006 0 01126 DIAGF8,,6 * 00543 UMOUN EQU *-3 00546 0 00005 0 01071 DIAGF2,,5 * 00544 VERIF EQU *-3 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 10 00547 0 00004 0 01107 DIAGF5,,4 00550 0 00005 0 01121 DIAGF7,,5 00551 0 00006 0 01101 DIAGF4,,6 00552 0 00006 0 01113 DIAGF6,,6 00553 0 00003 0 01076 DIAGF3,,3 * 00551 TAPFL EQU *-3 00554 0 00003 0 01030 DIAGE2,,3 00555 0 00004 0 00623 DIAGA2,,4 00556 0 00005 0 00710 DIAGC2,,5 00557 0 00004 0 00726 DIAGC5,,4 * 00557 IOERT EQU *-1 00560 0 00006 0 01141 DIAGI1,,6 00561 0 00006 0 01147 DIAGI2,,6 00562 0 00006 0 01155 DIAGI3,,6 00563 0 00007 0 01163 DIAGI4,,7 00564 0 00005 0 01172 DIAGI5,,5 00565 0 00004 0 01177 DIAGI6,,4 00007 NOIOER EQU *-IOERT * DIAGNOSTIC COMMENTS 00566 644542454666 DIAG0 BCI 3,UNKNOWN ERROR CODE 00567 456025515146 00570 516023462425 * 00571 314343252721 DIAG1 BCI 8,ILLEGAL CALLING SEQUENCE OR PROTECTION VIOLATION 00572 436023214343 00573 314527606225 00574 506425452325 00575 604651604751 00576 466325236331 00577 464560653146 00600 432163314645 00601 644521646330 DIAG2 BCI 6,UNAUTHORIZED USE OF PRIVILEGED CALL 00602 465131712524 00603 606462256046 00604 266047513165 00605 314325272524 00606 602321434360 * 00607 255151465160 DIAG00 BCI 4,ERROR IN U.F.D./M.F.D. 00610 314560643326 00611 332433614433 00612 263324336060 00613 643326332433 DIAG01 BCI 4,U.F.D./M.F.D. NOT FOUND 00614 614433263324 00615 336045466360 00616 264664452460 * 00617 646225516021 DIAGA1 BCI 4,USER ALREADY IN M.F.D. 00620 435125212470 00621 603145604433 00622 263324336060 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 11 00623 442123303145 DIAGA2 BCI 4,MACHINE OR SYSTEM ERROR 00624 256046516062 00625 706263254460 00626 255151465160 00627 646225516045 DIAGA3 BCI 3,USER NOT IN M.F.D. 00630 466360314560 00631 443326332433 00632 643326332433 DIAGA4 BCI 4,U.F.D. STILL IN USE 00633 606263314343 00634 603145606462 00635 256060606060 00636 712551466047 DIAGA5 BCI 4,ZERO PROBLEM NUMBER 00637 514622432544 00640 604564442225 00641 516060606060 * 00642 536021236331 DIAGB1 BCI 2,$ ACTIVE 00643 652560606060 00644 634646604421 DIAGB2 BCI 4,TOO MANY ACTIVE FILES 00645 457060212363 00646 316525602631 00647 432562606060 00650 314343252721 DIAGB3 BCI 3,ILLEGAL STATUS 00651 436062632163 00652 646260606060 00653 433145422524 DIAGB4 BCI 4,LINKED FILE $ NOT FOUND 00654 602631432560 00655 536045466360 00656 264664452460 00657 536043314542 DIAGB5 BCI 4,$ LINK DEPTH EXCEEDED 00660 602425476330 00661 602567232525 00662 242524606060 00663 536031456014 DIAGB6 BCI 4,$ IN 'PRIVATE' MODE 00664 475131652163 00665 251460444624 00666 256060606060 00667 216363254447 DIAGB7 BCI 6,ATTEMPT TO WRITE 'READ-ONLY' FILE $ 00670 636063466066 00671 513163256014 00672 512521244046 00673 454370146026 00674 314325605360 00675 216363254447 DIAGB8 BCI 6,ATTEMPT TO READ 'WRITE-ONLY' FILE $ 00676 636063466051 00677 252124601466 00700 513163254046 00701 454370146026 00702 314325605360 00703 536045466360 DIAGB9 BCI 2,$ NOT FOUND 00704 264664452460 * 00705 314343252721 DIAGC1 BCI 3,ILLEGAL DEVICE 00706 436024256531 00707 232560606060 00710 454660624721 DIAGC2 BCI 5,NO SPACE ALLOTTED FOR DEVICE 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 12 00711 232560214343 00712 466363252460 00713 264651602425 00714 653123256060 00715 512523465124 DIAGC3 BCI 4,RECORD QUOTA OVERFLOW 00716 605064466321 00717 604665255126 00720 434666606060 00721 536022253145 DIAGC4 BCI 5,$ BEING RESTORED FROM TAPE 00722 276051256263 00723 465125246026 00724 514644606321 00725 472560606060 00726 314343252721 DIAGC5 BCI 4,ILLEGAL USE OF M.F.D. 00727 436064622560 00730 462660443326 00731 332433606060 00732 643326332433 DIAGC6 BCI 3,U.F.D. DELETED 00733 602425432563 00734 252460606060 00735 454645407125 DIAGC7 BCI 8,NON-ZERO 'RELLOC' ACCESSING WRITE-ONLY FILE $ 00736 514660145125 00737 434346231460 00740 212323256262 00741 314527606651 00742 316325404645 00743 437060263143 00744 256053606060 00745 536044216731 DIAGC8 BCI 5,$ MAXIMUM LENGTH EXCEEDED 00746 446444604325 00747 452763306025 00750 672325252425 00751 246060606060 00752 536066216260 DIAGC9 BCI 7,$ WAS REMOVED AND MUST BE RETRIEVED 00753 512544466525 00754 246021452460 00755 446462636022 00756 256051256351 00757 312565252460 00760 606060606060 * 00761 536045466360 DIAGD1 BCI 2,$ NOT ACTIVE 00762 212363316525 00763 536047512565 DIAGD2 BCI 5,$ PREVIOUS I/O OUT OF BOUNDS 00764 314664626031 00765 614660466463 00766 604626602246 00767 644524626060 00770 536022642626 DIAGD3 BCI 3,$ BUFFER TOO SMALL 00771 255160634646 00772 606244214343 00773 536045466360 DIAGD4 BCI 4,$ NOT IN READ STATUS 00774 314560512521 00775 246062632163 00776 646260606060 00777 536045466360 DIAGD5 BCI 4,$ NOT IN WRITE STATUS 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 13 01000 314560665131 01001 632560626321 01002 636462606060 01003 536045466022 DIAGD6 BCI 4,$ NO BUFFER ASSIGNED 01004 642626255160 01005 216262312745 01006 252460606060 01007 145125434346 DIAGD7 BCI 3,'RELLOC' TOO LARGE 01010 231460634646 01011 604321512725 01012 216363254447 DIAGD8 BCI 6,ATTEMPT TO CHANGE M.F.D. OR U.F.D. 01013 636063466023 01014 302145272560 01015 443326332433 01016 604651606433 01017 263324336060 01020 216363254447 DIAGD9 BCI 8,ATTEMPT TO CHANGE PROTECTED FILE OF ANOTHER USER 01021 636063466023 01022 302145272560 01023 475146632523 01024 632524602631 01025 432560462660 01026 214546633025 01027 516064622551 * 01030 536021435125 DIAGE2 BCI 6,$ ALREADY EXISTS OR NAME CONFLICT 01031 212470602567 01032 316263626060 01033 465160452144 01034 256023464526 01035 433123636060 01036 536014475146 DIAGE3 BCI 3,$ 'PROTECTED' 01037 632523632524 01040 146060606060 01041 536014433145 DIAGE4 BCI 2,$ 'LINKED' 01042 422524146060 01043 536021435125 DIAGE5 BCI 7,$ ALREADY EXISTS IN OTHER FILE DIRECTORY 01044 212470602567 01045 316263626031 01046 456046633025 01047 516026314325 01050 602431512523 01051 634651706060 01052 466330255160 DIAGE6 BCI 6,OTHER FILE DIRECTORY NOT IN M.F.D. 01053 263143256024 01054 315125236346 01055 517060454663 01056 603145604433 01057 263324336060 01060 536045466360 DIAGE7 BCI 2,$ NOT LINKED 01061 433145422524 * 01062 454660632147 DIAGF1 BCI 7,NO TAPE AVAILABLE ON SPECIFIED CHANNEL 01063 256021652131 01064 432122432560 01065 464560624725 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 14 01066 233126312524 01067 602330214545 01070 254360606060 01071 632147256026 DIAGF2 BCI 5,TAPE FILE CURRENTLY IN USE 01072 314325602364 01073 515125456343 01074 706031456064 01075 622560606060 01076 432122254360 DIAGF3 BCI 3,LABEL INCORRECT 01077 314523465151 01100 252363606060 01101 444664456360 DIAGF4 BCI 6,MOUNT FAILED, ILLEGAL OPERATION 01102 262131432524 01103 736031434325 01104 272143604647 01105 255121633146 01106 456060606060 01107 632147256026 DIAGF5 BCI 4,TAPE FILE DOES NOT EXIST 01110 314325602446 01111 256260454663 01112 602567316263 01113 444664456360 DIAGF6 BCI 6,MOUNT FAILED, OPNS. DIFFICULTIES 01114 262131432524 01115 736046474562 01116 336024312626 01117 312364436331 01120 256260606060 01121 442123303145 DIAGF7 BCI 5,MACHINE ERROR OR BAD STATUS 01122 256025515146 01123 516046516022 01124 212460626321 01125 636462606060 01126 146445316345 DIAGF8 BCI 7,'UNITNO'-'AUTHNO' CONFLICT FOR TAPE FILE 01127 461440142164 01130 633045461460 01131 234645264331 01132 236360264651 01133 606321472560 01134 263143256060 * 01135 644542454666 DIAGI0 BCI 4,UNKNOWN I/O ERROR CODE 01136 456031614660 01137 255151465160 01140 234624256060 01141 472151316370 DIAGI1 BCI 6,PARITY ERROR READING OR WRITING $ 01142 602551514651 01143 605125212431 01144 452760465160 01145 665131633145 01146 276053606060 01147 262163214360 DIAGI2 BCI 6,FATAL ERROR READING OR WRITING FILE 01150 255151465160 01151 512521243145 01152 276046516066 01153 513163314527 01154 602631432560 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 15 01155 216521314321 DIAGI3 BCI 6,AVAILABLE SPACE ON DEVICE EXHAUSTED 01156 224325606247 01157 212325604645 01160 602425653123 01161 256025673021 01162 646263252460 01163 632147256026 DIAGI4 BCI 7,TAPE FILE NOT MOUNTED OR NOT AVAILABLE 01164 314325604546 01165 636044466445 01166 632524604651 01167 604546636021 01170 652131432122 01171 432560606060 01172 314343252721 DIAGI5 BCI 5,ILLEGAL I/O REQUEST FOR DEVICE 01173 436031614660 01174 512550642562 01175 636026465160 01176 242565312325 01177 253346336333 DIAGI6 BCI 4,E.O.T. PASSED, WRITING $ 01200 604721626225 01201 247360665131 01202 633145276053 * ROUTINES TO DO THE WORK OF DEFBC AND OCABC 01203 0560 00 0 01270 DEFBC LDQ =0 01204 -0500 60 4 00001 CAL* 1,4 01205 0225 06 0 01272 VDP =1E4B29,,6 01206 0225 06 0 01273 VDP =1E3B23,,6 01207 0225 06 0 01274 VDP =100B17,,6 01210 0225 06 0 01275 VDP =10B11,,6 01211 0225 06 0 01276 VDP =1B5,,6 01212 0131 00 0 00000 XCA 01213 0020 00 4 00001 TRA 1,4 01214 0636 00 4 01225 OCABC SCA CLOC4,4 01215 -0500 60 4 00001 CAL* 1,4 01216 -0765 00 0 00017 LGR 15 01217 0500 00 0 01271 CLA =H00000 01220 0774 00 4 00005 AXT 5,4 01221 0767 00 0 00003 CLOC1 ALS 3 01222 -0763 00 0 00003 LGL 3 01223 2 00001 4 01221 TIX CLOC1,4,1 01224 -0760 00 0 00003 SSM TO PRESERVE BLANK 01225 -0774 00 4 00000 CLOC4 AXC --,4 01226 0020 00 4 00001 TRA 1,4 * 01227 OTBUF BSS 20 1 OUTPUT LINE BUFFER. NO CHECKING FOR SIZE 01253 DIBUF BSS 7 2 BUFFER FOR IODIAG. MAY BE OVERWRITTEN. 01262 0 00000 0 00000 CALLSW NON-ZERO IF USER FUNCTION SHOULD BE CALLED. 01263 0 00000 0 00000 IR4 DECREMENT=CALLING IR4 01264 0 00000 0 00000 LINZ SIZE OF RESULTING LINE. 01265 0 00000 0 00000 SAVI SAVE LOC FOR INDICATORS. 01266 0 00000 0 00000 MASK SAVE LOC FOR SPECIFIED MASK 01267 0 00000 0 00000 ERRN ERROR NUMBER 00016 WRFLXZ EQU 14 WRFLX LINE SIZE FOR LIB VERSION 000053 FCHAR BOOL 000053 DOLLAR SIGN 000200 QTBIT BOOL 200 000100 NRBIT BOOL 100 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 16 000040 MSBIT BOOL 40 000020 FNBIT BOOL 20 000010 RNBIT BOOL 10 000004 LCBIT BOOL 04 000002 FSBIT BOOL 02 000001 CRBIT BOOL 01 000375 DFMASK BOOL QTBIT+NRBIT+MSBIT+FNBIT+RNBIT+LCBIT+CRBIT END LITERALS 01270 000000000000 01271 000000000060 01272 000002342000 01273 000017500000 01274 000144000000 01275 001200000000 01276 010000000000 01277 215757575757 01300 255151465160 01301 345757575757 01302 356057575757 01303 404057575757 01304 555757575757 01305 575757575757 01306 602163575757 01307 602346512560 01310 605757575757 01311 607426336233 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 1 POST PROCESSOR ASSEMBLY DATA 1312 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 403 DNF 271 1263 IR4 6, 10, 12 1 LIB 3 247 CALL 24 250 CL01 244, 246 1 COLT 7 231 CR01 236 CR02 232 1267 ERRN 31, 77, 302 140 FN01 152 FN02 142 217 FS01 231 FS02 220 301 IOER 54 200 LC01 217 LC02 201, 211 530 LINK 362, 533 1264 LINZ 243, 251 1266 MASK 20, 46, 124, 126, 140, 170 107 MS01 123 111 MS02 117 123 MS03 63 132 MS04 116 152 MS05 154 MS06 162 MS07 65 135 MSP4 134 140 MSP5 106, 131 163 MSP6 167 167 MSP7 64 170 MSP8 153, 162 101 NR01 102 105 NR02 75 103 NRP1 416 OPEN 322, 421 17 PR00 14 36 PR01 41 43 PR02 40 61 PR03 60 236 PR04 254 PR05 260 257 PR06 255 261 PR07 254 264 PR08 261, 262 26 PRP1 22 44 PRP2 253 PRP4 242 405 PZE1 274 74 QT01 70 170 RN01 200 RN02 172 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 2 POST PROCESSOR ASSEMBLY DATA 265 RT01 252 266 SAV1 3 267 SAV2 4 270 SAV4 11 1265 SAVI 5, 265 537 ALLOT 366, 370, 542 414 ATTAC 316, 417 440 BUFFE 324, 443 311 CALLB 311, 403 403 CALLS 36, 43, 53, 403 475 CHFIL 350, 500 1221 CLOC1 1223 1225 CLOC4 1214 471 CLOSE 340, 342, 344, 474 1 CRBIT 231, 1270 1203 DEFBC 76 507 DELFL 352, 354, 512 412 DELMF 314, 415 566 DIAG0 403, 424 571 DIAG1 405 601 DIAG2 406 1253 DIBUF 27, 30, 34, 143, 147, 175, 205, 210, 224, 301 404 DNFIO 306 53 FCHAR 113, 1270 20 FNBIT 45, 141, 1270 2 FSBIT 217, 1270 55 GMESS 273, 275, 300, 305, 310 306 IOER2 303 557 IOERT 304, 560, 566 4 LCBIT 200, 1270 541 MOUNT 372, 544 515 MOVFL 356, 520 40 MSBIT 105, 125, 152, 1270 100 NRBIT 74, 272, 307, 1270 1214 OCABC 204, 223 1227 OTBUF 66, 236, 245, 253 200 QTBIT 67, 1270 444 RDFIL 326, 330, 447 10 RNBIT 171, 1270 525 SETFL 360, 530 274 STAND 32 551 TAPFL 402, 554 462 TRFIL 336, 465 543 UMOUN 374, 546 534 UNLIN 364, 537 411 UPDAT 320, 346, 414 406 UPDMF 312, 411 544 VERIF 376, 400, 547 452 WRFIL 332, 334, 455 1262 CALLSW 21, 25, 241 375 DFMASK 17, 1270 607 DIAG00 407 613 DIAG01 410, 441, 526 617 DIAGA1 411 623 DIAGA2 412, 414, 420, 431, 477, 510, 516, 524, 531, 534, 541, 543, 555 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 3 POST PROCESSOR ASSEMBLY DATA 627 DIAGA3 415, 417 632 DIAGA4 416 636 DIAGA5 413 642 DIAGB1 421, 511, 517, 525 644 DIAGB2 422 650 DIAGB3 423 653 DIAGB4 502, 513 657 DIAGB5 425, 503, 514 663 DIAGB6 426, 504 667 DIAGB7 427 675 DIAGB8 430 703 DIAGB9 432, 501, 512, 520, 537 705 DIAGC1 433, 530, 542 710 DIAGC2 434, 556 715 DIAGC3 435, 460, 506 721 DIAGC4 436 726 DIAGC5 440, 527, 536, 557 732 DIAGC6 454 735 DIAGC7 463, 473 745 DIAGC8 464 752 DIAGC9 442 761 DIAGD1 443, 447, 455, 465, 474 763 DIAGD2 444, 452, 461, 470, 475 770 DIAGD3 445 773 DIAGD4 450 777 DIAGD5 456, 466 1003 DIAGD6 451, 457, 467 1007 DIAGD7 471 1012 DIAGD8 500 1020 DIAGD9 505 1030 DIAGE2 507, 533, 554 1036 DIAGE3 515, 522 1041 DIAGE4 521, 532 1043 DIAGE5 523 1052 DIAGE6 535 1060 DIAGE7 540 1062 DIAGF1 544 1071 DIAGF2 546 1076 DIAGF3 553 1101 DIAGF4 551 1107 DIAGF5 547 1113 DIAGF6 552 1121 DIAGF7 550 1126 DIAGF8 545 1135 DIAGI0 404 1141 DIAGI1 560 1147 DIAGI2 561 1155 DIAGI3 562 1163 DIAGI4 563 1172 DIAGI5 564 1177 DIAGI6 565 0 IODIAG 26 271 NFOUND 42, 52, 56, 276 72 NOCALL 35, 403 7 NOIOER 303, 566 1 PRNTER--PRINT ERROR DIAGNOSTICS FOR FILE SYSTEM. PAGE 4 POST PROCESSOR ASSEMBLY DATA 3 PRNTER 0 407 PZE100 276, 277 411 PZE999 276, 411 276 STAND1 33 2 WRFLXA 256, 263 16 WRFLXZ 254, 257, 260, 1270 0 NO ERROR IN ABOVE ASSEMBLY. QED BCD 10/04/70 1632.5 61587 00000 1 FAP ASSEMBLY LISTING ... ... ... FILE QED FAP 06/22/70 1518.0 PAGE 1 TRANSFER VECTOR 00000 502524606060 QED 00001 0020 60 0 00000 MAIN TRA* $QED END 1 FAP ASSEMBLY LISTING ... ... ... FILE QED FAP 06/22/70 1518.0 PAGE 1 POST PROCESSOR ASSEMBLY DATA 2 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 0 QED 1 1 MAIN 0 NO ERROR IN ABOVE ASSEMBLY. 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 1 00014 ENTRY QED 01256 ENTRY TYPE0 EXTERN FREEDT EXTERN INITDT EXTERN ZCMD EXTERN CANON EXTERN SETOPS EXTERN INESC EXTERN OUTESC EXTERN EKEDIT EXTERN CNVTBL TRANSFER VECTOR 00000 265125252463 FREEDT 00001 314531632463 INITDT 00002 712344246060 ZCMD 00003 232145464560 CANON 00004 622563464762 SETOPS 00005 314525622360 INESC 00006 466463256223 OUTESC 00007 254225243163 EKEDIT 00010 234565632243 CNVTBL 00011 0774 00 0 00000 *EVEN* LINKAGE DIRECTOR 00012 000000000000 00013 502524606060 EVEN DIVIDE MACRO A,B ZAC DVP =A SLW BUF1+B END DIVIDE 00014 0760 00 0 00016 QED LMTM 00015 0074 00 4 07303 TSX WHOAMI,4 00016 0 00004 0 07344 PZE BUF1,,4 00017 -0500 00 0 07345 CAL BUF1+1 00020 0602 00 0 06626 SLW CRC6+1 00021 0602 00 0 06632 SLW CRC7+1 00022 -0500 00 0 11404 CAL =O100000 00023 -0602 00 0 00010 ORS CNVTBL 00024 0074 00 4 00001 TSX INITDT,4 00025 -0340 00 0 11474 LAS =H(FIB) 00026 0020 00 0 00030 TRA *+2 00027 0020 00 0 00056 TRA INAR 00030 0074 00 4 07325 TSX OPEN,4 00031 3 00000 0 11450 PAR =HR 00032 3 00000 0 11455 PAR =H USER 00033 3 00000 0 11445 PAR =HPROFIL 00034 3 00000 0 11442 PAR =-0 00035 3 00000 0 11442 PAR =-0 00036 3 00000 0 00056 PAR INAR 00037 3 00000 0 07264 PAR COPY 00040 0074 00 4 07327 TSX RDWAIT,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 2 00041 3 00000 0 11455 PAR =H USER 00042 3 00000 0 11445 PAR =HPROFIL 00043 3 00000 0 11401 PAR =404 00044 3 00002 0 07026 PAR PPPMT,,2 00045 3 00000 0 00047 PAR *+2 00046 3 00000 0 07264 PAR COPY 00047 0074 00 4 07324 TSX CLOSE,4 00050 3 00000 0 11455 PAR =H USER 00051 3 00000 0 11445 PAR =HPROFIL 00052 0074 00 4 07305 TSX PERMIT,4 00053 3 00000 0 07026 PAR PPPMT 00054 3 00000 0 07027 PAR PPPMT+1 00055 -0625 00 0 07301 STL PMTFLG 00056 0074 00 4 07320 INAR TSX GETMEM,4 00057 0771 00 0 00002 ARS 2 00060 0400 00 0 11317 ADD =1 00061 0767 00 0 00002 ALS 2 00062 0737 00 5 00000 PAC ,5 00063 0737 00 1 00000 PAC ,1 00064 1 77773 1 00065 TXI *+1,1,-5 00065 -0634 00 1 00102 SXD IN2,1 00066 0771 00 0 00010 ARS 8 00067 0400 00 0 11317 ADD =1 00070 0767 00 0 00010 ALS 8 00071 0737 00 1 00000 PAC ,1 00072 0074 00 4 07336 TSX SETMEM,4 00073 0600 00 1 00004 STZ 04,1 00074 1 00004 1 00075 IN1 TXI *+1,1,4 00075 0756 00 1 00000 PCA ,1 00076 0601 00 1 00004 STO 04,1 00077 0600 00 1 00003 STZ 03,1 00100 0600 00 1 00002 STZ 02,1 00101 0600 00 1 00001 STZ 01,1 00102 -3 00000 1 00074 IN2 TXL IN1,1,** 00103 0636 00 5 07242 SCA BUFER,5 00104 0600 00 0 07243 STZ BBASE 00105 -0500 00 0 11351 CAL =O60 00106 0074 00 4 03304 TSX BOPEN,4 00107 0636 00 5 07244 SCA INPUT,5 00110 0636 00 5 07245 SCA IBASE,5 00111 -0500 00 5 00000 CAL 00,5 00112 0737 00 5 00000 PAC ,5 00113 0600 00 0 07241 STZ RECLEV 00114 0774 00 7 00000 AXT 00,7 00115 0074 00 4 00000 TSX FREEDT,4 00116 0074 00 4 07335 TSX SETFUL,4 00117 0074 00 4 07316 TSX SETBRK,4 00120 0 00000 0 00674 PZE INTRUP 00121 0074 00 4 07323 TSX WRFLX,4 00122 0 00001 0 00263 PZE MES2,,1 00123 0074 00 4 07315 TSX GETCOM,4 00124 0 00000 0 00001 PZE 1 00125 -0340 00 0 11476 LAS =O777777777777 00126 0020 00 0 00130 TRA *+2 00127 0020 00 0 00765 TRA ADDRES 00130 0602 00 0 07264 SLW COPY 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 3 00131 -0500 00 0 11331 CAL =O30 00132 0602 00 0 10616 SLW BUF6+298 00133 -0500 00 0 11351 CAL =O60 00134 0602 00 0 10615 SLW BUF6+297 00135 -0500 00 0 11325 CAL =O12 00136 0602 00 0 10614 SLW BUF6+296 00137 0774 00 7 00001 AXT 1,7 00140 -0500 00 0 11347 CAL =O56 00141 0074 00 4 03304 TSX BOPEN,4 00142 -0500 00 0 07251 CAL ZER 00143 0602 00 0 07247 SLW ADDR2 00144 0074 00 4 03177 TSX INSERT,4 00145 0 00000 0 00155 PZE IN3 00146 -0500 00 0 11351 CAL =O60 00147 0074 00 4 03304 TSX BOPEN,4 00150 0074 00 4 03406 TSX SETFL,4 00151 -0774 00 4 05375 AXC CRD2-1,4 00152 0636 00 4 02733 SCA FC1,4 00153 -0774 00 2 00001 AXC 1,2 00154 0020 00 0 02672 TRA SETFC+2 00155 0636 00 4 00235 IN3 SCA PM5,4 00156 0636 00 2 00236 SCA PM5+1,2 00157 -0774 00 2 00000 PM1 AXC **,2 00160 3 00000 2 00232 TXH PM4,2,0 00161 0500 00 0 11362 CLA =O142 00162 0602 00 0 00014 SLW BUF3 00163 -0500 00 0 11351 CAL =O60 00164 0602 00 0 00015 SLW BUF3+1 00165 -0500 00 0 11325 CAL =O12 00166 0602 00 0 00016 SLW BUF3+2 00167 -0500 00 0 11367 CAL =O162 00170 0602 00 0 00017 SLW BUF3+3 00171 -0500 00 0 11361 CAL =O141 00172 0602 00 0 00020 SLW BUF3+4 00173 -0500 00 0 11340 CAL =O40 00174 0602 00 0 00021 SLW BUF3+5 00175 0074 00 4 07315 TSX GETCOM,4 00176 0 00000 0 00001 PZE 1 00177 0602 00 0 07337 SLW FILNAM 00200 0074 00 4 00240 TSX PMN,4 00201 -0500 00 0 11340 CAL =O40 00202 0602 00 2 00021 SLW BUF3+5,2 00203 -0500 00 0 11453 CAL =H QED 00204 0602 00 0 07340 SLW FILNAM+1 00205 0074 00 4 00240 TSX PMN,4 00206 -0500 00 0 11331 CAL =O30 00207 0602 00 2 00022 SLW BUF3+6,2 00210 -0500 00 0 11351 CAL =O60 00211 0602 00 2 00023 SLW BUF3+7,2 00212 -0500 00 0 11325 CAL =O12 00213 0602 00 2 00024 SLW BUF3+8,2 00214 1 77775 2 00215 TXI *+1,2,-3 00215 0074 00 4 07315 TSX GETCOM,4 00216 0 00000 0 00002 PM2 PZE 2 00217 -0340 00 0 11476 LAS =O777777777777 00220 0020 00 0 00222 TRA *+2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 4 00221 0020 00 0 00227 TRA PM3 00222 0074 00 4 00240 TSX PMN,4 00223 -0500 00 0 00216 CAL PM2 00224 0361 00 0 11317 ACL =1 00225 0602 00 0 00216 SLW PM2 00226 0020 00 0 00215 TRA PM2-1 00227 -0500 00 0 11321 PM3 CAL =O3 00230 0602 00 2 00022 SLW BUF3+6,2 00231 -0774 00 2 00000 AXC 0,2 00232 -0500 00 2 00014 PM4 CAL BUF3,2 00233 1 77777 2 00234 TXI *+1,2,-1 00234 0636 00 2 00157 SCA PM1,2 00235 -0774 00 4 00000 PM5 AXC **,4 00236 -0774 00 2 00000 AXC **,2 00237 0020 00 4 00001 TRA 1,4 00240 -0130 00 0 00000 PMN XCL 00241 -0754 00 0 00000 ZAC 00242 -0763 00 0 00006 LGL 6 00243 -0130 00 0 00000 XCL 00244 -0501 00 0 11346 ORA =O55 00245 -0130 00 0 00000 XCL 00246 -0340 00 0 11351 LAS =O60 00247 0020 00 0 00251 TRA *+2 00250 0020 00 0 00241 TRA PMN+1 00251 0737 00 1 00000 PAC ,1 00252 -0500 60 0 00010 CAL* CNVTBL 00253 0771 00 0 00020 ARS 16 00254 -0320 00 0 11372 ANA =O177 00255 0602 00 2 00022 SLW BUF3+6,2 00256 1 77777 2 00257 TXI *+1,2,-1 00257 -0340 00 0 11325 LAS =O12 00260 0020 00 0 00241 TRA PMN+1 00261 0020 00 4 00001 TRA 1,4 00262 0020 00 0 00241 TRA PMN+1 00263 005000250024 MES2 BCI 1,0Q0E0D 00674 ORG QED+432 00674 -0625 00 0 07235 INTRUP STL INTFLG 00675 0602 00 0 07342 SLW AC 00676 0601 00 0 07343 STO AC+1 00677 -0600 00 0 07344 STQ AC+2 00700 0636 00 4 00713 SCA INT1,4 00701 0074 00 4 07335 TSX SETFUL,4 00702 0074 00 4 07317 TSX GETBRK,4 00703 0621 00 0 00714 STA INT1+1 00704 0074 00 4 07316 TSX SETBRK,4 00705 0 00000 0 00674 PZE INTRUP 00706 0500 00 0 07343 CLA AC+1 00707 -0501 00 0 07342 ORA AC 00710 0560 00 0 07344 LDQ AC+2 00711 0520 00 0 07236 ZET RFLG 00712 0020 00 0 00715 TRA INT2 00713 -0774 00 4 00000 INT1 AXC **,4 00714 0020 00 0 00000 TRA ** 00715 -0520 00 0 07030 INT2 NZT TFLG 00716 0020 00 0 01274 TRA TYPE4 00717 0600 00 0 07236 STZ RFLG 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 5 00720 0600 00 0 07033 STZ VFLG 00721 0535 00 4 02345 LAC GC5,4 00722 -0500 00 0 11325 CAL =O12 00723 0020 00 0 02425 TRA GC11 00724 0636 00 4 00751 MORMEM SCA MM1+1,4 00725 0074 00 4 07320 TSX GETMEM,4 00726 0737 00 5 00000 PAC ,5 00727 0737 00 4 00000 PAC ,4 00730 1 77773 4 00731 TXI *+1,4,-5 00731 -0634 00 4 00750 SXD MM1,4 00732 0400 00 0 11376 ADD =O400 00733 0340 00 0 11404 CAS =O100000 00734 0020 00 0 00753 TRA MM2 00735 0074 00 4 00755 TSX MM4,4 00736 0621 00 0 00740 STA *+2 00737 0074 00 4 07336 TSX SETMEM,4 00740 -0774 00 4 00000 AXC **,4 00741 0600 00 4 77774 STZ -04,4 00742 1 00004 4 00743 MM3 TXI *+1,4,4 00743 0756 00 4 00000 PCA ,4 00744 0601 00 4 77774 STO -04,4 00745 0600 00 4 77775 STZ -03,4 00746 0600 00 4 77776 STZ -02,4 00747 0600 00 4 77777 STZ -01,4 00750 -3 00000 4 00742 MM1 TXL MM3,4,** 00751 -0774 00 4 00000 AXC **,4 00752 0020 00 4 00001 TRA 1,4 00753 0074 00 4 07321 MM2 TSX DORMNT,4 00754 0000 00 0 00000 HTR 0 00755 0636 00 4 00760 MM4 SCA *+3,4 00756 0074 00 4 07323 TSX WRFLX,4 00757 0 00001 0 00764 PZE MES3,,1 00760 -0774 00 4 00000 AXC **,4 00761 -0500 00 0 11402 CAL =O77774 00762 -0625 00 0 07235 STL INTFLG 00763 0020 00 4 00001 TRA 1,4 00764 004400250044 MES3 BCI 1,0M0E0M 00765 0520 00 0 07235 ADDRES ZET INTFLG 00766 0020 00 0 01274 TRA TYPE4 00767 0600 00 0 07275 STZ DFLG 00770 0600 00 0 07265 STZ AFLG 00771 0600 00 0 07266 STZ BFLG 00772 0074 00 4 02257 TSX GETCHA,4 00773 -0500 00 0 07251 CAL ZER 00774 0602 00 0 07250 SLW ADDR3 00775 -0500 60 0 00010 ADR1 CAL* CNVTBL 00776 0771 00 0 00040 ARS 32 00777 0737 00 4 00000 PAC ,4 01000 0020 00 4 01001 TRA *+1,4 01001 0020 00 0 01230 TRA AUNKN 01002 0020 00 0 01014 TRA APLUS 01003 0020 00 0 01015 TRA AMINUS 01004 0020 00 0 01023 TRA ASRCH 01005 0020 00 0 01126 TRA ANUMB 01006 0020 00 0 01073 TRA ALAST 01007 0020 00 0 01100 TRA ACURNT 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 6 01010 0020 00 0 01012 TRA ABLNK 01011 0020 00 0 01147 TRA AANUM 01012 0074 00 4 02257 ABLNK TSX GETCHA,4 01013 0020 00 0 00775 TRA ADR1 01014 0020 00 0 01222 APLUS TRA ADV2 01015 0520 00 0 07275 AMINUS ZET DFLG 01016 0020 00 0 01021 TRA *+3 01017 -0625 00 0 07275 STL DFLG 01020 0020 00 0 01222 TRA ADV2 01021 0600 00 0 07275 STZ DFLG 01022 0020 00 0 01222 TRA ADV2 01023 -0500 00 0 11350 ASRCH CAL =O57 01024 0602 00 0 07273 SLW SLCHR 01025 0600 00 0 07263 STZ SUBFLG 01026 0074 00 4 01426 TSX COMPIL,4 01027 0020 00 0 01057 TRA SRC3 01030 0 00000 0 01041 PZE SRC2 01031 0535 00 4 07024 LAC DOT,4 01032 -0500 00 4 00000 CAL 00,4 01033 0621 00 0 01036 STA SRC1 01034 -0636 00 4 01036 SCD SRC1,4 01035 0074 00 4 02527 TSX SETBC,4 01036 0 00000 0 00000 SRC1 PZE **,,** 01037 -0625 00 0 07234 STL IFLG 01040 0600 00 0 07237 STZ JFLG 01041 0600 00 0 07233 SRC2 STZ FFLG 01042 -0520 00 0 07234 NZT IFLG 01043 0020 00 0 01046 TRA *+3 01044 0600 00 0 07234 STZ IFLG 01045 -0625 00 0 07233 STL FFLG 01046 0074 00 4 02604 TSX GETBC,4 01047 0737 00 1 00000 PAC ,1 01050 -3 77774 1 01052 TXL *+2,1,-4 01051 -3 77775 1 01067 TXL SRC4,1,-3 01052 -0774 00 2 07625 AXC BUF2+50-1,2 01053 -3 77765 1 00014 TXL BUF3,1,-11 01054 3 77766 1 00014 TXH BUF3,1,-10 01055 -0625 00 0 07234 STL IFLG 01056 0020 00 0 00014 TRA BUF3 01057 0535 00 2 02621 SRC3 LAC BC2,2 01060 -0520 00 0 07234 NZT IFLG 01061 0020 00 0 01064 TRA *+3 01062 -0500 00 2 00000 CAL 00,2 01063 -0737 00 2 00000 PDC ,2 01064 0074 00 4 02641 TSX BC4,4 01065 0074 00 4 02257 TSX GETCHA,4 01066 0020 00 0 01173 TRA AREL 01067 -0520 00 0 07241 SRC4 NZT RECLEV 01070 0020 00 0 01260 TRA TYPE1 01071 0074 00 4 02641 TSX BC4,4 01072 0020 00 0 00765 TRA ADDRES 01073 0535 00 2 07251 ALAST LAC ZER,2 01074 -0500 00 2 00000 CAL 00,2 01075 -0737 00 2 00000 PDC ,2 01076 0074 00 4 02257 TSX GETCHA,4 01077 0020 00 0 01173 TRA AREL 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 7 01100 0535 00 2 07024 ACURNT LAC DOT,2 01101 0074 00 4 02257 TSX GETCHA,4 01102 0020 00 0 01173 TRA AREL 01103 1 00060 1 01104 NUMB TXI *+1,1,48 01104 0636 00 1 01124 SCA NUMB1,1 01105 0074 00 4 02257 TSX GETCHA,4 01106 -0500 60 0 00010 CAL* CNVTBL 01107 0771 00 0 00040 ARS 32 01110 0402 00 0 11322 SUB =4 01111 -0100 00 0 01124 TNZ NUMB1 01112 0535 00 4 01124 LAC NUMB1,4 01113 0756 00 4 00000 PCA ,4 01114 0131 00 0 00000 XCA 01115 0200 00 0 11325 MPY =10 01116 0131 00 0 00000 XCA 01117 1 00060 1 01120 TXI *+1,1,48 01120 0636 00 1 01124 SCA NUMB1,1 01121 0361 00 0 01124 ACL NUMB1 01122 0621 00 0 01124 STA NUMB1 01123 0020 00 0 01105 TRA NUMB+2 01124 -0774 00 4 00000 NUMB1 AXC **,4 01125 0020 00 2 00001 TRA 1,2 01126 0074 00 2 01103 ANUMB TSX NUMB,2 01127 0535 00 2 07250 LAC ADDR3,2 01130 0500 00 2 00000 CLA 00,2 01131 0520 00 0 07275 ZET DFLG 01132 0020 00 0 01140 TRA NUMB3 01133 -3 00000 4 01145 NUMB2 TXL NUMB4,4,0 01134 0737 00 2 00000 PAC ,2 01135 0500 00 2 00000 CLA 00,2 01136 -0120 00 0 01300 TMI TYPE5 01137 1 00001 4 01133 TXI NUMB2,4,1 01140 -3 00000 4 01145 NUMB3 TXL NUMB4,4,0 01141 -0120 00 0 01300 TMI TYPE5 01142 -0737 00 2 00000 PDC ,2 01143 0500 00 2 00000 CLA 00,2 01144 1 00001 4 01140 TXI NUMB3,4,1 01145 0636 00 2 07250 NUMB4 SCA ADDR3,2 01146 0020 00 0 01225 TRA ADV3 01147 0074 00 4 02257 AANUM TSX GETCHA,4 01150 -0500 60 0 00010 CAL* CNVTBL 01151 0771 00 0 00040 ARS 32 01152 0402 00 0 11322 SUB =4 01153 -0100 00 0 01264 TNZ TYPE2 01154 0074 00 2 01103 TSX NUMB,2 01155 0535 00 2 07251 LAC ZER,2 01156 -3 00000 4 01173 TXL AREL,4,0 01157 -0500 00 2 00000 CAL 00,2 01160 0737 00 2 00000 PAC ,2 01161 0756 00 4 00000 AAN1 PCA ,4 01162 -0340 00 2 00003 LAS 03,2 01163 0020 00 0 01166 TRA *+3 01164 0020 00 0 01173 TRA AREL 01165 0020 00 0 01260 TRA TYPE1 01166 -0500 00 2 00000 CAL 00,2 01167 0737 00 2 00000 PAC ,2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 8 01170 0500 00 2 00000 CLA 00,2 01171 0120 00 0 01161 TPL AAN1 01172 0020 00 0 01260 TRA TYPE1 01173 0535 00 4 07250 AREL LAC ADDR3,4 01174 0520 00 0 07275 ZET DFLG 01175 0020 00 0 01207 TRA REL2 01176 0500 00 4 00000 CLA 00,4 01177 -0120 00 0 01216 TMI REL3 01200 0500 00 2 00000 REL1 CLA 00,2 01201 -0120 00 0 01220 TMI REL4 01202 -0737 00 2 00000 PDC ,2 01203 0500 00 4 00000 CLA 00,4 01204 0737 00 4 00000 PAC ,4 01205 0120 00 0 01200 TPL REL1 01206 0020 00 0 01300 TRA TYPE5 01207 0500 00 2 00000 REL2 CLA 00,2 01210 -0120 00 0 01220 TMI REL4 01211 -0737 00 2 00000 PDC ,2 01212 0500 00 4 00000 CLA 00,4 01213 -0737 00 4 00000 PDC ,4 01214 0120 00 0 01207 TPL REL2 01215 0020 00 0 01300 TRA TYPE5 01216 0636 00 2 07250 REL3 SCA ADDR3,2 01217 0020 00 0 01225 TRA ADV3 01220 0636 00 4 07250 REL4 SCA ADDR3,4 01221 0020 00 0 01225 TRA ADV3 01222 0074 00 4 02257 ADV2 TSX GETCHA,4 01223 -0625 00 0 07265 STL AFLG 01224 0020 00 0 00775 TRA ADR1 01225 0600 00 0 07275 ADV3 STZ DFLG 01226 -0625 00 0 07265 STL AFLG 01227 0020 00 0 00775 TRA ADR1 01230 0520 00 0 07266 AUNKN ZET BFLG 01231 0020 00 0 01237 TRA UNK1 01232 -0500 00 0 07250 CAL ADDR3 01233 0602 00 0 07246 SLW ADDR1 01234 0602 00 0 07247 SLW ADDR2 01235 -0625 00 0 07266 STL BFLG 01236 0020 00 0 01243 TRA UNK2 01237 -0500 00 0 07247 UNK1 CAL ADDR2 01240 0602 00 0 07246 SLW ADDR1 01241 -0500 00 0 07250 CAL ADDR3 01242 0602 00 0 07247 SLW ADDR2 01243 0756 00 1 00000 UNK2 PCA ,1 01244 0402 00 0 11345 SUB =O54 01245 0100 00 0 01252 TZE UNK3 01246 0402 00 0 11330 SUB =O17 01247 -0100 00 0 04400 TNZ COMAND 01250 -0500 00 0 07250 CAL ADDR3 01251 0602 00 0 07024 SLW DOT 01252 0074 00 4 02257 UNK3 TSX GETCHA,4 01253 -0500 00 0 07251 CAL ZER 01254 0602 00 0 07250 SLW ADDR3 01255 0020 00 0 00775 TRA ADR1 TYPE MACRO A ZET TRAP'A 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 9 TSX TRAP,4 CAL =H0'A'0 0 TRA ILLADD-1 END TYPE 01256 -0500 00 0 11406 TYPE0 CAL =H000 0 01257 0020 00 0 01362 TRA ILLADD-1 01260 TYPE1 TYPE 1 01264 TYPE2 TYPE 2 01270 TYPE3 TYPE 3 01274 TYPE4 TYPE 4 01300 TYPE5 TYPE 5 01304 TYPE6 TYPE 6 01310 TYPE7 TYPE 7 01314 TYPE8 TYPE 8 01320 TYPE9 TYPE 9 01324 0 00000 0 00000 TRAP1 01325 0 00000 0 00000 TRAP2 01326 0 00000 0 00000 TRAP3 01327 0 00000 0 00000 TRAP4 01330 0 00000 0 00000 TRAP5 01331 0 00000 0 00000 TRAP6 01332 0 00000 0 00000 TRAP7 01333 0 00000 0 00000 TRAP8 01334 0 00000 0 00000 TRAP9 01335 -0500 60 4 77777 TRAP CAL* -1,4 01336 0600 60 4 77777 STZ* -1,4 01337 0602 00 0 01361 SLW TRP1 01340 0600 00 0 07235 STZ INTFLG 01341 0520 00 0 07030 ZET TFLG 01342 0074 00 4 02427 TSX GC11+2,4 01343 0535 00 4 07242 LAC BUFER,4 01344 -0500 00 4 00003 CAL 03,4 01345 0602 00 0 01360 SLW TRP2 01346 -0500 00 0 01361 CAL TRP1 01347 0074 00 4 03304 TSX BOPEN,4 01350 0535 00 4 07251 LAC ZER,4 01351 -0500 00 4 00000 CAL 00,4 01352 0601 00 0 01354 STO *+2 01353 0074 00 4 02527 TSX SETBC,4 01354 0 00000 0 00000 PZE **,,** 01355 -0500 00 0 01360 CAL TRP2 01356 0074 00 4 03304 TSX BOPEN,4 01357 0020 00 0 00765 TRA ADDRES 01360 0 00000 0 00000 TRP2 PZE ** 01361 0 00000 0 00000 TRP1 PZE ** 01362 0602 00 0 01417 SLW MES1+1 01363 0600 00 0 07235 ILLADD STZ INTFLG 01364 -0520 00 0 07267 NZT TRCFLG 01365 0020 00 0 01375 TRA IL2 01366 -0340 00 0 11414 LAS =H040 0 01367 0020 00 0 01371 TRA *+2 01370 0020 00 0 01375 TRA IL2 01371 -0520 00 0 07241 NZT RECLEV 01372 0020 00 0 01375 TRA IL2 01373 0074 00 4 03502 TSX PRINT,4 01374 0 00000 0 02604 PZE GETBC 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 10 01375 0074 00 4 07335 IL2 TSX SETFUL,4 01376 0520 00 0 07300 ZET FILFLG 01377 0074 00 4 02772 TSX CLOS,4 01400 -0520 00 0 07241 NZT RECLEV 01401 0020 00 0 01412 TRA IL1 01402 0600 00 0 07241 STZ RECLEV 01403 0535 00 4 07244 LAC INPUT,4 01404 0756 00 5 00000 PCA ,5 01405 0602 00 4 00000 SLW 00,4 01406 0535 00 4 07245 LAC IBASE,4 01407 -0500 00 4 00000 CAL 00,4 01410 0737 00 5 00000 PAC ,5 01411 0636 00 4 07244 SCA INPUT,4 01412 0074 00 4 07323 IL1 TSX WRFLX,4 01413 0 00002 0 01416 PZE MES1,,2 01414 0774 00 7 00000 AXT 00,7 01415 0020 00 0 00765 TRA ADDRES 01416 +017501320156 MES1 OCT 17501320156,0 01417 +000000000000 01420 0636 00 4 01423 BLINE SCA *+3,4 01421 0074 00 4 07323 TSX WRFLX,4 01422 0 00001 0 01425 PZE *+3,,1 01423 -0774 00 4 00000 AXC **,4 01424 0020 00 4 00001 TRA 1,4 01425 +006000600060 OCT 006000600060 01426 0636 00 4 01567 COMPIL SCA CEOF,4 01427 0636 00 0 01540 SCA OPONST,0 01430 -0774 00 3 00000 AXC 00,3 01431 -0774 00 2 00144 AXC 100,2 01432 -0500 00 0 11317 CAL =1 01433 0602 00 0 07544 SLW BUF2 01434 0600 00 0 07234 STZ IFLG 01435 0600 00 0 07237 STZ JFLG 01436 0520 00 0 07234 ADVANC ZET IFLG 01437 0020 00 0 01511 TRA AN1 01440 0074 00 4 02257 TSX GETCHA,4 01441 -0340 00 0 07273 LAS SLCHR 01442 0020 00 0 01444 TRA *+2 01443 0020 00 0 01530 TRA SL1 01444 0520 00 0 07240 ZET CPLFLG 01445 0600 00 0 07262 STZ NSCHA 01446 0600 00 0 07240 STZ CPLFLG 01447 0520 00 0 07033 IO1 ZET VFLG 01450 0020 00 0 01461 TRA AD1 01451 -3 77602 1 01463 TXL CH1,1,-126 01452 -3 77603 1 01514 TXL RP0,1,-125 01453 -3 77604 1 01504 TXL OR1,1,-124 01454 -3 77605 1 01474 TXL LP1,1,-123 01455 -3 77725 1 01463 TXL CH1,1,-43 01456 -3 77726 1 01526 TXL ST1,1,-42 01457 -3 77727 1 01523 TXL RP1,1,-41 01460 -3 77730 1 01474 TXL LP1,1,-40 01461 -3 77765 1 01463 AD1 TXL CH1,1,-11 01462 -3 77766 1 01537 TXL CILAD,1,-10 01463 -0756 00 1 00000 CH1 PCD ,1 01464 0520 00 0 07033 IO2 ZET VFLG 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 11 01465 -0760 00 0 00003 SSM 01466 0601 00 0 07264 STO COPY 01467 -0774 00 1 00007 AXC 7,1 01470 0520 00 0 07237 ZET JFLG 01471 0020 00 0 01500 TRA CH2 01472 -0625 00 0 07237 STL JFLG 01473 0020 00 0 01540 TRA OPONST 01474 -0774 00 1 00010 LP1 AXC 8,1 01475 -0520 00 0 07237 NZT JFLG 01476 0020 00 0 01540 TRA OPONST 01477 0600 00 0 07237 STZ JFLG 01500 0636 00 1 07264 CH2 SCA COPY,1 01501 -0774 00 1 00005 AXC 5,1 01502 -0625 00 0 07234 STL IFLG 01503 0020 00 0 01540 TRA OPONST 01504 -0774 00 1 00004 OR1 AXC 4,1 01505 -0520 00 0 07237 NZT JFLG 01506 0020 00 0 01537 TRA CILAD 01507 0600 00 0 07237 STZ JFLG 01510 0020 00 0 01540 TRA OPONST 01511 0535 00 1 07264 AN1 LAC COPY,1 01512 0600 00 0 07234 STZ IFLG 01513 0020 00 0 01540 TRA OPONST 01514 0074 00 4 02257 RP0 TSX GETCHA,4 01515 0602 00 0 07264 SLW COPY 01516 -0774 00 1 00002 AXC 2,1 01517 -0340 00 0 07273 LAS SLCHR 01520 0020 00 0 01533 TRA RP2 01521 0020 00 0 01537 TRA CILAD 01522 0020 00 0 01533 TRA RP2 01523 -0774 00 1 00002 RP1 AXC 2,1 01524 0600 00 0 07264 STZ COPY 01525 0020 00 0 01533 TRA RP2 01526 -0774 00 1 00006 ST1 AXC 6,1 01527 0020 00 0 01533 TRA RP2 01530 0520 00 0 07033 USL1 ZET VFLG 01531 0020 00 0 01463 TRA CH1 01532 -0774 00 1 00001 AXC 1,1 01533 0520 00 0 07237 RP2 ZET JFLG 01534 0020 00 0 01540 TRA OPONST 01535 0535 00 3 07240 LAC CPLFLG,3 01536 3 00000 3 01567 TXH CEOF,3,0 01537 0020 00 0 01270 CILAD TRA TYPE3 01540 -0774 00 4 00000 OPONST AXC **,4 01541 -0634 00 1 01544 SXD OP1,1 01542 -0500 00 4 07544 OP0 CAL BUF2,4 01543 0737 00 1 00000 PAC ,1 01544 -3 00000 1 01557 OP1 TXL OP2,1,** 01545 -0534 00 1 01544 LXD OP1,1 01546 3 77770 1 01550 TXH *+2,1,-8 01547 1 00005 1 01550 TXI *+1,1,5 01550 0500 00 0 07264 CLA COPY 01551 0601 00 4 07545 STO BUF2+1,4 01552 0756 00 1 00000 PCA ,1 01553 0621 00 4 07545 STA BUF2+1,4 01554 1 77777 4 01555 TXI *+1,4,-1 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 12 01555 0636 00 4 01540 SCA OPONST,4 01556 0020 00 0 01436 TRA ADVANC 01557 0020 00 1 01557 OP2 TRA *,1 01560 0020 00 0 01567 TRA CEOF 01561 0020 00 0 01602 TRA CRTP 01562 0020 00 0 01603 TRA CLFP 01563 0020 00 0 01635 TRA COR 01564 0020 00 0 01701 TRA CAND 01565 0020 00 0 01713 TRA CSTR 01566 0020 00 0 01747 TRA CCHR 01567 -0774 00 4 00000 CEOF AXC **,4 01570 0636 00 0 02175 SCA CNO1,0 01571 0636 00 0 02141 SCA NO1,0 01572 -0500 00 4 00001 CAL 1,4 01573 0602 00 3 00014 SLW BUF3,3 01574 0636 00 3 07240 SCA CPLFLG,3 01575 -0500 00 4 00002 CAL 2,4 01576 0621 00 0 02254 STA XCH2 01577 -0500 00 0 07220 CAL TRA3 01600 0602 00 0 07627 SLW BUF2+50+1 01601 0020 00 4 00003 TRA 3,4 01602 0020 00 0 01537 CRTP TRA CILAD 01603 -0534 00 1 01544 CLFP LXD OP1,1 01604 3 77776 1 01537 TXH CILAD,1,-2 01605 1 00001 4 01606 TXI *+1,4,1 01606 0636 00 4 01540 SCA OPONST,4 01607 -0520 00 0 07264 NZT COPY 01610 0020 00 0 01436 TRA ADVANC 01611 0535 00 4 07262 LAC NSCHA,4 01612 -0500 00 0 07264 CAL COPY 01613 0602 00 4 11300 SLW SCHARS,4 01614 1 77777 4 01615 TXI *+1,4,-1 01615 -3 77767 4 01256 TXL TYPE0,4,-9 01616 0636 00 4 07262 SCA NSCHA,4 01617 0602 00 3 00015 SLW BUF3+1,3 01620 -0500 00 0 07225 CAL TSX5 01621 0602 00 3 00014 SLW BUF3,3 01622 -0500 00 0 07224 CAL TSX4 01623 0602 00 3 00016 SLW BUF3+2,3 01624 -0500 00 2 07544 CAL BUF2,2 01625 0737 00 4 00000 PAC ,4 01626 -0500 00 4 00014 CAL BUF3,4 01627 0602 00 3 00017 SLW BUF3+3,3 01630 0756 00 3 00000 PCA ,3 01631 0361 00 0 07216 ACL TRA1 01632 0361 00 0 11320 ACL =2 01633 0602 00 4 00014 SLW BUF3,4 01634 1 77774 3 01436 TXI ADVANC,3,-4 01635 1 00001 4 01636 COR TXI *+1,4,1 01636 0636 00 4 01540 SCA OPONST,4 01637 -0500 00 2 07545 CAL BUF2+1,2 01640 0737 00 4 00000 PAC ,4 01641 -0500 00 4 00014 CAL BUF3,4 01642 0602 00 3 00016 SLW BUF3+2,3 01643 0756 00 3 00000 PCA ,3 01644 0361 00 0 07216 ACL TRA1 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 13 01645 0361 00 0 11317 ACL =1 01646 0602 00 4 00014 SLW BUF3,4 01647 0361 00 0 11321 ACL =3 01650 0602 00 3 00014 SLW BUF3,3 01651 -0130 00 0 00000 XCL 01652 -0500 00 2 07544 CAL BUF2,2 01653 -0737 00 4 00000 PDC ,4 01654 -3 00000 4 01667 TXL COR1,4,0 01655 -0500 00 2 07545 CAL BUF2+1,2 01656 -0340 00 0 11404 LAS =O100000 01657 0020 00 0 01664 TRA *+5 01660 0020 00 0 01664 TRA *+4 01661 -0756 00 4 00000 PCD ,4 01662 0622 00 2 07545 STD BUF2+1,2 01663 0020 00 0 01667 TRA COR1 01664 0771 00 0 00022 ARS 18 01665 0361 00 0 07216 ACL TRA1 01666 0602 00 4 00014 SLW BUF3,4 01667 -0500 00 2 07544 COR1 CAL BUF2,2 01670 0737 00 4 00000 PAC ,4 01671 -0500 00 4 00014 CAL BUF3,4 01672 0602 00 3 00017 SLW BUF3+3,3 01673 -0600 00 4 00014 STQ BUF3,4 01674 -0500 00 0 07222 CAL TSX2 01675 0602 00 3 00015 SLW BUF3+1,3 01676 1 77777 2 01677 TXI *+1,2,-1 01677 0535 00 4 01540 LAC OPONST,4 01700 1 77774 3 01542 TXI OP0,3,-4 01701 -0500 00 2 07544 CAND CAL BUF2,2 01702 -0340 00 0 11404 LAS =O100000 01703 1 77777 2 01712 TXI CAN1,2,-1 01704 1 77777 2 01712 TXI CAN1,2,-1 01705 -0500 00 2 07545 CAL BUF2+1,2 01706 -0340 00 0 11404 LAS =O100000 01707 -0320 00 0 11403 ANA =O77777 01710 0602 00 2 07545 SLW BUF2+1,2 01711 1 77777 2 01712 TXI CAN1,2,-1 01712 1 00001 4 01542 CAN1 TXI OP0,4,1 01713 1 00001 4 01714 CSTR TXI *+1,4,1 01714 0636 00 4 01540 SCA OPONST,4 01715 0500 00 2 07544 CLA BUF2,2 01716 -0120 00 0 01537 TMI CILAD 01717 -0737 00 4 00000 PDC ,4 01720 -3 00000 4 01724 TXL *+4,4,0 01721 -0500 00 0 07217 CAL TRA2 01722 0602 00 4 00014 SLW BUF3,4 01723 -0500 00 2 07544 CAL BUF2,2 01724 0737 00 4 00000 PAC ,4 01725 -0500 00 4 00014 CAL BUF3,4 01726 0602 00 3 00015 SLW BUF3+1,3 01727 0602 00 3 00020 SLW BUF3+4,3 01730 0756 00 3 00000 PCA ,3 01731 0361 00 0 07216 ACL TRA1 01732 0361 00 0 11321 ACL =3 01733 0602 00 4 00014 SLW BUF3,4 01734 0361 00 0 11321 ACL =3 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 14 01735 0602 00 3 00016 SLW BUF3+2,3 01736 0602 00 3 00021 SLW BUF3+5,3 01737 -0756 00 3 00000 PCD ,3 01740 0361 00 0 11407 ACL =O5000000 01741 0622 00 2 07544 STD BUF2,2 01742 -0500 00 0 07222 CAL TSX2 01743 0602 00 3 00014 SLW BUF3,3 01744 0602 00 3 00017 SLW BUF3+3,3 01745 0535 00 4 01540 LAC OPONST,4 01746 1 77772 3 01542 TXI OP0,3,-6 01747 0636 00 4 01540 CCHR SCA OPONST,4 01750 0756 00 3 00000 PCA ,3 01751 0602 00 2 07543 SLW BUF2-1,2 01752 0361 00 0 07216 ACL TRA1 01753 0361 00 0 11317 ACL =1 01754 0602 00 3 00014 SLW BUF3,3 01755 0500 00 4 07544 CLA BUF2,4 01756 -0737 00 1 00000 PDC ,1 01757 -0120 00 0 01766 TMI CCH1 01760 -3 77641 1 01766 TXL CCH1,1,-95 01761 -3 77642 1 02007 TXL CCHZ,1,-94 01762 -3 77721 1 01766 TXL CCH1,1,-47 01763 -3 77722 1 02017 TXL CCHC,1,-46 01764 -3 77733 1 01766 TXL CCH1,1,-37 01765 -3 77734 1 02031 TXL CCHL,1,-36 01766 -0500 00 0 07221 CCH1 CAL TSX1 01767 0602 00 3 00017 SLW BUF3+3,3 01770 -0774 00 4 00000 AXC 00,4 01771 -0754 00 1 00000 CCH2 PXD ,1 01772 -0501 00 0 07230 ORA TXH1 01773 0602 00 3 00016 SLW BUF3+2,3 01774 -3 00000 1 02000 TXL *+4,1,0 01775 1 77777 1 01776 TXI *+1,1,-1 01776 -0754 00 1 00000 PXD ,1 01777 -0501 00 0 07226 ORA TXL1 02000 0602 00 3 00015 SLW BUF3+1,3 02001 -3 00000 4 02003 TXL *+2,4,0 02002 1 77775 3 02004 TXI CCH3,3,-3 02003 1 77774 3 02004 TXI CCH3,3,-4 02004 1 00001 2 02005 CCH3 TXI *+1,2,1 02005 0535 00 4 01540 LAC OPONST,4 02006 1 00001 4 01542 TXI OP0,4,1 02007 -0500 00 0 07231 CCHZ CAL NZT1 02010 0602 00 3 00015 SLW BUF3+1,3 02011 -0500 00 0 07217 CAL TRA2 02012 0602 00 3 00016 SLW BUF3+2,3 02013 0500 00 2 07543 CLA BUF2-1,2 02014 -0760 00 0 00003 SSM 02015 0601 00 2 07543 STO BUF2-1,2 02016 1 77775 3 02004 TXI CCH3,3,-3 02017 0756 00 3 00000 CCHC PCA ,3 02020 0361 00 0 07227 ACL TXL2 02021 0602 00 3 00015 SLW BUF3+1,3 02022 -0774 00 4 00012 AXC 10,4 02023 -0754 00 4 00000 PXD ,4 02024 0361 00 0 07226 ACL TXL1 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 15 02025 0602 00 3 00016 SLW BUF3+2,3 02026 -0500 00 0 07221 CAL TSX1 02027 0602 00 3 00017 SLW BUF3+3,3 02030 1 77774 3 02004 TXI CCH3,3,-4 02031 -0774 00 1 00012 CCHL AXC 10,1 02032 0500 00 2 07543 CLA BUF2-1,2 02033 -0760 00 0 00003 SSM 02034 0601 00 2 07543 STO BUF2-1,2 02035 0074 00 4 01771 TSX CCH2,4 02036 -0520 00 0 07263 START NZT SUBFLG 02037 0020 00 4 00001 TRA 1,4 02040 0636 00 4 02074 SCA START2,4 02041 0636 00 5 02065 SCA START1,5 02042 -0500 00 4 77777 CAL -1,4 02043 0602 00 5 00001 SLW 1,5 02044 -0500 00 2 00001 CAL 1,2 02045 -0737 00 4 00000 PDC ,4 02046 -3 00000 4 02056 TXL START0,4,0 02047 -0500 00 4 00001 START4 CAL 1,4 02050 -0340 00 5 00001 LAS 1,5 02051 0020 00 0 02053 TRA *+2 02052 0020 00 0 02071 TRA START3 02053 -0500 00 4 00000 CAL 0,4 02054 0737 00 4 00000 PAC ,4 02055 3 00000 4 02047 TXH START4,4,0 02056 -0500 00 5 00000 START0 CAL 0,5 02057 0737 00 5 00000 PAC ,5 02060 3 00000 5 02062 TXH *+2,5,0 02061 0074 00 4 00724 TSX MORMEM,4 02062 -0500 00 2 00001 CAL 1,2 02063 -0737 00 4 00000 PDC ,4 02064 0756 00 4 00000 PCA ,4 02065 -0774 00 4 00000 START1 AXC **,4 02066 0602 00 4 00000 SLW 0,4 02067 -0756 00 4 00000 PCD ,4 02070 0622 00 2 00001 STD 1,2 02071 -0500 00 0 07626 START3 CAL BUF2+50 02072 0602 00 4 00002 SLW 2,4 02073 0600 00 4 00003 STZ 3,4 02074 -0774 00 4 00000 START2 AXC **,4 02075 0020 00 4 00001 TRA 1,4 02076 -0520 00 0 07263 FINISH NZT SUBFLG 02077 0020 00 4 00004 TRA 4,4 02100 0636 00 4 02117 SCA FINIS3,4 02101 -0500 00 4 00001 CAL 1,4 02102 0602 00 0 07264 SLW COPY 02103 -0500 00 2 00001 CAL 1,2 02104 -0737 00 4 00000 PDC ,4 02105 -3 00000 4 01256 FINIS1 TXL TYPE0,4,0 02106 -0500 00 4 00001 CAL 1,4 02107 -0340 00 0 07264 LAS COPY 02110 0020 00 0 02112 TRA *+2 02111 0020 00 0 02115 TRA FINIS2 02112 -0500 00 4 00000 CAL 0,4 02113 0737 00 4 00000 PAC ,4 02114 0020 00 0 02105 TRA FINIS1 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 16 02115 -0500 00 0 07626 FINIS2 CAL BUF2+50 02116 0602 00 4 00003 SLW 3,4 02117 -0774 00 4 00000 FINIS3 AXC **,4 02120 0020 00 4 00004 TRA 4,4 02121 -0520 00 0 07263 FAIL NZT SUBFLG 02122 0020 00 2 00002 TRA 2,2 02123 -0500 00 2 00001 CAL 1,2 02124 -0737 00 4 00000 PDC ,4 02125 -3 00000 4 02136 TXL FAIL1+1,4,0 02126 0636 00 4 02135 SCA FAIL1,4 02127 -0500 00 4 00000 CAL 0,4 02130 0100 00 0 02133 TZE *+3 02131 0737 00 4 00000 PAC ,4 02132 0020 00 0 02127 TRA *-3 02133 0756 00 5 00000 PCA ,5 02134 0602 00 4 00000 SLW 0,4 02135 -0774 00 5 00000 FAIL1 AXC **,5 02136 0020 00 2 00002 TRA 2,2 02137 0756 00 4 00000 NODE PCA ,4 02140 0361 00 0 07223 ACL TSX3 02141 -0774 00 4 00000 NO1 AXC **,4 02142 -3 00000 4 02147 TXL NO2,4,0 02143 -0340 00 4 07542 LAS BUF2-2,4 02144 1 00002 4 02142 TXI *-2,4,2 02145 0020 00 0 02157 TRA NO3 02146 1 00002 4 02142 TXI *-4,4,2 02147 0535 00 4 02141 NO2 LAC NO1,4 02150 1 77776 4 02151 TXI *+1,4,-2 02151 -3 77716 4 01256 TXL TYPE0,4,-50 02152 0636 00 4 02141 SCA NO1,4 02153 0602 00 4 07542 SLW BUF2-2,4 02154 -0500 00 2 00001 CAL 1,2 02155 0602 00 4 07543 SLW BUF2-1,4 02156 0020 00 2 00002 TRA 2,2 02157 -0500 00 4 07543 NO3 CAL BUF2-1,4 02160 -0320 00 0 11403 ANA =O77777 02161 0602 00 0 07264 SLW COPY 02162 -0500 00 2 00001 CAL 1,2 02163 -0320 00 0 11403 ANA =O77777 02164 -0340 00 0 07264 LAS COPY 02165 0020 00 0 02121 TRA FAIL 02166 0020 00 0 02121 TRA FAIL 02167 -0500 00 2 00001 CAL 1,2 02170 0602 00 4 07543 SLW BUF2-1,4 02171 0020 00 2 00002 TRA 2,2 02172 0636 00 4 02237 CNODE SCA CNO3,4 02173 0756 00 4 00000 PCA ,4 02174 0361 00 0 07223 ACL TSX3 02175 -0774 00 4 00000 CNO1 AXC **,4 02176 1 77776 4 02177 TXI *+1,4,-2 02177 -3 77716 4 01256 TXL TYPE0,4,-50 02200 0636 00 4 02175 SCA CNO1,4 02201 0602 00 4 07625 SLW BUF2+50-1,4 02202 -0500 00 0 07220 CAL TRA3 02203 0602 00 4 07627 SLW BUF2+50+1,4 02204 -0500 00 2 00001 CAL 1,2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 17 02205 0602 00 4 07626 SLW BUF2+50,4 02206 -0520 00 0 07263 NZT SUBFLG 02207 0020 00 0 02237 TRA CNO3 02210 -0737 00 4 00000 PDC ,4 02211 -3 00000 4 02237 TXL CNO3,4,0 02212 -0756 00 5 00000 PCD ,5 02213 0622 00 2 00001 STD 1,2 02214 -0500 00 4 00001 CNO4 CAL 1,4 02215 0602 00 5 00001 SLW 1,5 02216 -0500 00 4 00002 CAL 2,4 02217 0602 00 5 00002 SLW 2,5 02220 -0500 00 4 00003 CAL 3,4 02221 0602 00 5 00003 SLW 3,5 02222 0636 00 5 02232 SCA CNO5,5 02223 -0500 00 5 00000 CAL 0,5 02224 0737 00 5 00000 PAC ,5 02225 3 00000 5 02231 TXH *+4,5,0 02226 0636 00 4 02230 SCA *+2,4 02227 0074 00 4 00724 TSX MORMEM,4 02230 -0774 00 4 00000 AXC **,4 02231 0756 00 5 00000 PCA ,5 02232 0602 00 0 00000 CNO5 SLW ** 02233 -0500 00 4 00000 CAL 0,4 02234 0737 00 4 00000 PAC ,4 02235 3 00000 4 02214 TXH CNO4,4,0 02236 0600 60 0 02232 STZ* CNO5 02237 -0774 00 4 00000 CNO3 AXC **,4 02240 0020 00 4 00002 TRA 2,4 02241 0535 00 4 02141 XCHG LAC NO1,4 02242 -0774 00 2 00000 AXC 00,2 02243 0636 00 0 02141 SCA NO1,0 02244 -3 00000 4 02251 TXL *+5,4,0 02245 1 00002 4 02246 TXI *+1,4,2 02246 0443 00 4 07544 DLD BUF2,4 02247 -0603 00 2 07627 DST BUF2+50+1,2 02250 1 77776 2 02244 TXI *-4,2,-2 02251 -0500 00 0 07220 CAL TRA3 02252 0602 00 2 07627 SLW BUF2+50+1,2 02253 0636 00 2 02175 SCA CNO1,2 02254 0020 00 0 00000 XCH2 TRA ** INSERT 1QED 02255 0 00000 0 00000 SIZ1 02256 0 00000 0 00000 SIZ2 02257 0600 00 0 07033 GETCHA STZ VFLG 02260 0520 00 0 07241 ZET RECLEV 02261 0020 00 0 02520 TRA GETBUF 02262 3 00000 7 02346 TXH GC5+1,7,0 02263 -0625 00 0 07236 STL RFLG 02264 0600 00 0 02255 STZ SIZ1 02265 0636 00 4 02345 SCA GC5,4 02266 0074 00 4 07322 GC0 TSX RDFLXA,4 02267 0 00144 0 07344 PZE BUF1,,100 02270 0560 00 0 07344 LDQ BUF1 02271 -0754 00 0 00000 ZAC 02272 -0763 00 0 00006 LGL 6 02273 -0340 00 0 11355 LAS =O77 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 18 02274 0020 00 0 02276 TRA *+2 02275 0020 00 0 06425 TRA ICOM 02276 0774 00 6 00000 AXT 00,6 02277 0774 00 7 00000 AXT 00,7 02300 2 00001 7 02304 GC1 TIX *+4,7,1 02301 0774 00 7 00003 AXT 3,7 02302 0560 00 6 07344 LDQ BUF1,6 02303 1 77777 6 02304 TXI *+1,6,-1 02304 -0754 00 0 00000 ZAC 02305 -0763 00 0 00014 LGL 12 02306 -0320 00 0 11372 ANA =O177 02307 0737 00 1 00000 PAC ,1 02310 -0500 60 0 00010 CAL* CNVTBL 02311 0771 00 0 00020 ARS 16 02312 -0320 00 0 11372 ANA =O177 02313 0534 00 1 02255 LXA SIZ1,1 02314 0602 00 1 10617 SLW BUF6+299,1 02315 1 00001 1 02316 TXI *+1,1,1 02316 3 00454 1 01256 TXH TYPE0,1,300 02317 0634 00 1 02255 SXA SIZ1,1 02320 -0340 00 0 11325 LAS =O12 02321 0020 00 0 02300 TRA GC1 02322 0020 00 0 02324 TRA *+2 02323 0020 00 0 02300 TRA GC1 02324 0074 00 4 00006 TSX OUTESC,4 02325 3 00000 0 10617 PAR BUF6+299 02326 3 00000 0 02255 PAR SIZ1 02327 3 00000 0 10617 PAR BUF6+299 02330 3 00000 0 02256 PAR SIZ2 02331 3 00000 0 11377 PAR =300 02332 0074 00 4 00003 TSX CANON,4 02333 3 00000 0 10617 PAR BUF6+299 02334 3 00000 0 02256 PAR SIZ2 02335 3 00000 0 11377 PAR =300 02336 0074 00 4 00007 TSX EKEDIT,4 02337 3 00000 0 10617 PAR BUF6+299 02340 3 00000 0 02256 PAR SIZ2 02341 3 00000 0 11377 PAR =300 02342 0600 00 0 07236 STZ RFLG 02343 0600 00 0 07274 STZ CFLG 02344 0774 00 7 00000 AXT 00,7 02345 -0774 00 4 00000 GC5 AXC **,4 02346 -0500 00 7 10617 CAL BUF6+299,7 02347 1 00001 7 02350 TXI *+1,7,1 02350 0737 00 1 00000 GC4 PAC ,1 02351 0520 00 0 07025 ZET CAPFLG 02352 -3 77637 1 02422 TXL GC10,1,-97 02353 0520 00 0 07030 GC10R ZET TFLG 02354 0020 00 0 02425 TRA GC11 02355 0520 00 0 07033 ZET VFLG 02356 0020 00 0 02402 TRA GC12 02357 -0340 00 0 11332 LAS =O31 02360 0020 00 0 02366 TRA GC13 02361 0020 00 0 02442 TRA GC14 02362 -0340 00 0 11331 LAS =O30 02363 0020 00 0 02371 TRA GC15 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 19 02364 0020 00 0 02444 TRA GC16 02365 0020 00 0 02371 TRA GC15 02366 -0340 00 0 11336 GC13 LAS =O36 02367 0020 00 0 02371 TRA GC15 02370 0020 00 0 02506 TRA GC17 02371 -0340 00 0 07253 GC15 LAS V 02372 0020 00 0 02374 TRA *+2 02373 0020 00 0 02442 TRA GC14 02374 -0340 00 0 07252 LAS B 02375 0020 00 0 02377 TRA *+2 02376 0020 00 0 02444 TRA GC16 02377 -0340 00 0 07260 LAS R 02400 0020 00 0 02402 TRA *+2 02401 0020 00 0 02506 TRA GC17 02402 -0340 00 0 11325 GC12 LAS =O12 02403 0020 00 0 02415 TRA GC6 02404 0520 00 0 07241 ZET RECLEV 02405 0020 00 0 02410 TRA *+3 02406 0774 00 7 00000 AXT 00,7 02407 0020 00 4 00001 TRA 1,4 02410 -0340 00 0 11324 LAS =O11 02411 -0625 00 0 07274 STL CFLG 02412 0020 00 4 00001 TRA 1,4 02413 -0625 00 0 07274 STL CFLG 02414 0020 00 4 00001 TRA 1,4 02415 -0340 00 0 11340 GC6 LAS =O40 02416 -0625 00 0 07274 STL CFLG 02417 0020 00 4 00001 TRA 1,4 02420 -0625 00 0 07274 STL CFLG 02421 0020 00 4 00001 TRA 1,4 02422 -3 77605 1 02353 GC10 TXL GC10R,1,-123 02423 0402 00 0 11340 SUB =O40 02424 1 00040 1 02353 TXI GC10R,1,32 02425 -0340 00 0 11325 GC11 LAS =O12 02426 0020 00 4 00001 TRA 1,4 02427 0020 00 0 02431 TRA *+2 02430 0020 00 4 00001 TRA 1,4 02431 0534 00 7 07030 LXA TFLG,7 02432 1 77777 7 02433 TXI *+1,7,-1 02433 0634 00 7 07241 SXA RECLEV,7 02434 0535 00 7 07245 LAC IBASE,7 02435 0600 00 7 00001 STZ 01,7 02436 0534 00 6 07031 LXA TFLG+1,6 02437 -0534 00 7 07031 LXD TFLG+1,7 02440 0600 00 0 07030 STZ TFLG 02441 0020 00 0 02404 TRA GC12+2 02442 -0625 00 0 07033 GC14 STL VFLG 02443 0020 00 0 02260 TRA GETCHA+1 02444 0636 00 4 02503 GC16 SCA GC8,4 02445 0535 00 4 07242 LAC BUFER,4 02446 -0500 00 4 00003 CAL 03,4 02447 0602 00 0 02505 SLW GC81 02450 0074 00 4 03057 TSX GETBN,4 02451 0074 00 4 03304 TSX BOPEN,4 02452 -0520 00 0 07241 NZT RECLEV 02453 0020 00 0 02474 TRA GC16.2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 20 02454 -3 00001 7 02474 TXL GC16.2,7,1 02455 0522 00 7 07131 XEC CAL+1,7 02456 0522 00 7 07153 XEC ARS+1,7 02457 -0320 00 0 11372 ANA =O177 02460 0402 00 0 11325 SUB =O12 02461 -0100 00 0 02474 TNZ GC16.2 02462 -0534 00 4 02622 LXD BC2+1,4 02463 0636 00 4 02473 SCA GC16.1,4 02464 0500 00 0 02621 CLA BC2 02465 0402 00 0 02473 SUB GC16.1 02466 -0100 00 0 02474 TNZ GC16.2 02467 0520 00 0 07235 ZET INTFLG 02470 0020 00 0 02474 TRA GC16.2 02471 0074 00 4 02641 TSX BC4,4 02472 0020 00 0 02474 TRA GC16.2 02473 -0774 00 6 00000 GC16.1 AXC **,6 02474 0535 00 4 07251 GC16.2 LAC ZER,4 02475 -0500 00 4 00000 CAL 00,4 02476 0601 00 0 02500 STO *+2 02477 0074 00 4 02527 TSX SETBC,4 02500 0 00000 0 00000 PZE **,,** 02501 -0500 00 0 02505 CAL GC81 02502 0074 00 4 03304 TSX BOPEN,4 02503 -0774 00 4 00000 GC8 AXC **,4 02504 0020 00 0 02257 TRA GETCHA 02505 0 00000 0 00000 GC81 PZE 02506 0534 00 1 07241 GC17 LXA RECLEV,1 02507 1 00001 1 02510 TXI *+1,1,1 02510 0634 00 1 07030 SXA TFLG,1 02511 0634 00 6 07031 SXA TFLG+1,6 02512 -0634 00 7 07031 SXD TFLG+1,7 02513 0535 00 1 07245 LAC IBASE,1 02514 -0500 00 1 00001 CAL 01,1 02515 0774 00 7 00000 AXT 00,7 02516 0600 00 0 07241 STZ RECLEV 02517 0020 00 0 02257 TRA GETCHA 02520 0636 00 4 02522 GETBUF SCA *+2,4 02521 0074 00 4 02604 TSX GETBC,4 02522 -0774 00 4 00000 AXC **,4 02523 -0340 00 0 11321 LAS =O3 02524 0020 00 0 02350 TRA GC4 02525 0020 00 0 02257 TRA GETCHA 02526 0020 00 0 02350 TRA GC4 02527 0636 00 4 02567 SETBC SCA RE1,4 02530 0535 00 4 07244 LAC INPUT,4 02531 0756 00 6 00000 PCA ,6 02532 0602 00 4 00001 SLW 01,4 02533 -0756 00 7 00000 PCD ,7 02534 0622 00 4 00001 STD 01,4 02535 -0500 00 0 11405 CAL =O200000 02536 0520 00 0 07034 ZET EFLG 02537 0625 00 4 00001 STT 01,4 02540 -0500 00 0 02621 CAL BC2 02541 0602 00 4 00002 SLW 02,4 02542 -0500 00 0 02622 CAL BC2+1 02543 0622 00 4 00003 STD 03,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 21 02544 -0500 00 0 02623 CAL BC2+2 02545 0771 00 0 00022 ARS 18 02546 0621 00 4 00003 STA 03,4 02547 0756 00 5 00000 PCA ,5 02550 0621 00 4 00000 STA 00,4 02551 0621 00 0 07244 STA INPUT 02552 -0756 00 4 00000 PCD ,4 02553 0622 00 5 00000 STD 00,5 02554 -0500 00 5 00000 CAL 00,5 02555 0737 00 5 00000 PAC ,5 02556 3 00000 5 02560 TXH *+2,5,0 02557 0074 00 4 00724 TSX MORMEM,4 02560 0534 00 4 07241 LXA RECLEV,4 02561 1 00001 4 02562 TXI *+1,4,1 02562 -3 00764 4 02566 TXL RE1-1,4,500 02563 1 00012 4 02564 TXI *+1,4,10 02564 -0634 00 4 02562 SXD *-2,4 02565 0020 00 0 01310 TRA TYPE7 02566 0634 00 4 07241 SXA RECLEV,4 02567 -0774 00 4 00000 RE1 AXC **,4 02570 -0500 00 4 00001 CAL 1,4 02571 0737 00 6 00000 PAC ,6 02572 -0737 00 7 00000 PDC ,7 02573 0636 00 6 02621 SCA BC2,6 02574 -0500 00 6 00001 CAL 01,6 02575 0737 00 6 00000 PAC ,6 02576 -0634 00 7 02622 SXD BC2+1,7 02577 1 77777 7 02600 TXI *+1,7,-1 02600 -0634 00 7 02623 SXD BC2+2,7 02601 0774 00 7 00023 AXT 19,7 02602 0600 00 0 07034 STZ EFLG 02603 0020 00 4 00002 TRA 2,4 02604 0520 00 0 07034 GETBC ZET EFLG 02605 0020 00 0 02641 TRA BC4 02606 2 00001 7 02612 TIX BC1,7,1 02607 -0500 00 6 00000 CAL 00,6 02610 0737 00 6 00000 PAC ,6 02611 0774 00 7 00022 AXT 18,7 02612 0522 00 7 07130 BC1 XEC CAL,7 02613 0522 00 7 07152 XEC ARS,7 02614 -0320 00 0 11372 ANA =O177 02615 -0340 00 0 11325 LAS =O12 02616 0020 00 4 00001 TRA 1,4 02617 0020 00 0 02621 TRA BC2 02620 0020 00 4 00001 TRA 1,4 02621 -0774 00 6 00000 BC2 AXC **,6 02622 3 00000 6 02624 TXH *+2,6,** 02623 3 00000 6 02634 TXH BC3,6,** 02624 -0500 00 6 00000 CAL 00,6 02625 0737 00 6 00000 PAC ,6 02626 0636 00 6 02621 SCA BC2,6 02627 -0500 00 6 00001 CAL 01,6 02630 0737 00 6 00000 PAC ,6 02631 0774 00 7 00023 AXT 19,7 02632 -0500 00 0 11325 CAL =O12 02633 0020 00 4 00001 TRA 1,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 22 02634 -0625 00 0 07034 BC3 STL EFLG 02635 -0500 00 6 00000 CAL 00,6 02636 0621 00 0 02621 STA BC2 02637 -0500 00 0 11325 CAL =O12 02640 0020 00 4 00001 TRA 1,4 02641 0600 00 0 07034 BC4 STZ EFLG 02642 0534 00 6 07241 LXA RECLEV,6 02643 1 77777 6 02644 TXI *+1,6,-1 02644 0634 00 6 07241 SXA RECLEV,6 02645 0535 00 6 07244 LAC INPUT,6 02646 0756 00 5 00000 PCA ,5 02647 0621 00 6 00000 STA 00,6 02650 0535 00 5 07244 LAC INPUT,5 02651 -0500 00 6 00000 CAL 00,6 02652 -0737 00 6 00000 PDC ,6 02653 0636 00 6 07244 SCA INPUT,6 02654 -0500 00 6 00003 CAL 03,6 02655 0622 00 0 02622 STD BC2+1 02656 0767 00 0 00022 ALS 18 02657 0622 00 0 02623 STD BC2+2 02660 -0500 00 6 00002 CAL 02,6 02661 0602 00 0 02621 SLW BC2 02662 -0500 00 6 00001 CAL 01,6 02663 -0737 00 7 00000 PDC ,7 02664 0737 00 6 00000 PAC ,6 02665 0625 00 0 07034 STT EFLG 02666 -0500 00 0 11321 CAL =O3 02667 0020 00 4 00001 TRA 1,4 02670 0636 00 4 02733 SETFC SCA FC1,4 02671 0074 00 4 03106 TSX GETFN,4 02672 0636 00 6 02766 SCA GF4+1,6 02673 0636 00 7 02767 SCA GF4+2,7 02674 -0500 00 2 07055 CAL OCT3,2 02675 0602 00 0 07055 SLW OCT3 02676 -0500 00 2 07065 CAL SHFT,2 02677 0621 00 0 02740 STA GETFC+1 02700 0771 00 0 00022 ARS 18 02701 0621 00 0 02760 STA GF2+1 02702 -0500 00 2 07071 CAL RETRN,2 02703 0621 00 0 02762 STA GF3 02704 -0625 00 0 07033 STL VFLG 02705 0074 00 4 07325 TSX OPEN,4 02706 3 00000 0 11450 PAR =HR 02707 3 00000 0 07337 PAR FILNAM 02710 3 00000 0 07340 PAR FILNAM+1 02711 3 00000 0 11442 PAR =O400000000000 02712 3 00000 0 11442 PAR =O400000000000 02713 3 00000 0 01314 PAR TYPE8 02714 3 00000 0 07264 PAR COPY 02715 -0625 00 0 07300 STL FILFLG 02716 0074 00 4 07326 TSX BUFFER,4 02717 3 00000 0 07337 PAR FILNAM 02720 3 00000 0 07340 PAR FILNAM+1 02721 3 00660 0 00014 PAR BUF3,,432 02722 0600 00 0 07240 STZ CPLFLG 02723 3 77775 2 02733 TXH FC1,2,-3 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 23 02724 0074 00 4 07327 TSX RDWAIT,4 02725 3 00000 0 07337 PAR FILNAM 02726 3 00000 0 07340 PAR FILNAM+1 02727 3 00000 0 11316 PAR =0 02730 3 00001 0 07544 PAR BUF2,,1 02731 3 00000 0 02733 PAR FC1 02732 3 00000 0 07264 PAR COPY 02733 -0774 00 4 00000 FC1 AXC **,4 02734 0774 00 6 00001 AXT 1,6 02735 0774 00 7 00001 AXT 1,7 02736 0020 00 4 00001 TRA 1,4 02737 2 00001 7 02757 GETFC TIX GF2,7,1 02740 0774 00 7 00000 AXT **,7 02741 2 00001 6 02754 TIX GF1+1,6,1 02742 0774 00 6 00144 AXT 100,6 02743 0636 00 4 02753 SCA GF1,4 02744 0074 00 4 07327 TSX RDWAIT,4 02745 3 00000 0 07337 PAR FILNAM 02746 3 00000 0 07340 PAR FILNAM+1 02747 3 00000 0 11316 PAR =0 02750 3 00144 0 07544 PAR BUF2,,100 02751 3 00000 0 03003 PAR GF5 02752 3 00000 0 07264 PAR COPY 02753 -0774 00 4 00000 GF1 AXC **,4 02754 0560 00 6 07710 LDQ BUF2+100,6 02755 -0754 00 0 00000 ZAC 02756 0020 00 0 02760 TRA GF2+1 02757 0443 00 0 11314 GF2 DLD SYLBUF+2 02760 -0763 00 0 00000 LGL ** 02761 -0600 00 0 11315 STQ SYLBUF+3 02762 0020 00 0 00000 GF3 TRA ** 02763 0636 00 4 02765 SCA GF4,4 02764 0074 00 4 02772 TSX CLOS,4 02765 -0774 00 4 00000 GF4 AXC **,4 02766 -0774 00 6 00000 AXC **,6 02767 -0774 00 7 00000 AXC **,7 02770 -0500 00 0 11321 CAL =O3 02771 0020 00 4 00001 TRA 1,4 02772 0636 00 4 03001 CLOS SCA CLO1,4 02773 0074 00 4 07324 TSX CLOSE,4 02774 3 00000 0 07337 PAR FILNAM 02775 3 00000 0 07340 PAR FILNAM+1 02776 3 00000 0 03000 PAR *+2 02777 3 00000 0 07264 PAR COPY 03000 0600 00 0 07300 STZ FILFLG 03001 -0774 00 4 00000 CLO1 AXC **,4 03002 0020 00 4 00001 TRA 1,4 03003 0535 00 4 07264 GF5 LAC COPY,4 03004 -0500 00 0 07055 CAL OCT3 03005 0602 00 4 07544 SLW BUF2,4 03006 -0500 00 0 11476 CAL =O777777777777 03007 0602 00 4 07545 SLW BUF2+1,4 03010 0020 00 0 02753 TRA GF1 03011 -0320 00 0 11372 GFGE ANA =O177 03012 0100 00 0 02737 TZE GETFC 03013 -0340 00 0 11372 LAS =O177 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 24 03014 0020 00 0 03016 TRA *+2 03015 0020 00 0 02737 TRA GETFC 03016 -0340 00 0 11326 LAS =O15 03017 0020 00 0 03044 TRA GF8 03020 -0500 00 0 11325 CAL =O12 03021 0020 00 0 03044 TRA GF8 03022 -0320 00 0 11372 GFASCI ANA =O177 03023 0020 00 0 03044 TRA GF8 03024 0737 00 1 00000 GFSIX PAC ,1 03025 3 77701 1 03027 TXH *+2,1,-63 03026 3 77700 1 03050 TXH GF7,1,-64 03027 -0500 60 0 00010 CAL* CNVTBL 03030 0771 00 0 00020 ARS 16 03031 0020 00 0 03040 TRA GF6 03032 -0320 00 0 11372 GFTWLV ANA =O177 03033 0737 00 1 00000 PAC ,1 03034 3 77601 1 03036 TXH *+2,1,-127 03035 3 77600 1 03050 TXH GF7,1,-128 03036 -0500 60 0 00010 CAL* CNVTBL 03037 0771 00 0 00020 ARS 16 03040 -0320 00 0 11372 GF6 ANA =O177 03041 -0340 00 0 11372 LAS =O177 03042 0020 00 0 03043 TRA *+1 03043 0020 00 0 02737 TRA GETFC 03044 -0340 00 0 11321 GF8 LAS =O3 03045 0020 00 4 00001 TRA 1,4 03046 0020 00 0 02763 TRA GF3+1 03047 0020 00 4 00001 TRA 1,4 03050 0774 00 7 00001 GF7 AXT 1,7 03051 -0500 00 6 07710 CAL BUF2+100,6 03052 -0340 00 0 11476 LAS =O777777777777 03053 0020 00 0 03055 TRA *+2 03054 0020 00 0 02763 TRA GF3+1 03055 -0500 00 0 11325 CAL =O12 03056 0020 00 4 00001 TRA 1,4 03057 0636 00 4 03103 GETBN SCA BN7,4 03060 0074 00 4 02257 TSX GETCHA,4 03061 0520 00 0 07033 ZET VFLG 03062 0020 00 0 03103 TRA BN7 03063 -3 77727 1 03103 TXL BN7,1,-41 03064 3 77730 1 03103 TXH BN7,1,-40 03065 0600 00 0 03105 STZ BN6 03066 0074 00 4 02257 BN1 TSX GETCHA,4 03067 0520 00 0 07033 ZET VFLG 03070 0020 00 0 03075 TRA BN2 03071 -3 77726 1 03075 TXL BN2,1,-42 03072 -3 77727 1 03102 TXL BN3,1,-41 03073 -3 77765 1 03075 TXL BN2,1,-11 03074 -3 77766 1 01320 TXL TYPE9,1,-10 03075 -0765 00 0 00007 BN2 LGR 7 03076 -0500 00 0 03105 CAL BN6 03077 -0763 00 0 00007 LGL 7 03100 0602 00 0 03105 SLW BN6 03101 0020 00 0 03066 TRA BN1 03102 -0500 00 0 03105 BN3 CAL BN6 03103 -0774 00 4 00000 BN7 AXC **,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 25 03104 0020 00 4 00001 TRA 1,4 03105 0 00000 0 00000 BN6 PZE 03106 0636 00 4 03175 GETFN SCA FN7,4 03107 0520 00 0 07300 ZET FILFLG 03110 0074 00 4 02772 TSX CLOS,4 03111 0600 00 0 07265 STZ AFLG 03112 0600 00 0 07266 STZ BFLG 03113 0074 00 4 02257 TSX GETCHA,4 03114 0774 00 4 00020 AXT 16,4 03115 -0340 00 4 07055 LAS TYCHA+16,4 03116 0020 00 0 03120 TRA *+2 03117 0020 00 0 03122 TRA *+3 03120 2 00002 4 03115 TIX *-3,4,2 03121 0020 00 0 01320 TRA TYPE9 03122 -0500 00 4 07056 CAL TYCHA+17,4 03123 0737 00 2 00000 PAC ,2 03124 -0500 00 2 07101 FN3 CAL FNASUM,2 03125 0602 00 0 07337 SLW FILNAM 03126 0602 00 0 07340 SLW FILNAM+1 03127 -0340 00 0 11452 LAS =H FAP 03130 0020 00 0 03135 TRA FN4-1 03131 0020 00 0 03133 TRA *+2 03132 0020 00 0 03135 TRA FN4-1 03133 -0625 00 0 07025 STL CAPFLG 03134 0020 00 0 03136 TRA FN4 03135 0600 00 0 07025 STZ CAPFLG 03136 0074 00 4 02257 FN4 TSX GETCHA,4 03137 -3 77737 1 03143 TXL FN5-1,1,-33 03140 -3 77740 1 03136 TXL FN4,1,-32 03141 -3 77765 1 03143 TXL FN5-1,1,-11 03142 -3 77766 1 03175 TXL FN7,1,-10 03143 0441 00 0 11454 LDI =H 03144 -0500 60 0 00010 FN5 CAL* CNVTBL 03145 -0765 00 0 00016 LGR 14 03146 -0046 00 0 00000 PIA 03147 -0763 00 0 00006 LGL 6 03150 0044 00 0 00000 PAI 03151 0074 00 4 02257 TSX GETCHA,4 03152 -3 77737 1 03144 TXL FN5,1,-33 03153 -3 77740 1 03157 TXL FN6,1,-32 03154 -3 77765 1 03144 TXL FN5,1,-11 03155 -3 77766 1 03157 TXL FN6,1,-10 03156 0020 00 0 03144 TRA FN5 03157 -0520 00 0 07266 FN6 NZT BFLG 03160 0020 00 0 03165 TRA *+5 03161 -0500 00 0 07340 CAL FILNAM+1 03162 0602 00 0 07337 SLW FILNAM 03163 0604 00 0 07340 STI FILNAM+1 03164 0020 00 0 03137 TRA FN4+1 03165 0520 00 0 07265 ZET AFLG 03166 0020 00 0 03172 TRA *+4 03167 0604 00 0 07337 STI FILNAM 03170 -0625 00 0 07265 STL AFLG 03171 0020 00 0 03137 TRA FN4+1 03172 0604 00 0 07340 STI FILNAM+1 03173 -0625 00 0 07266 STL BFLG 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 26 03174 0020 00 0 03137 TRA FN4+1 03175 -0774 00 4 00000 FN7 AXC **,4 03176 0020 00 4 00001 TRA 1,4 03177 0636 00 4 03276 INSERT SCA PU5,4 03200 -0500 00 4 00001 CAL 1,4 03201 0621 00 0 03265 STA PU4 03202 0522 00 0 03265 PU1 XEC PU4 03203 0737 00 1 00000 PAC ,1 03204 0520 00 0 07235 ZET INTFLG 03205 0020 00 0 01274 TRA TYPE4 03206 0520 00 0 07033 ZET VFLG 03207 0020 00 0 03215 TRA PU7 03210 -0340 00 0 07254 LAS E 03211 0020 00 0 03213 TRA *+2 03212 0020 00 0 03276 TRA PU5 03213 -3 77743 1 03217 TXL *+4,1,-29 03214 -3 77744 1 03276 TXL PU5,1,-28 03215 -3 77774 1 03217 PU7 TXL *+2,1,-4 03216 -3 77775 1 03276 TXL PU5,1,-3 03217 0535 00 4 07247 LAC ADDR2,4 03220 -0500 00 4 00000 CAL 00,4 03221 -0737 00 2 00000 PDC ,2 03222 0622 00 5 00000 STD 00,5 03223 0756 00 5 00000 PCA ,5 03224 0630 00 5 00000 STP 00,5 03225 0621 00 2 00000 STA 00,2 03226 0737 00 2 00000 PAC ,2 03227 -0756 00 2 00000 PCD ,2 03230 0622 00 4 00000 STD 00,4 03231 -0500 00 5 00000 CAL 00,5 03232 0737 00 5 00000 PAC ,5 03233 0756 00 4 00000 PCA ,4 03234 0621 00 2 00000 STA 00,2 03235 0600 00 2 00003 STZ 03,2 03236 0636 00 2 07024 SCA DOT,2 03237 3 00000 5 03241 TXH *+2,5,0 03240 0074 00 4 00724 TSX MORMEM,4 03241 0756 00 5 00000 PCA ,5 03242 0601 00 2 00001 STO 01,2 03243 0737 00 2 00000 PU2 PAC ,2 03244 0500 00 5 00000 CLA 00,5 03245 0737 00 5 00000 PAC ,5 03246 3 00000 5 03250 TXH *+2,5,0 03247 0074 00 4 00724 TSX MORMEM,4 03250 0600 00 2 00000 STZ 00,2 03251 0600 00 2 00001 STZ 01,2 03252 0600 00 2 00002 STZ 02,2 03253 0600 00 2 00003 STZ 03,2 03254 0774 00 3 00022 AXT 18,3 03255 0756 00 1 00000 PCA ,1 03256 -0340 00 0 11321 PU3 LAS =O3 03257 0020 00 0 03261 TRA *+2 03260 0020 00 0 03273 TRA PU8 03261 0522 00 3 07174 XEC ALS,3 03262 0522 00 3 07216 XEC ORS,3 03263 -3 77765 1 03265 TXL *+2,1,-11 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 27 03264 -3 77766 1 03300 TXL PU6,1,-10 (O12) 03265 0074 00 4 00000 PU4 TSX **,4 03266 0737 00 1 00000 PAC ,1 03267 2 00001 3 03256 TIX PU3,3,1 03270 0756 00 5 00000 PCA ,5 03271 0621 00 2 00000 STA 00,2 03272 0020 00 0 03243 TRA PU2 03273 -0500 00 0 11325 PU8 CAL =O12 03274 0522 00 3 07174 XEC ALS,3 03275 0522 00 3 07216 XEC ORS,3 03276 -0774 00 4 00000 PU5 AXC **,4 03277 0020 00 4 00002 TRA 2,4 03300 0535 00 4 07024 PU6 LAC DOT,4 03301 -0756 00 2 00000 PCD ,2 03302 0622 00 4 00001 STD 01,4 03303 0020 00 0 03202 TRA PU1 03304 0636 00 4 03376 BOPEN SCA BO4,4 03305 0602 00 0 03400 SLW BO5 03306 0535 00 4 07242 LAC BUFER,4 03307 -0500 00 0 07024 CAL DOT 03310 0767 00 0 00022 ALS 18 03311 -0501 00 0 07251 ORA ZER 03312 0602 00 4 00001 SLW 01,4 03313 0535 00 4 07243 LAC BBASE,4 03314 -3 00000 4 03323 BO1 TXL BO2,4,0 03315 0500 00 0 03400 CLA BO5 03316 0402 00 4 00003 SUB 03,4 03317 0100 00 0 03371 TZE BO3 03320 -0500 00 4 00000 CAL 00,4 03321 0737 00 4 00000 PAC ,4 03322 0020 00 0 03314 TRA BO1 03323 0636 00 5 07242 BO2 SCA BUFER,5 03324 -0500 00 5 00000 CAL 00,5 03325 0737 00 5 00000 PAC ,5 03326 3 00000 5 03330 TXH *+2,5,0 03327 0074 00 4 00724 TSX MORMEM,4 03330 0636 00 5 07251 SCA ZER,5 03331 -0500 00 5 00000 CAL 00,5 03332 0737 00 5 00000 PAC ,5 03333 3 00000 5 03335 TXH *+2,5,0 03334 0074 00 4 00724 TSX MORMEM,4 03335 0535 00 4 07242 LAC BUFER,4 03336 0600 00 4 00001 STZ 01,4 03337 0600 00 4 00002 STZ 02,4 03340 -0500 00 0 03400 CAL BO5 03341 0602 00 4 00003 SLW 03,4 03342 -0500 00 0 07243 CAL BBASE 03343 0602 00 4 00000 SLW 00,4 03344 0636 00 4 07243 SCA BBASE,4 03345 0535 00 4 07251 LAC ZER,4 03346 0636 00 4 07024 SCA DOT,4 03347 0756 00 4 00000 PCA ,4 03350 -0760 00 0 00003 SSM 03351 0601 00 4 00000 STO 00,4 03352 -0756 00 4 00000 PCD ,4 03353 0622 00 4 00000 STD 00,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 28 03354 0756 00 5 00000 PCA ,5 03355 0621 00 4 00001 STA 01,4 03356 -0756 00 5 00000 PCD ,5 03357 0622 00 4 00001 STD 01,4 03360 -0737 00 1 00000 PDC ,1 03361 -0500 00 5 00000 CAL 00,5 03362 0737 00 5 00000 PAC ,5 03363 3 00000 5 03365 TXH *+2,5,0 03364 0074 00 4 00724 TSX MORMEM,4 03365 0600 00 1 00000 STZ 00,1 03366 -0500 00 0 11424 CAL =O024000000000 03367 0602 00 1 00001 SLW 01,1 03370 0020 00 0 03376 TRA BO4 03371 -0500 00 4 00001 BO3 CAL 01,4 03372 0621 00 0 07251 STA ZER 03373 0771 00 0 00022 ARS 18 03374 0621 00 0 07024 STA DOT 03375 0636 00 4 07242 SCA BUFER,4 03376 -0774 00 4 00000 BO4 AXC **,4 03377 0020 00 4 00001 TRA 1,4 03400 0 00000 0 00000 BO5 PZE 03401 -0500 00 0 07024 SETDD CAL DOT 03402 0602 00 0 07246 SLW ADDR1 03403 0602 00 0 07247 SLW ADDR2 03404 -0625 00 0 07265 STL AFLG 03405 0020 00 4 00001 TRA 1,4 03406 0535 00 1 07251 SETFL LAC ZER,1 03407 -0500 00 1 00000 CAL 00,1 03410 -0737 00 1 00000 PDC ,1 03411 0636 00 1 07247 SCA ADDR2,1 03412 0621 00 0 07246 STA ADDR1 03413 -0625 00 0 07265 STL AFLG 03414 0020 00 4 00001 TRA 1,4 03415 0535 00 1 07246 CKWRAP LAC ADDR1,1 03416 0535 00 2 07247 LAC ADDR2,2 03417 0500 00 1 00000 CK1 CLA 00,1 03420 -0120 00 0 01304 TMI TYPE6 03421 0737 00 1 00000 PAC ,1 03422 0402 00 2 00000 SUB 00,2 03423 -0100 00 0 03417 TNZ CK1 03424 0020 00 4 00001 TRA 1,4 03425 0636 00 4 03463 DELETE SCA DEL3,4 03426 -0520 00 0 07265 NZT AFLG 03427 0074 00 4 03401 TSX SETDD,4 03430 0074 00 4 03415 TSX CKWRAP,4 03431 0535 00 4 07246 LAC ADDR1,4 03432 -0500 00 4 00000 CAL 00,4 03433 -0737 00 1 00000 PDC ,1 03434 0535 00 2 07247 LAC ADDR2,2 03435 -0500 00 2 00000 CAL 00,2 03436 0737 00 2 00000 PAC ,2 03437 0621 00 1 00000 STA 00,1 03440 -0756 00 1 00000 PCD ,1 03441 0622 00 2 00000 STD 00,2 03442 0636 00 2 07024 SCA DOT,2 03443 0535 00 1 07246 LAC ADDR1,1 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 29 03444 -0500 00 1 00000 DEL1 CAL 00,1 03445 0737 00 2 00000 PAC ,2 03446 -0500 00 1 00001 CAL 01,1 03447 0621 00 1 00000 STA 00,1 03450 -0737 00 1 00000 PDC ,1 03451 0756 00 2 00000 PCA ,2 03452 0340 00 0 07024 CAS DOT 03453 0020 00 0 03455 TRA *+2 03454 0020 00 0 03460 TRA DEL2 03455 0621 00 1 00000 STA 00,1 03456 0737 00 1 00000 PAC ,1 03457 0020 00 0 03444 TRA DEL1 03460 0756 00 5 00000 DEL2 PCA ,5 03461 0621 00 1 00000 STA 00,1 03462 0535 00 5 07246 LAC ADDR1,5 03463 -0774 00 4 00000 DEL3 AXC **,4 03464 0020 00 4 00001 TRA 1,4 03465 0520 00 0 07265 COP1 ZET AFLG 03466 0020 00 0 03477 TRA COP2 03467 0074 00 4 02257 TSX GETCHA,4 03470 -0340 00 0 11325 LAS =O12 03471 0020 00 0 03473 TRA *+2 03472 0020 00 0 03477 TRA COP2 03473 -0340 00 0 11340 LAS =O40 03474 0020 00 2 00001 TRA 1,2 03475 -0500 00 0 11373 CAL =O200 03476 0020 00 2 00001 TRA 1,2 03477 -0625 00 0 07265 COP2 STL AFLG 03500 -0500 00 0 11373 CAL =O200 03501 0020 00 2 00001 TRA 1,2 03502 0636 00 4 03601 PRINT SCA PR6,4 03503 -0500 00 4 00001 CAL 1,4 03504 0621 00 0 03513 STA PR7 03505 -0774 00 3 00000 AXC 00,3 03506 0774 00 4 00030 AXT 24,4 03507 0634 00 4 03545 SXA PR3,4 03510 0600 00 0 07344 STZ BUF1 03511 -0625 00 0 07236 STL RFLG 03512 0774 00 2 00000 AXT 00,2 03513 0074 00 4 00000 PR7 TSX **,4 03514 -0340 00 0 11321 LAS =O3 03515 0020 00 0 03517 TRA *+2 03516 0020 00 0 03565 TRA PR9 03517 0602 00 2 11275 SLW BUF7+299,2 03520 3 00454 2 01256 TXH TYPE0,2,300 03521 -0340 00 0 11325 LAS =O12 03522 1 00001 2 03513 TXI PR7,2,1 03523 1 00001 2 03525 TXI *+2,2,1 03524 1 00001 2 03513 TXI PR7,2,1 03525 0634 00 2 02255 SXA SIZ1,2 03526 0074 00 4 00005 TSX INESC,4 03527 3 00000 0 11275 PAR BUF7+299 03530 3 00000 0 02255 PAR SIZ1 03531 3 00000 0 11275 PAR BUF7+299 03532 3 00000 0 02256 PAR SIZ2 03533 3 00000 0 11377 PAR =300 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 30 03534 0774 00 2 00000 AXT 00,2 03535 -0500 00 2 11275 PR2 CAL BUF7+299,2 03536 0737 00 1 00000 PAC ,1 03537 -0500 60 0 00010 CAL* CNVTBL 03540 -0320 00 0 11372 ANA =O177 03541 -0340 00 0 11372 LAS =O177 03542 1 00001 2 03545 TXI *+3,2,1 03543 1 00001 2 03535 TXI PR2,2,1 03544 1 00001 2 03545 TXI *+1,2,1 03545 0767 00 0 00000 PR3 ALS ** 03546 -0602 00 3 07344 ORS BUF1,3 03547 0534 00 4 03545 LXA PR3,4 03550 1 77764 4 03551 TXI *+1,4,-12 03551 -3 77754 4 03561 TXL PR5,4,-20 03552 1 77777 3 03553 TXI *+1,3,-1 03553 3 77747 3 03557 TXH PR4,3,-25 03554 0074 00 4 07333 TSX WRFLXA,4 03555 0 00031 0 07344 PZE BUF1,,25 03556 -0774 00 3 00000 AXC 00,3 03557 0600 00 3 07344 PR4 STZ BUF1,3 03560 0774 00 4 00030 AXT 24,4 03561 0634 00 4 03545 PR5 SXA PR3,4 03562 -3 77765 1 03535 TXL PR2,1,-11 03563 3 77766 1 03535 TXH PR2,1,-10 03564 0020 00 0 03512 TRA PR7-1 03565 0535 00 4 03545 PR9 LAC PR3,4 03566 -0500 00 0 11350 CAL =O57 03567 0767 00 4 00000 ALS 00,4 03570 -0602 00 3 07344 ORS BUF1,3 03571 -0340 00 0 11350 LAS =O57 03572 1 00014 4 03566 TXI PR9+1,4,12 03573 0020 00 0 03575 TRA *+2 03574 1 00014 4 03566 TXI PR9+1,4,12 03575 1 77777 3 03576 TXI *+1,3,-1 03576 -0636 00 3 03600 SCD *+2,3 03577 0074 00 4 07333 TSX WRFLXA,4 03600 0 00000 0 07344 PZE BUF1,,** 03601 -0774 00 4 00000 PR6 AXC **,4 03602 0600 00 0 07236 STZ RFLG 03603 0020 00 4 00002 TRA 2,4 03604 0636 00 4 03752 SUB SCA SUB4,4 03605 0535 00 4 02621 LAC BC2,4 03606 -0500 00 4 00000 CAL 00,4 03607 -0737 00 4 00000 PDC ,4 03610 -0500 00 4 00000 CAL 00,4 03611 -0737 00 4 00000 PDC ,4 03612 0636 00 4 03705 SCA S5,4 03613 0600 00 0 07544 SUBP1 STZ BUF2 03614 0600 00 0 07545 STZ BUF2+1 03615 0535 00 4 07237 LAC JFLG,4 03616 -3 00000 4 03752 TXL SUB4,4,0 03617 -3 00000 4 03645 S3 TXL S4,4,0 03620 -0500 00 4 07742 CAL BUF5-2,4 03621 -0320 00 0 11403 ANA =O77777 03622 -0340 00 0 07545 LAS BUF2+1 03623 0020 00 0 03626 TRA S6 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 31 03624 0020 00 0 03635 TRA S7 03625 1 00002 4 03617 TXI S3,4,2 03626 0602 00 0 07545 S6 SLW BUF2+1 03627 0443 00 4 07742 DLD BUF5-2,4 03630 0771 00 0 00022 ARS 18 03631 0621 00 0 07544 STA BUF2 03632 0636 00 4 07546 SCA BUF2+2,4 03633 -0600 00 0 07547 STQ BUF2+3 03634 1 00002 4 03617 TXI S3,4,2 03635 -0500 00 4 07742 S7 CAL BUF5-2,4 03636 0771 00 0 00022 ARS 18 03637 -0340 00 0 07544 LAS BUF2 03640 1 00002 4 03617 TXI S3,4,2 03641 0020 00 0 01320 TRA TYPE9 03642 -0500 00 4 07742 CAL BUF5-2,4 03643 -0320 00 0 11403 ANA =O77777 03644 0020 00 0 03626 TRA S6 03645 0535 00 4 07237 S4 LAC JFLG,4 03646 1 00002 4 03647 TXI *+1,4,2 03647 0636 00 4 07237 SCA JFLG,4 03650 0443 00 4 07744 DLD BUF5,4 03651 0535 00 4 07546 LAC BUF2+2,4 03652 -0603 00 4 07742 DST BUF5-2,4 03653 -0520 00 0 07032 NZT SFLG 03654 0020 00 0 03705 TRA S5 03655 0535 00 4 03705 LAC S5,4 03656 -0500 00 4 00000 CAL 00,4 03657 0737 00 4 00000 PAC ,4 03660 0636 00 4 03663 SCA S1,4 03661 -0636 00 4 03663 SCD S1,4 03662 0074 00 4 02527 TSX SETBC,4 03663 0 00000 0 00000 S1 PZE **,,** 03664 0600 00 0 07546 STZ BUF2+2 03665 -0774 00 4 03756 AXC S9,4 03666 0636 00 4 03755 SCA S8+1,4 03667 0074 00 4 03502 TSX PRINT,4 03670 0 00000 0 03754 PZE S8 03671 -0625 00 0 07236 STL RFLG 03672 0074 00 4 07322 TSX RDFLXA,4 03673 0 00001 0 07344 PZE BUF1,,1 03674 0600 00 0 07236 STZ RFLG 03675 -0500 00 0 07344 CAL BUF1 03676 -0340 00 0 11422 LAS =O6200550060 03677 0020 00 0 03701 TRA *+2 03700 0020 00 0 03705 TRA S5 03701 -0340 00 0 11423 LAS =O16200550060 03702 0020 00 0 03613 TRA SUBP1 03703 0020 00 0 03705 TRA S5 03704 0020 00 0 03613 TRA SUBP1 03705 -0774 00 4 00000 S5 AXC **,4 03706 -0500 00 4 00000 CAL 00,4 03707 0737 00 4 00000 PAC ,4 03710 0636 00 4 03717 SCA S13,4 03711 -0636 00 4 03717 SCD S13,4 03712 0636 00 4 07246 SCA ADDR1,4 03713 0636 00 4 07247 SCA ADDR2,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 32 03714 -0774 00 4 04011 AXC S18,4 03715 0636 00 4 04010 SCA S17+1,4 03716 0074 00 4 02527 TSX SETBC,4 03717 0 00000 0 00000 S13 PZE **,,** 03720 0600 00 0 07546 STZ BUF2+2 03721 -0625 00 0 07033 STL VFLG 03722 0074 00 4 03177 TSX INSERT,4 03723 0 00000 0 04007 PZE S17 03724 0600 00 0 07033 STZ VFLG 03725 0074 00 4 03425 TSX DELETE,4 03726 0074 00 4 04153 TSX FREIT,4 03727 0535 00 4 07237 LAC JFLG,4 03730 -3 00000 4 03613 S16 TXL SUBP1,4,0 03731 -0500 00 4 07742 CAL BUF5-2,4 03732 -0320 00 0 11403 ANA =O77777 03733 -0340 00 0 07544 LAS BUF2 03734 0020 00 0 03737 TRA *+3 03735 1 00002 4 03730 TXI S16,4,2 03736 1 00002 4 03730 TXI S16,4,2 03737 -0500 00 4 07743 CAL BUF5-1,4 03740 0602 00 0 07547 SLW BUF2+3 03741 0636 00 4 03747 SCA SUBP2,4 03742 0074 00 4 04153 TSX FREIT,4 03743 0535 00 4 07237 LAC JFLG,4 03744 1 00002 4 03745 TXI *+1,4,2 03745 0636 00 4 07237 SCA JFLG,4 03746 0443 00 4 07744 DLD BUF5,4 03747 -0774 00 4 00000 SUBP2 AXC **,4 03750 -0603 00 4 07742 DST BUF5-2,4 03751 1 00002 4 03730 TXI S16,4,2 03752 -0774 00 4 00000 SUB4 AXC **,4 03753 0020 00 4 00001 TRA 1,4 03754 0636 00 4 04005 S8 SCA S12,4 03755 0020 00 0 00000 TRA ** 03756 0500 00 0 07546 S9 CLA BUF2+2 03757 0400 00 0 11317 ADD =1 03760 0601 00 0 07546 STO BUF2+2 03761 0340 00 0 07544 CAS BUF2 03762 0020 00 0 01320 TRA TYPE9 03763 0020 00 0 03765 TRA *+2 03764 0020 00 0 04004 TRA S11 03765 -0774 00 4 03771 AXC S10,4 03766 0636 00 4 03755 SCA S8+1,4 03767 -0500 00 0 11327 CAL =O16 03770 0020 00 0 04005 TRA S12 03771 0500 00 0 07546 S10 CLA BUF2+2 03772 0340 00 0 07545 CAS BUF2+1 03773 0020 00 0 01320 TRA TYPE9 03774 0020 00 0 04000 TRA *+4 03775 0400 00 0 11317 ADD =1 03776 0601 00 0 07546 STO BUF2+2 03777 0020 00 0 04004 TRA S11 04000 -0774 00 4 04004 AXC S11,4 04001 0636 00 4 03755 SCA S8+1,4 04002 -0500 00 0 11330 CAL =O17 04003 0020 00 0 04005 TRA S12 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 33 04004 0074 00 4 02604 S11 TSX GETBC,4 04005 -0774 00 4 00000 S12 AXC **,4 04006 0020 00 4 00001 TRA 1,4 04007 0636 00 4 04104 S17 SCA S21,4 04010 0020 00 0 00000 TRA ** 04011 0500 00 0 07546 S18 CLA BUF2+2 04012 0400 00 0 11317 ADD =1 04013 0601 00 0 07546 STO BUF2+2 04014 0340 00 0 07544 CAS BUF2 04015 0020 00 0 01320 TRA TYPE9 04016 0020 00 0 04020 TRA *+2 04017 0020 00 0 04103 TRA S20 04020 0634 00 0 04053 SXA S19,0 04021 -0774 00 4 04053 AXC S19,4 04022 0636 00 4 04010 SCA S17+1,4 04023 0636 00 0 04032 SCA S23,0 04024 0340 00 0 07545 S22 CAS BUF2+1 04025 0020 00 0 01320 TRA TYPE9 04026 0020 00 0 04040 TRA S24 04027 0400 00 0 11317 ADD =1 04030 0601 00 0 07546 STO BUF2+2 04031 0074 00 4 02604 TSX GETBC,4 04032 -0774 00 4 00000 S23 AXC **,4 04033 0602 00 4 07344 SLW BUF1,4 04034 1 77777 4 04035 TXI *+1,4,-1 04035 0636 00 4 04032 SCA S23,4 04036 0500 00 0 07546 CLA BUF2+2 04037 0020 00 0 04024 TRA S22 04040 0535 00 4 04032 S24 LAC S23,4 04041 -0500 00 0 11321 CAL =3 04042 0602 00 4 07344 SLW BUF1,4 04043 0636 00 0 04032 SCA S23,0 04044 -0520 00 0 07272 S28 NZT EXFLG 04045 0020 00 0 04053 TRA S19 04046 0535 00 4 04032 LAC S23,4 04047 -0500 00 4 07344 CAL BUF1,4 04050 -0340 00 0 11321 LAS =3 04051 0020 00 0 04053 TRA S19 04052 0020 00 0 04101 TRA S20-2 04053 0774 00 4 00000 S19 AXT **,4 04054 -0500 00 4 10107 CAL BUF5+99,4 04055 1 00001 4 04056 TXI *+1,4,1 04056 0634 00 4 04053 SXA S19,4 04057 -0340 00 0 11373 LAS =O200 04060 0020 00 0 04063 TRA *+3 04061 0020 00 0 04106 TRA S25 04062 0020 00 0 04104 TRA S21 04063 -0340 00 0 11374 LAS =O201 04064 0020 00 0 04066 TRA *+2 04065 0020 00 0 04126 TRA S27 04066 -0340 00 0 11403 LAS =O77777 04067 0020 00 0 04104 TRA S21 04070 0020 00 0 04072 TRA *+2 04071 0020 00 0 04131 TRA S32 04072 -0520 00 0 07272 NZT EXFLG 04073 0020 00 0 04101 TRA S20-2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 34 04074 0535 00 4 04032 LAC S23,4 04075 1 77777 4 04076 TXI *+1,4,-1 04076 0636 00 4 04032 SCA S23,4 04077 0636 00 0 04053 SCA S19,0 04100 0020 00 0 04044 TRA S28 04101 -0774 00 4 04103 AXC S20,4 04102 0636 00 4 04010 SCA S17+1,4 04103 0074 00 4 02604 S20 TSX GETBC,4 04104 -0774 00 4 00000 S21 AXC **,4 04105 0020 00 4 00001 TRA 1,4 04106 0636 00 0 04116 S25 SCA S26,0 04107 -0500 00 0 07545 CAL BUF2+1 04110 0402 00 0 07544 SUB BUF2 04111 0737 00 4 00000 S31 PAC ,4 04112 1 77777 4 04113 TXI *+1,4,-1 04113 -0634 00 4 04122 SXD S30,4 04114 -0774 00 4 04116 AXC S26,4 04115 0636 00 4 04010 SCA S17+1,4 04116 -0774 00 4 00000 S26 AXC **,4 04117 -0500 00 4 07344 CAL BUF1,4 04120 1 77777 4 04121 TXI *+1,4,-1 04121 0636 00 4 04116 SCA S26,4 04122 3 00000 4 04104 S30 TXH S21,4,** 04123 -0774 00 4 04053 AXC S19,4 04124 0636 00 4 04010 SCA S17+1,4 04125 0020 00 0 04053 TRA S19 04126 0535 00 4 04032 S27 LAC S23,4 04127 -0500 00 4 07344 CAL BUF1,4 04130 0020 00 0 04104 TRA S21 04131 0737 00 4 00000 S32 PAC ,4 04132 -0500 00 4 11076 CAL SCHARS-130,4 04133 0602 00 0 07550 SLW BUF2+4 04134 -0535 00 4 07547 LDC BUF2+3,4 04135 -3 00000 4 04053 S34 TXL S19,4,0 04136 -0500 00 4 00001 CAL 1,4 04137 -0340 00 0 07550 LAS BUF2+4 04140 0020 00 0 04142 TRA *+2 04141 0020 00 0 04145 TRA S33 04142 -0500 00 4 00000 CAL 0,4 04143 0737 00 4 00000 PAC ,4 04144 0020 00 0 04135 TRA S34 04145 -0500 00 4 00002 S33 CAL 2,4 04146 0402 00 0 07544 SUB BUF2 04147 0621 00 0 04116 STA S26 04150 -0500 00 4 00003 CAL 3,4 04151 0402 00 0 07544 SUB BUF2 04152 0020 00 0 04111 TRA S31 04153 0636 00 4 04165 FREIT SCA FRE1,4 04154 -0535 00 4 07547 LDC BUF2+3,4 04155 -3 00000 4 04165 TXL FRE1,4,0 04156 -0500 00 4 00000 FRE0 CAL 0,4 04157 0100 00 0 04162 TZE *+3 04160 0737 00 4 00000 PAC ,4 04161 0020 00 0 04156 TRA FRE0 04162 0756 00 5 00000 PCA ,5 04163 0602 00 4 00000 SLW 0,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 35 04164 -0535 00 5 07547 LDC BUF2+3,5 04165 -0774 00 4 00000 FRE1 AXC **,4 04166 0020 00 4 00001 TRA 1,4 04167 0636 00 4 04216 WRITE1 SCA WRX,4 04170 0535 00 4 07261 LAC GOOD,4 04171 -0636 00 4 04176 SCD *+5,4 04172 0074 00 4 07330 TSX WRWAIT,4 04173 3 00000 0 07337 PAR FILNAM 04174 3 00000 0 07340 PAR FILNAM+1 04175 3 00000 0 11316 PAR =0 04176 3 00000 0 07344 PAR BUF1,,** 04177 3 00000 0 11442 PAR =-0 04200 3 00000 0 11442 PAR =-0 04201 0535 00 4 04216 LAC WRX,4 04202 0020 00 4 00001 TRA 1,4 04203 0636 00 4 04216 WRITE SCA WRX,4 04204 -0500 00 4 00001 CAL 1,4 04205 0737 00 4 00000 PAC ,4 04206 -0636 00 4 04213 SCD *+5,4 04207 0074 00 4 07330 TSX WRWAIT,4 04210 3 00000 0 07337 PAR FILNAM 04211 3 00000 0 07340 PAR FILNAM+1 04212 3 00000 0 11316 PAR =0 04213 3 00000 0 07544 PAR BUF2,,** 04214 3 00000 0 11442 PAR =-0 04215 3 00000 0 11442 PAR =-0 04216 -0774 00 4 00000 WRX AXC **,4 04217 0020 00 4 00002 TRA 2,4 04220 -3 77774 1 04222 WRSXTW TXL *+2,1,-4 04221 -3 77775 1 04304 TXL WR12,1,-3 04222 -3 77765 1 04224 TXL *+2,1,-11 04223 -3 77766 1 04252 TXL WR7,1,-10 04224 -0500 60 0 00010 CAL* CNVTBL 04225 0771 00 0 00000 WR13 ARS ** 04226 -0320 00 0 11375 ANA =O377 04227 -0340 00 0 11372 LAS =O177 04230 0020 00 0 04233 TRA WR4-1 04231 0020 00 0 05661 TRA WR2 04232 0020 00 0 04234 TRA WR4 04233 0322 00 0 11400 ERA =O600 04234 2 00001 3 04245 WR4 TIX WR6,3,1 04235 1 77777 2 04236 TXI *+1,2,-1 04236 3 77634 2 04244 TXH WR5,2,-100 04237 0737 00 1 00000 PAC ,1 04240 0074 00 4 04203 TSX WRITE,4 04241 0 00000 0 00144 PZE 100 04242 0756 00 1 00000 PCA ,1 04243 -0774 00 2 00000 AXC 00,2 04244 0774 00 3 00000 WR5 AXT **,3 04245 -0765 00 0 00000 WR6 LGR ** 04246 -0500 00 2 07544 CAL BUF2,2 04247 -0763 00 0 00000 LGL ** 04250 0602 00 2 07544 SLW BUF2,2 04251 0020 00 0 05661 TRA WR2 04252 0560 00 0 07055 WR7 LDQ OCT3 04253 -0500 00 2 07544 CAL BUF2,2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 36 04254 0020 00 0 04256 TRA *+2 04255 0522 00 0 04247 XEC WR6+2 04256 2 00001 3 04255 TIX *-1,3,1 04257 0602 00 2 07544 SLW BUF2,2 04260 0756 00 2 00000 PCA ,2 04261 -0501 00 0 11475 ORA =O777777000000 04262 0602 00 0 07544 SLW BUF2 04263 -0320 00 0 11403 ANA =O77777 04264 0400 00 0 11317 ADD =1 04265 0361 00 0 07261 ACL GOOD 04266 -0340 00 0 11363 LAS =100 04267 0020 00 0 04300 TRA WR8 04270 0020 00 0 04271 TRA *+1 04271 0602 00 0 07261 WR11 SLW GOOD 04272 0737 00 1 00000 PAC ,1 04273 -0500 00 2 07544 CAL BUF2,2 04274 0602 00 1 07343 SLW BUF1-1,1 04275 -3 00000 2 05661 TXL WR2,2,0 04276 1 00001 2 04277 TXI *+1,2,1 04277 1 00001 1 04273 TXI *-4,1,1 04300 0074 00 4 04167 WR8 TSX WRITE1,4 04301 0756 00 2 00000 PCA ,2 04302 0400 00 0 11317 ADD =1 04303 0020 00 0 04271 TRA WR11 04304 0074 00 4 04167 WR12 TSX WRITE1,4 04305 0020 00 0 04323 TRA WR10 04306 -3 77601 1 05661 WRGE TXL WR2,1,-127 04307 -3 77774 1 04234 WRASCI TXL WR4,1,-4 04310 3 77775 1 04234 TXH WR4,1,-3 04311 0560 00 0 07055 LDQ OCT3 04312 -0500 00 2 07544 CAL BUF2,2 04313 0020 00 0 04315 TRA *+2 04314 0522 00 0 04247 XEC WR6+2 04315 2 00001 3 04314 TIX *-1,3,1 04316 0602 00 2 07544 SLW BUF2,2 04317 1 77777 2 04320 TXI *+1,2,-1 04320 0636 00 2 04322 SCA WR9,2 04321 0074 00 4 04203 TSX WRITE,4 04322 0 00000 0 00000 WR9 PZE ** 04323 0074 00 4 02772 WR10 TSX CLOS,4 04324 0020 00 0 00765 TRA ADDRES 04325 CNVBD DIVIDE 10,97 04330 DIVIDE 10,98 04333 DIVIDE 10,99 04336 -0600 00 0 07510 STQ BUF1+100 04337 0020 00 1 00001 TRA 1,1 04340 0636 00 4 04363 LENGTH SCA LEN1,4 04341 0774 00 4 00000 AXT 0,4 04342 0500 00 1 00000 CEQ1 CLA 00,1 04343 -0120 00 0 04346 TMI CEQ2 04344 -0737 00 1 00000 PDC ,1 04345 1 00001 4 04342 TXI CEQ1,4,1 04346 0754 00 4 00000 CEQ2 PXA ,4 04347 0131 00 0 00000 XCA 04350 0074 00 1 04325 TSX CNVBD,1 04351 -0500 00 0 11366 CAL =O160 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 37 04352 0602 00 0 07511 SLW BUF1+101 BLANK 04353 -0500 00 0 11360 CAL =O132 04354 0602 00 0 07504 SLW BUF1+96 CR 04355 -0500 00 0 11357 CAL =O123 04356 0602 00 0 07503 SLW BUF1+95 EOF 04357 -0774 00 4 00007 AXC 7,4 04360 0636 00 4 06315 SCA CCL3,4 04361 0074 00 4 03502 TSX PRINT,4 04362 0 00000 0 06315 PZE CCL3 04363 -0774 00 4 00000 LEN1 AXC **,4 04364 0020 00 4 00001 TRA 1,4 04365 0636 00 4 04376 BORCR SCA BOR1,4 04366 0074 00 4 02257 TSX GETCHA,4 04367 -0340 00 0 11340 LAS =O40 04370 0020 00 0 01320 TRA TYPE9 04371 0020 00 0 04376 TRA BOR1 04372 -0340 00 0 11325 LAS =O12 04373 0020 00 0 01320 TRA TYPE9 04374 0020 00 0 04376 TRA BOR1 04375 0020 00 0 01320 TRA TYPE9 04376 -0774 00 4 00000 BOR1 AXC **,4 04377 0020 00 4 00001 TRA 1,4 INSERT 2QED 04400 -0500 60 0 00010 COMAND CAL* CNVTBL 04401 0771 00 0 00033 ARS 27 04402 -0320 00 0 11337 ANA =O37 04403 0737 00 4 00000 PAC ,4 04404 0020 00 4 04405 TRA *+1,4 04405 0020 00 0 04441 TRA CUNKN 04406 0020 00 0 04442 TRA CAPEND 04407 0020 00 0 04453 TRA CBUFER 04410 0020 00 0 04460 TRA CCHANG 04411 0020 00 0 04467 TRA CDELET 04412 0020 00 0 06470 TRA CRNCOM 04413 0020 00 0 04615 TRA CUPDAT 04414 0020 00 0 04600 TRA CINSRT 04415 0020 00 0 04761 TRA CMOVE 04416 0020 00 0 05220 TRA CPRINT 04417 0020 00 0 05370 TRA CREAD 04420 0020 00 0 05412 TRA CSUBST 04421 0020 00 0 05577 TRA CVERIF 04422 0020 00 0 05601 TRA CWRITE 04423 0020 00 0 06113 TRA CNLCR 04424 0020 00 0 06126 TRA CBLANK 04425 0020 00 0 06130 TRA CQUIT 04426 0020 00 0 06325 TRA CEQALS 04427 0020 00 0 06347 TRA CDBUFR 04430 0020 00 0 05030 TRA COPTON 04431 0020 00 0 04611 TRA CLIST 04432 0020 00 0 06710 TRA CSORT 04433 0020 00 0 04471 TRA CSTRAP 04434 0020 00 0 06703 TRA CCOMNT 04435 0020 00 0 04504 TRA CCANON 04436 0020 00 0 05664 TRA CAUDIT 04437 0020 00 0 06255 TRA CCOLN 04440 0020 00 0 06146 TRA CGLOB 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 38 04441 0020 00 0 01264 CUNKN TRA TYPE2 04442 -0520 00 0 07265 CAPEND NZT AFLG 04443 0074 00 4 03406 TSX SETFL,4 04444 0074 00 4 04365 TSX BORCR,4 04445 0535 00 4 07247 LAC ADDR2,4 04446 -0500 00 4 00000 CAL 00,4 04447 0621 00 0 07247 STA ADDR2 04450 0074 00 4 03177 TSX INSERT,4 04451 0 00000 0 02257 PZE GETCHA 04452 0020 00 0 00765 TRA ADDRES 04453 0520 00 0 07265 CBUFER ZET AFLG 04454 0020 00 0 01264 TRA TYPE2 04455 0074 00 4 03057 TSX GETBN,4 04456 0074 00 4 03304 TSX BOPEN,4 04457 0020 00 0 00765 TRA ADDRES 04460 0074 00 4 04365 CCHANG TSX BORCR,4 04461 0074 00 4 03425 TSX DELETE,4 04462 -0500 00 0 07024 CAL DOT 04463 0602 00 0 07247 SLW ADDR2 04464 0074 00 4 03177 TSX INSERT,4 04465 0 00000 0 02257 PZE GETCHA 04466 0020 00 0 00765 TRA ADDRES 04467 0074 00 4 03425 CDELET TSX DELETE,4 04470 0020 00 0 00765 TRA ADDRES 04471 0520 00 0 07265 CSTRAP ZET AFLG 04472 0020 00 0 01264 TRA TYPE2 04473 0074 00 4 02257 TSX GETCHA,4 04474 0737 00 2 00000 PAC ,2 04475 0074 00 4 03057 TSX GETBN,4 04476 -3 77765 1 04500 TXL *+2,1,-11 04477 -3 77766 1 01320 TXL TYPE9,1,-10 04500 -3 77706 2 01320 TXL TYPE9,2,-58 04501 3 77717 2 01320 TXH TYPE9,2,-49 04502 0602 00 2 01243 SLW TRAP1-49,2 04503 0020 00 0 00765 TRA ADDRES 04504 0074 00 4 02257 CCANON TSX GETCHA,4 04505 0074 00 4 04510 TSX CAN02,4 04506 0020 00 0 00765 TRA ADDRES 04507 -0774 00 1 00000 CAN01 AXC **,1 04510 0636 00 1 04546 CAN02 SCA CCAN9,1 04511 0636 00 4 04535 SCA CCAN8,4 04512 -0520 00 0 07265 NZT AFLG 04513 0074 00 4 03401 TSX SETDD,4 04514 0074 00 4 03415 TSX CKWRAP,4 04515 0535 00 4 07246 LAC ADDR1,4 04516 0636 00 4 04522 SCA CCAN1,4 04517 0535 00 4 07247 LAC ADDR2,4 04520 -0636 00 4 04522 SCD CCAN1,4 04521 0074 00 4 02527 TSX SETBC,4 04522 0 00000 0 00000 CCAN1 PZE **,,** 04523 0774 00 2 00000 AXT 00,2 04524 0074 00 4 02604 TSX GETBC,4 04525 -0340 00 0 11321 LAS =O3 04526 0020 00 0 04540 TRA CCAN2 04527 0020 00 0 04531 TRA *+2 04530 0020 00 0 04540 TRA CCAN2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 39 04531 0535 00 4 07024 LAC DOT,4 04532 -0500 00 4 00000 CAL 00,4 04533 -0737 00 4 00000 PDC ,4 04534 0636 00 4 07024 SCA DOT,4 04535 -0774 00 4 00000 CCAN8 AXC **,4 04536 0020 00 4 00001 TRA 1,4 04537 0074 00 4 02604 TSX GETBC,4 04540 0602 00 2 11275 CCAN2 SLW BUF7+299,2 04541 -0340 00 0 11325 LAS =O12 04542 1 00001 2 04537 TXI CCAN2-1,2,1 04543 1 00001 2 04545 TXI *+2,2,1 04544 1 00001 2 04537 TXI CCAN2-1,2,1 04545 0634 00 2 02255 SXA SIZ1,2 04546 -0774 00 1 00000 CCAN9 AXC **,1 04547 0756 00 1 00000 PCA ,1 04550 0074 00 4 00002 TSX ZCMD,4 04551 0 00000 0 11275 PZE BUF7+299 04552 0 00000 0 02255 PZE SIZ1 04553 0 00000 0 11377 PZE =300 04554 0534 00 2 02255 CCAN4 LXA SIZ1,2 04555 -0500 00 0 11321 CAL =O3 04556 0602 00 2 11275 SLW BUF7+299,2 04557 0636 00 0 04573 SCA CCAN3,0 04560 0535 00 4 02621 LAC BC2,4 04561 -0500 00 4 00000 CAL 00,4 04562 -0737 00 4 00000 PDC ,4 04563 0636 00 4 07246 SCA ADDR1,4 04564 0636 00 4 07247 SCA ADDR2,4 04565 -0625 00 0 07033 STL VFLG 04566 0074 00 4 03177 TSX INSERT,4 04567 0 00000 0 04573 PZE CCAN3 04570 0600 00 0 07033 STZ VFLG 04571 0074 00 4 03425 TSX DELETE,4 04572 0020 00 0 04523 TRA CCAN1+1 04573 0774 00 1 00000 CCAN3 AXT **,1 04574 -0500 00 1 11275 CAL BUF7+299,1 04575 1 00001 1 04576 TXI *+1,1,1 04576 0634 00 1 04573 SXA CCAN3,1 04577 0020 00 4 00001 TRA 1,4 04600 -0520 00 0 07265 CINSRT NZT AFLG 04601 0074 00 4 03401 TSX SETDD,4 04602 0074 00 4 04365 TSX BORCR,4 04603 0074 00 4 03177 TSX INSERT,4 04604 0 00000 0 02257 PZE GETCHA 04605 0535 00 4 07024 LAC DOT,4 04606 -0500 00 4 00000 CAL 00,4 04607 0621 00 0 07024 STA DOT 04610 0020 00 0 00765 TRA ADDRES 04611 0074 00 4 02670 CLIST TSX SETFC,4 04612 0074 00 4 03502 TSX PRINT,4 04613 0 00000 0 02737 PZE GETFC 04614 0020 00 0 00765 TRA ADDRES 04615 0520 00 0 07265 CUPDAT ZET AFLG 04616 0020 00 0 01264 TRA TYPE2 04617 0074 00 4 07303 TSX WHOAMI,4 04620 0 00004 0 07544 PZE BUF2,,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 40 04621 0074 00 4 07304 TSX GETIME,4 04622 0602 00 0 07550 SLW BUF2+4 04623 -0600 00 0 07551 STQ BUF2+5 04624 0535 00 4 07242 LAC BUFER,4 04625 -0500 00 4 00003 CAL 03,4 04626 0602 00 0 05027 SLW MO2 04627 0074 00 4 03057 TSX GETBN,4 04630 0074 00 4 03304 TSX BOPEN,4 04631 0074 00 4 03406 TSX SETFL,4 04632 0535 00 4 07246 LAC ADDR1,4 04633 0500 00 4 00000 CLA 00,4 04634 -0120 00 0 04640 TMI *+4 04635 0074 00 4 03425 TSX DELETE,4 04636 0535 00 4 07251 LAC ZER,4 04637 0636 00 4 07247 SCA ADDR2,4 04640 -0774 00 2 00000 AXC 00,2 04641 -0500 00 0 07551 CAL BUF2+5 04642 0074 00 4 04746 TSX SPREAD,4 04643 0443 00 0 07350 DLD BUF1+4 04644 -0603 00 0 07352 DST BUF1+6 04645 0443 00 0 07346 DLD BUF1+2 04646 -0603 00 0 07347 DST BUF1+3 04647 -0500 00 0 11352 CAL =O61 04650 0602 00 0 07346 SLW BUF1+2 04651 0602 00 0 07351 SLW BUF1+5 04652 -0500 00 0 11346 CAL =O55 04653 0602 00 0 07354 SLW BUF1+8 04654 0602 00 0 07367 SLW BUF1+19 04655 0560 00 0 07550 LDQ BUF2+4 04656 DIVIDE 6,18 04661 DIVIDE 10,18 04664 DIVIDE 10,16 04667 DIVIDE 6,15 04672 DIVIDE 10,13 04675 DIVIDE 6,12 04700 DIVIDE 10,10 04703 -0600 00 0 07355 STQ BUF1+9 04704 -0500 00 0 11335 CAL =O35 04705 0602 00 0 07357 SLW BUF1+11 04706 0602 00 0 07362 SLW BUF1+14 04707 -0500 00 0 11333 CAL =O33 04710 0602 00 0 07365 SLW BUF1+17 04711 -0774 00 2 00024 AXC 20,2 04712 -0500 00 0 07544 CAL BUF2 04713 0074 00 4 04746 TSX SPREAD,4 04714 -0500 00 0 07545 CAL BUF2+1 04715 0074 00 4 04746 TSX SPREAD,4 04716 -0500 00 0 07546 CAL BUF2+2 04717 0074 00 4 04746 TSX SPREAD,4 04720 -0500 00 0 07547 CAL BUF2+3 04721 0074 00 4 04746 TSX SPREAD,4 04722 0636 00 0 04731 SCA UPD1,0 04723 0074 00 4 03177 TSX INSERT,4 04724 0 00000 0 04730 PZE UPD1-1 04725 -0500 00 0 05027 CAL MO2 04726 0074 00 4 03304 TSX BOPEN,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 41 04727 0020 00 0 00765 TRA ADDRES 04730 0636 00 4 04744 SCA UPD2,4 04731 -0774 00 4 00000 UPD1 AXC **,4 04732 -0500 00 4 07344 CAL BUF1,4 04733 1 77777 4 04734 TXI *+1,4,-1 04734 -3 77717 4 04743 TXL UPD2-1,4,-49 04735 0636 00 4 04731 SCA UPD1,4 04736 0737 00 1 00000 PAC ,1 04737 -0500 60 0 00010 CAL* CNVTBL 04740 0771 00 0 00020 ARS 16 04741 -0320 00 0 11372 ANA =O177 04742 0020 00 0 04744 TRA UPD2 04743 -0500 00 0 11321 CAL =3 04744 -0774 00 4 00000 UPD2 AXC **,4 04745 0020 00 4 00001 TRA 1,4 04746 0636 00 4 04744 SPREAD SCA UPD2,4 04747 0774 00 4 00006 AXT 6,4 04750 -0130 00 0 00000 XCL 04751 -0754 00 0 00000 ZAC 04752 -0763 00 0 00006 LGL 6 04753 0602 00 2 07344 SLW BUF1,2 04754 1 77777 2 04755 TXI *+1,2,-1 04755 2 00001 4 04751 TIX *-4,4,1 04756 -0500 00 0 11346 CAL =O55 04757 0602 00 2 07344 SLW BUF1,2 04760 1 77777 2 04744 TXI UPD2,2,-1 04761 -0520 00 0 07265 CMOVE NZT AFLG 04762 0074 00 4 03401 TSX SETDD,4 04763 0074 00 4 03415 TSX CKWRAP,4 04764 0535 00 4 07242 LAC BUFER,4 04765 -0500 00 4 00003 CAL 03,4 04766 0602 00 0 05027 SLW MO2 04767 0535 00 1 07246 LAC ADDR1,1 04770 0636 00 1 05012 SCA MO1,1 04771 0535 00 2 07247 LAC ADDR2,2 04772 0636 00 2 05013 SCA MO1+1,2 04773 -0500 00 1 00000 CAL 00,1 04774 -0737 00 4 00000 PDC ,4 04775 -0500 00 2 00000 CAL 00,2 04776 0621 00 4 00000 STA 00,4 04777 0621 00 0 07024 STA DOT 05000 0737 00 4 00000 PAC ,4 05001 -0500 00 1 00000 CAL 00,1 05002 0622 00 4 00000 STD 00,4 05003 0074 00 4 03057 TSX GETBN,4 05004 0074 00 4 03304 TSX BOPEN,4 05005 0074 00 4 03406 TSX SETFL,4 05006 0535 00 4 07246 LAC ADDR1,4 05007 0500 00 4 00000 CLA 00,4 05010 -0120 00 0 05012 TMI *+2 05011 0074 00 4 03425 TSX DELETE,4 05012 -0774 00 1 00000 MO1 AXC **,1 05013 -0774 00 2 00000 AXC **,2 05014 0535 00 4 07251 LAC ZER,4 05015 -0500 00 4 00000 CAL 00,4 05016 0622 00 1 00000 STD 00,1 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 42 05017 0621 00 2 00000 STA 00,2 05020 0756 00 1 00000 PCA ,1 05021 0621 00 4 00000 STA 00,4 05022 -0756 00 2 00000 PCD ,2 05023 0622 00 4 00000 STD 00,4 05024 -0500 00 0 05027 CAL MO2 05025 0074 00 4 03304 TSX BOPEN,4 05026 0020 00 0 00765 TRA ADDRES 05027 0 00000 0 00000 MO2 PZE ** 05030 0520 00 0 07265 COPTON ZET AFLG 05031 0020 00 0 01264 TRA TYPE2 05032 0074 00 2 03465 CO1 TSX COP1,2 05033 0520 00 0 07265 ZET AFLG 05034 0020 00 0 05212 TRA CO2 05035 0737 00 1 00000 PAC ,1 05036 -0500 60 0 00010 CAL* CNVTBL 05037 0771 00 0 00033 ARS 27 05040 -0320 00 0 11337 ANA =O37 05041 0737 00 4 00000 PAC ,4 05042 0020 60 4 05043 TRA* COLST,4 05043 0 01320 0 01320 COLST PZE TYPE9,,TYPE9 05044 0 01320 0 05162 PZE CO15,,TYPE9 05045 0 01320 0 05077 PZE CO3,,TYPE9 05046 0 01320 0 05102 PZE CO4,,TYPE9 05047 0 03425 0 05164 PZE CO16,,DELETE 05050 0 01320 0 05105 PZE CO5,,TYPE9 05051 0 01320 0 05110 PZE CO6,,TYPE9 05052 0 01320 0 05113 PZE CO7,,TYPE9 05053 0 01320 0 05166 PZE CO17,,TYPE9 05054 0 05222 0 05140 PZE CO14,,PRINT0 05055 0 01320 0 05117 PZE CO8,,TYPE9 05056 0 01320 0 05122 PZE CO9,,TYPE9 05057 0 01320 0 05206 PZE CO18,,TYPE9 05060 0 01320 0 05124 PZE CO10,,TYPE9 05061 0 01320 0 01320 PZE TYPE9,,TYPE9 05062 0 01320 0 01320 PZE TYPE9,,TYPE9 05063 0 01320 0 05210 PZE CO19,,TYPE9 05064 0 06327 0 01320 PZE TYPE9,,EQALS0 05065 0 01320 0 01320 PZE TYPE9,,TYPE9 05066 0 01320 0 05127 PZE CO11,,TYPE9 05067 0 01320 0 01320 PZE TYPE9,,TYPE9 05070 0 01320 0 05133 PZE CO12,,TYPE9 05071 0 01320 0 05136 PZE CO13,,TYPE9 05072 0 01320 0 01320 PZE TYPE9,,TYPE9 05073 0 04507 0 01320 PZE TYPE9,,CAN01 05074 0 01320 0 01320 PZE TYPE9,,TYPE9 05075 0 06257 0 01320 PZE TYPE9,,COLN0 05076 0 01320 0 01320 PZE TYPE9,,TYPE9 05077 0074 00 2 03465 CO3 TSX COP1,2 05100 0602 00 0 07252 SLW B 05101 0020 00 0 05032 TRA CO1 05102 0074 00 2 03465 CO4 TSX COP1,2 05103 0602 00 0 07253 SLW V 05104 0020 00 0 05032 TRA CO1 05105 0074 00 2 03465 CO5 TSX COP1,2 05106 0602 00 0 07255 SLW A 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 43 05107 0020 00 0 05032 TRA CO1 05110 0074 00 2 03465 CO6 TSX COP1,2 05111 0602 00 0 07254 SLW E 05112 0020 00 0 05032 TRA CO1 05113 0560 00 0 07232 CO7 LDQ ZET1 05114 -0620 00 0 01447 SLQ IO1 05115 -0620 00 0 01464 SLQ IO2 05116 0020 00 0 05032 TRA CO1 05117 0074 00 2 03465 CO8 TSX COP1,2 05120 0602 00 0 07260 SLW R 05121 0020 00 0 05032 TRA CO1 05122 -0625 00 0 07025 CO9 STL CAPFLG 05123 0020 00 0 05032 TRA CO1 05124 0074 00 2 03465 CO10 TSX COP1,2 05125 0602 00 0 07256 SLW W 05126 0020 00 0 05032 TRA CO1 05127 0560 00 0 07231 CO11 LDQ NZT1 05130 -0620 00 0 01447 SLQ IO1 05131 -0620 00 0 01464 SLQ IO2 05132 0020 00 0 05032 TRA CO1 05133 0074 00 2 03465 CO12 TSX COP1,2 05134 0602 00 0 07257 SLW Q 05135 0020 00 0 05032 TRA CO1 05136 0600 00 0 07025 CO13 STZ CAPFLG 05137 0020 00 0 05032 TRA CO1 05140 0074 00 2 03465 CO14 TSX COP1,2 05141 -0501 00 0 11340 ORA =O40 05142 -0340 00 0 11364 LAS =O154 05143 0020 00 0 05152 TRA CO14.1 05144 0020 00 0 05157 TRA CO14.2 05145 0402 00 0 11361 SUB =O141 05146 -0100 00 0 01320 TNZ TYPE9 05147 -0625 00 0 07276 STL PAFLG 05150 0600 00 0 07277 STZ PLFLG 05151 0020 00 0 05032 TRA CO1 05152 0402 00 0 11365 CO14.1 SUB =O156 05153 -0100 00 0 01320 TNZ TYPE9 05154 0600 00 0 07276 STZ PAFLG 05155 0600 00 0 07277 STZ PLFLG 05156 0020 00 0 05032 TRA CO1 05157 0600 00 0 07276 CO14.2 STZ PAFLG 05160 -0625 00 0 07277 STL PLFLG 05161 0020 00 0 05032 TRA CO1 05162 0600 00 0 07271 CO15 STZ FBDFLG 05163 0020 00 0 05032 TRA CO1 05164 -0625 00 0 07271 CO16 STL FBDFLG 05165 0020 00 0 05032 TRA CO1 05166 0600 00 0 07270 CO17 STZ FMODE 05167 0074 00 2 03465 TSX COP1,2 05170 -0340 00 0 11354 LAS =O70 05171 0020 00 0 05033 TRA CO1+1 05172 0020 00 0 05033 TRA CO1+1 05173 -0340 00 0 11351 LAS =O60 05174 0020 00 0 05177 TRA *+3 05175 0020 00 0 05177 TRA *+2 05176 0020 00 0 05033 TRA CO1+1 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 44 05177 0402 00 0 11351 SUB =O60 05200 -0765 00 0 00003 LGR 3 05201 -0500 00 0 07270 CAL FMODE 05202 -0763 00 0 00003 LGL 3 05203 -0320 00 0 11372 ANA =O177 05204 0602 00 0 07270 SLW FMODE 05205 0020 00 0 05167 TRA CO17+1 05206 -0625 00 0 07267 CO18 STL TRCFLG 05207 0020 00 0 05032 TRA CO1 05210 0600 00 0 07267 CO19 STZ TRCFLG 05211 0020 00 0 05032 TRA CO1 05212 0074 00 4 00004 CO2 TSX SETOPS,4 05213 0 00000 0 07253 PZE V 05214 0 00000 0 07255 PZE A 05215 0 00000 0 07256 PZE W 05216 0 00000 0 07257 PZE Q 05217 0020 00 0 00765 TRA ADDRES 05220 0074 00 4 05222 CPRINT TSX PRINT0,4 05221 0020 00 0 00765 TRA ADDRES 05222 0636 00 4 05243 PRINT0 SCA CPR10,4 05223 -0520 00 0 07265 NZT AFLG 05224 0074 00 4 03401 TSX SETDD,4 05225 0535 00 4 07246 LAC ADDR1,4 05226 0636 00 4 05240 SCA CPR1,4 05227 0535 00 4 07247 LAC ADDR2,4 05230 0636 00 4 07024 SCA DOT,4 05231 -0636 00 4 05240 SCD CPR1,4 05232 0600 00 0 07237 STZ JFLG 05233 0560 00 0 05252 LDQ CPR3 05234 -0600 00 0 05251 STQ CPR2 05235 0560 00 0 05323 LDQ CPR6 05236 -0600 00 0 05322 STQ CPR5 05237 0074 00 4 02527 TSX SETBC,4 05240 0 00000 0 00000 CPR1 PZE **,,** 05241 0074 00 4 03502 TSX PRINT,4 05242 0 00000 0 05245 PZE CPR9 05243 -0774 00 4 00000 CPR10 AXC **,4 05244 0020 00 4 00001 TRA 1,4 05245 0520 00 0 07277 CPR9 ZET PLFLG 05246 0020 00 0 05322 TRA CPR5 05247 -0520 00 0 07276 NZT PAFLG 05250 0020 00 0 02604 TRA GETBC 05251 0020 00 0 00000 CPR2 TRA ** 05252 0020 00 0 05253 CPR3 TRA *+1 05253 0520 00 0 07034 ZET EFLG 05254 0020 00 0 05307 TRA CPR4 05255 0535 00 1 02621 LAC BC2,1 05256 0520 00 1 00003 ZET 03,1 05257 0020 00 0 05263 TRA CPR3.1 05260 0600 00 0 07237 STZ JFLG 05261 -0500 00 0 11344 CAL =O52 05262 0020 00 0 05274 TRA CPR3.3 05263 -0520 00 0 07237 CPR3.1 NZT JFLG 05264 0020 00 0 05270 TRA CPR3.2 05265 -0500 00 0 07237 CAL JFLG 05266 0402 00 1 00003 SUB 03,1 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 45 05267 -0100 00 0 05277 TNZ CPR3.4 05270 -0500 00 1 00003 CPR3.2 CAL 03,1 05271 0400 00 0 11317 ADD =1 05272 0602 00 0 07237 SLW JFLG 05273 -0500 00 0 11340 CAL =O40 05274 0560 00 0 05307 CPR3.3 LDQ CPR4 05275 -0600 00 0 05251 STQ CPR2 05276 0020 00 4 00001 TRA 1,4 05277 0560 00 0 05303 CPR3.4 LDQ CPR3.5 05300 -0600 00 0 05251 STQ CPR2 05301 -0500 00 0 11344 CAL =O52 05302 0020 00 4 00001 TRA 1,4 05303 0020 00 0 05304 CPR3.5 TRA *+1 05304 0600 00 0 07237 STZ JFLG 05305 -0500 00 0 11325 CAL =O12 05306 0020 00 0 05274 TRA CPR3.3 05307 0020 00 0 05310 CPR4 TRA *+1 05310 0636 00 4 05320 SCA CPR4.1,4 05311 0074 00 4 02604 TSX GETBC,4 05312 -0340 00 0 11325 LAS =O12 05313 0020 00 0 05320 TRA CPR4.1 05314 0020 00 0 05316 TRA *+2 05315 0020 00 0 05320 TRA CPR4.1 05316 0560 00 0 05252 LDQ CPR3 05317 -0600 00 0 05251 STQ CPR2 05320 -0774 00 4 00000 CPR4.1 AXC **,4 05321 0020 00 4 00001 TRA 1,4 05322 0020 00 0 00000 CPR5 TRA ** 05323 0020 00 0 05324 CPR6 TRA *+1 05324 0520 00 0 07034 ZET EFLG 05325 0020 00 0 05355 TRA CPR8 05326 0535 00 1 02621 LAC BC2,1 05327 0500 00 1 00003 CLA 03,1 05330 0100 00 0 05351 TZE CPR7.2 05331 0120 00 0 05333 TPL *+2 05332 -0754 00 0 00000 ZAC 05333 -0130 00 0 00000 XCL 05334 0074 00 1 04325 TSX CNVBD,1 05335 0560 00 0 05342 LDQ CPR7 05336 -0600 00 0 05322 STQ CPR5 05337 0636 00 0 05343 SCA CPR7+1,0 05340 -0500 00 0 11343 CAL =O47 05341 0020 00 4 00001 TRA 1,4 05342 0020 00 0 05343 CPR7 TRA *+1 05343 -0774 00 1 00000 AXC **,1 05344 -0500 00 1 07510 CAL BUF1+100,1 05345 0361 00 0 11351 ACL =O60 05346 1 00001 1 05347 TXI *+1,1,1 05347 0636 00 1 05343 SCA CPR7+1,1 05350 -3 00004 1 05354 TXL CPR7.1,1,4 05351 -0500 00 0 11324 CPR7.2 CAL =O11 05352 0560 00 0 05355 LDQ CPR8 05353 -0600 00 0 05322 STQ CPR5 05354 0020 00 4 00001 CPR7.1 TRA 1,4 05355 0020 00 0 05356 CPR8 TRA *+1 05356 0636 00 4 05366 SCA CPR8.1,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 46 05357 0074 00 4 02604 TSX GETBC,4 05360 -0340 00 0 11325 LAS =O12 05361 0020 00 0 05366 TRA CPR8.1 05362 0020 00 0 05364 TRA *+2 05363 0020 00 0 05366 TRA CPR8.1 05364 0560 00 0 05323 LDQ CPR6 05365 -0600 00 0 05322 STQ CPR5 05366 -0774 00 4 00000 CPR8.1 AXC **,4 05367 0020 00 4 00001 TRA 1,4 05370 -0520 00 0 07265 CREAD NZT AFLG 05371 0074 00 4 03406 TSX SETFL,4 05372 0535 00 4 07247 LAC ADDR2,4 05373 -0500 00 4 00000 CAL 00,4 05374 0621 00 0 07247 STA ADDR2 05375 0074 00 4 02670 TSX SETFC,4 05376 0074 00 4 03177 CRD2 TSX INSERT,4 05377 0 00000 0 02737 PZE GETFC 05400 0535 00 2 07251 LAC ZER,2 05401 -0774 00 4 00001 AXC 1,4 05402 -0500 00 2 00000 CAL 00,2 05403 0737 00 2 00000 PAC ,2 05404 0756 00 4 00000 CRD1 PCA ,4 05405 0602 00 2 00003 SLW 03,2 05406 0500 00 2 00000 CLA 00,2 05407 -0120 00 0 00765 TMI ADDRES 05410 0737 00 2 00000 PAC ,2 05411 1 77777 4 05404 TXI CRD1,4,-1 05412 0600 00 0 07032 CSUBST STZ SFLG 05413 -0520 00 0 07265 NZT AFLG 05414 0074 00 4 03401 TSX SETDD,4 05415 0074 00 4 03415 TSX CKWRAP,4 05416 0535 00 4 07247 LAC ADDR2,4 05417 -0500 00 4 00000 CAL 00,4 05420 0621 00 0 05570 STA SUB2 05421 0074 00 4 02257 TSX GETCHA,4 05422 -0340 00 0 11325 LAS =O12 05423 0020 00 0 05425 TRA *+2 05424 0020 00 0 01320 TRA TYPE9 05425 0602 00 0 07273 SLW SLCHR 05426 -0625 00 0 07263 STL SUBFLG 05427 0074 00 4 01426 TSX COMPIL,4 05430 0020 00 0 05531 TRA SUBF 05431 0 00000 0 05502 PZE SUBC 05432 0600 00 0 07272 STZ EXFLG 05433 -0774 00 2 00000 AXC 00,2 05434 0074 00 4 02257 SUB3 TSX GETCHA,4 05435 0520 00 0 07033 ZET VFLG 05436 0020 00 0 05466 TRA SUB31 05437 0535 00 4 07262 LAC NSCHA,4 05440 -3 00000 4 05446 TXL SUB34,4,0 05441 -0340 00 4 11277 LAS SCHARS-1,4 05442 1 00001 4 05440 TXI *-2,4,1 05443 1 77577 4 05445 TXI *+2,4,-129 05444 1 00001 4 05440 TXI *-4,4,1 05445 0756 00 4 00000 PCA ,4 05446 -0340 00 0 11341 SUB34 LAS =O41 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 47 05447 0020 00 0 05460 TRA SUB32 05450 0020 00 0 05452 TRA *+2 05451 0020 00 0 05454 TRA *+3 05452 -0500 00 0 11374 CAL =O201 05453 -0625 00 0 07272 STL EXFLG 05454 -0340 00 0 11325 LAS =O12 05455 0020 00 0 05463 TRA SUB33 05456 0020 00 0 01320 TRA TYPE9 05457 0020 00 0 05463 TRA SUB33 05460 -0340 00 0 11342 SUB32 LAS =O46 05461 0020 00 0 05463 TRA SUB33 05462 0500 00 0 11373 CLA =O200 05463 -0340 00 0 07273 SUB33 LAS SLCHR 05464 0020 00 0 05466 TRA *+2 05465 0020 00 0 05470 TRA *+3 05466 0602 00 2 10107 SUB31 SLW BUF5+99,2 05467 1 00001 2 05434 TXI SUB3,2,1 05470 -0500 00 0 11403 CAL =O77777 05471 0602 00 2 10107 SLW BUF5+99,2 05472 -0500 00 0 07247 CAL ADDR2 05473 0767 00 0 00022 ALS 18 05474 -0501 00 0 07246 ORA ADDR1 05475 0602 00 0 05477 SLW *+2 05476 0074 00 4 02527 TSX SETBC,4 05477 0 00000 0 00000 PZE **,,** 05500 -0625 00 0 07234 STL IFLG 05501 0600 00 0 07237 STZ JFLG 05502 0600 00 0 07233 SUBC STZ FFLG 05503 -0520 00 0 07234 NZT IFLG 05504 0020 00 0 05512 TRA SUB1 05505 0600 00 0 07234 STZ IFLG 05506 -0625 00 0 07233 STL FFLG 05507 0600 00 0 07626 STZ BUF2+50 05510 0520 00 0 07237 ZET JFLG 05511 0074 00 4 03604 TSX SUB,4 05512 0074 00 4 02604 SUB1 TSX GETBC,4 05513 0737 00 1 00000 PAC ,1 05514 0535 00 4 07626 LAC BUF2+50,4 05515 1 77777 4 05516 TXI *+1,4,-1 05516 0636 00 4 07626 SCA BUF2+50,4 05517 -0636 00 0 07626 SCD BUF2+50,0 05520 -3 77774 1 05522 TXL *+2,1,-4 05521 -3 77775 1 05570 TXL SUB2,1,-3 05522 -0774 00 2 07625 AXC BUF2+50-1,2 05523 -3 77765 1 00014 TXL BUF3,1,-11 05524 3 77766 1 00014 TXH BUF3,1,-10 05525 -0625 00 0 07234 STL IFLG 05526 0520 00 0 07235 ZET INTFLG 05527 0020 00 0 01274 TRA TYPE4 05530 0020 00 0 00014 TRA BUF3 05531 0535 00 4 07237 SUBF LAC JFLG,4 05532 -3 00000 4 05555 TXL SUB5,4,0 05533 -0500 00 4 07742 CAL BUF5-2,4 05534 -0320 00 0 11403 ANA =O77777 05535 0602 00 0 07264 SLW COPY 05536 -0500 00 0 07626 CAL BUF2+50 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 48 05537 -0320 00 0 11403 ANA =O77777 05540 -0340 00 0 07264 LAS COPY 05541 1 00002 4 05532 TXI SUBF+1,4,2 05542 0020 00 0 05544 TRA *+2 05543 1 00002 4 05532 TXI SUBF+1,4,2 05544 -0500 00 2 00001 CAL 1,2 05545 -0320 00 0 11403 ANA =O77777 05546 0602 00 0 07264 SLW COPY 05547 -0500 00 4 07742 CAL BUF5-2,4 05550 0771 00 0 00022 ARS 18 05551 -0340 00 0 07264 LAS COPY 05552 0020 00 0 05561 TRA SUB6 05553 0020 00 0 02121 TRA FAIL 05554 0020 00 0 02121 TRA FAIL 05555 0535 00 4 07237 SUB5 LAC JFLG,4 05556 1 77776 4 05557 TXI *+1,4,-2 05557 -3 77634 4 01256 TXL TYPE0,4,-100 05560 0636 00 4 07237 SCA JFLG,4 05561 -0500 00 2 00001 SUB6 CAL 1,2 05562 0602 00 4 07743 SLW BUF5-1,4 05563 0767 00 0 00022 ALS 18 05564 0602 00 4 07742 SLW BUF5-2,4 05565 -0500 00 0 07626 CAL BUF2+50 05566 0621 00 4 07742 STA BUF5-2,4 05567 0020 00 2 00002 TRA 2,2 05570 -0774 00 4 00000 SUB2 AXC **,4 05571 -0500 00 4 00000 CAL 00,4 05572 -0737 00 4 00000 PDC ,4 05573 0636 00 4 07024 SCA DOT,4 05574 0520 00 0 07032 ZET SFLG 05575 0074 00 4 01420 TSX BLINE,4 05576 0020 00 0 00765 TRA ADDRES 05577 -0625 00 0 07032 CVERIF STL SFLG 05600 0020 00 0 05413 TRA CSUBST+1 05601 -0520 00 0 07265 CWRITE NZT AFLG 05602 0074 00 4 03406 TSX SETFL,4 05603 0074 00 4 03415 TSX CKWRAP,4 05604 0074 00 4 03106 TSX GETFN,4 05605 -0500 00 2 07065 CAL SHFT,2 05606 0621 00 0 04244 STA WR5 05607 0771 00 0 00022 ARS 18 05610 0621 00 0 04245 STA WR6 05611 0621 00 0 04247 STA WR6+2 05612 -0500 00 2 07075 CAL RETRN+4,2 05613 0621 00 0 05663 STA WR3 05614 0771 00 0 00022 ARS 18 05615 0621 00 0 04225 STA WR13 05616 -0500 00 2 07061 CAL OCT3+4,2 05617 0602 00 0 07055 SLW OCT3 05620 0535 00 4 07246 LAC ADDR1,4 05621 0636 00 4 05637 SCA WR1,4 05622 0535 00 4 07247 LAC ADDR2,4 05623 -0636 00 4 05637 SCD WR1,4 05624 0074 00 4 07325 TSX OPEN,4 05625 3 00000 0 11473 PAR =HW 05626 3 00000 0 07337 PAR FILNAM 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 49 05627 3 00000 0 07340 PAR FILNAM+1 05630 3 00000 0 07270 PAR FMODE 05631 3 00000 0 11442 PAR =-0 05632 3 00000 0 01314 PAR TYPE8 05633 3 00000 0 07264 PAR COPY 05634 -0625 00 0 07300 STL FILFLG 05635 0600 00 0 07261 STZ GOOD 05636 0074 00 4 02527 TSX SETBC,4 05637 0 00000 0 00000 WR1 PZE **,,** 05640 0074 00 4 07326 TSX BUFFER,4 05641 3 00000 0 07337 PAR FILNAM 05642 3 00000 0 07340 PAR FILNAM+1 05643 3 00660 0 00014 PAR BUF3,,432 05644 0600 00 0 07240 STZ CPLFLG 05645 0074 00 4 07331 TSX TRFILE,4 05646 3 00000 0 07337 PAR FILNAM 05647 3 00000 0 07340 PAR FILNAM+1 05650 3 00000 0 11317 PAR =1 05651 3 00000 0 05653 PAR *+2 05652 3 00000 0 07264 PAR COPY 05653 3 77776 2 05656 TXH *+3,2,-2 05654 -0774 00 2 00001 AXC 1,2 05655 0020 00 0 05657 TRA *+2 05656 -0774 00 2 00000 AXC 00,2 05657 0522 00 0 04244 XEC WR5 05660 1 00001 3 05661 TXI *+1,3,1 05661 0074 00 4 02604 WR2 TSX GETBC,4 05662 0737 00 1 00000 PAC ,1 05663 0020 00 0 00000 WR3 TRA ** 05664 0520 00 0 07265 CAUDIT ZET AFLG 05665 0020 00 0 01264 TRA TYPE2 05666 0074 00 4 03057 TSX GETBN,4 05667 0602 00 0 05027 SLW MO2 05670 0535 00 4 07251 LAC ZER,4 05671 -0500 00 4 00000 CAL 00,4 05672 0737 00 4 00000 PAC ,4 05673 -0130 00 0 00000 XCL 05674 0500 00 4 00000 CLA 00,4 05675 -0120 00 0 01300 TMI TYPE5 05676 -0600 00 0 05700 STQ *+2 05677 0074 00 4 02527 TSX SETBC,4 05700 0 00000 0 00000 PZE **,,** 05701 -0500 00 0 05027 CAL MO2 05702 0074 00 4 03304 TSX BOPEN,4 05703 0535 00 4 07251 LAC ZER,4 05704 -0500 00 4 00000 CAL 00,4 05705 0737 00 4 00000 PAC ,4 05706 0500 00 4 00000 CLA 00,4 05707 -0120 00 0 05712 TMI *+3 05710 0074 00 4 03406 TSX SETFL,4 05711 0074 00 4 03425 TSX DELETE,4 05712 0074 00 4 03406 TSX SETFL,4 05713 0600 00 0 07237 STZ JFLG 05714 0560 00 0 05724 LDQ CAU2 05715 -0600 00 0 05723 STQ CAU1 05716 -0625 00 0 07033 STL VFLG 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 50 05717 0074 00 4 03177 TSX INSERT,4 05720 0 00000 0 05723 PZE CAU1 05721 0600 00 0 07033 STZ VFLG 05722 0020 00 0 00765 TRA ADDRES 05723 0020 00 0 00000 CAU1 TRA ** 05724 0020 00 0 05725 CAU2 TRA *+1 05725 0535 00 1 02621 LAC BC2,1 05726 0520 00 1 00003 ZET 03,1 05727 0020 00 0 05741 TRA CAU2.1 05730 0560 00 0 06020 LDQ CAU3 05731 -0600 00 0 05723 STQ CAU1 05732 0560 00 0 07237 LDQ JFLG 05733 0074 00 1 04325 TSX CNVBD,1 05734 -0500 00 0 11352 CAL =O61 05735 0602 00 0 07504 SLW BUF1+96 05736 0636 00 0 06021 SCA CAU3+1,0 05737 -0500 00 0 11343 CAL =O47 05740 0020 00 4 00001 TRA 1,4 05741 -0500 00 0 07237 CAU2.1 CAL JFLG 05742 0400 00 0 11317 ADD =1 05743 -0340 00 1 00003 LAS 03,1 05744 0020 00 0 01300 TRA TYPE5 05745 0020 00 0 06004 TRA CAU2.2 05746 0560 00 0 06034 LDQ CAU4 05747 -0600 00 0 05723 STQ CAU1 05750 -0500 00 0 07237 CAL JFLG 05751 0400 00 0 11317 ADD =1 05752 0131 00 0 00000 XCA 05753 0074 00 1 04325 TSX CNVBD,1 05754 -0500 00 0 11371 CAL =O174 05755 0602 00 0 07504 SLW BUF1+96 05756 0535 00 1 02621 LAC BC2,1 05757 -0500 00 1 00003 CAL 03,1 05760 0402 00 0 11317 SUB =1 05761 0602 00 0 07237 SLW JFLG 05762 0131 00 0 00000 XCA 05763 DIVIDE 10,91 05766 DIVIDE 10,92 05771 DIVIDE 10,93 05774 -0600 00 0 07502 STQ BUF1+94 05775 -0500 00 0 11370 CAL =O167 05776 0602 00 0 07503 SLW BUF1+95 05777 -0500 00 0 11353 CAL =O64 06000 0602 00 0 07476 SLW BUF1+90 06001 -0500 00 0 11343 CAL =O47 06002 0636 00 0 06035 SCA CAU4+1,0 06003 0020 00 4 00001 TRA 1,4 06004 0520 00 0 07034 CAU2.2 ZET EFLG 06005 0020 00 0 02604 TRA GETBC 06006 -0500 00 1 00003 CAL 03,1 06007 0602 00 0 07237 SLW JFLG 06010 0636 00 4 06016 SCA *+6,4 06011 0074 00 4 02604 TSX GETBC,4 06012 -0340 00 0 11325 LAS =O12 06013 0020 00 0 06011 TRA *-2 06014 0020 00 0 06016 TRA *+2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 51 06015 0020 00 0 06011 TRA *-4 06016 -0774 00 4 00000 AXC **,4 06017 0020 00 0 05724 TRA CAU2 06020 0020 00 0 06021 CAU3 TRA *+1 06021 -0774 00 1 00000 AXC **,1 06022 -0500 00 1 07510 CAL BUF1+100,1 06023 0361 00 0 11351 ACL =O60 06024 1 00001 1 06025 TXI *+1,1,1 06025 0636 00 1 06021 SCA CAU3+1,1 06026 -3 00005 1 06033 TXL CAU3.1,1,5 06027 0560 00 0 06050 LDQ CAU5 06030 -0600 00 0 05723 STQ CAU1 06031 0600 00 0 07234 STZ IFLG 06032 -0500 00 0 11325 CAL =O12 06033 0020 00 4 00001 CAU3.1 TRA 1,4 06034 0020 00 0 06035 CAU4 TRA *+1 06035 -0774 00 1 00000 AXC **,1 06036 -0500 00 1 07510 CAL BUF1+100,1 06037 0361 00 0 11351 ACL =O60 06040 -0320 00 0 11372 ANA =O177 06041 1 00001 1 06042 TXI *+1,1,1 06042 0636 00 1 06035 SCA CAU4+1,1 06043 -3 00013 1 06047 TXL CAU4.1,1,11 06044 0560 00 0 05724 LDQ CAU2 06045 -0600 00 0 05723 STQ CAU1 06046 -0500 00 0 11325 CAL =O12 06047 0020 00 4 00001 CAU4.1 TRA 1,4 06050 0020 00 0 06051 CAU5 TRA *+1 06051 0636 00 4 06111 SCA CAU5.3,4 06052 0520 00 0 07234 ZET IFLG 06053 0020 00 0 06072 TRA CAU5.1 06054 0074 00 4 02604 TSX GETBC,4 06055 -0340 00 0 11331 LAS =O30 06056 0020 00 0 06104 TRA CAU5.2 06057 0020 00 0 06104 TRA CAU5.2 06060 -0340 00 0 11325 LAS =O12 06061 0020 00 0 06111 TRA CAU5.3 06062 0020 00 0 06064 TRA *+2 06063 0020 00 0 06111 TRA CAU5.3 06064 0535 00 1 02621 LAC BC2,1 06065 -0520 00 1 00003 NZT 03,1 06066 0020 00 0 06111 TRA CAU5.3 06067 -0500 00 0 11325 CAL =O12 06070 0602 00 0 07234 SLW IFLG 06071 0020 00 0 06111 TRA CAU5.3 06072 -0500 00 0 07234 CAU5.1 CAL IFLG 06073 0600 00 0 07234 STZ IFLG 06074 -0340 00 0 11325 LAS =O12 06075 0020 00 0 06111 TRA CAU5.3 06076 0020 00 0 06100 TRA *+2 06077 0020 00 0 06111 TRA CAU5.3 06100 0560 00 0 05724 LDQ CAU2 06101 -0600 00 0 05723 STQ CAU1 06102 -0500 00 0 11334 CAL =O34 06103 0020 00 0 06111 TRA CAU5.3 06104 -0340 00 0 11340 CAU5.2 LAS =O40 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 52 06105 0020 00 0 06111 TRA CAU5.3 06106 0020 00 0 06111 TRA CAU5.3 06107 0602 00 0 07234 SLW IFLG 06110 -0500 00 0 11332 CAL =O31 06111 -0774 00 4 00000 CAU5.3 AXC **,4 06112 0020 00 4 00001 TRA 1,4 06113 0520 00 0 07274 CNLCR ZET CFLG 06114 0020 00 0 06121 TRA CNC1 06115 0535 00 4 07024 LAC DOT,4 06116 -0500 00 4 00000 CAL 00,4 06117 0621 00 0 07024 STA DOT 06120 0020 00 0 05220 TRA CPRINT 06121 -0520 00 0 07265 CNC1 NZT AFLG 06122 0020 00 0 00765 TRA ADDRES 06123 -0500 00 0 07247 CAL ADDR2 06124 0602 00 0 07246 SLW ADDR1 06125 0020 00 0 05220 TRA CPRINT 06126 0074 00 4 02257 CBLANK TSX GETCHA,4 06127 0020 00 0 04400 TRA COMAND 06130 0520 00 0 07265 CQUIT ZET AFLG 06131 0020 00 0 01264 TRA TYPE2 06132 0074 00 4 02257 TSX GETCHA,4 06133 -0340 00 0 11325 LAS =O12 06134 0020 00 0 01320 TRA TYPE9 06135 0020 00 0 06137 TRA *+2 06136 0020 00 0 01264 TRA TYPE2 06137 0074 00 4 01420 TSX BLINE,4 06140 0520 00 0 07301 ZET PMTFLG 06141 0074 00 4 07306 TSX FORBID,4 06142 0074 00 4 07334 TSX SETBCD,4 06143 0074 00 4 07314 TSX CHNCOM,4 06144 0 00000 0 00001 PZE 1 06145 0020 00 0 01320 TRA TYPE9 06146 -0520 00 0 07265 CGLOB NZT AFLG 06147 0074 00 4 03406 TSX SETFL,4 06150 0074 00 4 02257 TSX GETCHA,4 06151 -3 77765 1 06153 TXL *+2,1,-11 06152 -3 77766 1 01320 TXL TYPE9,1,-10 06153 -0500 60 0 00010 CAL* CNVTBL 06154 0771 00 0 00033 ARS 27 06155 -0320 00 0 11337 ANA =O37 06156 0737 00 1 00000 PAC ,1 06157 0402 00 0 11331 SUB =24 06160 -0100 00 0 06167 TNZ CG6 06161 0636 00 1 06164 SCA *+3,1 06162 0074 00 4 02257 TSX GETCHA,4 06163 0636 00 1 04507 SCA CAN01,1 06164 -0774 00 1 00000 AXC **,1 06165 0402 00 0 11325 SUB =O12 06166 0100 00 0 01320 TZE TYPE9 06167 -0500 00 1 05043 CG6 CAL COLST,1 06170 -0737 00 4 00000 PDC ,4 06171 0636 00 4 06244 SCA CG3,4 06172 0074 00 4 02257 TSX GETCHA,4 06173 -3 77765 1 06175 TXL *+2,1,-11 06174 -3 77766 1 01320 TXL TYPE9,1,-10 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 53 06175 0602 00 0 07273 SLW SLCHR 06176 0600 00 0 07263 STZ SUBFLG 06177 0074 00 4 01426 TSX COMPIL,4 06200 0020 00 0 06234 TRA CGF 06201 0 00000 0 06214 PZE CGC 06202 0535 00 4 07246 LAC ADDR1,4 06203 0636 00 4 06211 SCA CG1,4 06204 0535 00 4 07247 LAC ADDR2,4 06205 -0636 00 4 06211 U SCD CG1,4 06206 -0500 00 4 00000 CAL 00,4 06207 0621 00 0 06250 STA CG4 06210 0074 00 4 02527 TSX SETBC,4 06211 0 00000 0 00000 CG1 PZE **,,** 06212 -0625 00 0 07234 STL IFLG 06213 0600 00 0 07237 STZ JFLG 06214 0600 00 0 07233 CGC STZ FFLG 06215 -0520 00 0 07234 NZT IFLG 06216 0020 00 0 06223 TRA CG5 06217 0600 00 0 07234 STZ IFLG 06220 -0625 00 0 07233 STL FFLG 06221 0520 00 0 07237 ZET JFLG 06222 0020 00 0 06236 TRA CG2 06223 0074 00 4 02604 CG5 TSX GETBC,4 06224 0737 00 1 00000 PAC ,1 06225 -3 77774 1 06227 TXL *+2,1,-4 06226 -3 77775 1 06250 TXL CG4,1,-3 06227 -0774 00 2 07625 AXC BUF2+50-1,2 06230 -3 77765 1 00014 TXL BUF3,1,-11 06231 3 77766 1 00014 TXH BUF3,1,-10 06232 -0625 00 0 07234 STL IFLG 06233 0020 00 0 00014 TRA BUF3 06234 -0625 00 0 07237 CGF STL JFLG 06235 0020 00 2 00002 TRA 2,2 06236 0535 00 2 02621 CG2 LAC BC2,2 06237 -0500 00 2 00000 CAL 00,2 06240 -0737 00 2 00000 PDC ,2 06241 0636 00 2 07246 SCA ADDR1,2 06242 0636 00 2 07247 SCA ADDR2,2 06243 -0625 00 0 07265 STL AFLG 06244 0074 00 4 00000 CG3 TSX **,4 06245 -0625 00 0 07234 STL IFLG 06246 0600 00 0 07237 STZ JFLG 06247 0020 00 0 06214 TRA CGC 06250 -0774 00 2 00000 CG4 AXC **,2 06251 -0500 00 2 00000 CAL 00,2 06252 -0737 00 2 00000 PDC ,2 06253 0636 00 2 07024 SCA DOT,2 06254 0020 00 0 00765 TRA ADDRES 06255 0074 00 4 06257 CCOLN TSX COLN0,4 06256 0020 00 0 00765 TRA ADDRES 06257 0636 00 4 06313 COLN0 SCA CCL4,4 06260 -0520 00 0 07265 NZT AFLG 06261 0074 00 4 03406 TSX SETFL,4 06262 -0500 00 0 11370 CAL =O167 06263 0602 00 0 07511 SLW BUF1+101 06264 0535 00 4 07247 LAC ADDR2,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 54 06265 0500 00 4 00000 CLA 00,4 06266 0120 00 0 06271 TPL *+3 06267 -0754 00 0 00000 ZAC 06270 0020 00 0 06300 TRA CCL1 06271 0500 00 4 00003 CLA 03,4 06272 -0100 00 0 06300 TNZ CCL1 06273 -0500 00 0 11360 CAL =O132 06274 0602 00 0 07510 SLW BUF1+100 06275 -0500 00 0 11357 CAL =O123 06276 0602 00 0 07507 SLW BUF1+99 06277 0020 00 0 06306 TRA CCL2 06300 0131 00 0 00000 CCL1 XCA 06301 0074 00 1 04325 TSX CNVBD,1 06302 -0500 00 0 11360 CAL =O132 06303 0602 00 0 07504 SLW BUF1+96 06304 -0500 00 0 11357 CAL =O123 06305 0602 00 0 07503 SLW BUF1+95 06306 0636 00 0 06315 CCL2 SCA CCL3,0 06307 0074 00 4 03502 TSX PRINT,4 06310 0 00000 0 06315 PZE CCL3 06311 -0500 00 0 07247 CAL ADDR2 06312 0602 00 0 07024 SLW DOT 06313 -0774 00 4 00000 CCL4 AXC **,4 06314 0020 00 4 00001 TRA 1,4 06315 -0774 00 1 00000 CCL3 AXC **,1 06316 0500 00 1 07511 CLA BUF1+101,1 06317 1 00001 1 06320 TXI *+1,1,1 06320 0636 00 1 06315 SCA CCL3,1 06321 0361 00 0 11351 ACL =O60 06322 -0320 00 0 11372 ANA =O177 06323 0100 00 0 06315 TZE CCL3 06324 0020 00 4 00001 TRA 1,4 06325 0074 00 4 06327 CEQALS TSX EQALS0,4 06326 0020 00 0 00765 TRA ADDRES 06327 0636 00 4 06345 EQALS0 SCA EQALS1,4 06330 -0520 00 0 07265 NZT AFLG 06331 0074 00 4 03406 TSX SETFL,4 06332 0535 00 1 07247 LAC ADDR2,1 06333 0636 00 1 07024 SCA DOT,1 06334 -0500 00 0 11356 CAL =O120 06335 0602 00 0 07520 SLW BUF1+108 06336 0602 00 0 07517 SLW BUF1+107 06337 0602 00 0 07516 SLW BUF1+106 06340 0602 00 0 07515 SLW BUF1+105 06341 0602 00 0 07514 SLW BUF1+104 06342 0602 00 0 07513 SLW BUF1+103 06343 0602 00 0 07512 SLW BUF1+102 06344 0074 00 4 04340 TSX LENGTH,4 06345 -0774 00 4 00000 EQALS1 AXC **,4 06346 0020 00 4 00001 TRA 1,4 06347 0520 00 0 07265 CDBUFR ZET AFLG 06350 0020 00 0 01264 TRA TYPE2 06351 0535 00 4 07243 LAC BBASE,4 06352 0636 00 4 06364 SCA DBU1,4 06353 0535 00 4 07242 LAC BUFER,4 06354 -0500 00 0 07251 CAL ZER 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 55 06355 0602 00 4 00001 SLW 01,4 06356 -0500 00 0 11367 CAL =O162 06357 0602 00 0 07520 SLW BUF1+108 06360 0602 00 0 07512 SLW BUF1+102 06361 -0500 00 4 00003 CAL 03,4 06362 0602 00 0 07547 SLW BUF2+3 06363 0020 00 0 06374 TRA DBU2 06364 -0774 00 4 00000 DBU1 AXC **,4 06365 -3 00000 4 00765 TXL ADDRES,4,0 06366 -0500 00 4 00000 CAL 00,4 06367 0621 00 0 06364 STA DBU1 06370 -0500 00 4 00003 CAL 03,4 06371 -0340 00 0 07547 LAS BUF2+3 06372 0020 00 0 06374 TRA DBU2 06373 0020 00 0 06364 TRA DBU1 06374 -0130 00 0 00000 DBU2 XCL 06375 -0754 00 0 00000 ZAC 06376 -0763 00 0 00010 LGL 8 06377 0361 00 0 11356 ACL =O120 06400 0602 00 0 07517 SLW BUF1+107 06401 -0754 00 0 00000 ZAC 06402 -0763 00 0 00007 LGL 7 06403 0361 00 0 11356 ACL =O120 06404 0602 00 0 07516 SLW BUF1+106 06405 -0754 00 0 00000 ZAC 06406 -0763 00 0 00007 LGL 7 06407 0361 00 0 11356 ACL =O120 06410 0602 00 0 07515 SLW BUF1+105 06411 -0754 00 0 00000 ZAC 06412 -0763 00 0 00007 LGL 7 06413 0361 00 0 11356 ACL =O120 06414 0602 00 0 07514 SLW BUF1+104 06415 -0754 00 0 00000 ZAC 06416 -0763 00 0 00007 LGL 7 06417 0361 00 0 11356 ACL =O120 06420 0602 00 0 07513 SLW BUF1+103 06421 -0500 60 4 00001 CAL* 01,4 06422 -0737 00 1 00000 PDC ,1 06423 0074 00 4 04340 TSX LENGTH,4 06424 0020 00 0 06364 TRA DBU1 06425 -0500 00 0 11351 ICOM CAL =O60 06426 -0765 00 0 00006 LGR 6 06427 -0600 00 0 07512 STQ BUF1+102 06430 -0500 00 0 07345 CAL BUF1+1 06431 0602 00 0 07513 SLW BUF1+103 06432 -0500 00 0 11433 CAL =HFROM 06433 0602 00 0 07511 SLW BUF1+101 06434 -0500 00 0 11451 CAL =O555560606060 06435 0602 00 0 07514 SLW BUF1+104 06436 0074 00 4 07334 TSX SETBCD,4 06437 0074 00 4 07323 TSX WRFLX,4 06440 0 00004 0 07511 PZE BUF1+101,,4 06441 -0625 00 0 07302 STL ICFLG 06442 -0520 00 0 07271 NZT FBDFLG 06443 0020 00 0 06467 TRA CRNCOM-1 06444 0074 00 4 07323 TSX WRFLX,4 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 56 06445 0 00003 0 06455 PZE MES5,,3 06446 0074 00 4 07332 TSX WRMESS,4 06447 0 00000 0 07512 PZE BUF1+102 06450 0 00000 0 07513 PZE BUF1+103 06451 0 00007 0 06460 PZE MES6,,7 06452 0600 00 0 07302 STZ ICFLG 06453 0074 00 4 07335 TSX SETFUL,4 06454 0020 00 0 02266 TRA GC0 06455 663163306021 MES5 BCI 3,WITH APOLOGIES. 06456 474643462731 06457 256233606060 06460 +106162157155 MES6 OCT 106162157155,040121105104,040167151164 06461 +040121105104 06462 +040167151164 06463 +150040141160 OCT 150040141160,157154157147,151145163056,003040040040 06464 +157154157147 06465 +151145163056 06466 +003040040040 06467 0020 00 0 06472 TRA *+3 06470 0520 00 0 07265 CRNCOM ZET AFLG 06471 0020 00 0 01264 TRA TYPE2 06472 0074 00 4 07307 TSX GETCLS,4 06473 0 00001 0 07344 PZE BUF1,,1 06474 0074 00 4 07307 TSX GETCLS,4 06475 0 00002 0 07370 PZE BUF1+20,,2 06476 0074 00 4 07307 TSX GETCLS,4 06477 0 00003 0 07414 PZE BUF1+40,,3 06500 0074 00 4 07307 TSX GETCLS,4 06501 0 00004 0 07440 PZE BUF1+60,,4 06502 0074 00 4 07307 TSX GETCLS,4 06503 0 00005 0 07464 PZE BUF1+80,,5 06504 0074 00 4 07311 TSX GETCLC,4 06505 0602 00 0 07510 SLW BUF1+100 06506 0520 00 0 07301 ZET PMTFLG 06507 0074 00 4 07306 TSX FORBID,4 06510 0520 00 0 07302 ZET ICFLG 06511 0020 00 0 06574 TRA CRCIC 06512 0535 00 4 07242 LAC BUFER,4 06513 -0500 00 4 00003 CAL 03,4 06514 0602 00 0 06634 SLW CRC1 06515 0074 00 4 03057 TSX GETBN,4 06516 0074 00 4 03304 TSX BOPEN,4 06517 0535 00 4 07251 LAC ZER,4 06520 -0500 00 4 00000 CAL 00,4 06521 0601 00 0 06523 STO *+2 06522 0074 00 4 02527 TSX SETBC,4 06523 0 00000 0 00000 PZE **,,** 06524 -0774 00 4 00001 AXC 1,4 06525 -0636 00 4 06604 SCD CRC8,4 06526 0074 00 4 02604 CRC2 TSX GETBC,4 06527 -0340 00 0 11321 LAS =3 06530 0020 00 0 06532 TRA *+2 06531 0020 00 0 06635 TRA CRC1+1 06532 -0340 00 0 11325 LAS =O12 06533 0020 00 0 06535 TRA *+2 06534 0020 00 0 06526 TRA CRC2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 57 06535 -0340 00 0 11340 LAS =O40 06536 0020 00 0 06540 TRA *+2 06537 0020 00 0 06526 TRA CRC2 06540 -0774 00 2 00000 AXC 00,2 06541 0560 00 0 11454 LDQ =H 06542 -0600 00 2 07511 STQ BUF1+101,2 06543 0737 00 1 00000 CRC4 PAC ,1 06544 -0500 60 0 00010 CAL* CNVTBL 06545 0771 00 0 00010 ARS 8 06546 0560 00 2 07511 LDQ BUF1+101,2 06547 -0773 00 0 00006 RQL 6 06550 -0765 00 0 00006 LGR 6 06551 -0773 00 0 00006 RQL 6 06552 -0600 00 2 07511 STQ BUF1+101,2 06553 0074 00 4 02604 TSX GETBC,4 06554 -0340 00 0 11325 LAS =O12 06555 0020 00 0 06557 TRA *+2 06556 1 77777 2 06563 TXI CRC3,2,-1 06557 -0340 00 0 11340 LAS =O40 06560 0020 00 0 06543 TRA CRC4 06561 1 77777 2 06563 TXI CRC3,2,-1 06562 0020 00 0 06543 TRA CRC4 06563 -0340 00 0 11325 CRC3 LAS =O12 06564 0020 00 0 06566 TRA *+2 06565 0020 00 0 06601 TRA CRC5 06566 -0340 00 0 11340 LAS =O40 06567 0020 00 0 06541 TRA CRC4-2 06570 0020 00 0 06572 TRA *+2 06571 0020 00 0 06541 TRA CRC4-2 06572 0074 00 4 02604 TSX GETBC,4 06573 0020 00 0 06563 TRA CRC3 06574 0774 00 4 00001 CRCIC AXT 1,4 06575 -0634 00 4 06604 SXD CRC8,4 06576 -0500 00 0 11456 CAL =H WRITE 06577 0602 00 0 07511 SLW BUF1+101 06600 -0774 00 2 00003 AXC 3,2 06601 0560 00 0 11476 CRC5 LDQ =O777777777777 06602 -0600 00 2 07511 STQ BUF1+101,2 06603 0074 00 4 07310 TSX SETCLS,4 06604 0 00000 0 07511 CRC8 PZE BUF1+101,,** 06605 -0535 00 4 06604 LDC CRC8,4 06606 1 77777 4 06607 TXI *+1,4,-1 06607 -0636 00 4 06604 SCD CRC8,4 06610 0520 00 0 07302 ZET ICFLG 06611 0020 00 0 06637 TRA CRC1.1 06612 3 77773 4 06526 TXH CRC2,4,-5 06613 0074 00 4 07310 TSX SETCLS,4 06614 0 00000 0 06625 PZE CRC6,,0 06615 0074 00 4 07310 TSX SETCLS,4 06616 0 00005 0 06631 PZE CRC7,,5 06617 -0500 00 0 11410 CAL =O5000001 06620 0074 00 4 07312 TSX SETCLC,4 06621 -0500 00 0 06625 CAL CRC6 06622 0560 00 0 06626 LDQ CRC6+1 06623 0074 00 4 07313 TSX NEXCOM,4 06624 0020 00 0 06524 TRA CRC2-2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 58 06625 606062216525 CRC6 BCI 3, SAVEQEDXXX T 06626 502524676767 06627 606060606063 06630 -377777777777 OCT 777777777777 06631 512562644425 CRC7 BCI 2,RESUMEQEDXXX 06632 502524676767 06633 -377777777777 OCT 777777777777 06634 0 00000 0 00000 CRC1 PZE 06635 -0500 00 0 06634 CAL CRC1 06636 0074 00 4 03304 TSX BOPEN,4 06637 -0535 00 1 06604 CRC1.1 LDC CRC8,1 06640 3 77776 1 06654 TXH CRC9,1,-2 06641 0074 00 4 07310 TSX SETCLS,4 06642 0 00000 0 06625 PZE CRC6,,0 06643 -0636 00 1 06645 SCD *+2,1 06644 0074 00 4 07310 TSX SETCLS,4 06645 0 00000 0 06631 PZE CRC7,,** 06646 -0756 00 1 00000 PCD ,1 06647 -0501 00 0 11317 ORA =1 06650 0074 00 4 07312 TSX SETCLC,4 06651 -0500 00 0 06625 CAL CRC6 06652 0560 00 0 06626 LDQ CRC6+1 06653 0074 00 4 07313 TSX NEXCOM,4 06654 0074 00 4 07335 CRC9 TSX SETFUL,4 06655 0074 00 4 01420 TSX BLINE,4 06656 0074 00 4 07310 TSX SETCLS,4 06657 0 00001 0 07344 PZE BUF1,,1 06660 0074 00 4 07310 TSX SETCLS,4 06661 0 00002 0 07370 PZE BUF1+20,,2 06662 0074 00 4 07310 TSX SETCLS,4 06663 0 00003 0 07414 PZE BUF1+40,,3 06664 0074 00 4 07310 TSX SETCLS,4 06665 0 00004 0 07440 PZE BUF1+60,,4 06666 0074 00 4 07310 TSX SETCLS,4 06667 0 00005 0 07464 PZE BUF1+80,,5 06670 -0500 00 0 07510 CAL BUF1+100 06671 0074 00 4 07312 TSX SETCLC,4 06672 -0520 00 0 07301 NZT PMTFLG 06673 0020 00 0 06677 TRA CRC9.1 06674 0074 00 4 07305 TSX PERMIT,4 06675 3 00000 0 07026 PAR PPPMT 06676 3 00000 0 07027 PAR PPPMT+1 06677 -0520 00 0 07302 CRC9.1 NZT ICFLG 06700 0020 00 0 00765 TRA ADDRES 06701 0600 00 0 07302 STZ ICFLG 06702 0020 00 0 02266 TRA GC0 06703 0074 00 4 02257 CCOMNT TSX GETCHA,4 06704 -0340 00 0 11325 LAS =O12 06705 0020 00 0 06703 TRA CCOMNT 06706 0020 00 0 00765 TRA ADDRES 06707 0020 00 0 06703 TRA CCOMNT 06710 -0520 00 0 07265 CSORT NZT AFLG 06711 0074 00 4 03406 TSX SETFL,4 06712 0074 00 4 03415 TSX CKWRAP,4 06713 0636 00 3 07022 SCA CSRT3,3 06714 0535 00 1 07246 LAC ADDR1,1 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 59 06715 -0500 00 1 00001 NEWI CAL 1,1 06716 0737 00 2 00000 PAC ,2 06717 0771 00 0 00022 ARS 18 06720 0602 00 0 07013 SLW ENDI 06721 0756 00 1 00000 PCA ,1 06722 0737 00 3 00000 PAC ,3 06723 0756 00 3 00000 INCJ PCA ,3 06724 0402 00 0 07247 SUB ADDR2 06725 0100 00 0 07014 TZE INCI 06726 -0500 00 3 00000 CAL 0,3 06727 0737 00 3 00000 PAC ,3 06730 -0500 00 3 00001 CAL 1,3 06731 0737 00 4 00000 PAC ,4 06732 -0500 00 4 00001 CAL 1,4 06733 -0340 00 2 00001 LAS 1,2 06734 0020 00 0 06723 TRA INCJ 06735 0020 00 0 06750 TRA CSRT2 06736 -0500 00 3 00001 CSRT1 CAL 1,3 06737 0560 00 1 00001 LDQ 1,1 06740 -0600 00 3 00001 STQ 1,3 06741 0602 00 1 00001 SLW 1,1 06742 0600 00 1 00003 STZ 3,1 06743 0600 00 3 00003 STZ 3,3 06744 0737 00 2 00000 PAC ,2 06745 0771 00 0 00022 ARS 18 06746 0602 00 0 07013 SLW ENDI 06747 0020 00 0 06723 TRA INCJ 06750 0636 00 2 07010 CSRT2 SCA CSRT4,2 06751 -0500 00 4 00002 CAL 2,4 06752 -0340 00 2 00002 LAS 2,2 06753 0020 00 0 07010 TRA CSRT4 06754 0020 00 0 06756 TRA *+2 06755 0020 00 0 06736 TRA CSRT1 06756 -0500 00 4 00003 CAL 3,4 06757 -0340 00 2 00003 LAS 3,2 06760 0020 00 0 07010 TRA CSRT4 06761 0020 00 0 06763 TRA *+2 06762 0020 00 0 06736 TRA CSRT1 06763 -0500 00 2 00000 CAL 0,2 06764 0771 00 0 00017 ARS 15 06765 0602 00 0 07012 SLW CSRTT 06766 -0500 00 4 00000 CAL 0,4 06767 0737 00 4 00000 PAC ,4 06770 0771 00 0 00017 ARS 15 06771 -0340 00 0 07012 LAS CSRTT 06772 0020 00 0 07010 TRA CSRT4 06773 0020 00 0 06775 TRA *+2 06774 0020 00 0 06736 TRA CSRT1 06775 0756 00 2 00000 PCA ,2 06776 -0340 00 0 07013 LAS ENDI 06777 0020 00 0 07001 TRA *+2 07000 0020 00 0 07010 TRA CSRT4 07001 -0500 00 2 00000 CAL 0,2 07002 0737 00 2 00000 PAC ,2 07003 -0500 00 4 00001 CAL 1,4 07004 -0340 00 2 00001 LAS 1,2 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 60 07005 0020 00 0 07010 TRA CSRT4 07006 0020 00 0 06751 TRA CSRT2+1 07007 0020 00 0 06736 TRA CSRT1 07010 -0774 00 2 00000 CSRT4 AXC **,2 07011 0020 00 0 06723 TRA INCJ 07012 0 00000 0 00000 CSRTT 07013 0 00000 0 00000 ENDI 07014 0756 00 1 00000 INCI PCA ,1 07015 0402 00 0 07247 SUB ADDR2 07016 0100 00 0 07022 TZE CSRT3 07017 -0500 00 1 00000 CAL 0,1 07020 0737 00 1 00000 PAC ,1 07021 0020 00 0 06715 TRA NEWI 07022 -0774 00 3 00000 CSRT3 AXC **,3 07023 0020 00 0 00765 TRA ADDRES 07024 0 00000 0 00000 DOT 07025 0 00000 0 00000 CAPFLG 07026 PPPMT BSS 2 07030 TFLG BSS 2 07032 0 00000 0 00000 SFLG 07033 0 00000 0 00000 VFLG 07034 0 00000 0 00000 EFLG 07035 +000000000101 TYCHA OCT 101,1,141,1,107,2,147,2,123,3,163,3,124,4,164,4 07036 +000000000001 07037 +000000000141 07040 +000000000001 07041 +000000000107 07042 +000000000002 07043 +000000000147 07044 +000000000002 07045 +000000000123 07046 +000000000003 07047 +000000000163 07050 +000000000003 07051 +000000000124 07052 +000000000004 07053 +000000000164 07054 +000000000004 07055 +000000000000 OCT3 OCT 00,003003003003,003003003003,777777000000,777777000000 07056 +003003003003 07057 +003003003003 07060 -377777000000 07061 -377777000000 07062 +003000000000 OCT 003000000000,003000000000,575757575757,005700570057 07063 +003000000000 07064 -175757575757 07065 +005700570057 07065 SHFT SYN *-1 07066 0 00011 0 00004 PZE 4,,9 07067 0 00011 0 00004 PZE 4,,9 07070 0 00006 0 00006 PZE 6,,6 07071 0 00014 0 00003 PZE 3,,12 07071 RETRN SYN *-1 07072 0 00000 0 03022 PZE GFASCI 07073 0 00000 0 03011 PZE GFGE 07074 0 00000 0 03024 PZE GFSIX 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 61 07075 0 00000 0 03032 PZE GFTWLV 07076 0 00000 0 04307 PZE WRASCI 07077 0 00000 0 04306 PZE WRGE 07100 0 00010 0 04220 PZE WRSXTW,,8 07101 0 00000 0 04220 PZE WRSXTW,,0 07101 FNASUM SYN *-1 07102 602162233131 BCI 4, ASCII ERROR FAP(MEMO) 07103 602551514651 07104 606060262147 07105 744425444634 07106 DUP 1,5 07106 -0500 00 6 00001 CAL 01,6 07107 -0500 00 6 00001 07110 -0500 00 6 00001 07111 -0500 00 6 00001 07112 -0500 00 6 00001 07113 DUP 1,5 07113 -0500 00 6 00002 CAL 02,6 07114 -0500 00 6 00002 07115 -0500 00 6 00002 07116 -0500 00 6 00002 07117 -0500 00 6 00002 07120 DUP 1,5 07120 -0500 00 6 00003 CAL 03,6 07121 -0500 00 6 00003 07122 -0500 00 6 00003 07123 -0500 00 6 00003 07124 -0500 00 6 00003 07125 DUP 1,3 07125 -0500 00 6 00000 CAL 00,6 07126 -0500 00 6 00000 07127 -0500 00 6 00000 07130 CAL SYN * 07130 DUP 5,3 07130 0771 00 0 00034 ARS 28 07131 0771 00 0 00025 ARS 21 07132 0771 00 0 00016 ARS 14 07133 0771 00 0 00007 ARS 7 07134 0774 00 0 00000 AXT 00,0 07135 0771 00 0 00034 07136 0771 00 0 00025 07137 0771 00 0 00016 07140 0771 00 0 00007 07141 0774 00 0 00000 07142 0771 00 0 00034 07143 0771 00 0 00025 07144 0771 00 0 00016 07145 0771 00 0 00007 07146 0774 00 0 00000 07147 0771 00 0 00035 ARS 29 07150 0771 00 0 00026 ARS 22 07151 0771 00 0 00017 ARS 15 07152 ARS SYN * 07152 DUP 5,3 07152 0767 00 0 00034 ALS 28 07153 0767 00 0 00025 ALS 21 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 62 07154 0767 00 0 00016 ALS 14 07155 0767 00 0 00007 ALS 7 07156 0774 00 0 00000 AXT 00,0 07157 0767 00 0 00034 07160 0767 00 0 00025 07161 0767 00 0 00016 07162 0767 00 0 00007 07163 0774 00 0 00000 07164 0767 00 0 00034 07165 0767 00 0 00025 07166 0767 00 0 00016 07167 0767 00 0 00007 07170 0774 00 0 00000 07171 0767 00 0 00035 ALS 29 07172 0767 00 0 00026 ALS 22 07173 0767 00 0 00017 ALS 15 07174 ALS SYN * 07174 DUP 1,5 07174 -0602 00 2 00001 ORS 01,2 07175 -0602 00 2 00001 07176 -0602 00 2 00001 07177 -0602 00 2 00001 07200 -0602 00 2 00001 07201 DUP 1,5 07201 -0602 00 2 00002 ORS 02,2 07202 -0602 00 2 00002 07203 -0602 00 2 00002 07204 -0602 00 2 00002 07205 -0602 00 2 00002 07206 DUP 1,5 07206 -0602 00 2 00003 ORS 03,2 07207 -0602 00 2 00003 07210 -0602 00 2 00003 07211 -0602 00 2 00003 07212 -0602 00 2 00003 07213 DUP 1,3 07213 -0602 00 2 00000 ORS 00,2 07214 -0602 00 2 00000 07215 -0602 00 2 00000 07216 ORS SYN * 07216 0020 00 0 00014 TRA1 TRA BUF3 07217 0020 00 0 02121 TRA2 TRA FAIL 07220 0020 00 0 02241 TRA3 TRA XCHG 07221 0074 00 4 02137 TSX1 TSX NODE,4 07222 0074 00 4 02172 TSX2 TSX CNODE,4 07223 0074 00 2 00001 TSX3 TSX 1,2 07224 0074 00 4 02036 TSX4 TSX START,4 07225 0074 00 4 02076 TSX5 TSX FINISH,4 07226 -3 00000 1 02121 TXL1 TXL FAIL,1,** 07227 -3 77765 1 00017 TXL2 TXL BUF3+3,1,-11 07230 3 00000 1 02121 TXH1 TXH FAIL,1,** 07231 -0520 00 0 07233 NZT1 NZT FFLG 07232 0520 00 0 00000 ZET1 ZET 0 07233 0 00000 0 00000 FFLG 07234 0 00000 0 00000 IFLG 07235 0 00000 0 00000 INTFLG 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 63 07236 0 00000 0 00000 RFLG 07237 0 00000 0 00000 JFLG 07240 0 00000 0 00000 CPLFLG 07241 0 00000 0 00000 RECLEV 07242 0 00000 0 00000 BUFER 07243 0 00000 0 00000 BBASE 07244 0 00000 0 00000 INPUT 07245 0 00000 0 00000 IBASE 07246 0 00000 0 00000 ADDR1 07247 0 00000 0 00000 ADDR2 07250 0 00000 0 00000 ADDR3 07251 0 00000 0 00000 ZER 07252 +000000000200 B OCT 200 07253 +000000000200 V OCT 200 07254 +000000000200 E OCT 200 07255 +000000000043 A OCT 43 07256 +000000000200 W OCT 200 07257 +000000000100 Q OCT 100 07260 +000000000200 R OCT 200 07261 0 00000 0 00000 GOOD 07262 0 00000 0 00000 NSCHA 07263 0 00000 0 00000 SUBFLG 07264 0 00000 0 00000 COPY 07265 0 00000 0 00000 AFLG 07266 0 00000 0 00000 BFLG 07267 0 00000 0 00000 TRCFLG 07270 0 00000 0 00000 FMODE 07271 0 00000 0 00000 FBDFLG 07272 0 00000 0 00000 EXFLG 07273 0 00000 0 00000 SLCHR 07274 0 00000 0 00000 CFLG 07275 0 00000 0 00000 DFLG 07276 0 00000 0 00000 PAFLG 07277 0 00000 0 00000 PLFLG 07300 0 00000 0 00000 FILFLG 07301 0 00000 0 00000 PMTFLG 07302 0 00000 0 00000 ICFLG 07303 0101 00 0 11466 WHOAMI TIA =HWHOAMI 07304 0101 00 0 11440 GETIME TIA =HGETIME 07305 0101 00 0 11425 PERMIT TIA =HALLOW 07306 0101 00 0 11432 FORBID TIA =HFORBID 07307 0101 00 0 11436 GETCLS TIA =HGETCLS 07310 0101 00 0 11462 SETCLS TIA =HSETCLS 07311 0101 00 0 11435 GETCLC TIA =HGETCLC 07312 0101 00 0 11461 SETCLC TIA =HSETCLC 07313 0101 00 0 11443 NEXCOM TIA =HNEXCOM 07314 0101 00 0 11427 CHNCOM TIA =HCHNCOM 07315 0101 00 0 11437 GETCOM TIA =HGETCOM 07316 0101 00 0 11460 SETBRK TIA =HSETBRK 07317 0101 00 0 11434 GETBRK TIA =HGETBRK 07320 0101 00 0 11441 GETMEM TIA =HGETMEM 07321 0101 00 0 11431 DORMNT TIA =HDORMNT 07322 0101 00 0 11446 RDFLXA TIA =HRDFLXA 07323 0101 00 0 11470 WRFLX TIA =HWRFLX 07324 0101 00 0 11430 CLOSE TIA =HCLOSE 07325 0101 00 0 11444 OPEN TIA =HOPEN 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 64 07326 0101 00 0 11426 BUFFER TIA =HBUFFER 07327 0101 00 0 11447 RDWAIT TIA =HRDWAIT 07330 0101 00 0 11472 WRWAIT TIA =HWRWAIT 07331 0101 00 0 11465 TRFILE TIA =HTRFILE 07332 0101 00 0 11471 WRMESS TIA =HWRMESS 07333 0101 00 0 11467 WRFLXA TIA =HWRFLXA 07334 0101 00 0 11457 SETBCD TIA =HSETBCD 07335 0101 00 0 11463 SETFUL TIA =HSETFUL 07336 0101 00 0 11464 SETMEM TIA =HSETMEM 07337 +000000000000 FILNAM OCT 00,0 07340 +000000000000 07341 0774 00 0 00000 EVEN 07342 AC BSS 2 07344 BUF1 BSS 128 07544 BUF2 BSS 128 00014 BUF3 SYN QED 07744 BUF5 BSS 128 10144 BUF6 BSS 302 10622 BUF7 BSS 302 11300 SCHARS BSS 10 11312 +000000000000 SYLBUF OCT 00,0,0,0 11313 +000000000000 11314 +000000000000 11315 +000000000000 END LITERALS 11316 000000000000 11317 000000000001 11320 000000000002 11321 000000000003 11322 000000000004 11323 000000000006 11324 000000000011 11325 000000000012 11326 000000000015 11327 000000000016 11330 000000000017 11331 000000000030 11332 000000000031 11333 000000000033 11334 000000000034 11335 000000000035 11336 000000000036 11337 000000000037 11340 000000000040 11341 000000000041 11342 000000000046 11343 000000000047 11344 000000000052 11345 000000000054 11346 000000000055 11347 000000000056 11350 000000000057 11351 000000000060 11352 000000000061 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 65 11353 000000000064 11354 000000000070 11355 000000000077 11356 000000000120 11357 000000000123 11360 000000000132 11361 000000000141 11362 000000000142 11363 000000000144 11364 000000000154 11365 000000000156 11366 000000000160 11367 000000000162 11370 000000000167 11371 000000000174 11372 000000000177 11373 000000000200 11374 000000000201 11375 000000000377 11376 000000000400 11377 000000000454 11400 000000000600 11401 000000000624 11402 000000077774 11403 000000077777 11404 000000100000 11405 000000200000 11406 000000600060 11407 000005000000 11410 000005000001 11411 000100600060 11412 000200600060 11413 000300600060 11414 000400600060 11415 000500600060 11416 000600600060 11417 000700600060 11420 001000600060 11421 001100600060 11422 006200550060 11423 016200550060 11424 024000000000 11425 214343466660 11426 226426262551 11427 233045234644 11430 234346622560 11431 244651444563 11432 264651223124 11433 265146446060 11434 272563225142 11435 272563234323 11436 272563234362 11437 272563234644 11440 272563314425 11441 272563442544 11442 400000000000 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 66 11443 452567234644 11444 464725456060 11445 475146263143 11446 512426436721 11447 512466213163 11450 516060606060 11451 555560606060 11452 606060262147 11453 606060502524 11454 606060606060 11455 606064622551 11456 606651316325 11457 622563222324 11460 622563225142 11461 622563234323 11462 622563234362 11463 622563266443 11464 622563442544 11465 635126314325 11466 663046214431 11467 665126436721 11470 665126436760 11471 665144256262 11472 665166213163 11473 666060606060 11474 742631223460 11475 777777000000 11476 777777777777 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 1 POST PROCESSOR ASSEMBLY DATA 11477 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 7255 A 5106, 5214 7252 B 2374, 5100 7254 E 3210, 5111 7257 Q 5134, 5216 7260 R 2377, 5120 7253 V 2371, 5103, 5213 7256 W 5125, 5215 7342 AC 675, 676, 677, 706, 707, 710 3663 S1 3660, 3661 3617 S3 3625, 3634, 3640 3645 S4 3617 3705 S5 3612, 3654, 3655, 3700, 3703 3626 S6 3623, 3644 3635 S7 3624 3754 S8 3666, 3670, 3766, 4001 3756 S9 3665 1461 AD1 1450 7174 ALS 3261, 3274, 7174 1511 AN1 1437 7152 ARS 2456, 2613, 7152 2612 BC1 2606 2621 BC2 1057, 2462, 2464, 2540, 2542, 2544, 2573, 2576, 2600, 2617, 2626, 2636, 2655, 2657, 2661, 3605, 4560 5255, 5326, 5725, 5756, 6064, 6236 2634 BC3 2623 2641 BC4 1064, 1071, 2471, 2605 3066 BN1 3101 3075 BN2 3070, 3071, 3073 3102 BN3 3072 3105 BN6 3065, 3076, 3100, 3102 3103 BN7 3057, 3062, 3063, 3064 3314 BO1 3322 3323 BO2 3314 3371 BO3 3317 3376 BO4 3304, 3370 3400 BO5 3305, 3315, 3340 7130 CAL 2455, 2612, 7130 6211 CG1 6203, 6205 6236 CG2 6222 6244 CG3 6171 6250 CG4 6207, 6226 6223 CG5 6216 6167 CG6 6160 6214 CGC 6201, 6247 6234 CGF 6200 1463 CH1 1451, 1455, 1461, 1531 1500 CH2 1471 3417 CK1 3423 5032 CO1 5101, 5104, 5107, 5112, 5116, 5121, 5123, 5126, 5132, 5135, 5137, 5151, 5156, 5161, 5163, 5165, 5171 5172, 5176, 5207, 5211 5212 CO2 5034 5077 CO3 5045 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 2 POST PROCESSOR ASSEMBLY DATA 5102 CO4 5046 5105 CO5 5050 5110 CO6 5051 5113 CO7 5052 5117 CO8 5055 5122 CO9 5056 1635 COR 1563 7024 DOT 1031, 1100, 1251, 3236, 3300, 3307, 3346, 3374, 3401, 3442, 3452, 4462, 4531, 4534, 4605, 4607, 4777 5230, 5573, 6115, 6117, 6253, 6312, 6333 2733 FC1 152, 2670, 2723, 2731 3124 FN3 3136 FN4 3130, 3132, 3134, 3140, 3164, 3171, 3174 3144 FN5 3137, 3141, 3152, 3154, 3156 3157 FN6 3153, 3155 3175 FN7 3106, 3142 2266 GC0 6454, 6702 2300 GC1 2321, 2323 2350 GC4 2524, 2526 2345 GC5 721, 2262, 2265 2415 GC6 2403 2503 GC8 2444 2753 GF1 2741, 2743, 3010 2757 GF2 2701, 2737, 2756 2762 GF3 2703, 3046, 3054 2765 GF4 2672, 2673, 2763 3003 GF5 2751 3040 GF6 3031 3050 GF7 3026, 3035 3044 GF8 3017, 3021, 3023 1412 IL1 1401 1375 IL2 1365, 1370, 1372 74 IN1 102 102 IN2 65 155 IN3 145 1447 IO1 5114, 5130 1464 IO2 5115, 5131 1474 LP1 1454, 1460 750 MM1 724, 731 753 MM2 734 742 MM3 750 755 MM4 735 5012 MO1 4770, 4772 5027 MO2 4626, 4725, 4766, 5024, 5667, 5701 2141 NO1 1571, 2147, 2152, 2241, 2243 2147 NO2 2142 2157 NO3 2145 1542 OP0 1700, 1712, 1746, 2006 1544 OP1 1541, 1545, 1603 1557 OP2 1544 1504 OR1 1453 7216 ORS 3262, 3275, 7216 157 PM1 234 216 PM2 223, 225, 226 227 PM3 221 232 PM4 160 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 3 POST PROCESSOR ASSEMBLY DATA 235 PM5 155, 156 240 PMN 200, 205, 222, 250, 260, 262 3535 PR2 3543, 3562, 3563 3545 PR3 3507, 3547, 3561, 3565 3557 PR4 3553 3561 PR5 3551 3601 PR6 3502 3513 PR7 3504, 3522, 3524, 3564 3565 PR9 3516, 3572, 3574 3202 PU1 3303 3243 PU2 3272 3256 PU3 3267 3265 PU4 3201, 3202 3276 PU5 3177, 3212, 3214, 3216 3300 PU6 3264 3215 PU7 3207 3273 PU8 3260 14 QED 0, 674, 7744 2567 RE1 2527, 2562 1514 RP0 1452 1523 RP1 1457 1533 RP2 1520, 1522, 1525, 1527 3771 S10 3765 4004 S11 3764, 3777, 4000 4005 S12 3754, 3770, 4003 3717 S13 3710, 3711 3730 S16 3735, 3736, 3751 4007 S17 3715, 3723, 4022, 4102, 4115, 4124 4011 S18 3714 4053 S19 4020, 4021, 4045, 4051, 4056, 4077, 4123, 4125, 4135 4103 S20 4017, 4052, 4073, 4101 4104 S21 4007, 4062, 4067, 4122, 4130 4024 S22 4037 4032 S23 4023, 4035, 4040, 4043, 4046, 4074, 4076, 4126 4040 S24 4026 4106 S25 4061 4116 S26 4106, 4114, 4121, 4147 4126 S27 4065 4044 S28 4100 4122 S30 4113 4111 S31 4152 4131 S32 4071 4145 S33 4141 4135 S34 4144 1530 SL1 1443 1526 ST1 1456 3604 SUB 5511 5637 WR1 5621, 5623 5661 WR2 4231, 4251, 4275, 4306 5663 WR3 5613 4234 WR4 4230, 4232, 4307, 4310 4244 WR5 4236, 5606, 5657 4245 WR6 4234, 4255, 4314, 5610, 5611 4252 WR7 4223 4300 WR8 4267 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 4 POST PROCESSOR ASSEMBLY DATA 4322 WR9 4320 4216 WRX 4167, 4201, 4203 7251 ZER 142, 773, 1073, 1155, 1253, 1350, 2474, 3311, 3330, 3345, 3372, 3406, 4636, 5014, 5400, 5670, 5703 6354, 6517 1161 AAN1 1171 775 ADR1 1013, 1224, 1227, 1255 1222 ADV2 1014, 1020, 1022 1225 ADV3 1146, 1217, 1221 7265 AFLG 770, 1223, 1226, 3111, 3165, 3170, 3404, 3413, 3426, 3465, 3477, 4442, 4453, 4471, 4512, 4600, 4615 4761, 5030, 5033, 5223, 5370, 5413, 5601, 5664, 6121, 6130, 6146, 6243, 6260, 6330, 6347, 6470, 6710 1173 AREL 1066, 1077, 1102, 1156, 1164 7266 BFLG 771, 1230, 1235, 3112, 3157, 3173 4376 BOR1 4365, 4371, 4374 7344 BUF1 16, 17, 2267, 2270, 2302, 3510, 3546, 3555, 3557, 3570, 3600, 3673, 3675, 4033, 4042, 4047, 4117 4127, 4176, 4274, 4327, 4332, 4335, 4336, 4352, 4354, 4356, 4643, 4644, 4645, 4646, 4650, 4651, 4653 4654, 4660, 4663, 4666, 4671, 4674, 4677, 4702, 4703, 4705, 4706, 4710, 4732, 4753, 4757, 5344, 5735 5755, 5765, 5770, 5773, 5774, 5776, 6000, 6022, 6036, 6263, 6274, 6276, 6303, 6305, 6316, 6335, 6336 6337, 6340, 6341, 6342, 6343, 6357, 6360, 6400, 6404, 6410, 6414, 6420, 6427, 6430, 6431, 6433, 6435 6440, 6447, 6450, 6473, 6475, 6477, 6501, 6503, 6505, 6542, 6546, 6552, 6577, 6602, 6604, 6657, 6661 6663, 6665, 6667, 6670 7544 BUF2 1052, 1433, 1542, 1551, 1553, 1600, 1624, 1637, 1652, 1655, 1662, 1667, 1701, 1705, 1710, 1715, 1723 1741, 1751, 1755, 2013, 2015, 2032, 2034, 2071, 2115, 2143, 2153, 2155, 2157, 2170, 2201, 2203, 2205 2246, 2247, 2252, 2730, 2750, 2754, 3005, 3007, 3051, 3613, 3614, 3622, 3626, 3631, 3632, 3633, 3637 3651, 3664, 3720, 3733, 3740, 3756, 3760, 3761, 3771, 3772, 3776, 4011, 4013, 4014, 4024, 4030, 4036 4107, 4110, 4133, 4134, 4137, 4146, 4151, 4154, 4164, 4213, 4246, 4250, 4253, 4257, 4262, 4273, 4312 4316, 4620, 4622, 4623, 4641, 4655, 4712, 4714, 4716, 4720, 5507, 5514, 5516, 5517, 5522, 5536, 5565 6227, 6362, 6371 14 BUF3 162, 164, 166, 170, 172, 174, 202, 207, 211, 213, 230, 232, 255, 1053, 1054, 1056, 1573 1617, 1621, 1623, 1626, 1627, 1633, 1641, 1642, 1646, 1650, 1666, 1671, 1672, 1673, 1675, 1722, 1725 1726, 1727, 1733, 1735, 1736, 1743, 1744, 1754, 1767, 1773, 2000, 2010, 2012, 2021, 2025, 2027, 2721 5523, 5524, 5530, 5643, 6230, 6231, 6233, 7216, 7227, 7744 7744 BUF5 3620, 3627, 3635, 3642, 3650, 3652, 3731, 3737, 3746, 3750, 4054, 5466, 5471, 5533, 5547, 5562, 5564 5566 10144 BUF6 132, 134, 136, 2314, 2325, 2327, 2333, 2337, 2346 10622 BUF7 3517, 3527, 3531, 3535, 4540, 4551, 4556, 4574 1712 CAN1 1703, 1704, 1711 1701 CAND 1564 5723 CAU1 5715, 5720, 5731, 5747, 6030, 6045, 6101 5724 CAU2 5714, 6017, 6044, 6100 6020 CAU3 5730, 5736, 6025 6034 CAU4 5746, 6002, 6042 6050 CAU5 6027 1766 CCH1 1757, 1760, 1762, 1764 1771 CCH2 2035 2004 CCH3 2002, 2003, 2016, 2030 2017 CCHC 1763 2031 CCHL 1765 1747 CCHR 1566 2007 CCHZ 1761 6300 CCL1 6270, 6272 6306 CCL2 6277 6315 CCL3 4360, 4362, 6306, 6310, 6320, 6323 6313 CCL4 6257 1567 CEOF 1426, 1536, 1560 4342 CEQ1 4345 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 5 POST PROCESSOR ASSEMBLY DATA 4346 CEQ2 4343 7274 CFLG 2343, 2411, 2413, 2416, 2420, 6113 1603 CLFP 1562 3001 CLO1 2772 2772 CLOS 1377, 2764, 3110, 4323 6121 CNC1 6114 2175 CNO1 1570, 2200, 2253 2237 CNO3 2172, 2207, 2211 2214 CNO4 2235 2232 CNO5 2222, 2236 5124 CO10 5060 5127 CO11 5066 5133 CO12 5070 5136 CO13 5071 5140 CO14 5054 5162 CO15 5044 5164 CO16 5047 5166 CO17 5053, 5205 5206 CO18 5057 5210 CO19 5063 3465 COP1 5032, 5077, 5102, 5105, 5110, 5117, 5124, 5133, 5140, 5167 3477 COP2 3466, 3472 7264 COPY 37, 46, 130, 1466, 1500, 1511, 1515, 1524, 1550, 1607, 1612, 2102, 2107, 2161, 2164, 2714, 2732 2752, 2777, 3003, 5535, 5540, 5546, 5551, 5633, 5652 1667 COR1 1654, 1663 5240 CPR1 5226, 5231 5251 CPR2 5234, 5275, 5300, 5317 5252 CPR3 5233, 5316 5307 CPR4 5254, 5274 5322 CPR5 5236, 5246, 5336, 5353, 5365 5323 CPR6 5235, 5364 5342 CPR7 5335, 5337, 5347 5355 CPR8 5325, 5352 5245 CPR9 5242 6634 CRC1 6514, 6531, 6635 6526 CRC2 6534, 6537, 6612, 6624 6563 CRC3 6556, 6561, 6573 6543 CRC4 6560, 6562, 6567, 6571 6601 CRC5 6565 6625 CRC6 20, 6614, 6621, 6622, 6642, 6651, 6652 6631 CRC7 21, 6616, 6645 6604 CRC8 6525, 6575, 6605, 6607, 6637 6654 CRC9 6640 5404 CRD1 5411 5376 CRD2 151 1602 CRTP 1561 1713 CSTR 1565 6364 DBU1 6352, 6367, 6373, 6424 6374 DBU2 6363, 6372 3444 DEL1 3457 3460 DEL2 3454 3463 DEL3 3425 7275 DFLG 767, 1015, 1017, 1021, 1131, 1174, 1225 7034 EFLG 2536, 2602, 2604, 2634, 2641, 2665, 5253, 5324, 6004 7013 ENDI 6720, 6746, 6776 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 6 POST PROCESSOR ASSEMBLY DATA 2121 FAIL 2165, 2166, 5553, 5554, 7217, 7226, 7230 7233 FFLG 1041, 1045, 5502, 5506, 6214, 6220, 7231 4156 FRE0 4161 4165 FRE1 4153, 4155 2422 GC10 2352 2425 GC11 723, 1342, 2354 2402 GC12 2356, 2441 2366 GC13 2360 2442 GC14 2361, 2373 2371 GC15 2363, 2365, 2367 2444 GC16 2364, 2376 2506 GC17 2370, 2401 2505 GC81 2447, 2501 3011 GFGE 7073 7261 GOOD 4170, 4265, 4271, 5635 6425 ICOM 2275 7234 IFLG 1037, 1042, 1044, 1055, 1060, 1434, 1436, 1502, 1512, 5500, 5503, 5505, 5525, 6031, 6052, 6070, 6072 6073, 6107, 6212, 6215, 6217, 6232, 6245 56 INAR 27, 36 7014 INCI 6725 6723 INCJ 6734, 6747, 7011 713 INT1 700, 703 715 INT2 712 7237 JFLG 1040, 1435, 1470, 1472, 1475, 1477, 1505, 1507, 1533, 3615, 3645, 3647, 3727, 3743, 3745, 5232, 5260 5263, 5265, 5272, 5304, 5501, 5510, 5531, 5555, 5560, 5713, 5732, 5741, 5750, 5761, 6007, 6213, 6221 6234, 6246 4363 LEN1 4340 1416 MES1 1362, 1413 263 MES2 122 764 MES3 757 6455 MES5 6445 6460 MES6 6451 6715 NEWI 7021 2137 NODE 7221 1103 NUMB 1123, 1126, 1154 7231 NZT1 2007, 5127 7055 OCT3 2674, 2675, 3004, 4252, 4311, 5616, 5617 7325 OPEN 30, 2705, 5624 1200 REL1 1205 1207 REL2 1175, 1214 1216 REL3 1177 1220 REL4 1201, 1210 7236 RFLG 711, 717, 2263, 2342, 3511, 3602, 3671, 3674 7032 SFLG 3653, 5412, 5574, 5577 7065 SHFT 2676, 5605, 7066 2255 SIZ1 2264, 2313, 2317, 2326, 3525, 3530, 4545, 4552, 4554 2256 SIZ2 2330, 2334, 2340, 3532 1036 SRC1 1033, 1034 1041 SRC2 1030 1057 SRC3 1027 1067 SRC4 1051 5512 SUB1 5504 5570 SUB2 5420, 5521 5434 SUB3 5467 3752 SUB4 3604, 3616 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 7 POST PROCESSOR ASSEMBLY DATA 5555 SUB5 5532 5561 SUB6 5552 5502 SUBC 5431 5531 SUBF 5430, 5541, 5543 7030 TFLG 715, 1341, 2353, 2431, 2436, 2437, 2440, 2510, 2511, 2512 7216 TRA1 1631, 1644, 1665, 1731, 1752 7217 TRA2 1721, 2011 7220 TRA3 1577, 2202, 2251 1335 TRAP 1261, 1265, 1271, 1275, 1301, 1305, 1311, 1315, 1321 1361 TRP1 1337, 1346 1360 TRP2 1345, 1355 7221 TSX1 1766, 2026 7222 TSX2 1674, 1742 7223 TSX3 2140, 2174 7224 TSX4 1622 7225 TSX5 1620 7230 TXH1 1772 7226 TXL1 1777, 2024 7227 TXL2 2020 1237 UNK1 1231 1243 UNK2 1236 1252 UNK3 1245 4731 UPD1 4722, 4724, 4735 4744 UPD2 4730, 4734, 4742, 4746, 4760 7033 VFLG 720, 1447, 1464, 1530, 2257, 2355, 2442, 2704, 3061, 3067, 3206, 3721, 3724, 4565, 4570, 5435, 5716 5721 4323 WR10 4305 4271 WR11 4303 4304 WR12 4221 4225 WR13 5615 4306 WRGE 7077 2254 XCH2 1576 2241 XCHG 7220 2 ZCMD 4550 7232 ZET1 5113 1147 AANUM 1011 1012 ABLNK 1010 7246 ADDR1 1233, 1240, 3402, 3412, 3415, 3431, 3443, 3462, 3712, 4515, 4563, 4632, 4767, 5006, 5225, 5474, 5620 6124, 6202, 6241, 6714 7247 ADDR2 143, 1234, 1237, 1242, 3217, 3403, 3411, 3416, 3434, 3713, 4445, 4447, 4463, 4517, 4564, 4637, 4771 5227, 5372, 5374, 5416, 5472, 5622, 6123, 6204, 6242, 6264, 6311, 6332, 6724, 7015 7250 ADDR3 774, 1127, 1145, 1173, 1216, 1220, 1232, 1241, 1250, 1254 1073 ALAST 1006 1126 ANUMB 1005 1014 APLUS 1002 1023 ASRCH 1004 1230 AUNKN 1001 7243 BBASE 104, 3313, 3342, 3344, 6351 1420 BLINE 5575, 6137, 6655 3304 BOPEN 106, 141, 147, 1347, 1356, 2451, 2502, 4456, 4630, 4726, 5004, 5025, 5702, 6516, 6636 4365 BORCR 4444, 4460, 4602 7242 BUFER 103, 1343, 2445, 3306, 3323, 3335, 3375, 4624, 4764, 6353, 6512 4507 CAN01 5073, 6163 4510 CAN02 4505 3 CANON 2332 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 8 POST PROCESSOR ASSEMBLY DATA 4522 CCAN1 4516, 4520, 4572 4540 CCAN2 4526, 4530, 4542, 4544 4573 CCAN3 4557, 4567, 4576 4554 CCAN4 4535 CCAN8 4511 4546 CCAN9 4510 6255 CCOLN 4437 6146 CGLOB 4440 1537 CILAD 1462, 1506, 1521, 1602, 1604, 1716 4611 CLIST 4431 7324 CLOSE 47, 2773 4761 CMOVE 4415 6113 CNLCR 4423 2172 CNODE 7222 4325 CNVBD 4350, 5334, 5733, 5753, 6301 6257 COLN0 5075, 6255 5043 COLST 5042, 6167 5243 CPR10 5222 6130 CQUIT 4425 6574 CRCIC 6511 5370 CREAD 4417 6710 CSORT 4432 6736 CSRT1 6755, 6762, 6774, 7007 6750 CSRT2 6735, 7006 7022 CSRT3 6713, 7016 7010 CSRT4 6750, 6753, 6760, 6772, 7000, 7005 7012 CSRTT 6765, 6771 4441 CUNKN 4405 7272 EXFLG 4044, 4072, 5432, 5453 2135 FAIL1 2125, 2126 7270 FMODE 5166, 5201, 5204, 5630 4153 FREIT 3726, 3742 2353 GC10R 2422, 2424 2604 GETBC 1046, 1374, 2521, 4004, 4031, 4103, 4524, 4537, 5250, 5311, 5357, 5512, 5661, 6005, 6011, 6054, 6223 6526, 6553, 6572 3057 GETBN 2450, 4455, 4475, 4627, 5003, 5666, 6515 2737 GETFC 2677, 3012, 3015, 3043, 4613, 5377 3106 GETFN 2671, 5604 3024 GFSIX 7074 7245 IBASE 110, 1406, 2434, 2513 7302 ICFLG 6441, 6452, 6510, 6610, 6677, 6701 5 INESC 3526 7244 INPUT 107, 1403, 1411, 2530, 2551, 2645, 2650, 2653 7262 NSCHA 1445, 1611, 1616, 5437 1124 NUMB1 1104, 1111, 1112, 1120, 1121, 1122 1133 NUMB2 1137 1140 NUMB3 1132, 1144 1145 NUMB4 1133, 1140 7276 PAFLG 5147, 5154, 5157, 5247 7277 PLFLG 5150, 5155, 5160, 5245 7026 PPPMT 44, 53, 54, 6675, 6676 3502 PRINT 1373, 3667, 4361, 4612, 5241, 6307 7071 RETRN 2702, 5612, 7072 2527 SETBC 1035, 1353, 2477, 3662, 3716, 4521, 5237, 5476, 5636, 5677, 6210, 6522 3401 SETDD 3427, 4513, 4601, 4762, 5224, 5414 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 9 POST PROCESSOR ASSEMBLY DATA 2670 SETFC 154, 4611, 5375 3406 SETFL 150, 4443, 4631, 5005, 5371, 5602, 5710, 5712, 6147, 6261, 6331, 6711 7273 SLCHR 1024, 1441, 1517, 5425, 5463, 6175 2036 START 7224 5466 SUB31 5436 5460 SUB32 5447 5463 SUB33 5455, 5457, 5461 5446 SUB34 5440 3613 SUBP1 3702, 3704, 3730 3747 SUBP2 3741 1324 TRAP1 1260, 4502 1325 TRAP2 1264 1326 TRAP3 1270 1327 TRAP4 1274 1330 TRAP5 1300 1331 TRAP6 1304 1332 TRAP7 1310 1333 TRAP8 1314 1334 TRAP9 1320 7035 TYCHA 3115, 3122 1256 TYPE0 0, 1615, 2105, 2151, 2177, 2316, 3520, 5557 1260 TYPE1 1070, 1165, 1172 1264 TYPE2 1153, 4441, 4454, 4472, 4616, 5031, 5665, 6131, 6136, 6350, 6471 1270 TYPE3 1537 1274 TYPE4 716, 766, 3205, 5527 1300 TYPE5 1136, 1141, 1206, 1215, 5675, 5744 1304 TYPE6 3420 1310 TYPE7 2565 1314 TYPE8 2713, 5632 1320 TYPE9 3074, 3121, 3641, 3762, 3773, 4015, 4025, 4370, 4373, 4375, 4477, 4500, 4501, 5043, 5044, 5045, 5046 5050, 5051, 5052, 5053, 5055, 5056, 5057, 5060, 5061, 5062, 5063, 5064, 5065, 5066, 5067, 5070, 5071 5072, 5073, 5074, 5075, 5076, 5146, 5153, 5424, 5456, 6134, 6145, 6152, 6166, 6174 7323 WRFLX 121, 756, 1412, 1421, 6437, 6444 4203 WRITE 4240, 4321 1100 ACURNT 1007 765 ADDRES 127, 1072, 1357, 1415, 4324, 4452, 4457, 4466, 4470, 4503, 4506, 4610, 4614, 4727, 5026, 5217, 5221 5407, 5576, 5722, 6122, 6254, 6256, 6326, 6365, 6700, 6706, 7023 1436 ADVANC 1556, 1610, 1634 1015 AMINUS 1003 7326 BUFFER 2716, 5640 4442 CAPEND 4406 7025 CAPFLG 2351, 3133, 3135, 5122, 5136 5741 CAU2.1 5727 6004 CAU2.2 5745 6033 CAU3.1 6026 6047 CAU4.1 6043 6072 CAU5.1 6053 6104 CAU5.2 6056, 6057 6111 CAU5.3 6051, 6061, 6063, 6066, 6071, 6075, 6077, 6103, 6105, 6106 5664 CAUDIT 4436 6126 CBLANK 4424 4453 CBUFER 4407 4504 CCANON 4435 4460 CCHANG 4410 6703 CCOMNT 4434, 6705, 6707 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 10 POST PROCESSOR ASSEMBLY DATA 6347 CDBUFR 4427 4467 CDELET 4411 6325 CEQALS 4426 7314 CHNCOM 6143 4600 CINSRT 4414 3415 CKWRAP 3430, 4514, 4763, 5415, 5603, 6712 10 CNVTBL 23, 252, 775, 1106, 1150, 2310, 3027, 3036, 3144, 3537, 4224, 4400, 4737, 5036, 6153, 6544 5152 CO14.1 5143 5157 CO14.2 5144 4400 COMAND 1247, 6127 1426 COMPIL 1026, 5427, 6177 5030 COPTON 4430 7240 CPLFLG 1444, 1446, 1535, 1574, 2722, 5644 5263 CPR3.1 5257 5270 CPR3.2 5264 5274 CPR3.3 5262, 5306 5277 CPR3.4 5267 5303 CPR3.5 5277 5320 CPR4.1 5310, 5313, 5315 5354 CPR7.1 5350 5351 CPR7.2 5330 5366 CPR8.1 5356, 5361, 5363 5220 CPRINT 4416, 6120, 6125 6637 CRC1.1 6611 6677 CRC9.1 6673 6470 CRNCOM 4412, 6443 4471 CSTRAP 4433 5412 CSUBST 4420, 5600 4615 CUPDAT 4413 5577 CVERIF 4421 5601 CWRITE 4422 3425 DELETE 3725, 4461, 4467, 4571, 4635, 5011, 5047, 5711 7321 DORMNT 753 7 EKEDIT 2336 6327 EQALS0 5064, 6325 6345 EQALS1 6327 7271 FBDFLG 5162, 5164, 6442 7300 FILFLG 1376, 2715, 3000, 3107, 5634 7337 FILNAM 177, 204, 2707, 2710, 2717, 2720, 2725, 2726, 2745, 2746, 2774, 2775, 3125, 3126, 3161, 3162, 3163 3167, 3172, 4173, 4174, 4210, 4211, 5626, 5627, 5641, 5642, 5646, 5647 2105 FINIS1 2114 2115 FINIS2 2111 2117 FINIS3 2100 2076 FINISH 7225 7101 FNASUM 3124, 7102 7306 FORBID 6141, 6507 0 FREEDT 115 2473 GC16.1 2463, 2465 2474 GC16.2 2453, 2454, 2461, 2466, 2470, 2472 7317 GETBRK 702 2520 GETBUF 2261 2257 GETCHA 772, 1012, 1065, 1076, 1101, 1105, 1147, 1222, 1252, 1440, 1514, 2443, 2504, 2517, 2525, 3060, 3066 3113, 3136, 3151, 3467, 4366, 4451, 4465, 4473, 4504, 4604, 5421, 5434, 6126, 6132, 6150, 6162, 6172 6703 7311 GETCLC 6504 1 FAP ASSEMBLY LISTING ... ... ... FILE 0QED FAP 06/22/70 1518.5 PAGE 11 POST PROCESSOR ASSEMBLY DATA 7307 GETCLS 6472, 6474, 6476, 6500, 6502 7315 GETCOM 123, 175, 215 7304 GETIME 4621 7320 GETMEM 56, 725 3022 GFASCI 7072 3032 GFTWLV 7075 1363 ILLADD 1257, 1263, 1267, 1273, 1277, 1303, 1307, 1313, 1317, 1323 1 INITDT 24 3177 INSERT 144, 3722, 4450, 4464, 4566, 4603, 4723, 5376, 5717 7235 INTFLG 674, 762, 765, 1340, 1363, 2467, 3204, 5526 674 INTRUP 120, 705 4340 LENGTH 6344, 6423 724 MORMEM 2061, 2227, 2557, 3240, 3247, 3327, 3334, 3364 7313 NEXCOM 6623, 6653 1540 OPONST 1427, 1473, 1476, 1503, 1510, 1513, 1534, 1555, 1606, 1636, 1677, 1714, 1745, 1747, 2005 6 OUTESC 2324 7305 PERMIT 52, 6674 7301 PMTFLG 55, 6140, 6506, 6672 5222 PRINT0 5054, 5220 7322 RDFLXA 2266, 3672 7327 RDWAIT 40, 2724, 2744 7241 RECLEV 113, 1067, 1371, 1400, 1402, 2260, 2404, 2433, 2452, 2506, 2516, 2560, 2566, 2642, 2644 11300 SCHARS 1613, 4132, 5441 7334 SETBCD 6142, 6436 7316 SETBRK 117, 704 7312 SETCLC 6620, 6650, 6671 7310 SETCLS 6603, 6613, 6615, 6641, 6644, 6656, 6660, 6662, 6664, 6666 7335 SETFUL 116, 701, 1375, 6453, 6654 7336 SETMEM 72, 737 4 SETOPS 5212 4746 SPREAD 4642, 4713, 4715, 4717, 4721 2056 START0 2046 2065 START1 2041 2074 START2 2040 2071 START3 2052 2047 START4 2055 7263 SUBFLG 1025, 2036, 2076, 2121, 2206, 5426, 6176 11312 SYLBUF 2757, 2761 7267 TRCFLG 1364, 5206, 5210 7331 TRFILE 5645 7303 WHOAMI 15, 4617 4307 WRASCI 7076 7333 WRFLXA 3554, 3577 4167 WRITE1 4300, 4304 7332 WRMESS 6446 4220 WRSXTW 7100, 7101 7330 WRWAIT 4172, 4207 0 NO ERROR IN ABOVE ASSEMBLY. 1 06/22/70 1519.9 PAGE 1 00356 ENTRY SETOPS * SETOPS IS CALLED: * TSX SETOPS,4 * PZE ESCAPE * PZE ERASE * PZE WORD * PZE KILL * * ESCAPE, ERASE, WORD, AND KILL ARE LOCATIONS CONTAINING * ALTERNATE CHARACTERS FOR BOX-C, BOX-E, BOX-W AND BOX-K RESP. * 00204 ENTRY EKEDIT * * EKEDIT IS CALLED: * TSX EKEDIT,4 * PZE BUF+BUFSIZ-1 * PZE CHRCNT * PZE BUFSIZ * * BUF+BUFSIZ-1 IS THE HIGHEST CORE LOCATION OF * AN ARRAY. THIS LOCATION CONTAINS THE FIRST CHARACTER. * CHRCNT IS THE CHARACTER COUNT. THE LAST CHARACTER MUST * BE A CARRIAGE RETURN. * BUFSIZ IS THE SIZE OF THE BUFFER. * * ERASE AND KILL EDITING WILL BE PERFORMED ON THE CHARACTERS * IN THE BUFFER. ON RETURN, THE BUFFER WILL CONTAIN THE EDITED * CHARACTERS. CHRCNT WILL CONTAIN THE NEW COUNT. * 00003 ENTRY CANON * * CANON IS CALLED WITH THE SAME PARAMETERS AS EKEDIT. * * ON RETURN, THE BUFFER WILL CONTAIN THE CANONICALIZED LINE. * CHRCNT WILL CONTAIN THE SIZE OF THIS LINE. * TEST MACRO X IFF TFLG,1,1 TXH $TYPE0,X,300 END TEST * TRANSFER VECTOR 00000 637047250060 TYPE0 LINKAGE DIRECTOR 00001 000000000000 00002 622563464762 00001 TFLG SET 1 * 00003 0636 00 1 00175 CANON SCA XR,1 00004 0636 00 2 00176 SCA XR+1,2 00005 0636 00 3 00177 SCA XR+2,3 00006 0636 00 4 00200 SCA XR+3,4 00007 -0500 00 4 00001 CAL 1,4 1 06/22/70 1519.9 PAGE 2 00010 0621 00 0 00016 STA GET 00011 0621 00 0 00071 STA GET1 00012 0621 00 0 00042 STA PUT 00013 0774 00 2 00000 AXT 0,2 00014 0774 00 3 00000 AXT 0,3 * * PASS1 WILL PLACE THE VALUE OF THE CHARACTER * POSITION IN THE DECREMENT OF ALL CHARACTERS. BACK SPACE, * RETURN, AND CARRIAGE RETURN ARE REMOVED. * 00015 0774 00 4 00000 AXT 0,4 00016 -0500 00 2 00000 GET CAL **,2 00017 TEST 3 00020 1 00001 2 00021 TXI *+1,2,1 00021 TEST 2 00022 -0340 00 0 00377 LAS =O12 CARRIAGE RETURN 00023 0020 00 0 00033 TRA G1 00024 0020 00 0 00046 TRA PAS2 00025 -0340 00 0 00375 LAS =O10 BACK SPACE 00026 1 00001 4 00042 TXI PUT,4,1 00027 0020 00 0 00031 TRA *+2 00030 1 00001 4 00042 TXI PUT,4,1 00031 -3 00000 4 00016 TXL GET,4,0 00032 1 77777 4 00016 TXI GET,4,-1 00033 -0340 00 0 00400 G1 LAS =O15 RETURN 00034 1 00001 4 00037 TXI *+3,4,1 00035 0020 00 0 00015 TRA GET-1 00036 1 00001 4 00042 TXI PUT,4,1 00037 -0340 00 0 00405 LAS =O40 SPACE 00040 0020 00 0 00042 TRA PUT 00041 -0500 00 0 00406 CAL =O777 00042 0602 00 3 00000 PUT SLW **,3 00043 -0754 00 4 00000 PXD ,4 00044 -0602 60 0 00042 ORS* PUT 00045 1 00001 3 00016 TXI GET,3,1 * * PASS 2 WILL SORT THE CHARACTERS IN ORDER * WHILE MOVING THEM TO THE END OF THE BUFFER * 00046 -0500 00 0 00407 PAS2 CAL =O77777077777 00047 0522 00 0 00042 XEC PUT 00050 1 00001 3 00051 TXI *+1,3,1 00051 0522 00 0 00042 XEC PUT 00052 TEST 3 00053 0754 00 3 00000 PXA ,3 00054 0535 00 4 00200 LAC XR+3,4 00055 0402 60 4 00003 SUB* 3,4 00056 0734 00 3 00000 PAX ,3 00057 0634 00 3 00111 SXA PAS3,3 00060 0774 00 2 00000 AXT 0,2 00061 0754 00 2 00000 P2.1 PXA ,2 00062 0734 00 4 00000 PAX ,4 00063 1 00001 4 00064 TXI *+1,4,1 00064 TEST 3 00065 0522 00 0 00016 XEC GET 00066 -0340 00 0 00407 LAS =O77777077777 1 06/22/70 1519.9 PAGE 3 00067 0020 00 0 00071 TRA *+2 00070 0020 00 0 00111 TRA PAS3 00071 -0500 00 4 00000 GET1 CAL **,4 00072 TEST 4 00073 -0340 00 0 00407 LAS =O77777077777 00074 0020 00 0 00076 TRA *+2 00075 0020 00 0 00105 TRA P2.2 00076 -0340 60 0 00016 LAS* GET 00077 1 00001 4 00071 TXI GET1,4,1 00100 1 00001 4 00071 TXI GET1,4,1 00101 0560 60 0 00016 LDQ* GET 00102 0602 60 0 00016 SLW* GET 00103 -0600 60 0 00071 STQ* GET1 00104 1 00001 4 00071 TXI GET1,4,1 00105 0522 00 0 00016 P2.2 XEC GET 00106 0522 00 0 00042 XEC PUT 00107 1 00001 2 00110 TXI *+1,2,1 00110 1 00001 3 00061 TXI P2.1,3,1 * * PASS 3 WILL MOVE THE CHARACTERS BACK TO THE TOP * OF THE BUFFER WHILE INSERTING NEEDED BACK SPACES. * OVER-STRUCK SPACES ARE REMOVED ALSO. THE CARRIAGE RETURN * IS REINSTATED AT THE END * 00111 0774 00 2 00000 PAS3 AXT **,2 00112 0522 00 0 00042 XEC PUT 00113 0600 00 0 00203 STZ POSIT 00114 0774 00 3 00000 AXT 0,3 00115 0522 00 0 00016 P3.1 XEC GET 00116 TEST 3 00117 -0340 00 0 00407 LAS =O77777077777 00120 0020 00 0 00122 TRA *+2 00121 0020 00 0 00157 TRA P3.4 00122 0771 00 0 00022 ARS 18 00123 -0340 00 0 00203 LAS POSIT 00124 0020 00 0 00126 TRA *+2 00125 0020 00 0 00137 TRA P3.2 00126 0602 00 0 00203 SLW POSIT 00127 0522 00 0 00016 XEC GET 00130 -0320 00 0 00406 ANA =O777 00131 -0340 00 0 00406 LAS =O777 00132 1 00001 2 00135 TXI *+3,2,1 00133 -0500 00 0 00405 CAL =O40 SPACE 00134 1 00001 2 00135 TXI *+1,2,1 00135 0522 00 0 00042 XEC PUT 00136 1 00001 3 00115 TXI P3.1,3,1 00137 -0500 00 0 00375 P3.2 CAL =O10 BACK SPACE 00140 0522 00 0 00042 XEC PUT 00141 0522 00 0 00016 XEC GET 00142 -0320 00 0 00406 ANA =O777 00143 1 77777 3 00144 TXI *+1,3,-1 00144 -0340 60 0 00042 LAS* PUT 00145 1 00002 3 00150 TXI *+3,3,2 00146 1 00001 3 00156 TXI P3.3,3,1 00147 1 00002 3 00150 TXI *+1,3,2 00150 -0340 00 0 00406 LAS =O777 1 06/22/70 1519.9 PAGE 4 00151 1 00001 2 00154 TXI *+3,2,1 00152 1 77777 3 00156 TXI P3.3,3,-1 00153 1 00001 2 00154 TXI *+1,2,1 00154 0522 00 0 00042 XEC PUT 00155 1 00001 3 00115 TXI P3.1,3,1 00156 1 00001 2 00115 P3.3 TXI P3.1,2,1 00157 -3 00000 3 00171 P3.4 TXL P3.5,3,0 00160 1 77777 3 00161 TXI *+1,3,-1 00161 -0500 60 0 00042 CAL* PUT 00162 -0340 00 0 00405 LAS =O40 SPACE 00163 1 00001 3 00171 TXI P3.5,3,1 00164 0020 00 0 00157 TRA P3.4 00165 -0340 00 0 00376 LAS =O11 TAB 00166 1 00001 3 00171 TXI P3.5,3,1 00167 0020 00 0 00157 TRA P3.4 00170 1 00001 3 00171 TXI P3.5,3,1 00171 -0500 00 0 00377 P3.5 CAL =O12 CARRIAGE RETURN 00172 0522 00 0 00042 XEC PUT 00173 1 00001 3 00174 TXI *+1,3,1 00174 0754 00 3 00000 PXA ,3 00175 -0774 00 1 00000 XR AXC **,1 00176 -0774 00 2 00000 AXC **,2 00177 -0774 00 3 00000 AXC **,3 00200 -0774 00 4 00000 AXC **,4 00201 0602 60 4 00002 SLW* 2,4 00202 0020 00 4 00004 TRA 4,4 * * 00203 0 00000 0 00000 POSIT 00204 0636 00 1 00175 EKEDIT SCA XR,1 00205 0636 00 2 00176 SCA XR+1,2 00206 0636 00 3 00177 SCA XR+2,3 00207 0636 00 4 00200 SCA XR+3,4 00210 -0500 00 4 00001 CAL 1,4 00211 0621 00 0 00217 STA EGET 00212 0621 00 0 00253 STA EPUT 00213 0400 00 0 00374 ADD =1 00214 0621 00 0 00260 STA EGET1 00215 0774 00 2 00000 AXT 0,2 00216 0774 00 3 00000 AXT 0,3 00217 -0500 00 2 00000 EGET CAL **,2 00220 TEST 3 00221 1 00001 2 00222 TXI *+1,2,1 00222 -0340 00 0 00401 LAS =O31 00223 0020 00 0 00225 TRA *+2 00224 0020 00 0 00352 TRA ABS 00225 -0340 00 0 00372 LAS V 00226 0020 00 0 00230 TRA *+2 00227 0020 00 0 00352 TRA ABS 00230 -0340 00 0 00403 LAS =O35 (KIL) 00231 0020 00 0 00237 TRA EK1 00232 0020 00 0 00276 TRA KILL 00233 -0340 00 0 00402 LAS =O32 (EAS) 00234 0020 00 0 00242 TRA EK2 00235 0020 00 0 00261 TRA ERAS 00236 0020 00 0 00242 TRA EK2 1 06/22/70 1519.9 PAGE 5 00237 -0340 00 0 00404 EK1 LAS =O37 (WRD) 00240 0020 00 0 00242 TRA EK2 00241 0020 00 0 00264 TRA WORD 00242 -0340 00 0 00370 EK2 LAS E 00243 0020 00 0 00245 TRA *+2 00244 0020 00 0 00261 TRA ERAS 00245 -0340 00 0 00371 LAS W 00246 0020 00 0 00250 TRA *+2 00247 0020 00 0 00264 TRA WORD 00250 -0340 00 0 00367 LAS K 00251 0020 00 0 00253 TRA *+2 00252 0020 00 0 00276 TRA KILL 00253 0602 00 3 00000 EPUT SLW **,3 00254 -0340 00 0 00377 LAS =O12 CARRIAGE RETURN 00255 1 00001 3 00217 TXI EGET,3,1 00256 1 00001 3 00174 TXI XR-1,3,1 00257 1 00001 3 00217 TXI EGET,3,1 00260 -0500 00 3 00000 EGET1 CAL **,3 * 00261 0074 00 4 00302 ERAS TSX FOR,4 00262 0074 00 4 00312 TSX BAK,4 00263 0020 00 0 00217 TRA EGET * 00264 0074 00 4 00302 WORD TSX FOR,4 00265 0074 00 4 00312 TSX BAK,4 00266 0522 00 0 00260 XEC EGET1 00267 -0340 00 0 00405 LAS =O40 SPACE 00270 0020 00 0 00264 TRA WORD 00271 0020 00 0 00217 TRA EGET 00272 -0340 00 0 00376 LAS =O11 TAB 00273 0020 00 0 00264 TRA WORD 00274 0020 00 0 00217 TRA EGET 00275 0020 00 0 00264 TRA WORD * 00276 0074 00 4 00302 KILL TSX FOR,4 00277 0074 00 4 00312 TSX BAK,4 00300 0774 00 3 00000 AXT 0,3 00301 0020 00 0 00217 TRA EGET * 00302 0600 00 0 00373 FOR STZ MFLG 00303 0522 00 0 00217 XEC EGET 00304 -0340 00 0 00375 LAS =O10 BACK SPACE 00305 0020 00 4 00001 TRA 1,4 00306 0020 00 0 00310 TRA *+2 00307 0020 00 4 00001 TRA 1,4 00310 -0625 00 0 00373 STL MFLG 00311 1 00002 2 00303 TXI FOR+1,2,2 * 00312 -3 00000 3 00217 BAK TXL EGET,3,0 00313 0522 00 0 00260 XEC EGET1 00314 -0340 00 0 00375 LAS =O10 BACK SPACE 00315 0020 00 0 00322 TRA BAK1 00316 0020 00 0 00320 TRA *+2 00317 0020 00 0 00322 TRA BAK1 00320 -0625 00 0 00373 STL MFLG 00321 1 77776 3 00312 TXI BAK,3,-2 1 06/22/70 1519.9 PAGE 6 00322 0520 00 0 00373 BAK1 ZET MFLG 00323 0020 00 4 00001 TRA 1,4 00324 1 77777 3 00325 TXI *+1,3,-1 00325 -0340 00 0 00405 LAS =O40 SPACE 00326 0020 00 0 00333 TRA BAK3 00327 0020 00 0 00341 TRA BAK2 00330 -0340 00 0 00376 LAS =O11 TAB 00331 0020 00 0 00333 TRA BAK3 00332 0020 00 0 00341 TRA BAK2 00333 -3 00000 3 00217 BAK3 TXL EGET,3,0 00334 0522 00 0 00260 XEC EGET1 00335 -0340 00 0 00375 LAS =O10 BACK SPACE 00336 0020 00 4 00001 TRA 1,4 00337 1 77776 3 00333 TXI BAK3,3,-2 00340 0020 00 4 00001 TRA 1,4 00341 -3 00000 3 00217 BAK2 TXL EGET,3,0 00342 0522 00 0 00260 XEC EGET1 00343 -0340 00 0 00405 LAS =O40 SPACE 00344 0020 00 4 00001 TRA 1,4 00345 1 77777 3 00341 TXI BAK2,3,-1 00346 -0340 00 0 00376 LAS =O11 TAB 00347 0020 00 4 00001 TRA 1,4 00350 1 77777 3 00341 TXI BAK2,3,-1 00351 0020 00 4 00001 TRA 1,4 * 00352 0522 00 0 00253 ABS XEC EPUT 00353 1 00001 3 00354 TXI *+1,3,1 00354 0522 00 0 00217 XEC EGET 00355 1 00001 2 00253 TXI EPUT,2,1 * 00356 -0500 60 4 00001 SETOPS CAL* 1,4 00357 0602 00 0 00372 SLW V 00360 -0500 60 4 00002 CAL* 2,4 00361 0602 00 0 00370 SLW E 00362 -0500 60 4 00003 CAL* 3,4 00363 0602 00 0 00371 SLW W 00364 -0500 60 4 00004 CAL* 4,4 00365 0602 00 0 00367 SLW K 00366 0020 00 4 00005 TRA 5,4 * 00367 +000000000100 K OCT 100 COMMERCIAL AT 00370 +000000000043 E OCT 43 NUMBER 00371 +000000000200 W OCT 200 NOT PRE-DEFINED 00372 +000000000200 V OCT 200 NOT PRE-DEFINED 00373 0 00000 0 00000 MFLG END LITERALS 00374 000000000001 00375 000000000010 00376 000000000011 00377 000000000012 00400 000000000015 00401 000000000031 00402 000000000032 00403 000000000035 1 06/22/70 1519.9 PAGE 7 00404 000000000037 00405 000000000040 00406 000000000777 00407 077777077777 1 06/22/70 1519.9 PAGE 1 POST PROCESSOR ASSEMBLY DATA 410 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 370 E 242, 361 367 K 250, 365 372 V 225, 357 371 W 245, 363 33 G1 23 175 XR 3, 4, 5, 6, 54, 204, 205, 206, 207, 256 352 ABS 224, 227 312 BAK 262, 265, 277, 321 237 EK1 231 242 EK2 234, 236, 240 302 FOR 261, 264, 276, 311 16 GET 10, 31, 32, 35, 45, 65, 76, 101, 102, 105, 115, 127, 141 42 PUT 12, 26, 30, 36, 40, 44, 47, 51, 106, 112, 135, 140, 144, 154, 161, 172 322 BAK1 315, 317 341 BAK2 327, 332, 345, 350 333 BAK3 326, 331, 337 217 EGET 211, 255, 257, 263, 271, 274, 301, 303, 312, 333, 341, 354 253 EPUT 212, 352, 355 261 ERAS 235, 244 71 GET1 11, 77, 100, 103, 104 276 KILL 232, 252 373 MFLG 302, 310, 320, 322 61 P2.1 110 105 P2.2 75 115 P3.1 136, 155, 156 137 P3.2 125 156 P3.3 146, 152 157 P3.4 121, 164, 167 171 P3.5 157, 163, 166, 170 46 PAS2 24 111 PAS3 57, 70 1 TFLG 3 264 WORD 241, 247, 270, 273, 275 3 CANON 0 260 EGET1 214, 266, 313, 334, 342 203 POSIT 113, 123, 126 0 TYPE0 17, 21, 52, 64, 72, 116, 220 204 EKEDIT 0 356 SETOPS 0 0 NO ERROR IN ABOVE ASSEMBLY. 1 06/22/70 1520.3 PAGE 1 00400 ENTRY DEVTBL * DEVTBL IS CALLED: * TSX DEVTBL,4 * PZE DEVM37 * PZE DEV50C * PZE DEV50M * PZE DEVM35 * * ALL PARAMETERS ARE BASE LOCATIONS OF 128 WORD DEVICE * TABLES. THE DEVICE TABLES ARE OUTSIDE THE ESCAPE * ROUTINE SINCE THEY ARE ONLY REFERENCED ONCE. AFTER * THE CALL TO DEVTBL, THE SPACE IN THE DEVICE TABLES * CAN BE USED FOR OTHER THINGS. * * DEVTBL CALLS WHOAMI TO DETERMINE THE USERS DEVICE. IT THEN * COPIES THE CORRECT DEVICE TABLE INTO ITS INTERNAL DEVICE * TABLE. THIS DEVICE TABLE IS LOCATED AT DEVTBL. THIS MEANS * THAT DEVTBL CAN ONLY BE CALLED ONCE. AFTER THAT THE * ENTRY DEVTBL IS THE BASE LOCATION OF THE CORRECT DEVICE TABLE. * 00003 ENTRY OUTESC * * OUTESC IS CALLED: * TSX OUTESC,4 * PZE IBUF+IBSIZ-1 * PZE ICCNT * PZE OBUF+OBSIZ-1 * PZE OCCNT * PZE OBSIZ * * IBUF CONTAINS THE CHARACTERS THAT ARE TO HAVE ESCAPES * REMOVED. OBUF WILL CONTAIN THE CHARACTERS WITH * THE ESCAPES REMOVED. OBUF AND IBUF CAN BE THE SAME. * ICCNT CONTAINS THE NUMBER OF CHARACTERS IN IBUF. * OCCNT IS SET TO THE NUMBER OF CHARACTERS IN OBUF. * THE LAST CHARACTER IN IBUF MUST BE A CARRIAGE RETURN. * 00157 ENTRY INESC * * INESC IS CALLED THE SAME WAY AS OUTESC. * * INESC WILL PUT ESCAPES IN OBUF AND SET OCCNT. * * THE DEVICE TABLE MACRO FOLLOWS: *DEVTBL MACRO A,B,C,D,E,F * VFD O8/A,O8/B,2/C,2/D,O8/E,O8/F * END DEVTBL * * THE DEVICE TABLE DRIVES THE ESCAPE PROGRAM * THE FORM OF THE DEVICE TABLE IS: * A,B,C * * A IS 8 BITS VALUE: * 0-177 STRICT CONVERSION OF CHARACTERS * 200 NOT ALLOWED * 201 CMFLEX TO ESCAPE NEXT 1 06/22/70 1520.3 PAGE 2 * 202 ALPHABET FOR M35,33 TO BE CASED * 203 CARRIAGE RETURN * * B IS 8 BITS: VALUE * 0-177 STRICT CONVERSION OF ESC CHARS * 200 NOT ALLOWED * 201 CFLEX * 202 LOWER SHIFT * 203 UPPER SHIFT * 204 0-7 FOR OCTAL ESC * * C IS 2 BITS: VALUE * 0 ( FOR LBK * 1 ) FOR RBK * 2 0-9 FOR LOCAL SHIFT * 3 UNKNOWN * TEST MACRO X IFF TFLG,1,1 TXH $TYPE0,X,300 END TEST * TRANSFER VECTOR 00000 637047250060 TYPE0 LINKAGE DIRECTOR 00001 000000000000 00002 242565632243 00001 TFLG SET 1 * 00003 0636 00 1 00037 OUTESC SCA XR,1 00004 0636 00 2 00040 SCA XR+1,2 00005 0636 00 3 00041 SCA XR+2,3 00006 0636 00 4 00042 SCA XR+3,4 00007 -0500 00 4 00001 CAL 1,4 00010 0621 00 0 00015 STA GET 00011 -0500 00 4 00003 CAL 3,4 00012 0621 00 0 00026 STA PUT 00013 0774 00 2 00000 AXT 0,2 GET COUNT 00014 0774 00 3 00000 AXT 0,3 PUT COUNT * 00015 -0500 00 2 00000 GET CAL **,2 00016 TEST 3 00017 1 00001 2 00020 TXI *+1,2,1 00020 0737 00 1 00000 PAC ,1 00021 -0500 00 1 00400 CAL DEVTBL,1 00022 0771 00 0 00034 ARS 28 00023 -0340 00 0 00635 LAS =O200 00024 0737 00 4 00000 PAC ,4 00025 0020 00 4 77627 TRA SWITCH-129,4 00026 0602 00 3 00000 PUT SLW **,3 00027 1 00001 3 00015 TXI GET,3,1 * 00030 0020 00 0 00062 SWITCH TRA CMFLX 1 06/22/70 1520.3 PAGE 3 00031 0020 00 0 00045 TRA ALPH 00032 0020 00 0 00033 TRA CRET * 00033 0756 00 1 00000 CRET PCA ,1 00034 0522 00 0 00026 XEC PUT 00035 1 00001 3 00036 TXI *+1,3,1 00036 0754 00 3 00000 PXA ,3 00037 -0774 00 1 00000 XR AXC **,1 00040 -0774 00 2 00000 AXC **,2 00041 -0774 00 3 00000 AXC **,3 00042 -0774 00 4 00000 AXC **,4 00043 0602 60 4 00004 SLW* 4,4 00044 0020 00 4 00006 TRA 6,4 * 00045 0520 00 0 00607 ALPH ZET FLIP 00046 0020 00 0 00053 TRA ALP1 00047 0756 00 1 00000 PCA ,1 00050 -0520 00 0 00606 NZT CAPFLG 00051 0400 00 0 00624 ADD =O40 00052 0020 00 0 00026 TRA PUT 00053 0500 00 0 00607 ALP1 CLA FLIP 00054 0402 00 0 00612 SUB =1 00055 0601 00 0 00607 STO FLIP 00056 0756 00 1 00000 PCA ,1 00057 0520 00 0 00606 ZET CAPFLG 00060 0400 00 0 00624 ADD =O40 00061 0020 00 0 00026 TRA PUT * 00062 0522 00 0 00015 CMFLX XEC GET 00063 0737 00 1 00000 PAC ,1 00064 -0500 00 1 00400 CAL DEVTBL,1 00065 0771 00 0 00024 ARS 20 00066 -0320 00 0 00637 ANA =O377 00067 -0340 00 0 00635 LAS =O200 00070 0737 00 4 00000 PAC ,4 00071 0020 00 4 77675 TRA SW1-129,4 00072 -0340 00 0 00623 LAS =O12 00073 1 00001 2 00026 TXI PUT,2,1 00074 0020 00 0 00016 TRA GET+1 00075 1 00001 2 00026 TXI PUT,2,1 * 00076 1 00001 2 00137 SW1 TXI CFXCFX,2,1 00077 0020 00 0 00102 TRA CLOWER 00100 0020 00 0 00104 TRA CUPPER 00101 1 00001 2 00106 TXI COCTL,2,1 * 00102 0600 00 0 00606 CLOWER STZ CAPFLG 00103 1 00001 2 00015 TXI GET,2,1 00104 -0625 00 0 00606 CUPPER STL CAPFLG 00105 1 00001 2 00015 TXI GET,2,1 * 00106 0522 00 0 00015 COCTL XEC GET 00107 1 00060 1 00110 TXI *+1,1,48 00110 0074 00 4 00115 TSX CHECK,4 00111 0522 00 0 00015 XEC GET 00112 0074 00 4 00115 TSX CHECK,4 1 06/22/70 1520.3 PAGE 4 00113 -0320 00 0 00634 ANA =O177 00114 0020 00 0 00026 TRA PUT 00115 1 77777 4 00116 CHECK TXI *+1,4,-1 00116 0636 00 4 00134 SCA CH1,4 00117 -0340 00 0 00627 LAS =O70 00120 0020 00 0 00135 TRA CH2 00121 0020 00 0 00135 TRA CH2 00122 -0340 00 0 00625 LAS =O57 00123 0020 00 0 00126 TRA *+3 00124 0020 00 0 00135 TRA CH2 00125 0020 00 0 00135 TRA CH2 00126 0402 00 0 00626 SUB =O60 00127 0602 00 0 00375 SLW T1 00130 0756 00 1 00000 PCA ,1 00131 0767 00 0 00003 ALS 3 00132 -0501 00 0 00375 ORA T1 00133 0737 00 1 00000 PAC ,1 00134 1 00001 2 00000 CH1 TXI **,2,1 00135 0756 00 1 00000 CH2 PCA ,1 00136 0020 00 0 00026 TRA PUT * 00137 0522 00 0 00015 CFXCFX XEC GET 00140 0737 00 1 00000 PAC ,1 00141 -0500 00 1 00400 CAL DEVTBL,1 00142 0771 00 0 00022 ARS 18 00143 -0320 00 0 00614 ANA =O3 00144 0737 00 4 00000 PAC ,4 00145 0522 00 4 00147 XEC SW2,4 00146 1 00001 2 00026 TXI PUT,2,1 * 00147 -0500 00 0 00630 SW2 CAL =O133 00150 -0500 00 0 00631 CAL =O135 00151 1 00060 1 00155 TXI FLIPIT,1,48 00152 0020 00 0 00153 TRA *+1 UNK 00153 -0500 00 0 00376 CAL ESC BACK SLASH 00154 0020 00 0 00026 TRA PUT * 00155 0636 00 1 00607 FLIPIT SCA FLIP,1 00156 1 00001 2 00015 TXI GET,2,1 * * * * INESC HAS 18 BITS IN DEVTBL OF FORM D,E,F * * * D IS 2 BITS NOT USED * * E IS 8 BITS VALUE: * 0-177 STRICT CONVERSION IF NEED ESC * * F IS 8 BITS VALUE: * 0-177 STRICT CONVERSION * 200 NOT ALLOWED * 201 ESCAPED FROM D * 202 UPPER CASE ALPHABETIC ON M33,35 * 203 LOWER CASE ALPHABETIC ON M33,35 1 06/22/70 1520.3 PAGE 5 * 204 OCTAL ESCAPE * 205 CARRIAGE RETURN * 206 SPACE * 207 TAB * 210 NONPRINTING CHARS * 211 BACKSPACE * 00157 0636 00 1 00037 INESC SCA XR,1 00160 0636 00 2 00040 SCA XR+1,2 00161 0636 00 3 00041 SCA XR+2,3 00162 0636 00 4 00042 SCA XR+3,4 00163 -0500 00 4 00001 CAL 1,4 00164 0621 00 0 00015 STA GET 00165 -0500 00 4 00003 CAL 3,4 00166 0621 00 0 00026 STA PUT 00167 -0500 60 4 00005 CAL* 5,4 00170 0734 00 3 00000 PAX ,3 00171 -0500 60 4 00002 CAL* 2,4 00172 0734 00 2 00000 PAX ,2 00173 0600 00 0 00374 STZ BFLG 00174 0500 00 0 00612 CLA =1 00175 0601 00 0 00373 STO POSIT 00176 1 77777 3 00177 INES1 TXI *+1,3,-1 00177 1 77777 2 00200 TXI *+1,2,-1 00200 TEST 3 00201 0522 00 0 00015 XEC GET 00202 0522 00 0 00026 XEC PUT 00203 3 00000 2 00176 TXH INES1,2,0 00204 0754 00 3 00000 PXA ,3 00205 0734 00 2 00000 PAX ,2 00206 0774 00 3 00000 AXT 0,3 00207 0522 00 0 00015 IGET XEC GET 00210 TEST 3 00211 1 00001 2 00212 TXI *+1,2,1 00212 0737 00 1 00000 IN1 PAC ,1 00213 -0500 00 1 00400 CAL DEVTBL,1 00214 -0320 00 0 00637 ANA =O377 00215 -0340 00 0 00635 LAS =O200 00216 0737 00 4 00000 PAC ,4 00217 0020 00 4 00022 TRA ISWIT-129,4 00220 0600 00 0 00374 IN2 STZ BFLG 00221 0522 00 0 00026 XEC PUT 00222 1 00001 3 00207 TXI IGET,3,1 * 00223 0020 00 0 00314 ISWIT TRA ICMFLX 00224 0020 00 0 00323 TRA IUCASE 00225 0020 00 0 00336 TRA ILCASE 00226 0020 00 0 00351 TRA IOCTL 00227 0020 00 0 00302 TRA ICRET 00230 0020 00 0 00246 TRA IBLANK 00231 0020 00 0 00274 TRA ITAB 00232 0020 00 0 00234 TRA INOSP 00233 0020 00 0 00241 TRA IBKSP * 00234 0500 00 0 00373 INOSP CLA POSIT 00235 0400 00 0 00622 ADD =9 1 06/22/70 1520.3 PAGE 6 00236 0601 00 0 00373 STO POSIT 00237 0756 00 1 00000 PCA ,1 00240 0020 00 0 00220 TRA IN2 * 00241 0500 00 0 00373 IBKSP CLA POSIT 00242 0400 00 0 00621 ADD =8 00243 0601 00 0 00373 STO POSIT 00244 0756 00 1 00000 PCA ,1 00245 0020 00 0 00220 TRA IN2 * 00246 0754 00 3 00000 IBLANK PXA ,3 00247 0400 00 0 00373 ADD POSIT 00250 0131 00 0 00000 XCA 00251 -0754 00 0 00000 ZAC 00252 0221 00 0 00623 DVP =10 00253 0100 00 0 00262 TZE IB1 00254 0520 00 0 00374 ZET BFLG 00255 0020 00 0 00260 TRA *+3 00256 0634 00 3 00374 SXA BFLG,3 00257 -0636 00 4 00374 SCD BFLG,4 00260 -0500 00 0 00624 CAL =O40 BLANK 00261 0020 00 0 00221 TRA IN2+1 00262 0520 00 0 00374 IB1 ZET BFLG 00263 0020 00 0 00266 TRA *+3 00264 -0500 00 0 00624 CAL =O40 00265 0020 00 0 00220 TRA IN2 00266 -0636 00 0 00374 SCD BFLG,0 00267 0754 00 3 00000 PXA ,3 00270 0402 00 0 00374 SUB BFLG 00271 0400 00 0 00373 ADD POSIT 00272 0601 00 0 00373 STO POSIT 00273 0534 00 3 00374 LXA BFLG,3 00274 0754 00 3 00000 ITAB PXA ,3 00275 -0760 00 0 00003 SSM 00276 0400 00 0 00640 ADD =300 00277 0601 00 0 00373 STO POSIT 00300 -0500 00 0 00622 CAL =O11 TAB 00301 0020 00 0 00220 TRA IN2 * 00302 -3 00000 3 00033 ICRET TXL CRET,3,0 00303 1 77777 3 00304 TXI *+1,3,-1 00304 -0500 60 0 00026 CAL* PUT 00305 -0340 00 0 00624 LAS =O40 SPACE 00306 1 00001 3 00033 TXI CRET,3,1 00307 0020 00 0 00302 TRA ICRET 00310 -0340 00 0 00622 LAS =O11 TAB 00311 1 00001 3 00033 TXI CRET,3,1 00312 0020 00 0 00302 TRA ICRET 00313 1 00001 3 00033 TXI CRET,3,1 * 00314 0600 00 0 00374 ICMFLX STZ BFLG 00315 -0500 00 0 00376 CAL ESC BACK SLASH 00316 0522 00 0 00026 XEC PUT 00317 -0500 00 1 00400 CAL DEVTBL,1 00320 0771 00 0 00010 ARS 8 00321 -0320 00 0 00637 ANA =O377 1 06/22/70 1520.3 PAGE 7 00322 1 00001 3 00212 TXI IN1,3,1 * 00323 0756 00 1 00000 IUCASE PCA ,1 00324 0520 00 0 00610 ZET XCAP 00325 0020 00 0 00220 TRA IN2 00326 -0500 00 0 00376 CAL ESC BACK SLASH 00327 0522 00 0 00026 XEC PUT 00330 1 00001 3 00331 TXI *+1,3,1 00331 -0500 00 0 00633 CAL =O165 00332 0522 00 0 00026 XEC PUT 00333 0756 00 1 00000 PCA ,1 00334 -0625 00 0 00610 STL XCAP 00335 1 00001 3 00220 TXI IN2,3,1 * 00336 0756 00 1 00000 ILCASE PCA ,1 00337 -0520 00 0 00610 NZT XCAP 00340 0020 00 0 00220 TRA IN2 00341 -0500 00 0 00376 CAL ESC BACK SLASH 00342 0522 00 0 00026 XEC PUT 00343 1 00001 3 00344 TXI *+1,3,1 00344 -0500 00 0 00632 CAL =O154 00345 0522 00 0 00026 XEC PUT 00346 0756 00 1 00000 PCA ,1 00347 0600 00 0 00610 STZ XCAP 00350 1 00001 3 00220 TXI IN2,3,1 * 00351 -0500 00 0 00376 IOCTL CAL ESC BACK SLASH 00352 0522 00 0 00026 XEC PUT 00353 1 00001 3 00354 TXI *+1,3,1 00354 0756 00 1 00000 PCA ,1 00355 0602 00 0 00375 SLW T1 00356 0771 00 0 00006 ARS 6 00357 0400 00 0 00626 ADD =O60 00360 0522 00 0 00026 XEC PUT 00361 1 00001 3 00362 TXI *+1,3,1 00362 -0500 00 0 00375 CAL T1 00363 0771 00 0 00003 ARS 3 00364 -0320 00 0 00620 ANA =O7 00365 0400 00 0 00626 ADD =O60 00366 0522 00 0 00026 XEC PUT 00367 -0500 00 0 00375 CAL T1 00370 -0320 00 0 00620 ANA =O7 00371 0400 00 0 00626 ADD =O60 00372 1 00001 3 00220 TXI IN2,3,1 * 00373 0 00000 0 00001 POSIT PZE 1 00374 0 00000 0 00000 BFLG PZE 00375 0 00000 0 00000 T1 PZE * 00376 0 00000 0 00000 ESC 00377 0 00000 0 00000 P2 00400 0636 00 4 00604 DEVTBL SCA DEVRET,4 00401 0074 00 4 00445 TSX WHOAMI,4 00402 0 00004 0 00446 PZE WHOAMI+1,,4 00403 -0500 00 0 00451 CAL WHOAMI+4 00404 0602 00 0 00375 SLW T1 1 06/22/70 1520.3 PAGE 8 00405 0771 00 0 00036 ARS 30 00406 0535 00 4 00604 LAC DEVRET,4 00407 0560 00 4 00001 LDQ 1,4 00410 -0340 00 0 00617 LAS =6 M35 00411 0020 00 0 00413 TRA *+2 00412 0560 00 4 00004 LDQ 4,4 00413 -0340 00 0 00616 LAS =5 M35(TWX) 00414 0020 00 0 00416 TRA *+2 00415 0560 00 4 00004 LDQ 4,4 00416 -0340 00 0 00615 LAS =4 M35(TWX) 00417 0020 00 0 00421 TRA *+2 00420 0560 00 4 00004 LDQ 4,4 00421 -0340 00 0 00620 LAS =7 M37 00422 0020 00 0 00424 TRA *+2 00423 0560 00 4 00001 LDQ 1,4 00424 -0340 00 0 00611 LAS =0 M37 00425 0020 00 0 00427 TRA *+2 00426 0560 00 4 00001 LDQ 1,4 00427 -0340 00 0 00613 LAS =2 1050C 00430 0020 00 0 00432 TRA *+2 00431 0560 00 4 00003 LDQ 3,4 00432 -0340 00 0 00621 LAS =8 1050M 00433 0020 00 0 00435 TRA *+2 00434 0560 00 4 00003 LDQ 3,4 00435 -0340 00 0 00622 LAS =9 ARDS 00436 0020 00 0 00440 TRA *+2 00437 0560 00 4 00001 LDQ 1,4 00440 -0130 00 0 00000 XCL ELSE M37 00441 0400 00 0 00636 ADD =130 00442 0621 00 0 00600 STA DEVTBL+128 00443 0774 00 4 00202 AXT 130,4 00444 0020 00 0 00600 TRA DEVTBL+128 00445 0101 00 0 00641 WHOAMI TIA =HWHOAMI 00600 ORG DEVTBL+128 00600 -0500 00 4 00000 CAL **,4 00601 0602 00 4 00600 SLW DEVTBL+128,4 00602 2 00001 4 00600 TIX *-2,4,1 00603 -0500 00 0 00375 CAL T1 00604 -0774 00 4 00000 DEVRET AXC **,4 00605 0020 00 4 00005 TRA 5,4 * 00606 0 00000 0 00000 CAPFLG PZE 00607 0 00000 0 00000 FLIP PZE 00610 0 00000 0 00000 XCAP PZE END LITERALS 00611 000000000000 00612 000000000001 00613 000000000002 00614 000000000003 00615 000000000004 00616 000000000005 00617 000000000006 00620 000000000007 00621 000000000010 1 06/22/70 1520.3 PAGE 9 00622 000000000011 00623 000000000012 00624 000000000040 00625 000000000057 00626 000000000060 00627 000000000070 00630 000000000133 00631 000000000135 00632 000000000154 00633 000000000165 00634 000000000177 00635 000000000200 00636 000000000202 00637 000000000377 00640 000000000454 00641 663046214431 1 06/22/70 1520.3 PAGE 1 POST PROCESSOR ASSEMBLY DATA 642 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 377 P2 375 T1 127, 132, 355, 362, 367, 404, 603 37 XR 3, 4, 5, 6, 157, 160, 161, 162 134 CH1 116 135 CH2 120, 121, 124, 125 376 ESC 153, 315, 326, 341, 351 15 GET 10, 27, 62, 74, 103, 105, 106, 111, 137, 156, 164, 201, 207 262 IB1 253 212 IN1 322 220 IN2 240, 245, 261, 265, 301, 325, 335, 340, 350, 372 26 PUT 12, 34, 52, 61, 73, 75, 114, 136, 146, 154, 166, 202, 221, 304, 316, 327, 332 342, 345, 352, 360, 366 76 SW1 71 147 SW2 145 53 ALP1 46 45 ALPH 31 374 BFLG 173, 220, 254, 256, 257, 262, 266, 270, 273, 314 33 CRET 32, 302, 306, 311, 313 607 FLIP 45, 53, 55, 155 207 IGET 222 274 ITAB 231 1 TFLG 3 610 XCAP 324, 334, 337, 347 115 CHECK 110, 112 62 CMFLX 30 106 COCTL 101 241 IBKSP 233 302 ICRET 227, 307, 312 176 INES1 203 157 INESC 0 234 INOSP 232 351 IOCTL 226 223 ISWIT 217 373 POSIT 175, 234, 236, 241, 243, 247, 271, 272, 277 0 TYPE0 16, 200, 210 606 CAPFLG 50, 57, 102, 104 137 CFXCFX 76 102 CLOWER 77 104 CUPPER 100 604 DEVRET 400, 406 400 DEVTBL 0, 21, 64, 141, 213, 317, 442, 444, 600, 601 155 FLIPIT 151 246 IBLANK 230 314 ICMFLX 223 336 ILCASE 225 323 IUCASE 224 3 OUTESC 0 30 SWITCH 25 445 WHOAMI 401, 402, 403 1 06/22/70 1520.3 PAGE 2 POST PROCESSOR ASSEMBLY DATA 0 NO ERROR IN ABOVE ASSEMBLY. 1 06/22/70 1521.0 PAGE 1 00002 ENTRY CNVTBL CNV MACRO A,B,C,D,E,F VFD 4/A,5/B,4/0,O7/C,O8/D,1/E,O7/F END CNV * LINKAGE DIRECTOR 00000 000000000000 00001 234565632243 00002 CNVTBL SYN * * A C T-A A-S A-T 00002 CNV 0,00,060,177,0,177 000 00003 CNV 0,00,061,177,0,177 001 00004 CNV 0,00,062,177,0,177 002 00005 CNV 0,00,063,177,0,177 003 00006 CNV 0,00,064,177,0,177 004 00007 CNV 0,00,065,177,1,115 005 00010 CNV 0,00,066,177,1,176 006 00011 CNV 0,00,067,177,1,113 007 00012 CNV 0,00,070,035,0,135 010 00013 CNV 0,00,071,072,0,072 011 00014 CNV 0,14,030,055,0,055 012 00015 CNV 0,00,075,177,1,172 013 00016 CNV 0,00,047,052,0,052 014 00017 CNV 0,00,177,177,1,136 015 00020 CNV 0,00,177,177,1,133 016 00021 CNV 0,00,177,177,1,132 017 00022 CNV 0,00,053,177,0,177 020 00023 CNV 0,00,101,177,0,177 021 00024 CNV 0,00,102,177,1,110 022 00025 CNV 0,00,103,177,0,177 023 00026 CNV 0,00,104,177,1,111 024 00027 CNV 0,00,105,177,1,161 025 00030 CNV 0,00,106,177,0,177 026 00031 CNV 0,00,107,177,0,177 027 00032 CNV 0,00,110,177,0,012 030 00033 CNV 0,00,111,177,0,032 031 00034 CNV 0,00,031,177,0,036 032 00035 CNV 0,00,056,177,1,154 033 00036 CNV 0,00,051,177,0,037 034 00037 CNV 0,00,072,177,0,056 035 00040 CNV 0,00,032,177,0,075 036 00041 CNV 0,00,034,177,0,076 037 00042 CNV 7,15,055,060,0,060 040 00043 CNV 0,00,112,177,1,114 041 00044 CNV 0,23,113,177,0,137 042 00045 CNV 0,00,114,177,1,104 043 00046 CNV 5,00,115,053,0,053 044 00047 CNV 0,00,116,177,1,105 045 00050 CNV 0,00,117,020,0,120 046 00051 CNV 8,00,120,014,0,014 047 00052 CNV 0,00,121,074,0,074 050 00053 CNV 0,00,122,034,0,034 051 00054 CNV 0,00,014,054,0,054 052 00055 CNV 1,00,044,020,0,020 053 1 06/22/70 1521.0 PAGE 2 00056 CNV 0,00,052,073,0,073 054 00057 CNV 2,00,012,040,0,040 055 00060 CNV 6,00,035,033,0,033 056 00061 CNV 3,00,177,061,0,061 057 00062 CNV 4,00,040,000,0,000 060 00063 CNV 4,00,057,001,0,001 061 00064 CNV 4,00,123,002,0,002 062 00065 CNV 4,00,124,003,0,003 063 00066 CNV 4,00,125,004,0,004 064 00067 CNV 4,00,126,005,0,005 065 00070 CNV 4,00,127,006,0,006 066 00071 CNV 4,00,130,007,0,007 067 00072 CNV 4,00,131,010,0,010 070 00073 CNV 4,00,132,011,0,011 071 00074 CNV 0,26,011,035,0,035 072 00075 CNV 0,00,054,177,1,103 073 00076 CNV 0,00,050,177,1,152 074 00077 CNV 0,17,036,013,0,013 075 00100 CNV 0,00,037,177,1,155 076 00101 CNV 0,00,177,177,0,156 077 00102 CNV 0,00,174,177,1,106 100 00103 CNV 0,01,135,021,0,021 101 00104 CNV 0,02,134,022,0,022 102 00105 CNV 0,03,073,023,0,023 103 00106 CNV 0,04,043,024,0,024 104 00107 CNV 0,05,045,025,0,025 105 00110 CNV 0,06,100,026,0,026 106 00111 CNV 0,27,177,027,0,027 107 00112 CNV 0,00,022,030,0,030 110 00113 CNV 0,07,024,031,0,031 111 00114 CNV 0,00,136,041,0,041 112 00115 CNV 0,21,007,042,0,042 113 00116 CNV 0,20,041,043,0,043 114 00117 CNV 0,08,177,044,0,044 115 00120 CNV 0,00,177,045,0,045 116 00121 CNV 0,19,177,046,0,046 117 00122 CNV 0,09,046,047,0,047 120 00123 CNV 0,16,141,050,0,050 121 00124 CNV 0,10,142,051,0,051 122 00125 CNV 0,11,143,062,0,062 123 00126 CNV 0,22,144,063,0,063 124 00127 CNV 0,25,145,064,0,064 125 00130 CNV 0,12,146,065,0,065 126 00131 CNV 0,13,147,066,0,066 127 00132 CNV 0,18,150,067,0,067 130 00133 CNV 0,00,151,070,0,070 131 00134 CNV 0,24,017,071,0,071 132 00135 CNV 0,00,016,177,1,153 133 00136 CNV 0,00,176,177,1,102 134 00137 CNV 0,00,010,177,1,101 135 00140 CNV 0,00,015,177,1,112 136 00141 CNV 0,00,042,177,1,140 137 00142 CNV 0,00,137,177,0,160 140 00143 CNV 0,01,152,021,0,121 141 00144 CNV 0,02,153,022,0,122 142 00145 CNV 0,03,154,023,0,123 143 1 06/22/70 1521.0 PAGE 3 00146 CNV 0,04,155,024,0,124 144 00147 CNV 0,05,156,025,0,125 145 00150 CNV 0,06,157,026,0,126 146 00151 CNV 0,27,160,027,0,127 147 00152 CNV 0,00,161,030,0,130 150 00153 CNV 0,07,162,031,0,131 151 00154 CNV 0,00,074,041,0,141 152 00155 CNV 0,21,133,042,0,142 153 00156 CNV 0,20,033,043,0,143 154 00157 CNV 0,08,076,044,0,144 155 00160 CNV 0,00,077,045,0,145 156 00161 CNV 0,19,177,046,0,146 157 00162 CNV 0,09,140,047,0,147 160 00163 CNV 0,16,177,050,0,150 161 00164 CNV 0,10,163,051,0,151 162 00165 CNV 0,11,164,062,0,162 163 00166 CNV 0,22,165,063,0,163 164 00167 CNV 0,25,166,064,0,164 165 00170 CNV 0,12,167,065,0,165 166 00171 CNV 0,13,170,066,0,166 167 00172 CNV 0,18,171,067,0,167 170 00173 CNV 0,00,172,070,0,170 171 00174 CNV 0,24,013,071,0,171 172 00175 CNV 0,00,173,177,1,173 173 00176 CNV 0,00,175,177,1,100 174 00177 CNV 0,00,177,177,1,174 175 00200 CNV 0,00,177,177,1,134 176 00201 CNV 0,00,177,177,0,177 177 END 1 06/22/70 1521.0 PAGE 1 POST PROCESSOR ASSEMBLY DATA 202 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 2 CNVTBL 0, 2 0 NO ERROR IN ABOVE ASSEMBLY. 1 IS CALLED WITH THE Z TYPE IN AC: 06/22/70 1521.1 PAGE 1 00004 ENTRY ZCMD * TSX ZCMD,4 * PZE BUF+BUFSIZ-1 * PZE CHRCNT * PZE BUFSIZ * TEST MACRO X IFF TFLG,1,1 TXH $TYPE0,X,300 END TEST * TRANSFER VECTOR 00000 232145464560 CANON 00001 637047250060 TYPE0 LINKAGE DIRECTOR 00002 000000000000 00003 712344246060 00001 TFLG SET 1 * 00004 0636 00 1 00035 ZCMD SCA XR,1 00005 0636 00 4 00036 SCA XR+1,4 00006 -0774 00 1 00000 AXC 0,1 00007 -0340 00 0 00173 LAS =O62 2 00010 0020 00 0 00015 TRA Z1 00011 1 77776 1 00015 TXI Z1,1,-2 00012 -0340 00 0 00172 LAS =O61 1 00013 0020 00 0 00015 TRA Z1 00014 1 77777 1 00015 TXI Z1,1,-1 00015 -0500 00 4 00001 Z1 CAL 1,4 00016 0621 00 0 00044 STA GET 00017 0621 00 0 00047 STA PUT 00020 0602 00 0 00026 SLW Z2 00021 -0500 00 4 00002 CAL 2,4 00022 0602 00 0 00027 SLW Z2+1 00023 -0500 00 4 00003 CAL 3,4 00024 0602 00 0 00030 SLW Z2+2 00025 0074 00 4 00000 TSX $CANON,4 00026 0 00000 0 00000 Z2 PZE ** 00027 0 00000 0 00000 PZE ** 00030 0 00000 0 00000 PZE ** 00031 0020 00 1 00032 TRA *+1,1 00032 0020 00 0 00035 TRA Z0CMD 00033 0020 00 0 00040 TRA Z1CMD 00034 0020 00 0 00110 TRA Z2CMD * 00035 Z0CMD SYN * 00035 -0774 00 1 00000 XR AXC **,1 00036 -0774 00 4 00000 AXC **,4 00037 0020 00 4 00004 TRA 4,4 * 00040 Z1CMD SYN * 00040 0774 00 4 00000 AXT 0,4 00041 0774 00 1 00000 AXT 0,1 1 IS CALLED WITH THE Z TYPE IN AC: 06/22/70 1521.1 PAGE 2 00042 -0500 00 0 00167 CAL =9 00043 0602 00 0 00165 SLW POSIT 00044 -0500 00 1 00000 GET CAL **,1 00045 TEST 4 00046 1 00001 1 00047 TXI *+1,1,1 00047 0602 00 4 00000 PUT SLW **,4 00050 -0340 00 0 00171 LAS =O40 00051 1 00001 4 00062 TXI Z1.1,4,1 00052 0020 00 0 00071 TRA Z1.2 00053 -0340 00 0 00170 LAS =O12 CR 00054 1 00001 4 00062 TXI Z1.1,4,1 00055 1 00001 4 00161 TXI Z12RET,4,1 00056 -0340 00 0 00167 LAS =O11 TAB 00057 1 00001 4 00062 TXI Z1.1,4,1 00060 0020 00 0 00106 TRA Z1.3 00061 1 00001 4 00062 TXI Z1.1,4,1 * 00062 0600 00 0 00164 Z1.1 STZ BFLG 00063 0500 00 0 00165 CLA POSIT 00064 -0100 00 0 00066 TNZ *+2 00065 -0500 00 0 00170 CAL =10 00066 0402 00 0 00166 SUB =1 00067 0601 00 0 00165 STO POSIT 00070 0020 00 0 00044 TRA GET * 00071 0520 00 0 00164 Z1.2 ZET BFLG 00072 0020 00 0 00100 TRA Z1.2.1 00073 0634 00 4 00164 SXA BFLG,4 00074 -0636 00 1 00164 SCD BFLG,1 00075 0520 00 0 00165 ZET POSIT 00076 1 00001 4 00063 TXI Z1.1+1,4,1 00077 1 00001 4 00062 TXI Z1.1,4,1 00100 0520 00 0 00165 Z1.2.1 ZET POSIT 00101 1 00001 4 00063 TXI Z1.1+1,4,1 00102 0534 00 4 00164 LXA BFLG,4 00103 -0500 00 0 00167 CAL =O11 TAB 00104 0522 00 0 00047 XEC PUT 00105 1 00001 4 00062 TXI Z1.1,4,1 * 00106 0600 00 0 00165 Z1.3 STZ POSIT 00107 1 00001 4 00062 TXI Z1.1,4,1 * 00110 -0500 60 0 00030 Z2CMD CAL* Z2+2 BUFSIZ 00111 0734 00 4 00000 PAX ,4 00112 -0500 60 0 00027 CAL* Z2+1 CHRCNT 00113 0734 00 1 00000 PAX ,1 00114 1 77777 1 00115 Z2C1 TXI *+1,1,-1 00115 1 77777 4 00116 TXI *+1,4,-1 00116 0522 00 0 00044 XEC GET 00117 TEST 4 00120 0522 00 0 00047 XEC PUT 00121 3 00000 1 00114 TXH Z2C1,1,0 00122 0754 00 4 00000 PXA ,4 00123 0734 00 1 00000 PAX ,1 00124 0774 00 4 00000 AXT 0,4 00125 -0500 00 0 00167 CAL =9 1 IS CALLED WITH THE Z TYPE IN AC: 06/22/70 1521.1 PAGE 3 00126 0602 00 0 00165 SLW POSIT 00127 0522 00 0 00044 Z2.1 XEC GET 00130 TEST 4 00131 1 00001 1 00132 TXI *+1,1,1 00132 0522 00 0 00047 XEC PUT 00133 -0340 00 0 00170 LAS =O12 CR 00134 1 00001 4 00142 TXI Z2.2,4,1 00135 1 00001 4 00161 TXI Z12RET,4,1 00136 -0340 00 0 00167 LAS =O11 TAB 00137 1 00001 4 00142 TXI Z2.2,4,1 00140 0020 00 0 00150 TRA Z2.3 00141 1 00001 4 00142 TXI Z2.2,4,1 00142 0500 00 0 00165 Z2.2 CLA POSIT 00143 -0100 00 0 00145 TNZ *+2 00144 0500 00 0 00170 CLA =10 00145 0402 00 0 00166 SUB =1 00146 0601 00 0 00165 STO POSIT 00147 0020 00 0 00127 TRA Z2.1 * 00150 -0500 00 0 00171 Z2.3 CAL =O40 SP 00151 TEST 4 00152 0522 00 0 00047 XEC PUT 00153 -0520 00 0 00165 NZT POSIT 00154 1 00001 4 00142 TXI Z2.2,4,1 00155 0500 00 0 00165 CLA POSIT 00156 0402 00 0 00166 SUB =1 00157 0601 00 0 00165 STO POSIT 00160 1 00001 4 00150 TXI Z2.3,4,1 * 00161 0754 00 4 00000 Z12RET PXA ,4 00162 0602 60 0 00027 SLW* Z2+1 CHRCNT 00163 0020 00 0 00035 TRA XR * 00164 0 00000 0 00000 BFLG 00165 0 00000 0 00000 POSIT END LITERALS 00166 000000000001 00167 000000000011 00170 000000000012 00171 000000000040 00172 000000000061 00173 000000000062 1 IS CALLED WITH THE Z TYPE IN AC: 06/22/70 1521.1 PAGE 1 POST PROCESSOR ASSEMBLY DATA 174 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 35 XR 4, 5, 163 15 Z1 10, 11, 13, 14 26 Z2 20, 22, 24, 110, 112, 162 44 GET 16, 70, 116, 127 47 PUT 17, 104, 120, 132, 152 164 BFLG 62, 71, 73, 74, 102 1 TFLG 4 62 Z1.1 51, 54, 57, 61, 76, 77, 101, 105, 107 71 Z1.2 52 106 Z1.3 60 114 Z2C1 121 127 Z2.1 147 142 Z2.2 134, 137, 141, 154 150 Z2.3 140, 160 4 ZCMD 0 0 CANON 25 165 POSIT 43, 63, 67, 75, 100, 106, 126, 142, 146, 153, 155, 157 1 TYPE0 45, 117, 130, 151 35 Z0CMD 32, 35 40 Z1CMD 33, 40 110 Z2CMD 34 161 Z12RET 55, 135 100 Z1.2.1 72 0 NO ERROR IN ABOVE ASSEMBLY. 1 06/22/70 1521.7 PAGE 1 00004 ENTRY INITDT 00014 ENTRY FREEDT TRANSFER VECTOR 00000 242565632243 DEVTBL 00001 0774 00 0 00000 *EVEN* LINKAGE DIRECTOR 00002 000000000000 00003 314531632463 00004 0636 00 4 00012 INITDT SCA DT1,4 00005 0074 00 4 00000 TSX $DEVTBL,4 00006 0 00000 0 00036 PZE D1 00007 0 00000 0 00240 PZE D2 00010 0 00000 0 00442 PZE D3 00011 0 00000 0 00644 PZE D4 00012 -0774 00 4 00000 DT1 AXC **,4 00013 0020 00 4 00001 TRA 1,4 * 00014 0636 00 1 00032 FREEDT SCA DT2,1 00015 0636 00 4 00033 SCA DT2+1,4 00016 0774 00 4 00202 AXT 130,4 00017 -0774 00 2 00036 AXC D1,2 00020 1 77774 2 00021 DT3 TXI *+1,2,-4 00021 0756 00 2 00000 PCA ,2 00022 0602 00 2 77774 SLW -4,2 00023 0600 00 2 77775 STZ -3,2 00024 0600 00 2 77776 STZ -2,2 00025 0600 00 2 77777 STZ -1,2 00026 2 00001 4 00020 TIX DT3,4,1 00027 0756 00 5 00000 PCA ,5 00030 0602 00 2 77774 SLW -4,2 00031 -0774 00 5 00036 AXC D1,5 00032 -0774 00 1 00000 DT2 AXC **,1 00033 -0774 00 4 00000 AXC **,4 00034 0020 00 4 00001 TRA 1,4 * 00035 0774 00 0 00000 EVEN * DEV MACRO A,B,C,D,E,F VFD O8/A,O8/B,2/C,2/0,O8/E,O8/F END DEV * 00036 D1 SYN * * M37 DEVICE TABLE 00036 +000000000134 OCT 134,0 00037 +000000000000 00040 DEV 000,000,3,0,000,204 000 00041 DEV 001,001,3,0,001,204 001 00042 DEV 002,002,3,0,002,204 002 00043 DEV 003,003,3,0,003,204 003 00044 DEV 004,004,3,0,004,204 004 00045 DEV 005,005,3,0,005,210 005 00046 DEV 006,006,3,0,006,210 006 1 06/22/70 1521.7 PAGE 2 00047 DEV 007,007,3,0,007,210 007 00050 DEV 010,010,3,0,010,211 010 00051 DEV 011,011,3,0,011,207 011 00052 DEV 203,012,3,0,012,205 012 00053 DEV 162,201,3,0,013,210 013 00054 DEV 014,014,3,0,014,210 014 00055 DEV 015,015,3,0,015,015 015 00056 DEV 016,016,3,0,016,210 016 00057 DEV 017,017,3,0,017,210 017 00060 DEV 020,020,3,0,020,204 020 00061 DEV 021,021,3,0,021,204 021 00062 DEV 022,022,3,0,022,210 022 00063 DEV 023,023,3,0,023,204 023 00064 DEV 024,024,3,0,024,210 024 00065 DEV 025,025,3,0,025,210 025 00066 DEV 026,026,3,0,026,204 026 00067 DEV 027,027,3,0,027,204 027 00070 DEV 030,030,3,0,142,201 030 00071 DEV 031,031,3,0,143,201 031 00072 DEV 032,032,3,0,145,201 032 00073 DEV 033,033,3,0,033,210 033 00074 DEV 034,034,3,0,146,201 034 00075 DEV 035,035,3,0,153,201 035 00076 DEV 036,036,3,0,162,201 036 00077 DEV 037,037,3,0,167,201 037 00100 DEV 040,040,3,0,040,040 040 00101 DEV 041,041,3,0,041,041 041 00102 DEV 042,042,3,0,042,042 042 00103 DEV 043,043,3,0,043,043 043 00104 DEV 044,044,3,0,044,044 044 00105 DEV 045,045,3,0,045,045 045 00106 DEV 046,046,3,0,046,046 046 00107 DEV 047,047,3,0,047,047 047 00110 DEV 050,050,3,0,050,050 050 00111 DEV 051,051,3,0,051,051 051 00112 DEV 052,052,3,0,052,052 052 00113 DEV 053,053,3,0,053,053 053 00114 DEV 054,054,3,0,054,054 054 00115 DEV 055,055,3,0,055,055 055 00116 DEV 056,056,3,0,056,056 056 00117 DEV 057,057,3,0,057,057 057 00120 DEV 060,204,3,0,060,060 060 00121 DEV 061,204,3,0,061,061 061 00122 DEV 062,204,3,0,062,062 062 00123 DEV 063,204,3,0,063,063 063 00124 DEV 064,204,3,0,064,064 064 00125 DEV 065,204,3,0,065,065 065 00126 DEV 066,204,3,0,066,066 066 00127 DEV 067,204,3,0,067,067 067 00130 DEV 070,070,3,0,070,070 070 00131 DEV 071,071,3,0,071,071 071 00132 DEV 072,072,3,0,072,072 072 00133 DEV 073,073,3,0,073,073 073 00134 DEV 074,074,3,0,074,074 074 00135 DEV 075,075,3,0,075,075 075 00136 DEV 076,076,3,0,076,076 076 1 06/22/70 1521.7 PAGE 3 00137 DEV 077,077,3,0,077,077 077 00140 DEV 100,100,3,0,100,100 100 00141 DEV 101,101,3,0,101,101 101 00142 DEV 102,030,3,0,102,102 102 00143 DEV 103,031,3,0,103,103 103 00144 DEV 104,104,3,0,104,104 104 00145 DEV 105,032,3,0,105,105 105 00146 DEV 106,034,3,0,106,106 106 00147 DEV 107,107,3,0,107,107 107 00150 DEV 110,110,3,0,110,110 110 00151 DEV 111,111,3,0,111,111 111 00152 DEV 112,112,3,0,112,112 112 00153 DEV 113,035,3,0,113,113 113 00154 DEV 114,114,3,0,114,114 114 00155 DEV 115,115,3,0,115,115 115 00156 DEV 116,116,3,0,116,116 116 00157 DEV 117,117,3,0,117,117 117 00160 DEV 120,120,3,0,120,120 120 00161 DEV 121,121,3,0,121,121 121 00162 DEV 122,036,3,0,122,122 122 00163 DEV 123,123,3,0,123,123 123 00164 DEV 124,124,3,0,124,124 124 00165 DEV 125,125,3,0,125,125 125 00166 DEV 126,126,3,0,126,126 126 00167 DEV 127,037,3,0,127,127 127 00170 DEV 130,136,3,0,130,130 130 00171 DEV 131,131,3,0,131,131 131 00172 DEV 132,132,3,0,132,132 132 00173 DEV 133,133,3,0,133,133 133 00174 DEV 201,134,3,0,134,204 134 00175 DEV 135,135,3,0,135,135 135 00176 DEV 136,136,3,0,136,136 136 00177 DEV 137,137,3,0,137,137 137 00200 DEV 140,140,3,0,140,140 140 00201 DEV 141,141,3,0,141,141 141 00202 DEV 142,030,3,0,142,142 142 00203 DEV 143,031,3,0,143,143 143 00204 DEV 144,144,3,0,144,144 144 00205 DEV 145,032,3,0,145,145 145 00206 DEV 146,034,3,0,146,146 146 00207 DEV 147,147,3,0,147,147 147 00210 DEV 150,150,3,0,150,150 150 00211 DEV 151,151,3,0,151,151 151 00212 DEV 152,152,3,0,152,152 152 00213 DEV 153,035,3,0,153,153 153 00214 DEV 154,154,3,0,154,154 154 00215 DEV 155,155,3,0,155,155 155 00216 DEV 156,156,3,0,156,156 156 00217 DEV 157,157,3,0,157,157 157 00220 DEV 160,160,3,0,160,160 160 00221 DEV 161,161,3,0,161,161 161 00222 DEV 162,036,3,0,162,162 162 00223 DEV 163,163,3,0,163,163 163 00224 DEV 164,164,3,0,164,164 164 00225 DEV 165,165,3,0,165,165 165 00226 DEV 166,166,3,0,166,166 166 1 06/22/70 1521.7 PAGE 4 00227 DEV 167,037,3,0,167,167 167 00230 DEV 170,136,3,0,170,170 170 00231 DEV 171,171,3,0,171,171 171 00232 DEV 172,172,3,0,172,172 172 00233 DEV 173,173,3,0,173,173 173 00234 DEV 174,174,3,0,174,174 174 00235 DEV 175,175,3,0,175,175 175 00236 DEV 176,176,3,0,176,176 176 00237 DEV 177,177,3,0,177,204 177 00240 D2 SYN * * 1050C DEVICE TABLE 00240 +000000000134 OCT 134,0 00241 +000000000000 00242 DEV 000,000,3,0,002,204 000 00243 DEV 001,001,3,0,001,204 001 00244 DEV 002,002,3,0,002,204 002 00245 DEV 003,003,3,0,003,204 003 00246 DEV 004,004,3,0,004,204 004 00247 DEV 005,005,3,0,005,204 005 00250 DEV 006,006,3,0,006,204 006 00251 DEV 007,007,3,0,007,204 007 00252 DEV 010,010,3,0,010,211 010 00253 DEV 011,011,3,0,011,207 011 00254 DEV 203,012,3,0,012,205 012 00255 DEV 013,013,3,0,013,210 013 00256 DEV 014,014,3,0,014,204 014 00257 DEV 015,015,3,0,015,204 015 00260 DEV 016,016,3,0,016,210 016 00261 DEV 017,017,3,0,017,210 017 00262 DEV 020,020,3,0,020,204 020 00263 DEV 021,021,3,0,021,204 021 00264 DEV 022,022,3,0,022,204 022 00265 DEV 023,023,3,0,023,204 023 00266 DEV 024,024,3,0,024,204 024 00267 DEV 025,025,3,0,025,204 025 00270 DEV 026,026,3,0,026,204 026 00271 DEV 027,027,3,0,027,204 027 00272 DEV 030,030,3,0,142,201 030 00273 DEV 031,031,3,0,143,201 031 00274 DEV 032,032,3,0,145,201 032 00275 DEV 033,033,3,0,033,204 033 00276 DEV 034,034,3,0,146,201 034 00277 DEV 035,035,3,0,153,201 035 00300 DEV 036,036,3,0,162,201 036 00301 DEV 037,037,3,0,167,201 037 00302 DEV 040,040,3,0,040,206 040 00303 DEV 041,041,3,0,041,041 041 00304 DEV 042,042,3,0,042,042 042 00305 DEV 043,043,3,0,043,043 043 00306 DEV 044,044,3,0,044,044 044 00307 DEV 045,045,3,0,045,045 045 00310 DEV 046,046,3,0,046,046 046 00311 DEV 047,140,3,0,047,047 047 00312 DEV 050,173,0,0,050,050 050 00313 DEV 051,175,1,0,051,051 051 00314 DEV 052,052,3,0,052,052 052 1 06/22/70 1521.7 PAGE 5 00315 DEV 053,053,3,0,053,053 053 00316 DEV 054,054,3,0,054,054 054 00317 DEV 055,055,3,0,055,055 055 00320 DEV 056,056,3,0,056,056 056 00321 DEV 057,057,3,0,057,057 057 00322 DEV 060,204,3,0,060,060 060 00323 DEV 061,204,3,0,061,061 061 00324 DEV 062,204,3,0,062,062 062 00325 DEV 063,204,3,0,063,063 063 00326 DEV 064,204,3,0,064,064 064 00327 DEV 065,204,3,0,065,065 065 00330 DEV 066,204,3,0,066,066 066 00331 DEV 067,204,3,0,067,067 067 00332 DEV 070,070,3,0,070,070 070 00333 DEV 071,071,3,0,071,071 071 00334 DEV 072,072,3,0,072,072 072 00335 DEV 073,073,3,0,073,073 073 00336 DEV 074,074,3,0,154,201 074 00337 DEV 075,075,3,0,075,075 075 00340 DEV 076,076,3,0,147,201 076 00341 DEV 077,077,3,0,077,077 077 00342 DEV 100,100,3,0,100,100 100 00343 DEV 101,101,3,0,101,101 101 00344 DEV 102,030,3,0,102,102 102 00345 DEV 103,031,3,0,103,103 103 00346 DEV 104,104,3,0,104,104 104 00347 DEV 105,032,3,0,105,105 105 00350 DEV 106,034,3,0,106,106 106 00351 DEV 107,076,3,0,107,107 107 00352 DEV 110,110,3,0,110,110 110 00353 DEV 111,111,3,0,111,111 111 00354 DEV 112,112,3,0,112,112 112 00355 DEV 113,035,3,0,113,113 113 00356 DEV 114,074,3,0,114,114 114 00357 DEV 115,115,3,0,115,115 115 00360 DEV 116,136,3,0,116,116 116 00361 DEV 117,117,3,0,117,117 117 00362 DEV 120,120,3,0,120,120 120 00363 DEV 121,121,3,0,121,121 121 00364 DEV 122,036,3,0,122,122 122 00365 DEV 123,123,3,0,123,123 123 00366 DEV 124,176,3,0,124,124 124 00367 DEV 125,125,3,0,125,125 125 00370 DEV 126,126,3,0,126,126 126 00371 DEV 127,037,3,0,127,127 127 00372 DEV 130,136,3,0,130,130 130 00373 DEV 131,131,3,0,131,131 131 00374 DEV 132,132,3,0,132,132 132 00375 DEV 133,133,3,0,173,201 133 00376 DEV 201,201,3,0,134,204 134 00377 DEV 135,135,3,0,175,201 135 00400 DEV 136,136,3,0,136,136 136 00401 DEV 137,137,3,0,137,137 137 00402 DEV 140,140,3,0,047,201 140 00403 DEV 141,141,3,0,141,141 141 00404 DEV 142,030,3,0,142,142 142 1 06/22/70 1521.7 PAGE 6 00405 DEV 143,031,3,0,143,143 143 00406 DEV 144,144,3,0,144,144 144 00407 DEV 145,032,3,0,145,145 145 00410 DEV 146,034,3,0,146,146 146 00411 DEV 147,076,3,0,147,147 147 00412 DEV 150,150,3,0,150,150 150 00413 DEV 151,151,3,0,151,151 151 00414 DEV 152,152,3,0,152,152 152 00415 DEV 153,035,3,0,153,153 153 00416 DEV 154,074,3,0,154,154 154 00417 DEV 155,155,3,0,155,155 155 00420 DEV 156,136,3,0,156,156 156 00421 DEV 157,157,3,0,157,157 157 00422 DEV 160,160,3,0,160,160 160 00423 DEV 161,161,3,0,161,161 161 00424 DEV 162,036,3,0,162,162 162 00425 DEV 163,163,3,0,163,163 163 00426 DEV 164,176,3,0,164,164 164 00427 DEV 165,165,3,0,165,165 165 00430 DEV 166,166,3,0,166,166 166 00431 DEV 167,037,3,0,167,167 167 00432 DEV 170,136,3,0,170,170 170 00433 DEV 171,171,3,0,171,171 171 00434 DEV 172,172,3,0,172,172 172 00435 DEV 173,173,3,0,050,201 173 00436 DEV 174,174,3,0,174,174 174 00437 DEV 175,175,3,0,051,201 175 00440 DEV 176,176,3,0,164,201 176 00441 DEV 177,177,3,0,177,204 177 00442 D3 SYN * * 1050M DEVICE TABLE 00442 +000000000134 OCT 134,0 00443 +000000000000 00444 DEV 000,000,3,0,002,204 000 00445 DEV 001,001,3,0,001,204 001 00446 DEV 002,002,3,0,002,204 002 00447 DEV 003,003,3,0,003,204 003 00450 DEV 004,004,3,0,004,204 004 00451 DEV 005,005,3,0,005,204 005 00452 DEV 006,006,3,0,006,204 006 00453 DEV 007,007,3,0,007,204 007 00454 DEV 010,010,3,0,010,211 010 00455 DEV 011,011,3,0,011,207 011 00456 DEV 203,012,3,0,012,205 012 00457 DEV 013,013,3,0,013,210 013 00460 DEV 014,014,3,0,014,204 014 00461 DEV 015,015,3,0,015,204 015 00462 DEV 016,016,3,0,016,210 016 00463 DEV 017,017,3,0,017,210 017 00464 DEV 020,020,3,0,020,204 020 00465 DEV 021,021,3,0,021,204 021 00466 DEV 022,022,3,0,022,204 022 00467 DEV 023,023,3,0,023,204 023 00470 DEV 024,024,3,0,024,204 024 00471 DEV 025,025,3,0,025,204 025 00472 DEV 026,026,3,0,026,204 026 1 06/22/70 1521.7 PAGE 7 00473 DEV 027,027,3,0,027,204 027 00474 DEV 030,030,3,0,142,201 030 00475 DEV 031,031,3,0,143,201 031 00476 DEV 032,032,3,0,145,201 032 00477 DEV 033,033,3,0,033,204 033 00500 DEV 034,034,3,0,146,201 034 00501 DEV 035,035,3,0,153,201 035 00502 DEV 036,036,3,0,162,201 036 00503 DEV 037,037,3,0,167,201 037 00504 DEV 040,040,3,0,040,206 040 00505 DEV 041,041,3,0,041,041 041 00506 DEV 042,042,3,0,042,042 042 00507 DEV 043,043,3,0,043,043 043 00510 DEV 044,044,3,0,044,044 044 00511 DEV 045,045,3,0,045,045 045 00512 DEV 046,046,3,0,046,046 046 00513 DEV 047,140,3,0,047,047 047 00514 DEV 050,173,0,0,050,050 050 00515 DEV 051,175,1,0,051,051 051 00516 DEV 052,052,3,0,052,052 052 00517 DEV 053,053,3,0,053,053 053 00520 DEV 054,054,3,0,054,054 054 00521 DEV 055,055,3,0,055,055 055 00522 DEV 056,041,3,0,056,056 056 00523 DEV 057,057,3,0,057,057 057 00524 DEV 060,204,3,0,060,060 060 00525 DEV 061,204,3,0,061,061 061 00526 DEV 062,204,3,0,062,062 062 00527 DEV 063,204,3,0,063,063 063 00530 DEV 064,204,3,0,064,064 064 00531 DEV 065,204,3,0,065,065 065 00532 DEV 066,204,3,0,066,066 066 00533 DEV 067,204,3,0,067,067 067 00534 DEV 070,070,3,0,070,070 070 00535 DEV 071,071,3,0,071,071 071 00536 DEV 072,072,3,0,072,072 072 00537 DEV 073,073,3,0,073,073 073 00540 DEV 074,133,3,0,074,074 074 00541 DEV 075,075,3,0,075,075 075 00542 DEV 076,135,3,0,076,076 076 00543 DEV 077,077,3,0,077,077 077 00544 DEV 100,100,3,0,100,100 100 00545 DEV 101,101,3,0,101,101 101 00546 DEV 102,030,3,0,102,102 102 00547 DEV 103,031,3,0,103,103 103 00550 DEV 104,104,3,0,104,104 104 00551 DEV 105,032,3,0,105,105 105 00552 DEV 106,034,3,0,106,106 106 00553 DEV 107,076,3,0,107,107 107 00554 DEV 110,110,3,0,110,110 110 00555 DEV 111,111,3,0,111,111 111 00556 DEV 112,112,3,0,112,112 112 00557 DEV 113,035,3,0,113,113 113 00560 DEV 114,074,3,0,114,114 114 00561 DEV 115,115,3,0,115,115 115 00562 DEV 116,136,3,0,116,116 116 1 06/22/70 1521.7 PAGE 8 00563 DEV 117,117,3,0,117,117 117 00564 DEV 120,120,3,0,120,120 120 00565 DEV 121,121,3,0,121,121 121 00566 DEV 122,036,3,0,122,122 122 00567 DEV 123,123,3,0,123,123 123 00570 DEV 124,176,3,0,124,124 124 00571 DEV 125,125,3,0,125,125 125 00572 DEV 126,126,3,0,126,126 126 00573 DEV 127,037,3,0,127,127 127 00574 DEV 130,136,3,0,130,130 130 00575 DEV 131,131,3,0,131,131 131 00576 DEV 132,132,3,0,132,132 132 00577 DEV 133,133,3,0,074,201 133 00600 DEV 201,201,3,0,134,204 134 00601 DEV 135,135,3,0,076,201 135 00602 DEV 136,136,3,0,136,136 136 00603 DEV 137,137,3,0,137,137 137 00604 DEV 140,140,3,0,047,201 140 00605 DEV 141,141,3,0,141,141 141 00606 DEV 142,030,3,0,142,142 142 00607 DEV 143,031,3,0,143,143 143 00610 DEV 144,144,3,0,144,144 144 00611 DEV 145,032,3,0,145,145 145 00612 DEV 146,034,3,0,146,146 146 00613 DEV 147,076,3,0,147,147 147 00614 DEV 150,150,3,0,150,150 150 00615 DEV 151,151,3,0,151,151 151 00616 DEV 152,152,3,0,152,152 152 00617 DEV 153,035,3,0,153,153 153 00620 DEV 154,074,3,0,154,154 154 00621 DEV 155,155,3,0,155,155 155 00622 DEV 156,136,3,0,156,156 156 00623 DEV 157,157,3,0,157,157 157 00624 DEV 160,160,3,0,160,160 160 00625 DEV 161,161,3,0,161,161 161 00626 DEV 162,036,3,0,162,162 162 00627 DEV 163,163,3,0,163,163 163 00630 DEV 164,176,3,0,164,164 164 00631 DEV 165,165,3,0,165,165 165 00632 DEV 166,166,3,0,166,166 166 00633 DEV 167,037,3,0,167,167 167 00634 DEV 170,136,3,0,170,170 170 00635 DEV 171,171,3,0,171,171 171 00636 DEV 172,172,3,0,172,172 172 00637 DEV 173,173,3,0,050,201 173 00640 DEV 174,174,3,0,174,174 174 00641 DEV 175,175,3,0,051,201 175 00642 DEV 176,176,3,0,164,201 176 00643 DEV 177,177,3,0,177,204 177 00644 D4 SYN * * M35 DEVICE TABLE 00644 +000000000134 OCT 134,0 00645 +000000000000 00646 DEV 000,000,3,0,002,204 000 00647 DEV 001,001,3,0,001,204 001 00650 DEV 002,002,3,0,002,204 002 1 06/22/70 1521.7 PAGE 9 00651 DEV 003,003,3,0,003,204 003 00652 DEV 004,004,3,0,004,204 004 00653 DEV 005,005,3,0,005,204 005 00654 DEV 006,006,3,0,006,204 006 00655 DEV 007,007,3,0,007,210 007 00656 DEV 010,010,3,0,055,201 010 00657 DEV 011,011,3,0,011,207 011 00660 DEV 203,012,3,0,012,205 012 00661 DEV 013,013,3,0,013,210 013 00662 DEV 014,014,3,0,014,204 014 00663 DEV 015,015,3,0,015,204 015 00664 DEV 016,016,3,0,016,210 016 00665 DEV 017,017,3,0,017,210 017 00666 DEV 020,020,3,0,020,204 020 00667 DEV 021,021,3,0,021,204 021 00670 DEV 022,022,3,0,022,204 022 00671 DEV 023,023,3,0,023,204 023 00672 DEV 024,024,3,0,024,204 024 00673 DEV 025,025,3,0,025,204 025 00674 DEV 026,026,3,0,026,204 026 00675 DEV 027,027,3,0,027,204 027 00676 DEV 030,030,3,0,142,201 030 00677 DEV 031,031,3,0,143,201 031 00700 DEV 032,032,3,0,145,201 032 00701 DEV 033,033,3,0,033,204 033 00702 DEV 034,034,3,0,146,201 034 00703 DEV 035,035,3,0,153,201 035 00704 DEV 036,036,3,0,162,201 036 00705 DEV 037,037,3,0,167,201 037 00706 DEV 040,040,3,0,040,206 040 00707 DEV 041,041,3,0,041,041 041 00710 DEV 042,042,3,0,042,042 042 00711 DEV 043,043,3,0,043,043 043 00712 DEV 044,044,3,0,044,044 044 00713 DEV 045,045,3,0,045,136 045 00714 DEV 046,046,3,0,046,046 046 00715 DEV 047,140,3,0,047,047 047 00716 DEV 050,173,0,0,050,050 050 00717 DEV 051,175,1,0,051,051 051 00720 DEV 052,052,3,0,052,052 052 00721 DEV 053,053,3,0,053,053 053 00722 DEV 054,054,3,0,054,054 054 00723 DEV 055,010,3,0,055,055 055 00724 DEV 056,041,3,0,056,056 056 00725 DEV 057,057,3,0,057,057 057 00726 DEV 060,204,3,0,060,060 060 00727 DEV 061,204,2,0,061,061 061 00730 DEV 062,204,2,0,062,062 062 00731 DEV 063,204,2,0,063,063 063 00732 DEV 064,204,2,0,064,064 064 00733 DEV 065,204,2,0,065,065 065 00734 DEV 066,204,2,0,066,066 066 00735 DEV 067,204,2,0,067,067 067 00736 DEV 070,070,2,0,070,070 070 00737 DEV 071,071,2,0,071,071 071 00740 DEV 072,072,3,0,072,072 072 1 06/22/70 1521.7 PAGE 10 00741 DEV 073,073,3,0,073,073 073 00742 DEV 074,074,3,0,074,074 074 00743 DEV 075,075,3,0,075,075 075 00744 DEV 076,076,3,0,076,076 076 00745 DEV 077,077,3,0,077,077 077 00746 DEV 100,100,3,0,100,100 100 00747 DEV 202,101,3,0,101,202 101 00750 DEV 202,030,3,0,102,202 102 00751 DEV 202,031,3,0,103,202 103 00752 DEV 202,104,3,0,104,202 104 00753 DEV 202,032,3,0,105,202 105 00754 DEV 202,034,3,0,106,202 106 00755 DEV 202,076,3,0,107,202 107 00756 DEV 202,110,3,0,110,202 110 00757 DEV 202,111,3,0,111,202 111 00760 DEV 202,112,3,0,112,202 112 00761 DEV 202,035,3,0,113,202 113 00762 DEV 202,202,3,0,114,202 114 00763 DEV 202,115,3,0,115,202 115 00764 DEV 202,136,3,0,116,202 116 00765 DEV 202,117,3,0,117,202 117 00766 DEV 202,120,3,0,120,202 120 00767 DEV 202,121,3,0,121,202 121 00770 DEV 202,036,3,0,122,202 122 00771 DEV 202,123,3,0,123,202 123 00772 DEV 202,176,3,0,124,202 124 00773 DEV 202,203,3,0,125,202 125 00774 DEV 202,126,3,0,126,202 126 00775 DEV 202,037,3,0,127,202 127 00776 DEV 202,136,3,0,130,202 130 00777 DEV 202,131,3,0,131,202 131 01000 DEV 202,132,3,0,132,202 132 01001 DEV 133,133,3,0,173,133 133 01002 DEV 201,201,3,0,134,204 134 01003 DEV 135,135,3,0,175,135 135 01004 DEV 045,136,3,0,170,201 136 01005 DEV 137,137,3,0,137,137 137 01006 DEV 140,140,3,0,047,201 140 01007 DEV 202,141,3,0,141,203 141 01010 DEV 202,030,3,0,142,203 142 01011 DEV 202,031,3,0,143,203 143 01012 DEV 202,144,3,0,144,203 144 01013 DEV 202,032,3,0,145,203 145 01014 DEV 202,034,3,0,146,203 146 01015 DEV 202,076,3,0,147,203 147 01016 DEV 202,150,3,0,150,203 150 01017 DEV 202,151,3,0,151,203 151 01020 DEV 202,152,3,0,152,203 152 01021 DEV 202,035,3,0,153,203 153 01022 DEV 202,202,3,0,154,203 154 01023 DEV 202,155,3,0,155,203 155 01024 DEV 202,136,3,0,156,203 156 01025 DEV 202,157,3,0,157,203 157 01026 DEV 202,160,3,0,160,203 160 01027 DEV 202,161,3,0,161,203 161 01030 DEV 202,036,3,0,162,203 162 1 06/22/70 1521.7 PAGE 11 01031 DEV 202,163,3,0,163,203 163 01032 DEV 202,176,3,0,164,203 164 01033 DEV 202,203,3,0,165,203 165 01034 DEV 202,166,3,0,166,203 166 01035 DEV 202,037,3,0,167,203 167 01036 DEV 202,136,3,0,170,203 170 01037 DEV 202,171,3,0,171,203 171 01040 DEV 202,172,3,0,172,203 172 01041 DEV 173,173,3,0,050,201 173 01042 DEV 174,174,3,0,174,174 174 01043 DEV 175,175,3,0,051,201 175 01044 DEV 176,176,3,0,164,201 176 01045 DEV 177,177,3,0,177,204 177 END 1 06/22/70 1521.7 PAGE 1 POST PROCESSOR ASSEMBLY DATA 1046 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 36 D1 6, 17, 31, 36 240 D2 7, 240 442 D3 10, 442 644 D4 11, 644 12 DT1 4 32 DT2 14, 15 20 DT3 26 0 DEVTBL 5 14 FREEDT 0 4 INITDT 0 0 NO ERROR IN ABOVE ASSEMBLY. REMARK BCD 09/18/68 2319.5 4783 00000 1 PAGE 1 FILE NAME -- MAIN0 FAP DUMMY ROUTINE FOR MAD PROGRAMS BINARY CARD NO. DUMMY000 PROGRAM CARD TRANSFER VECTOR BINARY CARD NO. DUMMY001 00000 263151626360 FIRST 00001 244651444563 DORMNT 00002 0074 00 4 00000 TSX $FIRST,4 CALL MAD PROGRAM 00003 3 00000 0 00000 PTH 0 PASS ABSOLUTE ZERO 00004 0074 00 4 00001 TSX $DORMNT,4 STOP IF RETURN END 1 PAGE 1 POST PROCESSOR ASSEMBLY DATA 5 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 0 FIRST 2 1 DORMNT 4 0 NO ERROR IN ABOVE ASSEMBLY. 1 MAD PROGRAM LISTING ... ... ... FILE REMRK MAD 02/07/68 2321.4 - REMARK COMMAND FOR NEW FILE SYSTEM LM00001 D.R. WIDRIG FEB. 1966 LM00002 LM00003 LOADING INSTRUCTIONS LM00004 MAD REMARK (LIST) LM00005 FAP (MAIN) (LIST) LM00006 NCLOAD (MAIN) REMARK LM00007 SAVE REMARK LM00008 LM00009 EXTERNAL FUNCTION (BUFF) *001 LM00010 ENTRY TO FIRST. *002 LM00011 ENTRY TO REMARK. *003 LM00012 LM00013 NORMAL MODE IS INTEGER *004 LM00014 LM00015 VECTOR VALUES MESS1 = $COMMAND FORM IS ... REMARK NAME1 -NAME2-$, *005 LM00016 1 777777777777K *005 LM00017 VECTOR VALUES MESS2 = $NAME2 IS TAKEN AS 'BCD' IF OMITTED$, *006 LM00018 1 777777777777K *006 LM00019 VECTOR VALUES MESS3 = $REMARKS MUST BE CARD-IMAGE AND LESS THAN FIVE *007 LM00020 1 RECORDS LONG$,777777777777K *007 LM00021 VECTOR VALUES LINE(1)...LINE(14) = $ $ *008 LM00022 VECTOR VALUES USER = $ USER$ *009 LM00023 VECTOR VALUES REMARK = $REMARK$ *010 LM00024 LM00025 VECTOR VALUES FENCE = 777777777777K *011 LM00026 VECTOR VALUES LINMK = 777777K *012 LM00027 VECTOR VALUES MXWORD = 2160 *013 LM00028 LM00029 GET COMMAND ARGUMENTS LM00030 LM00031 WHENEVER COMARG.(1,N1) .E. FENCE *014 LM00032 PRNTP.(MESS1) *015 LM00033 PRNTP.(MESS2) *016 LM00034 GRIPE PRNTP.(MESS3) *017 LM00035 CHNCOM.(0) *018 LM00036 OR WHENEVER COMARG.(2,N2) .E. FENCE *019 LM00037 N2 = $ BCD$ *020 LM00038 END OF CONDITIONAL *021 LM00039 LM00040 SET ERROR RETURN AND CHECK REMARK FILE LM00041 LM00042 FERRTN.(ERR1) *022 LM00043 FSTATE.(N1,N2,LTH...1) *023 LM00044 WHENEVER (LTH.G.MXWORD) .OR. (((LTH/14)*14).NE.LTH), TRANSFER TO GRIPE *024 LM00045 LM00046 SO FAR SO GOOD, NOW SET BUFFERS LM00047 LM00048 BUFF1 = 1K5 - GMEM.(DUMMY) *025 LM00049 BUFF2 = BUFF1 - 432 *026 LM00050 EXMEM.(LTH+432) *027 LM00051 LM00052 READ IN REMARK FILE LM00053 LM00054 OPEN.($R$,N1,N2,DUMMY) *028 LM00055 RDFILE.(N1,N2,1,BUFF(BUFF2)...LTH) *029 LM00056 CLOSE.(N1,N2) *030 LM00057 LM00058 MAKE SURE IT IS CARD-IMAGE LM00059 LM00060 WHENEVER ((BUFF(BUFF2).RS.18) .E. LINMK), TRANSFER TO GRIPE *031 LM00061 LM00062 MOVE TO PUBLIC FILE AND WRITE HEADER LM00063 LM00064 TSSFIL. *032 LM00065 OPEN.($W$,USER,REMARK,0) *033 LM00066 BUFFER.(USER,REMARK,BUFF(BUFF1)...432) *034 LM00067 WRWAIT.(USER,REMARK,0,LINE(14)...14) *035 LM00068 LM00069 GET IDENTIFICATION LM00070 LM00071 GETTM.(LINE(8),LINE(7)) *036 LM00072 WHOAMI.(LINE(12)...2) *037 LM00073 WRFILE.(USER,REMARK,0,LINE(14)...14) *038 LM00074 LM00075 NOW APPEND USER'S REMARK LM00076 LM00077 WRFILE.(USER,REMARK,0,BUFF(BUFF2)...LTH) *039 LM00078 CLOSE.(USER,REMARK) *040 LM00079 LM00080 MOVE BACK TO USER'S DIRECTORY LM00081 LM00082 USRFIL. *041 LM00083 CHNCOM.(0) *042 LM00084 LM00085 ERROR, ANNOUNCE IT LM00086 LM00087 ERR1 PRNTER.(61K) *043 LM00088 CLOSE.($ALL$,-0,NERR1) *044 LM00089 NERR1 CHNCOM.(1) *045 LM00090 LM00091 END OF FUNCTION *046 LM00092 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00365 TRANSFER VECTOR LENGTH 00023 PROGRAM BEGINS 00130 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES REMARK 00134 0 FIRST 00131 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BUFF1 00027 1 FENCE 00032 A 1 LTH 00053 1 MXWORD 00106 A 1 NERR1 00026 4 BUFF2 00030 1 GRIPE 00025 4 MESS1 00063 A 1 N1 00107 1 REMARK 00111 A 1 DUMMY 00031 1 LINE 00051 A 1 MESS2 00072 A 1 N2 00110 1 USER 00112 A 1 ERR1 00024 4 LINMK 00052 A 1 MESS3 00105 A 1 0FUNCTION DICTIONARY BUFFER 00000 1 CHNCOM 00001 1 CLOSE 00002 1 COMARG 00003 1 EXIT 00004 1 EXMEM 00005 1 FERRTN 00006 1 FSTATE 00007 1 GETTM 00010 1 GMEM 00011 1 OPEN 00012 1 PRNTER 00013 1 PRNTP 00014 1 RDFILE 00015 1 TSSFIL 00016 1 USRFIL 00017 1 WHOAMI 00020 1 WRFILE 00021 1 WRWAIT 00022 1 0ABSOLUTE CONSTANTS 00123 +214343606060 00120 +000000000061 00127 -266060606060 00117 +000000000022 00125 -116060606060 00121 +000000000660 00122 +000000100000 00116 +000000000016 00126 -206060222324 00115 +000000000002 00113 +000000000000 00114 +000000000001 00124 +233000000000 0STATEMENT DICTIONARY 00024 TXL -300334000332 00025 TXL -300151000147 00026 TXL -300344000342 0PROGRAM EXTERNAL FUNCTION (BUFF) 001 LM00010 E'O FIRST. 002 LM00011 00130 TRA +0 02000 0 00133 00131 SXA +0 63400 2 00345 00132 TSX +0 07400 2 00345 E'O REMARK. 003 LM00012 00133 TRA +0 02000 0 00136 00134 SXA +0 63400 2 00345 00135 TSX +0 07400 2 00345 N'R 004 LM00014 V'S MESS1 = $COMMAND FORM IS ... REMARK NAME1 -NAME2-$, 005 LM00016 1 777777777777K 005 LM00017 00054 -3 77777 7 77777 00055 -0 42502 4 06060 00056 +2 50160 4 04521 00057 -1 14260 4 52144 00060 +3 36051 2 54421 00061 -2 03162 6 03333 00062 +2 46026 4 65144 00063 +2 34644 4 42145 V'S MESS2 = $NAME2 IS TAKEN AS 'BCD' IF OMITTED$, 006 LM00018 1 777777777777K 006 LM00019 00064 -3 77777 7 77777 00065 -2 36325 2 46060 00066 +3 12660 4 64431 00067 +1 42223 2 41460 00070 +2 54560 2 16260 00071 +3 16260 6 32142 00072 -0 52144 2 50260 V'S MESS3 = $REMARKS MUST BE CARD-IMAGE AND LESS THAN FIVE 007 LM00020 1RECORDS LONG$,777777777777K 007 LM00021 00073 -3 77777 7 77777 00074 -2 26043 4 64527 00075 -1 12523 4 65124 00076 +3 16525 6 06060 00077 -2 33021 4 56026 00100 -2 04325 6 26260 00101 +2 72560 2 14524 00102 -1 12440 3 14421 00103 -2 02225 6 02321 00104 -2 26044 6 46263 00105 -1 12544 2 15142 V'S LINE(1)...LINE(14) = $ $ 008 LM00022 00033 -2 06060 6 06060 00034 -2 06060 6 06060 00035 -2 06060 6 06060 00036 -2 06060 6 06060 00037 -2 06060 6 06060 00040 -2 06060 6 06060 00041 -2 06060 6 06060 00042 -2 06060 6 06060 00043 -2 06060 6 06060 00044 -2 06060 6 06060 00045 -2 06060 6 06060 00046 -2 06060 6 06060 00047 -2 06060 6 06060 00050 -2 06060 6 06060 V'S USER = $ USER$ 009 LM00023 00112 -2 06064 6 22551 V'S REMARK = $REMARK$ 010 LM00024 00111 -1 12544 2 15142 V'S FENCE = 777777777777K 011 LM00026 00032 -3 77777 7 77777 V'S LINMK = 777777K 012 LM00027 00052 +0 00000 7 77777 V'S MXWORD = 2160 013 LM00028 00106 +0 00000 0 04160 W'R COMARG.(1,N1) .E. FENCE 014 LM00032 00136 TSX +0 07400 4 00003 00137 TXH +3 00000 0 00114 00140 TXH +3 00000 0 00107 00141 SUB +0 40200 0 00032 00142 TNZ -0 10000 0 00154 PRNTP.(MESS1) 015 LM00033 00143 TSX +0 07400 4 00014 00144 TXH +3 00000 0 00063 PRNTP.(MESS2) 016 LM00034 00145 TSX +0 07400 4 00014 00146 TXH +3 00000 0 00072 GRIPE PRNTP.(MESS3) 017 LM00035 00147 TSX +0 07400 4 00014 00150 TXH +3 00000 0 00105 CHNCOM.(0) 018 LM00036 00151 TSX +0 07400 4 00001 00152 TXH +3 00000 0 00113 O'R COMARG.(2,N2) .E. FENCE 019 LM00037 00153 TRA +0 02000 0 00163 00154 TSX +0 07400 4 00003 00155 TXH +3 00000 0 00115 00156 TXH +3 00000 0 00110 00157 SUB +0 40200 0 00032 00160 TNZ -0 10000 0 00163 N2 = $ BCD$ 020 LM00038 00161 CLA +0 50000 0 00126 00162 STO +0 60100 0 00110 E'L 021 LM00039 FERRTN.(ERR1) 022 LM00043 00163 TSX +0 07400 4 00006 00164 TXH +3 00000 0 00024 FSTATE.(N1,N2,LTH...1) 023 LM00044 00165 TSX +0 07400 4 00007 00166 TXH +3 00000 0 00107 00167 TXH +3 00000 0 00110 00170 TIX +2 00114 0 00053 W'R (LTH.G.MXWORD) .OR. (((LTH/14)*14).NE.LTH), T'O GRIPE 024 LM00045 00171 LDQ +0 56000 0 00053 00172 PXD -0 75400 0 00000 00173 LLS +0 76300 0 00000 00174 DVP +0 22100 0 00116 00175 MPY +0 20000 0 00116 00176 XCA +0 13100 0 00000 00177 SUB +0 40200 0 00053 00200 TNZ -0 10000 0 00205 00201 CLA +0 50000 0 00053 00202 SUB +0 40200 0 00106 00203 TZE +0 10000 0 00206 00204 TMI -0 12000 0 00206 00205 TRA +0 02000 0 00025 BUFF1 = 1K5 - GMEM.(DUMMY) 025 LM00049 00206 TSX +0 07400 4 00011 00207 TXH +3 00000 0 00031 00210 CHS +0 76000 0 00002 00211 ADD +0 40000 0 00122 00212 STO +0 60100 0 00027 BUFF2 = BUFF1 - 432 026 LM00050 00213 CLA +0 50000 0 00027 00214 SUB +0 40200 0 00121 00215 STO +0 60100 0 00030 EXMEM.(LTH+432) 027 LM00051 00216 CLA +0 50000 0 00053 00217 ADD +0 40000 0 00121 00220 STO +0 60100 0 00362 00221 TSX +0 07400 4 00005 00222 TXH +3 00000 0 00362 OPEN.($R$,N1,N2,DUMMY) 028 LM00055 00223 TSX +0 07400 4 00012 00224 TXH +3 00000 0 00125 00225 TXH +3 00000 0 00107 00226 TXH +3 00000 0 00110 00227 TXH +3 00000 0 00031 RDFILE.(N1,N2,1,BUFF(BUFF2)...LTH) 029 LM00056 00230 CLA +0 50000 0 00030 00231 SUB +0 40200 0 00232 00232 TXH +3 00000 0 00024 00233 STA +0 62100 0 00240 00234 TSX +0 07400 4 00015 00235 TXH +3 00000 0 00107 00236 TXH +3 00000 0 00110 00237 TXH +3 00000 0 00114 00240 TIX +2 00053 0 00000 CLOSE.(N1,N2) 030 LM00057 00241 TSX +0 07400 4 00002 00242 TXH +3 00000 0 00107 00243 TXH +3 00000 0 00110 W'R ((BUFF(BUFF2).RS.18) .E. LINMK), T'O GRIPE 031 LM00061 00244 LXA +0 53400 1 00030 00245 CAL -0 50000 0 00117 00246 STA +0 62100 0 00250 00247 CAL -0 50000 1 00024 00250 LGR -0 76500 0 00000 00251 SLW +0 60200 0 00362 00252 CLA +0 50000 0 00362 00253 SUB +0 40200 0 00052 00254 TNZ -0 10000 0 00256 00255 TRA +0 02000 0 00025 TSSFIL. 032 LM00065 00256 TSX +0 07400 4 00016 OPEN.($W$,USER,REMARK,0) 033 LM00066 00257 TSX +0 07400 4 00012 00260 TXH +3 00000 0 00127 00261 TXH +3 00000 0 00112 00262 TXH +3 00000 0 00111 00263 TXH +3 00000 0 00113 BUFFER.(USER,REMARK,BUFF(BUFF1)...432) 034 LM00067 00264 CLA +0 50000 0 00027 00265 SUB +0 40200 0 00266 00266 TXH +3 00000 0 00024 00267 STA +0 62100 0 00273 00270 TSX +0 07400 4 00000 00271 TXH +3 00000 0 00112 00272 TXH +3 00000 0 00111 00273 TIX +2 00121 0 00000 WRWAIT.(USER,REMARK,0,LINE(14)...14) 035 LM00068 00274 TSX +0 07400 4 00022 00275 TXH +3 00000 0 00112 00276 TXH +3 00000 0 00111 00277 TXH +3 00000 0 00113 00300 TIX +2 00116 0 00033 GETTM.(LINE(8),LINE(7)) 036 LM00072 00301 TSX +0 07400 4 00010 00302 TXH +3 00000 0 00041 00303 TXH +3 00000 0 00042 WHOAMI.(LINE(12)...2) 037 LM00073 00304 TSX +0 07400 4 00020 00305 TIX +2 00115 0 00035 WRFILE.(USER,REMARK,0,LINE(14)...14) 038 LM00074 00306 TSX +0 07400 4 00021 00307 TXH +3 00000 0 00112 00310 TXH +3 00000 0 00111 00311 TXH +3 00000 0 00113 00312 TIX +2 00116 0 00033 WRFILE.(USER,REMARK,0,BUFF(BUFF2)...LTH) 039 LM00078 00313 CLA +0 50000 0 00030 00314 SUB +0 40200 0 00315 00315 TXH +3 00000 0 00024 00316 STA +0 62100 0 00323 00317 TSX +0 07400 4 00021 00320 TXH +3 00000 0 00112 00321 TXH +3 00000 0 00111 00322 TXH +3 00000 0 00113 00323 TIX +2 00053 0 00000 CLOSE.(USER,REMARK) 040 LM00079 00324 TSX +0 07400 4 00002 00325 TXH +3 00000 0 00112 00326 TXH +3 00000 0 00111 USRFIL. 041 LM00083 00327 TSX +0 07400 4 00017 CHNCOM.(0) 042 LM00084 00330 TSX +0 07400 4 00001 00331 TXH +3 00000 0 00113 ERR1 PRNTER.(61K) 043 LM00088 00332 TSX +0 07400 4 00013 00333 TXH +3 00000 0 00120 CLOSE.($ALL$,-0,NERR1) 044 LM00089 00334 CLS +0 50200 0 00113 00335 STO +0 60100 0 00362 00336 TSX +0 07400 4 00002 00337 TXH +3 00000 0 00123 00340 TXH +3 00000 0 00362 00341 TXH +3 00000 0 00026 NERR1 CHNCOM.(1) 045 LM00090 00342 TSX +0 07400 4 00001 00343 TXH +3 00000 0 00114 E'N 046 LM00092 00344 TSX +0 07400 4 00004 00345 TXH +3 00000 0 00000 00346 SXD -0 63400 1 00345 00347 SXA +0 63400 4 00356 00350 CLA +0 50000 4 00001 00351 STO +0 60100 0 00232 00352 STA +0 62100 0 00247 00353 STO +0 60100 0 00266 00354 STO +0 60100 0 00315 00355 TRA +0 02000 2 00001 00356 AXT +0 77400 4 00000 00357 LXA +0 53400 2 00345 00360 LXD -0 53400 1 00345 00361 TRA +0 02000 4 00001 REVOKE BCD 09/18/68 2319.5 3663 00000 1 MAD PROGRAM LISTING ... ... ... FILE REVOK MAD 02/08/68 1227.3 - .. REVOKE COMMAND. LM00001 LM00002 .. DOES GARBAGE COLLECTION, BUT LM00003 .. DOESN'T CHASE-DOWN LINKS TO LM00004 .. UNLINK EXISTING LINKS TO LM00005 .. FILE BEING REVOKED. LM00006 LM00007 .. J. H. SALTZER, AUGUST, 1965. LM00008 (MODIFIED AND MAINTAINED BY D.E. OPPERT) LM00009 (SEPT-NOV, 1965) LM00010 LM00011 LM00012 NORMAL MODE IS INTEGER *001 LM00013 VECTOR VALUES DVEC(6) = 777777000005K *002 LM00014 VECTOR VALUES FENCE = 777777777777K *003 LM00015 VECTOR VALUES DVEC(1)...DVEC(5) = $REVOKE$ *004 LM00016 VECTOR VALUES P = $PERMIT$ *005 LM00017 VECTOR VALUES F = $ FILE$ *006 LM00018 DIMENSION VEC(5), RVEC(6) *007 LM00019 DIMENSION RBUFF(432) *008 LM00020 LM00021 .. CHECK ARGUMENTS. LM00022 LM00023 THROUGH GETARG, FOR I = 5, -1, I .L. 2 *009 LM00024 VEC(I) = COMARG.(6-I) *010 LM00025 GETARG WHENEVER VEC(I) .E. FENCE, TRANSFER TO BADARG *011 LM00026 WHENEVER COMARG.(5) .NE. FENCE, TRANSFER TO BADARG *012 LM00027 WHENEVER VEC(3) .NE. $ *$ .AND. VEC(3) .NE. $REVOKE$ *013 LM00028 VEC(3) = REPROB.(VEC(3)) *014 LM00029 END OF CONDITIONAL *015 LM00030 LM00031 OPEN.($RW$, P, F, 040K) *016 LM00032 BUFFER.(P, F, RBUFF(432)...432) *017 LM00033 PNTR = 1 *018 LM00034 LOOP RDWAIT.(P, F, PNTR, RVEC(6)...6, EOF) *019 LM00035 THROUGH CPR, FOR I = 5, -1, I .L. 2 *020 LM00036 CPR WHENEVER VEC(I) .NE. RVEC(I), TRANSFER TO SCAN *021 LM00037 LM00038 FOUND THE FILE TO BE DELETED FROM P F LM00039 LM00040 PA RDWAIT. (P, F, PNTR+6, RVEC(6)...6, EOF2) *022 LM00041 WRWAIT. (P, F, PNTR, RVEC(6)...6) *023 LM00042 LM00043 PNTR = PNTR + 6 *024 LM00044 TRANSFER TO PA *025 LM00045 LM00046 AN ENTRY IN P F HAS BEEN REMOVED. LM00047 LOOP ENTITLED PA WILL BE XEC'D UNTIL LM00048 END OF FILE IS REACHED. FILE LM00049 MUST THEN BE TRUNCATED. LM00050 LM00051 EOF2 TRFILE. (P, F, PNTR) *026 LM00052 LM00053 LM00054 EOF CLOSE.(P, F) *027 LM00055 CHNCOM.(0) *028 LM00056 LM00057 LM00058 SCAN PNTR = PNTR + 6 *029 LM00059 TRANSFER TO LOOP *030 LM00060 LM00061 LM00062 BADARG PRINT COMMENT $REVOKE NAME1 NAME2 PROBNO PROGNO$ *031 LM00063 CHNCOM.(0) *032 LM00064 LM00065 END OF PROGRAM *033 LM00066 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01135 TRANSFER VECTOR LENGTH 00014 PROGRAM BEGINS 00750 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BADARG 00015 4 EOF 00017 4 I 00034 1 PNTR 00035 1 RVEC 00726 A 1 CPR 00014 4 FENCE 00032 A 1 LOOP 00020 4 P 00036 A 1 SCAN 00022 4 DVEC 00031 A 1 F 00033 A 1 PA 00021 4 RBUFF 00717 A 1 VEC 00734 A 1 EOF2 00016 4 GETARG 00014 4 0FUNCTION DICTIONARY BUFFER 00000 1 CHNCOM 00001 1 CLOSE 00002 1 COMARG 00003 1 EXIT 00004 1 .PCOMT 00005 1 .SETUP 00006 1 OPEN 00007 1 RDWAIT 00010 1 REPROB 00011 1 TRFILE 00012 1 WRWAIT 00013 1 0ABSOLUTE CONSTANTS 00735 +000000000000 00743 +000000000660 00742 +000000000040 00746 -116660606060 00747 -206060606054 00745 -112565464225 00741 +000000000006 00737 +000000000002 00740 +000000000005 00736 +000000000001 00744 +233000000000 0STATEMENT DICTIONARY 00015 TXL -301127001117 00016 TXL -301106001102 00017 TXL -301111001106 00020 TXL -301037001031 00021 TXL -301071001060 00022 TXL -301116001113 0PROGRAM NORMAL MODE IS INTEGER 001 LM00013 VECTOR VALUES DVEC(6) = 777777000005K 002 LM00014 00750 TSX +0 07400 4 00006 00023 -3 77777 0 00005 VECTOR VALUES FENCE = 777777777777K 003 LM00015 00032 -3 77777 7 77777 VECTOR VALUES DVEC(1)...DVEC(5) = $REVOKE$ 004 LM00016 00024 -1 12565 4 64225 00025 -1 12565 4 64225 00026 -1 12565 4 64225 00027 -1 12565 4 64225 00030 -1 12565 4 64225 VECTOR VALUES P = $PERMIT$ 005 LM00017 00036 -0 72551 4 43163 VECTOR VALUES F = $ FILE$ 006 LM00018 00033 -2 06026 3 14325 DIMENSION VEC(5), RVEC(6) 007 LM00019 DIMENSION RBUFF(432) 008 LM00020 THROUGH GETARG, FOR I = 5, -1, I .L. 2 009 LM00024 00751 CLA +0 50000 0 00740 00752 STO +0 60100 0 00034 00753 TRA +0 02000 0 00757 00754 CLS +0 50200 0 00736 00755 ADD +0 40000 0 00034 00756 STO +0 60100 0 00034 00757 CLA +0 50000 0 00034 00760 SUB +0 40200 0 00737 00761 TZE +0 10000 0 00763 00762 TMI -0 12000 0 01000 VEC(I) = COMARG.(6-I) 010 LM00025 00763 CLA +0 50000 0 00741 00764 SUB +0 40200 0 00034 00765 STO +0 60100 0 01132 00766 TSX +0 07400 4 00003 00767 TXH +3 00000 0 01132 00770 LXA +0 53400 1 00034 00771 STO +0 60100 1 00734 GETARG WHENEVER VEC(I) .E. FENCE, TRANSFER TO BADARG 011 LM00026 00772 LXA +0 53400 1 00034 00773 CLA +0 50000 1 00734 00774 SUB +0 40200 0 00032 00775 TNZ -0 10000 0 00777 00776 TRA +0 02000 0 00015 00777 TRA +0 02000 0 00754 WHENEVER COMARG.(5) .NE. FENCE, TRANSFER TO BADARG 012 LM00027 01000 TSX +0 07400 4 00003 01001 TXH +3 00000 0 00740 01002 SUB +0 40200 0 00032 01003 TZE +0 10000 0 01005 01004 TRA +0 02000 0 00015 W'R VEC(3) .NE. $ *$ .AND. VEC(3) .NE. $REVOKE$ 013 LM00028 01005 CLA +0 50000 0 00731 01006 SUB +0 40200 0 00745 01007 TZE +0 10000 0 01016 01010 CLA +0 50000 0 00731 01011 SUB +0 40200 0 00747 01012 TZE +0 10000 0 01016 VEC(3) = REPROB.(VEC(3)) 014 LM00029 01013 TSX +0 07400 4 00011 01014 TXH +3 00000 0 00731 01015 STO +0 60100 0 00731 END OF CONDITIONAL 015 LM00030 OPEN.($RW$, P, F, 040K) 016 LM00032 01016 TSX +0 07400 4 00007 01017 TXH +3 00000 0 00746 01020 TXH +3 00000 0 00036 01021 TXH +3 00000 0 00033 01022 TXH +3 00000 0 00742 BUFFER.(P, F, RBUFF(432)...432) 017 LM00033 01023 TSX +0 07400 4 00000 01024 TXH +3 00000 0 00036 01025 TXH +3 00000 0 00033 01026 TIX +2 00743 0 00037 PNTR = 1 018 LM00034 01027 CLA +0 50000 0 00736 01030 STO +0 60100 0 00035 LOOP RDWAIT.(P, F, PNTR, RVEC(6)...6, EOF) 019 LM00035 01031 TSX +0 07400 4 00010 01032 TXH +3 00000 0 00036 01033 TXH +3 00000 0 00033 01034 TXH +3 00000 0 00035 01035 TIX +2 00741 0 00720 01036 TXH +3 00000 0 00017 THROUGH CPR, FOR I = 5, -1, I .L. 2 020 LM00036 01037 CLA +0 50000 0 00740 01040 STO +0 60100 0 00034 01041 TRA +0 02000 0 01045 01042 CLS +0 50200 0 00736 01043 ADD +0 40000 0 00034 01044 STO +0 60100 0 00034 01045 CLA +0 50000 0 00034 01046 SUB +0 40200 0 00737 01047 TZE +0 10000 0 01051 01050 TMI -0 12000 0 01060 CPR WHENEVER VEC(I) .NE. RVEC(I), TRANSFER TO SCAN 021 LM00037 01051 LXA +0 53400 1 00034 01052 LXA +0 53400 2 00034 01053 CLA +0 50000 1 00734 01054 SUB +0 40200 2 00726 01055 TZE +0 10000 0 01057 01056 TRA +0 02000 0 00022 01057 TRA +0 02000 0 01042 PA RDWAIT. (P, F, PNTR+6, RVEC(6)...6, EOF2) 022 LM00041 01060 CLA +0 50000 0 00035 01061 ADD +0 40000 0 00741 01062 STO +0 60100 0 01132 01063 TSX +0 07400 4 00010 01064 TXH +3 00000 0 00036 01065 TXH +3 00000 0 00033 01066 TXH +3 00000 0 01132 01067 TIX +2 00741 0 00720 01070 TXH +3 00000 0 00016 WRWAIT. (P, F, PNTR, RVEC(6)...6) 023 LM00042 01071 TSX +0 07400 4 00013 01072 TXH +3 00000 0 00036 01073 TXH +3 00000 0 00033 01074 TXH +3 00000 0 00035 01075 TIX +2 00741 0 00720 PNTR = PNTR + 6 024 LM00044 01076 CLA +0 50000 0 00035 01077 ADD +0 40000 0 00741 01100 STO +0 60100 0 00035 T'O PA 025 LM00045 01101 TRA +0 02000 0 00021 EOF2 TRFILE. (P, F, PNTR) 026 LM00052 01102 TSX +0 07400 4 00012 01103 TXH +3 00000 0 00036 01104 TXH +3 00000 0 00033 01105 TXH +3 00000 0 00035 EOF CLOSE.(P, F) 027 LM00055 01106 TSX +0 07400 4 00002 01107 TXH +3 00000 0 00036 01110 TXH +3 00000 0 00033 CHNCOM.(0) 028 LM00056 01111 TSX +0 07400 4 00001 01112 TXH +3 00000 0 00735 SCAN PNTR = PNTR + 6 029 LM00059 01113 CLA +0 50000 0 00035 01114 ADD +0 40000 0 00741 01115 STO +0 60100 0 00035 T'O LOOP 030 LM00060 01116 TRA +0 02000 0 00020 BADARG PRINT COMMENT $REVOKE NAME1 NAME2 PROBNO PROGNO$ 031 LM00063 01117 TSX +0 07400 4 00005 01120 +0 00000 0 00006 01121 -1 12565 4 64225 01122 -2 04521 4 42501 01123 -2 04521 4 42502 01124 -2 04751 4 62245 01125 -0 66047 5 14627 01126 -0 54660 6 06060 CHNCOM.(0) 032 LM00064 01127 TSX +0 07400 4 00001 01130 TXH +3 00000 0 00735 END OF PROGRAM 033 LM00066 01131 TSX +0 07400 4 00004 1 PAGE 1 FILE NAME -- REPRB FAP * 00002 ENTRY REPROB REFORMAT PROBLEM NUMBER. * J.H. SALTZER * (MAINTAINED BY D.E. OPPERT) * (SEPT - OCT, 1965) * * LINKAGE DIRECTOR 00000 000000000000 00001 512547514622 00002 0560 60 4 00001 REPROB LDQ* 1,4 GET PROBLEM NUMBER WITH LEADING BLANKS. 00003 0774 00 1 00000 AXT 0,1 COUNT BLANKS. 00004 -0754 00 0 00000 LP ZAC CLEAR FOR COMPARISON. 00005 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER. 00006 -0340 00 0 00024 LAS =H00000 COMPARE WITH ONE BLANK. 00007 0020 00 0 00011 TRA FND NOT BLANK, GO. 00010 1 00001 1 00004 TXI LP,1,1 YES, COUNT IT. 00011 -0501 00 0 00025 FND ORA =H0000 0 NON-BLANK FOUND, ADD PRECEDING BLANK. 00012 -2 00001 1 00015 LOOP TNX DONE,1,1 SEE HOW MANY ZEROS TO ADD. 00013 0767 00 0 00006 ALS 6 MOVE IN A ZERO. 00014 0020 00 0 00012 TRA LOOP 00015 0140 00 0 00016 DONE TOV *+1 TURN OFF OVERFLOW INDICATOR. 00016 -0763 00 0 00006 LGL 6 00017 -0140 00 0 00016 TNO *-1 .. 00020 0602 00 0 00023 SLW TEMP 00021 0500 00 0 00023 CLA TEMP 00022 0020 00 4 00001 TRA 1,4 RETURN TO MAD PROGRAM 00023 0 00000 0 00000 TEMP TEMPORARY STORAGE FOR RESULT. END LITERALS 00024 000000000060 00025 000000006000 1 PAGE 1 POST PROCESSOR ASSEMBLY DATA 26 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 4 LP 10 11 FND 7 15 DONE 12 12 LOOP 14 23 TEMP 20, 21 2 REPROB 0 0 NO ERROR IN ABOVE ASSEMBLY. RQUEST BCD 02/09/69 0028.9 12794 00000 1 MAD PROGRAM LISTING ... ... ... FILE RQUEST MAD 01/25/69 2140.7 - .. THE REQUEST COMMAND 'RQUEST'. LM00001 .. REWRITTEN BY ROGER ROACH 3/25/68 TO BELIEVE IN THE LISTF LM00002 .. STAR '*' CONVENTIONS. LM00003 .. LAST MODIFIED 04/16/68 BY D.A. ANDERSON LM00004 LM00005 NORMAL MODE IS INTEGER *001 LM00006 BOOLEAN CARRYI, SCANI, ONCE, FIRST, CLOSEI,GOOD *002 LM00007 DIMENSION COMBUF(20),LINE(15),ENTRY(9),BUFF(431) *003 LM00008 EQUIVALENCE (COMBUF(20),FENCE),(ENTRY(9),N1),(ENTRY(8),N2) *004 LM00009 EQUIVALENCE (ENTRY(1),N3),(ENTRY,N4) *005 LM00010 VECTOR VALUES CARRYI = 0B *006 LM00011 VECTOR VALUES CLOSEI = 0B *007 LM00012 VECTOR VALUES ONCE = 1B *008 LM00013 VECTOR VALUES FIRST = 1B *009 LM00014 VECTOR VALUES GOOD = 0B *010 LM00015 VECTOR VALUES ANSWER = $YES$ *011 LM00016 VECTOR VALUES D = 2 *012 LM00017 VECTOR VALUES FENCE = 777777777777K *013 LM00018 VECTOR VALUES B = 605757575757K *014 LM00019 VECTOR VALUES CB = 736057575757K *015 LM00020 VECTOR VALUES OR = 465157575757K *016 LM00021 VECTOR VALUES OUT = $OUTPUT$ *017 LM00022 VECTOR VALUES RQ = $RQUEST$ *018 LM00023 VECTOR VALUES TABLE = 14,$ PRINT$,$PRNDEL$,$SSPRNT$,$SSPRDL$,$BPUNCH$, *019 LM00024 1 $BPUDEL$,$DPUNCH$,$DPUDEL$,$7PUNCH$,$7PUDEL$,$DELETE$, *019 LM00025 2 $ PLOT$,$PLODEL$,$ CARRY$ *019 LM00026 LM00027 INITIALIZE THE COMMAND BUFFERS AND TEST FOR NO ARGUMENTS. LM00028 LM00029 GCLS.(COMBUF,0) *020 LM00030 RQ = COMBUF(0) *021 LM00031 WHENEVER COMBUF(1).E. FENCE *022 LM00032 PRMESS.(COMBUF,$ CMMD NAME1 NAME2 ...ETC$) *023 LM00033 PRMESS.($ WHERE CMMD MAY BY ANY OF THE FOLLOWING -$) *024 LM00034 THROUGH LOOP0, FOR I=1,1,I.G.TABLE-1 *025 LM00035 PRMESA.(TABLE(I),CB) *026 LM00036 LOOP0 WHENEVER I.E. I/9*9, PRMESS. *027 LM00037 PRMESS.(OR,TABLE(TABLE)) *028 LM00038 CHNCOM.(0) *029 LM00039 END OF CONDITIONAL *030 LM00040 LM00041 LM00042 LOOP1 THROUGH LOOP1, FOR I=1,1,COMBUF(1).E.TABLE(I).OR.I.G.TABLE *031 LM00043 WHENEVER I .G. TABLE *032 LM00044 PRMESS.(COMBUF(1),$ IS NOT A RQUEST$) *033 LM00045 CHNCOM.(0) *034 LM00046 END OF CONDITIONAL *035 LM00047 LM00048 LM00049 WHOAMI.(LINE(3)...4) *036 LM00050 FERRTN.(IOERR) *037 LM00051 LINE(15) = COMBUF(1) *038 LM00052 FSTATE.(OUT,RQ,ENTRY(7)...8,FERR,FCODE) *039 LM00053 WHENEVER ENTRY(5).NE.1 *040 LM00054 PRMESS.($THE RQUEST FILE IS BUSY. RETYPE RQUEST LATER.$) *041 LM00055 CHNCOM.(0) *042 LM00056 OR WHENEVER ENTRY(6) .A. 1 .NE. 0 *043 LM00057 CHFILE.(OUT,RQ,1,-0,-0) *044 LM00058 DELFIL.(OUT,RQ) *045 LM00059 END OF CONDITIONAL *046 LM00060 LM00061 LM00062 OK WHENEVER COMBUF(1) .E. $ CARRY$ *047 LM00063 CARRYI = 1B *048 LM00064 D = 6 *049 LM00065 END OF CONDITIONAL *050 LM00066 LM00067 LM00068 THROUGH LOOP2,FOR I = 2,D,COMBUF(I).E.FENCE.OR.I.G.18 *051 LM00069 WHENEVER COMBUF(I+1).E.FENCE *052 LM00070 PRMESS.(COMBUF(I),$ IS AN INCOMPLETE REQUEST. $) *053 LM00071 TRANSFER TO GOHOME *054 LM00072 END OF CONDITIONAL *055 LM00073 LM00074 LM00075 MASK1 = NAMASK.(COMBUF(I)) *056 LM00076 MASK2 = NAMASK.(COMBUF(I+1)) *057 LM00077 WHENEVER MASK1.A.MASK2 .E. FENCE *058 LM00078 SCANI = 0B *059 LM00079 N1 = COMBUF(I) *060 LM00080 N2 = COMBUF(I+1) *061 LM00081 FSTATE.(N1,N2,ENTRY(7)...8,IOERR2,ERCODE) *062 LM00082 OTHERWISE *063 LM00083 SCANI = 1B *064 LM00084 WHENEVER ONCE *065 LM00085 ONCE = 0B *066 LM00086 UPDATE. *067 LM00087 SCNFIL.($U.F.D.(FILE)$) *068 LM00088 END OF CONDITIONAL *069 LM00089 ISCAN.(COMBUF(I),COMBUF(I+1)) *070 LM00090 SCAN.(ENTRY(9)...7,NOPE) *071 LM00091 END OF CONDITIONAL *072 LM00092 LM00093 LM00094 TRANSFER TO FTEST *073 LM00095 LM00096 LM00097 LOOP2 CONTINUE *074 LM00098 GOHOME WRTBUF. *075 LM00099 EGRETS WHENEVER CLOSEI, CLOSE.($ALL$,-0) *076 LM00100 RESETF. *077 LM00101 CHNCOM.(0) *078 LM00102 LM00103 LM00104 FERR WHENEVER FCODE .E. 3 , TRANSFER TO OK *079 LM00105 IOERR PRNTER.(61K) *080 LM00106 TRANSFER TO EGRETS *081 LM00107 LM00108 LM00109 IOERR2 WHENEVER ERCODE .E. 3 *082 LM00110 NOPE PRMESS.(COMBUF(I),B,COMBUF(I+1),$ NOT FOUND,$) *083 LM00111 WHENEVER CARRYI .AND. (COMBUF(I+2).E.FENCE.OR.COMBUF(I+3).E. *084 LM00112 1 FENCE.OR.COMBUF(I+4).E.FENCE.OR.COMBUF(I+5).E.FENCE),D=20 *084 LM00113 WHENEVER .NOT.SCANI, TRANSFER TO ASK *085 LM00114 TRANSFER TO LOOP2 *086 LM00115 OTHERWISE *087 LM00116 PRNTER.(61K) *088 LM00117 TRANSFER TO LOOP2 *089 LM00118 END OF CONDITIONAL *090 LM00119 LM00120 LM00121 FTEST WHENEVER (.NOT.SCANI.AND.ENTRY(6).A.20K.NE.0).OR. *091 LM00122 1 (SCANI.AND.(ENTRY(5).RS.28).A.20K.NE.0) *091 LM00123 PRMESA.(N1,B,N2,$ IS IN 'PRIVATE' MODE.$) *092 LM00124 ASK PRMESA.($DO YOU STILL WANT REQUEST,$) *093 LM00125 WHENEVER LINE.NE.$(FIB)$, RDFLXC.(ANSWER,6) *094 LM00126 WHENEVER ANSWER.NE.$YES$, TRANSFER TO NEXT *095 LM00127 END OF CONDITIONAL *096 LM00128 WHENEVER FIRST *097 LM00129 FIRST = 0B *098 LM00130 OPEN.($W$,OUT,RQ) *099 LM00131 BUFFER.(OUT,RQ,BUFF(431)...432) *100 LM00132 SETBUF.(LINE(14)...11,GOOD,WRCARD.,PANIC) *101 LM00133 END OF CONDITIONAL *102 LM00134 WHENEVER CARRYI *103 LM00135 ATTNAM.(ENTRY(3)...2) *104 LM00136 ENTRY(1) = N1 *105 LM00137 ENTRY = N2 *106 LM00138 THROUGH LOOP3, FOR J=1,1,J.G.4.OR.COMBUF(I+1+J).E.FENCE *107 LM00139 WHENEVER COMBUF(I+J+1).E.$ *$, TRANSFER TO LOOP3 *108 LM00140 ENTRY(4-J) = COMBUF(I+1+J) *109 LM00141 LOOP3 CONTINUE *110 LM00142 WHENEVER COMBUF(I+J+1) .E. FENCE, D = 20 *111 LM00143 MASK3 = NAMASK.(N3) *112 LM00144 MASK4 = NAMASK.(N4) *113 LM00145 MASK3P = COM.(MASK3) *114 LM00146 MASK4P = COM.(MASK4) *115 LM00147 N3 = (N1.A.MASK3P).V.(N3.A.MASK3) *116 LM00148 N4 = (N2.A.MASK4P).V.(N4.A.MASK4) *117 LM00149 FILBUF.(ENTRY(9)...2,ENTRY(3)...4) *118 LM00150 WRTBUF. *119 LM00151 OTHERWISE *120 LM00152 FILBUF.(ENTRY(9)...2) *121 LM00153 END OF CONDITIONAL *122 LM00154 LM00155 NEXT WHENEVER SCANI *123 LM00156 SCAN.(ENTRY(9)...7,LOOP2) *124 LM00157 TRANSFER TO FTEST *125 LM00158 OTHERWISE *126 LM00159 TRANSFER TO LOOP2 *127 LM00160 END OF CONDITIONAL *128 LM00161 LM00162 PANIC PRMESS.($MACHINE OR SYSTEM ERROR. IGNORING$,N1,N2) *129 LM00163 TRANSFER TO NEXT *130 LM00164 LM00165 INTERNAL FUNCTION *131 LM00166 ENTRY TO WRCARD. *132 LM00167 LM00168 WRWAIT.(OUT,RQ,0,LINE(15)...14) *133 LM00169 GOOD = 0B *134 LM00170 CLOSEI = 1B *135 LM00171 FUNCTION RETURN *136 LM00172 LM00173 END OF FUNCTION *137 LM00174 LM00175 END OF PROGRAM *138 LM00176 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 02155 TRANSFER VECTOR LENGTH 00034 PROGRAM BEGINS 01166 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ANSWER 00112 A 1 ENTRY 00074 A 1 IOERR 00103 4 MASK3P 01030 1 NOPE 00107 4 ASK 00075 4 ERCODE 01000 1 I 01004 1 MASK3 01031 1 OK 00110 4 B 00113 A 1 FCODE 01001 1 J 01005 1 MASK4P 01032 1 ONCE 01034 A 2 BUFF 00773 A 1 FENCE 00036 A 1 LINE 01025 A 1 MASK4 01033 1 OR 01035 A 1 CARRYI 00774 A 2 FERR 00077 4 LOOP0 00035 4 N1 00063 1 OUT 01036 A 1 CB 00775 A 1 FIRST 01002 A 2 LOOP1 00035 4 N2 00064 1 PANIC 00111 4 CLOSEI 00776 A 2 FTEST 00100 4 LOOP2 00104 4 N3 00073 1 RQ 01037 A 1 COMBUF 00062 A 1 GOHOME 00101 4 LOOP3 00105 4 N4 00074 1 SCANI 01040 2 D 00777 A 1 GOOD 01003 A 2 MASK1 01026 1 NEXT 00106 4 TABLE 01057 A 1 EGRETS 00076 4 IOERR2 00102 4 MASK2 01027 1 0FUNCTION DICTIONARY ATTNAM 00000 1 BUFFER 00001 1 CHFILE 00002 1 CHNCOM 00003 1 CLOSE 00004 1 COM 00005 1 DELFIL 00006 1 EXIT 00007 1 FERRTN 00010 1 FILBUF 00011 1 FSTATE 00012 1 GCLS 00013 1 ISCAN 00014 1 .SETUP 00015 1 NAMASK 00016 1 OPEN 00017 1 PRMESA 00020 1 PRMESS 00021 1 PRNTER 00022 1 RDFLXC 00023 1 RESETF 00024 1 SCAN 00025 1 SCNFIL 00026 1 SETBUF 00027 1 UPDATE 00030 1 WHOAMI 00031 1 WRTBUF 00032 1 WRWAIT 00033 1 WRCARD 00034 1 0ABSOLUTE CONSTANTS 01073 +000000000016 01113 +314527606060 01133 -203127454651 01106 +255151465133 01163 -306263254460 01110 +256046516062 01115 -042123303145 01143 -206060606054 01072 +000000000013 01101 +000000000660 01160 -266060606060 01161 -302562606060 01164 -342631223460 01153 -237360606060 01146 -206621456360 01145 -206263314343 01105 +244660704664 01120 -062425336060 01103 +216325146044 01126 -201447513165 01136 -203162603145 01074 +000000000020 01077 +000000000034 01076 +000000000024 01065 +000000000005 01122 -066445247360 01141 -204546636026 01100 +000000000061 01063 +000000000003 01102 +214343606060 01067 +000000000007 01165 -342631432534 01156 -243326332433 01151 -233360606060 01125 -112550642562 01124 -074325632560 01134 -203145234644 01135 -203162602145 01075 +000000000022 01062 +000000000002 01066 +000000000006 01130 -202321515170 01147 -232551336060 01111 +256263604321 01123 -072560515064 01142 -206051256370 01127 -202264627033 01112 +314325603162 01154 -242562636026 01150 -233025605150 01070 +000000000010 01064 +000000000004 01155 -242562636060 01152 -236021605150 01137 -203162604546 01071 +000000000011 01157 -263145276040 01132 -202646434346 01121 -062660633025 01162 -306021457060 01140 -204421706022 01107 +256023444424 01144 -206066302551 01114 +333333256323 01117 -052144250260 01116 -052144250160 01131 -202344442460 01060 +000000000000 01061 +000000000001 01104 +233000000000 0STATEMENT DICTIONARY 00075 TXL -301716001710 00076 TXL -301554001545 00077 TXL -301563001557 00100 TXL -301700001654 00101 TXL -301545001544 00102 TXL -301571001566 00103 TXL -301565001563 00104 TXL -301544001543 00105 TXL -302025002024 00106 TXL -302101002077 00107 TXL -301610001571 00110 TXL -301377001374 00111 TXL -302120002107 0PROGRAM N'R 001 LM00006 BOOLEAN CARRYI, SCANI, ONCE, FIRST, CLOSEI,GOOD 002 LM00007 D'N COMBUF(20),LINE(15),ENTRY(9),BUFF(431) 003 LM00008 E'E (COMBUF(20),FENCE),(ENTRY(9),N1),(ENTRY(8),N2) 004 LM00009 E'E (ENTRY(1),N3),(ENTRY,N4) 005 LM00010 V'S CARRYI = 0B 006 LM00011 01166 TSX +0 07400 4 00015 00774 +0 00000 0 00000 V'S CLOSEI = 0B 007 LM00012 00776 +0 00000 0 00000 V'S ONCE = 1B 008 LM00013 01034 +0 00000 0 00001 V'S FIRST = 1B 009 LM00014 01002 +0 00000 0 00001 V'S GOOD = 0B 010 LM00015 01003 +0 00000 0 00000 V'S ANSWER = $YES$ 011 LM00016 00112 -3 02562 6 06060 V'S D = 2 012 LM00017 00777 +0 00000 0 00002 V'S FENCE = 777777777777K 013 LM00018 00036 -3 77777 7 77777 V'S B = 605757575757K 014 LM00019 00113 -2 05757 5 75757 V'S CB = 736057575757K 015 LM00020 00775 -3 36057 5 75757 V'S OR = 465157575757K 016 LM00021 01035 -0 65157 5 75757 V'S OUT = $OUTPUT$ 017 LM00022 01036 -0 66463 4 76463 V'S RQ = $RQUEST$ 018 LM00023 01037 -1 15064 2 56263 V'S TABLE = 14,$ PRINT$,$PRNDEL$,$SSPRNT$,$SSPRDL$,$BPUNCH$, 019 LM00024 1 $BPUDEL$,$DPUNCH$,$DPUDEL$,$7PUNCH$,$7PUDEL$,$DELETE$, 019 LM00025 2 $ PLOT$,$PLODEL$,$ CARRY$ 019 LM00026 01041 -2 02321 5 15170 01042 -0 74346 2 42543 01043 -2 06047 4 34663 01044 +2 42543 2 56325 01045 +0 74764 2 42543 01046 +0 74764 4 52330 01047 +2 44764 2 42543 01050 +2 44764 4 52330 01051 +2 24764 2 42543 01052 +2 24764 4 52330 01053 -2 26247 5 12443 01054 -2 26247 5 14563 01055 -0 75145 2 42543 01056 -2 04751 3 14563 01057 +0 00000 0 00016 GCLS.(COMBUF,0) 020 LM00030 01167 TSX +0 07400 4 00013 01170 TXH +3 00000 0 00062 01171 TXH +3 00000 0 01060 RQ = COMBUF(0) 021 LM00031 01172 CLA +0 50000 0 00062 01173 STO +0 60100 0 01037 W'R COMBUF(1).E. FENCE 022 LM00032 01174 CLA +0 50000 0 00061 01175 SUB +0 40200 0 00036 01176 TNZ -0 10000 0 01264 PRMESS.(COMBUF,$ CMMD NAME1 NAME2 ...ETC$) 023 LM00033 01177 TSX +0 07400 4 00021 01200 TXH +3 00000 0 00062 01201 TXH +3 00000 0 01131 01202 TXH +3 00000 0 01116 01203 TXH +3 00000 0 01117 01204 TXH +3 00000 0 01114 PRMESS.($ WHERE CMMD MAY BY ANY OF THE FOLLOWING -$) 024 LM00034 01205 TSX +0 07400 4 00021 01206 TXH +3 00000 0 01144 01207 TXH +3 00000 0 01107 01210 TXH +3 00000 0 01140 01211 TXH +3 00000 0 01162 01212 TXH +3 00000 0 01121 01213 TXH +3 00000 0 01132 01214 TXH +3 00000 0 01157 T'H LOOP0, FOR I=1,1,I.G.TABLE-1 025 LM00035 01215 CLA +0 50000 0 01061 01216 STO +0 60100 0 01004 01217 TRA +0 02000 0 01223 01220 CLA +0 50000 0 01004 01221 ADD +0 40000 0 01061 01222 STO +0 60100 0 01004 01223 CLA +0 50000 0 01057 01224 SUB +0 40200 0 01061 01225 CHS +0 76000 0 00002 01226 ADD +0 40000 0 01004 01227 TZE +0 10000 0 01231 01230 TPL +0 12000 0 01253 PRMESA.(TABLE(I),CB) 026 LM00036 01231 CLA +0 50000 0 01004 01232 SUB +0 40200 0 01233 01233 TXH +3 00000 0 01057 01234 STA +0 62100 0 01236 01235 TSX +0 07400 4 00020 01236 TXH +3 00000 0 00000 01237 TXH +3 00000 0 00775 LOOP0 W'R I.E. I/9*9, PRMESS. 027 LM00037 01240 LDQ +0 56000 0 01004 01241 PXD -0 75400 0 00000 01242 LLS +0 76300 0 00000 01243 DVP +0 22100 0 01071 01244 MPY +0 20000 0 01071 01245 XCA +0 13100 0 00000 01246 CHS +0 76000 0 00002 01247 ADD +0 40000 0 01004 01250 TNZ -0 10000 0 01252 01251 TSX +0 07400 4 00021 01252 TRA +0 02000 0 01220 PRMESS.(OR,TABLE(TABLE)) 028 LM00038 01253 CLA +0 50000 0 01057 01254 SUB +0 40200 0 01255 01255 TXH +3 00000 0 01057 01256 STA +0 62100 0 01261 01257 TSX +0 07400 4 00021 01260 TXH +3 00000 0 01035 01261 TXH +3 00000 0 00000 CHNCOM.(0) 029 LM00039 01262 TSX +0 07400 4 00003 01263 TXH +3 00000 0 01060 E'L 030 LM00040 LOOP1 T'H LOOP1, FOR I=1,1,COMBUF(1).E.TABLE(I).OR.I.G.TABLE 031 LM00043 01264 CLA +0 50000 0 01061 01265 STO +0 60100 0 01004 01266 TRA +0 02000 0 01272 01267 CLA +0 50000 0 01004 01270 ADD +0 40000 0 01061 01271 STO +0 60100 0 01004 01272 CLA +0 50000 0 01004 01273 SUB +0 40200 0 01057 01274 TZE +0 10000 0 01276 01275 TPL +0 12000 0 01303 01276 LXA +0 53400 2 01004 01277 CLA +0 50000 0 00061 01300 SUB +0 40200 2 01057 01301 TZE +0 10000 0 01303 01302 TRA +0 02000 0 01267 W'R I .G. TABLE 032 LM00044 01303 CLA +0 50000 0 01004 01304 SUB +0 40200 0 01057 01305 TZE +0 10000 0 01316 01306 TMI -0 12000 0 01316 PRMESS.(COMBUF(1),$ IS NOT A RQUEST$) 033 LM00045 01307 TSX +0 07400 4 00021 01310 TXH +3 00000 0 00061 01311 TXH +3 00000 0 01137 01312 TXH +3 00000 0 01152 01313 TXH +3 00000 0 01155 CHNCOM.(0) 034 LM00046 01314 TSX +0 07400 4 00003 01315 TXH +3 00000 0 01060 E'L 035 LM00047 WHOAMI.(LINE(3)...4) 036 LM00050 01316 TSX +0 07400 4 00031 01317 TIX +2 01064 0 01022 FERRTN.(IOERR) 037 LM00051 01320 TSX +0 07400 4 00010 01321 TXH +3 00000 0 00103 LINE(15) = COMBUF(1) 038 LM00052 01322 CLA +0 50000 0 00061 01323 STO +0 60100 0 01006 FSTATE.(OUT,RQ,ENTRY(7)...8,FERR,FCODE) 039 LM00053 01324 TSX +0 07400 4 00012 01325 TXH +3 00000 0 01036 01326 TXH +3 00000 0 01037 01327 TIX +2 01070 0 00065 01330 TXH +3 00000 0 00077 01331 TXH +3 00000 0 01001 W'R ENTRY(5).NE.1 040 LM00054 01332 CLA +0 50000 0 00067 01333 SUB +0 40200 0 01061 01334 TZE +0 10000 0 01351 PRMESS.($THE RQUEST FILE IS BUSY. RETYPE RQUEST LATER.$) 041 LM00055 01335 TSX +0 07400 4 00021 01336 TXH +3 00000 0 01150 01337 TXH +3 00000 0 01154 01340 TXH +3 00000 0 01112 01341 TXH +3 00000 0 01127 01342 TXH +3 00000 0 01142 01343 TXH +3 00000 0 01123 01344 TXH +3 00000 0 01111 01345 TXH +3 00000 0 01147 CHNCOM.(0) 042 LM00056 01346 TSX +0 07400 4 00003 01347 TXH +3 00000 0 01060 O'R ENTRY(6) .A. 1 .NE. 0 043 LM00057 01350 TRA +0 02000 0 01374 01351 CAL -0 50000 0 00066 01352 ANA -0 32000 0 01061 01353 SLW +0 60200 0 02151 01354 CLA +0 50000 0 02151 01355 SUB +0 40200 0 01060 01356 TZE +0 10000 0 01374 CHFILE.(OUT,RQ,1,-0,-0) 044 LM00058 01357 CLS +0 50200 0 01060 01360 STO +0 60100 0 02151 01361 CLS +0 50200 0 01060 01362 STO +0 60100 0 02152 01363 TSX +0 07400 4 00002 01364 TXH +3 00000 0 01036 01365 TXH +3 00000 0 01037 01366 TXH +3 00000 0 01061 01367 TXH +3 00000 0 02152 01370 TXH +3 00000 0 02151 DELFIL.(OUT,RQ) 045 LM00059 01371 TSX +0 07400 4 00006 01372 TXH +3 00000 0 01036 01373 TXH +3 00000 0 01037 E'L 046 LM00060 OK W'R COMBUF(1) .E. $ CARRY$ 047 LM00063 01374 CLA +0 50000 0 00061 01375 SUB +0 40200 0 01130 01376 TNZ -0 10000 0 01403 CARRYI = 1B 048 LM00064 01377 CLA +0 50000 0 01061 01400 STO +0 60100 0 00774 D = 6 049 LM00065 01401 CLA +0 50000 0 01066 01402 STO +0 60100 0 00777 E'L 050 LM00066 T'H LOOP2,FOR I = 2,D,COMBUF(I).E.FENCE.OR.I.G.18 051 LM00069 01403 CLA +0 50000 0 01062 01404 STO +0 60100 0 01004 01405 TRA +0 02000 0 01411 01406 CLA +0 50000 0 01004 01407 ADD +0 40000 0 00777 01410 STO +0 60100 0 01004 01411 CLA +0 50000 0 01004 01412 SUB +0 40200 0 01075 01413 TZE +0 10000 0 01415 01414 TPL +0 12000 0 01544 01415 LXA +0 53400 1 01004 01416 CLA +0 50000 1 00062 01417 SUB +0 40200 0 00036 01420 TZE +0 10000 0 01544 W'R COMBUF(I+1).E.FENCE 052 LM00070 01421 CLA +0 50000 0 01004 01422 ADD +0 40000 0 01061 01423 PAX +0 73400 1 00000 01424 CLA +0 50000 1 00062 01425 SUB +0 40200 0 00036 01426 TNZ -0 10000 0 01443 PRMESS.(COMBUF(I),$ IS AN INCOMPLETE REQUEST. $) 053 LM00071 01427 CLA +0 50000 0 01004 01430 SUB +0 40200 0 01431 01431 TXH +3 00000 0 00062 01432 STA +0 62100 0 01434 01433 TSX +0 07400 4 00021 01434 TXH +3 00000 0 00000 01435 TXH +3 00000 0 01135 01436 TXH +3 00000 0 01134 01437 TXH +3 00000 0 01124 01440 TXH +3 00000 0 01125 01441 TXH +3 00000 0 01151 T'O GOHOME 054 LM00072 01442 TRA +0 02000 0 00101 E'L 055 LM00073 MASK1 = NAMASK.(COMBUF(I)) 056 LM00076 01443 CLA +0 50000 0 01004 01444 SUB +0 40200 0 01445 01445 TXH +3 00000 0 00062 01446 STA +0 62100 0 01450 01447 TSX +0 07400 4 00016 01450 TXH +3 00000 0 00000 01451 STO +0 60100 0 01026 MASK2 = NAMASK.(COMBUF(I+1)) 057 LM00077 01452 CLA +0 50000 0 01004 01453 ADD +0 40000 0 01061 01454 SUB +0 40200 0 01455 01455 TXH +3 00000 0 00062 01456 STA +0 62100 0 01460 01457 TSX +0 07400 4 00016 01460 TXH +3 00000 0 00000 01461 STO +0 60100 0 01027 W'R MASK1.A.MASK2 .E. FENCE 058 LM00078 01462 CAL -0 50000 0 01026 01463 ANA -0 32000 0 01027 01464 SLW +0 60200 0 02152 01465 CLA +0 50000 0 02152 01466 SUB +0 40200 0 00036 01467 TNZ -0 10000 0 01511 SCANI = 0B 059 LM00079 01470 CLA +0 50000 0 01060 01471 STO +0 60100 0 01040 N1 = COMBUF(I) 060 LM00080 01472 LXA +0 53400 2 01004 01473 CLA +0 50000 2 00062 01474 STO +0 60100 0 00063 N2 = COMBUF(I+1) 061 LM00081 01475 CLA +0 50000 0 01004 01476 ADD +0 40000 0 01061 01477 PAX +0 73400 2 00000 01500 CLA +0 50000 2 00062 01501 STO +0 60100 0 00064 FSTATE.(N1,N2,ENTRY(7)...8,IOERR2,ERCODE) 062 LM00082 01502 TSX +0 07400 4 00012 01503 TXH +3 00000 0 00063 01504 TXH +3 00000 0 00064 01505 TIX +2 01070 0 00065 01506 TXH +3 00000 0 00102 01507 TXH +3 00000 0 01000 O'E 063 LM00083 01510 TRA +0 02000 0 01542 SCANI = 1B 064 LM00084 01511 CLA +0 50000 0 01061 01512 STO +0 60100 0 01040 W'R ONCE 065 LM00085 01513 NZT -0 52000 0 01034 01514 TRA +0 02000 0 01523 ONCE = 0B 066 LM00086 01515 CLA +0 50000 0 01060 01516 STO +0 60100 0 01034 UPDATE. 067 LM00087 01517 TSX +0 07400 4 00030 SCNFIL.($U.F.D.(FILE)$) 068 LM00088 01520 TSX +0 07400 4 00026 01521 TXH +3 00000 0 01156 01522 TXH +3 00000 0 01165 E'L 069 LM00089 ISCAN.(COMBUF(I),COMBUF(I+1)) 070 LM00090 01523 CLA +0 50000 0 01004 01524 ADD +0 40000 0 01061 01525 SUB +0 40200 0 01526 01526 TXH +3 00000 0 00062 01527 STA +0 62100 0 01536 01530 CLA +0 50000 0 01004 01531 SUB +0 40200 0 01532 01532 TXH +3 00000 0 00062 01533 STA +0 62100 0 01535 01534 TSX +0 07400 4 00014 01535 TXH +3 00000 0 00000 01536 TXH +3 00000 0 00000 SCAN.(ENTRY(9)...7,NOPE) 071 LM00091 01537 TSX +0 07400 4 00025 01540 TIX +2 01067 0 00063 01541 TXH +3 00000 0 00107 E'L 072 LM00092 T'O FTEST 073 LM00095 01542 TRA +0 02000 0 00100 LOOP2 CONTINUE 074 LM00098 01543 TRA +0 02000 0 01406 GOHOME WRTBUF. 075 LM00099 01544 TSX +0 07400 4 00032 EGRETS W'R CLOSEI, CLOSE.($ALL$,-0) 076 LM00100 01545 NZT -0 52000 0 00776 01546 TRA +0 02000 0 01554 01547 CLS +0 50200 0 01060 01550 STO +0 60100 0 02152 01551 TSX +0 07400 4 00004 01552 TXH +3 00000 0 01102 01553 TXH +3 00000 0 02152 RESETF. 077 LM00101 01554 TSX +0 07400 4 00024 CHNCOM.(0) 078 LM00102 01555 TSX +0 07400 4 00003 01556 TXH +3 00000 0 01060 FERR W'R FCODE .E. 3 , T'O OK 079 LM00105 01557 CLA +0 50000 0 01001 01560 SUB +0 40200 0 01063 01561 TNZ -0 10000 0 01563 01562 TRA +0 02000 0 00110 IOERR PRNTER.(61K) 080 LM00106 01563 TSX +0 07400 4 00022 01564 TXH +3 00000 0 01100 T'O EGRETS 081 LM00107 01565 TRA +0 02000 0 00076 IOERR2 W'R ERCODE .E. 3 082 LM00110 01566 CLA +0 50000 0 01000 01567 SUB +0 40200 0 01063 01570 TNZ -0 10000 0 01651 NOPE PRMESS.(COMBUF(I),B,COMBUF(I+1),$ NOT FOUND,$) 083 LM00111 01571 CLA +0 50000 0 01004 01572 ADD +0 40000 0 01061 01573 SUB +0 40200 0 01574 01574 TXH +3 00000 0 00062 01575 STA +0 62100 0 01605 01576 CLA +0 50000 0 01004 01577 SUB +0 40200 0 01600 01600 TXH +3 00000 0 00062 01601 STA +0 62100 0 01603 01602 TSX +0 07400 4 00021 01603 TXH +3 00000 0 00000 01604 TXH +3 00000 0 00113 01605 TXH +3 00000 0 00000 01606 TXH +3 00000 0 01141 01607 TXH +3 00000 0 01122 W'R CARRYI .AND. (COMBUF(I+2).E.FENCE.OR.COMBUF(I+3).E. 084 LM00112 1 FENCE.OR.COMBUF(I+4).E.FENCE.OR.COMBUF(I+5).E.FENCE),D=20 084 LM00113 01610 CLA +0 50000 0 01004 01611 ADD +0 40000 0 01065 01612 PAX +0 73400 1 00000 01613 CLA +0 50000 1 00062 01614 SUB +0 40200 0 00036 01615 TZE +0 10000 0 01640 01616 CLA +0 50000 0 01004 01617 ADD +0 40000 0 01064 01620 PAX +0 73400 1 00000 01621 CLA +0 50000 1 00062 01622 SUB +0 40200 0 00036 01623 TZE +0 10000 0 01640 01624 CLA +0 50000 0 01004 01625 ADD +0 40000 0 01063 01626 PAX +0 73400 1 00000 01627 CLA +0 50000 1 00062 01630 SUB +0 40200 0 00036 01631 TZE +0 10000 0 01640 01632 CLA +0 50000 0 01004 01633 ADD +0 40000 0 01062 01634 PAX +0 73400 1 00000 01635 CLA +0 50000 1 00062 01636 SUB +0 40200 0 00036 01637 TNZ -0 10000 0 01644 01640 NZT -0 52000 0 00774 01641 TRA +0 02000 0 01644 01642 CLA +0 50000 0 01076 01643 STO +0 60100 0 00777 W'R .NOT.SCANI, T'O ASK 085 LM00114 01644 ZET +0 52000 0 01040 01645 TRA +0 02000 0 01647 01646 TRA +0 02000 0 00075 T'O LOOP2 086 LM00115 01647 TRA +0 02000 0 00104 O'E 087 LM00116 01650 TRA +0 02000 0 01654 PRNTER.(61K) 088 LM00117 01651 TSX +0 07400 4 00022 01652 TXH +3 00000 0 01100 T'O LOOP2 089 LM00118 01653 TRA +0 02000 0 00104 E'L 090 LM00119 FTEST W'R (.NOT.SCANI.AND.ENTRY(6).A.20K.NE.0).OR. 091 LM00122 1 (SCANI.AND.(ENTRY(5).RS.28).A.20K.NE.0) 091 LM00123 01654 CAL -0 50000 0 01077 01655 STA +0 62100 0 01657 01656 CAL -0 50000 0 00067 01657 LGR -0 76500 0 00000 01660 ANA -0 32000 0 01074 01661 SLW +0 60200 0 02152 01662 CLA +0 50000 0 02152 01663 SUB +0 40200 0 01060 01664 TZE +0 10000 0 01667 01665 ZET +0 52000 0 01040 01666 TRA +0 02000 0 01700 01667 CAL -0 50000 0 00066 01670 ANA -0 32000 0 01074 01671 SLW +0 60200 0 02152 01672 CLA +0 50000 0 02152 01673 SUB +0 40200 0 01060 01674 TZE +0 10000 0 01677 01675 NZT -0 52000 0 01040 01676 TRA +0 02000 0 01700 01677 TRA +0 02000 0 01730 PRMESA.(N1,B,N2,$ IS IN 'PRIVATE' MODE.$) 092 LM00124 01700 TSX +0 07400 4 00020 01701 TXH +3 00000 0 00063 01702 TXH +3 00000 0 00113 01703 TXH +3 00000 0 00064 01704 TXH +3 00000 0 01136 01705 TXH +3 00000 0 01126 01706 TXH +3 00000 0 01103 01707 TXH +3 00000 0 01120 ASK PRMESA.($DO YOU STILL WANT REQUEST,$) 093 LM00125 01710 TSX +0 07400 4 00020 01711 TXH +3 00000 0 01105 01712 TXH +3 00000 0 01145 01713 TXH +3 00000 0 01146 01714 TXH +3 00000 0 01125 01715 TXH +3 00000 0 01153 W'R LINE.NE.$(FIB)$, RDFLXC.(ANSWER,6) 094 LM00126 01716 CLA +0 50000 0 01025 01717 SUB +0 40200 0 01164 01720 TZE +0 10000 0 01724 01721 TSX +0 07400 4 00023 01722 TXH +3 00000 0 00112 01723 TXH +3 00000 0 01066 W'R ANSWER.NE.$YES$, T'O NEXT 095 LM00127 01724 CLA +0 50000 0 00112 01725 SUB +0 40200 0 01161 01726 TZE +0 10000 0 01730 01727 TRA +0 02000 0 00106 E'L 096 LM00128 W'R FIRST 097 LM00129 01730 NZT -0 52000 0 01002 01731 TRA +0 02000 0 01751 FIRST = 0B 098 LM00130 01732 CLA +0 50000 0 01060 01733 STO +0 60100 0 01002 OPEN.($W$,OUT,RQ) 099 LM00131 01734 TSX +0 07400 4 00017 01735 TXH +3 00000 0 01160 01736 TXH +3 00000 0 01036 01737 TXH +3 00000 0 01037 BUFFER.(OUT,RQ,BUFF(431)...432) 100 LM00132 01740 TSX +0 07400 4 00001 01741 TXH +3 00000 0 01036 01742 TXH +3 00000 0 01037 01743 TIX +2 01101 0 00114 SETBUF.(LINE(14)...11,GOOD,WRCARD.,PANIC) 101 LM00133 01744 TSX +0 07400 4 00027 01745 TIX +2 01072 0 01007 01746 TXH +3 00000 0 01003 01747 TXH +3 00000 0 00034 01750 TXH +3 00000 0 00111 E'L 102 LM00134 W'R CARRYI 103 LM00135 01751 NZT -0 52000 0 00774 01752 TRA +0 02000 0 02075 ATTNAM.(ENTRY(3)...2) 104 LM00136 01753 TSX +0 07400 4 00000 01754 TIX +2 01062 0 00071 ENTRY(1) = N1 105 LM00137 01755 CLA +0 50000 0 00063 01756 STO +0 60100 0 00073 ENTRY = N2 106 LM00138 01757 CLA +0 50000 0 00064 01760 STO +0 60100 0 00074 T'H LOOP3, FOR J=1,1,J.G.4.OR.COMBUF(I+1+J).E.FENCE 107 LM00139 01761 CLA +0 50000 0 01061 01762 STO +0 60100 0 01005 01763 TRA +0 02000 0 01767 01764 CLA +0 50000 0 01005 01765 ADD +0 40000 0 01061 01766 STO +0 60100 0 01005 01767 CLA +0 50000 0 01004 01770 ADD +0 40000 0 01061 01771 ADD +0 40000 0 01005 01772 PAX +0 73400 1 00000 01773 CLA +0 50000 1 00062 01774 SUB +0 40200 0 00036 01775 TZE +0 10000 0 02025 01776 CLA +0 50000 0 01005 01777 SUB +0 40200 0 01064 02000 TZE +0 10000 0 02002 02001 TPL +0 12000 0 02025 W'R COMBUF(I+J+1).E.$ *$, T'O LOOP3 108 LM00140 02002 CLA +0 50000 0 01004 02003 ADD +0 40000 0 01005 02004 ADD +0 40000 0 01061 02005 PAX +0 73400 1 00000 02006 CLA +0 50000 1 00062 02007 SUB +0 40200 0 01143 02010 TNZ -0 10000 0 02012 02011 TRA +0 02000 0 00105 ENTRY(4-J) = COMBUF(I+1+J) 109 LM00141 02012 CLA +0 50000 0 01004 02013 ADD +0 40000 0 01061 02014 ADD +0 40000 0 01005 02015 STO +0 60100 0 02152 02016 CLA +0 50000 0 01064 02017 SUB +0 40200 0 01005 02020 PAX +0 73400 1 00000 02021 LXA +0 53400 2 02152 02022 CLA +0 50000 2 00062 02023 STO +0 60100 1 00074 LOOP3 CONTINUE 110 LM00142 02024 TRA +0 02000 0 01764 W'R COMBUF(I+J+1) .E. FENCE, D = 20 111 LM00143 02025 CLA +0 50000 0 01004 02026 ADD +0 40000 0 01005 02027 ADD +0 40000 0 01061 02030 PAX +0 73400 1 00000 02031 CLA +0 50000 1 00062 02032 SUB +0 40200 0 00036 02033 TNZ -0 10000 0 02036 02034 CLA +0 50000 0 01076 02035 STO +0 60100 0 00777 MASK3 = NAMASK.(N3) 112 LM00144 02036 TSX +0 07400 4 00016 02037 TXH +3 00000 0 00073 02040 STO +0 60100 0 01031 MASK4 = NAMASK.(N4) 113 LM00145 02041 TSX +0 07400 4 00016 02042 TXH +3 00000 0 00074 02043 STO +0 60100 0 01033 MASK3P = COM.(MASK3) 114 LM00146 02044 TSX +0 07400 4 00005 02045 TXH +3 00000 0 01031 02046 STO +0 60100 0 01030 MASK4P = COM.(MASK4) 115 LM00147 02047 TSX +0 07400 4 00005 02050 TXH +3 00000 0 01033 02051 STO +0 60100 0 01032 N3 = (N1.A.MASK3P).V.(N3.A.MASK3) 116 LM00148 02052 CAL -0 50000 0 00073 02053 ANA -0 32000 0 01031 02054 SLW +0 60200 0 02152 02055 CAL -0 50000 0 00063 02056 ANA -0 32000 0 01030 02057 ORA -0 50100 0 02152 02060 SLW +0 60200 0 00073 N4 = (N2.A.MASK4P).V.(N4.A.MASK4) 117 LM00149 02061 CAL -0 50000 0 00074 02062 ANA -0 32000 0 01033 02063 SLW +0 60200 0 02152 02064 CAL -0 50000 0 00064 02065 ANA -0 32000 0 01032 02066 ORA -0 50100 0 02152 02067 SLW +0 60200 0 00074 FILBUF.(ENTRY(9)...2,ENTRY(3)...4) 118 LM00150 02070 TSX +0 07400 4 00011 02071 TIX +2 01062 0 00063 02072 TIX +2 01064 0 00071 WRTBUF. 119 LM00151 02073 TSX +0 07400 4 00032 O'E 120 LM00152 02074 TRA +0 02000 0 02077 FILBUF.(ENTRY(9)...2) 121 LM00153 02075 TSX +0 07400 4 00011 02076 TIX +2 01062 0 00063 E'L 122 LM00154 NEXT W'R SCANI 123 LM00156 02077 NZT -0 52000 0 01040 02100 TRA +0 02000 0 02106 SCAN.(ENTRY(9)...7,LOOP2) 124 LM00157 02101 TSX +0 07400 4 00025 02102 TIX +2 01067 0 00063 02103 TXH +3 00000 0 00104 T'O FTEST 125 LM00158 02104 TRA +0 02000 0 00100 O'E 126 LM00159 02105 TRA +0 02000 0 02107 T'O LOOP2 127 LM00160 02106 TRA +0 02000 0 00104 E'L 128 LM00161 PANIC PRMESS.($MACHINE OR SYSTEM ERROR. IGNORING$,N1,N2) 129 LM00163 02107 TSX +0 07400 4 00021 02110 TXH +3 00000 0 01115 02111 TXH +3 00000 0 01110 02112 TXH +3 00000 0 01163 02113 TXH +3 00000 0 01106 02114 TXH +3 00000 0 01133 02115 TXH +3 00000 0 01113 02116 TXH +3 00000 0 00063 02117 TXH +3 00000 0 00064 T'O NEXT 130 LM00164 02120 TRA +0 02000 0 00106 INTERNAL FUNCTION 131 LM00166 02121 TRA +0 02000 0 02150 E'O WRCARD. 132 LM00167 02122 TRA +0 02000 0 02125 00034 TTR +0 02100 0 02123 02123 SXA +0 63400 2 02140 02124 TSX +0 07400 2 02140 WRWAIT.(OUT,RQ,0,LINE(15)...14) 133 LM00169 02125 TSX +0 07400 4 00033 02126 TXH +3 00000 0 01036 02127 TXH +3 00000 0 01037 02130 TXH +3 00000 0 01060 02131 TIX +2 01073 0 01006 GOOD = 0B 134 LM00170 02132 CLA +0 50000 0 01060 02133 STO +0 60100 0 01003 CLOSEI = 1B 135 LM00171 02134 CLA +0 50000 0 01061 02135 STO +0 60100 0 00776 F'N 136 LM00172 02136 TRA +0 02000 0 02144 E'N 137 LM00174 02137 TSX +0 07400 4 00007 02140 TXH +3 00000 0 00000 02141 SXD -0 63400 1 02140 02142 SXA +0 63400 4 02144 02143 TRA +0 02000 2 00001 02144 AXT +0 77400 4 00000 02145 LXA +0 53400 2 02140 02146 LXD -0 53400 1 02140 02147 TRA +0 02000 4 00001 E'M 138 LM00176 02150 TSX +0 07400 4 00007 1 CARDRQ 04/16/68 D.A. ANDERSON 01/25/69 2137.5 PAGE 1 00002 ENTRY SETBUF (BUF(M)...M,GOOD,FULL,BAD) 00035 ENTRY FILBUF LIST (PZE,PTH,PTW,EFA) 00156 ENTRY WRTBUF LINKAGE DIRECTOR 00000 000000000000 00001 622563226426 00002 0634 00 1 00031 SETBUF SXA IX1,1 00003 -0500 00 4 00001 CAL 1,4 00004 -0737 00 1 00000 PDC ,1 00005 -0320 00 0 00242 ANA =O700000000000 00006 -0340 00 0 00240 LAS =O200000000000 00007 0020 00 0 00011 TRA *+2 00010 0020 00 0 00033 TRA PTW 00011 0756 00 1 00000 PCA ,1 00012 0621 00 0 00053 PTWR STA OUTX 00013 0401 00 4 00001 ADM 1,4 00014 0621 00 0 00216 STA OUTADR 00015 -0500 00 4 00002 CAL 2,4 00016 0621 00 0 00227 STA GOOD 00017 -0500 00 4 00003 CAL 3,4 00020 0621 00 0 00232 STA WRITE 00021 -0500 00 4 00004 CAL 4,4 00022 0621 00 0 00155 STA BAD 00023 0600 60 0 00227 STZ* GOOD 00024 -0500 00 0 00053 CAL OUTX 00025 0767 00 0 00001 ALS 1 00026 0401 00 0 00053 ADM OUTX 00027 0767 00 0 00022 ALS 18 00030 0622 00 0 00111 STD BADTST 00031 0774 00 1 00000 IX1 AXT **,1 00032 0020 00 4 00005 TRA 5,4 00033 -0500 00 1 00000 PTW CAL ,1 00034 0020 00 0 00012 TRA PTWR 1 CARDRQ 04/16/68 D.A. ANDERSON 01/25/69 2137.5 PAGE 2 00035 0636 00 1 00152 FILBUF SCA XR1,1 00036 0636 00 2 00151 SCA XR2,2 00037 0636 00 4 00147 SCA XR4,4 00040 0760 00 0 00016 EAXM 00041 0636 00 3 00150 SCA XR3,3 00042 0636 00 5 00146 SCA XR5,5 00043 0636 00 6 00145 SCA XR6,6 00044 0636 00 7 00144 SCA XR7,7 00045 0604 00 0 00233 STI SI 00046 0600 00 0 00230 STZ BADFLG 00047 0535 00 5 00147 AGAIN LAC XR4,5 00050 -0774 00 4 00055 AXC NXTARG-1,4 00051 0520 60 0 00227 ZET* GOOD 00052 0020 00 0 00132 TRA RSTREG 00053 0774 00 1 00000 OUTX AXT **,1 00054 -0774 00 2 00044 AXC 36,2 00055 0441 00 0 00235 LDI =0 00056 1 77777 5 00057 NXTARG TXI *+1,5,-1 00057 0500 00 5 00000 CLA ,5 00060 0340 00 0 00240 CAS =O200000000000 00061 0020 00 0 00102 TRA 2OR3 00062 0020 00 0 00056 TRA NXTARG 00063 -0500 00 5 00000 CAL ,5 00064 -0320 00 0 00243 ANA =O777777000000 00065 0100 00 0 00070 TZE *+3 00066 0322 00 0 00231 ERA EFA 00067 -0100 00 0 00136 TNZ OUT 00070 -0500 00 5 00000 CAL ,5 00071 0771 00 0 00017 ARS 15 00072 -0320 00 0 00236 ANA =7 00073 0100 00 0 00076 TZE *+3 00074 0734 00 6 00000 PAX ,6 00075 -0500 00 6 00154 CAL RETURN,6 00076 0401 00 5 00000 ADM ,5 00077 0737 00 6 00000 PAC ,6 00100 0774 00 7 00001 AXT 1,7 00101 0020 00 0 00112 TRA ADDBL 00102 -0737 00 7 00000 2OR3 PDC ,7 00103 0737 00 6 00000 PAC ,6 00104 0340 00 0 00241 CAS =O300000000000 00105 0756 00 7 00000 PCA ,7 00106 0020 00 0 00110 TRA *+2 00107 -0500 00 7 00000 CAL ,7 00110 0734 00 7 00000 PAX ,7 00111 3 00000 7 00211 BADTST TXH BADRET,7,** 00112 -0500 00 0 00237 ADDBL CAL =O60 00113 0074 00 4 00215 TSX STC,4 00114 0 00000 0 00176 TOOBIG 00115 0560 00 6 00000 LDQ ,6 00116 0774 00 3 00006 AXT 6,3 00117 -0754 00 0 00000 LOOP ZAC 00120 -0763 00 0 00006 LGL 6 00121 -0340 00 0 00237 LAS =O60 1 CARDRQ 04/16/68 D.A. ANDERSON 01/25/69 2137.5 PAGE 3 00122 0020 00 0 00124 TRA *+2 00123 0020 00 0 00126 TRA NDLOP 00124 0074 00 4 00215 TSX STC,4 00125 0 00000 0 00176 TOOBIG 00126 2 00001 3 00117 NDLOP TIX LOOP,3,1 00127 1 77777 6 00130 TXI *+1,6,-1 00130 2 00001 7 00112 TIX ADDBL,7,1 00131 0020 00 0 00056 TRA NXTARG 00132 0441 00 0 00234 RSTREG LDI SAVSI 00133 0774 00 1 00000 SAVX1 AXT **,1 00134 0774 00 2 00000 SAVX2 AXT **,2 00135 0020 00 4 00001 TRA 1,4 00136 0634 00 1 00133 OUT SXA SAVX1,1 00137 0634 00 2 00134 SXA SAVX2,2 00140 0604 00 0 00234 STI SAVSI 00141 0636 00 5 00154 SCA RETURN,5 00142 -0625 60 0 00227 STL* GOOD 00143 0441 00 0 00233 RESTOR LDI SI 00144 -0774 00 7 00000 XR7 AXC **,7 00145 -0774 00 6 00000 XR6 AXC **,6 00146 -0774 00 5 00000 XR5 AXC **,5 00147 -0774 00 4 00000 XR4 AXC **,4 00150 -0774 00 3 00000 XR3 AXC **,3 00151 -0774 00 2 00000 XR2 AXC **,2 00152 -0774 00 1 00000 XR1 AXC **,1 00153 -0520 00 0 00230 NZT BADFLG 00154 0020 00 0 00000 RETURN TRA ** 00155 0020 00 0 00000 BAD TRA ** 00156 -0520 60 0 00227 WRTBUF NZT* GOOD 00157 0020 00 4 00001 TRA 1,4 00160 0634 00 4 00172 SXA PX4,4 00161 0634 00 2 00173 SXA PX2,2 00162 0634 00 1 00174 SXA PX1,1 00163 0634 00 7 00171 SXA PX7,7 00164 0604 00 0 00233 STI SI 00165 0074 00 7 00204 TSX PAD,7 00166 0074 00 4 00232 TSX WRITE,4 00167 0600 60 0 00227 STZ* GOOD 00170 0441 00 0 00233 LDI SI 00171 0774 00 7 00000 PX7 AXT **,7 00172 0774 00 4 00000 PX4 AXT **,4 00173 0774 00 2 00000 PX2 AXT **,2 00174 0774 00 1 00000 PX1 AXT **,1 00175 0020 00 4 00001 TRA 1,4 00176 -0520 60 0 00227 TOOBIG NZT* GOOD 00177 0020 00 0 00213 TRA BADRST 00200 0074 00 7 00204 TSX PAD,7 00201 0074 00 4 00232 TSX WRITE,4 00202 0600 60 0 00227 STZ* GOOD 00203 0020 00 0 00047 TRA AGAIN 1 CARDRQ 04/16/68 D.A. ANDERSON 01/25/69 2137.5 PAGE 4 00204 0074 00 4 00132 PAD TSX RSTREG,4 00205 -0500 00 0 00237 CAL =O60 00206 0074 00 4 00215 TSX STC,4 00207 0 00000 7 00001 1,7 00210 0020 00 0 00205 TRA *-3 00211 0520 60 0 00227 BADRET ZET* GOOD 00212 0074 00 7 00204 TSX PAD,7 00213 -0625 00 0 00230 BADRST STL BADFLG 00214 0020 00 0 00143 TRA RESTOR 00215 3 00000 2 00223 STC TXH ENTCHR,2,0 00216 0604 00 1 00000 OUTADR STI **,1 00217 2 00001 1 00221 TIX *+2,1,1 00220 0020 60 4 00001 TRA* 1,4 00221 0441 00 0 00235 LDI =0 00222 -0774 00 2 00044 AXC 36,2 00223 1 00006 2 00224 ENTCHR TXI *+1,2,6 00224 0767 00 2 00000 ALS ,2 00225 0043 00 0 00000 OAI 00226 0020 00 4 00002 TRA 2,4 1 CARDRQ 04/16/68 D.A. ANDERSON 01/25/69 2137.5 PAGE 5 00227 0 00000 0 00000 GOOD PZE ** 00230 0 00000 0 00000 BADFLG 00231 0761 00 0 00000 EFA NOP 00232 0021 00 0 00000 WRITE TTR ** 00233 0 00000 0 00000 SI 00234 0 00000 0 00000 SAVSI END LITERALS 00235 000000000000 00236 000000000007 00237 000000000060 00240 200000000000 00241 300000000000 00242 700000000000 00243 777777000000 1 CARDRQ 04/16/68 D.A. ANDERSON 01/25/69 2137.5 PAGE 1 POST PROCESSOR ASSEMBLY DATA 244 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 233 SI 45, 143, 164, 170 155 BAD 22 231 EFA 66 31 IX1 2 136 OUT 67 204 PAD 165, 200, 212 33 PTW 10 174 PX1 162 173 PX2 161 172 PX4 160 171 PX7 163 215 STC 113, 124, 206 152 XR1 35 151 XR2 36 150 XR3 41 147 XR4 37, 47 146 XR5 42 145 XR6 43 144 XR7 44 102 2OR3 61 227 GOOD 16, 23, 51, 142, 156, 167, 176, 202, 211 117 LOOP 126 53 OUTX 12, 24, 26 12 PTWR 34 112 ADDBL 101, 130 47 AGAIN 203 126 NDLOP 123 234 SAVSI 132, 140 133 SAVX1 136 134 SAVX2 137 232 WRITE 20, 166, 201 230 BADFLG 46, 153, 213 211 BADRET 111 213 BADRST 177 111 BADTST 30 223 ENTCHR 215 35 FILBUF 0 56 NXTARG 50, 62, 131 216 OUTADR 14 143 RESTOR 214 154 RETURN 75, 141 132 RSTREG 52, 204 2 SETBUF 0 176 TOOBIG 114, 125 156 WRTBUF 0 0 NO ERROR IN ABOVE ASSEMBLY. RUNCOM BCD 05/12/69 2020.2 13312 00000 1 M1416-3845 PETER R. BOS -- RUNCOM COMMAND REGENERATED 2/13/68 04/23/69 2323.3 PAGE 1 PCC ON LBL RUNCOM PCC OFF EXTERN GETCLS,CHNCOM,NEXCOM,FSTATE,WRFLX,SCHAIN,BRAKE EXTERN .SETUP UNLIST M CALL MACRO SUBR,ARGS,CRS * * USAGE IS ... RUNCOM NAME1 -ARGS- * WHERE THE NAME OF THE MACRO-COMMAND FILE IS EITHER * NAME1 RUNCOM OR NAME1 BCD, AND ARGS ARE ARGUMENTS TO * BE SUBSTITUTED. * TRANSFER VECTOR 00000 272563234362 GETCLS 00001 233045234644 CHNCOM 00002 452567234644 NEXCOM 00003 266263216325 FSTATE 00004 665126436760 WRFLX 00005 622330213145 SCHAIN 00006 225121422560 BRAKE 00007 336225636447 .SETUP 00010 0074 00 4 00007 TSX .SETUP,4 LOAD DUMMY FROM XLIBE 00011 CALL GETCLS((CBUFF,0,0)) GET COMMAND BUFFER 00011 0074 00 4 00000 TSX GETCLS,4 .003 00012 0 00000 0 00121 PZE CBUFF,0,0 .003 00013 -0500 00 0 00122 CAL CBUFF+1 FILE NAME1 00014 0602 00 0 00147 SLW FILNAM .. 00015 0322 00 0 00216 ERA =O777777777777 IF NO ARGUMENTS TO COMMAND, 00016 -0100 00 0 00027 TNZ START .. 00017 TYPE 6(USAGE IS... RUNCOM NAME1 -ARGS-) 00017 0074 00 4 00004 TSX WRFLX,4 .004 00020 3 00006 0 00152 PAR ..002,,6 .004 00021 TYPE 6(MACRO FILE NAME2 IS RUNCOM OR BCD) 00021 0074 00 4 00004 TSX WRFLX,4 .004 00022 3 00006 0 00160 PAR ..005,,6 .004 00023 TYPE 6(ARGS ARE ARGUMENTS TO BE SUBSTITUTED) 00023 0074 00 4 00004 TSX WRFLX,4 .004 00024 3 00006 0 00166 PAR ..008,,6 .004 00025 CALL CHNCOM(0) EXIT 00025 0074 00 4 00001 TSX CHNCOM,4 .003 00026 0 00000 0 00000 PZE 0 .003 00027 START CALL FSTATE(FILNAM,RUNCOM,=-0,NFL1) 00027 0074 00 4 00003 TSX FSTATE,4 .003 00030 3 00000 0 00147 PAR FILNAM .003 00031 3 00000 0 00150 PAR RUNCOM .003 00032 3 00000 0 00214 PAR =-0 .003 00033 3 00000 0 00035 PAR NFL1 .003 00034 0020 00 0 00054 TRA OKFIL FILE FOUND, SKIP 1 M1416-3845 PETER R. BOS -- RUNCOM COMMAND REGENERATED 2/13/68 04/23/69 2323.3 PAGE 2 00035 NFL1 CALL FSTATE(FILNAM,BCD,=-0,NFL2) 00035 0074 00 4 00003 TSX FSTATE,4 .003 00036 3 00000 0 00147 PAR FILNAM .003 00037 3 00000 0 00151 PAR BCD .003 00040 3 00000 0 00214 PAR =-0 .003 00041 3 00000 0 00045 PAR NFL2 .003 00042 -0500 00 0 00151 CAL BCD FILE NAME2 IS BCD, SET UP FOR SCHAIN 00043 0602 00 0 00146 SLW FILNAM-1 .. 00044 0020 00 0 00054 TRA OKFIL SKIP 00045 -0500 00 0 00147 NFL2 CAL FILNAM FILE NOT FOUND, COMPLAIN 00046 0602 00 0 00175 SLW YULOSE+1 .. 00047 TYPE 8( FILE ****** RUNCOM NOT FOUND, NO EXECUTION),YULOSE 00047 0074 00 4 00004 TSX WRFLX,4 .004 00050 3 00010 0 00174 PAR YULOSE,,8 .004 00051 0074 00 4 00006 TSX BRAKE,4 WHOA... 00052 CALL CHNCOM((0,0,0)) EXIT 00052 0074 00 4 00001 TSX CHNCOM,4 .003 00053 0 00000 0 00000 PZE 0,0,0 .003 00054 -0774 00 4 00002 OKFIL AXC 2,4 GO LOOK FOR FENCE. 00055 -0500 00 4 00121 CAL CBUFF,4 .. 00056 0322 00 0 00216 ERA =O777777777777 .. 00057 0100 00 0 00062 TZE *+3 .. 00060 1 77777 4 00061 TXI *+1,4,-1 .. 00061 3 77755 4 00055 TXH *-4,4,-19 LOOP TILL 20 WORDS CHECKED 00062 0756 00 4 00000 PCA 0,4 NUMBER OF ARGS TO AC 00063 0734 00 4 00000 PAX 0,4 BACK TO X4 00064 -3 00002 4 00070 TXL NOARG,4,2 IF NO SUBS. ARGS, SKIP 00065 1 00120 4 00066 TXI *+1,4,CBUFF-1 GET ADDRESS OF LAST ARG 00066 -0634 00 4 00100 SXD CHAIN+2,4 INSERT IN CALL 00067 0020 00 0 00072 TRA RUN AND SKIP 00070 -0500 00 0 00101 NOARG CAL SKP SET UP DUMMY INSTRUCTION 00071 0602 00 0 00100 SLW CHAIN+2 .. 00072 -0500 00 0 00147 RUN CAL FILNAM TYPE COMMENT.. 00073 0602 00 0 00204 SLW XXSTRT .. 00074 TYPE 3(****** STARTED),XXSTRT 00074 0074 00 4 00004 TSX WRFLX,4 .004 00075 3 00003 0 00204 PAR XXSTRT,,3 .004 00076 CHAIN CALL SCHAIN(FILNAM,(CBUFF+2,...,-)) 00076 0074 00 4 00005 TSX SCHAIN,4 .003 00077 3 00000 0 00147 PAR FILNAM .003 00100 2 00000 0 00123 BLK CBUFF+2,...,- .003 00101 0020 00 0 00102 SKP TRA *+1 DUMMY INS. 00102 0602 00 0 00145 SLW ...FIL SAVE POSSIBLE SAVED FILE NAME 00103 -0500 00 0 00147 CAL FILNAM SET UP OTHER COMMENT 00104 0602 00 0 00207 SLW XXFINI 00105 TYPE 4(****** HAS BEEN RUN),XXFINI 00105 0074 00 4 00004 TSX WRFLX,4 .004 00106 3 00004 0 00207 PAR XXFINI,,4 .004 00107 -0500 00 0 00145 CAL ...FIL CHECK FOR SAVED FILE 00110 0100 00 0 00117 TZE XIT NO, GO TO CHNCOM 00111 0771 00 0 00022 ARS 18 MIGHT BE, CHECK FOR '...XXX' 00112 0322 00 0 00213 ERA =O333333 .. 1 M1416-3845 PETER R. BOS -- RUNCOM COMMAND REGENERATED 2/13/68 04/23/69 2323.3 PAGE 3 00113 -0100 00 0 00117 TNZ XIT NO, EXIT 00114 -0500 00 0 00215 CAL =HRESTOR YES, RESTORE CORE IMAGE 00115 0560 00 0 00145 LDQ ...FIL .. 00116 0074 00 4 00002 TSX NEXCOM,4 VIA NEXCOM 00117 XIT CALL CHNCOM(0) EXIT VIA CHNCOM 00117 0074 00 4 00001 TSX CHNCOM,4 .003 00120 0 00000 0 00000 PZE 0 .003 00121 CBUFF BSS 20 COMMAND BUFFER 00145 0 00000 0 00000 ...FIL PZE 00146 516445234644 BCI 1,RUNCOM 00147 0 00000 0 00000 FILNAM PZE 00150 516445234644 RUNCOM BCI 1,RUNCOM 00151 606060222324 BCD BCI 1, BCD END REMOTE SEQUENCES 00152 646221272560 ..002 BCI 6,USAGE IS... RUNCOM NAME1 -ARGS- .002 00153 316233333360 00154 605164452346 00155 446045214425 00156 016040215127 00157 624060606060 00160 442123514660 ..005 BCI 6,MACRO FILE NAME2 IS RUNCOM OR BCD .002 00161 263143256045 00162 214425026031 00163 626051644523 00164 464460465160 00165 222324606060 00166 215127626021 ..008 BCI 6,ARGS ARE ARGUMENTS TO BE SUBSTITUTED .002 00167 512560215127 00170 644425456362 00171 606346602225 00172 606264226263 00173 316364632524 00174 602631432560 YULOSE BCI 8, FILE ****** RUNCOM NOT FOUND, NO EXECUTION .002 00175 545454545454 00176 605164452346 00177 446045466360 00200 264664452473 00201 604546602567 00202 252364633146 00203 456060606060 00204 545454545454 XXSTRT BCI 3,****** STARTED .002 00205 606263215163 00206 252460606060 00207 545454545454 XXFINI BCI 4,****** HAS BEEN RUN .002 00210 603021626022 00211 252545605164 00212 456060606060 1 M1416-3845 PETER R. BOS -- RUNCOM COMMAND REGENERATED 2/13/68 04/23/69 2323.3 PAGE 1 POST PROCESSOR ASSEMBLY DATA 217 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 151 BCD 37, 42 1 ..A 12, 20, 22, 24, 26, 30, 31, 32, 33, 36, 37, 40, 41, 50, 53, 75, 77 100, 106, 120 0 ..D 12, 20, 22, 24, 26, 30, 31, 32, 33, 36, 37, 40, 41, 50, 53, 75, 77 100, 106, 120 0 ... 100 0 ..T 12, 20, 22, 24, 26, 30, 31, 32, 33, 36, 37, 40, 41, 50, 53, 75, 77 100, 106, 120 72 RUN 67 101 SKP 70 117 XIT 110, 113 0 ..OP 12, 20, 22, 24, 26, 30, 31, 32, 33, 36, 37, 40, 41, 50, 53, 75, 77 100, 106, 120 35 NFL1 33 45 NFL2 41 6 BRAKE 51 121 CBUFF 12, 13, 55, 65, 100 76 CHAIN 66, 71 152 ..002 20 160 ..005 22 166 ..008 24 1 ..PZE 12, 20, 22, 24, 26, 30, 36, 50, 53, 75, 77, 106, 120 70 NOARG 64 54 OKFIL 34, 44 27 START 16 4 WRFLX 17, 21, 23, 47, 74, 105 1 CHNCOM 25, 52, 117 147 FILNAM 14, 30, 36, 43, 45, 72, 77, 103 3 FSTATE 27, 35 0 GETCLS 11 145 ...FIL 102, 107, 115 7 .SETUP 10 2 NEXCOM 116 150 RUNCOM 31 5 SCHAIN 76 207 XXFINI 104, 106 204 XXSTRT 73, 75 174 YULOSE 46, 50 0 NO ERROR IN ABOVE ASSEMBLY. 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 1 * SAVES COMMAND LISTS AND COUNTERS. * READS A BCD FILE, JUSTIFIES THE ARGUMENTS, SUBSTITUTES DUMMIES * WITH ACTUAL VALUES. * LOADS 3 COMMANDS, BRACKETTED BY 'SAVE' AND 'RESUME'. * STARTS EXECUTION OF THE CHAIN. * ON RETURN LOADS 3 MORE COMMANDS, AND SO FORTH, UNTIL THE FILE OF * COMMANDS IS EXHAUSTED. * RESTORE PREVIOUS COMMAND BUFFERS AND COUNTERS, RETURN TO CALLER. * CALLING SEQUENCE * MAD A = SCHAIN.(FIL, ANY MAD LIST OR NOTHING) * WHERE FIL IS A 2 WORDS VECT.VAL. GIVING THE NAMES OF THE FILE OF * COMMANDS * RETURNS A=0 IF EXECUTION WITHOUT ERROR (AS FAR AS SCHAIN CAN KNOW * OR A=ERROR CODE * OR A=...XXX WHICH IS THE NAME OF A FILE ...XXX SAVED REPRESENTIN * THE LAST CORE IMAGE LEFT BY THE LAST COMMAND IN THE CHAIN. * A MAD LIST IS E.G. B, C(3), D(I)...D(J), W(-7), ETC... * WITH THE EXCEPTION OF FILE NAMES, NO ARGUMENT NEED BE RIGHT JUSTI * COMPUTATION CENTER LOUIS POUZIN * MAY 64 * MODIFIED FOR NEW FILE SYSTEM JUNE 65 EMK * SWITCHES TO COMMON FILE A SWUS MACRO A CAL A TSX SWCF,3 SWUS END * SAVES MACHINE REGISTERS SAV MACRO STI IND SXA X1,1 SXA X2,2 SXA X3,3 SXD X4,4 AXT -1,2 AXT ,3 SXA XMOD,2 LMTM NZT XMOD SXA X3,3 SXA X5,5 SXA X6,6 SXA X7,7 SAV END * RESTORES MACHINE REGISTERS RSTOR MACRO LDI IND X3 AXT **,3 X5 AXT **,5 X6 AXT **,6 X7 AXT **,7 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 2 NZT XMOD EMTM X1 AXT **,1 X2 AXT **,2 LXD X4,4 RSTOR END TEMP1 MACRO A,B UNTIL T MODE FILES ARE KEPT IN COMMON FILES ZET FAIL NZT LCF TRA B TSX $CHFILE,4 PTH RESTOR+1 PTH RESTOR+2 PTH =1 PTH =-0 DO NOT ALTER PTH =-0 .. PTH *+1 ERROR RETURN B SYN * TEMP1 END BINARY CARD NO. SCHAIN00 00035 ENTRY SCHAIN TRANSFER VECTOR BINARY CARD NO. SCHAIN01 00000 274521446060 GNAM 00001 272563232645 GETCFN 00002 234643636060 COLT 00003 266263216325 FSTATE 00004 622525426060 SEEK 00005 444665250160 MOVE1 00006 444665250260 MOVE2 00007 514164626360 RJUST 00010 444665250360 MOVE3 00011 272563234362 GETCLS 00012 272563234323 GETCLC 00013 242543256325 DELETE 00014 665126436760 WRFLX 00015 622563254626 SETEOF 00016 655125212460 VREAD 00017 644547214243 UNPAKL 00020 712543606060 ZEL 00021 622563234362 SETCLS 00022 276345214460 GTNAM 00023 464725456060 OPEN BINARY CARD NO. SCHAIN02 00024 665126314325 WRFILE 00025 234346622560 CLOSE 00026 622563234323 SETCLC 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 3 00027 233026314325 CHFILE 00030 233045234644 CHNCOM 00031 234644263143 COMFIL 00032 244651444563 DORMNT LINKAGE DIRECTOR 00033 000000000000 00034 622330213145 00660 DBUF EQU 432 00033 X4 SYN *-2 00035 SCHAIN SYN * 00035 SAV 00035 0604 00 0 01120 STI IND .001 00036 0634 00 1 00677 SXA X1,1 .001 00037 0634 00 2 00700 SXA X2,2 .001 00040 0634 00 3 00671 SXA X3,3 .001 00041 -0634 00 4 00033 SXD X4,4 .001 00042 0774 00 2 77777 AXT -1,2 .001 00043 0774 00 3 00000 AXT ,3 .001 00044 0634 00 2 01121 SXA XMOD,2 .001 00045 0760 00 0 00016 LMTM .001 00046 -0520 00 0 01121 NZT XMOD .001 00047 0634 00 3 00671 SXA X3,3 .001 BINARY CARD NO. SCHAIN03 00050 0634 00 5 00672 SXA X5,5 .001 00051 0634 00 6 00673 SXA X6,6 .001 00052 0634 00 7 00674 SXA X7,7 .001 00053 0057 00 777777 RIR / 00054 0600 00 0 01123 STZ FAIL 00055 0634 00 0 00165 ZSA BL CLEAR READING COUNTER 00056 0055 00 000200 SIR COMSW IN CASE 1ST COMMAND SWITCHES U.F.D. 00057 0774 00 4 00024 AXT CL,4 00060 -0500 00 0 01663 CAL =H 00061 0602 00 4 01203 SLW ARG1+CL,4 00062 2 00001 4 00061 TIX *-1,4,1 00063 0074 00 4 00000 TSX $GNAM,4 GET FILE NAMES 00064 0 00000 0 00033 PZE X4 00065 0 00000 0 01131 PZE FIL 00066 0074 00 4 00001 TSX $GETCFN,4 00067 0602 00 0 01125 SLW HCF HOME COMMON FILE 00070 0602 00 0 01124 SLW CCF CURRENT COMMON FILE SWITCHED 00071 0602 00 0 01127 SLW PCF PREVIOUS LOCAL COMMON FILE 00072 0602 00 0 01126 SLW LCF 00073 0074 00 4 00002 TSX $COLT,4 BINARY CARD NO. SCHAIN04 00074 0 00000 0 00033 PZE X4 00075 -0734 00 1 00000 PDX ,1 LENGTH OF CALLING SEQUENCE 00076 0636 00 4 00703 SCA AH,4 SAVE RETURN 00077 0636 00 4 00115 SCA AB,4 LST ADDRESS AFTER CALLING SEQUENCE 00100 0074 00 4 00003 TSX $FSTATE,4 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 4 00101 3 00000 0 01131 PTH FIL 00102 3 00000 0 01132 PTH FIL+1 00103 3 00010 0 01110 PTH ARRAY,,8 00104 3 00000 0 00705 PTH ZZ+1 ERROR RETURN 00105 -0500 00 0 01132 CAL FIL+1 SET NAMES BACKWARD 00106 0602 00 0 01130 SLW FIL-1 FOR MAD CALL TO VREAD 00107 0074 00 4 00004 TSX $SEEK,4 00110 0 00000 0 01131 PZE FIL 00111 0074 00 4 00005 TSX $MOVE1,4 00112 2 01250 0 01226 TIX ACTARG,,ACTARG+CL-2 00113 0774 00 2 00000 AXT ,2 INIT ARGUMENTS WORD COUNT 00114 0020 00 0 00131 TRA AE CHECK IF ANY ARGUMENT 00115 -0500 00 1 00000 AB CAL **,1 FROM 2ND TO LAST ARGUMENT 00116 0602 00 0 00120 SLW AC 00117 0074 00 4 00006 TSX $MOVE2,4 BINARY CARD NO. SCHAIN05 00120 0 00000 0 00000 AC *** **,,** SUCCESSIVE ARGUMENTS FROM CALL TO SCHAIN 00121 0601 00 0 01277 AK STO K 00122 1 77777 2 00123 TXI *+1,2,-1 WORD COUNTER 00123 0402 00 0 01663 SUB =H 00124 0100 00 0 00127 TZE BT SKIP IF ALL BLANK 00125 0074 00 4 00007 TSX $RJUST,4 00126 0 00000 0 01277 PZE K 00127 -1 00131 0 00132 BT STR AD,,AE 00130 0020 00 0 00121 TRA AK 00131 2 00001 1 00115 AE TIX AB,1,1 00132 -0634 00 2 00343 AD SXD SS,2 ARGUMENT LIST EXHAUSTED 00133 0074 00 4 00010 TSX $MOVE3,4 * SAVE COMMAND LISTS BUFFERS AND COUNTERS. 00134 0774 00 1 00001 AXT 1,1 00135 0774 00 2 01504 AXT CBUF,2 00136 0634 00 2 00141 U SXA *+3,2 00137 -0634 00 1 00141 SXD *+2,1 00140 0074 00 4 00011 TSX $GETCLS,4 00141 0 00000 0 00000 PZE **,,** 00142 1 00024 2 00143 TXI *+1,2,CL 00143 1 00001 1 00144 TXI *+1,1,1 BINARY CARD NO. SCHAIN06 00144 -3 00005 1 00136 TXL U,1,CN 00145 0074 00 4 00012 TSX $GETCLC,4 00146 0602 00 0 01122 SLW CLC 00147 -0100 00 0 00157 TNZ A 00150 0074 00 4 00013 TSX $DELETE,4 00151 0 00000 0 01036 PZE FIL1 00152 0100 00 0 00157 TZE A 00153 0601 00 0 01123 STO FAIL 00154 0074 00 4 00014 TSX $WRFLX,4 00155 0 00003 0 01045 PZE MES1,,3 00156 0020 00 0 00670 TRA OUT 00157 A SYN * 00157 0074 00 4 00015 TSX $SETEOF,4 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 5 00160 0 00000 0 00630 PZE EOF RETURN WHEN FILE ENDS 00161 0774 00 2 00002 AXT FC,2 BEGIN WITH COMMAND NO. 2 (USUALLY) 00162 B SYN * 00162 BE SYN * 00162 0074 00 4 00016 TSX $VREAD,4 00163 3 00000 0 01131 PAR FIL 00164 2 01276 0 01251 TIX AG,,AG+RL-1 00165 0774 00 4 00000 BL AXT **,4 READING COUNTER 00166 1 00001 4 00167 TXI *+1,4,1 00167 0634 00 4 00165 SXA *-2,4 BINARY CARD NO. SCHAIN07 00170 0120 00 0 00174 TPL BS SKIP IF VARIABLE LENGTH RECORD 00171 -0340 00 0 01654 LAS =12 CARD IMAGE NOT LONGER THAN 12 WORDS 00172 -0500 00 0 01654 CAL =12 00173 0761 00 0 00000 NOP 00174 -0340 00 0 01655 BS LAS =22 BCD RECORD NOT LONGER THAN 22 WORDS 00175 -0500 00 0 01655 CAL =22 00176 0761 00 0 00000 NOP 00177 -0130 00 0 00000 XCL IGNORE SIGN 00200 0200 00 0 01653 MPY =6 CHARACTER COUNT 00201 -0763 00 0 00066 LGL 36+18 00202 0760 00 0 00006 COM -COUNT-1 00203 0622 00 0 00272 STD AA 00204 0622 00 0 00245 STD GG * TEST FOR 1ST CHARACTER IN THE LINE 00205 0074 00 4 00017 TSX $UNPAKL,4 UNPACKS LINE 00206 2 01276 0 01251 TIX AG,,AG+RL-1 00207 2 01503 0 01300 TIX K+1,,K+6*RL 00210 0500 00 0 01300 CLA K+1 00211 0402 00 0 01660 SUB =H*00000 00212 0100 00 0 00162 TZE B 00213 0500 00 0 01300 CLA K+1 BINARY CARD NO. SCHAIN08 00214 0402 00 0 01657 SUB =H$00000 00215 -0100 00 0 00236 TNZ F 00216 0056 00 000100 RNT COMSET 00217 0020 00 0 00232 TRA BB 00220 0056 00 000040 RNT LKHED 00221 -3 00002 2 00232 TXL BB,2,FC 00222 0054 00 000020 RFT PRINT 00223 0020 00 0 00232 TRA BB KEEP PRINTING 00224 0055 00 000021 SIR NDLOT+PRINT 00225 0057 00 000040 RIR LKHED 00226 -0500 00 0 01157 BQ CAL ARG1 CHECKS CURRENT COMMAND 00227 0020 00 0 00443 TRA J-1 GO CHECK CN-1 TH. 00230 BA SYN * 00230 0056 00 000020 RNT PRINT 00231 0020 00 0 00367 TRA BC GO ON WITH NEXT COMMAND 00232 0055 00 000020 BB SIR PRINT 00233 0074 00 4 00014 TSX $WRFLX,4 00234 0 00014 0 01251 PZE AG,,12 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 6 00235 0020 00 0 00162 TRA B NEXT LINE FROM FILE * TEST OF 1ST WORD 00236 F SYN * 00236 0774 00 6 00024 AXT CL,6 00237 -0500 00 0 01663 CAL =H BINARY CARD NO. SCHAIN09 00240 0602 00 6 01157 SLW ARG+CL,6 BLANK OUT ARGUMENT LIST 00241 2 00001 6 00240 TIX *-1,6,1 00242 0774 00 6 00000 AXT 0,6 WORD INDEX 00243 0774 00 7 77777 AXT -1,7 CHARACTER INDEX 00244 0020 00 0 00246 TRA *+2 00245 -3 00000 7 00311 GG TXL L,7,** -CHAR COUNT - 1 00246 -0500 00 7 01277 CAL K,7 00247 -0340 00 0 01661 LAS =O570000000000 00250 0020 00 0 00252 TRA G-4 00251 -0500 00 0 01662 CAL =H 00000 00252 -0340 00 0 01662 LAS =H 00000 00253 0020 00 0 00265 TRA C 00254 1 77777 7 00245 TXI GG,7,-1 00255 0020 00 0 00265 TRA C 00256 -0500 00 7 01277 G CAL K,7 00257 -0340 00 0 01661 LAS =O570000000000 00260 0020 00 0 00262 TRA C-3 00261 -0500 00 0 01662 CAL =H 00000 00262 -0340 00 0 01662 LAS =H 00000 ANY BLANK FIELD IS A DELIMITER 00263 0020 00 0 00265 TRA *+2 BETWEEN ARGUMENTS BINARY CARD NO. SCHAIN10 00264 1 77777 6 00274 TXI D,6,-1 00265 -0130 00 0 00000 C XCL 00266 -0500 00 6 01133 CAL ARG,6 00267 -0763 00 0 00006 LGL 6 AT MOST 6 RIGHTMOST CHARACTERS ARE KEPT 00270 0602 00 6 01133 SLW ARG,6 00271 1 77777 7 00272 TXI *+1,7,-1 00272 3 00000 7 00256 AA TXH G,7,** LOOP IF MORE CHARACTERS 00273 1 77777 6 00274 TXI *+1,6,-1 00274 -3 77776 6 00307 D TXL H,6,-2 SKIP UNLESS 1ST WORD * INSERT HERE CHECK OF ALWAYS PERMITTED KEYWORDS 00275 0057 00 000020 RIR PRINT 00276 -0500 00 0 01133 CAL ARG 00277 0056 00 000002 RNT TCHAIN SKIP WHEN 'CHAIN' ALREADY OCCURRED 00300 -0340 00 0 01035 LAS CHAIN 00301 0020 00 0 00303 TRA *+2 00302 0020 00 0 00304 TRA AJ 00303 0020 00 0 00307 TRA H 00304 0054 00 000100 AJ RFT COMSET SKIP IF NO EXECUTABLE COMMAND YET 00305 0020 00 0 00727 TRA ERROR 00306 0055 00 000006 SIR TCHAIN+ARGLIS * INSERT HERE CHECK OF KEYWORDS ALLOWED AFTER 'CHAIN' ONLY 00307 -3 77755 6 00311 H TXL L,6,-CL+1 SKIP WHEN ONLY FENCE LEFT 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 7 BINARY CARD NO. SCHAIN11 00310 1 77777 7 00245 TXI GG,7,-1 NEXT WORD 00311 -3 00000 6 00162 L TXL B,6,0 NEXT LINE IF ALL BLANK 00312 -0500 00 0 01072 CAL FENCE 00313 0602 00 6 01133 SLW ARG,6 SET FENCE 00314 0056 00 000004 RNT ARGLIS 00315 0020 00 0 00327 TRA P NOT A 'CHAIN' KEYWORD * SETS DUMMY ARGUMENTS LIST 00316 -0634 00 6 00324 SXD N,6 00317 -0634 00 6 00344 SXD S,6 00320 0774 00 1 00000 AXT 0,1 00321 -0500 00 1 01133 M CAL ARG,1 FENCE IS NOT TRANSMITTED 00322 0602 00 1 01203 SLW ARLIS,1 00323 1 77777 1 00324 TXI *+1,1,-1 00324 3 00000 1 00321 N TXH M,1,** ** = -NR. OF DUMMIES 00325 0057 00 000004 RIR ARGLIS 00326 0020 00 0 00162 TRA B NEXT COMMAND * SUBSTITUTES DUMMY ARGUMENTS 00327 P SYN * 00327 -0634 00 6 00350 SXD S1,6 00330 0056 00 000002 RNT TCHAIN 00331 0020 00 0 00351 TRA W1 NO DUMMY ARGUMENTS 00332 -0534 00 4 00343 LXD SS,4 00333 -3 00000 4 00351 TXL W1,4,0 SKIP WHEN NO ACTUAL ARGUMENTS BINARY CARD NO. SCHAIN12 00334 0774 00 1 00000 AXT 0,1 IX1 = ARGUMENT IN COMMAND 00335 -0500 00 1 01133 R CAL ARG,1 00336 0774 00 4 00000 AXT 0,4 IX4 = DUMMY IN CHAIN PSEUDO 00337 -0340 00 4 01204 Q LAS ARLIS+1,4 00340 1 77777 4 00343 TXI SS,4,-1 NEXT DUMMY ARGUMENT 00341 1 77777 1 00346 TXI BU,1,-1 GO TO SUBSTITUTION 00342 1 77777 4 00343 TXI SS,4,-1 NEXT DUMMY ARGUMENT 00343 -3 00000 4 00345 SS TXL *+2,4,** SKIP WHEN NO MORE ACTUAL ARGUMENTS. **=-WC 00344 3 00000 4 00337 S TXH Q,4,** NEXT ARGUMENT IN 'CHAIN' ** = -NR OF DUMM 00345 1 77777 1 00350 TXI *+3,1,-1 00346 -0500 00 4 01226 BU CAL ACTARG,4 GET ACTUAL VALUE 00347 0602 00 1 01132 SLW ARG-1,1 AND SUBSTITUTES IN COMMAND LIST 00350 3 00000 1 00335 S1 TXH R,1,** NEXT ARGUMENT IN COMMAND. ** = -N-1 ARG * CHECKS IF (NIL) OR (END) PSEUDO-COMMAND 00351 W1 SYN * 00351 0500 00 0 01133 CLA ARG 00352 0402 00 0 01033 SUB NIL 00353 0100 00 0 00162 TZE B NIL IGNORED. TO NEXT COMMAND 00354 0500 00 0 01133 CLA ARG 00355 0402 00 0 01034 SUB END 00356 0100 00 0 00630 TZE EOF FORCES END OF PROCESS 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 8 00357 0054 00 000040 RFT LKHED SKIP WHEN LOOK UP NEXT COMMAND BINARY CARD NO. SCHAIN13 00360 0020 00 0 00432 TRA AF 00361 0074 00 4 00707 TSX SWUFD,4 CHECK FOR A SWITCHING COMMAND 00362 -3 00000 3 00366 TXL BN,3,0 SKIP IF NO 00363 0055 00 000200 SIR COMSW IT MIGHT 00364 3 00002 3 00366 TXH BN,3,AQ-COMF-1 IT IS COMFIL 00365 0055 00 000400 SIR COPY ANOTHER IMPLICIT SWITCHING COMMAND 00366 0055 00 000140 BN SIR COMSET+LKHED * SET CURRENT COMMAND. SQUEEZES 'NIL'S AND REPLACES 'END'S. 00367 BC SYN * 00367 0560 00 0 01072 LDQ FENCE FENCE 00370 0774 00 4 00024 AXT CL,4 00371 0774 00 1 00025 AXT CL+1,1 00372 -0500 00 4 01157 BG CAL ARG+CL,4 00373 -0340 00 0 01033 LAS NIL 00374 0020 00 0 00376 TRA *+2 00375 0020 00 0 00403 TRA BM 00376 -0340 00 0 01034 LAS END 00377 0020 00 0 00401 TRA *+2 00400 -0130 00 0 00000 XCL END REPLACED BY A FENCE 00401 1 77777 1 00402 TXI *+1,1,-1 00402 0602 00 1 01203 SLW ARG1+CL,1 00403 2 00001 4 00372 BM TIX BG,4,1 * CHECKS IF COMMAND MAY SWITCH U.F.D. BINARY CARD NO. SCHAIN14 00404 0056 00 000200 RNT COMSW 00405 0020 00 0 00162 TRA B TO NEXT COMMAND 00406 0054 00 000400 RFT COPY 00407 0020 00 0 00426 TRA AM 00410 0500 00 0 01157 CLA ARG1 00411 0402 00 0 00755 SUB COMF 00412 -0100 00 0 00430 TNZ AN SKIP IF NOT 'COMFIL' 00413 -0534 00 1 00350 LXD S1,1 00414 0600 00 0 01126 STZ LCF 00415 3 77776 1 00424 TXH AL,1,-2 SKIP IF NO ARGUMENT 00416 -0500 00 0 01160 CAL ARG1+1 1ST ARGUMENT 00417 0322 00 0 01072 ERA FENCE 00420 0100 00 0 00424 TZE AL SKIP IF FENCE 00421 0074 00 4 00020 TSX $ZEL,4 00422 0 00000 0 01160 PZE ARG1+1 00423 0601 00 0 01126 STO LCF NEW COMMON FILE 00424 0057 00 000040 AL RIR LKHED 00425 0020 00 0 00162 TRA B TO NEXT COMMAND 00426 0600 00 0 01126 AM STZ LCF 00427 0057 00 000400 RIR COPY BINARY CARD NO. SCHAIN15 00430 0057 00 000200 AN RIR COMSW 00431 0020 00 0 00162 TRA B TO NEXT COMMAND 00432 AF SYN * 00432 0074 00 4 00707 TSX SWUFD,4 IS IT A SWITCHING COMMAND 00433 3 00002 3 00440 TXH AT,3,AQ-COMF-1 COMFIL IS NEXT 00434 -3 00000 3 00442 TXL AS,3,0 NO SWITCHING IN NEXT 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 9 00435 -0520 00 0 01126 NZT LCF 00436 0020 00 0 00464 TRA W 00437 0055 00 000400 SIR COPY 00440 0055 00 000201 AT SIR NDLOT+COMSW 00441 0020 00 0 00464 TRA W 00442 -3 00002 2 00464 AS TXL W,2,CN-3 NO COMFIL SWITCHING IN NEXT COMMAND 00443 3 00003 2 00464 TXH W,2,CN-2 * SPECIAL PROCEDURE FOR THE (CN-2)TH COMMAND 00444 J SYN * 00444 0774 00 3 00037 AXT AY-AX,3 00445 -0340 00 3 01033 LAS AY,3 DOES NEXT LET CORE IMAGE. LAC = ARG 00446 0020 00 0 00450 TRA *+2 00447 0020 00 0 00452 TRA AZ YES 00450 2 00001 3 00445 TIX *-3,3,1 00451 0020 00 0 00464 TRA W NO 00452 AZ SYN * 00452 0054 00 000030 RFT PRINT+EF 00453 0020 00 0 00462 TRA X BINARY CARD NO. SCHAIN16 00454 0774 00 3 00014 AXT AW-AV,3 00455 -0340 00 3 00774 LAS AW,3 DOES NEXT EXPECT CORE IMAGE 00456 0020 00 0 00460 TRA *+2 00457 0020 00 0 00462 TRA X YES 00460 2 00001 3 00455 TIX *-3,3,1 00461 0020 00 0 00463 TRA X+1 00462 0055 00 002000 X SIR CORE 00463 0055 00 000001 SIR NDLOT * LOADS COMMAND LIST 00464 -0634 00 2 00466 W SXD *+2,2 00465 0074 00 4 00021 TSX $SETCLS,4 00466 0 00000 0 01157 PZE ARG1,,** 00467 1 00001 2 00470 TXI *+1,2,1 NEXT COMMAND 00470 3 00004 2 00473 TXH AP,2,CN-1 SKIP IF LAST-1 COMMAND 00471 0056 00 000001 RNT NDLOT 00472 0020 00 0 00367 TRA BC TO NEXT COMMAND 00473 AP SYN * 00473 SWUS LCF 00473 -0500 00 0 01126 CAL LCF .001 00474 0074 00 3 00717 TSX SWCF,3 .001 00475 -0500 00 0 01126 CAL LCF 00476 0402 00 0 01127 SUB PCF 00477 0100 00 0 00501 TZE *+2 SKIP IF SAME COMFIL FOR CHAIN BINARY CARD NO. SCHAIN17 00500 0057 00 005000 RIR NAM+NAM1 TO GET NEW NAMES 00501 0054 00 001000 RFT NAM 00502 0020 00 0 00510 TRA Y * GETS A FILE NAME FOR TEMPORARY STORAGE 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 10 00503 0074 00 4 00022 TSX $GTNAM,4 00504 0 00000 0 01037 PZE SAVED 00505 0055 00 001000 SIR NAM 00506 0601 00 0 01070 STO SAVE+1 00507 0601 00 0 01074 STO RESUME+1 * SETS BRACKET COMMANDS 00510 Y SYN * 00510 0074 00 4 00021 TSX $SETCLS,4 00511 0 00001 0 01067 PZE SAVE,,1 00512 0056 00 002000 RNT CORE 00513 0020 00 0 00551 TRA Z 00514 0054 00 004000 RFT NAM1 00515 0020 00 0 00545 TRA T SKIP IF NAME ASSIGNED 00516 0074 00 4 00023 TSX $OPEN,4 CREATE DUMMY FILE 00517 3 00000 0 01664 PTH =H W 00520 3 00000 0 01074 PTH RESUME+1 00521 3 00000 0 01075 PTH RESUME+2 00522 3 00000 0 01651 PTH =1 TEMPORARY FILE 00523 3 00000 0 01652 PTH =2 DISK BINARY CARD NO. SCHAIN18 00524 0074 00 4 00024 TSX $WRFILE,4 00525 3 00000 0 01074 PTH RESUME+1 00526 3 00000 0 01075 PTH RESUME+2 00527 3 00000 0 01650 PTH =0 CONTINUE WRITING. 00530 3 00024 0 01157 PTH ARG1,,CL 00531 3 00000 0 01656 PTH =-0 EOF ON WRITE 00532 3 00000 0 01656 PTH =-0 EOFCT ON WRITE 00533 3 00000 0 00705 PTH ZZ+1 00534 0074 00 4 00025 TSX $CLOSE,4 00535 3 00000 0 01074 PTH RESUME+1 00536 3 00000 0 01075 PTH RESUME+2 00537 3 00000 0 00705 PTH ZZ+1 00540 0074 00 4 00022 TSX $GTNAM,4 00541 0 00000 0 01037 PZE SAVED 00542 0055 00 004000 SIR NAM1 00543 0601 00 0 01100 STO SAVE1+1 SET NAMES FOR CORE IMAGE 00544 0601 00 0 01104 STO RESTOR+1 00545 T SYN * 00545 -0634 00 2 00547 SXD *+2,2 00546 0074 00 4 00021 TSX $SETCLS,4 00547 0 00000 0 01077 PZE SAVE1,,** SAVE CORE IMAGE BINARY CARD NO. SCHAIN19 00550 1 00001 2 00551 TXI *+1,2,1 00551 Z SYN * 00551 -0634 00 2 00553 SXD *+2,2 00552 0074 00 4 00021 TSX $SETCLS,4 00553 0 00000 0 01073 PZE RESUME,,** 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 11 * STARTS CHAIN 00554 -0754 00 2 00000 PXD ,2 00555 0400 00 0 01651 ADD =1 00556 0074 00 4 00026 TSX $SETCLC,4 00557 TEMP1 00557 0520 00 0 01123 ZET FAIL .001 00560 -0520 00 0 01126 NZT LCF .001 00561 0020 00 0 00571 TRA ..002 .001 00562 0074 00 4 00027 TSX $CHFILE,4 .001 00563 3 00000 0 01104 PTH RESTOR+1 .001 00564 3 00000 0 01105 PTH RESTOR+2 .001 00565 3 00000 0 01651 PTH =1 .001 00566 3 00000 0 01656 PTH =-0 DO NOT ALTER .001 00567 3 00000 0 01656 PTH =-0 .. .001 00570 3 00000 0 00571 PTH *+1 .001 00571 ..002 SYN * .001 00571 0600 00 0 01123 STZ FAIL RESET POSSIBLE FILE NAME 00572 0074 00 4 00030 TSX $CHNCOM,4 00573 3 00000 0 01651 PAR =1 KEEP CORE IMAGE * RETURN AFTER CHAIN EXECUTED BINARY CARD NO. SCHAIN20 00574 0056 00 002000 RNT CORE 00575 0020 00 0 00605 TRA BJ+1 00576 0074 00 4 00003 TSX $FSTATE,4 00577 3 00000 0 01104 PTH RESTOR+1 00600 3 00000 0 01105 PTH RESTOR+2 00601 3 00010 0 01110 PTH ARRAY,,8 00602 3 00000 0 00604 PTH BJ 00603 0020 00 0 00607 TRA BP 00604 0057 00 002000 BJ RIR CORE NO FILE FOR CORE IMAGE 00605 0074 00 4 00013 TSX $DELETE,4 00606 0 00000 0 01074 PZE RESUME+1 DELETE CHAIN CORE IMAGE 00607 BP SYN * 00607 0054 00 000010 RFT EF 00610 0020 00 0 00635 TRA E 00611 -0500 00 0 01126 CAL LCF 00612 0602 00 0 01127 SLW PCF LOCAL COMFIL BECOMES PREVIOUS 00613 SWUS HCF 00613 -0500 00 0 01125 CAL HCF .001 00614 0074 00 3 00717 TSX SWCF,3 .001 00615 0057 00 000001 RIR NDLOT 00616 0774 00 2 00002 AXT FC,2 00617 0056 00 002000 RNT CORE BINARY CARD NO. SCHAIN21 00620 0020 00 0 00230 TRA BA TO NEXT BATCH 00621 -0634 00 2 00623 SXD *+2,2 00622 0074 00 4 00021 TSX $SETCLS,4 00623 0 00000 0 01103 PZE RESTOR,,** RESTORE CORE IMAGE 00624 -0500 00 0 01104 CAL RESTOR+1 00625 0602 00 0 01123 SLW FAIL CORE IMAGE FLAG 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 12 00626 0057 00 002000 RIR CORE 00627 1 00001 2 00230 TXI BA,2,1 TO NEXT BATCH * WHEN END OF FILE 00630 0055 00 000011 EOF SIR EF+NDLOT 00631 0056 00 000100 RNT COMSET 00632 0020 00 0 00635 TRA E 00633 0054 00 000040 RFT LKHED 00634 0020 00 0 00226 TRA BQ GO CHECK CORE IMAGE LEFT BY COMMAND * RESTORE COMMAND LISTS AND COUNTERS 00635 E SYN * 00635 0774 00 1 00001 AXT 1,1 00636 0774 00 2 01504 AXT CBUF,2 00637 0634 00 2 00642 V SXA *+3,2 00640 -0634 00 1 00642 SXD *+2,1 00641 0074 00 4 00021 TSX $SETCLS,4 00642 0 00000 0 00000 PZE **,,** 00643 1 00024 2 00644 TXI *+1,2,CL BINARY CARD NO. SCHAIN22 00644 1 00001 1 00645 TXI *+1,1,1 00645 -3 00005 1 00637 TXL V,1,CN 00646 -0500 00 0 01122 CAL CLC 00647 0074 00 4 00026 TSX $SETCLC,4 00650 SWUS LCF 00650 -0500 00 0 01126 CAL LCF .001 00651 0074 00 3 00717 TSX SWCF,3 .001 00652 0056 00 002000 RNT CORE 00653 0020 00 0 00670 TRA E1 NO CORE IMAGE LEFT 00654 0074 00 4 00013 TSX $DELETE,4 00655 0 00000 0 01074 PZE RESUME+1 DELETE CHAIN SAVED FILE 00656 -0100 00 0 00667 TNZ BR ERROR 00657 0074 00 4 00027 TSX $CHFILE,4 00660 3 00000 0 01104 PTH RESTOR+1 00661 3 00000 0 01105 PTH RESTOR+2 00662 3 00000 0 01651 PTH =1 TEMPORARY MODE 00663 3 00000 0 01074 PTH RESUME+1 00664 3 00000 0 01075 PTH RESUME+2 00665 3 00000 0 00667 PTH BR TO A LOWER NAME IN THE LIST 00666 -0500 00 0 01074 CAL RESUME+1 OF TEMPORARY FILES 00667 0602 00 0 01123 BR SLW FAIL SET ERROR CODE OR FILE NAME 00670 E1 SYN * * END OF PROCESS 00670 OUT SYN * 00670 RSTOR BINARY CARD NO. SCHAIN23 00670 0441 00 0 01120 LDI IND .001 00671 0774 00 3 00000 X3 AXT **,3 .001 00672 0774 00 5 00000 X5 AXT **,5 .001 00673 0774 00 6 00000 X6 AXT **,6 .001 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 13 00674 0774 00 7 00000 X7 AXT **,7 .001 00675 -0520 00 0 01121 NZT XMOD .001 00676 -0760 00 0 00016 EMTM .001 00677 0774 00 1 00000 X1 AXT **,1 .001 00700 0774 00 2 00000 X2 AXT **,2 .001 00701 -0534 00 4 00033 LXD X4,4 .001 00702 0500 00 0 01123 CLA FAIL 00703 0020 00 0 00000 AH TRA ** 00704 0500 00 0 01651 ZZ CLA =1 00705 0601 00 0 01123 STO FAIL 00706 0020 00 0 00670 TRA E1 * SWUFD S/R. CHECKS WHETHER A COMMAND MAY SWITCH U.F.D. 00707 -0500 00 0 01133 SWUFD CAL ARG 00710 0774 00 3 00003 AXT AQ-COMF,3 00711 -0340 00 3 00760 AR LAS AQ,3 NEXT MIGHT SWITCH FILE DIRECTORY 00712 0020 00 0 00714 TRA *+2 00713 0020 00 4 00001 TRA 1,4 YES BINARY CARD NO. SCHAIN24 00714 2 00001 3 00711 TIX AR,3,1 00715 0774 00 3 00000 AXT ,3 NO 00716 0020 00 4 00001 TRA 1,4 RETURN WITH IX3 SETTING * SWCF S/R. SWITCHES TO SPECIFIED COMMON FILE 00717 -0340 00 0 01124 SWCF LAS CCF IS IT NEW COMMON FILE 00720 0020 00 0 00722 TRA *+2 00721 0020 00 3 00001 TRA 1,3 YES. IGNORE CALL 00722 0602 00 0 01124 SLW CCF SAVE NEW COMMON FILE NO. 00723 0057 00 002000 RIR CORE COMFIL LEAVES NO CORE IMAGE 00724 0074 00 4 00031 TSX $COMFIL,4 00725 3 00000 0 00741 BRN BUSY 00726 0020 00 3 00001 TRA 1,3 * ERROR PROCEDURES 00727 0602 00 0 01040 ERROR SLW MES 00730 0074 00 4 00014 TSX $WRFLX,4 00731 0 00005 0 01040 PZE MES,,5 00732 0020 00 0 00704 TRA ZZ 00733 -0500 00 0 01157 BD CAL ARG1 00734 0602 00 0 01050 SLW MES2 00735 0074 00 4 00014 TSX $WRFLX,4 00736 0 00005 0 01050 PZE MES2,,5 ILLEGAL COMMON FILE 00737 -0500 00 0 01157 CAL ARG1 BINARY CARD NO. SCHAIN25 00740 0020 00 0 00705 TRA ZZ+1 00741 0636 00 4 00754 BUSY SCA BF,4 00742 0602 00 0 01055 SLW MES3 00743 -0600 00 0 01056 STQ MES3+1 00744 -0500 00 0 01061 CAL MES3+4 00745 -0320 00 0 01665 ANA =O777777777700 00746 -0501 00 0 01124 ORA CCF SET COMFIL NO. 00747 0602 00 0 01061 SLW MES3+4 00750 0074 00 4 00014 TSX $WRFLX,4 00751 0 00012 0 01055 PZE MES3,,10 00752 0074 00 4 00032 TSX $DORMNT,4 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 14 00753 -0500 00 0 01124 CAL CCF 00754 0020 00 0 00000 BF TRA ** TRY AGAIN * THESE COMMANDS MAY SWITCH TO ANOTHER U.F.D. 00755 234644263143 COMF BCI 1,COMFIL 00756 512544215142 BCI 1,REMARK 00757 606060434627 BCI 1, LOG 00760 AQ SYN * 00760 AV SYN * THESE COMMANDS EXPECT A CORE IMAGE 00760 262147242227 BCI 1,FAPDBG 00761 462363472163 BCI 1,OCTPAT 00762 462363635121 BCI 1,OCTTRA 00763 604623634342 BCI 1, OCTLK BINARY CARD NO. SCHAIN26 00764 626346472163 BCI 1,STOPAT 00765 604721632330 BCI 1, PATCH 00766 606060635121 BCI 1, TRA 00767 606060604744 BCI 1, PM 00770 606060646225 BCI 1, USE 00771 606263215163 BCI 1, START 00772 606062216525 BCI 1, SAVE 00773 626351212325 BCI 1,STRACE 00774 AW SYN * 00774 AX SYN * THESE COMMANDS LET A CORE IMAGE 00774 262147242227 BCI 1,FAPDBG 00775 606043212524 BCI 1, LAED 00776 606043462124 BCI 1, LOAD 00777 604324212262 BCI 1, LDABS 01000 462363472163 BCI 1,OCTPAT 01001 462363635121 BCI 1,OCTTRA 01002 604623634342 BCI 1, OCTLK 01003 626346472163 BCI 1,STOPAT 01004 604721632330 BCI 1, PATCH 01005 606060635121 BCI 1, TRA 01006 606060604744 BCI 1, PM 01007 606060646225 BCI 1, USE BINARY CARD NO. SCHAIN27 01010 606263215163 BCI 1, START 01011 512562634651 BCI 1,RESTOR 01012 512562644425 BCI 1,RESUME 01013 606060606051 BCI 1, R 01014 606062216525 BCI 1, SAVE 01015 606543462124 BCI 1, VLOAD 01016 452343462124 BCI 1,NCLOAD 01017 434621242746 BCI 1,LOADGO 01020 626351212325 BCI 1,STRACE 01021 516445234644 BCI 1,RUNCOM 01022 236325626301 BCI 1,CTEST1 01023 236325626302 BCI 1,CTEST2 01024 236325626303 BCI 1,CTEST3 01025 236325626304 BCI 1,CTEST4 01026 236325626305 BCI 1,CTEST5 01027 236325626306 BCI 1,CTEST6 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 15 01030 236325626307 BCI 1,CTEST7 01031 236325626310 BCI 1,CTEST8 01032 236325626311 BCI 1,CTEST9 01033 AY SYN * 01033 607445314334 NIL BCI 1, (NIL) BINARY CARD NO. SCHAIN28 01034 607425452434 END BCI 1, (END) 01035 602330213145 CHAIN BCI 1, CHAIN 01036 333333000001 FIL1 BCI 2,...001 SAVED 01037 606221652524 01040 606060606060 MES BCI 5, ...ILLEGAL OCCURENCE 01041 333333314343 01042 252721436046 01043 232364512545 01044 232560606060 01045 604546602567 MES1 BCI 3, NO EXECUTION 01046 252364633146 01047 456060606060 01050 234644444645 MES2 BCI 5,COMMON FILE UNKNOWN 01051 602631432560 01052 606060606060 01053 606445424546 01054 664560606060 01055 606060606060 MES3 BCI , IS USING COMFIL 0, TYPE 'START' TO TRY AGAIN 01056 606060606060 01057 603162606462 BINARY CARD NO. SCHAIN29 01060 314527602346 01061 442631436000 01062 736063704725 01063 601462632151 01064 631460634660 01065 635170602127 01066 213145606060 01067 606062216525 SAVE VFD H36/SAVE,36/,H36/T,O36// 01070 000000000000 01071 606060606063 01072 777777777777 01073 512562644425 RESUME VFD H36/RESUME,36/,H36/SAVED,O36// 01074 000000000000 01075 606221652524 01076 777777777777 01077 606062216525 SAVE1 VFD H36/SAVE,36/,H36/T,O36// 01100 000000000000 01101 606060606063 01102 777777777777 01103 512562634651 RESTOR VFD H36/RESTOR,36/,H36/SAVED,O36// BINARY CARD NO. SCHAIN30 01104 000000000000 01105 606221652524 01106 777777777777 00002 FC EQU 2 FIRST COMMAND LIST AVAILABLE FOR USER'S 00005 CN EQU 5 NUMBER OF COMMAND LISTS 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 16 00024 CL EQU 20 COMMAND BUFFER LENGTH 00026 RL EQU 22 BCD RECORD BUFFER LENGTH 000001 NDLOT BOOL 1 ON = CLOSE SUB-CHAIN 000002 TCHAIN BOOL 2 ON = 'CHAIN' OCCURRED 000004 ARGLIS BOOL 4 ON = WHILE PROCESSING 'CHAIN' PSEUDO 000010 EF BOOL 10 ON = END FILE OCCURED 000020 PRINT BOOL 20 ON = WHILE PRINT ON-LINE 000040 LKHED BOOL 40 ON = NEXT COMMAND TO BE READ 000100 COMSET BOOL 100 ON = SOME EXECUTABLE COMMAND READ 000200 COMSW BOOL 200 ON = NEXT COMMAND MAY SWITCH DIRECTORY 000400 COPY BOOL 400 ON = NEXT COMMAND SWITCHES IMPLICITLY UFD 001000 NAM BOOL 1000 ON = FILE NAME ASSIGNED TO 'SCHAIN' 002000 CORE BOOL 2000 ON = CORE IMAGE TO BE SAVED 004000 NAM1 BOOL 4000 ON = FILE NAME ASSIGNED TO CORE IMAGE 010000 FILOST BOOL 10000 ON = SOURCE FILE STATUS LOST 01107 +000000000660 BUFSIZ DEC 432 01110 ARRAY BSS 8 01120 IND BSS 1 SAVE INDICATORS 01121 XMOD BSS 1 0 FOR 3 IX'S MODE. 77777 FOR 7 IX'S MODE 01122 CLC BSS 1 SAVE COMMAND COUNTERS 01123 FAIL BSS 1 ZERO IF NO ERROR 01124 CCF BSS 1 CURRENT COMMON FILE 01125 HCF BSS 1 HOME COMMON FILE 01126 LCF BSS 1 LOCAL COMMON FILE, IN THE SUBCHAIN 01127 PCF BSS 1 PREVIOUS LOCAL COMMON FILE 01130 BK BSS 3 FILE NAMES 01131 FIL SYN BK+1 01133 ARG BSS CL COMMAND JUST READ 01157 ARG1 BSS CL COMMAND TO BE LOADED 01203 ARLIS BSS CL-1 CHAIN PSEUDO COMMAND 01226 ACTARG BSS CL-1 ACTUAL VALUES OF ARGUMENTS 01251 AG BSS RL READ INPUT BUFFER 01277 K BSS 6*RL+1 UNPACKED LINE BUFFER 01504 CBUF BSS CL*CN SAVE COMMAND LISTS 01037 SAVED SYN FIL1+1 01072 FENCE SYN SAVE+3 END LITERALS BINARY CARD NO. SCHAIN31 01650 000000000000 01651 000000000001 01652 000000000002 01653 000000000006 01654 000000000014 01655 000000000026 01656 400000000000 01657 530000000000 01660 540000000000 01661 570000000000 01662 600000000000 01663 606060606060 01664 606060606066 01665 777777777700 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 1 POST PROCESSOR ASSEMBLY DATA 1666 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 157 A 147, 152, 157 162 B 162, 212, 235, 311, 326, 353, 405, 425, 431 265 C 253, 255, 260 274 D 264 635 E 610, 632, 635 236 F 215, 236 256 G 250, 272 307 H 274, 303 444 J 227, 444 1277 K 121, 126, 207, 210, 213, 246, 256 311 L 245, 307 321 M 324 324 N 316 327 P 315, 327 337 Q 344 335 R 350 344 S 317 545 T 515, 545 136 U 144 637 V 645 464 W 436, 441, 442, 443, 451 462 X 453, 457, 461 510 Y 502, 510 551 Z 513, 551 272 AA 203 115 AB 77, 131 120 AC 116 132 AD 127 131 AE 114, 127 432 AF 360, 432 1251 AG 164, 206, 234 703 AH 76 304 AJ 302 121 AK 130 424 AL 415, 420 426 AM 407 430 AN 412 473 AP 470, 473 760 AQ 364, 433, 710, 711, 760 711 AR 714 442 AS 434 440 AT 433 760 AV 454, 760 774 AW 454, 455, 774 774 AX 444, 774 1033 AY 444, 445, 1033 452 AZ 447, 452 230 BA 230, 620, 627 232 BB 217, 221, 223 367 BC 231, 367, 472 733 BD 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 2 POST PROCESSOR ASSEMBLY DATA 162 BE 162 754 BF 741 372 BG 403 604 BJ 575, 602 1130 BK 1133 165 BL 55 403 BM 375 366 BN 362, 364 607 BP 603, 607 226 BQ 634 667 BR 656, 665 174 BS 170 127 BT 124 346 BU 341 24 CL 57, 61, 112, 142, 236, 240, 307, 370, 371, 372, 402, 530, 643, 1107, 1133, 1157, 1203 1226, 1504 5 CN 144, 442, 443, 470, 645, 1107, 1504 670 E1 653, 670, 706 10 EF 452, 607, 630, 1107 2 FC 161, 221, 616, 1107 245 GG 204, 254, 310 26 RL 164, 206, 207, 1107, 1251, 1277 350 S1 327, 413 343 SS 132, 332, 340, 342 351 W1 331, 333, 351 677 X1 36 700 X2 37 671 X3 40, 47 33 X4 35, 41, 64, 74, 701 672 X5 50 673 X6 51 674 X7 52 704 ZZ 104, 533, 537, 732, 740 1133 ARG 240, 266, 270, 276, 313, 321, 335, 347, 351, 354, 372, 707 1124 CCF 70, 717, 722, 746, 753 1122 CLC 146, 646 1034 END 355, 376 630 EOF 160, 356 1131 FIL 65, 101, 102, 105, 106, 110, 163, 1133 1125 HCF 67, 613 1120 IND 35, 670 1126 LCF 72, 414, 423, 426, 435, 473, 475, 560, 611, 650 1040 MES 727, 731 1000 NAM 500, 501, 505, 1107 1033 NIL 352, 373 670 OUT 156, 670 1127 PCF 71, 476, 612 20 ZEL 421 1157 ARG1 61, 226, 402, 410, 416, 422, 466, 530, 733, 737 741 BUSY 725 1504 CBUF 135, 636 2 COLT 73 755 COMF 364, 411, 433, 710 400 COPY 365, 406, 427, 437, 1107 2000 CORE 462, 512, 574, 604, 617, 626, 652, 723, 1107 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 3 POST PROCESSOR ASSEMBLY DATA 660 DBUF 35 1123 FAIL 54, 153, 557, 571, 625, 667, 702, 705 1036 FIL1 151, 1650 0 GNAM 63 1045 MES1 155 1050 MES2 734, 736 1055 MES3 742, 743, 744, 747, 751 4000 NAM1 500, 514, 542, 1107 23 OPEN 516 1067 SAVE 506, 511, 1650 4 SEEK 107 717 SWCF 474, 614, 651 1121 XMOD 44, 46, 675 1203 ARLIS 322, 337 1110 ARRAY 103, 601 1035 CHAIN 300 25 CLOSE 534 200 COMSW 56, 363, 404, 430, 440, 1107 727 ERROR 305 1072 FENCE 312, 367, 417, 1650 22 GTNAM 503, 540 571 ..002 561, 571 40 LKHED 220, 225, 357, 366, 424, 633, 1107 5 MOVE1 111 6 MOVE2 117 10 MOVE3 133 1 NDLOT 224, 440, 463, 471, 615, 630, 1107 20 PRINT 222, 224, 230, 232, 275, 452, 1107 7 RJUST 125 1077 SAVE1 543, 547 1037 SAVED 504, 541, 1650 707 SWUFD 361, 432 16 VREAD 162 14 WRFLX 154, 233, 730, 735, 750 1226 ACTARG 112, 346 4 ARGLIS 306, 314, 325, 1107 1107 BUFSIZ 27 CHFILE 562, 657 30 CHNCOM 572 31 COMFIL 724 100 COMSET 216, 304, 366, 631, 1107 13 DELETE 150, 605, 654 32 DORMNT 752 10000 FILOST 1107 3 FSTATE 100, 576 1 GETCFN 66 12 GETCLC 145 11 GETCLS 140 1103 RESTOR 544, 563, 564, 577, 600, 623, 624, 660, 661 1073 RESUME 507, 520, 521, 525, 526, 535, 536, 553, 606, 655, 663, 664, 666 35 SCHAIN 0, 35 26 SETCLC 556, 647 21 SETCLS 465, 510, 546, 552, 622, 641 15 SETEOF 157 2 TCHAIN 277, 306, 330, 1107 1 SCHAIN SETS AND EXECUTES A CHAIN OF COMMANDS. 04/23/69 2323.0 PAGE 4 POST PROCESSOR ASSEMBLY DATA 17 UNPAKL 205 24 WRFILE 524 0 NO ERROR IN ABOVE ASSEMBLY. RUNOFF BCD 09/18/68 2319.7 82115 00000 1 MAD PROGRAM LISTING ... ... ... FILE RMAIN MAD 02/08/68 1243.2 - .. MAIN PROGRAM TO CALL RUNOFF COMMAND. LM00001 LM00002 .. J. H. SALTZER, DECEMBER, 1965. LM00003 LM00004 .. DECLARATIONS. LM00005 LM00006 NORMAL MODE IS INTEGER *001 LM00007 INSERT FILE RCOM *002 LM00008 *002 LM00001 .. RUNOFF COMMON PACKAGE. *002 LM00002 *002 LM00003 NORMAL MODE IS INTEGER *003 LM00004 LM00005 PROGRAM COMMON NOSTOP, NOWAIT, FSTPAG, PRINAM, OUTFIL *004 LM00006 PROGRAM COMMON HDLTH, HEAD(360), HDPOS *005 LM00007 PROGRAM COMMON LINE(360) *006 LM00008 PROGRAM COMMON PGE, PAGENO, PGPOS, FTSW, PGMOD *007 LM00009 PROGRAM COMMON PREFIX(25), PRLTH *008 LM00010 PROGRAM COMMON RMARG *009 LM00011 PROGRAM COMMON WRD, SIZE, COUNT, WORD(360) *010 LM00012 PROGRAM COMMON BEGIN, FILL, ADJST, NCHARS, LENGTH *011 LM00013 PROGRAM COMMON LMARG, LINECT, BOTLIN, CNTR, FILSW *012 LM00014 PROGRAM COMMON FLAGSW, DBLSPC, HEDPGE, PIX *013 LM00015 PROGRAM COMMON MROW, TBTLIN, TBTPAG *014 LM00016 PROGRAM COMMON TPGPOS, TFTSW, TPGE, TPRF(25) *015 LM00017 PROGRAM COMMON TPRLTH, THDPOS, TPAGNO, TPGMOD *016 LM00018 PROGRAM COMMON BOTPAG, FLAG(3) *017 LM00019 PROGRAM COMMON BLANK, BCKSPC, RETURN(3) *018 LM00020 PROGRAM COMMON TAB, PERIOD, QUES, EXCLAM *019 LM00021 PROGRAM COMMON COLON, HYPHEN, NULL *020 LM00022 LM00023 BOOLEAN NOSTOP, NOWAIT, FTSW, PGE, OUTFIL *021 LM00024 BOOLEAN ADJST *022 LM00025 BOOLEAN WRD, FILL, BEGIN, CNTR, FILSW, FLAGSW *023 LM00026 BOOLEAN DBLSPC, HEDPGE, PIX, TPGE, TFTSW *024 LM00027 LM00028 .. END OF RUNOFF COMMON PACKAGE LM00029 LM00030 VECTOR VALUES FENCE = 777777777777K *025 LM00009 LM00010 .. DEFAULT ARGUMENT VALUES LM00011 LM00012 VECTOR VALUES NOSTOP = 1B *026 LM00013 VECTOR VALUES NOWAIT = 0B *027 LM00014 VECTOR VALUES FSTPAG = 0 *028 LM00015 VECTOR VALUES OUTFIL = 0B *029 LM00016 LM00017 .. COLLECT COMMAND ARGUMENTS. FIRST ARGUMENT IS LM00018 .. NAME OF FILE TO BE READ. LM00019 LM00020 SETBRK.(CHNCOM.) *030 LM00021 PRINAM = COMARG.(1) *031 LM00022 WHENEVER PRINAM .E. FENCE *032 LM00023 BADARG PRINT COMMENT $0U1S1A1G1E0:$ *033 LM00024 PRINT COMMENT $0 0 0 0 0 0R0U0N0O0F0F0 1N1A1M1E0 0-0P0A0 *034 LM00025 1 G0E0 1N0-0 0-0S0T0O0P0-$ *034 LM00026 CHNCOM.(0) *035 LM00027 END OF CONDITIONAL *036 LM00028 LM00029 THROUGH GETARG, FOR I = 2, 1, COMARG.(I) .E. FENCE *037 LM00030 1 .OR. I .G. 20 *037 LM00031 ARG = COMARG.(I) *038 LM00032 LM00033 WHENEVER ARG .E. $ STOP$ *039 LM00034 NOSTOP = 0B *040 LM00035 LM00036 OR WHENEVER ARG .E. $NOWAIT$ *041 LM00037 NOWAIT = 1B *042 LM00038 NOSTOP = 1B *043 LM00039 LM00040 OR WHENEVER ARG .E. $ PAGE$ *044 LM00041 ARG = COMARG.(I+1) *045 LM00042 WHENEVER ARG .E. FENCE, TRANSFER TO BADARG *046 LM00043 I = I + 1 *047 LM00044 FSTPAG = BIN.(ARG) *048 LM00045 LM00046 OR WHENEVER ARG .E. $ PRINT$ *049 LM00047 OUTFIL = 1B *050 LM00048 NOWAIT = 1B *051 LM00049 LM00050 OR WHENEVER ARG .E. $ BALL$ *052 LM00051 ARG = COMARG.(I+1) *053 LM00052 WHENEVER ARG .E. FENCE, TRANSFER TO BADARG *054 LM00053 I = I + 1 *055 LM00054 CHBALL.(ARG,2,BADARG) *056 LM00055 LM00056 OTHERWISE *057 LM00057 TRANSFER TO BADARG *058 LM00058 LM00059 GETARG END OF CONDITIONAL *059 LM00060 LM00061 RUNOFF. *060 LM00062 CHNCOM.(0) *061 LM00063 LM00064 END OF PROGRAM *062 LM00065 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00215 TRANSFER VECTOR LENGTH 00011 PROGRAM BEGINS 00030 FIRST UNUSED COMMON/ERASABLE 75207 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ADJST 75311 C2 FENCE 00014 A 1 I 00015 1 PGE 76130 C2 TBTLIN 75274 C1 ARG 00013 1 FILL 75312 C2 LENGTH 75307 C1 PGMOD 76124 C1 TBTPAG 75273 C1 BADARG 00012 4 FILSW 75302 C2 LINECT 75305 C1 PGPOS 76126 C1 TFTSW 75271 C2 BCKSPC 75223 C1 FLAG 75230 AC1 LINE 76701 AC1 PIX 75276 C2 THDPOS 75234 C1 BEGIN 75313 C2 FLAGSW 75301 C2 LMARG 75306 C1 PREFIX 76123 AC1 TPAGNO 75233 C1 BLANK 75224 C1 FSTPAG 77457 AC1 MROW 75275 C1 PRINAM 77456 C1 TPGE 75270 C2 BOTLIN 75304 C1 FTSW 76125 C2 NCHARS 75310 C1 PRLTH 76071 C1 TPGMOD 75232 C1 BOTPAG 75231 C1 GETARG 00011 4 NOSTOP 77461 AC2 QUES 75214 C1 TPGPOS 75272 C1 CNTR 75303 C2 HDLTH 77454 C1 NOWAIT 77460 AC2 RETURN 75222 AC1 TPRF 75267 AC1 COLON 75212 C1 HDPOS 76702 C1 NULL 75210 C1 RMARG 76070 C1 TPRLTH 75235 C1 COUNT 76065 C1 HEAD 77453 AC1 OUTFIL 77455 AC2 SIZE 76066 C1 WORD 76064 AC1 DBLSPC 75300 C2 HEDPGE 75277 C2 PAGENO 76127 C1 TAB 75216 C1 WRD 76067 C2 EXCLAM 75213 C1 HYPHEN 75211 C1 PERIOD 75215 C1 0FUNCTION DICTIONARY BIN 00000 1 CHBALL 00001 1 CHNCOM 00002 1 COMARG 00003 1 EXIT 00004 1 .PCOMT 00005 1 .SETUP 00006 1 RUNOFF 00007 1 SETBRK 00010 1 0ABSOLUTE CONSTANTS 00025 -206022214343 00024 -204751314563 00026 -206047212725 00023 -054666213163 00027 -206062634647 00021 +000000000024 00020 +000000000002 00016 +000000000000 00017 +000000000001 00022 +233000000000 0STATEMENT DICTIONARY 00012 TXL -300045000041 0PROGRAM NORMAL MODE IS INTEGER 001 LM00007 INSERT FILE RCOM 002 LM00008 NORMAL MODE IS INTEGER 003 LM00004 PROGRAM COMMON NOSTOP, NOWAIT, FSTPAG, PRINAM, OUTFIL 004 LM00006 PROGRAM COMMON HDLTH, HEAD(360), HDPOS 005 LM00007 PROGRAM COMMON LINE(360) 006 LM00008 PROGRAM COMMON PGE, PAGENO, PGPOS, FTSW, PGMOD 007 LM00009 PROGRAM COMMON PREFIX(25), PRLTH 008 LM00010 PROGRAM COMMON RMARG 009 LM00011 PROGRAM COMMON WRD, SIZE, COUNT, WORD(360) 010 LM00012 PROGRAM COMMON BEGIN, FILL, ADJST, NCHARS, LENGTH 011 LM00013 PROGRAM COMMON LMARG, LINECT, BOTLIN, CNTR, FILSW 012 LM00014 PROGRAM COMMON FLAGSW, DBLSPC, HEDPGE, PIX 013 LM00015 PROGRAM COMMON MROW, TBTLIN, TBTPAG 014 LM00016 PROGRAM COMMON TPGPOS, TFTSW, TPGE, TPRF(25) 015 LM00017 PROGRAM COMMON TPRLTH, THDPOS, TPAGNO, TPGMOD 016 LM00018 PROGRAM COMMON BOTPAG, FLAG(3) 017 LM00019 PROGRAM COMMON BLANK, BCKSPC, RETURN(3) 018 LM00020 PROGRAM COMMON TAB, PERIOD, QUES, EXCLAM 019 LM00021 PROGRAM COMMON COLON, HYPHEN, NULL 020 LM00022 BOOLEAN NOSTOP, NOWAIT, FTSW, PGE, OUTFIL 021 LM00024 BOOLEAN ADJST 022 LM00025 BOOLEAN WRD, FILL, BEGIN, CNTR, FILSW, FLAGSW 023 LM00026 BOOLEAN DBLSPC, HEDPGE, PIX, TPGE, TFTSW 024 LM00027 VECTOR VALUES FENCE = 777777777777K 025 LM00009 00030 TSX +0 07400 4 00006 00014 -3 77777 7 77777 VECTOR VALUES NOSTOP = 1B 026 LM00013 77461 +0 00000 0 00001 VECTOR VALUES NOWAIT = 0B 027 LM00014 77460 +0 00000 0 00000 VECTOR VALUES FSTPAG = 0 028 LM00015 77457 +0 00000 0 00000 VECTOR VALUES OUTFIL = 0B 029 LM00016 77455 +0 00000 0 00000 SETBRK.(CHNCOM.) 030 LM00021 00031 TSX +0 07400 4 00010 00032 TXH +3 00000 0 00002 PRINAM = COMARG.(1) 031 LM00022 00033 TSX +0 07400 4 00003 00034 TXH +3 00000 0 00017 00035 STO +0 60100 0 77456 WHENEVER PRINAM .E. FENCE 032 LM00023 00036 CLA +0 50000 0 77456 00037 SUB +0 40200 0 00014 00040 TNZ -0 10000 0 00064 BADARG PRINT COMMENT $0U1S1A1G1E0:$ 033 LM00024 00041 TSX +0 07400 4 00005 00042 +0 00000 0 00002 00043 +0 06401 6 20121 00044 +0 12701 2 50035 PRINT COMMENT $0 0 0 0 0 0R0U0N0O0F0F0 1N1A1M1E0 0-0P0A0 034 LM00025 1G0E0 1N0-0 0-0S0T0O0P0-$ 034 LM00026 00045 TSX +0 07400 4 00005 00046 +0 00000 0 00013 00047 +0 06000 6 00060 00050 +0 06000 6 00051 00051 +0 06400 4 50046 00052 +0 02600 2 60060 00053 +0 14501 2 10144 00054 +0 12500 6 00040 00055 +0 04700 2 10027 00056 +0 02500 6 00145 00057 +0 04000 6 00040 00060 +0 06200 6 30046 00061 +0 04700 4 06060 CHNCOM.(0) 035 LM00027 00062 TSX +0 07400 4 00002 00063 TXH +3 00000 0 00016 END OF CONDITIONAL 036 LM00028 THROUGH GETARG, FOR I = 2, 1, COMARG.(I) .E. FENCE 037 LM00030 1 .OR. I .G. 20 037 LM00031 00064 CLA +0 50000 0 00020 00065 STO +0 60100 0 00015 00066 TRA +0 02000 0 00072 00067 CLA +0 50000 0 00015 00070 ADD +0 40000 0 00017 00071 STO +0 60100 0 00015 00072 CLA +0 50000 0 00015 00073 SUB +0 40200 0 00021 00074 TZE +0 10000 0 00076 00075 TPL +0 12000 0 00206 00076 TSX +0 07400 4 00003 00077 TXH +3 00000 0 00015 00100 SUB +0 40200 0 00014 00101 TZE +0 10000 0 00206 ARG = COMARG.(I) 038 LM00032 00102 TSX +0 07400 4 00003 00103 TXH +3 00000 0 00015 00104 STO +0 60100 0 00013 WHENEVER ARG .E. $ STOP$ 039 LM00034 00105 CLA +0 50000 0 00013 00106 SUB +0 40200 0 00027 00107 TNZ -0 10000 0 00113 NOSTOP = 0B 040 LM00035 00110 CLA +0 50000 0 00016 00111 STO +0 60100 0 77461 OR WHENEVER ARG .E. $NOWAIT$ 041 LM00037 00112 TRA +0 02000 0 00205 00113 CLA +0 50000 0 00013 00114 SUB +0 40200 0 00023 00115 TNZ -0 10000 0 00123 NOWAIT = 1B 042 LM00038 00116 CLA +0 50000 0 00017 00117 STO +0 60100 0 77460 NOSTOP = 1B 043 LM00039 00120 CLA +0 50000 0 00017 00121 STO +0 60100 0 77461 OR WHENEVER ARG .E. $ PAGE$ 044 LM00041 00122 TRA +0 02000 0 00205 00123 CLA +0 50000 0 00013 00124 SUB +0 40200 0 00026 00125 TNZ -0 10000 0 00147 ARG = COMARG.(I+1) 045 LM00042 00126 CLA +0 50000 0 00015 00127 ADD +0 40000 0 00017 00130 STO +0 60100 0 00212 00131 TSX +0 07400 4 00003 00132 TXH +3 00000 0 00212 00133 STO +0 60100 0 00013 WHENEVER ARG .E. FENCE, TRANSFER TO BADARG 046 LM00043 00134 CLA +0 50000 0 00013 00135 SUB +0 40200 0 00014 00136 TNZ -0 10000 0 00140 00137 TRA +0 02000 0 00012 I = I + 1 047 LM00044 00140 CLA +0 50000 0 00015 00141 ADD +0 40000 0 00017 00142 STO +0 60100 0 00015 FSTPAG = BIN.(ARG) 048 LM00045 00143 TSX +0 07400 4 00000 00144 TXH +3 00000 0 00013 00145 STO +0 60100 0 77457 OR WHENEVER ARG .E. $ PRINT$ 049 LM00047 00146 TRA +0 02000 0 00205 00147 CLA +0 50000 0 00013 00150 SUB +0 40200 0 00024 00151 TNZ -0 10000 0 00157 OUTFIL = 1B 050 LM00048 00152 CLA +0 50000 0 00017 00153 STO +0 60100 0 77455 NOWAIT = 1B 051 LM00049 00154 CLA +0 50000 0 00017 00155 STO +0 60100 0 77460 OR WHENEVER ARG .E. $ BALL$ 052 LM00051 00156 TRA +0 02000 0 00205 00157 CLA +0 50000 0 00013 00160 SUB +0 40200 0 00025 00161 TNZ -0 10000 0 00204 ARG = COMARG.(I+1) 053 LM00052 00162 CLA +0 50000 0 00015 00163 ADD +0 40000 0 00017 00164 STO +0 60100 0 00212 00165 TSX +0 07400 4 00003 00166 TXH +3 00000 0 00212 00167 STO +0 60100 0 00013 WHENEVER ARG .E. FENCE, TRANSFER TO BADARG 054 LM00053 00170 CLA +0 50000 0 00013 00171 SUB +0 40200 0 00014 00172 TNZ -0 10000 0 00174 00173 TRA +0 02000 0 00012 I = I + 1 055 LM00054 00174 CLA +0 50000 0 00015 00175 ADD +0 40000 0 00017 00176 STO +0 60100 0 00015 CHBALL.(ARG,2,BADARG) 056 LM00055 00177 TSX +0 07400 4 00001 00200 TXH +3 00000 0 00013 00201 TXH +3 00000 0 00020 00202 TXH +3 00000 0 00012 OTHERWISE 057 LM00057 00203 TRA +0 02000 0 00205 TRANSFER TO BADARG 058 LM00058 00204 TRA +0 02000 0 00012 GETARG END OF CONDITIONAL 059 LM00060 00205 TRA +0 02000 0 00067 RUNOFF. 060 LM00062 00206 TSX +0 07400 4 00007 CHNCOM.(0) 061 LM00063 00207 TSX +0 07400 4 00002 00210 TXH +3 00000 0 00016 END OF PROGRAM 062 LM00065 00211 TSX +0 07400 4 00004 1 MAD PROGRAM LISTING ... ... ... FILE RUNOFF MAD 02/08/68 1243.3 - EXTERNAL FUNCTION *001 LM00001 LM00002 .. RUN OFF AND RIGHT JUSTIFY MEMORANDUM FILE. LM00003 LM00004 .. J. H. SALTZER, NOVEMBER, 1964. LM00005 LM00006 .. DECLARATIONS. LM00007 LM00008 INSERT FILE RCOM *002 LM00009 *002 LM00001 .. RUNOFF COMMON PACKAGE. *002 LM00002 *002 LM00003 NORMAL MODE IS INTEGER *003 LM00004 LM00005 PROGRAM COMMON NOSTOP, NOWAIT, FSTPAG, PRINAM, OUTFIL *004 LM00006 PROGRAM COMMON HDLTH, HEAD(360), HDPOS *005 LM00007 PROGRAM COMMON LINE(360) *006 LM00008 PROGRAM COMMON PGE, PAGENO, PGPOS, FTSW, PGMOD *007 LM00009 PROGRAM COMMON PREFIX(25), PRLTH *008 LM00010 PROGRAM COMMON RMARG *009 LM00011 PROGRAM COMMON WRD, SIZE, COUNT, WORD(360) *010 LM00012 PROGRAM COMMON BEGIN, FILL, ADJST, NCHARS, LENGTH *011 LM00013 PROGRAM COMMON LMARG, LINECT, BOTLIN, CNTR, FILSW *012 LM00014 PROGRAM COMMON FLAGSW, DBLSPC, HEDPGE, PIX *013 LM00015 PROGRAM COMMON MROW, TBTLIN, TBTPAG *014 LM00016 PROGRAM COMMON TPGPOS, TFTSW, TPGE, TPRF(25) *015 LM00017 PROGRAM COMMON TPRLTH, THDPOS, TPAGNO, TPGMOD *016 LM00018 PROGRAM COMMON BOTPAG, FLAG(3) *017 LM00019 PROGRAM COMMON BLANK, BCKSPC, RETURN(3) *018 LM00020 PROGRAM COMMON TAB, PERIOD, QUES, EXCLAM *019 LM00021 PROGRAM COMMON COLON, HYPHEN, NULL *020 LM00022 LM00023 BOOLEAN NOSTOP, NOWAIT, FTSW, PGE, OUTFIL *021 LM00024 BOOLEAN ADJST *022 LM00025 BOOLEAN WRD, FILL, BEGIN, CNTR, FILSW, FLAGSW *023 LM00026 BOOLEAN DBLSPC, HEDPGE, PIX, TPGE, TFTSW *024 LM00027 LM00028 .. END OF RUNOFF COMMON PACKAGE LM00029 LM00030 BOOLEAN NLINE *025 LM00010 NORMAL MODE IS INTEGER *026 LM00011 LM00012 .. CHARACTERS RECOGNIZED BY RUNOFF. LM00013 LM00014 VECTOR VALUES PERIOD = 0033K *027 LM00015 VECTOR VALUES QUES = 0156K *028 LM00016 VECTOR VALUES EXCLAM = 0153K *029 LM00017 VECTOR VALUES BLANK = 0060K *030 LM00018 VECTOR VALUES HYPHEN = 0040K *031 LM00019 VECTOR VALUES COLON = 0035K *032 LM00020 VECTOR VALUES TAB = 0072K *033 LM00021 VECTOR VALUES NULL = 0057K *034 LM00022 VECTOR VALUES BCKSPC = 0135K *035 LM00023 VECTOR VALUES RETURN = 0055K, 0055K, 0055K *036 LM00024 LM00025 .. DEFAULT PARAMETER VALUES. LM00026 LM00027 VECTOR VALUES TPRF(1) = $00000P00000A00000G00000E00000 $ *037 LM00028 VECTOR VALUES HDLTH = 0 *038 LM00029 VECTOR VALUES THDPOS = $PPOSED$ *039 LM00030 VECTOR VALUES TPGPOS = $MARGIN$ *040 LM00031 VECTOR VALUES TFTSW = 0B *041 LM00032 VECTOR VALUES TPRLTH = 5 *042 LM00033 VECTOR VALUES TPGE = 0B *043 LM00034 VECTOR VALUES TPAGNO = 2 *044 LM00035 VECTOR VALUES TPGMOD = $ARABIC$ *045 LM00036 VECTOR VALUES FLAG(1) = $00000 00000 00000*$ *046 LM00037 VECTOR VALUES RMARG = 60 *047 LM00038 VECTOR VALUES LMARG = 0 *048 LM00039 VECTOR VALUES TBTLIN = 60 *049 LM00040 VECTOR VALUES TBTPAG = 66 *050 LM00041 VECTOR VALUES ADJST = 1B *051 LM00042 VECTOR VALUES FILL = 1B *052 LM00043 LM00044 .. INITIAL VALUES OF INTERNAL VARIABLES. LM00045 LM00046 VECTOR VALUES PIX = 0B *053 LM00047 VECTOR VALUES FLAGSW = 0B *054 LM00048 VECTOR VALUES LIT = 0B *055 LM00049 LM00050 ENTRY TO RUNOFF. *056 LM00051 LM00052 SETUP. *057 LM00053 SEEK.(PRINAM, $(MEMO)$ , EOF) *058 LM00054 WHENEVER .NOT.NOWAIT *059 LM00055 PRINT COMMENT $0L1O1A1D0 1P1A1P1E1R0,0 1H1I1T0 1R1E1T1U1R1N$ *060 LM00056 WAIT. *061 LM00057 END OF CONDITIONAL *062 LM00058 LM00059 .. GET NEXT CHARACTER, BUILD UP WORD LM00060 LM00061 GTNXT CHAR = NXCHAR.(NLINE, EOF) *063 LM00062 LM00063 WHENEVER NLINE *064 LM00064 LM00065 .. DISCOVER NATURE OF NEXT INPUT LINE. LM00066 LM00067 RENEW WHENEVER LIT *065 LM00068 LIT = 0B *066 LM00069 OR WHENEVER CHAR .E. PERIOD *067 LM00070 TRANSFER TO CONTRL *068 LM00071 END OF CONDITIONAL *069 LM00072 SETCHR.(RETURN) *070 LM00073 END OF CONDITIONAL *071 LM00074 LM00075 PROCED SETCHR.(CHAR) *072 LM00076 TRANSFER TO GTNXT *073 LM00077 LM00078 .. CONTROL WORD SECTION. LM00079 LM00080 CONTRL CWD = GET.(0) *074 LM00081 LM00082 WHENEVER CWD .E. $ END$ *075 LM00083 EOF SETWRD. *076 LM00084 SETLIN. *077 LM00085 SETPAG. *078 LM00086 SETDWN. *079 LM00087 CHNCOM.(0) *080 LM00088 LM00089 OR WHENEVER CWD .E. $ CWD$ *081 LM00090 TRANSFER TO CONTRL *082 LM00091 LM00092 OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ AP$ *083 LM00093 ENDRD.(PRINAM, $(MEMO)$) *084 LM00094 PRINAM = GET.(0) *085 LM00095 SEEK.(PRINAM, $(MEMO)$, EOF) *086 LM00096 TRANSFER TO GTNXT *087 LM00097 LM00098 OR WHENEVER CWD .E. $ SPACE$ .OR. CWD .E. $ SP$ *088 LM00099 TEM = NUM.(0) *089 LM00100 WHENEVER TEM .E. 0, TEM = 1 *090 LM00101 SETWRD. *091 LM00102 SETLIN. *092 LM00103 WHENEVER TEM + LINECT .L. BOTLIN *093 LM00104 THROUGH SPCLP, FOR I = 1, 1, I .G. TEM *094 LM00105 SPCLP PACK.(RETURN, 1) *095 LM00106 LINECT = LINECT + TEM *096 LM00107 BRKLIN. *097 LM00108 OTHERWISE *098 LM00109 SETPAG. *099 LM00110 END OF CONDITIONAL *100 LM00111 LM00112 OR WHENEVER CWD .E. $ BREAK$ .OR. CWD .E. $ BR$ *101 LM00113 BRKLIN. *102 LM00114 LM00115 OR WHENEVER CWD .E. $CENTER$ .OR. CWD .E. $ CE$ *103 LM00116 BRKLIN. *104 LM00117 BEGIN = 1B *105 LM00118 CNTR = 1B *106 LM00119 FILSW = FILL *107 LM00120 FILL = 0B *108 LM00121 LM00122 OR WHENEVER CWD .E. $ITERAL$ .OR. CWD .E. $ LI$ *109 LM00123 LIT = 1B *110 LM00124 LM00125 OR WHENEVER CWD .E. $ FLAG$ .OR. CWD .E. $ FL$ *111 LM00126 FLAGSW = 1B *112 LM00127 LM00128 OR WHENEVER CWD .E. $ LINE$ *113 LM00129 CWD = GET.(0) *114 LM00130 RMARG = NUM.(0) *115 LM00131 OR WHENEVER CWD .E. $ LL$ *116 LM00132 RMARG = NUM.(0) *117 LM00133 LM00134 OR WHENEVER CWD .E. $INDENT$ .OR. CWD .E. $ IN$ *118 LM00135 LMARG = NUM.(0) *119 LM00136 LM00137 OR WHENEVER CWD .E. $UNDENT$ .OR. CWD .E. $ UN$ *120 LM00138 BRKLIN. *121 LM00139 NS = LMARG - NUM.(0) *122 LM00140 WHENEVER NS .L. 0, NS = 0 *123 LM00141 LINE(1) = NULL *124 LM00142 THROUGH UNDLP, FOR LENGTH = 1, 1, LENGTH .GE. NS+1 *125 LM00143 UNDLP LINE(LENGTH+1) = BLANK *126 LM00144 NCHARS = NS *127 LM00145 LM00146 LM00147 OR WHENEVER CWD .E. $NOJUST$ .OR. CWD .E. $ NJ$ *128 LM00148 BRKLIN. *129 LM00149 ADJST = 0B *130 LM00150 LM00151 OR WHENEVER CWD .E. $ADJUST$ .OR. CWD .E. $ AD$ *131 LM00152 BRKLIN. *132 LM00153 ADJST = 1B *133 LM00154 LM00155 OR WHENEVER CWD .E. $ FILL$ .OR. CWD .E. $ FI$ *134 LM00156 BRKLIN. *135 LM00157 FILL = 1B *136 LM00158 LM00159 OR WHENEVER CWD .E. $NOFILL$ .OR. CWD .E. $ NF$ *137 LM00160 BRKLIN. *138 LM00161 FILL = 0B *139 LM00162 LM00163 OR WHENEVER CWD .E. $SINGLE$ .OR. CWD .E. $ SS$ *140 LM00164 BRKLIN. *141 LM00165 DBLSPC = 0B *142 LM00166 LM00167 OR WHENEVER CWD .E. $DOUBLE$ .OR. CWD .E. $ DS$ *143 LM00168 BRKLIN. *144 LM00169 DBLSPC = 1B *145 LM00170 LM00171 OR WHENEVER CWD .E. $ PAPER$ *146 LM00172 CWD = GET.(0) *147 LM00173 WHENEVER CWD .E. $LENGTH$ *148 LM00174 PL TBTPAG = NUM.(0) *149 LM00175 TBTLIN = TBTPAG - 6 *150 LM00176 END OF CONDITIONAL *151 LM00177 LM00178 OR WHENEVER CWD .E. $ SHORT$ .OR. CWD .E. $ SH$ *152 LM00179 BOTLIN = BOTLIN - NUM.(0) *153 LM00180 LM00181 OR WHENEVER CWD .E. $ PL$ *154 LM00182 TRANSFER TO PL *155 LM00183 LM00184 OR WHENEVER CWD .E. $EADING$ *156 LM00185 CWD = GET.(0) *157 LM00186 TRANSFER TO HM *158 LM00187 LM00188 OR WHENEVER CWD .E. $ HM$ *159 LM00189 HM THDPOS = GET.(0) *160 LM00190 LM00191 OR WHENEVER CWD .E. $PAGING$ *161 LM00192 CWD = GET.(0) *162 LM00193 TRANSFER TO PM *163 LM00194 LM00195 OR WHENEVER CWD .E. $ PM$ *164 LM00196 PM TPGE = 1B *165 LM00197 CWD = GET.(0) *166 LM00198 WHENEVER CWD .E. $ $ *167 LM00199 TRANSFER TO DONEP *168 LM00200 OR WHENEVER CWD .E. $MARGIN$ *169 LM00201 TPGPOS = CWD *170 LM00202 OR WHENEVER CWD .E. $FACING$ *171 LM00203 TPGPOS = CWD *172 LM00204 OR WHENEVER CWD .E. $CENTER$ *173 LM00205 TPGPOS = CWD *174 LM00206 OR WHENEVER CWD .E. $ TOP$ *175 LM00207 TFTSW = 0B *176 LM00208 OR WHENEVER CWD .E. $BOTTOM$ *177 LM00209 TFTSW = 1B *178 LM00210 OR WHENEVER CWD .E. $ OFF$ *179 LM00211 TPGE = 0B *180 LM00212 OR WHENEVER CWD .E. $ARABIC$ *181 LM00213 TPGMOD = CWD *182 LM00214 OR WHENEVER CWD .E. $ROMANU$ *183 LM00215 TPGMOD = CWD *184 LM00216 OR WHENEVER CWD .E. $ROMANL$ *185 LM00217 TPGMOD = CWD *186 LM00218 OR WHENEVER CWD .E. $ SKIP$ *187 LM00219 TPAGNO = TPAGNO + NUM.(0) *188 LM00220 OR WHENEVER CWD .E. $ SET$ *189 LM00221 TPAGNO = NUM.(0) *190 LM00222 OR WHENEVER CWD .E. $PREFIX$ *191 LM00223 QUOTE = NXCHAR.(NLINE, EOF) *192 LM00224 THROUGH PRFLP, FOR I = 1, 1, NLINE *193 LM00225 TPRF(I) = NXCHAR. (NLINE, EOF) *194 LM00226 PRFLP WHENEVER TPRF(I) .E. QUOTE, TRANSFER TO PRFSTP *195 LM00227 TRANSFER TO RENEW *196 LM00228 LM00229 PRFSTP TPRLTH = I-1 *197 LM00230 END OF CONDITIONAL *198 LM00231 TRANSFER TO PM *199 LM00232 DONEP CONTINUE *200 LM00233 LM00234 OR WHENEVER CWD .E. $ PAGE$ .OR. CWD .E. $ PA$ *201 LM00235 TPGE = 1B *202 LM00236 TEM = NUM.(0) *203 LM00237 WHENEVER TEM .NE. 0 *204 LM00238 SETWRD. *205 LM00239 SETLIN. *206 LM00240 TPAGNO = TEM *207 LM00241 SETPAG. *208 LM00242 END OF CONDITIONAL *209 LM00243 LM00244 OR WHENEVER CWD .E. $ ODD$ .OR. CWD .E. $ OP$ *210 LM00245 SETWRD. *211 LM00246 SETLIN. *212 LM00247 TPAGNO = (TPAGNO/2)*2 + 1 *213 LM00248 SETPAG. *214 LM00249 LM00250 OR WHENEVER CWD .E. $ BEGIN$ .OR. CWD .E. $ BP$ *215 LM00251 SETWRD. *216 LM00252 SETLIN. *217 LM00253 SETPAG. *218 LM00254 LM00255 OR WHENEVER CWD .E. $HEADER$ .OR. CWD .E. $ HE$ *219 LM00256 NLINE = 0B *220 LM00257 THROUGH HDLP, FOR I = 1, 1, NLINE *221 LM00258 HDLP HEAD(I) = NXCHAR.(NLINE, EOF) *222 LM00259 CHAR = HEAD(I-1) *223 LM00260 HDLTH = I - 2 *224 LM00261 TRANSFER TO RENEW *225 LM00262 LM00263 OR WHENEVER CWD .E. $FIGURE$ *226 LM00264 MROW = FRAME.(0) *227 LM00265 WHENEVER LINECT + MROW .LE. BOTLIN *228 LM00266 PRPIX. *229 LM00267 LINECT = LINECT + MROW *230 LM00268 PIX = 0B *231 LM00269 OTHERWISE *232 LM00270 PIX = 1B *233 LM00271 END OF CONDITIONAL *234 LM00272 LM00273 OR WHENEVER CWD .E. $DEFINE$ *235 LM00274 SYMSTO.(GET.(0), PAGENO) *236 LM00275 LM00276 OR WHENEVER CWD .E. $ USE$ *237 LM00277 SETWRD. *238 LM00278 SIZE = NUMCON.(SYMGET.(GET.(0),0,$ARABIC$),WORD(1))+1 *239 LM00279 COUNT = SIZE *240 LM00280 WORD(1) = BLANK *241 LM00281 WRD = 1B *242 LM00282 TRANSFER TO GTNXT *243 LM00283 LM00284 LM00285 END OF CONDITIONAL *244 LM00286 LM00287 NLINE = 0B *245 LM00288 THROUGH SKPLP, FOR I = 0, 0, NLINE *246 LM00289 SKPLP CHAR = NXCHAR.(NLINE, EOF) *247 LM00290 WHENEVER CNTR, TRANSFER TO PROCED *248 LM00291 TRANSFER TO RENEW *249 LM00292 LM00293 END OF FUNCTION *250 LM00294 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01340 TRANSFER VECTOR LENGTH 00026 PROGRAM BEGINS 00157 FIRST UNUSED COMMON/ERASABLE 75207 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES RUNOFF 00160 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ADJST 75311 AC2 FILSW 75302 C2 LINE 76701 AC1 PIX 75276 AC2 SPCLP 00026 4 BCKSPC 75223 AC1 FLAG 75230 AC1 LIT 00044 A 2 PL 00034 4 TAB 75216 AC1 BEGIN 75313 C2 FLAGSW 75301 AC2 LMARG 75306 AC1 PM 00035 4 TBTLIN 75274 AC1 BLANK 75224 AC1 FSTPAG 77457 C1 MROW 75275 C1 PREFIX 76123 AC1 TBTPAG 75273 AC1 BOTLIN 75304 C1 FTSW 76125 C2 NCHARS 75310 C1 PRFLP 00026 4 TEM 00050 1 BOTPAG 75231 C1 GTNXT 00032 4 NLINE 00045 2 PRFSTP 00036 4 TFTSW 75271 AC2 CHAR 00041 1 HDLP 00026 4 NOSTOP 77461 C2 PRINAM 77456 C1 THDPOS 75234 AC1 CNTR 75303 C2 HDLTH 77454 AC1 NOWAIT 77460 C2 PRLTH 76071 C1 TPAGNO 75233 AC1 COLON 75212 AC1 HDPOS 76702 C1 NS 00046 1 PROCED 00037 4 TPGE 75270 AC2 CONTRL 00027 4 HEAD 77453 AC1 NULL 75210 AC1 QUES 75214 AC1 TPGMOD 75232 AC1 COUNT 76065 C1 HEDPGE 75277 C2 OUTFIL 77455 C2 QUOTE 00047 1 TPGPOS 75272 AC1 CWD 00042 1 HM 00033 4 PAGENO 76127 C1 RENEW 00040 4 TPRF 75267 AC1 DBLSPC 75300 C2 HYPHEN 75211 AC1 PERIOD 75215 AC1 RETURN 75222 AC1 TPRLTH 75235 AC1 DONEP 00030 4 I 00043 1 PGE 76130 C2 RMARG 76070 AC1 UNDLP 00026 4 EOF 00031 4 LENGTH 75307 C1 PGMOD 76124 C1 SIZE 76066 C1 WORD 76064 AC1 EXCLAM 75213 AC1 LINECT 75305 C1 PGPOS 76126 C1 SKPLP 00026 4 WRD 76067 C2 FILL 75312 AC2 0FUNCTION DICTIONARY BRKLIN 00000 1 CHNCOM 00001 1 ENDRD 00002 1 EXIT 00003 1 FRAME 00004 1 GET 00005 1 .PCOMT 00006 1 NUMCON 00007 1 NUM 00010 1 NXCHAR 00011 1 PACK 00012 1 PRPIX 00013 1 SEEK 00014 1 SETCHR 00015 1 SETDWN 00016 1 SETLIN 00017 1 SETPAG 00020 1 SETUP 00021 1 SETWRD 00022 1 SYMGET 00023 1 SYMSTO 00024 1 WAIT 00025 1 0ABSOLUTE CONSTANTS 00150 -206060646225 00063 +242526314525 00067 +263127645125 00070 +302521242551 00126 -206060603025 00103 -202225273145 00120 -206060602247 00053 +000000000002 00114 -206060462424 00135 -206060604647 00111 -206047212725 00136 -206060604721 00100 -075125263167 00146 -206060622563 00151 -206062423147 00101 -114644214543 00102 -114644214564 00057 +215121223123 00115 -206060462626 00060 +224663634644 00147 -206060634647 00066 +262123314527 00074 -042151273145 00141 -206060606060 00140 -206060604744 00077 -072127314527 00127 -206060603044 00065 +252124314527 00137 -206060604743 00152 -206230465163 00142 -206060606230 00054 +000000000006 00073 -032545276330 00105 -204721472551 00064 +244664224325 00123 -206060602462 00154 -223145274325 00144 -206060606262 00075 -054626314343 00133 -206060604526 00106 -206026314343 00124 -206060602631 00055 +212441646263 00116 -206060602124 00076 -054641646263 00134 -206060604541 00155 -244524254563 00145 -206060606445 00071 +314524254563 00130 -206060603145 00132 -206060604343 00110 -206043314525 00107 -206026432127 00125 -206060602643 00072 +316325512143 00131 -206060604331 00061 +232545632551 00122 -206060602325 00104 -202251252142 00121 -206060602251 00153 -206247212325 00143 -206060606247 00056 +214747254524 00117 -206060602147 00112 -206060236624 00113 -206060254524 00051 +000000000000 00156 -344425444634 00052 +000000000001 00062 +233000000000 0STATEMENT DICTIONARY 00027 TXL -300233000230 00030 TXL -301071001071 00031 TXL -300237000236 00032 TXL -300210000204 00033 TXL -300677000674 00034 TXL -300634000631 00035 TXL -300715000713 00036 TXL -301070001065 00037 TXL -300227000225 00040 TXL -300214000212 0PROGRAM EXTERNAL FUNCTION 001 LM00001 INSERT FILE RCOM 002 LM00009 NORMAL MODE IS INTEGER 003 LM00004 PROGRAM COMMON NOSTOP, NOWAIT, FSTPAG, PRINAM, OUTFIL 004 LM00006 PROGRAM COMMON HDLTH, HEAD(360), HDPOS 005 LM00007 PROGRAM COMMON LINE(360) 006 LM00008 PROGRAM COMMON PGE, PAGENO, PGPOS, FTSW, PGMOD 007 LM00009 PROGRAM COMMON PREFIX(25), PRLTH 008 LM00010 PROGRAM COMMON RMARG 009 LM00011 PROGRAM COMMON WRD, SIZE, COUNT, WORD(360) 010 LM00012 PROGRAM COMMON BEGIN, FILL, ADJST, NCHARS, LENGTH 011 LM00013 PROGRAM COMMON LMARG, LINECT, BOTLIN, CNTR, FILSW 012 LM00014 PROGRAM COMMON FLAGSW, DBLSPC, HEDPGE, PIX 013 LM00015 PROGRAM COMMON MROW, TBTLIN, TBTPAG 014 LM00016 PROGRAM COMMON TPGPOS, TFTSW, TPGE, TPRF(25) 015 LM00017 PROGRAM COMMON TPRLTH, THDPOS, TPAGNO, TPGMOD 016 LM00018 PROGRAM COMMON BOTPAG, FLAG(3) 017 LM00019 PROGRAM COMMON BLANK, BCKSPC, RETURN(3) 018 LM00020 PROGRAM COMMON TAB, PERIOD, QUES, EXCLAM 019 LM00021 PROGRAM COMMON COLON, HYPHEN, NULL 020 LM00022 BOOLEAN NOSTOP, NOWAIT, FTSW, PGE, OUTFIL 021 LM00024 BOOLEAN ADJST 022 LM00025 BOOLEAN WRD, FILL, BEGIN, CNTR, FILSW, FLAGSW 023 LM00026 BOOLEAN DBLSPC, HEDPGE, PIX, TPGE, TFTSW 024 LM00027 BOOLEAN NLINE 025 LM00010 NORMAL MODE IS INTEGER 026 LM00011 VECTOR VALUES PERIOD = 0033K 027 LM00015 75215 +0 00000 0 00033 VECTOR VALUES QUES = 0156K 028 LM00016 75214 +0 00000 0 00156 VECTOR VALUES EXCLAM = 0153K 029 LM00017 75213 +0 00000 0 00153 VECTOR VALUES BLANK = 0060K 030 LM00018 75224 +0 00000 0 00060 VECTOR VALUES HYPHEN = 0040K 031 LM00019 75211 +0 00000 0 00040 VECTOR VALUES COLON = 0035K 032 LM00020 75212 +0 00000 0 00035 VECTOR VALUES TAB = 0072K 033 LM00021 75216 +0 00000 0 00072 VECTOR VALUES NULL = 0057K 034 LM00022 75210 +0 00000 0 00057 VECTOR VALUES BCKSPC = 0135K 035 LM00023 75223 +0 00000 0 00135 VECTOR VALUES RETURN = 0055K, 0055K, 0055K 036 LM00024 75220 +0 00000 0 00055 75221 +0 00000 0 00055 75222 +0 00000 0 00055 VECTOR VALUES TPRF(1) = $00000P00000A00000G00000E00000 $ 037 LM00028 75262 +0 00000 0 00060 75263 +0 00000 0 00025 75264 +0 00000 0 00027 75265 +0 00000 0 00021 75266 +0 00000 0 00047 VECTOR VALUES HDLTH = 0 038 LM00029 77454 +0 00000 0 00000 VECTOR VALUES THDPOS = $PPOSED$ 039 LM00030 75234 -0 74746 6 22524 VECTOR VALUES TPGPOS = $MARGIN$ 040 LM00031 75272 -0 42151 2 73145 VECTOR VALUES TFTSW = 0B 041 LM00032 75271 +0 00000 0 00000 VECTOR VALUES TPRLTH = 5 042 LM00033 75235 +0 00000 0 00005 VECTOR VALUES TPGE = 0B 043 LM00034 75270 +0 00000 0 00000 VECTOR VALUES TPAGNO = 2 044 LM00035 75233 +0 00000 0 00002 VECTOR VALUES TPGMOD = $ARABIC$ 045 LM00036 75232 +2 15121 2 23123 VECTOR VALUES FLAG(1) = $00000 00000 00000*$ 046 LM00037 75225 +0 00000 0 00054 75226 +0 00000 0 00060 75227 +0 00000 0 00060 VECTOR VALUES RMARG = 60 047 LM00038 76070 +0 00000 0 00074 VECTOR VALUES LMARG = 0 048 LM00039 75306 +0 00000 0 00000 VECTOR VALUES TBTLIN = 60 049 LM00040 75274 +0 00000 0 00074 VECTOR VALUES TBTPAG = 66 050 LM00041 75273 +0 00000 0 00102 VECTOR VALUES ADJST = 1B 051 LM00042 75311 +0 00000 0 00001 VECTOR VALUES FILL = 1B 052 LM00043 75312 +0 00000 0 00001 VECTOR VALUES PIX = 0B 053 LM00047 75276 +0 00000 0 00000 VECTOR VALUES FLAGSW = 0B 054 LM00048 75301 +0 00000 0 00000 VECTOR VALUES LIT = 0B 055 LM00049 00044 +0 00000 0 00000 ENTRY TO RUNOFF. 056 LM00051 00157 TRA +0 02000 0 00162 00160 SXA +0 63400 2 01325 00161 TSX +0 07400 2 01325 SETUP. 057 LM00053 00162 TSX +0 07400 4 00021 SEEK.(PRINAM, $(MEMO)$ , EOF) 058 LM00054 00163 TSX +0 07400 4 00014 00164 TXH +3 00000 0 77456 00165 TXH +3 00000 0 00156 00166 TXH +3 00000 0 00031 WHENEVER .NOT.NOWAIT 059 LM00055 00167 ZET +0 52000 0 77460 00170 TRA +0 02000 0 00204 PRINT COMMENT $0L1O1A1D0 1P1A1P1E1R0,0 1H1I1T0 1R1E1T1U1R1N$ 060 LM00056 00171 TSX +0 07400 4 00006 00172 +0 00000 0 00010 00173 +0 04301 4 60121 00174 +0 12400 6 00147 00175 +0 12101 4 70125 00176 +0 15100 7 30060 00177 +0 13001 3 10163 00200 +0 06001 5 10125 00201 +0 16301 6 40151 00202 +0 14560 6 06060 WAIT. 061 LM00057 00203 TSX +0 07400 4 00025 END OF CONDITIONAL 062 LM00058 GTNXT CHAR = NXCHAR.(NLINE, EOF) 063 LM00062 00204 TSX +0 07400 4 00011 00205 TXH +3 00000 0 00045 00206 TXH +3 00000 0 00031 00207 STO +0 60100 0 00041 WHENEVER NLINE 064 LM00064 00210 NZT -0 52000 0 00045 00211 TRA +0 02000 0 00225 RENEW WHENEVER LIT 065 LM00068 00212 NZT -0 52000 0 00044 00213 TRA +0 02000 0 00217 LIT = 0B 066 LM00069 00214 CLA +0 50000 0 00051 00215 STO +0 60100 0 00044 OR WHENEVER CHAR .E. PERIOD 067 LM00070 00216 TRA +0 02000 0 00223 00217 CLA +0 50000 0 00041 00220 SUB +0 40200 0 75215 00221 TNZ -0 10000 0 00223 TRANSFER TO CONTRL 068 LM00071 00222 TRA +0 02000 0 00027 END OF CONDITIONAL 069 LM00072 SETCHR.(RETURN) 070 LM00073 00223 TSX +0 07400 4 00015 00224 TXH +3 00000 0 75222 END OF CONDITIONAL 071 LM00074 PROCED SETCHR.(CHAR) 072 LM00076 00225 TSX +0 07400 4 00015 00226 TXH +3 00000 0 00041 TRANSFER TO GTNXT 073 LM00077 00227 TRA +0 02000 0 00032 CONTRL CWD = GET.(0) 074 LM00081 00230 TSX +0 07400 4 00005 00231 TXH +3 00000 0 00051 00232 STO +0 60100 0 00042 WHENEVER CWD .E. $ END$ 075 LM00083 00233 CLA +0 50000 0 00042 00234 SUB +0 40200 0 00113 00235 TNZ -0 10000 0 00245 EOF SETWRD. 076 LM00084 00236 TSX +0 07400 4 00022 SETLIN. 077 LM00085 00237 TSX +0 07400 4 00017 SETPAG. 078 LM00086 00240 TSX +0 07400 4 00020 SETDWN. 079 LM00087 00241 TSX +0 07400 4 00016 CHNCOM.(0) 080 LM00088 00242 TSX +0 07400 4 00001 00243 TXH +3 00000 0 00051 OR WHENEVER CWD .E. $ CWD$ 081 LM00090 00244 TRA +0 02000 0 01301 00245 CLA +0 50000 0 00042 00246 SUB +0 40200 0 00112 00247 TNZ -0 10000 0 00252 TRANSFER TO CONTRL 082 LM00091 00250 TRA +0 02000 0 00027 OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ AP$ 083 LM00093 00251 TRA +0 02000 0 01301 00252 CLA +0 50000 0 00042 00253 SUB +0 40200 0 00117 00254 TZE +0 10000 0 00260 00255 CLA +0 50000 0 00042 00256 SUB +0 40200 0 00056 00257 TNZ -0 10000 0 00274 ENDRD.(PRINAM, $(MEMO)$) 084 LM00094 00260 TSX +0 07400 4 00002 00261 TXH +3 00000 0 77456 00262 TXH +3 00000 0 00156 PRINAM = GET.(0) 085 LM00095 00263 TSX +0 07400 4 00005 00264 TXH +3 00000 0 00051 00265 STO +0 60100 0 77456 SEEK.(PRINAM, $(MEMO)$, EOF) 086 LM00096 00266 TSX +0 07400 4 00014 00267 TXH +3 00000 0 77456 00270 TXH +3 00000 0 00156 00271 TXH +3 00000 0 00031 TRANSFER TO GTNXT 087 LM00097 00272 TRA +0 02000 0 00032 OR WHENEVER CWD .E. $ SPACE$ .OR. CWD .E. $ SP$ 088 LM00099 00273 TRA +0 02000 0 01301 00274 CLA +0 50000 0 00042 00275 SUB +0 40200 0 00143 00276 TZE +0 10000 0 00302 00277 CLA +0 50000 0 00042 00300 SUB +0 40200 0 00153 00301 TNZ -0 10000 0 00346 TEM = NUM.(0) 089 LM00100 00302 TSX +0 07400 4 00010 00303 TXH +3 00000 0 00051 00304 STO +0 60100 0 00050 WHENEVER TEM .E. 0, TEM = 1 090 LM00101 00305 CLA +0 50000 0 00050 00306 SUB +0 40200 0 00051 00307 TNZ -0 10000 0 00312 00310 CLA +0 50000 0 00052 00311 STO +0 60100 0 00050 SETWRD. 091 LM00102 00312 TSX +0 07400 4 00022 SETLIN. 092 LM00103 00313 TSX +0 07400 4 00017 WHENEVER TEM + LINECT .L. BOTLIN 093 LM00104 00314 CLA +0 50000 0 00050 00315 ADD +0 40000 0 75305 00316 SUB +0 40200 0 75304 00317 TZE +0 10000 0 00344 00320 TPL +0 12000 0 00344 THROUGH SPCLP, FOR I = 1, 1, I .G. TEM 094 LM00105 00321 CLA +0 50000 0 00052 00322 STO +0 60100 0 00043 00323 TRA +0 02000 0 00327 00324 CLA +0 50000 0 00043 00325 ADD +0 40000 0 00052 00326 STO +0 60100 0 00043 00327 CLA +0 50000 0 00043 00330 SUB +0 40200 0 00050 00331 TZE +0 10000 0 00333 00332 TPL +0 12000 0 00337 SPCLP PACK.(RETURN, 1) 095 LM00106 00333 TSX +0 07400 4 00012 00334 TXH +3 00000 0 75222 00335 TXH +3 00000 0 00052 00336 TRA +0 02000 0 00324 LINECT = LINECT + TEM 096 LM00107 00337 CLA +0 50000 0 75305 00340 ADD +0 40000 0 00050 00341 STO +0 60100 0 75305 BRKLIN. 097 LM00108 00342 TSX +0 07400 4 00000 OTHERWISE 098 LM00109 00343 TRA +0 02000 0 00345 SETPAG. 099 LM00110 00344 TSX +0 07400 4 00020 END OF CONDITIONAL 100 LM00111 OR WHENEVER CWD .E. $ BREAK$ .OR. CWD .E. $ BR$ 101 LM00113 00345 TRA +0 02000 0 01301 00346 CLA +0 50000 0 00042 00347 SUB +0 40200 0 00121 00350 TZE +0 10000 0 00354 00351 CLA +0 50000 0 00042 00352 SUB +0 40200 0 00104 00353 TNZ -0 10000 0 00356 BRKLIN. 102 LM00114 00354 TSX +0 07400 4 00000 OR WHENEVER CWD .E. $CENTER$ .OR. CWD .E. $ CE$ 103 LM00116 00355 TRA +0 02000 0 01301 00356 CLA +0 50000 0 00042 00357 SUB +0 40200 0 00122 00360 TZE +0 10000 0 00364 00361 CLA +0 50000 0 00042 00362 SUB +0 40200 0 00061 00363 TNZ -0 10000 0 00376 BRKLIN. 104 LM00117 00364 TSX +0 07400 4 00000 BEGIN = 1B 105 LM00118 00365 CLA +0 50000 0 00052 00366 STO +0 60100 0 75313 CNTR = 1B 106 LM00119 00367 CLA +0 50000 0 00052 00370 STO +0 60100 0 75303 FILSW = FILL 107 LM00120 00371 CLA +0 50000 0 75312 00372 STO +0 60100 0 75302 FILL = 0B 108 LM00121 00373 CLA +0 50000 0 00051 00374 STO +0 60100 0 75312 OR WHENEVER CWD .E. $ITERAL$ .OR. CWD .E. $ LI$ 109 LM00123 00375 TRA +0 02000 0 01301 00376 CLA +0 50000 0 00042 00377 SUB +0 40200 0 00131 00400 TZE +0 10000 0 00404 00401 CLA +0 50000 0 00042 00402 SUB +0 40200 0 00072 00403 TNZ -0 10000 0 00407 LIT = 1B 110 LM00124 00404 CLA +0 50000 0 00052 00405 STO +0 60100 0 00044 OR WHENEVER CWD .E. $ FLAG$ .OR. CWD .E. $ FL$ 111 LM00126 00406 TRA +0 02000 0 01301 00407 CLA +0 50000 0 00042 00410 SUB +0 40200 0 00125 00411 TZE +0 10000 0 00415 00412 CLA +0 50000 0 00042 00413 SUB +0 40200 0 00107 00414 TNZ -0 10000 0 00420 FLAGSW = 1B 112 LM00127 00415 CLA +0 50000 0 00052 00416 STO +0 60100 0 75301 OR WHENEVER CWD .E. $ LINE$ 113 LM00129 00417 TRA +0 02000 0 01301 00420 CLA +0 50000 0 00042 00421 SUB +0 40200 0 00110 00422 TNZ -0 10000 0 00432 CWD = GET.(0) 114 LM00130 00423 TSX +0 07400 4 00005 00424 TXH +3 00000 0 00051 00425 STO +0 60100 0 00042 RMARG = NUM.(0) 115 LM00131 00426 TSX +0 07400 4 00010 00427 TXH +3 00000 0 00051 00430 STO +0 60100 0 76070 OR WHENEVER CWD .E. $ LL$ 116 LM00132 00431 TRA +0 02000 0 01301 00432 CLA +0 50000 0 00042 00433 SUB +0 40200 0 00132 00434 TNZ -0 10000 0 00441 RMARG = NUM.(0) 117 LM00133 00435 TSX +0 07400 4 00010 00436 TXH +3 00000 0 00051 00437 STO +0 60100 0 76070 OR WHENEVER CWD .E. $INDENT$ .OR. CWD .E. $ IN$ 118 LM00135 00440 TRA +0 02000 0 01301 00441 CLA +0 50000 0 00042 00442 SUB +0 40200 0 00130 00443 TZE +0 10000 0 00447 00444 CLA +0 50000 0 00042 00445 SUB +0 40200 0 00071 00446 TNZ -0 10000 0 00453 LMARG = NUM.(0) 119 LM00136 00447 TSX +0 07400 4 00010 00450 TXH +3 00000 0 00051 00451 STO +0 60100 0 75306 OR WHENEVER CWD .E. $UNDENT$ .OR. CWD .E. $ UN$ 120 LM00138 00452 TRA +0 02000 0 01301 00453 CLA +0 50000 0 00042 00454 SUB +0 40200 0 00145 00455 TZE +0 10000 0 00461 00456 CLA +0 50000 0 00042 00457 SUB +0 40200 0 00155 00460 TNZ -0 10000 0 00524 BRKLIN. 121 LM00139 00461 TSX +0 07400 4 00000 NS = LMARG - NUM.(0) 122 LM00140 00462 TSX +0 07400 4 00010 00463 TXH +3 00000 0 00051 00464 CHS +0 76000 0 00002 00465 ADD +0 40000 0 75306 00466 STO +0 60100 0 00046 WHENEVER NS .L. 0, NS = 0 123 LM00141 00467 CLA +0 50000 0 00046 00470 SUB +0 40200 0 00051 00471 TZE +0 10000 0 00475 00472 TPL +0 12000 0 00475 00473 CLA +0 50000 0 00051 00474 STO +0 60100 0 00046 LINE(1) = NULL 124 LM00142 00475 CLA +0 50000 0 75210 00476 STO +0 60100 0 76700 THROUGH UNDLP, FOR LENGTH = 1, 1, LENGTH .GE. NS+1 125 LM00143 00477 CLA +0 50000 0 00052 00500 STO +0 60100 0 75307 00501 TRA +0 02000 0 00505 00502 CLA +0 50000 0 75307 00503 ADD +0 40000 0 00052 00504 STO +0 60100 0 75307 00505 CLA +0 50000 0 00046 00506 ADD +0 40000 0 00052 00507 CHS +0 76000 0 00002 00510 ADD +0 40000 0 75307 00511 TZE +0 10000 0 00521 00512 TPL +0 12000 0 00521 UNDLP LINE(LENGTH+1) = BLANK 126 LM00144 00513 CLA +0 50000 0 75307 00514 ADD +0 40000 0 00052 00515 PAX +0 73400 1 00000 00516 CLA +0 50000 0 75224 00517 STO +0 60100 1 76701 00520 TRA +0 02000 0 00502 NCHARS = NS 127 LM00145 00521 CLA +0 50000 0 00046 00522 STO +0 60100 0 75310 OR WHENEVER CWD .E. $NOJUST$ .OR. CWD .E. $ NJ$ 128 LM00148 00523 TRA +0 02000 0 01301 00524 CLA +0 50000 0 00042 00525 SUB +0 40200 0 00134 00526 TZE +0 10000 0 00532 00527 CLA +0 50000 0 00042 00530 SUB +0 40200 0 00076 00531 TNZ -0 10000 0 00536 BRKLIN. 129 LM00149 00532 TSX +0 07400 4 00000 ADJST = 0B 130 LM00150 00533 CLA +0 50000 0 00051 00534 STO +0 60100 0 75311 OR WHENEVER CWD .E. $ADJUST$ .OR. CWD .E. $ AD$ 131 LM00152 00535 TRA +0 02000 0 01301 00536 CLA +0 50000 0 00042 00537 SUB +0 40200 0 00116 00540 TZE +0 10000 0 00544 00541 CLA +0 50000 0 00042 00542 SUB +0 40200 0 00055 00543 TNZ -0 10000 0 00550 BRKLIN. 132 LM00153 00544 TSX +0 07400 4 00000 ADJST = 1B 133 LM00154 00545 CLA +0 50000 0 00052 00546 STO +0 60100 0 75311 OR WHENEVER CWD .E. $ FILL$ .OR. CWD .E. $ FI$ 134 LM00156 00547 TRA +0 02000 0 01301 00550 CLA +0 50000 0 00042 00551 SUB +0 40200 0 00124 00552 TZE +0 10000 0 00556 00553 CLA +0 50000 0 00042 00554 SUB +0 40200 0 00106 00555 TNZ -0 10000 0 00562 BRKLIN. 135 LM00157 00556 TSX +0 07400 4 00000 FILL = 1B 136 LM00158 00557 CLA +0 50000 0 00052 00560 STO +0 60100 0 75312 OR WHENEVER CWD .E. $NOFILL$ .OR. CWD .E. $ NF$ 137 LM00160 00561 TRA +0 02000 0 01301 00562 CLA +0 50000 0 00042 00563 SUB +0 40200 0 00133 00564 TZE +0 10000 0 00570 00565 CLA +0 50000 0 00042 00566 SUB +0 40200 0 00075 00567 TNZ -0 10000 0 00574 BRKLIN. 138 LM00161 00570 TSX +0 07400 4 00000 FILL = 0B 139 LM00162 00571 CLA +0 50000 0 00051 00572 STO +0 60100 0 75312 OR WHENEVER CWD .E. $SINGLE$ .OR. CWD .E. $ SS$ 140 LM00164 00573 TRA +0 02000 0 01301 00574 CLA +0 50000 0 00042 00575 SUB +0 40200 0 00144 00576 TZE +0 10000 0 00602 00577 CLA +0 50000 0 00042 00600 SUB +0 40200 0 00154 00601 TNZ -0 10000 0 00606 BRKLIN. 141 LM00165 00602 TSX +0 07400 4 00000 DBLSPC = 0B 142 LM00166 00603 CLA +0 50000 0 00051 00604 STO +0 60100 0 75300 OR WHENEVER CWD .E. $DOUBLE$ .OR. CWD .E. $ DS$ 143 LM00168 00605 TRA +0 02000 0 01301 00606 CLA +0 50000 0 00042 00607 SUB +0 40200 0 00123 00610 TZE +0 10000 0 00614 00611 CLA +0 50000 0 00042 00612 SUB +0 40200 0 00064 00613 TNZ -0 10000 0 00620 BRKLIN. 144 LM00169 00614 TSX +0 07400 4 00000 DBLSPC = 1B 145 LM00170 00615 CLA +0 50000 0 00052 00616 STO +0 60100 0 75300 OR WHENEVER CWD .E. $ PAPER$ 146 LM00172 00617 TRA +0 02000 0 01301 00620 CLA +0 50000 0 00042 00621 SUB +0 40200 0 00105 00622 TNZ -0 10000 0 00640 CWD = GET.(0) 147 LM00173 00623 TSX +0 07400 4 00005 00624 TXH +3 00000 0 00051 00625 STO +0 60100 0 00042 WHENEVER CWD .E. $LENGTH$ 148 LM00174 00626 CLA +0 50000 0 00042 00627 SUB +0 40200 0 00073 00630 TNZ -0 10000 0 00637 PL TBTPAG = NUM.(0) 149 LM00175 00631 TSX +0 07400 4 00010 00632 TXH +3 00000 0 00051 00633 STO +0 60100 0 75273 TBTLIN = TBTPAG - 6 150 LM00176 00634 CLA +0 50000 0 75273 00635 SUB +0 40200 0 00054 00636 STO +0 60100 0 75274 END OF CONDITIONAL 151 LM00177 OR WHENEVER CWD .E. $ SHORT$ .OR. CWD .E. $ SH$ 152 LM00179 00637 TRA +0 02000 0 01301 00640 CLA +0 50000 0 00042 00641 SUB +0 40200 0 00142 00642 TZE +0 10000 0 00646 00643 CLA +0 50000 0 00042 00644 SUB +0 40200 0 00152 00645 TNZ -0 10000 0 00654 BOTLIN = BOTLIN - NUM.(0) 153 LM00180 00646 TSX +0 07400 4 00010 00647 TXH +3 00000 0 00051 00650 CHS +0 76000 0 00002 00651 ADD +0 40000 0 75304 00652 STO +0 60100 0 75304 OR WHENEVER CWD .E. $ PL$ 154 LM00182 00653 TRA +0 02000 0 01301 00654 CLA +0 50000 0 00042 00655 SUB +0 40200 0 00137 00656 TNZ -0 10000 0 00661 TRANSFER TO PL 155 LM00183 00657 TRA +0 02000 0 00034 OR WHENEVER CWD .E. $EADING$ 156 LM00185 00660 TRA +0 02000 0 01301 00661 CLA +0 50000 0 00042 00662 SUB +0 40200 0 00065 00663 TNZ -0 10000 0 00671 CWD = GET.(0) 157 LM00186 00664 TSX +0 07400 4 00005 00665 TXH +3 00000 0 00051 00666 STO +0 60100 0 00042 TRANSFER TO HM 158 LM00187 00667 TRA +0 02000 0 00033 OR WHENEVER CWD .E. $ HM$ 159 LM00189 00670 TRA +0 02000 0 01301 00671 CLA +0 50000 0 00042 00672 SUB +0 40200 0 00127 00673 TNZ -0 10000 0 00700 HM THDPOS = GET.(0) 160 LM00190 00674 TSX +0 07400 4 00005 00675 TXH +3 00000 0 00051 00676 STO +0 60100 0 75234 OR WHENEVER CWD .E. $PAGING$ 161 LM00192 00677 TRA +0 02000 0 01301 00700 CLA +0 50000 0 00042 00701 SUB +0 40200 0 00077 00702 TNZ -0 10000 0 00710 CWD = GET.(0) 162 LM00193 00703 TSX +0 07400 4 00005 00704 TXH +3 00000 0 00051 00705 STO +0 60100 0 00042 TRANSFER TO PM 163 LM00194 00706 TRA +0 02000 0 00035 OR WHENEVER CWD .E. $ PM$ 164 LM00196 00707 TRA +0 02000 0 01301 00710 CLA +0 50000 0 00042 00711 SUB +0 40200 0 00140 00712 TNZ -0 10000 0 01072 PM TPGE = 1B 165 LM00197 00713 CLA +0 50000 0 00052 00714 STO +0 60100 0 75270 CWD = GET.(0) 166 LM00198 00715 TSX +0 07400 4 00005 00716 TXH +3 00000 0 00051 00717 STO +0 60100 0 00042 WHENEVER CWD .E. $ $ 167 LM00199 00720 CLA +0 50000 0 00042 00721 SUB +0 40200 0 00141 00722 TNZ -0 10000 0 00725 TRANSFER TO DONEP 168 LM00200 00723 TRA +0 02000 0 00030 OR WHENEVER CWD .E. $MARGIN$ 169 LM00201 00724 TRA +0 02000 0 01070 00725 CLA +0 50000 0 00042 00726 SUB +0 40200 0 00074 00727 TNZ -0 10000 0 00733 TPGPOS = CWD 170 LM00202 00730 CLA +0 50000 0 00042 00731 STO +0 60100 0 75272 OR WHENEVER CWD .E. $FACING$ 171 LM00203 00732 TRA +0 02000 0 01070 00733 CLA +0 50000 0 00042 00734 SUB +0 40200 0 00066 00735 TNZ -0 10000 0 00741 TPGPOS = CWD 172 LM00204 00736 CLA +0 50000 0 00042 00737 STO +0 60100 0 75272 OR WHENEVER CWD .E. $CENTER$ 173 LM00205 00740 TRA +0 02000 0 01070 00741 CLA +0 50000 0 00042 00742 SUB +0 40200 0 00061 00743 TNZ -0 10000 0 00747 TPGPOS = CWD 174 LM00206 00744 CLA +0 50000 0 00042 00745 STO +0 60100 0 75272 OR WHENEVER CWD .E. $ TOP$ 175 LM00207 00746 TRA +0 02000 0 01070 00747 CLA +0 50000 0 00042 00750 SUB +0 40200 0 00147 00751 TNZ -0 10000 0 00755 TFTSW = 0B 176 LM00208 00752 CLA +0 50000 0 00051 00753 STO +0 60100 0 75271 OR WHENEVER CWD .E. $BOTTOM$ 177 LM00209 00754 TRA +0 02000 0 01070 00755 CLA +0 50000 0 00042 00756 SUB +0 40200 0 00060 00757 TNZ -0 10000 0 00763 TFTSW = 1B 178 LM00210 00760 CLA +0 50000 0 00052 00761 STO +0 60100 0 75271 OR WHENEVER CWD .E. $ OFF$ 179 LM00211 00762 TRA +0 02000 0 01070 00763 CLA +0 50000 0 00042 00764 SUB +0 40200 0 00115 00765 TNZ -0 10000 0 00771 TPGE = 0B 180 LM00212 00766 CLA +0 50000 0 00051 00767 STO +0 60100 0 75270 OR WHENEVER CWD .E. $ARABIC$ 181 LM00213 00770 TRA +0 02000 0 01070 00771 CLA +0 50000 0 00042 00772 SUB +0 40200 0 00057 00773 TNZ -0 10000 0 00777 TPGMOD = CWD 182 LM00214 00774 CLA +0 50000 0 00042 00775 STO +0 60100 0 75232 OR WHENEVER CWD .E. $ROMANU$ 183 LM00215 00776 TRA +0 02000 0 01070 00777 CLA +0 50000 0 00042 01000 SUB +0 40200 0 00102 01001 TNZ -0 10000 0 01005 TPGMOD = CWD 184 LM00216 01002 CLA +0 50000 0 00042 01003 STO +0 60100 0 75232 OR WHENEVER CWD .E. $ROMANL$ 185 LM00217 01004 TRA +0 02000 0 01070 01005 CLA +0 50000 0 00042 01006 SUB +0 40200 0 00101 01007 TNZ -0 10000 0 01013 TPGMOD = CWD 186 LM00218 01010 CLA +0 50000 0 00042 01011 STO +0 60100 0 75232 OR WHENEVER CWD .E. $ SKIP$ 187 LM00219 01012 TRA +0 02000 0 01070 01013 CLA +0 50000 0 00042 01014 SUB +0 40200 0 00151 01015 TNZ -0 10000 0 01023 TPAGNO = TPAGNO + NUM.(0) 188 LM00220 01016 TSX +0 07400 4 00010 01017 TXH +3 00000 0 00051 01020 ADD +0 40000 0 75233 01021 STO +0 60100 0 75233 OR WHENEVER CWD .E. $ SET$ 189 LM00221 01022 TRA +0 02000 0 01070 01023 CLA +0 50000 0 00042 01024 SUB +0 40200 0 00146 01025 TNZ -0 10000 0 01032 TPAGNO = NUM.(0) 190 LM00222 01026 TSX +0 07400 4 00010 01027 TXH +3 00000 0 00051 01030 STO +0 60100 0 75233 OR WHENEVER CWD .E. $PREFIX$ 191 LM00223 01031 TRA +0 02000 0 01070 01032 CLA +0 50000 0 00042 01033 SUB +0 40200 0 00100 01034 TNZ -0 10000 0 01070 QUOTE = NXCHAR.(NLINE, EOF) 192 LM00224 01035 TSX +0 07400 4 00011 01036 TXH +3 00000 0 00045 01037 TXH +3 00000 0 00031 01040 STO +0 60100 0 00047 THROUGH PRFLP, FOR I = 1, 1, NLINE 193 LM00225 01041 CLA +0 50000 0 00052 01042 STO +0 60100 0 00043 01043 TRA +0 02000 0 01047 01044 CLA +0 50000 0 00043 01045 ADD +0 40000 0 00052 01046 STO +0 60100 0 00043 01047 ZET +0 52000 0 00045 01050 TRA +0 02000 0 01064 TPRF(I) = NXCHAR. (NLINE, EOF) 194 LM00226 01051 TSX +0 07400 4 00011 01052 TXH +3 00000 0 00045 01053 TXH +3 00000 0 00031 01054 LXA +0 53400 1 00043 01055 STO +0 60100 1 75267 PRFLP WHENEVER TPRF(I) .E. QUOTE, TRANSFER TO PRFSTP 195 LM00227 01056 LXA +0 53400 1 00043 01057 CLA +0 50000 1 75267 01060 SUB +0 40200 0 00047 01061 TNZ -0 10000 0 01063 01062 TRA +0 02000 0 00036 01063 TRA +0 02000 0 01044 TRANSFER TO RENEW 196 LM00228 01064 TRA +0 02000 0 00040 PRFSTP TPRLTH = I-1 197 LM00230 01065 CLA +0 50000 0 00043 01066 SUB +0 40200 0 00052 01067 STO +0 60100 0 75235 END OF CONDITIONAL 198 LM00231 TRANSFER TO PM 199 LM00232 01070 TRA +0 02000 0 00035 DONEP CONTINUE 200 LM00233 OR WHENEVER CWD .E. $ PAGE$ .OR. CWD .E. $ PA$ 201 LM00235 01071 TRA +0 02000 0 01301 01072 CLA +0 50000 0 00042 01073 SUB +0 40200 0 00136 01074 TZE +0 10000 0 01100 01075 CLA +0 50000 0 00042 01076 SUB +0 40200 0 00111 01077 TNZ -0 10000 0 01116 TPGE = 1B 202 LM00236 01100 CLA +0 50000 0 00052 01101 STO +0 60100 0 75270 TEM = NUM.(0) 203 LM00237 01102 TSX +0 07400 4 00010 01103 TXH +3 00000 0 00051 01104 STO +0 60100 0 00050 WHENEVER TEM .NE. 0 204 LM00238 01105 CLA +0 50000 0 00050 01106 SUB +0 40200 0 00051 01107 TZE +0 10000 0 01115 SETWRD. 205 LM00239 01110 TSX +0 07400 4 00022 SETLIN. 206 LM00240 01111 TSX +0 07400 4 00017 TPAGNO = TEM 207 LM00241 01112 CLA +0 50000 0 00050 01113 STO +0 60100 0 75233 SETPAG. 208 LM00242 01114 TSX +0 07400 4 00020 END OF CONDITIONAL 209 LM00243 OR WHENEVER CWD .E. $ ODD$ .OR. CWD .E. $ OP$ 210 LM00245 01115 TRA +0 02000 0 01301 01116 CLA +0 50000 0 00042 01117 SUB +0 40200 0 00135 01120 TZE +0 10000 0 01124 01121 CLA +0 50000 0 00042 01122 SUB +0 40200 0 00114 01123 TNZ -0 10000 0 01140 SETWRD. 211 LM00246 01124 TSX +0 07400 4 00022 SETLIN. 212 LM00247 01125 TSX +0 07400 4 00017 TPAGNO = (TPAGNO/2)*2 + 1 213 LM00248 01126 LDQ +0 56000 0 75233 01127 PXD -0 75400 0 00000 01130 LLS +0 76300 0 00000 01131 DVP +0 22100 0 00053 01132 MPY +0 20000 0 00053 01133 XCA +0 13100 0 00000 01134 ADD +0 40000 0 00052 01135 STO +0 60100 0 75233 SETPAG. 214 LM00249 01136 TSX +0 07400 4 00020 OR WHENEVER CWD .E. $ BEGIN$ .OR. CWD .E. $ BP$ 215 LM00251 01137 TRA +0 02000 0 01301 01140 CLA +0 50000 0 00042 01141 SUB +0 40200 0 00120 01142 TZE +0 10000 0 01146 01143 CLA +0 50000 0 00042 01144 SUB +0 40200 0 00103 01145 TNZ -0 10000 0 01152 SETWRD. 216 LM00252 01146 TSX +0 07400 4 00022 SETLIN. 217 LM00253 01147 TSX +0 07400 4 00017 SETPAG. 218 LM00254 01150 TSX +0 07400 4 00020 OR WHENEVER CWD .E. $HEADER$ .OR. CWD .E. $ HE$ 219 LM00256 01151 TRA +0 02000 0 01301 01152 CLA +0 50000 0 00042 01153 SUB +0 40200 0 00126 01154 TZE +0 10000 0 01160 01155 CLA +0 50000 0 00042 01156 SUB +0 40200 0 00070 01157 TNZ -0 10000 0 01212 NLINE = 0B 220 LM00257 01160 CLA +0 50000 0 00051 01161 STO +0 60100 0 00045 THROUGH HDLP, FOR I = 1, 1, NLINE 221 LM00258 01162 CLA +0 50000 0 00052 01163 STO +0 60100 0 00043 01164 TRA +0 02000 0 01170 01165 CLA +0 50000 0 00043 01166 ADD +0 40000 0 00052 01167 STO +0 60100 0 00043 01170 ZET +0 52000 0 00045 01171 TRA +0 02000 0 01200 HDLP HEAD(I) = NXCHAR.(NLINE, EOF) 222 LM00259 01172 TSX +0 07400 4 00011 01173 TXH +3 00000 0 00045 01174 TXH +3 00000 0 00031 01175 LXA +0 53400 1 00043 01176 STO +0 60100 1 77453 01177 TRA +0 02000 0 01165 CHAR = HEAD(I-1) 223 LM00260 01200 CLA +0 50000 0 00043 01201 SUB +0 40200 0 00052 01202 PAX +0 73400 2 00000 01203 CLA +0 50000 2 77453 01204 STO +0 60100 0 00041 HDLTH = I - 2 224 LM00261 01205 CLA +0 50000 0 00043 01206 SUB +0 40200 0 00053 01207 STO +0 60100 0 77454 TRANSFER TO RENEW 225 LM00262 01210 TRA +0 02000 0 00040 OR WHENEVER CWD .E. $FIGURE$ 226 LM00264 01211 TRA +0 02000 0 01301 01212 CLA +0 50000 0 00042 01213 SUB +0 40200 0 00067 01214 TNZ -0 10000 0 01237 MROW = FRAME.(0) 227 LM00265 01215 TSX +0 07400 4 00004 01216 TXH +3 00000 0 00051 01217 STO +0 60100 0 75275 WHENEVER LINECT + MROW .LE. BOTLIN 228 LM00266 01220 CLA +0 50000 0 75305 01221 ADD +0 40000 0 75275 01222 SUB +0 40200 0 75304 01223 TZE +0 10000 0 01225 01224 TPL +0 12000 0 01234 PRPIX. 229 LM00267 01225 TSX +0 07400 4 00013 LINECT = LINECT + MROW 230 LM00268 01226 CLA +0 50000 0 75305 01227 ADD +0 40000 0 75275 01230 STO +0 60100 0 75305 PIX = 0B 231 LM00269 01231 CLA +0 50000 0 00051 01232 STO +0 60100 0 75276 OTHERWISE 232 LM00270 01233 TRA +0 02000 0 01236 PIX = 1B 233 LM00271 01234 CLA +0 50000 0 00052 01235 STO +0 60100 0 75276 END OF CONDITIONAL 234 LM00272 OR WHENEVER CWD .E. $DEFINE$ 235 LM00274 01236 TRA +0 02000 0 01301 01237 CLA +0 50000 0 00042 01240 SUB +0 40200 0 00063 01241 TNZ -0 10000 0 01251 SYMSTO.(GET.(0), PAGENO) 236 LM00275 01242 TSX +0 07400 4 00005 01243 TXH +3 00000 0 00051 01244 STO +0 60100 0 01335 01245 TSX +0 07400 4 00024 01246 TXH +3 00000 0 01335 01247 TXH +3 00000 0 76127 OR WHENEVER CWD .E. $ USE$ 237 LM00277 01250 TRA +0 02000 0 01301 01251 CLA +0 50000 0 00042 01252 SUB +0 40200 0 00150 01253 TNZ -0 10000 0 01301 SETWRD. 238 LM00278 01254 TSX +0 07400 4 00022 SIZE = NUMCON.(SYMGET.(GET.(0),0,$ARABIC$),WORD(1))+1 239 LM00279 01255 TSX +0 07400 4 00005 01256 TXH +3 00000 0 00051 01257 STO +0 60100 0 01335 01260 TSX +0 07400 4 00023 01261 TXH +3 00000 0 01335 01262 TXH +3 00000 0 00051 01263 TXH +3 00000 0 00057 01264 STO +0 60100 0 01335 01265 TSX +0 07400 4 00007 01266 TXH +3 00000 0 01335 01267 TXH +3 00000 0 76063 01270 ADD +0 40000 0 00052 01271 STO +0 60100 0 76066 COUNT = SIZE 240 LM00280 01272 CLA +0 50000 0 76066 01273 STO +0 60100 0 76065 WORD(1) = BLANK 241 LM00281 01274 CLA +0 50000 0 75224 01275 STO +0 60100 0 76063 WRD = 1B 242 LM00282 01276 CLA +0 50000 0 00052 01277 STO +0 60100 0 76067 TRANSFER TO GTNXT 243 LM00283 01300 TRA +0 02000 0 00032 END OF CONDITIONAL 244 LM00286 NLINE = 0B 245 LM00288 01301 CLA +0 50000 0 00051 01302 STO +0 60100 0 00045 THROUGH SKPLP, FOR I = 0, 0, NLINE 246 LM00289 01303 CLA +0 50000 0 00051 01304 STO +0 60100 0 00043 01305 TRA +0 02000 0 01311 01306 CLA +0 50000 0 00043 01307 ADD +0 40000 0 00051 01310 STO +0 60100 0 00043 01311 ZET +0 52000 0 00045 01312 TRA +0 02000 0 01320 SKPLP CHAR = NXCHAR.(NLINE, EOF) 247 LM00290 01313 TSX +0 07400 4 00011 01314 TXH +3 00000 0 00045 01315 TXH +3 00000 0 00031 01316 STO +0 60100 0 00041 01317 TRA +0 02000 0 01306 WHENEVER CNTR, TRANSFER TO PROCED 248 LM00291 01320 NZT -0 52000 0 75303 01321 TRA +0 02000 0 01323 01322 TRA +0 02000 0 00037 TRANSFER TO RENEW 249 LM00292 01323 TRA +0 02000 0 00040 END OF FUNCTION 250 LM00294 01324 TSX +0 07400 4 00003 01325 TXH +3 00000 0 00000 01326 SXD -0 63400 1 01325 01327 SXA +0 63400 4 01331 01330 TRA +0 02000 2 00001 01331 AXT +0 77400 4 00000 01332 LXA +0 53400 2 01325 01333 LXD -0 53400 1 01325 01334 TRA +0 02000 4 00001 1 MAD PROGRAM LISTING ... ... ... FILE NXCHAR MAD 02/08/68 1243.8 - .. SUBROUTINE TO GET NEXT CHARACTER FROM INPUT STREAM. LM00001 IF NEW LINE ENCOUNTERED, SETS NLINE TO 1B. LM00002 IF EOF ENCOUNTERED, TRANSFERS TO EOF LM00003 LM00004 .. USES .A., .V., .LS. OPERATORS. LM00005 TRANSLATE APPROPRIATELY. LM00006 LM00007 .. J. H. SALTZER, NOVEMBER, 1964 LM00008 LM00009 EXTERNAL FUNCTION (NLINE, EOF) *001 LM00010 LM00011 VECTOR VALUES BLANK = 0060K *002 LM00012 VECTOR VALUES NULL = 0057K *003 LM00013 VECTOR VALUES RETURN = 0055K *004 LM00014 NORMAL MODE IS INTEGER *005 LM00015 STATEMENT LABEL EOF *006 LM00016 BOOLEAN NLINE *007 LM00017 DIMENSION LINE(360) *008 LM00018 LM00019 ENTRY TO NXCHAR. *009 LM00020 NLINE = 0B *010 LM00021 PUSH COUNT = COUNT + 1 *011 LM00022 WHENEVER COUNT .G. LENGTH, TRANSFER TO RENEW *012 LM00023 FUNCTION RETURN LINE(COUNT) *013 LM00024 LM00025 RENEW LENGTH = READ.(LINE, 360, EOF) *014 LM00026 REDUCE WHENEVER LINE(LENGTH) .E. BLANK *015 LM00027 1 .OR. LINE(LENGTH) .E. RETURN *015 LM00028 1 .OR. LINE(LENGTH) .E. NULL *015 LM00029 LENGTH = LENGTH -1 *016 LM00030 WHENEVER LENGTH .E. 0, TRANSFER TO RENEW *017 LM00031 TRANSFER TO REDUCE *018 LM00032 END OF CONDITIONAL *019 LM00033 NLINE = 1B *020 LM00034 COUNT = 0 *021 LM00035 TRANSFER TO PUSH *022 LM00036 LM00037 .. ENTRY TO GET NEXT 6-CHARACTER WORD FROM THIS LINE. LM00038 LM00039 ENTRY TO GET. *023 LM00040 WORD = $ $ *024 LM00041 SCAN. *025 LM00042 GULP COUNT = COUNT + 1 *026 LM00043 WHENEVER COUNT .G. LENGTH .OR. LINE(COUNT) .E. BLANK, *027 LM00044 1 FUNCTION RETURN WORD *027 LM00045 WORD = (WORD .LS. 6) .V. (LINE(COUNT) .A. 77K) *028 LM00046 TRANSFER TO GULP *029 LM00047 LM00048 .. ENTRY TO GET DECIMAL INTEGER FROM INPUT STREAM. LM00049 LM00050 ENTRY TO NUM. *030 LM00051 INT = 0 *031 LM00052 SCAN. *032 LM00053 MULP COUNT = COUNT+1 *033 LM00054 WHENEVER COUNT .G. LENGTH .OR. LINE(COUNT) .E. BLANK, *034 LM00055 1 FUNCTION RETURN INT *034 LM00056 WHENEVER LINE(COUNT) .LE. 9, INT = INT*10 + LINE(COUNT) *035 LM00057 TRANSFER TO MULP *036 LM00058 LM00059 .. FUNCTION TO SCAN FOR NON BNALK CHARACTER. LM00060 LM00061 INTERNAL FUNCTION *037 LM00062 ENTRY TO SCAN. *038 LM00063 SCANLP WHENEVER LINE(COUNT+1) .NE. BLANK .OR. COUNT+1 .G. LENGTH *039 LM00064 1 , FUNCTION RETURN *039 LM00065 COUNT = COUNT+1 *040 LM00066 TRANSFER TO SCANLP *041 LM00067 END OF FUNCTION *042 LM00068 LM00069 LM00070 END OF FUNCTION *043 LM00071 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01032 TRANSFER VECTOR LENGTH 00002 PROGRAM BEGINS 00603 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES NUM 00716 0 GET 00660 0 NXCHAR 00604 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BLANK 00012 A 1 INT 00014 1 MULP 00005 4 REDUCE 00007 4 SCANLP 00011 4 COUNT 00013 1 LENGTH 00015 1 NULL 00567 A 1 RENEW 00010 4 WORD 00571 1 GULP 00004 4 LINE 00566 A 1 PUSH 00006 4 RETURN 00570 A 1 0FUNCTION DICTIONARY EXIT 00000 1 READ 00001 1 SCAN 00002 1 0ABSOLUTE CONSTANTS 00576 +000000000012 00575 +000000000011 00574 +000000000006 00577 +000000000077 00602 -206060606060 00600 +000000000550 00572 +000000000000 00573 +000000000001 00601 +233000000000 0STATEMENT DICTIONARY 00004 TXL -300670000665 00005 TXL -300726000723 00006 TXL -300613000610 00007 TXL -300642000630 00010 TXL -300630000623 00011 TXL -300774000760 0PROGRAM EXTERNAL FUNCTION (NLINE, EOF) 001 LM00010 VECTOR VALUES BLANK = 0060K 002 LM00012 00012 +0 00000 0 00060 VECTOR VALUES NULL = 0057K 003 LM00013 00567 +0 00000 0 00057 VECTOR VALUES RETURN = 0055K 004 LM00014 00570 +0 00000 0 00055 NORMAL MODE IS INTEGER 005 LM00015 STATEMENT LABEL EOF 006 LM00016 BOOLEAN NLINE 007 LM00017 DIMENSION LINE(360) 008 LM00018 ENTRY TO NXCHAR. 009 LM00020 00603 TRA +0 02000 0 00606 00604 SXA +0 63400 2 01012 00605 TSX +0 07400 2 01012 NLINE = 0B 010 LM00021 00606 CLA +0 50000 0 00572 00607 STO +0 60100 0 00024 PUSH COUNT = COUNT + 1 011 LM00022 00610 CLA +0 50000 0 00013 00611 ADD +0 40000 0 00573 00612 STO +0 60100 0 00013 WHENEVER COUNT .G. LENGTH, TRANSFER TO RENEW 012 LM00023 00613 CLA +0 50000 0 00013 00614 SUB +0 40200 0 00015 00615 TZE +0 10000 0 00620 00616 TMI -0 12000 0 00620 00617 TRA +0 02000 0 00010 FUNCTION RETURN LINE(COUNT) 013 LM00024 00620 LXA +0 53400 2 00013 00621 CLA +0 50000 2 00566 00622 TRA +0 02000 0 01023 RENEW LENGTH = READ.(LINE, 360, EOF) 014 LM00026 00623 TSX +0 07400 4 00001 00624 TXH +3 00000 0 00566 00625 TXH +3 00000 0 00600 00626 TXH +3 00000 0 00024 00627 STO +0 60100 0 00015 REDUCE WHENEVER LINE(LENGTH) .E. BLANK 015 LM00027 1 .OR. LINE(LENGTH) .E. RETURN 015 LM00028 1 .OR. LINE(LENGTH) .E. NULL 015 LM00029 00630 LXA +0 53400 1 00015 00631 CLA +0 50000 1 00566 00632 SUB +0 40200 0 00567 00633 TZE +0 10000 0 00642 00634 CLA +0 50000 1 00566 00635 SUB +0 40200 0 00570 00636 TZE +0 10000 0 00642 00637 CLA +0 50000 1 00566 00640 SUB +0 40200 0 00012 00641 TNZ -0 10000 0 00652 LENGTH = LENGTH -1 016 LM00030 00642 CLA +0 50000 0 00015 00643 SUB +0 40200 0 00573 00644 STO +0 60100 0 00015 WHENEVER LENGTH .E. 0, TRANSFER TO RENEW 017 LM00031 00645 CLA +0 50000 0 00015 00646 SUB +0 40200 0 00572 00647 TNZ -0 10000 0 00651 00650 TRA +0 02000 0 00010 TRANSFER TO REDUCE 018 LM00032 00651 TRA +0 02000 0 00007 END OF CONDITIONAL 019 LM00033 NLINE = 1B 020 LM00034 00652 CLA +0 50000 0 00573 00653 STO +0 60100 0 00024 COUNT = 0 021 LM00035 00654 CLA +0 50000 0 00572 00655 STO +0 60100 0 00013 TRANSFER TO PUSH 022 LM00036 00656 TRA +0 02000 0 00006 ENTRY TO GET. 023 LM00040 00657 TRA +0 02000 0 00662 00660 SXA +0 63400 2 01012 00661 TSX +0 07400 2 01012 WORD = $ $ 024 LM00041 00662 CLA +0 50000 0 00602 00663 STO +0 60100 0 00571 SCAN. 025 LM00042 00664 TSX +0 07400 4 00002 GULP COUNT = COUNT + 1 026 LM00043 00665 CLA +0 50000 0 00013 00666 ADD +0 40000 0 00573 00667 STO +0 60100 0 00013 WHENEVER COUNT .G. LENGTH .OR. LINE(COUNT) .E. BLANK, 027 LM00044 1 FUNCTION RETURN WORD 027 LM00045 00670 LXA +0 53400 1 00013 00671 CLA +0 50000 1 00566 00672 SUB +0 40200 0 00012 00673 TZE +0 10000 0 00700 00674 CLA +0 50000 0 00013 00675 SUB +0 40200 0 00015 00676 TZE +0 10000 0 00702 00677 TMI -0 12000 0 00702 00700 CLA +0 50000 0 00571 00701 TRA +0 02000 0 01023 WORD = (WORD .LS. 6) .V. (LINE(COUNT) .A. 77K) 028 LM00046 00702 LXA +0 53400 1 00013 00703 CAL -0 50000 1 00566 00704 ANA -0 32000 0 00577 00705 SLW +0 60200 0 01027 00706 CAL -0 50000 0 00574 00707 STA +0 62100 0 00711 00710 CAL -0 50000 0 00571 00711 ALS +0 76700 0 00000 00712 ORA -0 50100 0 01027 00713 SLW +0 60200 0 00571 TRANSFER TO GULP 029 LM00047 00714 TRA +0 02000 0 00004 ENTRY TO NUM. 030 LM00051 00715 TRA +0 02000 0 00720 00716 SXA +0 63400 2 01012 00717 TSX +0 07400 2 01012 INT = 0 031 LM00052 00720 CLA +0 50000 0 00572 00721 STO +0 60100 0 00014 SCAN. 032 LM00053 00722 TSX +0 07400 4 00002 MULP COUNT = COUNT+1 033 LM00054 00723 CLA +0 50000 0 00013 00724 ADD +0 40000 0 00573 00725 STO +0 60100 0 00013 WHENEVER COUNT .G. LENGTH .OR. LINE(COUNT) .E. BLANK, 034 LM00055 1 FUNCTION RETURN INT 034 LM00056 00726 LXA +0 53400 1 00013 00727 CLA +0 50000 1 00566 00730 SUB +0 40200 0 00012 00731 TZE +0 10000 0 00736 00732 CLA +0 50000 0 00013 00733 SUB +0 40200 0 00015 00734 TZE +0 10000 0 00740 00735 TMI -0 12000 0 00740 00736 CLA +0 50000 0 00014 00737 TRA +0 02000 0 01023 WHENEVER LINE(COUNT) .LE. 9, INT = INT*10 + LINE(COUNT) 035 LM00057 00740 LXA +0 53400 1 00013 00741 CLA +0 50000 1 00566 00742 SUB +0 40200 0 00575 00743 TZE +0 10000 0 00745 00744 TPL +0 12000 0 00753 00745 LDQ +0 56000 0 00014 00746 MPY +0 20000 0 00576 00747 LXA +0 53400 2 00013 00750 XCA +0 13100 0 00000 00751 ADD +0 40000 2 00566 00752 STO +0 60100 0 00014 TRANSFER TO MULP 036 LM00058 00753 TRA +0 02000 0 00005 INTERNAL FUNCTION 037 LM00062 00754 TRA +0 02000 0 01011 ENTRY TO SCAN. 038 LM00063 00755 TRA +0 02000 0 00760 00002 TTR +0 02100 0 00756 00756 SXA +0 63400 2 01001 00757 TSX +0 07400 2 01001 SCANLP WHENEVER LINE(COUNT+1) .NE. BLANK .OR. COUNT+1 .G. LENGTH 039 LM00064 1 , FUNCTION RETURN 039 LM00065 00760 CLA +0 50000 0 00013 00761 ADD +0 40000 0 00573 00762 SUB +0 40200 0 00015 00763 TZE +0 10000 0 00765 00764 TPL +0 12000 0 00773 00765 CLA +0 50000 0 00013 00766 ADD +0 40000 0 00573 00767 PAX +0 73400 1 00000 00770 CLA +0 50000 1 00566 00771 SUB +0 40200 0 00012 00772 TZE +0 10000 0 00774 00773 TRA +0 02000 0 01005 COUNT = COUNT+1 040 LM00066 00774 CLA +0 50000 0 00013 00775 ADD +0 40000 0 00573 00776 STO +0 60100 0 00013 TRANSFER TO SCANLP 041 LM00067 00777 TRA +0 02000 0 00011 END OF FUNCTION 042 LM00068 01000 TSX +0 07400 4 00000 01001 TXH +3 00000 0 00000 01002 SXD -0 63400 1 01001 01003 SXA +0 63400 4 01005 01004 TRA +0 02000 2 00001 01005 AXT +0 77400 4 00000 01006 LXA +0 53400 2 01001 01007 LXD -0 53400 1 01001 01010 TRA +0 02000 4 00001 END OF FUNCTION 043 LM00071 01011 TSX +0 07400 4 00000 01012 TXH +3 00000 0 00000 01013 SXD -0 63400 1 01012 01014 SXA +0 63400 4 01023 01015 CLA +0 50000 4 00001 01016 STA +0 62100 0 00607 01017 STA +0 62100 0 00653 01020 CLA +0 50000 4 00002 01021 STO +0 60100 0 00626 01022 TRA +0 02000 2 00001 01023 AXT +0 77400 4 00000 01024 LXA +0 53400 2 01012 01025 LXD -0 53400 1 01012 01026 TRA +0 02000 4 00001 1 MAD PROGRAM LISTING ... ... ... FILE SETTYP MAD 02/08/68 1243.8 - .. GALLEY SETUP ROUTINES. LM00001 .. LM00002 .. J. H. SALTZER, DECEMBER, 1965. LM00003 LM00004 EXTERNAL FUNCTION(CHAR) *001 LM00005 LM00006 INSERT FILE RCOM *002 LM00007 *002 LM00001 .. RUNOFF COMMON PACKAGE. *002 LM00002 *002 LM00003 NORMAL MODE IS INTEGER *003 LM00004 LM00005 PROGRAM COMMON NOSTOP, NOWAIT, FSTPAG, PRINAM, OUTFIL *004 LM00006 PROGRAM COMMON HDLTH, HEAD(360), HDPOS *005 LM00007 PROGRAM COMMON LINE(360) *006 LM00008 PROGRAM COMMON PGE, PAGENO, PGPOS, FTSW, PGMOD *007 LM00009 PROGRAM COMMON PREFIX(25), PRLTH *008 LM00010 PROGRAM COMMON RMARG *009 LM00011 PROGRAM COMMON WRD, SIZE, COUNT, WORD(360) *010 LM00012 PROGRAM COMMON BEGIN, FILL, ADJST, NCHARS, LENGTH *011 LM00013 PROGRAM COMMON LMARG, LINECT, BOTLIN, CNTR, FILSW *012 LM00014 PROGRAM COMMON FLAGSW, DBLSPC, HEDPGE, PIX *013 LM00015 PROGRAM COMMON MROW, TBTLIN, TBTPAG *014 LM00016 PROGRAM COMMON TPGPOS, TFTSW, TPGE, TPRF(25) *015 LM00017 PROGRAM COMMON TPRLTH, THDPOS, TPAGNO, TPGMOD *016 LM00018 PROGRAM COMMON BOTPAG, FLAG(3) *017 LM00019 PROGRAM COMMON BLANK, BCKSPC, RETURN(3) *018 LM00020 PROGRAM COMMON TAB, PERIOD, QUES, EXCLAM *019 LM00021 PROGRAM COMMON COLON, HYPHEN, NULL *020 LM00022 LM00023 BOOLEAN NOSTOP, NOWAIT, FTSW, PGE, OUTFIL *021 LM00024 BOOLEAN ADJST *022 LM00025 BOOLEAN WRD, FILL, BEGIN, CNTR, FILSW, FLAGSW *023 LM00026 BOOLEAN DBLSPC, HEDPGE, PIX, TPGE, TFTSW *024 LM00027 LM00028 .. END OF RUNOFF COMMON PACKAGE LM00029 LM00030 *002 LM00008 DIMENSION TBUF(360) *025 LM00009 BOOLEAN FIRST, NLINE *026 LM00010 LM00011 .. WRITEAROUNDS TO ALLOW INTERNAL AND LM00012 .. EXTERNAL USE OF FUNCTIONS. LM00013 LM00014 ENTRY TO SETUP. *027 LM00015 FIRST = 1B *028 LM00016 COUNT = 0 *029 LM00017 HEDPGE = 1B *030 LM00018 LENGTH = 0 *031 LM00019 NCHARS = 0 *032 LM00020 SETPK.(PRINAM, OUTFIL) *033 LM00021 INHDFT. *034 LM00022 THROUGH STLP, FOR LINECT = 0, 1, LINECT .G. 11 *035 LM00023 STLP PACK.(RETURN, 1) *036 LM00024 WRD = 0B *037 LM00025 FUNCTION RETURN *038 LM00026 LM00027 ENTRY TO SETDWN. *039 LM00028 PKOFF. *040 LM00029 FUNCTION RETURN *041 LM00030 LM00031 ENTRY TO SETCHR. *042 LM00032 WHENEVER CHAR .E. RETURN *043 LM00033 WHENEVER CNTR, BREAK. *044 LM00034 NLINE = 1B *045 LM00035 FUNCTION RETURN *046 LM00036 END OF CONDITIONAL *047 LM00037 WHENEVER NLINE *048 LM00038 NLINE = 0B *049 LM00039 WHENEVER FIRST, TRANSFER TO SKIP *050 LM00040 LM00041 .. IF NEW LINE IS CONTINUATION OF OLD, PATCH BROKEN WORD. LM00042 LM00043 WHENEVER CHAR .NE. BLANK .AND. CHAR .NE. TAB .AND. FILL *051 LM00044 WHENEVER .NOT.WRD *052 LM00045 CONTINUE *053 LM00046 OR WHENEVER WORD(COUNT) .E. HYPHEN *054 LM00047 COUNT = COUNT - 1 *055 LM00048 SIZE = SIZE - 1 *056 LM00049 OTHERWISE *057 LM00050 WHENEVER WORD(COUNT) .E. PERIOD *058 LM00051 1 .OR. WORD(COUNT) .E. QUES *058 LM00052 2 .OR. WORD(COUNT) .E. EXCLAM *058 LM00053 2 .OR. WORD(COUNT) .E. COLON *058 LM00054 3 .OR. WORD(COUNT-1) .E. PERIOD *058 LM00055 4 .OR. WORD(COUNT-1) .E. QUES *058 LM00056 5 .OR. WORD(COUNT-1) .E. EXCLAM *058 LM00057 6 .OR. WORD(COUNT-2) .E. PERIOD *058 LM00058 7 .OR. WORD(COUNT-2) .E. QUES *058 LM00059 8 .OR. WORD(COUNT-2) .E. EXCLAM *058 LM00060 9 , ADCHR.(BLANK) *058 LM00061 ADCHR.(BLANK) *059 LM00062 END OF CONDITIONAL *060 LM00063 OTHERWISE *061 LM00064 LM00065 .. NEW LINE STARTS NEW PARAGRAPH, PROCESS LAST LINE. LM00066 LM00067 BREAK. *062 LM00068 SKIP FIRST = 0B *063 LM00069 BEGIN = 0B *064 LM00070 END OF CONDITIONAL *065 LM00071 END OF CONDITIONAL *066 LM00072 ADCHR.(CHAR) *067 LM00073 FUNCTION RETURN *068 LM00074 LM00075 ENTRY TO SETWRD. *069 LM00076 ADLP. *070 LM00077 FUNCTION RETURN *071 LM00078 LM00079 ENTRY TO SETLIN. *072 LM00080 INSERT. *073 LM00081 FUNCTION RETURN *074 LM00082 LM00083 ENTRY TO BRKLIN. *075 LM00084 BREAK. *076 LM00085 FUNCTION RETURN *077 LM00086 LM00087 ENTRY TO SETPAG. *078 LM00088 PGOUT. *079 LM00089 FUNCTION RETURN *080 LM00090 LM00091 INTERNAL FUNCTION(CHR) *081 LM00092 ENTRY TO ADCHR. *082 LM00093 WHENEVER CHR .E. BLANK .AND. WRD *083 LM00094 ADLP. *084 LM00095 BEGIN = 0B *085 LM00096 OR WHENEVER CHR .NE. BLANK *086 LM00097 WRD = 1B *087 LM00098 END OF CONDITIONAL *088 LM00099 WHENEVER CHR .E. BCKSPC *089 LM00100 SIZE = SIZE - 1 *090 LM00101 OTHERWISE *091 LM00102 SIZE = SIZE + 1 *092 LM00103 END OF CONDITIONAL *093 LM00104 COUNT = COUNT + 1 *094 LM00105 WORD(COUNT) = CHR *095 LM00106 FUNCTION RETURN *096 LM00107 LM00108 END OF FUNCTION *097 LM00109 LM00110 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00111 LM00112 .. SUBROUTINES. LM00113 LM00114 ADLP .. FUNCTION TO MOVE WORD INTO LINE. LM00115 LM00116 INTERNAL FUNCTION *098 LM00117 ENTRY TO ADLP. *099 LM00118 WHENEVER COUNT .LE. 0, FUNCTION RETURN *100 LM00119 WHENEVER SIZE + NCHARS .G. RMARG .AND. FILL *101 LM00120 WHENEVER ADJST,ADJUST.(LINE,LENGTH,RMARG,NCHARS) *102 LM00121 INSERT. *103 LM00122 END OF CONDITIONAL *104 LM00123 WHENEVER LENGTH .E. 0 .AND. LMARG .G. 0 *105 LM00124 THROUGH MARGLP, FOR I = 1, 1, I .G. LMARG *106 LM00125 LENGTH = LENGTH + 1 *107 LM00126 LINE(LENGTH) = BLANK *108 LM00127 MARGLP NCHARS = NCHARS + 1 *109 LM00128 END OF CONDITIONAL *110 LM00129 THROUGH ADL1, FOR I = 1, 1, I .G. COUNT *111 LM00130 WHENEVER WORD(I) .E. BLANK .AND. BEGIN, TRANSFER TO ADL1 *112 LM00131 WHENEVER WORD(I) .E. BCKSPC *113 LM00132 NCHARS = NCHARS - 1 *114 LM00133 OTHERWISE *115 LM00134 NCHARS = NCHARS + 1 *116 LM00135 END OF CONDITIONAL *117 LM00136 LENGTH = LENGTH+1 *118 LM00137 LINE(LENGTH) = WORD(I) *119 LM00138 ADL1 CONTINUE *120 LM00139 COUNT = 0 *121 LM00140 SIZE = 0 *122 LM00141 WRD = 0B *123 LM00142 FUNCTION RETURN *124 LM00143 END OF FUNCTION *125 LM00144 LM00145 INSERT .. FUNCTION TO ADD LINE TO PAGE. LM00146 LM00147 INTERNAL FUNCTION *126 LM00148 ENTRY TO INSERT. *127 LM00149 WHENEVER LENGTH .LE. LMARG, FUNCTION RETURN *128 LM00150 WHENEVER LINECT .GE. BOTLIN, PGOUT. *129 LM00151 WHENEVER CNTR *130 LM00152 CENTER.(LINE,LENGTH,RMARG,NCHARS) *131 LM00153 CNTR = 0B *132 LM00154 WHENEVER FILSW, FILL = 1B *133 LM00155 END OF CONDITIONAL *134 LM00156 LINECT = LINECT + 1 *135 LM00157 PACK.(LINE(1), LENGTH) *136 LM00158 WHENEVER FLAGSW *137 LM00159 THROUGH PKEND, FOR I = 1, 1, I .G. RMARG-NCHARS *138 LM00160 PKEND PACK.(BLANK, 1) *139 LM00161 PACK.(FLAG(1), 3) *140 LM00162 FLAGSW = 0B *141 LM00163 END OF CONDITIONAL *142 LM00164 PACK.(RETURN, 1) *143 LM00165 WHENEVER DBLSPC .AND. LINECT .L. BOTLIN *144 LM00166 LINECT = LINECT+1 *145 LM00167 PACK.(RETURN, 1) *146 LM00168 END OF CONDITIONAL *147 LM00169 LENGTH = 0 *148 LM00170 NCHARS = 0 *149 LM00171 BEGIN = 1B *150 LM00172 FUNCTION RETURN *151 LM00173 END OF FUNCTION *152 LM00174 LM00175 PGOUT .. FUNCTION TO PRINT OUT PAGE, BEGIN NEXT PAGE. LM00176 LM00177 INTERNAL FUNCTION *153 LM00178 ENTRY TO PGOUT. *154 LM00179 PPGE WHENEVER PAGENO .L. FSTPAG, TRANSFER TO PREPAR *155 LM00180 WHENEVER LINECT .L. 7 *156 LM00181 1 .OR. (LINECT .L. 13 .AND. HEDPGE) *156 LM00182 2 , TRANSFER TO PREPAR *156 LM00183 WHENEVER OUTFIL .AND. .NOT. FTSW *157 LM00184 PACK.(EJECT,1) *158 LM00185 TRANSFER TO GAZABE *159 LM00186 END OF CONDITIONAL *160 LM00187 THROUGH RESTOR, FOR I = LINECT+1, 1, I .GE. BOTPAG-3 *161 LM00188 RESTOR PACK.(RETURN, 1) *162 LM00189 SETFT.(TBUF, TLTH) *163 LM00190 PACK.(TBUF(1), TLTH) *164 LM00191 PACK.(RETURN,1) *165 LM00192 WHENEVER OUTFIL *166 LM00193 PACK.(EJECT,1) *167 LM00194 OTHERWISE *168 LM00195 PACK.(RETURN, 2) *169 LM00196 WHENEVER NOSTOP, PACK.(RETURN, 1) *170 LM00197 END OF CONDITIONAL *171 LM00198 .... ...............MOVE SOMEPLACE ELSE........... LM00199 VECTOR VALUES EJECT = 52K *172 LM00200 .... ......................... LM00201 GAZABE PRPAGE. *173 LM00202 WHENEVER .NOT. NOSTOP, WAIT. *174 LM00203 LM00204 PREPAR RSPAGE. *175 LM00205 HEDPGE = 0B *176 LM00206 INHDFT. *177 LM00207 TPAGNO = TPAGNO + 1 *178 LM00208 PACK.(RETURN, 3) *179 LM00209 SETHD.(TBUF, TLTH) *180 LM00210 PACK.(TBUF(1), TLTH) *181 LM00211 PACK.(RETURN, 3) *182 LM00212 LINECT = 6 *183 LM00213 WHENEVER PIX *184 LM00214 PRPIX. *185 LM00215 LINECT = LINECT+MROW *186 LM00216 PIX = 0B *187 LM00217 WHENEVER LINECT .G. BOTLIN, TRANSFER TO PPGE *188 LM00218 END OF CONDITIONAL *189 LM00219 FUNCTION RETURN *190 LM00220 END OF FUNCTION *191 LM00221 LM00222 BREAK .. FUNCTION TO BREAK UP OUTPUT LINES. LM00223 LM00224 INTERNAL FUNCTION *192 LM00225 ENTRY TO BREAK. *193 LM00226 ADLP. *194 LM00227 INSERT. *195 LM00228 .. DON'T PUT FIRST LINE OF NEW PARAGRAPH AT BOTTOM OF PAGE. LM00229 WHENEVER LINECT + 1 .GE. BOTLIN *196 LM00230 1 .OR.(LINECT + 2 .GE. BOTLIN .AND. DBLSPC) *196 LM00231 2 , PGOUT. *196 LM00232 BEGIN = 0B *197 LM00233 FUNCTION RETURN *198 LM00234 END OF FUNCTION *199 LM00235 LM00236 INHDFT .. FUNCTION TO SET PAGING AND HEADING MODES. LM00237 LM00238 INTERNAL FUNCTION *200 LM00239 ENTRY TO INHDFT. *201 LM00240 PGPOS = TPGPOS *202 LM00241 FTSW = TFTSW *203 LM00242 PGE = TPGE *204 LM00243 THROUGH TPFLP, FOR I = 1, 1, I .G. TPRLTH *205 LM00244 TPFLP PREFIX(I) = TPRF(I) *206 LM00245 PRLTH = TPRLTH *207 LM00246 HDPOS = THDPOS *208 LM00247 PAGENO = TPAGNO *209 LM00248 PGMOD = TPGMOD *210 LM00249 BOTLIN = TBTLIN *211 LM00250 BOTPAG = TBTPAG *212 LM00251 FUNCTION RETURN *213 LM00252 LM00253 END OF FUNCTION *214 LM00254 LM00255 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00256 LM00257 END OF FUNCTION *215 LM00258 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01762 TRANSFER VECTOR LENGTH 00014 PROGRAM BEGINS 00617 FIRST UNUSED COMMON/ERASABLE 75207 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES SETPAG 01055 0 BRKLIN 01050 0 SETLIN 01043 0 SETWRD 01036 0 SETCHR 00667 0 SETDWN 00662 0 SETUP 00620 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ADJST 75311 C2 FIRST 00031 2 LMARG 75306 C1 PKEND 00022 4 TBTPAG 75273 C1 ADL1 00023 4 FLAG 75230 AC1 MARGLP 00022 4 PPGE 00025 4 TBUF 00604 A 1 BCKSPC 75223 C1 FLAGSW 75301 C2 MROW 75275 C1 PREFIX 76123 AC1 TFTSW 75271 C2 BEGIN 75313 C2 FSTPAG 77457 C1 NCHARS 75310 C1 PREPAR 00026 4 THDPOS 75234 C1 BLANK 75224 C1 FTSW 76125 C2 NLINE 00033 2 PRINAM 77456 C1 TLTH 00605 1 BOTLIN 75304 C1 GAZABE 00024 4 NOSTOP 77461 C2 PRLTH 76071 C1 TPAGNO 75233 C1 BOTPAG 75231 C1 HDLTH 77454 C1 NOWAIT 77460 C2 QUES 75214 C1 TPFLP 00022 4 CNTR 75303 C2 HDPOS 76702 C1 NULL 75210 C1 RESTOR 00022 4 TPGE 75270 C2 COLON 75212 C1 HEAD 77453 AC1 OUTFIL 77455 C2 RETURN 75222 AC1 TPGMOD 75232 C1 COUNT 76065 C1 HEDPGE 75277 C2 PAGENO 76127 C1 RMARG 76070 C1 TPGPOS 75272 C1 DBLSPC 75300 C2 HYPHEN 75211 C1 PERIOD 75215 C1 SIZE 76066 C1 TPRF 75267 AC1 EJECT 00030 A 1 I 00032 1 PGE 76130 C2 SKIP 00027 4 TPRLTH 75235 C1 EXCLAM 75213 C1 LENGTH 75307 C1 PGMOD 76124 C1 STLP 00022 4 WORD 76064 AC1 FILL 75312 C2 LINECT 75305 C1 PGPOS 76126 C1 TAB 75216 C1 WRD 76067 C2 FILSW 75302 C2 LINE 76701 AC1 PIX 75276 C2 TBTLIN 75274 C1 0FUNCTION DICTIONARY ADJUST 00000 1 CENTER 00001 1 EXIT 00002 1 PACK 00003 1 PKOFF 00004 1 PRPAGE 00005 1 PRPIX 00006 1 RSPAGE 00007 1 SETFT 00010 1 SETHD 00011 1 SETPK 00012 1 WAIT 00013 1 ADCHR 00014 1 ADLP 00015 1 BREAK 00016 1 INHDFT 00017 1 INSERT 00020 1 PGOUT 00021 1 0ABSOLUTE CONSTANTS 00612 +000000000006 00613 +000000000007 00615 +000000000015 00611 +000000000003 00610 +000000000002 00614 +000000000013 00606 +000000000000 00607 +000000000001 00616 +233000000000 0STATEMENT DICTIONARY 00023 TXL -301271001270 00024 TXL -301545001544 00025 TXL -301451001444 00026 TXL -301551001550 00027 TXL -301030001026 0PROGRAM EXTERNAL FUNCTION(CHAR) 001 LM00005 INSERT FILE RCOM 002 LM00007 NORMAL MODE IS INTEGER 003 LM00004 PROGRAM COMMON NOSTOP, NOWAIT, FSTPAG, PRINAM, OUTFIL 004 LM00006 PROGRAM COMMON HDLTH, HEAD(360), HDPOS 005 LM00007 PROGRAM COMMON LINE(360) 006 LM00008 PROGRAM COMMON PGE, PAGENO, PGPOS, FTSW, PGMOD 007 LM00009 PROGRAM COMMON PREFIX(25), PRLTH 008 LM00010 PROGRAM COMMON RMARG 009 LM00011 PROGRAM COMMON WRD, SIZE, COUNT, WORD(360) 010 LM00012 PROGRAM COMMON BEGIN, FILL, ADJST, NCHARS, LENGTH 011 LM00013 PROGRAM COMMON LMARG, LINECT, BOTLIN, CNTR, FILSW 012 LM00014 PROGRAM COMMON FLAGSW, DBLSPC, HEDPGE, PIX 013 LM00015 PROGRAM COMMON MROW, TBTLIN, TBTPAG 014 LM00016 PROGRAM COMMON TPGPOS, TFTSW, TPGE, TPRF(25) 015 LM00017 PROGRAM COMMON TPRLTH, THDPOS, TPAGNO, TPGMOD 016 LM00018 PROGRAM COMMON BOTPAG, FLAG(3) 017 LM00019 PROGRAM COMMON BLANK, BCKSPC, RETURN(3) 018 LM00020 PROGRAM COMMON TAB, PERIOD, QUES, EXCLAM 019 LM00021 PROGRAM COMMON COLON, HYPHEN, NULL 020 LM00022 BOOLEAN NOSTOP, NOWAIT, FTSW, PGE, OUTFIL 021 LM00024 BOOLEAN ADJST 022 LM00025 BOOLEAN WRD, FILL, BEGIN, CNTR, FILSW, FLAGSW 023 LM00026 BOOLEAN DBLSPC, HEDPGE, PIX, TPGE, TFTSW 024 LM00027 DIMENSION TBUF(360) 025 LM00009 BOOLEAN FIRST, NLINE 026 LM00010 ENTRY TO SETUP. 027 LM00015 00617 TRA +0 02000 0 00622 00620 SXA +0 63400 2 01743 00621 TSX +0 07400 2 01743 FIRST = 1B 028 LM00016 00622 CLA +0 50000 0 00607 00623 STO +0 60100 0 00031 COUNT = 0 029 LM00017 00624 CLA +0 50000 0 00606 00625 STO +0 60100 0 76065 HEDPGE = 1B 030 LM00018 00626 CLA +0 50000 0 00607 00627 STO +0 60100 0 75277 LENGTH = 0 031 LM00019 00630 CLA +0 50000 0 00606 00631 STO +0 60100 0 75307 NCHARS = 0 032 LM00020 00632 CLA +0 50000 0 00606 00633 STO +0 60100 0 75310 SETPK.(PRINAM, OUTFIL) 033 LM00021 00634 TSX +0 07400 4 00012 00635 TXH +3 00000 0 77456 00636 TXH +3 00000 0 77455 INHDFT. 034 LM00022 00637 TSX +0 07400 4 00017 THROUGH STLP, FOR LINECT = 0, 1, LINECT .G. 11 035 LM00023 00640 CLA +0 50000 0 00606 00641 STO +0 60100 0 75305 00642 TRA +0 02000 0 00646 00643 CLA +0 50000 0 75305 00644 ADD +0 40000 0 00607 00645 STO +0 60100 0 75305 00646 CLA +0 50000 0 75305 00647 SUB +0 40200 0 00614 00650 TZE +0 10000 0 00652 00651 TPL +0 12000 0 00656 STLP PACK.(RETURN, 1) 036 LM00024 00652 TSX +0 07400 4 00003 00653 TXH +3 00000 0 75222 00654 TXH +3 00000 0 00607 00655 TRA +0 02000 0 00643 WRD = 0B 037 LM00025 00656 CLA +0 50000 0 00606 00657 STO +0 60100 0 76067 FUNCTION RETURN 038 LM00026 00660 TRA +0 02000 0 01754 ENTRY TO SETDWN. 039 LM00028 00661 TRA +0 02000 0 00664 00662 SXA +0 63400 2 01743 00663 TSX +0 07400 2 01743 PKOFF. 040 LM00029 00664 TSX +0 07400 4 00004 FUNCTION RETURN 041 LM00030 00665 TRA +0 02000 0 01754 ENTRY TO SETCHR. 042 LM00032 00666 TRA +0 02000 0 00671 00667 SXA +0 63400 2 01743 00670 TSX +0 07400 2 01743 WHENEVER CHAR .E. RETURN 043 LM00033 00671 CLA +0 50000 0 00000 00672 SUB +0 40200 0 75222 00673 TNZ -0 10000 0 00702 WHENEVER CNTR, BREAK. 044 LM00034 00674 NZT -0 52000 0 75303 00675 TRA +0 02000 0 00677 00676 TSX +0 07400 4 00016 NLINE = 1B 045 LM00035 00677 CLA +0 50000 0 00607 00700 STO +0 60100 0 00033 FUNCTION RETURN 046 LM00036 00701 TRA +0 02000 0 01754 END OF CONDITIONAL 047 LM00037 WHENEVER NLINE 048 LM00038 00702 NZT -0 52000 0 00033 00703 TRA +0 02000 0 01032 NLINE = 0B 049 LM00039 00704 CLA +0 50000 0 00606 00705 STO +0 60100 0 00033 WHENEVER FIRST, TRANSFER TO SKIP 050 LM00040 00706 NZT -0 52000 0 00031 00707 TRA +0 02000 0 00711 00710 TRA +0 02000 0 00027 WHENEVER CHAR .NE. BLANK .AND. CHAR .NE. TAB .AND. FILL 051 LM00044 00711 NZT -0 52000 0 75312 00712 TRA +0 02000 0 01025 00713 CLA +0 50000 0 00000 00714 SUB +0 40200 0 75216 00715 TZE +0 10000 0 01025 00716 CLA +0 50000 0 00000 00717 SUB +0 40200 0 75224 00720 TZE +0 10000 0 01025 WHENEVER .NOT.WRD 052 LM00045 00721 ZET +0 52000 0 76067 00722 TRA +0 02000 0 00724 CONTINUE 053 LM00046 OR WHENEVER WORD(COUNT) .E. HYPHEN 054 LM00047 00723 TRA +0 02000 0 01024 00724 LXA +0 53400 1 76065 00725 CLA +0 50000 1 76064 00726 SUB +0 40200 0 75211 00727 TNZ -0 10000 0 00737 COUNT = COUNT - 1 055 LM00048 00730 CLA +0 50000 0 76065 00731 SUB +0 40200 0 00607 00732 STO +0 60100 0 76065 SIZE = SIZE - 1 056 LM00049 00733 CLA +0 50000 0 76066 00734 SUB +0 40200 0 00607 00735 STO +0 60100 0 76066 OTHERWISE 057 LM00050 00736 TRA +0 02000 0 01024 WHENEVER WORD(COUNT) .E. PERIOD 058 LM00051 1 .OR. WORD(COUNT) .E. QUES 058 LM00052 2 .OR. WORD(COUNT) .E. EXCLAM 058 LM00053 2 .OR. WORD(COUNT) .E. COLON 058 LM00054 3 .OR. WORD(COUNT-1) .E. PERIOD 058 LM00055 4 .OR. WORD(COUNT-1) .E. QUES 058 LM00056 5 .OR. WORD(COUNT-1) .E. EXCLAM 058 LM00057 6 .OR. WORD(COUNT-2) .E. PERIOD 058 LM00058 7 .OR. WORD(COUNT-2) .E. QUES 058 LM00059 8 .OR. WORD(COUNT-2) .E. EXCLAM 058 LM00060 9 , ADCHR.(BLANK) 058 LM00061 00737 CLA +0 50000 0 76065 00740 SUB +0 40200 0 00610 00741 PAX +0 73400 1 00000 00742 CLA +0 50000 1 76064 00743 SUB +0 40200 0 75213 00744 TZE +0 10000 0 01020 00745 CLA +0 50000 0 76065 00746 SUB +0 40200 0 00610 00747 PAX +0 73400 1 00000 00750 CLA +0 50000 1 76064 00751 SUB +0 40200 0 75214 00752 TZE +0 10000 0 01020 00753 CLA +0 50000 0 76065 00754 SUB +0 40200 0 00610 00755 PAX +0 73400 1 00000 00756 CLA +0 50000 1 76064 00757 SUB +0 40200 0 75215 00760 TZE +0 10000 0 01020 00761 CLA +0 50000 0 76065 00762 SUB +0 40200 0 00607 00763 PAX +0 73400 1 00000 00764 CLA +0 50000 1 76064 00765 SUB +0 40200 0 75213 00766 TZE +0 10000 0 01020 00767 CLA +0 50000 0 76065 00770 SUB +0 40200 0 00607 00771 PAX +0 73400 1 00000 00772 CLA +0 50000 1 76064 00773 SUB +0 40200 0 75214 00774 TZE +0 10000 0 01020 00775 CLA +0 50000 0 76065 00776 SUB +0 40200 0 00607 00777 PAX +0 73400 1 00000 01000 CLA +0 50000 1 76064 01001 SUB +0 40200 0 75215 01002 TZE +0 10000 0 01020 01003 LXA +0 53400 1 76065 01004 CLA +0 50000 1 76064 01005 SUB +0 40200 0 75212 01006 TZE +0 10000 0 01020 01007 CLA +0 50000 1 76064 01010 SUB +0 40200 0 75213 01011 TZE +0 10000 0 01020 01012 CLA +0 50000 1 76064 01013 SUB +0 40200 0 75214 01014 TZE +0 10000 0 01020 01015 CLA +0 50000 1 76064 01016 SUB +0 40200 0 75215 01017 TNZ -0 10000 0 01022 01020 TSX +0 07400 4 00014 01021 TXH +3 00000 0 75224 ADCHR.(BLANK) 059 LM00062 01022 TSX +0 07400 4 00014 01023 TXH +3 00000 0 75224 END OF CONDITIONAL 060 LM00063 OTHERWISE 061 LM00064 01024 TRA +0 02000 0 01032 BREAK. 062 LM00068 01025 TSX +0 07400 4 00016 SKIP FIRST = 0B 063 LM00069 01026 CLA +0 50000 0 00606 01027 STO +0 60100 0 00031 BEGIN = 0B 064 LM00070 01030 CLA +0 50000 0 00606 01031 STO +0 60100 0 75313 END OF CONDITIONAL 065 LM00071 END OF CONDITIONAL 066 LM00072 ADCHR.(CHAR) 067 LM00073 01032 TSX +0 07400 4 00014 01033 TXH +3 00000 0 00000 FUNCTION RETURN 068 LM00074 01034 TRA +0 02000 0 01754 ENTRY TO SETWRD. 069 LM00076 01035 TRA +0 02000 0 01040 01036 SXA +0 63400 2 01743 01037 TSX +0 07400 2 01743 ADLP. 070 LM00077 01040 TSX +0 07400 4 00015 FUNCTION RETURN 071 LM00078 01041 TRA +0 02000 0 01754 ENTRY TO SETLIN. 072 LM00080 01042 TRA +0 02000 0 01045 01043 SXA +0 63400 2 01743 01044 TSX +0 07400 2 01743 INSERT. 073 LM00081 01045 TSX +0 07400 4 00020 FUNCTION RETURN 074 LM00082 01046 TRA +0 02000 0 01754 ENTRY TO BRKLIN. 075 LM00084 01047 TRA +0 02000 0 01052 01050 SXA +0 63400 2 01743 01051 TSX +0 07400 2 01743 BREAK. 076 LM00085 01052 TSX +0 07400 4 00016 FUNCTION RETURN 077 LM00086 01053 TRA +0 02000 0 01754 ENTRY TO SETPAG. 078 LM00088 01054 TRA +0 02000 0 01057 01055 SXA +0 63400 2 01743 01056 TSX +0 07400 2 01743 PGOUT. 079 LM00089 01057 TSX +0 07400 4 00021 FUNCTION RETURN 080 LM00090 01060 TRA +0 02000 0 01754 INTERNAL FUNCTION(CHR) 081 LM00092 01061 TRA +0 02000 0 01142 ENTRY TO ADCHR. 082 LM00093 01062 TRA +0 02000 0 01065 00014 TTR +0 02100 0 01063 01063 SXA +0 63400 2 01125 01064 TSX +0 07400 2 01125 WHENEVER CHR .E. BLANK .AND. WRD 083 LM00094 01065 NZT -0 52000 0 76067 01066 TRA +0 02000 0 01076 01067 CLA +0 50000 0 00000 01070 SUB +0 40200 0 75224 01071 TNZ -0 10000 0 01076 ADLP. 084 LM00095 01072 TSX +0 07400 4 00015 BEGIN = 0B 085 LM00096 01073 CLA +0 50000 0 00606 01074 STO +0 60100 0 75313 OR WHENEVER CHR .NE. BLANK 086 LM00097 01075 TRA +0 02000 0 01103 01076 CLA +0 50000 0 00000 01077 SUB +0 40200 0 75224 01100 TZE +0 10000 0 01103 WRD = 1B 087 LM00098 01101 CLA +0 50000 0 00607 01102 STO +0 60100 0 76067 END OF CONDITIONAL 088 LM00099 WHENEVER CHR .E. BCKSPC 089 LM00100 01103 CLA +0 50000 0 00000 01104 SUB +0 40200 0 75223 01105 TNZ -0 10000 0 01112 SIZE = SIZE - 1 090 LM00101 01106 CLA +0 50000 0 76066 01107 SUB +0 40200 0 00607 01110 STO +0 60100 0 76066 OTHERWISE 091 LM00102 01111 TRA +0 02000 0 01115 SIZE = SIZE + 1 092 LM00103 01112 CLA +0 50000 0 76066 01113 ADD +0 40000 0 00607 01114 STO +0 60100 0 76066 END OF CONDITIONAL 093 LM00104 COUNT = COUNT + 1 094 LM00105 01115 CLA +0 50000 0 76065 01116 ADD +0 40000 0 00607 01117 STO +0 60100 0 76065 WORD(COUNT) = CHR 095 LM00106 01120 LXA +0 53400 1 76065 01121 CLA +0 50000 0 00000 01122 STO +0 60100 1 76064 FUNCTION RETURN 096 LM00107 01123 TRA +0 02000 0 01136 END OF FUNCTION 097 LM00109 01124 TSX +0 07400 4 00002 01125 TXH +3 00000 0 00000 01126 SXD -0 63400 1 01125 01127 SXA +0 63400 4 01136 01130 CLA +0 50000 4 00001 01131 STA +0 62100 0 01067 01132 STA +0 62100 0 01076 01133 STA +0 62100 0 01103 01134 STA +0 62100 0 01121 01135 TRA +0 02000 2 00001 01136 AXT +0 77400 4 00000 01137 LXA +0 53400 2 01125 01140 LXD -0 53400 1 01125 01141 TRA +0 02000 4 00001 INTERNAL FUNCTION 098 LM00117 01142 TRA +0 02000 0 01311 ENTRY TO ADLP. 099 LM00118 01143 TRA +0 02000 0 01146 00015 TTR +0 02100 0 01144 01144 SXA +0 63400 2 01301 01145 TSX +0 07400 2 01301 WHENEVER COUNT .LE. 0, FUNCTION RETURN 100 LM00119 01146 CLA +0 50000 0 76065 01147 SUB +0 40200 0 00606 01150 TZE +0 10000 0 01152 01151 TPL +0 12000 0 01153 01152 TRA +0 02000 0 01305 WHENEVER SIZE + NCHARS .G. RMARG .AND. FILL 101 LM00120 01153 NZT -0 52000 0 75312 01154 TRA +0 02000 0 01172 01155 CLA +0 50000 0 76066 01156 ADD +0 40000 0 75310 01157 SUB +0 40200 0 76070 01160 TZE +0 10000 0 01172 01161 TMI -0 12000 0 01172 WHENEVER ADJST,ADJUST.(LINE,LENGTH,RMARG,NCHARS) 102 LM00121 01162 NZT -0 52000 0 75311 01163 TRA +0 02000 0 01171 01164 TSX +0 07400 4 00000 01165 TXH +3 00000 0 76701 01166 TXH +3 00000 0 75307 01167 TXH +3 00000 0 76070 01170 TXH +3 00000 0 75310 INSERT. 103 LM00122 01171 TSX +0 07400 4 00020 END OF CONDITIONAL 104 LM00123 WHENEVER LENGTH .E. 0 .AND. LMARG .G. 0 105 LM00124 01172 CLA +0 50000 0 75306 01173 SUB +0 40200 0 00606 01174 TZE +0 10000 0 01225 01175 TMI -0 12000 0 01225 01176 CLA +0 50000 0 75307 01177 SUB +0 40200 0 00606 01200 TNZ -0 10000 0 01225 THROUGH MARGLP, FOR I = 1, 1, I .G. LMARG 106 LM00125 01201 CLA +0 50000 0 00607 01202 STO +0 60100 0 00032 01203 TRA +0 02000 0 01207 01204 CLA +0 50000 0 00032 01205 ADD +0 40000 0 00607 01206 STO +0 60100 0 00032 01207 CLA +0 50000 0 00032 01210 SUB +0 40200 0 75306 01211 TZE +0 10000 0 01213 01212 TPL +0 12000 0 01225 LENGTH = LENGTH + 1 107 LM00126 01213 CLA +0 50000 0 75307 01214 ADD +0 40000 0 00607 01215 STO +0 60100 0 75307 LINE(LENGTH) = BLANK 108 LM00127 01216 LXA +0 53400 1 75307 01217 CLA +0 50000 0 75224 01220 STO +0 60100 1 76701 MARGLP NCHARS = NCHARS + 1 109 LM00128 01221 CLA +0 50000 0 75310 01222 ADD +0 40000 0 00607 01223 STO +0 60100 0 75310 01224 TRA +0 02000 0 01204 END OF CONDITIONAL 110 LM00129 THROUGH ADL1, FOR I = 1, 1, I .G. COUNT 111 LM00130 01225 CLA +0 50000 0 00607 01226 STO +0 60100 0 00032 01227 TRA +0 02000 0 01233 01230 CLA +0 50000 0 00032 01231 ADD +0 40000 0 00607 01232 STO +0 60100 0 00032 01233 CLA +0 50000 0 00032 01234 SUB +0 40200 0 76065 01235 TZE +0 10000 0 01237 01236 TPL +0 12000 0 01271 WHENEVER WORD(I) .E. BLANK .AND. BEGIN, TRANSFER TO ADL1 112 LM00131 01237 NZT -0 52000 0 75313 01240 TRA +0 02000 0 01246 01241 LXA +0 53400 1 00032 01242 CLA +0 50000 1 76064 01243 SUB +0 40200 0 75224 01244 TNZ -0 10000 0 01246 01245 TRA +0 02000 0 00023 WHENEVER WORD(I) .E. BCKSPC 113 LM00132 01246 LXA +0 53400 1 00032 01247 CLA +0 50000 1 76064 01250 SUB +0 40200 0 75223 01251 TNZ -0 10000 0 01256 NCHARS = NCHARS - 1 114 LM00133 01252 CLA +0 50000 0 75310 01253 SUB +0 40200 0 00607 01254 STO +0 60100 0 75310 OTHERWISE 115 LM00134 01255 TRA +0 02000 0 01261 NCHARS = NCHARS + 1 116 LM00135 01256 CLA +0 50000 0 75310 01257 ADD +0 40000 0 00607 01260 STO +0 60100 0 75310 END OF CONDITIONAL 117 LM00136 LENGTH = LENGTH+1 118 LM00137 01261 CLA +0 50000 0 75307 01262 ADD +0 40000 0 00607 01263 STO +0 60100 0 75307 LINE(LENGTH) = WORD(I) 119 LM00138 01264 LXA +0 53400 1 75307 01265 LXA +0 53400 2 00032 01266 CLA +0 50000 2 76064 01267 STO +0 60100 1 76701 ADL1 CONTINUE 120 LM00139 01270 TRA +0 02000 0 01230 COUNT = 0 121 LM00140 01271 CLA +0 50000 0 00606 01272 STO +0 60100 0 76065 SIZE = 0 122 LM00141 01273 CLA +0 50000 0 00606 01274 STO +0 60100 0 76066 WRD = 0B 123 LM00142 01275 CLA +0 50000 0 00606 01276 STO +0 60100 0 76067 FUNCTION RETURN 124 LM00143 01277 TRA +0 02000 0 01305 END OF FUNCTION 125 LM00144 01300 TSX +0 07400 4 00002 01301 TXH +3 00000 0 00000 01302 SXD -0 63400 1 01301 01303 SXA +0 63400 4 01305 01304 TRA +0 02000 2 00001 01305 AXT +0 77400 4 00000 01306 LXA +0 53400 2 01301 01307 LXD -0 53400 1 01301 01310 TRA +0 02000 4 00001 INTERNAL FUNCTION 126 LM00148 01311 TRA +0 02000 0 01440 ENTRY TO INSERT. 127 LM00149 01312 TRA +0 02000 0 01315 00020 TTR +0 02100 0 01313 01313 SXA +0 63400 2 01430 01314 TSX +0 07400 2 01430 WHENEVER LENGTH .LE. LMARG, FUNCTION RETURN 128 LM00150 01315 CLA +0 50000 0 75307 01316 SUB +0 40200 0 75306 01317 TZE +0 10000 0 01321 01320 TPL +0 12000 0 01322 01321 TRA +0 02000 0 01434 WHENEVER LINECT .GE. BOTLIN, PGOUT. 129 LM00151 01322 CLA +0 50000 0 75305 01323 SUB +0 40200 0 75304 01324 TZE +0 10000 0 01326 01325 TMI -0 12000 0 01327 01326 TSX +0 07400 4 00021 WHENEVER CNTR 130 LM00152 01327 NZT -0 52000 0 75303 01330 TRA +0 02000 0 01344 CENTER.(LINE,LENGTH,RMARG,NCHARS) 131 LM00153 01331 TSX +0 07400 4 00001 01332 TXH +3 00000 0 76701 01333 TXH +3 00000 0 75307 01334 TXH +3 00000 0 76070 01335 TXH +3 00000 0 75310 CNTR = 0B 132 LM00154 01336 CLA +0 50000 0 00606 01337 STO +0 60100 0 75303 WHENEVER FILSW, FILL = 1B 133 LM00155 01340 NZT -0 52000 0 75302 01341 TRA +0 02000 0 01344 01342 CLA +0 50000 0 00607 01343 STO +0 60100 0 75312 END OF CONDITIONAL 134 LM00156 LINECT = LINECT + 1 135 LM00157 01344 CLA +0 50000 0 75305 01345 ADD +0 40000 0 00607 01346 STO +0 60100 0 75305 PACK.(LINE(1), LENGTH) 136 LM00158 01347 TSX +0 07400 4 00003 01350 TXH +3 00000 0 76700 01351 TXH +3 00000 0 75307 WHENEVER FLAGSW 137 LM00159 01352 NZT -0 52000 0 75301 01353 TRA +0 02000 0 01401 THROUGH PKEND, FOR I = 1, 1, I .G. RMARG-NCHARS 138 LM00160 01354 CLA +0 50000 0 00607 01355 STO +0 60100 0 00032 01356 TRA +0 02000 0 01362 01357 CLA +0 50000 0 00032 01360 ADD +0 40000 0 00607 01361 STO +0 60100 0 00032 01362 CLA +0 50000 0 76070 01363 SUB +0 40200 0 75310 01364 CHS +0 76000 0 00002 01365 ADD +0 40000 0 00032 01366 TZE +0 10000 0 01370 01367 TPL +0 12000 0 01374 PKEND PACK.(BLANK, 1) 139 LM00161 01370 TSX +0 07400 4 00003 01371 TXH +3 00000 0 75224 01372 TXH +3 00000 0 00607 01373 TRA +0 02000 0 01357 PACK.(FLAG(1), 3) 140 LM00162 01374 TSX +0 07400 4 00003 01375 TXH +3 00000 0 75227 01376 TXH +3 00000 0 00611 FLAGSW = 0B 141 LM00163 01377 CLA +0 50000 0 00606 01400 STO +0 60100 0 75301 END OF CONDITIONAL 142 LM00164 PACK.(RETURN, 1) 143 LM00165 01401 TSX +0 07400 4 00003 01402 TXH +3 00000 0 75222 01403 TXH +3 00000 0 00607 WHENEVER DBLSPC .AND. LINECT .L. BOTLIN 144 LM00166 01404 CLA +0 50000 0 75305 01405 SUB +0 40200 0 75304 01406 TZE +0 10000 0 01420 01407 TPL +0 12000 0 01420 01410 NZT -0 52000 0 75300 01411 TRA +0 02000 0 01420 LINECT = LINECT+1 145 LM00167 01412 CLA +0 50000 0 75305 01413 ADD +0 40000 0 00607 01414 STO +0 60100 0 75305 PACK.(RETURN, 1) 146 LM00168 01415 TSX +0 07400 4 00003 01416 TXH +3 00000 0 75222 01417 TXH +3 00000 0 00607 END OF CONDITIONAL 147 LM00169 LENGTH = 0 148 LM00170 01420 CLA +0 50000 0 00606 01421 STO +0 60100 0 75307 NCHARS = 0 149 LM00171 01422 CLA +0 50000 0 00606 01423 STO +0 60100 0 75310 BEGIN = 1B 150 LM00172 01424 CLA +0 50000 0 00607 01425 STO +0 60100 0 75313 FUNCTION RETURN 151 LM00173 01426 TRA +0 02000 0 01434 END OF FUNCTION 152 LM00174 01427 TSX +0 07400 4 00002 01430 TXH +3 00000 0 00000 01431 SXD -0 63400 1 01430 01432 SXA +0 63400 4 01434 01433 TRA +0 02000 2 00001 01434 AXT +0 77400 4 00000 01435 LXA +0 53400 2 01430 01436 LXD -0 53400 1 01430 01437 TRA +0 02000 4 00001 INTERNAL FUNCTION 153 LM00178 01440 TRA +0 02000 0 01624 ENTRY TO PGOUT. 154 LM00179 01441 TRA +0 02000 0 01444 00021 TTR +0 02100 0 01442 01442 SXA +0 63400 2 01614 01443 TSX +0 07400 2 01614 PPGE WHENEVER PAGENO .L. FSTPAG, TRANSFER TO PREPAR 155 LM00180 01444 CLA +0 50000 0 76127 01445 SUB +0 40200 0 77457 01446 TZE +0 10000 0 01451 01447 TPL +0 12000 0 01451 01450 TRA +0 02000 0 00026 WHENEVER LINECT .L. 7 156 LM00181 1 .OR. (LINECT .L. 13 .AND. HEDPGE) 156 LM00182 2 , TRANSFER TO PREPAR 156 LM00183 01451 NZT -0 52000 0 75277 01452 TRA +0 02000 0 01457 01453 CLA +0 50000 0 75305 01454 SUB +0 40200 0 00615 01455 TZE +0 10000 0 01457 01456 TMI -0 12000 0 01463 01457 CLA +0 50000 0 75305 01460 SUB +0 40200 0 00613 01461 TZE +0 10000 0 01464 01462 TPL +0 12000 0 01464 01463 TRA +0 02000 0 00026 WHENEVER OUTFIL .AND. .NOT. FTSW 157 LM00184 01464 ZET +0 52000 0 76125 01465 TRA +0 02000 0 01474 01466 NZT -0 52000 0 77455 01467 TRA +0 02000 0 01474 PACK.(EJECT,1) 158 LM00185 01470 TSX +0 07400 4 00003 01471 TXH +3 00000 0 00030 01472 TXH +3 00000 0 00607 TRANSFER TO GAZABE 159 LM00186 01473 TRA +0 02000 0 00024 END OF CONDITIONAL 160 LM00187 THROUGH RESTOR, FOR I = LINECT+1, 1, I .GE. BOTPAG-3 161 LM00188 01474 CLA +0 50000 0 75305 01475 ADD +0 40000 0 00607 01476 STO +0 60100 0 00032 01477 TRA +0 02000 0 01503 01500 CLA +0 50000 0 00032 01501 ADD +0 40000 0 00607 01502 STO +0 60100 0 00032 01503 CLA +0 50000 0 75231 01504 SUB +0 40200 0 00611 01505 CHS +0 76000 0 00002 01506 ADD +0 40000 0 00032 01507 TZE +0 10000 0 01515 01510 TPL +0 12000 0 01515 RESTOR PACK.(RETURN, 1) 162 LM00189 01511 TSX +0 07400 4 00003 01512 TXH +3 00000 0 75222 01513 TXH +3 00000 0 00607 01514 TRA +0 02000 0 01500 SETFT.(TBUF, TLTH) 163 LM00190 01515 TSX +0 07400 4 00010 01516 TXH +3 00000 0 00604 01517 TXH +3 00000 0 00605 PACK.(TBUF(1), TLTH) 164 LM00191 01520 TSX +0 07400 4 00003 01521 TXH +3 00000 0 00603 01522 TXH +3 00000 0 00605 PACK.(RETURN,1) 165 LM00192 01523 TSX +0 07400 4 00003 01524 TXH +3 00000 0 75222 01525 TXH +3 00000 0 00607 WHENEVER OUTFIL 166 LM00193 01526 NZT -0 52000 0 77455 01527 TRA +0 02000 0 01534 PACK.(EJECT,1) 167 LM00194 01530 TSX +0 07400 4 00003 01531 TXH +3 00000 0 00030 01532 TXH +3 00000 0 00607 OTHERWISE 168 LM00195 01533 TRA +0 02000 0 01544 PACK.(RETURN, 2) 169 LM00196 01534 TSX +0 07400 4 00003 01535 TXH +3 00000 0 75222 01536 TXH +3 00000 0 00610 WHENEVER NOSTOP, PACK.(RETURN, 1) 170 LM00197 01537 NZT -0 52000 0 77461 01540 TRA +0 02000 0 01544 01541 TSX +0 07400 4 00003 01542 TXH +3 00000 0 75222 01543 TXH +3 00000 0 00607 END OF CONDITIONAL 171 LM00198 VECTOR VALUES EJECT = 52K 172 LM00200 00030 +0 00000 0 00052 GAZABE PRPAGE. 173 LM00202 01544 TSX +0 07400 4 00005 WHENEVER .NOT. NOSTOP, WAIT. 174 LM00203 01545 ZET +0 52000 0 77461 01546 TRA +0 02000 0 01550 01547 TSX +0 07400 4 00013 PREPAR RSPAGE. 175 LM00205 01550 TSX +0 07400 4 00007 HEDPGE = 0B 176 LM00206 01551 CLA +0 50000 0 00606 01552 STO +0 60100 0 75277 INHDFT. 177 LM00207 01553 TSX +0 07400 4 00017 TPAGNO = TPAGNO + 1 178 LM00208 01554 CLA +0 50000 0 75233 01555 ADD +0 40000 0 00607 01556 STO +0 60100 0 75233 PACK.(RETURN, 3) 179 LM00209 01557 TSX +0 07400 4 00003 01560 TXH +3 00000 0 75222 01561 TXH +3 00000 0 00611 SETHD.(TBUF, TLTH) 180 LM00210 01562 TSX +0 07400 4 00011 01563 TXH +3 00000 0 00604 01564 TXH +3 00000 0 00605 PACK.(TBUF(1), TLTH) 181 LM00211 01565 TSX +0 07400 4 00003 01566 TXH +3 00000 0 00603 01567 TXH +3 00000 0 00605 PACK.(RETURN, 3) 182 LM00212 01570 TSX +0 07400 4 00003 01571 TXH +3 00000 0 75222 01572 TXH +3 00000 0 00611 LINECT = 6 183 LM00213 01573 CLA +0 50000 0 00612 01574 STO +0 60100 0 75305 WHENEVER PIX 184 LM00214 01575 NZT -0 52000 0 75276 01576 TRA +0 02000 0 01612 PRPIX. 185 LM00215 01577 TSX +0 07400 4 00006 LINECT = LINECT+MROW 186 LM00216 01600 CLA +0 50000 0 75305 01601 ADD +0 40000 0 75275 01602 STO +0 60100 0 75305 PIX = 0B 187 LM00217 01603 CLA +0 50000 0 00606 01604 STO +0 60100 0 75276 WHENEVER LINECT .G. BOTLIN, TRANSFER TO PPGE 188 LM00218 01605 CLA +0 50000 0 75305 01606 SUB +0 40200 0 75304 01607 TZE +0 10000 0 01612 01610 TMI -0 12000 0 01612 01611 TRA +0 02000 0 00025 END OF CONDITIONAL 189 LM00219 FUNCTION RETURN 190 LM00220 01612 TRA +0 02000 0 01620 END OF FUNCTION 191 LM00221 01613 TSX +0 07400 4 00002 01614 TXH +3 00000 0 00000 01615 SXD -0 63400 1 01614 01616 SXA +0 63400 4 01620 01617 TRA +0 02000 2 00001 01620 AXT +0 77400 4 00000 01621 LXA +0 53400 2 01614 01622 LXD -0 53400 1 01614 01623 TRA +0 02000 4 00001 INTERNAL FUNCTION 192 LM00225 01624 TRA +0 02000 0 01663 ENTRY TO BREAK. 193 LM00226 01625 TRA +0 02000 0 01630 00016 TTR +0 02100 0 01626 01626 SXA +0 63400 2 01653 01627 TSX +0 07400 2 01653 ADLP. 194 LM00227 01630 TSX +0 07400 4 00015 INSERT. 195 LM00228 01631 TSX +0 07400 4 00020 WHENEVER LINECT + 1 .GE. BOTLIN 196 LM00230 1 .OR.(LINECT + 2 .GE. BOTLIN .AND. DBLSPC) 196 LM00231 2 , PGOUT. 196 LM00232 01632 NZT -0 52000 0 75300 01633 TRA +0 02000 0 01641 01634 CLA +0 50000 0 75305 01635 ADD +0 40000 0 00610 01636 SUB +0 40200 0 75304 01637 TZE +0 10000 0 01646 01640 TPL +0 12000 0 01646 01641 CLA +0 50000 0 75305 01642 ADD +0 40000 0 00607 01643 SUB +0 40200 0 75304 01644 TZE +0 10000 0 01646 01645 TMI -0 12000 0 01647 01646 TSX +0 07400 4 00021 BEGIN = 0B 197 LM00233 01647 CLA +0 50000 0 00606 01650 STO +0 60100 0 75313 FUNCTION RETURN 198 LM00234 01651 TRA +0 02000 0 01657 END OF FUNCTION 199 LM00235 01652 TSX +0 07400 4 00002 01653 TXH +3 00000 0 00000 01654 SXD -0 63400 1 01653 01655 SXA +0 63400 4 01657 01656 TRA +0 02000 2 00001 01657 AXT +0 77400 4 00000 01660 LXA +0 53400 2 01653 01661 LXD -0 53400 1 01653 01662 TRA +0 02000 4 00001 INTERNAL FUNCTION 200 LM00239 01663 TRA +0 02000 0 01742 ENTRY TO INHDFT. 201 LM00240 01664 TRA +0 02000 0 01667 00017 TTR +0 02100 0 01665 01665 SXA +0 63400 2 01732 01666 TSX +0 07400 2 01732 PGPOS = TPGPOS 202 LM00241 01667 CLA +0 50000 0 75272 01670 STO +0 60100 0 76126 FTSW = TFTSW 203 LM00242 01671 CLA +0 50000 0 75271 01672 STO +0 60100 0 76125 PGE = TPGE 204 LM00243 01673 CLA +0 50000 0 75270 01674 STO +0 60100 0 76130 THROUGH TPFLP, FOR I = 1, 1, I .G. TPRLTH 205 LM00244 01675 CLA +0 50000 0 00607 01676 STO +0 60100 0 00032 01677 TRA +0 02000 0 01703 01700 CLA +0 50000 0 00032 01701 ADD +0 40000 0 00607 01702 STO +0 60100 0 00032 01703 CLA +0 50000 0 00032 01704 SUB +0 40200 0 75235 01705 TZE +0 10000 0 01707 01706 TPL +0 12000 0 01714 TPFLP PREFIX(I) = TPRF(I) 206 LM00245 01707 LXA +0 53400 1 00032 01710 LXA +0 53400 2 00032 01711 CLA +0 50000 2 75267 01712 STO +0 60100 1 76123 01713 TRA +0 02000 0 01700 PRLTH = TPRLTH 207 LM00246 01714 CLA +0 50000 0 75235 01715 STO +0 60100 0 76071 HDPOS = THDPOS 208 LM00247 01716 CLA +0 50000 0 75234 01717 STO +0 60100 0 76702 PAGENO = TPAGNO 209 LM00248 01720 CLA +0 50000 0 75233 01721 STO +0 60100 0 76127 PGMOD = TPGMOD 210 LM00249 01722 CLA +0 50000 0 75232 01723 STO +0 60100 0 76124 BOTLIN = TBTLIN 211 LM00250 01724 CLA +0 50000 0 75274 01725 STO +0 60100 0 75304 BOTPAG = TBTPAG 212 LM00251 01726 CLA +0 50000 0 75273 01727 STO +0 60100 0 75231 FUNCTION RETURN 213 LM00252 01730 TRA +0 02000 0 01736 END OF FUNCTION 214 LM00254 01731 TSX +0 07400 4 00002 01732 TXH +3 00000 0 00000 01733 SXD -0 63400 1 01732 01734 SXA +0 63400 4 01736 01735 TRA +0 02000 2 00001 01736 AXT +0 77400 4 00000 01737 LXA +0 53400 2 01732 01740 LXD -0 53400 1 01732 01741 TRA +0 02000 4 00001 END OF FUNCTION 215 LM00258 01742 TSX +0 07400 4 00002 01743 TXH +3 00000 0 00000 01744 SXD -0 63400 1 01743 01745 SXA +0 63400 4 01754 01746 CLA +0 50000 4 00001 01747 STA +0 62100 0 00671 01750 STA +0 62100 0 00713 01751 STA +0 62100 0 00716 01752 STO +0 60100 0 01033 01753 TRA +0 02000 2 00001 01754 AXT +0 77400 4 00000 01755 LXA +0 53400 2 01743 01756 LXD -0 53400 1 01743 01757 TRA +0 02000 4 00001 1 MAD PROGRAM LISTING ... ... ... FILE ADJUST MAD 02/08/68 1244.0 - .. SUBROUTINE TO FILL OUT A LINE WITH BLANKS. LM00001 (TYPE JUSTIFICATION.) LM00002 LM00003 .. J. H. SALTZER, NOVEMBER, 1964 LM00004 LM00005 EXTERNAL FUNCTION (LINE, LENGTH, RMARG, NCHARS) *001 LM00006 LM00007 NORMAL MODE IS INTEGER *002 LM00008 BOOLEAN FIRST, CHR *003 LM00009 VECTOR VALUES BLANK = 0060K *004 LM00010 LM00011 ENTRY TO ADJUST. *005 LM00012 WHENEVER NCHARS .GE. RMARG, FUNCTION RETURN *006 LM00013 LM00014 .. MAKE SURE LINE IS FILLABLE. LM00015 LM00016 CHR = 0B *007 LM00017 FSTCH = 1 *008 LM00018 THROUGH CKSP, FOR I = 1, 1, I .G. LENGTH *009 LM00019 WHENEVER LINE(I) .NE. BLANK .AND. (.NOT.CHR) *010 LM00020 FSTCH = I *011 LM00021 CHR = 1B *012 LM00022 END OF CONDITIONAL *013 LM00023 CKSP WHENEVER LINE(I) .E. BLANK .AND. CHR, TRANSFER TO OK *014 LM00024 FUNCTION RETURN *015 LM00025 LM00026 OK FIRST = 1B *016 LM00027 LM00028 .. SCAN LINE BACKWARDS, INSERT SPACES WHERE THERE ARE SPACES LM00029 LM00030 TMARG = RMARG + LENGTH - NCHARS *017 LM00031 LOOP PNTR = TMARG *018 LM00032 DEL = -1 *019 LM00033 LNOW = LENGTH *020 LM00034 THROUGH BACKLP, FOR J = LENGTH, -1, J .L. FSTCH *021 LM00035 EN1 LINE(PNTR) = LINE(J) *022 LM00036 PNTR = PNTR + DEL *023 LM00037 WHENEVER LINE(J) .E. BLANK .AND. (FIRST .OR. (J/2)*2 .E. J) *024 LM00038 LINE(PNTR) = BLANK *025 LM00039 PNTR = PNTR + DEL *026 LM00040 LENGTH = LENGTH + 1 *027 LM00041 NCHARS = NCHARS + 1 *028 LM00042 WHENEVER NCHARS .GE. RMARG, FUNCTION RETURN *029 LM00043 END OF CONDITIONAL *030 LM00044 BACKLP WHENEVER DEL .G. 0, TRANSFER TO FORLP *031 LM00045 LM00046 .. IF NOTHING WAS ACCOMPLISHED, GIVE UP. LM00047 LM00048 WHENEVER LENGTH .E. LNOW, FUNCTION RETURN *032 LM00049 LM00050 .. NOW SCAN FORWARDS. LM00051 LM00052 FIRST = 0B *033 LM00053 DEL = +1 *034 LM00054 BEGIN = PNTR + 1 *035 LM00055 PNTR = FSTCH *036 LM00056 THROUGH FORLP, FOR J = BEGIN, +1, J .G. TMARG *037 LM00057 TRANSFER TO EN1 *038 LM00058 FORLP CONTINUE *039 LM00059 TRANSFER TO LOOP *040 LM00060 LM00061 .. SUBROUTINE TO CENTER A LINE. LM00062 LM00063 ENTRY TO CENTER. *041 LM00064 WHENEVER NCHARS .GE. RMARG-1, FUNCTION RETURN *042 LM00065 DEL = (RMARG-NCHARS)/2 *043 LM00066 THROUGH CTRLP, FOR I = LENGTH, -1, I .L. 1 *044 LM00067 CTRLP LINE(I+DEL) = LINE(I) *045 LM00068 THROUGH FILLUP, FOR I = 1, 1, I .G. DEL *046 LM00069 FILLUP LINE(I) = BLANK *047 LM00070 LENGTH = LENGTH + DEL *048 LM00071 NCHARS = NCHARS + DEL *049 LM00072 FUNCTION RETURN *050 LM00073 LM00074 END OF FUNCTION *051 LM00075 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00377 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00025 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES CENTER 00233 0 ADJUST 00026 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BACKLP 00001 4 CKSP 00001 4 FILLUP 00001 4 I 00014 1 OK 00005 4 BEGIN 00006 1 CTRLP 00001 4 FIRST 00012 2 J 00015 1 PNTR 00017 1 BLANK 00007 A 1 DEL 00011 1 FORLP 00003 4 LNOW 00016 1 TMARG 00020 1 CHR 00010 2 EN1 00002 4 FSTCH 00013 1 LOOP 00004 4 0FUNCTION DICTIONARY EXIT 00000 1 0ABSOLUTE CONSTANTS 00023 +000000000002 00021 +000000000000 00022 +000000000001 00024 +233000000000 0STATEMENT DICTIONARY 00002 TXL -300130000124 00003 TXL -300231000230 00004 TXL -300106000104 00005 TXL -300100000076 0PROGRAM EXTERNAL FUNCTION (LINE, LENGTH, RMARG, NCHARS) 001 LM00006 NORMAL MODE IS INTEGER 002 LM00008 BOOLEAN FIRST, CHR 003 LM00009 VECTOR VALUES BLANK = 0060K 004 LM00010 00007 +0 00000 0 00060 ENTRY TO ADJUST. 005 LM00012 00025 TRA +0 02000 0 00030 00026 SXA +0 63400 2 00320 00027 TSX +0 07400 2 00320 WHENEVER NCHARS .GE. RMARG, FUNCTION RETURN 006 LM00013 00030 CLA +0 50000 0 00024 00031 SUB +0 40200 0 00024 00032 TZE +0 10000 0 00034 00033 TMI -0 12000 0 00035 00034 TRA +0 02000 0 00371 CHR = 0B 007 LM00017 00035 CLA +0 50000 0 00021 00036 STO +0 60100 0 00010 FSTCH = 1 008 LM00018 00037 CLA +0 50000 0 00022 00040 STO +0 60100 0 00013 THROUGH CKSP, FOR I = 1, 1, I .G. LENGTH 009 LM00019 00041 CLA +0 50000 0 00022 00042 STO +0 60100 0 00014 00043 TRA +0 02000 0 00047 00044 CLA +0 50000 0 00014 00045 ADD +0 40000 0 00022 00046 STO +0 60100 0 00014 00047 CLA +0 50000 0 00014 00050 SUB +0 40200 0 00024 00051 TZE +0 10000 0 00053 00052 TPL +0 12000 0 00075 WHENEVER LINE(I) .NE. BLANK .AND. (.NOT.CHR) 010 LM00020 00053 ZET +0 52000 0 00010 00054 TRA +0 02000 0 00065 00055 LXA +0 53400 1 00014 00056 CLA +0 50000 1 00024 00057 SUB +0 40200 0 00007 00060 TZE +0 10000 0 00065 FSTCH = I 011 LM00021 00061 CLA +0 50000 0 00014 00062 STO +0 60100 0 00013 CHR = 1B 012 LM00022 00063 CLA +0 50000 0 00022 00064 STO +0 60100 0 00010 END OF CONDITIONAL 013 LM00023 CKSP WHENEVER LINE(I) .E. BLANK .AND. CHR, TRANSFER TO OK 014 LM00024 00065 NZT -0 52000 0 00010 00066 TRA +0 02000 0 00074 00067 LXA +0 53400 1 00014 00070 CLA +0 50000 1 00024 00071 SUB +0 40200 0 00007 00072 TNZ -0 10000 0 00074 00073 TRA +0 02000 0 00005 00074 TRA +0 02000 0 00044 FUNCTION RETURN 015 LM00025 00075 TRA +0 02000 0 00371 OK FIRST = 1B 016 LM00027 00076 CLA +0 50000 0 00022 00077 STO +0 60100 0 00012 TMARG = RMARG + LENGTH - NCHARS 017 LM00031 00100 CLA +0 50000 0 00024 00101 ADD +0 40000 0 00024 00102 SUB +0 40200 0 00024 00103 STO +0 60100 0 00020 LOOP PNTR = TMARG 018 LM00032 00104 CLA +0 50000 0 00020 00105 STO +0 60100 0 00017 DEL = -1 019 LM00033 00106 CLS +0 50200 0 00022 00107 STO +0 60100 0 00011 LNOW = LENGTH 020 LM00034 00110 CLA +0 50000 0 00024 00111 STO +0 60100 0 00016 THROUGH BACKLP, FOR J = LENGTH, -1, J .L. FSTCH 021 LM00035 00112 CLA +0 50000 0 00024 00113 STO +0 60100 0 00015 00114 TRA +0 02000 0 00120 00115 CLS +0 50200 0 00022 00116 ADD +0 40000 0 00015 00117 STO +0 60100 0 00015 00120 CLA +0 50000 0 00015 00121 SUB +0 40200 0 00013 00122 TZE +0 10000 0 00124 00123 TMI -0 12000 0 00200 EN1 LINE(PNTR) = LINE(J) 022 LM00036 00124 LXA +0 53400 1 00017 00125 LXA +0 53400 2 00015 00126 CLA +0 50000 2 00024 00127 STO +0 60100 1 00024 PNTR = PNTR + DEL 023 LM00037 00130 CLA +0 50000 0 00017 00131 ADD +0 40000 0 00011 00132 STO +0 60100 0 00017 WHENEVER LINE(J) .E. BLANK .AND. (FIRST .OR. (J/2)*2 .E. J) 024 LM00038 00133 LDQ +0 56000 0 00015 00134 PXD -0 75400 0 00000 00135 LLS +0 76300 0 00000 00136 DVP +0 22100 0 00023 00137 MPY +0 20000 0 00023 00140 XCA +0 13100 0 00000 00141 SUB +0 40200 0 00015 00142 TZE +0 10000 0 00145 00143 NZT -0 52000 0 00012 00144 TRA +0 02000 0 00172 00145 LXA +0 53400 1 00015 00146 CLA +0 50000 1 00024 00147 SUB +0 40200 0 00007 00150 TNZ -0 10000 0 00172 LINE(PNTR) = BLANK 025 LM00039 00151 LXA +0 53400 1 00017 00152 CLA +0 50000 0 00007 00153 STO +0 60100 1 00024 PNTR = PNTR + DEL 026 LM00040 00154 CLA +0 50000 0 00017 00155 ADD +0 40000 0 00011 00156 STO +0 60100 0 00017 LENGTH = LENGTH + 1 027 LM00041 00157 CLA +0 50000 0 00024 00160 ADD +0 40000 0 00022 00161 STO +0 60100 0 00024 NCHARS = NCHARS + 1 028 LM00042 00162 CLA +0 50000 0 00024 00163 ADD +0 40000 0 00022 00164 STO +0 60100 0 00024 WHENEVER NCHARS .GE. RMARG, FUNCTION RETURN 029 LM00043 00165 CLA +0 50000 0 00024 00166 SUB +0 40200 0 00024 00167 TZE +0 10000 0 00171 00170 TMI -0 12000 0 00172 00171 TRA +0 02000 0 00371 END OF CONDITIONAL 030 LM00044 BACKLP WHENEVER DEL .G. 0, TRANSFER TO FORLP 031 LM00045 00172 CLA +0 50000 0 00011 00173 SUB +0 40200 0 00021 00174 TZE +0 10000 0 00177 00175 TMI -0 12000 0 00177 00176 TRA +0 02000 0 00003 00177 TRA +0 02000 0 00115 WHENEVER LENGTH .E. LNOW, FUNCTION RETURN 032 LM00049 00200 CLA +0 50000 0 00024 00201 SUB +0 40200 0 00016 00202 TNZ -0 10000 0 00204 00203 TRA +0 02000 0 00371 FIRST = 0B 033 LM00053 00204 CLA +0 50000 0 00021 00205 STO +0 60100 0 00012 DEL = +1 034 LM00054 00206 CLA +0 50000 0 00022 00207 STO +0 60100 0 00011 BEGIN = PNTR + 1 035 LM00055 00210 CLA +0 50000 0 00017 00211 ADD +0 40000 0 00022 00212 STO +0 60100 0 00006 PNTR = FSTCH 036 LM00056 00213 CLA +0 50000 0 00013 00214 STO +0 60100 0 00017 THROUGH FORLP, FOR J = BEGIN, +1, J .G. TMARG 037 LM00057 00215 CLA +0 50000 0 00006 00216 STO +0 60100 0 00015 00217 TRA +0 02000 0 00223 00220 CLA +0 50000 0 00015 00221 ADD +0 40000 0 00022 00222 STO +0 60100 0 00015 00223 CLA +0 50000 0 00015 00224 SUB +0 40200 0 00020 00225 TZE +0 10000 0 00227 00226 TPL +0 12000 0 00231 TRANSFER TO EN1 038 LM00058 00227 TRA +0 02000 0 00002 FORLP CONTINUE 039 LM00059 00230 TRA +0 02000 0 00220 TRANSFER TO LOOP 040 LM00060 00231 TRA +0 02000 0 00004 ENTRY TO CENTER. 041 LM00064 00232 TRA +0 02000 0 00235 00233 SXA +0 63400 2 00320 00234 TSX +0 07400 2 00320 WHENEVER NCHARS .GE. RMARG-1, FUNCTION RETURN 042 LM00065 00235 CLA +0 50000 0 00024 00236 SUB +0 40200 0 00022 00237 CHS +0 76000 0 00002 00240 ADD +0 40000 0 00024 00241 TZE +0 10000 0 00243 00242 TMI -0 12000 0 00244 00243 TRA +0 02000 0 00371 DEL = (RMARG-NCHARS)/2 043 LM00066 00244 CLA +0 50000 0 00024 00245 SUB +0 40200 0 00024 00246 LRS +0 76500 0 00043 00247 DVP +0 22100 0 00023 00250 STQ -0 60000 0 00011 THROUGH CTRLP, FOR I = LENGTH, -1, I .L. 1 044 LM00067 00251 CLA +0 50000 0 00024 00252 STO +0 60100 0 00014 00253 TRA +0 02000 0 00257 00254 CLS +0 50200 0 00022 00255 ADD +0 40000 0 00014 00256 STO +0 60100 0 00014 00257 CLA +0 50000 0 00014 00260 SUB +0 40200 0 00022 00261 TZE +0 10000 0 00263 00262 TMI -0 12000 0 00272 CTRLP LINE(I+DEL) = LINE(I) 045 LM00068 00263 CLA +0 50000 0 00014 00264 ADD +0 40000 0 00011 00265 PAX +0 73400 1 00000 00266 LXA +0 53400 2 00014 00267 CLA +0 50000 2 00024 00270 STO +0 60100 1 00024 00271 TRA +0 02000 0 00254 THROUGH FILLUP, FOR I = 1, 1, I .G. DEL 046 LM00069 00272 CLA +0 50000 0 00022 00273 STO +0 60100 0 00014 00274 TRA +0 02000 0 00300 00275 CLA +0 50000 0 00014 00276 ADD +0 40000 0 00022 00277 STO +0 60100 0 00014 00300 CLA +0 50000 0 00014 00301 SUB +0 40200 0 00011 00302 TZE +0 10000 0 00304 00303 TPL +0 12000 0 00310 FILLUP LINE(I) = BLANK 047 LM00070 00304 LXA +0 53400 1 00014 00305 CLA +0 50000 0 00007 00306 STO +0 60100 1 00024 00307 TRA +0 02000 0 00275 LENGTH = LENGTH + DEL 048 LM00071 00310 CLA +0 50000 0 00024 00311 ADD +0 40000 0 00011 00312 STO +0 60100 0 00024 NCHARS = NCHARS + DEL 049 LM00072 00313 CLA +0 50000 0 00024 00314 ADD +0 40000 0 00011 00315 STO +0 60100 0 00024 FUNCTION RETURN 050 LM00073 00316 TRA +0 02000 0 00371 END OF FUNCTION 051 LM00075 00317 TSX +0 07400 4 00000 00320 TXH +3 00000 0 00000 00321 SXD -0 63400 1 00320 00322 SXA +0 63400 4 00371 00323 CLA +0 50000 4 00001 00324 STA +0 62100 0 00056 00325 STA +0 62100 0 00070 00326 STA +0 62100 0 00126 00327 STA +0 62100 0 00127 00330 STA +0 62100 0 00146 00331 STA +0 62100 0 00153 00332 STA +0 62100 0 00267 00333 STA +0 62100 0 00270 00334 STA +0 62100 0 00306 00335 CLA +0 50000 4 00002 00336 STA +0 62100 0 00050 00337 STA +0 62100 0 00101 00340 STA +0 62100 0 00110 00341 STA +0 62100 0 00112 00342 STA +0 62100 0 00157 00343 STA +0 62100 0 00161 00344 STA +0 62100 0 00200 00345 STA +0 62100 0 00251 00346 STA +0 62100 0 00310 00347 STA +0 62100 0 00312 00350 CLA +0 50000 4 00003 00351 STA +0 62100 0 00031 00352 STA +0 62100 0 00100 00353 STA +0 62100 0 00166 00354 STA +0 62100 0 00235 00355 STA +0 62100 0 00244 00356 CLA +0 50000 4 00004 00357 STA +0 62100 0 00030 00360 STA +0 62100 0 00102 00361 STA +0 62100 0 00162 00362 STA +0 62100 0 00164 00363 STA +0 62100 0 00165 00364 STA +0 62100 0 00240 00365 STA +0 62100 0 00245 00366 STA +0 62100 0 00313 00367 STA +0 62100 0 00315 00370 TRA +0 02000 2 00001 00371 AXT +0 77400 4 00000 00372 LXA +0 53400 2 00320 00373 LXD -0 53400 1 00320 00374 TRA +0 02000 4 00001 1 MAD PROGRAM LISTING ... ... ... FILE HDFT MAD 02/08/68 1244.5 - .. ROUTINE TO SET UP HEADER AND FOOTER HFLINES. LM00001 .. LM00002 .. J. H. SALTZER, DECEMBER, 1965 LM00003 LM00004 EXTERNAL FUNCTION(HFLINE, HFLTH) *001 LM00005 LM00006 NORMAL MODE IS INTEGER *002 LM00007 BOOLEAN EVENPG *003 LM00008 VECTOR VALUES BLANK = 0060K *004 LM00009 INSERT FILE RCOM *005 LM00010 *005 LM00001 .. RUNOFF COMMON PACKAGE. *005 LM00002 *005 LM00003 NORMAL MODE IS INTEGER *006 LM00004 LM00005 PROGRAM COMMON NOSTOP, NOWAIT, FSTPAG, PRINAM, OUTFIL *007 LM00006 PROGRAM COMMON HDLTH, HEAD(360), HDPOS *008 LM00007 PROGRAM COMMON LINE(360) *009 LM00008 PROGRAM COMMON PGE, PAGENO, PGPOS, FTSW, PGMOD *010 LM00009 PROGRAM COMMON PREFIX(25), PRLTH *011 LM00010 PROGRAM COMMON RMARG *012 LM00011 PROGRAM COMMON WRD, SIZE, COUNT, WORD(360) *013 LM00012 PROGRAM COMMON BEGIN, FILL, ADJST, NCHARS, LENGTH *014 LM00013 PROGRAM COMMON LMARG, LINECT, BOTLIN, CNTR, FILSW *015 LM00014 PROGRAM COMMON FLAGSW, DBLSPC, HEDPGE, PIX *016 LM00015 PROGRAM COMMON MROW, TBTLIN, TBTPAG *017 LM00016 PROGRAM COMMON TPGPOS, TFTSW, TPGE, TPRF(25) *018 LM00017 PROGRAM COMMON TPRLTH, THDPOS, TPAGNO, TPGMOD *019 LM00018 PROGRAM COMMON BOTPAG, FLAG(3) *020 LM00019 PROGRAM COMMON BLANK, BCKSPC, RETURN(3) *021 LM00020 PROGRAM COMMON TAB, PERIOD, QUES, EXCLAM *022 LM00021 PROGRAM COMMON COLON, HYPHEN, NULL *023 LM00022 LM00023 BOOLEAN NOSTOP, NOWAIT, FTSW, PGE, OUTFIL *024 LM00024 BOOLEAN ADJST *025 LM00025 BOOLEAN WRD, FILL, BEGIN, CNTR, FILSW, FLAGSW *026 LM00026 BOOLEAN DBLSPC, HEDPGE, PIX, TPGE, TFTSW *027 LM00027 LM00028 .. END OF RUNOFF COMMON PACKAGE LM00029 LM00030 *005 LM00011 ENTRY TO SETHD. *028 LM00012 I = 1 *029 LM00013 HFLTH = 0 *030 LM00014 EVENPG = (PAGENO/2)*2 .E. PAGENO *031 LM00015 WHENEVER HDLTH .E. 0, TRANSFER TO PAGET *032 LM00016 LM00017 .. SET Z TO POSITION OF HEADER. LM00018 LM00019 WHENEVER HDPOS .E. $CENTER$ *033 LM00020 Z = (RMARG - HDLTH) / 2 *034 LM00021 OR WHENEVER HDPOS .E. $FACING$ .AND. EVENPG *035 LM00022 Z = 0 *036 LM00023 OR WHENEVER HDPOS .E. $MARGIN$ .OR. HDPOS .E. $FACING$ *037 LM00024 Z = RMARG - HDLTH *038 LM00025 OR WHENEVER HDPOS .E. $PPOSED$ *039 LM00026 WHENEVER EVENPG .AND. PGPOS .E. $FACING$ *040 LM00027 Z = RMARG - HDLTH *041 LM00028 OTHERWISE *042 LM00029 Z = 0 *043 LM00030 END OF CONDITIONAL *044 LM00031 END OF CONDITIONAL *045 LM00032 LM00033 .. PACK BLANKS AHEAD OF THE HEADER. LM00034 LM00035 THROUGH PADHD, FOR I = 1, 1, I .G. Z *046 LM00036 PADHD HFLINE(I) = BLANK *047 LM00037 LM00038 .. NOW INSERT THE HEADER. LM00039 LM00040 THROUGH INHEAD, FOR I = Z+1, 1, I .G. (Z+HDLTH) *048 LM00041 INHEAD HFLINE(I) = HEAD(I-Z) *049 LM00042 HFLTH = I-1 *050 LM00043 LM00044 .. GO GET THE PAGE NUMBER, IF ANY. LM00045 LM00046 PAGET WHENEVER .NOT.FTSW, TRANSFER TO FOOT *051 LM00047 FUNCTION RETURN *052 LM00048 LM00049 ENTRY TO SETFT. *053 LM00050 HFLTH = 0 *054 LM00051 WHENEVER .NOT.FTSW, FUNCTION RETURN *055 LM00052 I = 1 *056 LM00053 EVENPG = (PAGENO/2)*2 .NE. PAGENO *057 LM00054 LM00055 FOOT WHENEVER .NOT. PGE, FUNCTION RETURN *058 LM00056 NMLTH = NUMCON.(PAGENO, PREFIX(PRLTH), PGMOD) + PRLTH *059 LM00057 LM00058 .. SET Z TO POSITION OF PAGE NUMBER. LM00059 LM00060 WHENEVER PGPOS .E. $CENTER$ *060 LM00061 Z = (RMARG-NMLTH)/2 *061 LM00062 OR WHENEVER PGPOS .E. $FACING$ .AND. EVENPG *062 LM00063 Z = 0 *063 LM00064 OTHERWISE *064 LM00065 Z = RMARG - NMLTH *065 LM00066 END OF CONDITIONAL *066 LM00067 LM00068 .. PACK BLANKS IF NOT ALREADY THERE. LM00069 LM00070 THROUGH PADFT, FOR I = I, 1, I .G. Z *067 LM00071 PADFT HFLINE(I) = BLANK *068 LM00072 LM00073 .. INSERT PAGE NUMBER. LM00074 LM00075 THROUGH INPAGE, FOR I = Z+1, 1, I .G. (Z+NMLTH) *069 LM00076 INPAGE HFLINE(I) = PREFIX(I-Z) *070 LM00077 LM00078 WHENEVER HFLTH .L. I-1, HFLTH = I-1 *071 LM00079 FUNCTION RETURN *072 LM00080 LM00081 END OF FUNCTION *073 LM00082 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00363 TRANSFER VECTOR LENGTH 00002 PROGRAM BEGINS 00021 FIRST UNUSED COMMON/ERASABLE 75207 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES SETFT 00173 0 SETHD 00022 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ADJST 75311 C2 FLAG 75230 AC1 LINECT 75305 C1 PERIOD 75215 C1 TBTLIN 75274 C1 BCKSPC 75223 C1 FLAGSW 75301 C2 LINE 76701 AC1 PGE 76130 C2 TBTPAG 75273 C1 BEGIN 75313 C2 FOOT 00003 4 LMARG 75306 C1 PGMOD 76124 C1 TFTSW 75271 C2 BLANK 75224 AC1 FSTPAG 77457 C1 MROW 75275 C1 PGPOS 76126 C1 THDPOS 75234 C1 BOTLIN 75304 C1 FTSW 76125 C2 NCHARS 75310 C1 PIX 75276 C2 TPAGNO 75233 C1 BOTPAG 75231 C1 HDLTH 77454 C1 NMLTH 00007 1 PREFIX 76123 AC1 TPGE 75270 C2 CNTR 75303 C2 HDPOS 76702 C1 NOSTOP 77461 C2 PRINAM 77456 C1 TPGMOD 75232 C1 COLON 75212 C1 HEAD 77453 AC1 NOWAIT 77460 C2 PRLTH 76071 C1 TPGPOS 75272 C1 COUNT 76065 C1 HEDPGE 75277 C2 NULL 75210 C1 QUES 75214 C1 TPRF 75267 AC1 DBLSPC 75300 C2 HYPHEN 75211 C1 OUTFIL 77455 C2 RETURN 75222 AC1 TPRLTH 75235 C1 EVENPG 00005 2 INHEAD 00002 4 PADFT 00002 4 RMARG 76070 C1 WORD 76064 AC1 EXCLAM 75213 C1 INPAGE 00002 4 PADHD 00002 4 SIZE 76066 C1 WRD 76067 C2 FILL 75312 C2 I 00006 1 PAGENO 76127 C1 TAB 75216 C1 Z 00010 1 FILSW 75302 C2 LENGTH 75307 C1 PAGET 00004 4 0FUNCTION DICTIONARY EXIT 00000 1 NUMCON 00001 1 0ABSOLUTE CONSTANTS 00020 -074746622524 00017 -042151273145 00016 +262123314527 00014 +232545632551 00013 +000000000002 00011 +000000000000 00012 +000000000001 00015 +233000000000 0STATEMENT DICTIONARY 00003 TXL -300223000220 00004 TXL -300171000166 0PROGRAM EXTERNAL FUNCTION(HFLINE, HFLTH) 001 LM00005 NORMAL MODE IS INTEGER 002 LM00007 BOOLEAN EVENPG 003 LM00008 VECTOR VALUES BLANK = 0060K 004 LM00009 75224 +0 00000 0 00060 INSERT FILE RCOM 005 LM00010 NORMAL MODE IS INTEGER 006 LM00004 PROGRAM COMMON NOSTOP, NOWAIT, FSTPAG, PRINAM, OUTFIL 007 LM00006 PROGRAM COMMON HDLTH, HEAD(360), HDPOS 008 LM00007 PROGRAM COMMON LINE(360) 009 LM00008 PROGRAM COMMON PGE, PAGENO, PGPOS, FTSW, PGMOD 010 LM00009 PROGRAM COMMON PREFIX(25), PRLTH 011 LM00010 PROGRAM COMMON RMARG 012 LM00011 PROGRAM COMMON WRD, SIZE, COUNT, WORD(360) 013 LM00012 PROGRAM COMMON BEGIN, FILL, ADJST, NCHARS, LENGTH 014 LM00013 PROGRAM COMMON LMARG, LINECT, BOTLIN, CNTR, FILSW 015 LM00014 PROGRAM COMMON FLAGSW, DBLSPC, HEDPGE, PIX 016 LM00015 PROGRAM COMMON MROW, TBTLIN, TBTPAG 017 LM00016 PROGRAM COMMON TPGPOS, TFTSW, TPGE, TPRF(25) 018 LM00017 PROGRAM COMMON TPRLTH, THDPOS, TPAGNO, TPGMOD 019 LM00018 PROGRAM COMMON BOTPAG, FLAG(3) 020 LM00019 PROGRAM COMMON BLANK, BCKSPC, RETURN(3) 021 LM00020 PROGRAM COMMON TAB, PERIOD, QUES, EXCLAM 022 LM00021 PROGRAM COMMON COLON, HYPHEN, NULL 023 LM00022 BOOLEAN NOSTOP, NOWAIT, FTSW, PGE, OUTFIL 024 LM00024 BOOLEAN ADJST 025 LM00025 BOOLEAN WRD, FILL, BEGIN, CNTR, FILSW, FLAGSW 026 LM00026 BOOLEAN DBLSPC, HEDPGE, PIX, TPGE, TFTSW 027 LM00027 ENTRY TO SETHD. 028 LM00012 00021 TRA +0 02000 0 00024 00022 SXA +0 63400 2 00336 00023 TSX +0 07400 2 00336 I = 1 029 LM00013 00024 CLA +0 50000 0 00012 00025 STO +0 60100 0 00006 HFLTH = 0 030 LM00014 00026 CLA +0 50000 0 00011 00027 STO +0 60100 0 00000 EVENPG = (PAGENO/2)*2 .E. PAGENO 031 LM00015 00030 LDQ +0 56000 0 76127 00031 PXD -0 75400 0 00000 00032 LLS +0 76300 0 00000 00033 DVP +0 22100 0 00013 00034 MPY +0 20000 0 00013 00035 XCA +0 13100 0 00000 00036 SUB +0 40200 0 76127 00037 TZE +0 10000 0 00042 00040 PXD -0 75400 0 00000 00041 TRA +0 02000 0 00043 00042 CLA +0 50000 0 00012 00043 STO +0 60100 0 00005 WHENEVER HDLTH .E. 0, TRANSFER TO PAGET 032 LM00016 00044 CLA +0 50000 0 77454 00045 SUB +0 40200 0 00011 00046 TNZ -0 10000 0 00050 00047 TRA +0 02000 0 00004 WHENEVER HDPOS .E. $CENTER$ 033 LM00020 00050 CLA +0 50000 0 76702 00051 SUB +0 40200 0 00014 00052 TNZ -0 10000 0 00061 Z = (RMARG - HDLTH) / 2 034 LM00021 00053 CLA +0 50000 0 76070 00054 SUB +0 40200 0 77454 00055 LRS +0 76500 0 00043 00056 DVP +0 22100 0 00013 00057 STQ -0 60000 0 00010 OR WHENEVER HDPOS .E. $FACING$ .AND. EVENPG 035 LM00022 00060 TRA +0 02000 0 00121 00061 NZT -0 52000 0 00005 00062 TRA +0 02000 0 00071 00063 CLA +0 50000 0 76702 00064 SUB +0 40200 0 00016 00065 TNZ -0 10000 0 00071 Z = 0 036 LM00023 00066 CLA +0 50000 0 00011 00067 STO +0 60100 0 00010 OR WHENEVER HDPOS .E. $MARGIN$ .OR. HDPOS .E. $FACING$ 037 LM00024 00070 TRA +0 02000 0 00121 00071 CLA +0 50000 0 76702 00072 SUB +0 40200 0 00016 00073 TZE +0 10000 0 00077 00074 CLA +0 50000 0 76702 00075 SUB +0 40200 0 00017 00076 TNZ -0 10000 0 00103 Z = RMARG - HDLTH 038 LM00025 00077 CLA +0 50000 0 76070 00100 SUB +0 40200 0 77454 00101 STO +0 60100 0 00010 OR WHENEVER HDPOS .E. $PPOSED$ 039 LM00026 00102 TRA +0 02000 0 00121 00103 CLA +0 50000 0 76702 00104 SUB +0 40200 0 00020 00105 TNZ -0 10000 0 00121 WHENEVER EVENPG .AND. PGPOS .E. $FACING$ 040 LM00027 00106 CLA +0 50000 0 76126 00107 SUB +0 40200 0 00016 00110 TNZ -0 10000 0 00117 00111 NZT -0 52000 0 00005 00112 TRA +0 02000 0 00117 Z = RMARG - HDLTH 041 LM00028 00113 CLA +0 50000 0 76070 00114 SUB +0 40200 0 77454 00115 STO +0 60100 0 00010 OTHERWISE 042 LM00029 00116 TRA +0 02000 0 00121 Z = 0 043 LM00030 00117 CLA +0 50000 0 00011 00120 STO +0 60100 0 00010 END OF CONDITIONAL 044 LM00031 END OF CONDITIONAL 045 LM00032 THROUGH PADHD, FOR I = 1, 1, I .G. Z 046 LM00036 00121 CLA +0 50000 0 00012 00122 STO +0 60100 0 00006 00123 TRA +0 02000 0 00127 00124 CLA +0 50000 0 00006 00125 ADD +0 40000 0 00012 00126 STO +0 60100 0 00006 00127 CLA +0 50000 0 00006 00130 SUB +0 40200 0 00010 00131 TZE +0 10000 0 00133 00132 TPL +0 12000 0 00137 PADHD HFLINE(I) = BLANK 047 LM00037 00133 LXA +0 53400 1 00006 00134 CLA +0 50000 0 75224 00135 STO +0 60100 1 00000 00136 TRA +0 02000 0 00124 THROUGH INHEAD, FOR I = Z+1, 1, I .G. (Z+HDLTH) 048 LM00041 00137 CLA +0 50000 0 00010 00140 ADD +0 40000 0 00012 00141 STO +0 60100 0 00006 00142 TRA +0 02000 0 00146 00143 CLA +0 50000 0 00006 00144 ADD +0 40000 0 00012 00145 STO +0 60100 0 00006 00146 CLA +0 50000 0 00010 00147 ADD +0 40000 0 77454 00150 CHS +0 76000 0 00002 00151 ADD +0 40000 0 00006 00152 TZE +0 10000 0 00154 00153 TPL +0 12000 0 00163 INHEAD HFLINE(I) = HEAD(I-Z) 049 LM00042 00154 CLA +0 50000 0 00006 00155 SUB +0 40200 0 00010 00156 LXA +0 53400 1 00006 00157 PAX +0 73400 2 00000 00160 CLA +0 50000 2 77453 00161 STO +0 60100 1 00000 00162 TRA +0 02000 0 00143 HFLTH = I-1 050 LM00043 00163 CLA +0 50000 0 00006 00164 SUB +0 40200 0 00012 00165 STO +0 60100 0 00000 PAGET WHENEVER .NOT.FTSW, TRANSFER TO FOOT 051 LM00047 00166 ZET +0 52000 0 76125 00167 TRA +0 02000 0 00171 00170 TRA +0 02000 0 00003 FUNCTION RETURN 052 LM00048 00171 TRA +0 02000 0 00355 ENTRY TO SETFT. 053 LM00050 00172 TRA +0 02000 0 00175 00173 SXA +0 63400 2 00336 00174 TSX +0 07400 2 00336 HFLTH = 0 054 LM00051 00175 CLA +0 50000 0 00011 00176 STO +0 60100 0 00000 WHENEVER .NOT.FTSW, FUNCTION RETURN 055 LM00052 00177 ZET +0 52000 0 76125 00200 TRA +0 02000 0 00202 00201 TRA +0 02000 0 00355 I = 1 056 LM00053 00202 CLA +0 50000 0 00012 00203 STO +0 60100 0 00006 EVENPG = (PAGENO/2)*2 .NE. PAGENO 057 LM00054 00204 LDQ +0 56000 0 76127 00205 PXD -0 75400 0 00000 00206 LLS +0 76300 0 00000 00207 DVP +0 22100 0 00013 00210 MPY +0 20000 0 00013 00211 XCA +0 13100 0 00000 00212 SUB +0 40200 0 76127 00213 TNZ -0 10000 0 00216 00214 PXD -0 75400 0 00000 00215 TRA +0 02000 0 00217 00216 CLA +0 50000 0 00012 00217 STO +0 60100 0 00005 FOOT WHENEVER .NOT. PGE, FUNCTION RETURN 058 LM00056 00220 ZET +0 52000 0 76130 00221 TRA +0 02000 0 00223 00222 TRA +0 02000 0 00355 NMLTH = NUMCON.(PAGENO, PREFIX(PRLTH), PGMOD) + PRLTH 059 LM00057 00223 CLA +0 50000 0 76071 00224 SUB +0 40200 0 00225 00225 TXH +3 00000 0 76123 00226 STA +0 62100 0 00231 00227 TSX +0 07400 4 00001 00230 TXH +3 00000 0 76127 00231 TXH +3 00000 0 00000 00232 TXH +3 00000 0 76124 00233 ADD +0 40000 0 76071 00234 STO +0 60100 0 00007 WHENEVER PGPOS .E. $CENTER$ 060 LM00061 00235 CLA +0 50000 0 76126 00236 SUB +0 40200 0 00014 00237 TNZ -0 10000 0 00246 Z = (RMARG-NMLTH)/2 061 LM00062 00240 CLA +0 50000 0 76070 00241 SUB +0 40200 0 00007 00242 LRS +0 76500 0 00043 00243 DVP +0 22100 0 00013 00244 STQ -0 60000 0 00010 OR WHENEVER PGPOS .E. $FACING$ .AND. EVENPG 062 LM00063 00245 TRA +0 02000 0 00261 00246 NZT -0 52000 0 00005 00247 TRA +0 02000 0 00256 00250 CLA +0 50000 0 76126 00251 SUB +0 40200 0 00016 00252 TNZ -0 10000 0 00256 Z = 0 063 LM00064 00253 CLA +0 50000 0 00011 00254 STO +0 60100 0 00010 OTHERWISE 064 LM00065 00255 TRA +0 02000 0 00261 Z = RMARG - NMLTH 065 LM00066 00256 CLA +0 50000 0 76070 00257 SUB +0 40200 0 00007 00260 STO +0 60100 0 00010 END OF CONDITIONAL 066 LM00067 THROUGH PADFT, FOR I = I, 1, I .G. Z 067 LM00071 00261 CLA +0 50000 0 00006 00262 STO +0 60100 0 00006 00263 TRA +0 02000 0 00267 00264 CLA +0 50000 0 00006 00265 ADD +0 40000 0 00012 00266 STO +0 60100 0 00006 00267 CLA +0 50000 0 00006 00270 SUB +0 40200 0 00010 00271 TZE +0 10000 0 00273 00272 TPL +0 12000 0 00277 PADFT HFLINE(I) = BLANK 068 LM00072 00273 LXA +0 53400 1 00006 00274 CLA +0 50000 0 75224 00275 STO +0 60100 1 00000 00276 TRA +0 02000 0 00264 THROUGH INPAGE, FOR I = Z+1, 1, I .G. (Z+NMLTH) 069 LM00076 00277 CLA +0 50000 0 00010 00300 ADD +0 40000 0 00012 00301 STO +0 60100 0 00006 00302 TRA +0 02000 0 00306 00303 CLA +0 50000 0 00006 00304 ADD +0 40000 0 00012 00305 STO +0 60100 0 00006 00306 CLA +0 50000 0 00010 00307 ADD +0 40000 0 00007 00310 CHS +0 76000 0 00002 00311 ADD +0 40000 0 00006 00312 TZE +0 10000 0 00314 00313 TPL +0 12000 0 00323 INPAGE HFLINE(I) = PREFIX(I-Z) 070 LM00077 00314 CLA +0 50000 0 00006 00315 SUB +0 40200 0 00010 00316 LXA +0 53400 1 00006 00317 PAX +0 73400 2 00000 00320 CLA +0 50000 2 76123 00321 STO +0 60100 1 00000 00322 TRA +0 02000 0 00303 WHENEVER HFLTH .L. I-1, HFLTH = I-1 071 LM00079 00323 CLA +0 50000 0 00006 00324 SUB +0 40200 0 00012 00325 CHS +0 76000 0 00002 00326 ADD +0 40000 0 00000 00327 TZE +0 10000 0 00334 00330 TPL +0 12000 0 00334 00331 CLA +0 50000 0 00006 00332 SUB +0 40200 0 00012 00333 STO +0 60100 0 00000 FUNCTION RETURN 072 LM00080 00334 TRA +0 02000 0 00355 END OF FUNCTION 073 LM00082 00335 TSX +0 07400 4 00000 00336 TXH +3 00000 0 00000 00337 SXD -0 63400 1 00336 00340 SXA +0 63400 4 00355 00341 CLA +0 50000 4 00001 00342 STA +0 62100 0 00135 00343 STA +0 62100 0 00161 00344 STA +0 62100 0 00275 00345 STA +0 62100 0 00321 00346 CLA +0 50000 4 00002 00347 STA +0 62100 0 00027 00350 STA +0 62100 0 00165 00351 STA +0 62100 0 00176 00352 STA +0 62100 0 00326 00353 STA +0 62100 0 00333 00354 TRA +0 02000 2 00001 00355 AXT +0 77400 4 00000 00356 LXA +0 53400 2 00336 00357 LXD -0 53400 1 00336 00360 TRA +0 02000 4 00001 1 MAD PROGRAM LISTING ... ... ... FILE NUMCON MAD 02/08/68 1245.5 - .. BINARY NUMBER TO CHARACTER STRING CONVERSION. LM00001 LM00002 .. CALLING SEQUENCE... LM00003 .. Z = NUMCON.(INT, LOC, MODE) LM00004 WHERE LM00005 .. INT IS THE NUMBER TO BE CONVERTED LM00006 .. LOC(1) IS FIRST LOCATION TO RECEIVE OUTPUT. LM00007 MODE IS ARABIC FOR ARABIC LM00008 ROMANU FOR UPPER CASE ROMAN LM00009 ROMANL FOR LOWER CASE ROMAN. LM00010 .. Z IS LENGTH OF OUTPUT STRING. LM00011 LM00012 EXTERNAL FUNCTION(INT, LOC, MODE) *001 LM00013 LM00014 NORMAL MODE IS INTEGER *002 LM00015 VECTOR VALUES PLACE(1) = $00000I$, $00000V$, $00000X$, *003 LM00016 1 $00000L$, $00000C$, $00000D$, $00000M$ *003 LM00017 VECTOR VALUES NMODES = 3 *004 LM00018 VECTOR VALUES XMODE(1) = $ARABIC$,$ROMANU$,$ROMANL$ *005 LM00019 VECTOR VALUES CONV(1) = ARABIC, ROMANU, ROMANL *006 LM00020 DIMENSION OBUF(16) *007 LM00021 LM00022 ENTRY TO NUMCON. *008 LM00023 Q = 0 *009 LM00024 K = INT *010 LM00025 CASEBT = 0 *011 LM00026 THROUGH DSPTCH, FOR I = 1, 1, I .G. NMODES *012 LM00027 DSPTCH WHENEVER XMODE(I) .E. MODE, TRANSFER TO CONV(I) *013 LM00028 FUNCTION RETURN *014 LM00029 LM00030 . . . . .. CONVERT TO ARABIC NUMBERS . . . . . . LM00031 LM00032 ARABIC OUT.(K - (K/10)*10) *015 LM00033 K = K/10 *016 LM00034 WHENEVER K .G. 0, TRANSFER TO ARABIC *017 LM00035 TRANSFER TO DONE *018 LM00036 LM00037 . . . . .. CONVERT TO ROMAN NUMERALS . . . . . . LM00038 LM00039 ROMANL CASEBT = $000010$ *019 LM00040 LM00041 ROMANU THROUGH SCAN, FOR J = 1, 2, K .E. 0 *020 LM00042 R1 = K-(K/5)*5 *021 LM00043 K = K/5 *022 LM00044 R2 = K-(K/2)*2 *023 LM00045 K = K/2 *024 LM00046 LM00047 WHENEVER R1 .E. 4 *025 LM00048 WHENEVER R2 .E. 0 *026 LM00049 OUT.(PLACE(J+1)) *027 LM00050 OTHERWISE *028 LM00051 OUT.(PLACE(J+2)) *029 LM00052 END OF CONDITIONAL *030 LM00053 OUT.(PLACE(J)) *031 LM00054 OTHERWISE *032 LM00055 THROUGH COUNT, FOR I = 1, 1, I .G. R1 *033 LM00056 COUNT OUT.(PLACE(J)) *034 LM00057 WHENEVER R2 .E. 1, OUT.(PLACE(J+1)) *035 LM00058 SCAN END OF CONDITIONAL *036 LM00059 LM00060 DONE THROUGH OUTPUT, FOR K = 1, 1, K .G. Q *037 LM00061 OUTPUT LOC(K) = OBUF(Q-K+1) *038 LM00062 FUNCTION RETURN Q *039 LM00063 LM00064 INTERNAL FUNCTION(X) *040 LM00065 ENTRY TO OUT. *041 LM00066 Q = Q + 1 *042 LM00067 OBUF(Q) = X .V. CASEBT *043 LM00068 FUNCTION RETURN *044 LM00069 END OF FUNCTION *045 LM00070 LM00071 END OF FUNCTION *046 LM00072 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00405 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00070 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES NUMCON 00071 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ARABIC 00003 4 DONE 00010 4 K 00016 1 PLACE 00050 A 1 ROMANL 00011 4 CASEBT 00013 1 DSPTCH 00002 4 NMODES 00017 A 1 Q 00051 1 ROMANU 00012 4 CONV 00007 A 4 I 00014 1 OBUF 00040 A 1 R1 00052 1 SCAN 00002 4 COUNT 00002 4 J 00015 1 OUTPUT 00002 4 R2 00053 1 XMODE 00057 A 1 0FUNCTION DICTIONARY EXIT 00000 1 OUT 00001 1 0ABSOLUTE CONSTANTS 00063 +000000000004 00064 +000000000005 00062 +000000000002 00066 +000000000100 00065 +000000000012 00060 +000000000000 00061 +000000000001 00067 +233000000000 0STATEMENT DICTIONARY 00003 TXL -300136000123 00010 TXL -300322000310 00011 TXL -300153000151 00012 TXL -300164000153 0PROGRAM EXTERNAL FUNCTION(INT, LOC, MODE) 001 LM00013 NORMAL MODE IS INTEGER 002 LM00015 VECTOR VALUES PLACE(1) = $00000I$, $00000V$, $00000X$, 003 LM00016 1 $00000L$, $00000C$, $00000D$, $00000M$ 003 LM00017 00041 +0 00000 0 00044 00042 +0 00000 0 00024 00043 +0 00000 0 00023 00044 +0 00000 0 00043 00045 +0 00000 0 00067 00046 +0 00000 0 00065 00047 +0 00000 0 00031 VECTOR VALUES NMODES = 3 004 LM00018 00017 +0 00000 0 00003 VECTOR VALUES XMODE(1) = $ARABIC$,$ROMANU$,$ROMANL$ 005 LM00019 00054 -1 14644 2 14543 00055 -1 14644 2 14564 00056 +2 15121 2 23123 VECTOR VALUES CONV(1) = ARABIC, ROMANU, ROMANL 006 LM00020 00004 TXL -3 00000 0 00011 00005 TXL -3 00000 0 00012 00006 TXL -3 00000 0 00003 DIMENSION OBUF(16) 007 LM00021 ENTRY TO NUMCON. 008 LM00023 00070 TRA +0 02000 0 00073 00071 SXA +0 63400 2 00364 00072 TSX +0 07400 2 00364 Q = 0 009 LM00024 00073 CLA +0 50000 0 00060 00074 STO +0 60100 0 00051 K = INT 010 LM00025 00075 CLA +0 50000 0 00024 00076 STO +0 60100 0 00016 CASEBT = 0 011 LM00026 00077 CLA +0 50000 0 00060 00100 STO +0 60100 0 00013 THROUGH DSPTCH, FOR I = 1, 1, I .G. NMODES 012 LM00027 00101 CLA +0 50000 0 00061 00102 STO +0 60100 0 00014 00103 TRA +0 02000 0 00107 00104 CLA +0 50000 0 00014 00105 ADD +0 40000 0 00061 00106 STO +0 60100 0 00014 00107 CLA +0 50000 0 00014 00110 SUB +0 40200 0 00017 00111 TZE +0 10000 0 00113 00112 TPL +0 12000 0 00122 DSPTCH WHENEVER XMODE(I) .E. MODE, TRANSFER TO CONV(I) 013 LM00028 00113 LXA +0 53400 1 00014 00114 CLA +0 50000 1 00057 00115 SUB +0 40200 0 00024 00116 TNZ -0 10000 0 00121 00117 LXA +0 53400 2 00014 00120 TRA +0 02000 2 00007 00121 TRA +0 02000 0 00104 FUNCTION RETURN 014 LM00029 00122 TRA +0 02000 0 00376 ARABIC OUT.(K - (K/10)*10) 015 LM00033 00123 LDQ +0 56000 0 00016 00124 PXD -0 75400 0 00000 00125 LLS +0 76300 0 00000 00126 DVP +0 22100 0 00065 00127 MPY +0 20000 0 00065 00130 XCA +0 13100 0 00000 00131 CHS +0 76000 0 00002 00132 ADD +0 40000 0 00016 00133 STO +0 60100 0 00402 00134 TSX +0 07400 4 00001 00135 TXH +3 00000 0 00402 K = K/10 016 LM00034 00136 LDQ +0 56000 0 00016 00137 PXD -0 75400 0 00000 00140 LLS +0 76300 0 00000 00141 DVP +0 22100 0 00065 00142 STQ -0 60000 0 00016 WHENEVER K .G. 0, TRANSFER TO ARABIC 017 LM00035 00143 CLA +0 50000 0 00016 00144 SUB +0 40200 0 00060 00145 TZE +0 10000 0 00150 00146 TMI -0 12000 0 00150 00147 TRA +0 02000 0 00003 TRANSFER TO DONE 018 LM00036 00150 TRA +0 02000 0 00010 ROMANL CASEBT = $000010$ 019 LM00040 00151 CLA +0 50000 0 00066 00152 STO +0 60100 0 00013 ROMANU THROUGH SCAN, FOR J = 1, 2, K .E. 0 020 LM00042 00153 CLA +0 50000 0 00061 00154 STO +0 60100 0 00015 00155 TRA +0 02000 0 00161 00156 CLA +0 50000 0 00015 00157 ADD +0 40000 0 00062 00160 STO +0 60100 0 00015 00161 CLA +0 50000 0 00016 00162 SUB +0 40200 0 00060 00163 TZE +0 10000 0 00310 R1 = K-(K/5)*5 021 LM00043 00164 LDQ +0 56000 0 00016 00165 PXD -0 75400 0 00000 00166 LLS +0 76300 0 00000 00167 DVP +0 22100 0 00064 00170 MPY +0 20000 0 00064 00171 XCA +0 13100 0 00000 00172 CHS +0 76000 0 00002 00173 ADD +0 40000 0 00016 00174 STO +0 60100 0 00052 K = K/5 022 LM00044 00175 LDQ +0 56000 0 00016 00176 PXD -0 75400 0 00000 00177 LLS +0 76300 0 00000 00200 DVP +0 22100 0 00064 00201 STQ -0 60000 0 00016 R2 = K-(K/2)*2 023 LM00045 00202 LDQ +0 56000 0 00016 00203 PXD -0 75400 0 00000 00204 LLS +0 76300 0 00000 00205 DVP +0 22100 0 00062 00206 MPY +0 20000 0 00062 00207 XCA +0 13100 0 00000 00210 CHS +0 76000 0 00002 00211 ADD +0 40000 0 00016 00212 STO +0 60100 0 00053 K = K/2 024 LM00046 00213 LDQ +0 56000 0 00016 00214 PXD -0 75400 0 00000 00215 LLS +0 76300 0 00000 00216 DVP +0 22100 0 00062 00217 STQ -0 60000 0 00016 WHENEVER R1 .E. 4 025 LM00048 00220 CLA +0 50000 0 00052 00221 SUB +0 40200 0 00063 00222 TNZ -0 10000 0 00254 WHENEVER R2 .E. 0 026 LM00049 00223 CLA +0 50000 0 00053 00224 SUB +0 40200 0 00060 00225 TNZ -0 10000 0 00236 OUT.(PLACE(J+1)) 027 LM00050 00226 CLA +0 50000 0 00015 00227 ADD +0 40000 0 00061 00230 SUB +0 40200 0 00231 00231 TXH +3 00000 0 00050 00232 STA +0 62100 0 00234 00233 TSX +0 07400 4 00001 00234 TXH +3 00000 0 00000 OTHERWISE 028 LM00051 00235 TRA +0 02000 0 00245 OUT.(PLACE(J+2)) 029 LM00052 00236 CLA +0 50000 0 00015 00237 ADD +0 40000 0 00062 00240 SUB +0 40200 0 00241 00241 TXH +3 00000 0 00050 00242 STA +0 62100 0 00244 00243 TSX +0 07400 4 00001 00244 TXH +3 00000 0 00000 END OF CONDITIONAL 030 LM00053 OUT.(PLACE(J)) 031 LM00054 00245 CLA +0 50000 0 00015 00246 SUB +0 40200 0 00247 00247 TXH +3 00000 0 00050 00250 STA +0 62100 0 00252 00251 TSX +0 07400 4 00001 00252 TXH +3 00000 0 00000 OTHERWISE 032 LM00055 00253 TRA +0 02000 0 00307 THROUGH COUNT, FOR I = 1, 1, I .G. R1 033 LM00056 00254 CLA +0 50000 0 00061 00255 STO +0 60100 0 00014 00256 TRA +0 02000 0 00262 00257 CLA +0 50000 0 00014 00260 ADD +0 40000 0 00061 00261 STO +0 60100 0 00014 00262 CLA +0 50000 0 00014 00263 SUB +0 40200 0 00052 00264 TZE +0 10000 0 00266 00265 TPL +0 12000 0 00275 COUNT OUT.(PLACE(J)) 034 LM00057 00266 CLA +0 50000 0 00015 00267 SUB +0 40200 0 00270 00270 TXH +3 00000 0 00050 00271 STA +0 62100 0 00273 00272 TSX +0 07400 4 00001 00273 TXH +3 00000 0 00000 00274 TRA +0 02000 0 00257 WHENEVER R2 .E. 1, OUT.(PLACE(J+1)) 035 LM00058 00275 CLA +0 50000 0 00053 00276 SUB +0 40200 0 00061 00277 TNZ -0 10000 0 00307 00300 CLA +0 50000 0 00015 00301 ADD +0 40000 0 00061 00302 SUB +0 40200 0 00303 00303 TXH +3 00000 0 00050 00304 STA +0 62100 0 00306 00305 TSX +0 07400 4 00001 00306 TXH +3 00000 0 00000 SCAN END OF CONDITIONAL 036 LM00059 00307 TRA +0 02000 0 00156 DONE THROUGH OUTPUT, FOR K = 1, 1, K .G. Q 037 LM00061 00310 CLA +0 50000 0 00061 00311 STO +0 60100 0 00016 00312 TRA +0 02000 0 00316 00313 CLA +0 50000 0 00016 00314 ADD +0 40000 0 00061 00315 STO +0 60100 0 00016 00316 CLA +0 50000 0 00016 00317 SUB +0 40200 0 00051 00320 TZE +0 10000 0 00322 00321 TPL +0 12000 0 00332 OUTPUT LOC(K) = OBUF(Q-K+1) 038 LM00062 00322 CLA +0 50000 0 00051 00323 SUB +0 40200 0 00016 00324 ADD +0 40000 0 00061 00325 LXA +0 53400 1 00016 00326 PAX +0 73400 2 00000 00327 CLA +0 50000 2 00040 00330 STO +0 60100 1 00024 00331 TRA +0 02000 0 00313 FUNCTION RETURN Q 039 LM00063 00332 CLA +0 50000 0 00051 00333 TRA +0 02000 0 00376 INTERNAL FUNCTION(X) 040 LM00065 00334 TRA +0 02000 0 00363 ENTRY TO OUT. 041 LM00066 00335 TRA +0 02000 0 00340 00001 TTR +0 02100 0 00336 00336 SXA +0 63400 2 00351 00337 TSX +0 07400 2 00351 Q = Q + 1 042 LM00067 00340 CLA +0 50000 0 00051 00341 ADD +0 40000 0 00061 00342 STO +0 60100 0 00051 OBUF(Q) = X .V. CASEBT 043 LM00068 00343 CAL -0 50000 0 00024 00344 ORA -0 50100 0 00013 00345 LXA +0 53400 1 00051 00346 SLW +0 60200 1 00040 FUNCTION RETURN 044 LM00069 00347 TRA +0 02000 0 00357 END OF FUNCTION 045 LM00070 00350 TSX +0 07400 4 00000 00351 TXH +3 00000 0 00000 00352 SXD -0 63400 1 00351 00353 SXA +0 63400 4 00357 00354 CLA +0 50000 4 00001 00355 STA +0 62100 0 00343 00356 TRA +0 02000 2 00001 00357 AXT +0 77400 4 00000 00360 LXA +0 53400 2 00351 00361 LXD -0 53400 1 00351 00362 TRA +0 02000 4 00001 END OF FUNCTION 046 LM00072 00363 TSX +0 07400 4 00000 00364 TXH +3 00000 0 00000 00365 SXD -0 63400 1 00364 00366 SXA +0 63400 4 00376 00367 CLA +0 50000 4 00001 00370 STA +0 62100 0 00075 00371 CLA +0 50000 4 00002 00372 STA +0 62100 0 00330 00373 CLA +0 50000 4 00003 00374 STA +0 62100 0 00115 00375 TRA +0 02000 2 00001 00376 AXT +0 77400 4 00000 00377 LXA +0 53400 2 00364 00400 LXD -0 53400 1 00364 00401 TRA +0 02000 4 00001 1 MAD PROGRAM LISTING ... ... ... FILE FRAME1 MAD 02/08/68 1244.9 - .. ROUTINES TO FRAME OUT AND PRINT FLOW DIAGRAMS. LM00001 LM00002 .. J. H. SALTZER, JANUARY, 1965. LM00003 LM00004 EXTERNAL FUNCTION(PAGE, DP) *001 LM00005 LM00006 DIMENSION LENGTH(100) *002 LM00007 VECTOR VALUES FENCE = 777777777777K *003 LM00008 VECTOR VALUES DISK = 1 *004 LM00009 DIMENSION LINE(100) *005 LM00010 VECTOR VALUES RETURN = 0055K *006 LM00011 VECTOR VALUES PERIOD = 0033K *007 LM00012 VECTOR VALUES BLANK = 0060K *008 LM00013 VECTOR VALUES NULL = 0057K *009 LM00014 NORMAL MODE IS INTEGER *010 LM00015 LM00016 ENTRY TO FRAME1. *011 LM00017 IN LENGTH = READ.(LINE, 100, EOF) *012 LM00018 WHENEVER LINE(1) .E. PERIOD, TRANSFER TO CONTRL *013 LM00019 DATA WHENEVER ROW .G. MAXROW *014 LM00020 COM PRINT COMMENT $0B0O0X0 0E0X0T0E0N0D0S0 0O0U0T0S0I0D0E0 0F0R *015 LM00021 1 0A0M0E0.$ *015 LM00022 ROW = ROW + 1 *016 LM00023 TRANSFER TO IN *017 LM00024 END OF CONDITIONAL *018 LM00025 THROUGH PUTLIN, FOR I = 1, 1, I .G. LENGTH *019 LM00026 WHENEVER COL+I-1 .G. MAXCOL .AND. LINE(I) .NE. NULL, TRANSFER TO COM *020 LM00027 PUTLIN WHENEVER LINE(I) .NE. NULL, PAGE(ROW, COL+I-1) = LINE(I) *021 LM00028 ROW = ROW+1 *022 LM00029 TRANSFER TO IN *023 LM00030 LM00031 CONTRL EDCT = 1 *024 LM00032 CWD = GET.(0) *025 LM00033 WHENEVER CWD .E. $ BOX$ .OR. CWD .E. $ BO$ *026 LM00034 ROW = NUM.(0) *027 LM00035 COL = NUM.(0) *028 LM00036 LM00037 OR WHENEVER CWD .E. $ FRAME$ *029 LM00038 MAXROW = NUM.(0) *030 LM00039 MAXCOL = NUM.(0) *031 LM00040 DP(2) = MAXCOL + 1 *032 LM00041 THROUGH BLANKR, FOR I = 1, 1, I .G. MAXROW*(MAXCOL+1) *033 LM00042 BLANKR PAGE(I) = BLANK *034 LM00043 LM00044 OR WHENEVER CWD .E. $ END$ *035 LM00045 EOF FUNCTION RETURN MAXROW *036 LM00046 OTHERWISE *037 LM00047 TRANSFER TO DATA *038 LM00048 LM00049 END OF CONDITIONAL *039 LM00050 TRANSFER TO IN *040 LM00051 LM00052 ENTRY TO PRPIX1. *041 LM00053 THROUGH PRSCN, FOR ROW = 1, 1, ROW .G. MAXROW *042 LM00054 LENGTH(ROW) = SIZE.(ROW) + 1 *043 LM00055 PAGE(ROW, LENGTH(ROW)) = RETURN *044 LM00056 PRSCN PACK.(PAGE(ROW,1), LENGTH(ROW)) *045 LM00057 RSMEM. *046 LM00058 FUNCTION RETURN *047 LM00059 LM00060 SIZE. .. FUNCTION TO SCAN FOR LINE SIZE. LM00061 LM00062 INTERNAL FUNCTION(RW) *048 LM00063 ENTRY TO SIZE. *049 LM00064 SZLP THROUGH SZLP, FOR I = MAXCOL, -1, I .E. 0 *050 LM00065 1 .OR. PAGE(RW, I) .NE. BLANK *050 LM00066 FUNCTION RETURN I *051 LM00067 END OF FUNCTION *052 LM00068 LM00069 GET. .. FUNCTION TO OBTAIN AGRUMENT WORD IN 6-BIT MODE. LM00070 LM00071 INTERNAL FUNCTION *053 LM00072 ENTRY TO GET. *054 LM00073 WORD = $ $ *055 LM00074 SCANB. *056 LM00075 GTLP EDCT = EDCT + 1 *057 LM00076 WHENEVER LINE(EDCT) .E. BLANK .OR. EDCT .G. LENGTH *058 LM00077 1 , FUNCTION RETURN WORD *058 LM00078 WORD = (WORD .LS. 6) .V. (LINE(EDCT) .A. 77K) *059 LM00079 TRANSFER TO GTLP *060 LM00080 END OF FUNCTION *061 LM00081 LM00082 NUM. .. FUNCTION TO OBTAIN DECIMAL INTEGER FROM INPUT. LM00083 LM00084 INTERNAL FUNCTION *062 LM00085 ENTRY TO NUM. *063 LM00086 INT = 0 *064 LM00087 SCANB. *065 LM00088 MULP EDCT = EDCT + 1 *066 LM00089 WHENEVER LINE(EDCT) .E. BLANK .OR. EDCT .G. LENGTH *067 LM00090 1 .OR. LINE(EDCT) .G. 9, FUNCTION RETURN INT *067 LM00091 INT = INT*10 + LINE(EDCT) *068 LM00092 TRANSFER TO MULP *069 LM00093 END OF FUNCTION *070 LM00094 LM00095 SCANB. .. FUNCTION TO SCAN FOR NON-BLANK CHARACTER. LM00096 LM00097 INTERNAL FUNCTION *071 LM00098 ENTRY TO SCANB. *072 LM00099 SCANLP WHENEVER LINE(EDCT+1) .NE. BLANK .OR. EDCT+1 .G. LENGTH *073 LM00100 1 , FUNCTION RETURN *073 LM00101 EDCT = EDCT+1 *074 LM00102 TRANSFER TO SCANLP *075 LM00103 END OF FUNCTION *076 LM00104 LM00105 END OF FUNCTION *077 LM00106 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01124 TRANSFER VECTOR LENGTH 00007 PROGRAM BEGINS 00372 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES PRPIX1 00575 0 FRAME1 00373 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BLANKR 00013 4 DATA 00016 4 IN 00021 4 MAXROW 00347 1 RETURN 00352 A 1 BLANK 00024 A 1 DISK 00027 A 1 INT 00032 1 MULP 00022 4 ROW 00353 1 COL 00025 1 EDCT 00030 1 I 00033 1 NULL 00350 A 1 SCANLP 00023 4 COM 00014 4 EOF 00017 4 LENGTH 00200 A 1 PERIOD 00351 A 1 SZLP 00013 4 CONTRL 00015 4 FENCE 00031 A 1 LINE 00345 A 1 PRSCN 00013 4 WORD 00354 1 CWD 00026 1 GTLP 00020 4 MAXCOL 00346 1 PUTLIN 00013 4 0FUNCTION DICTIONARY .03310 00000 0 .03311 00001 0 EXIT 00002 1 .PCOMT 00003 1 PACK 00004 1 READ 00005 1 RSMEM 00006 1 GET 00007 1 NUM 00010 1 SCANB 00011 1 SIZE 00012 1 0ABSOLUTE CONSTANTS 00361 +000000000012 00360 +000000000011 00357 +000000000006 00362 +000000000077 00371 -206060606060 00367 -206060254524 00365 -202651214425 00366 -206060224667 00370 -206060602246 00355 +000000000000 00363 +000000000144 00356 +000000000001 00364 +233000000000 0STATEMENT DICTIONARY 00014 TXL -300425000412 00015 TXL -300504000502 00016 TXL -300412000406 00017 TXL -300571000567 00020 TXL -300727000724 00021 TXL -300402000375 00022 TXL -301000000775 00023 TXL -301056001042 0PROGRAM EXTERNAL FUNCTION(PAGE, DP) 001 LM00005 DIMENSION LENGTH(100) 002 LM00007 VECTOR VALUES FENCE = 777777777777K 003 LM00008 00031 -3 77777 7 77777 VECTOR VALUES DISK = 1 004 LM00009 00027 +0 00000 0 00001 DIMENSION LINE(100) 005 LM00010 VECTOR VALUES RETURN = 0055K 006 LM00011 00352 +0 00000 0 00055 VECTOR VALUES PERIOD = 0033K 007 LM00012 00351 +0 00000 0 00033 VECTOR VALUES BLANK = 0060K 008 LM00013 00024 +0 00000 0 00060 VECTOR VALUES NULL = 0057K 009 LM00014 00350 +0 00000 0 00057 NORMAL MODE IS INTEGER 010 LM00015 ENTRY TO FRAME1. 011 LM00017 00372 TRA +0 02000 0 00375 00373 SXA +0 63400 2 01075 00374 TSX +0 07400 2 01075 IN LENGTH = READ.(LINE, 100, EOF) 012 LM00018 00375 TSX +0 07400 4 00005 00376 TXH +3 00000 0 00345 00377 TXH +3 00000 0 00363 00400 TXH +3 00000 0 00017 00401 STO +0 60100 0 00200 W'R LINE(1) .E. PERIOD, T'O CONTRL 013 LM00019 00402 CLA +0 50000 0 00344 00403 SUB +0 40200 0 00351 00404 TNZ -0 10000 0 00406 00405 TRA +0 02000 0 00015 DATA W'R ROW .G. MAXROW 014 LM00020 00406 CLA +0 50000 0 00353 00407 SUB +0 40200 0 00347 00410 TZE +0 10000 0 00431 00411 TMI -0 12000 0 00431 COM PRINT COMMENT $0B0O0X0 0E0X0T0E0N0D0S0 0O0U0T0S0I0D0E0 0F0R 015 LM00021 10A0M0E0.$ 015 LM00022 00412 TSX +0 07400 4 00003 00413 +0 00000 0 00011 00414 +0 02200 4 60067 00415 +0 06000 2 50067 00416 +0 06300 2 50045 00417 +0 02400 6 20060 00420 +0 04600 6 40063 00421 +0 06200 3 10024 00422 +0 02500 6 00026 00423 +0 05100 2 10044 00424 +0 02500 3 36060 ROW = ROW + 1 016 LM00023 00425 CLA +0 50000 0 00353 00426 ADD +0 40000 0 00356 00427 STO +0 60100 0 00353 T'O IN 017 LM00024 00430 TRA +0 02000 0 00021 END OF CONDITIONAL 018 LM00025 T'H PUTLIN, FOR I = 1, 1, I .G. LENGTH 019 LM00026 00431 CLA +0 50000 0 00356 00432 STO +0 60100 0 00033 00433 TRA +0 02000 0 00437 00434 CLA +0 50000 0 00033 00435 ADD +0 40000 0 00356 00436 STO +0 60100 0 00033 00437 CLA +0 50000 0 00033 00440 SUB +0 40200 0 00200 00441 TZE +0 10000 0 00443 00442 TPL +0 12000 0 00476 W'R COL+I-1 .G. MAXCOL .AND. LINE(I) .NE. NULL, T'O COM 020 LM00027 00443 LXA +0 53400 1 00033 00444 CLA +0 50000 1 00345 00445 SUB +0 40200 0 00350 00446 TZE +0 10000 0 00456 00447 CLA +0 50000 0 00025 00450 ADD +0 40000 0 00033 00451 SUB +0 40200 0 00356 00452 SUB +0 40200 0 00346 00453 TZE +0 10000 0 00456 00454 TMI -0 12000 0 00456 00455 TRA +0 02000 0 00014 PUTLIN W'R LINE(I) .NE. NULL, PAGE(ROW, COL+I-1) = LINE(I) 021 LM00028 00456 LXA +0 53400 1 00033 00457 CLA +0 50000 1 00345 00460 SUB +0 40200 0 00350 00461 TZE +0 10000 0 00475 00462 CLA +0 50000 0 00025 00463 ADD +0 40000 0 00033 00464 SUB +0 40200 0 00356 00465 XCA +0 13100 0 00000 00466 CLA +0 50000 0 00353 00467 TSX +0 07400 4 00001 00470 TXH +3 00000 0 00022 00471 PAX +0 73400 1 00000 00472 LXA +0 53400 2 00033 00473 CLA +0 50000 2 00345 00474 STO +0 60100 1 00022 00475 TRA +0 02000 0 00434 ROW = ROW+1 022 LM00029 00476 CLA +0 50000 0 00353 00477 ADD +0 40000 0 00356 00500 STO +0 60100 0 00353 T'O IN 023 LM00030 00501 TRA +0 02000 0 00021 CONTRL EDCT = 1 024 LM00032 00502 CLA +0 50000 0 00356 00503 STO +0 60100 0 00030 CWD = GET.(0) 025 LM00033 00504 TSX +0 07400 4 00007 00505 TXH +3 00000 0 00355 00506 STO +0 60100 0 00026 W'R CWD .E. $ BOX$ .OR. CWD .E. $ BO$ 026 LM00034 00507 CLA +0 50000 0 00026 00510 SUB +0 40200 0 00370 00511 TZE +0 10000 0 00515 00512 CLA +0 50000 0 00026 00513 SUB +0 40200 0 00366 00514 TNZ -0 10000 0 00524 ROW = NUM.(0) 027 LM00035 00515 TSX +0 07400 4 00010 00516 TXH +3 00000 0 00355 00517 STO +0 60100 0 00353 COL = NUM.(0) 028 LM00036 00520 TSX +0 07400 4 00010 00521 TXH +3 00000 0 00355 00522 STO +0 60100 0 00025 O'R CWD .E. $ FRAME$ 029 LM00038 00523 TRA +0 02000 0 00573 00524 CLA +0 50000 0 00026 00525 SUB +0 40200 0 00365 00526 TNZ -0 10000 0 00564 MAXROW = NUM.(0) 030 LM00039 00527 TSX +0 07400 4 00010 00530 TXH +3 00000 0 00355 00531 STO +0 60100 0 00347 MAXCOL = NUM.(0) 031 LM00040 00532 TSX +0 07400 4 00010 00533 TXH +3 00000 0 00355 00534 STO +0 60100 0 00346 DP(2) = MAXCOL + 1 032 LM00041 00535 CLA +0 50000 0 00346 00536 ADD +0 40000 0 00356 00537 STO +0 60100 0 00020 T'H BLANKR, FOR I = 1, 1, I .G. MAXROW*(MAXCOL+1) 033 LM00042 00540 CLA +0 50000 0 00356 00541 STO +0 60100 0 00033 00542 TRA +0 02000 0 00546 00543 CLA +0 50000 0 00033 00544 ADD +0 40000 0 00356 00545 STO +0 60100 0 00033 00546 CLA +0 50000 0 00346 00547 ADD +0 40000 0 00356 00550 XCA +0 13100 0 00000 00551 MPY +0 20000 0 00347 00552 XCA +0 13100 0 00000 00553 CHS +0 76000 0 00002 00554 ADD +0 40000 0 00033 00555 TZE +0 10000 0 00557 00556 TPL +0 12000 0 00563 BLANKR PAGE(I) = BLANK 034 LM00043 00557 LXA +0 53400 1 00033 00560 CLA +0 50000 0 00024 00561 STO +0 60100 1 00022 00562 TRA +0 02000 0 00543 O'R CWD .E. $ END$ 035 LM00045 00563 TRA +0 02000 0 00573 00564 CLA +0 50000 0 00026 00565 SUB +0 40200 0 00367 00566 TNZ -0 10000 0 00572 EOF F'N MAXROW 036 LM00046 00567 CLA +0 50000 0 00347 00570 TRA +0 02000 0 01116 O'E 037 LM00047 00571 TRA +0 02000 0 00573 T'O DATA 038 LM00048 00572 TRA +0 02000 0 00016 END OF CONDITIONAL 039 LM00050 T'O IN 040 LM00051 00573 TRA +0 02000 0 00021 ENTRY TO PRPIX1. 041 LM00053 00574 TRA +0 02000 0 00577 00575 SXA +0 63400 2 01075 00576 TSX +0 07400 2 01075 THROUGH PRSCN, FOR ROW = 1, 1, ROW .G. MAXROW 042 LM00054 00577 CLA +0 50000 0 00356 00600 STO +0 60100 0 00353 00601 TRA +0 02000 0 00605 00602 CLA +0 50000 0 00353 00603 ADD +0 40000 0 00356 00604 STO +0 60100 0 00353 00605 CLA +0 50000 0 00353 00606 SUB +0 40200 0 00347 00607 TZE +0 10000 0 00611 00610 TPL +0 12000 0 00650 LENGTH(ROW) = SIZE.(ROW) + 1 043 LM00055 00611 TSX +0 07400 4 00012 00612 TXH +3 00000 0 00353 00613 ADD +0 40000 0 00356 00614 LXA +0 53400 1 00353 00615 STO +0 60100 1 00200 PAGE(ROW, LENGTH(ROW)) = RETURN 044 LM00056 00616 CLA +0 50000 0 00353 00617 SUB +0 40200 0 00620 00620 TXH +3 00000 0 00200 00621 STA +0 62100 0 00622 00622 LDQ +0 56000 0 00000 00623 CLA +0 50000 0 00353 00624 TSX +0 07400 4 00000 00625 TXH +3 00000 0 00022 00626 PAX +0 73400 1 00000 00627 CLA +0 50000 0 00352 00630 STO +0 60100 1 00022 PRSCN PACK.(PAGE(ROW,1), LENGTH(ROW)) 045 LM00057 00631 CLA +0 50000 0 00353 00632 SUB +0 40200 0 00633 00633 TXH +3 00000 0 00200 00634 STA +0 62100 0 00646 00635 LDQ +0 56000 0 00356 00636 CLA +0 50000 0 00353 00637 TSX +0 07400 4 00001 00640 TXH +3 00000 0 00022 00641 SUB +0 40200 0 00642 00642 TXH +3 00000 0 00022 00643 STA +0 62100 0 00645 00644 TSX +0 07400 4 00004 00645 TXH +3 00000 0 00000 00646 TXH +3 00000 0 00000 00647 TRA +0 02000 0 00602 RSMEM. 046 LM00058 00650 TSX +0 07400 4 00006 F'N 047 LM00059 00651 TRA +0 02000 0 01116 INTERNAL FUNCTION(RW) 048 LM00063 00652 TRA +0 02000 0 00715 ENTRY TO SIZE. 049 LM00064 00653 TRA +0 02000 0 00656 00012 TTR +0 02100 0 00654 00654 SXA +0 63400 2 00703 00655 TSX +0 07400 2 00703 SZLP THROUGH SZLP, FOR I = MAXCOL, -1, I .E. 0 050 LM00065 1 .OR. PAGE(RW, I) .NE. BLANK 050 LM00066 00656 CLA +0 50000 0 00346 00657 STO +0 60100 0 00033 00660 TRA +0 02000 0 00664 00661 CLS +0 50200 0 00356 00662 ADD +0 40000 0 00033 00663 STO +0 60100 0 00033 00664 LDQ +0 56000 0 00033 00665 CLA +0 50000 0 00022 00666 TSX +0 07400 4 00001 00667 TXH +3 00000 0 00022 00670 PAX +0 73400 1 00000 00671 CLA +0 50000 1 00022 00672 SUB +0 40200 0 00024 00673 TNZ -0 10000 0 00700 00674 CLA +0 50000 0 00033 00675 SUB +0 40200 0 00355 00676 TZE +0 10000 0 00700 00677 TRA +0 02000 0 00661 FUNCTION RETURN I 051 LM00067 00700 CLA +0 50000 0 00033 00701 TRA +0 02000 0 00711 END OF FUNCTION 052 LM00068 00702 TSX +0 07400 4 00002 00703 TXH +3 00000 0 00000 00704 SXD -0 63400 1 00703 00705 SXA +0 63400 4 00711 00706 CLA +0 50000 4 00001 00707 STA +0 62100 0 00665 00710 TRA +0 02000 2 00001 00711 AXT +0 77400 4 00000 00712 LXA +0 53400 2 00703 00713 LXD -0 53400 1 00703 00714 TRA +0 02000 4 00001 INTERNAL FUNCTION 053 LM00072 00715 TRA +0 02000 0 00766 ENTRY TO GET. 054 LM00073 00716 TRA +0 02000 0 00721 00007 TTR +0 02100 0 00717 00717 SXA +0 63400 2 00755 00720 TSX +0 07400 2 00755 WORD = $ $ 055 LM00074 00721 CLA +0 50000 0 00371 00722 STO +0 60100 0 00354 SCANB. 056 LM00075 00723 TSX +0 07400 4 00011 GTLP EDCT = EDCT + 1 057 LM00076 00724 CLA +0 50000 0 00030 00725 ADD +0 40000 0 00356 00726 STO +0 60100 0 00030 WHENEVER LINE(EDCT) .E. BLANK .OR. EDCT .G. LENGTH 058 LM00077 1 , FUNCTION RETURN WORD 058 LM00078 00727 CLA +0 50000 0 00030 00730 SUB +0 40200 0 00200 00731 TZE +0 10000 0 00733 00732 TPL +0 12000 0 00737 00733 LXA +0 53400 1 00030 00734 CLA +0 50000 1 00345 00735 SUB +0 40200 0 00024 00736 TNZ -0 10000 0 00741 00737 CLA +0 50000 0 00354 00740 TRA +0 02000 0 00761 WORD = (WORD .LS. 6) .V. (LINE(EDCT) .A. 77K) 059 LM00079 00741 LXA +0 53400 1 00030 00742 CAL -0 50000 1 00345 00743 ANA -0 32000 0 00362 00744 SLW +0 60200 0 00765 00745 CAL -0 50000 0 00357 00746 STA +0 62100 0 00750 00747 CAL -0 50000 0 00354 00750 ALS +0 76700 0 00000 00751 ORA -0 50100 0 00765 00752 SLW +0 60200 0 00354 TRANSFER TO GTLP 060 LM00080 00753 TRA +0 02000 0 00020 END OF FUNCTION 061 LM00081 00754 TSX +0 07400 4 00002 00755 TXH +3 00000 0 00000 00756 SXD -0 63400 1 00755 00757 SXA +0 63400 4 00761 00760 TRA +0 02000 2 00001 00761 AXT +0 77400 4 00000 00762 LXA +0 53400 2 00755 00763 LXD -0 53400 1 00755 00764 TRA +0 02000 4 00001 INTERNAL FUNCTION 062 LM00085 00766 TRA +0 02000 0 01036 ENTRY TO NUM. 063 LM00086 00767 TRA +0 02000 0 00772 00010 TTR +0 02100 0 00770 00770 SXA +0 63400 2 01026 00771 TSX +0 07400 2 01026 INT = 0 064 LM00087 00772 CLA +0 50000 0 00355 00773 STO +0 60100 0 00032 SCANB. 065 LM00088 00774 TSX +0 07400 4 00011 MULP EDCT = EDCT + 1 066 LM00089 00775 CLA +0 50000 0 00030 00776 ADD +0 40000 0 00356 00777 STO +0 60100 0 00030 WHENEVER LINE(EDCT) .E. BLANK .OR. EDCT .G. LENGTH 067 LM00090 1 .OR. LINE(EDCT) .G. 9, FUNCTION RETURN INT 067 LM00091 01000 LXA +0 53400 1 00030 01001 CLA +0 50000 1 00345 01002 SUB +0 40200 0 00360 01003 TZE +0 10000 0 01005 01004 TPL +0 12000 0 01014 01005 CLA +0 50000 0 00030 01006 SUB +0 40200 0 00200 01007 TZE +0 10000 0 01011 01010 TPL +0 12000 0 01014 01011 CLA +0 50000 1 00345 01012 SUB +0 40200 0 00024 01013 TNZ -0 10000 0 01016 01014 CLA +0 50000 0 00032 01015 TRA +0 02000 0 01032 INT = INT*10 + LINE(EDCT) 068 LM00092 01016 LDQ +0 56000 0 00032 01017 MPY +0 20000 0 00361 01020 LXA +0 53400 2 00030 01021 XCA +0 13100 0 00000 01022 ADD +0 40000 2 00345 01023 STO +0 60100 0 00032 TRANSFER TO MULP 069 LM00093 01024 TRA +0 02000 0 00022 END OF FUNCTION 070 LM00094 01025 TSX +0 07400 4 00002 01026 TXH +3 00000 0 00000 01027 SXD -0 63400 1 01026 01030 SXA +0 63400 4 01032 01031 TRA +0 02000 2 00001 01032 AXT +0 77400 4 00000 01033 LXA +0 53400 2 01026 01034 LXD -0 53400 1 01026 01035 TRA +0 02000 4 00001 INTERNAL FUNCTION 071 LM00098 01036 TRA +0 02000 0 01073 ENTRY TO SCANB. 072 LM00099 01037 TRA +0 02000 0 01042 00011 TTR +0 02100 0 01040 01040 SXA +0 63400 2 01063 01041 TSX +0 07400 2 01063 SCANLP WHENEVER LINE(EDCT+1) .NE. BLANK .OR. EDCT+1 .G. LENGTH 073 LM00100 1 , FUNCTION RETURN 073 LM00101 01042 CLA +0 50000 0 00030 01043 ADD +0 40000 0 00356 01044 SUB +0 40200 0 00200 01045 TZE +0 10000 0 01047 01046 TPL +0 12000 0 01055 01047 CLA +0 50000 0 00030 01050 ADD +0 40000 0 00356 01051 PAX +0 73400 1 00000 01052 CLA +0 50000 1 00345 01053 SUB +0 40200 0 00024 01054 TZE +0 10000 0 01056 01055 TRA +0 02000 0 01067 EDCT = EDCT+1 074 LM00102 01056 CLA +0 50000 0 00030 01057 ADD +0 40000 0 00356 01060 STO +0 60100 0 00030 TRANSFER TO SCANLP 075 LM00103 01061 TRA +0 02000 0 00023 END OF FUNCTION 076 LM00104 01062 TSX +0 07400 4 00002 01063 TXH +3 00000 0 00000 01064 SXD -0 63400 1 01063 01065 SXA +0 63400 4 01067 01066 TRA +0 02000 2 00001 01067 AXT +0 77400 4 00000 01070 LXA +0 53400 2 01063 01071 LXD -0 53400 1 01063 01072 TRA +0 02000 4 00001 END OF FUNCTION 077 LM00106 01073 TSX +0 07400 4 00002 01074 PZE +0 00000 0 00002 01075 TXH +3 00000 0 00000 01076 SXD -0 63400 1 01075 01077 SXA +0 63400 4 01116 01100 CLA +0 50000 4 00001 01101 STO +0 60100 0 00470 01102 STA +0 62100 0 00474 01103 STA +0 62100 0 00561 01104 STO +0 60100 0 00625 01105 STA +0 62100 0 00630 01106 STO +0 60100 0 00640 01107 STO +0 60100 0 00642 01110 STO +0 60100 0 00667 01111 STA +0 62100 0 00671 01112 CLA +0 50000 4 00002 01113 SUB +0 40200 0 01074 01114 STA +0 62100 0 00537 01115 TRA +0 02000 2 00001 01116 AXT +0 77400 4 00000 01117 LXA +0 53400 2 01075 01120 LXD -0 53400 1 01075 01121 TRA +0 02000 4 00001 1 MAD PROGRAM LISTING ... ... ... FILE SYMSTO MAD 02/08/68 1245.2 - .. SYMBOL TABLE PACKAGE. LM00001 LM00002 .. J. H. SALTZER, JANUARY, 1965. LM00003 LM00004 EXTERNAL FUNCTION(SYMBOL, VALUE) *001 LM00005 NORMAL MODE IS INTEGER *002 LM00006 DIMENSION SYM(10), VAL(10) *003 LM00007 VECTOR VALUES COUNT = 0 *004 LM00008 LM00009 ENTRY TO SYMSTO. *005 LM00010 WHENEVER COUNT .GE. 10 *006 LM00011 PRINTCOMMENT $0S0Y0M0B0O0L0 0T0A0B0L0E0 0O0V0E0R0F0L0O0W$ *007 LM00012 FUNCTION RETURN *008 LM00013 END OF CONDITIONAL *009 LM00014 COUNT = COUNT + 1 *010 LM00015 SYM(COUNT) = SYMBOL *011 LM00016 VAL(COUNT) = VALUE *012 LM00017 FUNCTION RETURN *013 LM00018 LM00019 ENTRY TO SYMGET. *014 LM00020 THROUGH LOOK, FOR I = 1, 1, I .G. COUNT *015 LM00021 LOOK WHENEVER SYM(I) .E. SYMBOL, FUNCTION RETURN VAL(I) *016 LM00022 FUNCTION RETURN 0 *017 LM00023 END OF FUNCTION *018 LM00024 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00140 TRANSFER VECTOR LENGTH 00002 PROGRAM BEGINS 00037 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES SYMGET 00072 0 SYMSTO 00040 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) COUNT 00003 A 1 I 00004 1 LOOK 00002 4 SYM 00017 A 1 VAL 00032 A 1 0FUNCTION DICTIONARY EXIT 00000 1 .PCOMT 00001 1 0ABSOLUTE CONSTANTS 00033 +000000000000 00035 +000000000012 00034 +000000000001 00036 +233000000000 0PROGRAM EXTERNAL FUNCTION(SYMBOL, VALUE) 001 LM00005 NORMAL MODE IS INTEGER 002 LM00006 DIMENSION SYM(10), VAL(10) 003 LM00007 VECTOR VALUES COUNT = 0 004 LM00008 00003 +0 00000 0 00000 ENTRY TO SYMSTO. 005 LM00010 00037 TRA +0 02000 0 00042 00040 SXA +0 63400 2 00121 00041 TSX +0 07400 2 00121 W'R COUNT .GE. 10 006 LM00011 00042 CLA +0 50000 0 00003 00043 SUB +0 40200 0 00035 00044 TZE +0 10000 0 00046 00045 TMI -0 12000 0 00060 PRINTCOMMENT $0S0Y0M0B0O0L0 0T0A0B0L0E0 0O0V0E0R0F0L0O0W$ 007 LM00012 00046 TSX +0 07400 4 00001 00047 +0 00000 0 00007 00050 +0 06200 7 00044 00051 +0 02200 4 60043 00052 +0 06000 6 30021 00053 +0 02200 4 30025 00054 +0 06000 4 60065 00055 +0 02500 5 10026 00056 +0 04300 4 60066 FUNCTION RETURN 008 LM00013 00057 TRA +0 02000 0 00132 END OF CONDITIONAL 009 LM00014 COUNT = COUNT + 1 010 LM00015 00060 CLA +0 50000 0 00003 00061 ADD +0 40000 0 00034 00062 STO +0 60100 0 00003 SYM(COUNT) = SYMBOL 011 LM00016 00063 LXA +0 53400 1 00003 00064 CLA +0 50000 0 00024 00065 STO +0 60100 1 00017 VAL(COUNT) = VALUE 012 LM00017 00066 CLA +0 50000 0 00024 00067 STO +0 60100 1 00032 FUNCTION RETURN 013 LM00018 00070 TRA +0 02000 0 00132 ENTRY TO SYMGET. 014 LM00020 00071 TRA +0 02000 0 00074 00072 SXA +0 63400 2 00121 00073 TSX +0 07400 2 00121 THROUGH LOOK, FOR I = 1, 1, I .G. COUNT 015 LM00021 00074 CLA +0 50000 0 00034 00075 STO +0 60100 0 00004 00076 TRA +0 02000 0 00102 00077 CLA +0 50000 0 00004 00100 ADD +0 40000 0 00034 00101 STO +0 60100 0 00004 00102 CLA +0 50000 0 00004 00103 SUB +0 40200 0 00003 00104 TZE +0 10000 0 00106 00105 TPL +0 12000 0 00116 LOOK WHENEVER SYM(I) .E. SYMBOL, FUNCTION RETURN VAL(I) 016 LM00022 00106 LXA +0 53400 1 00004 00107 CLA +0 50000 1 00017 00110 SUB +0 40200 0 00024 00111 TNZ -0 10000 0 00115 00112 LXA +0 53400 2 00004 00113 CLA +0 50000 2 00032 00114 TRA +0 02000 0 00132 00115 TRA +0 02000 0 00077 FUNCTION RETURN 0 017 LM00023 00116 CLA +0 50000 0 00033 00117 TRA +0 02000 0 00132 END OF FUNCTION 018 LM00024 00120 TSX +0 07400 4 00000 00121 TXH +3 00000 0 00000 00122 SXD -0 63400 1 00121 00123 SXA +0 63400 4 00132 00124 CLA +0 50000 4 00001 00125 STA +0 62100 0 00064 00126 STA +0 62100 0 00110 00127 CLA +0 50000 4 00002 00130 STA +0 62100 0 00066 00131 TRA +0 02000 2 00001 00132 AXT +0 77400 4 00000 00133 LXA +0 53400 2 00121 00134 LXD -0 53400 1 00121 00135 TRA +0 02000 4 00001 1 RUNOFF OUTPUT ROUTINE. PAGE 1 * J. H. SALTZER, NOVEMBER, 1964. * MODIFIED 7/18/67 FOR 6-BIT FILE OUTPUT * BY MICHAEL R COMER * 00513 ENTRY SETPK SET UP OUTPUT BUFFERS. 00011 ENTRY PACK ADD CHARACTERS TO OUTPUT PAGE. 00420 ENTRY PRPAGE PRINT OUT THE PAGE. 00507 ENTRY RSPAGE RESET PAGE, THROW AWAY CHARACTERS. 00556 ENTRY WAIT WAIT FOR RETURN FROM CONSOLE 00563 ENTRY PKOFF SHUT DOWN OPERATIONS. * TRANSFER VECTOR 00000 512544214760 REMAP 00001 665166213163 WRWAIT 00002 272563226426 GETBUF 00003 464725456060 OPEN 00004 226426262551 BUFFER 00005 234346622560 CLOSE LINKAGE DIRECTOR 00006 000000000000 00007 622563474260 00014 NBITS EQU 12 00006 ABITS EQU 6 04540 BUFSIZ EQU 2400 ROOM FOR MORE THAN ONE PAGE. 00010 0 00000 0 04540 BUFLEN BUFSIZ * 00011 0634 00 1 00406 PACK SXA PR1,1 SAVE IRS. 00012 0634 00 2 00407 SXA PR2,2 00013 0634 00 3 00410 SXA PR3,3 00014 0634 00 4 00411 SXA PR4,4 00015 -0500 60 4 00002 CAL* 2,4 GET COUNT OF CHARACTERS TO MOVE. 00016 0100 00 4 00003 TZE 3,4 SKIP WORK IF NONE. 00017 0402 00 0 00616 SUB =1 SETUP END TEST. 00020 0767 00 0 00022 ALS 18 00021 0622 00 0 00370 STD LEAVE 00022 -0500 00 4 00001 CAL 1,4 GET ARRAY ADDRESS. 00023 0621 00 0 00371 STA NUCHAR 00024 0534 00 3 00413 LXA NCHARS,3 LOAD UP OUTPUT CHARACTER COUNT. 00025 0535 00 2 00416 LAC NWRDS,2 AND WORD COUNT. 00026 3 00000 2 00031 TXH *+3,2,0 00027 0520 00 0 00576 ZET OUTSW 00030 0074 00 4 00327 TSX STRTLN,4 00031 0774 00 1 00000 AXT 0,1 SETUP ARRAY INDEX. 00032 -0500 00 0 00417 CAL UNFIN GET UNFINISHED WORD. 00033 -0520 00 0 00576 NZT OUTSW IS OUTPUT TO TYPEWRITER. 00034 0020 00 0 00371 TRA NUCHAR ENTER LOOP. 00035 0020 00 0 00040 TRA ASCHAR OUTPUT TO PRINTER, ENTER LOOP. 00036 0774 00 3 00000 NUWRD1 AXT 0,3 RESET CHARACTER COUNTER 00037 0522 00 0 00370 LEAVE1 XEC LEAVE SEE IF INPUT IS EXHAUSTED 00040 0522 00 0 00371 ASCHAR XEC NUCHAR GET NEXT CHARACTER 00041 0602 00 0 00415 SLW TEMP1 SAVE PARTIAL WORD 00042 -0130 00 0 00000 XCL CHAR TO AC 00043 -0320 00 0 00623 ANA =O177 KILL MINUS ZEROES FROM MAD 1 RUNOFF OUTPUT ROUTINE. PAGE 2 00044 -0340 00 0 00621 LAS =O55 SEE IF CARRIAGE RETURN 00045 0020 00 0 00047 TRA *+2 NO 00046 0020 00 0 00111 TRA RSETLN YES, START NEXT LINE 00047 -0340 00 0 00620 LAS =O52 SEE IF FORM FEED 00050 0020 00 0 00052 TRA *+2 NO 00051 0020 00 0 00116 TRA EJECT YES, GO EJECT 00052 0634 00 1 00073 SXA C1,1 SAVE CVR XR 00053 -0340 00 0 00622 LAS =O100 SMALL OR CAP .Q 00054 0020 00 0 00060 TRA CVRCAP CAP 00055 0020 00 0 00060 TRA CVRCAP CAP 00056 0114 01 1 00127 CVR TBL,1,1 SMALL, CONVERT TO LEGAL 6-BIT 00057 0020 00 0 00061 TRA *+2 SKIP CAPS 00060 0114 01 1 00227 CVRCAP CVR TBL+64,1,1 CONVERT TO LEGAL 6-BIT 00061 0771 00 0 00036 ARS 30 CHAR TO BITS 30-35 00062 -0130 00 0 00000 XCL TO MQ 00063 0754 00 1 00000 PXA ,1 WAS CHAR BACKSPACE 9(O135) 00064 0361 00 0 00605 ACL BACKSP IF SO, 1 IS ADDED TP 00065 0602 00 0 00605 SLW BACKSP BACKSPACE COUNTER 00066 -0100 00 0 00102 TNZ ANULL IF BS COUNTER IS NOT ZERO, SKIP THIS CHAR 00067 -0500 00 0 00415 CAL TEMP1 GET PARTIAL WORD 00070 -0773 00 0 00036 RQL 36-ABITS SHIFT TO POSITION 00071 -0763 00 0 00006 LGL ABITS ADD TO WORD 00072 1 00001 3 00073 TXI *+1,3,1 INC. CHAR COUNTER 00073 0774 00 1 00000 C1 AXT ,1 RESTOR INPUT COUNTER 00074 1 00001 1 00075 TXI *+1,1,1 COUNT 00075 -3 00005 3 00037 TXL LEAVE1,3,36/ABITS-1 IS WORD FULL 00076 0522 00 0 00400 XEC BF3 YES, STORE WORD 00077 1 77777 2 00100 TXI *+1,2,-1 COUNT WORD 00100 3 73240 2 00036 TXH NUWRD1,2,-BUFSIZ DON'T OVERFLOW OUTPUT 00101 0020 00 0 00403 TRA MORE EXIT 00102 0754 00 1 00000 ANULL PXA ,1 GET BACKSP INDIC 00103 -0100 00 0 00107 TNZ SKIP SKIP IF LAST CHAR WAS BACKSP 00104 -0500 00 0 00605 CAL BACKSP DECREASE BACKSP COUNTER 00105 0402 00 0 00616 SUB =1 .. 00106 0602 00 0 00605 SLW BACKSP .. 00107 -0500 00 0 00415 SKIP CAL TEMP1 RESTOR PARTIAL WORD 00110 0020 00 0 00073 TRA C1 IGNORE THIS CHARACTER 00111 1 00001 1 00112 RSETLN TXI *+1,1,1 COUNT INPUT 00112 0074 00 4 00340 TSX ENDLIN,4 END LAST LINE 00113 0074 00 4 00327 TSX STRTLN,4 START NEXT LINE 00114 3 73240 2 00036 TXH NUWRD1,2,-BUFSIZ CONTINUE 00115 0020 00 0 00403 TRA MORE 00116 -3 00000 3 00121 EJECT TXL *+3,3,0 SKIP IF NEW LINE 00117 0074 00 4 00340 TSX ENDLIN,4 00120 0074 00 4 00327 TSX STRTLN,4 START NEW LINE 00121 -0500 00 0 00607 CAL EJCTMK GET EJECT 00122 1 00001 2 00123 TXI *+1,2,1 POINT TO CONTROL WORD 00123 0522 00 0 00400 XEC BF3 GAZABE 00124 1 77777 2 00125 TXI *+1,2,-1 POINT BACK 00125 1 00001 1 00126 TXI *+1,1,1 COUNT INPUT 00126 0020 00 0 00036 TRA NUWRD1 CONTINUE * 00127 TBL SYN * V MACRO VAL IRP VAL IFF 1,VAL 1 RUNOFF OUTPUT ROUTINE. PAGE 3 VFD O6/60 IFF 0,VAL VFD O6/VAL IRP V END * 00127 V (0,1,2,3,4,5,6,7) CVR TABLES 00137 V (10,11,12,13,14,,,) 00147 V (20,21,22,23,24,25,26,27) 00157 V (30,31,,33,34,33,,) 00167 V (40,41,42,43,44,45,46,47) 00177 V (50,51,,53,54,,,57) 00207 V (60,61,62,63,64,65,66,67) 00217 V (70,71,72,73,74,,,) 00227 V (,,,73,,,,) 00237 V (,,,,33,,,) 00247 V (20,21,22,23,24,25,26,27) 00257 V (30,31,,,) 00264 +000000000001 OCT 1 00265 V (,14) 00267 V (,41,42,43,44,45,46,47) 00277 V (50,51,,,,,33,) 00307 V (,,62,63,64,65,66,67) 00317 V (70,71,72,,,,,) * 00327 -0500 00 0 00604 STRTLN CAL LINMRK GET LINE MARK 00330 0522 00 0 00400 XEC BF3 STORE 00331 1 77777 2 00332 TXI *+1,2,-1 COUNT 00332 3 73240 2 00334 TXH *+2,2,-BUFSIZ IS BUF FULL 00333 0020 00 4 00001 TRA 1,4 YES, RETURN 00334 -0500 00 0 00606 CAL BLANKS NO, GET CARRIAGE CONTROL 00335 0522 00 0 00400 XEC BF3 GAZABE 00336 1 77777 2 00337 TXI *+1,2,-1 COUNT 00337 0020 00 4 00001 TRA 1,4 RETURN * 00340 0636 00 2 00416 ENDLIN SCA NWRDS,2 SAVE COUNT 00341 1 00001 2 00342 TXI *+1,2,1 DON'T START TOO HIGH 00342 -0500 00 0 00604 CAL LINMRK GET MODEL 00343 -0340 60 0 00400 LAS* BF3 CHECK FOR .GE. 00344 1 00001 2 00343 TXI *-1,2,1 NO,BACKSPACE AND TRY AGAIN 00345 0020 00 0 00346 TRA *+1 YES 00346 0754 00 2 00000 PXA ,2 YES,GET-NEWCOUNT 00347 0361 00 0 00416 ACL NWRDS ADD OLDCOUNT 00350 0402 00 0 00616 SUB =1 MAKE IT COME OUT RIGHT 00351 0621 60 0 00400 STA* BF3 STICK IN LINE MARK 00352 0535 00 2 00416 LAC NWRDS,2 RESET COUNT 00353 3 00000 3 00355 TXH *+2,3,0 CHECK FOR UNFINISHED WORD 00354 0020 00 4 00001 TRA 1,4 NO,RETURN 00355 -0500 00 0 00415 CAL TEMP1 YES, GET WORD 00356 0560 00 0 00574 GNULL LDQ NULL FILL WITH NULLS 00357 -0773 00 0 00036 RQL 36-ABITS .. 00360 -0763 00 0 00006 LGL ABITS .. 00361 1 00001 3 00362 TXI *+1,3,1 .. 00362 -3 00005 3 00356 TXL GNULL,3,36/ABITS-1 00363 0522 00 0 00400 XEC BF3 STORE 00364 1 77777 2 00365 TXI *+1,2,-1 COUNT 1 RUNOFF OUTPUT ROUTINE. PAGE 4 00365 0774 00 3 00000 AXT 0,3 ANNOUNCE FINISHED WORD 00366 0020 00 0 00340 TRA ENDLIN FIX LINE MARK * * * 00367 0774 00 3 00000 NUWRD AXT 0,3 RESET CHARACTER COUNTER. 00370 3 00000 1 00403 LEAVE TXH MORE,1,-- SEE IF INPUT IS EXHAUSTED. 00371 0560 00 1 00000 NUCHAR LDQ --,1 GET NEXT INPUT INPUT CHARACTER. 00372 0074 00 4 00000 TSX $REMAP,4 GO REMAP IT. 00373 -0773 00 0 00030 RQL 36-NBITS SHIFT TO POSITION. 00374 -0763 00 0 00014 LGL NBITS ADD TO CURRENT WORD. 00375 1 00001 3 00376 TXI *+1,3,1 COUNT CHARACTERS. 00376 1 00001 1 00377 TXI *+1,1,1 COUNT WORDS IN INPUT USED. 00377 -3 00002 3 00370 TXL LEAVE,3,36/NBITS-1 IS WORD FULL. 00400 0602 00 2 00000 BF3 SLW --,2 YES, STORE WORD. 00401 1 77777 2 00402 TXI *+1,2,-1 ADJUST WORD COUNT. 00402 3 73240 2 00367 TXH NUWRD,2,-BUFSIZ DON'T OVERFLOW BUFFER. * 00403 0602 00 0 00417 MORE SLW UNFIN NEED MORE CHARACTERS, SAVE WORD. 00404 0634 00 3 00413 SXA NCHARS,3 SAVE CHARACTER COUNT. 00405 0636 00 2 00416 SCA NWRDS,2 SAVE WORD COUNT. 00406 0774 00 1 00000 PR1 AXT --,1 00407 0774 00 2 00000 PR2 AXT --,2 00410 0774 00 3 00000 PR3 AXT --,3 00411 0774 00 4 00000 PR4 AXT --,4 00412 0020 00 4 00003 TRA 3,4 * 00413 0 00000 0 00000 NCHARS 00414 0 00000 0 00000 TEMP 00415 0 00000 0 00000 TEMP1 00416 0 00000 0 00000 NWRDS 00417 0 00000 0 00000 UNFIN * 00420 0634 00 1 00467 PRPAGE SXA PPR1,1 00421 0634 00 2 00470 SXA PPR2,2 00422 0634 00 4 00471 SXA PPR4,4 00423 0520 00 0 00576 ZET OUTSW IS OUTPUT TO FILE. 00424 0020 00 0 00473 TRA ASCOUT YES, GO WRITE FILE INSTEAD. 00425 0534 00 1 00413 LXA NCHARS,1 GET CHARACTER COUNT. 00426 -3 00000 1 00441 TXL NONUL,1,0 SEE IF LAST WORD NEEDS FILLING. * 00427 -0500 00 0 00417 CAL UNFIN LAST WORD NEEDS FILLING. 00430 0560 00 0 00574 AGN LDQ NULL GET A NULL CHARACTER. 00431 -0773 00 0 00030 RQL 36-NBITS SHIFT TO POSITION. 00432 -0763 00 0 00014 LGL NBITS INSERT. 00433 1 00001 1 00434 TXI *+1,1,1 COUNT. 00434 -3 00002 1 00430 TXL AGN,1,36/NBITS-1 CHECK FOR FULL WORD. 00435 0535 00 2 00416 LAC NWRDS,2 00436 0602 00 2 00000 BF2 SLW --,2 INSERT FULL WORD. 00437 1 77777 2 00440 TXI *+1,2,-1 COUNT WORD. 00440 0636 00 2 00416 SCA NWRDS,2 SAVE COUNT. * 00441 0560 00 0 00416 NONUL LDQ NWRDS GET WORD COUNT. 00442 -0754 00 0 00000 ZAC 00443 0221 00 0 00617 DVP =14 COMPUTE NUMBER OF CALLS. 00444 0767 00 0 00022 ALS 18 1 RUNOFF OUTPUT ROUTINE. PAGE 5 00445 0622 00 0 00462 STD LASTCT SAVE LENGTH OF LAST CALL. 00446 0131 00 0 00000 XCA GET NUMBER OF CALLS. 00447 0734 00 1 00000 PAX 0,1 00450 0074 00 4 00611 TSX SETFUL,4 SET BCD MODE. 00451 0774 00 2 00000 BF1 AXT --,2 GET OUTPUT POSITION. 00452 1 00001 1 00457 TXI LPTST,1,1 CHECK FOR NO LOOP NECESSARY. 00453 0634 00 2 00455 WRLP SXA ADR,2 STORE OUTPUT POSITION. 00454 0074 00 4 00612 TSX WRFLXA,4 WRITE OUT CHARACTERS. 00455 0 00016 0 00000 ADR --,,14 00456 1 00016 2 00457 TXI *+1,2,14 INDEX OUTPUT POSITION. 00457 2 00001 1 00453 LPTST TIX WRLP,1,1 INDEX, DO AGAIN. 00460 0634 00 2 00462 SXA LASTCT,2 SAVE LAST BUFFER ADDRESS. 00461 0074 00 4 00612 TSX WRFLXA,4 WRITE LAST LINE. 00462 0 00000 0 00000 LASTCT --,,-- * 00463 0074 00 4 00613 TSX SETBCD,4 00464 0600 00 0 00416 DONEPR STZ NWRDS RESET COUNTERS. 00465 0600 00 0 00413 STZ NCHARS 00466 0600 00 0 00417 STZ UNFIN 00467 0774 00 1 00000 PPR1 AXT --,1 00470 0774 00 2 00000 PPR2 AXT --,2 00471 0774 00 4 00000 PPR4 AXT --,4 00472 0020 00 4 00001 TRA 1,4 * 00473 0634 00 3 00477 ASCOUT SXA PPR3,3 I GUESS WE SHOULD SAVE IT SOMEWHERE 00474 0534 00 3 00413 LXA NCHARS,3 SETUP CHAR COUNT 00475 0535 00 2 00416 LAC NWRDS,2 AND WORD COUNT 00476 0074 00 4 00340 TSX ENDLIN,4 CLOSE LAST LINE 00477 0774 00 3 00000 PPR3 AXT ,3 00500 0636 00 2 00416 SCA NWRDS,2 SAVE COUNT. 00501 0074 00 4 00001 WRITE TSX $WRWAIT,4 TD 00502 3 00000 0 00577 TXH OUTNAM TD 00503 3 00000 0 00600 TXH NAME2 TD 00504 3 00000 0 00615 TXH =0 00505 2 00416 0 00000 BF8 TIX --,,NWRDS 00506 0020 00 0 00464 TRA DONEPR * 00507 0600 00 0 00416 RSPAGE STZ NWRDS RESET WORD COUNT. 00510 0600 00 0 00413 STZ NCHARS CHARACTER COUNT. 00511 0600 00 0 00417 STZ UNFIN .. 00512 0020 00 4 00001 TRA 1,4 * 00513 0634 00 4 00553 SETPK SXA PK4,4 SET UP PACK BUFFERS. 00514 0634 00 2 00554 SXA PK2,2 00515 -0500 60 4 00001 CAL* 1,4 GET ARGUMENTS. 00516 0602 00 0 00577 SLW OUTNAM OUTPUT FILE NAME, IF ANY. 00517 -0500 60 4 00002 CAL* 2,4 .. 00520 0602 00 0 00576 SLW OUTSW SWITCH ON IF FILE DESIRED. 00521 0020 00 0 00522 SW1 TRA *+1 ONE-TIME SWITCH. 00522 -0500 00 0 00010 CAL BUFLEN GET SIZE OF BUFFER NEEDED. 00523 0074 00 4 00002 TSX $GETBUF,4 SET UP BUFFER. 00524 0621 00 0 00451 STA BF1 SET UP USERS. 00525 0621 00 0 00505 STA BF8 00526 0621 00 0 00436 STA BF2 00527 0621 00 0 00400 STA BF3 00530 -0520 00 0 00576 NZT OUTSW IS OUTPUT FILE WANTED. 1 RUNOFF OUTPUT ROUTINE. PAGE 6 00531 0020 00 0 00552 TRA DSET NO, SKIP SETUP. 00532 -0500 00 0 00601 CAL TRKLEN YES, GET OUTPUT BUFFER. 00533 0074 00 4 00002 TSX $GETBUF,4 .. 00534 0621 00 0 00544 STA BF9 .. 00535 0074 00 4 00003 TSX $OPEN,4 OPEN OUTPUT FILE. TD 00536 3 00000 0 00631 TXH =HW TD 00537 3 00000 0 00577 TXH OUTNAM TD 00540 3 00000 0 00600 TXH NAME2 00541 0074 00 4 00004 TSX $BUFFER,4 GIVE IT A BUFFER. TD 00542 3 00000 0 00577 TXH OUTNAM 000000 TD 00543 3 00000 0 00600 TXH NAME2 00544 3 00660 0 00000 BF9 TXH --,,TRKSIZ 00545 0074 00 4 00001 TSX $WRWAIT,4 WRITE OUT FIRST WORD. TD 00546 3 00000 0 00577 TXH OUTNAM TD 00547 3 00000 0 00600 TXH NAME2 TD 00550 3 00000 0 00615 TXH =0 00551 3 00002 0 00602 TXH FIRST,,2 SKIP TO TOP OF FIRST PAGE. 00552 -0625 00 0 00521 DSET STL SW1 RESET SWITCH. 00553 0774 00 4 00000 PK4 AXT --,4 RETURN. 00554 0774 00 2 00000 PK2 AXT ,2 00555 0020 00 4 00001 TRA 1,4 .. * 00556 0634 00 4 00561 WAIT SXA RETURN,4 ENTRY TO WAIT FOR SIGNAL FROM CONSOLE. 00557 0074 00 4 00614 TSX RDFLXA,4 SIGNAL IS A CARRIAGE RETURN. 00560 0 00001 0 00573 IN,,1 READ INTO DRAIN BUFFER. 00561 0774 00 4 00000 RETURN AXT --,4 00562 0020 00 4 00001 TRA 1,4 * 00563 -0520 00 0 00576 PKOFF NZT OUTSW WAS OUTPUT DONE TO FILE. 00564 0020 00 4 00001 TRA 1,4 NO, RETURN. 00565 0634 00 4 00571 SXA OF4,4 YES, CLOSE FILE. 00566 0074 00 4 00005 TSX $CLOSE,4 .. TD 00567 3 00000 0 00577 TXH OUTNAM TD 00570 3 00000 0 00600 TXH NAME2 00571 0774 00 4 00000 OF4 AXT --,4 .. 00572 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. * 00573 0 00000 0 00000 IN INPUT BUFFER FOR CONSOLE SIGNAL. * 00574 +000000000057 NULL OCT 57 NULL CHARACTER. 00575 +000000000000 ASCNUL OCT 0 00576 0 00000 0 00000 OUTSW NON-ZERO IF FILE OUTPUT WANTED. 00577 0 00000 0 00000 OUTNAM BCD NAME OF OUTPUT FILE 00600 516445462626 NAME2 BCI 1,RUNOFF SECONDARY NAME OF OUTPUT FILE. 00660 TRKSIZ EQU 432 OUTPUT BUFFER SIZE. 00601 0 00000 0 00660 TRKLEN TRKSIZ WORD CONTAINING SAME. 00602 -377777000001 FIRST OCT 777777000001 FIRST TWO WORDS 00603 +015757575757 OCT 015757575757 OF OUTPUT FILE 00604 -377777000000 LINMRK OCT 777777000000 SEE STATEMENT LABLE 00605 0 00000 0 00000 BACKSP BACKSPACE COUNTER 00606 616060606060 BLANKS BCI 1,/ NORMAL CARRIAGE CONTROL 00607 +015757575757 EJCTMK OCT 015757575757 EJECT CARRIAGE * 00610 0101 00 0 00630 WRFLX TIA =HWRFLX 00611 0101 00 0 00626 SETFUL TIA =HSETFUL 00612 0101 00 0 00627 WRFLXA TIA =HWRFLXA 1 RUNOFF OUTPUT ROUTINE. PAGE 7 00613 0101 00 0 00625 SETBCD TIA =HSETBCD 00614 0101 00 0 00624 RDFLXA TIA =HRDFLXA * END LITERALS 00615 000000000000 00616 000000000001 00617 000000000016 00620 000000000052 00621 000000000055 00622 000000000100 00623 000000000177 00624 512426436721 00625 622563222324 00626 622563266443 00627 665126436721 00630 665126436760 00631 666060606060 1 RUNOFF OUTPUT ROUTINE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 632 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 73 C1 52, 110 573 IN 560 455 ADR 453 430 AGN 434 451 BF1 524 436 BF2 526 400 BF3 76, 123, 330, 335, 343, 351, 363, 527 505 BF8 525 544 BF9 534 571 OF4 565 554 PK2 514 553 PK4 513 406 PR1 11 407 PR2 12 410 PR3 13 411 PR4 14 521 SW1 552 127 TBL 56, 60, 127 552 DSET 531 403 MORE 101, 115, 370 574 NULL 356, 430 3 OPEN 535 11 PACK 0 467 PPR1 420 470 PPR2 421 477 PPR3 473 471 PPR4 422 107 SKIP 103 414 TEMP 556 WAIT 0 453 WRLP 457 6 ABITS 10, 70, 71, 75, 357, 360, 362 102 ANULL 66 5 CLOSE 566 116 EJECT 51 602 FIRST 551 356 GNULL 362 370 LEAVE 21, 37, 377 457 LPTST 452 600 NAME2 503, 540, 543, 547, 570 14 NBITS 10, 373, 374, 377, 431, 432, 434 441 NONUL 426 367 NUWRD 402 416 NWRDS 25, 340, 347, 352, 405, 435, 440, 441, 464, 475, 500, 505, 507 576 OUTSW 27, 33, 423, 520, 530, 563 563 PKOFF 0 0 REMAP 372 513 SETPK 0 415 TEMP1 41, 67, 107, 355 417 UNFIN 32, 403, 427, 466, 511 610 WRFLX 1 RUNOFF OUTPUT ROUTINE. PAGE 2 POST PROCESSOR ASSEMBLY DATA 501 WRITE 40 ASCHAR 35 575 ASCNUL 473 ASCOUT 424 605 BACKSP 64, 65, 104, 106 606 BLANKS 334 4 BUFFER 541 10 BUFLEN 522 4540 BUFSIZ 10, 100, 114, 332, 402 60 CVRCAP 54, 55 464 DONEPR 506 607 EJCTMK 121 340 ENDLIN 112, 117, 366, 476 2 GETBUF 523, 533 462 LASTCT 445, 460 37 LEAVE1 75 604 LINMRK 327, 342 413 NCHARS 24, 404, 425, 465, 474, 510 371 NUCHAR 23, 34, 40 36 NUWRD1 100, 114, 126 577 OUTNAM 502, 516, 537, 542, 546, 567 420 PRPAGE 0 614 RDFLXA 557 561 RETURN 556 111 RSETLN 46 507 RSPAGE 0 613 SETBCD 463 611 SETFUL 450 327 STRTLN 30, 113, 120 601 TRKLEN 532 660 TRKSIZ 544, 601 612 WRFLXA 454, 461 1 WRWAIT 501, 545 0 NO ERROR IN ABOVE ASSEMBLY. 1 CHARACTER REMAPPING PACKAGE. PAGE 1 * CTSS CHARACTERS WHICH HAVE EQUIVALENTS ON THE NON-STANDARD BALL * ARE TYPED, THOSE WHICH DON'T ARE PRINTED AS SPACE. * 00001 ENTRY REMAP GET CORRECT CHARACTER. 00015 ENTRY CHBALL SET CORRECT MAPPING TABLE. * * CALLING SEQUENCE, * LDQ CHAR GET INPUT CHARACTER. * TSX REMAP,4 MAP IT. * STQ CHAR STORE AWAY PROPER CHARACTER. * CHAR IS RIGHT ADJUSTED IN MQ. * TRANSFER VECTOR 00000 663046214431 WHOAMI 00001 0634 00 4 00013 REMAP SXA RM4,4 SAVE THE IR THAT WE USE. 00002 -0520 00 0 00054 NZT MPSW IS ANY MAPPING HANNENING.Q 00003 0020 00 4 00001 TRA 1,4 GUESS NOT, RETURN. 00004 -0130 00 0 00000 XCL GET CHARACTER FROM MQ. 00005 -0320 00 0 00543 ANA =O177 FLUSH OUT UNNEEDED BITS. 00006 0734 00 4 00000 PAX 0,4 MAKE IT AN INDEX. 00007 -0500 00 4 00000 TSW CAL --,4 LOOK UP NEW CHAR WITH OLD ONE AS INDEX. 00010 0771 00 0 00000 SSW ARS -- SHIFT TO CORRECT VARIATION. 00011 -0320 00 0 00543 ANA =O177 MASK TO LEAVE ONLY THIS CHARACTER. 00012 -0130 00 0 00000 XCL PUT CHARACTER BACK INTO MQ. 00013 0774 00 4 00000 RM4 AXT --,4 RESTORE LINKAGE. 00014 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. * * * CALLING SEQUENCE, * CALL CHBALL.(BALL, AUTHORITY, ERR) * WHERE BALL IS A BCD BALL NAME, * AND AUTHORITY IS AN INTEGER. * IF BALL NOT IN TABLES, EXIT VIA ERR. * 00015 0500 00 0 00053 CHBALL CLA AUTH CHECK AUTHORITY. 00016 0402 60 4 00002 SUB* 2,4 .. 00017 -0120 00 4 00003 TMI 3,4 LESS AUTHORITATIVE, RETURN. 00020 0500 60 4 00002 CLA* 2,4 EQUAL OR MORE, SAVE NEW AUTHORITY. 00021 0601 00 0 00053 STO AUTH .. 00022 -0500 60 4 00001 CAL* 1,4 GET BALL NAME. 00023 0634 00 4 00051 SXA CHX4,4 SAVE LINKAGE. 00024 0774 00 4 00060 AXT NBALLS,4 SEARCH FOR THIS BALL NAME. 00025 -0340 00 4 00141 SRCH LAS ETABLE,4 .. 00026 0020 00 0 00030 TRA *+2 NOT THIS ONE. 00027 1 77777 4 00033 TXI GETTAB,4,-1 FOUND, BOUNCE INDEX AND GET BALL. 00030 2 00001 4 00025 TIX SRCH,4,1 INDEX, AND TRY AGAIN. 00031 0534 00 4 00051 LXA CHX4,4 NOT FOUND, GIVE ERROR RETURN. 00032 0020 60 4 00003 TRA* 3,4 AT THIRD ARGUMENT. * 00033 -0500 00 4 00141 GETTAB CAL ETABLE,4 GET TABLE LOCATION AND SHIFT SIZE. 00034 0621 00 0 00007 STA TSW SET TABLE ADDRESS. 00035 0771 00 0 00022 ARS 18 .. 00036 0621 00 0 00010 STA SSW SET VARIATION SHIFTER. 00037 -0625 00 0 00054 STL MPSW SET MAPPING SWITCH ON. 1 CHARACTER REMAPPING PACKAGE. PAGE 2 00040 0074 00 4 00000 TSX $WHOAMI,4 FIND IF WE MUST USE 938 TABLES. 00041 0 00004 0 00055 IN,,4 .. 00042 -0500 00 0 00060 CAL IN+3 GET UNIT ID CODE. 00043 0771 00 0 00036 ARS 30 EXTRACT DEVICE CODE. 00044 0402 00 0 00541 SUB =2 DEVICE 2 IS THE 1050. 00045 -0100 00 0 00051 TNZ CHX4 NOT 1050, ASSUME 2741 TABLE. 00046 -0500 00 0 00010 CAL SSW 1050, REDUCE SHIFT BY HALF WORD. 00047 0402 00 0 00542 SUB =18 .. 00050 0621 00 0 00010 STA SSW RESET SHIFT ADDRESS 00051 0774 00 4 00000 CHX4 AXT --,4 ALL DONE, RESTORE LINKAGE. 00052 0020 00 4 00004 TRA 4,4 RETURN TO CALLER. * 00053 +377777777777 AUTH OCT 377777777777 INITIAL MINIMUM AUTHORITY. 00054 0 00000 0 00000 MPSW STORAGE FOR MAPPING SWITCH. 00055 IN BSS 4 PLACE TO PUT CONSOLE ID. * 00061 BTABLE EQU * TABLE OF ACCEPTABLE GOLF BALLS. BALLS INTENDED FOR 1050. 00061 606060110310 BCI 1, 938 STANDARD CORRESPONDENCE BALL. 00062 0 00022 0 00340 TABLE1,,COL2 00063 606060110603 BCI 1, 963 360 - PL/I - IBM EXTENDED BCD BALL. 00064 0 00033 0 00340 TABLE1,,COL1 BALLS FOR DOMESTIC SELECTRIC TYPEWRITER. 00065 606060000001 BCI 1, 001 00066 0 00022 0 00540 TABLE2,,COL2 00067 606060000005 BCI 1, 005 00070 0 00022 0 00540 TABLE2,,COL2 00071 606060000007 BCI 1, 007 00072 0 00022 0 00540 TABLE2,,COL2 00073 606060000010 BCI 1, 008 00074 0 00022 0 00540 TABLE2,,COL2 00075 606060000102 BCI 1, 012 00076 0 00022 0 00540 TABLE2,,COL2 00077 606060000104 BCI 1, 014 00100 0 00022 0 00540 TABLE2,,COL2 00101 606060000105 BCI 1, 015 00102 0 00022 0 00540 TABLE2,,COL2 00103 606060000200 BCI 1, 020 00104 0 00022 0 00540 TABLE2,,COL2 00105 606060000300 BCI 1, 030 00106 0 00022 0 00540 TABLE2,,COL2 00107 606060000500 BCI 1, 050 00110 0 00022 0 00540 TABLE2,,COL2 00111 606060000700 BCI 1, 070 00112 0 00022 0 00540 TABLE2,,COL2 SELECTRIC BALLS WITH OPTIONAL CHARACTERS. 00113 606060000201 BCI 1, 021 00114 0 00033 0 00540 TABLE2,,COL1 00115 606060000205 BCI 1, 025 00116 0 00033 0 00540 TABLE2,,COL1 00117 606060000206 BCI 1, 026 00120 0 00033 0 00540 TABLE2,,COL1 00121 606060000207 BCI 1, 027 00122 0 00033 0 00540 TABLE2,,COL1 00123 606060000211 BCI 1, 029 00124 0 00033 0 00540 TABLE2,,COL1 1 CHARACTER REMAPPING PACKAGE. PAGE 3 00125 606060000301 BCI 1, 031 00126 0 00033 0 00540 TABLE2,,COL1 00127 606060000303 BCI 1, 033 00130 0 00033 0 00540 TABLE2,,COL1 00131 606060000305 BCI 1, 035 00132 0 00033 0 00540 TABLE2,,COL1 00133 606060000306 BCI 1, 036 00134 0 00033 0 00540 TABLE2,,COL1 00135 606060000311 BCI 1, 039 00136 0 00033 0 00540 TABLE2,,COL1 00137 606060001100 BCI 1, 090 00140 0 00033 0 00540 TABLE2,,COL1 00060 NBALLS EQU *-BTABLE SIZE OF TABLE 00141 ETABLE EQU * END OF TABLE OF ACCEPTABLE GOLF BALLS. * 00033 COL1 EQU 27 SHIFT DEFINITION. 00022 COL2 EQU 18 .. 00011 COL3 EQU 9 .. 00000 COL4 EQU 0 .. * * TABLE FOR 1050-STYLE BALLS. EXCEPTIONS APPEAR AT CODES * 155, 153, 152, 137, 114, 112, 105, 102, 101, AND 100. * * COLUMN 1 IS FOR BALL 953 WITH CTSS 963 CODE TABLE. * COLUMN 2 IS FOR BALL 938 WITH CTSS 963 CODE TABLE. * COLUMN 3 IS FOR BALL 963 WITH CTSS 938 TABLE. * COLUMN 4 IS FOR BALL 938 WITH CTSS 938 TABLE. * * 1 2 3 4 * 00141 +177177177177 OCT 177177177177 00142 +176176176176 OCT 176176176176 00143 +175175175175 OCT 175175175175 00144 +060060060060 OCT 060060060060 CLOSE BRACE. 00145 +060060060060 OCT 060060060060 OPEN BRACE. 00146 +172172172172 OCT 172172172172 00147 +171171171171 OCT 171171171171 00150 +170170170170 OCT 170170170170 00151 +167167167167 OCT 167167167167 00152 +166166166166 OCT 166166166166 00153 +165165165165 OCT 165165165165 00154 +164164164164 OCT 164164164164 00155 +163163163163 OCT 163163163163 00156 +162162162162 OCT 162162162162 00157 +161161161161 OCT 161161161161 00160 +060060060060 OCT 060060060060 OPEN QUOTE (GRAVE ACCENT.) 00161 +157157157157 OCT 157157157157 00162 +156156156156 OCT 156156156156 00163 +155060137060 OCT 155060137060 GREATER THAN, NOT ON 938 BALL. 00164 +154154154154 OCT 154154154154 00165 +060060060060 OCT 060060060060 OPEN SQUARE BRACKET. 00166 +152060100060 OCT 152060100060 LESS THAN, NOT ON 938 BALL 00167 +151151151151 OCT 151151151151 00170 +150150150150 OCT 150150150150 1 CHARACTER REMAPPING PACKAGE. PAGE 4 00171 +147147147147 OCT 147147147147 00172 +146146146146 OCT 146146146146 00173 +145145145145 OCT 145145145145 00174 +144144144144 OCT 144144144144 00175 +143143143143 OCT 143143143143 00176 +142142142142 OCT 142142142142 00177 +141141141141 OCT 141141141141 00200 +140140140140 OCT 140140140140 00201 +137155112137 OCT 137155112137 DOUBLE QUOTE, IN DIFFERENT PLACES. 00202 +136136136136 OCT 136136136136 00203 +135135135135 OCT 135135135135 00204 +060060060060 OCT 060060060060 TILDE. 00205 +133133133133 OCT 133133133133 00206 +132132132132 OCT 132132132132 00207 +131131131131 OCT 131131131131 00210 +130130130130 OCT 130130130130 00211 +127127127127 OCT 127127127127 00212 +126126126126 OCT 126126126126 00213 +125125125125 OCT 125125125125 00214 +124124124124 OCT 124124124124 00215 +123123123123 OCT 123123123123 00216 +122122122122 OCT 122122122122 00217 +121121121121 OCT 121121121121 00220 +120120120120 OCT 120120120120 00221 +117117117117 OCT 117117117117 00222 +116116116116 OCT 116116116116 00223 +115115115115 OCT 115115115115 00224 +114114114114 OCT 114114114114 00225 +113113113113 OCT 113113113113 00226 +060060060060 OCT 060060060060 CIRCUMFLEX. 00227 +111111111111 OCT 111111111111 00230 +110110110110 OCT 110110110110 00231 +107107107107 OCT 107107107107 00232 +106106106106 OCT 106106106106 00233 +105105105105 OCT 105105105105 00234 +104104104104 OCT 104104104104 00235 +103103103103 OCT 103103103103 00236 +060060060060 OCT 060060060060 LEFT SLASH. 00237 +060060060060 OCT 060060060060 CLOSE SQUARE BRACKET. 00240 +100060152060 OCT 100060152060 VERTICAL BAR, NOT ON BALL. 00241 +077077077077 OCT 077077077077 00242 +076076076076 OCT 076076076076 00243 +075075075075 OCT 075075075075 00244 +074074074074 OCT 074074074074 00245 +073073073073 OCT 073073073073 00246 +072072072072 OCT 072072072072 00247 +071071071071 OCT 071071071071 00250 +070070070070 OCT 070070070070 00251 +067067067067 OCT 067067067067 00252 +066066066066 OCT 066066066066 00253 +065065065065 OCT 065065065065 00254 +064064064064 OCT 064064064064 00255 +063063063063 OCT 063063063063 00256 +062062062062 OCT 062062062062 00257 +061061061061 OCT 061061061061 00260 +060060060060 OCT 060060060060 1 CHARACTER REMAPPING PACKAGE. PAGE 5 00261 +057057057057 OCT 057057057057 00262 +056056056056 OCT 056056056056 00263 +055055055055 OCT 055055055055 00264 +054054054054 OCT 054054054054 00265 +053053053053 OCT 053053053053 00266 +052052052052 OCT 052052052052 00267 +051051051051 OCT 051051051051 00270 +050050050050 OCT 050050050050 00271 +047047047047 OCT 047047047047 00272 +046046046046 OCT 046046046046 00273 +045045045045 OCT 045045045045 00274 +044044044044 OCT 044044044044 00275 +043043043043 OCT 043043043043 00276 +042042042042 OCT 042042042042 00277 +041041041041 OCT 041041041041 00300 +040040040040 OCT 040040040040 00301 +037037037037 OCT 037037037037 00302 +036036036036 OCT 036036036036 00303 +035035035035 OCT 035035035035 00304 +034034034034 OCT 034034034034 00305 +033033033033 OCT 033033033033 00306 +032032032032 OCT 032032032032 00307 +031031031031 OCT 031031031031 00310 +030030030030 OCT 030030030030 00311 +027027027027 OCT 027027027027 00312 +026026026026 OCT 026026026026 00313 +025025025025 OCT 025025025025 00314 +024024024024 OCT 024024024024 00315 +023023023023 OCT 023023023023 00316 +022022022022 OCT 022022022022 00317 +021021021021 OCT 021021021021 00320 +020020020020 OCT 020020020020 00321 +017017017017 OCT 017017017017 00322 +016016016016 OCT 016016016016 00323 +015015015015 OCT 015015015015 00324 +014014014014 OCT 014014014014 00325 +013013013013 OCT 013013013013 00326 +012012012012 OCT 012012012012 00327 +011011011011 OCT 011011011011 00330 +010010010010 OCT 010010010010 00331 +007007007007 OCT 007007007007 00332 +006006006006 OCT 006006006006 00333 +005005005005 OCT 005005005005 00334 +004004004004 OCT 004004004004 00335 +003003003003 OCT 003003003003 00336 +002002002002 OCT 002002002002 00337 +001001001001 OCT 001001001001 00340 +000000000000 OCT 000000000000 00340 TABLE1 EQU *-1 LOCATION OF FIRST CHARACTER. * * TABLE FOR SELECTRIC-STYLE BALLS. VIRTUALLY ALL GRAPHICS * ARE REMAPPED. * * COLUMNS 1 AND 2 ARE FOR THE SAME BALLS AS COLUMNS * THREE AND FOUR, BUT ASSUMING CTSS 963 TABLE. * COLUMN 3 IS FOR SELECTRIC OPTIONAL CHARACTER SET. 1 CHARACTER REMAPPING PACKAGE. PAGE 6 * USED FOR BALLS 021, 025, 026, 027, 029, 031, 033, * 035, 036, 039, AND 090 * COLUMN 4 IS FOR STANDARD SELECTRIC CHARACTER SET. * USED FOR BALLS 001, 005, 007, 008, 012, 014, 015, * 020, 030, 050, AND 070. * * 1 2 3 4 CTSS CODE * 00341 +177177177177 OCT 177177177177 0177 00342 +176176176176 OCT 176176176176 0176 00343 +175175175175 OCT 175175175175 0175 00344 +060060060060 OCT 060060060060 0174 - CLOSE BRACE, PRINTS AS SPACE. 00345 +060060060060 OCT 060060060060 0173 - OPEN BRACE, PRINTS AS SPACE. 00346 +172172172172 OCT 172172172172 0172 00347 +000000000000 OCT 000000000000 0171 - SMALL Z 00350 +131131131131 OCT 131131131131 0170 - SMALL Y 00351 +061061061061 OCT 061061061061 0167 - SMALL X 00352 +053053053053 OCT 053053053053 0166 - SMALL W 00353 +143143143143 OCT 143143143143 0165 - SMALL V 00354 +163163163163 OCT 163163163163 0164 - SMALL U 00355 -106506506506 OCT 506506506506 0163 - SMALL T 00356 +151151151151 OCT 151151151151 0162 - SMALL S 00357 +161161161161 OCT 161161161161 0161 00360 +060060060060 OCT 060060060060 0160 - OPEN QUOTE, PRINTS AS SPACE. 00361 +157157157157 OCT 157157157157 0157 00362 +030030030030 OCT 030030030030 0156 - QUES MARK 00363 +060060060060 OCT 060060060060 0155 - GREATER THAN SIGN, PRINTS AS SPACE. 00364 -154554554554 OCT 554554554554 0154 00365 +060013060013 OCT 060013060013 0153 - OPEN SQUARE BRACKET. 00366 +060060060060 OCT 060060060060 0152 - LESS THAN SIGN, PRINTS AS SPACE 00367 +145145145145 OCT 145145145145 0151 - SMALL R 00370 +126126126126 OCT 126126126126 0150 - SMALL Q 00371 +124124124124 OCT 124124124124 0147 - SMALL P 00372 +150150150150 OCT 150150150150 0146 - SMALL 0 00373 +162162162162 OCT 162162162162 0145 - SMALL N 00374 +141141141141 OCT 141141141141 0144 - SMALL M 00375 +170170170170 OCT 170170170170 0143 - SMALL L 00376 +166166166166 OCT 166166166166 0142 - SMALL K 00377 +120120120120 OCT 120120120120 0141 - SMALL J 00400 +112112155155 OCT 112112155155 0140 - UNDERLINE 00401 +044044044044 OCT 044044044044 0137 - DOUBLE QUOTE 00402 +136136136136 OCT 136136136136 0136 00403 +135135135135 OCT 135135135135 0135 - BKSPCE 00404 +060060060060 OCT 060060060060 0134 - TILDE, PRINTS AS SPACE. 00405 +133133133133 OCT 133133133133 0133 - RED SHIFT 00406 +132132132132 OCT 132132132132 0132 - BLACK SHIFT 00407 +146146146146 OCT 146146146146 0131 - SMALL I 00410 +171171171171 OCT 171171171171 0130 - SMALL H 00411 +121121121121 OCT 121121121121 0127 - SMALL G 00412 +123123123123 OCT 123123123123 0126 - SMALL F 00413 +164164164164 OCT 164164164164 0125 - SMALL E 00414 +165165165165 OCT 165165165165 0124 - SMALL D 00415 +167167167167 OCT 167167167167 0123 - SMALL C 00416 +073073073073 OCT 073073073073 0122 - SMALL C 00417 +147147147147 OCT 147147147147 0121 - SMALL A 00420 -105505505505 OCT 505505505505 0120 - AMPERSAND 1 CHARACTER REMAPPING PACKAGE. PAGE 7 00421 +117117117117 OCT 117117117117 0117 00422 +116116116116 OCT 116116116116 0116 00423 +115115115115 OCT 115115115115 0115 00424 +060040060040 OCT 060040060040 0114 - EXCLAMATION POINT. 00425 +113113113113 OCT 113113113113 0113 00426 +060060060060 OCT 060060060060 0112 - CIRCUMFLEX, PRINTS AS SPACE. 00427 +111111111111 OCT 111111111111 0111 - 00430 +110110110110 OCT 110110110110 0110 - IGNORE SINGLE SPC 00431 +107107107107 OCT 107107107107 0107 - IGNORE LINE FEED 00432 +152152100100 OCT 152152100100 0106 - COMMERCIAL AT 00433 +035035035035 OCT 035035035035 0105 - PERCENT. 00434 +103103103103 OCT 103103103103 0104 - NUMBER SIGN 00435 +125125125125 OCT 125125125125 0103 - SEMICOLON 00436 +060060060060 OCT 060060060060 0102 - LEFT SLASH, PRINTS AS SPACE 00437 +060001060001 OCT 060001060001 0101 - CLOSE SQUARE BRACKET. 00440 +060060060060 OCT 060060060060 0100 - UP ARROW, PRINTS AS SPACE. 00441 +077077077077 OCT 077077077077 0077 00442 +076076076076 OCT 076076076076 0076 00443 +075075075075 OCT 075075075075 0075 00444 +137137112112 OCT 137137112112 0074 - LEFT PAREN 00445 +027027027027 OCT 027027027027 0073 - COMMA 00446 +072072072072 OCT 072072072072 0072 - TAB 00447 +034034034034 OCT 034034034034 0071 - CAP Z 00450 +031031031031 OCT 031031031031 0070 - CAP Y 00451 +156156156156 OCT 156156156156 0067 - CAP X 00452 +114114114114 OCT 114114114114 0066 - CAP W 00453 +043043043043 OCT 043043043043 0065 - CAP V 00454 +063063063063 OCT 063063063063 0064 - CAP U 00455 +102102102102 OCT 102102102102 0063 - CAP T 00456 +051051051051 OCT 051051051051 0062 - CAP S 00457 +130130130130 OCT 130130130130 0061 - SLASH 00460 +060060060060 OCT 060060060060 0060 - SPACE 00461 +057057057057 OCT 057057057057 0057 00462 +056056056056 OCT 056056056056 0056 00463 +055055055055 OCT 055055055055 0055 - NEW LINE 00464 +155155137137 OCT 155155137137 0054 - ASTERISK 00465 +054054054054 OCT 054054054054 0053 - DOLLAR SIGN 00466 +052052052052 OCT 052052052052 0052 00467 +045045045045 OCT 045045045045 0051 - CAP R 00470 +026026026026 OCT 026026026026 0050 - CAP Q 00471 +024024024024 OCT 024024024024 0047 - CAP P 00472 +050050050050 OCT 050050050050 0046 - CAP O 00473 +062062062062 OCT 062062062062 0045 - CAP N 00474 +041041041041 OCT 041041041041 0044 - CAP M 00475 +070070070070 OCT 070070070070 0043 - CAP L 00476 +066066066066 OCT 066066066066 0042 - CAP K 00477 +020020020020 OCT 020020020020 0041 - CAP J 00500 +033033033033 OCT 033033033033 0040 - MINUS 00501 +037037037037 OCT 037037037037 0037 00502 +036036036036 OCT 036036036036 0036 00503 +025025025025 OCT 025025025025 0035 - COLON 00504 +074074074074 OCT 074074074074 0034 - RIGHT PAREN 00505 +042042042042 OCT 042042042042 0033 - PERIOD 00506 +032032032032 OCT 032032032032 0032 00507 +046046046046 OCT 046046046046 0031 - CAP I 00510 +071071071071 OCT 071071071071 0030 - CAP H 1 CHARACTER REMAPPING PACKAGE. PAGE 8 00511 +021021021021 OCT 021021021021 0027 - CAP G 00512 +023023023023 OCT 023023023023 0026 - CAP F 00513 +064064064064 OCT 064064064064 0025 - CAP E 00514 +065065065065 OCT 065065065065 0024 - CAP D 00515 +067067067067 OCT 067067067067 0023 - CAP C 00516 +100100152152 OCT 100100152152 0022 - CAP B 00517 +047047047047 OCT 047047047047 0021 - CAP A 00520 +022022022022 OCT 022022022022 0020 - PLUS SIGN 00521 +017017017017 OCT 017017017017 0017 00522 +016016016016 OCT 016016016016 0016 00523 +015015015015 OCT 015015015015 0015 00524 +144144144144 OCT 144144144144 0014 - SINGLE QUOTE 00525 +122122122122 OCT 122122122122 0013 - EQUALS 00526 +012012012012 OCT 012012012012 0012 00527 -104504504504 OCT 504504504504 0011 - 9 00530 +007007007007 OCT 007007007007 0010 - 8 00531 +005005005005 OCT 005005005005 0007 00532 +006006006006 OCT 006006006006 0006 00533 +004004004004 OCT 004004004004 0005 00534 +010010010010 OCT 010010010010 0004 00535 +003003003003 OCT 003003003003 0003 00536 +002002002002 OCT 002002002002 0002 00537 +001170001170 OCT 001170001170 0001 - 1, PRINTS AS SMALL L. 00540 +011011011011 OCT 011011011011 0000 00540 TABLE2 EQU *-1 LOCATION OF FIRST CHARACTER. * END LITERALS 00541 000000000002 00542 000000000022 00543 000000000177 1 CHARACTER REMAPPING PACKAGE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 544 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 55 IN 41, 42 13 RM4 1 10 SSW 36, 46, 50 7 TSW 34 53 AUTH 15, 21 51 CHX4 23, 31, 45 33 COL1 64, 114, 116, 120, 122, 124, 126, 130, 132, 134, 136, 140, 141 22 COL2 62, 66, 70, 72, 74, 76, 100, 102, 104, 106, 110, 112, 141 11 COL3 141 0 COL4 141 54 MPSW 2, 37 25 SRCH 30 1 REMAP 0 61 BTABLE 61, 141 15 CHBALL 0 141 ETABLE 25, 33, 141 33 GETTAB 27 60 NBALLS 24, 141 340 TABLE1 62, 64, 341 540 TABLE2 66, 70, 72, 74, 76, 100, 102, 104, 106, 110, 112, 114, 116, 120, 122, 124, 126 130, 132, 134, 136, 140, 541 0 WHOAMI 40 0 NO ERROR IN ABOVE ASSEMBLY. 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1 * NOTE, INDEX REGISTERS SIX AND SEVEN MUST BE PRESERVED * BY THE CALLING PROGRAM. * THIS ROUTINE MAKES TYPEWRITER COMMENTS, BUT DOES NOT * AFFECT THE BCD-FULL MODE SWITCH. * * J. H. SALTZER, JANUARY, 1965. * 00015 ENTRY ASSIGN TO ASSIGN A NAME TO THE WRITE FILE. 00057 ENTRY WRWORD TO ADD A WORD TO THE FILE. 00100 ENTRY FILE TO CLOSE THE FILE. * 00160 ENTRY SEEK TO OPEN A FILE FOR READING. 00242 ENTRY RDWORD TO GET A WORD FROM FILE. 00275 ENTRY ENDRD TO CLOSE THE FILE. * EXTERN GETBUF,SETBCD,SETFUL,WRFLX,WRFLXA EXTERN OPEN,WRWAIT,RDWAIT,CLOSE,FSTATE,BUFFER * * ASSIGN.($NAME1$,$NAME2$) * TRANSFER VECTOR 00000 272563226426 GETBUF 00001 622563222324 SETBCD 00002 622563266443 SETFUL 00003 665126436760 WRFLX 00004 665126436721 WRFLXA 00005 464725456060 OPEN 00006 665166213163 WRWAIT 00007 512466213163 RDWAIT 00010 234346622560 CLOSE 00011 266263216325 FSTATE 00012 226426262551 BUFFER LINKAGE DIRECTOR 00013 000000000000 00014 216262312745 00015 -0500 60 4 00001 ASSIGN CAL* 1,4 OPEN FILE, GET FILE NAME. 00016 0602 00 0 00304 SLW OUTNAM .. 00017 -0500 60 4 00002 CAL* 2,4 .. 00020 0602 00 0 00305 SLW OUTNAM+1 .. 00021 0634 00 4 00041 SXA OPX4,4 SAVE LINKAGE. 00022 0020 00 0 00023 OSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS. * ******************* 00023 -0500 00 0 00315 CAL WBFSZ GET AN OUTPUT BUFFER FROM SUPERVISOR. 00024 0074 00 4 00000 TSX GETBUF,4 .. 00025 0621 00 0 00071 STA WCALL SAVE LOCATION OF BUFFER. 00026 0621 00 0 00113 STA CLCALL TO CLOSE OUT FILE. 00027 0361 00 0 00315 ACL WBFSZ ADD LENGTH, TO FORM END ADDRESS. 00030 0621 00 0 00060 STA WRNM INSERT IN INSERTER. 00031 -0500 00 0 00313 CAL TRKSZ GET A DISK TRACK BUFFER. 00032 0074 00 4 00000 TSX GETBUF,4 .. 00033 0621 00 0 00055 STA BFCALL SET UP BUFFER CALLER. 00034 -0625 00 0 00022 STL OSW RESET ONE-TIME SWITCH. * ******************* 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2 00035 0774 00 4 00040 AXT OPOK,4 SET QUOTA EXHAUSTED ERROR RETURN. 00036 0634 00 4 00143 SXA WRTN,4 .. 00037 0074 00 3 00043 TSX OPN,3 OPEN THE FILE. 00040 0774 00 7 00330 OPOK AXT WBFLTH,7 SET UP STORAGE COUNT. 00041 0774 00 4 00000 OPX4 AXT --,4 RESTORE LINKAGE. 00042 0020 00 4 00003 TRA 3,4 RETURN. * 00043 0074 00 4 00005 OPN TSX OPEN,4 OPEN FILE. TD 00044 3 00000 0 00324 TXH =HW FOR WRITING. TD 00045 3 00000 0 00304 TXH OUTNAM .. TD 00046 3 00000 0 00305 TXH OUTNAM+1 .. TD 00047 3 00000 0 00156 TXH MODE MAKE IT PERMANENT IF POSSIBLE. TD 00050 3 00000 0 00320 TXH =2 PUT IT ON THE DISK. TD 00051 3 00000 0 00127 OPERR TXH OEXH IN CASE NO MORE QUOTA AVAILABLE. 00052 0074 00 4 00012 TSX BUFFER,4 ASSIGN A BUFFER FOR THE FILE. TD 00053 3 00000 0 00304 TXH OUTNAM .. TD 00054 3 00000 0 00305 TXH OUTNAM+1 .. 00055 3 00660 0 00000 BFCALL TXH --,,TRKLTH .. 00056 0020 00 3 00001 TRA 1,3 RETURN TO CALLER. * * * ENTRY TO ADD A WORD TO FILE. * WRWORD.(WORD) * 00057 -0500 60 4 00001 WRWORD CAL* 1,4 GET WORD TO BE ADDED. 00060 0602 00 7 00000 WRNM SLW --,7 ADD WORD TO OUTPUT BUFFER. 00061 2 00001 7 00077 TIX RETURN,7,1 COUNT AND CHECK FOR FULL BUFFER. 00062 0634 00 4 00076 FULL SXA FULX4,4 BUFFER FULL, WRITE IT OUT. 00063 0774 00 4 00065 AXT WRAGN,4 SET UP EXHAUSTED RETURN ADDRESS. 00064 0634 00 4 00143 SXA WRTN,4 .. 00065 0074 00 4 00006 WRAGN TSX WRWAIT,4 GIVE BUFFER TO SUPERVISOR. TD 00066 3 00000 0 00304 TXH OUTNAM .. TD 00067 3 00000 0 00305 TXH OUTNAM+1 .. TD 00070 3 00000 0 00316 TXH =0 .. 00071 3 00330 0 00000 WCALL TXH --,,WBFLTH .. TD 00072 3 00000 0 00321 TXH =-0 IGNORE POSSIBLE EOF. TD 00073 3 00000 0 00321 TXH =-0 .. TD 00074 3 00000 0 00124 WRERR TXH WEXH ALLOW ERROR RETURN. 00075 0774 00 7 00330 AXT WBFLTH,7 RESET BUFFER POINTER. 00076 0774 00 4 00000 FULX4 AXT --,4 RESTORE LINKAGE. 00077 0020 00 4 00002 RETURN TRA 2,4 RETURN TO CALLER. * * FILE. NO ARGUMENTS. * 00100 0634 00 4 00122 FILE SXA CL4,4 ENTRY TO CLOSE OUT FILE. 00101 -0634 00 7 00103 SXD *+2,7 FORM COUNT OF WORDS SINCE 00102 0774 00 7 00330 AXT WBFLTH,7 LAST BUFFER WAS WRITTEN. 00103 -2 00000 7 00117 TNX NOWR,7,-- IF ZERO, SKIP FINAL WRITE CALL. 00104 -0634 00 7 00113 SXD CLCALL,7 NON-ZERO, SET UP WRITE CALL. 00105 0774 00 4 00107 AXT FWR,4 SET UP RETURN ADDRESS FOR EXHAUSTED CASE. 00106 0634 00 4 00143 SXA WRTN,4 .. 00107 0074 00 4 00006 FWR TSX WRWAIT,4 WRITE OUT PARTIAL BUFFER. TD 00110 3 00000 0 00304 TXH OUTNAM .. TD 00111 3 00000 0 00305 TXH OUTNAM+1 .. TD 00112 3 00000 0 00316 TXH =0 .. 00113 3 00000 0 00000 CLCALL TXH --,,-- .. 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 3 TD 00114 3 00000 0 00321 TXH =-0 IGNORE EOF RETURN. TD 00115 3 00000 0 00321 TXH =-0 .. TD 00116 3 00000 0 00124 TXH WEXH ALLOW ERROR RETURN. 00117 0074 00 4 00010 NOWR TSX CLOSE,4 CLOSE OUT THE FILE. TD 00120 3 00000 0 00304 TXH OUTNAM .. TD 00121 3 00000 0 00305 TXH OUTNAM+1 .. 00122 0774 00 4 00000 CL4 AXT --,4 RESTORE LINKAGE. 00123 0020 00 4 00001 TRA 1,4 .. * 00124 0074 00 4 00010 WEXH TSX CLOSE,4 TRACK QUOTA EXHAUSTED, CLOSE FILE. TD 00125 3 00000 0 00304 TXH OUTNAM .. TD 00126 3 00000 0 00305 TXH OUTNAM+1 .. 00127 0074 00 4 00001 OEXH TSX SETBCD,4 ENTRY FROM OPEN ERROR, COMMENT. 00130 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING. 00131 0074 00 4 00003 TSX WRFLX,4 .. 00132 0 00011 0 00144 ERMESS,,9 00133 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET. 00134 0074 00 4 00002 TSX SETFUL,4 YES, RESET INDICATOR. 00135 -0500 00 0 00317 CAL =1 SWITCH TO TEMPORARY MODE. 00136 0601 00 0 00156 STO MODE .. 00137 -0500 00 0 00155 CAL NOP BLOCK FUTURE ERROR RETURN. 00140 0602 00 0 00051 SLW OPERR .. 00141 0602 00 0 00074 SLW WRERR 00142 0074 00 3 00043 TSX OPN,3 NOW, OPEN IT AGAIN. 00143 0020 00 0 00000 WRTN TRA -- ALL FIXED, RETURN TO MAIN STREAM. * 00144 635121234260 ERMESS BCI 9,TRACK QUOTA EXHAUSTED, TEMPORARY MODE WILL BE USED. 00145 506446632160 00146 256730216462 00147 632524736063 00150 254447465121 00151 517060444624 00152 256066314343 00153 602225606462 00154 252433606060 00155 0761 00 0 00000 NOP NOP INSTRUCTION TO BLOCK ERROR RETURN. 00156 0 00000 0 00000 MODE 0 START IN PERMANENT MODE. 00157 0 00000 0 00000 MODSW TEMP STORAGE FOR 6-BIT,12-BIT INDICATOR. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SEEK.($NAME1$, $NAME2$, ERRET) * ERROR RETURN MEANS FILE NOT FOUND. * 00160 -0500 60 4 00001 SEEK CAL* 1,4 GET FILE NAME. 00161 0602 00 0 00306 SLW INNAM .. 00162 -0500 60 4 00002 CAL* 2,4 .. 00163 0602 00 0 00307 SLW INNAM+1 .. 00164 0634 00 4 00222 SXA SKX4,4 SAVE LINKAGE. 00165 0020 00 0 00166 SKSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS. * ********************* 00166 -0500 00 0 00314 CAL RBFSZ GET A BUFFER FROM SUPERVISOR. 00167 0074 00 4 00000 TSX GETBUF,4 .. 00170 0621 00 0 00257 STA ECALL STORE BUFFER LOCATION. 00171 0621 00 0 00217 STA STCALL .. 00172 -0625 00 0 00165 STL SKSW RESET ONE-TIME SWITCH. * ********************* 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 4 00173 -0500 00 0 00217 CAL STCALL SET UP PICKUP INSTRUCTION FOR INDEXING. 00174 0361 00 0 00314 ACL RBFSZ .. 00175 0621 00 0 00242 STA RDWORD .. 00176 0074 00 4 00011 TSX FSTATE,4 MAKE SURE FILE IS THERE. TD 00177 3 00000 0 00306 TXH INNAM .. TD 00200 3 00000 0 00307 TXH INNAM+1 .. TD 00201 3 00000 0 00321 TXH =-0 DON'T WANT DATA. TD 00202 3 00000 0 00224 TXH NOTFN ERROR RETURN MEANS FILE NOT THERE. 00203 0074 00 4 00005 TSX OPEN,4 OPEN THE FILE FOR READING. TD 00204 3 00000 0 00322 TXH =HR .. TD 00205 3 00000 0 00306 TXH INNAM .. TD 00206 3 00000 0 00307 TXH INNAM+1 .. 00207 0774 00 6 00660 AXT RBFLTH,6 SET UP BUFFER COUNTER. 00210 0774 00 4 00222 AXT SKX4,4 SET END OF FILE RETURN. 00211 0634 00 4 00274 SXA EOFRTN,4 .. 00212 0600 00 0 00312 STZ EOFR CLEAR END OF FILE SWITCH. 00213 0074 00 4 00007 TSX RDWAIT,4 GET INITIAL BUFFER LOAD. TD 00214 3 00000 0 00306 TXH INNAM .. TD 00215 3 00000 0 00307 TXH INNAM+1 .. TD 00216 3 00000 0 00316 TXH =0 .. 00217 3 00660 0 00000 STCALL TXH --,,RBFLTH .. TD 00220 3 00000 0 00265 TXH EOF END OF FILE RETURN. TD 00221 3 00000 0 00311 TXH EOFCT .. 00222 0774 00 4 00000 SKX4 AXT --,4 RESTORE LINKAGE. 00223 0020 00 4 00004 TRA 4,4 RETURN TO CALLER. * 00224 0074 00 4 00001 NOTFN TSX SETBCD,4 FILE NOT FOUND, COMMENT. 00225 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING. 00226 0074 00 4 00004 TSX WRFLXA,4 START UP COMMENT. 00227 0 00001 0 00323 =H FILE ,,1 .. 00230 0074 00 4 00004 TSX WRFLXA,4 INSERT FILE NAME. 00231 0 00002 0 00306 INNAM,,2 .. 00232 0074 00 4 00003 TSX WRFLX,4 END OF COMMENT. 00233 0 00002 0 00240 ECM,,2 .. 00234 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET. 00235 0074 00 4 00002 TSX SETFUL,4 YES, RESET MODE. 00236 0534 00 4 00222 LXA SKX4,4 GIVE ERROR RETURN. 00237 0020 60 4 00003 TRA* 3,4 .. * 00240 604546636026 ECM BCI 2, NOT FOUND. 00241 466445243360 * * ENTRY TO OBTAIN WORD FROM FILE. * WORD = RDWORD.(EOF) * 00242 0500 00 6 00000 RDWORD CLA --,6 GET WORD FROM INPUT BUFFER. 00243 2 00001 6 00264 TIX GOBACK,6,1 INDEX, AND CHECK FOR EMPTY BUFFER. 00244 0520 00 0 00312 ZET EOFR BUFFER EMPTY, HAS END OF FILE OCCURRED. 00245 0020 60 4 00001 TRA* 1,4 YES, GIVE EOF RETURN. 00246 0601 00 0 00310 STO RTEMP NO, SAVE WORD AND GET SOME MORE DATA. 00247 0634 00 4 00263 SXA EMPX4,4 SAVE LINKAGE, ALSO. 00250 0774 00 6 00660 AXT RBFLTH,6 RESET BUFFER POINTER. 00251 0774 00 4 00262 AXT EMPGT,4 SET END OF FILE RETURN. 00252 0634 00 4 00274 SXA EOFRTN,4 .. 00253 0074 00 4 00007 TSX RDWAIT,4 GET ANOTHER BUFFER LOAD OF DATA. TD 00254 3 00000 0 00306 TXH INNAM .. 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 5 TD 00255 3 00000 0 00307 TXH INNAM+1 .. TD 00256 3 00000 0 00316 TXH =0 .. 00257 3 00660 0 00000 ECALL TXH --,,RBFLTH .. TD 00260 3 00000 0 00265 TXH EOF .. TD 00261 3 00000 0 00311 TXH EOFCT .. 00262 0500 00 0 00310 EMPGT CLA RTEMP RESTORE WORD FOR THIS CALL. 00263 0774 00 4 00000 EMPX4 AXT --,4 RESTORE LINKAGE. 00264 0020 00 4 00002 GOBACK TRA 2,4 RETURN TO CALLER. * 00265 -0625 00 0 00312 EOF STL EOFR END OF FILE REACHED, SET SWITCH. 00266 -0500 00 0 00311 CAL EOFCT GET COUNT OF WORDS LEFT. 00267 0361 00 0 00317 ACL =1 BUGGER WORD COUNT. 00270 0734 00 6 00000 PAX 0,6 SET WORD COUNTER. 00271 0361 00 0 00257 ACL ECALL ADJUST PICKUP INSTRUCTION. 00272 0621 00 0 00242 STA RDWORD .. 00273 0074 00 4 00275 TSX ENDRD,4 TURN OFF FILE. 00274 0020 00 0 00000 EOFRTN TRA -- RETURN TO END OF RDFILE CALLING SEQUENCE. * * ENTRY TO CLOSE INPUT FILE. * ENDRD. * 00275 0634 00 4 00302 ENDRD SXA ENDX4,4 SAVE LINKAGE. 00276 0074 00 4 00010 TSX CLOSE,4 CLOSE FILE. TD 00277 3 00000 0 00306 TXH INNAM .. TD 00300 3 00000 0 00307 TXH INNAM+1 .. TD 00301 3 00000 0 00302 TXH *+1 IGNORE ANY ERROR RETURN. 00302 0774 00 4 00000 ENDX4 AXT --,4 RESTORE LINKAGE. 00303 0020 00 4 00001 TRA 1,4 .. * 00304 545454545454 OUTNAM BCI 2,************ NAME OF OUTPUT FILE. 00305 545454545454 00306 545454545454 INNAM BCI 2,************ NAME OF INPUT FILE. 00307 545454545454 00310 0 00000 0 00000 RTEMP STORAGE FOR WORD. 00311 0 00000 0 00000 EOFCT STORAGE FOR END OF FILE COUNTER. 00312 0 00000 0 00312 EOFR * SWITCH FOR END OF FILE MET. * 00660 TRKLTH EQU 432 DISK TRACK LENGTH. 00313 0 00000 0 00660 TRKSZ TRKLTH WORD CONTAINING TRACK LENGTH. 00660 RBFLTH EQU TRKLTH READ BUFFER LENGTH. 00330 WBFLTH EQU TRKLTH/2 WRITE BUFFER LENGTH. 00314 0 00000 0 00660 RBFSZ RBFLTH WORD CONTAINING READ BUFFER SIZE. 00315 0 00000 0 00330 WBFSZ WBFLTH WORD CONTAINING WRITE BUFFER SIZE. * END LITERALS 00316 000000000000 00317 000000000001 00320 000000000002 00321 400000000000 00322 516060606060 00323 602631432560 00324 666060606060 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1 POST PROCESSOR ASSEMBLY DATA 325 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 122 CL4 100 240 ECM 233 265 EOF 220, 260 107 FWR 105 155 NOP 137 43 OPN 37, 142 22 OSW 34 312 EOFR 212, 244, 265 100 FILE 0 62 FULL 156 MODE 47, 136 117 NOWR 103 127 OEXH 51 5 OPEN 43, 203 40 OPOK 35 41 OPX4 21 160 SEEK 0 165 SKSW 172 222 SKX4 164, 210, 236 124 WEXH 74, 116 60 WRNM 30 143 WRTN 36, 64, 106 10 CLOSE 117, 124, 276 257 ECALL 170, 271 262 EMPGT 251 263 EMPX4 247 275 ENDRD 0, 273 302 ENDX4 275 311 EOFCT 221, 261, 266 76 FULX4 62 306 INNAM 161, 163, 177, 200, 205, 206, 214, 215, 231, 254, 255, 277, 300 157 MODSW 130, 133, 225, 234 224 NOTFN 202 51 OPERR 140 314 RBFSZ 166, 174 310 RTEMP 246, 262 313 TRKSZ 31 315 WBFSZ 23, 27 71 WCALL 25 65 WRAGN 63 74 WRERR 141 3 WRFLX 131, 232 15 ASSIGN 0 55 BFCALL 33 12 BUFFER 52 113 CLCALL 26, 104 274 EOFRTN 211, 252 144 ERMESS 132 11 FSTATE 176 0 GETBUF 24, 32, 167 264 GOBACK 243 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2 POST PROCESSOR ASSEMBLY DATA 304 OUTNAM 16, 20, 45, 46, 53, 54, 66, 67, 110, 111, 120, 121, 125, 126 660 RBFLTH 207, 217, 250, 257, 314 7 RDWAIT 213, 253 242 RDWORD 0, 175, 272 77 RETURN 61 1 SETBCD 127, 224 2 SETFUL 134, 235 217 STCALL 171, 173 660 TRKLTH 55, 313, 314 330 WBFLTH 40, 71, 75, 102, 314, 315 4 WRFLXA 226, 230 6 WRWAIT 65, 107 57 WRWORD 0 0 NO ERROR IN ABOVE ASSEMBLY. 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 1 * INPUT AND OUTPUT IS LINE-MARKED FORMAT. * J. H. SALTZER, JANUARY, 1965 * 00010 ENTRY WRITE WRITE ONE LINE OUT. 00071 ENTRY READ TO READ NEXT LINE. 00167 ENTRY BOTTOM TO RAPIDLY MOVE TO BOTTOM OF FILE. 00062 ENTRY CLOSEW CLOSE OUT WRITE FILE. * EXTERN WRFLX,WRWORD,RDWORD,SETBCD,SETFUL,FILE * TRANSFER VECTOR 00000 665126436760 WRFLX 00001 665166465124 WRWORD 00002 512466465124 RDWORD 00003 622563222324 SETBCD 00004 622563266443 SETFUL 00005 263143256060 FILE LINKAGE DIRECTOR 00006 000000000000 00007 665131632560 00014 NBITS EQU 12 COULD BE 6, 9, 12, OR 18. 00003 NCHRS EQU 36/NBITS NO. OF CHARACTERS PER WORD ON 7094. * * WRITE.(LINE, LENGTH) * 00010 0634 00 4 00056 WRITE SXA WX4,4 SAVE LINKAGE AND REGISTERS. 00011 0634 00 2 00057 SXA WX2,2 .. 00012 0634 00 1 00060 SXA WX1,1 .. 00013 -0500 00 4 00001 CAL 1,4 GET LINE ADDRESS. 00014 0621 00 0 00035 STA INLP SET UP LOCATION OF INPUT. 00015 0500 60 4 00002 CLA* 2,4 GET CHARACTER COUNT. 00016 0100 00 4 00003 TZE 3,4 DON'T WORK ON ZERO COUNT. 00017 0402 00 0 00200 SUB =1 DISCARD CARRIAGE RETURN AT END. 00020 0100 00 4 00003 TZE 3,4 ZERO SIZE LINES NOT ALLOWED, EITHER. 00021 0767 00 0 00022 ALS 18 SET UP CHARACTER COUNT. 00022 0622 00 0 00041 STD ENDTST NCHARS = CPW*NWORDS + EXTRAS 00023 0361 00 0 00066 ACL CPWL1 CWP*NWORDS + EXTRAS + CPW - 1 00024 0131 00 0 00000 XCA (CPW*NWORDS + EXTRAS + CWP - 1)/CPW = 00025 -0754 00 0 00000 ZAC NWORDS + (EXTRAS - 1 + CPW)/CPW 00026 0221 00 0 00065 DVP CPW SECOND TERM IS 1 IF EXTRAS .G. 0, 00027 0131 00 0 00000 XCA 0 IF EXTRAS .E. 0 00030 0621 00 0 00067 STA CWD INSERT IN CONTROL WORD. 00031 0074 00 4 00001 TSX WRWORD,4 INSERT THIS WORD IN OUTPUT BUFFER. TD 00032 3 00000 0 00067 TXH CWD .. 00033 0774 00 2 00001 AXT 1,2 00034 0774 00 1 00003 OUTLP AXT 36/NBITS,1 SET CHARACTER COUNTER. 00035 0560 00 2 00000 INLP LDQ --,2 00036 -0773 00 0 00030 RQL 36-NBITS SHIFT CHARACTER TO POSITION. 00037 -0763 00 0 00014 LGL NBITS AND INTO WORD. 00040 1 00001 2 00041 TXI *+1,2,1 COUNT INPUT CHARACTERS. 00041 3 00000 2 00052 ENDTST TXH DONE,2,-- CHECK FOR END OF INPUT. 00042 2 00001 1 00035 TIX INLP,1,1 00043 0602 00 0 00070 SLW WDOUT SAVE COMPLETED WORD. 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 2 00044 0074 00 4 00001 OUT TSX WRWORD,4 STORE COMPLETED WORD. TD 00045 3 00000 0 00070 TXH WDOUT .. 00046 0020 00 0 00034 TRA OUTLP GO BACK FOR MORE. * 00047 0560 00 0 00063 NLLP LDQ NULL FILL IN WORD WITH NULLS. 00050 -0773 00 0 00030 RQL 36-NBITS MOVE NULL TO POSITION. 00051 -0763 00 0 00014 LGL NBITS SHIFT IN A NULL. 00052 2 00001 1 00047 DONE TIX NLLP,1,1 COUNT SPACES LEFT. 00053 0602 00 0 00070 SLW WDOUT STORE THIS WORD. 00054 0074 00 4 00001 TSX WRWORD,4 ADD TO OUTPUT BUFFER. TD 00055 3 00000 0 00070 TXH WDOUT .. 00056 0774 00 4 00000 WX4 AXT --,4 RESTORE LINKAGE, AND IRS. 00057 0774 00 2 00000 WX2 AXT --,2 .. 00060 0774 00 1 00000 WX1 AXT --,1 00061 0020 00 4 00003 TRA 3,4 .. * 00062 0020 00 0 00005 CLOSEW TRA FILE REFLECT CLOSE CALL TO BUFFER. * * 00063 +000000000057 NULL OCT 0057 NULL CHARACTER. 00064 +000000000055 RETURN OCT 0055 CARRIAGE RETURN CHARACTER. 00065 0 00003 0 00000 CPW ,,NCHRS NUMBER OF CHARACTERS PER WORD. 00066 0 00002 0 00000 CPWL1 ,,NCHRS-1 CHARACTERS PER WORD LESS ONE. * 00067 -377777000000 CWD OCT 777777000000 00070 0 00000 0 00000 WDOUT STORAGE FOR WORD BEING OUTPUT. * * LENGTH = READ.(LINE, BUFSIZ, EOF) * 00071 0634 00 1 00137 READ SXA RX1,1 READ NEXT LINE. 00072 0634 00 2 00136 SXA RX2,2 00073 0634 00 4 00134 SXA RX4,4 00074 0634 00 3 00135 SXA RX3,3 00075 -0500 00 4 00001 CAL 1,4 GET LOCATION OF BUFFER. 00076 0621 00 0 00124 STA RPUT 00077 -0500 60 4 00002 CAL* 2,4 SET UP END TEST. 00100 0402 00 0 00200 SUB =1 00101 0767 00 0 00022 ALS 18 .. 00102 0622 00 0 00125 STD BUFTST .. 00103 0074 00 4 00002 RDAGN TSX RDWORD,4 GET CONTROL WORD. 00104 0 00000 0 00141 EOF IN CASE WE ARE AT END OF FILE. 00105 -0734 00 1 00000 PDX 0,1 PUT FLAG IN IR1. 00106 0734 00 3 00000 PAX 0,3 PUT COUNT IN IR3. 00107 -2 77776 1 00146 TNX WOOPS,1,-2 CHECK FLAG. 00110 -3 00000 3 00103 TXL RDAGN,3,0 IGNORE ZERO-LENGTH LINE. 00111 0774 00 2 00000 RDON AXT 0,2 SET OUTPUT COUNTER. 00112 0074 00 4 00002 ROUTLP TSX RDWORD,4 READ A WORD. 00113 0 00000 0 00141 EOF .. 00114 0774 00 1 00003 AXT 36/NBITS,1 SET CHARACTER COUNTER. 00115 0131 00 0 00000 XCA WORD TO MQ. 00116 -0754 00 0 00000 RINLP ZAC CLEAR AC. 00117 -0763 00 0 00014 LGL NBITS GET NEXT CHARACTER. 00120 -0340 00 0 00063 LAS NULL IS THIS A NULL CHARACTER. 00121 0020 00 0 00123 TRA *+2 NO. 00122 0020 00 0 00126 TRA RCH YES, SKIP IT. 00123 1 00001 2 00124 TXI *+1,2,1 COUNT STORAGE SPACES. 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 3 00124 0602 00 2 00000 RPUT SLW --,2 STORE CHARACTER IN LINE. 00125 3 00000 2 00133 BUFTST TXH PXA,2,-- TEST FOR FULL BUFFER. 00126 2 00001 1 00116 RCH TIX RINLP,1,1 INDEX, AND COUNT CHARACTERS. 00127 2 00001 3 00112 TIX ROUTLP,3,1 INDEX, AND COUNT WORDS. 00130 -0500 00 0 00064 CAL RETURN PUT RETURN AT END OF LINE. 00131 1 00001 2 00132 TXI *+1,2,1 INCLUDE IN COUNT. 00132 0522 00 0 00124 XEC RPUT INSTALL IT. 00133 0754 00 2 00000 PXA PXA 0,2 GET WORD COUNT. 00134 0774 00 4 00000 RX4 AXT --,4 00135 0774 00 3 00000 RX3 AXT --,3 00136 0774 00 2 00000 RX2 AXT --,2 00137 0774 00 1 00000 RX1 AXT --,1 00140 0020 00 4 00004 TRA 4,4 * 00141 0534 00 4 00134 EOF LXA RX4,4 END OF FILE REACHED, TAKE ERROR 00142 0534 00 3 00135 LXA RX3,3 RETURN. 00143 0534 00 2 00136 LXA RX2,2 00144 0534 00 1 00137 LXA RX1,1 00145 0020 60 4 00003 TRA* 3,4 * * 00146 0074 00 4 00003 WOOPS TSX SETBCD,4 FILE IS NOT LINE-MARKED PROPERLY, COMPLAIN. 00147 0074 00 4 00000 TSX WRFLX,4 00150 0 00006 0 00161 MESS1,,6 00151 0074 00 4 00004 TSX SETFUL,4 RESTORE INDICATOR. 00152 0074 00 4 00002 LP TSX RDWORD,4 SEARCH FOR NEXT LINE MARK. 00153 0 00000 0 00141 EOF 00154 -0734 00 1 00000 PDX 0,1 CHECK FOR LINE MARK IN THIS WORD. 00155 -2 77776 1 00152 TNX LP,1,-2 .. 00156 0734 00 3 00000 PAX 0,3 LINE MARK OK, CHECK COUNT. 00157 -3 00000 1 00152 TXL LP,1,0 .. 00160 0020 00 0 00111 TRA RDON COUNT NON-ZERO, READ ON. * 00161 314547646360 MESS1 BCI 6,INPUT FILE HAS IMPROPER FORMAT. 00162 263143256030 00163 216260314447 00164 514647255160 00165 264651442163 00166 336060606060 * * ROUTINE TO SWING TO BOTTOM OF FILE. * 00167 0634 00 4 00176 BOTTOM SXA EOFB,4 SAVE LINKAGE. 00170 0074 00 4 00002 LOOP TSX RDWORD,4 GET NEXT INPUT WORD. 00171 0 00000 0 00176 EOFB EXIT ON END OF FILE. 00172 0601 00 0 00070 STO WDOUT SAVE THIS WORD. 00173 0074 00 4 00001 TSX WRWORD,4 WRITE OUT THIS WORD. TD 00174 3 00000 0 00070 TXH WDOUT .. 00175 0020 00 0 00170 TRA LOOP REPEAT. * 00176 0774 00 4 00000 EOFB AXT --,4 RESTORE LINKAGE. 00177 0020 00 4 00001 TRA 1,4 RETURN. * END 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 4 LITERALS 00200 000000000001 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 1 POST PROCESSOR ASSEMBLY DATA 201 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 152 LP 155, 157 65 CPW 26 67 CWD 30, 32 141 EOF 104, 113, 153 44 OUT 133 PXA 125 126 RCH 122 137 RX1 71, 144 136 RX2 72, 143 135 RX3 74, 142 134 RX4 73, 141 60 WX1 12 57 WX2 11 56 WX4 10 52 DONE 41 176 EOFB 167, 171 5 FILE 62 35 INLP 14, 42 170 LOOP 175 47 NLLP 52 63 NULL 47, 120 111 RDON 160 71 READ 0 124 RPUT 76, 132 66 CPWL1 23 161 MESS1 150 14 NBITS 10, 34, 36, 37, 50, 51, 114, 117 3 NCHRS 10, 65, 66 34 OUTLP 46 103 RDAGN 110 116 RINLP 126 70 WDOUT 43, 45, 53, 55, 172, 174 146 WOOPS 107 0 WRFLX 147 10 WRITE 0 167 BOTTOM 0 125 BUFTST 102 62 CLOSEW 0 41 ENDTST 22 2 RDWORD 103, 112, 152, 170 64 RETURN 130 112 ROUTLP 127 3 SETBCD 146 4 SETFUL 151 1 WRWORD 31, 44, 54, 173 0 NO ERROR IN ABOVE ASSEMBLY. 1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. PAGE 1 * * J. H. SALTZER, MAY, 1966. 00002 ENTRY BIN CONVERTER. LINKAGE DIRECTOR 00000 000000000000 00001 223145606060 00002 0634 00 1 00024 BIN SXA IRR1,1 00003 0600 00 0 00027 STZ INT CLEAR RESULT. 00004 0774 00 1 00006 AXT 6,1 00005 0560 60 4 00001 LDQ* 1,4 GET ARGUMENT. 00006 -0754 00 0 00000 LOP ZAC 00007 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER. 00010 -0340 00 0 00032 LAS =10 SKIP OVER NON-DIGITS. 00011 0020 00 0 00023 TRA TIX 00012 0020 00 0 00023 TRA TIX 00013 0601 00 0 00030 STO DIG NUMBER, SAVE DIGIT. 00014 -0600 00 0 00031 STQ TEM SAVE MQ FOR MULTIPLIACATION. 00015 0560 00 0 00027 LDQ INT GET OLD NUMBER. 00016 0200 00 0 00032 MPY =10 SHIFT. 00017 0131 00 0 00000 XCA 00020 0400 00 0 00030 ADD DIG ADD THIS DIGIT TO RESULT. 00021 0601 00 0 00027 STO INT SAVE, FOR NEXT PASS. 00022 0560 00 0 00031 LDQ TEM RESTORE MQ. 00023 2 00001 1 00006 TIX TIX LOP,1,1 00024 0774 00 1 00000 IRR1 AXT --,1 00025 0500 00 0 00027 CLA INT RESULT IN AC. 00026 0020 00 4 00002 TRA 2,4 * 00027 0 00000 0 00000 INT 00030 0 00000 0 00000 DIG 00031 0 00000 0 00000 TEM * END LITERALS 00032 000000000012 1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. PAGE 1 POST PROCESSOR ASSEMBLY DATA 33 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 2 BIN 0 30 DIG 13, 20 27 INT 3, 15, 21, 25 6 LOP 23 31 TEM 14, 22 23 TIX 11, 12 24 IRR1 2 0 NO ERROR IN ABOVE ASSEMBLY. 1 INTERFACE TO PROVIDE EXTENDED MEMORY ARRAY. PAGE 1 * J. H. SALTZER, JANUARY, 1965. * 00004 ENTRY FRAME 00017 ENTRY PRPIX 00022 ENTRY RSMEM * TRANSFER VECTOR 00000 265121442501 FRAME1 00001 475147316701 PRPIX1 LINKAGE DIRECTOR 00002 000000000000 00003 265121442560 00004 0634 00 4 00015 FRAME SXA FRX4,4 SAVE RETURN. 00005 0074 00 4 00030 TSX GETMEM,4 GET LOCATION OF ARRAY. 00006 0621 00 0 00034 STA SAVMEM SAVE FOR RESET ROUTINE. 00007 0361 00 0 00035 ACL =5401 00010 0621 00 0 00013 STA CAL1 SET UP CALLING SEQUENCE. 00011 0074 00 4 00027 TSX SETMEM,4 MOVE BOUND. 00012 0074 00 4 00000 CAL0 TSX $FRAME1,4 GO TO MAD. 00013 3 00033 0 00000 CAL1 TXH --,,DIM TD 00014 3 00000 0 00033 TXH DIM SO IT CAN BE CHANGED. 00015 0774 00 4 00000 FRX4 AXT --,4 00016 0020 00 4 00001 TRA 1,4 RETURN TO CALLER WITH AC. * 00017 0634 00 4 00015 PRPIX SXA FRX4,4 SAVE RETURN. 00020 -0774 00 4 00012 AXC CAL0,4 SET UP CALLING SEQUENCE. 00021 0020 00 0 00001 TRA $PRPIX1 BUT CALL DIFFERENT ENTRY. * 00022 0634 00 4 00025 RSMEM SXA RSX4,4 SAVE RETURN. 00023 -0500 00 0 00034 CAL SAVMEM RESET MEMORY BOUND. 00024 0074 00 4 00027 TSX SETMEM,4 00025 0774 00 4 00000 RSX4 AXT --,4 00026 0020 00 4 00001 TRA 1,4 * 00027 0101 00 0 00037 SETMEM TIA =HSETMEM 00030 0101 00 0 00036 GETMEM TIA =HGETMEM * 00031 0 00000 0 00000 -- 00032 +000000000001 DEC 1 BASE 00033 +000000000002 DEC 2 DIMENSIONS. 00033 DIM SYN *-1 DIMENSION VECTOR. 00034 0 00000 0 00000 SAVMEM * * END LITERALS 00035 000000012431 00036 272563442544 00037 622563442544 1 INTERFACE TO PROVIDE EXTENDED MEMORY ARRAY. PAGE 1 POST PROCESSOR ASSEMBLY DATA 40 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 33 DIM 13, 14, 34 12 CAL0 20 13 CAL1 10 15 FRX4 4, 17 25 RSX4 22 4 FRAME 0 17 PRPIX 0 22 RSMEM 0 0 FRAME1 12 30 GETMEM 5 1 PRPIX1 21 34 SAVMEM 6, 23 27 SETMEM 11, 24 0 NO ERROR IN ABOVE ASSEMBLY. 1 LIBRARY PACKAGE. PAGE 1 00024 ENTRY .PCOMT PRINT COMMENT ROUTINE 00010 ENTRY CHNCOM GO DORMANT. 00005 ENTRY EXIT SAME. 00002 ENTRY .SETUP CALLED BY MAD MAIN PROGRA. 00013 ENTRY COMARG GET COMMAND ARGUMENT. 00106 ENTRY WHOAMI 00066 ENTRY SETBCD 00064 ENTRY SETFUL 00065 ENTRY SETBRK 00061 ENTRY WRFLXA 00063 ENTRY WRFLX 00062 ENTRY RDFLXA 00067 ENTRY UPDATE UPDATE U.F.D. 00070 ENTRY CHFILE 00071 ENTRY DELFIL 00072 ENTRY FSTATE 00073 ENTRY BUFFER 00074 ENTRY OPEN 00075 ENTRY WRWAIT 00076 ENTRY WRFILE 00077 ENTRY RDWAIT 00100 ENTRY RDFILE 00101 ENTRY CLOSE 00043 ENTRY GETBUF OBTAIN BUFFERS FROM SUPERVISOR. * LINKAGE DIRECTOR 00000 000000000000 00001 334723464463 00002 0760 00 0 00016 .SETUP LMTM USE SEVEN TAG MODE. 00003 0774 00 6 00000 AXT 0,6 SET UP IR6 TO AVOID EARLY CALL TO READ. 00004 0020 00 0 00064 TRA SETFUL USE FULL MODE. SETFUL RETURNS 1,4. * 00005 0074 00 4 00066 EXIT TSX SETBCD,4 CLEANUP, RESET MODE. 00006 0074 00 4 00063 TSX WRFLX,4 PUT OUT A STAR FOR RUNCOMS. 00007 0 00001 0 00060 STAR,,1 AND THEN PERFORM CHNCOM SEQUENCE. 00010 0074 00 4 00102 CHNCOM TSX CHN,4 THIS CHNCOM ALWAYS GOES DEAD, TD 00011 3 00000 0 00107 TXH =0 IF NO CHAIN EXISTS. 00012 0020 00 0 00010 TRA *-2 IN CASE OF RESTART, DON'T. * 00013 0634 00 4 00022 COMARG SXA CM4,4 GET COMMAND ARGUMENT FOR MAD. 00014 -0500 60 4 00001 CAL* 1,4 GET ARGUMENT NUMBER. 00015 0602 00 0 00017 SLW ARG GIVE ARGUMENT NUMBER. 00016 0074 00 4 00103 TSX GETCOM,4 GET COMMAND ARGUMENT. 00017 0 00000 0 00000 ARG .. 00020 0602 00 0 00017 SLW ARG MOVE TO ARITHMETIC AC. 00021 0500 00 0 00017 CLA ARG .. 00022 0774 00 4 00000 CM4 AXT --,4 RESTORE LINKAGE. 00023 0020 00 4 00002 TRA 2,4 RETURN TO CALLER. * 00024 -0500 00 4 00001 .PCOMT CAL 1,4 GET WORD COUNT. 00025 0621 00 0 00042 STA RETURN ON RETURN, JUMP BUFFER. 00026 0767 00 0 00022 ALS 18 SETUP COUNT. 00027 0622 00 0 00036 STD PCNT .. 00030 1 77776 4 00031 TXI *+1,4,-2 SETUP UP BUFFER ADDRESS. 1 LIBRARY PACKAGE. PAGE 2 00031 0636 00 4 00036 SCA PCNT,4 SAVE BUFFER ADDRESS, AND LINKAGE. 00032 0074 00 4 00064 TSX SETFUL,4 MAKE SURE MODE SET AND NO LINES COMING IN. 00033 0074 00 4 00061 TSX WRFLXA,4 SWITCH TO RED SHIFT. 00034 0 00001 0 00056 REDS,,1 .. 00035 0074 00 4 00063 TSX WRFLX,4 PRINT LINE. 00036 0 00000 0 00000 PCNT --,,-- .. 00037 0074 00 4 00061 TSX WRFLXA,4 SHIFT BACK TO BLACK. 00040 0 00001 0 00057 BLCKS,,1 .. 00041 0535 00 4 00036 LAC PCNT,4 RESTORE LINKAGE. 00042 0020 00 4 00000 RETURN TRA --,4 RETURN TO CALLER. * 00043 0634 00 4 00052 GETBUF SXA GX4,4 ENTRY TO GET BUFFERS. 00044 0602 00 0 00055 SLW BUFSIZ SIZE OF BUFFER IN AC. 00045 0074 00 4 00104 TSX GETMEM,4 GET PRESENT BOUND. 00046 0601 00 0 00054 STO START SAVE AS BUFFER START. 00047 0361 00 0 00055 ACL BUFSIZ FORM NEW BOUND. 00050 0074 00 4 00105 TSX SETMEM,4 ASK FOR MORE. 00051 -0500 00 0 00054 CAL START GIVE CALLER LOCATION OF 00052 0774 00 4 00000 GX4 AXT --,4 HIS NEW BUFFER. 00053 0020 00 4 00001 TRA 1,4 RETURN. * 00054 0 00000 0 00000 START STORAGE FOR BUFFER LOCATION. 00055 0 00000 0 00000 BUFSIZ STORAGE FOR BUFFER SIZE. * 00056 +013300570057 REDS OCT 013300570057 RED SHIFT AND TWO NULLS. 00057 +013200570057 BLCKS OCT 013200570057 BLACK SHIFT AND TWO NULLS. 00060 -145757575757 STAR OCT 545757575757 ASTERISK AND 5 NULLS. * * SUPERVISOR SUBROUTINE CALLERS. * 00061 0101 00 0 00133 WRFLXA TIA =HWRFLXA 00062 0101 00 0 00122 RDFLXA TIA =HRDFLXA 00063 0101 00 0 00134 WRFLX TIA =HWRFLX 00064 0101 00 0 00126 SETFUL TIA =HSETFUL 00065 0101 00 0 00125 SETBRK TIA =HSETBRK 00066 0101 00 0 00124 SETBCD TIA =HSETBCD 00067 0101 00 0 00130 UPDATE TIA =HUPDATE 00070 0101 00 0 00111 CHFILE TIA =HCHFILE 00071 0101 00 0 00114 DELFIL TIA =HDELFIL 00072 0101 00 0 00115 FSTATE TIA =HFSTATE 00073 0101 00 0 00110 BUFFER TIA =HBUFFER 00074 0101 00 0 00120 OPEN TIA =HOPEN 00075 0101 00 0 00135 WRWAIT TIA =HWRWAIT 00076 0101 00 0 00132 WRFILE TIA =HWRFILE 00077 0101 00 0 00123 RDWAIT TIA =HRDWAIT 00100 0101 00 0 00121 RDFILE TIA =HRDFILE 00101 0101 00 0 00113 CLOSE TIA =HCLOSE 00102 0101 00 0 00112 CHN TIA =HCHNCOM 00103 0101 00 0 00116 GETCOM TIA =HGETCOM 00104 0101 00 0 00117 GETMEM TIA =HGETMEM 00105 0101 00 0 00127 SETMEM TIA =HSETMEM 00106 0101 00 0 00131 WHOAMI TIA =HWHOAMI * END 1 LIBRARY PACKAGE. PAGE 3 LITERALS 00107 000000000000 00110 226426262551 00111 233026314325 00112 233045234644 00113 234346622560 00114 242543263143 00115 266263216325 00116 272563234644 00117 272563442544 00120 464725456060 00121 512426314325 00122 512426436721 00123 512466213163 00124 622563222324 00125 622563225142 00126 622563266443 00127 622563442544 00130 644724216325 00131 663046214431 00132 665126314325 00133 665126436721 00134 665126436760 00135 665166213163 1 LIBRARY PACKAGE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 136 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 17 ARG 15, 20, 21 102 CHN 10 22 CM4 13 52 GX4 43 5 EXIT 0 74 OPEN 0 36 PCNT 27, 31, 41 56 REDS 34 60 STAR 7 57 BLCKS 40 101 CLOSE 0 54 START 46, 51 63 WRFLX 0, 6, 35 73 BUFFER 0 55 BUFSIZ 44, 47 70 CHFILE 0 10 CHNCOM 0 13 COMARG 0 71 DELFIL 0 72 FSTATE 0 43 GETBUF 0 103 GETCOM 16 104 GETMEM 45 24 .PCOMT 0 2 .SETUP 0 100 RDFILE 0 62 RDFLXA 0 77 RDWAIT 0 42 RETURN 25 66 SETBCD 0, 5 65 SETBRK 0 64 SETFUL 0, 4, 32 105 SETMEM 50 67 UPDATE 0 106 WHOAMI 0 76 WRFILE 0 61 WRFLXA 0, 33, 37 75 WRWAIT 0 0 NO ERROR IN ABOVE ASSEMBLY. SD BCD 09/18/68 2319.9 4724 00000 1 MAIN PROGRAM FOR SP OR SD COMMAND PAGE 1 * WRITEEN BY ROGER ROACH 9-6-67 TRANSFER VECTOR 00000 263151626360 FIRST 00001 0074 00 4 00000 TSX $FIRST,4 00002 0101 00 0 00003 TIA =HDEAD SHOULD NEVER RETURN END LITERALS 00003 242521246060 1 MAIN PROGRAM FOR SP OR SD COMMAND PAGE 1 POST PROCESSOR ASSEMBLY DATA 4 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 0 FIRST 1 0 NO ERROR IN ABOVE ASSEMBLY. 1 MAD PROGRAM LISTING ... ... ... FILE SD000 MAD 02/08/68 1318.1 - SD ..ARGUMENT LIST SCANNING. CHECKS RIGHT FORMAT AND SELECT LM00001 ..APPROPRIATE SUBROUTINE LM00002 ..PAT=0 AT THE VERY BEGINNING OF THE COMMAND LM00003 LM00004 EXTERNAL FUNCTION *001 LM00005 ENTRY TO FIRST. *002 LM00006 ENTRY TO SD. *003 LM00007 LM00008 THROUGH D,FOR ARG=1,1,ARG.G.4 *004 LM00009 E K=K+1 *005 LM00010 ARG(ARG)=COMARG.(K) *006 LM00011 D WHENEVER ARG(ARG).E.$$,TRANSFER TO E *007 LM00012 LM00013 WHENEVER ARG(1).NE.FENCE,TRANSFER TO A *008 LM00014 TRANSFER TO ERROR1 *009 LM00015 LM00016 ..PAT=1 WHEN IN THE TRACE MODE LM00017 ..PAT=2 WHEN STOMAP IS REQUESTED LM00018 ..PAT=5 WHEN ONE ABSOLUTE LOCATION REQUESTED LM00019 ..PAT=6 WHEN PROGRAM NAME IS GIVEN LM00020 LM00021 A WHENEVER ARG(2).NE.FENCE,TRANSFER TO B *010 LM00022 F THROUGH F,FOR ENT=1,1,ENT.G.5.OR.ARG(1).E.ENT(ENT) *011 LM00023 WHENEVER ENT.LE.5,EXECUTE BRTIT.(ENTRY.,ENT) *012 LM00024 WHENEVER ARG(1).E.STOM *013 LM00025 PAT=2 *014 LM00026 EXECUTE BRFIL.(STMAP., PAT) *015 LM00027 OR WHENEVER TOCT.(ARG(1)).E.1 *016 LM00028 PAT=5 *017 LM00029 EXECUTE ABS.(PAT) *018 LM00030 OTHERWISE *019 LM00031 PAT=6 *020 LM00032 EXECUTE BRFIL.(PROG.,PAT) *021 LM00033 END OF CONDITIONAL *022 LM00034 LM00035 ..PAT=3 WHEN STOMAP REQUESTED FROM SPECIFIED ENTRY LM00036 ..PAT=7 WHEN N ABSOLUTE LOCATIONS ARE REQUESTED LM00037 ..PAT=8 WHEN ONE LOCATION IS REQUESTED IN A GIVEN PROGRAM LM00038 LM00039 B WHENEVER ARG(3).NE.FENCE,TRANSFER TO C *023 LM00040 WHENEVER ARG(1).E.STOM *024 LM00041 PAT=3 *025 LM00042 EXECUTE BRFIL.(STMAP., PAT) *026 LM00043 OR WHENEVER ARG(2).E.TRAC *027 LM00044 PAT=1 *028 LM00045 EXECUTE PRNTP.(MESS2) *029 LM00046 EXECUTE CHNCOM.(0) *030 LM00047 OR WHENEVER TOCT.(ARG(1)).E.1 *031 LM00048 PAT=7 *032 LM00049 EXECUTE ABS.(PAT) *033 LM00050 OR WHENEVER TOCT.(ARG(2)).E.1 *034 LM00051 PAT=8 *035 LM00052 EXECUTE BRFIL.(PROG.,PAT) *036 LM00053 OTHERWISE *037 LM00054 TRANSFER TO ERROR1 *038 LM00055 END OF CONDITIONAL *039 LM00056 LM00057 LM00058 ..PAT=9 WHEN N LOCATIONS ARE REQUESTED IN A GIVEN PROGRAM LM00059 LM00060 C WHENEVER ARG(4).NE.FENCE *040 LM00061 TRANSFER TO ERROR1 *041 LM00062 OR WHENEVER TOCT.(ARG(2)).E.1 *042 LM00063 PAT=9 *043 LM00064 EXECUTE BRFIL.(PROG.,PAT) *044 LM00065 OTHERWISE *045 LM00066 TRANSFER TO ERROR1 *046 LM00067 END OF CONDITIONAL *047 LM00068 LM00069 ERROR1 EXECUTE PRNTP.(MESS1) *048 LM00070 EXECUTE CHNCOM.(0) *049 LM00071 LM00072 NORMAL MODE IS INTEGER *050 LM00073 PROGRAM COMMON ARG *051 LM00074 DIMENSION ARG(4) *052 LM00075 LM00076 VECTOR VALUES FENCE=777777777777K *053 LM00077 VECTOR VALUES ENT(1)=$COMORGCOMLNGFRSTPTPRGLNGLDNAME$ *054 LM00078 VECTOR VALUES STOM=$STOMAP$ *055 LM00079 VECTOR VALUES PAT=0 *056 LM00080 VECTOR VALUES K=0 *057 LM00081 VECTOR VALUES TRAC=$ TRACE$ *058 LM00082 VECTOR VALUES MESS1=$INCORRECT FORMAT$,777777777777K *059 LM00083 VECTOR VALUES MESS2=$OPTION NOT AVAILABLE$,777777777777K *060 LM00084 END OF FUNCTION *061 LM00085 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00316 TRANSFER VECTOR LENGTH 00013 PROGRAM BEGINS 00061 FIRST UNUSED COMMON/ERASABLE 77454 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES SD 00065 0 FIRST 00062 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ARG 77461 AC1 D 00013 4 E 00020 4 K 00030 A 1 PAT 00042 A 1 A 00014 4 ENT 00026 A 1 FENCE 00027 A 1 MESS1 00034 A 1 STOM 00043 A 1 B 00015 4 ERROR1 00017 4 F 00013 4 MESS2 00041 A 1 TRAC 00044 A 1 C 00016 4 0FUNCTION DICTIONARY ABS 00000 1 BRFIL 00001 1 BRTIT 00002 1 CHNCOM 00003 1 COMARG 00004 1 ENTRY 00005 1 EXIT 00006 1 PRNTP 00007 1 PROG 00010 1 STMAP 00011 1 TOCT 00012 1 0ABSOLUTE CONSTANTS 00056 +000000000011 00055 +000000000010 00054 +000000000007 00045 +000000000000 00050 +000000000003 00053 +000000000006 00047 +000000000002 00052 +000000000005 00060 -206060606060 00051 +000000000004 00046 +000000000001 00057 +233000000000 0STATEMENT DICTIONARY 00014 TXL -300127000123 00015 TXL -300210000204 00016 TXL -300262000257 00017 TXL -300301000277 00020 TXL -300104000101 0PROGRAM EXTERNAL FUNCTION 001 LM00005 ENTRY TO FIRST. 002 LM00006 00061 TRA +0 02000 0 00064 00062 SXA +0 63400 2 00304 00063 TSX +0 07400 2 00304 ENTRY TO SD. 003 LM00007 00064 TRA +0 02000 0 00067 00065 SXA +0 63400 2 00304 00066 TSX +0 07400 2 00304 THROUGH D,FOR ARG=1,1,ARG.G.4 004 LM00009 00067 CLA +0 50000 0 00046 00070 STO +0 60100 0 77461 00071 TRA +0 02000 0 00075 00072 CLA +0 50000 0 77461 00073 ADD +0 40000 0 00046 00074 STO +0 60100 0 77461 00075 CLA +0 50000 0 77461 00076 SUB +0 40200 0 00051 00077 TZE +0 10000 0 00101 00100 TPL +0 12000 0 00116 E K=K+1 005 LM00010 00101 CLA +0 50000 0 00030 00102 ADD +0 40000 0 00046 00103 STO +0 60100 0 00030 ARG(ARG)=COMARG.(K) 006 LM00011 00104 TSX +0 07400 4 00004 00105 TXH +3 00000 0 00030 00106 LXA +0 53400 1 77461 00107 STO +0 60100 1 77461 D WHENEVER ARG(ARG).E.$$,TRANSFER TO E 007 LM00012 00110 LXA +0 53400 1 77461 00111 CLA +0 50000 1 77461 00112 SUB +0 40200 0 00060 00113 TNZ -0 10000 0 00115 00114 TRA +0 02000 0 00020 00115 TRA +0 02000 0 00072 WHENEVER ARG(1).NE.FENCE,TRANSFER TO A 008 LM00014 00116 CLA +0 50000 0 77460 00117 SUB +0 40200 0 00027 00120 TZE +0 10000 0 00122 00121 TRA +0 02000 0 00014 TRANSFER TO ERROR1 009 LM00015 00122 TRA +0 02000 0 00017 A WHENEVER ARG(2).NE.FENCE,TRANSFER TO B 010 LM00022 00123 CLA +0 50000 0 77457 00124 SUB +0 40200 0 00027 00125 TZE +0 10000 0 00127 00126 TRA +0 02000 0 00015 F THROUGH F,FOR ENT=1,1,ENT.G.5.OR.ARG(1).E.ENT(ENT) 011 LM00023 00127 CLA +0 50000 0 00046 00130 STO +0 60100 0 00026 00131 TRA +0 02000 0 00135 00132 CLA +0 50000 0 00026 00133 ADD +0 40000 0 00046 00134 STO +0 60100 0 00026 00135 LXA +0 53400 2 00026 00136 CLA +0 50000 0 77460 00137 SUB +0 40200 2 00026 00140 TZE +0 10000 0 00146 00141 CLA +0 50000 0 00026 00142 SUB +0 40200 0 00052 00143 TZE +0 10000 0 00145 00144 TPL +0 12000 0 00146 00145 TRA +0 02000 0 00132 WHENEVER ENT.LE.5,EXECUTE BRTIT.(ENTRY.,ENT) 012 LM00024 00146 CLA +0 50000 0 00026 00147 SUB +0 40200 0 00052 00150 TZE +0 10000 0 00152 00151 TPL +0 12000 0 00155 00152 TSX +0 07400 4 00002 00153 TXH +3 00000 0 00005 00154 TXH +3 00000 0 00026 WHENEVER ARG(1).E.STOM 013 LM00025 00155 CLA +0 50000 0 77460 00156 SUB +0 40200 0 00043 00157 TNZ -0 10000 0 00166 PAT=2 014 LM00026 00160 CLA +0 50000 0 00047 00161 STO +0 60100 0 00042 EXECUTE BRFIL.(STMAP., PAT) 015 LM00027 00162 TSX +0 07400 4 00001 00163 TXH +3 00000 0 00011 00164 TXH +3 00000 0 00042 OR WHENEVER TOCT.(ARG(1)).E.1 016 LM00028 00165 TRA +0 02000 0 00204 00166 TSX +0 07400 4 00012 00167 TXH +3 00000 0 77460 00170 SUB +0 40200 0 00046 00171 TNZ -0 10000 0 00177 PAT=5 017 LM00029 00172 CLA +0 50000 0 00052 00173 STO +0 60100 0 00042 EXECUTE ABS.(PAT) 018 LM00030 00174 TSX +0 07400 4 00000 00175 TXH +3 00000 0 00042 OTHERWISE 019 LM00031 00176 TRA +0 02000 0 00204 PAT=6 020 LM00032 00177 CLA +0 50000 0 00053 00200 STO +0 60100 0 00042 EXECUTE BRFIL.(PROG.,PAT) 021 LM00033 00201 TSX +0 07400 4 00001 00202 TXH +3 00000 0 00010 00203 TXH +3 00000 0 00042 END OF CONDITIONAL 022 LM00034 B WHENEVER ARG(3).NE.FENCE,TRANSFER TO C 023 LM00040 00204 CLA +0 50000 0 77456 00205 SUB +0 40200 0 00027 00206 TZE +0 10000 0 00210 00207 TRA +0 02000 0 00016 WHENEVER ARG(1).E.STOM 024 LM00041 00210 CLA +0 50000 0 77460 00211 SUB +0 40200 0 00043 00212 TNZ -0 10000 0 00221 PAT=3 025 LM00042 00213 CLA +0 50000 0 00050 00214 STO +0 60100 0 00042 EXECUTE BRFIL.(STMAP., PAT) 026 LM00043 00215 TSX +0 07400 4 00001 00216 TXH +3 00000 0 00011 00217 TXH +3 00000 0 00042 OR WHENEVER ARG(2).E.TRAC 027 LM00044 00220 TRA +0 02000 0 00257 00221 CLA +0 50000 0 77457 00222 SUB +0 40200 0 00044 00223 TNZ -0 10000 0 00233 PAT=1 028 LM00045 00224 CLA +0 50000 0 00046 00225 STO +0 60100 0 00042 EXECUTE PRNTP.(MESS2) 029 LM00046 00226 TSX +0 07400 4 00007 00227 TXH +3 00000 0 00041 EXECUTE CHNCOM.(0) 030 LM00047 00230 TSX +0 07400 4 00003 00231 TXH +3 00000 0 00045 OR WHENEVER TOCT.(ARG(1)).E.1 031 LM00048 00232 TRA +0 02000 0 00257 00233 TSX +0 07400 4 00012 00234 TXH +3 00000 0 77460 00235 SUB +0 40200 0 00046 00236 TNZ -0 10000 0 00244 PAT=7 032 LM00049 00237 CLA +0 50000 0 00054 00240 STO +0 60100 0 00042 EXECUTE ABS.(PAT) 033 LM00050 00241 TSX +0 07400 4 00000 00242 TXH +3 00000 0 00042 OR WHENEVER TOCT.(ARG(2)).E.1 034 LM00051 00243 TRA +0 02000 0 00257 00244 TSX +0 07400 4 00012 00245 TXH +3 00000 0 77457 00246 SUB +0 40200 0 00046 00247 TNZ -0 10000 0 00256 PAT=8 035 LM00052 00250 CLA +0 50000 0 00055 00251 STO +0 60100 0 00042 EXECUTE BRFIL.(PROG.,PAT) 036 LM00053 00252 TSX +0 07400 4 00001 00253 TXH +3 00000 0 00010 00254 TXH +3 00000 0 00042 OTHERWISE 037 LM00054 00255 TRA +0 02000 0 00257 TRANSFER TO ERROR1 038 LM00055 00256 TRA +0 02000 0 00017 END OF CONDITIONAL 039 LM00056 C WHENEVER ARG(4).NE.FENCE 040 LM00061 00257 CLA +0 50000 0 77455 00260 SUB +0 40200 0 00027 00261 TZE +0 10000 0 00264 TRANSFER TO ERROR1 041 LM00062 00262 TRA +0 02000 0 00017 OR WHENEVER TOCT.(ARG(2)).E.1 042 LM00063 00263 TRA +0 02000 0 00277 00264 TSX +0 07400 4 00012 00265 TXH +3 00000 0 77457 00266 SUB +0 40200 0 00046 00267 TNZ -0 10000 0 00276 PAT=9 043 LM00064 00270 CLA +0 50000 0 00056 00271 STO +0 60100 0 00042 EXECUTE BRFIL.(PROG.,PAT) 044 LM00065 00272 TSX +0 07400 4 00001 00273 TXH +3 00000 0 00010 00274 TXH +3 00000 0 00042 OTHERWISE 045 LM00066 00275 TRA +0 02000 0 00277 TRANSFER TO ERROR1 046 LM00067 00276 TRA +0 02000 0 00017 END OF CONDITIONAL 047 LM00068 ERROR1 EXECUTE PRNTP.(MESS1) 048 LM00070 00277 TSX +0 07400 4 00007 00300 TXH +3 00000 0 00034 EXECUTE CHNCOM.(0) 049 LM00071 00301 TSX +0 07400 4 00003 00302 TXH +3 00000 0 00045 NORMAL MODE IS INTEGER 050 LM00073 PROGRAM COMMON ARG 051 LM00074 DIMENSION ARG(4) 052 LM00075 VECTOR VALUES FENCE=777777777777K 053 LM00077 00027 -3 77777 7 77777 VECTOR VALUES ENT(1)=$COMORGCOMLNGFRSTPTPRGLNGLDNAME$ 054 LM00078 00021 -0 32445 2 14425 00022 -0 75127 4 34527 00023 +2 65162 6 34763 00024 +2 34644 4 34527 00025 +2 34644 4 65127 VECTOR VALUES STOM=$STOMAP$ 055 LM00079 00043 -2 26346 4 42147 VECTOR VALUES PAT=0 056 LM00080 00042 +0 00000 0 00000 VECTOR VALUES K=0 057 LM00081 00030 +0 00000 0 00000 VECTOR VALUES TRAC=$ TRACE$ 058 LM00082 00044 -2 06351 2 12325 VECTOR VALUES MESS1=$INCORRECT FORMAT$,777777777777K 059 LM00083 00031 -3 77777 7 77777 00032 -1 14421 6 36060 00033 +2 52363 6 02646 00034 +3 14523 4 65151 VECTOR VALUES MESS2=$OPTION NOT AVAILABLE$,777777777777K 060 LM00084 00035 -3 77777 7 77777 00036 -0 32560 6 06060 00037 -2 52131 4 32122 00040 -2 04546 6 36021 00041 -0 64763 3 14645 END OF FUNCTION 061 LM00085 00303 TSX +0 07400 4 00006 00304 TXH +3 00000 0 00000 00305 SXD -0 63400 1 00304 00306 SXA +0 63400 4 00310 00307 TRA +0 02000 2 00001 00310 AXT +0 77400 4 00000 00311 LXA +0 53400 2 00304 00312 LXD -0 53400 1 00304 00313 TRA +0 02000 4 00001 SDUMP BCD 09/18/68 2320.0 8011 00000 1 PAGE 1 SDUMP --- PRINT M.C./CONTENTS OF 'SAVED' FILE EXTERN OTBC,DTBC,OCTDMP,BTOC TYPE MACRO N,TEXT,LOC ... WRFLX((LOC,,N)) RMT LOC BCI N,TEXT RMT TYPE END M ... MACRO NAME(LIST) TSX NAME,4 ARG (LIST) ... END ARG MACRO NAMES IRP NAMES PAR NAMES IRP ARG END SYS MACRO NAMES IRP NAMES NAMES TIA =H'NAMES IRP SYS END 3 00001 1 60000 PAR OPSYN PTH 2 00017 1 60000 BLK OPSYN TIX 00000 466322236060 OTBC 00001 246322236060 DTBC 00002 462363244447 OCTDMP 00003 226346236060 BTOC 01750 BUFSIZ EQU 1000 * 00004 ... SETBRK(ENDCPU) 00006 ... FERRTN(TILT) 00010 ... GETCOM(1) GET 'SAVED' FILE NAME 00012 0602 00 0 00362 SLW FN SAVE IT 00013 0322 00 0 00533 ERA =O777777777777 00014 0100 00 0 00300 TZE ENDCPU 00015 ... GETCOM(2) 00017 -0340 00 0 00533 LAS =O777777777777 CHECK FOR NO STARTING LOCATION 00020 0020 00 0 00022 TRA *+2 .. SKIP FOR MEMORY REQUEST 00021 0020 00 0 00132 TRA CPU .. NO STARTING LOC. TYPE OUT CPU 00022 -0320 00 0 00504 ANA =O0707070707 INSURE 5 OCTAL DIGITS 00023 -0130 00 0 00000 XCL INTO MQ 00024 0074 00 4 00000 TSX $OTBC,4 CONVERT TO BINARY 00025 0621 00 0 00124 STA ORG SAVE INITIAL LOCATION 00026 ... GETCOM(3) GET COUNT 00030 -0320 00 0 00503 ANA =O17171717 INSURE 4 DECIMAL DIGITS 00031 -0130 00 0 00000 XCL INTO MQ 1 PAGE 2 SDUMP --- PRINT M.C./CONTENTS OF 'SAVED' FILE 00032 0074 00 4 00001 TSX $DTBC,4 CONVERT COUNT TO BINARY 00033 0734 00 4 00000 PAX 0,4 INTO IR4 00034 3 01750 4 00037 TXH RDMEM,4,BUFSIZ 00035 0634 00 4 00367 SXA COUNT1,4 SAVE COUNT 00036 -0634 00 4 00125 SXD COUNT2,4 .. 00037 RDMEM ... OPEN(=HR,FN,FN+1,MZ,MZ,NFND,ERRBUF) 00047 ... RDWAIT(FN,FN+1,=0(MEMBND,,1)ERREOF,ERRBUF,ERREOF,ERRBUF) 00060 -0500 00 0 00336 CAL MEMBND GET MEMBND,,MCLN 00061 0771 00 0 00022 ARS 18 .. 00062 -0320 00 0 00502 ANA =O77777 ISOLATE LENGTH OF M.C. 00063 0361 00 0 00477 ACL =2 00064 0361 00 0 00124 ACL ORG 00065 0601 00 0 00370 STO RD.REL (CAN BE .GE. 2 .P. 15) 00066 -0500 00 0 00336 CAL MEMBND 00067 -0320 00 0 00502 ANA =O77777 00070 0340 00 0 00502 CAS =O77777 00071 0774 00 0 00000 AXT 0,0 (IMPOSSIBLE) 00072 0361 00 0 00476 ACL =1 00073 0402 00 0 00124 SUB ORG CALCULATE COUNT 00074 0100 00 0 00127 TZE ERROR (MEMBND IS ONE HIGHER THAN LAST LOCATION) 00075 -0120 00 0 00127 TMI ERROR OUT OF BOUNDS 00076 0340 00 0 00367 CAS COUNT1 00077 0020 00 0 00104 TRA *+5 00100 0020 00 0 00104 TRA *+4 00101 0621 00 0 00367 STA COUNT1 00102 0767 00 0 00022 ALS 18 00103 0622 00 0 00125 STD COUNT2 00104 ... GETMEM() 00105 0621 00 0 00115 STA C2 00106 0621 00 0 00125 STA COUNT2 00107 0361 00 0 00367 ACL COUNT1 00110 ... SETMEM() 00111 ... RDFILE(FN,FN+1,RD.REL) 00115 2 00367 0 00000 C2 BLK **,,COUNT1 00116 ARG (ERREOF,ERRBUF) 00120 ... CLOSE(FN,FN+1) 00123 0074 00 4 00002 TSX $OCTDMP,4 DUMP USER CORE ON HIS CONSOLE 00124 0 00000 0 00000 ORG ** .. 00125 0 01750 0 00000 COUNT2 **,,BUFSIZ .. 00126 0020 00 0 00300 TRA ENDCPU AND EXIT * * 00127 ERROR TYPE 9,(REQUEST LOCATION NOT IN SAVED FILE.) 00131 0020 00 0 00300 TRA ENDCPU * 00132 CPU ... OPEN(=HR,FN,FN+1,MZ,MZ,NFND,ERRBUF) 00142 ... RDFILE(FN,FN+1,=0(MEMBND,,SLTS-MEMBND+1)ERREOF,ERRBUF) 00151 ... CLOSE(FN,FN+1) * 00154 ... WRFLX(*) PRINT ONE BLANK LINE 1 PAGE 3 SDUMP --- PRINT M.C./CONTENTS OF 'SAVED' FILE * 00156 -0500 00 0 00337 CAL ILC SET UP ILC 00157 -0765 00 0 00022 LGR 18 00160 0074 00 4 00003 TSX $BTOC,4 00161 0767 00 0 00006 ALS 6 00162 -0501 00 0 00501 ORA =H00000, 00163 0602 00 0 00404 SLW CPU1+1 00164 0500 00 0 00351 CLA SQ SET UP SIGN AND Q BITS 00165 0767 00 0 00001 ALS 1 00166 0560 00 0 00527 LDQ =H S= 1, 00167 -0120 00 0 00171 TMI *+2 00170 0560 00 0 00526 LDQ =H S= 0, 00171 -0600 00 0 00405 STQ CPU1+2 00172 0560 00 0 00525 LDQ =H Q= 1, 00173 -0760 00 0 00001 PBT 00174 0560 00 0 00524 LDQ =H Q= 0, 00175 -0600 00 0 00406 STQ CPU1+3 00176 0560 00 0 00350 LDQ LAC SET UP LOGICAL AC 00177 0074 00 4 00003 TSX $BTOC,4 00200 0602 00 0 00410 SLW CPU1+5 00201 0074 00 4 00003 TSX $BTOC,4 00202 0602 00 0 00411 SLW CPU1+6 00203 0560 00 0 00352 LDQ MQ SET UP MQ 00204 0074 00 4 00003 TSX $BTOC,4 00205 0602 00 0 00413 SLW CPU1+8 00206 0074 00 4 00003 TSX $BTOC,4 00207 0602 00 0 00414 SLW CPU1+9 00210 0560 00 0 00353 LDQ SI SET UP SENSE INDICATORS 00211 0074 00 4 00003 TSX $BTOC,4 00212 0602 00 0 00416 SLW CPU1+11 00213 0074 00 4 00003 TSX $BTOC,4 00214 0602 00 0 00417 SLW CPU1+12 00215 ... WRFLX((CPU1,,13)) TYPE FIRST LINE RMT CPU1 BCI 7, ILC= 00000, S= 0, Q= 0, LAC= 000000000000 BCI 6,, MQ= 000000000000, SI= 000000000000 RMT 00217 -0500 00 0 00514 CAL =HOFF, SET UP AC OVERFLOW 00220 0520 00 0 00354 ZET OV 00221 -0500 00 0 00515 CAL =HON, 00222 0602 00 0 00421 SLW CPU2+1 00223 -0500 00 0 00514 CAL =HOFF, SET UP FLOATING TRAP MODE 00224 0520 00 0 00356 ZET FLMD 00225 -0500 00 0 00515 CAL =HON, 00226 0602 00 0 00423 SLW CPU2+3 00227 -0500 00 0 00514 CAL =HOFF, SET UP MULTIPLE TAG MODE 00230 0520 00 0 00355 ZET MTMD 00231 -0500 00 0 00515 CAL =HON, 00232 0602 00 0 00425 SLW CPU2+5 00233 -0500 00 0 00514 CAL =HOFF, SET UP DIVIDE CHECK 00234 0520 00 0 00360 ZET DVCK 00235 -0500 00 0 00515 CAL =HON, 00236 0602 00 0 00427 SLW CPU2+7 1 PAGE 4 SDUMP --- PRINT M.C./CONTENTS OF 'SAVED' FILE 00237 -0500 00 0 00336 CAL MEMBND SET UP USER MEMORY BOUND 00240 -0765 00 0 00022 LGR 18 00241 0074 00 4 00003 TSX $BTOC,4 00242 -0501 00 0 00523 ORA =H 00000 00243 0602 00 0 00432 SLW CPU2+10 00244 ... WRFLX((CPU2,,11)) .. SECOND LINE RMT CPU2 BCI 6, ACOV XXXXXX FLMD XXXXXX MTMD XXXXXX BCI 5, DVCK XXXXXX MEMBND= XXXXX RMT 00246 0774 00 1 00016 AXT 14,1 SET UP INDEX REGISTERS 00247 0774 00 2 00000 AXT 0,2 00250 -0500 00 2 00346 IRS CAL IR1,2 00251 -0765 00 0 00022 LGR 18 00252 0074 00 4 00003 TSX $BTOC,4 00253 0767 00 0 00006 ALS 6 00254 -0602 00 1 00452 ORS CPU3+15,1 00255 -2 00002 1 00257 TNX *+2,1,2 00256 1 00001 2 00250 TXI IRS,2,1 00257 ... WRFLX((CPU3,,14)) .. THIRD LINE RMT CPU3 BCI 8, IR1= 00000, IR2= 00000, IR3= 00000, IR4= 00000, BCI 6, IR5= 00000, IR6= 00000, IR7= 00000. RMT 00261 0774 00 1 00016 AXT 14,1 00262 0774 00 2 00000 AXT 0,2 00263 -0500 00 2 00346 IRSC CAL IR1,2 00264 0737 00 4 00000 PAC ,4 00265 0754 00 4 00000 PXA ,4 00266 -0765 00 0 00022 LGR 18 00267 0074 00 4 00003 TSX BTOC,4 00270 0767 00 0 00006 ALS 6 00271 -0602 00 1 00470 ORS CPU4+15,1 00272 -2 00002 1 00274 TNX *+2,1,2 00273 1 00001 2 00263 TXI IRSC,2,1 00274 ... WRFLX((CPU4,,14)) .. FOURTH LINE RMT CPU4 DUP 1,7 BCI 2, (-00000) RMT 00276 ... WRFLX(*) * 00300 ENDCPU ... CLOSE(=HALL,MZ) 00303 ... CHNCOM(0) TO CHAIN OR 'DEAD' * 00305 ERREOF TYPE 6,( SAVED FILE HAS ILLEGAL FORMAT.) 00307 0020 00 0 00300 TRA ENDCPU 1 PAGE 5 SDUMP --- PRINT M.C./CONTENTS OF 'SAVED' FILE 00310 -0500 00 0 00371 NFND CAL ERRBUF 00311 0402 00 0 00500 SUB =12 00312 -0100 00 0 00316 TNZ TILT 00313 ... WRFLX((FN,,4)) 00315 0020 00 0 00300 TRA ENDCPU 00316 -3 00322 0 00317 TILT TXL *+1,,*+4 00317 -0500 00 0 00517 CAL =HPRNTER 00320 0560 00 0 00533 LDQ =O777777777777 00321 ... NEXCOM() 00322 SYS (OPEN,RDFILE,RDWAIT,CLOSE) 00326 SYS (SETBRK,FERRTN,WRFLX,GETCOM,CHNCOM) 00333 SYS (GETMEM,SETMEM,NEXCOM) * 00336 0 00000 0 00000 MEMBND 00337 0 00000 0 00000 ILC 00340 0 00000 0 00000 IR7 00341 0 00000 0 00000 IR6 00342 0 00000 0 00000 IR5 00343 0 00000 0 00000 IR4 00344 0 00000 0 00000 IR3 00345 0 00000 0 00000 IR2 00346 0 00000 0 00000 IR1 00347 0 00000 0 00000 PTIRS 00350 0 00000 0 00000 LAC 00351 0 00000 0 00000 SQ 00352 0 00000 0 00000 MQ 00353 0 00000 0 00000 SI 00354 0 00000 0 00000 OV 00355 0 00000 0 00000 MTMD 00356 0 00000 0 00000 FLMD 00357 0 00000 0 00000 IOCK 00360 0 00000 0 00000 DVCK 00361 0 00000 0 00000 SLTS * 00362 545454545454 FN BCI 2,****** SAVED 00364 604546636026 BCI 2, NOT FOUND. 00366 -0 00000 0 00000 MZ MZE 00367 0 00000 0 01750 COUNT1 BUFSIZ 00370 0 00000 0 00000 RD.REL 00371 0 00000 0 00000 ERRBUF 00372 RMT * 00372 512550642562 ..001 BCI 9,REQUEST LOCATION NOT IN SAVED FILE. .001 00403 603143231360 CPU1 BCI 7, ILC= 00000, S= 0, Q= 0, LAC= 000000000000 .001 00412 736044501360 BCI 6,, MQ= 000000000000, SI= 000000000000 .001 00420 602123466560 CPU2 BCI 6, ACOV XXXXXX FLMD XXXXXX MTMD XXXXXX .001 00426 602465234260 BCI 5, DVCK XXXXXX MEMBND= XXXXX .001 00433 603151011360 CPU3 BCI 8, IR1= 00000, IR2= 00000, IR3= 00000, IR4= 00000, .001 1 PAGE 6 SDUMP --- PRINT M.C./CONTENTS OF 'SAVED' FILE 00443 603151051360 BCI 6, IR5= 00000, IR6= 00000, IR7= 00000. .001 00451 CPU4 DUP 1,7 .001 00451 606060607440 BCI 2, (-00000) .001 00467 606221652524 ..002 BCI 6, SAVED FILE HAS ILLEGAL FORMAT. .001 END LITERALS 00475 000000000000 00476 000000000001 00477 000000000002 00500 000000000014 00501 000000000073 00502 000000077777 00503 000017171717 00504 000707070707 00505 214343606060 00506 233045234644 00507 234346622560 00510 262551516345 00511 272563234644 00512 272563442544 00513 452567234644 00514 462626736060 00515 464573606060 00516 464725456060 00517 475145632551 00520 512426314325 00521 512466213163 00522 516060606060 00523 600000000000 00524 605013600073 00525 605013600173 00526 606213600073 00527 606213600173 00530 622563225142 00531 622563442544 00532 665126436760 00533 777777777777 1 PAGE 1 POST PROCESSOR ASSEMBLY DATA 534 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 115 C2 105 362 FN 12, 41, 42, 50, 51, 112, 113, 121, 122, 134, 135, 143, 144, 152, 153, 314 352 MQ 203 366 MZ 43, 44, 136, 137, 302 354 OV 220 353 SI 210 351 SQ 164 132 CPU 21 337 ILC 156 346 IR1 250, 263 345 IR2 344 IR3 343 IR4 342 IR5 341 IR6 340 IR7 250 IRS 256 350 LAC 176 124 ORG 25, 64, 73 3 BTOC 160, 177, 201, 204, 206, 211, 213, 241, 252, 267 403 CPU1 163, 171, 175, 200, 202, 205, 207, 212, 214, 216 420 CPU2 222, 226, 232, 236, 243, 245 433 CPU3 254, 260 451 CPU4 271, 275 1 DTBC 32 360 DVCK 234 356 FLMD 224 357 IOCK 263 IRSC 273 355 MTMD 230 310 NFND 45, 140 322 OPEN 37, 132 0 OTBC 24 361 SLTS 146 316 TILT 7, 312 325 CLOSE 120, 151, 300 127 ERROR 74, 75 372 ..001 130 467 ..002 306 347 PTIRS 37 RDMEM 34 330 WRFLX 127, 154, 215, 244, 257, 274, 276, 305, 313 1750 BUFSIZ 4, 34, 125, 367 332 CHNCOM 303 367 COUNT1 35, 76, 101, 107, 115 125 COUNT2 36, 103, 106 300 ENDCPU 5, 14, 126, 131, 307, 315 371 ERRBUF 46, 55, 57, 117, 141, 150, 310 305 ERREOF 54, 56, 116, 147 327 FERRTN 6 331 GETCOM 10, 15, 26 1 PAGE 2 POST PROCESSOR ASSEMBLY DATA 333 GETMEM 104 336 MEMBND 53, 60, 66, 146, 237 335 NEXCOM 321 2 OCTDMP 123 323 RDFILE 111, 142 370 RD.REL 65, 114 324 RDWAIT 47 326 SETBRK 4 334 SETMEM 110 0 NO ERROR IN ABOVE ASSEMBLY. 1 PAGE 1 OCTDMP --- DUMP OCTAL W/ MNEMONICS 00002 ENTRY OCTDMP * 00002 0634 00 1 00071 OCTDMP SXA OCTX1,1 00003 0634 00 2 00072 SXA OCTX2,2 00004 0634 00 4 00073 SXA OCTX4,4 00005 -0500 00 4 00001 CAL 1,4 GET RELATIVE LOCATION 00006 0621 00 0 00441 STA ORG SAVE IT 00007 -0500 00 4 00002 CAL 2,4 PZE BUFF,,N 00010 -0734 00 1 00000 PDX 0,1 COUNT TO IR1 00011 0754 00 1 00000 PXA 0,1 TO ADDRESS OF AC 00012 0401 00 4 00002 ADM 2,4 GET BUFF+N 00013 0621 00 0 00024 STA OCT2 00014 0600 00 0 00444 STZ SKIPSW * 00015 -0500 00 0 00441 OCT1 CAL ORG SET UP LINE ORIGIN 00016 -0765 00 0 00022 LGR 18 .. 00017 0074 00 4 00164 TSX CONV.,4 CONVERT TO BCD 00020 -0501 00 0 00446 ORA =O570000000000 ADD NULL CHAR. 00021 0602 00 0 00001 SLW OUT 00022 0774 00 2 00014 AXT 12,2 SET UP NO. OF WORDS PER LINE 00023 0600 00 0 00442 STZ PRTSW RESET PRINT SWITCH 00024 -0500 00 1 00000 OCT2 CAL **,1 GET FIRST OR NEXT WORD TO BE DUMPED 00025 0100 00 0 00027 TZE *+2 SKIP IF ZERO 00026 -0625 00 0 00442 STL PRTSW OTHERWISE SET SWITCH TO PRINT THIS LINE 00027 0074 00 4 00075 TSX (OPCD),4 FIND SYMBOLIC OPERATION CODE 00030 0602 00 2 00016 SLW OUT+13,2 INTO OUTPUT LINE 00031 0560 60 0 00024 LDQ* OCT2 RELOAD DUMP WORD 00032 0074 00 4 00164 TSX CONV.,4 CONVERT TO BCD 00033 0602 00 2 00017 SLW OUT+14,2 .. 00034 0074 00 4 00164 TSX CONV.,4 .. 00035 0602 00 2 00020 SLW OUT+15,2 .. 00036 -2 00003 2 00046 TNX OCT3,2,3 END OF LINE TEST 00037 2 00001 1 00024 TIX OCT2,1,1 END OF INPUT TEST 00040 -0500 00 0 00450 CAL =H HERE WHEN DONE 00041 0602 00 2 00016 SLW OUT+13,2 FILL OUT LINE WITH BLANKS 00042 0602 00 2 00017 SLW OUT+14,2 .. 00043 0602 00 2 00020 SLW OUT+15,2 .. 00044 2 00003 2 00041 TIX *-3,2,3 00045 -0625 00 0 00442 STL PRTSW INSURE PARTIAL LINE IS PRINTED 00046 -0520 00 0 00442 OCT3 NZT PRTSW HERE AT END OF LINE, IS LINE ALL ZERO 00047 0020 00 0 00060 TRA OCT4 YES, SKIP PRINTING 00050 -0520 00 0 00444 NZT SKIPSW 00051 0020 00 0 00055 TRA OCT5 00052 0074 00 4 00440 TSX WRFLX,4 00053 0 00001 0 00437 DOTS,,1 00054 0600 00 0 00444 STZ SKIPSW 00055 0074 00 4 00440 OCT5 TSX WRFLX,4 00056 0 00015 0 00001 OUT,,13 .. 00057 0020 00 0 00061 TRA *+2 00060 -0625 00 0 00444 OCT4 STL SKIPSW 00061 0534 00 4 00441 LXA ORG,4 BUMP LINE ORIGIN 00062 1 00004 4 00063 TXI *+1,4,4 .. 00063 0634 00 4 00441 SXA ORG,4 .. 1 PAGE 2 OCTDMP --- DUMP OCTAL W/ MNEMONICS 00064 2 00001 1 00015 TIX OCT1,1,1 RETURN IF MORE INPUT 00065 -0520 00 0 00444 NZT SKIPSW 00066 0020 00 0 00071 TRA OCTX1 00067 0074 00 4 00440 TSX WRFLX,4 00070 0 00001 0 00437 DOTS,,1 00071 0774 00 1 00000 OCTX1 AXT **,1 00072 0774 00 2 00000 OCTX2 AXT **,2 00073 0774 00 4 00000 OCTX4 AXT **,4 00074 0020 00 4 00003 TRA 3,4 00075 0634 00 1 00161 (OPCD) SXA OPCDX1,1 ROUTINE TO FIND SYMBOLIC OP. CODE 00076 0634 00 2 00162 SXA OPCDX2,2 00077 0774 00 1 00000 AXT 0,1 00100 -0320 00 0 00452 ANA =O777700000000 00101 0100 00 0 00150 TZE OPCDY SKIP OUT IF HTR 00102 0602 00 0 00443 SLW BINOP. SAVE OP CODE 00103 0771 00 0 00041 ARS 33 PREFIX TO ADDRESS 00104 -0320 00 0 00445 ANA =3 MASK OUT SIGN BIT 00105 -0100 00 0 00145 TNZ TYPEA. SKIP IF TYPE A INSTRUCTION 00106 0774 00 2 00022 AXT 18,2 OTHERWISE SEARCH OPERATION TABLE 00107 0020 00 2 00144 TRA LOWER.,2 .. 00110 -3 77544 1 00114 SRCH1. TXL SRCH2.,1,-NTB OPERATION TABLE SEARCH 00111 -0500 00 1 00203 CAL TABLE.,1 .. 00112 -0320 00 0 00452 ANA =O777700000000 .. 00113 -0340 00 0 00443 LAS BINOP. .. 00114 1 77776 2 00143 SRCH2. TXI RAISE.,2,-2 .. 00115 0020 00 0 00153 TRA OPCDX .. 00116 1 77776 2 00144 TXI LOWER.,2,-2 .. 00117 1 00400 1 00110 TXI SRCH1.,1,+256 .. 00120 1 77400 1 00110 TXI SRCH1.,1,-256 .. 00121 1 00200 1 00110 TXI SRCH1.,1,+128 .. 00122 1 77600 1 00110 TXI SRCH1.,1,-128 .. 00123 1 00100 1 00110 TXI SRCH1.,1,+64 .. 00124 1 77700 1 00110 TXI SRCH1.,1,-64 .. 00125 1 00040 1 00110 TXI SRCH1.,1,+32 .. 00126 1 77740 1 00110 TXI SRCH1.,1,-32 .. 00127 1 00020 1 00110 TXI SRCH1.,1,+16 .. 00130 1 77760 1 00110 TXI SRCH1.,1,-16 .. 00131 1 00010 1 00110 TXI SRCH1.,1,+8 .. 00132 1 77770 1 00110 TXI SRCH1.,1,-8 .. 00133 1 00004 1 00110 TXI SRCH1.,1,+4 .. 00134 1 77774 1 00110 TXI SRCH1.,1,-4 .. 00135 1 00002 1 00110 TXI SRCH1.,1,+2 .. 00136 1 77776 1 00110 TXI SRCH1.,1,-2 .. 00137 1 00001 1 00110 TXI SRCH1.,1,+1 .. 00140 1 77777 1 00110 TXI SRCH1.,1,-1 .. 00141 0020 00 0 00145 TRA TYPEA. .. 00142 0020 00 0 00145 TRA TYPEA. .. 00143 0020 00 2 00143 RAISE. TRA *,2 .. 00144 0020 00 2 00144 LOWER. TRA *,2 .. 00145 0560 00 0 00443 TYPEA. LDQ BINOP. HERE FOR TYPE A INSTRUCTION 00146 -0754 00 0 00000 ZAC 00147 -0763 00 0 00003 LGL 3 1 PAGE 3 OCTDMP --- DUMP OCTAL W/ MNEMONICS 00150 0734 00 2 00000 OPCDY PAX 0,2 PREFIX TO IR2 00151 0560 00 2 00203 LDQ TABLA.+7,2 PICK UP TYPE A SYMBOLIC OP. CODE 00152 0020 00 0 00155 TRA OPCD1 AND GO TO EXIT 00153 0560 00 1 00203 OPCDX LDQ TABLE.,1 GET SYMBOLIC OP CODE FROM TABLE 00154 -0773 00 0 00022 RQL 18 FIX IT UP 00155 -0754 00 0 00000 OPCD1 ZAC 00156 -0763 00 0 00022 LGL 18 .. 00157 0767 00 0 00006 ALS 6 .. 00160 -0501 00 0 00447 ORA =H 000 ADD IN BLANKS 00161 0774 00 1 00000 OPCDX1 AXT **,1 RESTORE IRS 00162 0774 00 2 00000 OPCDX2 AXT **,2 .. 00163 0020 00 4 00001 TRA 1,4 AND RETURN WITH SYMBOLIC OP. CODE IN AC 00164 0634 00 4 00172 CONV. SXA CVX.,4 ROUTINE TO CONVERT BINARY TO BCD/OCTAL 00165 -0754 00 0 00000 ZAC 00166 0774 00 4 00006 AXT 6,4 00167 0767 00 0 00003 ALS 3 00170 -0763 00 0 00003 LGL 3 00171 2 00001 4 00167 TIX *-2,4,1 00172 0774 00 4 00000 CVX. AXT **,4 00173 0020 00 4 00001 TRA 1,4 00174 636743606060 TABLA. BCI 8,TXL TNX STR MZE TXH TIX TXI PZE 00203 TABLE. SYN *-1 00204 002000635121 VFD O12/0020,H24/0TRA TRA 00205 002100636351 VFD O12/0021,H24/0TTR TTR 00206 002200635123 VFD O12/0022,H24/0TRC TRCA 00207 002400635123 VFD O12/0024,H24/0TRC TRCC 00210 003000632526 VFD O12/0030,H24/0TEF TEFA 00211 003100632526 VFD O12/0031,H24/0TEF TEFC 00212 004000634350 VFD O12/0040,H24/0TLQ TLQ 00213 004100313121 VFD O12/0041,H24/0IIA IIA 00214 004200633146 VFD O12/0042,H24/0TIO TIO 00215 004300462131 VFD O12/0043,H24/0OAI OAI 00216 004400472131 VFD O12/0044,H24/0PAI PAI 00217 004600633126 VFD O12/0046,H24/0TIF TIF 00220 005100313151 VFD O12/0051,H24/0IIR IIR 00221 005400512663 VFD O12/0054,H24/0RFT RFT 00222 005500623151 VFD O12/0055,H24/0SIR SIR 00223 005600514563 VFD O12/0056,H24/0RNT RNT 00224 005700513151 VFD O12/0057,H24/0RIR RIR 00225 006000632346 VFD O12/0060,H24/0TCO TCOA 00226 006100632346 VFD O12/0061,H24/0TCO TCOB 00227 006200632346 VFD O12/0062,H24/0TCO TCOC 00230 006300632346 VFD O12/0063,H24/0TCO TCOD 00231 007400636267 VFD O12/0074,H24/0TSX TSX 00232 010000637125 VFD O12/0100,H24/0TZE TZE 00233 010100633121 VFD O12/0101,H24/0TIA TIA 00234 011400236551 VFD O12/0114,H24/0CVR CVR 00235 012000634743 VFD O12/0120,H24/0TPL TPL 00236 013100672321 VFD O12/0131,H24/0XCA XCA 00237 014000634665 VFD O12/0140,H24/0TOV TOV 1 PAGE 4 OCTDMP --- DUMP OCTAL W/ MNEMONICS 00240 016200635047 VFD O12/0162,H24/0TQP TQP 00241 020000444770 VFD O12/0200,H24/0MPY MPY 00242 020400654344 VFD O12/0204,H24/0VLM VLM 00243 022000246530 VFD O12/0220,H24/0DVH DVH 00244 022100246547 VFD O12/0221,H24/0DVP DVP 00245 022400652430 VFD O12/0224,H24/0VDH VDH 00246 022500652447 VFD O12/0225,H24/0VDP VDP 00247 024000262430 VFD O12/0240,H24/0FDH FDH 00250 024100262447 VFD O12/0241,H24/0FDP FDP 00251 026000264447 VFD O12/0260,H24/0FMP FMP 00252 030000262124 VFD O12/0300,H24/0FAD FAD 00253 030200266222 VFD O12/0302,H24/0FSB FSB 00254 030400262144 VFD O12/0304,H24/0FAM FAM 00255 030600266244 VFD O12/0306,H24/0FSM FSM 00256 032000214562 VFD O12/0320,H24/0ANS ANS 00257 032200255121 VFD O12/0322,H24/0ERA ERA 00260 034000232162 VFD O12/0340,H24/0CAS CAS 00261 036100212343 VFD O12/0361,H24/0ACL ACL 00262 040000212424 VFD O12/0400,H24/0ADD ADD 00263 040100212444 VFD O12/0401,H24/0ADM ADM 00264 040200626422 VFD O12/0402,H24/0SUB SUB 00265 042000304751 VFD O12/0420,H24/0HPR HPR 00266 044000313162 VFD O12/0440,H24/0IIS IIS 00267 044100432431 VFD O12/0441,H24/0LDI LDI 00270 044200466231 VFD O12/0442,H24/0OSI OSI 00271 044400462663 VFD O12/0444,H24/0OFT OFT 00272 044500513162 VFD O12/0445,H24/0RIS RIS 00273 044600464563 VFD O12/0446,H24/0ONT ONT 00274 050000234321 VFD O12/0500,H24/0CLA CLA 00275 050200234362 VFD O12/0502,H24/0CLS CLS 00276 052000712563 VFD O12/0520,H24/0ZET ZET 00277 052200672523 VFD O12/0522,H24/0XEC XEC 00300 053400436721 VFD O12/0534,H24/0LXA LXA 00301 053500432123 VFD O12/0535,H24/0LAC LAC 00302 054000512330 VFD O12/0540,H24/0RCH RCHA 00303 054100512330 VFD O12/0541,H24/0RCH RCHC 00304 054400432330 VFD O12/0544,H24/0LCH LCHA 00305 054500432330 VFD O12/0545,H24/0LCH LCHC 00306 056000432450 VFD O12/0560,H24/0LDQ LDQ 00307 056200435131 VFD O12/0562,H24/0LRI LRI 00310 056400254522 VFD O12/0564,H24/0ENB ENB 00311 060000626371 VFD O12/0600,H24/0STZ STZ 00312 060100626346 VFD O12/0601,H24/0STO STO 00313 060200624366 VFD O12/0602,H24/0SLW SLW 00314 060400626331 VFD O12/0604,H24/0STI STI 00315 062100626321 VFD O12/0621,H24/0STA STA 00316 062200626324 VFD O12/0622,H24/0STD STD 00317 062500626363 VFD O12/0625,H24/0STT STT 00320 063000626347 VFD O12/0630,H24/0STP STP 00321 063400626721 VFD O12/0634,H24/0SXA SXA 00322 064000622330 VFD O12/0640,H24/0SCH SCHA 00323 064100622330 VFD O12/0641,H24/0SCH SCHA 00324 073400472167 VFD O12/0734,H24/0PAX PAX 00325 073700472123 VFD O12/0737,H24/0PAC PAC 00326 075400476721 VFD O12/0754,H24/0PXA PXA 1 PAGE 5 OCTDMP --- DUMP OCTAL W/ MNEMONICS 00327 076000476225 VFD O12/0760,H24/0PSE PSE 00330 076100454647 VFD O12/0761,H24/0NOP NOP 00331 076200512462 VFD O12/0762,H24/0RDS RDS 00332 076300434362 VFD O12/0763,H24/0LLS LLS 00333 076400226251 VFD O12/0764,H24/0BSR BSR 00334 076500435162 VFD O12/0765,H24/0LRS LRS 00335 076600665162 VFD O12/0766,H24/0WRS WRS 00336 076700214362 VFD O12/0767,H24/0ALS ALS 00337 077000662526 VFD O12/0770,H24/0WEF WEF 00340 077100215162 VFD O12/0771,H24/0ARS ARS 00341 077200512566 VFD O12/0772,H24/0REW REW 00342 077400216763 VFD O12/0774,H24/0AXT AXT 00343 077600622445 VFD O12/0776,H24/0SDN SDN 00344 402200635123 VFD O12/4022,H24/0TRC TRCB 00345 402400635123 VFD O12/4024,H24/0TRC TRCD 00346 403000632526 VFD O12/4030,H24/0TEF TEFB 00347 403100632526 VFD O12/4031,H24/0TEF TEFD 00350 404200513121 VFD O12/4042,H24/0RIA RIA 00351 404600473121 VFD O12/4046,H24/0PIA PIA 00352 405100313143 VFD O12/4051,H24/0IIL IIL 00353 405400432663 VFD O12/4054,H24/0LFT LFT 00354 405500623143 VFD O12/4055,H24/0SIL SIL 00355 405600434563 VFD O12/4056,H24/0LNT LNT 00356 405700513143 VFD O12/4057,H24/0RIL RIL 00357 406000632345 VFD O12/4060,H24/0TCN TCNA 00360 406100632345 VFD O12/4061,H24/0TCN TCNB 00361 406200632345 VFD O12/4062,H24/0TCN TCNC 00362 406300632345 VFD O12/4063,H24/0TCN TCND 00363 410000634571 VFD O12/4100,H24/0TNZ TNZ 00364 410100633122 VFD O12/4101,H24/0TIB TIB 00365 411400232150 VFD O12/4114,H24/0CAQ CAQ 00366 412000634431 VFD O12/4120,H24/0TMI TMI 00367 413000672343 VFD O12/4130,H24/0XCL XCL 00370 414000634546 VFD O12/4140,H24/0TNO TNO 00371 415400235150 VFD O12/4154,H24/0CRQ CRQ 00372 420000444751 VFD O12/4200,H24/0MPR MPR 00373 426000642644 VFD O12/4260,H24/0UFM UFM 00374 430000642621 VFD O12/4300,H24/0UFA UFA 00375 430200642662 VFD O12/4302,H24/0UFS UFS 00376 430400642144 VFD O12/4304,H24/0UAM UAM 00377 430600646244 VFD O12/4306,H24/0USM USM 00400 432000214521 VFD O12/4320,H24/0ANA ANA 00401 434000432162 VFD O12/4340,H24/0LAS LAS 00402 440000622244 VFD O12/4400,H24/0SBM SBM 00403 450000232143 VFD O12/4500,H24/0CAL CAL 00404 450100465121 VFD O12/4501,H24/0ORA ORA 00405 452000457163 VFD O12/4520,H24/0NZT NZT 00406 453400436724 VFD O12/4534,H24/0LXD LXD 00407 453500432423 VFD O12/4535,H24/0LDC LDC 00410 454000512330 VFD O12/4540,H24/0RCH RCHB 00411 454100512330 VFD O12/4541,H24/0RCH RCHD 00412 454400432330 VFD O12/4544,H24/0LCH LCHB 00413 454500432330 VFD O12/4545,H24/0LCH LCHD 00414 456400434731 VFD O12/4564,H24/0LPI LPI 00415 460000626350 VFD O12/4600,H24/0STQ STQ 1 PAGE 6 OCTDMP --- DUMP OCTAL W/ MNEMONICS 00416 460200465162 VFD O12/4602,H24/0ORS ORS 00417 462000624350 VFD O12/4620,H24/0SLQ SLQ 00420 462500626343 VFD O12/4625,H24/0STL STL 00421 463400626724 VFD O12/4634,H24/0SXD SXD 00422 464000622330 VFD O12/4640,H24/0SCH SCHB 00423 464100622330 VFD O12/4641,H24/0SCH SCHD 00424 473400472467 VFD O12/4734,H24/0PDX PDX 00425 473700472423 VFD O12/4737,H24/0PDC PDC 00426 475400476724 VFD O12/4754,H24/0PXD PXD 00427 476000446225 VFD O12/4760,H24/0MSE MSE 00430 476100622554 VFD O12/4761,H24/0SE* SEA OR SEB 00431 476300432743 VFD O12/4763,H24/0LGL LGL 00432 476400226226 VFD O12/4764,H24/0BSF BSF 00433 476500432751 VFD O12/4765,H24/0LGR LGR 00434 477200516445 VFD O12/4772,H24/0RUN RUN 00435 477300515043 VFD O12/4773,H24/0RQL RQL 00436 477400216723 VFD O12/4774,H24/0AXC AXC 00234 NTB SYN *-TABLE. 00437 404040404060 DOTS BCI 1,----- 00440 0101 00 0 00451 WRFLX TIA =HWRFLX 00441 0 00000 0 00000 ORG 00442 0 00000 0 00000 PRTSW 00443 0 00000 0 00000 BINOP. 00444 0 00000 0 00000 SKIPSW 00001 OUT EQU 1 USE LOWER CORE FOR TEMPORARY STORAGE END LITERALS 00445 000000000003 00446 570000000000 00447 606000000060 00450 606060606060 00451 665126436760 00452 777700000000 1 PAGE 1 POST PROCESSOR ASSEMBLY DATA 453 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 234 NTB 110, 437 441 ORG 6, 15, 61, 63 1 OUT 21, 30, 33, 35, 41, 42, 43, 56, 445 172 CVX. 164 437 DOTS 53, 70 15 OCT1 64 24 OCT2 13, 31, 37 46 OCT3 36 60 OCT4 47 55 OCT5 51 164 CONV. 17, 32, 34 71 OCTX1 2, 66 72 OCTX2 3 73 OCTX4 4 155 OPCD1 152 153 OPCDX 115 150 OPCDY 101 442 PRTSW 23, 26, 45, 46 440 WRFLX 52, 55, 67 443 BINOP. 102, 113, 145 144 LOWER. 107, 116 2 OCTDMP 0 161 OPCDX1 75 162 OPCDX2 76 143 RAISE. 114 444 SKIPSW 14, 50, 54, 60, 65 110 SRCH1. 117, 120, 121, 122, 123, 124, 125, 126, 127, 130, 131, 132, 133, 134, 135, 136, 137 140 114 SRCH2. 110 174 TABLA. 151 203 TABLE. 111, 153, 204, 437 145 TYPEA. 105, 141, 142 75 (OPCD) 27 0 NO ERROR IN ABOVE ASSEMBLY. SETFIL BCD 05/12/69 2020.2 9949 00000 1 MAD PROGRAM LISTING ... ... ... FILE SETFIL MAD 03/26/69 1815.3 - M1416-3845 PETER R. BOS 12/04/67 -- SETFIL COMMAND LM00001 MODE AND DEVICE ARGUMENTS ADDED 03/26/69 D.A. ANDERSON LM00002 LM00003 USAGE ... SETFIL NM1 NM2 DLM TLM DLU AUTH MODE DEV LM00004 LISTF '*' CONVENTION APPLIES LM00005 LAST SIX ARG'S MAY BE '*' TO INDICATE LM00006 NO CHANGE. TRAILING *'S MAY BE OMITTED. LM00007 MODE AND DEV APPLY ONLY TO NEW FILES LM00008 LM00009 NORMAL MODE IS INTEGER *001 LM00010 BOOLEAN RDUFD *002 LM00011 DIMENSION TEMP(8), BUF1(0), BUF2(0), ARG(8), UFD(7) *003 LM00012 LM00013 DEFINE UNARY OPERATOR .CAL., PRECEDENCE SAME AS = *004 LM00014 MODE STRUCTURE .CAL. 1 TO 1 *005 LM00015 CAL B *006 LM00016 OUT LAC *007 LM00017 END *008 LM00018 DEFINE UNARY OPERATOR .LDQ., PRECEDENCE SAME AS = *009 LM00019 MODE STRUCTURE .LDQ. 1 TO 1 *010 LM00020 LDQ B *011 LM00021 OUT MQ *012 LM00022 END *013 LM00023 LM00024 FERRTN.(ERR) *014 LM00025 THROUGH ARGS, FOR I=1,1,I.G.MXARG *015 LM00026 TEMP=COMARG.(I) *016 LM00027 WHENEVER TEMP.E.FNS *017 LM00028 NARG=I-1 *018 LM00029 TRANSFER TO CHKN *019 LM00030 OTHERWISE *020 LM00031 ARG(I)=TEMP *021 LM00032 END OF CONDITIONAL *022 LM00033 ARGS CONTINUE *023 LM00034 NARG=MXARG *024 LM00035 CHKN WHENEVER NARG.L.3 *025 LM00036 PRMESS.(COMARG.(0),$ NAME1 NAME2 DLM TLM DLU AUTH MODE DEV$ *026 LM00037 1 ) *026 LM00038 PRMESS.($LISTF '*' CONVENTION APPLIES$) *027 LM00039 PRMESS.($ANY ARG MAY BE '*' TO MEAN 'NO CHANGE'$) *028 LM00040 CHNCOM.(0) *029 LM00041 END OF CONDITIONAL *030 LM00042 LM00043 MSK1=NAMASK.(ARG(1)) *031 LM00044 TNM1=ARG(1).A.MSK1 *032 LM00045 MSK2=NAMASK.(ARG(2)) *033 LM00046 TNM2=ARG(2).A.MSK2 *034 LM00047 WHENEVER MSK1.A.MSK2.NE.FNS, RDUFD=1B *035 LM00048 LM00049 WHENEVER ARG(3).NE.STAR, FSDLM=FSDATE.(ARG(3)) *036 LM00050 WHENEVER ARG(4).NE.STAR, FSTLM=FSTIME.(ARG(4)) *037 LM00051 WHENEVER ARG(5).NE.STAR, FSDLU=FSDATE.(ARG(5)) *038 LM00052 WHENEVER ARG(6).NE.STAR, FSAUT=BCDEC.(ZEL.(ARG(6))) *039 LM00053 WHENEVER ARG(7).NE.STAR, FSMOD=BCOCT.(ARG(7)) *040 LM00054 WHENEVER ARG(8).NE.STAR, FSDEV=BCDEC.(ARG(8)) *041 LM00055 LM00056 WHENEVER .NOT.RDUFD *042 LM00057 FSTATE.(ARG(1),ARG(2),TEMP(8)...8,NOFILE) *043 LM00058 WHENEVER ARG(7).NE.STAR.OR.ARG(8).NE.STAR, *044 LM00059 1 PRMESS.($MODE AND DEVICE ARE APPLICABLE ONLY TO NEW FILES.$ *044 LM00060 1 ) *044 LM00061 UFD(7)=ARG(1) *045 LM00062 UFD(6)=ARG(2) *046 LM00063 UFD(5)=TEMP(2) *047 LM00064 UFD(4)=TEMP(1) *048 LM00065 FSMOD=-0 *049 LM00066 FSDEV=-0 *050 LM00067 TRANSFER TO SET *051 LM00068 NOFILE UFD(7)=ARG(1) *052 LM00069 UFD(6)=ARG(2) *053 LM00070 TEMP=GTDYTM.(0) *054 LM00071 WHENEVER ARG(3).E.STAR, FSDLM=TEMP.A.777777K6 *055 LM00072 WHENEVER ARG(4).E.STAR, FSTLM=TEMP.A.777777K *056 LM00073 WHENEVER ARG(5).E.STAR, FSDLU=TEMP.A.777777K6 *057 LM00074 ATTNAM.(TEMP(3)...4) *058 LM00075 WHENEVER ARG(6).E.STAR, FSAUT=TEMP(1) *059 LM00076 WHENEVER ARG(7).E.STAR, FSMOD=0 *060 LM00077 WHENEVER ARG(8).E.STAR, FSDEV=2 *061 LM00078 TRANSFER TO SETF *062 LM00079 END OF CONDITIONAL *063 LM00080 LM00081 WHENEVER ARG(7).NE.STAR.OR.ARG(8).NE.STAR, *064 LM00082 1 PRMESS.($MODE AND DEVICE ARE APPLICABLE ONLY TO NEW FILES.$ *064 LM00083 1 ) *064 LM00084 UPDATE. *065 LM00085 TEMP=0 *066 LM00086 GETBUF.(BUF1,432) *067 LM00087 GETBUF.(BUF2,432) *068 LM00088 BFOPEN.($R$,UF,FI,BUF1(BUF1+432),BUF2(BUF2+432),-0,ERR) *069 LM00089 BFREAD.(UF,FI,TEMP(3)...3,EOFERR,TEMP,ERR) *070 LM00090 N=0 *071 LM00091 READ BFREAD.(UF,FI,UFD(7)...7,EOF,TEMP,ERR) *072 LM00092 WHENEVER UFD(7).V.UFD(6).E.0, TRANSFER TO READ *073 LM00093 WHENEVER UFD(7).A.MSK1.NE.TNM1.OR.UFD(6).A.MSK2.NE.TNM2, TRANSFER TO READ *074 LM00094 WHENEVER UFD(3).A.LINK.E.0, TRANSFER TO READ *075 LM00095 LM00096 SET WHENEVER ARG(3).E.STAR, FSDLM=UFD(5).A.777777K6 *076 LM00097 WHENEVER ARG(4).E.STAR, FSTLM=UFD(5).A.777777K *077 LM00098 WHENEVER ARG(5).E.STAR, FSDLU=UFD(4).A.777777K6 *078 LM00099 WHENEVER ARG(6).E.STAR, FSAUT=UFD(4).A.777777K *079 LM00100 SETF SETFIL.(UFD(7),UFD(6),FSDLM.V.FSTLM,FSDLU.V.FSAUT,FSMOD,FSDEV *080 LM00101 1 ) *080 LM00102 N=N+1 *081 LM00103 WHENEVER .NOT.RDUFD, TRANSFER TO XIT *082 LM00104 TRANSFER TO READ *083 LM00105 LM00106 EOF WHENEVER TEMP.E.0, TRANSFER TO EOFXIT *084 LM00107 EOFERR PRMESS.($BAD EOF RETURN READING U.F.D.$) *085 LM00108 EOFXIT BFCLOS.(UF,FI,ERR) *086 LM00109 XIT PRMESS.($*$) *087 LM00110 CHNCOM.(0) *088 LM00111 LM00112 ERR .CAL. $PRNTER$ *089 LM00113 .LDQ. 400000000071K *090 LM00114 NEXCOM. *091 LM00115 LM00116 VECTOR VALUES STAR=$ *$ *092 LM00117 VECTOR VALUES ARG(1)=$ * * * * * * * *$ *093 LM00118 VECTOR VALUES LINK=7K5 *094 LM00119 VECTOR VALUES RDUFD=0B *095 LM00120 VECTOR VALUES FNS=777777777777K *096 LM00121 VECTOR VALUES MXARG=8 *097 LM00122 VECTOR VALUES UF=$U.F.D.$ *098 LM00123 VECTOR VALUES FI=$(FILE)$ *099 LM00124 LM00125 INTERNAL FUNCTION (GNU) *100 LM00126 ENTRY TO FSDATE. *101 LM00127 MM=BCDEC.((ZEL.(GNU)).RS.24) *102 LM00128 DD=BCDEC.((GNU.RS.12).A.7777K) *103 LM00129 YY=BCDEC.(GNU.A.7777K) *104 LM00130 WHENEVER MM.G.12.OR.DD.G.31.OR.ZEL.(GNU).A.$ $.NE.0 *105 LM00131 1 .OR.MM.E.0.OR.DD.E.0.OR.YY.E.0 *105 LM00132 PRMESS.($ILLEGAL DATE.....$,GNU) *106 LM00133 TRANSFER TO XIT *107 LM00134 END OF CONDITIONAL *108 LM00135 FUNCTION RETURN (YY.LS.27).V.(MM.LS.23).V.(DD.LS.18) *109 LM00136 ENTRY TO FSTIME. *110 LM00137 WHENEVER GNU.A.77K2.E.$0000.0$ *111 LM00138 TEMP=ZEL.(GNU.RS.12) *112 LM00139 TM=GNU.A.77K *113 LM00140 OTHERWISE *114 LM00141 TEMP=ZEL.(GNU) *115 LM00142 TM=0 *116 LM00143 END OF CONDITIONAL *117 LM00144 HH=BCDEC.((TEMP.A.7777K4).RS.12) *118 LM00145 MM=BCDEC.(TEMP.A.7777K) *119 LM00146 WHENEVER HH.G.23.OR.MM.G.59.OR.TM.G.9.OR.TEMP.A.$ $.NE.0 *120 LM00147 PRMESS.($ILLEGAL TIME.....$,GNU) *121 LM00148 TRANSFER TO XIT *122 LM00149 END OF CONDITIONAL *123 LM00150 FUNCTION RETURN ((HH*60+MM)*10+TM)*6 *124 LM00151 END OF FUNCTION *125 LM00152 LM00153 END OF PROGRAM *126 LM00154 MODE STRUCTURE .CAL. 1 TO 1 005 LM00015 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11101 ) MODE STRUCTURE .LDQ. 1 TO 1 010 LM00020 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11201 ) 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01267 TRANSFER VECTOR LENGTH 00024 PROGRAM BEGINS 00233 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ARG 00051 A 1 ERR 00033 4 FSTLM 00064 1 NARG 00074 1 TEMP 00110 A 1 ARGS 00026 4 FI 00055 A 1 HH 00065 1 NOFILE 00034 4 TM 00111 1 BUF1 00052 A 1 FNS 00056 A 1 I 00066 1 N 00075 1 TNM1 00112 1 BUF2 00053 A 1 FSAUT 00057 1 LINK 00067 A 1 RDUFD 00076 A 2 TNM2 00113 1 CHKN 00027 4 FSDEV 00060 1 MM 00070 1 READ 00035 4 UFD 00123 A 1 DD 00054 1 FSDLM 00061 1 MSK1 00071 1 SETF 00036 4 UF 00124 A 1 EOFERR 00030 4 FSDLU 00062 1 MSK2 00072 1 SET 00037 4 XIT 00040 4 EOF 00031 4 FSMOD 00063 1 MXARG 00073 A 1 STAR 00077 A 1 YY 00125 1 EOFXIT 00032 4 0FUNCTION DICTIONARY ATTNAM 00000 1 BCDEC 00001 1 BCOCT 00002 1 BFCLOS 00003 1 BFOPEN 00004 1 BFREAD 00005 1 CHNCOM 00006 1 COMARG 00007 1 EXIT 00010 1 FERRTN 00011 1 FSTATE 00012 1 GETBUF 00013 1 GTDYTM 00014 1 .SETUP 00015 1 NAMASK 00016 1 NEXCOM 00017 1 PRMESS 00020 1 SETFIL 00021 1 UPDATE 00022 1 ZEL 00023 1 FSDATE 00024 1 FSTIME 00025 1 0ABSOLUTE CONSTANTS 00133 +000000000006 00137 +000000000012 00147 +000000000074 00206 -036063314425 00146 +000000000073 00136 +000000000011 00156 +000077770000 00150 +000000000077 00152 +000000003300 00153 +000000007700 00144 +000000000033 00142 +000000000027 00141 +000000000022 00177 +333333333360 00205 -036024216325 00175 +314343252721 00145 +000000000037 00227 -206060606060 00154 +000000007777 00140 +000000000014 00143 +000000000030 00201 -000000000071 00214 -075145632551 00217 -146060606060 00176 +332633243360 00165 +243145276064 00215 -114560512521 00171 +266051256364 00162 +222124602546 00134 +000000000007 00216 -116060606060 00151 +000000000660 00130 +000000000002 00132 +000000000004 00155 +000000777777 00232 -377777000000 00200 +336060606060 00223 -202631432562 00231 -234660452566 00226 -204645437060 00173 +312321224325 00167 +256021474743 00174 +312325602151 00211 -052460242565 00207 -044624256021 00135 +000000000010 00166 +251460606060 00221 -202330214527 00160 +214560144546 00230 -206346604425 00163 +222560145414 00172 +276044217060 00161 +214570602151 00202 -033125626060 00213 -064560214747 00212 -056525456331 00157 +145414602346 00203 -033162632660 00170 +256560606060 00210 -044624256024 00220 -202164633060 00204 -034460244364 00222 -202443446063 00225 -204521442502 00224 -204521442501 00126 +000000000000 00131 +000000000003 00127 +000000000001 00164 +233000000000 0STATEMENT DICTIONARY 00027 TXL -300275000271 00030 TXL -300761000753 00031 TXL -300753000747 00032 TXL -300765000761 00033 TXL -300772000771 00034 TXL -300472000470 00035 TXL -300640000631 00036 TXL -300740000723 00037 TXL -300701000673 00040 TXL -300767000765 0PROGRAM N'S INTEGER 001 LM00010 BOOLEAN RDUFD 002 LM00011 D'N TEMP(8), BUF1(0), BUF2(0), ARG(8), UFD(7) 003 LM00012 DEFINE UNARY OPERATOR .CAL., PRECEDENCE SAME AS = 004 LM00014 MODE STRUCTURE .CAL. 1 TO 1 005 LM00015 00233 TSX +0 07400 4 00015 DEFINE UNARY OPERATOR .LDQ., PRECEDENCE SAME AS = 009 LM00019 MODE STRUCTURE .LDQ. 1 TO 1 010 LM00020 FERRTN.(ERR) 014 LM00025 00234 TSX +0 07400 4 00011 00235 TXH +3 00000 0 00033 T'H ARGS, FOR I=1,1,I.G.MXARG 015 LM00026 00236 CLA +0 50000 0 00127 00237 STO +0 60100 0 00066 00240 TRA +0 02000 0 00244 00241 CLA +0 50000 0 00066 00242 ADD +0 40000 0 00127 00243 STO +0 60100 0 00066 00244 CLA +0 50000 0 00066 00245 SUB +0 40200 0 00073 00246 TZE +0 10000 0 00250 00247 TPL +0 12000 0 00267 TEMP=COMARG.(I) 016 LM00027 00250 TSX +0 07400 4 00007 00251 TXH +3 00000 0 00066 00252 STO +0 60100 0 00110 W'R TEMP.E.FNS 017 LM00028 00253 CLA +0 50000 0 00110 00254 SUB +0 40200 0 00056 00255 TNZ -0 10000 0 00263 NARG=I-1 018 LM00029 00256 CLA +0 50000 0 00066 00257 SUB +0 40200 0 00127 00260 STO +0 60100 0 00074 T'O CHKN 019 LM00030 00261 TRA +0 02000 0 00027 O'E 020 LM00031 00262 TRA +0 02000 0 00266 ARG(I)=TEMP 021 LM00032 00263 LXA +0 53400 1 00066 00264 CLA +0 50000 0 00110 00265 STO +0 60100 1 00051 E'L 022 LM00033 ARGS CONTINUE 023 LM00034 00266 TRA +0 02000 0 00241 NARG=MXARG 024 LM00035 00267 CLA +0 50000 0 00073 00270 STO +0 60100 0 00074 CHKN W'R NARG.L.3 025 LM00036 00271 CLA +0 50000 0 00074 00272 SUB +0 40200 0 00131 00273 TZE +0 10000 0 00331 00274 TPL +0 12000 0 00331 PRMESS.(COMARG.(0),$ NAME1 NAME2 DLM TLM DLU AUTH MODE DEV$ 026 LM00037 1 ) 026 LM00038 00275 TSX +0 07400 4 00007 00276 TXH +3 00000 0 00126 00277 STO +0 60100 0 01263 00300 TSX +0 07400 4 00020 00301 TXH +3 00000 0 01263 00302 TXH +3 00000 0 00224 00303 TXH +3 00000 0 00225 00304 TXH +3 00000 0 00222 00305 TXH +3 00000 0 00204 00306 TXH +3 00000 0 00220 00307 TXH +3 00000 0 00210 00310 TXH +3 00000 0 00170 PRMESS.($LISTF '*' CONVENTION APPLIES$) 027 LM00039 00311 TSX +0 07400 4 00020 00312 TXH +3 00000 0 00203 00313 TXH +3 00000 0 00157 00314 TXH +3 00000 0 00212 00315 TXH +3 00000 0 00213 00316 TXH +3 00000 0 00202 PRMESS.($ANY ARG MAY BE '*' TO MEAN 'NO CHANGE'$) 028 LM00040 00317 TSX +0 07400 4 00020 00320 TXH +3 00000 0 00161 00321 TXH +3 00000 0 00172 00322 TXH +3 00000 0 00163 00323 TXH +3 00000 0 00230 00324 TXH +3 00000 0 00160 00325 TXH +3 00000 0 00221 00326 TXH +3 00000 0 00166 CHNCOM.(0) 029 LM00041 00327 TSX +0 07400 4 00006 00330 TXH +3 00000 0 00126 E'L 030 LM00042 MSK1=NAMASK.(ARG(1)) 031 LM00044 00331 TSX +0 07400 4 00016 00332 TXH +3 00000 0 00050 00333 STO +0 60100 0 00071 TNM1=ARG(1).A.MSK1 032 LM00045 00334 CAL -0 50000 0 00050 00335 ANA -0 32000 0 00071 00336 SLW +0 60200 0 00112 MSK2=NAMASK.(ARG(2)) 033 LM00046 00337 TSX +0 07400 4 00016 00340 TXH +3 00000 0 00047 00341 STO +0 60100 0 00072 TNM2=ARG(2).A.MSK2 034 LM00047 00342 CAL -0 50000 0 00047 00343 ANA -0 32000 0 00072 00344 SLW +0 60200 0 00113 W'R MSK1.A.MSK2.NE.FNS, RDUFD=1B 035 LM00048 00345 CAL -0 50000 0 00071 00346 ANA -0 32000 0 00072 00347 SLW +0 60200 0 01263 00350 CLA +0 50000 0 01263 00351 SUB +0 40200 0 00056 00352 TZE +0 10000 0 00355 00353 CLA +0 50000 0 00127 00354 STO +0 60100 0 00076 W'R ARG(3).NE.STAR, FSDLM=FSDATE.(ARG(3)) 036 LM00050 00355 CLA +0 50000 0 00046 00356 SUB +0 40200 0 00077 00357 TZE +0 10000 0 00363 00360 TSX +0 07400 4 00024 00361 TXH +3 00000 0 00046 00362 STO +0 60100 0 00061 W'R ARG(4).NE.STAR, FSTLM=FSTIME.(ARG(4)) 037 LM00051 00363 CLA +0 50000 0 00045 00364 SUB +0 40200 0 00077 00365 TZE +0 10000 0 00371 00366 TSX +0 07400 4 00025 00367 TXH +3 00000 0 00045 00370 STO +0 60100 0 00064 W'R ARG(5).NE.STAR, FSDLU=FSDATE.(ARG(5)) 038 LM00052 00371 CLA +0 50000 0 00044 00372 SUB +0 40200 0 00077 00373 TZE +0 10000 0 00377 00374 TSX +0 07400 4 00024 00375 TXH +3 00000 0 00044 00376 STO +0 60100 0 00062 W'R ARG(6).NE.STAR, FSAUT=BCDEC.(ZEL.(ARG(6))) 039 LM00053 00377 CLA +0 50000 0 00043 00400 SUB +0 40200 0 00077 00401 TZE +0 10000 0 00410 00402 TSX +0 07400 4 00023 00403 TXH +3 00000 0 00043 00404 STO +0 60100 0 01263 00405 TSX +0 07400 4 00001 00406 TXH +3 00000 0 01263 00407 STO +0 60100 0 00057 W'R ARG(7).NE.STAR, FSMOD=BCOCT.(ARG(7)) 040 LM00054 00410 CLA +0 50000 0 00042 00411 SUB +0 40200 0 00077 00412 TZE +0 10000 0 00416 00413 TSX +0 07400 4 00002 00414 TXH +3 00000 0 00042 00415 STO +0 60100 0 00063 W'R ARG(8).NE.STAR, FSDEV=BCDEC.(ARG(8)) 041 LM00055 00416 CLA +0 50000 0 00041 00417 SUB +0 40200 0 00077 00420 TZE +0 10000 0 00424 00421 TSX +0 07400 4 00001 00422 TXH +3 00000 0 00041 00423 STO +0 60100 0 00060 W'R .NOT.RDUFD 042 LM00057 00424 ZET +0 52000 0 00076 00425 TRA +0 02000 0 00543 FSTATE.(ARG(1),ARG(2),TEMP(8)...8,NOFILE) 043 LM00058 00426 TSX +0 07400 4 00012 00427 TXH +3 00000 0 00050 00430 TXH +3 00000 0 00047 00431 TIX +2 00135 0 00100 00432 TXH +3 00000 0 00034 W'R ARG(7).NE.STAR.OR.ARG(8).NE.STAR, 044 LM00059 1 PRMESS.($MODE AND DEVICE ARE APPLICABLE ONLY TO NEW FILES.$ 044 LM00060 1 ) 044 LM00061 00433 CLA +0 50000 0 00041 00434 SUB +0 40200 0 00077 00435 TNZ -0 10000 0 00441 00436 CLA +0 50000 0 00042 00437 SUB +0 40200 0 00077 00440 TZE +0 10000 0 00453 00441 TSX +0 07400 4 00020 00442 TXH +3 00000 0 00207 00443 TXH +3 00000 0 00211 00444 TXH +3 00000 0 00174 00445 TXH +3 00000 0 00167 00446 TXH +3 00000 0 00173 00447 TXH +3 00000 0 00226 00450 TXH +3 00000 0 00231 00451 TXH +3 00000 0 00223 00452 TXH +3 00000 0 00200 UFD(7)=ARG(1) 045 LM00062 00453 CLA +0 50000 0 00050 00454 STO +0 60100 0 00114 UFD(6)=ARG(2) 046 LM00063 00455 CLA +0 50000 0 00047 00456 STO +0 60100 0 00115 UFD(5)=TEMP(2) 047 LM00064 00457 CLA +0 50000 0 00106 00460 STO +0 60100 0 00116 UFD(4)=TEMP(1) 048 LM00065 00461 CLA +0 50000 0 00107 00462 STO +0 60100 0 00117 FSMOD=-0 049 LM00066 00463 CLS +0 50200 0 00126 00464 STO +0 60100 0 00063 FSDEV=-0 050 LM00067 00465 CLS +0 50200 0 00126 00466 STO +0 60100 0 00060 T'O SET 051 LM00068 00467 TRA +0 02000 0 00037 NOFILE UFD(7)=ARG(1) 052 LM00069 00470 CLA +0 50000 0 00050 00471 STO +0 60100 0 00114 UFD(6)=ARG(2) 053 LM00070 00472 CLA +0 50000 0 00047 00473 STO +0 60100 0 00115 TEMP=GTDYTM.(0) 054 LM00071 00474 TSX +0 07400 4 00014 00475 TXH +3 00000 0 00126 00476 STO +0 60100 0 00110 W'R ARG(3).E.STAR, FSDLM=TEMP.A.777777K6 055 LM00072 00477 CLA +0 50000 0 00046 00500 SUB +0 40200 0 00077 00501 TNZ -0 10000 0 00505 00502 CAL -0 50000 0 00110 00503 ANA -0 32000 0 00232 00504 SLW +0 60200 0 00061 W'R ARG(4).E.STAR, FSTLM=TEMP.A.777777K 056 LM00073 00505 CLA +0 50000 0 00045 00506 SUB +0 40200 0 00077 00507 TNZ -0 10000 0 00513 00510 CAL -0 50000 0 00110 00511 ANA -0 32000 0 00155 00512 SLW +0 60200 0 00064 W'R ARG(5).E.STAR, FSDLU=TEMP.A.777777K6 057 LM00074 00513 CLA +0 50000 0 00044 00514 SUB +0 40200 0 00077 00515 TNZ -0 10000 0 00521 00516 CAL -0 50000 0 00110 00517 ANA -0 32000 0 00232 00520 SLW +0 60200 0 00062 ATTNAM.(TEMP(3)...4) 058 LM00075 00521 TSX +0 07400 4 00000 00522 TIX +2 00132 0 00105 W'R ARG(6).E.STAR, FSAUT=TEMP(1) 059 LM00076 00523 CLA +0 50000 0 00043 00524 SUB +0 40200 0 00077 00525 TNZ -0 10000 0 00530 00526 CLA +0 50000 0 00107 00527 STO +0 60100 0 00057 W'R ARG(7).E.STAR, FSMOD=0 060 LM00077 00530 CLA +0 50000 0 00042 00531 SUB +0 40200 0 00077 00532 TNZ -0 10000 0 00535 00533 CLA +0 50000 0 00126 00534 STO +0 60100 0 00063 W'R ARG(8).E.STAR, FSDEV=2 061 LM00078 00535 CLA +0 50000 0 00041 00536 SUB +0 40200 0 00077 00537 TNZ -0 10000 0 00542 00540 CLA +0 50000 0 00130 00541 STO +0 60100 0 00060 T'O SETF 062 LM00079 00542 TRA +0 02000 0 00036 E'L 063 LM00080 W'R ARG(7).NE.STAR.OR.ARG(8).NE.STAR, 064 LM00082 1 PRMESS.($MODE AND DEVICE ARE APPLICABLE ONLY TO NEW FILES.$ 064 LM00083 1 ) 064 LM00084 00543 CLA +0 50000 0 00041 00544 SUB +0 40200 0 00077 00545 TNZ -0 10000 0 00551 00546 CLA +0 50000 0 00042 00547 SUB +0 40200 0 00077 00550 TZE +0 10000 0 00563 00551 TSX +0 07400 4 00020 00552 TXH +3 00000 0 00207 00553 TXH +3 00000 0 00211 00554 TXH +3 00000 0 00174 00555 TXH +3 00000 0 00167 00556 TXH +3 00000 0 00173 00557 TXH +3 00000 0 00226 00560 TXH +3 00000 0 00231 00561 TXH +3 00000 0 00223 00562 TXH +3 00000 0 00200 UPDATE. 065 LM00085 00563 TSX +0 07400 4 00022 TEMP=0 066 LM00086 00564 CLA +0 50000 0 00126 00565 STO +0 60100 0 00110 GETBUF.(BUF1,432) 067 LM00087 00566 TSX +0 07400 4 00013 00567 TXH +3 00000 0 00052 00570 TXH +3 00000 0 00151 GETBUF.(BUF2,432) 068 LM00088 00571 TSX +0 07400 4 00013 00572 TXH +3 00000 0 00053 00573 TXH +3 00000 0 00151 BFOPEN.($R$,UF,FI,BUF1(BUF1+432),BUF2(BUF2+432),-0,ERR) 069 LM00089 00574 CLS +0 50200 0 00126 00575 STO +0 60100 0 01263 00576 CLA +0 50000 0 00053 00577 ADD +0 40000 0 00151 00600 SUB +0 40200 0 00601 00601 TXH +3 00000 0 00053 00602 STA +0 62100 0 00615 00603 CLA +0 50000 0 00052 00604 ADD +0 40000 0 00151 00605 SUB +0 40200 0 00606 00606 TXH +3 00000 0 00052 00607 STA +0 62100 0 00614 00610 TSX +0 07400 4 00004 00611 TXH +3 00000 0 00216 00612 TXH +3 00000 0 00124 00613 TXH +3 00000 0 00055 00614 TXH +3 00000 0 00000 00615 TXH +3 00000 0 00000 00616 TXH +3 00000 0 01263 00617 TXH +3 00000 0 00033 BFREAD.(UF,FI,TEMP(3)...3,EOFERR,TEMP,ERR) 070 LM00090 00620 TSX +0 07400 4 00005 00621 TXH +3 00000 0 00124 00622 TXH +3 00000 0 00055 00623 TIX +2 00131 0 00105 00624 TXH +3 00000 0 00030 00625 TXH +3 00000 0 00110 00626 TXH +3 00000 0 00033 N=0 071 LM00091 00627 CLA +0 50000 0 00126 00630 STO +0 60100 0 00075 READ BFREAD.(UF,FI,UFD(7)...7,EOF,TEMP,ERR) 072 LM00092 00631 TSX +0 07400 4 00005 00632 TXH +3 00000 0 00124 00633 TXH +3 00000 0 00055 00634 TIX +2 00134 0 00114 00635 TXH +3 00000 0 00031 00636 TXH +3 00000 0 00110 00637 TXH +3 00000 0 00033 W'R UFD(7).V.UFD(6).E.0, T'O READ 073 LM00093 00640 CAL -0 50000 0 00114 00641 ORA -0 50100 0 00115 00642 SLW +0 60200 0 01263 00643 CLA +0 50000 0 01263 00644 SUB +0 40200 0 00126 00645 TNZ -0 10000 0 00647 00646 TRA +0 02000 0 00035 W'R UFD(7).A.MSK1.NE.TNM1.OR.UFD(6).A.MSK2.NE.TNM2, T'O READ 074 LM00094 00647 CAL -0 50000 0 00115 00650 ANA -0 32000 0 00072 00651 SLW +0 60200 0 01263 00652 CLA +0 50000 0 01263 00653 SUB +0 40200 0 00113 00654 TNZ -0 10000 0 00663 00655 CAL -0 50000 0 00114 00656 ANA -0 32000 0 00071 00657 SLW +0 60200 0 01263 00660 CLA +0 50000 0 01263 00661 SUB +0 40200 0 00112 00662 TZE +0 10000 0 00664 00663 TRA +0 02000 0 00035 W'R UFD(3).A.LINK.E.0, T'O READ 075 LM00095 00664 CAL -0 50000 0 00120 00665 ANA -0 32000 0 00067 00666 SLW +0 60200 0 01263 00667 CLA +0 50000 0 01263 00670 SUB +0 40200 0 00126 00671 TNZ -0 10000 0 00673 00672 TRA +0 02000 0 00035 SET W'R ARG(3).E.STAR, FSDLM=UFD(5).A.777777K6 076 LM00097 00673 CLA +0 50000 0 00046 00674 SUB +0 40200 0 00077 00675 TNZ -0 10000 0 00701 00676 CAL -0 50000 0 00116 00677 ANA -0 32000 0 00232 00700 SLW +0 60200 0 00061 W'R ARG(4).E.STAR, FSTLM=UFD(5).A.777777K 077 LM00098 00701 CLA +0 50000 0 00045 00702 SUB +0 40200 0 00077 00703 TNZ -0 10000 0 00707 00704 CAL -0 50000 0 00116 00705 ANA -0 32000 0 00155 00706 SLW +0 60200 0 00064 W'R ARG(5).E.STAR, FSDLU=UFD(4).A.777777K6 078 LM00099 00707 CLA +0 50000 0 00044 00710 SUB +0 40200 0 00077 00711 TNZ -0 10000 0 00715 00712 CAL -0 50000 0 00117 00713 ANA -0 32000 0 00232 00714 SLW +0 60200 0 00062 W'R ARG(6).E.STAR, FSAUT=UFD(4).A.777777K 079 LM00100 00715 CLA +0 50000 0 00043 00716 SUB +0 40200 0 00077 00717 TNZ -0 10000 0 00723 00720 CAL -0 50000 0 00117 00721 ANA -0 32000 0 00155 00722 SLW +0 60200 0 00057 SETF SETFIL.(UFD(7),UFD(6),FSDLM.V.FSTLM,FSDLU.V.FSAUT,FSMOD,FSDEV 080 LM00101 1 ) 080 LM00102 00723 CAL -0 50000 0 00062 00724 ORA -0 50100 0 00057 00725 SLW +0 60200 0 01263 00726 CAL -0 50000 0 00061 00727 ORA -0 50100 0 00064 00730 SLW +0 60200 0 01264 00731 TSX +0 07400 4 00021 00732 TXH +3 00000 0 00114 00733 TXH +3 00000 0 00115 00734 TXH +3 00000 0 01264 00735 TXH +3 00000 0 01263 00736 TXH +3 00000 0 00063 00737 TXH +3 00000 0 00060 N=N+1 081 LM00103 00740 CLA +0 50000 0 00075 00741 ADD +0 40000 0 00127 00742 STO +0 60100 0 00075 W'R .NOT.RDUFD, T'O XIT 082 LM00104 00743 ZET +0 52000 0 00076 00744 TRA +0 02000 0 00746 00745 TRA +0 02000 0 00040 T'O READ 083 LM00105 00746 TRA +0 02000 0 00035 EOF W'R TEMP.E.0, T'O EOFXIT 084 LM00107 00747 CLA +0 50000 0 00110 00750 SUB +0 40200 0 00126 00751 TNZ -0 10000 0 00753 00752 TRA +0 02000 0 00032 EOFERR PRMESS.($BAD EOF RETURN READING U.F.D.$) 085 LM00108 00753 TSX +0 07400 4 00020 00754 TXH +3 00000 0 00162 00755 TXH +3 00000 0 00171 00756 TXH +3 00000 0 00215 00757 TXH +3 00000 0 00165 00760 TXH +3 00000 0 00176 EOFXIT BFCLOS.(UF,FI,ERR) 086 LM00109 00761 TSX +0 07400 4 00003 00762 TXH +3 00000 0 00124 00763 TXH +3 00000 0 00055 00764 TXH +3 00000 0 00033 XIT PRMESS.($*$) 087 LM00110 00765 TSX +0 07400 4 00020 00766 TXH +3 00000 0 00217 CHNCOM.(0) 088 LM00111 00767 TSX +0 07400 4 00006 00770 TXH +3 00000 0 00126 ERR .CAL. $PRNTER$ 089 LM00113 00771 CAL -0 50000 0 00214 .LDQ. 400000000071K 090 LM00114 00772 LDQ +0 56000 0 00201 NEXCOM. 091 LM00115 00773 TSX +0 07400 4 00017 V'S STAR=$ *$ 092 LM00117 00077 -2 06060 6 06054 V'S ARG(1)=$ * * * * * * * *$ 093 LM00118 00041 -2 06060 6 06054 00042 -2 06060 6 06054 00043 -2 06060 6 06054 00044 -2 06060 6 06054 00045 -2 06060 6 06054 00046 -2 06060 6 06054 00047 -2 06060 6 06054 00050 -2 06060 6 06054 V'S LINK=7K5 094 LM00119 00067 +0 00000 7 00000 V'S RDUFD=0B 095 LM00120 00076 +0 00000 0 00000 V'S FNS=777777777777K 096 LM00121 00056 -3 77777 7 77777 V'S MXARG=8 097 LM00122 00073 +0 00000 0 00010 V'S UF=$U.F.D.$ 098 LM00123 00124 -2 43326 3 32433 V'S FI=$(FILE)$ 099 LM00124 00055 -3 42631 4 32534 INTERNAL FUNCTION (GNU) 100 LM00126 00774 TRA +0 02000 0 01262 ENTRY TO FSDATE. 101 LM00127 00775 TRA +0 02000 0 01000 00024 TTR +0 02100 0 00776 00776 SXA +0 63400 2 01235 00777 TSX +0 07400 2 01235 MM=BCDEC.((ZEL.(GNU)).RS.24) 102 LM00128 01000 TSX +0 07400 4 00023 01001 TXH +3 00000 0 00024 01002 STO +0 60100 0 01260 01003 CAL -0 50000 0 00143 01004 STA +0 62100 0 01006 01005 CAL -0 50000 0 01260 01006 LGR -0 76500 0 00000 01007 SLW +0 60200 0 01260 01010 TSX +0 07400 4 00001 01011 TXH +3 00000 0 01260 01012 STO +0 60100 0 00070 DD=BCDEC.((GNU.RS.12).A.7777K) 103 LM00129 01013 CAL -0 50000 0 00140 01014 STA +0 62100 0 01016 01015 CAL -0 50000 0 00024 01016 LGR -0 76500 0 00000 01017 ANA -0 32000 0 00154 01020 SLW +0 60200 0 01260 01021 TSX +0 07400 4 00001 01022 TXH +3 00000 0 01260 01023 STO +0 60100 0 00054 YY=BCDEC.(GNU.A.7777K) 104 LM00130 01024 CAL -0 50000 0 00024 01025 ANA -0 32000 0 00154 01026 SLW +0 60200 0 01260 01027 TSX +0 07400 4 00001 01030 TXH +3 00000 0 01260 01031 STO +0 60100 0 00125 W'R MM.G.12.OR.DD.G.31.OR.ZEL.(GNU).A.$ $.NE.0 105 LM00131 1 .OR.MM.E.0.OR.DD.E.0.OR.YY.E.0 105 LM00132 01032 CLA +0 50000 0 00125 01033 SUB +0 40200 0 00126 01034 TZE +0 10000 0 01064 01035 CLA +0 50000 0 00054 01036 SUB +0 40200 0 00126 01037 TZE +0 10000 0 01064 01040 CLA +0 50000 0 00070 01041 SUB +0 40200 0 00126 01042 TZE +0 10000 0 01064 01043 TSX +0 07400 4 00023 01044 TXH +3 00000 0 00024 01045 STO +0 60100 0 01260 01046 CAL -0 50000 0 01260 01047 ANA -0 32000 0 00227 01050 SLW +0 60200 0 01260 01051 CLA +0 50000 0 01260 01052 SUB +0 40200 0 00126 01053 TNZ -0 10000 0 01064 01054 CLA +0 50000 0 00054 01055 SUB +0 40200 0 00145 01056 TZE +0 10000 0 01060 01057 TPL +0 12000 0 01064 01060 CLA +0 50000 0 00070 01061 SUB +0 40200 0 00140 01062 TZE +0 10000 0 01072 01063 TMI -0 12000 0 01072 PRMESS.($ILLEGAL DATE.....$,GNU) 106 LM00133 01064 TSX +0 07400 4 00020 01065 TXH +3 00000 0 00175 01066 TXH +3 00000 0 00205 01067 TXH +3 00000 0 00177 01070 TXH +3 00000 0 00024 T'O XIT 107 LM00134 01071 TRA +0 02000 0 00040 E'L 108 LM00135 F'N (YY.LS.27).V.(MM.LS.23).V.(DD.LS.18) 109 LM00136 01072 CAL -0 50000 0 00141 01073 STA +0 62100 0 01075 01074 CAL -0 50000 0 00054 01075 ALS +0 76700 0 00000 01076 SLW +0 60200 0 01260 01077 CAL -0 50000 0 00142 01100 STA +0 62100 0 01102 01101 CAL -0 50000 0 00070 01102 ALS +0 76700 0 00000 01103 SLW +0 60200 0 01261 01104 CAL -0 50000 0 00144 01105 STA +0 62100 0 01107 01106 CAL -0 50000 0 00125 01107 ALS +0 76700 0 00000 01110 ORA -0 50100 0 01261 01111 ORA -0 50100 0 01260 01112 SLW +0 60200 0 01261 01113 CLA +0 50000 0 01261 01114 TRA +0 02000 0 01254 ENTRY TO FSTIME. 110 LM00137 01115 TRA +0 02000 0 01120 00025 TTR +0 02100 0 01116 01116 SXA +0 63400 2 01235 01117 TSX +0 07400 2 01235 W'R GNU.A.77K2.E.$0000.0$ 111 LM00138 01120 CAL -0 50000 0 00024 01121 ANA -0 32000 0 00153 01122 SLW +0 60200 0 01261 01123 CLA +0 50000 0 01261 01124 SUB +0 40200 0 00152 01125 TNZ -0 10000 0 01142 TEMP=ZEL.(GNU.RS.12) 112 LM00139 01126 CAL -0 50000 0 00140 01127 STA +0 62100 0 01131 01130 CAL -0 50000 0 00024 01131 LGR -0 76500 0 00000 01132 SLW +0 60200 0 01261 01133 TSX +0 07400 4 00023 01134 TXH +3 00000 0 01261 01135 STO +0 60100 0 00110 TM=GNU.A.77K 113 LM00140 01136 CAL -0 50000 0 00024 01137 ANA -0 32000 0 00150 01140 SLW +0 60200 0 00111 O'E 114 LM00141 01141 TRA +0 02000 0 01147 TEMP=ZEL.(GNU) 115 LM00142 01142 TSX +0 07400 4 00023 01143 TXH +3 00000 0 00024 01144 STO +0 60100 0 00110 TM=0 116 LM00143 01145 CLA +0 50000 0 00126 01146 STO +0 60100 0 00111 E'L 117 LM00144 HH=BCDEC.((TEMP.A.7777K4).RS.12) 118 LM00145 01147 CAL -0 50000 0 00110 01150 ANA -0 32000 0 00156 01151 SLW +0 60200 0 01261 01152 CAL -0 50000 0 00140 01153 STA +0 62100 0 01155 01154 CAL -0 50000 0 01261 01155 LGR -0 76500 0 00000 01156 SLW +0 60200 0 01261 01157 TSX +0 07400 4 00001 01160 TXH +3 00000 0 01261 01161 STO +0 60100 0 00065 MM=BCDEC.(TEMP.A.7777K) 119 LM00146 01162 CAL -0 50000 0 00110 01163 ANA -0 32000 0 00154 01164 SLW +0 60200 0 01261 01165 TSX +0 07400 4 00001 01166 TXH +3 00000 0 01261 01167 STO +0 60100 0 00070 W'R HH.G.23.OR.MM.G.59.OR.TM.G.9.OR.TEMP.A.$ $.NE.0 120 LM00147 01170 CAL -0 50000 0 00110 01171 ANA -0 32000 0 00227 01172 SLW +0 60200 0 01261 01173 CLA +0 50000 0 01261 01174 SUB +0 40200 0 00126 01175 TNZ -0 10000 0 01212 01176 CLA +0 50000 0 00111 01177 SUB +0 40200 0 00136 01200 TZE +0 10000 0 01202 01201 TPL +0 12000 0 01212 01202 CLA +0 50000 0 00070 01203 SUB +0 40200 0 00146 01204 TZE +0 10000 0 01206 01205 TPL +0 12000 0 01212 01206 CLA +0 50000 0 00065 01207 SUB +0 40200 0 00142 01210 TZE +0 10000 0 01220 01211 TMI -0 12000 0 01220 PRMESS.($ILLEGAL TIME.....$,GNU) 121 LM00148 01212 TSX +0 07400 4 00020 01213 TXH +3 00000 0 00175 01214 TXH +3 00000 0 00206 01215 TXH +3 00000 0 00177 01216 TXH +3 00000 0 00024 T'O XIT 122 LM00149 01217 TRA +0 02000 0 00040 E'L 123 LM00150 F'N ((HH*60+MM)*10+TM)*6 124 LM00151 01220 LDQ +0 56000 0 00065 01221 MPY +0 20000 0 00147 01222 XCA +0 13100 0 00000 01223 ADD +0 40000 0 00070 01224 XCA +0 13100 0 00000 01225 MPY +0 20000 0 00137 01226 XCA +0 13100 0 00000 01227 ADD +0 40000 0 00111 01230 XCA +0 13100 0 00000 01231 MPY +0 20000 0 00133 01232 XCA +0 13100 0 00000 01233 TRA +0 02000 0 01254 E'N 125 LM00152 01234 TSX +0 07400 4 00010 01235 TXH +3 00000 0 00000 01236 SXD -0 63400 1 01235 01237 SXA +0 63400 4 01254 01240 CLA +0 50000 4 00001 01241 STO +0 60100 0 01001 01242 STA +0 62100 0 01015 01243 STA +0 62100 0 01024 01244 STO +0 60100 0 01044 01245 STO +0 60100 0 01070 01246 STA +0 62100 0 01120 01247 STA +0 62100 0 01130 01250 STA +0 62100 0 01136 01251 STO +0 60100 0 01143 01252 STO +0 60100 0 01216 01253 TRA +0 02000 2 00001 01254 AXT +0 77400 4 00000 01255 LXA +0 53400 2 01235 01256 LXD -0 53400 1 01235 01257 TRA +0 02000 4 00001 END OF PROGRAM 126 LM00154 01262 TSX +0 07400 4 00010 SP BCD 09/18/68 2320.1 2099 00000 1 MAIN PROGRAM FOR SP OR SD COMMAND PAGE 1 * WRITEEN BY ROGER ROACH 9-6-67 TRANSFER VECTOR 00000 263151626360 FIRST 00001 0074 00 4 00000 TSX $FIRST,4 00002 0101 00 0 00003 TIA =HDEAD SHOULD NEVER RETURN END LITERALS 00003 242521246060 1 MAIN PROGRAM FOR SP OR SD COMMAND PAGE 1 POST PROCESSOR ASSEMBLY DATA 4 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 0 FIRST 1 0 NO ERROR IN ABOVE ASSEMBLY. 1 MAD PROGRAM LISTING ... ... ... FILE SP000 MAD 02/08/68 1336.3 - SP SYSTEM PATCH COMMAND. ALLOWS PATCHING IN CORE A LM00001 LM00002 FORMAT-SP P M A(1) B(1) C(1)...A(N) B(N) C(N) LM00003 C(I) MAY BE AA,AR,RA,RR,OR OMITTED AND IMPLIED AR LM00004 P,PROGRAM NAME,MAY BE OMITTED FOR ABSOLUTE PATCH LM00005 M,LOCATION FROM WHICH PATCHING IS DONE. LM00006 LM00007 EXTERNAL FUNCTION *001 LM00008 ENTRY TO FIRST. *002 LM00009 ENTRY TO SP. *003 LM00010 LM00011 ARGUMENT SCANNING LM00012 AA THROUGH AA,FOR ARG=1,1,ARG.G.18.OR.COMARG.(ARG,ARG(ARG)).E.FE *004 LM00013 1 NCE *004 LM00014 ARG=ARG-1 *005 LM00015 WHENEVER ARG(ARG).E.$$,ARG=ARG-1 *006 LM00016 LM00017 LM00018 ARG IS THE SUBSCRIPT FOR LAST SIGNIFICANT ARGUMENT LM00019 LM00020 PAT=TOCT.(ARG(1)) *007 LM00021 PAT=0 IF PROGRAM NAME IS GIVEN LM00022 PAT=1 IF ABSOLUTE PATCHING LM00023 WHENEVER ARG.L.4-PAT,TRANSFER TO ERROR1 *008 LM00024 WHENEVER TOCT.(ARG(2-PAT)).E.0,TRANSFER TO ERROR1 *009 LM00025 WHENEVER PAT.E.0, EXECUTE BRFIL.(RPAT.) *010 LM00026 EXECUTE APAT. *011 LM00027 LM00028 ERROR1 EXECUTE PRNTP.(MESS1) *012 LM00029 EXECUTE CHNCOM.(0) *013 LM00030 LM00031 LM00032 VECTOR VALUES MESS1=$ INCORRECT FORMAT$,777777777777K *014 LM00033 VECTOR VALUES FENCE=777777777777K *015 LM00034 DIMENSION ARG(19) *016 LM00035 PROGRAM COMMON ARG *017 LM00036 NORMAL MODE IS INTEGER *018 LM00037 LM00038 END OF FUNCTION *019 LM00039 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00144 TRANSFER VECTOR LENGTH 00010 PROGRAM BEGINS 00027 FIRST UNUSED COMMON/ERASABLE 77435 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES SP 00033 0 FIRST 00030 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) AA 00010 4 ERROR1 00011 4 FENCE 00012 A 1 MESS1 00016 A 1 PAT 00017 1 ARG 77461 AC1 0FUNCTION DICTIONARY APAT 00000 1 BRFIL 00001 1 CHNCOM 00002 1 COMARG 00003 1 EXIT 00004 1 PRNTP 00005 1 RPAT 00006 1 TOCT 00007 1 0ABSOLUTE CONSTANTS 00020 +000000000000 00022 +000000000002 00023 +000000000004 00026 -206060606060 00024 +000000000022 00021 +000000000001 00025 +233000000000 0STATEMENT DICTIONARY 00011 TXL -300127000125 0PROGRAM EXTERNAL FUNCTION 001 LM00008 ENTRY TO FIRST. 002 LM00009 00027 TRA +0 02000 0 00032 00030 SXA +0 63400 2 00132 00031 TSX +0 07400 2 00132 ENTRY TO SP. 003 LM00010 00032 TRA +0 02000 0 00035 00033 SXA +0 63400 2 00132 00034 TSX +0 07400 2 00132 AA THROUGH AA,FOR ARG=1,1,ARG.G.18.OR.COMARG.(ARG,ARG(ARG)).E.FE 004 LM00013 1NCE 004 LM00014 00035 CLA +0 50000 0 00021 00036 STO +0 60100 0 77461 00037 TRA +0 02000 0 00043 00040 CLA +0 50000 0 77461 00041 ADD +0 40000 0 00021 00042 STO +0 60100 0 77461 00043 CLA +0 50000 0 77461 00044 SUB +0 40200 0 00045 00045 TXH +3 00000 0 77461 00046 STA +0 62100 0 00051 00047 TSX +0 07400 4 00003 00050 TXH +3 00000 0 77461 00051 TXH +3 00000 0 00000 00052 SUB +0 40200 0 00012 00053 TZE +0 10000 0 00061 00054 CLA +0 50000 0 77461 00055 SUB +0 40200 0 00024 00056 TZE +0 10000 0 00060 00057 TPL +0 12000 0 00061 00060 TRA +0 02000 0 00040 ARG=ARG-1 005 LM00015 00061 CLA +0 50000 0 77461 00062 SUB +0 40200 0 00021 00063 STO +0 60100 0 77461 WHENEVER ARG(ARG).E.$$,ARG=ARG-1 006 LM00016 00064 LXA +0 53400 1 77461 00065 CLA +0 50000 1 77461 00066 SUB +0 40200 0 00026 00067 TNZ -0 10000 0 00073 00070 CLA +0 50000 0 77461 00071 SUB +0 40200 0 00021 00072 STO +0 60100 0 77461 PAT=TOCT.(ARG(1)) 007 LM00021 00073 TSX +0 07400 4 00007 00074 TXH +3 00000 0 77460 00075 STO +0 60100 0 00017 WHENEVER ARG.L.4-PAT,TRANSFER TO ERROR1 008 LM00024 00076 CLA +0 50000 0 00023 00077 SUB +0 40200 0 00017 00100 CHS +0 76000 0 00002 00101 ADD +0 40000 0 77461 00102 TZE +0 10000 0 00105 00103 TPL +0 12000 0 00105 00104 TRA +0 02000 0 00011 WHENEVER TOCT.(ARG(2-PAT)).E.0,TRANSFER TO ERROR1 009 LM00025 00105 CLA +0 50000 0 00022 00106 SUB +0 40200 0 00017 00107 SUB +0 40200 0 00110 00110 TXH +3 00000 0 77461 00111 STA +0 62100 0 00113 00112 TSX +0 07400 4 00007 00113 TXH +3 00000 0 00000 00114 SUB +0 40200 0 00020 00115 TNZ -0 10000 0 00117 00116 TRA +0 02000 0 00011 WHENEVER PAT.E.0, EXECUTE BRFIL.(RPAT.) 010 LM00026 00117 CLA +0 50000 0 00017 00120 SUB +0 40200 0 00020 00121 TNZ -0 10000 0 00124 00122 TSX +0 07400 4 00001 00123 TXH +3 00000 0 00006 EXECUTE APAT. 011 LM00027 00124 TSX +0 07400 4 00000 ERROR1 EXECUTE PRNTP.(MESS1) 012 LM00029 00125 TSX +0 07400 4 00005 00126 TXH +3 00000 0 00016 EXECUTE CHNCOM.(0) 013 LM00030 00127 TSX +0 07400 4 00002 00130 TXH +3 00000 0 00020 VECTOR VALUES MESS1=$ INCORRECT FORMAT$,777777777777K 014 LM00033 00013 -3 77777 7 77777 00014 -0 65144 2 16360 00015 -1 12523 6 36026 00016 -2 03145 2 34651 VECTOR VALUES FENCE=777777777777K 015 LM00034 00012 -3 77777 7 77777 DIMENSION ARG(19) 016 LM00035 PROGRAM COMMON ARG 017 LM00036 NORMAL MODE IS INTEGER 018 LM00037 END OF FUNCTION 019 LM00039 00131 TSX +0 07400 4 00004 00132 TXH +3 00000 0 00000 00133 SXD -0 63400 1 00132 00134 SXA +0 63400 4 00136 00135 TRA +0 02000 2 00001 00136 AXT +0 77400 4 00000 00137 LXA +0 53400 2 00132 00140 LXD -0 53400 1 00132 00141 TRA +0 02000 4 00001 SPLIT BCD 09/18/68 2320.1 17075 00000 1 MAD PROGRAM LISTING ... ... ... FILE SPLIT MAD 02/08/68 1343.4 - ..MAIN PROGRAM FOR CALLING SPLIT AND USE LM00001 ..E.QUISENBERRY.....NOVEMBER 65 LM00002 NORMAL MODE IS INTEGER *001 LM00003 WHENEVER COMARG.(0).E.$ SPLIT$,FIX.(0,SPLIT.) *002 LM00004 WHENEVER COMARG.(0).E.$ USE$,FIX.(0,USE.) *003 LM00005 SPLIT COMMAND LM00006 LM00007 FORMAT TO USE SPLIT LM00008 LM00009 SPLIT NAME1 NAME2 A1 S1 A2 S2 A3 ... AN SN LM00010 LM00011 NAME1 NAME2 IS FILE TO BE SPLIT LM00012 A1, A2,... ARE FILES TO BE CREATED LM00013 ALL SECONDARY NAMES WILL BE NAME2 LM00014 ANY AI MAY = *, IF THE FILE FROM S(I-1) TO SI IS LM00015 NOT WANTED. LM00016 ANY AI MAY = NAME1 LM00017 ALL PREVIOUS COPIES OF NEW FILES WILL BE DELETED, LM00018 IF POSSIBLE. LM00019 S1, S2,... ARE (NUMERICAL) DIVIDERS OF FILE LM00020 MAY BE...SEQUENCE NUMBERS FOR FILES OF 14 WORD RECORDS LM00021 RECORD NUMBERS FOR MIXED LENGTH RECORDS, OR LM00022 WHEN ARGUMENT (RCNO) IS USED. LM00023 WORD COUNT WHEN ARGUMENT (WDCT) IS USED LM00024 OPTIONAL EXTRA ARGUMENT ((WDCT) OR (RCNO)), MAY LM00025 APPEAR AFTER SPLIT OR AFTER NAME2. LM00026 CAUTION..WHEN USING (WDCT) OPTION ON LINE-MARKED FILES, LM00027 REMEMBER THAT LINE MARK IS INCLUDED IN WORD COUNT. LM00028 LM00029 LM00030 SPLIT LOGIC LM00031 LM00032 UNLESS OTHERWISE INSTRUCTED, SPLIT WILL ASSUME SI TO BE LM00033 SEQUENCE NUMBER -- AS LONG AS RECORDS ARE 14 WORDS. LM00034 LM00035 WHEN SI FALLS BETWEEN 2 SEQUENCE NUMBERS, FILE IS SPLIT LM00036 BETWEEN THEM. LM00037 WHEN SI = SEQUENCE NUMBER, FILE IS SPLIT AFTER THE LINE. LM00038 LM00039 LM00040 LOGIC OF PROGRAM LM00041 LM00042 SWITCH = 0 SPLIT BY SEQUENCE NUMBER LM00043 1 SPLIT BY RECORD NUMBER LM00044 2 SPLIT BY WORD COUNT LM00045 3 NO MORE SPLITTING -- JUST COPY LM00046 LM00047 LM00048 LM00049 LM00050 SPLIT MAD LM00051 LM00052 INTERNAL FUNCTION (LK) *004 LM00053 ENTRY TO SPLIT. *005 LM00054 LM00055 LM00056 INITIALIZATION LM00057 LM00058 THROUGH SPLA1, FOR N=1,1,N.G.18 .OR. COMARG.(N,ARGS *006 LM00059 1 (NOARGS)).E.FENCE *006 LM00060 WHENEVER ARGS(NOARGS) .E. HWDCT *007 LM00061 WHENEVER NOARGS .G. 2, TRANSFER TO INVOP *008 LM00062 SWITCH = 2 *009 LM00063 XSWTCH = 2 *010 LM00064 OR WHENEVER ARGS (NOARGS) .E. HRCCT *011 LM00065 WHENEVER NOARGS.G.2, TRANSFER TO INVOP *012 LM00066 SWITCH = 1 *013 LM00067 XSWTCH = 1 *014 LM00068 OTHERWISE *015 LM00069 NOARGS = NOARGS+1 *016 LM00070 END OF CONDITIONAL *017 LM00071 SPLA1 CONTINUE *018 LM00072 NOARGS = NOARGS-1 *019 LM00073 WHENEVER NOARGS.LE.1 *020 LM00074 EXECUTE PRNTP.(F1) *021 LM00075 EXECUTE CHNCOM.(0) *022 LM00076 END OF CONDITIONAL *023 LM00077 LM00078 SPLA2 WHENEVER FSTAT.(FILNAM) .E. 0 *024 LM00079 F2(1) = FILNAM *025 LM00080 F2(2) = FILNAM(1) *026 LM00081 EXECUTE PRNTP.(F2) *027 LM00082 EXECUTE DORMNT. *028 LM00083 END OF CONDITIONAL *029 LM00084 LM00085 BF1 = GETMEM.(0)+BUFFL *030 LM00086 BF2 = BF1+BUFFL *031 LM00087 BF3 = BF2+BUFFL *032 LM00088 BF4 = BF3 + BUFFL *033 LM00089 EXECUTE SMEM.(BF4+1) *034 LM00090 EXECUTE SEEK.(FILNAM,LK(-BF1),LK(-BF2)) *035 LM00091 NEWFIL(1) = FILNAM(1) *036 LM00092 EXECUTE SETEOF.(EOFILE) *037 LM00093 EXECUTE SETVBF.(14) *038 LM00094 LM00095 LM00096 GET NEXT PAIR OF ARGUMENTS LM00097 LM00098 THROUGH RGLOOP, FOR ARGNO=2,2,ARGNO.G.NOARGS *039 LM00099 NEWFIL = ARGS(ARGNO) *040 LM00100 SPLA3 WORDS = 0 *041 LM00101 WHENEVER NEWFIL.E.FENCE *042 LM00102 TRANSFER TO END *043 LM00103 OR WHENEVER NEWFIL .E. STAR *044 LM00104 NOWRT = 1 *045 LM00105 OTHERWISE *046 LM00106 NOWRT = 0 *047 LM00107 WHENEVER NEWFIL.E.FILNAM, NEWFIL = TEMP *048 LM00108 WHENEVER SKIPRD.E.1 .OR. NOMORE.E.0, *049 LM00109 1 EXECUTE ASSIGN.(NEWFIL, LK(-BF3), LK(-BF4)) *049 LM00110 END OF CONDITIONAL *050 LM00111 LM00112 WHENEVER ARGNO+1 .G. NOARGS *051 LM00113 WHENEVER NEWFIL.E.STAR, TRANSFER TO END *052 LM00114 SWITCH = 3 *053 LM00115 BSI = .ABS.FENCE *054 LM00116 WHENEVER SKIPRD.E.0, WC = 22 *055 LM00117 OTHERWISE *056 LM00118 SI = ZEL.(ARGS(ARGNO+1)) *057 LM00119 BSI = BCDEC.(SI) *058 LM00120 WHENEVER SWITCH.E.1 .OR. SWITCH.E.2 *059 LM00121 WC = BSI - RECNO *060 LM00122 WHENEVER WC.LE.0 *061 LM00123 ALLFI = 0 *062 LM00124 TRANSFER TO RGLOOP *063 LM00125 OR WHENEVER WC.G.22 *064 LM00126 WC = 22 *065 LM00127 END OF CONDITIONAL *066 LM00128 END OF CONDITIONAL *067 LM00129 END OF CONDITIONAL *068 LM00130 LM00131 LM00132 READ NEXT RECORD LM00133 LM00134 READ WHENEVER SKIPRD.NE.0, TRANSFER TO BRANCH(SWITCH) *069 LM00135 WHENEVER NOMORE.E.1, TRANSFER TO EOFA1 *070 LM00136 WHENEVER SWITCH.GE.2, TRANSFER TO READ2 *071 LM00137 WC = VREAD.(FILNAM,BLOCK,...,BLOCK(21)) *072 LM00138 AWC = .ABS.WC *073 LM00139 RECNO = RECNO+1 *074 LM00140 TRANSFER TO BRANCH(SWITCH) *075 LM00141 LM00142 LM00143 SPLIT BY SEQUENCE NUMBER LM00144 LM00145 BRANCH(0) CONTINUE *076 LM00146 CHARS = ZEL.(BLOCK(13)/CHAR4 + .ABS.(BLOCK(12)*CHAR3)/CHAR1) *077 LM00147 WHENEVER CHARS.G.$099999$ .OR. AWC.NE.14 *078 LM00148 WHENEVER ARGNO.E.2 .AND. RECNO.LE.BSI *079 LM00149 SWITCH = 1 *080 LM00150 XSWTCH = 1 *081 LM00151 TRANSFER TO BRANCH(1) *082 LM00152 OTHERWISE *083 LM00153 SWITCH = 3 *084 LM00154 CRASH = 1 *085 LM00155 TRANSFER TO CLOSE1 *086 LM00156 END OF CONDITIONAL *087 LM00157 OR WHENEVER CHARO.LE.SI .AND. SI.L.CHARS *088 LM00158 CLOSE1 SKIPRD = 1 *089 LM00159 CLOSE WHENEVER NOWRT.E.1 *090 LM00160 OR WHENEVER WORDS.E.0 *091 LM00161 ALLFI = 0 *092 LM00162 OTHERWISE *093 LM00163 WHENEVER DELETE.(NEWFIL).E.0 .AND. FSTAT.(NEWFIL).NE.0 *094 LM00164 DFILE(DELNO) = NEWFIL *095 LM00165 DFILE (DELNO+1) = COMMA *096 LM00166 DELNO = DELNO+2 *097 LM00167 END OF CONDITIONAL *098 LM00168 EXECUTE FILE.(NEWFIL) *099 LM00169 WHENEVER CRASH.E.2, TRANSFER TO RGLOOP *100 LM00170 NFILE(FILNO) = NEWFIL *101 LM00171 NFILE(FILNO+1) = COMMA *102 LM00172 FILNO = FILNO +2 *103 LM00173 END OF CONDITIONAL *104 LM00174 WHENEVER CRASH.E.1 *105 LM00175 CRFILE(5) = CHARS *106 LM00176 CRFILE(8) = DEFBC.(RECNO) *107 LM00177 CRFIL = NEWFIL *108 LM00178 CRFIL(7) = FILNAM(1) *109 LM00179 NEWFIL = CRFIL(6) *110 LM00180 CRASH = 2 *111 LM00181 TRANSFER TO SPLA3 *112 LM00182 END OF CONDITIONAL *113 LM00183 TRANSFER TO RGLOOP *114 LM00184 OTHERWISE *115 LM00185 CHARO = CHARS *116 LM00186 LM00187 LM00188 SPLIT BY RECORD NUMBER LM00189 LM00190 BRANCH(1) CONTINUE *117 LM00191 BRANCH(3) SKIPRD = 0 *118 LM00192 WHENEVER NOWRT.E.1, TRANSFER TO B0A1 *119 LM00193 WWC = 0 *120 LM00194 WHENEVER WC.L.0 *121 LM00195 WWC = FWRITE.(NEWFIL,BLOCK,...,BLOCK(AWC-1)) *122 LM00196 OR WHENEVER WC.G.0 *123 LM00197 WWC = VWRITE.(NEWFIL,BLOCK,...,BLOCK(AWC-1)) *124 LM00198 END OF CONDITIONAL *125 LM00199 WORDS = WORDS + .ABS.WWC *126 LM00200 B0A1 WHENEVER SWITCH.E.0 *127 LM00201 WHENEVER CHARS.E.SI, TRANSFER TO CLOSE *128 LM00202 OR WHENEVER SWITCH.E.1 *129 LM00203 WHENEVER RECNO.E.BSI, TRANSFER TO CLOSE *130 LM00204 OTHERWISE *131 LM00205 TRANSFER TO B2A1 *132 LM00206 END OF CONDITIONAL *133 LM00207 END OF CONDITIONAL *134 LM00208 TRANSFER TO READ *135 LM00209 LM00210 LM00211 SPLIT BY WORD COUNT LM00212 LM00213 READ2 EXECUTE BREAD.(FILNAM,BLOCK,...,BLOCK(WC-1)) *136 LM00214 RECNO = RECNO + WC *137 LM00215 BRANCH(2) WHENEVER NOWRT.E.1, TRANSFER TO B2A1 *138 LM00216 EXECUTE BWRITE.(NEWFIL,BLOCK,...,BLOCK(WC-1)) *139 LM00217 WORDS = WORDS + WC *140 LM00218 B2A1 WC = BSI - RECNO *141 LM00219 WHENEVER NOMORE.E.1 .OR. WC.LE.0, TRANSFER TO CLOSE *142 LM00220 WHENEVER WC.G.22, WC = 22 *143 LM00221 TRANSFER TO READ2 *144 LM00222 LM00223 LM00224 CLEAN UP LM00225 LM00226 RGLOOP CONTINUE *145 LM00227 END WHENEVER NOMORE.E.0, EXECUTE ENDRD.(FILNAM) *146 LM00228 THROUGH ENDA1, FOR I=4,2,I.GE.FILNO *147 LM00229 WHENEVER NFILE(I).E.TEMP *148 LM00230 TEMP(1) = FILNAM(1) *149 LM00231 WHENEVER RENAME.(TEMP,FILNAM).NE.0 *150 LM00232 ALLFI = 0 *151 LM00233 TRANSFER TO ENDA2 *152 LM00234 END OF CONDITIONAL *153 LM00235 DFILE(DELNO) = FILNAM *154 LM00236 DELNO = DELNO+2 *155 LM00237 NFILE(I) = FILNAM *156 LM00238 TRANSFER TO ENDA2 *157 LM00239 END OF CONDITIONAL *158 LM00240 ENDA1 CONTINUE *159 LM00241 LM00242 ENDA2 WHENEVER FILNO.G.4 *160 LM00243 F3(1) = FILNAM *161 LM00244 F3(2) = FILNAM(1) *162 LM00245 F3(5) = COM(XSWTCH) *163 LM00246 EXECUTE PRNTP.(F3) *164 LM00247 END OF CONDITIONAL *165 LM00248 WHENEVER FILNO.LE.4 *166 LM00249 EXECUTE PRNTP.(F4) *167 LM00250 OR WHENEVER ALLFI.E.1 *168 LM00251 EXECUTE PRNTP.(F5) *169 LM00252 OTHERWISE *170 LM00253 NFILE(FILNO-1) = FENCE *171 LM00254 EXECUTE PRNTP.(NFILE) *172 LM00255 END OF CONDITIONAL *173 LM00256 WHENEVER DELNO.G.3 *174 LM00257 DFILE(DELNO-1) = FENCE *175 LM00258 EXECUTE PRNTP.(DFILE) *176 LM00259 END OF CONDITIONAL *177 LM00260 WHENEVER CRASH.E.2 *178 LM00261 EXECUTE PRNTP.(CRFILE) *179 LM00262 EXECUTE PRNTP.(CRFIL) *180 LM00263 EXECUTE CHMODE.(CRFIL(6),0) *181 LM00264 END OF CONDITIONAL *182 LM00265 EXECUTE CHNCOM.(0) *183 LM00266 LM00267 LM00268 MISCELLANEOUS LM00269 LM00270 ENTRY TO USE. *184 LM00271 WHENEVER COMARG.(1,FILNAM).E.FENCE, TRANSFER TO SPLA2 *185 LM00272 WHENEVER COMARG.(2,TEST).NE.FENCE, FILNAM(1) = TEST *186 LM00273 TRANSFER TO SPLA2 *187 LM00274 INVOP EXECUTE PRNTP.(F6) *188 LM00275 EXECUTE CHNCOM.(0) *189 LM00276 EOFILE EXECUTE WRDCNT.(WC) *190 LM00277 NOMORE = 1 *191 LM00278 WHENEVER WC.G.0, TRANSFER TO BRANCH(2) *192 LM00279 EOFA1 TRANSFER TO CLOSE *193 LM00280 LM00281 DIMENSION ARGS(18),BLOCK(21),DFILE(18),NFILE(19),NEWFIL(1) *194 LM00282 DIMENSION FILNAM(1),CRFILE(9),CRFIL(13) *195 LM00283 EQUIVALENCE (ARGS,FILNAM) *196 LM00284 VECTOR VALUES FENCE = 777777777777K *197 LM00285 VECTOR VALUES BUFFL = 470 *198 LM00286 VECTOR VALUES HWDCT = $(WDCT)$ *199 LM00287 VECTOR VALUES HRCCT = $(RCNO)$ *200 LM00288 VECTOR VALUES STAR = $ *$ *201 LM00289 VECTOR VALUES TEMP = $(TSPL) $ *202 LM00290 VECTOR VALUES COMMA = 736057575757K *203 LM00291 VECTOR VALUES CHAR1 = 1K2 *204 LM00292 VECTOR VALUES CHAR3 = 1K6 *205 LM00293 VECTOR VALUES CHAR4 = 1K8 *206 LM00294 VECTOR VALUES SWITCH = 0 *207 LM00295 VECTOR VALUES XSWTCH = 0 *208 LM00296 VECTOR VALUES NOARGS = 0 *209 LM00297 VECTOR VALUES RECNO = 0 *210 LM00298 VECTOR VALUES SKIPRD = 0 *211 LM00299 VECTOR VALUES NOMORE = 0 *212 LM00300 VECTOR VALUES CHARO = 0 *213 LM00301 VECTOR VALUES CRASH = 0 *214 LM00302 VECTOR VALUES ALLFI = 1 *215 LM00303 VECTOR VALUES COM = $SEQ NOREC NOWRD CT$ *216 LM00304 VECTOR VALUES FILNO = 4 *217 LM00305 VECTOR VALUES DELNO = 3 *218 LM00306 VECTOR VALUES F1 = $NO SPLIT REQUIRED$,777777777777K *219 LM00307 VECTOR VALUES F2 = $NEED $,777777777777K *220 LM00308 VECTOR VALUES F3 = $FILE SPLIT BY $ *221 LM00309 1 ,777777777777K *221 LM00310 VECTOR VALUES F4 = $NO FILES CREATED$,777777777777K *222 LM00311 VECTOR VALUES F5 = $ALL FILES CREATED$,777777777777K *223 LM00312 VECTOR VALUESF6=$INVALID SEQUENCE OF ARGUMENTS$,777777777777K *224 LM00313 VECTOR VALUES NFILE = $ONLY FILES CREATED ARE,$ *225 LM00314 VECTOR VALUES DFILE = $DELETED FILES ARE$ *226 LM00315 VECTOR VALUES CRFILE = $CHANGE OF MODE AT SEQUENCE NO.$ *227 LM00316 VECTOR VALUES CRFILE(6) = $, RECORD NO. $,777777777777K *228 LM00317 VECTOR VALUES CRFIL(1)=$ IS TRUNCATED. TEMPORARY FILE (SPLT)$ *229 LM00318 VECTOR VALUES CRFIL(8) = $ HOLDS REST OF ORGINAL FILE$ *230 LM00319 VECTOR VALUES CRFIL(13) = 777777777777K *231 LM00320 END OF FUNCTION *232 LM00321 END OF PROGRAM *233 LM00322 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01543 TRANSFER VECTOR LENGTH 00034 PROGRAM BEGINS 00355 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ALLFI 00104 A 1 CHAR1 00143 A 1 ENDA1 00036 4 HRCCT 00270 A 1 SI 00326 1 ARGNO 00105 1 CHAR3 00144 A 1 ENDA2 00072 4 HWDCT 00271 A 1 SKIPRD 00327 A 1 ARGS 00061 A 1 CHAR4 00145 A 1 END 00073 4 INVOP 00076 4 SPLA1 00036 4 AWC 00106 1 CHARO 00146 A 1 EOFA1 00074 4 I 00272 1 SPLA2 00102 4 B0A1 00062 4 CHARS 00147 1 EOFILE 00075 4 NEWFIL 00274 A 1 SPLA3 00103 4 B2A1 00063 4 CLOSE1 00070 4 F1 00234 A 1 NFILE 00320 A 1 STAR 00330 A 1 BF1 00107 1 CLOSE 00071 4 F2 00240 A 1 NOARGS 00321 A 1 SWITCH 00331 A 1 BF2 00110 1 COMMA 00150 A 1 F3 00247 A 1 NOMORE 00322 A 1 TEMP 00333 A 1 BF3 00111 1 COM 00153 A 1 F4 00253 A 1 NOWRT 00323 1 TEST 00334 1 BF4 00112 1 CRASH 00154 A 1 F5 00257 A 1 N 00324 1 WC 00335 1 BLOCK 00140 A 1 CRFILE 00166 A 1 F6 00265 A 1 READ2 00077 4 WORDS 00336 1 BRANCH 00067 A 4 CRFIL 00204 A 1 FENCE 00266 A 1 READ 00100 4 WWC 00337 1 BSI 00141 1 DELNO 00205 A 1 FILNAM 00061 A 1 RECNO 00325 A 1 XSWTCH 00340 A 1 BUFFL 00142 A 1 DFILE 00230 A 1 FILNO 00267 A 1 RGLOOP 00101 4 0FUNCTION DICTIONARY ASSIGN 00000 1 BCDEC 00001 1 BREAD 00002 1 BWRITE 00003 1 CHMODE 00004 1 CHNCOM 00005 1 COMARG 00006 1 DEFBC 00007 1 DELETE 00010 1 DORMNT 00011 1 ENDRD 00012 1 EXIT 00013 1 FILE 00014 1 FIX 00015 1 FSTAT 00016 1 FWRITE 00017 1 GETMEM 00020 1 .SETUP 00021 1 PRNTP 00022 1 RENAME 00023 1 SEEK 00024 1 SETEOF 00025 1 SETVBF 00026 1 SMEM 00027 1 VREAD 00030 1 VWRITE 00031 1 WRDCNT 00032 1 ZEL 00033 1 SPLIT 00034 1 USE 00035 1 0ABSOLUTE CONSTANTS 00345 +000000000004 00351 +001111111111 00350 +000000000026 00344 +000000000003 00346 +000000000016 00343 +000000000002 00347 +000000000022 00353 -206060646225 00354 -206247433163 00341 +000000000000 00342 +000000000001 00352 +233000000000 0STATEMENT DICTIONARY 00062 TXL -301224001221 00063 TXL -301302001277 00064 TXL -301152001150 00065 TXL -301263001257 00066 TXL -301150001150 00067 TXL -300760000760 00070 TXL -301045001043 00071 TXL -301050001045 00072 TXL -301376001372 00073 TXL -301327001322 00074 TXL -301521001520 00075 TXL -301511001507 00076 TXL -301505001503 00077 TXL -301254001243 00100 TXL -300733000726 00101 TXL -301322001321 00102 TXL -300502000476 00103 TXL -300574000572 0PROGRAM NORMAL MODE IS INTEGER 001 LM00003 WHENEVER COMARG.(0).E.$ SPLIT$,FIX.(0,SPLIT.) 002 LM00004 00355 TSX +0 07400 4 00021 00356 TSX +0 07400 4 00006 00357 TXH +3 00000 0 00341 00360 SUB +0 40200 0 00354 00361 TNZ -0 10000 0 00365 00362 TSX +0 07400 4 00015 00363 TXH +3 00000 0 00341 00364 TXH +3 00000 0 00034 WHENEVER COMARG.(0).E.$ USE$,FIX.(0,USE.) 003 LM00005 00365 TSX +0 07400 4 00006 00366 TXH +3 00000 0 00341 00367 SUB +0 40200 0 00353 00370 TNZ -0 10000 0 00374 00371 TSX +0 07400 4 00015 00372 TXH +3 00000 0 00341 00373 TXH +3 00000 0 00035 INTERNAL FUNCTION (LK) 004 LM00053 00374 TRA +0 02000 0 01540 ENTRY TO SPLIT. 005 LM00054 00375 TRA +0 02000 0 00400 00034 TTR +0 02100 0 00376 00376 SXA +0 63400 2 01522 00377 TSX +0 07400 2 01522 THROUGH SPLA1, FOR N=1,1,N.G.18 .OR. COMARG.(N,ARGS 006 LM00059 1(NOARGS)).E.FENCE 006 LM00060 00400 CLA +0 50000 0 00342 00401 STO +0 60100 0 00324 00402 TRA +0 02000 0 00406 00403 CLA +0 50000 0 00324 00404 ADD +0 40000 0 00342 00405 STO +0 60100 0 00324 00406 CLA +0 50000 0 00321 00407 SUB +0 40200 0 00410 00410 TXH +3 00000 0 00061 00411 STA +0 62100 0 00414 00412 TSX +0 07400 4 00006 00413 TXH +3 00000 0 00324 00414 TXH +3 00000 0 00000 00415 SUB +0 40200 0 00266 00416 TZE +0 10000 0 00463 00417 CLA +0 50000 0 00324 00420 SUB +0 40200 0 00347 00421 TZE +0 10000 0 00423 00422 TPL +0 12000 0 00463 WHENEVER ARGS(NOARGS) .E. HWDCT 007 LM00061 00423 LXA +0 53400 1 00321 00424 CLA +0 50000 1 00061 00425 SUB +0 40200 0 00271 00426 TNZ -0 10000 0 00441 WHENEVER NOARGS .G. 2, TRANSFER TO INVOP 008 LM00062 00427 CLA +0 50000 0 00321 00430 SUB +0 40200 0 00343 00431 TZE +0 10000 0 00434 00432 TMI -0 12000 0 00434 00433 TRA +0 02000 0 00076 SWITCH = 2 009 LM00063 00434 CLA +0 50000 0 00343 00435 STO +0 60100 0 00331 XSWTCH = 2 010 LM00064 00436 CLA +0 50000 0 00343 00437 STO +0 60100 0 00340 OR WHENEVER ARGS (NOARGS) .E. HRCCT 011 LM00065 00440 TRA +0 02000 0 00462 00441 LXA +0 53400 1 00321 00442 CLA +0 50000 1 00061 00443 SUB +0 40200 0 00270 00444 TNZ -0 10000 0 00457 WHENEVER NOARGS.G.2, TRANSFER TO INVOP 012 LM00066 00445 CLA +0 50000 0 00321 00446 SUB +0 40200 0 00343 00447 TZE +0 10000 0 00452 00450 TMI -0 12000 0 00452 00451 TRA +0 02000 0 00076 SWITCH = 1 013 LM00067 00452 CLA +0 50000 0 00342 00453 STO +0 60100 0 00331 XSWTCH = 1 014 LM00068 00454 CLA +0 50000 0 00342 00455 STO +0 60100 0 00340 OTHERWISE 015 LM00069 00456 TRA +0 02000 0 00462 NOARGS = NOARGS+1 016 LM00070 00457 CLA +0 50000 0 00321 00460 ADD +0 40000 0 00342 00461 STO +0 60100 0 00321 END OF CONDITIONAL 017 LM00071 SPLA1 CONTINUE 018 LM00072 00462 TRA +0 02000 0 00403 NOARGS = NOARGS-1 019 LM00073 00463 CLA +0 50000 0 00321 00464 SUB +0 40200 0 00342 00465 STO +0 60100 0 00321 WHENEVER NOARGS.LE.1 020 LM00074 00466 CLA +0 50000 0 00321 00467 SUB +0 40200 0 00342 00470 TZE +0 10000 0 00472 00471 TPL +0 12000 0 00476 EXECUTE PRNTP.(F1) 021 LM00075 00472 TSX +0 07400 4 00022 00473 TXH +3 00000 0 00234 EXECUTE CHNCOM.(0) 022 LM00076 00474 TSX +0 07400 4 00005 00475 TXH +3 00000 0 00341 END OF CONDITIONAL 023 LM00077 SPLA2 WHENEVER FSTAT.(FILNAM) .E. 0 024 LM00079 00476 TSX +0 07400 4 00016 00477 TXH +3 00000 0 00061 00500 SUB +0 40200 0 00341 00501 TNZ -0 10000 0 00511 F2(1) = FILNAM 025 LM00080 00502 CLA +0 50000 0 00061 00503 STO +0 60100 0 00237 F2(2) = FILNAM(1) 026 LM00081 00504 CLA +0 50000 0 00060 00505 STO +0 60100 0 00236 EXECUTE PRNTP.(F2) 027 LM00082 00506 TSX +0 07400 4 00022 00507 TXH +3 00000 0 00240 EXECUTE DORMNT. 028 LM00083 00510 TSX +0 07400 4 00011 END OF CONDITIONAL 029 LM00084 BF1 = GETMEM.(0)+BUFFL 030 LM00086 00511 TSX +0 07400 4 00020 00512 TXH +3 00000 0 00341 00513 ADD +0 40000 0 00142 00514 STO +0 60100 0 00107 BF2 = BF1+BUFFL 031 LM00087 00515 CLA +0 50000 0 00107 00516 ADD +0 40000 0 00142 00517 STO +0 60100 0 00110 BF3 = BF2+BUFFL 032 LM00088 00520 CLA +0 50000 0 00110 00521 ADD +0 40000 0 00142 00522 STO +0 60100 0 00111 BF4 = BF3 + BUFFL 033 LM00089 00523 CLA +0 50000 0 00111 00524 ADD +0 40000 0 00142 00525 STO +0 60100 0 00112 EXECUTE SMEM.(BF4+1) 034 LM00090 00526 CLA +0 50000 0 00112 00527 ADD +0 40000 0 00342 00530 STO +0 60100 0 01537 00531 TSX +0 07400 4 00027 00532 TXH +3 00000 0 01537 EXECUTE SEEK.(FILNAM,LK(-BF1),LK(-BF2)) 035 LM00091 00533 CLS +0 50200 0 00110 00534 SUB +0 40200 0 00535 00535 TXH +3 00000 0 00024 00536 STA +0 62100 0 00546 00537 CLS +0 50200 0 00107 00540 SUB +0 40200 0 00541 00541 TXH +3 00000 0 00024 00542 STA +0 62100 0 00545 00543 TSX +0 07400 4 00024 00544 TXH +3 00000 0 00061 00545 TXH +3 00000 0 00000 00546 TXH +3 00000 0 00000 NEWFIL(1) = FILNAM(1) 036 LM00092 00547 CLA +0 50000 0 00060 00550 STO +0 60100 0 00273 EXECUTE SETEOF.(EOFILE) 037 LM00093 00551 TSX +0 07400 4 00025 00552 TXH +3 00000 0 00075 EXECUTE SETVBF.(14) 038 LM00094 00553 TSX +0 07400 4 00026 00554 TXH +3 00000 0 00346 THROUGH RGLOOP, FOR ARGNO=2,2,ARGNO.G.NOARGS 039 LM00099 00555 CLA +0 50000 0 00343 00556 STO +0 60100 0 00105 00557 TRA +0 02000 0 00563 00560 CLA +0 50000 0 00105 00561 ADD +0 40000 0 00343 00562 STO +0 60100 0 00105 00563 CLA +0 50000 0 00105 00564 SUB +0 40200 0 00321 00565 TZE +0 10000 0 00567 00566 TPL +0 12000 0 01322 NEWFIL = ARGS(ARGNO) 040 LM00100 00567 LXA +0 53400 2 00105 00570 CLA +0 50000 2 00061 00571 STO +0 60100 0 00274 SPLA3 WORDS = 0 041 LM00101 00572 CLA +0 50000 0 00341 00573 STO +0 60100 0 00336 WHENEVER NEWFIL.E.FENCE 042 LM00102 00574 CLA +0 50000 0 00274 00575 SUB +0 40200 0 00266 00576 TNZ -0 10000 0 00601 TRANSFER TO END 043 LM00103 00577 TRA +0 02000 0 00073 OR WHENEVER NEWFIL .E. STAR 044 LM00104 00600 TRA +0 02000 0 00640 00601 CLA +0 50000 0 00274 00602 SUB +0 40200 0 00330 00603 TNZ -0 10000 0 00607 NOWRT = 1 045 LM00105 00604 CLA +0 50000 0 00342 00605 STO +0 60100 0 00323 OTHERWISE 046 LM00106 00606 TRA +0 02000 0 00640 NOWRT = 0 047 LM00107 00607 CLA +0 50000 0 00341 00610 STO +0 60100 0 00323 WHENEVER NEWFIL.E.FILNAM, NEWFIL = TEMP 048 LM00108 00611 CLA +0 50000 0 00274 00612 SUB +0 40200 0 00061 00613 TNZ -0 10000 0 00616 00614 CLA +0 50000 0 00333 00615 STO +0 60100 0 00274 WHENEVER SKIPRD.E.1 .OR. NOMORE.E.0, 049 LM00109 1 EXECUTE ASSIGN.(NEWFIL, LK(-BF3), LK(-BF4)) 049 LM00110 00616 CLA +0 50000 0 00322 00617 SUB +0 40200 0 00341 00620 TZE +0 10000 0 00624 00621 CLA +0 50000 0 00327 00622 SUB +0 40200 0 00342 00623 TNZ -0 10000 0 00640 00624 CLS +0 50200 0 00112 00625 SUB +0 40200 0 00626 00626 TXH +3 00000 0 00024 00627 STA +0 62100 0 00637 00630 CLS +0 50200 0 00111 00631 SUB +0 40200 0 00632 00632 TXH +3 00000 0 00024 00633 STA +0 62100 0 00636 00634 TSX +0 07400 4 00000 00635 TXH +3 00000 0 00274 00636 TXH +3 00000 0 00000 00637 TXH +3 00000 0 00000 END OF CONDITIONAL 050 LM00111 WHENEVER ARGNO+1 .G. NOARGS 051 LM00113 00640 CLA +0 50000 0 00105 00641 ADD +0 40000 0 00342 00642 SUB +0 40200 0 00321 00643 TZE +0 10000 0 00664 00644 TMI -0 12000 0 00664 WHENEVER NEWFIL.E.STAR, TRANSFER TO END 052 LM00114 00645 CLA +0 50000 0 00274 00646 SUB +0 40200 0 00330 00647 TNZ -0 10000 0 00651 00650 TRA +0 02000 0 00073 SWITCH = 3 053 LM00115 00651 CLA +0 50000 0 00344 00652 STO +0 60100 0 00331 BSI = .ABS.FENCE 054 LM00116 00653 CLA +0 50000 0 00266 00654 SSP +0 76000 0 00003 00655 STO +0 60100 0 00141 WHENEVER SKIPRD.E.0, WC = 22 055 LM00117 00656 CLA +0 50000 0 00327 00657 SUB +0 40200 0 00341 00660 TNZ -0 10000 0 00663 00661 CLA +0 50000 0 00350 00662 STO +0 60100 0 00335 OTHERWISE 056 LM00118 00663 TRA +0 02000 0 00726 SI = ZEL.(ARGS(ARGNO+1)) 057 LM00119 00664 CLA +0 50000 0 00105 00665 ADD +0 40000 0 00342 00666 SUB +0 40200 0 00667 00667 TXH +3 00000 0 00061 00670 STA +0 62100 0 00672 00671 TSX +0 07400 4 00033 00672 TXH +3 00000 0 00000 00673 STO +0 60100 0 00326 BSI = BCDEC.(SI) 058 LM00120 00674 TSX +0 07400 4 00001 00675 TXH +3 00000 0 00326 00676 STO +0 60100 0 00141 WHENEVER SWITCH.E.1 .OR. SWITCH.E.2 059 LM00121 00677 CLA +0 50000 0 00331 00700 SUB +0 40200 0 00343 00701 TZE +0 10000 0 00705 00702 CLA +0 50000 0 00331 00703 SUB +0 40200 0 00342 00704 TNZ -0 10000 0 00726 WC = BSI - RECNO 060 LM00122 00705 CLA +0 50000 0 00141 00706 SUB +0 40200 0 00325 00707 STO +0 60100 0 00335 WHENEVER WC.LE.0 061 LM00123 00710 CLA +0 50000 0 00335 00711 SUB +0 40200 0 00341 00712 TZE +0 10000 0 00714 00713 TPL +0 12000 0 00720 ALLFI = 0 062 LM00124 00714 CLA +0 50000 0 00341 00715 STO +0 60100 0 00104 TRANSFER TO RGLOOP 063 LM00125 00716 TRA +0 02000 0 00101 OR WHENEVER WC.G.22 064 LM00126 00717 TRA +0 02000 0 00726 00720 CLA +0 50000 0 00335 00721 SUB +0 40200 0 00350 00722 TZE +0 10000 0 00726 00723 TMI -0 12000 0 00726 WC = 22 065 LM00127 00724 CLA +0 50000 0 00350 00725 STO +0 60100 0 00335 END OF CONDITIONAL 066 LM00128 END OF CONDITIONAL 067 LM00129 END OF CONDITIONAL 068 LM00130 READ WHENEVER SKIPRD.NE.0, TRANSFER TO BRANCH(SWITCH) 069 LM00135 00726 CLA +0 50000 0 00327 00727 SUB +0 40200 0 00341 00730 TZE +0 10000 0 00733 00731 LXA +0 53400 2 00331 00732 TRA +0 02000 2 00067 WHENEVER NOMORE.E.1, TRANSFER TO EOFA1 070 LM00136 00733 CLA +0 50000 0 00322 00734 SUB +0 40200 0 00342 00735 TNZ -0 10000 0 00737 00736 TRA +0 02000 0 00074 WHENEVER SWITCH.GE.2, TRANSFER TO READ2 071 LM00137 00737 CLA +0 50000 0 00331 00740 SUB +0 40200 0 00343 00741 TZE +0 10000 0 00743 00742 TMI -0 12000 0 00744 00743 TRA +0 02000 0 00077 WC = VREAD.(FILNAM,BLOCK,...,BLOCK(21)) 072 LM00138 00744 TSX +0 07400 4 00030 00745 TXH +3 00000 0 00061 00746 TIX +2 00113 0 00140 00747 STO +0 60100 0 00335 AWC = .ABS.WC 073 LM00139 00750 CLA +0 50000 0 00335 00751 SSP +0 76000 0 00003 00752 STO +0 60100 0 00106 RECNO = RECNO+1 074 LM00140 00753 CLA +0 50000 0 00325 00754 ADD +0 40000 0 00342 00755 STO +0 60100 0 00325 TRANSFER TO BRANCH(SWITCH) 075 LM00141 00756 LXA +0 53400 2 00331 00757 TRA +0 02000 2 00067 BRANCH(0) CONTINUE 076 LM00146 CHARS = ZEL.(BLOCK(13)/CHAR4 + .ABS.(BLOCK(12)*CHAR3)/CHAR1) 077 LM00147 00760 LDQ +0 56000 0 00124 00761 MPY +0 20000 0 00144 00762 XCA +0 13100 0 00000 00763 SSP +0 76000 0 00003 00764 LRS +0 76500 0 00043 00765 DVP +0 22100 0 00143 00766 STQ -0 60000 0 01537 00767 LDQ +0 56000 0 00123 00770 PXD -0 75400 0 00000 00771 LLS +0 76300 0 00000 00772 DVP +0 22100 0 00145 00773 XCA +0 13100 0 00000 00774 ADD +0 40000 0 01537 00775 STO +0 60100 0 01537 00776 TSX +0 07400 4 00033 00777 TXH +3 00000 0 01537 01000 STO +0 60100 0 00147 WHENEVER CHARS.G.$099999$ .OR. AWC.NE.14 078 LM00148 01001 CLA +0 50000 0 00106 01002 SUB +0 40200 0 00346 01003 TNZ -0 10000 0 01010 01004 CLA +0 50000 0 00147 01005 SUB +0 40200 0 00351 01006 TZE +0 10000 0 01033 01007 TMI -0 12000 0 01033 WHENEVER ARGNO.E.2 .AND. RECNO.LE.BSI 079 LM00149 01010 CLA +0 50000 0 00325 01011 SUB +0 40200 0 00141 01012 TZE +0 10000 0 01014 01013 TPL +0 12000 0 01025 01014 CLA +0 50000 0 00105 01015 SUB +0 40200 0 00343 01016 TNZ -0 10000 0 01025 SWITCH = 1 080 LM00150 01017 CLA +0 50000 0 00342 01020 STO +0 60100 0 00331 XSWTCH = 1 081 LM00151 01021 CLA +0 50000 0 00342 01022 STO +0 60100 0 00340 TRANSFER TO BRANCH(1) 082 LM00152 01023 TRA +0 02000 0 00066 OTHERWISE 083 LM00153 01024 TRA +0 02000 0 01032 SWITCH = 3 084 LM00154 01025 CLA +0 50000 0 00344 01026 STO +0 60100 0 00331 CRASH = 1 085 LM00155 01027 CLA +0 50000 0 00342 01030 STO +0 60100 0 00154 TRANSFER TO CLOSE1 086 LM00156 01031 TRA +0 02000 0 00070 END OF CONDITIONAL 087 LM00157 OR WHENEVER CHARO.LE.SI .AND. SI.L.CHARS 088 LM00158 01032 TRA +0 02000 0 01242 01033 CLA +0 50000 0 00326 01034 SUB +0 40200 0 00147 01035 TZE +0 10000 0 01146 01036 TPL +0 12000 0 01146 01037 CLA +0 50000 0 00146 01040 SUB +0 40200 0 00326 01041 TZE +0 10000 0 01043 01042 TPL +0 12000 0 01146 CLOSE1 SKIPRD = 1 089 LM00159 01043 CLA +0 50000 0 00342 01044 STO +0 60100 0 00327 CLOSE WHENEVER NOWRT.E.1 090 LM00160 01045 CLA +0 50000 0 00323 01046 SUB +0 40200 0 00342 01047 TNZ -0 10000 0 01051 OR WHENEVER WORDS.E.0 091 LM00161 01050 TRA +0 02000 0 01123 01051 CLA +0 50000 0 00336 01052 SUB +0 40200 0 00341 01053 TNZ -0 10000 0 01057 ALLFI = 0 092 LM00162 01054 CLA +0 50000 0 00341 01055 STO +0 60100 0 00104 OTHERWISE 093 LM00163 01056 TRA +0 02000 0 01123 WHENEVER DELETE.(NEWFIL).E.0 .AND. FSTAT.(NEWFIL).NE.0 094 LM00164 01057 TSX +0 07400 4 00016 01060 TXH +3 00000 0 00274 01061 SUB +0 40200 0 00341 01062 TZE +0 10000 0 01102 01063 TSX +0 07400 4 00010 01064 TXH +3 00000 0 00274 01065 SUB +0 40200 0 00341 01066 TNZ -0 10000 0 01102 DFILE(DELNO) = NEWFIL 095 LM00165 01067 LXA +0 53400 1 00205 01070 CLA +0 50000 0 00274 01071 STO +0 60100 1 00230 DFILE (DELNO+1) = COMMA 096 LM00166 01072 CLA +0 50000 0 00205 01073 ADD +0 40000 0 00342 01074 PAX +0 73400 1 00000 01075 CLA +0 50000 0 00150 01076 STO +0 60100 1 00230 DELNO = DELNO+2 097 LM00167 01077 CLA +0 50000 0 00205 01100 ADD +0 40000 0 00343 01101 STO +0 60100 0 00205 END OF CONDITIONAL 098 LM00168 EXECUTE FILE.(NEWFIL) 099 LM00169 01102 TSX +0 07400 4 00014 01103 TXH +3 00000 0 00274 WHENEVER CRASH.E.2, TRANSFER TO RGLOOP 100 LM00170 01104 CLA +0 50000 0 00154 01105 SUB +0 40200 0 00343 01106 TNZ -0 10000 0 01110 01107 TRA +0 02000 0 00101 NFILE(FILNO) = NEWFIL 101 LM00171 01110 LXA +0 53400 1 00267 01111 CLA +0 50000 0 00274 01112 STO +0 60100 1 00320 NFILE(FILNO+1) = COMMA 102 LM00172 01113 CLA +0 50000 0 00267 01114 ADD +0 40000 0 00342 01115 PAX +0 73400 1 00000 01116 CLA +0 50000 0 00150 01117 STO +0 60100 1 00320 FILNO = FILNO +2 103 LM00173 01120 CLA +0 50000 0 00267 01121 ADD +0 40000 0 00343 01122 STO +0 60100 0 00267 END OF CONDITIONAL 104 LM00174 WHENEVER CRASH.E.1 105 LM00175 01123 CLA +0 50000 0 00154 01124 SUB +0 40200 0 00342 01125 TNZ -0 10000 0 01144 CRFILE(5) = CHARS 106 LM00176 01126 CLA +0 50000 0 00147 01127 STO +0 60100 0 00161 CRFILE(8) = DEFBC.(RECNO) 107 LM00177 01130 TSX +0 07400 4 00007 01131 TXH +3 00000 0 00325 01132 STO +0 60100 0 00156 CRFIL = NEWFIL 108 LM00178 01133 CLA +0 50000 0 00274 01134 STO +0 60100 0 00204 CRFIL(7) = FILNAM(1) 109 LM00179 01135 CLA +0 50000 0 00060 01136 STO +0 60100 0 00175 NEWFIL = CRFIL(6) 110 LM00180 01137 CLA +0 50000 0 00176 01140 STO +0 60100 0 00274 CRASH = 2 111 LM00181 01141 CLA +0 50000 0 00343 01142 STO +0 60100 0 00154 TRANSFER TO SPLA3 112 LM00182 01143 TRA +0 02000 0 00103 END OF CONDITIONAL 113 LM00183 TRANSFER TO RGLOOP 114 LM00184 01144 TRA +0 02000 0 00101 OTHERWISE 115 LM00185 01145 TRA +0 02000 0 01242 CHARO = CHARS 116 LM00186 01146 CLA +0 50000 0 00147 01147 STO +0 60100 0 00146 BRANCH(1) CONTINUE 117 LM00191 BRANCH(3) SKIPRD = 0 118 LM00192 01150 CLA +0 50000 0 00341 01151 STO +0 60100 0 00327 WHENEVER NOWRT.E.1, TRANSFER TO B0A1 119 LM00193 01152 CLA +0 50000 0 00323 01153 SUB +0 40200 0 00342 01154 TNZ -0 10000 0 01156 01155 TRA +0 02000 0 00062 WWC = 0 120 LM00194 01156 CLA +0 50000 0 00341 01157 STO +0 60100 0 00337 WHENEVER WC.L.0 121 LM00195 01160 CLA +0 50000 0 00335 01161 SUB +0 40200 0 00341 01162 TZE +0 10000 0 01177 01163 TPL +0 12000 0 01177 WWC = FWRITE.(NEWFIL,BLOCK,...,BLOCK(AWC-1)) 122 LM00196 01164 CLA +0 50000 0 00106 01165 SUB +0 40200 0 00342 01166 SUB +0 40200 0 01167 01167 TXH +3 00000 0 00140 01170 ALS +0 76700 0 00022 01171 STD +0 62200 0 01174 01172 TSX +0 07400 4 00017 01173 TXH +3 00000 0 00274 01174 TIX +2 00000 0 00140 01175 STO +0 60100 0 00337 OR WHENEVER WC.G.0 123 LM00197 01176 TRA +0 02000 0 01215 01177 CLA +0 50000 0 00335 01200 SUB +0 40200 0 00341 01201 TZE +0 10000 0 01215 01202 TMI -0 12000 0 01215 WWC = VWRITE.(NEWFIL,BLOCK,...,BLOCK(AWC-1)) 124 LM00198 01203 CLA +0 50000 0 00106 01204 SUB +0 40200 0 00342 01205 SUB +0 40200 0 01206 01206 TXH +3 00000 0 00140 01207 ALS +0 76700 0 00022 01210 STD +0 62200 0 01213 01211 TSX +0 07400 4 00031 01212 TXH +3 00000 0 00274 01213 TIX +2 00000 0 00140 01214 STO +0 60100 0 00337 END OF CONDITIONAL 125 LM00199 WORDS = WORDS + .ABS.WWC 126 LM00200 01215 CLA +0 50000 0 00337 01216 SSP +0 76000 0 00003 01217 ADD +0 40000 0 00336 01220 STO +0 60100 0 00336 B0A1 WHENEVER SWITCH.E.0 127 LM00201 01221 CLA +0 50000 0 00331 01222 SUB +0 40200 0 00341 01223 TNZ -0 10000 0 01231 WHENEVER CHARS.E.SI, TRANSFER TO CLOSE 128 LM00202 01224 CLA +0 50000 0 00147 01225 SUB +0 40200 0 00326 01226 TNZ -0 10000 0 01230 01227 TRA +0 02000 0 00071 OR WHENEVER SWITCH.E.1 129 LM00203 01230 TRA +0 02000 0 01242 01231 CLA +0 50000 0 00331 01232 SUB +0 40200 0 00342 01233 TNZ -0 10000 0 01241 WHENEVER RECNO.E.BSI, TRANSFER TO CLOSE 130 LM00204 01234 CLA +0 50000 0 00325 01235 SUB +0 40200 0 00141 01236 TNZ -0 10000 0 01240 01237 TRA +0 02000 0 00071 OTHERWISE 131 LM00205 01240 TRA +0 02000 0 01242 TRANSFER TO B2A1 132 LM00206 01241 TRA +0 02000 0 00063 END OF CONDITIONAL 133 LM00207 END OF CONDITIONAL 134 LM00208 TRANSFER TO READ 135 LM00209 01242 TRA +0 02000 0 00100 READ2 EXECUTE BREAD.(FILNAM,BLOCK,...,BLOCK(WC-1)) 136 LM00214 01243 CLA +0 50000 0 00335 01244 SUB +0 40200 0 00342 01245 SUB +0 40200 0 01246 01246 TXH +3 00000 0 00140 01247 ALS +0 76700 0 00022 01250 STD +0 62200 0 01253 01251 TSX +0 07400 4 00002 01252 TXH +3 00000 0 00061 01253 TIX +2 00000 0 00140 RECNO = RECNO + WC 137 LM00215 01254 CLA +0 50000 0 00325 01255 ADD +0 40000 0 00335 01256 STO +0 60100 0 00325 BRANCH(2) WHENEVER NOWRT.E.1, TRANSFER TO B2A1 138 LM00216 01257 CLA +0 50000 0 00323 01260 SUB +0 40200 0 00342 01261 TNZ -0 10000 0 01263 01262 TRA +0 02000 0 00063 EXECUTE BWRITE.(NEWFIL,BLOCK,...,BLOCK(WC-1)) 139 LM00217 01263 CLA +0 50000 0 00335 01264 SUB +0 40200 0 00342 01265 SUB +0 40200 0 01266 01266 TXH +3 00000 0 00140 01267 ALS +0 76700 0 00022 01270 STD +0 62200 0 01273 01271 TSX +0 07400 4 00003 01272 TXH +3 00000 0 00274 01273 TIX +2 00000 0 00140 WORDS = WORDS + WC 140 LM00218 01274 CLA +0 50000 0 00336 01275 ADD +0 40000 0 00335 01276 STO +0 60100 0 00336 B2A1 WC = BSI - RECNO 141 LM00219 01277 CLA +0 50000 0 00141 01300 SUB +0 40200 0 00325 01301 STO +0 60100 0 00335 WHENEVER NOMORE.E.1 .OR. WC.LE.0, TRANSFER TO CLOSE 142 LM00220 01302 CLA +0 50000 0 00335 01303 SUB +0 40200 0 00341 01304 TZE +0 10000 0 01311 01305 TMI -0 12000 0 01311 01306 CLA +0 50000 0 00322 01307 SUB +0 40200 0 00342 01310 TNZ -0 10000 0 01312 01311 TRA +0 02000 0 00071 WHENEVER WC.G.22, WC = 22 143 LM00221 01312 CLA +0 50000 0 00335 01313 SUB +0 40200 0 00350 01314 TZE +0 10000 0 01320 01315 TMI -0 12000 0 01320 01316 CLA +0 50000 0 00350 01317 STO +0 60100 0 00335 TRANSFER TO READ2 144 LM00222 01320 TRA +0 02000 0 00077 RGLOOP CONTINUE 145 LM00227 01321 TRA +0 02000 0 00560 END WHENEVER NOMORE.E.0, EXECUTE ENDRD.(FILNAM) 146 LM00228 01322 CLA +0 50000 0 00322 01323 SUB +0 40200 0 00341 01324 TNZ -0 10000 0 01327 01325 TSX +0 07400 4 00012 01326 TXH +3 00000 0 00061 THROUGH ENDA1, FOR I=4,2,I.GE.FILNO 147 LM00229 01327 CLA +0 50000 0 00345 01330 STO +0 60100 0 00272 01331 TRA +0 02000 0 01335 01332 CLA +0 50000 0 00272 01333 ADD +0 40000 0 00343 01334 STO +0 60100 0 00272 01335 CLA +0 50000 0 00272 01336 SUB +0 40200 0 00267 01337 TZE +0 10000 0 01372 01340 TPL +0 12000 0 01372 WHENEVER NFILE(I).E.TEMP 148 LM00230 01341 LXA +0 53400 1 00272 01342 CLA +0 50000 1 00320 01343 SUB +0 40200 0 00333 01344 TNZ -0 10000 0 01371 TEMP(1) = FILNAM(1) 149 LM00231 01345 CLA +0 50000 0 00060 01346 STO +0 60100 0 00332 WHENEVER RENAME.(TEMP,FILNAM).NE.0 150 LM00232 01347 TSX +0 07400 4 00023 01350 TXH +3 00000 0 00333 01351 TXH +3 00000 0 00061 01352 SUB +0 40200 0 00341 01353 TZE +0 10000 0 01357 ALLFI = 0 151 LM00233 01354 CLA +0 50000 0 00341 01355 STO +0 60100 0 00104 TRANSFER TO ENDA2 152 LM00234 01356 TRA +0 02000 0 00072 END OF CONDITIONAL 153 LM00235 DFILE(DELNO) = FILNAM 154 LM00236 01357 LXA +0 53400 1 00205 01360 CLA +0 50000 0 00061 01361 STO +0 60100 1 00230 DELNO = DELNO+2 155 LM00237 01362 CLA +0 50000 0 00205 01363 ADD +0 40000 0 00343 01364 STO +0 60100 0 00205 NFILE(I) = FILNAM 156 LM00238 01365 LXA +0 53400 1 00272 01366 CLA +0 50000 0 00061 01367 STO +0 60100 1 00320 TRANSFER TO ENDA2 157 LM00239 01370 TRA +0 02000 0 00072 END OF CONDITIONAL 158 LM00240 ENDA1 CONTINUE 159 LM00241 01371 TRA +0 02000 0 01332 ENDA2 WHENEVER FILNO.G.4 160 LM00243 01372 CLA +0 50000 0 00267 01373 SUB +0 40200 0 00345 01374 TZE +0 10000 0 01407 01375 TMI -0 12000 0 01407 F3(1) = FILNAM 161 LM00244 01376 CLA +0 50000 0 00061 01377 STO +0 60100 0 00246 F3(2) = FILNAM(1) 162 LM00245 01400 CLA +0 50000 0 00060 01401 STO +0 60100 0 00245 F3(5) = COM(XSWTCH) 163 LM00246 01402 LXA +0 53400 2 00340 01403 CLA +0 50000 2 00153 01404 STO +0 60100 0 00242 EXECUTE PRNTP.(F3) 164 LM00247 01405 TSX +0 07400 4 00022 01406 TXH +3 00000 0 00247 END OF CONDITIONAL 165 LM00248 WHENEVER FILNO.LE.4 166 LM00249 01407 CLA +0 50000 0 00267 01410 SUB +0 40200 0 00345 01411 TZE +0 10000 0 01413 01412 TPL +0 12000 0 01416 EXECUTE PRNTP.(F4) 167 LM00250 01413 TSX +0 07400 4 00022 01414 TXH +3 00000 0 00253 OR WHENEVER ALLFI.E.1 168 LM00251 01415 TRA +0 02000 0 01433 01416 CLA +0 50000 0 00104 01417 SUB +0 40200 0 00342 01420 TNZ -0 10000 0 01424 EXECUTE PRNTP.(F5) 169 LM00252 01421 TSX +0 07400 4 00022 01422 TXH +3 00000 0 00257 OTHERWISE 170 LM00253 01423 TRA +0 02000 0 01433 NFILE(FILNO-1) = FENCE 171 LM00254 01424 CLA +0 50000 0 00267 01425 SUB +0 40200 0 00342 01426 PAX +0 73400 1 00000 01427 CLA +0 50000 0 00266 01430 STO +0 60100 1 00320 EXECUTE PRNTP.(NFILE) 172 LM00255 01431 TSX +0 07400 4 00022 01432 TXH +3 00000 0 00320 END OF CONDITIONAL 173 LM00256 WHENEVER DELNO.G.3 174 LM00257 01433 CLA +0 50000 0 00205 01434 SUB +0 40200 0 00344 01435 TZE +0 10000 0 01446 01436 TMI -0 12000 0 01446 DFILE(DELNO-1) = FENCE 175 LM00258 01437 CLA +0 50000 0 00205 01440 SUB +0 40200 0 00342 01441 PAX +0 73400 1 00000 01442 CLA +0 50000 0 00266 01443 STO +0 60100 1 00230 EXECUTE PRNTP.(DFILE) 176 LM00259 01444 TSX +0 07400 4 00022 01445 TXH +3 00000 0 00230 END OF CONDITIONAL 177 LM00260 WHENEVER CRASH.E.2 178 LM00261 01446 CLA +0 50000 0 00154 01447 SUB +0 40200 0 00343 01450 TNZ -0 10000 0 01460 EXECUTE PRNTP.(CRFILE) 179 LM00262 01451 TSX +0 07400 4 00022 01452 TXH +3 00000 0 00166 EXECUTE PRNTP.(CRFIL) 180 LM00263 01453 TSX +0 07400 4 00022 01454 TXH +3 00000 0 00204 EXECUTE CHMODE.(CRFIL(6),0) 181 LM00264 01455 TSX +0 07400 4 00004 01456 TXH +3 00000 0 00176 01457 TXH +3 00000 0 00341 END OF CONDITIONAL 182 LM00265 EXECUTE CHNCOM.(0) 183 LM00266 01460 TSX +0 07400 4 00005 01461 TXH +3 00000 0 00341 ENTRY TO USE. 184 LM00271 01462 TRA +0 02000 0 01465 00035 TTR +0 02100 0 01463 01463 SXA +0 63400 2 01522 01464 TSX +0 07400 2 01522 WHENEVER COMARG.(1,FILNAM).E.FENCE, TRANSFER TO SPLA2 185 LM00272 01465 TSX +0 07400 4 00006 01466 TXH +3 00000 0 00342 01467 TXH +3 00000 0 00061 01470 SUB +0 40200 0 00266 01471 TNZ -0 10000 0 01473 01472 TRA +0 02000 0 00102 WHENEVER COMARG.(2,TEST).NE.FENCE, FILNAM(1) = TEST 186 LM00273 01473 TSX +0 07400 4 00006 01474 TXH +3 00000 0 00343 01475 TXH +3 00000 0 00334 01476 SUB +0 40200 0 00266 01477 TZE +0 10000 0 01502 01500 CLA +0 50000 0 00334 01501 STO +0 60100 0 00060 TRANSFER TO SPLA2 187 LM00274 01502 TRA +0 02000 0 00102 INVOP EXECUTE PRNTP.(F6) 188 LM00275 01503 TSX +0 07400 4 00022 01504 TXH +3 00000 0 00265 EXECUTE CHNCOM.(0) 189 LM00276 01505 TSX +0 07400 4 00005 01506 TXH +3 00000 0 00341 EOFILE EXECUTE WRDCNT.(WC) 190 LM00277 01507 TSX +0 07400 4 00032 01510 TXH +3 00000 0 00335 NOMORE = 1 191 LM00278 01511 CLA +0 50000 0 00342 01512 STO +0 60100 0 00322 WHENEVER WC.G.0, TRANSFER TO BRANCH(2) 192 LM00279 01513 CLA +0 50000 0 00335 01514 SUB +0 40200 0 00341 01515 TZE +0 10000 0 01520 01516 TMI -0 12000 0 01520 01517 TRA +0 02000 0 00065 EOFA1 TRANSFER TO CLOSE 193 LM00280 01520 TRA +0 02000 0 00071 DIMENSION ARGS(18),BLOCK(21),DFILE(18),NFILE(19),NEWFIL(1) 194 LM00282 DIMENSION FILNAM(1),CRFILE(9),CRFIL(13) 195 LM00283 EQUIVALENCE (ARGS,FILNAM) 196 LM00284 VECTOR VALUES FENCE = 777777777777K 197 LM00285 00266 -3 77777 7 77777 VECTOR VALUES BUFFL = 470 198 LM00286 00142 +0 00000 0 00726 VECTOR VALUES HWDCT = $(WDCT)$ 199 LM00287 00271 -3 46624 2 36334 VECTOR VALUES HRCCT = $(RCNO)$ 200 LM00288 00270 -3 45123 4 54634 VECTOR VALUES STAR = $ *$ 201 LM00289 00330 -2 06060 6 06054 VECTOR VALUES TEMP = $(TSPL) $ 202 LM00290 00332 -2 06060 6 06060 00333 -3 46362 4 74334 VECTOR VALUES COMMA = 736057575757K 203 LM00291 00150 -3 36057 5 75757 VECTOR VALUES CHAR1 = 1K2 204 LM00292 00143 +0 00000 0 00100 VECTOR VALUES CHAR3 = 1K6 205 LM00293 00144 +0 00001 0 00000 VECTOR VALUES CHAR4 = 1K8 206 LM00294 00145 +0 00100 0 00000 VECTOR VALUES SWITCH = 0 207 LM00295 00331 +0 00000 0 00000 VECTOR VALUES XSWTCH = 0 208 LM00296 00340 +0 00000 0 00000 VECTOR VALUES NOARGS = 0 209 LM00297 00321 +0 00000 0 00000 VECTOR VALUES RECNO = 0 210 LM00298 00325 +0 00000 0 00000 VECTOR VALUES SKIPRD = 0 211 LM00299 00327 +0 00000 0 00000 VECTOR VALUES NOMORE = 0 212 LM00300 00322 +0 00000 0 00000 VECTOR VALUES CHARO = 0 213 LM00301 00146 +0 00000 0 00000 VECTOR VALUES CRASH = 0 214 LM00302 00154 +0 00000 0 00000 VECTOR VALUES ALLFI = 1 215 LM00303 00104 +0 00000 0 00001 VECTOR VALUES COM = $SEQ NOREC NOWRD CT$ 216 LM00304 00151 -2 65124 6 02363 00152 -1 12523 6 04546 00153 -2 22550 6 04546 VECTOR VALUES FILNO = 4 217 LM00305 00267 +0 00000 0 00004 VECTOR VALUES DELNO = 3 218 LM00306 00205 +0 00000 0 00003 VECTOR VALUES F1 = $NO SPLIT REQUIRED$,777777777777K 219 LM00307 00231 -3 77777 7 77777 00232 -2 43151 2 52460 00233 +3 16360 5 12550 00234 -0 54660 6 24743 VECTOR VALUES F2 = $NEED $,777777777777K 220 LM00308 00235 -3 77777 7 77777 00236 -2 06060 6 06060 00237 -2 06060 6 06060 00240 -0 52525 2 46060 VECTOR VALUES F3 = $FILE SPLIT BY $ 221 LM00309 1,777777777777K 221 LM00310 00241 -3 77777 7 77777 00242 -2 06060 6 06060 00243 -2 36022 7 06060 00244 -2 06062 4 74331 00245 -2 06060 6 06060 00246 -2 06060 6 06060 00247 +2 63143 2 56060 VECTOR VALUES F4 = $NO FILES CREATED$,777777777777K 222 LM00311 00250 -3 77777 7 77777 00251 +2 16325 2 46060 00252 +2 56260 2 35125 00253 -0 54660 2 63143 VECTOR VALUES F5 = $ALL FILES CREATED$,777777777777K 223 LM00312 00254 -3 77777 7 77777 00255 +2 52163 2 52460 00256 -0 32562 6 02351 00257 +2 14343 6 02631 VECTOR VALUESF6=$INVALID SEQUENCE OF ARGUMENTS$,777777777777K 224 LM00313 00260 -3 77777 7 77777 00261 -0 42545 6 36260 00262 +2 66021 5 12764 00263 +2 54523 2 56046 00264 +2 46062 2 55064 00265 +3 14565 2 14331 VECTOR VALUES NFILE = $ONLY FILES CREATED ARE,$ 225 LM00314 00315 -2 02151 2 57360 00316 -1 12521 6 32524 00317 +3 14325 6 26023 00320 -0 64543 7 06026 VECTOR VALUES DFILE = $DELETED FILES ARE$ 226 LM00315 00226 -2 26021 5 12560 00227 +2 46026 3 14325 00230 +2 42543 2 56325 VECTOR VALUES CRFILE = $CHANGE OF MODE AT SEQUENCE NO.$ 227 LM00316 00162 +2 32560 4 54633 00163 -2 22550 6 42545 00164 +2 42560 2 16360 00165 -2 04626 6 04446 00166 +2 33021 4 52725 VECTOR VALUES CRFILE(6) = $, RECORD NO. $,777777777777K 228 LM00317 00155 -3 77777 7 77777 00156 -2 06060 6 06060 00157 -1 12460 4 54633 00160 -3 36051 2 52346 VECTOR VALUES CRFIL(1)=$ IS TRUNCATED. TEMPORARY FILE (SPLT)$ 229 LM00318 00176 -3 46247 4 36334 00177 -2 02631 4 32560 00200 -0 74651 2 15170 00201 +2 43360 6 32544 00202 -2 44523 2 16325 00203 -2 03162 6 06351 VECTOR VALUES CRFIL(8) = $ HOLDS REST OF ORGINAL FILE$ 230 LM00319 00170 +3 14325 6 06060 00171 +3 14521 4 36026 00172 -0 62660 4 65127 00173 -2 05125 6 26360 00174 -2 03046 4 32462 VECTOR VALUES CRFIL(13) = 777777777777K 231 LM00320 00167 -3 77777 7 77777 END OF FUNCTION 232 LM00321 01521 TSX +0 07400 4 00013 01522 TXH +3 00000 0 00000 01523 SXD -0 63400 1 01522 01524 SXA +0 63400 4 01533 01525 CLA +0 50000 4 00001 01526 STO +0 60100 0 00535 01527 STO +0 60100 0 00541 01530 STO +0 60100 0 00626 01531 STO +0 60100 0 00632 01532 TRA +0 02000 2 00001 01533 AXT +0 77400 4 00000 01534 LXA +0 53400 2 01522 01535 LXD -0 53400 1 01522 01536 TRA +0 02000 4 00001 END OF PROGRAM 233 LM00322 01540 TSX +0 07400 4 00013 1 PAGE 1 FILE NAME -- FIX00 FAP 00003 ENTRY FIX TRANSFER VECTOR 00000 244651444563 DORMNT LINKAGE DIRECTOR 00001 000000000000 00002 263167606060 00003 0500 60 4 00001 FIX CLA* 1,4 00004 0621 00 0 00010 STA B 00005 0500 00 4 00002 CLA 2,4 00006 0621 00 0 00007 STA A 00007 0074 00 4 00000 A TSX **,4 TD 00010 3 00000 0 00000 B TXH -- 00011 0074 00 4 00000 TSX $DORMNT,4 END 1 PAGE 1 POST PROCESSOR ASSEMBLY DATA 12 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 7 A 6 10 B 4 3 FIX 0 0 DORMNT 11 0 NO ERROR IN ABOVE ASSEMBLY. TAPES BCD 10/04/70 1645.1 10054 00000 MOUNT BCD 11/23/69 1439.9 4564 00000 1 MOUNT AND UMOUNT COMMANDS FOR FOREGROUND. 11/23/69 1425.5 PAGE 1 REVISED 4/21/66 - N. I. MORRIS *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* * * USAGE - * * MOUNT REEL UNITNO -RING- -CHAN- -MESS- * UMOUNT UNITNO -RING- -MESS- * * WHERE - * * REEL = TAPE REEL IDENTIFICATION. * UNITNO = LOGICAL TAPE UNIT NUMBER * RING = 'RING' OR 'NORING' ('NORING' WILL BE ASSUMED). * CHAN = DESIRED CHANNEL, IF SPECIFIED * MESS = 'MESS' IF A MESSAGE IS TO BE SENT TO THE OPERATOR. * * IF 'MESS' IS PRESENT, PROGRAM WILL TYPE 'TYPE MESSAGE' * AND WAIT FOR INPUT. * * *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* UNLIST M CALL MACRO SUBR,LIST 00000 712543606060 ZEL 00001 222324252360 BCDEC 00002 512426436760 RDFLX 00003 444664456360 MOUNT 00004 644446644563 UMOUNT 00005 246242255160 DSKER 000001 UBIT BOOL 1 ON IF 'UMOUNT' COMMAND. 000002 CBIT BOOL 2 ON IF CHANNEL SPECIFIED. 000004 RBIT BOOL 4 ON IF 'RING' PARAMETER SPECIFIED. 000010 MBIT BOOL 10 ON IF MESSAGE DESIRED. 000020 DBIT BOOL 20 ON IF MESSAGE TO BE READ FROM DISK. 000100 FBIT BOOL 100 ON IF USER IS FIB. 1 MOUNT AND UMOUNT COMMANDS FOR FOREGROUND. 11/23/69 1425.5 PAGE 2 PICK UP PARAMETERS AND SET UP. 00006 0057 00 777777 RIR / RESET RIGHT HALF INDICATORS 00007 CALL SETBRK(CHN) SET A BREAK LEVEL 00007 0074 00 4 00305 TSX SETBRK,4 .002 00010 3 00000 0 00213 PAR CHN .004 00011 CALL FERRTN SET ERROR RETURN 00011 0074 00 4 00306 TSX FERRTN,4 .002 00012 0 00000 0 00227 PZE ERROR .. 00013 CALL WHOAMI((CBUFF,,4)) CHECK FOR FIB USAGE 00013 0074 00 4 00307 TSX WHOAMI,4 .002 00014 3 00004 0 00261 PAR CBUFF,,4 .004 00015 -0500 00 0 00264 CAL CBUFF+3 GET 'UNITID' 00016 0322 00 0 00353 ERA =H(FIB) .. 00017 -0100 00 0 00021 TNZ *+2 .. 00020 0055 00 000100 SIR FBIT SET FIB INDIC. 00021 CALL GETCLS((CBUFF,,0)) FILL BUFFER WITH COMMAND LINE 00021 0074 00 4 00310 TSX GETCLS,4 .002 00022 3 00000 0 00261 PAR CBUFF,,0 .004 00023 -0500 00 0 00261 CAL CBUFF SEE WHO WE ARE 00024 0322 00 0 00347 ERA =HUMOUNT .. 00025 -0100 00 0 00042 TNZ MOUNT) PARTING 00026 0055 00 000001 SIR UBIT SET UMOUNT INDIC. 00027 0500 00 0 00343 CLA =H D FIX UP MESSAGE 00030 0560 00 0 00336 LDQ =HISMOUN FOR DISMOUNT COMMENT 00031 -0603 00 0 00235 DST MESSAG .. 00032 0500 00 0 00346 CLA =HT TAPE .. 00033 0601 00 0 00237 STO MESSAG+2 .. 00034 -0774 00 1 00002 AXC 2,1 XR1 IS COMMAND BUFFER INDEX 00035 -0500 00 0 00262 CAL CBUFF+1 GET THE UNIT NUMBER 00036 -0340 00 0 00342 LAS =H ALL CHECK FOR 'UMOUNT ALL' 00037 0020 00 0 00041 TRA *+2 .. 00040 0020 00 0 00063 TRA ALL .. 00041 0020 00 0 00050 TRA JOIN AND JOIN 00042 -0774 00 1 00003 MOUNT) AXC 3,1 .. 00043 -0500 00 0 00262 CAL CBUFF+1 GET THE TAPE REEL I.D. 00044 0602 00 0 00237 SLW REEL .. 00045 0322 00 0 00120 ERA FENCE NO FENCE ALLOWED 00046 0100 00 0 00217 TZE BADA .. 00047 -0500 00 0 00263 CAL CBUFF+2 GET THE UNIT NUMBER 00050 0602 00 0 00230 JOIN SLW TEM .. 00051 0322 00 0 00120 ERA FENCE AGAIN NO FENCE 00052 0100 00 0 00217 TZE BADA .. UNITNO = $ZEL(TEM) STRIP LEADING BLANKS 00053 0074 00 4 00000 TSX $ZEL,4 .003 00054 3 00000 0 00230 PAR TEM .005 00055 0601 00 0 00232 STO UNITNO .002 00056 -0500 00 0 00232 CAL UNITNO CHECK FOR NUMERIC PARAMETER 00057 -0320 00 0 00344 ANA =H .. 1 MOUNT AND UMOUNT COMMANDS FOR FOREGROUND. 11/23/69 1425.5 PAGE 3 PICK UP PARAMETERS AND SET UP. 00060 -0100 00 0 00222 TNZ BAD AIN'T NO SUCH THINGS AS ALPHABETIC NOS. 00061 CALL $BCDEC(UNITNO) CONVERT TO BINARY 00061 0074 00 4 00001 TSX $BCDEC,4 .002 00062 3 00000 0 00232 PAR UNITNO .004 00063 0602 00 0 00232 ALL SLW UNITNO .. 00064 -0500 00 1 00261 LOOP CAL CBUFF,1 GET NEXT PARAMETER 00065 0602 00 0 00230 SLW TEM .. 00066 LKP TBL,2,TRA SEARCH FOR PARAMETER IN TABLE 00066 0774 00 2 00012 AXT NTBL,2 .002 00067 -0340 00 2 00122 LAS TBL+NTBL,2 .002 00070 0020 00 0 00072 TRA *+2 .002 00071 0020 00 2 00123 TRA TBL+NTBL+1,2 .002 00072 2 00002 2 00067 TIX *-3,2,2 .002 00073 0054 00 000003 NOT RFT CBIT+UBIT LOOKS LIKE BETTER BE CHANNO 00074 0020 00 0 00222 TRA BAD IF WE GOT ONE, THIS NO GOOD CHANNO = $ZEL(TEM) STRIP LEADING BLANKS 00075 0074 00 4 00000 TSX $ZEL,4 .003 00076 3 00000 0 00230 PAR TEM .005 00077 0601 00 0 00231 STO CHANNO .002 00100 -0500 00 0 00231 CAL CHANNO CHECK FOR NUMBER 00101 -0320 00 0 00344 ANA =H .. 00102 -0100 00 0 00222 TNZ BAD .. CHANNO = $BCDEC(CHANNO) CONVERT TO BINARY 00103 0074 00 4 00001 TSX $BCDEC,4 .003 00104 3 00000 0 00231 PAR CHANNO .005 00105 0601 00 0 00231 STO CHANNO .002 00106 0055 00 000002 SIR CBIT SET INDIC. 00107 1 77777 1 00064 TXI LOOP,1,-1 NEXT PARAMETER 00110 TBL SYN * TABLE OF OPTIONAL PARAMETERS. 00110 TTBL (NORING)RING. 00110 454651314527 BCI 1,NORING .002 00111 0020 00 0 00142 TRA RING. .002 00112 TTBL ( RING)RING. 00112 606051314527 BCI 1, RING .002 00113 0020 00 0 00142 TRA RING. .002 00114 TTBL ( MESS)MESS. 00114 606044256262 BCI 1, MESS .002 00115 0020 00 0 00122 TRA MESS. .002 00116 TTBL ((MESS))MESS.. 00116 744425626234 BCI 1,(MESS) .002 00117 0020 00 0 00126 TRA MESS.. .002 00120 777777777777 FENCE VFD O36// 00121 0021 00 0 00153 XIT DONE 00012 NTBL EQU *-TBL 00122 0054 00 000030 MESS. RFT MBIT+DBIT CHECK VALIDITY 00123 0020 00 0 00222 TRA BAD .. 00124 0055 00 000010 SIR MBIT SET MESSAGE INDIC. 00125 1 77777 1 00064 TXI LOOP,1,-1 GO GET NEXT 1 MOUNT AND UMOUNT COMMANDS FOR FOREGROUND. 11/23/69 1425.5 PAGE 4 PICK UP PARAMETERS AND SET UP. 00126 0054 00 000030 MESS.. RFT MBIT+DBIT MESSAGE IS ON DISK 00127 0020 00 0 00222 TRA BAD .. 00130 0055 00 000030 SIR MBIT+DBIT SET INDIC. 00131 -0500 00 1 00262 CAL CBUFF+1,1 GET NEXT PARAMETER 00132 0602 00 0 00233 SLW NAME1 FIRST NAME OF FILE 00133 0322 00 0 00120 ERA FENCE .. 00134 0100 00 0 00217 TZE BADA .. 00135 -0500 00 1 00263 CAL CBUFF+2,1 SECOND NAME 00136 0602 00 0 00234 SLW NAME2 .. 00137 0322 00 0 00120 ERA FENCE .. 00140 0100 00 0 00217 TZE BADA .. 00141 1 77775 1 00064 TXI LOOP,1,-3 GO ON TO NEXT 00142 0054 00 000004 RING. RFT RBIT RING ARGUMENT, SEE IF WE GOT ONE 00143 0020 00 0 00222 TRA BAD CAN'T HAVE 2 00144 0055 00 000004 SIR RBIT .. 00145 0560 00 0 00230 LDQ TEM GET PARAMETER 00146 -0500 00 0 00344 CAL =H TRICKY, HUH 00147 -0765 00 0 00030 LGR 24 .. 00150 -0773 00 0 00030 RQL 24 .. 00151 -0620 00 0 00241 SLQ RING AND PLACE IN MESSAGE 00152 1 77777 1 00064 TXI LOOP,1,-1 NEXT, PLEASE 1 MOUNT AND UMOUNT COMMANDS FOR FOREGROUND. 11/23/69 1425.5 PAGE 5 READ MESSAGE, IF NECESSARY. 00153 0056 00 000010 DONE RNT MBIT SEE IF MESS REQUIRED 00154 0020 00 0 00201 TRA CALL NO 00155 0054 00 000020 RFT DBIT SEE IF MESSAGE IS ON DISK 00156 0020 00 0 00164 TRA RDISK YES, READ IT FROM DISK 00157 COMENT TYPE,1,(TYPE.),A 00157 0074 00 4 00311 TSX WRFLXA,4 .003 00160 3 00001 0 00312 PAR TYPE,,1 .005 00161 CALL $RDFLX((BUFF,,14)) READ THE MESSAGE 00161 0074 00 4 00002 TSX $RDFLX,4 .002 00162 3 00016 0 00243 PAR BUFF,,14 .004 00163 0020 00 0 00201 TRA CALL .. 00164 RDISK CALL OPEN(=HR,NAME1,NAME2) OPEN THE FILE 00164 0074 00 4 00313 TSX OPEN,4 .002 00165 3 00000 0 00341 PAR =HR .004 00166 3 00000 0 00233 PAR NAME1 .004 00167 3 00000 0 00234 PAR NAME2 .004 00170 CALL RDFILE(NAME1,NAME2,=0(BUFF,,12)*+1) READ THE CARD 00170 0074 00 4 00314 TSX RDFILE,4 .002 00171 3 00000 0 00233 PAR NAME1 .004 00172 3 00000 0 00234 PAR NAME2 .004 00173 3 00000 0 00331 PAR =0 .004 00174 3 00014 0 00243 PAR BUFF,,12 .004 00175 3 00000 0 00176 PAR *+1 .004 00176 CALL CLOSE(NAME1,NAME2) AND CLOSE THE FILE 00176 0074 00 4 00315 TSX CLOSE,4 .002 00177 3 00000 0 00233 PAR NAME1 .004 00200 3 00000 0 00234 PAR NAME2 .004 1 MOUNT AND UMOUNT COMMANDS FOR FOREGROUND. 11/23/69 1425.5 PAGE 6 CALL MOUNT OR UMOUNT. 00201 0054 00 000001 CALL RFT UBIT SEE WHO TO CALL 00202 0020 00 0 00210 TRA UMT SO, WE DISMOUNT 00203 MNT CALL $MOUNT(CHANNO,UNITNO(MESSAG,,20)) 00203 0074 00 4 00003 TSX $MOUNT,4 .002 00204 3 00000 0 00231 PAR CHANNO .004 00205 3 00000 0 00232 PAR UNITNO .004 00206 3 00024 0 00235 PAR MESSAG,,20 .004 00207 0021 00 0 00213 XIT CHN EXIT TO CHNCOM 00210 UMT CALL $UMOUNT(UNITNO(MESSAG,,20)) 00210 0074 00 4 00004 TSX $UMOUNT,4 .002 00211 3 00000 0 00232 PAR UNITNO .004 00212 3 00024 0 00235 PAR MESSAG,,20 .004 00213 CHN CALL WRFLX((*,,0)) TYPE A C.R. 00213 0074 00 4 00316 TSX WRFLX,4 .002 00214 3 00000 0 00214 PAR *,,0 .004 00215 CALL CHNCOM(0) EXIT TO CHNCOM 00215 0074 00 4 00317 TSX CHNCOM,4 .002 00216 3 00000 0 00000 PAR 0 .004 1 MOUNT AND UMOUNT COMMANDS FOR FOREGROUND. 11/23/69 1425.5 PAGE 7 ERROR MESSAGES. 00217 BADA COMENT NOTNUF,5,(INCOMPLETE SET OF PARAMETERS.) 00217 0074 00 4 00316 TSX WRFLX,4 .003 00220 3 00005 0 00320 PAR NOTNUF,,5 .005 00221 0021 00 0 00213 XIT CHN .. 00222 -0500 00 0 00230 BAD CAL TEM GET OFFENDING PARAMETER 00223 0602 00 0 00330 SLW ILPAR+3 .. 00224 COMENT ILPAR,4,(INVALID ARGUMENT.. ) 00224 0074 00 4 00316 TSX WRFLX,4 .003 00225 3 00004 0 00325 PAR ILPAR,,4 .005 00226 0021 00 0 00213 XIT CHN .. 00227 0021 00 0 00005 ERROR XIT $DSKER CHAIN TO PRNTER 1 MOUNT AND UMOUNT COMMANDS FOR FOREGROUND. 11/23/69 1425.5 PAGE 8 STORAGE AND CONSTANTS. 00230 0 00000 0 00000 TEM PZE 00231 0 00000 0 00000 CHANNO PZE 00232 0 00000 0 00000 UNITNO PZE 00233 0 00000 0 00000 NAME1 PZE 00234 0 00000 0 00000 NAME2 PZE 00235 604446644563 MESSAG BCI 2, MOUNT TAPE 00237 606060606060 REEL BCI 2, WITH 00241 454660513145 RING BCI 2,NO RING. 00243 606060606060 BUFF BCI , 00255 606060606060 BCI 4, 00261 CBUFF BSS 20 00305 RMT * REMOTE SEQUENCES 00305 0101 00 0 00345 SETBRK TIA =HSETBRK .002 00306 0101 00 0 00334 FERRTN TIA =HFERRTN .002 00307 0101 00 0 00350 WHOAMI TIA =HWHOAMI .002 00310 0101 00 0 00335 GETCLS TIA =HGETCLS .002 00311 0101 00 0 00351 WRFLXA TIA =HWRFLXA .002 00312 637047253360 TYPE BCI 1,TYPE. .002 00313 0101 00 0 00337 OPEN TIA =HOPEN .002 00314 0101 00 0 00340 RDFILE TIA =HRDFILE .002 00315 0101 00 0 00333 CLOSE TIA =HCLOSE .002 00316 0101 00 0 00352 WRFLX TIA =HWRFLX .002 00317 0101 00 0 00332 CHNCOM TIA =HCHNCOM .002 00320 314523464447 NOTNUF BCI 5,INCOMPLETE SET OF PARAMETERS. .002 00325 314565214331 ILPAR BCI 4,INVALID ARGUMENT.. .002 END LITERALS 00331 000000000000 00332 233045234644 00333 234346622560 00334 262551516345 00335 272563234362 00336 316244466445 00337 464725456060 00340 512426314325 00341 516060606060 00342 606060214343 00343 606060606024 00344 606060606060 00345 622563225142 00346 636063214725 00347 644446644563 00350 663046214431 00351 665126436721 00352 665126436760 00353 742631223460 1 MOUNT AND UMOUNT COMMANDS FOR FOREGROUND. 11/23/69 1425.5 PAGE 1 POST PROCESSOR ASSEMBLY DATA 354 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 63 ALL 40 222 BAD 60, 74, 102, 123, 127, 143 213 CHN 10, 207, 221, 226 203 MNT 73 NOT 110 TBL 67, 71, 110, 122 230 TEM 50, 54, 65, 76, 145, 222 210 UMT 202 0 ZEL 53, 75 217 BADA 46, 52, 134, 140 243 BUFF 162, 174 201 CALL 154, 163 2 CBIT 6, 73, 106 20 DBIT 6, 122, 126, 130, 155 153 DONE 121 100 FBIT 6, 20 50 JOIN 41 64 LOOP 107, 125, 141, 152 10 MBIT 6, 122, 124, 126, 130, 153 12 NTBL 66, 67, 71, 122 313 OPEN 164 4 RBIT 6, 142, 144 237 REEL 44 241 RING 151 312 TYPE 160 1 UBIT 6, 26, 73, 201 1 BCDEC 61, 103 261 CBUFF 14, 15, 22, 23, 35, 43, 47, 64, 131, 135 315 CLOSE 176 5 DSKER 227 227 ERROR 12 120 FENCE 45, 51, 133, 137 325 ILPAR 223, 225 122 MESS. 115 3 MOUNT 203 233 NAME1 132, 166, 171, 177 234 NAME2 136, 167, 172, 200 2 RDFLX 161 164 RDISK 156 142 RING. 111, 113 316 WRFLX 213, 217, 224 231 CHANNO 77, 100, 104, 105, 204 317 CHNCOM 215 306 FERRTN 11 310 GETCLS 21 235 MESSAG 31, 33, 206, 212 126 MESS.. 117 42 MOUNT) 25 320 NOTNUF 220 314 RDFILE 170 305 SETBRK 7 1 MOUNT AND UMOUNT COMMANDS FOR FOREGROUND. 11/23/69 1425.5 PAGE 2 POST PROCESSOR ASSEMBLY DATA 4 UMOUNT 210 232 UNITNO 55, 56, 62, 63, 205, 211 307 WHOAMI 13 311 WRFLXA 157 0 NO ERROR IN ABOVE ASSEMBLY. VERIFY BCD 11/23/69 1439.9 2674 00000 1 VERIFY AND LABEL COMMANDS FOR FOREGROUND. 11/23/69 1428.2 PAGE 1 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* * * USAGE - * * VERIFY UNITNO - NAME1 NAME2 - * LABEL UNITNO - NAME1 NAME2 - * * WHERE - * * UNITNO = LOGICAL UNIT NO. OF TAPE TO BE LABELLED/VERIFIED. * NAME1 = PRIMARY NAME OF FILE CONTAINING LABEL. * NAME2 = SECONDARY NAME OF FILE CONTAINING LABEL. * * IF NO FILE NAME WAS SPECIFIED, THE PROGRAM WILL ASK * FOR THE LABEL AND READ IT FROM CONSOLE. * OTHERWISE, THE LABEL WILL BE READ FROM A FILE. * * *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* UNLIST M CALL MACRO SUBR,LIST GTCM MACRO A,B,C A =L GETCOM(B) ERA FENCE TZE C GTCM END 1 VERIFY AND LABEL COMMANDS FOR FOREGROUND. 11/23/69 1428.2 PAGE 2 00000 246242255160 DSKER 00001 434164626360 LJUST 00002 712543606060 ZEL 00003 222324252360 BCDEC 00004 512426436760 RDFLX 00005 CALL SETBRK(Q) SET A BREAK LEVEL 00005 0074 00 4 00130 TSX SETBRK,4 .002 00006 3 00000 0 00075 PAR Q .004 00007 CALL FERRTN($DSKER) SET FILE SYSTEM ERROR RETURN 00007 0074 00 4 00131 TSX FERRTN,4 .002 00010 3 00000 0 00000 PAR $DSKER .004 CNAME =L GETCOM(0) SAVE COMMAND NAME 00011 0074 00 4 00132 TSX GETCOM,4 .003 00012 3 00000 0 00000 PAR 0 .005 00013 0602 00 0 00113 SLW CNAME .002 CNAME = $LJUST(CNAME) MUST BE LEFT-JUSTIFIED 00014 0074 00 4 00001 TSX $LJUST,4 .003 00015 3 00000 0 00113 PAR CNAME .005 00016 0601 00 0 00113 STO CNAME .002 00017 GTCM TEM,1,INCOMP GET UNIT NUMBER 00017 0074 00 4 00132 TSX GETCOM,4 .004 00020 3 00000 0 00001 PAR 1 .006 00021 0602 00 0 00117 SLW TEM .003 UNITNO = $ZEL(TEM) STRIP LEADING BLANKS 00024 0074 00 4 00002 TSX $ZEL,4 .003 00025 3 00000 0 00117 PAR TEM .005 00026 0601 00 0 00112 STO UNITNO .002 00027 -0320 00 0 00170 ANA =H IT IS A LEGAL NUMBER 00030 -0100 00 0 00105 TNZ BAD AIN'T NO SUCH THING AS ALPHABETIC NUMBERS UNITNO = $BCDEC(UNITNO) NOW CONVERT TO BINARY 00031 0074 00 4 00003 TSX $BCDEC,4 .003 00032 3 00000 0 00112 PAR UNITNO .005 00033 0601 00 0 00112 STO UNITNO .002 00034 GTCM N1,2,RDLBL CHECK FOR FILE NAME GIVEN 00034 0074 00 4 00132 TSX GETCOM,4 .004 00035 3 00000 0 00002 PAR 2 .006 00036 0602 00 0 00114 SLW N1 .003 00041 GTCM N2,3,INCOMP .. 00041 0074 00 4 00132 TSX GETCOM,4 .004 00042 3 00000 0 00003 PAR 3 .006 00043 0602 00 0 00115 SLW N2 .003 00046 CALL OPEN(=HR,N1,N2) OPEN THE FILE 00046 0074 00 4 00133 TSX OPEN,4 .002 00047 3 00000 0 00167 PAR =HR .004 00050 3 00000 0 00114 PAR N1 .004 00051 3 00000 0 00115 PAR N2 .004 1 VERIFY AND LABEL COMMANDS FOR FOREGROUND. 11/23/69 1428.2 PAGE 3 00052 CALL RDFILE(N1,N2,=0(LBL,,4)*+1) READ 4 WORDS 00052 0074 00 4 00134 TSX RDFILE,4 .002 00053 3 00000 0 00114 PAR N1 .004 00054 3 00000 0 00115 PAR N2 .004 00055 3 00000 0 00155 PAR =0 .004 00056 3 00004 0 00120 PAR LBL,,4 .004 00057 3 00000 0 00060 PAR *+1 .004 00060 CALL CLOSE(N1,N2) AND CLOSE THE FILE 00060 0074 00 4 00135 TSX CLOSE,4 .002 00061 3 00000 0 00114 PAR N1 .004 00062 3 00000 0 00115 PAR N2 .004 00063 0020 00 0 00070 TRA TRYAG NOW GO LABEL/VERIFY THE TAPE 00064 RDLBL COMENT T,2,(TYPE LABEL.),A ASK FOR LABEL 00064 0074 00 4 00136 TSX WRFLXA,4 .003 00065 3 00002 0 00137 PAR T,,2 .005 00066 CALL $RDFLX((LBL,,4)) READ THE LABEL 00066 0074 00 4 00004 TSX $RDFLX,4 .002 00067 3 00004 0 00120 PAR LBL,,4 .004 00070 -0774 00 4 00071 TRYAG AXC *+1,4 SIMULATED TSX 00071 0101 00 0 00113 TIA CNAME TO A-CORE WE GO 00072 3 00000 0 00112 PAR UNITNO .. 00073 3 00004 0 00120 PAR LBL,,4 .. 00074 3 00000 0 00077 PAR ERR .. 00075 Q CALL CHNCOM(0) EXIT TO CHNCOM 00075 0074 00 4 00141 TSX CHNCOM,4 .002 00076 3 00000 0 00000 PAR 0 .004 1 VERIFY AND LABEL COMMANDS FOR FOREGROUND. 11/23/69 1428.2 PAGE 4 00077 -0500 00 0 00165 ERR CAL =HPRNTER COMMAND IN AC 00100 0560 00 0 00162 LDQ =O-51 PARAMETER IN MQ 00101 CALL NEXCOM AND EXIT TO NEXCOM 00101 0074 00 4 00142 TSX NEXCOM,4 .002 00102 INCOMP COMENT ICSA,5(INCOMPLETE SET OF PARAMETERS.) 00102 0074 00 4 00143 TSX WRFLX,4 .003 00103 3 00005 0 00144 PAR ICSA,,5 .005 00104 0021 00 0 00075 XIT Q 00105 -0500 00 0 00117 BAD CAL TEM 00106 0602 00 0 00154 SLW ILPAR+3 00107 COMENT ILPAR,4,(INVALID ARGUMENT..) 00107 0074 00 4 00143 TSX WRFLX,4 .003 00110 3 00004 0 00151 PAR ILPAR,,4 .005 00111 0021 00 0 00075 XIT Q 1 VERIFY AND LABEL COMMANDS FOR FOREGROUND. 11/23/69 1428.2 PAGE 5 00112 0 00000 0 00000 UNITNO PZE 00113 0 00000 0 00000 CNAME PZE 00114 0 00000 0 00000 N1 PZE 00115 0 00000 0 00000 N2 PZE 00116 777777777777 FENCE VFD O36// 00117 0 00000 0 00000 TEM PZE 00120 606060606060 LBL BCI 4, 00124 WHOBUF BSS 4 00130 RMT * REMOTE SEQUENCES 00130 0101 00 0 00171 SETBRK TIA =HSETBRK .002 00131 0101 00 0 00160 FERRTN TIA =HFERRTN .002 00132 0101 00 0 00161 GETCOM TIA =HGETCOM .002 00133 0101 00 0 00164 OPEN TIA =HOPEN .002 00134 0101 00 0 00166 RDFILE TIA =HRDFILE .002 00135 0101 00 0 00157 CLOSE TIA =HCLOSE .002 00136 0101 00 0 00172 WRFLXA TIA =HWRFLXA .002 00137 637047256043 T BCI 2,TYPE LABEL. .002 00141 0101 00 0 00156 CHNCOM TIA =HCHNCOM .002 00142 0101 00 0 00163 NEXCOM TIA =HNEXCOM .002 00143 0101 00 0 00173 WRFLX TIA =HWRFLX .002 00144 314523464447 ICSA BCI 5,INCOMPLETE SET OF PARAMETERS. .002 00151 314565214331 ILPAR BCI 4,INVALID ARGUMENT.. .002 END LITERALS 00155 000000000000 00156 233045234644 00157 234346622560 00160 262551516345 00161 272563234644 00162 400000000051 00163 452567234644 00164 464725456060 00165 475145632551 00166 512426314325 00167 516060606060 00170 606060606060 00171 622563225142 00172 665126436721 00173 665126436760 1 VERIFY AND LABEL COMMANDS FOR FOREGROUND. 11/23/69 1428.2 PAGE 1 POST PROCESSOR ASSEMBLY DATA 174 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 75 Q 6, 104, 111 137 T 65 114 N1 36, 50, 53, 61 115 N2 43, 51, 54, 62 105 BAD 30 77 ERR 74 120 LBL 56, 67, 73 117 TEM 21, 25, 105 2 ZEL 24 144 ICSA 103 133 OPEN 46 3 BCDEC 31 135 CLOSE 60 113 CNAME 13, 15, 16, 71 0 DSKER 10 116 FENCE 22, 37, 44 151 ILPAR 106, 110 1 LJUST 14 4 RDFLX 66 64 RDLBL 40 70 TRYAG 63 143 WRFLX 102, 107 141 CHNCOM 75 131 FERRTN 7 132 GETCOM 11, 17, 34, 41 102 INCOMP 23, 45 142 NEXCOM 101 134 RDFILE 52 130 SETBRK 5 112 UNITNO 26, 32, 33, 72 124 WHOBUF 136 WRFLXA 64 0 NO ERROR IN ABOVE ASSEMBLY. TAPFIL BCD 11/23/69 1439.9 2774 00000 1 TAPFIL COMMAND FOR FOREGROUND. 11/23/69 1439.6 PAGE 1 UNLIST M CALL MACRO SUBR,LIST *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* * * USAGE - * * TAPFIL NAME1 NAME2 UNITNO -FILENO- * * WHERE - * * NAME1 = PRIMARY NAME OF FILE. * NAME2 = SECONDARY NAME. * UNITNO = LOGICAL UNIT NO. OF TAPE. * FILENO = FILE NUMBER ON TAPE. * * IF 'FILENO' IS NOT GIVEN, IT IS ASSUMED * TO BE ZERO. * * *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* GTCM MACRO A,B,C A =L GETCOM(B) ERA FENCE TZE C GTCM END 1 TAPFIL COMMAND FOR FOREGROUND. 11/23/69 1439.6 PAGE 2 00000 712543606060 ZEL 00001 222324252360 BCDEC 00002 242543256325 DELETE 00003 CALL SETBRK(Q) SET A BREAK LEVEL 00003 0074 00 4 00150 TSX SETBRK,4 .002 00004 3 00000 0 00075 PAR Q .004 00005 GTCM NAME1,1,BADA GET PRIMARY NAME 00005 0074 00 4 00151 TSX GETCOM,4 .004 00006 3 00000 0 00001 PAR 1 .006 00007 0602 00 0 00135 SLW NAME1 .003 00012 GTCM NAME2,2,BADA AND SECONDARY NAME 00012 0074 00 4 00151 TSX GETCOM,4 .004 00013 3 00000 0 00002 PAR 2 .006 00014 0602 00 0 00137 SLW NAME2 .003 00017 GTCM TEM,3,BADA GET UNIT NUMBER 00017 0074 00 4 00151 TSX GETCOM,4 .004 00020 3 00000 0 00003 PAR 3 .006 00021 0602 00 0 00130 SLW TEM .003 UNITNO = $ZEL(TEM) STRIP LEADING BLANKS 00024 0074 00 4 00000 TSX $ZEL,4 .003 00025 3 00000 0 00130 PAR TEM .005 00026 0601 00 0 00125 STO UNITNO .002 00027 -0320 00 0 00204 ANA =H CHECK FOR ZONE BITS 00030 -0100 00 0 00120 TNZ BAD .. UNITNO = $BCDEC(UNITNO) CONVERT TO BINARY 00031 0074 00 4 00001 TSX $BCDEC,4 .003 00032 3 00000 0 00125 PAR UNITNO .005 00033 0601 00 0 00125 STO UNITNO .002 00034 GTCM TEM,4,DONE GET FILE NO. , IF ANY 00034 0074 00 4 00151 TSX GETCOM,4 .004 00035 3 00000 0 00004 PAR 4 .006 00036 0602 00 0 00130 SLW TEM .003 FILENO = $ZEL(TEM) STRIP BLANKS 00041 0074 00 4 00000 TSX $ZEL,4 .003 00042 3 00000 0 00130 PAR TEM .005 00043 0601 00 0 00126 STO FILENO .002 00044 -0320 00 0 00204 ANA =H AND CHECK FOR ZONE BITS 00045 -0100 00 0 00120 TNZ BAD FILENO = $BCDEC(FILENO) CONVERT TO BINARY 00046 0074 00 4 00001 TSX $BCDEC,4 .003 00047 3 00000 0 00126 PAR FILENO .005 00050 0601 00 0 00126 STO FILENO .002 00051 DONE CALL FSTATE(NAME1,NAME2(TEM,,4)DEL) 00051 0074 00 4 00152 TSX FSTATE,4 .002 00052 3 00000 0 00135 PAR NAME1 .004 00053 3 00000 0 00137 PAR NAME2 .004 00054 3 00004 0 00130 PAR TEM,,4 .004 00055 3 00000 0 00062 PAR DEL .004 00056 -0500 00 0 00133 CAL DEVICE CHECK FOR DISK/DRUM FILE 1 TAPFIL COMMAND FOR FOREGROUND. 11/23/69 1439.6 PAGE 3 00057 0402 00 0 00173 SUB =3 .. 00060 0100 00 0 00062 TZE *+2 .. 00061 -0120 00 0 00102 TMI DSKFL GO ASK TO DELETE DISK FILE 00062 DEL CALL $DELETE(NAME1,NAME2,*,Q) TRY TO DELETE OLD FILE 00062 0074 00 4 00002 TSX $DELETE,4 .002 00063 3 00000 0 00135 PAR NAME1 .004 00064 3 00000 0 00137 PAR NAME2 .004 00065 3 00000 0 00065 PAR * .004 00066 3 00000 0 00075 PAR Q .004 00067 CALL TAPFIL(NAME1,NAME2,UNITNO,FILENO,ERR) 00067 0074 00 4 00153 TSX TAPFIL,4 .002 00070 3 00000 0 00135 PAR NAME1 .004 00071 3 00000 0 00137 PAR NAME2 .004 00072 3 00000 0 00125 PAR UNITNO .004 00073 3 00000 0 00126 PAR FILENO .004 00074 3 00000 0 00077 PAR ERR .004 00075 Q CALL CHNCOM(0) EXIT TO CHNCOM 00075 0074 00 4 00154 TSX CHNCOM,4 .002 00076 3 00000 0 00000 PAR 0 .004 1 TAPFIL COMMAND FOR FOREGROUND. 11/23/69 1439.6 PAGE 4 00077 -0500 00 0 00202 ERR CAL =HPRNTER CHAIN TO PRNTER COMMAND 00100 0560 00 0 00200 LDQ =O-51 MASK FOR PRNTER 00101 CALL NEXCOM .. 00101 0074 00 4 00155 TSX NEXCOM,4 .002 00102 DSKFL COMENT DOYOU,12,,A ASK TO DELETE DISK FILE 00102 0074 00 4 00156 TSX WRFLXA,4 .003 00103 3 00014 0 00134 PAR DOYOU,,12 .005 00104 CALL RDFLXA((TEM,,1)) READ ANSWER 00104 0074 00 4 00157 TSX RDFLXA,4 .002 00105 3 00001 0 00130 PAR TEM,,1 .004 00106 -0500 00 0 00130 CAL TEM .. 00107 0771 00 0 00022 ARS 18 .. 00110 0322 00 0 00174 ERA =H000YES CHECK FOR 'YES' 00111 -0100 00 0 00075 TNZ Q QUIT IF NOT 00112 0774 00 4 00172 AXT =0,4 MAKE DELETE QUIET 00113 0634 00 4 00065 SXA DEL+3,4 .. 00114 0020 00 0 00062 TRA DEL NOW DELETE THE FILE 00115 BADA COMENT NOTNUF,5,(INCOMPLETE SET OF PARAMETERS.) 00115 0074 00 4 00160 TSX WRFLX,4 .003 00116 3 00005 0 00161 PAR NOTNUF,,5 .005 00117 0021 00 0 00075 XIT Q .. 00120 -0500 00 0 00130 BAD CAL TEM NON-NUMERICAL ARGUMENT 00121 0602 00 0 00171 SLW ILPAR+3 .. 00122 COMENT ILPAR,4,(INVALID ARGUMENT..) 00122 0074 00 4 00160 TSX WRFLX,4 .003 00123 3 00004 0 00166 PAR ILPAR,,4 .005 00124 0021 00 0 00075 XIT Q .. 1 TAPFIL COMMAND FOR FOREGROUND. 11/23/69 1439.6 PAGE 5 00125 0 00000 0 00000 UNITNO PZE 00126 0 00000 0 00000 FILENO PZE 0 00127 777777777777 FENCE VFD O36// 00130 TEM BSS 3 00133 DEVICE BSS 1 00134 464324255160 DOYOU BCI 1,OLDER 00135 0 00000 0 00000 NAME1 PZE 00136 605757575757 VFD O36/605757575757 00137 0 00000 0 00000 NAME2 PZE 00140 603162602431 BCI 8, IS DISK/DRUM FILE. DO YOU WISH TO DELETE IT - 00150 RMT * REMOTE SEQUENCES 00150 0101 00 0 00205 SETBRK TIA =HSETBRK .002 00151 0101 00 0 00177 GETCOM TIA =HGETCOM .002 00152 0101 00 0 00176 FSTATE TIA =HFSTATE .002 00153 0101 00 0 00206 TAPFIL TIA =HTAPFIL .002 00154 0101 00 0 00175 CHNCOM TIA =HCHNCOM .002 00155 0101 00 0 00201 NEXCOM TIA =HNEXCOM .002 00156 0101 00 0 00207 WRFLXA TIA =HWRFLXA .002 00157 0101 00 0 00203 RDFLXA TIA =HRDFLXA .002 00160 0101 00 0 00210 WRFLX TIA =HWRFLX .002 00161 314523464447 NOTNUF BCI 5,INCOMPLETE SET OF PARAMETERS. .002 00166 314565214331 ILPAR BCI 4,INVALID ARGUMENT.. .002 END LITERALS 00172 000000000000 00173 000000000003 00174 000000702562 00175 233045234644 00176 266263216325 00177 272563234644 00200 400000000051 00201 452567234644 00202 475145632551 00203 512426436721 00204 606060606060 00205 622563225142 00206 632147263143 00207 665126436721 00210 665126436760 1 TAPFIL COMMAND FOR FOREGROUND. 11/23/69 1439.6 PAGE 1 POST PROCESSOR ASSEMBLY DATA 211 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 75 Q 4, 66, 111, 117, 124 120 BAD 30, 45 62 DEL 55, 113, 114 77 ERR 74 130 TEM 21, 25, 36, 42, 54, 105, 106, 120 0 ZEL 24, 41 115 BADA 11, 16, 23 51 DONE 40 1 BCDEC 31, 46 134 DOYOU 103 102 DSKFL 61 127 FENCE 10, 15, 22, 37 166 ILPAR 121, 123 135 NAME1 7, 52, 63, 70 137 NAME2 14, 53, 64, 71 160 WRFLX 115, 122 154 CHNCOM 75 2 DELETE 62 133 DEVICE 56 126 FILENO 43, 47, 50, 73 152 FSTATE 51 151 GETCOM 5, 12, 17, 34 155 NEXCOM 101 161 NOTNUF 116 157 RDFLXA 104 150 SETBRK 3 153 TAPFIL 67 125 UNITNO 26, 32, 33, 72 156 WRFLXA 102 0 NO ERROR IN ABOVE ASSEMBLY. TTPEEK BCD 09/18/68 2320.5 3631 00000 1 TTPEEK COMMAND FOR CTSS JIM BIXBY 4/11/68 PAGE 1 USAGE -- 'TTPEEK' CAUSES THE PRINTING OF DATE, TIME, TIMES ALLOTTED AND USED BY SHIFT, AND STORAGE ALLOTTED AND USED BY DEVICE. TO LOAD THE COMMAND -- FAP TTPEEK (LIST) NCLOAD TTPEEK (LIBE) XLIBE SAVE TTPEEK EQU'S -- CHANGE THESE TO CHANGE THE SHIFT, NUMBER OF STORAGE DEVICES, ETC TRANSFER VECTOR 00000 665126436760 WRFLX 00001 272563634460 GETTM 00002 234644434623 COMLOC 00003 272563434623 GETLOC 00004 242526222360 DEFBC 00005 227125436060 BZEL 00006 626346512725 STORGE 00007 233045234644 CHNCOM 00005 SHIFTS EQU 5 NUMBER OF ACCOUNTING SHIFTS 00003 UNITS EQU 3 NUMBER OF SECONDARY STORAGE DEVICES 1 TTPEEK COMMAND FOR CTSS JIM BIXBY 4/11/68 PAGE 2 MACROS * * * * * * * * * * * * * * * * * * * TCONV - TO CONVERT 60THS TO BCD * * * * * * * * * * * * * * * * * * * UCONV MACRO XCA ARG IN AC. MOVE TO MQ ZAC DVP =360 TO DIVIDE IT BY 360 STQ TEMP TSX $DEFBC,4 CONVERT TO BCD PTH TEMP STO TEMP TSX $BZEL,4 AND BLANK THE LEADING ZEROS PTH TEMP XCA LGL 30 GET FIRST 5 CHARACTERS ALS 6 MAKE ROOM FOR '.' ORA =H00000. AND PUT IT IN LGL 6 GET LAST CHARACTER UCONV END TCONV MACRO UCONV ARS 12 ORA =H 0000 THIS IS THE ALLOTTED FORM SLW TEMP MAKE SURE AT LEAST '0' IS THERE ERA =H TNZ *+3 CAL =H 0 TRA *+2 CAL TEMP TCONV END 1 TTPEEK COMMAND FOR CTSS JIM BIXBY 4/11/68 PAGE 3 INITIALIZE AND PRINT THE HEADING 00010 0074 00 4 00000 TSX $WRFLX,4 GIVE A CARRIAGE RETURN TO START 00011 3 00000 0 00000 PTH 0,,0 00012 0074 00 4 00001 TSX $GETTM,4 GET THE DATE AND TIME FOR PRINTING 00013 3 00000 0 00264 PTH DATE 00014 3 00000 0 00265 PTH TIME 00015 0074 00 4 00002 TSX $COMLOC,4 GET THE CORE-A COMMON ADDRESS OF THE USER 00016 3 00000 0 00346 PTH =HUSER 00017 0621 00 0 00021 STA USER 00020 0074 00 4 00003 TSX $GETLOC,4 AND THEN PICK UP THE ACTUAL USER NUMBER 00021 0 00000 0 00000 USER PZE ** 00022 0602 00 0 00326 SLW USERNO 00023 0074 00 4 00002 TSX $COMLOC,4 GET THE ADDRESS OF ARRAY 'UTIME' 00024 3 00000 0 00347 PTH =HUTIME 00025 0400 00 0 00326 ADD USERNO ADD IN THE USERNO TO GET HIS TIME ADDRESS 00026 0621 00 0 00030 STA GTUSD 00027 0074 00 4 00003 TSX $GETLOC,4 AND THEN PICK UP THE TIME USED 00030 0 00000 0 00000 GTUSD PZE ** 00031 UCONV CONVERT THE TIME USED TO BCD 00047 0602 00 0 00270 SLW TUSED AND STORE IN THE MESSAGE 00050 0074 00 4 00000 TSX $WRFLX,4 WRITE THE DATE, TIME MESSAGE 00051 3 00005 0 00264 PTH DATE,,5 00052 0074 00 4 00000 TSX $WRFLX,4 GIVE ANOTHER CARRIAGE RETURN 00053 3 00000 0 00000 PTH 0,,0 00054 0074 00 4 00000 TSX $WRFLX,4 AND THEN WRITE THE TIME HEADINGS 00055 3 00004 0 00271 PTH LINE1,,4 00056 0074 00 4 00000 TSX $WRFLX,4 00057 3 00004 0 00275 PTH LINE2,,4 1 TTPEEK COMMAND FOR CTSS JIM BIXBY 4/11/68 PAGE 4 GET AND PRINT THE TIMES USED AND ALLOTTED BY SHIFT GET THE VALUE OF N, THE COMMON ARRAY SIZE 00060 0074 00 4 00002 TSX $COMLOC,4 USE COMLOC 00061 3 00000 0 00337 PTH =HN 00062 0400 00 0 00332 ADD =1 00063 0737 00 1 00000 PAC ,1 AND PUT INTO THE ADDRESS CHANGER 00064 -0634 00 1 00075 SXD N,1 .. GET THE CORE-A ADDRESS OF THE TAU VECTOR 00065 0074 00 4 00002 TSX $COMLOC,4 00066 3 00000 0 00345 PTH =HTAU1 00067 0400 00 0 00326 ADD USERNO ADD TO GET THIS USERS TAU VECTOR 00070 0734 00 1 00000 PAX ,1 AND PUT THIS ADDRESS IN XR1 00071 0774 00 2 00005 AXT SHIFTS,2 DO THE LOOP SHIFTS TIMES 00072 0634 00 1 00074 GETTAU SXA TI,1 PUT THE TAU ADDRESS IN THE GETLOC CALL 00073 0074 00 4 00003 TSX $GETLOC,4 PICK UP THE TIME FOR THIS SHIFT 00074 0 00000 0 00000 TI PZE ** FILLED IN ABOVE 00075 1 00000 1 00076 N TXI *+1,1,** MOVE TO NEXT TAU ENTRY 00076 -0130 00 0 00000 XCL PUT TIME INTO THE MQ 00077 -0754 00 0 00000 ZAC 00100 -0763 00 0 00016 LGL 14 GET THE ALLOTTED TIME 00101 0602 00 0 00302 SLW ALLOT 00102 -0773 00 0 00026 RQL 22 REPOSITION THE USED TIME 00103 -0600 00 0 00304 STQ USED AND SAVE THAT TOO 00104 -0100 00 0 00107 TNZ *+3 PRINT IF ALLOTTED NONZERO 00105 0131 00 0 00000 XCA OTHERWISE CHECK USED FOR ZERO 00106 0100 00 0 00201 TZE TAUTIX IF BOTH ZERO, SKIP THIS SHIFT 00107 0754 00 2 00000 PXA ,2 COMPUTE THE SHIFT WE ARE WORKING ON 00110 -0760 00 0 00003 SSM 00111 0400 00 0 00327 ADD MXSHFT 00112 0601 00 0 00325 STO TEMP 00113 0074 00 4 00004 TSX $DEFBC,4 AND CONVERT THE SHIFT TO BCD 00114 3 00000 0 00325 PTH TEMP 00115 0601 00 0 00325 STO TEMP 00116 0074 00 4 00005 TSX $BZEL,4 WITH LEADING BLANKS 00117 3 00000 0 00325 PTH TEMP 00120 0131 00 0 00000 XCA POSITION THE BCD SHIFT PROPERLY 00121 -0773 00 0 00030 RQL 24 00122 -0500 00 0 00334 CAL =O57 PUT IN A NULL 00123 -0765 00 0 00006 LGR 6 00124 -0600 00 0 00301 STQ TLINE AND PUT THE RESULT INTO THE MESSAGE 1 TTPEEK COMMAND FOR CTSS JIM BIXBY 4/11/68 PAGE 5 GET AND PRINT THE TIMES USED AND ALLOTTED BY SHIFT 00125 0500 00 0 00302 CLA ALLOT CONVERT ALLOT TO PRINTABLE FORM 00126 0767 00 0 00010 ALS 8 AFTER CHANGING TO 60TH-S 00127 0400 00 0 00336 ADD =1801 FUDGE UP 00130 TCONV 00156 0602 00 0 00302 SLW ALLOT AND SAVE FOR PRINTING 00157 0500 00 0 00304 CLA USED CONVERT USED TO PRINTABLE FORM 00160 UCONV 00176 0602 00 0 00304 SLW USED AND SAVE 00177 0074 00 4 00000 TSX $WRFLX,4 WRITE THE LINE FOR THIS SHIFT 00200 3 00004 0 00301 PTH TLINE,,4 .. 00201 2 00001 2 00072 TAUTIX TIX GETTAU,2,1 AND DO ALL THE SHIFTS 00202 0074 00 4 00000 TSX $WRFLX,4 THROW IN AN EXTRA CARRIAGE RETURN 00203 3 00000 0 00000 PTH 0,,0 1 TTPEEK COMMAND FOR CTSS JIM BIXBY 4/11/68 PAGE 6 PRINT THE STORAGE INFORMATION 00204 0074 00 4 00000 TSX $WRFLX,4 PRINT THE STORAGE HEADER LINES 00205 3 00003 0 00305 PTH LINE3,,3 00206 0074 00 4 00000 TSX $WRFLX,4 00207 3 00004 0 00311 PTH LINE4,,4 00210 0774 00 1 00003 AXT UNITS,1 AND DO LOOP FOR ALL STORAGE UNITS 00211 0754 00 1 00000 DEV PXA ,1 GET THE NUMBER OF THIS UNIT 00212 -0760 00 0 00003 SSM 00213 0400 00 0 00330 ADD DEVMAX 00214 0601 00 0 00320 STO STOAG AND SAVE IT 00215 0074 00 4 00006 TSX $STORGE,4 GET THE ALLOTMENT AND USED SPACE 00216 3 00000 0 00320 PTH STOAG FOR THE UNIT IN STOAG 00217 3 00000 0 00322 PTH SALLOT 00220 3 00000 0 00324 PTH SUSED 00221 0500 00 0 00322 CLA SALLOT CHECK FOR ZERO ALLOTMENT 00222 -0100 00 0 00225 TNZ SOMTHR PRINT IF NOT ZERO 00223 0500 00 0 00324 CLA SUSED OTHERWISE CHECK USED 00224 0100 00 0 00257 TZE STOLUP AND SKIP PRINT IF NOT THERE 00225 0074 00 4 00004 SOMTHR TSX $DEFBC,4 CONVERT ALLOTMENT TO BCD 00226 3 00000 0 00322 PTH SALLOT 00227 0601 00 0 00322 STO SALLOT 00230 0074 00 4 00005 TSX $BZEL,4 WITH LEADING BLANKS 00231 3 00000 0 00322 PTH SALLOT 00232 0601 00 0 00322 STO SALLOT 00233 0074 00 4 00004 TSX $DEFBC,4 CONVERT USED FIGURE TO BCD 00234 3 00000 0 00324 PTH SUSED 00235 0601 00 0 00324 STO SUSED 00236 0074 00 4 00005 TSX $BZEL,4 WITH LEADING ZEROES 00237 3 00000 0 00324 PTH SUSED 00240 0601 00 0 00324 STO SUSED 00241 -0500 00 0 00324 CAL SUSED CHANGE '32767' TO '-1' 00242 0322 00 0 00340 ERA =H 32767 IN BOTH PLACES 00243 -0100 00 0 00246 TNZ *+3 00244 -0500 00 0 00342 CAL =H -1 00245 0602 00 0 00324 SLW SUSED 00246 -0500 00 0 00322 CAL SALLOT 00247 0322 00 0 00340 ERA =H 32767 00250 -0100 00 0 00253 TNZ *+3 00251 -0500 00 0 00342 CAL =H -1 00252 0602 00 0 00322 SLW SALLOT 1 TTPEEK COMMAND FOR CTSS JIM BIXBY 4/11/68 PAGE 7 PRINT THE STORAGE INFORMATION 00253 -0500 00 1 00320 CAL DEVICE+UNITS,1 GET THE NAME OF THE UNIT 00254 0602 00 0 00320 SLW STOAG AND PUT IN THE MESSAGE 00255 0074 00 4 00000 TSX $WRFLX,4 WRITE OUT THE STORAGE LINE 00256 3 00005 0 00320 PTH STOAG,,5 00257 2 00001 1 00211 STOLUP TIX DEV,1,1 AND DO ALL THE DEVICES 00260 0074 00 4 00000 TSX $WRFLX,4 PRINT A C.R. WHEN DONE 00261 3 00000 0 00000 PTH 0,,0 00262 0074 00 4 00007 TSX $CHNCOM,4 00263 3 00000 0 00331 PTH =0 1 TTPEEK COMMAND FOR CTSS JIM BIXBY 4/11/68 PAGE 8 STORAGE AND CONSTANTS * * * * * * * * * * BCI CONSTANTS * * * * * * * * * * 00264 DATE BSS 1 00265 TIME BSS 1 00266 606331442560 BCI 2, TIME USED = 00267 646225246013 00270 TUSED BSS 1 00271 623031266360 LINE1 BCI 4,SHIFT MINUTES 00272 606060606060 00273 443145646325 00274 626060606060 00275 606060606060 LINE2 BCI 4, ALLOTTED USED 00276 214343466363 00277 252460606064 00300 622524606060 00301 -176060606060 TLINE OCT 576060606060 00302 ALLOT BSS 1 00303 -175760606060 OCT 575760606060 00304 USED BSS 1 00305 606060606060 LINE3 BCI 4, STORAGE 00306 626346512127 00307 256060606060 00310 606060606060 00311 242565312325 LINE4 BCI 4,DEVICE QUOTA USED 00312 606060506446 00313 632160606064 00314 622524606060 00315 245164446060 DEVICE BCI 3,DRUM DISK TAPE 00316 243162426060 00317 632147256060 00320 STOAG BSS 1 00321 -206057575757 OCT 606057575757 00322 SALLOT BSS 1 00323 -205757575757 OCT 605757575757 00324 SUSED BSS 1 * * * * * * * * * * * * * * * * * OTHER STORAGE AND CONSTANTS * * * * * * * * * * * * * * * * * 00325 TEMP BSS 1 00326 USERNO BSS 1 00327 0 00000 0 00006 MXSHFT PZE SHIFTS+1 00330 0 00000 0 00004 DEVMAX PZE UNITS+1 END 1 TTPEEK COMMAND FOR CTSS JIM BIXBY 4/11/68 PAGE 9 STORAGE AND CONSTANTS LITERALS 00331 000000000000 00332 000000000001 00333 000000000033 00334 000000000057 00335 000000000550 00336 000000003411 00337 456060606060 00340 600302070607 00341 606000000000 00342 606060604001 00343 606060606000 00344 606060606060 00345 632164016060 00346 646225516060 00347 646331442560 1 TTPEEK COMMAND FOR CTSS JIM BIXBY 4/11/68 PAGE 1 POST PROCESSOR ASSEMBLY DATA 350 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 75 N 64 74 TI 72 211 DEV 257 5 BZEL 40, 116, 137, 167, 230, 236 264 DATE 13, 51 325 TEMP 34, 36, 37, 41, 112, 114, 115, 117, 133, 135, 136, 140, 150, 155, 163, 165, 166 170 265 TIME 14 304 USED 103, 157, 176 21 USER 17 302 ALLOT 101, 125, 156 4 DEFBC 35, 113, 134, 164, 225, 233 1 GETTM 12 30 GTUSD 26 271 LINE1 55 275 LINE2 57 305 LINE3 205 311 LINE4 207 320 STOAG 214, 216, 254, 256 324 SUSED 220, 223, 234, 235, 237, 240, 241, 245 301 TLINE 124, 200 270 TUSED 47 3 UNITS 10, 210, 253, 330 0 WRFLX 10, 50, 52, 54, 56, 177, 202, 204, 206, 255, 260 7 CHNCOM 262 2 COMLOC 15, 23, 60, 65 315 DEVICE 253 330 DEVMAX 213 3 GETLOC 20, 27, 73 72 GETTAU 201 327 MXSHFT 111 322 SALLOT 217, 221, 226, 227, 231, 232, 246, 252 5 SHIFTS 10, 71, 327 225 SOMTHR 222 257 STOLUP 224 6 STORGE 215 201 TAUTIX 106 326 USERNO 22, 25, 67 0 NO ERROR IN ABOVE ASSEMBLY. TYPSET BCD 09/18/68 2320.5 45913 00000 1 MAD PROGRAM LISTING ... ... ... FILE EDITOR MAD 02/08/68 1745.3 - .. EDIT BY CONTEXT PROGRAM. LM00001 LM00002 .. J. H. SALTZER, NOVEMBER, 1964. LM00003 .. LAST MODIFICATION, APRIL, 1967. LM00004 .. MODIFIED OCTOBER, 1967 BY PETER R. BOS LM00005 .. TO ALLOW SETTING BREAK CHARACTER 'MCHNG' LM00006 LM00007 .. DECLARATIONS. LM00008 LM00009 VECTOR VALUES FENCE = 777777777777K *001 LM00010 VECTOR VALUES RETURN = 55K *002 LM00011 VECTOR VALUES IN = $(INPUT$ *003 LM00012 VECTOR VALUES IN1 = $(INPT1$ *004 LM00013 VECTOR VALUES BRIEF = 0B *005 LM00014 VECTOR VALUES OK = 0B *006 LM00015 VECTOR VALUES BUFSIZ = 360 *007 LM00016 DIMENSION LINE(361), EDLIN(361) *008 LM00017 DIMENSION REDS(1), BLACKS(1) *009 LM00018 DIMENSION ATNAM(2) *010 LM00019 NORMAL MODE IS INTEGER *011 LM00020 BOOLEAN OK, GLOBAL, FSTPAS *012 LM00021 BOOLEAN CHNG, CLRSW, BRIEF *013 LM00022 LM00023 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00024 LM00025 .. INITIALIZATION. LM00026 LM00027 SECOND NAME OF INTERMEDIATE FILES NOW PROGNO LM00028 LM00029 WHOAMI.(ATNAM(2)...2) *014 LM00030 FI = ATNAM(1) *015 LM00031 GETVAL.(BLANK, TAB, DEFALT, MCHNG, REDS(1), BLACKS(1)) *016 LM00032 CLRNAM.(IN, FI, CHN, 1B) *017 LM00033 CLRNAM.(IN1, FI, CHN, 1B) *018 LM00034 ASSIGN.(IN, FI) *019 LM00035 OLDNAM = COMARG.(1) *020 LM00036 OLDSEC = DEFALT *021 LM00037 WHENEVER OLDNAM .E. FENCE, TRANSFER TO INSERT *022 LM00038 OLDSEC = COMARG.(2) *023 LM00039 WHENEVER OLDSEC .E. FENCE, OLDSEC = DEFALT *024 LM00040 SEEK.(OLDNAM, OLDSEC, INSERT) *025 LM00041 FSTPAS = 1B *026 LM00042 OK = 1B *027 LM00043 LM00044 .. ENTER EDIT MODE. LM00045 LM00046 EDIT WHENEVER .NOT. BRIEF, PRINT COMMENT $0E1D1I1T$ *028 LM00047 LM00048 .. OBTAIN NEXT REQUEST. LM00049 LM00050 NXRQ COUNT = TYPEIN.(EDLIN, BUFSIZ) *029 LM00051 WHENEVER EDLIN(1) .E. MCHNG .AND. COUNT .L. 3 *030 LM00052 1 , TRANSFER TO INSERT *030 LM00053 WHENEVER COUNT .L. 2, TRANSFER TO NXRQ *031 LM00054 EDCT = 0 *032 LM00055 CWD = GET.(0) *033 LM00056 LM00057 WHENEVER CWD .E. $DELETE$ .OR. CWD .E. $ D$ *034 LM00058 N = BIN.(GET.(0)) *035 LM00059 THROUGH DREAD, FOR I = 1, 1, I .GE. N *036 LM00060 DREAD LENGTH = READ.(LINE, BUFSIZ, EOF) *037 LM00061 LENGTH = 0 *038 LM00062 LM00063 OR WHENEVER CWD .E. $ NEXT$ .OR. CWD .E. $ N$ *039 LM00064 N = BIN.(GET.(0)) *040 LM00065 WHENEVER N .E. 0, N = 1 *041 LM00066 THROUGH NXT, FOR I = 1, 1, I .G. N *042 LM00067 WRITE.(LINE, LENGTH) *043 LM00068 WHENEVER .NOT. OK, CLSOUT. *044 LM00069 LENGTH = READ.(LINE, BUFSIZ, EOF) *045 LM00070 NXT CONTINUE *046 LM00071 LM00072 OR WHENEVER CWD .E. $INSERT$ .OR. CWD .E. $ I$ *047 LM00073 WRITE.(LINE, LENGTH) *048 LM00074 TRANSFER TO RETYPE *049 LM00075 LM00076 INSERT WHENEVER .NOT. BRIEF, PRINT COMMENT $0I1N1P1U1T$ *050 LM00077 INPUT COUNT = TYPEIN.(EDLIN, BUFSIZ) *051 LM00078 WHENEVER COUNT .L. 3 .AND. EDLIN(1) .E. MCHNG *052 LM00079 1 , TRANSFER TO EDIT *052 LM00080 WRITE.(LINE, LENGTH) *053 LM00081 THROUGH MVLP, FOR I = 1, 1, I .G. COUNT *054 LM00082 MVLP LINE(I) = EDLIN(I) *055 LM00083 LENGTH = COUNT *056 LM00084 TRANSFER TO INPUT *057 LM00085 LM00086 OR WHENEVER CWD .E. $BOTTOM$ .OR. CWD .E. $ B$ *058 LM00087 WRITE.(LINE, LENGTH) *059 LM00088 LENGTH = 0 *060 LM00089 WHENEVER OK, BOTTOM. *061 LM00090 TRANSFER TO INSERT *062 LM00091 LM00092 OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ A$ *063 LM00093 WHENEVER LENGTH .G. 0, LENGTH = LENGTH - 1 *064 LM00094 TRANSFER TO APPEND *065 LM00095 LM00096 OR WHENEVER CWD .E. $RETYPE$ .OR. CWD .E. $ R$ *066 LM00097 RETYPE LENGTH = 0 *067 LM00098 APPEND THROUGH RPLC, FOR EDCT = EDCT + 1, 1, EDCT .G. COUNT *068 LM00099 LENGTH = LENGTH + 1 *069 LM00100 RPLC LINE(LENGTH) = EDLIN(EDCT) *070 LM00101 LM00102 OR WHENEVER CWD .E. $ ERASE$ .OR. CWD .E. $ E$ *071 LM00103 WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETERS.(EDLIN(EDCT+1)) *072 LM00104 LM00105 OR WHENEVER CWD .E. $ KILL$ .OR. CWD .E. $ K$ *073 LM00106 WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETKIL.(EDLIN(EDCT+1)) *074 LM00107 LM00108 .. MODIFICATION ALLOWS SETTING 'MCHNG'. PRB. LM00109 LM00110 OR WHENEVER CWD .E. $ BREAK$ .OR. CWD .E. $ BR$ *075 LM00111 WHENEVER EDLIN(EDCT) .E. RETURN *076 LM00112 MCHNG = RETURN *077 LM00113 OR WHENEVER EDLIN(EDCT+1) .NE. BLANK *078 LM00114 MCHNG = EDLIN(EDCT+1) *079 LM00115 END OF CONDITIONAL *080 LM00116 LM00117 OR WHENEVER CWD .E. $VERIFY$ .OR. CWD .E. $ V$ *081 LM00118 CWD = GET.(0) *082 LM00119 WHENEVER CWD .E. $ ON$ *083 LM00120 BRIEF = 0B *084 LM00121 OR WHENEVER CWD .E. $ OFF$ *085 LM00122 BRIEF = 1B *086 LM00123 END OF CONDITIONAL *087 LM00124 LM00125 OR WHENEVER CWD .E. $LOCATE$ .OR. CWD .E. $ L$ *088 LM00126 LOCATE = 1 *089 LM00127 TRANSFER TO FIND *090 LM00128 LM00129 OR WHENEVER CWD .E. $ FIND$ .OR. CWD .E. $ F$ *091 LM00130 LOCATE = 0 *092 LM00131 FIND WHENEVER EDCT+1 .GE. COUNT *093 LM00132 COUNT = OCOUNT *094 LM00133 EDCT = EDCT + 1 *095 LM00134 END OF CONDITIONAL *096 LM00135 OCOUNT = COUNT *097 LM00136 NTFND WRITE.(LINE, LENGTH) *098 LM00137 WHENEVER .NOT. OK, CLSOUT. *099 LM00138 LENGTH = READ.(LINE, BUFSIZ, EOF) *100 LM00139 THROUGH LOCSCN, FOR K=0, 1,K.G.LOCATE*(LENGTH-COUNT+EDCT) *101 LM00140 J = K *102 LM00141 THROUGH LOOK, FOR I = EDCT+1, 1, I .GE. COUNT *103 LM00142 J = J + 1 *104 LM00143 TAGN WHENEVER LINE(J) .E. EDLIN(I), TRANSFER TO LOOK *105 LM00144 WHENEVER (LINE(J).E. TAB) .AND. (EDLIN(I) .E. BLANK) *106 LM00145 1 , TRANSFER TO LOOK *106 LM00146 WHENEVER EDLIN(I-1) .NE. BLANK .OR. I .E. EDCT + 1 *107 LM00147 1 , TRANSFER TO LOCSCN *107 LM00148 WHENEVER LINE(J) .NE. BLANK .AND. LINE(J) .NE. TAB *108 LM00149 1 , TRANSFER TO LOCSCN *108 LM00150 J = J + 1 *109 LM00151 TRANSFER TO TAGN *110 LM00152 LOOK WHENEVER I .E. EDCT+1, FNDST = J *111 LM00153 FNDND = J *112 LM00154 WHENEVER .NOT. BRIEF, PRNT.(FNDST, FNDND) *113 LM00155 TRANSFER TO NXRQ *114 LM00156 LOCSCN CONTINUE *115 LM00157 TRANSFER TO NTFND *116 LM00158 LM00159 OR WHENEVER CWD .E. $ PRINT$ .OR. CWD .E. $ P$ *117 LM00160 NPRNT = BIN.(GET.(0)) *118 LM00161 PNTLP WHENEVER LENGTH .E. 0 *119 LM00162 PRINT COMMENT $0N1O0 1C1U1R1R1E1N1T0 1L1I1N1E0.$ *120 LM00163 OTHERWISE *121 LM00164 TYPOUT.(LINE, LENGTH) *122 LM00165 END OF CONDITIONAL *123 LM00166 NPRNT = NPRNT - 1 *124 LM00167 WHENEVER NPRNT .G. 0 *125 LM00168 WRITE.(LINE, LENGTH) *126 LM00169 LENGTH = READ.(LINE, BUFSIZ, EOF) *127 LM00170 TRANSFER TO PNTLP *128 LM00171 END OF CONDITIONAL *129 LM00172 LM00173 OR WHENEVER CWD .E. $ TOP$ .OR. CWD .E. $ T$ *130 LM00174 TOPLP WRITE.(LINE, LENGTH) *131 LM00175 WHENEVER OK, BOTTOM. *132 LM00176 CLSOUT. *133 LM00177 LM00178 OR WHENEVER CWD .E. $CHANGE$ .OR. CWD .E. $ C$ *134 LM00179 LM00180 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00181 LM00182 .. DELINEATE QUOTED STRINGS. LM00183 LM00184 EDCT = EDCT+1 *135 LM00185 QUOTE = EDLIN(EDCT) *136 LM00186 STR1 = EDCT *137 LM00187 QLOOP THROUGH QLOOP, FOR EDCT = EDCT+1, 1, *138 LM00188 1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) *138 LM00189 STR2 = EDCT *139 LM00190 QLOOP1 THROUGH QLOOP1, FOR EDCT = EDCT+1, 1, *140 LM00191 1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) *140 LM00192 EST2 = EDCT *141 LM00193 LM00194 .. CHECK FOR ITERATION COUNT AND GLOBAL REQUEST. LM00195 LM00196 EDCT = EDCT + 1 *142 LM00197 TEM = 1 *143 LM00198 GLOBAL = 0B *144 LM00199 ARGLP CWD = GET.(0) *145 LM00200 WHENEVER CWD .E. $ $ *146 LM00201 TRANSFER TO SHIFT *147 LM00202 OR WHENEVER CWD .E. $ G$ *148 LM00203 WHENEVER STR2 .NE. STR1+1, GLOBAL = 1B *149 LM00204 OTHERWISE *150 LM00205 TEM = BIN.(CWD) *151 LM00206 END OF CONDITIONAL *152 LM00207 TRANSFER TO ARGLP *153 LM00208 LM00209 .. SHIFT LINE TO BOTTOM OF BUFFER. LM00210 LM00211 SHIFT THROUGH MVDWN, FOR I = LENGTH, -1, I .L. 1 *154 LM00212 MVDWN LINE(BUFSIZ+I-LENGTH) = LINE(I) *155 LM00213 DOWN = BUFSIZ-LENGTH+1 *156 LM00214 UP = 0 *157 LM00215 CHNG = 0B *158 LM00216 CHST = LENGTH + 1 *159 LM00217 CHEND = LENGTH *160 LM00218 LM00219 .. SEARCH FOR PRESENCE OF FIRST STRING. LM00220 LM00221 SRCHLP UP = UP + 1 *161 LM00222 SRTST WHENEVER DOWN .G. BUFSIZ, TRANSFER TO GIVUP *162 LM00223 J = DOWN *163 LM00224 THROUGH COMPAR, FOR I = STR1+1, 1, I .GE. STR2 *164 LM00225 WHENEVER J .GE. BUFSIZ, TRANSFER TO GIVUP *165 LM00226 WHENEVER EDLIN(I) .NE. LINE(J), TRANSFER TO NOCOMP *166 LM00227 COMPAR J = J + 1 *167 LM00228 TRANSFER TO STFND *168 LM00229 LM00230 NOCOMP LINE(UP) = LINE(DOWN) *169 LM00231 DOWN = DOWN + 1 *170 LM00232 TRANSFER TO SRCHLP *171 LM00233 LM00234 .. STRING FOUND, REPLACE WITH SECOND STRING. LM00235 LM00236 STFND CHNG = 1B *172 LM00237 DOWN = DOWN + (STR2-STR1-1) *173 LM00238 CHST = UP *174 LM00239 THROUGH REPLAC, FOR I = STR2 + 1, 1, I .GE. EST2 *175 LM00240 LINE(UP) = EDLIN(I) *176 LM00241 UP = UP + 1 *177 LM00242 REPLAC WHENEVER UP .G. DOWN, TRANSFER TO GIVUP *178 LM00243 CHEND = UP - 1 *179 LM00244 WHENEVER GLOBAL, TRANSFER TO SRTST *180 LM00245 LM00246 .. MOVE REST OF LINE BACK UP. LM00247 LM00248 GIVUP THROUGH FILOUT, FOR UP = UP, 1, DOWN .G. BUFSIZ *181 LM00249 LINE(UP) = LINE(DOWN) *182 LM00250 FILOUT DOWN = DOWN + 1 *183 LM00251 LENGTH = UP - 1 *184 LM00252 TEM = TEM - 1 *185 LM00253 WHENEVER .NOT. BRIEF .AND. (TEM .G. 0 .THEN. CHNG) *186 LM00254 1 , PRNT.(CHST, CHEND) *186 LM00255 CANON.(LINE, LENGTH, BUFSIZ) *187 LM00256 WHENEVER TEM .G. 0 *188 LM00257 WRITE.(LINE, LENGTH) *189 LM00258 LENGTH = READ.(LINE, BUFSIZ, EOF) *190 LM00259 TRANSFER TO SHIFT *191 LM00260 END OF CONDITIONAL *192 LM00261 LM00262 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00263 LM00264 OR WHENEVER CWD .E. $ SPLIT$ .OR. CWD .E. $ S$ *193 LM00265 TOPNAM = GET.(0) *194 LM00266 WHENEVER TOPNAM .E. $ $, TRANSFER TO NONAME *195 LM00267 WHENEVER TOPNAM .E. OLDNAM .AND. FSTPAS *196 LM00268 NEWNM PRINT COMMENT $0P1L1E1A1S1E0 1U1S1E0 1A1N1O1T1H1E1R0 1N1A *197 LM00269 1 1M1E0.$ *197 LM00270 TRANSFER TO NXRQ *198 LM00271 END OF CONDITIONAL *199 LM00272 SECNAM = GET.(0) *200 LM00273 WHENEVER SECNAM .E. $ $, SECNAM = OLDSEC *201 LM00274 CLRNAM.(TOPNAM, SECNAM, NEWNM, 1B) *202 LM00275 CLOSEW. *203 LM00276 RENAME.(IN, FI, TOPNAM, SECNAM) *204 LM00277 ASSIGN.(IN, FI) *205 LM00278 OLDNAM = FENCE *206 LM00279 TRANSFER TO TOPLP *207 LM00280 LM00281 OR WHENEVER CWD .E. $ QUIT$ .OR. CWD .E. $ Q$ *208 LM00282 ENDRD. *209 LM00283 CLOSEW. *210 LM00284 DELFIL.(IN1, FI, DLQ1) *211 LM00285 DLQ1 DELFIL.(IN, FI, DLQ2) *212 LM00286 DLQ2 TRANSFER TO CHN *213 LM00287 LM00288 OR WHENEVER CWD .E. $ FILE$ *214 LM00289 PRINAM = GET.(0) *215 LM00290 CLRSW = 1B *216 LM00291 WHENEVER PRINAM .E. $ $ *217 LM00292 PRINAM = OLDNAM *218 LM00293 SECNAM = OLDSEC *219 LM00294 CLRSW = 0B *220 LM00295 OTHERWISE *221 LM00296 SECNAM = GET.(0) *222 LM00297 WHENEVER SECNAM .E. $ $ *223 LM00298 SECNAM = OLDSEC *224 LM00299 END OF CONDITIONAL *225 LM00300 END OF CONDITIONAL *226 LM00301 WHENEVER PRINAM .E. FENCE *227 LM00302 NONAME PRINT COMMENT $0N1O0 1F1I1L1E0 1N1A1M1E0 1G1I1V1E1N0.$ *228 LM00303 TRANSFER TO NXRQ *229 LM00304 END OF CONDITIONAL *230 LM00305 WRITE.(LINE, LENGTH) *231 LM00306 LENGTH = 0 *232 LM00307 WHENEVER OK, BOTTOM. *233 LM00308 CLRNAM.(PRINAM, SECNAM, NEWNM, CLRSW) *234 LM00309 CLOSEW. *235 LM00310 DELFIL.(IN1, FI, DL1) *236 LM00311 DL1 RENAME.(IN, FI, PRINAM, SECNAM) *237 LM00312 CHN EXIT. *238 LM00313 LM00314 OTHERWISE *239 LM00315 PRINT COMMENT $0N1O1T0 1A0 1R1E1Q1U1E1S1T0:$ *240 LM00316 TYPOUT.(EDLIN, COUNT) *241 LM00317 LM00318 END OF CONDITIONAL *242 LM00319 TRANSFER TO NXRQ *243 LM00320 LM00321 EOF PRINTCOMMENT $0E1N1D0 1O1F0 1F1I1L1E0 1R1E1A1C1H1E1D0 1B1Y0:$ *244 LM00322 TYPOUT.(EDLIN, COUNT) *245 LM00323 LENGTH = 0 *246 LM00324 OK = 0B *247 LM00325 TRANSFER TO NXRQ *248 LM00326 LM00327 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . LM00328 LM00329 .. SUBROUTINES. LM00330 LM00331 CLSOUT. .. FUNCTION TO MOVE POINTER BACK TO TOP OF FILE. LM00332 LM00333 INTERNAL FUNCTION *249 LM00334 ENTRY TO CLSOUT. *250 LM00335 CLOSEW. *251 LM00336 DELFIL.(IN1, FI, DL2) *252 LM00337 DL2 CHFILE.(IN, FI, -0, IN1) *253 LM00338 SEEK.(IN1, FI, CHN) *254 LM00339 ASSIGN.(IN, FI) *255 LM00340 OK = 1B *256 LM00341 LENGTH = 0 *257 LM00342 FSTPAS = 0B *258 LM00343 FUNCTION RETURN *259 LM00344 END OF FUNCTION *260 LM00345 LM00346 GET. .. FUNCTION TO OBTAIN ARGUMENT WORD IN HOLLERITH. LM00347 LM00348 INTERNAL FUNCTION *261 LM00349 ENTRY TO GET. *262 LM00350 WORD = $ $ *263 LM00351 SCANLP THROUGH SCANLP, FOR EDCT = EDCT, 1, *264 LM00352 1 (EDLIN(EDCT+1).NE.BLANK) .OR. (EDCT+1.GE.COUNT) *264 LM00353 GTLP EDCT = EDCT + 1 *265 LM00354 WHENEVER EDLIN(EDCT) .E. BLANK, FUNCTION RETURN WORD *266 LM00355 WHENEVER EDLIN(EDCT) .E. TAB .OR. EDCT .GE. COUNT *267 LM00356 EDCT = EDCT - 1 *268 LM00357 FUNCTION RETURN WORD *269 LM00358 END OF CONDITIONAL *270 LM00359 WORD = (WORD .LS. 6) .V. HOL.(EDLIN(EDCT)) *271 LM00360 TRANSFER TO GTLP *272 LM00361 END OF FUNCTION *273 LM00362 LM00363 PRNT. .. FUNCTION TO PRINT A LINE WITH COLOR SHIFTS. LM00364 LM00365 INTERNAL FUNCTION(STAR, EN) *274 LM00366 ENTRY TO PRNT. *275 LM00367 TYPOUT.(LINE, STAR-1) *276 LM00368 TYPOUT.(REDS, 1) *277 LM00369 TYPOUT.(LINE(STAR-1), EN-STAR+1) *278 LM00370 TYPOUT.(BLACKS, 1) *279 LM00371 TYPOUT.(LINE(EN), LENGTH-EN) *280 LM00372 FUNCTION RETURN *281 LM00373 END OF FUNCTION *282 LM00374 LM00375 END OF PROGRAM *283 LM00376 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 03713 TRANSFER VECTOR LENGTH 00030 PROGRAM BEGINS 01555 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) APPEND 00034 4 DLQ1 00041 4 GTLP 00047 4 NONAME 00056 4 RETYPE 00062 4 ARGLP 00035 4 DLQ2 00042 4 IN1 00673 A 1 NPRNT 01455 1 RPLC 00033 4 ATNAM 00073 A 1 DOWN 00110 1 INPUT 00050 4 N 01456 1 SCANLP 00033 4 BLACKS 00075 A 1 DREAD 00033 4 IN 00674 A 1 NTFND 00057 4 SECNAM 01470 1 BLANK 00076 1 EDCT 00111 1 INSERT 00051 4 NXRQ 00060 4 SHIFT 00063 4 BRIEF 00077 A 2 EDIT 00043 4 I 00675 1 NXT 00033 4 SRCHLP 00064 4 BUFSIZ 00100 A 1 EDLIN 00663 A 1 J 00676 1 OCOUNT 01457 1 SRTST 00065 4 CHEND 00101 1 EOF 00044 4 K 00677 1 OK 01460 A 2 STFND 00066 4 CHNG 00102 2 EST2 00664 1 LENGTH 00700 1 OLDNAM 01461 1 STR1 01471 1 CHN 00036 4 FENCE 00665 A 1 LINE 01452 A 1 OLDSEC 01462 1 STR2 01472 1 CHST 00103 1 FILOUT 00033 4 LOCATE 01453 1 PNTLP 00061 4 TAB 01473 1 CLRSW 00104 2 FIND 00045 4 LOCSCN 00052 4 PRINAM 01463 1 TAGN 00067 4 COMPAR 00033 4 FI 00666 1 LOOK 00053 4 QLOOP1 00033 4 TEM 01474 1 COUNT 00105 1 FNDND 00667 1 MCHNG 01454 1 QLOOP 00033 4 TOPLP 00070 4 CWD 00106 1 FNDST 00670 1 MVDWN 00033 4 QUOTE 01464 1 TOPNAM 01475 1 DEFALT 00107 1 FSTPAS 00671 2 MVLP 00033 4 REDS 01466 A 1 UP 01476 1 DL1 00037 4 GIVUP 00046 4 NEWNM 00054 4 REPLAC 00033 4 WORD 01477 1 DL2 00040 4 GLOBAL 00672 2 NOCOMP 00055 4 RETURN 01467 A 1 0FUNCTION DICTIONARY ASSIGN 00000 1 BIN 00001 1 BOTTOM 00002 1 CANON 00003 1 CHFILE 00004 1 CLOSEW 00005 1 CLRNAM 00006 1 COMARG 00007 1 DELFIL 00010 1 ENDRD 00011 1 EXIT 00012 1 GETVAL 00013 1 HOL 00014 1 .PCOMT 00015 1 .SETUP 00016 1 READ 00017 1 RENAME 00020 1 SEEK 00021 1 SETERS 00022 1 SETKIL 00023 1 TYPEIN 00024 1 TYPOUT 00025 1 WHOAMI 00026 1 WRITE 00027 1 CLSOUT 00030 1 GET 00031 1 PRNT 00032 1 0ABSOLUTE CONSTANTS 01504 +000000000006 01520 -206026314325 01524 -206050643163 01544 -206060606050 01553 -206247433163 01547 -206060606062 01536 -206060606027 01546 -206060606060 01510 +233021452725 01532 -206060606023 01552 -206060634647 01550 -206060606063 01517 -204751314563 01543 -206060606047 01521 -206026314524 01535 -206060606026 01513 -034623216325 01541 -206060606043 01525 -206060462626 01527 -206060604645 01554 -252551312670 01551 -206060606065 01515 -202251252142 01526 -206060602251 01522 -206042314343 01540 -206060606042 01516 -202551216225 01534 -206060606025 01514 -112563704725 01545 -206060606051 01505 +214747254524 01530 -206060606021 01506 +224663634644 01531 -206060606022 01512 +314562255163 01537 -206060606031 01523 -206045256763 01542 -206060606045 01511 +242543256325 01533 -206060606024 01500 +000000000000 01503 +000000000003 01502 +000000000002 01501 +000000000001 01507 +233000000000 0STATEMENT DICTIONARY 00034 TXL -302146002133 00035 TXL -302676002673 00036 TXL -303402003401 00037 TXL -303401003374 00040 TXL -303460003451 00041 TXL -303301003275 00042 TXL -303302003301 00043 TXL -301645001637 00044 TXL -303430003416 00045 TXL -302334002327 00046 TXL -303117003105 00047 TXL -303543003540 00050 TXL -302026002022 00051 TXL -302022002014 00052 TXL -302506002505 00053 TXL -302475002465 00054 TXL -303226003214 00055 TXL -303032003026 00056 TXL -303351003340 00057 TXL -302346002343 00060 TXL -301651001645 00061 TXL -302527002524 00062 TXL -302133002131 00063 TXL -302734002722 00064 TXL -302764002761 00065 TXL -302771002764 00066 TXL -303040003036 00067 TXL -302424002416 00070 TXL -302575002572 0PROGRAM VECTOR VALUES FENCE = 777777777777K 001 LM00010 01555 TSX +0 07400 4 00016 00665 -3 77777 7 77777 VECTOR VALUES RETURN = 55K 002 LM00011 01467 +0 00000 0 00055 VECTOR VALUES IN = $(INPUT$ 003 LM00012 00674 -3 43145 4 76463 VECTOR VALUES IN1 = $(INPT1$ 004 LM00013 00673 -3 43145 4 76301 VECTOR VALUES BRIEF = 0B 005 LM00014 00077 +0 00000 0 00000 VECTOR VALUES OK = 0B 006 LM00015 01460 +0 00000 0 00000 VECTOR VALUES BUFSIZ = 360 007 LM00016 00100 +0 00000 0 00550 DIMENSION LINE(361), EDLIN(361) 008 LM00017 DIMENSION REDS(1), BLACKS(1) 009 LM00018 D'N ATNAM(2) 010 LM00019 NORMAL MODE IS INTEGER 011 LM00020 BOOLEAN OK, GLOBAL, FSTPAS 012 LM00021 BOOLEAN CHNG, CLRSW, BRIEF 013 LM00022 WHOAMI.(ATNAM(2)...2) 014 LM00030 01556 TSX +0 07400 4 00026 01557 TIX +2 01502 0 00071 FI = ATNAM(1) 015 LM00031 01560 CLA +0 50000 0 00072 01561 STO +0 60100 0 00666 GETVAL.(BLANK, TAB, DEFALT, MCHNG, REDS(1), BLACKS(1)) 016 LM00032 01562 TSX +0 07400 4 00013 01563 TXH +3 00000 0 00076 01564 TXH +3 00000 0 01473 01565 TXH +3 00000 0 00107 01566 TXH +3 00000 0 01454 01567 TXH +3 00000 0 01465 01570 TXH +3 00000 0 00074 CLRNAM.(IN, FI, CHN, 1B) 017 LM00033 01571 TSX +0 07400 4 00006 01572 TXH +3 00000 0 00674 01573 TXH +3 00000 0 00666 01574 TXH +3 00000 0 00036 01575 TXH +3 00000 0 01501 CLRNAM.(IN1, FI, CHN, 1B) 018 LM00034 01576 TSX +0 07400 4 00006 01577 TXH +3 00000 0 00673 01600 TXH +3 00000 0 00666 01601 TXH +3 00000 0 00036 01602 TXH +3 00000 0 01501 ASSIGN.(IN, FI) 019 LM00035 01603 TSX +0 07400 4 00000 01604 TXH +3 00000 0 00674 01605 TXH +3 00000 0 00666 OLDNAM = COMARG.(1) 020 LM00036 01606 TSX +0 07400 4 00007 01607 TXH +3 00000 0 01501 01610 STO +0 60100 0 01461 OLDSEC = DEFALT 021 LM00037 01611 CLA +0 50000 0 00107 01612 STO +0 60100 0 01462 WHENEVER OLDNAM .E. FENCE, TRANSFER TO INSERT 022 LM00038 01613 CLA +0 50000 0 01461 01614 SUB +0 40200 0 00665 01615 TNZ -0 10000 0 01617 01616 TRA +0 02000 0 00051 OLDSEC = COMARG.(2) 023 LM00039 01617 TSX +0 07400 4 00007 01620 TXH +3 00000 0 01502 01621 STO +0 60100 0 01462 WHENEVER OLDSEC .E. FENCE, OLDSEC = DEFALT 024 LM00040 01622 CLA +0 50000 0 01462 01623 SUB +0 40200 0 00665 01624 TNZ -0 10000 0 01627 01625 CLA +0 50000 0 00107 01626 STO +0 60100 0 01462 SEEK.(OLDNAM, OLDSEC, INSERT) 025 LM00041 01627 TSX +0 07400 4 00021 01630 TXH +3 00000 0 01461 01631 TXH +3 00000 0 01462 01632 TXH +3 00000 0 00051 FSTPAS = 1B 026 LM00042 01633 CLA +0 50000 0 01501 01634 STO +0 60100 0 00671 OK = 1B 027 LM00043 01635 CLA +0 50000 0 01501 01636 STO +0 60100 0 01460 EDIT WHENEVER .NOT. BRIEF, PRINT COMMENT $0E1D1I1T$ 028 LM00047 01637 ZET +0 52000 0 00077 01640 TRA +0 02000 0 01645 01641 TSX +0 07400 4 00015 01642 +0 00000 0 00002 01643 +0 02501 2 40131 01644 +0 16360 6 06060 NXRQ COUNT = TYPEIN.(EDLIN, BUFSIZ) 029 LM00051 01645 TSX +0 07400 4 00024 01646 TXH +3 00000 0 00663 01647 TXH +3 00000 0 00100 01650 STO +0 60100 0 00105 WHENEVER EDLIN(1) .E. MCHNG .AND. COUNT .L. 3 030 LM00052 1 , TRANSFER TO INSERT 030 LM00053 01651 CLA +0 50000 0 00105 01652 SUB +0 40200 0 01503 01653 TZE +0 10000 0 01661 01654 TPL +0 12000 0 01661 01655 CLA +0 50000 0 00662 01656 SUB +0 40200 0 01454 01657 TNZ -0 10000 0 01661 01660 TRA +0 02000 0 00051 WHENEVER COUNT .L. 2, TRANSFER TO NXRQ 031 LM00054 01661 CLA +0 50000 0 00105 01662 SUB +0 40200 0 01502 01663 TZE +0 10000 0 01666 01664 TPL +0 12000 0 01666 01665 TRA +0 02000 0 00060 EDCT = 0 032 LM00055 01666 CLA +0 50000 0 01500 01667 STO +0 60100 0 00111 CWD = GET.(0) 033 LM00056 01670 TSX +0 07400 4 00031 01671 TXH +3 00000 0 01500 01672 STO +0 60100 0 00106 WHENEVER CWD .E. $DELETE$ .OR. CWD .E. $ D$ 034 LM00058 01673 CLA +0 50000 0 00106 01674 SUB +0 40200 0 01533 01675 TZE +0 10000 0 01701 01676 CLA +0 50000 0 00106 01677 SUB +0 40200 0 01511 01700 TNZ -0 10000 0 01732 N = BIN.(GET.(0)) 035 LM00059 01701 TSX +0 07400 4 00031 01702 TXH +3 00000 0 01500 01703 STO +0 60100 0 03710 01704 TSX +0 07400 4 00001 01705 TXH +3 00000 0 03710 01706 STO +0 60100 0 01456 THROUGH DREAD, FOR I = 1, 1, I .GE. N 036 LM00060 01707 CLA +0 50000 0 01501 01710 STO +0 60100 0 00675 01711 TRA +0 02000 0 01715 01712 CLA +0 50000 0 00675 01713 ADD +0 40000 0 01501 01714 STO +0 60100 0 00675 01715 CLA +0 50000 0 00675 01716 SUB +0 40200 0 01456 01717 TZE +0 10000 0 01727 01720 TPL +0 12000 0 01727 DREAD LENGTH = READ.(LINE, BUFSIZ, EOF) 037 LM00061 01721 TSX +0 07400 4 00017 01722 TXH +3 00000 0 01452 01723 TXH +3 00000 0 00100 01724 TXH +3 00000 0 00044 01725 STO +0 60100 0 00700 01726 TRA +0 02000 0 01712 LENGTH = 0 038 LM00062 01727 CLA +0 50000 0 01500 01730 STO +0 60100 0 00700 OR WHENEVER CWD .E. $ NEXT$ .OR. CWD .E. $ N$ 039 LM00064 01731 TRA +0 02000 0 03415 01732 CLA +0 50000 0 00106 01733 SUB +0 40200 0 01542 01734 TZE +0 10000 0 01740 01735 CLA +0 50000 0 00106 01736 SUB +0 40200 0 01523 01737 TNZ -0 10000 0 02002 N = BIN.(GET.(0)) 040 LM00065 01740 TSX +0 07400 4 00031 01741 TXH +3 00000 0 01500 01742 STO +0 60100 0 03710 01743 TSX +0 07400 4 00001 01744 TXH +3 00000 0 03710 01745 STO +0 60100 0 01456 WHENEVER N .E. 0, N = 1 041 LM00066 01746 CLA +0 50000 0 01456 01747 SUB +0 40200 0 01500 01750 TNZ -0 10000 0 01753 01751 CLA +0 50000 0 01501 01752 STO +0 60100 0 01456 THROUGH NXT, FOR I = 1, 1, I .G. N 042 LM00067 01753 CLA +0 50000 0 01501 01754 STO +0 60100 0 00675 01755 TRA +0 02000 0 01761 01756 CLA +0 50000 0 00675 01757 ADD +0 40000 0 01501 01760 STO +0 60100 0 00675 01761 CLA +0 50000 0 00675 01762 SUB +0 40200 0 01456 01763 TZE +0 10000 0 01765 01764 TPL +0 12000 0 02001 WRITE.(LINE, LENGTH) 043 LM00068 01765 TSX +0 07400 4 00027 01766 TXH +3 00000 0 01452 01767 TXH +3 00000 0 00700 WHENEVER .NOT. OK, CLSOUT. 044 LM00069 01770 ZET +0 52000 0 01460 01771 TRA +0 02000 0 01773 01772 TSX +0 07400 4 00030 LENGTH = READ.(LINE, BUFSIZ, EOF) 045 LM00070 01773 TSX +0 07400 4 00017 01774 TXH +3 00000 0 01452 01775 TXH +3 00000 0 00100 01776 TXH +3 00000 0 00044 01777 STO +0 60100 0 00700 NXT CONTINUE 046 LM00071 02000 TRA +0 02000 0 01756 OR WHENEVER CWD .E. $INSERT$ .OR. CWD .E. $ I$ 047 LM00073 02001 TRA +0 02000 0 03415 02002 CLA +0 50000 0 00106 02003 SUB +0 40200 0 01537 02004 TZE +0 10000 0 02010 02005 CLA +0 50000 0 00106 02006 SUB +0 40200 0 01512 02007 TNZ -0 10000 0 02064 WRITE.(LINE, LENGTH) 048 LM00074 02010 TSX +0 07400 4 00027 02011 TXH +3 00000 0 01452 02012 TXH +3 00000 0 00700 TRANSFER TO RETYPE 049 LM00075 02013 TRA +0 02000 0 00062 INSERT WHENEVER .NOT. BRIEF, PRINT COMMENT $0I1N1P1U1T$ 050 LM00077 02014 ZET +0 52000 0 00077 02015 TRA +0 02000 0 02022 02016 TSX +0 07400 4 00015 02017 +0 00000 0 00002 02020 +0 03101 4 50147 02021 +0 16401 6 36060 INPUT COUNT = TYPEIN.(EDLIN, BUFSIZ) 051 LM00078 02022 TSX +0 07400 4 00024 02023 TXH +3 00000 0 00663 02024 TXH +3 00000 0 00100 02025 STO +0 60100 0 00105 WHENEVER COUNT .L. 3 .AND. EDLIN(1) .E. MCHNG 052 LM00079 1 , TRANSFER TO EDIT 052 LM00080 02026 CLA +0 50000 0 00662 02027 SUB +0 40200 0 01454 02030 TNZ -0 10000 0 02036 02031 CLA +0 50000 0 00105 02032 SUB +0 40200 0 01503 02033 TZE +0 10000 0 02036 02034 TPL +0 12000 0 02036 02035 TRA +0 02000 0 00043 WRITE.(LINE, LENGTH) 053 LM00081 02036 TSX +0 07400 4 00027 02037 TXH +3 00000 0 01452 02040 TXH +3 00000 0 00700 THROUGH MVLP, FOR I = 1, 1, I .G. COUNT 054 LM00082 02041 CLA +0 50000 0 01501 02042 STO +0 60100 0 00675 02043 TRA +0 02000 0 02047 02044 CLA +0 50000 0 00675 02045 ADD +0 40000 0 01501 02046 STO +0 60100 0 00675 02047 CLA +0 50000 0 00675 02050 SUB +0 40200 0 00105 02051 TZE +0 10000 0 02053 02052 TPL +0 12000 0 02060 MVLP LINE(I) = EDLIN(I) 055 LM00083 02053 LXA +0 53400 1 00675 02054 LXA +0 53400 2 00675 02055 CLA +0 50000 2 00663 02056 STO +0 60100 1 01452 02057 TRA +0 02000 0 02044 LENGTH = COUNT 056 LM00084 02060 CLA +0 50000 0 00105 02061 STO +0 60100 0 00700 TRANSFER TO INPUT 057 LM00085 02062 TRA +0 02000 0 00050 OR WHENEVER CWD .E. $BOTTOM$ .OR. CWD .E. $ B$ 058 LM00087 02063 TRA +0 02000 0 03415 02064 CLA +0 50000 0 00106 02065 SUB +0 40200 0 01531 02066 TZE +0 10000 0 02072 02067 CLA +0 50000 0 00106 02070 SUB +0 40200 0 01506 02071 TNZ -0 10000 0 02104 WRITE.(LINE, LENGTH) 059 LM00088 02072 TSX +0 07400 4 00027 02073 TXH +3 00000 0 01452 02074 TXH +3 00000 0 00700 LENGTH = 0 060 LM00089 02075 CLA +0 50000 0 01500 02076 STO +0 60100 0 00700 WHENEVER OK, BOTTOM. 061 LM00090 02077 NZT -0 52000 0 01460 02100 TRA +0 02000 0 02102 02101 TSX +0 07400 4 00002 TRANSFER TO INSERT 062 LM00091 02102 TRA +0 02000 0 00051 OR WHENEVER CWD .E. $APPEND$ .OR. CWD .E. $ A$ 063 LM00093 02103 TRA +0 02000 0 03415 02104 CLA +0 50000 0 00106 02105 SUB +0 40200 0 01530 02106 TZE +0 10000 0 02112 02107 CLA +0 50000 0 00106 02110 SUB +0 40200 0 01505 02111 TNZ -0 10000 0 02123 WHENEVER LENGTH .G. 0, LENGTH = LENGTH - 1 064 LM00094 02112 CLA +0 50000 0 00700 02113 SUB +0 40200 0 01500 02114 TZE +0 10000 0 02121 02115 TMI -0 12000 0 02121 02116 CLA +0 50000 0 00700 02117 SUB +0 40200 0 01501 02120 STO +0 60100 0 00700 TRANSFER TO APPEND 065 LM00095 02121 TRA +0 02000 0 00034 OR WHENEVER CWD .E. $RETYPE$ .OR. CWD .E. $ R$ 066 LM00097 02122 TRA +0 02000 0 03415 02123 CLA +0 50000 0 00106 02124 SUB +0 40200 0 01545 02125 TZE +0 10000 0 02131 02126 CLA +0 50000 0 00106 02127 SUB +0 40200 0 01514 02130 TNZ -0 10000 0 02157 RETYPE LENGTH = 0 067 LM00098 02131 CLA +0 50000 0 01500 02132 STO +0 60100 0 00700 APPEND THROUGH RPLC, FOR EDCT = EDCT + 1, 1, EDCT .G. COUNT 068 LM00099 02133 CLA +0 50000 0 00111 02134 ADD +0 40000 0 01501 02135 STO +0 60100 0 00111 02136 TRA +0 02000 0 02142 02137 CLA +0 50000 0 00111 02140 ADD +0 40000 0 01501 02141 STO +0 60100 0 00111 02142 CLA +0 50000 0 00111 02143 SUB +0 40200 0 00105 02144 TZE +0 10000 0 02146 02145 TPL +0 12000 0 02156 LENGTH = LENGTH + 1 069 LM00100 02146 CLA +0 50000 0 00700 02147 ADD +0 40000 0 01501 02150 STO +0 60100 0 00700 RPLC LINE(LENGTH) = EDLIN(EDCT) 070 LM00101 02151 LXA +0 53400 1 00700 02152 LXA +0 53400 2 00111 02153 CLA +0 50000 2 00663 02154 STO +0 60100 1 01452 02155 TRA +0 02000 0 02137 OR WHENEVER CWD .E. $ ERASE$ .OR. CWD .E. $ E$ 071 LM00103 02156 TRA +0 02000 0 03415 02157 CLA +0 50000 0 00106 02160 SUB +0 40200 0 01534 02161 TZE +0 10000 0 02165 02162 CLA +0 50000 0 00106 02163 SUB +0 40200 0 01516 02164 TNZ -0 10000 0 02203 WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETERS.(EDLIN(EDCT+1)) 072 LM00104 02165 CLA +0 50000 0 00111 02166 ADD +0 40000 0 01501 02167 PAX +0 73400 1 00000 02170 CLA +0 50000 1 00663 02171 SUB +0 40200 0 00076 02172 TZE +0 10000 0 02202 02173 CLA +0 50000 0 00111 02174 ADD +0 40000 0 01501 02175 SUB +0 40200 0 02176 02176 TXH +3 00000 0 00663 02177 STA +0 62100 0 02201 02200 TSX +0 07400 4 00022 02201 TXH +3 00000 0 00000 OR WHENEVER CWD .E. $ KILL$ .OR. CWD .E. $ K$ 073 LM00106 02202 TRA +0 02000 0 03415 02203 CLA +0 50000 0 00106 02204 SUB +0 40200 0 01540 02205 TZE +0 10000 0 02211 02206 CLA +0 50000 0 00106 02207 SUB +0 40200 0 01522 02210 TNZ -0 10000 0 02227 WHENEVER EDLIN(EDCT+1) .NE. BLANK, SETKIL.(EDLIN(EDCT+1)) 074 LM00107 02211 CLA +0 50000 0 00111 02212 ADD +0 40000 0 01501 02213 PAX +0 73400 1 00000 02214 CLA +0 50000 1 00663 02215 SUB +0 40200 0 00076 02216 TZE +0 10000 0 02226 02217 CLA +0 50000 0 00111 02220 ADD +0 40000 0 01501 02221 SUB +0 40200 0 02222 02222 TXH +3 00000 0 00663 02223 STA +0 62100 0 02225 02224 TSX +0 07400 4 00023 02225 TXH +3 00000 0 00000 OR WHENEVER CWD .E. $ BREAK$ .OR. CWD .E. $ BR$ 075 LM00111 02226 TRA +0 02000 0 03415 02227 CLA +0 50000 0 00106 02230 SUB +0 40200 0 01526 02231 TZE +0 10000 0 02235 02232 CLA +0 50000 0 00106 02233 SUB +0 40200 0 01515 02234 TNZ -0 10000 0 02260 WHENEVER EDLIN(EDCT) .E. RETURN 076 LM00112 02235 LXA +0 53400 1 00111 02236 CLA +0 50000 1 00663 02237 SUB +0 40200 0 01467 02240 TNZ -0 10000 0 02244 MCHNG = RETURN 077 LM00113 02241 CLA +0 50000 0 01467 02242 STO +0 60100 0 01454 OR WHENEVER EDLIN(EDCT+1) .NE. BLANK 078 LM00114 02243 TRA +0 02000 0 02257 02244 CLA +0 50000 0 00111 02245 ADD +0 40000 0 01501 02246 PAX +0 73400 1 00000 02247 CLA +0 50000 1 00663 02250 SUB +0 40200 0 00076 02251 TZE +0 10000 0 02257 MCHNG = EDLIN(EDCT+1) 079 LM00115 02252 CLA +0 50000 0 00111 02253 ADD +0 40000 0 01501 02254 PAX +0 73400 2 00000 02255 CLA +0 50000 2 00663 02256 STO +0 60100 0 01454 END OF CONDITIONAL 080 LM00116 OR WHENEVER CWD .E. $VERIFY$ .OR. CWD .E. $ V$ 081 LM00118 02257 TRA +0 02000 0 03415 02260 CLA +0 50000 0 00106 02261 SUB +0 40200 0 01551 02262 TZE +0 10000 0 02266 02263 CLA +0 50000 0 00106 02264 SUB +0 40200 0 01554 02265 TNZ -0 10000 0 02305 CWD = GET.(0) 082 LM00119 02266 TSX +0 07400 4 00031 02267 TXH +3 00000 0 01500 02270 STO +0 60100 0 00106 WHENEVER CWD .E. $ ON$ 083 LM00120 02271 CLA +0 50000 0 00106 02272 SUB +0 40200 0 01527 02273 TNZ -0 10000 0 02277 BRIEF = 0B 084 LM00121 02274 CLA +0 50000 0 01500 02275 STO +0 60100 0 00077 OR WHENEVER CWD .E. $ OFF$ 085 LM00122 02276 TRA +0 02000 0 02304 02277 CLA +0 50000 0 00106 02300 SUB +0 40200 0 01525 02301 TNZ -0 10000 0 02304 BRIEF = 1B 086 LM00123 02302 CLA +0 50000 0 01501 02303 STO +0 60100 0 00077 END OF CONDITIONAL 087 LM00124 OR WHENEVER CWD .E. $LOCATE$ .OR. CWD .E. $ L$ 088 LM00126 02304 TRA +0 02000 0 03415 02305 CLA +0 50000 0 00106 02306 SUB +0 40200 0 01541 02307 TZE +0 10000 0 02313 02310 CLA +0 50000 0 00106 02311 SUB +0 40200 0 01513 02312 TNZ -0 10000 0 02317 LOCATE = 1 089 LM00127 02313 CLA +0 50000 0 01501 02314 STO +0 60100 0 01453 TRANSFER TO FIND 090 LM00128 02315 TRA +0 02000 0 00045 OR WHENEVER CWD .E. $ FIND$ .OR. CWD .E. $ F$ 091 LM00130 02316 TRA +0 02000 0 03415 02317 CLA +0 50000 0 00106 02320 SUB +0 40200 0 01535 02321 TZE +0 10000 0 02325 02322 CLA +0 50000 0 00106 02323 SUB +0 40200 0 01521 02324 TNZ -0 10000 0 02510 LOCATE = 0 092 LM00131 02325 CLA +0 50000 0 01500 02326 STO +0 60100 0 01453 FIND WHENEVER EDCT+1 .GE. COUNT 093 LM00132 02327 CLA +0 50000 0 00111 02330 ADD +0 40000 0 01501 02331 SUB +0 40200 0 00105 02332 TZE +0 10000 0 02334 02333 TMI -0 12000 0 02341 COUNT = OCOUNT 094 LM00133 02334 CLA +0 50000 0 01457 02335 STO +0 60100 0 00105 EDCT = EDCT + 1 095 LM00134 02336 CLA +0 50000 0 00111 02337 ADD +0 40000 0 01501 02340 STO +0 60100 0 00111 END OF CONDITIONAL 096 LM00135 OCOUNT = COUNT 097 LM00136 02341 CLA +0 50000 0 00105 02342 STO +0 60100 0 01457 NTFND WRITE.(LINE, LENGTH) 098 LM00137 02343 TSX +0 07400 4 00027 02344 TXH +3 00000 0 01452 02345 TXH +3 00000 0 00700 WHENEVER .NOT. OK, CLSOUT. 099 LM00138 02346 ZET +0 52000 0 01460 02347 TRA +0 02000 0 02351 02350 TSX +0 07400 4 00030 LENGTH = READ.(LINE, BUFSIZ, EOF) 100 LM00139 02351 TSX +0 07400 4 00017 02352 TXH +3 00000 0 01452 02353 TXH +3 00000 0 00100 02354 TXH +3 00000 0 00044 02355 STO +0 60100 0 00700 THROUGH LOCSCN, FOR K=0, 1,K.G.LOCATE*(LENGTH-COUNT+EDCT) 101 LM00140 02356 CLA +0 50000 0 01500 02357 STO +0 60100 0 00677 02360 TRA +0 02000 0 02364 02361 CLA +0 50000 0 00677 02362 ADD +0 40000 0 01501 02363 STO +0 60100 0 00677 02364 CLA +0 50000 0 00700 02365 SUB +0 40200 0 00105 02366 ADD +0 40000 0 00111 02367 XCA +0 13100 0 00000 02370 MPY +0 20000 0 01453 02371 XCA +0 13100 0 00000 02372 CHS +0 76000 0 00002 02373 ADD +0 40000 0 00677 02374 TZE +0 10000 0 02376 02375 TPL +0 12000 0 02506 J = K 102 LM00141 02376 CLA +0 50000 0 00677 02377 STO +0 60100 0 00676 THROUGH LOOK, FOR I = EDCT+1, 1, I .GE. COUNT 103 LM00142 02400 CLA +0 50000 0 00111 02401 ADD +0 40000 0 01501 02402 STO +0 60100 0 00675 02403 TRA +0 02000 0 02407 02404 CLA +0 50000 0 00675 02405 ADD +0 40000 0 01501 02406 STO +0 60100 0 00675 02407 CLA +0 50000 0 00675 02410 SUB +0 40200 0 00105 02411 TZE +0 10000 0 02475 02412 TPL +0 12000 0 02475 J = J + 1 104 LM00143 02413 CLA +0 50000 0 00676 02414 ADD +0 40000 0 01501 02415 STO +0 60100 0 00676 TAGN WHENEVER LINE(J) .E. EDLIN(I), TRANSFER TO LOOK 105 LM00144 02416 LXA +0 53400 1 00676 02417 LXA +0 53400 2 00675 02420 CLA +0 50000 1 01452 02421 SUB +0 40200 2 00663 02422 TNZ -0 10000 0 02424 02423 TRA +0 02000 0 00053 WHENEVER (LINE(J).E. TAB) .AND. (EDLIN(I) .E. BLANK) 106 LM00145 1 , TRANSFER TO LOOK 106 LM00146 02424 LXA +0 53400 1 00675 02425 CLA +0 50000 1 00663 02426 SUB +0 40200 0 00076 02427 TNZ -0 10000 0 02435 02430 LXA +0 53400 1 00676 02431 CLA +0 50000 1 01452 02432 SUB +0 40200 0 01473 02433 TNZ -0 10000 0 02435 02434 TRA +0 02000 0 00053 WHENEVER EDLIN(I-1) .NE. BLANK .OR. I .E. EDCT + 1 107 LM00147 1 , TRANSFER TO LOCSCN 107 LM00148 02435 CLA +0 50000 0 00111 02436 ADD +0 40000 0 01501 02437 CHS +0 76000 0 00002 02440 ADD +0 40000 0 00675 02441 TZE +0 10000 0 02450 02442 CLA +0 50000 0 00675 02443 SUB +0 40200 0 01501 02444 PAX +0 73400 1 00000 02445 CLA +0 50000 1 00663 02446 SUB +0 40200 0 00076 02447 TZE +0 10000 0 02451 02450 TRA +0 02000 0 00052 WHENEVER LINE(J) .NE. BLANK .AND. LINE(J) .NE. TAB 108 LM00149 1 , TRANSFER TO LOCSCN 108 LM00150 02451 LXA +0 53400 1 00676 02452 CLA +0 50000 1 01452 02453 SUB +0 40200 0 01473 02454 TZE +0 10000 0 02461 02455 CLA +0 50000 1 01452 02456 SUB +0 40200 0 00076 02457 TZE +0 10000 0 02461 02460 TRA +0 02000 0 00052 J = J + 1 109 LM00151 02461 CLA +0 50000 0 00676 02462 ADD +0 40000 0 01501 02463 STO +0 60100 0 00676 TRANSFER TO TAGN 110 LM00152 02464 TRA +0 02000 0 00067 LOOK WHENEVER I .E. EDCT+1, FNDST = J 111 LM00153 02465 CLA +0 50000 0 00111 02466 ADD +0 40000 0 01501 02467 CHS +0 76000 0 00002 02470 ADD +0 40000 0 00675 02471 TNZ -0 10000 0 02474 02472 CLA +0 50000 0 00676 02473 STO +0 60100 0 00670 02474 TRA +0 02000 0 02404 FNDND = J 112 LM00154 02475 CLA +0 50000 0 00676 02476 STO +0 60100 0 00667 WHENEVER .NOT. BRIEF, PRNT.(FNDST, FNDND) 113 LM00155 02477 ZET +0 52000 0 00077 02500 TRA +0 02000 0 02504 02501 TSX +0 07400 4 00032 02502 TXH +3 00000 0 00670 02503 TXH +3 00000 0 00667 TRANSFER TO NXRQ 114 LM00156 02504 TRA +0 02000 0 00060 LOCSCN CONTINUE 115 LM00157 02505 TRA +0 02000 0 02361 TRANSFER TO NTFND 116 LM00158 02506 TRA +0 02000 0 00057 OR WHENEVER CWD .E. $ PRINT$ .OR. CWD .E. $ P$ 117 LM00160 02507 TRA +0 02000 0 03415 02510 CLA +0 50000 0 00106 02511 SUB +0 40200 0 01543 02512 TZE +0 10000 0 02516 02513 CLA +0 50000 0 00106 02514 SUB +0 40200 0 01517 02515 TNZ -0 10000 0 02564 NPRNT = BIN.(GET.(0)) 118 LM00161 02516 TSX +0 07400 4 00031 02517 TXH +3 00000 0 01500 02520 STO +0 60100 0 03710 02521 TSX +0 07400 4 00001 02522 TXH +3 00000 0 03710 02523 STO +0 60100 0 01455 PNTLP WHENEVER LENGTH .E. 0 119 LM00162 02524 CLA +0 50000 0 00700 02525 SUB +0 40200 0 01500 02526 TNZ -0 10000 0 02540 PRINT COMMENT $0N1O0 1C1U1R1R1E1N1T0 1L1I1N1E0.$ 120 LM00163 02527 TSX +0 07400 4 00015 02530 +0 00000 0 00006 02531 +0 04501 4 60060 02532 +0 12301 6 40151 02533 +0 15101 2 50145 02534 +0 16300 6 00143 02535 +0 13101 4 50125 02536 +0 03360 6 06060 OTHERWISE 121 LM00164 02537 TRA +0 02000 0 02543 TYPOUT.(LINE, LENGTH) 122 LM00165 02540 TSX +0 07400 4 00025 02541 TXH +3 00000 0 01452 02542 TXH +3 00000 0 00700 END OF CONDITIONAL 123 LM00166 NPRNT = NPRNT - 1 124 LM00167 02543 CLA +0 50000 0 01455 02544 SUB +0 40200 0 01501 02545 STO +0 60100 0 01455 WHENEVER NPRNT .G. 0 125 LM00168 02546 CLA +0 50000 0 01455 02547 SUB +0 40200 0 01500 02550 TZE +0 10000 0 02563 02551 TMI -0 12000 0 02563 WRITE.(LINE, LENGTH) 126 LM00169 02552 TSX +0 07400 4 00027 02553 TXH +3 00000 0 01452 02554 TXH +3 00000 0 00700 LENGTH = READ.(LINE, BUFSIZ, EOF) 127 LM00170 02555 TSX +0 07400 4 00017 02556 TXH +3 00000 0 01452 02557 TXH +3 00000 0 00100 02560 TXH +3 00000 0 00044 02561 STO +0 60100 0 00700 TRANSFER TO PNTLP 128 LM00171 02562 TRA +0 02000 0 00061 END OF CONDITIONAL 129 LM00172 OR WHENEVER CWD .E. $ TOP$ .OR. CWD .E. $ T$ 130 LM00174 02563 TRA +0 02000 0 03415 02564 CLA +0 50000 0 00106 02565 SUB +0 40200 0 01550 02566 TZE +0 10000 0 02572 02567 CLA +0 50000 0 00106 02570 SUB +0 40200 0 01552 02571 TNZ -0 10000 0 02602 TOPLP WRITE.(LINE, LENGTH) 131 LM00175 02572 TSX +0 07400 4 00027 02573 TXH +3 00000 0 01452 02574 TXH +3 00000 0 00700 WHENEVER OK, BOTTOM. 132 LM00176 02575 NZT -0 52000 0 01460 02576 TRA +0 02000 0 02600 02577 TSX +0 07400 4 00002 CLSOUT. 133 LM00177 02600 TSX +0 07400 4 00030 OR WHENEVER CWD .E. $CHANGE$ .OR. CWD .E. $ C$ 134 LM00179 02601 TRA +0 02000 0 03415 02602 CLA +0 50000 0 00106 02603 SUB +0 40200 0 01532 02604 TZE +0 10000 0 02610 02605 CLA +0 50000 0 00106 02606 SUB +0 40200 0 01510 02607 TNZ -0 10000 0 03172 EDCT = EDCT+1 135 LM00185 02610 CLA +0 50000 0 00111 02611 ADD +0 40000 0 01501 02612 STO +0 60100 0 00111 QUOTE = EDLIN(EDCT) 136 LM00186 02613 LXA +0 53400 2 00111 02614 CLA +0 50000 2 00663 02615 STO +0 60100 0 01464 STR1 = EDCT 137 LM00187 02616 CLA +0 50000 0 00111 02617 STO +0 60100 0 01471 QLOOP THROUGH QLOOP, FOR EDCT = EDCT+1, 1, 138 LM00188 1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) 138 LM00189 02620 CLA +0 50000 0 00111 02621 ADD +0 40000 0 01501 02622 STO +0 60100 0 00111 02623 TRA +0 02000 0 02627 02624 CLA +0 50000 0 00111 02625 ADD +0 40000 0 01501 02626 STO +0 60100 0 00111 02627 CLA +0 50000 0 00111 02630 SUB +0 40200 0 00105 02631 TZE +0 10000 0 02640 02632 TPL +0 12000 0 02640 02633 LXA +0 53400 1 00111 02634 CLA +0 50000 1 00663 02635 SUB +0 40200 0 01464 02636 TZE +0 10000 0 02640 02637 TRA +0 02000 0 02624 STR2 = EDCT 139 LM00190 02640 CLA +0 50000 0 00111 02641 STO +0 60100 0 01472 QLOOP1 THROUGH QLOOP1, FOR EDCT = EDCT+1, 1, 140 LM00191 1 (EDLIN(EDCT) .E. QUOTE) .OR. (EDCT .GE. COUNT) 140 LM00192 02642 CLA +0 50000 0 00111 02643 ADD +0 40000 0 01501 02644 STO +0 60100 0 00111 02645 TRA +0 02000 0 02651 02646 CLA +0 50000 0 00111 02647 ADD +0 40000 0 01501 02650 STO +0 60100 0 00111 02651 CLA +0 50000 0 00111 02652 SUB +0 40200 0 00105 02653 TZE +0 10000 0 02662 02654 TPL +0 12000 0 02662 02655 LXA +0 53400 1 00111 02656 CLA +0 50000 1 00663 02657 SUB +0 40200 0 01464 02660 TZE +0 10000 0 02662 02661 TRA +0 02000 0 02646 EST2 = EDCT 141 LM00193 02662 CLA +0 50000 0 00111 02663 STO +0 60100 0 00664 EDCT = EDCT + 1 142 LM00197 02664 CLA +0 50000 0 00111 02665 ADD +0 40000 0 01501 02666 STO +0 60100 0 00111 TEM = 1 143 LM00198 02667 CLA +0 50000 0 01501 02670 STO +0 60100 0 01474 GLOBAL = 0B 144 LM00199 02671 CLA +0 50000 0 01500 02672 STO +0 60100 0 00672 ARGLP CWD = GET.(0) 145 LM00200 02673 TSX +0 07400 4 00031 02674 TXH +3 00000 0 01500 02675 STO +0 60100 0 00106 WHENEVER CWD .E. $ $ 146 LM00201 02676 CLA +0 50000 0 00106 02677 SUB +0 40200 0 01546 02700 TNZ -0 10000 0 02703 TRANSFER TO SHIFT 147 LM00202 02701 TRA +0 02000 0 00063 OR WHENEVER CWD .E. $ G$ 148 LM00203 02702 TRA +0 02000 0 02721 02703 CLA +0 50000 0 00106 02704 SUB +0 40200 0 01536 02705 TNZ -0 10000 0 02716 WHENEVER STR2 .NE. STR1+1, GLOBAL = 1B 149 LM00204 02706 CLA +0 50000 0 01471 02707 ADD +0 40000 0 01501 02710 CHS +0 76000 0 00002 02711 ADD +0 40000 0 01472 02712 TZE +0 10000 0 02715 02713 CLA +0 50000 0 01501 02714 STO +0 60100 0 00672 OTHERWISE 150 LM00205 02715 TRA +0 02000 0 02721 TEM = BIN.(CWD) 151 LM00206 02716 TSX +0 07400 4 00001 02717 TXH +3 00000 0 00106 02720 STO +0 60100 0 01474 END OF CONDITIONAL 152 LM00207 TRANSFER TO ARGLP 153 LM00208 02721 TRA +0 02000 0 00035 SHIFT THROUGH MVDWN, FOR I = LENGTH, -1, I .L. 1 154 LM00212 02722 CLA +0 50000 0 00700 02723 STO +0 60100 0 00675 02724 TRA +0 02000 0 02730 02725 CLS +0 50200 0 01501 02726 ADD +0 40000 0 00675 02727 STO +0 60100 0 00675 02730 CLA +0 50000 0 00675 02731 SUB +0 40200 0 01501 02732 TZE +0 10000 0 02734 02733 TMI -0 12000 0 02744 MVDWN LINE(BUFSIZ+I-LENGTH) = LINE(I) 155 LM00213 02734 CLA +0 50000 0 00100 02735 ADD +0 40000 0 00675 02736 SUB +0 40200 0 00700 02737 PAX +0 73400 1 00000 02740 LXA +0 53400 2 00675 02741 CLA +0 50000 2 01452 02742 STO +0 60100 1 01452 02743 TRA +0 02000 0 02725 DOWN = BUFSIZ-LENGTH+1 156 LM00214 02744 CLA +0 50000 0 00100 02745 SUB +0 40200 0 00700 02746 ADD +0 40000 0 01501 02747 STO +0 60100 0 00110 UP = 0 157 LM00215 02750 CLA +0 50000 0 01500 02751 STO +0 60100 0 01476 CHNG = 0B 158 LM00216 02752 CLA +0 50000 0 01500 02753 STO +0 60100 0 00102 CHST = LENGTH + 1 159 LM00217 02754 CLA +0 50000 0 00700 02755 ADD +0 40000 0 01501 02756 STO +0 60100 0 00103 CHEND = LENGTH 160 LM00218 02757 CLA +0 50000 0 00700 02760 STO +0 60100 0 00101 SRCHLP UP = UP + 1 161 LM00222 02761 CLA +0 50000 0 01476 02762 ADD +0 40000 0 01501 02763 STO +0 60100 0 01476 SRTST WHENEVER DOWN .G. BUFSIZ, TRANSFER TO GIVUP 162 LM00223 02764 CLA +0 50000 0 00110 02765 SUB +0 40200 0 00100 02766 TZE +0 10000 0 02771 02767 TMI -0 12000 0 02771 02770 TRA +0 02000 0 00046 J = DOWN 163 LM00224 02771 CLA +0 50000 0 00110 02772 STO +0 60100 0 00676 THROUGH COMPAR, FOR I = STR1+1, 1, I .GE. STR2 164 LM00225 02773 CLA +0 50000 0 01471 02774 ADD +0 40000 0 01501 02775 STO +0 60100 0 00675 02776 TRA +0 02000 0 03002 02777 CLA +0 50000 0 00675 03000 ADD +0 40000 0 01501 03001 STO +0 60100 0 00675 03002 CLA +0 50000 0 00675 03003 SUB +0 40200 0 01472 03004 TZE +0 10000 0 03025 03005 TPL +0 12000 0 03025 WHENEVER J .GE. BUFSIZ, TRANSFER TO GIVUP 165 LM00226 03006 CLA +0 50000 0 00676 03007 SUB +0 40200 0 00100 03010 TZE +0 10000 0 03012 03011 TMI -0 12000 0 03013 03012 TRA +0 02000 0 00046 WHENEVER EDLIN(I) .NE. LINE(J), TRANSFER TO NOCOMP 166 LM00227 03013 LXA +0 53400 1 00675 03014 LXA +0 53400 2 00676 03015 CLA +0 50000 1 00663 03016 SUB +0 40200 2 01452 03017 TZE +0 10000 0 03021 03020 TRA +0 02000 0 00055 COMPAR J = J + 1 167 LM00228 03021 CLA +0 50000 0 00676 03022 ADD +0 40000 0 01501 03023 STO +0 60100 0 00676 03024 TRA +0 02000 0 02777 TRANSFER TO STFND 168 LM00229 03025 TRA +0 02000 0 00066 NOCOMP LINE(UP) = LINE(DOWN) 169 LM00231 03026 LXA +0 53400 1 01476 03027 LXA +0 53400 2 00110 03030 CLA +0 50000 2 01452 03031 STO +0 60100 1 01452 DOWN = DOWN + 1 170 LM00232 03032 CLA +0 50000 0 00110 03033 ADD +0 40000 0 01501 03034 STO +0 60100 0 00110 TRANSFER TO SRCHLP 171 LM00233 03035 TRA +0 02000 0 00064 STFND CHNG = 1B 172 LM00237 03036 CLA +0 50000 0 01501 03037 STO +0 60100 0 00102 DOWN = DOWN + (STR2-STR1-1) 173 LM00238 03040 CLA +0 50000 0 01472 03041 SUB +0 40200 0 01471 03042 SUB +0 40200 0 01501 03043 ADD +0 40000 0 00110 03044 STO +0 60100 0 00110 CHST = UP 174 LM00239 03045 CLA +0 50000 0 01476 03046 STO +0 60100 0 00103 THROUGH REPLAC, FOR I = STR2 + 1, 1, I .GE. EST2 175 LM00240 03047 CLA +0 50000 0 01472 03050 ADD +0 40000 0 01501 03051 STO +0 60100 0 00675 03052 TRA +0 02000 0 03056 03053 CLA +0 50000 0 00675 03054 ADD +0 40000 0 01501 03055 STO +0 60100 0 00675 03056 CLA +0 50000 0 00675 03057 SUB +0 40200 0 00664 03060 TZE +0 10000 0 03077 03061 TPL +0 12000 0 03077 LINE(UP) = EDLIN(I) 176 LM00241 03062 LXA +0 53400 1 01476 03063 LXA +0 53400 2 00675 03064 CLA +0 50000 2 00663 03065 STO +0 60100 1 01452 UP = UP + 1 177 LM00242 03066 CLA +0 50000 0 01476 03067 ADD +0 40000 0 01501 03070 STO +0 60100 0 01476 REPLAC WHENEVER UP .G. DOWN, TRANSFER TO GIVUP 178 LM00243 03071 CLA +0 50000 0 01476 03072 SUB +0 40200 0 00110 03073 TZE +0 10000 0 03076 03074 TMI -0 12000 0 03076 03075 TRA +0 02000 0 00046 03076 TRA +0 02000 0 03053 CHEND = UP - 1 179 LM00244 03077 CLA +0 50000 0 01476 03100 SUB +0 40200 0 01501 03101 STO +0 60100 0 00101 WHENEVER GLOBAL, TRANSFER TO SRTST 180 LM00245 03102 NZT -0 52000 0 00672 03103 TRA +0 02000 0 03105 03104 TRA +0 02000 0 00065 GIVUP THROUGH FILOUT, FOR UP = UP, 1, DOWN .G. BUFSIZ 181 LM00249 03105 CLA +0 50000 0 01476 03106 STO +0 60100 0 01476 03107 TRA +0 02000 0 03113 03110 CLA +0 50000 0 01476 03111 ADD +0 40000 0 01501 03112 STO +0 60100 0 01476 03113 CLA +0 50000 0 00110 03114 SUB +0 40200 0 00100 03115 TZE +0 10000 0 03117 03116 TPL +0 12000 0 03127 LINE(UP) = LINE(DOWN) 182 LM00250 03117 LXA +0 53400 1 01476 03120 LXA +0 53400 2 00110 03121 CLA +0 50000 2 01452 03122 STO +0 60100 1 01452 FILOUT DOWN = DOWN + 1 183 LM00251 03123 CLA +0 50000 0 00110 03124 ADD +0 40000 0 01501 03125 STO +0 60100 0 00110 03126 TRA +0 02000 0 03110 LENGTH = UP - 1 184 LM00252 03127 CLA +0 50000 0 01476 03130 SUB +0 40200 0 01501 03131 STO +0 60100 0 00700 TEM = TEM - 1 185 LM00253 03132 CLA +0 50000 0 01474 03133 SUB +0 40200 0 01501 03134 STO +0 60100 0 01474 WHENEVER .NOT. BRIEF .AND. (TEM .G. 0 .THEN. CHNG) 186 LM00254 1 , PRNT.(CHST, CHEND) 186 LM00255 03135 ZET +0 52000 0 00102 03136 TRA +0 02000 0 03143 03137 CLA +0 50000 0 01474 03140 SUB +0 40200 0 01500 03141 TZE +0 10000 0 03143 03142 TPL +0 12000 0 03150 03143 ZET +0 52000 0 00077 03144 TRA +0 02000 0 03150 03145 TSX +0 07400 4 00032 03146 TXH +3 00000 0 00103 03147 TXH +3 00000 0 00101 CANON.(LINE, LENGTH, BUFSIZ) 187 LM00256 03150 TSX +0 07400 4 00003 03151 TXH +3 00000 0 01452 03152 TXH +3 00000 0 00700 03153 TXH +3 00000 0 00100 WHENEVER TEM .G. 0 188 LM00257 03154 CLA +0 50000 0 01474 03155 SUB +0 40200 0 01500 03156 TZE +0 10000 0 03171 03157 TMI -0 12000 0 03171 WRITE.(LINE, LENGTH) 189 LM00258 03160 TSX +0 07400 4 00027 03161 TXH +3 00000 0 01452 03162 TXH +3 00000 0 00700 LENGTH = READ.(LINE, BUFSIZ, EOF) 190 LM00259 03163 TSX +0 07400 4 00017 03164 TXH +3 00000 0 01452 03165 TXH +3 00000 0 00100 03166 TXH +3 00000 0 00044 03167 STO +0 60100 0 00700 TRANSFER TO SHIFT 191 LM00260 03170 TRA +0 02000 0 00063 END OF CONDITIONAL 192 LM00261 OR WHENEVER CWD .E. $ SPLIT$ .OR. CWD .E. $ S$ 193 LM00265 03171 TRA +0 02000 0 03415 03172 CLA +0 50000 0 00106 03173 SUB +0 40200 0 01547 03174 TZE +0 10000 0 03200 03175 CLA +0 50000 0 00106 03176 SUB +0 40200 0 01553 03177 TNZ -0 10000 0 03261 TOPNAM = GET.(0) 194 LM00266 03200 TSX +0 07400 4 00031 03201 TXH +3 00000 0 01500 03202 STO +0 60100 0 01475 WHENEVER TOPNAM .E. $ $, TRANSFER TO NONAME 195 LM00267 03203 CLA +0 50000 0 01475 03204 SUB +0 40200 0 01546 03205 TNZ -0 10000 0 03207 03206 TRA +0 02000 0 00056 WHENEVER TOPNAM .E. OLDNAM .AND. FSTPAS 196 LM00268 03207 NZT -0 52000 0 00671 03210 TRA +0 02000 0 03227 03211 CLA +0 50000 0 01475 03212 SUB +0 40200 0 01461 03213 TNZ -0 10000 0 03227 NEWNM PRINT COMMENT $0P1L1E1A1S1E0 1U1S1E0 1A1N1O1T1H1E1R0 1N1A 197 LM00269 11M1E0.$ 197 LM00270 03214 TSX +0 07400 4 00015 03215 +0 00000 0 00010 03216 +0 04701 4 30125 03217 +0 12101 6 20125 03220 +0 06001 6 40162 03221 +0 12500 6 00121 03222 +0 14501 4 60163 03223 +0 13001 2 50151 03224 +0 06001 4 50121 03225 +0 14401 2 50033 TRANSFER TO NXRQ 198 LM00271 03226 TRA +0 02000 0 00060 END OF CONDITIONAL 199 LM00272 SECNAM = GET.(0) 200 LM00273 03227 TSX +0 07400 4 00031 03230 TXH +3 00000 0 01500 03231 STO +0 60100 0 01470 WHENEVER SECNAM .E. $ $, SECNAM = OLDSEC 201 LM00274 03232 CLA +0 50000 0 01470 03233 SUB +0 40200 0 01546 03234 TNZ -0 10000 0 03237 03235 CLA +0 50000 0 01462 03236 STO +0 60100 0 01470 CLRNAM.(TOPNAM, SECNAM, NEWNM, 1B) 202 LM00275 03237 TSX +0 07400 4 00006 03240 TXH +3 00000 0 01475 03241 TXH +3 00000 0 01470 03242 TXH +3 00000 0 00054 03243 TXH +3 00000 0 01501 CLOSEW. 203 LM00276 03244 TSX +0 07400 4 00005 RENAME.(IN, FI, TOPNAM, SECNAM) 204 LM00277 03245 TSX +0 07400 4 00020 03246 TXH +3 00000 0 00674 03247 TXH +3 00000 0 00666 03250 TXH +3 00000 0 01475 03251 TXH +3 00000 0 01470 ASSIGN.(IN, FI) 205 LM00278 03252 TSX +0 07400 4 00000 03253 TXH +3 00000 0 00674 03254 TXH +3 00000 0 00666 OLDNAM = FENCE 206 LM00279 03255 CLA +0 50000 0 00665 03256 STO +0 60100 0 01461 TRANSFER TO TOPLP 207 LM00280 03257 TRA +0 02000 0 00070 OR WHENEVER CWD .E. $ QUIT$ .OR. CWD .E. $ Q$ 208 LM00282 03260 TRA +0 02000 0 03415 03261 CLA +0 50000 0 00106 03262 SUB +0 40200 0 01544 03263 TZE +0 10000 0 03267 03264 CLA +0 50000 0 00106 03265 SUB +0 40200 0 01524 03266 TNZ -0 10000 0 03303 ENDRD. 209 LM00283 03267 TSX +0 07400 4 00011 CLOSEW. 210 LM00284 03270 TSX +0 07400 4 00005 DELFIL.(IN1, FI, DLQ1) 211 LM00285 03271 TSX +0 07400 4 00010 03272 TXH +3 00000 0 00673 03273 TXH +3 00000 0 00666 03274 TXH +3 00000 0 00041 DLQ1 DELFIL.(IN, FI, DLQ2) 212 LM00286 03275 TSX +0 07400 4 00010 03276 TXH +3 00000 0 00674 03277 TXH +3 00000 0 00666 03300 TXH +3 00000 0 00042 DLQ2 TRANSFER TO CHN 213 LM00287 03301 TRA +0 02000 0 00036 OR WHENEVER CWD .E. $ FILE$ 214 LM00289 03302 TRA +0 02000 0 03415 03303 CLA +0 50000 0 00106 03304 SUB +0 40200 0 01520 03305 TNZ -0 10000 0 03403 PRINAM = GET.(0) 215 LM00290 03306 TSX +0 07400 4 00031 03307 TXH +3 00000 0 01500 03310 STO +0 60100 0 01463 CLRSW = 1B 216 LM00291 03311 CLA +0 50000 0 01501 03312 STO +0 60100 0 00104 WHENEVER PRINAM .E. $ $ 217 LM00292 03313 CLA +0 50000 0 01463 03314 SUB +0 40200 0 01546 03315 TNZ -0 10000 0 03325 PRINAM = OLDNAM 218 LM00293 03316 CLA +0 50000 0 01461 03317 STO +0 60100 0 01463 SECNAM = OLDSEC 219 LM00294 03320 CLA +0 50000 0 01462 03321 STO +0 60100 0 01470 CLRSW = 0B 220 LM00295 03322 CLA +0 50000 0 01500 03323 STO +0 60100 0 00104 OTHERWISE 221 LM00296 03324 TRA +0 02000 0 03335 SECNAM = GET.(0) 222 LM00297 03325 TSX +0 07400 4 00031 03326 TXH +3 00000 0 01500 03327 STO +0 60100 0 01470 WHENEVER SECNAM .E. $ $ 223 LM00298 03330 CLA +0 50000 0 01470 03331 SUB +0 40200 0 01546 03332 TNZ -0 10000 0 03335 SECNAM = OLDSEC 224 LM00299 03333 CLA +0 50000 0 01462 03334 STO +0 60100 0 01470 END OF CONDITIONAL 225 LM00300 END OF CONDITIONAL 226 LM00301 WHENEVER PRINAM .E. FENCE 227 LM00302 03335 CLA +0 50000 0 01463 03336 SUB +0 40200 0 00665 03337 TNZ -0 10000 0 03352 NONAME PRINT COMMENT $0N1O0 1F1I1L1E0 1N1A1M1E0 1G1I1V1E1N0.$ 228 LM00303 03340 TSX +0 07400 4 00015 03341 +0 00000 0 00007 03342 +0 04501 4 60060 03343 +0 12601 3 10143 03344 +0 12500 6 00145 03345 +0 12101 4 40125 03346 +0 06001 2 70131 03347 +0 16501 2 50145 03350 +0 03360 6 06060 TRANSFER TO NXRQ 229 LM00304 03351 TRA +0 02000 0 00060 END OF CONDITIONAL 230 LM00305 WRITE.(LINE, LENGTH) 231 LM00306 03352 TSX +0 07400 4 00027 03353 TXH +3 00000 0 01452 03354 TXH +3 00000 0 00700 LENGTH = 0 232 LM00307 03355 CLA +0 50000 0 01500 03356 STO +0 60100 0 00700 WHENEVER OK, BOTTOM. 233 LM00308 03357 NZT -0 52000 0 01460 03360 TRA +0 02000 0 03362 03361 TSX +0 07400 4 00002 CLRNAM.(PRINAM, SECNAM, NEWNM, CLRSW) 234 LM00309 03362 TSX +0 07400 4 00006 03363 TXH +3 00000 0 01463 03364 TXH +3 00000 0 01470 03365 TXH +3 00000 0 00054 03366 TXH +3 00000 0 00104 CLOSEW. 235 LM00310 03367 TSX +0 07400 4 00005 DELFIL.(IN1, FI, DL1) 236 LM00311 03370 TSX +0 07400 4 00010 03371 TXH +3 00000 0 00673 03372 TXH +3 00000 0 00666 03373 TXH +3 00000 0 00037 DL1 RENAME.(IN, FI, PRINAM, SECNAM) 237 LM00312 03374 TSX +0 07400 4 00020 03375 TXH +3 00000 0 00674 03376 TXH +3 00000 0 00666 03377 TXH +3 00000 0 01463 03400 TXH +3 00000 0 01470 CHN EXIT. 238 LM00313 03401 TSX +0 07400 4 00012 OTHERWISE 239 LM00315 03402 TRA +0 02000 0 03415 PRINT COMMENT $0N1O1T0 1A0 1R1E1Q1U1E1S1T0:$ 240 LM00316 03403 TSX +0 07400 4 00015 03404 +0 00000 0 00005 03405 +0 04501 4 60163 03406 +0 06001 2 10060 03407 +0 15101 2 50150 03410 +0 16401 2 50162 03411 +0 16300 3 56060 TYPOUT.(EDLIN, COUNT) 241 LM00317 03412 TSX +0 07400 4 00025 03413 TXH +3 00000 0 00663 03414 TXH +3 00000 0 00105 END OF CONDITIONAL 242 LM00319 TRANSFER TO NXRQ 243 LM00320 03415 TRA +0 02000 0 00060 EOF PRINTCOMMENT $0E1N1D0 1O1F0 1F1I1L1E0 1R1E1A1C1H1E1D0 1B1Y0:$ 244 LM00322 03416 TSX +0 07400 4 00015 03417 +0 00000 0 00010 03420 +0 02501 4 50124 03421 +0 06001 4 60126 03422 +0 06001 2 60131 03423 +0 14301 2 50060 03424 +0 15101 2 50121 03425 +0 12301 3 00125 03426 +0 12400 6 00122 03427 +0 17000 3 56060 TYPOUT.(EDLIN, COUNT) 245 LM00323 03430 TSX +0 07400 4 00025 03431 TXH +3 00000 0 00663 03432 TXH +3 00000 0 00105 LENGTH = 0 246 LM00324 03433 CLA +0 50000 0 01500 03434 STO +0 60100 0 00700 OK = 0B 247 LM00325 03435 CLA +0 50000 0 01500 03436 STO +0 60100 0 01460 TRANSFER TO NXRQ 248 LM00326 03437 TRA +0 02000 0 00060 INTERNAL FUNCTION 249 LM00334 03440 TRA +0 02000 0 03510 ENTRY TO CLSOUT. 250 LM00335 03441 TRA +0 02000 0 03444 00030 TTR +0 02100 0 03442 03442 SXA +0 63400 2 03477 03443 TSX +0 07400 2 03477 CLOSEW. 251 LM00336 03444 TSX +0 07400 4 00005 DELFIL.(IN1, FI, DL2) 252 LM00337 03445 TSX +0 07400 4 00010 03446 TXH +3 00000 0 00673 03447 TXH +3 00000 0 00666 03450 TXH +3 00000 0 00040 DL2 CHFILE.(IN, FI, -0, IN1) 253 LM00338 03451 CLS +0 50200 0 01500 03452 STO +0 60100 0 03507 03453 TSX +0 07400 4 00004 03454 TXH +3 00000 0 00674 03455 TXH +3 00000 0 00666 03456 TXH +3 00000 0 03507 03457 TXH +3 00000 0 00673 SEEK.(IN1, FI, CHN) 254 LM00339 03460 TSX +0 07400 4 00021 03461 TXH +3 00000 0 00673 03462 TXH +3 00000 0 00666 03463 TXH +3 00000 0 00036 ASSIGN.(IN, FI) 255 LM00340 03464 TSX +0 07400 4 00000 03465 TXH +3 00000 0 00674 03466 TXH +3 00000 0 00666 OK = 1B 256 LM00341 03467 CLA +0 50000 0 01501 03470 STO +0 60100 0 01460 LENGTH = 0 257 LM00342 03471 CLA +0 50000 0 01500 03472 STO +0 60100 0 00700 FSTPAS = 0B 258 LM00343 03473 CLA +0 50000 0 01500 03474 STO +0 60100 0 00671 FUNCTION RETURN 259 LM00344 03475 TRA +0 02000 0 03503 END OF FUNCTION 260 LM00345 03476 TSX +0 07400 4 00012 03477 TXH +3 00000 0 00000 03500 SXD -0 63400 1 03477 03501 SXA +0 63400 4 03503 03502 TRA +0 02000 2 00001 03503 AXT +0 77400 4 00000 03504 LXA +0 53400 2 03477 03505 LXD -0 53400 1 03477 03506 TRA +0 02000 4 00001 INTERNAL FUNCTION 261 LM00349 03510 TRA +0 02000 0 03616 ENTRY TO GET. 262 LM00350 03511 TRA +0 02000 0 03514 00031 TTR +0 02100 0 03512 03512 SXA +0 63400 2 03605 03513 TSX +0 07400 2 03605 WORD = $ $ 263 LM00351 03514 CLA +0 50000 0 01546 03515 STO +0 60100 0 01477 SCANLP THROUGH SCANLP, FOR EDCT = EDCT, 1, 264 LM00352 1 (EDLIN(EDCT+1).NE.BLANK) .OR. (EDCT+1.GE.COUNT) 264 LM00353 03516 CLA +0 50000 0 00111 03517 STO +0 60100 0 00111 03520 TRA +0 02000 0 03524 03521 CLA +0 50000 0 00111 03522 ADD +0 40000 0 01501 03523 STO +0 60100 0 00111 03524 CLA +0 50000 0 00111 03525 ADD +0 40000 0 01501 03526 SUB +0 40200 0 00105 03527 TZE +0 10000 0 03540 03530 TPL +0 12000 0 03540 03531 CLA +0 50000 0 00111 03532 ADD +0 40000 0 01501 03533 PAX +0 73400 1 00000 03534 CLA +0 50000 1 00663 03535 SUB +0 40200 0 00076 03536 TNZ -0 10000 0 03540 03537 TRA +0 02000 0 03521 GTLP EDCT = EDCT + 1 265 LM00354 03540 CLA +0 50000 0 00111 03541 ADD +0 40000 0 01501 03542 STO +0 60100 0 00111 WHENEVER EDLIN(EDCT) .E. BLANK, FUNCTION RETURN WORD 266 LM00355 03543 LXA +0 53400 1 00111 03544 CLA +0 50000 1 00663 03545 SUB +0 40200 0 00076 03546 TNZ -0 10000 0 03551 03547 CLA +0 50000 0 01477 03550 TRA +0 02000 0 03611 WHENEVER EDLIN(EDCT) .E. TAB .OR. EDCT .GE. COUNT 267 LM00356 03551 CLA +0 50000 0 00111 03552 SUB +0 40200 0 00105 03553 TZE +0 10000 0 03561 03554 TPL +0 12000 0 03561 03555 LXA +0 53400 1 00111 03556 CLA +0 50000 1 00663 03557 SUB +0 40200 0 01473 03560 TNZ -0 10000 0 03566 EDCT = EDCT - 1 268 LM00357 03561 CLA +0 50000 0 00111 03562 SUB +0 40200 0 01501 03563 STO +0 60100 0 00111 FUNCTION RETURN WORD 269 LM00358 03564 CLA +0 50000 0 01477 03565 TRA +0 02000 0 03611 END OF CONDITIONAL 270 LM00359 WORD = (WORD .LS. 6) .V. HOL.(EDLIN(EDCT)) 271 LM00360 03566 CLA +0 50000 0 00111 03567 SUB +0 40200 0 03570 03570 TXH +3 00000 0 00663 03571 STA +0 62100 0 03573 03572 TSX +0 07400 4 00014 03573 TXH +3 00000 0 00000 03574 STO +0 60100 0 03615 03575 CAL -0 50000 0 01504 03576 STA +0 62100 0 03600 03577 CAL -0 50000 0 01477 03600 ALS +0 76700 0 00000 03601 ORA -0 50100 0 03615 03602 SLW +0 60200 0 01477 TRANSFER TO GTLP 272 LM00361 03603 TRA +0 02000 0 00047 END OF FUNCTION 273 LM00362 03604 TSX +0 07400 4 00012 03605 TXH +3 00000 0 00000 03606 SXD -0 63400 1 03605 03607 SXA +0 63400 4 03611 03610 TRA +0 02000 2 00001 03611 AXT +0 77400 4 00000 03612 LXA +0 53400 2 03605 03613 LXD -0 53400 1 03605 03614 TRA +0 02000 4 00001 INTERNAL FUNCTION(STAR, EN) 274 LM00366 03616 TRA +0 02000 0 03707 ENTRY TO PRNT. 275 LM00367 03617 TRA +0 02000 0 03622 00032 TTR +0 02100 0 03620 03620 SXA +0 63400 2 03666 03621 TSX +0 07400 2 03666 TYPOUT.(LINE, STAR-1) 276 LM00368 03622 CLA +0 50000 0 00024 03623 SUB +0 40200 0 01501 03624 STO +0 60100 0 03706 03625 TSX +0 07400 4 00025 03626 TXH +3 00000 0 01452 03627 TXH +3 00000 0 03706 TYPOUT.(REDS, 1) 277 LM00369 03630 TSX +0 07400 4 00025 03631 TXH +3 00000 0 01466 03632 TXH +3 00000 0 01501 TYPOUT.(LINE(STAR-1), EN-STAR+1) 278 LM00370 03633 CLA +0 50000 0 00024 03634 SUB +0 40200 0 00024 03635 ADD +0 40000 0 01501 03636 STO +0 60100 0 03706 03637 CLA +0 50000 0 00024 03640 SUB +0 40200 0 01501 03641 SUB +0 40200 0 03642 03642 TXH +3 00000 0 01452 03643 STA +0 62100 0 03645 03644 TSX +0 07400 4 00025 03645 TXH +3 00000 0 00000 03646 TXH +3 00000 0 03706 TYPOUT.(BLACKS, 1) 279 LM00371 03647 TSX +0 07400 4 00025 03650 TXH +3 00000 0 00075 03651 TXH +3 00000 0 01501 TYPOUT.(LINE(EN), LENGTH-EN) 280 LM00372 03652 CLA +0 50000 0 00700 03653 SUB +0 40200 0 00024 03654 STO +0 60100 0 03706 03655 CLA +0 50000 0 00024 03656 SUB +0 40200 0 03657 03657 TXH +3 00000 0 01452 03660 STA +0 62100 0 03662 03661 TSX +0 07400 4 00025 03662 TXH +3 00000 0 00000 03663 TXH +3 00000 0 03706 FUNCTION RETURN 281 LM00373 03664 TRA +0 02000 0 03702 END OF FUNCTION 282 LM00374 03665 TSX +0 07400 4 00012 03666 TXH +3 00000 0 00000 03667 SXD -0 63400 1 03666 03670 SXA +0 63400 4 03702 03671 CLA +0 50000 4 00001 03672 STA +0 62100 0 03622 03673 STA +0 62100 0 03634 03674 STA +0 62100 0 03637 03675 CLA +0 50000 4 00002 03676 STA +0 62100 0 03633 03677 STA +0 62100 0 03653 03700 STA +0 62100 0 03655 03701 TRA +0 02000 2 00001 03702 AXT +0 77400 4 00000 03703 LXA +0 53400 2 03666 03704 LXD -0 53400 1 03666 03705 TRA +0 02000 4 00001 END OF PROGRAM 283 LM00376 03707 TSX +0 07400 4 00012 1 MAD PROGRAM LISTING ... ... ... FILE TYPVAL MAD 02/08/68 1747.6 - .. ROUTINE TO RETURN INITIAL VALUES TO EDITOR FOR LM00001 .. EDITING ASCII FILES. LM00002 LM00003 EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) *001 LM00004 NORMAL MODE IS INTEGER *002 LM00005 ENTRY TO GETVAL. *003 LM00006 BLANK = 060K *004 LM00007 TAB = 072K *005 LM00008 DEFALT = $(MEMO)$ *006 LM00009 MCHNG = 055K *007 LM00010 REDS = 133K *008 LM00011 BLACKS = 132K *009 LM00012 FUNCTION RETURN *010 LM00013 END OF FUNCTION *011 LM00014 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00061 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00012 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES GETVAL 00013 0 0FUNCTION DICTIONARY EXIT 00000 1 0ABSOLUTE CONSTANTS 00006 +000000000132 00007 +000000000133 00003 +000000000055 00011 -344425444634 00005 +000000000072 00004 +000000000060 00002 +000000000001 00010 +233000000000 0PROGRAM EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) 001 LM00004 NORMAL MODE IS INTEGER 002 LM00005 ENTRY TO GETVAL. 003 LM00006 00012 TRA +0 02000 0 00015 00013 SXA +0 63400 2 00033 00014 TSX +0 07400 2 00033 BLANK = 060K 004 LM00007 00015 CLA +0 50000 0 00004 00016 STO +0 60100 0 00024 TAB = 072K 005 LM00008 00017 CLA +0 50000 0 00005 00020 STO +0 60100 0 00024 DEFALT = $(MEMO)$ 006 LM00009 00021 CLA +0 50000 0 00011 00022 STO +0 60100 0 00024 MCHNG = 055K 007 LM00010 00023 CLA +0 50000 0 00003 00024 STO +0 60100 0 00024 REDS = 133K 008 LM00011 00025 CLA +0 50000 0 00007 00026 STO +0 60100 0 00024 BLACKS = 132K 009 LM00012 00027 CLA +0 50000 0 00006 00030 STO +0 60100 0 00024 FUNCTION RETURN 010 LM00013 00031 TRA +0 02000 0 00053 END OF FUNCTION 011 LM00014 00032 TSX +0 07400 4 00000 00033 TXH +3 00000 0 00000 00034 SXD -0 63400 1 00033 00035 SXA +0 63400 4 00053 00036 CLA +0 50000 4 00001 00037 STA +0 62100 0 00016 00040 CLA +0 50000 4 00002 00041 STA +0 62100 0 00020 00042 CLA +0 50000 4 00003 00043 STA +0 62100 0 00022 00044 CLA +0 50000 4 00004 00045 STA +0 62100 0 00024 00046 CLA +0 50000 4 00005 00047 STA +0 62100 0 00026 00050 CLA +0 50000 4 00006 00051 STA +0 62100 0 00030 00052 TRA +0 02000 2 00001 00053 AXT +0 77400 4 00000 00054 LXA +0 53400 2 00033 00055 LXD -0 53400 1 00033 00056 TRA +0 02000 4 00001 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 1 * INPUT AND OUTPUT IS LINE-MARKED FORMAT. * J. H. SALTZER, JANUARY, 1965 * 00010 ENTRY WRITE WRITE ONE LINE OUT. 00071 ENTRY READ TO READ NEXT LINE. 00167 ENTRY BOTTOM TO RAPIDLY MOVE TO BOTTOM OF FILE. 00062 ENTRY CLOSEW CLOSE OUT WRITE FILE. * EXTERN WRFLX,WRWORD,RDWORD,SETBCD,SETFUL,FILE * TRANSFER VECTOR 00000 665126436760 WRFLX 00001 665166465124 WRWORD 00002 512466465124 RDWORD 00003 622563222324 SETBCD 00004 622563266443 SETFUL 00005 263143256060 FILE LINKAGE DIRECTOR 00006 000000000000 00007 665131632560 00014 NBITS EQU 12 COULD BE 6, 9, 12, OR 18. 00003 NCHRS EQU 36/NBITS NO. OF CHARACTERS PER WORD ON 7094. * * WRITE.(LINE, LENGTH) * 00010 0634 00 4 00056 WRITE SXA WX4,4 SAVE LINKAGE AND REGISTERS. 00011 0634 00 2 00057 SXA WX2,2 .. 00012 0634 00 1 00060 SXA WX1,1 .. 00013 -0500 00 4 00001 CAL 1,4 GET LINE ADDRESS. 00014 0621 00 0 00035 STA INLP SET UP LOCATION OF INPUT. 00015 0500 60 4 00002 CLA* 2,4 GET CHARACTER COUNT. 00016 0100 00 4 00003 TZE 3,4 DON'T WORK ON ZERO COUNT. 00017 0402 00 0 00200 SUB =1 DISCARD CARRIAGE RETURN AT END. 00020 0100 00 4 00003 TZE 3,4 ZERO SIZE LINES NOT ALLOWED, EITHER. 00021 0767 00 0 00022 ALS 18 SET UP CHARACTER COUNT. 00022 0622 00 0 00041 STD ENDTST NCHARS = CPW*NWORDS + EXTRAS 00023 0361 00 0 00066 ACL CPWL1 CWP*NWORDS + EXTRAS + CPW - 1 00024 0131 00 0 00000 XCA (CPW*NWORDS + EXTRAS + CWP - 1)/CPW = 00025 -0754 00 0 00000 ZAC NWORDS + (EXTRAS - 1 + CPW)/CPW 00026 0221 00 0 00065 DVP CPW SECOND TERM IS 1 IF EXTRAS .G. 0, 00027 0131 00 0 00000 XCA 0 IF EXTRAS .E. 0 00030 0621 00 0 00067 STA CWD INSERT IN CONTROL WORD. 00031 0074 00 4 00001 TSX WRWORD,4 INSERT THIS WORD IN OUTPUT BUFFER. TD 00032 3 00000 0 00067 TXH CWD .. 00033 0774 00 2 00001 AXT 1,2 00034 0774 00 1 00003 OUTLP AXT 36/NBITS,1 SET CHARACTER COUNTER. 00035 0560 00 2 00000 INLP LDQ --,2 00036 -0773 00 0 00030 RQL 36-NBITS SHIFT CHARACTER TO POSITION. 00037 -0763 00 0 00014 LGL NBITS AND INTO WORD. 00040 1 00001 2 00041 TXI *+1,2,1 COUNT INPUT CHARACTERS. 00041 3 00000 2 00052 ENDTST TXH DONE,2,-- CHECK FOR END OF INPUT. 00042 2 00001 1 00035 TIX INLP,1,1 00043 0602 00 0 00070 SLW WDOUT SAVE COMPLETED WORD. 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 2 00044 0074 00 4 00001 OUT TSX WRWORD,4 STORE COMPLETED WORD. TD 00045 3 00000 0 00070 TXH WDOUT .. 00046 0020 00 0 00034 TRA OUTLP GO BACK FOR MORE. * 00047 0560 00 0 00063 NLLP LDQ NULL FILL IN WORD WITH NULLS. 00050 -0773 00 0 00030 RQL 36-NBITS MOVE NULL TO POSITION. 00051 -0763 00 0 00014 LGL NBITS SHIFT IN A NULL. 00052 2 00001 1 00047 DONE TIX NLLP,1,1 COUNT SPACES LEFT. 00053 0602 00 0 00070 SLW WDOUT STORE THIS WORD. 00054 0074 00 4 00001 TSX WRWORD,4 ADD TO OUTPUT BUFFER. TD 00055 3 00000 0 00070 TXH WDOUT .. 00056 0774 00 4 00000 WX4 AXT --,4 RESTORE LINKAGE, AND IRS. 00057 0774 00 2 00000 WX2 AXT --,2 .. 00060 0774 00 1 00000 WX1 AXT --,1 00061 0020 00 4 00003 TRA 3,4 .. * 00062 0020 00 0 00005 CLOSEW TRA FILE REFLECT CLOSE CALL TO BUFFER. * * 00063 +000000000057 NULL OCT 0057 NULL CHARACTER. 00064 +000000000055 RETURN OCT 0055 CARRIAGE RETURN CHARACTER. 00065 0 00003 0 00000 CPW ,,NCHRS NUMBER OF CHARACTERS PER WORD. 00066 0 00002 0 00000 CPWL1 ,,NCHRS-1 CHARACTERS PER WORD LESS ONE. * 00067 -377777000000 CWD OCT 777777000000 00070 0 00000 0 00000 WDOUT STORAGE FOR WORD BEING OUTPUT. * * LENGTH = READ.(LINE, BUFSIZ, EOF) * 00071 0634 00 1 00137 READ SXA RX1,1 READ NEXT LINE. 00072 0634 00 2 00136 SXA RX2,2 00073 0634 00 4 00134 SXA RX4,4 00074 0634 00 3 00135 SXA RX3,3 00075 -0500 00 4 00001 CAL 1,4 GET LOCATION OF BUFFER. 00076 0621 00 0 00124 STA RPUT 00077 -0500 60 4 00002 CAL* 2,4 SET UP END TEST. 00100 0402 00 0 00200 SUB =1 00101 0767 00 0 00022 ALS 18 .. 00102 0622 00 0 00125 STD BUFTST .. 00103 0074 00 4 00002 RDAGN TSX RDWORD,4 GET CONTROL WORD. 00104 0 00000 0 00141 EOF IN CASE WE ARE AT END OF FILE. 00105 -0734 00 1 00000 PDX 0,1 PUT FLAG IN IR1. 00106 0734 00 3 00000 PAX 0,3 PUT COUNT IN IR3. 00107 -2 77776 1 00146 TNX WOOPS,1,-2 CHECK FLAG. 00110 -3 00000 3 00103 TXL RDAGN,3,0 IGNORE ZERO-LENGTH LINE. 00111 0774 00 2 00000 RDON AXT 0,2 SET OUTPUT COUNTER. 00112 0074 00 4 00002 ROUTLP TSX RDWORD,4 READ A WORD. 00113 0 00000 0 00141 EOF .. 00114 0774 00 1 00003 AXT 36/NBITS,1 SET CHARACTER COUNTER. 00115 0131 00 0 00000 XCA WORD TO MQ. 00116 -0754 00 0 00000 RINLP ZAC CLEAR AC. 00117 -0763 00 0 00014 LGL NBITS GET NEXT CHARACTER. 00120 -0340 00 0 00063 LAS NULL IS THIS A NULL CHARACTER. 00121 0020 00 0 00123 TRA *+2 NO. 00122 0020 00 0 00126 TRA RCH YES, SKIP IT. 00123 1 00001 2 00124 TXI *+1,2,1 COUNT STORAGE SPACES. 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 3 00124 0602 00 2 00000 RPUT SLW --,2 STORE CHARACTER IN LINE. 00125 3 00000 2 00133 BUFTST TXH PXA,2,-- TEST FOR FULL BUFFER. 00126 2 00001 1 00116 RCH TIX RINLP,1,1 INDEX, AND COUNT CHARACTERS. 00127 2 00001 3 00112 TIX ROUTLP,3,1 INDEX, AND COUNT WORDS. 00130 -0500 00 0 00064 CAL RETURN PUT RETURN AT END OF LINE. 00131 1 00001 2 00132 TXI *+1,2,1 INCLUDE IN COUNT. 00132 0522 00 0 00124 XEC RPUT INSTALL IT. 00133 0754 00 2 00000 PXA PXA 0,2 GET WORD COUNT. 00134 0774 00 4 00000 RX4 AXT --,4 00135 0774 00 3 00000 RX3 AXT --,3 00136 0774 00 2 00000 RX2 AXT --,2 00137 0774 00 1 00000 RX1 AXT --,1 00140 0020 00 4 00004 TRA 4,4 * 00141 0534 00 4 00134 EOF LXA RX4,4 END OF FILE REACHED, TAKE ERROR 00142 0534 00 3 00135 LXA RX3,3 RETURN. 00143 0534 00 2 00136 LXA RX2,2 00144 0534 00 1 00137 LXA RX1,1 00145 0020 60 4 00003 TRA* 3,4 * * 00146 0074 00 4 00003 WOOPS TSX SETBCD,4 FILE IS NOT LINE-MARKED PROPERLY, COMPLAIN. 00147 0074 00 4 00000 TSX WRFLX,4 00150 0 00006 0 00161 MESS1,,6 00151 0074 00 4 00004 TSX SETFUL,4 RESTORE INDICATOR. 00152 0074 00 4 00002 LP TSX RDWORD,4 SEARCH FOR NEXT LINE MARK. 00153 0 00000 0 00141 EOF 00154 -0734 00 1 00000 PDX 0,1 CHECK FOR LINE MARK IN THIS WORD. 00155 -2 77776 1 00152 TNX LP,1,-2 .. 00156 0734 00 3 00000 PAX 0,3 LINE MARK OK, CHECK COUNT. 00157 -3 00000 1 00152 TXL LP,1,0 .. 00160 0020 00 0 00111 TRA RDON COUNT NON-ZERO, READ ON. * 00161 314547646360 MESS1 BCI 6,INPUT FILE HAS IMPROPER FORMAT. 00162 263143256030 00163 216260314447 00164 514647255160 00165 264651442163 00166 336060606060 * * ROUTINE TO SWING TO BOTTOM OF FILE. * 00167 0634 00 4 00176 BOTTOM SXA EOFB,4 SAVE LINKAGE. 00170 0074 00 4 00002 LOOP TSX RDWORD,4 GET NEXT INPUT WORD. 00171 0 00000 0 00176 EOFB EXIT ON END OF FILE. 00172 0601 00 0 00070 STO WDOUT SAVE THIS WORD. 00173 0074 00 4 00001 TSX WRWORD,4 WRITE OUT THIS WORD. TD 00174 3 00000 0 00070 TXH WDOUT .. 00175 0020 00 0 00170 TRA LOOP REPEAT. * 00176 0774 00 4 00000 EOFB AXT --,4 RESTORE LINKAGE. 00177 0020 00 4 00001 TRA 1,4 RETURN. * END 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 4 LITERALS 00200 000000000001 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 1 POST PROCESSOR ASSEMBLY DATA 201 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 152 LP 155, 157 65 CPW 26 67 CWD 30, 32 141 EOF 104, 113, 153 44 OUT 133 PXA 125 126 RCH 122 137 RX1 71, 144 136 RX2 72, 143 135 RX3 74, 142 134 RX4 73, 141 60 WX1 12 57 WX2 11 56 WX4 10 52 DONE 41 176 EOFB 167, 171 5 FILE 62 35 INLP 14, 42 170 LOOP 175 47 NLLP 52 63 NULL 47, 120 111 RDON 160 71 READ 0 124 RPUT 76, 132 66 CPWL1 23 161 MESS1 150 14 NBITS 10, 34, 36, 37, 50, 51, 114, 117 3 NCHRS 10, 65, 66 34 OUTLP 46 103 RDAGN 110 116 RINLP 126 70 WDOUT 43, 45, 53, 55, 172, 174 146 WOOPS 107 0 WRFLX 147 10 WRITE 0 167 BOTTOM 0 125 BUFTST 102 62 CLOSEW 0 41 ENDTST 22 2 RDWORD 103, 112, 152, 170 64 RETURN 130 112 ROUTLP 127 3 SETBCD 146 4 SETFUL 151 1 WRWORD 31, 44, 54, 173 0 NO ERROR IN ABOVE ASSEMBLY. 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1 * NOTE, INDEX REGISTERS SIX AND SEVEN MUST BE PRESERVED * BY THE CALLING PROGRAM. * THIS ROUTINE MAKES TYPEWRITER COMMENTS, BUT DOES NOT * AFFECT THE BCD-FULL MODE SWITCH. * * J. H. SALTZER, JANUARY, 1965. * 00015 ENTRY ASSIGN TO ASSIGN A NAME TO THE WRITE FILE. 00057 ENTRY WRWORD TO ADD A WORD TO THE FILE. 00100 ENTRY FILE TO CLOSE THE FILE. * 00160 ENTRY SEEK TO OPEN A FILE FOR READING. 00242 ENTRY RDWORD TO GET A WORD FROM FILE. 00275 ENTRY ENDRD TO CLOSE THE FILE. * EXTERN GETBUF,SETBCD,SETFUL,WRFLX,WRFLXA EXTERN OPEN,WRWAIT,RDWAIT,CLOSE,FSTATE,BUFFER * * ASSIGN.($NAME1$,$NAME2$) * TRANSFER VECTOR 00000 272563226426 GETBUF 00001 622563222324 SETBCD 00002 622563266443 SETFUL 00003 665126436760 WRFLX 00004 665126436721 WRFLXA 00005 464725456060 OPEN 00006 665166213163 WRWAIT 00007 512466213163 RDWAIT 00010 234346622560 CLOSE 00011 266263216325 FSTATE 00012 226426262551 BUFFER LINKAGE DIRECTOR 00013 000000000000 00014 216262312745 00015 -0500 60 4 00001 ASSIGN CAL* 1,4 OPEN FILE, GET FILE NAME. 00016 0602 00 0 00304 SLW OUTNAM .. 00017 -0500 60 4 00002 CAL* 2,4 .. 00020 0602 00 0 00305 SLW OUTNAM+1 .. 00021 0634 00 4 00041 SXA OPX4,4 SAVE LINKAGE. 00022 0020 00 0 00023 OSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS. * ******************* 00023 -0500 00 0 00315 CAL WBFSZ GET AN OUTPUT BUFFER FROM SUPERVISOR. 00024 0074 00 4 00000 TSX GETBUF,4 .. 00025 0621 00 0 00071 STA WCALL SAVE LOCATION OF BUFFER. 00026 0621 00 0 00113 STA CLCALL TO CLOSE OUT FILE. 00027 0361 00 0 00315 ACL WBFSZ ADD LENGTH, TO FORM END ADDRESS. 00030 0621 00 0 00060 STA WRNM INSERT IN INSERTER. 00031 -0500 00 0 00313 CAL TRKSZ GET A DISK TRACK BUFFER. 00032 0074 00 4 00000 TSX GETBUF,4 .. 00033 0621 00 0 00055 STA BFCALL SET UP BUFFER CALLER. 00034 -0625 00 0 00022 STL OSW RESET ONE-TIME SWITCH. * ******************* 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2 00035 0774 00 4 00040 AXT OPOK,4 SET QUOTA EXHAUSTED ERROR RETURN. 00036 0634 00 4 00143 SXA WRTN,4 .. 00037 0074 00 3 00043 TSX OPN,3 OPEN THE FILE. 00040 0774 00 7 00330 OPOK AXT WBFLTH,7 SET UP STORAGE COUNT. 00041 0774 00 4 00000 OPX4 AXT --,4 RESTORE LINKAGE. 00042 0020 00 4 00003 TRA 3,4 RETURN. * 00043 0074 00 4 00005 OPN TSX OPEN,4 OPEN FILE. TD 00044 3 00000 0 00324 TXH =HW FOR WRITING. TD 00045 3 00000 0 00304 TXH OUTNAM .. TD 00046 3 00000 0 00305 TXH OUTNAM+1 .. TD 00047 3 00000 0 00156 TXH MODE MAKE IT PERMANENT IF POSSIBLE. TD 00050 3 00000 0 00320 TXH =2 PUT IT ON THE DISK. TD 00051 3 00000 0 00127 OPERR TXH OEXH IN CASE NO MORE QUOTA AVAILABLE. 00052 0074 00 4 00012 TSX BUFFER,4 ASSIGN A BUFFER FOR THE FILE. TD 00053 3 00000 0 00304 TXH OUTNAM .. TD 00054 3 00000 0 00305 TXH OUTNAM+1 .. 00055 3 00660 0 00000 BFCALL TXH --,,TRKLTH .. 00056 0020 00 3 00001 TRA 1,3 RETURN TO CALLER. * * * ENTRY TO ADD A WORD TO FILE. * WRWORD.(WORD) * 00057 -0500 60 4 00001 WRWORD CAL* 1,4 GET WORD TO BE ADDED. 00060 0602 00 7 00000 WRNM SLW --,7 ADD WORD TO OUTPUT BUFFER. 00061 2 00001 7 00077 TIX RETURN,7,1 COUNT AND CHECK FOR FULL BUFFER. 00062 0634 00 4 00076 FULL SXA FULX4,4 BUFFER FULL, WRITE IT OUT. 00063 0774 00 4 00065 AXT WRAGN,4 SET UP EXHAUSTED RETURN ADDRESS. 00064 0634 00 4 00143 SXA WRTN,4 .. 00065 0074 00 4 00006 WRAGN TSX WRWAIT,4 GIVE BUFFER TO SUPERVISOR. TD 00066 3 00000 0 00304 TXH OUTNAM .. TD 00067 3 00000 0 00305 TXH OUTNAM+1 .. TD 00070 3 00000 0 00316 TXH =0 .. 00071 3 00330 0 00000 WCALL TXH --,,WBFLTH .. TD 00072 3 00000 0 00321 TXH =-0 IGNORE POSSIBLE EOF. TD 00073 3 00000 0 00321 TXH =-0 .. TD 00074 3 00000 0 00124 WRERR TXH WEXH ALLOW ERROR RETURN. 00075 0774 00 7 00330 AXT WBFLTH,7 RESET BUFFER POINTER. 00076 0774 00 4 00000 FULX4 AXT --,4 RESTORE LINKAGE. 00077 0020 00 4 00002 RETURN TRA 2,4 RETURN TO CALLER. * * FILE. NO ARGUMENTS. * 00100 0634 00 4 00122 FILE SXA CL4,4 ENTRY TO CLOSE OUT FILE. 00101 -0634 00 7 00103 SXD *+2,7 FORM COUNT OF WORDS SINCE 00102 0774 00 7 00330 AXT WBFLTH,7 LAST BUFFER WAS WRITTEN. 00103 -2 00000 7 00117 TNX NOWR,7,-- IF ZERO, SKIP FINAL WRITE CALL. 00104 -0634 00 7 00113 SXD CLCALL,7 NON-ZERO, SET UP WRITE CALL. 00105 0774 00 4 00107 AXT FWR,4 SET UP RETURN ADDRESS FOR EXHAUSTED CASE. 00106 0634 00 4 00143 SXA WRTN,4 .. 00107 0074 00 4 00006 FWR TSX WRWAIT,4 WRITE OUT PARTIAL BUFFER. TD 00110 3 00000 0 00304 TXH OUTNAM .. TD 00111 3 00000 0 00305 TXH OUTNAM+1 .. TD 00112 3 00000 0 00316 TXH =0 .. 00113 3 00000 0 00000 CLCALL TXH --,,-- .. 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 3 TD 00114 3 00000 0 00321 TXH =-0 IGNORE EOF RETURN. TD 00115 3 00000 0 00321 TXH =-0 .. TD 00116 3 00000 0 00124 TXH WEXH ALLOW ERROR RETURN. 00117 0074 00 4 00010 NOWR TSX CLOSE,4 CLOSE OUT THE FILE. TD 00120 3 00000 0 00304 TXH OUTNAM .. TD 00121 3 00000 0 00305 TXH OUTNAM+1 .. 00122 0774 00 4 00000 CL4 AXT --,4 RESTORE LINKAGE. 00123 0020 00 4 00001 TRA 1,4 .. * 00124 0074 00 4 00010 WEXH TSX CLOSE,4 TRACK QUOTA EXHAUSTED, CLOSE FILE. TD 00125 3 00000 0 00304 TXH OUTNAM .. TD 00126 3 00000 0 00305 TXH OUTNAM+1 .. 00127 0074 00 4 00001 OEXH TSX SETBCD,4 ENTRY FROM OPEN ERROR, COMMENT. 00130 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING. 00131 0074 00 4 00003 TSX WRFLX,4 .. 00132 0 00011 0 00144 ERMESS,,9 00133 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET. 00134 0074 00 4 00002 TSX SETFUL,4 YES, RESET INDICATOR. 00135 -0500 00 0 00317 CAL =1 SWITCH TO TEMPORARY MODE. 00136 0601 00 0 00156 STO MODE .. 00137 -0500 00 0 00155 CAL NOP BLOCK FUTURE ERROR RETURN. 00140 0602 00 0 00051 SLW OPERR .. 00141 0602 00 0 00074 SLW WRERR 00142 0074 00 3 00043 TSX OPN,3 NOW, OPEN IT AGAIN. 00143 0020 00 0 00000 WRTN TRA -- ALL FIXED, RETURN TO MAIN STREAM. * 00144 635121234260 ERMESS BCI 9,TRACK QUOTA EXHAUSTED, TEMPORARY MODE WILL BE USED. 00145 506446632160 00146 256730216462 00147 632524736063 00150 254447465121 00151 517060444624 00152 256066314343 00153 602225606462 00154 252433606060 00155 0761 00 0 00000 NOP NOP INSTRUCTION TO BLOCK ERROR RETURN. 00156 0 00000 0 00000 MODE 0 START IN PERMANENT MODE. 00157 0 00000 0 00000 MODSW TEMP STORAGE FOR 6-BIT,12-BIT INDICATOR. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SEEK.($NAME1$, $NAME2$, ERRET) * ERROR RETURN MEANS FILE NOT FOUND. * 00160 -0500 60 4 00001 SEEK CAL* 1,4 GET FILE NAME. 00161 0602 00 0 00306 SLW INNAM .. 00162 -0500 60 4 00002 CAL* 2,4 .. 00163 0602 00 0 00307 SLW INNAM+1 .. 00164 0634 00 4 00222 SXA SKX4,4 SAVE LINKAGE. 00165 0020 00 0 00166 SKSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS. * ********************* 00166 -0500 00 0 00314 CAL RBFSZ GET A BUFFER FROM SUPERVISOR. 00167 0074 00 4 00000 TSX GETBUF,4 .. 00170 0621 00 0 00257 STA ECALL STORE BUFFER LOCATION. 00171 0621 00 0 00217 STA STCALL .. 00172 -0625 00 0 00165 STL SKSW RESET ONE-TIME SWITCH. * ********************* 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 4 00173 -0500 00 0 00217 CAL STCALL SET UP PICKUP INSTRUCTION FOR INDEXING. 00174 0361 00 0 00314 ACL RBFSZ .. 00175 0621 00 0 00242 STA RDWORD .. 00176 0074 00 4 00011 TSX FSTATE,4 MAKE SURE FILE IS THERE. TD 00177 3 00000 0 00306 TXH INNAM .. TD 00200 3 00000 0 00307 TXH INNAM+1 .. TD 00201 3 00000 0 00321 TXH =-0 DON'T WANT DATA. TD 00202 3 00000 0 00224 TXH NOTFN ERROR RETURN MEANS FILE NOT THERE. 00203 0074 00 4 00005 TSX OPEN,4 OPEN THE FILE FOR READING. TD 00204 3 00000 0 00322 TXH =HR .. TD 00205 3 00000 0 00306 TXH INNAM .. TD 00206 3 00000 0 00307 TXH INNAM+1 .. 00207 0774 00 6 00660 AXT RBFLTH,6 SET UP BUFFER COUNTER. 00210 0774 00 4 00222 AXT SKX4,4 SET END OF FILE RETURN. 00211 0634 00 4 00274 SXA EOFRTN,4 .. 00212 0600 00 0 00312 STZ EOFR CLEAR END OF FILE SWITCH. 00213 0074 00 4 00007 TSX RDWAIT,4 GET INITIAL BUFFER LOAD. TD 00214 3 00000 0 00306 TXH INNAM .. TD 00215 3 00000 0 00307 TXH INNAM+1 .. TD 00216 3 00000 0 00316 TXH =0 .. 00217 3 00660 0 00000 STCALL TXH --,,RBFLTH .. TD 00220 3 00000 0 00265 TXH EOF END OF FILE RETURN. TD 00221 3 00000 0 00311 TXH EOFCT .. 00222 0774 00 4 00000 SKX4 AXT --,4 RESTORE LINKAGE. 00223 0020 00 4 00004 TRA 4,4 RETURN TO CALLER. * 00224 0074 00 4 00001 NOTFN TSX SETBCD,4 FILE NOT FOUND, COMMENT. 00225 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING. 00226 0074 00 4 00004 TSX WRFLXA,4 START UP COMMENT. 00227 0 00001 0 00323 =H FILE ,,1 .. 00230 0074 00 4 00004 TSX WRFLXA,4 INSERT FILE NAME. 00231 0 00002 0 00306 INNAM,,2 .. 00232 0074 00 4 00003 TSX WRFLX,4 END OF COMMENT. 00233 0 00002 0 00240 ECM,,2 .. 00234 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET. 00235 0074 00 4 00002 TSX SETFUL,4 YES, RESET MODE. 00236 0534 00 4 00222 LXA SKX4,4 GIVE ERROR RETURN. 00237 0020 60 4 00003 TRA* 3,4 .. * 00240 604546636026 ECM BCI 2, NOT FOUND. 00241 466445243360 * * ENTRY TO OBTAIN WORD FROM FILE. * WORD = RDWORD.(EOF) * 00242 0500 00 6 00000 RDWORD CLA --,6 GET WORD FROM INPUT BUFFER. 00243 2 00001 6 00264 TIX GOBACK,6,1 INDEX, AND CHECK FOR EMPTY BUFFER. 00244 0520 00 0 00312 ZET EOFR BUFFER EMPTY, HAS END OF FILE OCCURRED. 00245 0020 60 4 00001 TRA* 1,4 YES, GIVE EOF RETURN. 00246 0601 00 0 00310 STO RTEMP NO, SAVE WORD AND GET SOME MORE DATA. 00247 0634 00 4 00263 SXA EMPX4,4 SAVE LINKAGE, ALSO. 00250 0774 00 6 00660 AXT RBFLTH,6 RESET BUFFER POINTER. 00251 0774 00 4 00262 AXT EMPGT,4 SET END OF FILE RETURN. 00252 0634 00 4 00274 SXA EOFRTN,4 .. 00253 0074 00 4 00007 TSX RDWAIT,4 GET ANOTHER BUFFER LOAD OF DATA. TD 00254 3 00000 0 00306 TXH INNAM .. 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 5 TD 00255 3 00000 0 00307 TXH INNAM+1 .. TD 00256 3 00000 0 00316 TXH =0 .. 00257 3 00660 0 00000 ECALL TXH --,,RBFLTH .. TD 00260 3 00000 0 00265 TXH EOF .. TD 00261 3 00000 0 00311 TXH EOFCT .. 00262 0500 00 0 00310 EMPGT CLA RTEMP RESTORE WORD FOR THIS CALL. 00263 0774 00 4 00000 EMPX4 AXT --,4 RESTORE LINKAGE. 00264 0020 00 4 00002 GOBACK TRA 2,4 RETURN TO CALLER. * 00265 -0625 00 0 00312 EOF STL EOFR END OF FILE REACHED, SET SWITCH. 00266 -0500 00 0 00311 CAL EOFCT GET COUNT OF WORDS LEFT. 00267 0361 00 0 00317 ACL =1 BUGGER WORD COUNT. 00270 0734 00 6 00000 PAX 0,6 SET WORD COUNTER. 00271 0361 00 0 00257 ACL ECALL ADJUST PICKUP INSTRUCTION. 00272 0621 00 0 00242 STA RDWORD .. 00273 0074 00 4 00275 TSX ENDRD,4 TURN OFF FILE. 00274 0020 00 0 00000 EOFRTN TRA -- RETURN TO END OF RDFILE CALLING SEQUENCE. * * ENTRY TO CLOSE INPUT FILE. * ENDRD. * 00275 0634 00 4 00302 ENDRD SXA ENDX4,4 SAVE LINKAGE. 00276 0074 00 4 00010 TSX CLOSE,4 CLOSE FILE. TD 00277 3 00000 0 00306 TXH INNAM .. TD 00300 3 00000 0 00307 TXH INNAM+1 .. TD 00301 3 00000 0 00302 TXH *+1 IGNORE ANY ERROR RETURN. 00302 0774 00 4 00000 ENDX4 AXT --,4 RESTORE LINKAGE. 00303 0020 00 4 00001 TRA 1,4 .. * 00304 545454545454 OUTNAM BCI 2,************ NAME OF OUTPUT FILE. 00305 545454545454 00306 545454545454 INNAM BCI 2,************ NAME OF INPUT FILE. 00307 545454545454 00310 0 00000 0 00000 RTEMP STORAGE FOR WORD. 00311 0 00000 0 00000 EOFCT STORAGE FOR END OF FILE COUNTER. 00312 0 00000 0 00312 EOFR * SWITCH FOR END OF FILE MET. * 00660 TRKLTH EQU 432 DISK TRACK LENGTH. 00313 0 00000 0 00660 TRKSZ TRKLTH WORD CONTAINING TRACK LENGTH. 00660 RBFLTH EQU TRKLTH READ BUFFER LENGTH. 00330 WBFLTH EQU TRKLTH/2 WRITE BUFFER LENGTH. 00314 0 00000 0 00660 RBFSZ RBFLTH WORD CONTAINING READ BUFFER SIZE. 00315 0 00000 0 00330 WBFSZ WBFLTH WORD CONTAINING WRITE BUFFER SIZE. * END LITERALS 00316 000000000000 00317 000000000001 00320 000000000002 00321 400000000000 00322 516060606060 00323 602631432560 00324 666060606060 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1 POST PROCESSOR ASSEMBLY DATA 325 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 122 CL4 100 240 ECM 233 265 EOF 220, 260 107 FWR 105 155 NOP 137 43 OPN 37, 142 22 OSW 34 312 EOFR 212, 244, 265 100 FILE 0 62 FULL 156 MODE 47, 136 117 NOWR 103 127 OEXH 51 5 OPEN 43, 203 40 OPOK 35 41 OPX4 21 160 SEEK 0 165 SKSW 172 222 SKX4 164, 210, 236 124 WEXH 74, 116 60 WRNM 30 143 WRTN 36, 64, 106 10 CLOSE 117, 124, 276 257 ECALL 170, 271 262 EMPGT 251 263 EMPX4 247 275 ENDRD 0, 273 302 ENDX4 275 311 EOFCT 221, 261, 266 76 FULX4 62 306 INNAM 161, 163, 177, 200, 205, 206, 214, 215, 231, 254, 255, 277, 300 157 MODSW 130, 133, 225, 234 224 NOTFN 202 51 OPERR 140 314 RBFSZ 166, 174 310 RTEMP 246, 262 313 TRKSZ 31 315 WBFSZ 23, 27 71 WCALL 25 65 WRAGN 63 74 WRERR 141 3 WRFLX 131, 232 15 ASSIGN 0 55 BFCALL 33 12 BUFFER 52 113 CLCALL 26, 104 274 EOFRTN 211, 252 144 ERMESS 132 11 FSTATE 176 0 GETBUF 24, 32, 167 264 GOBACK 243 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2 POST PROCESSOR ASSEMBLY DATA 304 OUTNAM 16, 20, 45, 46, 53, 54, 66, 67, 110, 111, 120, 121, 125, 126 660 RBFLTH 207, 217, 250, 257, 314 7 RDWAIT 213, 253 242 RDWORD 0, 175, 272 77 RETURN 61 1 SETBCD 127, 224 2 SETFUL 134, 235 217 STCALL 171, 173 660 TRKLTH 55, 313, 314 330 WBFLTH 40, 71, 75, 102, 314, 315 4 WRFLXA 226, 230 6 WRWAIT 65, 107 57 WRWORD 0 0 NO ERROR IN ABOVE ASSEMBLY. 1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 1 * USAGE CLRNAM.(NAME1, NAME2, CANT, SW) * FILE NAME1 NAME2 WILL BE CHECKED FOR AND * DELETED IF POSSIBLE. IF SW * IS TRUE, USER WILL BE ASKED BEFORE DELETING * THE OLD FILE. * 00012 ENTRY CLRNAM CLEAR FILE NAME. * EXTERN SETFUL,SETBCD,WRFLX,WRFLXA,RDFLXA EXTERN FSTATE,CHFILE,DELFIL * TRANSFER VECTOR 00000 622563266443 SETFUL 00001 622563222324 SETBCD 00002 665126436760 WRFLX 00003 665126436721 WRFLXA 00004 512426436721 RDFLXA 00005 266263216325 FSTATE 00006 233026314325 CHFILE 00007 242543263143 DELFIL LINKAGE DIRECTOR 00010 000000000000 00011 234351452144 00012 -0500 60 4 00001 CLRNAM CAL* 1,4 GET FILE NAME. 00013 0602 00 0 00121 SLW N1 .. 00014 -0500 60 4 00002 CAL* 2,4 SECONDARY NAME. 00015 0602 00 0 00122 SLW N2 .. 00016 0634 00 4 00147 SXA SV4,4 SAVE LINKAGE. 00017 0074 00 4 00005 TSX FSTATE,4 CHECK STATE OF FILE. TD 00020 3 00000 0 00121 TXH N1 NAME TD 00021 3 00000 0 00122 TXH N2 NAME 00022 3 00010 0 00156 TXH DATA,,8 FILE STATE TD 00023 3 00000 0 00112 TXH FSTERR IN CASE OF ERROR TD 00024 3 00000 0 00155 TXH ERNO GATHER ERROR NUMBER. 00025 0441 00 0 00157 LDI MODE CHECK MODE OF FILE. 00026 -0054 00 400000 LFT 400000 IS MODE NEGATIVE. 00027 0020 00 0 00100 TRA LINKED YES, FILE IS LINKED. 00030 0600 00 0 00154 STZ PROTEC ASSUME NOT PROTECTED. 00031 0056 00 000100 RNT 100 CHECK PROTECTED BIT. 00032 0020 00 0 00035 TRA CKASK NOT PROTECTED, SHOULD WE ASK ANYWAY. 00033 -0625 00 0 00154 STL PROTEC PROTECTED, SET SWITCH FOR LONG COMMENT. 00034 0020 00 0 00040 TRA ASK GO ASK PERMISSION TO DELETE FILE. 00035 0534 00 4 00147 CKASK LXA SV4,4 GET LINKAGE TO ASK SWITCH. 00036 -0520 60 4 00004 NZT* 4,4 SHOULD WE ASK PERMISSION ANYWAY. 00037 0020 00 0 00065 TRA DELETE NO, GO DELETE FILE. 00040 0074 00 4 00000 ASK TSX SETFUL,4 SET CHARACTER MODE SWITCH. 00041 0074 00 4 00003 TSX WRFLXA,4 BEGIN THE COMMENT. 00042 0 00003 0 00116 MI,,3 .. 00043 0074 00 4 00001 TSX SETBCD,4 SWITCH TO BCD FOR FILE NAME. 00044 0074 00 4 00003 TSX WRFLXA,4 WRITE OUT FILE NAME. 00045 0 00002 0 00121 N1,,2 00046 0074 00 4 00000 TSX SETFUL,4 BACK TO FULL MODE. 00047 -0520 00 0 00154 NZT PROTEC SHOULD WE CLAIM IT IS PROTECTED. 1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 2 00050 0020 00 0 00053 TRA SKPPCM NO, SKIP THAT PART. 00051 0074 00 4 00003 TSX WRFLXA,4 YES, ANNOUNC PROTECTED PART. 00052 0 00006 0 00123 ISPTC,,6 .. 00053 0074 00 4 00003 SKPPCM TSX WRFLXA,4 NOW ASK FOR PERMISSION. 00054 0 00012 0 00131 DOYOU,,10 .. 00055 0074 00 4 00001 TSX SETBCD,4 SWITCH SO ERASE WORKS. 00056 0074 00 4 00004 TSX RDFLXA,4 00057 0 00001 0 00150 IN,,1 GET ONE WORD. 00060 0074 00 4 00000 TSX SETFUL,4 RESTORE MODE. 00061 -0500 00 0 00150 CAL IN GET THAT WORD. 00062 0771 00 0 00022 ARS 18 GET FIRST THREE CHARACTERS. 00063 0322 00 0 00170 ERA =H000YES DID HE SAY YES. 00064 -0100 00 0 00076 TNZ ERTN NO, GIVE ERROR RETURN. 00065 0074 00 4 00006 DELETE TSX CHFILE,4 GOODY, WE CAN DELETE IT. TD 00066 3 00000 0 00121 TXH N1 MAKE SURE IT IS DELETEABLE. TD 00067 3 00000 0 00122 TXH N2 .. TD 00070 3 00000 0 00166 TXH =1 BY CHANGING ITS MODE TO TEMPORARY. 00071 0074 00 4 00007 TSX DELFIL,4 DELETE THE SILLY THING. TD 00072 3 00000 0 00121 TXH N1 .. TD 00073 3 00000 0 00122 TXH N2 .. 00074 0534 00 4 00147 RTN LXA SV4,4 RESTORE THE LINKAGE. 00075 0020 00 4 00005 TRA 5,4 RETURN TO CALLER. * 00076 0534 00 4 00147 ERTN LXA SV4,4 ERROR RETURN, FILE CANNOT BE DELETED. 00077 0020 60 4 00003 TRA* 3,4 RETURN THROUGH ERROR RETURN. * 00100 0074 00 4 00000 LINKED TSX SETFUL,4 FILE IS LINKED, COMMENT AND GIVE UP. 00101 0074 00 4 00003 TSX WRFLXA,4 START THE COMMENT. 00102 0 00003 0 00116 MI,,3 .. 00103 0074 00 4 00001 TSX SETBCD,4 SWITCH MODE FOR FILE NAME. 00104 0074 00 4 00003 TSX WRFLXA,4 TYPE FILE NAME. 00105 0 00002 0 00121 N1,,2 .. 00106 0074 00 4 00000 TSX SETFUL,4 SWITCH FOR REST OF COMMENT. 00107 0074 00 4 00002 TSX WRFLX,4 END THIS PART WITH A C.R. 00110 0 00004 0 00143 ISLNK,,4 .. 00111 0020 00 0 00076 TRA ERTN NOW GIVE AN ERROR RETURN. * 00112 0500 00 0 00155 FSTERR CLA ERNO ERROR RETURN FROM FSTATE, FIND OUT WHY. 00113 0402 00 0 00167 SUB =3 RETURN 3 MEANS FILE NOT FOUND. 00114 -0100 00 0 00100 TNZ LINKED WRONG ERROR RETURN, ASSUME LINKED. 00115 0020 00 0 00074 TRA RTN FILE NOT FOUND, NAME IS OK. * * DATA, COMMENTS, ETC. * 00116 004601430124 MI BCI 3,0O1L1D0 1F1I1L1E0 00117 006001260131 00120 014301250060 * 00121 0 00000 0 00000 N1 STORAGE FOR FILE NAME. 00122 0 00000 0 00000 N2 SECONDARY NAME. * 00123 006001310162 ISPTC BCI 1,0 1I1S 00124 +006001330057 OCT 006001330057 BLANK, RED SHIFT, NULL. 00125 004700510046 BCI 3,0P0R0O0T0E0C0T0E0D 00126 006300250023 00127 006300250024 1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 3 00130 +013200330060 OCT 013200330060 BLACK SHIFT, PERIOD, BLANK. 00131 006000400040 DOYOU BCI 9,0 0-0-0D1O0 1Y1O1U0 1W1I1S1H0 1T1O0 1D1E1L1E1T1E0 1I1T 00132 002401460060 00133 017001460164 00134 006001660131 00135 016201300060 00136 016301460060 00137 012401250143 00140 012501630125 00141 006001310163 00142 +015600600060 OCT 015600600060 TERMINAL QUESTION MARK. * 00143 006001310162 ISLNK BCI 4,0 1I1S0 1L1I1N1K1E1D0. 00144 006001430131 00145 014501420125 00146 012400336060 * 00147 0 00000 0 00000 SV4 STORAGE FOR CALLING LINKAGE. 00150 IN BSS 4 FOR INPUT WORD. 00154 0 00000 0 00000 PROTEC SWITCH FOR PROTECTED FILE. 00155 0 00000 0 00000 ERNO STORAGE FOR ERROR NUMBER. 00156 DATA BSS 8 FOR STATE INFORMATION. 00161 DEVICE EQU DATA+3 00157 MODE EQU DATA+1 * END LITERALS 00166 000000000001 00167 000000000003 00170 000000702562 1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 171 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 150 IN 57, 61 116 MI 42, 102 121 N1 13, 20, 45, 66, 72, 105 122 N2 15, 21, 67, 73 40 ASK 34 74 RTN 115 147 SV4 16, 35, 74, 76 156 DATA 22, 166 155 ERNO 24, 112 76 ERTN 64, 111 157 MODE 25, 166 35 CKASK 32 131 DOYOU 54 143 ISLNK 110 123 ISPTC 52 2 WRFLX 107 6 CHFILE 65 12 CLRNAM 0 65 DELETE 37 7 DELFIL 71 161 DEVICE 166 5 FSTATE 17 112 FSTERR 23 100 LINKED 27, 114 154 PROTEC 30, 33, 47 4 RDFLXA 56 1 SETBCD 43, 55, 103 0 SETFUL 40, 46, 60, 100, 106 53 SKPPCM 50 3 WRFLXA 41, 44, 51, 53, 101, 104 0 NO ERROR IN ABOVE ASSEMBLY. 1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 1 * J. H. SALTZER, MAY, 1965. * 00004 ENTRY RENAME RENAME FILE. * EXTERN CHFILE,WRFLX * TRANSFER VECTOR 00000 233026314325 CHFILE 00001 665126436760 WRFLX LINKAGE DIRECTOR 00002 000000000000 00003 512545214425 00004 0500 60 4 00001 RENAME CLA* 1,4 GET FILE NAMES. 00005 0601 00 0 00071 STO OLD1 .. 00006 0500 60 4 00002 CLA* 2,4 .. 00007 0601 00 0 00072 STO OLD2 .. 00010 0601 00 0 00074 STO NEW2 ASSUME NO CHANGE IN SECONDARY NAMES. 00011 0500 60 4 00003 CLA* 3,4 .. 00012 0601 00 0 00073 STO NEW1 .. 00013 0560 00 4 00004 LDQ 4,4 CHECK FOR TXH 00014 0500 00 0 00076 CLA =O300000000000 .. 00015 0040 00 0 00020 TLQ SKPN2 NO TXH, SECONDARY NAME UNCHANGED. 00016 0500 60 4 00004 CLA* 4,4 TXH, CHANGE SECONDARY NAME. 00017 0601 00 0 00074 STO NEW2 .. 00020 0634 00 4 00036 SKPN2 SXA RETURN,4 SAVE LINKAGE. 00021 0074 00 4 00000 TSX CHFILE,4 CHANGE NAME WITHOUT CHANGING MODE. TD 00022 3 00000 0 00071 TXH OLD1 .. TD 00023 3 00000 0 00072 TXH OLD2 .. TD 00024 3 00000 0 00077 TXH =-0 MODE UNCHANGED. TD 00025 3 00000 0 00073 TXH NEW1 .. TD 00026 3 00000 0 00074 TXH NEW2 .. 00027 0074 00 4 00000 TSX CHFILE,4 CHANGE MODE WITHOUT CHANGING NAME. TD 00030 3 00000 0 00073 TXH NEW1 .. TD 00031 3 00000 0 00074 TXH NEW2 .. TD 00032 3 00000 0 00075 TXH =0 PERMANENT MODE. TD 00033 3 00000 0 00077 TXH =-0 NAME UNCHANGED. TD 00034 3 00000 0 00077 TXH =-0 .. TD 00035 3 00000 0 00040 TXH CHERR IN CASE MODE UNCHANGEABLE. 00036 0774 00 4 00000 RETURN AXT --,4 RESTORE LINKAGE. 00037 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. * 00040 0074 00 4 00001 CHERR TSX WRFLX,4 ASSUME TRACK QUOTA EXHAUSTED, AND COMMENT. 00041 0 00010 0 00045 TRKQUO,,8 .. 00042 0074 00 4 00001 TSX WRFLX,4 MENTION THAT NEW FILE IS TEMP MODE. 00043 0 00013 0 00055 TMPMOD,,11 .... 00044 0020 00 0 00036 TRA RETURN EXIT. * * COMMENTS AND STORAGE. * 00045 006301510121 TRKQUO BCI 8,0T1R1A1C1K0 1Q1U1O1T1A0 0E0X0H0A0U0S0T0E0D0. 00046 012301420060 00047 015001640146 00050 016301210060 1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 2 00051 002500670030 00052 002100640062 00053 006300250024 00054 003360606060 * 00055 007001460164 TMPMOD BCI 5,0Y1O1U1R0 1N1E1W0 1F1I1L1E0 1I 00056 015100600145 00057 012501660060 00060 012601310143 00061 012500600131 00062 +016200600133 OCT 016200600133 S, BLANK, RED SHIFT. 00063 006300250044 BCI 3,0T0E0M0P0O0R0A0R0Y 00064 004700460051 00065 002100510070 00066 +013200600144 OCT 013200600144 BLACK SHIFT, BLANK, SMALL M. 00067 014601240125 BCI 2,1O1D1E0. 00070 003360606060 * 00071 0 00000 0 00000 OLD1 00072 0 00000 0 00000 OLD2 00073 0 00000 0 00000 NEW1 00074 0 00000 0 00000 NEW2 * END LITERALS 00075 000000000000 00076 300000000000 00077 400000000000 1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 100 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 73 NEW1 12, 25, 30 74 NEW2 10, 17, 26, 31 71 OLD1 5, 22 72 OLD2 7, 23 40 CHERR 35 20 SKPN2 15 1 WRFLX 40, 42 0 CHFILE 21, 27 4 RENAME 0 36 RETURN 20, 44 55 TMPMOD 43 45 TRKQUO 41 0 NO ERROR IN ABOVE ASSEMBLY. 1 MAD PROGRAM LISTING ... ... ... FILE 12TYP MAD 02/08/68 1745.9 - .. TYPEWRITER INPUT CHARACTER CONTROL ROUTINE. LM00001 .. USAGE. . . COUNT = TYPEIN.(BUFFER, BUFSIZ, ERASE, KILL) LM00002 J. H. SALTZER, JANUARY, 1965. LM00003 LM00004 EXTERNAL FUNCTION(LINE, BUFSIZ) *001 LM00005 LM00006 NORMAL MODE IS INTEGER *002 LM00007 VECTOR VALUES NBITS = 12 *003 LM00008 VECTOR VALUES NULL = 0057K *004 LM00009 VECTOR VALUES ERASE = 0504K *005 LM00010 VECTOR VALUES KILL = 0506K *006 LM00011 VECTOR VALUES RETURN = 0055K *007 LM00012 VECTOR VALUES WRDSIZ = 36 *008 LM00013 VECTOR VALUES CHMASK = 7777K *009 LM00014 LM00015 ENTRY TO SETERS. *010 LM00016 ERASE = LINE *011 LM00017 FUNCTION RETURN *012 LM00018 LM00019 ENTRY TO SETKIL. *013 LM00020 KILL = LINE *014 LM00021 FUNCTION RETURN *015 LM00022 LM00023 ENTRY TO TYPEIN. *016 LM00024 SIZE = 0 *017 LM00025 TYLINE. *018 LM00026 LOOP WORD = TYWORD.(0) *019 LM00027 THROUGH DISECT, FOR I = WRDSIZ-NBITS,-NBITS, I .L. 0 *020 LM00028 CHAR = (WORD.RS.I) .A. CHMASK *021 LM00029 WHENEVER CHAR .E. ERASE *022 LM00030 WHENEVER SIZE .G. 0, SIZE = SIZE - 1 *023 LM00031 OR WHENEVER CHAR .E. KILL *024 LM00032 SIZE = 0 *025 LM00033 OR WHENEVER CHAR .E. RETURN .OR. CHAR.RS.6 .E. RETURN *026 LM00034 TRANSFER TO UND *027 LM00035 OTHERWISE *028 LM00036 SIZE = SIZE + 1 *029 LM00037 LINE(SIZE) = CHAR *030 LM00038 END OF CONDITIONAL *031 LM00039 DISECT WHENEVER SIZE .GE. BUFSIZ, TRANSFER TO UND *032 LM00040 TRANSFER TO LOOP *033 LM00041 UND CANON.(LINE, SIZE, BUFSIZ) *034 LM00042 SIZE = SIZE + 1 *035 LM00043 LINE(SIZE) = RETURN *036 LM00044 FUNCTION RETURN SIZE *037 LM00045 LM00046 .. TYPEWRITER OUTPUT CHARACTER CONTROL ROUTINE. LM00047 .. USAGE. . . TYPOUT.(LINE, LENGTH) LM00048 LM00049 ENTRY TO TYPOUT. *038 LM00050 K = 0 *039 LM00051 SETFUL. *040 LM00052 THROUGH PRLOOP, FOR J = 1, 1, J .G. BUFSIZ *041 LM00053 TWORD = (TWORD .LS. NBITS) .V. LINE(J) *042 LM00054 K = K + 1 *043 LM00055 WHENEVER K .GE. WRDSIZ/NBITS *044 LM00056 K = 0 *045 LM00057 PRWORD.(TWORD) *046 LM00058 PRLOOP END OF CONDITIONAL *047 LM00059 THROUGH NULPK, FOR K = K, 1, K.GE. WRDSIZ/NBITS *048 LM00060 NULPK TWORD = (TWORD.LS.NBITS) .V. NULL *049 LM00061 PRWORD.(TWORD) *050 LM00062 PRBUFF. *051 LM00063 FUNCTION RETURN *052 LM00064 LM00065 ENTRY TO HOL. *053 LM00066 WHENEVER LINE .A. 400K .E. 0 *054 LM00067 FUNCTION RETURN LINE .A. 77K *055 LM00068 OTHERWISE *056 LM00069 FUNCTION RETURN $00000*$ *057 LM00070 END OF CONDITIONAL *058 LM00071 LM00072 END OF FUNCTION *059 LM00073 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00350 TRANSFER VECTOR LENGTH 00007 PROGRAM BEGINS 00037 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES HOL 00277 0 TYPOUT 00175 0 TYPEIN 00054 0 SETKIL 00046 0 SETERS 00040 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) CHAR 00012 1 I 00015 1 LOOP 00010 4 PRLOOP 00007 4 UND 00011 4 CHMASK 00013 A 1 J 00016 1 NBITS 00021 A 1 RETURN 00023 A 1 WORD 00026 1 DISECT 00007 4 KILL 00017 A 1 NULL 00022 A 1 SIZE 00024 1 WRDSIZ 00027 A 1 ERASE 00014 A 1 K 00020 1 NULPK 00007 4 TWORD 00025 1 0FUNCTION DICTIONARY CANON 00000 1 EXIT 00001 1 PRBUFF 00002 1 PRWORD 00003 1 SETFUL 00004 1 TYLINE 00005 1 TYWORD 00006 1 0ABSOLUTE CONSTANTS 00033 +000000000054 00034 +000000000077 00035 +000000000400 00032 +000000000006 00030 +000000000000 00031 +000000000001 00036 +233000000000 0STATEMENT DICTIONARY 00010 TXL -300064000061 00011 TXL -300164000160 0PROGRAM EXTERNAL FUNCTION(LINE, BUFSIZ) 001 LM00005 NORMAL MODE IS INTEGER 002 LM00007 VECTOR VALUES NBITS = 12 003 LM00008 00021 +0 00000 0 00014 VECTOR VALUES NULL = 0057K 004 LM00009 00022 +0 00000 0 00057 VECTOR VALUES ERASE = 0504K 005 LM00010 00014 +0 00000 0 00504 VECTOR VALUES KILL = 0506K 006 LM00011 00017 +0 00000 0 00506 VECTOR VALUES RETURN = 0055K 007 LM00012 00023 +0 00000 0 00055 VECTOR VALUES WRDSIZ = 36 008 LM00013 00027 +0 00000 0 00044 VECTOR VALUES CHMASK = 7777K 009 LM00014 00013 +0 00000 0 07777 ENTRY TO SETERS. 010 LM00016 00037 TRA +0 02000 0 00042 00040 SXA +0 63400 2 00320 00041 TSX +0 07400 2 00320 ERASE = LINE 011 LM00017 00042 CLA +0 50000 0 00024 00043 STO +0 60100 0 00014 FUNCTION RETURN 012 LM00018 00044 TRA +0 02000 0 00341 ENTRY TO SETKIL. 013 LM00020 00045 TRA +0 02000 0 00050 00046 SXA +0 63400 2 00320 00047 TSX +0 07400 2 00320 KILL = LINE 014 LM00021 00050 CLA +0 50000 0 00024 00051 STO +0 60100 0 00017 FUNCTION RETURN 015 LM00022 00052 TRA +0 02000 0 00341 ENTRY TO TYPEIN. 016 LM00024 00053 TRA +0 02000 0 00056 00054 SXA +0 63400 2 00320 00055 TSX +0 07400 2 00320 SIZE = 0 017 LM00025 00056 CLA +0 50000 0 00030 00057 STO +0 60100 0 00024 TYLINE. 018 LM00026 00060 TSX +0 07400 4 00005 LOOP WORD = TYWORD.(0) 019 LM00027 00061 TSX +0 07400 4 00006 00062 TXH +3 00000 0 00030 00063 STO +0 60100 0 00026 THROUGH DISECT, FOR I = WRDSIZ-NBITS,-NBITS, I .L. 0 020 LM00028 00064 CLA +0 50000 0 00027 00065 SUB +0 40200 0 00021 00066 STO +0 60100 0 00015 00067 TRA +0 02000 0 00073 00070 CLS +0 50200 0 00021 00071 ADD +0 40000 0 00015 00072 STO +0 60100 0 00015 00073 CLA +0 50000 0 00015 00074 SUB +0 40200 0 00030 00075 TZE +0 10000 0 00077 00076 TMI -0 12000 0 00157 CHAR = (WORD.RS.I) .A. CHMASK 021 LM00029 00077 CAL -0 50000 0 00015 00100 STA +0 62100 0 00102 00101 CAL -0 50000 0 00026 00102 LGR -0 76500 0 00000 00103 ANA -0 32000 0 00013 00104 SLW +0 60200 0 00012 WHENEVER CHAR .E. ERASE 022 LM00030 00105 CLA +0 50000 0 00012 00106 SUB +0 40200 0 00014 00107 TNZ -0 10000 0 00120 WHENEVER SIZE .G. 0, SIZE = SIZE - 1 023 LM00031 00110 CLA +0 50000 0 00024 00111 SUB +0 40200 0 00030 00112 TZE +0 10000 0 00117 00113 TMI -0 12000 0 00117 00114 CLA +0 50000 0 00024 00115 SUB +0 40200 0 00031 00116 STO +0 60100 0 00024 OR WHENEVER CHAR .E. KILL 024 LM00032 00117 TRA +0 02000 0 00151 00120 CLA +0 50000 0 00012 00121 SUB +0 40200 0 00017 00122 TNZ -0 10000 0 00126 SIZE = 0 025 LM00033 00123 CLA +0 50000 0 00030 00124 STO +0 60100 0 00024 O'R CHAR .E. RETURN .OR. CHAR.RS.6 .E. RETURN 026 LM00034 00125 TRA +0 02000 0 00151 00126 CAL -0 50000 0 00032 00127 STA +0 62100 0 00131 00130 CAL -0 50000 0 00012 00131 LGR -0 76500 0 00000 00132 SLW +0 60200 0 00345 00133 CLA +0 50000 0 00345 00134 SUB +0 40200 0 00023 00135 TZE +0 10000 0 00141 00136 CLA +0 50000 0 00012 00137 SUB +0 40200 0 00023 00140 TNZ -0 10000 0 00143 TRANSFER TO UND 027 LM00035 00141 TRA +0 02000 0 00011 OTHERWISE 028 LM00036 00142 TRA +0 02000 0 00151 SIZE = SIZE + 1 029 LM00037 00143 CLA +0 50000 0 00024 00144 ADD +0 40000 0 00031 00145 STO +0 60100 0 00024 LINE(SIZE) = CHAR 030 LM00038 00146 LXA +0 53400 1 00024 00147 CLA +0 50000 0 00012 00150 STO +0 60100 1 00024 END OF CONDITIONAL 031 LM00039 DISECT WHENEVER SIZE .GE. BUFSIZ, TRANSFER TO UND 032 LM00040 00151 CLA +0 50000 0 00024 00152 SUB +0 40200 0 00024 00153 TZE +0 10000 0 00155 00154 TMI -0 12000 0 00156 00155 TRA +0 02000 0 00011 00156 TRA +0 02000 0 00070 TRANSFER TO LOOP 033 LM00041 00157 TRA +0 02000 0 00010 UND CANON.(LINE, SIZE, BUFSIZ) 034 LM00042 00160 TSX +0 07400 4 00000 00161 TXH +3 00000 0 00024 00162 TXH +3 00000 0 00024 00163 TXH +3 00000 0 00024 SIZE = SIZE + 1 035 LM00043 00164 CLA +0 50000 0 00024 00165 ADD +0 40000 0 00031 00166 STO +0 60100 0 00024 LINE(SIZE) = RETURN 036 LM00044 00167 LXA +0 53400 1 00024 00170 CLA +0 50000 0 00023 00171 STO +0 60100 1 00024 FUNCTION RETURN SIZE 037 LM00045 00172 CLA +0 50000 0 00024 00173 TRA +0 02000 0 00341 ENTRY TO TYPOUT. 038 LM00050 00174 TRA +0 02000 0 00177 00175 SXA +0 63400 2 00320 00176 TSX +0 07400 2 00320 K = 0 039 LM00051 00177 CLA +0 50000 0 00030 00200 STO +0 60100 0 00020 SETFUL. 040 LM00052 00201 TSX +0 07400 4 00004 THROUGH PRLOOP, FOR J = 1, 1, J .G. BUFSIZ 041 LM00053 00202 CLA +0 50000 0 00031 00203 STO +0 60100 0 00016 00204 TRA +0 02000 0 00210 00205 CLA +0 50000 0 00016 00206 ADD +0 40000 0 00031 00207 STO +0 60100 0 00016 00210 CLA +0 50000 0 00016 00211 SUB +0 40200 0 00024 00212 TZE +0 10000 0 00214 00213 TPL +0 12000 0 00244 TWORD = (TWORD .LS. NBITS) .V. LINE(J) 042 LM00054 00214 CAL -0 50000 0 00021 00215 STA +0 62100 0 00217 00216 CAL -0 50000 0 00025 00217 ALS +0 76700 0 00000 00220 LXA +0 53400 2 00016 00221 ORA -0 50100 2 00024 00222 SLW +0 60200 0 00025 K = K + 1 043 LM00055 00223 CLA +0 50000 0 00020 00224 ADD +0 40000 0 00031 00225 STO +0 60100 0 00020 WHENEVER K .GE. WRDSIZ/NBITS 044 LM00056 00226 LDQ +0 56000 0 00027 00227 PXD -0 75400 0 00000 00230 LLS +0 76300 0 00000 00231 DVP +0 22100 0 00021 00232 XCA +0 13100 0 00000 00233 CHS +0 76000 0 00002 00234 ADD +0 40000 0 00020 00235 TZE +0 10000 0 00237 00236 TMI -0 12000 0 00243 K = 0 045 LM00057 00237 CLA +0 50000 0 00030 00240 STO +0 60100 0 00020 PRWORD.(TWORD) 046 LM00058 00241 TSX +0 07400 4 00003 00242 TXH +3 00000 0 00025 PRLOOP END OF CONDITIONAL 047 LM00059 00243 TRA +0 02000 0 00205 THROUGH NULPK, FOR K = K, 1, K.GE. WRDSIZ/NBITS 048 LM00060 00244 CLA +0 50000 0 00020 00245 STO +0 60100 0 00020 00246 TRA +0 02000 0 00252 00247 CLA +0 50000 0 00020 00250 ADD +0 40000 0 00031 00251 STO +0 60100 0 00020 00252 LDQ +0 56000 0 00027 00253 PXD -0 75400 0 00000 00254 LLS +0 76300 0 00000 00255 DVP +0 22100 0 00021 00256 XCA +0 13100 0 00000 00257 CHS +0 76000 0 00002 00260 ADD +0 40000 0 00020 00261 TZE +0 10000 0 00272 00262 TPL +0 12000 0 00272 NULPK TWORD = (TWORD.LS.NBITS) .V. NULL 049 LM00061 00263 CAL -0 50000 0 00021 00264 STA +0 62100 0 00266 00265 CAL -0 50000 0 00025 00266 ALS +0 76700 0 00000 00267 ORA -0 50100 0 00022 00270 SLW +0 60200 0 00025 00271 TRA +0 02000 0 00247 PRWORD.(TWORD) 050 LM00062 00272 TSX +0 07400 4 00003 00273 TXH +3 00000 0 00025 PRBUFF. 051 LM00063 00274 TSX +0 07400 4 00002 FUNCTION RETURN 052 LM00064 00275 TRA +0 02000 0 00341 ENTRY TO HOL. 053 LM00066 00276 TRA +0 02000 0 00301 00277 SXA +0 63400 2 00320 00300 TSX +0 07400 2 00320 WHENEVER LINE .A. 400K .E. 0 054 LM00067 00301 CAL -0 50000 0 00024 00302 ANA -0 32000 0 00035 00303 SLW +0 60200 0 00345 00304 CLA +0 50000 0 00345 00305 SUB +0 40200 0 00030 00306 TNZ -0 10000 0 00315 FUNCTION RETURN LINE .A. 77K 055 LM00068 00307 CAL -0 50000 0 00024 00310 ANA -0 32000 0 00034 00311 SLW +0 60200 0 00345 00312 CLA +0 50000 0 00345 00313 TRA +0 02000 0 00341 OTHERWISE 056 LM00069 00314 TRA +0 02000 0 00317 FUNCTION RETURN $00000*$ 057 LM00070 00315 CLA +0 50000 0 00033 00316 TRA +0 02000 0 00341 END OF CONDITIONAL 058 LM00071 END OF FUNCTION 059 LM00073 00317 TSX +0 07400 4 00001 00320 TXH +3 00000 0 00000 00321 SXD -0 63400 1 00320 00322 SXA +0 63400 4 00341 00323 CLA +0 50000 4 00001 00324 STA +0 62100 0 00042 00325 STA +0 62100 0 00050 00326 STA +0 62100 0 00150 00327 STO +0 60100 0 00161 00330 STA +0 62100 0 00171 00331 STA +0 62100 0 00221 00332 STA +0 62100 0 00301 00333 STA +0 62100 0 00307 00334 CLA +0 50000 4 00002 00335 STA +0 62100 0 00152 00336 STO +0 60100 0 00163 00337 STA +0 62100 0 00211 00340 TRA +0 02000 2 00001 00341 AXT +0 77400 4 00000 00342 LXA +0 53400 2 00320 00343 LXD -0 53400 1 00320 00344 TRA +0 02000 4 00001 1 MAD PROGRAM LISTING ... ... ... FILE REUND MAD 02/08/68 1745.9 - .. FUNCTION REUND. LM00001 .. REFORMAT UNDERLINES AND OVERSTRIKES. LM00002 LM00003 .. EARL VAN HORN, NOVEMBER, 1964. LM00004 LM00005 EXTERNAL FUNCTION(LIN,SIZE,BUFSIZ) *001 LM00006 LM00007 NORMAL MODE IS INTEGER *002 LM00008 BOOLEAN ADVAN *003 LM00009 VECTOR VALUES BACKSP = 0135K *004 LM00010 VECTOR VALUES BLANK = 0060K *005 LM00011 VECTOR VALUES UNDER = 0540K *006 LM00012 LM00013 ENTRY TO CANON. *007 LM00014 WHENEVER SIZE .GE. BUFSIZ, FUNCTION RETURN *008 LM00015 ADVAN = 1B *009 LM00016 THROUGH L11, FOR STRING = 1, 1, STRING .G. SIZE *010 LM00017 WHENEVER ADVAN *011 LM00018 WHENEVER LIN(STRING) .E. BACKSP *012 LM00019 ADVAN = 0B *013 LM00020 CARAGE = STRING *014 LM00021 FAREST = STRING *015 LM00022 TRANSFER TO L7 *016 LM00023 END OF CONDITIONAL *017 LM00024 TRANSFER TO L11 *018 LM00025 OTHERWISE *019 LM00026 STR = LIN(STRING) *020 LM00027 CAR = LIN(CARAGE) *021 LM00028 WHENEVER STR .E. BACKSP, TRANSFER TO L7 *022 LM00029 WHENEVER STR .E. BLANK, TRANSFER TO L5 *023 LM00030 WHENEVER STR .E. UNDER *024 LM00031 WHENEVER (CAR .A. 3K11) .NE. 0 *025 LM00032 LIN(CARAGE) = (CAR .V. 1K11) *026 LM00033 OR WHENEVER CAR .E. BLANK *027 LM00034 LIN(CARAGE) = STR *028 LM00035 OR WHENEVER CAR .NE. UNDER *029 LM00036 LIN(CARAGE) = (CAR .V. 1K11) *030 LM00037 END OF CONDITIONAL *031 LM00038 OTHERWISE *032 LM00039 WHENEVER (CAR .A. 2K11) .NE. 0 *033 LM00040 1 .OR. (CAR .A. 7777K) .E. STR, TRANSFER TO L5 *033 LM00041 WHENEVER CAR .E. BLANK *034 LM00042 LIN(CARAGE) = STR *035 LM00043 OR WHENEVER CAR .E. UNDER *036 LM00044 LIN(CARAGE) = (STR .V. 1K11) *037 LM00045 OTHERWISE *038 LM00046 EARLT = (CAR .A. 7777K) *039 LM00047 WHENEVER STR .L. EARLT *040 LM00048 EARLT = STR *041 LM00049 STR = (CAR .A. 7777K) *042 LM00050 END OF CONDITIONAL *043 LM00051 LIN(CARAGE) = ((((STR .LS. 12) .V. EARLT) *044 LM00052 1 .V. 2K11) .V. (CAR .A. 1K11)) *044 LM00053 END OF CONDITIONAL *045 LM00054 END OF CONDITIONAL *046 LM00055 END OF CONDITIONAL *047 LM00056 L5 CARAGE = CARAGE + 1 *048 LM00057 WHENEVER (LIN(CARAGE) .A. 4K10) .NE. 0 *049 LM00058 1 .AND. CARAGE .NE. FAREST *049 LM00059 2 , TRANSFER TO L5 *049 LM00060 TRANSFER TO L6 *050 LM00061 L7 WHENEVER CARAGE .E. 1, TRANSFER TO L6 *051 LM00062 CARAGE = CARAGE - 1 *052 LM00063 WHENEVER (LIN(CARAGE) .A. 4K10) .NE. 0 *053 LM00064 1 , TRANSFER TO L7 *053 LM00065 L6 LIN(STRING) = (LIN(STRING) .V. 4K10) *054 LM00066 WHENEVER CARAGE .E. FAREST .AND. .NOT. ADVAN *055 LM00067 1 , ADVAN = 1B *055 LM00068 L11 CONTINUE *056 LM00069 J = BUFSIZ *057 LM00070 THROUGH L33, FOR I = SIZE, -1, I .L. 1 *058 LM00071 WHENEVER (LIN(I) .A. 4K10) .E. 0 *059 LM00072 LIN(J) = LIN(I) *060 LM00073 J = J - 1 *061 LM00074 END OF CONDITIONAL *062 LM00075 L33 CONTINUE *063 LM00076 I = 1 *064 LM00077 THROUGH L44, FOR J = J + 1, 1, J .G. BUFSIZ *065 LM00078 EARLT = LIN(J) *066 LM00079 WHENEVER (EARLT .A. 3K11) .E. 0 *067 LM00080 LIN(I) = EARLT *068 LM00081 OTHERWISE *069 LM00082 LIN(I) = (EARLT .A. 7777K) *070 LM00083 WHENEVER (EARLT .A. 2K11) .NE. 0 *071 LM00084 LIN(I+1) = BACKSP *072 LM00085 LIN(I+2) = ((EARLT .A. 7777K4) .RS. 12) *073 LM00086 I = I + 2 *074 LM00087 END OF CONDITIONAL *075 LM00088 WHENEVER (EARLT .A. 1K11) .NE. 0 *076 LM00089 LIN(I+1) = BACKSP *077 LM00090 LIN(I+2) = UNDER *078 LM00091 I = I + 2 *079 LM00092 END OF CONDITIONAL *080 LM00093 END OF CONDITIONAL *081 LM00094 I = I + 1 *082 LM00095 L44 CONTINUE *083 LM00096 SIZE = I - 1 *084 LM00097 FUNCTION RETURN *085 LM00098 LM00099 END OF FUNCTION *086 LM00100 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00545 TRANSFER VECTOR LENGTH 00001 PROGRAM BEGINS 00035 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES CANON 00036 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ADVAN 00006 2 CAR 00012 1 J 00016 1 L5 00003 4 STRING 00017 1 BACKSP 00007 A 1 EARLT 00013 1 L11 00002 4 L6 00004 4 STR 00020 1 BLANK 00010 A 1 FAREST 00014 1 L33 00001 4 L7 00005 4 UNDER 00021 A 1 CARAGE 00011 1 I 00015 1 L44 00001 4 0FUNCTION DICTIONARY EXIT 00000 1 0ABSOLUTE CONSTANTS 00024 +000000000002 00027 +000077770000 00030 +040000000000 00025 +000000000014 00032 +200000000000 00026 +000000007777 00031 +100000000000 00034 +300000000000 00022 +000000000000 00023 +000000000001 00033 +233000000000 0STATEMENT DICTIONARY 00002 TXL -300311000310 00003 TXL -300242000237 00004 TXL -300301000275 00005 TXL -300262000256 0PROGRAM EXTERNAL FUNCTION(LIN,SIZE,BUFSIZ) 001 LM00006 NORMAL MODE IS INTEGER 002 LM00008 BOOLEAN ADVAN 003 LM00009 VECTOR VALUES BACKSP = 0135K 004 LM00010 00007 +0 00000 0 00135 VECTOR VALUES BLANK = 0060K 005 LM00011 00010 +0 00000 0 00060 VECTOR VALUES UNDER = 0540K 006 LM00012 00021 +0 00000 0 00540 ENTRY TO CANON. 007 LM00014 00035 TRA +0 02000 0 00040 00036 SXA +0 63400 2 00471 00037 TSX +0 07400 2 00471 WHENEVER SIZE .GE. BUFSIZ, FUNCTION RETURN 008 LM00015 00040 CLA +0 50000 0 00024 00041 SUB +0 40200 0 00024 00042 TZE +0 10000 0 00044 00043 TMI -0 12000 0 00045 00044 TRA +0 02000 0 00536 ADVAN = 1B 009 LM00016 00045 CLA +0 50000 0 00023 00046 STO +0 60100 0 00006 THROUGH L11, FOR STRING = 1, 1, STRING .G. SIZE 010 LM00017 00047 CLA +0 50000 0 00023 00050 STO +0 60100 0 00017 00051 TRA +0 02000 0 00055 00052 CLA +0 50000 0 00017 00053 ADD +0 40000 0 00023 00054 STO +0 60100 0 00017 00055 CLA +0 50000 0 00017 00056 SUB +0 40200 0 00024 00057 TZE +0 10000 0 00061 00060 TPL +0 12000 0 00311 WHENEVER ADVAN 011 LM00018 00061 NZT -0 52000 0 00006 00062 TRA +0 02000 0 00100 WHENEVER LIN(STRING) .E. BACKSP 012 LM00019 00063 LXA +0 53400 1 00017 00064 CLA +0 50000 1 00024 00065 SUB +0 40200 0 00007 00066 TNZ -0 10000 0 00076 ADVAN = 0B 013 LM00020 00067 CLA +0 50000 0 00022 00070 STO +0 60100 0 00006 CARAGE = STRING 014 LM00021 00071 CLA +0 50000 0 00017 00072 STO +0 60100 0 00011 FAREST = STRING 015 LM00022 00073 CLA +0 50000 0 00017 00074 STO +0 60100 0 00014 TRANSFER TO L7 016 LM00023 00075 TRA +0 02000 0 00005 END OF CONDITIONAL 017 LM00024 TRANSFER TO L11 018 LM00025 00076 TRA +0 02000 0 00002 OTHERWISE 019 LM00026 00077 TRA +0 02000 0 00237 STR = LIN(STRING) 020 LM00027 00100 LXA +0 53400 2 00017 00101 CLA +0 50000 2 00024 00102 STO +0 60100 0 00020 CAR = LIN(CARAGE) 021 LM00028 00103 LXA +0 53400 2 00011 00104 CLA +0 50000 2 00024 00105 STO +0 60100 0 00012 WHENEVER STR .E. BACKSP, TRANSFER TO L7 022 LM00029 00106 CLA +0 50000 0 00020 00107 SUB +0 40200 0 00007 00110 TNZ -0 10000 0 00112 00111 TRA +0 02000 0 00005 WHENEVER STR .E. BLANK, TRANSFER TO L5 023 LM00030 00112 CLA +0 50000 0 00020 00113 SUB +0 40200 0 00010 00114 TNZ -0 10000 0 00116 00115 TRA +0 02000 0 00003 WHENEVER STR .E. UNDER 024 LM00031 00116 CLA +0 50000 0 00020 00117 SUB +0 40200 0 00021 00120 TNZ -0 10000 0 00153 WHENEVER (CAR .A. 3K11) .NE. 0 025 LM00032 00121 CAL -0 50000 0 00012 00122 ANA -0 32000 0 00034 00123 SLW +0 60200 0 00542 00124 CLA +0 50000 0 00542 00125 SUB +0 40200 0 00022 00126 TZE +0 10000 0 00134 LIN(CARAGE) = (CAR .V. 1K11) 026 LM00033 00127 CAL -0 50000 0 00012 00130 ORA -0 50100 0 00031 00131 LXA +0 53400 1 00011 00132 SLW +0 60200 1 00024 OR WHENEVER CAR .E. BLANK 027 LM00034 00133 TRA +0 02000 0 00152 00134 CLA +0 50000 0 00012 00135 SUB +0 40200 0 00010 00136 TNZ -0 10000 0 00143 LIN(CARAGE) = STR 028 LM00035 00137 LXA +0 53400 1 00011 00140 CLA +0 50000 0 00020 00141 STO +0 60100 1 00024 OR WHENEVER CAR .NE. UNDER 029 LM00036 00142 TRA +0 02000 0 00152 00143 CLA +0 50000 0 00012 00144 SUB +0 40200 0 00021 00145 TZE +0 10000 0 00152 LIN(CARAGE) = (CAR .V. 1K11) 030 LM00037 00146 CAL -0 50000 0 00012 00147 ORA -0 50100 0 00031 00150 LXA +0 53400 1 00011 00151 SLW +0 60200 1 00024 END OF CONDITIONAL 031 LM00038 OTHERWISE 032 LM00039 00152 TRA +0 02000 0 00237 WHENEVER (CAR .A. 2K11) .NE. 0 033 LM00040 1 .OR. (CAR .A. 7777K) .E. STR, TRANSFER TO L5 033 LM00041 00153 CAL -0 50000 0 00012 00154 ANA -0 32000 0 00026 00155 SLW +0 60200 0 00542 00156 CLA +0 50000 0 00542 00157 SUB +0 40200 0 00020 00160 TZE +0 10000 0 00167 00161 CAL -0 50000 0 00012 00162 ANA -0 32000 0 00032 00163 SLW +0 60200 0 00542 00164 CLA +0 50000 0 00542 00165 SUB +0 40200 0 00022 00166 TZE +0 10000 0 00170 00167 TRA +0 02000 0 00003 WHENEVER CAR .E. BLANK 034 LM00042 00170 CLA +0 50000 0 00012 00171 SUB +0 40200 0 00010 00172 TNZ -0 10000 0 00177 LIN(CARAGE) = STR 035 LM00043 00173 LXA +0 53400 1 00011 00174 CLA +0 50000 0 00020 00175 STO +0 60100 1 00024 OR WHENEVER CAR .E. UNDER 036 LM00044 00176 TRA +0 02000 0 00237 00177 CLA +0 50000 0 00012 00200 SUB +0 40200 0 00021 00201 TNZ -0 10000 0 00207 LIN(CARAGE) = (STR .V. 1K11) 037 LM00045 00202 CAL -0 50000 0 00020 00203 ORA -0 50100 0 00031 00204 LXA +0 53400 1 00011 00205 SLW +0 60200 1 00024 OTHERWISE 038 LM00046 00206 TRA +0 02000 0 00237 EARLT = (CAR .A. 7777K) 039 LM00047 00207 CAL -0 50000 0 00012 00210 ANA -0 32000 0 00026 00211 SLW +0 60200 0 00013 WHENEVER STR .L. EARLT 040 LM00048 00212 CLA +0 50000 0 00020 00213 SUB +0 40200 0 00013 00214 TZE +0 10000 0 00223 00215 TPL +0 12000 0 00223 EARLT = STR 041 LM00049 00216 CLA +0 50000 0 00020 00217 STO +0 60100 0 00013 STR = (CAR .A. 7777K) 042 LM00050 00220 CAL -0 50000 0 00012 00221 ANA -0 32000 0 00026 00222 SLW +0 60200 0 00020 END OF CONDITIONAL 043 LM00051 LIN(CARAGE) = ((((STR .LS. 12) .V. EARLT) 044 LM00052 1 .V. 2K11) .V. (CAR .A. 1K11)) 044 LM00053 00223 CAL -0 50000 0 00012 00224 ANA -0 32000 0 00031 00225 SLW +0 60200 0 00542 00226 CAL -0 50000 0 00025 00227 STA +0 62100 0 00231 00230 CAL -0 50000 0 00020 00231 ALS +0 76700 0 00000 00232 ORA -0 50100 0 00013 00233 ORA -0 50100 0 00032 00234 ORA -0 50100 0 00542 00235 LXA +0 53400 1 00011 00236 SLW +0 60200 1 00024 END OF CONDITIONAL 045 LM00054 END OF CONDITIONAL 046 LM00055 END OF CONDITIONAL 047 LM00056 L5 CARAGE = CARAGE + 1 048 LM00057 00237 CLA +0 50000 0 00011 00240 ADD +0 40000 0 00023 00241 STO +0 60100 0 00011 WHENEVER (LIN(CARAGE) .A. 4K10) .NE. 0 049 LM00058 1 .AND. CARAGE .NE. FAREST 049 LM00059 2 , TRANSFER TO L5 049 LM00060 00242 CLA +0 50000 0 00011 00243 SUB +0 40200 0 00014 00244 TZE +0 10000 0 00255 00245 LXA +0 53400 1 00011 00246 CAL -0 50000 1 00024 00247 ANA -0 32000 0 00030 00250 SLW +0 60200 0 00542 00251 CLA +0 50000 0 00542 00252 SUB +0 40200 0 00022 00253 TZE +0 10000 0 00255 00254 TRA +0 02000 0 00003 TRANSFER TO L6 050 LM00061 00255 TRA +0 02000 0 00004 L7 WHENEVER CARAGE .E. 1, TRANSFER TO L6 051 LM00062 00256 CLA +0 50000 0 00011 00257 SUB +0 40200 0 00023 00260 TNZ -0 10000 0 00262 00261 TRA +0 02000 0 00004 CARAGE = CARAGE - 1 052 LM00063 00262 CLA +0 50000 0 00011 00263 SUB +0 40200 0 00023 00264 STO +0 60100 0 00011 WHENEVER (LIN(CARAGE) .A. 4K10) .NE. 0 053 LM00064 1 , TRANSFER TO L7 053 LM00065 00265 LXA +0 53400 1 00011 00266 CAL -0 50000 1 00024 00267 ANA -0 32000 0 00030 00270 SLW +0 60200 0 00542 00271 CLA +0 50000 0 00542 00272 SUB +0 40200 0 00022 00273 TZE +0 10000 0 00275 00274 TRA +0 02000 0 00005 L6 LIN(STRING) = (LIN(STRING) .V. 4K10) 054 LM00066 00275 LXA +0 53400 1 00017 00276 CAL -0 50000 1 00024 00277 ORA -0 50100 0 00030 00300 SLW +0 60200 1 00024 WHENEVER CARAGE .E. FAREST .AND. .NOT. ADVAN 055 LM00067 1 , ADVAN = 1B 055 LM00068 00301 ZET +0 52000 0 00006 00302 TRA +0 02000 0 00310 00303 CLA +0 50000 0 00011 00304 SUB +0 40200 0 00014 00305 TNZ -0 10000 0 00310 00306 CLA +0 50000 0 00023 00307 STO +0 60100 0 00006 L11 CONTINUE 056 LM00069 00310 TRA +0 02000 0 00052 J = BUFSIZ 057 LM00070 00311 CLA +0 50000 0 00024 00312 STO +0 60100 0 00016 THROUGH L33, FOR I = SIZE, -1, I .L. 1 058 LM00071 00313 CLA +0 50000 0 00024 00314 STO +0 60100 0 00015 00315 TRA +0 02000 0 00321 00316 CLS +0 50200 0 00023 00317 ADD +0 40000 0 00015 00320 STO +0 60100 0 00015 00321 CLA +0 50000 0 00015 00322 SUB +0 40200 0 00023 00323 TZE +0 10000 0 00325 00324 TMI -0 12000 0 00344 WHENEVER (LIN(I) .A. 4K10) .E. 0 059 LM00072 00325 LXA +0 53400 1 00015 00326 CAL -0 50000 1 00024 00327 ANA -0 32000 0 00030 00330 SLW +0 60200 0 00542 00331 CLA +0 50000 0 00542 00332 SUB +0 40200 0 00022 00333 TNZ -0 10000 0 00343 LIN(J) = LIN(I) 060 LM00073 00334 LXA +0 53400 1 00016 00335 LXA +0 53400 2 00015 00336 CLA +0 50000 2 00024 00337 STO +0 60100 1 00024 J = J - 1 061 LM00074 00340 CLA +0 50000 0 00016 00341 SUB +0 40200 0 00023 00342 STO +0 60100 0 00016 END OF CONDITIONAL 062 LM00075 L33 CONTINUE 063 LM00076 00343 TRA +0 02000 0 00316 I = 1 064 LM00077 00344 CLA +0 50000 0 00023 00345 STO +0 60100 0 00015 THROUGH L44, FOR J = J + 1, 1, J .G. BUFSIZ 065 LM00078 00346 CLA +0 50000 0 00016 00347 ADD +0 40000 0 00023 00350 STO +0 60100 0 00016 00351 TRA +0 02000 0 00355 00352 CLA +0 50000 0 00016 00353 ADD +0 40000 0 00023 00354 STO +0 60100 0 00016 00355 CLA +0 50000 0 00016 00356 SUB +0 40200 0 00024 00357 TZE +0 10000 0 00361 00360 TPL +0 12000 0 00464 EARLT = LIN(J) 066 LM00079 00361 LXA +0 53400 2 00016 00362 CLA +0 50000 2 00024 00363 STO +0 60100 0 00013 WHENEVER (EARLT .A. 3K11) .E. 0 067 LM00080 00364 CAL -0 50000 0 00013 00365 ANA -0 32000 0 00034 00366 SLW +0 60200 0 00542 00367 CLA +0 50000 0 00542 00370 SUB +0 40200 0 00022 00371 TNZ -0 10000 0 00376 LIN(I) = EARLT 068 LM00081 00372 LXA +0 53400 1 00015 00373 CLA +0 50000 0 00013 00374 STO +0 60100 1 00024 OTHERWISE 069 LM00082 00375 TRA +0 02000 0 00460 LIN(I) = (EARLT .A. 7777K) 070 LM00083 00376 CAL -0 50000 0 00013 00377 ANA -0 32000 0 00026 00400 LXA +0 53400 1 00015 00401 SLW +0 60200 1 00024 WHENEVER (EARLT .A. 2K11) .NE. 0 071 LM00084 00402 CAL -0 50000 0 00013 00403 ANA -0 32000 0 00032 00404 SLW +0 60200 0 00542 00405 CLA +0 50000 0 00542 00406 SUB +0 40200 0 00022 00407 TZE +0 10000 0 00435 LIN(I+1) = BACKSP 072 LM00085 00410 CLA +0 50000 0 00015 00411 ADD +0 40000 0 00023 00412 PAX +0 73400 1 00000 00413 CLA +0 50000 0 00007 00414 STO +0 60100 1 00024 LIN(I+2) = ((EARLT .A. 7777K4) .RS. 12) 073 LM00086 00415 CAL -0 50000 0 00013 00416 ANA -0 32000 0 00027 00417 SLW +0 60200 0 00542 00420 CAL -0 50000 0 00025 00421 STA +0 62100 0 00423 00422 CAL -0 50000 0 00542 00423 LGR -0 76500 0 00000 00424 SLW +0 60200 0 00542 00425 CLA +0 50000 0 00015 00426 ADD +0 40000 0 00024 00427 PAX +0 73400 1 00000 00430 CLA +0 50000 0 00542 00431 STO +0 60100 1 00024 I = I + 2 074 LM00087 00432 CLA +0 50000 0 00015 00433 ADD +0 40000 0 00024 00434 STO +0 60100 0 00015 END OF CONDITIONAL 075 LM00088 WHENEVER (EARLT .A. 1K11) .NE. 0 076 LM00089 00435 CAL -0 50000 0 00013 00436 ANA -0 32000 0 00031 00437 SLW +0 60200 0 00542 00440 CLA +0 50000 0 00542 00441 SUB +0 40200 0 00022 00442 TZE +0 10000 0 00460 LIN(I+1) = BACKSP 077 LM00090 00443 CLA +0 50000 0 00015 00444 ADD +0 40000 0 00023 00445 PAX +0 73400 1 00000 00446 CLA +0 50000 0 00007 00447 STO +0 60100 1 00024 LIN(I+2) = UNDER 078 LM00091 00450 CLA +0 50000 0 00015 00451 ADD +0 40000 0 00024 00452 PAX +0 73400 1 00000 00453 CLA +0 50000 0 00021 00454 STO +0 60100 1 00024 I = I + 2 079 LM00092 00455 CLA +0 50000 0 00015 00456 ADD +0 40000 0 00024 00457 STO +0 60100 0 00015 END OF CONDITIONAL 080 LM00093 END OF CONDITIONAL 081 LM00094 I = I + 1 082 LM00095 00460 CLA +0 50000 0 00015 00461 ADD +0 40000 0 00023 00462 STO +0 60100 0 00015 L44 CONTINUE 083 LM00096 00463 TRA +0 02000 0 00352 SIZE = I - 1 084 LM00097 00464 CLA +0 50000 0 00015 00465 SUB +0 40200 0 00023 00466 STO +0 60100 0 00024 FUNCTION RETURN 085 LM00098 00467 TRA +0 02000 0 00536 END OF FUNCTION 086 LM00100 00470 TSX +0 07400 4 00000 00471 TXH +3 00000 0 00000 00472 SXD -0 63400 1 00471 00473 SXA +0 63400 4 00536 00474 CLA +0 50000 4 00001 00475 STA +0 62100 0 00064 00476 STA +0 62100 0 00101 00477 STA +0 62100 0 00104 00500 STA +0 62100 0 00132 00501 STA +0 62100 0 00141 00502 STA +0 62100 0 00151 00503 STA +0 62100 0 00175 00504 STA +0 62100 0 00205 00505 STA +0 62100 0 00236 00506 STA +0 62100 0 00246 00507 STA +0 62100 0 00266 00510 STA +0 62100 0 00276 00511 STA +0 62100 0 00300 00512 STA +0 62100 0 00326 00513 STA +0 62100 0 00336 00514 STA +0 62100 0 00337 00515 STA +0 62100 0 00362 00516 STA +0 62100 0 00374 00517 STA +0 62100 0 00401 00520 STA +0 62100 0 00414 00521 STA +0 62100 0 00431 00522 STA +0 62100 0 00447 00523 STA +0 62100 0 00454 00524 CLA +0 50000 4 00002 00525 STA +0 62100 0 00040 00526 STA +0 62100 0 00056 00527 STA +0 62100 0 00313 00530 STA +0 62100 0 00466 00531 CLA +0 50000 4 00003 00532 STA +0 62100 0 00041 00533 STA +0 62100 0 00311 00534 STA +0 62100 0 00356 00535 TRA +0 02000 2 00001 00536 AXT +0 77400 4 00000 00537 LXA +0 53400 2 00471 00540 LXD -0 53400 1 00471 00541 TRA +0 02000 4 00001 1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 1 * * J. H. SALTZER, JANUARY, 1965. * 00004 ENTRY PRWORD ADD A WORD TO PRINT BUFFER. 00021 ENTRY PRBUFF PRINT OUT PARTIAL BUFFER. 00030 ENTRY TYWORD GET NEXT TYPED WORD. 00047 ENTRY TYLINE RESET TO START READING NEXT LINE. * EXTERN RDFLXA,WRFLXA * TRANSFER VECTOR 00000 512426436721 RDFLXA 00001 665126436721 WRFLXA LINKAGE DIRECTOR 00002 000000000000 00003 475166465124 00034 BUFLEN EQU 28 TYPEWRITER BUFFER SIZE. * * ADD WORD TO PRINT BUFFER. * PRWORD.(WORD) * 00004 0634 00 4 00017 PRWORD SXA PRX4,4 SAVE LINKAGE. 00005 -0500 60 4 00001 CAL* 1,4 GET WORD BEING ADDED. 00006 -0734 00 4 00000 PDX 0,4 CHECK FOR DISK CONTROL WORD. 00007 3 77776 4 00017 TXH PRX4,4,-2 DON'T STORE CONTROL WORD. 00010 0774 00 4 00034 PWCNT AXT BUFLEN,4 SET WORD COUNTER (INITIALLY BUFLEN.) 00011 0602 00 4 00105 SLW BUFF+BUFLEN,4 STORE WORD IN BUFFER. 00012 2 00001 4 00016 TIX PSAVE,4,1 COUNT, CHECK FOR OVERFLOW. 00013 0074 00 4 00001 TSX WRFLXA,4 BUFFER FULL, PRINT W/O C.R. 00014 0 00034 0 00051 BUFF,,BUFLEN .. 00015 0774 00 4 00034 PFRESH AXT BUFLEN,4 RESET WORD COUNTER. 00016 0634 00 4 00010 PSAVE SXA PWCNT,4 SAVE WORD COUNTER. 00017 0774 00 4 00000 PRX4 AXT --,4 RESTORE LINKAGE. 00020 0020 00 4 00001 TRA 1,4 RETURN. * * PRINT OUT REMAINING BUFFER, RESET COUNTER. * 00021 0634 00 4 00017 PRBUFF SXA PRX4,4 SAVE LINKAGE. 00022 0535 00 4 00010 LAC PWCNT,4 GET WORD COUNT. 00023 1 00034 4 00024 TXI *+1,4,BUFLEN FORM COMPLEMENT MOD BUFLEN. 00024 -0634 00 4 00026 SXD PRCL,4 SAVE COUNT IN CALLER. 00025 0074 00 4 00001 TSX WRFLXA,4 PRINT REMAINDER. 00026 0 00000 0 00051 PRCL BUFF,,-- .. 00027 0020 00 0 00015 TRA PFRESH GO REFRESH COUNTER, AND RETURN. * * GET A WORD FROM INPUT BUFFER. * WORD = TYWORD.(0) * 00030 0634 00 4 00045 TYWORD SXA TYX4,4 SAVE LINKAGE. 00031 0774 00 5 00000 TYCNT AXT --,5 GET WORD COUNTER. 00032 0774 00 4 00000 TYPOS AXT --,4 GET BUFFER POINTER. 00033 2 00006 5 00041 TIX TYGET,5,6 CHECK FOR WORDS LEFT. 00034 0074 00 4 00000 TSX RDFLXA,4 NO, GET SOME. 1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 2 00035 0 00034 0 00051 TYCALL BUFF,,BUFLEN .. 00036 0734 00 5 00000 PAX 0,5 INSERT 6-BIT CHARACTER COUNT INTO COUNTER. 00037 2 40000 5 00040 TIX *+1,5,16384 REMOVE BIT 21 IF PRESENT. 00040 0774 00 4 00000 AXT 0,4 RESET INPUT BUFFER POINTER. 00041 0500 00 4 00051 TYGET CLA BUFF,4 GET A WORD. 00042 1 77777 4 00043 TXI *+1,4,-1 MOVE POINTER TO NEXT WORD. 00043 0634 00 4 00032 SXA TYPOS,4 SAVE POINTER. 00044 0634 00 5 00031 SXA TYCNT,5 SAVE CHARACTER COUNTER. 00045 0774 00 4 00000 TYX4 AXT --,4 RESTORE LINKAGE. 00046 0020 00 4 00001 TRA 1,4 RETURN. * 00047 0634 00 0 00031 TYLINE ZSA TYCNT RESET CHARACTER COUNT TO MAKE LINE EMPTY. 00050 0020 00 4 00001 TRA 1,4 RETURN * 00051 BUFF BSS BUFLEN OUTPUT BUFFER. * END 1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 1 POST PROCESSOR ASSEMBLY DATA 105 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 51 BUFF 11, 14, 26, 35, 41 26 PRCL 24 17 PRX4 4, 7, 21 45 TYX4 30 16 PSAVE 12 10 PWCNT 16, 22 31 TYCNT 44, 47 41 TYGET 33 32 TYPOS 43 34 BUFLEN 4, 10, 11, 14, 15, 23, 35, 51 15 PFRESH 27 21 PRBUFF 0 4 PRWORD 0 0 RDFLXA 34 35 TYCALL 47 TYLINE 0 30 TYWORD 0 1 WRFLXA 13, 25 0 NO ERROR IN ABOVE ASSEMBLY. 1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. PAGE 1 * * J. H. SALTZER, MAY, 1966. 00002 ENTRY BIN CONVERTER. LINKAGE DIRECTOR 00000 000000000000 00001 223145606060 00002 0634 00 1 00024 BIN SXA IRR1,1 00003 0600 00 0 00027 STZ INT CLEAR RESULT. 00004 0774 00 1 00006 AXT 6,1 00005 0560 60 4 00001 LDQ* 1,4 GET ARGUMENT. 00006 -0754 00 0 00000 LOP ZAC 00007 -0763 00 0 00006 LGL 6 GET NEXT CHARACTER. 00010 -0340 00 0 00032 LAS =10 SKIP OVER NON-DIGITS. 00011 0020 00 0 00023 TRA TIX 00012 0020 00 0 00023 TRA TIX 00013 0601 00 0 00030 STO DIG NUMBER, SAVE DIGIT. 00014 -0600 00 0 00031 STQ TEM SAVE MQ FOR MULTIPLIACATION. 00015 0560 00 0 00027 LDQ INT GET OLD NUMBER. 00016 0200 00 0 00032 MPY =10 SHIFT. 00017 0131 00 0 00000 XCA 00020 0400 00 0 00030 ADD DIG ADD THIS DIGIT TO RESULT. 00021 0601 00 0 00027 STO INT SAVE, FOR NEXT PASS. 00022 0560 00 0 00031 LDQ TEM RESTORE MQ. 00023 2 00001 1 00006 TIX TIX LOP,1,1 00024 0774 00 1 00000 IRR1 AXT --,1 00025 0500 00 0 00027 CLA INT RESULT IN AC. 00026 0020 00 4 00002 TRA 2,4 * 00027 0 00000 0 00000 INT 00030 0 00000 0 00000 DIG 00031 0 00000 0 00000 TEM * END LITERALS 00032 000000000012 1 SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. PAGE 1 POST PROCESSOR ASSEMBLY DATA 33 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 2 BIN 0 30 DIG 13, 20 27 INT 3, 15, 21, 25 6 LOP 23 31 TEM 14, 22 23 TIX 11, 12 24 IRR1 2 0 NO ERROR IN ABOVE ASSEMBLY. 1 LIBRARY PACKAGE. PAGE 1 00024 ENTRY .PCOMT PRINT COMMENT ROUTINE 00010 ENTRY CHNCOM GO DORMANT. 00005 ENTRY EXIT SAME. 00002 ENTRY .SETUP CALLED BY MAD MAIN PROGRA. 00013 ENTRY COMARG GET COMMAND ARGUMENT. 00106 ENTRY WHOAMI 00066 ENTRY SETBCD 00064 ENTRY SETFUL 00065 ENTRY SETBRK 00061 ENTRY WRFLXA 00063 ENTRY WRFLX 00062 ENTRY RDFLXA 00067 ENTRY UPDATE UPDATE U.F.D. 00070 ENTRY CHFILE 00071 ENTRY DELFIL 00072 ENTRY FSTATE 00073 ENTRY BUFFER 00074 ENTRY OPEN 00075 ENTRY WRWAIT 00076 ENTRY WRFILE 00077 ENTRY RDWAIT 00100 ENTRY RDFILE 00101 ENTRY CLOSE 00043 ENTRY GETBUF OBTAIN BUFFERS FROM SUPERVISOR. * LINKAGE DIRECTOR 00000 000000000000 00001 334723464463 00002 0760 00 0 00016 .SETUP LMTM USE SEVEN TAG MODE. 00003 0774 00 6 00000 AXT 0,6 SET UP IR6 TO AVOID EARLY CALL TO READ. 00004 0020 00 0 00064 TRA SETFUL USE FULL MODE. SETFUL RETURNS 1,4. * 00005 0074 00 4 00066 EXIT TSX SETBCD,4 CLEANUP, RESET MODE. 00006 0074 00 4 00063 TSX WRFLX,4 PUT OUT A STAR FOR RUNCOMS. 00007 0 00001 0 00060 STAR,,1 AND THEN PERFORM CHNCOM SEQUENCE. 00010 0074 00 4 00102 CHNCOM TSX CHN,4 THIS CHNCOM ALWAYS GOES DEAD, TD 00011 3 00000 0 00107 TXH =0 IF NO CHAIN EXISTS. 00012 0020 00 0 00010 TRA *-2 IN CASE OF RESTART, DON'T. * 00013 0634 00 4 00022 COMARG SXA CM4,4 GET COMMAND ARGUMENT FOR MAD. 00014 -0500 60 4 00001 CAL* 1,4 GET ARGUMENT NUMBER. 00015 0602 00 0 00017 SLW ARG GIVE ARGUMENT NUMBER. 00016 0074 00 4 00103 TSX GETCOM,4 GET COMMAND ARGUMENT. 00017 0 00000 0 00000 ARG .. 00020 0602 00 0 00017 SLW ARG MOVE TO ARITHMETIC AC. 00021 0500 00 0 00017 CLA ARG .. 00022 0774 00 4 00000 CM4 AXT --,4 RESTORE LINKAGE. 00023 0020 00 4 00002 TRA 2,4 RETURN TO CALLER. * 00024 -0500 00 4 00001 .PCOMT CAL 1,4 GET WORD COUNT. 00025 0621 00 0 00042 STA RETURN ON RETURN, JUMP BUFFER. 00026 0767 00 0 00022 ALS 18 SETUP COUNT. 00027 0622 00 0 00036 STD PCNT .. 00030 1 77776 4 00031 TXI *+1,4,-2 SETUP UP BUFFER ADDRESS. 1 LIBRARY PACKAGE. PAGE 2 00031 0636 00 4 00036 SCA PCNT,4 SAVE BUFFER ADDRESS, AND LINKAGE. 00032 0074 00 4 00064 TSX SETFUL,4 MAKE SURE MODE SET AND NO LINES COMING IN. 00033 0074 00 4 00061 TSX WRFLXA,4 SWITCH TO RED SHIFT. 00034 0 00001 0 00056 REDS,,1 .. 00035 0074 00 4 00063 TSX WRFLX,4 PRINT LINE. 00036 0 00000 0 00000 PCNT --,,-- .. 00037 0074 00 4 00061 TSX WRFLXA,4 SHIFT BACK TO BLACK. 00040 0 00001 0 00057 BLCKS,,1 .. 00041 0535 00 4 00036 LAC PCNT,4 RESTORE LINKAGE. 00042 0020 00 4 00000 RETURN TRA --,4 RETURN TO CALLER. * 00043 0634 00 4 00052 GETBUF SXA GX4,4 ENTRY TO GET BUFFERS. 00044 0602 00 0 00055 SLW BUFSIZ SIZE OF BUFFER IN AC. 00045 0074 00 4 00104 TSX GETMEM,4 GET PRESENT BOUND. 00046 0601 00 0 00054 STO START SAVE AS BUFFER START. 00047 0361 00 0 00055 ACL BUFSIZ FORM NEW BOUND. 00050 0074 00 4 00105 TSX SETMEM,4 ASK FOR MORE. 00051 -0500 00 0 00054 CAL START GIVE CALLER LOCATION OF 00052 0774 00 4 00000 GX4 AXT --,4 HIS NEW BUFFER. 00053 0020 00 4 00001 TRA 1,4 RETURN. * 00054 0 00000 0 00000 START STORAGE FOR BUFFER LOCATION. 00055 0 00000 0 00000 BUFSIZ STORAGE FOR BUFFER SIZE. * 00056 +013300570057 REDS OCT 013300570057 RED SHIFT AND TWO NULLS. 00057 +013200570057 BLCKS OCT 013200570057 BLACK SHIFT AND TWO NULLS. 00060 -145757575757 STAR OCT 545757575757 ASTERISK AND 5 NULLS. * * SUPERVISOR SUBROUTINE CALLERS. * 00061 0101 00 0 00133 WRFLXA TIA =HWRFLXA 00062 0101 00 0 00122 RDFLXA TIA =HRDFLXA 00063 0101 00 0 00134 WRFLX TIA =HWRFLX 00064 0101 00 0 00126 SETFUL TIA =HSETFUL 00065 0101 00 0 00125 SETBRK TIA =HSETBRK 00066 0101 00 0 00124 SETBCD TIA =HSETBCD 00067 0101 00 0 00130 UPDATE TIA =HUPDATE 00070 0101 00 0 00111 CHFILE TIA =HCHFILE 00071 0101 00 0 00114 DELFIL TIA =HDELFIL 00072 0101 00 0 00115 FSTATE TIA =HFSTATE 00073 0101 00 0 00110 BUFFER TIA =HBUFFER 00074 0101 00 0 00120 OPEN TIA =HOPEN 00075 0101 00 0 00135 WRWAIT TIA =HWRWAIT 00076 0101 00 0 00132 WRFILE TIA =HWRFILE 00077 0101 00 0 00123 RDWAIT TIA =HRDWAIT 00100 0101 00 0 00121 RDFILE TIA =HRDFILE 00101 0101 00 0 00113 CLOSE TIA =HCLOSE 00102 0101 00 0 00112 CHN TIA =HCHNCOM 00103 0101 00 0 00116 GETCOM TIA =HGETCOM 00104 0101 00 0 00117 GETMEM TIA =HGETMEM 00105 0101 00 0 00127 SETMEM TIA =HSETMEM 00106 0101 00 0 00131 WHOAMI TIA =HWHOAMI * END 1 LIBRARY PACKAGE. PAGE 3 LITERALS 00107 000000000000 00110 226426262551 00111 233026314325 00112 233045234644 00113 234346622560 00114 242543263143 00115 266263216325 00116 272563234644 00117 272563442544 00120 464725456060 00121 512426314325 00122 512426436721 00123 512466213163 00124 622563222324 00125 622563225142 00126 622563266443 00127 622563442544 00130 644724216325 00131 663046214431 00132 665126314325 00133 665126436721 00134 665126436760 00135 665166213163 1 LIBRARY PACKAGE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 136 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 17 ARG 15, 20, 21 102 CHN 10 22 CM4 13 52 GX4 43 5 EXIT 0 74 OPEN 0 36 PCNT 27, 31, 41 56 REDS 34 60 STAR 7 57 BLCKS 40 101 CLOSE 0 54 START 46, 51 63 WRFLX 0, 6, 35 73 BUFFER 0 55 BUFSIZ 44, 47 70 CHFILE 0 10 CHNCOM 0 13 COMARG 0 71 DELFIL 0 72 FSTATE 0 43 GETBUF 0 103 GETCOM 16 104 GETMEM 45 24 .PCOMT 0 2 .SETUP 0 100 RDFILE 0 62 RDFLXA 0 77 RDWAIT 0 42 RETURN 25 66 SETBCD 0, 5 65 SETBRK 0 64 SETFUL 0, 4, 32 105 SETMEM 50 67 UPDATE 0 106 WHOAMI 0 76 WRFILE 0 61 WRFLXA 0, 33, 37 75 WRWAIT 0 0 NO ERROR IN ABOVE ASSEMBLY. UNLINK BCD 08/24/72 2356.1 15167 00000 1 MAD PROGRAM LISTING ... ... ... FILE UNLINK MAD 07/06/71 1754.9 - CHMODE, DELETE, RENAME AND UNLINK COMMANDS. LM00001 WRITTEN BY ROGER ROACH 3/26/68 LM00002 MODIFIED 07/05/71 BY P. BOS FOR MOVFIL FUNCTION LM00003 LM00004 LM00005 NORMAL MODE IS INTEGER *001 LM00006 BOOLEAN SCANI, ONCE, OLDER *002 LM00007 DIMENSION COMBUF(20), ENTRY(10), WHO(8) *003 LM00008 EQUIVALENCE (COMBUF(20), FENCE), (NAME3, MODE) *004 LM00009 EQUIVALENCE (ENTRY(10), NAME1), (ENTRY(9), NAME2) *005 LM00010 VECTOR VALUES FENCE = 777777777777K *006 LM00011 VECTOR VALUES B = 605757575757K *007 LM00012 VECTOR VALUES TYPE = $ FILES$ *008 LM00013 VECTOR VALUES FIRST = 263151626357K *009 LM00014 VECTOR VALUES SECOND = $SECOND$ *010 LM00015 VECTOR VALUES STAR = $ *$ *011 LM00016 VECTOR VALUES ANSWER = $NO$ *012 LM00017 VECTOR VALUES ONCE = 1B *013 LM00018 VECTOR VALUES OLDER = 0B *014 LM00019 LM00020 LM00021 GCLS.(COMBUF,0) *015 LM00022 LOOPI THROUGH LOOPI, FOR N = 1,1,COMBUF(N).E.FENCE *016 LM00023 WHOAMI.(WHO(8)...8) *017 LM00024 COMMND = LJUST.(COMBUF).A.77K10 *018 LM00025 WHENEVER COMMND .E. $C00000$ *019 LM00026 C=1 *020 LM00027 D=3 *021 LM00028 OR WHENEVER COMMND .E. $D00000$ *022 LM00029 C=2 *023 LM00030 D=2 *024 LM00031 OR WHENEVER COMMND .E. $R00000$ *025 LM00032 C=3 *026 LM00033 D=4 *027 LM00034 OLDER=1B *028 LM00035 OR WHENEVER COMMND .E. $U00000$ *029 LM00036 C=4 *030 LM00037 D=2 *031 LM00038 TYPE = $ LINKS$ *032 LM00039 OR WHENEVER COMMND .E. $M00000$ *033 LM00040 C=5 *034 LM00041 D=4 *035 LM00042 OTHERWISE *036 LM00043 TSK. *037 LM00044 END OF CONDITIONAL *038 LM00045 WHENEVER COMBUF(1).E.FENCE, TRANSFER TO PFORMT(C) *039 LM00046 LM00047 NOW JUMP THROUGH THE COMMAND BUFFERS 'D' AT A TIME. LM00048 THE FIRST 2 ARGUMENTS ARE ALWAYS NAME1 AND NAME2. LM00049 LM00050 THROUGH LOOP, FOR I=1,D,COMBUF(I).E.FENCE.OR.I.G.N *040 LM00051 NAME1 = COMBUF(I) *041 LM00052 NAME2 = COMBUF(I+1) *042 LM00053 NAME3 = COMBUF(I+2) *043 LM00054 NAME4 = COMBUF(I+3) *044 LM00055 WHENEVER NAME2 .E. FENCE *045 LM00056 PRMESA.(NAME1) *046 LM00057 TRANSFER TO ICOMPT *047 LM00058 OR WHENEVER (C.E.1 .OR. C.E.3) .AND. NAME3 .E. FENCE *048 LM00059 PRMESA.(NAME1,B,NAME2) *049 LM00060 TRANSFER TO ICOMPT *050 LM00061 END OF CONDITIONAL *051 LM00062 MASK1 = NAMASK.(NAME1) *052 LM00063 MASK2 = NAMASK.(NAME2) *053 LM00064 WHENEVER MASK1.A.MASK2 .E. FENCE *054 LM00065 SCANI = 0B *055 LM00066 FSTATE.(NAME1,NAME2,ENTRY(8)...8,FSERR2,ERCODE) *056 LM00067 OTHERWISE *057 LM00068 SCANI = 1B *058 LM00069 WHENEVER ONCE *059 LM00070 ONCE = 0B *060 LM00071 UPDATE. *061 LM00072 SCNFIL.($U.F.D.(FILE)$) *062 LM00073 END OF CONDITIONAL *063 LM00074 ISCAN.(NAME1,NAME2) *064 LM00075 SCAN.(ENTRY(10)...7,DONE1) *065 LM00076 BACK WHENEVER ( C.E.4 .AND. ENTRY(6).A.7K5.NE.0) .OR. *066 LM00077 1 (ENTRY(6).A.7K5.E.0 .AND. C .NE. 4) *066 LM00078 SCAN.(ENTRY(10)...7,DONE1) *067 LM00079 TRANSFER TO BACK *068 LM00080 END OF CONDITIONAL *069 LM00081 END OF CONDITIONAL *070 LM00082 TRANSFER TO FUNC(C) *071 LM00083 LM00084 DONE1 WHENEVER COMBUF(I).E.STAR *072 LM00085 EITHER = SECOND *073 LM00086 NAME = COMBUF(I+1) *074 LM00087 OR WHENEVER COMBUF(I+1).E.STAR *075 LM00088 EITHER = FIRST *076 LM00089 NAME = COMBUF(I) *077 LM00090 OTHERWISE *078 LM00091 PRMESS.(TYPE,B,COMBUF(I),B,COMBUF(I+1),$ NOT FOUND.$) *079 LM00092 TRANSFER TO LOOP *080 LM00093 END OF CONDITIONAL *081 LM00094 PRMESS.(604546575757K,TYPE,$ WITH$,EITHER,$ NAME$,NAME, *082 LM00095 1 $ FOUND.$) *082 LM00096 TRANSFER TO LOOP *083 LM00097 LM00098 ... THE CHMODE FUNCTION LM00099 LM00100 FUNC(1) CONTINUE *084 LM00101 FUN(1) WHENEVER SCANI *085 LM00102 MODE=NEWMOD.(ENTRY(6).RS.28,COMBUF(I+2),BADMOD) *086 LM00103 OTHERWISE *087 LM00104 MODE=NEWMOD.(ENTRY(7),COMBUF(I+2),BADMOD) *088 LM00105 END OF CONDITIONAL *089 LM00106 CHFILE.(NAME1,NAME2,MODE,-0,-0,IOERR) *090 LM00107 TRANSFER TO NEXT *091 LM00108 LM00109 BADMOD PRMESS.($ ILLEGAL MODE -$,MODE) *092 LM00110 TRANSFER TO LOOP *093 LM00111 LM00112 ... THE DELETE FUNCTION LM00113 LM00114 FUN(2) CONTINUE *094 LM00115 FUNC(2) WHENEVER MASK1.V.MASK2 .E. 0 *095 LM00116 NAME1 = STAR *096 LM00117 NAME2 = STAR *097 LM00118 SCANI = 0B *098 LM00119 FSTATE.(NAME1,NAME2,ENTRY(8)...8,IOERR) *099 LM00120 END OF CONDITIONAL *100 LM00121 DELETE.(NAME1,NAME2) *101 LM00122 TRANSFER TO NEXT *102 LM00123 LM00124 ... THE DELETE INTERNAL FUNCTION LM00125 LM00126 INTERNAL FUNCTION (N1,N2) *103 LM00127 ENTRY TO DELETE. *104 LM00128 FSTATE.(N1,N2,ENTRY(1)...2,FSERR,FSCODE) *105 LM00129 WHENEVER ENTRY.RS.35 .E. 1 *106 LM00130 WHENEVER C.E. 3 *107 LM00131 PRMESA.(N1,B,N2,$ IS A LINK. IT CANNOT BE DELETED.$) *108 LM00132 FUNCTION RETURN 0 *109 LM00133 END OF CONDITIONAL *110 LM00134 PRMESA.(N1,B,N2,$ IS A LINK. DO YOU WISH TO DELETE IT,$) *111 LM00135 WHENEVER WHO(5) .NE. $(FIB)$, RDFLXC.(ANSWER,6) *112 LM00136 WHENEVER ANSWER.NE.$YES$, TRANSFER TO NOPE *113 LM00137 END OF CONDITIONAL *114 LM00138 WHENEVER ENTRY.A. 134K .NE. 0 *115 LM00139 WHENEVER OLDER, PRMESA.($OLDER$) *116 LM00140 PRMESA.(N1,B,N2,603162601457K,OCRBC.(ENTRY).V.575757K6, *117 LM00141 1 $' MODE. DO YOU WISH TO DELETE IT,$) *117 LM00142 WHENEVER WHO(5).NE.$(FIB)$, RDFLXC.(ANSWER,6) *118 LM00143 WHENEVER ANSWER.NE.$YES$ *119 LM00144 NOPE PRMESS.(N1,B,N2,$ NOT DELETED.$) *120 LM00145 FUNCTION RETURN 0 *121 LM00146 END OF CONDITIONAL *122 LM00147 CHFILE.(N1,N2,1,-0,-0,NOPE) *123 LM00148 END OF CONDITIONAL *124 LM00149 DELFIL.(N1,N2,NOPE) *125 LM00150 FUNCTION RETURN 1 *126 LM00151 FSERR WHENEVER FSCODE.NE.3, TRANSFER TO NOPE *127 LM00152 FUNCTION RETURN 1 *128 LM00153 END OF FUNCTION *129 LM00154 LM00155 ... THE RENAME FUNCTION LM00156 LM00157 FUNC(3) WHENEVER NAME4 .E. FENCE, NAME4 = STAR *130 LM00158 MASK3 = NAMASK.(NAME3) *131 LM00159 MASK4 = NAMASK.(NAME4) *132 LM00160 MASK3P = COM.(MASK3) *133 LM00161 MASK4P = COM.(MASK4) *134 LM00162 NAME3 = NAME3.A.MASK3 *135 LM00163 NAME4 = NAME4.A.MASK4 *136 LM00164 FUN(3) N3 = (NAME1.A.MASK3P).V.NAME3 *137 LM00165 N4 = (NAME2.A.MASK4P).V.NAME4 *138 LM00166 WHENEVER NAME1.E.N3 .AND. NAME2.E.N4, TRANSFER TO CHANGE *139 LM00167 WHENEVER DELETE.(N3,N4).E.0 *140 LM00168 PRMESS.(NAME1,B,NAME2,$ NOT RENAMED$) *141 LM00169 OTHERWISE *142 LM00170 CHANGE CHFILE.(NAME1,NAME2,-0,N3,N4,IOERR) *143 LM00171 END OF CONDITIONAL *144 LM00172 TRANSFER TO NEXT *145 LM00173 LM00174 ... THE UNLINK FUNCTION LM00175 LM00176 FUN(4) WHENEVER ENTRY(6).A.7K5.NE.0, TRANSFER TO NEXT *146 LM00177 FUNC(4) UNLINK.(NAME1,NAME2,IOERR) *147 LM00178 TRANSFER TO NEXT *148 LM00179 LM00180 ... THE MOVFIL FUNTION LM00181 LM00182 FUNC(5) CONTINUE *149 LM00183 FUN(5) WHENEVER WHO(1).A.2K .E. 2K, TRANSFER TO MVOK *150 LM00184 WHENEVER NAME3 .NE. WHO(8), TRANSFER TO MVBAD *151 LM00185 WHENEVER NAME4 .E. WHO(3), TRANSFER TO MVOK *152 LM00186 WHENEVER WHO(1).A.1K .NE. 1K, TRANSFER TO MVBAD *153 LM00187 WHENEVER NAME4.A.777777770000K .NE. $CMFL00$, TRANSFER TO MVBAD *154 LM00188 MVOK MOVFIL.(NAME1, NAME2, NAME3, NAME4, IOERR) *155 LM00189 TRANSFER TO NEXT *156 LM00190 LM00191 MVBAD PRMESS.($ ILLEGAL USE OF COMMAND$) *157 LM00192 TRANSFER TO LOOP *158 LM00193 LM00194 ... NEXT - GET THE NEXT ENTRY. LM00195 LM00196 NEXT WHENEVER .NOT. SCANI, TRANSFER TO LOOP *159 LM00197 SCAN.(ENTRY(10)...7,LOOP) *160 LM00198 WHENEVER ENTRY(6).A.7K5.E.0 .AND. C.NE.4,TRANSFER TO NEXT *161 LM00199 TRANSFER TO FUN(C) *162 LM00200 LM00201 ... IOERR (AND FSERR2) - I/O ERROR RETURNS LM00202 LM00203 FSERR2 WHENEVER C.E.4 .AND. ERCODE.NE.3, TRANSFER TO FUNC(C) *163 LM00204 IOERR PRNTER.(61K) *164 LM00205 TRANSFER TO NEXT *165 LM00206 LM00207 LOOP CONTINUE *166 LM00208 CHNCOM.(0) *167 LM00209 LM00210 ... PRINT CORRECT FORMATS. LM00211 LM00212 PFORMT(1) PRMESS.(COMBUF(0),$ NAME1 NAME2 MODE NAME1' NAME2' MODE' ...$ *168 LM00213 1 ) *168 LM00214 TRANSFER TO PFMT *169 LM00215 LM00216 PFORMT(2) PRMESS.(COMBUF(0),$ NAME1 NAME2 NAME1' NAME2' ...$) *170 LM00217 TRANSFER TO PFMT *171 LM00218 LM00219 PFORMT(3) PRMESS.(COMBUF(0),$ OLDNM1 OLDNM2 NEWNM1 NEWNM2 OLDNM1' OLDNM *172 LM00220 1 2' NEWNM1' NEWNM2' ...$) *172 LM00221 TRANSFER TO PFMT *173 LM00222 LM00223 PFORMT(4) TRANSFER TO PFORMT(2) *174 LM00224 LM00225 PFORMT(5) PRMESS.(COMBUF(0), $ NAME1 NAME2 PROB PROG NAME1' NAME2' PROB *175 LM00226 1 ' PROG' ...$) *175 LM00227 LM00228 PFMT PRMESS.($THE LISTF ASTERISK CONVENTION APPLIES.$) *176 LM00229 CHNCOM.(0) *177 LM00230 LM00231 ... INCOMPLETE SET OF ARGUMENTS LM00232 LM00233 ICOMPT PRMESS.($ IS AN INCOMPLETE SET OF ARGUMENTS.$) *178 LM00234 CHNCOM.(0) *179 LM00235 END OF PROGRAM *180 LM00236 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01603 TRANSFER VECTOR LENGTH 00030 PROGRAM BEGINS 00344 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ANSWER 00133 A 1 ENTRY 00072 A 1 I 00144 1 MVOK 00121 4 N 00157 1 BACK 00073 4 ERCODE 00141 1 LOOPI 00031 4 N3 00153 1 OLDER 00160 A 2 BADMOD 00074 4 FENCE 00032 A 1 LOOP 00117 4 N4 00154 1 ONCE 00161 A 2 B 00134 A 1 FIRST 00142 A 1 MASK1 00145 1 NAME1 00060 1 PFMT 00124 4 CHANGE 00075 4 FSCODE 00143 1 MASK2 00146 1 NAME2 00061 1 PFORMT 00132 A 4 COMBUF 00056 A 1 FSERR2 00077 4 MASK3P 00147 1 NAME3 00057 1 SCANI 00162 2 COMMND 00135 1 FSERR 00100 4 MASK3 00150 1 NAME4 00155 1 SECOND 00163 A 1 C 00136 1 FUNC 00106 A 4 MASK4P 00151 1 NAME 00156 1 STAR 00164 A 1 DONE1 00076 4 FUN 00114 A 4 MASK4 00152 1 NEXT 00122 4 TYPE 00165 A 1 D 00137 1 ICOMPT 00115 4 MODE 00057 1 NOPE 00123 4 WHO 00176 A 1 EITHER 00140 1 IOERR 00116 4 MVBAD 00120 4 0FUNCTION DICTIONARY CHFILE 00000 1 CHNCOM 00001 1 COM 00002 1 DELFIL 00003 1 EXIT 00004 1 FSTATE 00005 1 GCLS 00006 1 ISCAN 00007 1 .SETUP 00010 1 LJUST 00011 1 MOVFIL 00012 1 NAMASK 00013 1 NEWMOD 00014 1 OCRBC 00015 1 PRMESA 00016 1 PRMESS 00017 1 PRNTER 00020 1 RDFLXC 00021 1 SCAN 00022 1 SCNFIL 00023 1 TSK 00024 1 UNLINK 00025 1 UPDATE 00026 1 WHOAMI 00027 1 DELETE 00030 1 0ABSOLUTE CONSTANTS 00236 +254563623360 00266 -202151276444 00322 -222563604626 00262 -074325632560 00273 -203145234644 00275 -203162602145 00324 -223360606060 00226 +214747433125 00257 -056331464560 00267 -202346456525 00327 -232551316242 00325 -226326602162 00330 -233025604331 00317 -204751462714 00315 -204751462214 00253 -052144250214 00225 +214425011460 00263 -075146276045 00316 -204751462260 00301 -203333336060 00241 +256645440214 00254 -054401146045 00217 +021460452566 00244 -032445440114 00335 -264544026046 00255 -054401604525 00250 -040260452566 00215 +016046432445 00314 -204643244544 00216 +021460333333 00222 +146045214425 00220 +146033333360 00252 -052144250114 00303 -204446242560 00305 -204521442502 00304 -204521442501 00212 +000000000061 00251 -044421452460 00313 -204626602346 00224 +214360646225 00231 +234426430000 00343 -377777770000 00235 +254521442524 00312 -204546636051 00234 +254325632524 00310 -204546636024 00300 -203163736060 00233 +242543256325 00323 -223060634660 00337 -304664606631 00242 +336060244660 00221 +146044462425 00274 -203162601457 00265 -175757000000 00260 -064324255160 00213 +000000000134 00336 -302562606060 00205 +000000000006 00340 -342631223460 00331 -237360606060 00245 -032563256031 00320 -206346602425 00334 -246066316230 00270 -202446607046 00326 -232524336060 00237 +256024254325 00256 -054546636022 00277 -203163602321 00246 -033145423360 00276 -203162602160 00211 +000000000043 00240 +256060406060 00223 +214360444624 00272 -203143432527 00210 +000000000034 00243 +336060606060 00271 -202646644524 00306 -204521442560 00321 -206631633060 00307 -204546575757 00261 -066445243360 00311 -204546636026 00214 +000000700000 00206 +000000000007 00341 -342631432534 00333 -243326332433 00204 +000000000005 00247 -040000000000 00302 -204331454262 00332 -240000000000 00203 +000000000004 00264 -110000000000 00201 +000000000002 00232 +240000000000 00202 +000000000003 00227 +230000000000 00342 -370000000000 00207 +000000000010 00177 +000000000000 00200 +000000000001 00230 +233000000000 0STATEMENT DICTIONARY 00073 TXL -300632000607 00074 TXL -301001000774 00075 TXL -301350001337 00076 TXL -300644000640 00077 TXL -301471001461 00100 TXL -301220001214 00101 TXL -301365001365 00102 TXL -301364001360 00103 TXL -301262001255 00104 TXL -301010001002 00105 TXL -300724000724 00107 TXL -301374001365 00110 TXL -301360001351 00111 TXL -301310001304 00112 TXL -301002001002 00113 TXL -300726000724 00115 TXL -301574001565 00116 TXL -301473001471 00117 TXL -301475001474 00120 TXL -301436001431 00121 TXL -301430001422 00122 TXL -301442001437 00123 TXL -301171001162 00124 TXL -301563001553 00125 TXL -301553001540 00126 TXL -301540001537 00127 TXL -301536001521 00130 TXL -301520001511 00131 TXL -301510001477 0PROGRAM N'R 001 LM00006 BOOLEAN SCANI, ONCE, OLDER 002 LM00007 D'N COMBUF(20), ENTRY(10), WHO(8) 003 LM00008 E'E (COMBUF(20), FENCE), (NAME3, MODE) 004 LM00009 E'E (ENTRY(10), NAME1), (ENTRY(9), NAME2) 005 LM00010 V'S FENCE = 777777777777K 006 LM00011 00344 TSX +0 07400 4 00010 00032 -3 77777 7 77777 V'S B = 605757575757K 007 LM00012 00134 -2 05757 5 75757 V'S TYPE = $ FILES$ 008 LM00013 00165 -2 02631 4 32562 V'S FIRST = 263151626357K 009 LM00014 00142 +2 63151 6 26357 V'S SECOND = $SECOND$ 010 LM00015 00163 -2 22523 4 64524 V'S STAR = $ *$ 011 LM00016 00164 -2 06060 6 06054 V'S ANSWER = $NO$ 012 LM00017 00133 -0 54660 6 06060 V'S ONCE = 1B 013 LM00018 00161 +0 00000 0 00001 V'S OLDER = 0B 014 LM00019 00160 +0 00000 0 00000 GCLS.(COMBUF,0) 015 LM00022 00345 TSX +0 07400 4 00006 00346 TXH +3 00000 0 00056 00347 TXH +3 00000 0 00177 LOOPI T'H LOOPI, FOR N = 1,1,COMBUF(N).E.FENCE 016 LM00023 00350 CLA +0 50000 0 00200 00351 STO +0 60100 0 00157 00352 TRA +0 02000 0 00356 00353 CLA +0 50000 0 00157 00354 ADD +0 40000 0 00200 00355 STO +0 60100 0 00157 00356 LXA +0 53400 1 00157 00357 CLA +0 50000 1 00056 00360 SUB +0 40200 0 00032 00361 TZE +0 10000 0 00363 00362 TRA +0 02000 0 00353 WHOAMI.(WHO(8)...8) 017 LM00024 00363 TSX +0 07400 4 00027 00364 TIX +2 00207 0 00166 COMMND = LJUST.(COMBUF).A.77K10 018 LM00025 00365 TSX +0 07400 4 00011 00366 TXH +3 00000 0 00056 00367 STO +0 60100 0 01577 00370 CAL -0 50000 0 01577 00371 ANA -0 32000 0 00342 00372 SLW +0 60200 0 00135 W'R COMMND .E. $C00000$ 019 LM00026 00373 CLA +0 50000 0 00135 00374 SUB +0 40200 0 00227 00375 TNZ -0 10000 0 00403 C=1 020 LM00027 00376 CLA +0 50000 0 00200 00377 STO +0 60100 0 00136 D=3 021 LM00028 00400 CLA +0 50000 0 00202 00401 STO +0 60100 0 00137 O'R COMMND .E. $D00000$ 022 LM00029 00402 TRA +0 02000 0 00450 00403 CLA +0 50000 0 00135 00404 SUB +0 40200 0 00232 00405 TNZ -0 10000 0 00413 C=2 023 LM00030 00406 CLA +0 50000 0 00201 00407 STO +0 60100 0 00136 D=2 024 LM00031 00410 CLA +0 50000 0 00201 00411 STO +0 60100 0 00137 O'R COMMND .E. $R00000$ 025 LM00032 00412 TRA +0 02000 0 00450 00413 CLA +0 50000 0 00135 00414 SUB +0 40200 0 00264 00415 TNZ -0 10000 0 00425 C=3 026 LM00033 00416 CLA +0 50000 0 00202 00417 STO +0 60100 0 00136 D=4 027 LM00034 00420 CLA +0 50000 0 00203 00421 STO +0 60100 0 00137 OLDER=1B 028 LM00035 00422 CLA +0 50000 0 00200 00423 STO +0 60100 0 00160 O'R COMMND .E. $U00000$ 029 LM00036 00424 TRA +0 02000 0 00450 00425 CLA +0 50000 0 00135 00426 SUB +0 40200 0 00332 00427 TNZ -0 10000 0 00437 C=4 030 LM00037 00430 CLA +0 50000 0 00203 00431 STO +0 60100 0 00136 D=2 031 LM00038 00432 CLA +0 50000 0 00201 00433 STO +0 60100 0 00137 TYPE = $ LINKS$ 032 LM00039 00434 CLA +0 50000 0 00302 00435 STO +0 60100 0 00165 O'R COMMND .E. $M00000$ 033 LM00040 00436 TRA +0 02000 0 00450 00437 CLA +0 50000 0 00135 00440 SUB +0 40200 0 00247 00441 TNZ -0 10000 0 00447 C=5 034 LM00041 00442 CLA +0 50000 0 00204 00443 STO +0 60100 0 00136 D=4 035 LM00042 00444 CLA +0 50000 0 00203 00445 STO +0 60100 0 00137 O'E 036 LM00043 00446 TRA +0 02000 0 00450 TSK. 037 LM00044 00447 TSX +0 07400 4 00024 E'L 038 LM00045 W'R COMBUF(1).E.FENCE, T'O PFORMT(C) 039 LM00046 00450 CLA +0 50000 0 00055 00451 SUB +0 40200 0 00032 00452 TNZ -0 10000 0 00455 00453 LXA +0 53400 2 00136 00454 TRA +0 02000 2 00132 T'H LOOP, FOR I=1,D,COMBUF(I).E.FENCE.OR.I.G.N 040 LM00051 00455 CLA +0 50000 0 00200 00456 STO +0 60100 0 00144 00457 TRA +0 02000 0 00463 00460 CLA +0 50000 0 00144 00461 ADD +0 40000 0 00137 00462 STO +0 60100 0 00144 00463 CLA +0 50000 0 00144 00464 SUB +0 40200 0 00157 00465 TZE +0 10000 0 00467 00466 TPL +0 12000 0 01475 00467 LXA +0 53400 1 00144 00470 CLA +0 50000 1 00056 00471 SUB +0 40200 0 00032 00472 TZE +0 10000 0 01475 NAME1 = COMBUF(I) 041 LM00052 00473 LXA +0 53400 2 00144 00474 CLA +0 50000 2 00056 00475 STO +0 60100 0 00060 NAME2 = COMBUF(I+1) 042 LM00053 00476 CLA +0 50000 0 00144 00477 ADD +0 40000 0 00200 00500 PAX +0 73400 2 00000 00501 CLA +0 50000 2 00056 00502 STO +0 60100 0 00061 NAME3 = COMBUF(I+2) 043 LM00054 00503 CLA +0 50000 0 00144 00504 ADD +0 40000 0 00201 00505 PAX +0 73400 2 00000 00506 CLA +0 50000 2 00056 00507 STO +0 60100 0 00057 NAME4 = COMBUF(I+3) 044 LM00055 00510 CLA +0 50000 0 00144 00511 ADD +0 40000 0 00202 00512 PAX +0 73400 2 00000 00513 CLA +0 50000 2 00056 00514 STO +0 60100 0 00155 W'R NAME2 .E. FENCE 045 LM00056 00515 CLA +0 50000 0 00061 00516 SUB +0 40200 0 00032 00517 TNZ -0 10000 0 00524 PRMESA.(NAME1) 046 LM00057 00520 TSX +0 07400 4 00016 00521 TXH +3 00000 0 00060 T'O ICOMPT 047 LM00058 00522 TRA +0 02000 0 00115 O'R (C.E.1 .OR. C.E.3) .AND. NAME3 .E. FENCE 048 LM00059 00523 TRA +0 02000 0 00542 00524 CLA +0 50000 0 00057 00525 SUB +0 40200 0 00032 00526 TNZ -0 10000 0 00542 00527 CLA +0 50000 0 00136 00530 SUB +0 40200 0 00202 00531 TZE +0 10000 0 00535 00532 CLA +0 50000 0 00136 00533 SUB +0 40200 0 00200 00534 TNZ -0 10000 0 00542 PRMESA.(NAME1,B,NAME2) 049 LM00060 00535 TSX +0 07400 4 00016 00536 TXH +3 00000 0 00060 00537 TXH +3 00000 0 00134 00540 TXH +3 00000 0 00061 T'O ICOMPT 050 LM00061 00541 TRA +0 02000 0 00115 E'L 051 LM00062 MASK1 = NAMASK.(NAME1) 052 LM00063 00542 TSX +0 07400 4 00013 00543 TXH +3 00000 0 00060 00544 STO +0 60100 0 00145 MASK2 = NAMASK.(NAME2) 053 LM00064 00545 TSX +0 07400 4 00013 00546 TXH +3 00000 0 00061 00547 STO +0 60100 0 00146 W'R MASK1.A.MASK2 .E. FENCE 054 LM00065 00550 CAL -0 50000 0 00145 00551 ANA -0 32000 0 00146 00552 SLW +0 60200 0 01577 00553 CLA +0 50000 0 01577 00554 SUB +0 40200 0 00032 00555 TNZ -0 10000 0 00567 SCANI = 0B 055 LM00066 00556 CLA +0 50000 0 00177 00557 STO +0 60100 0 00162 FSTATE.(NAME1,NAME2,ENTRY(8)...8,FSERR2,ERCODE) 056 LM00067 00560 TSX +0 07400 4 00005 00561 TXH +3 00000 0 00060 00562 TXH +3 00000 0 00061 00563 TIX +2 00207 0 00062 00564 TXH +3 00000 0 00077 00565 TXH +3 00000 0 00141 O'E 057 LM00068 00566 TRA +0 02000 0 00636 SCANI = 1B 058 LM00069 00567 CLA +0 50000 0 00200 00570 STO +0 60100 0 00162 W'R ONCE 059 LM00070 00571 NZT -0 52000 0 00161 00572 TRA +0 02000 0 00601 ONCE = 0B 060 LM00071 00573 CLA +0 50000 0 00177 00574 STO +0 60100 0 00161 UPDATE. 061 LM00072 00575 TSX +0 07400 4 00026 SCNFIL.($U.F.D.(FILE)$) 062 LM00073 00576 TSX +0 07400 4 00023 00577 TXH +3 00000 0 00333 00600 TXH +3 00000 0 00341 E'L 063 LM00074 ISCAN.(NAME1,NAME2) 064 LM00075 00601 TSX +0 07400 4 00007 00602 TXH +3 00000 0 00060 00603 TXH +3 00000 0 00061 SCAN.(ENTRY(10)...7,DONE1) 065 LM00076 00604 TSX +0 07400 4 00022 00605 TIX +2 00206 0 00060 00606 TXH +3 00000 0 00076 BACK W'R ( C.E.4 .AND. ENTRY(6).A.7K5.NE.0) .OR. 066 LM00077 1 (ENTRY(6).A.7K5.E.0 .AND. C .NE. 4) 066 LM00078 00607 CLA +0 50000 0 00136 00610 SUB +0 40200 0 00203 00611 TZE +0 10000 0 00620 00612 CAL -0 50000 0 00064 00613 ANA -0 32000 0 00214 00614 SLW +0 60200 0 01577 00615 CLA +0 50000 0 01577 00616 SUB +0 40200 0 00177 00617 TZE +0 10000 0 00632 00620 CAL -0 50000 0 00064 00621 ANA -0 32000 0 00214 00622 SLW +0 60200 0 01577 00623 CLA +0 50000 0 01577 00624 SUB +0 40200 0 00177 00625 TZE +0 10000 0 00631 00626 CLA +0 50000 0 00136 00627 SUB +0 40200 0 00203 00630 TZE +0 10000 0 00632 00631 TRA +0 02000 0 00636 SCAN.(ENTRY(10)...7,DONE1) 067 LM00079 00632 TSX +0 07400 4 00022 00633 TIX +2 00206 0 00060 00634 TXH +3 00000 0 00076 T'O BACK 068 LM00080 00635 TRA +0 02000 0 00073 E'L 069 LM00081 E'L 070 LM00082 T'O FUNC(C) 071 LM00083 00636 LXA +0 53400 2 00136 00637 TRA +0 02000 2 00106 DONE1 W'R COMBUF(I).E.STAR 072 LM00085 00640 LXA +0 53400 1 00144 00641 CLA +0 50000 1 00056 00642 SUB +0 40200 0 00164 00643 TNZ -0 10000 0 00654 EITHER = SECOND 073 LM00086 00644 CLA +0 50000 0 00163 00645 STO +0 60100 0 00140 NAME = COMBUF(I+1) 074 LM00087 00646 CLA +0 50000 0 00144 00647 ADD +0 40000 0 00200 00650 PAX +0 73400 2 00000 00651 CLA +0 50000 2 00056 00652 STO +0 60100 0 00156 O'R COMBUF(I+1).E.STAR 075 LM00088 00653 TRA +0 02000 0 00712 00654 CLA +0 50000 0 00144 00655 ADD +0 40000 0 00200 00656 PAX +0 73400 1 00000 00657 CLA +0 50000 1 00056 00660 SUB +0 40200 0 00164 00661 TNZ -0 10000 0 00670 EITHER = FIRST 076 LM00089 00662 CLA +0 50000 0 00142 00663 STO +0 60100 0 00140 NAME = COMBUF(I) 077 LM00090 00664 LXA +0 53400 2 00144 00665 CLA +0 50000 2 00056 00666 STO +0 60100 0 00156 O'E 078 LM00091 00667 TRA +0 02000 0 00712 PRMESS.(TYPE,B,COMBUF(I),B,COMBUF(I+1),$ NOT FOUND.$) 079 LM00092 00670 CLA +0 50000 0 00144 00671 ADD +0 40000 0 00200 00672 SUB +0 40200 0 00673 00673 TXH +3 00000 0 00056 00674 STA +0 62100 0 00706 00675 CLA +0 50000 0 00144 00676 SUB +0 40200 0 00677 00677 TXH +3 00000 0 00056 00700 STA +0 62100 0 00704 00701 TSX +0 07400 4 00017 00702 TXH +3 00000 0 00165 00703 TXH +3 00000 0 00134 00704 TXH +3 00000 0 00000 00705 TXH +3 00000 0 00134 00706 TXH +3 00000 0 00000 00707 TXH +3 00000 0 00311 00710 TXH +3 00000 0 00261 T'O LOOP 080 LM00093 00711 TRA +0 02000 0 00117 E'L 081 LM00094 PRMESS.(604546575757K,TYPE,$ WITH$,EITHER,$ NAME$,NAME, 082 LM00095 1 $ FOUND.$) 082 LM00096 00712 TSX +0 07400 4 00017 00713 TXH +3 00000 0 00307 00714 TXH +3 00000 0 00165 00715 TXH +3 00000 0 00321 00716 TXH +3 00000 0 00140 00717 TXH +3 00000 0 00306 00720 TXH +3 00000 0 00156 00721 TXH +3 00000 0 00271 00722 TXH +3 00000 0 00243 T'O LOOP 083 LM00097 00723 TRA +0 02000 0 00117 FUNC(1) CONTINUE 084 LM00101 FUN(1) W'R SCANI 085 LM00102 00724 NZT -0 52000 0 00162 00725 TRA +0 02000 0 00746 MODE=NEWMOD.(ENTRY(6).RS.28,COMBUF(I+2),BADMOD) 086 LM00103 00726 CLA +0 50000 0 00144 00727 ADD +0 40000 0 00201 00730 SUB +0 40200 0 00731 00731 TXH +3 00000 0 00056 00732 STA +0 62100 0 00742 00733 CAL -0 50000 0 00210 00734 STA +0 62100 0 00736 00735 CAL -0 50000 0 00064 00736 LGR -0 76500 0 00000 00737 SLW +0 60200 0 01577 00740 TSX +0 07400 4 00014 00741 TXH +3 00000 0 01577 00742 TXH +3 00000 0 00000 00743 TXH +3 00000 0 00074 00744 STO +0 60100 0 00057 O'E 087 LM00104 00745 TRA +0 02000 0 00760 MODE=NEWMOD.(ENTRY(7),COMBUF(I+2),BADMOD) 088 LM00105 00746 CLA +0 50000 0 00144 00747 ADD +0 40000 0 00201 00750 SUB +0 40200 0 00751 00751 TXH +3 00000 0 00056 00752 STA +0 62100 0 00755 00753 TSX +0 07400 4 00014 00754 TXH +3 00000 0 00063 00755 TXH +3 00000 0 00000 00756 TXH +3 00000 0 00074 00757 STO +0 60100 0 00057 E'L 089 LM00106 CHFILE.(NAME1,NAME2,MODE,-0,-0,IOERR) 090 LM00107 00760 CLS +0 50200 0 00177 00761 STO +0 60100 0 01577 00762 CLS +0 50200 0 00177 00763 STO +0 60100 0 01600 00764 TSX +0 07400 4 00000 00765 TXH +3 00000 0 00060 00766 TXH +3 00000 0 00061 00767 TXH +3 00000 0 00057 00770 TXH +3 00000 0 01600 00771 TXH +3 00000 0 01577 00772 TXH +3 00000 0 00116 T'O NEXT 091 LM00108 00773 TRA +0 02000 0 00122 BADMOD PRMESS.($ ILLEGAL MODE -$,MODE) 092 LM00110 00774 TSX +0 07400 4 00017 00775 TXH +3 00000 0 00272 00776 TXH +3 00000 0 00223 00777 TXH +3 00000 0 00240 01000 TXH +3 00000 0 00057 T'O LOOP 093 LM00111 01001 TRA +0 02000 0 00117 FUN(2) CONTINUE 094 LM00115 FUNC(2) W'R MASK1.V.MASK2 .E. 0 095 LM00116 01002 CAL -0 50000 0 00145 01003 ORA -0 50100 0 00146 01004 SLW +0 60200 0 01600 01005 CLA +0 50000 0 01600 01006 SUB +0 40200 0 00177 01007 TNZ -0 10000 0 01023 NAME1 = STAR 096 LM00117 01010 CLA +0 50000 0 00164 01011 STO +0 60100 0 00060 NAME2 = STAR 097 LM00118 01012 CLA +0 50000 0 00164 01013 STO +0 60100 0 00061 SCANI = 0B 098 LM00119 01014 CLA +0 50000 0 00177 01015 STO +0 60100 0 00162 FSTATE.(NAME1,NAME2,ENTRY(8)...8,IOERR) 099 LM00120 01016 TSX +0 07400 4 00005 01017 TXH +3 00000 0 00060 01020 TXH +3 00000 0 00061 01021 TIX +2 00207 0 00062 01022 TXH +3 00000 0 00116 E'L 100 LM00121 DELETE.(NAME1,NAME2) 101 LM00122 01023 TSX +0 07400 4 00030 01024 TXH +3 00000 0 00060 01025 TXH +3 00000 0 00061 T'O NEXT 102 LM00123 01026 TRA +0 02000 0 00122 INTERNAL FUNCTION (N1,N2) 103 LM00127 01027 TRA +0 02000 0 01255 ENTRY TO DELETE. 104 LM00128 01030 TRA +0 02000 0 01033 00030 TTR +0 02100 0 01031 01031 SXA +0 63400 2 01223 01032 TSX +0 07400 2 01223 FSTATE.(N1,N2,ENTRY(1)...2,FSERR,FSCODE) 105 LM00129 01033 TSX +0 07400 4 00005 01034 TXH +3 00000 0 00024 01035 TXH +3 00000 0 00024 01036 TIX +2 00201 0 00071 01037 TXH +3 00000 0 00100 01040 TXH +3 00000 0 00143 W'R ENTRY.RS.35 .E. 1 106 LM00130 01041 CAL -0 50000 0 00211 01042 STA +0 62100 0 01044 01043 CAL -0 50000 0 00072 01044 LGR -0 76500 0 00000 01045 SLW +0 60200 0 01253 01046 CLA +0 50000 0 01253 01047 SUB +0 40200 0 00200 01050 TNZ -0 10000 0 01115 W'R C.E. 3 107 LM00131 01051 CLA +0 50000 0 00136 01052 SUB +0 40200 0 00202 01053 TNZ -0 10000 0 01070 PRMESA.(N1,B,N2,$ IS A LINK. IT CANNOT BE DELETED.$) 108 LM00132 01054 TSX +0 07400 4 00016 01055 TXH +3 00000 0 00024 01056 TXH +3 00000 0 00134 01057 TXH +3 00000 0 00024 01060 TXH +3 00000 0 00276 01061 TXH +3 00000 0 00246 01062 TXH +3 00000 0 00277 01063 TXH +3 00000 0 00256 01064 TXH +3 00000 0 00237 01065 TXH +3 00000 0 00326 FUNCTION RETURN 0 109 LM00133 01066 CLA +0 50000 0 00177 01067 TRA +0 02000 0 01247 E'L 110 LM00134 PRMESA.(N1,B,N2,$ IS A LINK. DO YOU WISH TO DELETE IT,$) 111 LM00135 01070 TSX +0 07400 4 00016 01071 TXH +3 00000 0 00024 01072 TXH +3 00000 0 00134 01073 TXH +3 00000 0 00024 01074 TXH +3 00000 0 00276 01075 TXH +3 00000 0 00246 01076 TXH +3 00000 0 00270 01077 TXH +3 00000 0 00334 01100 TXH +3 00000 0 00320 01101 TXH +3 00000 0 00245 01102 TXH +3 00000 0 00331 W'R WHO(5) .NE. $(FIB)$, RDFLXC.(ANSWER,6) 112 LM00136 01103 CLA +0 50000 0 00171 01104 SUB +0 40200 0 00340 01105 TZE +0 10000 0 01111 01106 TSX +0 07400 4 00021 01107 TXH +3 00000 0 00133 01110 TXH +3 00000 0 00205 W'R ANSWER.NE.$YES$, T'O NOPE 113 LM00137 01111 CLA +0 50000 0 00133 01112 SUB +0 40200 0 00336 01113 TZE +0 10000 0 01115 01114 TRA +0 02000 0 00123 E'L 114 LM00138 W'R ENTRY.A. 134K .NE. 0 115 LM00139 01115 CAL -0 50000 0 00072 01116 ANA -0 32000 0 00213 01117 SLW +0 60200 0 01253 01120 CLA +0 50000 0 01253 01121 SUB +0 40200 0 00177 01122 TZE +0 10000 0 01206 W'R OLDER, PRMESA.($OLDER$) 116 LM00140 01123 NZT -0 52000 0 00160 01124 TRA +0 02000 0 01127 01125 TSX +0 07400 4 00016 01126 TXH +3 00000 0 00260 PRMESA.(N1,B,N2,603162601457K,OCRBC.(ENTRY).V.575757K6, 117 LM00141 1 $' MODE. DO YOU WISH TO DELETE IT,$) 117 LM00142 01127 TSX +0 07400 4 00015 01130 TXH +3 00000 0 00072 01131 STO +0 60100 0 01253 01132 CAL -0 50000 0 01253 01133 ORA -0 50100 0 00265 01134 SLW +0 60200 0 01253 01135 TSX +0 07400 4 00016 01136 TXH +3 00000 0 00024 01137 TXH +3 00000 0 00134 01140 TXH +3 00000 0 00024 01141 TXH +3 00000 0 00274 01142 TXH +3 00000 0 01253 01143 TXH +3 00000 0 00221 01144 TXH +3 00000 0 00242 01145 TXH +3 00000 0 00337 01146 TXH +3 00000 0 00323 01147 TXH +3 00000 0 00233 01150 TXH +3 00000 0 00300 W'R WHO(5).NE.$(FIB)$, RDFLXC.(ANSWER,6) 118 LM00143 01151 CLA +0 50000 0 00171 01152 SUB +0 40200 0 00340 01153 TZE +0 10000 0 01157 01154 TSX +0 07400 4 00021 01155 TXH +3 00000 0 00133 01156 TXH +3 00000 0 00205 W'R ANSWER.NE.$YES$ 119 LM00144 01157 CLA +0 50000 0 00133 01160 SUB +0 40200 0 00336 01161 TZE +0 10000 0 01173 NOPE PRMESS.(N1,B,N2,$ NOT DELETED.$) 120 LM00145 01162 TSX +0 07400 4 00017 01163 TXH +3 00000 0 00024 01164 TXH +3 00000 0 00134 01165 TXH +3 00000 0 00024 01166 TXH +3 00000 0 00310 01167 TXH +3 00000 0 00234 01170 TXH +3 00000 0 00243 FUNCTION RETURN 0 121 LM00146 01171 CLA +0 50000 0 00177 01172 TRA +0 02000 0 01247 E'L 122 LM00147 CHFILE.(N1,N2,1,-0,-0,NOPE) 123 LM00148 01173 CLS +0 50200 0 00177 01174 STO +0 60100 0 01253 01175 CLS +0 50200 0 00177 01176 STO +0 60100 0 01254 01177 TSX +0 07400 4 00000 01200 TXH +3 00000 0 00024 01201 TXH +3 00000 0 00024 01202 TXH +3 00000 0 00200 01203 TXH +3 00000 0 01254 01204 TXH +3 00000 0 01253 01205 TXH +3 00000 0 00123 E'L 124 LM00149 DELFIL.(N1,N2,NOPE) 125 LM00150 01206 TSX +0 07400 4 00003 01207 TXH +3 00000 0 00024 01210 TXH +3 00000 0 00024 01211 TXH +3 00000 0 00123 FUNCTION RETURN 1 126 LM00151 01212 CLA +0 50000 0 00200 01213 TRA +0 02000 0 01247 FSERR W'R FSCODE.NE.3, T'O NOPE 127 LM00152 01214 CLA +0 50000 0 00143 01215 SUB +0 40200 0 00202 01216 TZE +0 10000 0 01220 01217 TRA +0 02000 0 00123 F'N 1 128 LM00153 01220 CLA +0 50000 0 00200 01221 TRA +0 02000 0 01247 E'N 129 LM00154 01222 TSX +0 07400 4 00004 01223 TXH +3 00000 0 00000 01224 SXD -0 63400 1 01223 01225 SXA +0 63400 4 01247 01226 CLA +0 50000 4 00001 01227 STO +0 60100 0 01034 01230 STO +0 60100 0 01055 01231 STO +0 60100 0 01071 01232 STO +0 60100 0 01136 01233 STO +0 60100 0 01163 01234 STO +0 60100 0 01200 01235 STO +0 60100 0 01207 01236 CLA +0 50000 4 00002 01237 STO +0 60100 0 01035 01240 STO +0 60100 0 01057 01241 STO +0 60100 0 01073 01242 STO +0 60100 0 01140 01243 STO +0 60100 0 01165 01244 STO +0 60100 0 01201 01245 STO +0 60100 0 01210 01246 TRA +0 02000 2 00001 01247 AXT +0 77400 4 00000 01250 LXA +0 53400 2 01223 01251 LXD -0 53400 1 01223 01252 TRA +0 02000 4 00001 FUNC(3) W'R NAME4 .E. FENCE, NAME4 = STAR 130 LM00158 01255 CLA +0 50000 0 00155 01256 SUB +0 40200 0 00032 01257 TNZ -0 10000 0 01262 01260 CLA +0 50000 0 00164 01261 STO +0 60100 0 00155 MASK3 = NAMASK.(NAME3) 131 LM00159 01262 TSX +0 07400 4 00013 01263 TXH +3 00000 0 00057 01264 STO +0 60100 0 00150 MASK4 = NAMASK.(NAME4) 132 LM00160 01265 TSX +0 07400 4 00013 01266 TXH +3 00000 0 00155 01267 STO +0 60100 0 00152 MASK3P = COM.(MASK3) 133 LM00161 01270 TSX +0 07400 4 00002 01271 TXH +3 00000 0 00150 01272 STO +0 60100 0 00147 MASK4P = COM.(MASK4) 134 LM00162 01273 TSX +0 07400 4 00002 01274 TXH +3 00000 0 00152 01275 STO +0 60100 0 00151 NAME3 = NAME3.A.MASK3 135 LM00163 01276 CAL -0 50000 0 00057 01277 ANA -0 32000 0 00150 01300 SLW +0 60200 0 00057 NAME4 = NAME4.A.MASK4 136 LM00164 01301 CAL -0 50000 0 00155 01302 ANA -0 32000 0 00152 01303 SLW +0 60200 0 00155 FUN(3) N3 = (NAME1.A.MASK3P).V.NAME3 137 LM00165 01304 CAL -0 50000 0 00060 01305 ANA -0 32000 0 00147 01306 ORA -0 50100 0 00057 01307 SLW +0 60200 0 00153 N4 = (NAME2.A.MASK4P).V.NAME4 138 LM00166 01310 CAL -0 50000 0 00061 01311 ANA -0 32000 0 00151 01312 ORA -0 50100 0 00155 01313 SLW +0 60200 0 00154 W'R NAME1.E.N3 .AND. NAME2.E.N4, T'O CHANGE 139 LM00167 01314 CLA +0 50000 0 00061 01315 SUB +0 40200 0 00154 01316 TNZ -0 10000 0 01323 01317 CLA +0 50000 0 00060 01320 SUB +0 40200 0 00153 01321 TNZ -0 10000 0 01323 01322 TRA +0 02000 0 00075 W'R DELETE.(N3,N4).E.0 140 LM00168 01323 TSX +0 07400 4 00030 01324 TXH +3 00000 0 00153 01325 TXH +3 00000 0 00154 01326 SUB +0 40200 0 00177 01327 TNZ -0 10000 0 01337 PRMESS.(NAME1,B,NAME2,$ NOT RENAMED$) 141 LM00169 01330 TSX +0 07400 4 00017 01331 TXH +3 00000 0 00060 01332 TXH +3 00000 0 00134 01333 TXH +3 00000 0 00061 01334 TXH +3 00000 0 00312 01335 TXH +3 00000 0 00235 O'E 142 LM00170 01336 TRA +0 02000 0 01350 CHANGE CHFILE.(NAME1,NAME2,-0,N3,N4,IOERR) 143 LM00171 01337 CLS +0 50200 0 00177 01340 STO +0 60100 0 01600 01341 TSX +0 07400 4 00000 01342 TXH +3 00000 0 00060 01343 TXH +3 00000 0 00061 01344 TXH +3 00000 0 01600 01345 TXH +3 00000 0 00153 01346 TXH +3 00000 0 00154 01347 TXH +3 00000 0 00116 E'L 144 LM00172 T'O NEXT 145 LM00173 01350 TRA +0 02000 0 00122 FUN(4) W'R ENTRY(6).A.7K5.NE.0, T'O NEXT 146 LM00177 01351 CAL -0 50000 0 00064 01352 ANA -0 32000 0 00214 01353 SLW +0 60200 0 01600 01354 CLA +0 50000 0 01600 01355 SUB +0 40200 0 00177 01356 TZE +0 10000 0 01360 01357 TRA +0 02000 0 00122 FUNC(4) UNLINK.(NAME1,NAME2,IOERR) 147 LM00178 01360 TSX +0 07400 4 00025 01361 TXH +3 00000 0 00060 01362 TXH +3 00000 0 00061 01363 TXH +3 00000 0 00116 T'O NEXT 148 LM00179 01364 TRA +0 02000 0 00122 FUNC(5) C'E 149 LM00183 FUN(5) W'R WHO(1).A.2K .E. 2K, T'O MVOK 150 LM00184 01365 CAL -0 50000 0 00175 01366 ANA -0 32000 0 00201 01367 SLW +0 60200 0 01600 01370 CLA +0 50000 0 01600 01371 SUB +0 40200 0 00201 01372 TNZ -0 10000 0 01374 01373 TRA +0 02000 0 00121 W'R NAME3 .NE. WHO(8), T'O MVBAD 151 LM00185 01374 CLA +0 50000 0 00057 01375 SUB +0 40200 0 00166 01376 TZE +0 10000 0 01400 01377 TRA +0 02000 0 00120 W'R NAME4 .E. WHO(3), T'O MVOK 152 LM00186 01400 CLA +0 50000 0 00155 01401 SUB +0 40200 0 00173 01402 TNZ -0 10000 0 01404 01403 TRA +0 02000 0 00121 W'R WHO(1).A.1K .NE. 1K, T'O MVBAD 153 LM00187 01404 CAL -0 50000 0 00175 01405 ANA -0 32000 0 00200 01406 SLW +0 60200 0 01600 01407 CLA +0 50000 0 01600 01410 SUB +0 40200 0 00200 01411 TZE +0 10000 0 01413 01412 TRA +0 02000 0 00120 W'R NAME4.A.777777770000K .NE. $CMFL00$, T'O MVBAD 154 LM00188 01413 CAL -0 50000 0 00155 01414 ANA -0 32000 0 00343 01415 SLW +0 60200 0 01600 01416 CLA +0 50000 0 01600 01417 SUB +0 40200 0 00231 01420 TZE +0 10000 0 01422 01421 TRA +0 02000 0 00120 MVOK MOVFIL.(NAME1, NAME2, NAME3, NAME4, IOERR) 155 LM00189 01422 TSX +0 07400 4 00012 01423 TXH +3 00000 0 00060 01424 TXH +3 00000 0 00061 01425 TXH +3 00000 0 00057 01426 TXH +3 00000 0 00155 01427 TXH +3 00000 0 00116 T'O NEXT 156 LM00190 01430 TRA +0 02000 0 00122 MVBAD PRMESS.($ ILLEGAL USE OF COMMAND$) 157 LM00192 01431 TSX +0 07400 4 00017 01432 TXH +3 00000 0 00272 01433 TXH +3 00000 0 00224 01434 TXH +3 00000 0 00313 01435 TXH +3 00000 0 00251 T'O LOOP 158 LM00193 01436 TRA +0 02000 0 00117 NEXT W'R .NOT. SCANI, T'O LOOP 159 LM00197 01437 ZET +0 52000 0 00162 01440 TRA +0 02000 0 01442 01441 TRA +0 02000 0 00117 SCAN.(ENTRY(10)...7,LOOP) 160 LM00198 01442 TSX +0 07400 4 00022 01443 TIX +2 00206 0 00060 01444 TXH +3 00000 0 00117 W'R ENTRY(6).A.7K5.E.0 .AND. C.NE.4,T'O NEXT 161 LM00199 01445 CLA +0 50000 0 00136 01446 SUB +0 40200 0 00203 01447 TZE +0 10000 0 01457 01450 CAL -0 50000 0 00064 01451 ANA -0 32000 0 00214 01452 SLW +0 60200 0 01600 01453 CLA +0 50000 0 01600 01454 SUB +0 40200 0 00177 01455 TNZ -0 10000 0 01457 01456 TRA +0 02000 0 00122 T'O FUN(C) 162 LM00200 01457 LXA +0 53400 2 00136 01460 TRA +0 02000 2 00114 FSERR2 W'R C.E.4 .AND. ERCODE.NE.3, T'O FUNC(C) 163 LM00204 01461 CLA +0 50000 0 00141 01462 SUB +0 40200 0 00202 01463 TZE +0 10000 0 01471 01464 CLA +0 50000 0 00136 01465 SUB +0 40200 0 00203 01466 TNZ -0 10000 0 01471 01467 LXA +0 53400 2 00136 01470 TRA +0 02000 2 00106 IOERR PRNTER.(61K) 164 LM00205 01471 TSX +0 07400 4 00020 01472 TXH +3 00000 0 00212 T'O NEXT 165 LM00206 01473 TRA +0 02000 0 00122 LOOP CONTINUE 166 LM00208 01474 TRA +0 02000 0 00460 CHNCOM.(0) 167 LM00209 01475 TSX +0 07400 4 00001 01476 TXH +3 00000 0 00177 PFORMT(1) PRMESS.(COMBUF(0),$ NAME1 NAME2 MODE NAME1' NAME2' MODE' ...$ 168 LM00213 1) 168 LM00214 01477 TSX +0 07400 4 00017 01500 TXH +3 00000 0 00056 01501 TXH +3 00000 0 00304 01502 TXH +3 00000 0 00305 01503 TXH +3 00000 0 00303 01504 TXH +3 00000 0 00252 01505 TXH +3 00000 0 00305 01506 TXH +3 00000 0 00221 01507 TXH +3 00000 0 00220 T'O PFMT 169 LM00215 01510 TRA +0 02000 0 00124 PFORMT(2) PRMESS.(COMBUF(0),$ NAME1 NAME2 NAME1' NAME2' ...$) 170 LM00217 01511 TSX +0 07400 4 00017 01512 TXH +3 00000 0 00056 01513 TXH +3 00000 0 00304 01514 TXH +3 00000 0 00305 01515 TXH +3 00000 0 00304 01516 TXH +3 00000 0 00222 01517 TXH +3 00000 0 00216 T'O PFMT 171 LM00218 01520 TRA +0 02000 0 00124 PFORMT(3) PRMESS.(COMBUF(0),$ OLDNM1 OLDNM2 NEWNM1 NEWNM2 OLDNM1' OLDNM 172 LM00220 12' NEWNM1' NEWNM2' ...$) 172 LM00221 01521 TSX +0 07400 4 00017 01522 TXH +3 00000 0 00056 01523 TXH +3 00000 0 00314 01524 TXH +3 00000 0 00215 01525 TXH +3 00000 0 00250 01526 TXH +3 00000 0 00255 01527 TXH +3 00000 0 00335 01530 TXH +3 00000 0 00244 01531 TXH +3 00000 0 00314 01532 TXH +3 00000 0 00217 01533 TXH +3 00000 0 00254 01534 TXH +3 00000 0 00241 01535 TXH +3 00000 0 00301 T'O PFMT 173 LM00222 01536 TRA +0 02000 0 00124 PFORMT(4) T'O PFORMT(2) 174 LM00224 01537 TRA +0 02000 0 00130 PFORMT(5) PRMESS.(COMBUF(0), $ NAME1 NAME2 PROB PROG NAME1' NAME2' PROB 175 LM00226 1' PROG' ...$) 175 LM00227 01540 TSX +0 07400 4 00017 01541 TXH +3 00000 0 00056 01542 TXH +3 00000 0 00304 01543 TXH +3 00000 0 00305 01544 TXH +3 00000 0 00316 01545 TXH +3 00000 0 00263 01546 TXH +3 00000 0 00225 01547 TXH +3 00000 0 00253 01550 TXH +3 00000 0 00315 01551 TXH +3 00000 0 00317 01552 TXH +3 00000 0 00301 PFMT PRMESS.($THE LISTF ASTERISK CONVENTION APPLIES.$) 176 LM00229 01553 TSX +0 07400 4 00017 01554 TXH +3 00000 0 00330 01555 TXH +3 00000 0 00325 01556 TXH +3 00000 0 00327 01557 TXH +3 00000 0 00267 01560 TXH +3 00000 0 00257 01561 TXH +3 00000 0 00226 01562 TXH +3 00000 0 00324 CHNCOM.(0) 177 LM00230 01563 TSX +0 07400 4 00001 01564 TXH +3 00000 0 00177 ICOMPT PRMESS.($ IS AN INCOMPLETE SET OF ARGUMENTS.$) 178 LM00234 01565 TSX +0 07400 4 00017 01566 TXH +3 00000 0 00275 01567 TXH +3 00000 0 00273 01570 TXH +3 00000 0 00262 01571 TXH +3 00000 0 00322 01572 TXH +3 00000 0 00266 01573 TXH +3 00000 0 00236 CHNCOM.(0) 179 LM00235 01574 TSX +0 07400 4 00001 01575 TXH +3 00000 0 00177 E'M 180 LM00236 01576 TSX +0 07400 4 00004 1 NEWMOD - 03/25/68 D.A. ANDERSON COMPUTE NEW MODE FOR FILE 07/06/71 1755.1 PAGE 1 00002 ENTRY NEWMOD LINKAGE DIRECTOR 00000 000000000000 00001 452566444624 00002 0634 00 1 00027 NEWMOD SXA XR1,1 00003 0634 00 2 00026 SXA XR2,2 00004 0634 00 4 00025 SXA XR4,4 00005 -0500 60 4 00001 CAL* 1,4 00006 0602 00 0 00101 SLW OLDMOD 00007 0560 60 4 00002 LDQ* 2,4 00010 0774 00 1 00006 AXT 6,1 00011 0600 00 0 00124 STZ MODE1 00012 0600 00 0 00125 STZ MODE2 00013 0074 00 4 00031 CYCLE TSX GENMOD,4 00014 0 00000 0 00124 MODE1 00015 -3 00024 2 00021 TXL NOREM,2,REMOVE 00016 0074 00 4 00031 TSX GENMOD,4 00017 0 00000 0 00125 MODE2 00020 3 00024 2 00013 TXH CYCLE,2,REMOVE 00021 -0500 00 0 00125 NOREM CAL MODE2 00022 0760 00 0 00006 COM 00023 -0320 00 0 00124 ANA MODE1 00024 -0320 00 0 00131 ANA =O377 00025 0774 00 4 00000 XR4 AXT **,4 00026 0774 00 2 00000 XR2 AXT **,2 00027 0774 00 1 00000 XR1 AXT **,1 00030 0020 00 4 00004 TRA 4,4 00031 0600 00 0 00127 GENMOD STZ OCTBUF 00032 0600 00 0 00126 STZ HAVSUM 00033 0774 00 2 00000 AXT 0,2 00034 -0754 00 0 00000 LOOP ZAC 00035 -0763 00 0 00006 LGL 6 00036 -0340 00 0 00130 LAS =7 00037 0020 00 0 00046 TRA NOTOCT 00040 0761 00 0 00000 NOP 00041 -0765 00 0 00003 LGR 3 00042 -0500 00 0 00127 CAL OCTBUF 00043 -0763 00 0 00003 LGL 3 00044 0602 00 0 00127 SLW OCTBUF 00045 0020 00 0 00065 TRA SETHAV 00046 0774 00 2 00026 NOTOCT AXT NMOD,2 00047 -0340 00 2 00124 LAS MODS+NMOD,2 00050 0020 00 0 00052 TRA *+2 00051 0020 00 0 00057 TRA GOTMOD 00052 2 00002 2 00047 TIX *-3,2,2 00053 0534 00 1 00027 BAD LXA XR1,1 00054 0534 00 2 00026 LXA XR2,2 00055 0534 00 4 00025 LXA XR4,4 00056 0020 60 4 00003 TRA* 3,4 1 NEWMOD - 03/25/68 D.A. ANDERSON COMPUTE NEW MODE FOR FILE 07/06/71 1755.1 PAGE 2 00057 3 00024 2 00074 GOTMOD TXH OUT,2,REMOVE 00060 0500 00 2 00125 CLA MODS+NMOD+1,2 00061 -0501 00 0 00127 ORA OCTBUF 00062 0600 00 0 00127 STZ OCTBUF 00063 -0602 60 4 00001 ORS* 1,4 00064 -0120 00 0 00066 TMI NDLOP 00065 -0625 00 0 00126 SETHAV STL HAVSUM 00066 2 00001 1 00034 NDLOP TIX LOOP,1,1 00067 -0500 00 0 00127 EXIT CAL OCTBUF 00070 -0520 00 0 00126 NZT HAVSUM 00071 -0501 00 0 00101 ORA OLDMOD 00072 -0602 60 4 00001 ORS* 1,4 00073 0020 00 4 00002 TRA 2,4 00074 -2 00001 1 00053 OUT TNX BAD,1,1 00075 0020 00 0 00067 TRA EXIT 00076 000000000061 MODS BCI 1,00000/ 00077 0 00000 0 00000 PZE 00100 000000000054 .RMV. BCI 1,00000* 00101 0 00000 0 00000 OLDMOD PZE 00102 000000000044 BCI 1,00000M 00103 +000000000200 OCT 200 00104 000000000047 BCI 1,00000P 00105 +000000000100 OCT 100 00106 000000000043 BCI 1,00000L 00107 +000000000040 OCT 40 00110 000000000065 BCI 1,00000V 00111 +000000000020 OCT 20 00112 000000000066 BCI 1,00000W 00113 +000000000010 OCT 10 00114 000000000051 BCI 1,00000R 00115 +000000000004 OCT 4 00116 000000000062 BCI 1,00000S 00117 +000000000002 OCT 2 00120 000000000063 BCI 1,00000T 00121 +000000000001 OCT 1 00122 000000000060 BCI 1,00000 00123 -000000000000 OCT -0 00024 REMOVE EQU *-.RMV. 00026 NMOD EQU *-MODS 00124 0 00000 0 00000 MODE1 00125 0 00000 0 00000 MODE2 00126 0 00000 0 00000 HAVSUM 00127 0 00000 0 00000 OCTBUF END LITERALS 00130 000000000007 00131 000000000377 1 NEWMOD - 03/25/68 D.A. ANDERSON COMPUTE NEW MODE FOR FILE 07/06/71 1755.1 PAGE 1 POST PROCESSOR ASSEMBLY DATA 132 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 53 BAD 74 74 OUT 57 27 XR1 2, 53 26 XR2 3, 54 25 XR4 4, 55 67 EXIT 75 34 LOOP 66 76 MODS 47, 60, 124 26 NMOD 46, 47, 60, 124 13 CYCLE 20 100 .RMV. 124 124 MODE1 11, 14, 23 125 MODE2 12, 17, 21 66 NDLOP 64 21 NOREM 15 31 GENMOD 13, 16 57 GOTMOD 51 126 HAVSUM 32, 65, 70 2 NEWMOD 0 46 NOTOCT 37 127 OCTBUF 31, 42, 44, 61, 62, 67 101 OLDMOD 6, 71 24 REMOVE 15, 20, 57, 124 65 SETHAV 45 0 NO ERROR IN ABOVE ASSEMBLY. UPDATE BCD 09/18/68 2320.9 11110 00000 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 1 7/28/66 - NOEL I. MORRIS UNLIST M CALL MACRO SUBR,LIST TRANSFER VECTOR 00000 712543606060 ZEL 00001 644531506425 UNIQUE 00002 234647706060 COPY 00003 242543256325 DELETE 00004 475145632551 PRNTER 00660 RCOUNT EQU 432 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 2 PICK UP PARAMETERS AND ASSIGN BUFFERS. 00005 CALL SETBRK(CHN) SET A BREAK LEVEL 00005 0074 00 4 00347 TSX SETBRK,4 .002 00006 3 00000 0 00216 PAR CHN .004 00007 CALL FERRTN SET FILE SYSTEM ERROR RETURN 00007 0074 00 4 00350 TSX FERRTN,4 .002 00010 0 00000 0 00237 PZE ERR .. 00011 CALL GETCLS((CBUF,,0)) PICK UP PARAMETERS 00011 0074 00 4 00351 TSX GETCLS,4 .002 00012 3 00000 0 00307 PAR CBUF,,0 .004 00013 -0500 00 0 00307 CAL CBUF CHECK NAME OF COMMAND 00014 -0340 00 0 00430 LAS =H COPY .. 00015 0020 00 0 00017 TRA *+2 .. 00016 0020 00 0 00024 TRA NAMOK THIS IS COPY COMMAND 00017 -0340 00 0 00433 LAS =HUPDATE .. 00020 0020 00 0 00222 TRA BADNAM COMMAND NAME UNKNOWN 00021 0020 00 0 00023 TRA *+2 .. 00022 0020 00 0 00222 TRA BADNAM .. 00023 -0625 00 0 00344 STL UPDSW. SET UPDATE INDIC. 00024 NAMOK SYN * 00024 0774 00 4 00002 AXT 2,4 CHECK FOR EARLY FENCE 00025 -0500 00 4 00312 CAL CBUF+3,4 .. 00026 0322 00 0 00346 ERA FENCE .. 00027 0100 00 0 00225 TZE NOPAR INCOMPLETE SET OF PARAMETERS 00030 2 00001 4 00025 TIX *-3,4,1 .. 00031 CALL $ZEL(CBUF+1) CONVERT COMMON FILE NO. 00031 0074 00 4 00000 TSX $ZEL,4 .002 00032 3 00000 0 00310 PAR CBUF+1 .004 00033 -0340 00 0 00405 LAS =H00000S CHECK FOR 'S' 00034 0020 00 0 00036 TRA *+2 .. 00035 -0500 00 0 00404 CAL =H00000P CHANGE 'S' TO 'P' 00036 0602 00 0 00340 SLW CFN .. CF0 =L GETCF PICK UP HOME COMMON FILE NO. 00037 0074 00 4 00352 TSX GETCF,4 .003 00040 0602 00 0 00337 SLW CF0 .002 00041 CALL GETMEM GET MEMBND 00041 0074 00 4 00353 TSX GETMEM,4 .002 00042 0621 00 0 00160 STA MOV+5 .. 00043 0361 00 0 00345 ACL BUFLEN .. 00044 0621 00 0 00161 STA MOV+6 .. 00045 0361 00 0 00345 ACL BUFLEN .. 00046 0621 00 0 00162 STA MOV+7 .. 00047 0361 00 0 00345 ACL BUFLEN .. 00050 EXTEND (BFR+3) EXTEND MEMBND 00050 0621 00 0 00152 STA BFR+3 .003 00051 0361 00 0 00407 ACL =432 .002 00052 0074 00 4 00354 TSX SETMEM,4 .003 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 3 COPY OR UPDATE THE FILE. 00053 -0774 00 1 00002 AXC 2,1 PARAMETER PICK UP INDEX 00054 -0500 00 1 00307 LOOP CAL CBUF,1 FIRST NAME OF FILE 00055 0602 00 0 00272 SLW N1 .. 00056 0322 00 0 00346 ERA FENCE CHECK FOR NONE 00057 0100 00 0 00216 TZE FIN ALL FINISHED IF FENCE 00060 -0500 00 1 00310 CAL CBUF+1,1 SECOND NAME OF FILE 00061 0602 00 0 00274 SLW N2 .. 00062 0322 00 0 00346 ERA FENCE CHECK FOR UNPAIRED FILE NAME 00063 0100 00 0 00232 TZE UNPAIR .. 00064 CALL $UNIQUE(T1,T2) PICK UP UNIQUE TEMPORARY FILE NAME 00064 0074 00 4 00001 TSX $UNIQUE,4 .002 00065 3 00000 0 00335 PAR T1 .004 00066 3 00000 0 00336 PAR T2 .004 00067 -0500 00 0 00272 CAL N1 CHECK FOR OUTPUT RQUEST FILE 00070 0322 00 0 00425 ERA =HOUTPUT .. 00071 -0100 00 0 00116 TNZ NO.RQ .. 00072 -0500 00 0 00274 CAL N2 .. 00073 0322 00 0 00426 ERA =HRQUEST .. 00074 -0100 00 0 00116 TNZ NO.RQ .. 00075 0520 00 0 00344 ZET UPDSW. CHECK FOR UPDATE 00076 CALL CMFL(CFN) SWITCH COMFILS 00076 0074 00 4 00220 TSX CMFL,4 .002 00077 3 00000 0 00340 PAR CFN .004 00100 CALL FSTATE(N1,N2(*,,0)*+2) CHECK FOR FILE 00100 0074 00 4 00355 TSX FSTATE,4 .002 00101 3 00000 0 00272 PAR N1 .004 00102 3 00000 0 00274 PAR N2 .004 00103 3 00000 0 00103 PAR *,,0 .004 00104 3 00000 0 00106 PAR *+2 .004 00105 CALL CHFILE(N1,N2,=-0,T1,T2) RENAME TO TEMPORARY FILE 00105 0074 00 4 00356 TSX CHFILE,4 .002 00106 3 00000 0 00272 PAR N1 .004 00107 3 00000 0 00274 PAR N2 .004 00110 3 00000 0 00423 PAR =-0 .004 00111 3 00000 0 00335 PAR T1 .004 00112 3 00000 0 00336 PAR T2 .004 00113 0520 00 0 00344 ZET UPDSW. CHECK FOR UPDATE AGAIN 00114 CALL CMFL(CF0) AND SWITCH BACK IF NECESSARY 00114 0074 00 4 00220 TSX CMFL,4 .002 00115 3 00000 0 00337 PAR CF0 .004 00116 NO.RQ SYN * 00116 -0520 00 0 00344 NZT UPDSW. CHECK FOR COPY 00117 CALL CMFL(CFN) SWITCH TO COMMON FILE FOR COPY 00117 0074 00 4 00220 TSX CMFL,4 .002 00120 3 00000 0 00340 PAR CFN .004 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 4 COPY OR UPDATE THE FILE. 00121 CALL FSTATE(N1,N2(STAT,,2)) CHECK MODE OF ORIGINAL FILE 00121 0074 00 4 00355 TSX FSTATE,4 .002 00122 3 00000 0 00272 PAR N1 .004 00123 3 00000 0 00274 PAR N2 .004 00124 3 00002 0 00333 PAR STAT,,2 .004 00125 CALL OPEN(=HR,N1,N2) OPEN THE FILE 00125 0074 00 4 00357 TSX OPEN,4 .002 00126 3 00000 0 00427 PAR =HR .004 00127 3 00000 0 00272 PAR N1 .004 00130 3 00000 0 00274 PAR N2 .004 00131 0520 00 0 00344 ZET UPDSW. CHECK FOR COPY OR UPDATE 00132 CALL CMFL(CFN) UPDATE - SWITCH TO COMFIL 00132 0074 00 4 00220 TSX CMFL,4 .002 00133 3 00000 0 00340 PAR CFN .004 00134 -0520 00 0 00344 NZT UPDSW. .. 00135 CALL CMFL(CF0) COPY - SWITCH HOME 00135 0074 00 4 00220 TSX CMFL,4 .002 00136 3 00000 0 00337 PAR CF0 .004 00137 OPN CALL OPEN(=HW,T1,T2,OP.MOD,=-0,OPERR,ERCODE) OPEN TEMP. 00137 0074 00 4 00357 TSX OPEN,4 .002 00140 3 00000 0 00436 PAR =HW .004 00141 3 00000 0 00335 PAR T1 .004 00142 3 00000 0 00336 PAR T2 .004 00143 3 00000 0 00343 PAR OP.MOD .004 00144 3 00000 0 00423 PAR =-0 .004 00145 3 00000 0 00246 PAR OPERR .004 00146 3 00000 0 00341 PAR ERCODE .004 00147 BFR CALL BUFFER(T1,T2(**,,RCOUNT)) ASSIGN FILE SYSTEM BUFFER 00147 0074 00 4 00360 TSX BUFFER,4 .002 00150 3 00000 0 00335 PAR T1 .004 00151 3 00000 0 00336 PAR T2 .004 00152 3 00660 0 00000 PAR **,,RCOUNT .004 00153 MOV CALL $COPY(N1,N2,T1,T2,**,**,**,BUFLEN,ERR) COPY THE FILE 00153 0074 00 4 00002 TSX $COPY,4 .002 00154 3 00000 0 00272 PAR N1 .004 00155 3 00000 0 00274 PAR N2 .004 00156 3 00000 0 00335 PAR T1 .004 00157 3 00000 0 00336 PAR T2 .004 00160 3 00000 0 00000 PAR ** .004 00161 3 00000 0 00000 PAR ** .004 00162 3 00000 0 00000 PAR ** .004 00163 3 00000 0 00345 PAR BUFLEN .004 00164 3 00000 0 00237 PAR ERR .004 00165 CALL CLOSE(=HALL,=-0) CLOSE ALL FILES 00165 0074 00 4 00361 TSX CLOSE,4 .002 00166 3 00000 0 00410 PAR =HALL .004 00167 3 00000 0 00423 PAR =-0 .004 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 5 COPY OR UPDATE THE FILE. MODE = $DELETE(N1,N2,*,NOXMT) DELETE OLD FILE, IF ANY 00170 0074 00 4 00003 TSX $DELETE,4 .003 00171 3 00000 0 00272 PAR N1 .005 00172 3 00000 0 00274 PAR N2 .005 00173 3 00000 0 00173 PAR * .005 00174 3 00000 0 00241 PAR NOXMT .005 00175 0601 00 0 00342 STO MODE .002 00176 -0520 00 0 00344 NZT UPDSW. IF UPDATE 00177 0020 00 0 00202 TRA *+3 .. 00200 -0500 00 0 00334 CAL STAT+1 USE MODE OF TRANSMITTED FILE 00201 0602 00 0 00342 SLW MODE OTHERWISE, MODE OF OLD FILE 00202 CHF CALL CHFILE(T1,T2,MODE,N1,N2,CHERR,ERCODE) TRY TO RENAME 00202 0074 00 4 00356 TSX CHFILE,4 .002 00203 3 00000 0 00335 PAR T1 .004 00204 3 00000 0 00336 PAR T2 .004 00205 3 00000 0 00342 PAR MODE .004 00206 3 00000 0 00272 PAR N1 .004 00207 3 00000 0 00274 PAR N2 .004 00210 3 00000 0 00254 PAR CHERR .004 00211 3 00000 0 00341 PAR ERCODE .004 00212 0520 00 0 00344 ZET UPDSW. IF UPDATE, 00213 CALL CMFL(CF0) SWITCH HOME 00213 0074 00 4 00220 TSX CMFL,4 .002 00214 3 00000 0 00337 PAR CF0 .004 00215 1 77776 1 00054 TXI LOOP,1,-2 SEE IF MORE FILES TO TRANSMIT 00216 FIN SYN * 00216 CHN CALL CHNCOM(0) 00216 0074 00 4 00362 TSX CHNCOM,4 .002 00217 3 00000 0 00000 PAR 0 .004 00220 -0500 60 4 00001 CMFL CAL* 1,4 PICK UP COMMON FILE NUMBER 00221 0101 00 0 00415 TIA =HCOMFIL AND GO TO A-CORE 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 6 ERROR SECTION. 00222 BADNAM COMENT C1,4( ILLEGAL COMMAND NAME.) 00222 0074 00 4 00363 TSX WRFLX,4 .003 00223 3 00004 0 00364 PAR C1,,4 .005 00224 0021 00 0 00216 XIT CHN .. 00225 -0500 00 0 00307 NOPAR CAL CBUF INSERT NAME OF COMMAND 00226 0602 00 0 00302 SLW USAGE+2 INTO USAGE MESSAGE 00227 COMENT USAGE,7 00227 0074 00 4 00363 TSX WRFLX,4 .003 00230 3 00007 0 00300 PAR USAGE,,7 .005 00231 0021 00 0 00216 XIT CHN .. 00232 -0500 00 1 00307 UNPAIR CAL CBUF,1 GET UNPAIRED PARAMETER 00233 0602 00 0 00370 SLW C3 FOR ERROR MESSAGE 00234 COMENT C3,3(XXXXXX IGNORED.) 00234 0074 00 4 00363 TSX WRFLX,4 .003 00235 3 00003 0 00370 PAR C3,,3 .005 00236 0021 00 0 00216 XIT CHN .. 00237 ERR CALL $PRNTER(=O71) PRINT FILE SYSTEM ERROR MESSAGE 00237 0074 00 4 00004 TSX $PRNTER,4 .002 00240 3 00000 0 00406 PAR =O71 .004 00241 NOXMT CALL WRFLX((N1,,6)) TELL USER FILE NOT TRANSMITTED 00241 0074 00 4 00363 TSX WRFLX,4 .002 00242 3 00006 0 00272 PAR N1,,6 .004 00243 CALL CMFL(CF0) SWITCH HOME 00243 0074 00 4 00220 TSX CMFL,4 .002 00244 3 00000 0 00337 PAR CF0 .004 00245 1 77776 1 00054 TXI LOOP,1,-2 BACK FOR MORE 00246 0500 00 0 00341 OPERR CLA ERCODE CHECK FOR RECORD QUOTA OVERFLOW 00247 0402 00 0 00402 SUB =15 .. 00250 -0100 00 0 00237 TNZ ERR ANY OTHER ERROR IS FATAL 00251 -0500 00 0 00400 CAL =O001 TEMPORARY MUST BE IN TEMPORARY MODE 00252 0602 00 0 00343 SLW OP.MOD .. 00253 0020 00 0 00137 TRA OPN TRY AGAIN NOW 00254 0500 00 0 00341 CHERR CLA ERCODE PICK UP CHFILE ERROR CODE 00255 0402 00 0 00401 SUB =9 CHECK FOR RECORD QUOTA OVERFLOW 00256 -0100 00 0 00237 TNZ ERR ANY OTHER ERROR IS NOT EXPECTED 00257 CALL $PRNTER(=O41) PRINT ERROR MESSAGE 00257 0074 00 4 00004 TSX $PRNTER,4 .002 00260 3 00000 0 00403 PAR =O41 .004 00261 -0500 00 0 00400 CAL =O001 NEW FILE WILL HAVE TO BE TEMPORARY 00262 0602 00 0 00342 SLW MODE 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 7 ERROR SECTION. 00263 CALL WRFLXA((YNF,,5)) TELL USER NEW FILE IS TEMPORARY 00263 0074 00 4 00373 TSX WRFLXA,4 .002 00264 3 00005 0 00270 PAR YNF,,5 .004 00265 COMENT C4,4( IS IN TEMPORARY MODE.) 00265 0074 00 4 00363 TSX WRFLX,4 .003 00266 3 00004 0 00374 PAR C4,,4 .005 00267 0020 00 0 00202 TRA CHF TRY AGAIN TO CHFILE 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 8 STORAGE AND CONSTANTS. 00270 606070466451 YNF BCI 2, YOUR NEW 00271 604525666060 00272 0 00000 0 00000 N1 PZE 00273 575757575760 VFD O36/575757575760 00274 0 00000 0 00000 N2 PZE 00275 604546636063 BCI 3, NOT TRANSMITTED. 00276 512145624431 00277 636325243360 00300 606064622127 USAGE BCI 7, USAGE IS 'XXXXXX N NAME1 NAME2 ... ...' 00301 256031626014 00302 676767676767 00303 604560452144 00304 250160452144 00305 250260333333 00306 603333331460 00307 CBUF BSS 20 00333 STAT BSS 2 00335 T1 BSS 1 00336 T2 BSS 1 00337 CF0 BSS 1 00340 CFN BSS 1 00341 ERCODE BSS 1 00342 MODE BSS 1 00343 000000000000 OP.MOD VFD O36/000 00344 0 00000 0 00000 UPDSW. PZE 0 00345 0 00000 0 03300 BUFLEN PZE RCOUNT*4 00346 777777777777 FENCE VFD O36// 00347 RMT * REMOTE SEQUENCES 00347 0101 00 0 00431 SETBRK TIA =HSETBRK .002 00350 0101 00 0 00416 FERRTN TIA =HFERRTN .002 00351 0101 00 0 00421 GETCLS TIA =HGETCLS .002 00352 0101 00 0 00420 GETCF TIA =HGETCF .002 00353 0101 00 0 00422 GETMEM TIA =HGETMEM .002 00354 0101 00 0 00432 SETMEM TIA =HSETMEM .002 00355 0101 00 0 00417 FSTATE TIA =HFSTATE .002 00356 0101 00 0 00412 CHFILE TIA =HCHFILE .002 00357 0101 00 0 00424 OPEN TIA =HOPEN .002 00360 0101 00 0 00411 BUFFER TIA =HBUFFER .002 00361 0101 00 0 00414 CLOSE TIA =HCLOSE .002 00362 0101 00 0 00413 CHNCOM TIA =HCHNCOM .002 00363 0101 00 0 00435 WRFLX TIA =HWRFLX .002 00364 603143432527 C1 BCI 4, ILLEGAL COMMAND NAME. .002 00365 214360234644 00366 442145246045 00367 214425336060 00370 676767676767 C3 BCI 3,XXXXXX IGNORED. .002 00371 603127454651 00372 252433606060 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 9 STORAGE AND CONSTANTS. 00373 0101 00 0 00434 WRFLXA TIA =HWRFLXA .002 00374 603162603145 C4 BCI 4, IS IN TEMPORARY MODE. .002 00375 606325444746 00376 512151706044 00377 462425336060 END LITERALS 00400 000000000001 00401 000000000011 00402 000000000017 00403 000000000041 00404 000000000047 00405 000000000062 00406 000000000071 00407 000000000660 00410 214343606060 00411 226426262551 00412 233026314325 00413 233045234644 00414 234346622560 00415 234644263143 00416 262551516345 00417 266263216325 00420 272563232660 00421 272563234362 00422 272563442544 00423 400000000000 00424 464725456060 00425 466463476463 00426 515064256263 00427 516060606060 00430 606023464770 00431 622563225142 00432 622563442544 00433 644724216325 00434 665126436721 00435 665126436760 00436 666060606060 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 1 POST PROCESSOR ASSEMBLY DATA 437 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 364 C1 223 370 C3 233, 235 374 C4 266 272 N1 55, 67, 101, 106, 122, 127, 154, 171, 206, 242 274 N2 61, 72, 102, 107, 123, 130, 155, 172, 207 335 T1 65, 111, 141, 150, 156, 203 336 T2 66, 112, 142, 151, 157, 204 147 BFR 50 337 CF0 40, 115, 136, 214, 244 340 CFN 36, 77, 120, 133 202 CHF 267 216 CHN 6, 224, 231, 236 237 ERR 10, 164, 250, 256 216 FIN 57, 216 153 MOV 42, 44, 46 137 OPN 253 270 YNF 264 0 ZEL 31 307 CBUF 12, 13, 25, 32, 54, 60, 225, 232 220 CMFL 76, 114, 117, 132, 135, 213, 243 2 COPY 153 54 LOOP 215, 245 342 MODE 175, 201, 205, 262 357 OPEN 125, 137 333 STAT 124, 200 254 CHERR 210 361 CLOSE 165 346 FENCE 26, 56, 62 352 GETCF 37 24 NAMOK 16, 24 116 NO.RQ 71, 74, 116 225 NOPAR 27 241 NOXMT 174 246 OPERR 145 300 USAGE 226, 230 363 WRFLX 222, 227, 234, 241, 265 222 BADNAM 20, 22 360 BUFFER 147 345 BUFLEN 43, 45, 47, 163 356 CHFILE 105, 202 362 CHNCOM 216 3 DELETE 170 341 ERCODE 146, 211, 246, 254 350 FERRTN 7 355 FSTATE 100, 121 351 GETCLS 11 353 GETMEM 41 343 OP.MOD 143, 252 4 PRNTER 237, 257 660 RCOUNT 5, 152, 345 347 SETBRK 5 1 COPY/UPDATE - COMMON FILE TRANSMISSION COMMANDS. PAGE 2 POST PROCESSOR ASSEMBLY DATA 354 SETMEM 52 1 UNIQUE 64 232 UNPAIR 63 344 UPDSW. 23, 75, 113, 116, 131, 134, 176, 212 373 WRFLXA 263 0 NO ERROR IN ABOVE ASSEMBLY. 1 COPY - COPY ONE FILE INTO ANOTHER. PAGE 1 1/18/66 - NOEL I. MORRIS * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * CALLING SEQUENCE - * * COPY. (IN1, IN2, OUT1, OUT2, BUFF1, BUFF2, BUFF3, NWDSPR, ERRET) * * IN1 = PRIMARY NAME OF INPUT FILE. * IN2 = SECONDARY NAME OF INPUT FILE. * OUT1 = PRIMARY NAME OF OUTPUT FILE. * OUT2 = SECONDARY NAME OF OUTPUT FILE. * BUFF1, BUFF2, AND BUFF3 ARE DISK BUFFERS. * NWDSPR = LENGTH OF THE DISK BUFFERS. * ERRET = FILE SYSTEM ERROR RETURN. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * UNLIST M CALL MACRO SUBR,LIST 00000 ENTRY COPY 00000 0634 00 1 00107 COPY SXA X1,1 SAVE XRS 00001 0634 00 2 00110 SXA X2,2 .. 00002 0634 00 4 00111 SXA X4,4 .. 00003 -0500 60 4 00001 CAL* 1,4 GET IN1 00004 0602 00 0 00170 SLW IN1 .. 00005 -0500 60 4 00002 CAL* 2,4 GET IN2 00006 0602 00 0 00171 SLW IN2 .. 00007 -0500 60 4 00003 CAL* 3,4 GET OUT1 00010 0602 00 0 00172 SLW OUT1 .. 00011 -0500 60 4 00004 CAL* 4,4 GET OUT2 00012 0602 00 0 00173 SLW OUT2 .. 00013 -0500 00 4 00005 CAL 5,4 GET BUFFER ADDRESSES 00014 0621 00 0 00151 STA BUFF1 .. 00015 -0500 00 4 00006 CAL 6,4 .. 00016 0621 00 0 00152 STA BUFF2 .. 00017 -0500 00 4 00007 CAL 7,4 .. 00020 0621 00 0 00153 STA BUFF3 .. 00021 -0500 60 4 00010 CAL* 8,4 GET RECORD COUNT 00022 0602 00 0 00154 SLW EOFCT .. 00023 0602 00 0 00155 SLW EOFCT+1 .. 00024 0602 00 0 00156 SLW EOFCT+2 .. 00025 CALL FERRTN SET UP FILE SYSTEM ERROR RETURN 00025 0074 00 4 00174 TSX FERRTN,4 .002 00026 0 00000 0 00141 PZE ERR .. 00027 0621 00 0 00106 STA RETERR SAVE OLD ERROR RETURN 1 COPY - COPY ONE FILE INTO ANOTHER. PAGE 2 00030 0600 00 0 00166 STZ TEOF RESET EOF INDIC. 00031 -0625 00 0 00165 STL FIRST SET FIRST TIME INDIC. 00032 CALL FSTATE(IN1,IN2(STAT,,5)) PICK UP INPUT FILE STATUS 00032 0074 00 4 00175 TSX FSTATE,4 .002 00033 3 00000 0 00170 PAR IN1 .004 00034 3 00000 0 00171 PAR IN2 .004 00035 3 00005 0 00157 PAR STAT,,5 .004 00036 -0774 00 1 00000 AXC 0,1 INITIALIZE INPUT BUFFER INDEX 00037 -0774 00 2 00000 AXC 0,2 INITIALIZE OUTPUT BUFFER INDEX 00040 LOOP SYN * 00040 0520 00 0 00166 ZET TEOF CHECK FOR PREVIOUS EOF 00041 0020 00 0 00065 TRA CONTIN SKIP READ IF SO 00042 -0500 00 1 00151 CAL BUFLOC,1 SET BUFFER FOR READ 00043 0602 00 0 00050 SLW RD+4 .. 00044 RD CALL RDFILE(IN1,IN2,=0(**,...,**)EOF,COUNT) READ 00044 0074 00 4 00176 TSX RDFILE,4 .002 00045 3 00000 0 00170 PAR IN1 .004 00046 3 00000 0 00171 PAR IN2 .004 00047 3 00000 0 00201 PAR =0 .004 00050 2 00000 0 00000 BLK **,,** .004 00051 3 00000 0 00113 PAR EOF .004 00052 3 00000 0 00164 PAR COUNT .004 00053 0500 00 0 00163 CLA R.PTR STEP THE READ POINTER 00054 0400 00 0 00154 ADD EOFCT BY BUFFER LENGTH 00055 0602 00 0 00163 SLW R.PTR .. 00056 1 77777 1 00057 TXI *+1,1,-1 STEP READ BUFFER INDEX 00057 3 77775 1 00061 TXH *+2,1,-3 .. 00060 -0774 00 1 00000 AXC 0,1 .. 00061 -0520 00 0 00165 NZT FIRST IF NOT FIRST TIME, 00062 0020 00 0 00065 TRA CONTIN KEEP GOING 00063 0600 00 0 00165 STZ FIRST OTHERWISE, 00064 0020 00 0 00040 TRA LOOP GO READ ANOTHER RECORD 00065 -0500 00 2 00151 CONTIN CAL BUFLOC,2 SET BUFFER FOR WRITE 00066 0602 00 0 00073 SLW WR+4 .. 00067 WR CALL WRFILE(OUT1,OUT2,=0(**,...,**)) WRITE 00067 0074 00 4 00177 TSX WRFILE,4 .002 00070 3 00000 0 00172 PAR OUT1 .004 00071 3 00000 0 00173 PAR OUT2 .004 00072 3 00000 0 00201 PAR =0 .004 00073 2 00000 0 00000 BLK **,,** .004 00074 -0520 00 0 00166 NZT TEOF IF EOF, 00075 0020 00 0 00101 TRA WINCR .. 00076 0756 00 2 00000 PCA ,2 CHECK FOR HAVING WRITTEN LAST RECORD 1 COPY - COPY ONE FILE INTO ANOTHER. PAGE 3 00077 0402 00 0 00167 SUB EOFX .. 00100 0100 00 0 00105 TZE FINISH .. 00101 1 77777 2 00102 WINCR TXI *+1,2,-1 STEP WRITE BUFFER INDEX 00102 3 77775 2 00104 TXH *+2,2,-3 .. 00103 -0774 00 2 00000 AXC 0,2 .. 00104 0020 00 0 00040 TRA LOOP CONTINUE COPYING 00105 FINISH SYN * 00105 CALL FERRTN RESTORE OLD ERROR RETURN 00105 0074 00 4 00174 TSX FERRTN,4 .002 00106 0 00000 0 00000 RETERR PZE ** .. 00107 0774 00 1 00000 X1 AXT **,1 RESTORE XRS 00110 0774 00 2 00000 X2 AXT **,2 .. 00111 0774 00 4 00000 X4 AXT **,4 .. 00112 0020 00 4 00012 TRA 10,4 RETURN 00113 -0625 00 0 00166 EOF STL TEOF SET EOF INDIC. 00114 CALL FSTATE(IN1,IN2(STAT,,1)) FIND LENGTH NOW 00114 0074 00 4 00175 TSX FSTATE,4 .002 00115 3 00000 0 00170 PAR IN1 .004 00116 3 00000 0 00171 PAR IN2 .004 00117 3 00001 0 00157 PAR STAT,,1 .004 00120 0500 00 0 00157 CLA STAT LENGTH + 1 - POINTER 00121 0400 00 0 00202 ADD =1 .. 00122 0402 00 0 00163 SUB R.PTR .. 00123 0402 00 0 00164 SUB COUNT SHOULD EQUAL EOF COUNT 00124 0100 00 0 00132 TZE EOF.OK IF SO, NOTHING TO CORRECT 00125 0400 00 0 00154 ADD EOFCT LENGTH + 1 - POINTER + BUFFER LENGTH 00126 0601 00 0 00164 STO COUNT IS THE CORRECT EOF COUNT 00127 3 00000 1 00131 TXH *+2,1,0 DECREASE THE READ BUFFER INDEX 00130 -0774 00 1 00003 AXC 3,1 .. 00131 1 00001 1 00132 TXI *+1,1,1 TO CORRECT FOR MISSED EOF 00132 -0500 00 0 00164 EOF.OK CAL COUNT SET EOF COUNT 00133 0602 00 1 00154 SLW EOFCT,1 .. 00134 0636 00 1 00167 SCA EOFX,1 SAVE READ BUFFER INDEX 00135 CALL FWAIT(IN1,IN2) WAIT FOR I/O 00135 0074 00 4 00200 TSX FWAIT,4 .002 00136 3 00000 0 00170 PAR IN1 .004 00137 3 00000 0 00171 PAR IN2 .004 00140 0020 00 0 00065 TRA CONTIN NOW, FINISH UP 00141 -0500 00 0 00106 ERR CAL RETERR RESTORE OLD ERROR RETURN 00142 0621 00 0 00144 STA *+2 .. 00143 CALL FERRTN .. 00143 0074 00 4 00174 TSX FERRTN,4 .002 00144 0 00000 0 00000 PZE ** .. 1 COPY - COPY ONE FILE INTO ANOTHER. PAGE 4 00145 0522 00 0 00107 XEC X1 RESTORE XRS 00146 0522 00 0 00110 XEC X2 .. 00147 0522 00 0 00111 XEC X4 .. 00150 0020 60 4 00011 TRA* 9,4 AND TAKE ERROR RETURN 00151 BUFLOC SYN * 00151 2 00154 0 00000 BUFF1 PTW **,,EOFCT 00152 2 00155 0 00000 BUFF2 PTW **,,EOFCT+1 00153 2 00156 0 00000 BUFF3 PTW **,,EOFCT+2 00154 EOFCT BSS 3 00157 STAT BSS 5 00163 R.PTR SYN STAT+4 00164 0 00000 0 00000 COUNT PZE 00165 0 00000 0 00000 FIRST PZE 00166 0 00000 0 00000 TEOF PZE 00167 0 00000 0 00000 EOFX PZE 00170 0 00000 0 00000 IN1 PZE 00171 0 00000 0 00000 IN2 PZE 00172 0 00000 0 00000 OUT1 PZE 00173 0 00000 0 00000 OUT2 PZE 00174 RMT * REMOTE SEQUENCES. 00174 0101 00 0 00203 FERRTN TIA =HFERRTN .002 00175 0101 00 0 00204 FSTATE TIA =HFSTATE .002 00176 0101 00 0 00206 RDFILE TIA =HRDFILE .002 00177 0101 00 0 00207 WRFILE TIA =HWRFILE .002 00200 0101 00 0 00205 FWAIT TIA =HFWAIT .002 END LITERALS 00201 000000000000 00202 000000000001 00203 262551516345 00204 266263216325 00205 266621316360 00206 512426314325 00207 665126314325 1 COPY - COPY ONE FILE INTO ANOTHER. PAGE 1 POST PROCESSOR ASSEMBLY DATA 210 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 44 RD 43 67 WR 66 107 X1 0, 145 110 X2 1, 146 111 X4 2, 147 113 EOF 51 141 ERR 26 170 IN1 4, 33, 45, 115, 136 171 IN2 6, 34, 46, 116, 137 0 COPY 0 167 EOFX 77, 134 40 LOOP 40, 64, 104 172 OUT1 10, 70 173 OUT2 12, 71 157 STAT 35, 117, 120, 164 166 TEOF 30, 40, 74, 113 151 BUFF1 14 152 BUFF2 16 153 BUFF3 20 164 COUNT 52, 123, 126, 132 154 EOFCT 22, 23, 24, 54, 125, 133, 151, 152, 153 165 FIRST 31, 61, 63 200 FWAIT 135 163 R.PTR 53, 55, 122, 164 101 WINCR 75 151 BUFLOC 42, 65, 151 65 CONTIN 41, 62, 140 132 EOF.OK 124 174 FERRTN 25, 105, 143 105 FINISH 100, 105 175 FSTATE 32, 114 176 RDFILE 44 106 RETERR 27, 141 177 WRFILE 67 0 NO ERROR IN ABOVE ASSEMBLY. 1 PAGE 1 UNIQUE NAME GENERATOR BINARY CARD NO. UNIQUE00 00003 ENTRY UNIQUE EXTERN GETIME THIS PROGRAM GENERATES A UNIQUE PAIR OF NAMES TSX $UNIQUE,4 PTH NAME1 PTH NAME2 THIS PROGRAM IS USED TO GENERATE UNIQUE NAMES FOR INTERMEDIATE FILES D.R. WIDRIG DEC. 1965 TRANSFER VECTOR BINARY CARD NO. UNIQUE01 00000 272563314425 GETIME LINKAGE DIRECTOR 00001 000000000000 00002 644531506425 00003 0634 00 4 00007 UNIQUE SXA X4,4 SAVE LINKAGE 00004 0634 00 1 00026 SXA X1,1 COUNTER 00005 0074 00 4 00000 TSX GETIME,4 GET DATE AND TIME 00006 -0130 00 0 00000 XCL SWITCH AC AND MQ 00007 0774 00 4 00000 X4 AXT **,4 RESTORE LINKAGE 00010 -0320 00 0 00030 ANA =O777777770000 MASK OUT YY PORTION OF DATE 00011 0602 60 4 00001 SLW* 1,4 TEMPORARY SAVE 00012 -0754 00 0 00000 ZAC CLEAR AC 00013 -0773 00 0 00014 RQL 12 THROW OUT HIGH-ORDER ZEROES 00014 -0763 00 0 00003 LGL 3 CONVERT TO OCTAL 00015 0767 00 0 00003 ALS 3 .. 00016 -0763 00 0 00003 LGL 3 .. 00017 -0602 60 4 00001 ORS* 1,4 'OR' WITH MMDD 00020 0774 00 1 00006 AXT 6,1 SET LOOP COUNT 00021 -0754 00 0 00000 ZAC CLEAR AC 00022 0767 00 0 00003 ALS 3 CONVERT TO OCTAL 00023 -0763 00 0 00003 LGL 3 .. BINARY CARD NO. UNIQUE02 00024 2 00001 1 00022 TIX *-2,1,1 LOOP 00025 0602 60 4 00002 SLW* 2,4 SAVE NAME2 00026 0774 00 1 00000 X1 AXT **,1 RESTORE XR1 00027 0020 00 4 00003 TRA 3,4 RETURN END LITERALS 00030 777777770000 1 PAGE 1 POST PROCESSOR ASSEMBLY DATA 31 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 26 X1 4 7 X4 3 0 GETIME 5 3 UNIQUE 0 0 NO ERROR IN ABOVE ASSEMBLY. 1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 1 NOEL I. MORRIS - 6/22/65 UNLIST M CALL MACRO SUBR,LIST 00001 ENTRY DELETE 00000 462351222360 OCRBC 00001 0634 00 4 00035 DELETE SXA XR4,4 SAVE XRS 00002 0604 00 0 00125 STI SVSI SAVE SI 00003 0600 00 0 00122 STZ MODE SET MODE TO 'P' 00004 -0500 60 4 00001 CAL* 1,4 GET FILE NAME 00005 0602 00 0 00107 SLW FNAM .. 00006 -0500 60 4 00002 CAL* 2,4 .. 00007 0602 00 0 00111 SLW FNAM+2 .. 00010 -0500 60 4 00003 CAL* 3,4 GET DELETION PRINT SWITCH 00011 0602 00 0 00124 SLW PSW .. 00012 CALL FSTATE(FNAM,FNAM+2(BUFF,,2)FSERR,ERCODE) 00012 0074 00 4 00126 TSX FSTATE,4 .002 00013 3 00000 0 00107 PAR FNAM .004 00014 3 00000 0 00111 PAR FNAM+2 .004 00015 3 00002 0 00121 PAR BUFF,,2 .004 00016 3 00000 0 00070 PAR FSERR .004 00017 3 00000 0 00123 PAR ERCODE .004 00020 0441 00 0 00122 LDI MODE GET MODE BITS 00021 -0054 00 400000 LFT 400000 CHECK FOR LINKED FILE 00022 0020 00 0 00073 TRA LINKD IS LINKED, WILL NOT DELETE 00023 0054 00 000134 RFT 134 CHECK FOR READ-ONLY/PROTECTED, ETC. 00024 0020 00 0 00040 TRA ASK PROTECTED, ASK FOR DELETE 00025 DEL CALL DELFIL(FNAM,FNAM+2,NODEL) 00025 0074 00 4 00127 TSX DELFIL,4 .002 00026 3 00000 0 00107 PAR FNAM .004 00027 3 00000 0 00111 PAR FNAM+2 .004 00030 3 00000 0 00075 PAR NODEL .004 00031 0520 00 0 00124 ZET PSW CHECK FOR DELETION PRINT 00032 CALL WRFLX((DTOF,,6)) PRINT DELETION COMMENT 00032 0074 00 4 00130 TSX WRFLX,4 .002 00033 3 00006 0 00104 PAR DTOF,,6 .004 00034 -0500 00 0 00122 GONE CAL MODE GET THE MODE 00035 0774 00 4 00000 XR4 AXT **,4 RESTORE XRS 00036 0441 00 0 00125 LDI SVSI AND THE SI 00037 0020 00 4 00005 TRA 5,4 RETURN 1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 2 00040 ASK CALL $OCRBC(MODE) CONVERT TO BCD 00040 0074 00 4 00000 TSX $OCRBC,4 .002 00041 3 00000 0 00122 PAR MODE .004 00042 -0501 00 0 00151 ORA =O605757000000 MASK PROPERLY 00043 0602 00 0 00112 SLW BCMODE AND STORE IN COMMENT 00044 CALL WRFLXA((FNAM-1,,11)) 00044 0074 00 4 00131 TSX WRFLXA,4 .002 00045 3 00013 0 00106 PAR FNAM-1,,11 .004 00046 CALL RDFLXA((BUFF,,1)) 00046 0074 00 4 00132 TSX RDFLXA,4 .002 00047 3 00001 0 00121 PAR BUFF,,1 .004 00050 -0500 00 0 00121 CAL BUFF LOOK AT ANSWER 00051 0771 00 0 00022 ARS 18 .. 00052 0322 00 0 00143 ERA =H000YES CHECK FOR SPECIFIC 'YES' 00053 -0100 00 0 00075 TNZ NODEL NON-ZERO IF 'NO' OR GARBAGE 00054 CALL CHFILE(FNAM,FNAM+2,=1,=-0,=-0,NODEL) 00054 0074 00 4 00133 TSX CHFILE,4 .002 00055 3 00000 0 00107 PAR FNAM .004 00056 3 00000 0 00111 PAR FNAM+2 .004 00057 3 00000 0 00141 PAR =1 .004 00060 3 00000 0 00147 PAR =-0 .004 00061 3 00000 0 00147 PAR =-0 .004 00062 3 00000 0 00075 PAR NODEL .004 00063 CALL DELFIL(FNAM,FNAM+2,NODEL) DELETE IT NOW 00063 0074 00 4 00127 TSX DELFIL,4 .002 00064 3 00000 0 00107 PAR FNAM .004 00065 3 00000 0 00111 PAR FNAM+2 .004 00066 3 00000 0 00075 PAR NODEL .004 00067 0020 00 0 00034 TRA GONE .. 00070 -0500 00 0 00123 FSERR CAL ERCODE GET FSTATE ERROR CODE 00071 0402 00 0 00142 SUB =3 ANYTHING ELSE THAN 3 00072 0100 00 0 00034 TZE GONE IS A LINK ERROR 00073 LINKD COMENT LNKMSG,3,(FILE IS A LINK.),A 00073 0074 00 4 00131 TSX WRFLXA,4 .003 00074 3 00003 0 00134 PAR LNKMSG,,3 .005 DO NOT DELETE A LINK 00075 NODEL CALL WRFLXA((FNAM,,3)) 00075 0074 00 4 00131 TSX WRFLXA,4 .002 00076 3 00003 0 00107 PAR FNAM,,3 .004 00077 COMENT NOT,2,( NOT DELETED) 00077 0074 00 4 00130 TSX WRFLX,4 .003 00100 3 00002 0 00137 PAR NOT,,2 .005 00101 0522 00 0 00035 XEC XR4 RESTORE XRS 00102 0441 00 0 00125 LDI SVSI AND SI 00103 0020 60 4 00004 TRA* 4,4 ERROR RETURN 1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 3 00104 242543256325 DTOF BCI 3,DELETED THE OLDER 00107 000000000000 FNAM VFD 36/0,O36/576057575757,36/0 00112 606060606060 BCMODE BCI 6, MODE. DO YOU WANT TO DELETE I 00120 637360605757 VFD H6/T,O30/7360605757 00121 0 00000 0 00000 BUFF PZE 00122 0 00000 0 00000 MODE PZE 00123 0 00000 0 00000 ERCODE PZE 00124 0 00000 0 00000 PSW PZE 00125 0 00000 0 00000 SVSI PZE 00126 RMT * REMOTE SEQUENCES 00126 0101 00 0 00146 FSTATE TIA =HFSTATE .002 00127 0101 00 0 00145 DELFIL TIA =HDELFIL .002 00130 0101 00 0 00153 WRFLX TIA =HWRFLX .002 00131 0101 00 0 00152 WRFLXA TIA =HWRFLXA .002 00132 0101 00 0 00150 RDFLXA TIA =HRDFLXA .002 00133 0101 00 0 00144 CHFILE TIA =HCHFILE .002 00134 263143256031 LNKMSG BCI 3,FILE IS A LINK. .002 00137 604546636024 NOT BCI 2, NOT DELETED .002 END LITERALS 00141 000000000001 00142 000000000003 00143 000000702562 00144 233026314325 00145 242543263143 00146 266263216325 00147 400000000000 00150 512426436721 00151 605757000000 00152 665126436721 00153 665126436760 1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 154 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 40 ASK 24 25 DEL 137 NOT 100 124 PSW 11, 31 35 XR4 1, 101 121 BUFF 15, 47, 50 104 DTOF 33 107 FNAM 5, 7, 13, 14, 26, 27, 45, 55, 56, 64, 65, 76 34 GONE 67, 72 122 MODE 3, 20, 34, 41 125 SVSI 2, 36, 102 70 FSERR 16 73 LINKD 22 75 NODEL 30, 53, 62, 66 0 OCRBC 40 130 WRFLX 32, 77 112 BCMODE 43 133 CHFILE 54 1 DELETE 0 127 DELFIL 25, 63 123 ERCODE 17, 70 126 FSTATE 12 134 LNKMSG 74 132 RDFLXA 46 131 WRFLXA 44, 73, 75 0 NO ERROR IN ABOVE ASSEMBLY. UPDBSS BCD 09/18/68 2338.9 14901 00000 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 1 FILE NAME -- UPDBS FAP 9/25/65 - NOEL I. MORRIS UNLIST M CALL MACRO SUBR,LIST TRANSFER VECTOR 00000 434164626360 LJUST 00001 222646472545 BFOPEN 00002 246242255160 DSKER 00003 242543256325 DELETE 00004 512422626260 RDBSS 00005 626522626260 SVBSS 00006 516222626260 RSBSS 00007 665122626260 WRBSS 00010 516225632260 RSETB 00011 222623434662 BFCLOS 00010 NFILS EQU 8 000025 USELOC BOOL 25 INITIALIZE ARRAYS. 00012 START CALL SETBRK(BREAK) SET A BREAK LEVEL 00012 0074 00 4 00522 TSX SETBRK,4 .002 00013 3 00000 0 00437 PAR BREAK .004 00014 -0500 00 0 00455 CAL USETRA SET UP LOWER CORE FOR 'USE' COMMAND 00015 0602 00 0 00025 SLW USELOC .. 00016 CALL GETCLS((CARD,,0)) GET COMMAND BUFFER 00016 0074 00 4 00523 TSX GETCLS,4 .002 00017 3 00000 0 77426 PAR CARD,,0 .004 00020 -0774 00 1 00001 AXC 1,1 GETCOM INDEX 00021 -0500 00 1 77426 SQI CAL CARD,1 GET FIRST PARAMETER 00022 -0340 00 0 00023 LAS FENCE CHECK FOR NONE 00023 777777777777 FENCE VFD 36/-1 00024 0020 00 0 00441 TRA PERR NO PARAMETERS GIVEN 00025 0602 00 0 77425 SLW INFILE NAME OF INPUT FILE 00026 0322 00 0 00041 ERA (SQZ) IS IT SQZBSS 00027 -0100 00 0 00035 TNZ NO.SQI IF YES, 00030 -0625 00 0 77424 STL INFILE-1 SET SQZ INDIC. 00031 -0625 00 0 77422 STL OUTFIL-1 .. 00032 0560 00 0 00061 LDQ SQZ SECONDARY NAME 00033 -0620 00 0 00470 SLQ N2 IS SQZBSS 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 2 FILE NAME -- UPDBS FAP 00034 1 77777 1 00021 TXI SQI,1,-1 AND GO GET THE NEXT PARAMETER 00035 1 77777 1 00036 NO.SQI TXI *+1,1,-1 NEXT PARAMETER 00036 -0774 00 2 00000 AXC 0,2 OUTPUT FILE LIST INDEX 00037 -0500 00 1 77426 PARLP CAL CARD,1 GET PARAMETER 00040 -0340 00 0 00023 LAS FENCE CHECK FOR NONE 00041 607462507134 (SQZ) BCI 1, (SQZ) 00042 0020 00 0 00077 TRA SOUT FINISHED 00043 0602 00 0 00452 SLW TEM SAVE FOR RJUSTING 00044 0602 00 2 00472 SLW LIST+1,2 BOTH FILE NAME AND ENTRY NAME 00045 CALL $LJUST(TEM) ENTRIES ARE LEFT JUSTIFIED 00045 0074 00 4 00000 TSX $LJUST,4 .002 00046 3 00000 0 00452 PAR TEM .004 00047 0601 00 2 00473 STO LIST+2,2 .. 00050 -0500 00 0 00452 CAL TEM NOW CHECK FOR SQZBSS 00051 0322 00 0 00041 ERA (SQZ) .. 00052 -0100 00 0 00056 TNZ NO.SQO IF SO, 00053 0560 00 0 00061 LDQ SQZ SET SECONDARY NAME TO 00054 -0620 00 2 00474 SLQ LIST+3,2 SQZBSS 00055 1 77777 1 00037 TXI PARLP,1,-1 NEXT PARAMETER 00056 1 77777 1 00057 NO.SQO TXI *+1,1,-1 NEXT PARAMETER 00057 -0500 00 1 77426 CAL CARD,1 .. 00060 -0340 00 0 00023 LAS FENCE CHECK FOR NONE 00061 625071606060 SQZ BCI 1,SQZ 00062 1 77775 2 00077 TXI SOUT,2,-3 FINISHED 00063 0602 00 0 00452 SLW TEM SAVE ENTRY NAME 00064 0322 00 0 00610 ERA =H = IS IT EQUAL SIGN 00065 0100 00 0 00071 TZE NEX YES, ENTRY = SECONDARY NAME 00066 CALL $LJUST(TEM) .. 00066 0074 00 4 00000 TSX $LJUST,4 .002 00067 3 00000 0 00452 PAR TEM .004 00070 0601 00 2 00473 STO LIST+2,2 .. 00071 1 77777 1 00072 NEX TXI *+1,1,-1 NEXT PARAMETER 00072 1 77775 2 00073 TXI *+1,2,-3 AND NEXT OUTPUT FILE 00073 3 00030 2 00037 TXH PARLP,2,3*NFILS CHECK FOR FULL LIST 00074 COMENT TOO,5,(TOO MANY FILES REQUESTED.) 00074 0074 00 4 00524 TSX WRFLX,4 .003 00075 3 00005 0 00525 PAR TOO,,5 .005 00076 0021 00 0 00427 XIT CHN EXIT TO CHNCOM 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 3 FILE NAME -- UPDBS FAP 00077 -3 00000 2 00444 SOUT TXL NONE,2,0 CHECK FOR NO FILES 00100 0636 00 2 00471 SCA LIST,2 STORE FILE COUNT 00101 0634 00 2 00215 SXA SRCH,2 .. 00102 0634 00 2 00345 SXA NSRCH,2 .. 00103 -0500 00 0 00617 CAL =H(FILE) SET TEMPORARY FILE 00104 0602 00 0 77423 SLW OUTFIL TO (FILE) 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 4 OPEN AND RAD LIBRARY FILE. 00105 CALL GETMEM ASSIGN DISK BUFFERS 00105 0074 00 4 00532 TSX GETMEM,4 .002 00106 EXTEND (OPNR+4,OPNR+5,OPNW+4,OPNW+5,OPNW+6,UPOP+4,UPOP+5) 00106 0621 00 0 00131 STA OPNR+4 .003 00107 0361 00 0 00570 ACL =432 .002 00110 0621 00 0 00132 STA OPNR+5 .003 00111 0361 00 0 00570 ACL =432 .002 00112 0621 00 0 00146 STA OPNW+4 .003 00113 0361 00 0 00570 ACL =432 .002 00114 0621 00 0 00147 STA OPNW+5 .003 00115 0361 00 0 00570 ACL =432 .002 00116 0621 00 0 00150 STA OPNW+6 .003 00117 0361 00 0 00570 ACL =432 .002 00120 0621 00 0 00265 STA UPOP+4 .003 00121 0361 00 0 00570 ACL =432 .002 00122 0621 00 0 00266 STA UPOP+5 .003 00123 0361 00 0 00570 ACL =432 .002 00124 0074 00 4 00533 TSX SETMEM,4 .003 00125 OPNR CALL $BFOPEN(=HR,INFILE,N2,**,**,=-0,$DSKER) 00125 0074 00 4 00001 TSX $BFOPEN,4 .002 00126 3 00000 0 00606 PAR =HR .004 00127 3 00000 0 77425 PAR INFILE .004 00130 3 00000 0 00470 PAR N2 .004 00131 3 00000 0 00000 PAR ** .004 00132 3 00000 0 00000 PAR ** .004 00133 3 00000 0 00603 PAR =-0 .004 00134 3 00000 0 00002 PAR $DSKER .004 OPEN LIBRARY FILE FOR READING 00135 CALL $DELETE(OUTFIL,N2,=0,*+1) DELETE ANY OLD TEMPORARY 00135 0074 00 4 00003 TSX $DELETE,4 .002 00136 3 00000 0 77423 PAR OUTFIL .004 00137 3 00000 0 00470 PAR N2 .004 00140 3 00000 0 00567 PAR =0 .004 00141 3 00000 0 00142 PAR *+1 .004 00142 OPNW CALL $BFOPEN(=HW,OUTFIL,N2,**,**,**,$DSKER) 00142 0074 00 4 00001 TSX $BFOPEN,4 .002 00143 3 00000 0 00616 PAR =HW .004 00144 3 00000 0 77423 PAR OUTFIL .004 00145 3 00000 0 00470 PAR N2 .004 00146 3 00000 0 00000 PAR ** .004 00147 3 00000 0 00000 PAR ** .004 00150 3 00000 0 00000 PAR ** .004 00151 3 00000 0 00002 PAR $DSKER .004 OPEN TEMPORARY FOR WRITING 00152 NEXCD CALL $RDBSS(EOF) READ A CARD 00152 0074 00 4 00004 TSX $RDBSS,4 .002 00153 3 00000 0 00345 PAR EOF .004 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 5 OPEN AND RAD LIBRARY FILE. 00154 -0054 00 400000 LFT 400000 IS IT A PROGRAM CARD 00155 0020 00 0 00170 TRA P.C. YES, GO PROCESS 00156 0520 00 0 00450 ZET FOUND INSTRUCTION CARD, WAS ENTRY FOUND 00157 0020 00 0 00164 TRA ISKP YES 00160 0520 00 0 00447 ZET ICSW NOT FOUND, IS THIS FIRST I.C. 00161 0020 00 0 00166 TRA WRI NO 00162 CALL $SVBSS YES, SAVE IT AND THEN 00162 0074 00 4 00005 TSX $SVBSS,4 .002 00163 CALL $RSBSS WRITE OUT ALL SAVED BSS CARDS 00163 0074 00 4 00006 TSX $RSBSS,4 .002 00164 -0625 00 0 00447 ISKP STL ICSW SET INSTRUCTION CARD SWITCH 00165 0020 00 0 00152 TRA NEXCD AND GO ON 00166 WRI CALL $WRBSS WRITE THIS CARD OUT 00166 0074 00 4 00007 TSX $WRBSS,4 .002 00167 0020 00 0 00152 TRA NEXCD AND GO GET NEXT 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 6 PROCESS PROGRAM CARDS. 00170 -0520 00 0 00447 P.C. NZT ICSW IF NOT FIRST CARD 00171 -0520 00 0 00450 NZT FOUND AND ENTRY WAS FOUND 00172 0020 00 0 00174 TRA NOTF .. 00173 0020 00 0 00152 TRA NEXCD THEN GO ON TO NEXT 00174 0600 00 0 00450 NOTF STZ FOUND RESET FOUND INDIC. 00175 -0520 00 0 00447 NZT ICSW CHECK FOR FIRST P.C. 00176 0020 00 0 00205 TRA SPC NOT FIRST 00177 0534 00 4 00471 LXA LIST,4 IS LIST OF ENTRIES EXHAUSTED 00200 -3 00000 4 00343 TXL SLOP,4,0 YES, JUST SLOP STUFF INTO TEMORARY 00201 CALL $RSETB FLUSH THE CARD SAVE BUFFERS 00201 0074 00 4 00010 TSX $RSETB,4 .002 00202 -0774 00 4 00002 AXC 2,4 CARD WORD INDEX, 2 GREATER ON FIRST 00203 0600 00 0 00447 STZ ICSW RESET INSTRUCTION CARD SWITCH 00204 0020 00 0 00206 TRA GCNT .. 00205 -0774 00 4 00000 SPC AXC 0,4 CARD WORD INDEX 00206 -0046 00 0 00000 GCNT PIA FIRST WORD IN AC 00207 -0320 00 0 00572 ANA =O37077777 MASK OFF THE WRDCNT 00210 -0734 00 1 00000 PDX ,1 AND PLACE IN XR1 00211 -0636 00 1 00224 SCD ECHK,1 SAVE FOR ENTRY PICKUP CHECK 00212 -0500 00 4 77430 ELP CAL CARD+2,4 GET AN ENTRY FROM P.C. 00213 -0100 00 0 00215 TNZ *+2 IF ZERO, 00214 -0500 00 0 00620 CAL =H(MAIN) IT IS A MAIN PROGRAM 00215 0774 00 1 00000 SRCH AXT **,1 CHECK LIST FOR ENTRY 00216 -0340 00 1 00470 LAS LIST-1,1 .. 00217 0020 00 0 00221 TRA *+2 .. 00220 0020 00 0 00227 TRA GOT.IT FOUND 00221 1 00003 1 00222 TXI *+1,1,3 NEXT ENTRY IN LIST 00222 3 00000 1 00216 TXH SRCH+1,1,0 .. 00223 1 77776 4 00224 TXI *+1,4,-2 GO TO NEXT ENTRY ON P.C. 00224 3 00000 4 00212 ECHK TXH ELP,4,** CHECK FOR CARD FINISHED 00225 CALL $SVBSS SAVE THIS CARD IN CASE WE NEED IT 00225 0074 00 4 00005 TSX $SVBSS,4 .002 00226 0020 00 0 00152 TRA NEXCD AND GO ON TO THE NEXT 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 7 PROCESS PROGRAM CARDS. 00227 -0500 00 1 00471 GOT.IT CAL LIST,1 GET SECONDARY NAME 00230 0602 00 0 00465 SLW FILNAM+2 .. 00231 -0500 00 1 00467 CAL LIST-2,1 AND PRIMARY NAME 00232 0602 00 0 00463 SLW FILNAM .. 00233 -0500 00 0 00023 CAL FENCE NULLIFY THE ENTRY NAME 00234 0602 00 1 00470 SLW LIST-1,1 .. 00235 0534 00 4 00471 LXA LIST,4 DECREASE THE LIST COUNT 00236 1 77775 4 00237 TXI *+1,4,-3 .. 00237 0634 00 4 00471 SXA LIST,4 .. 00240 -0625 00 0 00450 STL FOUND SET FOUND INDIC. 00241 CALL UPDATE GO DO THE UPDATE 00241 0074 00 4 00246 TSX UPDATE,4 .002 00242 0020 00 0 00244 TRA NOPE RETURN HERE FOR NO UPDATE 00243 0020 00 0 00152 TRA NEXCD AND ON TO THE NEXT CARD 00244 0600 00 0 00450 NOPE STZ FOUND GUESS HE DIDN'T WANT 00245 0020 00 0 00225 TRA ECHK+1 THE UPDATE ANYWAY 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 8 UPDATE - INSERT THE NEW FILE. 00246 0634 00 4 00306 UPDATE SXA UPDX4,4 SAVE XR4 00247 0443 00 0 77424 DLD INFILE-1 GET THE LIBRARY FILE 00250 -0603 00 0 00453 DST SAVFIL AND SAVE IT 00251 -0500 00 0 00463 UPFND CAL FILNAM GET FILE NAME 00252 0322 00 0 00322 ERA STAR CHECK FOR ASTERISK FOR DELETE 00253 0100 00 0 00306 TZE UPDX4 UPDATE DELETE 00254 CALL FSTATE(FILNAM,FILNAM+2(*,,0)NOTFND) 00254 0074 00 4 00534 TSX FSTATE,4 .002 00255 3 00000 0 00463 PAR FILNAM .004 00256 3 00000 0 00465 PAR FILNAM+2 .004 00257 3 00000 0 00257 PAR *,,0 .004 00260 3 00000 0 00313 PAR NOTFND .004 CHECK FOR FILE 00261 UPOP CALL $BFOPEN(=HR,FILNAM,FILNAM+2,**,**,=-0,$DSKER) 00261 0074 00 4 00001 TSX $BFOPEN,4 .002 00262 3 00000 0 00606 PAR =HR .004 00263 3 00000 0 00463 PAR FILNAM .004 00264 3 00000 0 00465 PAR FILNAM+2 .004 00265 3 00000 0 00000 PAR ** .004 00266 3 00000 0 00000 PAR ** .004 00267 3 00000 0 00603 PAR =-0 .004 00270 3 00000 0 00002 PAR $DSKER .004 OPEN FILE FOR READING 00271 -0500 00 0 00463 CAL FILNAM SET UP RDBSS FOR 00272 0602 00 0 77425 SLW INFILE INSERTING FILE 00273 -0500 00 0 00465 CAL FILNAM+2 .. 00274 0322 00 0 00607 ERA =H BSS .. 00275 0602 00 0 77424 SLW INFILE-1 .. 00276 UPLOOP CALL $RDBSS(ENDUP) NOW, READ AND 00276 0074 00 4 00004 TSX $RDBSS,4 .002 00277 3 00000 0 00302 PAR ENDUP .004 00300 CALL $WRBSS WRITE 00300 0074 00 4 00007 TSX $WRBSS,4 .002 00301 0020 00 0 00276 TRA UPLOOP UNTIL EOF ENCOUNTERED 00302 ENDUP CALL $BFCLOS(FILNAM,FILNAM+2,$DSKER) CLOSE THE FILE 00302 0074 00 4 00011 TSX $BFCLOS,4 .002 00303 3 00000 0 00463 PAR FILNAM .004 00304 3 00000 0 00465 PAR FILNAM+2 .004 00305 3 00000 0 00002 PAR $DSKER .004 00306 0774 00 4 00000 UPDX4 AXT **,4 RESTORE XR4 00307 0500 00 0 00453 UPXIT CLA SAVFIL RESTORE LIBRARY FILE 00310 0560 00 0 00454 LDQ SAVFIL+1 FOR RDBSS 00311 -0603 00 0 77424 DST INFILE-1 .. 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 9 UPDATE - INSERT THE NEW FILE. 00312 0020 00 4 00002 TRA 2,4 RETURN 00313 NOTFND CALL WRFLX((FILNAM,,5)) PRINT NOT FOUND COMMENT 00313 0074 00 4 00524 TSX WRFLX,4 .002 00314 3 00005 0 00463 PAR FILNAM,,5 .004 00315 CALL DORMNT AND GO TO DORMNT 00315 0074 00 4 00535 TSX DORMNT,4 .002 00316 RSTART CALL GETCOM(1) WAKE UP AND GET PARAMETERS 00316 0074 00 4 00536 TSX GETCOM,4 .002 00317 3 00000 0 00001 PAR 1 .004 00320 0602 00 0 00463 SLW FILNAM CHECK FOR NONE GIVEN 00321 -0340 00 0 00023 LAS FENCE .. 00322 606060606054 STAR BCI 1, * 00323 0020 00 0 00337 TRA NOUP NO UPDATE TO BE DONE AFTER ALL 00324 0322 00 0 00041 ERA (SQZ) CHECK FOR SQZBSS FILE 00325 -0100 00 0 00334 TNZ UPBS NO, REGULAR BSS 00326 0560 00 0 00061 LDQ SQZ YES, SET SECONDARY NAME 00327 -0620 00 0 00465 SLQ FILNAM+2 TO SQZBSS 00330 CALL GETCOM(2) AND GET NEXT PARAMETER 00330 0074 00 4 00536 TSX GETCOM,4 .002 00331 3 00000 0 00002 PAR 2 .004 00332 0602 00 0 00463 SLW FILNAM .. 00333 0020 00 0 00251 TRA UPFND NOW, GO TRY TO INSERT IT 00334 0560 00 0 00611 UPBS LDQ =H SET SECONDARY NAME 00335 -0620 00 0 00465 SLQ FILNAM+2 TO BSS 00336 0020 00 0 00251 TRA UPFND .. 00337 0522 00 0 00306 NOUP XEC UPDX4 RESTORE XR4 00340 1 00001 4 00307 TXI UPXIT,4,1 MAKE IT RETURN 1,4 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 10 END OF FILE - CLEAN UP AND EXIT. 00341 SLOPLP CALL $RDBSS(EOF) SLOP THROUGH THE REST OF FILE 00341 0074 00 4 00004 TSX $RDBSS,4 .002 00342 3 00000 0 00345 PAR EOF .004 00343 SLOP CALL $WRBSS .. 00343 0074 00 4 00007 TSX $WRBSS,4 .002 00344 0020 00 0 00341 TRA SLOPLP .. 00345 EOF SYN * 00345 0774 00 1 00000 NSRCH AXT **,1 NOW, LOOK THROUGH LIST FOR 00346 -0500 00 1 00470 CAL LIST-1,1 ANY UNUSED ENTRIES 00347 0602 00 0 00540 SLW ENTRY+1 .. 00350 0322 00 0 00023 ERA FENCE .. 00351 0100 00 0 00377 TZE FOK .. 00352 COMENT ENTRY,4,(ENTRY NOT FOUND.) 00352 0074 00 4 00524 TSX WRFLX,4 .003 00353 3 00004 0 00537 PAR ENTRY,,4 .005 COMMENT ON ENTRY NOT FOUND 00354 0602 00 0 00465 SLW FILNAM+2 .. 00355 -0500 00 1 00467 CAL LIST-2,1 AND PRIMARY NAME 00356 0602 00 0 00463 SLW FILNAM .. 00357 0322 00 0 00322 ERA STAR CHECK FOR ASTERISK 00360 0100 00 0 00377 TZE FOK IGNORE UPDATE IF A STAR 00361 CALL WRFLXA((ASK,,5)) ASK FOR APPENDING FILE 00361 0074 00 4 00543 TSX WRFLXA,4 .002 00362 3 00005 0 00456 PAR ASK,,5 .004 00363 CALL RDFLXA((TEM,,1)) READ ANSWER 00363 0074 00 4 00544 TSX RDFLXA,4 .002 00364 3 00001 0 00452 PAR TEM,,1 .004 00365 -0500 00 0 00452 CAL TEM GET ANSWER 00366 0771 00 0 00022 ARS 18 .. 00367 0322 00 0 00571 ERA =H000YES WAS IT YES 00370 -0100 00 0 00377 TNZ FOK IGNORE UPDATE IF NOT 00371 -0500 00 1 00471 CAL LIST,1 SET UP FILE NAME 00372 0602 00 0 00465 SLW FILNAM+2 FOR UPDATING 00373 -0500 00 1 00467 CAL LIST-2,1 .. 00374 0602 00 0 00463 SLW FILNAM .. 00375 CALL UPDATE GO APPEND THIS FILE 00375 0074 00 4 00246 TSX UPDATE,4 .002 00376 0020 00 0 00377 TRA *+1 .. 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 11 END OF FILE - CLEAN UP AND EXIT. 00377 1 00003 1 00400 FOK TXI *+1,1,3 SEARCH THE ENTIRE ENTRY TABLE 00400 3 00000 1 00346 TXH NSRCH+1,1,0 .. 00401 CALL $BFCLOS(OUTFIL,N2,$DSKER) CLOSE THE TEMPORARY 00401 0074 00 4 00011 TSX $BFCLOS,4 .002 00402 3 00000 0 77423 PAR OUTFIL .004 00403 3 00000 0 00470 PAR N2 .004 00404 3 00000 0 00002 PAR $DSKER .004 00405 CALL $BFCLOS(INFILE,N2,$DSKER) CLOSE LIBRARY FILE 00405 0074 00 4 00011 TSX $BFCLOS,4 .002 00406 3 00000 0 77425 PAR INFILE .004 00407 3 00000 0 00470 PAR N2 .004 00410 3 00000 0 00002 PAR $DSKER .004 00411 CALL $DELETE(INFILE,N2,=0,NODEL) DELETE THE OLD LIBRARY 00411 0074 00 4 00003 TSX $DELETE,4 .002 00412 3 00000 0 77425 PAR INFILE .004 00413 3 00000 0 00470 PAR N2 .004 00414 3 00000 0 00567 PAR =0 .004 00415 3 00000 0 00431 PAR NODEL .004 00416 0602 00 0 00451 SLW MODE SAVE MODE FOR NEW LIBRARY 00417 CALL CHFILE(OUTFIL,N2,MODE,INFILE,N2) RENAME THE TEMPORARY 00417 0074 00 4 00545 TSX CHFILE,4 .002 00420 3 00000 0 77423 PAR OUTFIL .004 00421 3 00000 0 00470 PAR N2 .004 00422 3 00000 0 00451 PAR MODE .004 00423 3 00000 0 77425 PAR INFILE .004 00424 3 00000 0 00470 PAR N2 .004 00425 COMENT DONE,3,(UPDATING OVER.) WHEEEE 00425 0074 00 4 00524 TSX WRFLX,4 .003 00426 3 00003 0 00546 PAR DONE,,3 .005 00427 CHN CALL CHNCOM(0) EXIT TO CHNCOM 00427 0074 00 4 00551 TSX CHNCOM,4 .002 00430 3 00000 0 00000 PAR 0 .004 00431 NODEL CALL DELFIL(OUTFIL,N2,=0,*+1) DELETE THE TEMPORARY 00431 0074 00 4 00552 TSX DELFIL,4 .002 00432 3 00000 0 77423 PAR OUTFIL .004 00433 3 00000 0 00470 PAR N2 .004 00434 3 00000 0 00567 PAR =0 .004 00435 3 00000 0 00436 PAR *+1 .004 00436 0021 00 0 00427 XIT CHN AND EXIT TO CHNCOM 00437 BREAK CALL RESETF RESET ALL ACTIVE FILES 00437 0074 00 4 00553 TSX RESETF,4 .002 00440 0021 00 0 00427 XIT CHN AND EXIT TO CHNCOM 00441 PERR COMENT BADPAR,5,(ILLEGAL PARAMETER SEQUENCE.) 00441 0074 00 4 00524 TSX WRFLX,4 .003 00442 3 00005 0 00554 PAR BADPAR,,5 .005 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 12 END OF FILE - CLEAN UP AND EXIT. 00443 0021 00 0 00427 XIT CHN .. 00444 NONE COMENT NOFILS,6,(NO FILES SPECIFIED FOR UPDATING.) 00444 0074 00 4 00524 TSX WRFLX,4 .003 00445 3 00006 0 00561 PAR NOFILS,,6 .005 00446 0021 00 0 00427 XIT CHN .. 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 13 STORAGE AND CONSTANTS. 00447 0 00000 0 00447 ICSW PZE * 00450 0 00000 0 00000 FOUND PZE 00451 0 00000 0 00000 MODE PZE 00452 0 00000 0 00000 TEM PZE 00453 SAVFIL BSS 2 00455 0020 00 0 00316 USETRA TRA RSTART 00456 244660704664 ASK BCI 4,DO YOU WISH TO APPEND IT 00457 606631623060 00460 634660214747 00461 254524603163 00462 736060575757 VFD O36/736060575757 00463 000000000000 FILNAM VFD 36/0,O36/605757575757,36/0 00464 605757575757 00465 000000000000 00466 604546636026 BCI 2, NOT FOUND. 00467 466445243360 00470 606060226262 N2 BCI 1, BSS 00471 0 00000 0 00000 LIST PZE 00472 DUP 1,NFILS 00472 777777777777 VFD 36/-1,36/-1,O18/606060,H18/BSS 00473 777777777777 00474 606060226262 00475 777777777777 00476 777777777777 00477 606060226262 00500 777777777777 00501 777777777777 00502 606060226262 00503 777777777777 00504 777777777777 00505 606060226262 00506 777777777777 00507 777777777777 00510 606060226262 00511 777777777777 00512 777777777777 00513 606060226262 00514 777777777777 00515 777777777777 00516 606060226262 00517 777777777777 00520 777777777777 00521 606060226262 77426 COMMON 27 77426 CARD COMMON 1 77425 INFILE COMMON 2 77423 OUTFIL COMMON 2 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 14 STORAGE AND CONSTANTS. 00522 RMT * REMOTE SEQUENCES 00522 0101 00 0 00612 SETBRK TIA =HSETBRK .002 00523 0101 00 0 00600 GETCLS TIA =HGETCLS .002 00524 0101 00 0 00615 WRFLX TIA =HWRFLX .002 00525 634646604421 TOO BCI 5,TOO MANY FILES REQUESTED. .002 00526 457060263143 00527 256260512550 00530 642562632524 00531 336060606060 00532 0101 00 0 00602 GETMEM TIA =HGETMEM .002 00533 0101 00 0 00613 SETMEM TIA =HSETMEM .002 00534 0101 00 0 00577 FSTATE TIA =HFSTATE .002 00535 0101 00 0 00576 DORMNT TIA =HDORMNT .002 00536 0101 00 0 00601 GETCOM TIA =HGETCOM .002 00537 254563517060 ENTRY BCI 4,ENTRY NOT FOUND. .002 00540 606060606060 00541 604546636026 00542 466445243360 00543 0101 00 0 00614 WRFLXA TIA =HWRFLXA .002 00544 0101 00 0 00604 RDFLXA TIA =HRDFLXA .002 00545 0101 00 0 00573 CHFILE TIA =HCHFILE .002 00546 644724216331 DONE BCI 3,UPDATING OVER. .002 00547 452760466525 00550 513360606060 00551 0101 00 0 00574 CHNCOM TIA =HCHNCOM .002 00552 0101 00 0 00575 DELFIL TIA =HDELFIL .002 00553 0101 00 0 00605 RESETF TIA =HRESETF .002 00554 314343252721 BADPAR BCI 5,ILLEGAL PARAMETER SEQUENCE. .002 00555 436047215121 00556 442563255160 00557 622550642545 00560 232533606060 00561 454660263143 NOFILS BCI 6,NO FILES SPECIFIED FOR UPDATING. .002 00562 256260624725 00563 233126312524 00564 602646516064 00565 472421633145 00566 273360606060 END LITERALS 00567 000000000000 00570 000000000660 00571 000000702562 00572 000037077777 00573 233026314325 00574 233045234644 00575 242543263143 00576 244651444563 00577 266263216325 00600 272563234362 00601 272563234644 00602 272563442544 00603 400000000000 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 15 STORAGE AND CONSTANTS. 00604 512426436721 00605 512562256326 00606 516060606060 00607 606060226262 00610 606060606013 00611 606060606060 00612 622563225142 00613 622563442544 00614 665126436721 00615 665126436760 00616 666060606060 00617 742631432534 00620 744421314534 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 1 POST PROCESSOR ASSEMBLY DATA 77421 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 621 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 470 N2 33, 130, 137, 145, 403, 407, 413, 421, 424, 433 456 ASK 362 427 CHN 76, 436, 440, 443, 446 212 ELP 224 345 EOF 153, 342, 345 377 FOK 351, 360, 370 71 NEX 65 205 SPC 176 21 SQI 34 61 SQZ 32, 53, 326 452 TEM 43, 46, 50, 63, 67, 364, 365 525 TOO 75 166 WRI 161 77426 CARD 17, 21, 37, 57, 212, 522 546 DONE 426 224 ECHK 211, 245 206 GCNT 204 447 ICSW 160, 164, 170, 175, 203 164 ISKP 157 471 LIST 44, 47, 54, 70, 100, 177, 216, 227, 231, 234, 235, 237, 346, 355, 371, 373 451 MODE 416, 422 444 NONE 77 244 NOPE 242 174 NOTF 172 337 NOUP 323 125 OPNR 106, 110 142 OPNW 112, 114, 116 441 PERR 24 170 P.C. 155 343 SLOP 200 77 SOUT 42, 62 215 SRCH 101, 222 322 STAR 252, 357 334 UPBS 325 261 UPOP 120, 122 437 BREAK 13 2 DSKER 134, 151, 270, 305, 404, 410 302 ENDUP 277 537 ENTRY 347, 353 23 FENCE 22, 40, 60, 233, 321, 350 450 FOUND 156, 171, 174, 240, 244 0 LJUST 45, 66 152 NEXCD 165, 167, 173, 226, 243 10 NFILS 12, 73, 472 431 NODEL 415 345 NSRCH 102, 400 37 PARLP 55, 73 4 RDBSS 152, 276, 341 6 RSBSS 163 10 RSETB 201 1 UPDBSS COMMAND FOR FOREGROUND. PAGE 2 POST PROCESSOR ASSEMBLY DATA 12 START 5 SVBSS 162, 225 306 UPDX4 246, 253, 337 251 UPFND 333, 336 307 UPXIT 340 7 WRBSS 166, 300, 343 524 WRFLX 74, 313, 352, 425, 441, 444 41 (SQZ) 26, 51, 324 554 BADPAR 442 11 BFCLOS 302, 401, 405 1 BFOPEN 125, 142, 261 545 CHFILE 417 551 CHNCOM 427 3 DELETE 135, 411 552 DELFIL 431 535 DORMNT 315 463 FILNAM 230, 232, 251, 255, 256, 263, 264, 271, 273, 303, 304, 314, 320, 327, 332, 335, 354 356, 372, 374 534 FSTATE 254 523 GETCLS 16 536 GETCOM 316, 330 532 GETMEM 105 227 GOT.IT 220 77425 INFILE 25, 30, 127, 247, 272, 275, 311, 406, 412, 423, 522 561 NOFILS 445 35 NO.SQI 27 56 NO.SQO 52 313 NOTFND 260 77423 OUTFIL 31, 104, 136, 144, 402, 420, 432, 522 544 RDFLXA 363 553 RESETF 437 316 RSTART 455 453 SAVFIL 250, 307, 310 522 SETBRK 12 533 SETMEM 124 341 SLOPLP 344 246 UPDATE 241, 375 276 UPLOOP 301 25 USELOC 12, 15 455 USETRA 14 543 WRFLXA 361 0 NO ERROR IN ABOVE ASSEMBLY. 1 RDBSS - BSS FILE READING ROUTINE. PAGE 1 NOEL I. MORRIS - 6/21/65 UNLIST M CALL MACRO SUBR,LIST 00003 ENTRY RDBSS TRANSFER VECTOR 00000 222651252124 BFREAD 00001 246242255160 DSKER 00002 462321222360 OCABC 00003 0634 00 4 00073 RDBSS SXA XR4,4 SAVE XRS 00004 0520 00 0 77424 WZERO ZET FILN-1 CHECK FOR SQZBSS FILE 00005 0020 00 0 00017 TRA SQZ .. 00006 CALL $BFREAD(FILN,BSS(BUFF,,28)EOF,EOFCT,$DSKER) 00006 0074 00 4 00000 TSX $BFREAD,4 .002 00007 3 00000 0 77425 PAR FILN .004 00010 3 00000 0 00114 PAR BSS .004 00011 3 00034 0 77426 PAR BUFF,,28 .004 00012 3 00000 0 00111 PAR EOF .004 00013 3 00000 0 00113 PAR EOFCT .004 00014 3 00000 0 00001 PAR $DSKER .004 00015 0441 00 0 77426 LDI BUFF GET FIRST WORD IN SI 00016 0020 00 0 00050 TRA CHECK GO CHECK CHECKSUM 00017 0774 00 4 00034 SQZ AXT 28,4 ZERO OUT THE READ BUFFER 00020 0600 00 4 77462 STZ BUFF+28,4 .. 00021 2 00001 4 00020 TIX *-1,4,1 .. 00022 CALL $BFREAD(FILN,=HSQZBSS(BUFF,,1)EOF,EOFCT,$DSKER) 00022 0074 00 4 00000 TSX $BFREAD,4 .002 00023 3 00000 0 77425 PAR FILN .004 00024 3 00000 0 00134 PAR =HSQZBSS .004 00025 3 00001 0 77426 PAR BUFF,,1 .004 00026 3 00000 0 00111 PAR EOF .004 00027 3 00000 0 00113 PAR EOFCT .004 00030 3 00000 0 00001 PAR $DSKER .004 00031 0441 00 0 77426 LDI BUFF GET FIRST WORD IN SI 00032 -0046 00 0 00000 PIA IN AC 00033 -0320 00 0 00130 ANA =O77000000 MASK WORDCOUNT 00034 -0734 00 4 00000 PDX ,4 WORDCOUNT IN XR4 00035 -0056 00 200000 LNT 200000 CHECK FOR REL. BIN CARD 00036 1 00001 4 00040 TXI *+2,4,1 MUST BE A PROGRAM CARD 00037 1 00003 4 00040 TXI *+1,4,3 RELOCATABLE INSTRUCTION CARD 00040 -0634 00 4 00044 SXD VRR+3,4 STORE FOR READING REST OF CARD 00041 VRR CALL $BFREAD(FILN,=HSQZBSS(BUFF+1,,**)EOF,EOFCT,$DSKER) 00041 0074 00 4 00000 TSX $BFREAD,4 .002 00042 3 00000 0 77425 PAR FILN .004 00043 3 00000 0 00134 PAR =HSQZBSS .004 1 RDBSS - BSS FILE READING ROUTINE. PAGE 2 00044 3 00000 0 77427 PAR BUFF+1,,** .004 00045 3 00000 0 00111 PAR EOF .004 00046 3 00000 0 00113 PAR EOFCT .004 00047 3 00000 0 00001 PAR $DSKER .004 00050 -0046 00 0 00000 CHECK PIA FIRST WORD IN AC 00051 -0320 00 0 00130 ANA =O77000000 MASK THE WORD COUNT 00052 -0734 00 4 00000 PDX ,4 WORD COUNT IN XR4 00053 -3 00000 4 00004 TXL WZERO,4,0 TRY AGAIN IF WORD COUNT ZERO 00054 -0056 00 400000 LNT 400000 CHECK FOR PROGRAM CARD 00055 0020 00 0 00062 TRA *+5 .. 00056 -0500 00 0 77432 CAL BUFF+4 GET ENTRY NAME 00057 -0100 00 0 00061 TNZ *+2 CHECK FOR MAIN PROGRAM 00060 -0500 00 0 00136 CAL =H(MAIN) SET ENTRY TO '(MAIN)' 00061 0602 00 0 00121 SLW PGN .. 00062 -0056 00 100000 LNT 100000 CHECK FOR IGNORE CHECKSUM PUNCH 00063 -0520 00 0 77427 NZT BUFF+1 ALSO BLANK CHECKSUM 00064 0020 00 0 00073 TRA IGCHK 00065 0774 00 4 00026 AXT 22,4 ADD UP CHECKSUM 00066 -0500 00 0 77426 CAL BUFF .. 00067 0361 00 4 77456 ACL BUFF+24,4 .. 00070 2 00001 4 00067 TIX *-1,4,1 .. 00071 0322 00 0 77427 ERA BUFF+1 XOR IN THE CHECKSUM TO COMPARE 00072 -0100 00 0 00075 TNZ CHKERR NON-ZERO ON ERROR 00073 IGCHK SYN * 00073 0774 00 4 00000 XR4 AXT **,4 RESTORE XRS 00074 0020 00 4 00002 TRA 2,4 RETURN 00075 -0054 00 400000 CHKERR LFT 400000 CHECK FOR PROG. CARD 00076 0020 00 0 00106 TRA P.C. .. 00077 CALL $OCABC(BUFF) CONVERT LOAD ADDRESS TO OCTAL BCD 00077 0074 00 4 00002 TSX $OCABC,4 .002 00100 3 00000 0 77426 PAR BUFF .004 00101 0560 00 0 00133 LDQ =H BLANK OUT SECOND WORD 00102 -0603 00 0 00125 DST DST MSG+8 STORE INTO MESSAGE 00103 CALL WRFLX((MSG,,10)) PRINT ERROR MESSAGE 00103 0074 00 4 00127 TSX WRFLX,4 .002 00104 3 00012 0 00115 PAR MSG,,10 .004 00105 0020 00 0 00073 TRA IGCHK KEEP GOING 00106 0500 00 0 00132 P.C. CLA =HPROGRA SET LOAD ADDRESS TO 00107 0560 00 0 00131 LDQ =HM CARD 'PROGRAM CARD' 00110 0020 00 0 00102 TRA DST .. 00111 EOF SYN * 00111 0522 00 0 00073 XEC XR4 AND XRS 00112 0020 60 4 00001 TRA* 1,4 EOF RETURN 1 RDBSS - BSS FILE READING ROUTINE. PAGE 3 00113 0 00000 0 00000 EOFCT PZE 00114 606060226262 BSS BCI 1, BSS 00115 233025234262 MSG BCI 4,CHECKSUM ERROR IN PROG. 00116 644460255151 00117 465160314560 00120 475146273360 00121 0 00000 0 00000 PGN PZE 00122 736043462124 BCI 2,, LOAD ADDRE 00123 602124245125 00124 626260135757 VFD H12/SS,O6/60,H6/=,O12/5757 00125 BSS 2 77426 COMMON 27 77426 BUFF COMMON 1 77425 FILN COMMON 2 00127 RMT * REMOTE SEQUENCES 00127 0101 00 0 00135 WRFLX TIA =HWRFLX .002 END LITERALS 00130 000077000000 00131 446023215124 00132 475146275121 00133 606060606060 00134 625071226262 00135 665126436760 00136 744421314534 1 RDBSS - BSS FILE READING ROUTINE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 77423 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 137 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 114 BSS 10 102 DST 110 111 EOF 12, 26, 45, 111 115 MSG 102, 104 121 PGN 61 17 SQZ 5 41 VRR 40 73 XR4 3, 111 77426 BUFF 11, 15, 20, 25, 31, 44, 56, 63, 66, 67, 71, 100, 127 77425 FILN 4, 7, 23, 42, 127 106 P.C. 76 50 CHECK 16 1 DSKER 14, 30, 47 113 EOFCT 13, 27, 46 73 IGCHK 64, 73, 105 2 OCABC 77 3 RDBSS 0 127 WRFLX 103 4 WZERO 53 0 BFREAD 6, 22, 41 75 CHKERR 72 0 NO ERROR IN ABOVE ASSEMBLY. 1 WRBSS - WRITE A BSS FILE. PAGE 1 NOEL I. MORRIS - 6/22/65 UNLIST M CALL MACRO SUBR,LIST 00002 ENTRY WRBSS TRANSFER VECTOR 00000 222666513163 BFWRIT 00001 246242255160 DSKER 00002 0634 00 4 00030 WRBSS SXA XR4,4 SAVE XRS 00003 0604 00 0 00033 STI SVSI AND SI 00004 0441 00 0 77426 LDI BUFF FIRST WORD IN SI 00005 -0046 00 0 00000 PIA LOOK AT FIRST WORD 00006 -0320 00 0 00035 ANA =O77000000 MASK OFF WORD COUNT 00007 -0734 00 4 00000 PDX ,4 WORD COUNT IN XR4 00010 -3 00000 4 00030 TXL XR4,4,0 DON'T WRITE ANYTHING IF WORD COUNT ZERO 00011 -0520 00 0 77422 NZT FNAM-1 CHECK FOR SQZBSS FILE 00012 0020 00 0 00017 TRA FIX .. 00013 -0500 00 0 00037 CAL =HSQZBSS SECONDARY NAME IS 'SQZBSS' 00014 -0056 00 200000 LNT 200000 CHECK FOR INSTRUCTION CARD 00015 1 00002 4 00021 TXI SLW,4,2 MUST BE PROGRAM CARD 00016 1 00004 4 00021 TXI SLW,4,4 INSTRUCTION CARD 00017 -0500 00 0 00036 FIX CAL =H BSS SECONDARY NAME IS 'BSS' 00020 0774 00 4 00034 AXT 28,4 RECORD LENGTH IS 28 00021 0602 00 0 00034 SLW SLW SNAM STORE SECONDARY NAME 00022 -0634 00 4 00026 SXD WRITE+3,4 STORE WORD COUNT 00023 WRITE CALL $BFWRIT(FNAM,SNAM,(BUFF,,**),$DSKER) 00023 0074 00 4 00000 TSX $BFWRIT,4 .002 00024 3 00000 0 77423 PAR FNAM .004 00025 3 00000 0 00034 PAR SNAM .004 00026 3 00000 0 77426 PAR BUFF,,** .004 00027 3 00000 0 00001 PAR $DSKER .004 00030 0774 00 4 00000 XR4 AXT **,4 RESTORE XRS 00031 0441 00 0 00033 LDI SVSI AND SI 00032 0020 00 4 00001 TRA 1,4 RETURN 00033 0 00000 0 00000 SVSI PZE 00034 0 00000 0 00000 SNAM PZE 77426 COMMON 27 77426 BUFF COMMON 3 77423 FNAM COMMON 2 1 WRBSS - WRITE A BSS FILE. PAGE 2 00035 RMT * REMOTE SEQUENCES END LITERALS 00035 000077000000 00036 606060226262 00037 625071226262 1 WRBSS - WRITE A BSS FILE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 77421 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 40 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 17 FIX 12 21 SLW 15, 16 30 XR4 2, 10 77426 BUFF 4, 26, 35 77423 FNAM 11, 24, 35 34 SNAM 21, 25 33 SVSI 3, 31 1 DSKER 27 2 WRBSS 0 23 WRITE 22 0 BFWRIT 23 0 NO ERROR IN ABOVE ASSEMBLY. 1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 1 9/12/65 - NOEL I. MORRIS UNLIST M CALL MACRO SUBR,LIST 00001 ENTRY SVBSS 00034 ENTRY RSBSS 00056 ENTRY RSETB TRANSFER VECTOR 00000 665122626260 WRBSS 00034 CLTH EQU 28 00002 N EQU 2 1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 2 SAVE BSS CARD IMAGES IN EXTENDED MEMORY. 00001 0634 00 4 00032 SVBSS SXA SV4,4 SAVE XR4 00002 0020 00 0 00003 SUBSQ TRA *+1 EXECUTE NEXT SECTION ONLY ONCE 00003 CALL GETMEM GET CURRENT MEMBND 00003 0074 00 4 00064 TSX GETMEM,4 .002 00004 -0765 00 0 00001 LGR 1 ROUND TO NEXT HIGHEST 00005 0760 00 0 00010 RND EVEN NUMBER 00006 0767 00 0 00001 ALS 1 FOR DLD INSTRUCTION 00007 0621 00 0 00016 STA BUFF SAVE CARD BUFFER ADDRESS 00010 0621 00 0 00040 STA RESET .. 00011 0361 00 0 00063 ACL LTH INCREASE TO INITIAL SIZE 00012 0734 00 4 00000 PAX ,4 .. 00013 -0634 00 4 00022 SXD MEMBND,4 SAVE FOR CHECKING 00014 EXTEND AND RESET THE MEMORY BOUND 00014 0074 00 4 00065 TSX SETMEM,4 .003 00015 -0625 00 0 00002 STL SUBSQ SET SWITCH TO SKIP INITIALIZATION 00016 0774 00 4 00000 BUFF AXT **,4 LAST CARD BUFFER ADDRESS 00017 1 00034 4 00020 TXI *+1,4,CLTH INCREASE 00020 0634 00 4 00016 SXA BUFF,4 SAVE NEW BUFFER ADDRESS 00021 0634 00 4 00030 SXA MOVIN,4 .. 00022 -3 00000 4 00026 MEMBND TXL NOXTND,4,** CHECK FOR MEMBND EXCEEDED 00023 -0634 00 4 00022 SXD MEMBND,4 NEED HIGHER MEMBND, SO 00024 0754 00 4 00000 PXA ,4 WE SET IT HIGHER 00025 EXTEND .. 00025 0074 00 4 00065 TSX SETMEM,4 .003 00026 0774 00 4 00034 NOXTND AXT CLTH,4 FAST MOVE LOOP 00027 0443 00 4 77462 DLD CARD+CLTH,4 ONLY 84 CYCLES FOR 1 CARD IMAGE 00030 -0603 00 4 00000 MOVIN DST **,4 .. 00031 2 00002 4 00027 TIX *-2,4,2 .. 00032 0774 00 4 00000 SV4 AXT **,4 RESTORE XR4 00033 0020 00 4 00001 TRA 1,4 AND RETURN 1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 3 RESTORE AND WRITE OUT SAVED BSS CARDS. 00034 0634 00 4 00053 RSBSS SXA RX4,4 SAVE XRS 00035 0634 00 1 00054 SXA RX1,1 .. 00036 0534 00 4 00016 LXA BUFF,4 LAST BUFFER USED 00037 -0634 00 4 00043 SXD TXH,4 SAVE FOR CHECKING 00040 0774 00 1 00000 RESET AXT **,1 NOW RESET THE BUFFER STORE POINTER 00041 0634 00 1 00016 SXA BUFF,1 .. 00042 1 00034 1 00043 LOOP TXI *+1,1,CLTH STEP TO NEXT CARD 00043 3 00000 1 00053 TXH TXH ENDRS,1,** CHECK FOR ALL CARDS DONE 00044 0634 00 1 00046 SXA MOVOUT,1 STORE BUFFER ADDRESS 00045 0774 00 4 00034 AXT CLTH,4 FAST MOVE AGAIN 00046 0443 00 4 00000 MOVOUT DLD **,4 .. 00047 -0603 00 4 77462 DST CARD+CLTH,4 .. 00050 2 00002 4 00046 TIX MOVOUT,4,2 .. 00051 CALL $WRBSS WRITE OUT CARD 00051 0074 00 4 00000 TSX $WRBSS,4 .002 00052 0020 00 0 00042 TRA LOOP AND GO TO NEXT CARD 00053 ENDRS SYN * 00053 0774 00 4 00000 RX4 AXT **,4 RESTORE XRS 00054 0774 00 1 00000 RX1 AXT **,1 .. 00055 0020 00 4 00001 TRA 1,4 AND RETURN 1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 4 RSETB - RESET THE BUFFERS FOR NEXT PROGRAM. 00056 0634 00 4 00061 RSETB SXA RSX4,4 SAVE XR4 00057 0534 00 4 00040 LXA RESET,4 GET RESET ADDRESS FOR BUFFER 00060 0634 00 4 00016 SXA BUFF,4 .. 00061 0774 00 4 00000 RSX4 AXT **,4 RESTORE XR4 00062 0020 00 4 00001 TRA 1,4 AND RETURN 1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 5 STORAGE AND CONSTANTS. 00063 0 00000 0 00070 LTH PZE N*CLTH 77426 COMMON 27 77426 CARD COMMON 1 00064 RMT * REMOTE SEQUENCES. 00064 0101 00 0 00066 GETMEM TIA =HGETMEM .002 00065 0101 00 0 00067 SETMEM TIA =HSETMEM .002 END LITERALS 00066 272563442544 00067 622563442544 1 SVBSS - SAVE AND RESTORE BSS CARD IMAGES. PAGE 1 POST PROCESSOR ASSEMBLY DATA 77425 IS THE LAST LOCATION NOT USED BY THIS PROGRAM 70 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 2 N 1, 63 63 LTH 11 54 RX1 35 53 RX4 34 32 SV4 1 43 TXH 37 16 BUFF 7, 20, 36, 41, 60 77426 CARD 27, 47, 64 34 CLTH 1, 17, 26, 27, 42, 45, 47, 63 42 LOOP 52 61 RSX4 56 53 ENDRS 43, 53 30 MOVIN 21 40 RESET 10, 57 34 RSBSS 0 56 RSETB 0 2 SUBSQ 15 1 SVBSS 0 0 WRBSS 51 64 GETMEM 3 22 MEMBND 13, 23 46 MOVOUT 44, 50 26 NOXTND 22 65 SETMEM 14, 25 0 NO ERROR IN ABOVE ASSEMBLY. 1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 1 NOEL I. MORRIS - 6/22/65 UNLIST M CALL MACRO SUBR,LIST 00001 ENTRY DELETE 00000 462351222360 OCRBC 00001 0634 00 4 00035 DELETE SXA XR4,4 SAVE XRS 00002 0604 00 0 00125 STI SVSI SAVE SI 00003 0600 00 0 00122 STZ MODE SET MODE TO 'P' 00004 -0500 60 4 00001 CAL* 1,4 GET FILE NAME 00005 0602 00 0 00107 SLW FNAM .. 00006 -0500 60 4 00002 CAL* 2,4 .. 00007 0602 00 0 00111 SLW FNAM+2 .. 00010 -0500 60 4 00003 CAL* 3,4 GET DELETION PRINT SWITCH 00011 0602 00 0 00124 SLW PSW .. 00012 CALL FSTATE(FNAM,FNAM+2(BUFF,,2)FSERR,ERCODE) 00012 0074 00 4 00126 TSX FSTATE,4 .002 00013 3 00000 0 00107 PAR FNAM .004 00014 3 00000 0 00111 PAR FNAM+2 .004 00015 3 00002 0 00121 PAR BUFF,,2 .004 00016 3 00000 0 00070 PAR FSERR .004 00017 3 00000 0 00123 PAR ERCODE .004 00020 0441 00 0 00122 LDI MODE GET MODE BITS 00021 -0054 00 400000 LFT 400000 CHECK FOR LINKED FILE 00022 0020 00 0 00073 TRA LINKD IS LINKED, WILL NOT DELETE 00023 0054 00 000134 RFT 134 CHECK FOR READ-ONLY/PROTECTED, ETC. 00024 0020 00 0 00040 TRA ASK PROTECTED, ASK FOR DELETE 00025 DEL CALL DELFIL(FNAM,FNAM+2,NODEL) 00025 0074 00 4 00127 TSX DELFIL,4 .002 00026 3 00000 0 00107 PAR FNAM .004 00027 3 00000 0 00111 PAR FNAM+2 .004 00030 3 00000 0 00075 PAR NODEL .004 00031 0520 00 0 00124 ZET PSW CHECK FOR DELETION PRINT 00032 CALL WRFLX((DTOF,,6)) PRINT DELETION COMMENT 00032 0074 00 4 00130 TSX WRFLX,4 .002 00033 3 00006 0 00104 PAR DTOF,,6 .004 00034 -0500 00 0 00122 GONE CAL MODE GET THE MODE 00035 0774 00 4 00000 XR4 AXT **,4 RESTORE XRS 00036 0441 00 0 00125 LDI SVSI AND THE SI 00037 0020 00 4 00005 TRA 5,4 RETURN 1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 2 00040 ASK CALL $OCRBC(MODE) CONVERT TO BCD 00040 0074 00 4 00000 TSX $OCRBC,4 .002 00041 3 00000 0 00122 PAR MODE .004 00042 -0501 00 0 00151 ORA =O605757000000 MASK PROPERLY 00043 0602 00 0 00112 SLW BCMODE AND STORE IN COMMENT 00044 CALL WRFLXA((FNAM-1,,11)) 00044 0074 00 4 00131 TSX WRFLXA,4 .002 00045 3 00013 0 00106 PAR FNAM-1,,11 .004 00046 CALL RDFLXA((BUFF,,1)) 00046 0074 00 4 00132 TSX RDFLXA,4 .002 00047 3 00001 0 00121 PAR BUFF,,1 .004 00050 -0500 00 0 00121 CAL BUFF LOOK AT ANSWER 00051 0771 00 0 00022 ARS 18 .. 00052 0322 00 0 00143 ERA =H000YES CHECK FOR SPECIFIC 'YES' 00053 -0100 00 0 00075 TNZ NODEL NON-ZERO IF 'NO' OR GARBAGE 00054 CALL CHFILE(FNAM,FNAM+2,=1,=-0,=-0,NODEL) 00054 0074 00 4 00133 TSX CHFILE,4 .002 00055 3 00000 0 00107 PAR FNAM .004 00056 3 00000 0 00111 PAR FNAM+2 .004 00057 3 00000 0 00141 PAR =1 .004 00060 3 00000 0 00147 PAR =-0 .004 00061 3 00000 0 00147 PAR =-0 .004 00062 3 00000 0 00075 PAR NODEL .004 00063 CALL DELFIL(FNAM,FNAM+2,NODEL) DELETE IT NOW 00063 0074 00 4 00127 TSX DELFIL,4 .002 00064 3 00000 0 00107 PAR FNAM .004 00065 3 00000 0 00111 PAR FNAM+2 .004 00066 3 00000 0 00075 PAR NODEL .004 00067 0020 00 0 00034 TRA GONE .. 00070 -0500 00 0 00123 FSERR CAL ERCODE GET FSTATE ERROR CODE 00071 0402 00 0 00142 SUB =3 ANYTHING ELSE THAN 3 00072 0100 00 0 00034 TZE GONE IS A LINK ERROR 00073 LINKD COMENT LNKMSG,3,(FILE IS A LINK.),A 00073 0074 00 4 00131 TSX WRFLXA,4 .003 00074 3 00003 0 00134 PAR LNKMSG,,3 .005 DO NOT DELETE A LINK 00075 NODEL CALL WRFLXA((FNAM,,3)) 00075 0074 00 4 00131 TSX WRFLXA,4 .002 00076 3 00003 0 00107 PAR FNAM,,3 .004 00077 COMENT NOT,2,( NOT DELETED) 00077 0074 00 4 00130 TSX WRFLX,4 .003 00100 3 00002 0 00137 PAR NOT,,2 .005 00101 0522 00 0 00035 XEC XR4 RESTORE XRS 00102 0441 00 0 00125 LDI SVSI AND SI 00103 0020 60 4 00004 TRA* 4,4 ERROR RETURN 1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 3 00104 242543256325 DTOF BCI 3,DELETED THE OLDER 00107 000000000000 FNAM VFD 36/0,O36/576057575757,36/0 00112 606060606060 BCMODE BCI 6, MODE. DO YOU WANT TO DELETE I 00120 637360605757 VFD H6/T,O30/7360605757 00121 0 00000 0 00000 BUFF PZE 00122 0 00000 0 00000 MODE PZE 00123 0 00000 0 00000 ERCODE PZE 00124 0 00000 0 00000 PSW PZE 00125 0 00000 0 00000 SVSI PZE 00126 RMT * REMOTE SEQUENCES 00126 0101 00 0 00146 FSTATE TIA =HFSTATE .002 00127 0101 00 0 00145 DELFIL TIA =HDELFIL .002 00130 0101 00 0 00153 WRFLX TIA =HWRFLX .002 00131 0101 00 0 00152 WRFLXA TIA =HWRFLXA .002 00132 0101 00 0 00150 RDFLXA TIA =HRDFLXA .002 00133 0101 00 0 00144 CHFILE TIA =HCHFILE .002 00134 263143256031 LNKMSG BCI 3,FILE IS A LINK. .002 00137 604546636024 NOT BCI 2, NOT DELETED .002 END LITERALS 00141 000000000001 00142 000000000003 00143 000000702562 00144 233026314325 00145 242543263143 00146 266263216325 00147 400000000000 00150 512426436721 00151 605757000000 00152 665126436721 00153 665126436760 1 DELETE ALL VERSIONS OF AN OLD FILE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 154 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 40 ASK 24 25 DEL 137 NOT 100 124 PSW 11, 31 35 XR4 1, 101 121 BUFF 15, 47, 50 104 DTOF 33 107 FNAM 5, 7, 13, 14, 26, 27, 45, 55, 56, 64, 65, 76 34 GONE 67, 72 122 MODE 3, 20, 34, 41 125 SVSI 2, 36, 102 70 FSERR 16 73 LINKD 22 75 NODEL 30, 53, 62, 66 0 OCRBC 40 130 WRFLX 32, 77 112 BCMODE 43 133 CHFILE 54 1 DELETE 0 127 DELFIL 25, 63 123 ERCODE 17, 70 126 FSTATE 12 134 LNKMSG 74 132 RDFLXA 46 131 WRFLXA 44, 73, 75 0 NO ERROR IN ABOVE ASSEMBLY. 1 DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. PAGE 1 REVISED 9/14/65 - NOEL I. MORRIS UNLIST M CALL MACRO SUBR,LIST 00000 ENTRY DSKER 00000 -0500 00 0 00006 DSKER CAL =HPRNTER 00001 0560 00 0 00004 LDQ =O-71 00002 CALL NEXCOM 00002 0074 00 4 00003 TSX NEXCOM,4 .002 00003 RMT * REMOTE SEQUENCES 00003 0101 00 0 00005 NEXCOM TIA =HNEXCOM .002 END LITERALS 00004 400000000071 00005 452567234644 00006 475145632551 1 DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. PAGE 1 POST PROCESSOR ASSEMBLY DATA 7 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 0 DSKER 0 3 NEXCOM 2 0 NO ERROR IN ABOVE ASSEMBLY. WHO BCD 05/12/69 2320.6 14731 00000 1 MAD PROGRAM LISTING ... ... ... FILE WHO1 MAD 05/12/69 2257.8 - WHO PRINT LIST OF CTSS USERS. LM00001 CODED IN MAD BY N. MORRIS - 2/67 LM00002 LM00003 LM00004 NORMAL MODE IS INTEGER *001 LM00005 LM00006 INSERT FILE .XOR. *002 LM00007 DEFINE BINARY OPERATOR .XOR., PRECEDENCE SAME AS .A. *003 LM00001 MODE STRUCTURE 1 .XOR. 1 TO 1 *004 LM00002 JMP *+1,LA,*+3 *005 LM00003 JMP *+15,AT,*+1 *006 LM00004 JMP *+17,BT,*+9 *007 LM00005 JMP *+1,MQ,*+3 *008 LM00006 JMP *+9,AT,*+1 *009 LM00007 JMP *+13,BT,*+4 *010 LM00008 JMP *+1,AC,*+9 *011 LM00009 STO T *012 LM00010 JMP *+7 *013 LM00011 STQ T *014 LM00012 JMP *+5 *015 LM00013 SLW T *016 LM00014 JMP *+3 *017 LM00015 XCL *018 LM00016 JMP *+2 *019 LM00017 CAL A *020 LM00018 ERA B *021 LM00019 OUT LAC *022 LM00020 XCL *023 LM00021 ERA A *024 LM00022 OUT LAC *025 LM00023 END *026 LM00024 LM00008 VECTOR VALUES N = $N $ *027 LM00009 VECTOR VALUES NUSERS = $NUSERS$ *028 LM00010 VECTOR VALUES PROBN = $PROBN $ *029 LM00011 VECTOR VALUES PROGN = $PROGN $ *030 LM00012 VECTOR VALUES UNAME = $UNAME $ *031 LM00013 VECTOR VALUES GRPNO = $GRPNO.$ *032 LM00014 VECTOR VALUES UNITID = $UNITID$ *033 LM00015 VECTOR VALUES UTIME = $UTIME $ *034 LM00016 VECTOR VALUES ITIME = $ITIME $ *035 LM00017 VECTOR VALUES SYSNAM = $000000$ *036 LM00018 VECTOR VALUES SYSTIM = $SYSTIM$ *037 LM00019 VECTOR VALUES SYSDAT = $SYSDAT$ *038 LM00020 VECTOR VALUES PB = $PB $ *039 LM00021 LM00022 LM00023 DIMENSION ARG (19), TUSED (50) *040 LM00024 DIMENSION TIME (1), TIMEON (1) *041 LM00025 VECTOR VALUES SPACE = 605757575757K *042 LM00026 VECTOR VALUES FENCE = 777777777777K *043 LM00027 VECTOR VALUES SLPTIM = 0 *044 LM00028 LM00029 LM00030 BOOLEAN NUMBER. *045 LM00031 VECTOR VALUES FIRST = 1B *046 LM00032 VECTOR VALUES HEADSW = 1B *047 LM00033 VECTOR VALUES PROBSW = 0B *048 LM00034 VECTOR VALUES PROGSW = 0B *049 LM00035 VECTOR VALUES NAMESW = 0B *050 LM00036 VECTOR VALUES GRPSW = 0B *051 LM00037 VECTOR VALUES FOUND = 0B *052 LM00038 LM00039 LM00040 LM00041 LM00042 PICK UP AND CHECK PARAMETERS. LM00043 LM00044 PRMESS. *053 LM00045 SETBRK. (CHN) *054 LM00046 GCLS. (ARG, 0) *055 LM00047 LM00048 THROUGH ARGLP, FOR I = 1, 1, I .G. 19 .OR. ARG (I) .E. FENCE *056 LM00049 LM00050 WHENEVER ARG (I) .E. $ GROUP$ .OR. ARG (I) .E. $ GRP$ *057 LM00051 HEADSW = 0B *058 LM00052 GRPSW = 1B *059 LM00053 I = I + 1 *060 LM00054 WHENEVER ARG (I) .E. FENCE .OR. .NOT. NUMBER. (ARG (I)), *061 LM00055 1 TRANSFER TO ILARG *061 LM00056 TGRP = BCDEC. (ARG (I)) *062 LM00057 LM00058 OR WHENEVER ARG (I) .E. $ *$ *063 LM00059 HEADSW = 0B *064 LM00060 TRANSFER TO CKPG *065 LM00061 LM00062 OR WHENEVER NUMBER. (ARG (I)) *066 LM00063 SLPTIM = BCDEC. (ARG (I)) * 60 *067 LM00064 LM00065 OTHERWISE *068 LM00066 HEADSW = 0B *069 LM00067 PROBSW = 1B *070 LM00068 TPROB = ARG (I) *071 LM00069 GTPROB. (TPROB, ILARG) *072 LM00070 LM00071 CKPG I = I + 1 *073 LM00072 WHENEVER ARG (I) .E. FENCE *074 LM00073 ARG(I) = $ *$ *075 LM00074 TRANSFER TO ENDST *076 LM00075 END OF CONDITIONAL *077 LM00076 WHENEVER NUMBER. (ARG (I)) *078 LM00077 PROGSW = 1B *079 LM00078 TPROG = ARG (I) *080 LM00079 OR WHENEVER ARG (I) .E. $ *$ *081 LM00080 CONTINUE *082 LM00081 OTHERWISE *083 LM00082 NAMESW = 1B *084 LM00083 TNAME = ARG (I) *085 LM00084 END OF CONDITIONAL *086 LM00085 LM00086 END OF CONDITIONAL *087 LM00087 LM00088 ARGLP CONTINUE *088 LM00089 LM00090 LM00091 LM00092 GET COMMON SYMBOL VALUES. LM00093 LM00094 ENDST N = COMLOC. (N ) *089 LM00095 NUSERS = COMLOC. (NUSERS) *090 LM00096 PROBN = COMLOC. (PROBN ) *091 LM00097 PROGN = COMLOC. (PROGN ) *092 LM00098 UNAME = COMLOC. (UNAME ) *093 LM00099 GRPNO = COMLOC. (GRPNO ) *094 LM00100 UNITID = COMLOC. (UNITID) *095 LM00101 UTIME = COMLOC. (UTIME ) *096 LM00102 ITIME = COMLOC. (ITIME ) *097 LM00103 SYSNAM = COMLOC. (SYSNAM) *098 LM00104 SYSTIM = COMLOC. (SYSTIM) *099 LM00105 SYSDAT = COMLOC. (SYSDAT) *100 LM00106 PB = COMLOC. (PB ) *101 LM00107 LM00108 LM00109 PRINT OUT NAME OF SYSTEM. LM00110 LM00111 PRMESS. (SYSNAM, $ STARTED AT$, CTIME. (GLOC. (SYSTIM)), *102 LM00112 1 DATEF. (GLOC. (SYSDAT)), $.$) *102 LM00113 LM00114 LM00115 PRINT OUT NUMBER OF USERS. LM00116 LM00117 LOOP PRMESS. *103 LM00118 FTIME. (GTDYTM. (0), TIME (1), TIME) *104 LM00119 PRMESS. (CVT. (GLOC. (NUSERS), 2), $ USERS AT$, *105 LM00120 1 BZEL. (TIME), DATEF. (TIME (1)), $.$) *105 LM00121 LM00122 LM00123 CHECK FOR BACKGROUND PERCENTAGE. LM00124 LM00125 PCNT = GLOC. (PB) *106 LM00126 WHENEVER PCNT .NE. 0 *107 LM00127 PRMESS. ($BACKGROUND PERCENTAGE =$, CVT. (PCNT, 2), $.$) *108 LM00128 END OF CONDITIONAL *109 LM00129 PRMESS. *110 LM00130 LM00131 LM00132 PRINT HEADER, IF DESIRED. LM00133 WHENEVER HEADSW *111 LM00134 PRMESS. (HEADR ... 8) *112 LM00135 END OF CONDITIONAL *113 LM00136 VECTOR VALUES HEADR = $LINE USER NAME GRP UNIT TUSED TIMEON$ *114 LM00137 LM00138 LM00139 PRINT USER STATISTICS. LM00140 LM00141 FOUND = 0B *115 LM00142 THROUGH USRLP, FOR I = 1, 1, I .G. N *116 LM00143 LM00144 PICK UP AND CHECK PROBLEM NUMBER. LM00145 PROB = GLOC. (PROBN + I) *117 LM00146 WHENEVER (PROB .NE. TPROB .AND. PROBSW) .OR. *118 LM00147 1 PROB .E. 0, TRANSFER TO USRLP *118 LM00148 LM00149 PICK UP AND CHECK PROGRAMMER NUMBER. LM00150 PROG = GLOC. (PROGN+ I) *119 LM00151 WHENEVER PROG .NE. TPROG .AND. PROGSW, TRANSFER TO USRLP *120 LM00152 LM00153 PICK UP AND CHECK USER NAME. LM00154 NAME = GLOC. (UNAME + I) *121 LM00155 WHENEVER NAME .NE. TNAME .AND. NAMESW, TRANSFER TO USRLP *122 LM00156 LM00157 PICK UP AND CHECK PARTY GROUP. LM00158 GRP = GLOC. (GRPNO + I) *123 LM00159 WHENEVER .ABS. GRP .NE. TGRP .AND. GRPSW, TRANSFER TO USRLP *124 LM00160 LM00161 TUSED = GLOC. (UTIME + I) *125 LM00162 PRMESA. (CVT. (I, 2), PROB, PROG, SPACE, NAME, *126 LM00163 1 SCVT. (GRP, 3), SPACE, GLOC. (UNITID + I), *126 LM00164 2 CTIME. (TUSED) ) *126 LM00165 LM00166 WHENEVER FIRST *127 LM00167 FTIME. (GLOC. (ITIME + I), TIMEON (1), TIMEON) *128 LM00168 WHENEVER TIMEON (1) .E. LASTIM *129 LM00169 TIMEON (1) = $ $ *130 LM00170 OTHERWISE *131 LM00171 LASTIM = TIMEON (1) *132 LM00172 TIMEON (1) = DATEF. (TIMEON (1)) *133 LM00173 END OF CONDITIONAL *134 LM00174 PRMESS. (SPACE, BZEL. (TIMEON), TIMEON (1)) *135 LM00175 LM00176 OTHERWISE *136 LM00177 DELTA = TUSED - TUSED (I) *137 LM00178 WHENEVER DELTA .GE. 0 *138 LM00179 PRMESS. (CTIME. (DELTA)) *139 LM00180 OTHERWISE *140 LM00181 PRMESS. *141 LM00182 END OF CONDITIONAL *142 LM00183 LM00184 END OF CONDITIONAL *143 LM00185 LM00186 TUSED (I) = TUSED *144 LM00187 FOUND = 1B *145 LM00188 LM00189 USRLP CONTINUE *146 LM00190 LM00191 LM00192 END OF STATISTICS - EXIT OR SLEEP. LM00193 LM00194 WHENEVER (PROBSW .OR. PROGSW .OR. GRPSW .OR. NAMESW) *147 LM00195 1 .AND. .NOT. FOUND *147 LM00196 PRMESS. ($USER(S) NOT FOUND.$) *148 LM00197 END OF CONDITIONAL *149 LM00198 LM00199 PRMESS. *150 LM00200 WHENEVER FIRST *151 LM00201 FIRST = 0B *152 LM00202 HEADR (6) = $D DUSE$ *153 LM00203 HEADR (7) = $D $ *154 LM00204 END OF CONDITIONAL *155 LM00205 LM00206 WHENEVER SLPTIM .NE. 0 *156 LM00207 SLEEP. *157 LM00208 OTHERWISE *158 LM00209 CHNCOM. (1) *159 LM00210 END OF CONDITIONAL *160 LM00211 TRANSFER TO LOOP *161 LM00212 LM00213 LM00214 LM00215 ILARG - COMPLAIN ABOUT BAD PARAMETER. LM00216 LM00217 ILARG PRMESS. ($ILLEGAL PARAMETER:$, ARG (I)) *162 LM00218 CHN CHNCOM. (0) *163 LM00219 LM00220 LM00221 CONVERSION FUNCTIONS. LM00222 LM00223 INTERNAL FUNCTION CTIME. (T) = *164 LM00224 1 BZEL. (HRMIN. (T)) *164 LM00225 LM00226 INTERNAL FUNCTION DATEF. (D) = *165 LM00227 1 ((D .RS. 6) .A. 7777K6) .V. *165 LM00228 2 ((D .RS. 12) .A. 7777K) .V. *165 LM00229 3 $ 00/00$ *165 LM00230 LM00231 INTERNAL FUNCTION NUMBER. (N) = *166 LM00232 1 ZEL. (N) .A. $ $ .E. 0 *166 LM00233 LM00234 INTERNAL FUNCTION CVT. (I, N) = *167 LM00235 1 BZEL. (DEFBC. (I)) .XOR. *167 LM00236 2 (373737373737K .LS. (N * 6)) *167 LM00237 LM00238 INTERNAL FUNCTION (I, N) *168 LM00239 ENTRY TO SCVT. *169 LM00240 LM00241 WHENEVER I .RS. 35 .E. 0 *170 LM00242 FUNCTION RETURN CVT. (I, N) *171 LM00243 OTHERWISE *172 LM00244 FUNCTION RETURN RJUST. (((LJUST. (BZEL. (DEFBC. (I)))) .RS. 6) *173 LM00245 1 .V. $-00000$) .XOR. *173 LM00246 2 (373737373737K .LS. (N * 6)) *173 LM00247 END OF CONDITIONAL *174 LM00248 END OF FUNCTION *175 LM00249 LM00250 LM00251 LM00252 LM00253 LM00254 END OF PROGRAM *176 LM00255 MODE STRUCTURE 1 .XOR. 1 TO 1 004 LM00002 (THE NUMERIC FORM OF THE OPERATOR-MODE ARGUMENT IS 11111 ) 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01433 TRANSFER VECTOR LENGTH 00024 PROGRAM BEGINS 00273 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) ARGLP 00031 4 GRP 00071 1 NAMESW 00110 A 2 PROG 00121 1 TIME 00134 A 1 ARG 00063 A 1 GRPSW 00072 A 2 N 00111 A 1 PROGSW 00122 A 2 TNAME 00135 1 CHN 00032 4 HEADR 00102 A 1 NUSERS 00112 A 1 SLPTIM 00123 A 1 TPROB 00136 1 CKPG 00033 4 HEADSW 00103 A 2 PB 00113 A 1 SPACE 00124 A 1 TPROG 00137 1 DELTA 00064 1 ILARG 00035 4 PCNT 00114 1 SYSDAT 00125 A 1 TUSED 00222 A 1 ENDST 00034 4 I 00104 1 PROBN 00115 A 1 SYSNAM 00126 A 1 UNAME 00223 A 1 FENCE 00065 A 1 ITIME 00105 A 1 PROB 00116 1 SYSTIM 00127 A 1 UNITID 00224 A 1 FIRST 00066 A 2 LASTIM 00106 1 PROBSW 00117 A 2 TGRP 00130 1 USRLP 00037 4 FOUND 00067 A 2 LOOP 00036 4 PROGN 00120 A 1 TIMEON 00132 A 1 UTIME 00225 A 1 GRPNO 00070 A 1 NAME 00107 1 0FUNCTION DICTIONARY BCDEC 00000 1 BZEL 00001 1 CHNCOM 00002 1 COMLOC 00003 1 DEFBC 00004 1 EXIT 00005 1 FTIME 00006 1 GCLS 00007 1 GLOC 00010 1 GTDYTM 00011 1 GTPROB 00012 1 HRMIN 00013 1 .SETUP 00014 1 LJUST 00015 1 PRMESA 00016 1 PRMESS 00017 1 RJUST 00020 1 SETBRK 00021 1 SLEEP 00022 1 ZEL 00023 1 CTIME 00024 1 CVT 00025 1 DATEF 00026 1 NUMBER 00027 2 SCVT 00030 1 0ABSOLUTE CONSTANTS 00256 -000000000000 00236 +000000000043 00255 +373737373737 00262 -200000610000 00241 +007777000000 00232 +000000000006 00240 +000000007777 00234 +000000000014 00260 -042563255135 00257 -036047215121 00252 +314343252721 00246 +246060606060 00245 +246024646225 00251 +264664452433 00254 +346045466360 00272 -246225517462 00266 -206060606060 00231 +000000000003 00233 +000000000010 00242 +212725601360 00250 +255123254563 00261 -066445246047 00243 +222123422751 00271 -226021636060 00267 -206064622551 00230 +000000000002 00253 +336060606060 00247 +252460216360 00270 -206263215163 00237 +000000000074 00265 -206060606054 00263 -202751466447 00264 -206060275147 00235 +000000000023 00226 +000000000000 00227 +000000000001 00244 +233000000000 0STATEMENT DICTIONARY 00032 TXL -301142001140 00033 TXL -300427000424 00034 TXL -300471000466 00035 TXL -301140001127 00036 TXL -300561000560 00037 TXL -301070001067 0PROGRAM N'R 001 LM00005 I'E .XOR. 002 LM00007 DEFINE BINARY OPERATOR .XOR., PRECEDENCE SAME AS .A. 003 LM00001 MODE STRUCTURE 1 .XOR. 1 TO 1 004 LM00002 00273 TSX +0 07400 4 00014 V'S N = $N $ 027 LM00009 00111 -0 56060 6 06060 V'S NUSERS = $NUSERS$ 028 LM00010 00112 -0 56462 2 55162 V'S PROBN = $PROBN $ 029 LM00011 00115 -0 75146 2 24560 V'S PROGN = $PROGN $ 030 LM00012 00120 -0 75146 2 74560 V'S UNAME = $UNAME $ 031 LM00013 00223 -2 44521 4 42560 V'S GRPNO = $GRPNO.$ 032 LM00014 00070 +2 75147 4 54633 V'S UNITID = $UNITID$ 033 LM00015 00224 -2 44531 6 33124 V'S UTIME = $UTIME $ 034 LM00016 00225 -2 46331 4 42560 V'S ITIME = $ITIME $ 035 LM00017 00105 +3 16331 4 42560 V'S SYSNAM = $000000$ 036 LM00018 00126 +0 00000 0 00000 V'S SYSTIM = $SYSTIM$ 037 LM00019 00127 -2 27062 6 33144 V'S SYSDAT = $SYSDAT$ 038 LM00020 00125 -2 27062 2 42163 V'S PB = $PB $ 039 LM00021 00113 -0 72260 6 06060 D'N ARG (19), TUSED (50) 040 LM00024 D'N TIME (1), TIMEON (1) 041 LM00025 V'S SPACE = 605757575757K 042 LM00026 00124 -2 05757 5 75757 V'S FENCE = 777777777777K 043 LM00027 00065 -3 77777 7 77777 V'S SLPTIM = 0 044 LM00028 00123 +0 00000 0 00000 B'N NUMBER. 045 LM00031 V'S FIRST = 1B 046 LM00032 00066 +0 00000 0 00001 V'S HEADSW = 1B 047 LM00033 00103 +0 00000 0 00001 V'S PROBSW = 0B 048 LM00034 00117 +0 00000 0 00000 V'S PROGSW = 0B 049 LM00035 00122 +0 00000 0 00000 V'S NAMESW = 0B 050 LM00036 00110 +0 00000 0 00000 V'S GRPSW = 0B 051 LM00037 00072 +0 00000 0 00000 V'S FOUND = 0B 052 LM00038 00067 +0 00000 0 00000 PRMESS. 053 LM00045 00274 TSX +0 07400 4 00017 SETBRK. (CHN) 054 LM00046 00275 TSX +0 07400 4 00021 00276 TXH +3 00000 0 00032 GCLS. (ARG, 0) 055 LM00047 00277 TSX +0 07400 4 00007 00300 TXH +3 00000 0 00063 00301 TXH +3 00000 0 00226 T'H ARGLP, FOR I = 1, 1, I .G. 19 .OR. ARG (I) .E. FENCE 056 LM00049 00302 CLA +0 50000 0 00227 00303 STO +0 60100 0 00104 00304 TRA +0 02000 0 00310 00305 CLA +0 50000 0 00104 00306 ADD +0 40000 0 00227 00307 STO +0 60100 0 00104 00310 LXA +0 53400 1 00104 00311 CLA +0 50000 1 00063 00312 SUB +0 40200 0 00065 00313 TZE +0 10000 0 00466 00314 CLA +0 50000 0 00104 00315 SUB +0 40200 0 00235 00316 TZE +0 10000 0 00320 00317 TPL +0 12000 0 00466 W'R ARG (I) .E. $ GROUP$ .OR. ARG (I) .E. $ GRP$ 057 LM00051 00320 CLA +0 50000 1 00063 00321 SUB +0 40200 0 00264 00322 TZE +0 10000 0 00326 00323 CLA +0 50000 1 00063 00324 SUB +0 40200 0 00263 00325 TNZ -0 10000 0 00361 HEADSW = 0B 058 LM00052 00326 CLA +0 50000 0 00226 00327 STO +0 60100 0 00103 GRPSW = 1B 059 LM00053 00330 CLA +0 50000 0 00227 00331 STO +0 60100 0 00072 I = I + 1 060 LM00054 00332 CLA +0 50000 0 00104 00333 ADD +0 40000 0 00227 00334 STO +0 60100 0 00104 W'R ARG (I) .E. FENCE .OR. .NOT. NUMBER. (ARG (I)), 061 LM00055 1 T'O ILARG 061 LM00056 00335 CLA +0 50000 0 00104 00336 SUB +0 40200 0 00337 00337 TXH +3 00000 0 00063 00340 STA +0 62100 0 00342 00341 TSX +0 07400 4 00027 00342 TXH +3 00000 0 00000 00343 TZE +0 10000 0 00350 00344 LXA +0 53400 1 00104 00345 CLA +0 50000 1 00063 00346 SUB +0 40200 0 00065 00347 TNZ -0 10000 0 00351 00350 TRA +0 02000 0 00035 TGRP = BCDEC. (ARG (I)) 062 LM00057 00351 CLA +0 50000 0 00104 00352 SUB +0 40200 0 00353 00353 TXH +3 00000 0 00063 00354 STA +0 62100 0 00356 00355 TSX +0 07400 4 00000 00356 TXH +3 00000 0 00000 00357 STO +0 60100 0 00130 O'R ARG (I) .E. $ *$ 063 LM00059 00360 TRA +0 02000 0 00465 00361 LXA +0 53400 1 00104 00362 CLA +0 50000 1 00063 00363 SUB +0 40200 0 00265 00364 TNZ -0 10000 0 00371 HEADSW = 0B 064 LM00060 00365 CLA +0 50000 0 00226 00366 STO +0 60100 0 00103 T'O CKPG 065 LM00061 00367 TRA +0 02000 0 00033 O'R NUMBER. (ARG (I)) 066 LM00063 00370 TRA +0 02000 0 00465 00371 CLA +0 50000 0 00104 00372 SUB +0 40200 0 00373 00373 TXH +3 00000 0 00063 00374 STA +0 62100 0 00376 00375 TSX +0 07400 4 00027 00376 TXH +3 00000 0 00000 00377 TZE +0 10000 0 00412 SLPTIM = BCDEC. (ARG (I)) * 60 067 LM00064 00400 CLA +0 50000 0 00104 00401 SUB +0 40200 0 00402 00402 TXH +3 00000 0 00063 00403 STA +0 62100 0 00405 00404 TSX +0 07400 4 00000 00405 TXH +3 00000 0 00000 00406 XCA +0 13100 0 00000 00407 MPY +0 20000 0 00237 00410 STQ -0 60000 0 00123 O'E 068 LM00066 00411 TRA +0 02000 0 00465 HEADSW = 0B 069 LM00067 00412 CLA +0 50000 0 00226 00413 STO +0 60100 0 00103 PROBSW = 1B 070 LM00068 00414 CLA +0 50000 0 00227 00415 STO +0 60100 0 00117 TPROB = ARG (I) 071 LM00069 00416 LXA +0 53400 2 00104 00417 CLA +0 50000 2 00063 00420 STO +0 60100 0 00136 GTPROB. (TPROB, ILARG) 072 LM00070 00421 TSX +0 07400 4 00012 00422 TXH +3 00000 0 00136 00423 TXH +3 00000 0 00035 CKPG I = I + 1 073 LM00072 00424 CLA +0 50000 0 00104 00425 ADD +0 40000 0 00227 00426 STO +0 60100 0 00104 W'R ARG (I) .E. FENCE 074 LM00073 00427 LXA +0 53400 1 00104 00430 CLA +0 50000 1 00063 00431 SUB +0 40200 0 00065 00432 TNZ -0 10000 0 00436 ARG(I) = $ *$ 075 LM00074 00433 CLA +0 50000 0 00265 00434 STO +0 60100 1 00063 T'O ENDST 076 LM00075 00435 TRA +0 02000 0 00034 E'L 077 LM00076 W'R NUMBER. (ARG (I)) 078 LM00077 00436 CLA +0 50000 0 00104 00437 SUB +0 40200 0 00440 00440 TXH +3 00000 0 00063 00441 STA +0 62100 0 00443 00442 TSX +0 07400 4 00027 00443 TXH +3 00000 0 00000 00444 TZE +0 10000 0 00453 PROGSW = 1B 079 LM00078 00445 CLA +0 50000 0 00227 00446 STO +0 60100 0 00122 TPROG = ARG (I) 080 LM00079 00447 LXA +0 53400 2 00104 00450 CLA +0 50000 2 00063 00451 STO +0 60100 0 00137 O'R ARG (I) .E. $ *$ 081 LM00080 00452 TRA +0 02000 0 00465 00453 LXA +0 53400 1 00104 00454 CLA +0 50000 1 00063 00455 SUB +0 40200 0 00265 00456 TNZ -0 10000 0 00460 C'E 082 LM00081 O'E 083 LM00082 00457 TRA +0 02000 0 00465 NAMESW = 1B 084 LM00083 00460 CLA +0 50000 0 00227 00461 STO +0 60100 0 00110 TNAME = ARG (I) 085 LM00084 00462 LXA +0 53400 2 00104 00463 CLA +0 50000 2 00063 00464 STO +0 60100 0 00135 E'L 086 LM00085 E'L 087 LM00087 ARGLP C'E 088 LM00089 00465 TRA +0 02000 0 00305 ENDST N = COMLOC. (N ) 089 LM00095 00466 TSX +0 07400 4 00003 00467 TXH +3 00000 0 00111 00470 STO +0 60100 0 00111 NUSERS = COMLOC. (NUSERS) 090 LM00096 00471 TSX +0 07400 4 00003 00472 TXH +3 00000 0 00112 00473 STO +0 60100 0 00112 PROBN = COMLOC. (PROBN ) 091 LM00097 00474 TSX +0 07400 4 00003 00475 TXH +3 00000 0 00115 00476 STO +0 60100 0 00115 PROGN = COMLOC. (PROGN ) 092 LM00098 00477 TSX +0 07400 4 00003 00500 TXH +3 00000 0 00120 00501 STO +0 60100 0 00120 UNAME = COMLOC. (UNAME ) 093 LM00099 00502 TSX +0 07400 4 00003 00503 TXH +3 00000 0 00223 00504 STO +0 60100 0 00223 GRPNO = COMLOC. (GRPNO ) 094 LM00100 00505 TSX +0 07400 4 00003 00506 TXH +3 00000 0 00070 00507 STO +0 60100 0 00070 UNITID = COMLOC. (UNITID) 095 LM00101 00510 TSX +0 07400 4 00003 00511 TXH +3 00000 0 00224 00512 STO +0 60100 0 00224 UTIME = COMLOC. (UTIME ) 096 LM00102 00513 TSX +0 07400 4 00003 00514 TXH +3 00000 0 00225 00515 STO +0 60100 0 00225 ITIME = COMLOC. (ITIME ) 097 LM00103 00516 TSX +0 07400 4 00003 00517 TXH +3 00000 0 00105 00520 STO +0 60100 0 00105 SYSNAM = COMLOC. (SYSNAM) 098 LM00104 00521 TSX +0 07400 4 00003 00522 TXH +3 00000 0 00126 00523 STO +0 60100 0 00126 SYSTIM = COMLOC. (SYSTIM) 099 LM00105 00524 TSX +0 07400 4 00003 00525 TXH +3 00000 0 00127 00526 STO +0 60100 0 00127 SYSDAT = COMLOC. (SYSDAT) 100 LM00106 00527 TSX +0 07400 4 00003 00530 TXH +3 00000 0 00125 00531 STO +0 60100 0 00125 PB = COMLOC. (PB ) 101 LM00107 00532 TSX +0 07400 4 00003 00533 TXH +3 00000 0 00113 00534 STO +0 60100 0 00113 PRMESS. (SYSNAM, $ STARTED AT$, CTIME. (GLOC. (SYSTIM)), 102 LM00112 1 DATEF. (GLOC. (SYSDAT)), $.$) 102 LM00113 00535 TSX +0 07400 4 00010 00536 TXH +3 00000 0 00125 00537 STO +0 60100 0 01425 00540 TSX +0 07400 4 00026 00541 TXH +3 00000 0 01425 00542 STO +0 60100 0 01425 00543 TSX +0 07400 4 00010 00544 TXH +3 00000 0 00127 00545 STO +0 60100 0 01426 00546 TSX +0 07400 4 00024 00547 TXH +3 00000 0 01426 00550 STO +0 60100 0 01426 00551 TSX +0 07400 4 00017 00552 TXH +3 00000 0 00126 00553 TXH +3 00000 0 00270 00554 TXH +3 00000 0 00247 00555 TXH +3 00000 0 01426 00556 TXH +3 00000 0 01425 00557 TXH +3 00000 0 00253 LOOP PRMESS. 103 LM00118 00560 TSX +0 07400 4 00017 FTIME. (GTDYTM. (0), TIME (1), TIME) 104 LM00119 00561 TSX +0 07400 4 00011 00562 TXH +3 00000 0 00226 00563 STO +0 60100 0 01426 00564 TSX +0 07400 4 00006 00565 TXH +3 00000 0 01426 00566 TXH +3 00000 0 00133 00567 TXH +3 00000 0 00134 PRMESS. (CVT. (GLOC. (NUSERS), 2), $ USERS AT$, 105 LM00120 1 BZEL. (TIME), DATEF. (TIME (1)), $.$) 105 LM00121 00570 TSX +0 07400 4 00026 00571 TXH +3 00000 0 00133 00572 STO +0 60100 0 01426 00573 TSX +0 07400 4 00001 00574 TXH +3 00000 0 00134 00575 STO +0 60100 0 01425 00576 TSX +0 07400 4 00010 00577 TXH +3 00000 0 00112 00600 STO +0 60100 0 01427 00601 TSX +0 07400 4 00025 00602 TXH +3 00000 0 01427 00603 TXH +3 00000 0 00230 00604 STO +0 60100 0 01427 00605 TSX +0 07400 4 00017 00606 TXH +3 00000 0 01427 00607 TXH +3 00000 0 00267 00610 TXH +3 00000 0 00271 00611 TXH +3 00000 0 01425 00612 TXH +3 00000 0 01426 00613 TXH +3 00000 0 00253 PCNT = GLOC. (PB) 106 LM00126 00614 TSX +0 07400 4 00010 00615 TXH +3 00000 0 00113 00616 STO +0 60100 0 00114 W'R PCNT .NE. 0 107 LM00127 00617 CLA +0 50000 0 00114 00620 SUB +0 40200 0 00226 00621 TZE +0 10000 0 00635 PRMESS. ($BACKGROUND PERCENTAGE =$, CVT. (PCNT, 2), $.$) 108 LM00128 00622 TSX +0 07400 4 00025 00623 TXH +3 00000 0 00114 00624 TXH +3 00000 0 00230 00625 STO +0 60100 0 01427 00626 TSX +0 07400 4 00017 00627 TXH +3 00000 0 00243 00630 TXH +3 00000 0 00261 00631 TXH +3 00000 0 00250 00632 TXH +3 00000 0 00242 00633 TXH +3 00000 0 01427 00634 TXH +3 00000 0 00253 E'L 109 LM00129 PRMESS. 110 LM00130 00635 TSX +0 07400 4 00017 W'R HEADSW 111 LM00134 00636 NZT -0 52000 0 00103 00637 TRA +0 02000 0 00642 PRMESS. (HEADR ... 8) 112 LM00135 00640 TSX +0 07400 4 00017 00641 TIX +2 00233 0 00102 E'L 113 LM00136 V'S HEADR = $LINE USER NAME GRP UNIT TUSED TIMEON$ 114 LM00137 00073 -0 64560 6 06060 00074 +2 46063 3 14425 00075 -2 06063 6 46225 00076 -0 76064 4 53163 00077 -0 42560 6 02751 00100 -2 06060 6 04521 00101 -2 06462 2 55160 00102 -0 33145 2 56060 FOUND = 0B 115 LM00142 00642 CLA +0 50000 0 00226 00643 STO +0 60100 0 00067 T'H USRLP, FOR I = 1, 1, I .G. N 116 LM00143 00644 CLA +0 50000 0 00227 00645 STO +0 60100 0 00104 00646 TRA +0 02000 0 00652 00647 CLA +0 50000 0 00104 00650 ADD +0 40000 0 00227 00651 STO +0 60100 0 00104 00652 CLA +0 50000 0 00104 00653 SUB +0 40200 0 00111 00654 TZE +0 10000 0 00656 00655 TPL +0 12000 0 01070 PROB = GLOC. (PROBN + I) 117 LM00146 00656 CLA +0 50000 0 00115 00657 ADD +0 40000 0 00104 00660 STO +0 60100 0 01427 00661 TSX +0 07400 4 00010 00662 TXH +3 00000 0 01427 00663 STO +0 60100 0 00116 W'R (PROB .NE. TPROB .AND. PROBSW) .OR. 118 LM00147 1 PROB .E. 0, T'O USRLP 118 LM00148 00664 CLA +0 50000 0 00116 00665 SUB +0 40200 0 00226 00666 TZE +0 10000 0 00675 00667 NZT -0 52000 0 00117 00670 TRA +0 02000 0 00674 00671 CLA +0 50000 0 00116 00672 SUB +0 40200 0 00136 00673 TNZ -0 10000 0 00675 00674 TRA +0 02000 0 00676 00675 TRA +0 02000 0 00037 PROG = GLOC. (PROGN+ I) 119 LM00151 00676 CLA +0 50000 0 00120 00677 ADD +0 40000 0 00104 00700 STO +0 60100 0 01427 00701 TSX +0 07400 4 00010 00702 TXH +3 00000 0 01427 00703 STO +0 60100 0 00121 W'R PROG .NE. TPROG .AND. PROGSW, T'O USRLP 120 LM00152 00704 NZT -0 52000 0 00122 00705 TRA +0 02000 0 00712 00706 CLA +0 50000 0 00121 00707 SUB +0 40200 0 00137 00710 TZE +0 10000 0 00712 00711 TRA +0 02000 0 00037 NAME = GLOC. (UNAME + I) 121 LM00155 00712 CLA +0 50000 0 00223 00713 ADD +0 40000 0 00104 00714 STO +0 60100 0 01427 00715 TSX +0 07400 4 00010 00716 TXH +3 00000 0 01427 00717 STO +0 60100 0 00107 W'R NAME .NE. TNAME .AND. NAMESW, T'O USRLP 122 LM00156 00720 NZT -0 52000 0 00110 00721 TRA +0 02000 0 00726 00722 CLA +0 50000 0 00107 00723 SUB +0 40200 0 00135 00724 TZE +0 10000 0 00726 00725 TRA +0 02000 0 00037 GRP = GLOC. (GRPNO + I) 123 LM00159 00726 CLA +0 50000 0 00070 00727 ADD +0 40000 0 00104 00730 STO +0 60100 0 01427 00731 TSX +0 07400 4 00010 00732 TXH +3 00000 0 01427 00733 STO +0 60100 0 00071 W'R .ABS. GRP .NE. TGRP .AND. GRPSW, T'O USRLP 124 LM00160 00734 NZT -0 52000 0 00072 00735 TRA +0 02000 0 00743 00736 CLA +0 50000 0 00071 00737 SSP +0 76000 0 00003 00740 SUB +0 40200 0 00130 00741 TZE +0 10000 0 00743 00742 TRA +0 02000 0 00037 TUSED = GLOC. (UTIME + I) 125 LM00162 00743 CLA +0 50000 0 00225 00744 ADD +0 40000 0 00104 00745 STO +0 60100 0 01427 00746 TSX +0 07400 4 00010 00747 TXH +3 00000 0 01427 00750 STO +0 60100 0 00222 PRMESA. (CVT. (I, 2), PROB, PROG, SPACE, NAME, 126 LM00163 1 SCVT. (GRP, 3), SPACE, GLOC. (UNITID + I), 126 LM00164 2 CTIME. (TUSED) ) 126 LM00165 00751 TSX +0 07400 4 00024 00752 TXH +3 00000 0 00222 00753 STO +0 60100 0 01427 00754 CLA +0 50000 0 00224 00755 ADD +0 40000 0 00104 00756 STO +0 60100 0 01426 00757 TSX +0 07400 4 00010 00760 TXH +3 00000 0 01426 00761 STO +0 60100 0 01426 00762 TSX +0 07400 4 00030 00763 TXH +3 00000 0 00071 00764 TXH +3 00000 0 00231 00765 STO +0 60100 0 01425 00766 TSX +0 07400 4 00025 00767 TXH +3 00000 0 00104 00770 TXH +3 00000 0 00230 00771 STO +0 60100 0 01430 00772 TSX +0 07400 4 00016 00773 TXH +3 00000 0 01430 00774 TXH +3 00000 0 00116 00775 TXH +3 00000 0 00121 00776 TXH +3 00000 0 00124 00777 TXH +3 00000 0 00107 01000 TXH +3 00000 0 01425 01001 TXH +3 00000 0 00124 01002 TXH +3 00000 0 01426 01003 TXH +3 00000 0 01427 W'R FIRST 127 LM00167 01004 NZT -0 52000 0 00066 01005 TRA +0 02000 0 01043 FTIME. (GLOC. (ITIME + I), TIMEON (1), TIMEON) 128 LM00168 01006 CLA +0 50000 0 00105 01007 ADD +0 40000 0 00104 01010 STO +0 60100 0 01430 01011 TSX +0 07400 4 00010 01012 TXH +3 00000 0 01430 01013 STO +0 60100 0 01430 01014 TSX +0 07400 4 00006 01015 TXH +3 00000 0 01430 01016 TXH +3 00000 0 00131 01017 TXH +3 00000 0 00132 W'R TIMEON (1) .E. LASTIM 129 LM00169 01020 CLA +0 50000 0 00131 01021 SUB +0 40200 0 00106 01022 TNZ -0 10000 0 01026 TIMEON (1) = $ $ 130 LM00170 01023 CLA +0 50000 0 00266 01024 STO +0 60100 0 00131 O'E 131 LM00171 01025 TRA +0 02000 0 01033 LASTIM = TIMEON (1) 132 LM00172 01026 CLA +0 50000 0 00131 01027 STO +0 60100 0 00106 TIMEON (1) = DATEF. (TIMEON (1)) 133 LM00173 01030 TSX +0 07400 4 00026 01031 TXH +3 00000 0 00131 01032 STO +0 60100 0 00131 E'L 134 LM00174 PRMESS. (SPACE, BZEL. (TIMEON), TIMEON (1)) 135 LM00175 01033 TSX +0 07400 4 00001 01034 TXH +3 00000 0 00132 01035 STO +0 60100 0 01430 01036 TSX +0 07400 4 00017 01037 TXH +3 00000 0 00124 01040 TXH +3 00000 0 01430 01041 TXH +3 00000 0 00131 O'E 136 LM00177 01042 TRA +0 02000 0 01062 DELTA = TUSED - TUSED (I) 137 LM00178 01043 LXA +0 53400 2 00104 01044 CLA +0 50000 0 00222 01045 SUB +0 40200 2 00222 01046 STO +0 60100 0 00064 W'R DELTA .GE. 0 138 LM00179 01047 CLA +0 50000 0 00064 01050 SUB +0 40200 0 00226 01051 TZE +0 10000 0 01053 01052 TMI -0 12000 0 01061 PRMESS. (CTIME. (DELTA)) 139 LM00180 01053 TSX +0 07400 4 00024 01054 TXH +3 00000 0 00064 01055 STO +0 60100 0 01430 01056 TSX +0 07400 4 00017 01057 TXH +3 00000 0 01430 O'E 140 LM00181 01060 TRA +0 02000 0 01062 PRMESS. 141 LM00182 01061 TSX +0 07400 4 00017 E'L 142 LM00183 E'L 143 LM00185 TUSED (I) = TUSED 144 LM00187 01062 LXA +0 53400 1 00104 01063 CLA +0 50000 0 00222 01064 STO +0 60100 1 00222 FOUND = 1B 145 LM00188 01065 CLA +0 50000 0 00227 01066 STO +0 60100 0 00067 USRLP C'E 146 LM00190 01067 TRA +0 02000 0 00647 W'R (PROBSW .OR. PROGSW .OR. GRPSW .OR. NAMESW) 147 LM00195 1 .AND. .NOT. FOUND 147 LM00196 01070 ZET +0 52000 0 00067 01071 TRA +0 02000 0 01106 01072 ZET +0 52000 0 00110 01073 TRA +0 02000 0 01102 01074 ZET +0 52000 0 00072 01075 TRA +0 02000 0 01102 01076 ZET +0 52000 0 00122 01077 TRA +0 02000 0 01102 01100 NZT -0 52000 0 00117 01101 TRA +0 02000 0 01106 PRMESS. ($USER(S) NOT FOUND.$) 148 LM00197 01102 TSX +0 07400 4 00017 01103 TXH +3 00000 0 00272 01104 TXH +3 00000 0 00254 01105 TXH +3 00000 0 00251 E'L 149 LM00198 PRMESS. 150 LM00200 01106 TSX +0 07400 4 00017 W'R FIRST 151 LM00201 01107 NZT -0 52000 0 00066 01110 TRA +0 02000 0 01117 FIRST = 0B 152 LM00202 01111 CLA +0 50000 0 00226 01112 STO +0 60100 0 00066 HEADR (6) = $D DUSE$ 153 LM00203 01113 CLA +0 50000 0 00245 01114 STO +0 60100 0 00074 HEADR (7) = $D $ 154 LM00204 01115 CLA +0 50000 0 00246 01116 STO +0 60100 0 00073 E'L 155 LM00205 W'R SLPTIM .NE. 0 156 LM00207 01117 CLA +0 50000 0 00123 01120 SUB +0 40200 0 00226 01121 TZE +0 10000 0 01124 SLEEP. 157 LM00208 01122 TSX +0 07400 4 00022 O'E 158 LM00209 01123 TRA +0 02000 0 01126 CHNCOM. (1) 159 LM00210 01124 TSX +0 07400 4 00002 01125 TXH +3 00000 0 00227 E'L 160 LM00211 T'O LOOP 161 LM00212 01126 TRA +0 02000 0 00036 ILARG PRMESS. ($ILLEGAL PARAMETER:$, ARG (I)) 162 LM00218 01127 CLA +0 50000 0 00104 01130 SUB +0 40200 0 01131 01131 TXH +3 00000 0 00063 01132 STA +0 62100 0 01137 01133 TSX +0 07400 4 00017 01134 TXH +3 00000 0 00252 01135 TXH +3 00000 0 00257 01136 TXH +3 00000 0 00260 01137 TXH +3 00000 0 00000 CHN CHNCOM. (0) 163 LM00219 01140 TSX +0 07400 4 00002 01141 TXH +3 00000 0 00226 INTERNAL FUNCTION CTIME. (T) = 164 LM00224 1 BZEL. (HRMIN. (T)) 164 LM00225 01142 TRA +0 02000 0 01166 00024 TTR +0 02100 0 01143 01143 SXA +0 63400 2 01153 01144 TSX +0 07400 2 01153 01145 TSX +0 07400 4 00013 01146 TXH +3 00000 0 00024 01147 STO +0 60100 0 01165 01150 TSX +0 07400 4 00001 01151 TXH +3 00000 0 01165 01152 TRA +0 02000 0 01161 01153 TXH +3 00000 0 00000 01154 SXD -0 63400 1 01153 01155 SXA +0 63400 4 01161 01156 CLA +0 50000 4 00001 01157 STO +0 60100 0 01146 01160 TRA +0 02000 2 00001 01161 AXT +0 77400 4 00000 01162 LXA +0 53400 2 01153 01163 LXD -0 53400 1 01153 01164 TRA +0 02000 4 00001 INTERNAL FUNCTION DATEF. (D) = 165 LM00227 1 ((D .RS. 6) .A. 7777K6) .V. 165 LM00228 2 ((D .RS. 12) .A. 7777K) .V. 165 LM00229 3 $ 00/00$ 165 LM00230 01166 TRA +0 02000 0 01225 00026 TTR +0 02100 0 01167 01167 SXA +0 63400 2 01211 01170 TSX +0 07400 2 01211 01171 CAL -0 50000 0 00234 01172 STA +0 62100 0 01174 01173 CAL -0 50000 0 00024 01174 LGR -0 76500 0 00000 01175 ANA -0 32000 0 00240 01176 SLW +0 60200 0 01224 01177 CAL -0 50000 0 00232 01200 STA +0 62100 0 01202 01201 CAL -0 50000 0 00024 01202 LGR -0 76500 0 00000 01203 ANA -0 32000 0 00241 01204 ORA -0 50100 0 01224 01205 ORA -0 50100 0 00262 01206 SLW +0 60200 0 01224 01207 CLA +0 50000 0 01224 01210 TRA +0 02000 0 01220 01211 TXH +3 00000 0 00000 01212 SXD -0 63400 1 01211 01213 SXA +0 63400 4 01220 01214 CLA +0 50000 4 00001 01215 STA +0 62100 0 01173 01216 STA +0 62100 0 01201 01217 TRA +0 02000 2 00001 01220 AXT +0 77400 4 00000 01221 LXA +0 53400 2 01211 01222 LXD -0 53400 1 01211 01223 TRA +0 02000 4 00001 INTERNAL FUNCTION NUMBER. (N) = 166 LM00232 1 ZEL. (N) .A. $ $ .E. 0 166 LM00233 01225 TRA +0 02000 0 01260 00027 TTR +0 02100 0 01226 01226 SXA +0 63400 2 01245 01227 TSX +0 07400 2 01245 01230 TSX +0 07400 4 00023 01231 TXH +3 00000 0 00024 01232 STO +0 60100 0 01257 01233 CAL -0 50000 0 01257 01234 ANA -0 32000 0 00266 01235 SLW +0 60200 0 01257 01236 CLA +0 50000 0 01257 01237 SUB +0 40200 0 00226 01240 TZE +0 10000 0 01243 01241 PXD -0 75400 0 00000 01242 TRA +0 02000 0 01244 01243 CLA +0 50000 0 00227 01244 TRA +0 02000 0 01253 01245 TXH +3 00000 0 00000 01246 SXD -0 63400 1 01245 01247 SXA +0 63400 4 01253 01250 CLA +0 50000 4 00001 01251 STO +0 60100 0 01231 01252 TRA +0 02000 2 00001 01253 AXT +0 77400 4 00000 01254 LXA +0 53400 2 01245 01255 LXD -0 53400 1 01245 01256 TRA +0 02000 4 00001 INTERNAL FUNCTION CVT. (I, N) = 167 LM00235 1 BZEL. (DEFBC. (I)) .XOR. 167 LM00236 2 (373737373737K .LS. (N * 6)) 167 LM00237 01260 TRA +0 02000 0 01323 00025 TTR +0 02100 0 01261 01261 SXA +0 63400 2 01305 01262 TSX +0 07400 2 01305 01263 LDQ +0 56000 0 00024 01264 MPY +0 20000 0 00232 01265 XCA +0 13100 0 00000 01266 STA +0 62100 0 01270 01267 CAL -0 50000 0 00255 01270 ALS +0 76700 0 00000 01271 SLW +0 60200 0 01321 01272 TSX +0 07400 4 00004 01273 TXH +3 00000 0 00024 01274 STO +0 60100 0 01322 01275 TSX +0 07400 4 00001 01276 TXH +3 00000 0 01322 01277 STO +0 60100 0 01322 01300 CAL -0 50000 0 01322 01301 ERA +0 32200 0 01321 01302 SLW +0 60200 0 01322 01303 CLA +0 50000 0 01322 01304 TRA +0 02000 0 01315 01305 TXH +3 00000 0 00000 01306 SXD -0 63400 1 01305 01307 SXA +0 63400 4 01315 01310 CLA +0 50000 4 00001 01311 STO +0 60100 0 01273 01312 CLA +0 50000 4 00002 01313 STA +0 62100 0 01263 01314 TRA +0 02000 2 00001 01315 AXT +0 77400 4 00000 01316 LXA +0 53400 2 01305 01317 LXD -0 53400 1 01305 01320 TRA +0 02000 4 00001 INTERNAL FUNCTION (I, N) 168 LM00239 01323 TRA +0 02000 0 01424 E'O SCVT. 169 LM00240 01324 TRA +0 02000 0 01327 00030 TTR +0 02100 0 01325 01325 SXA +0 63400 2 01403 01326 TSX +0 07400 2 01403 W'R I .RS. 35 .E. 0 170 LM00242 01327 CAL -0 50000 0 00236 01330 STA +0 62100 0 01332 01331 CAL -0 50000 0 00024 01332 LGR -0 76500 0 00000 01333 SLW +0 60200 0 01422 01334 CLA +0 50000 0 01422 01335 SUB +0 40200 0 00226 01336 TNZ -0 10000 0 01344 F'N CVT. (I, N) 171 LM00243 01337 TSX +0 07400 4 00025 01340 TXH +3 00000 0 00024 01341 TXH +3 00000 0 00024 01342 TRA +0 02000 0 01416 O'E 172 LM00244 01343 TRA +0 02000 0 01402 F'N RJUST. (((LJUST. (BZEL. (DEFBC. (I)))) .RS. 6) 173 LM00245 1 .V. $-00000$) .XOR. 173 LM00246 2 (373737373737K .LS. (N * 6)) 173 LM00247 01344 LDQ +0 56000 0 00024 01345 MPY +0 20000 0 00232 01346 XCA +0 13100 0 00000 01347 STA +0 62100 0 01351 01350 CAL -0 50000 0 00255 01351 ALS +0 76700 0 00000 01352 SLW +0 60200 0 01422 01353 TSX +0 07400 4 00004 01354 TXH +3 00000 0 00024 01355 STO +0 60100 0 01423 01356 TSX +0 07400 4 00001 01357 TXH +3 00000 0 01423 01360 STO +0 60100 0 01423 01361 TSX +0 07400 4 00015 01362 TXH +3 00000 0 01423 01363 STO +0 60100 0 01423 01364 CAL -0 50000 0 00232 01365 STA +0 62100 0 01367 01366 CAL -0 50000 0 01423 01367 LGR -0 76500 0 00000 01370 ORA -0 50100 0 00256 01371 SLW +0 60200 0 01423 01372 TSX +0 07400 4 00020 01373 TXH +3 00000 0 01423 01374 STO +0 60100 0 01423 01375 CAL -0 50000 0 01423 01376 ERA +0 32200 0 01422 01377 SLW +0 60200 0 01423 01400 CLA +0 50000 0 01423 01401 TRA +0 02000 0 01416 E'L 174 LM00248 E'N 175 LM00249 01402 TSX +0 07400 4 00005 01403 TXH +3 00000 0 00000 01404 SXD -0 63400 1 01403 01405 SXA +0 63400 4 01416 01406 CLA +0 50000 4 00001 01407 STA +0 62100 0 01331 01410 STO +0 60100 0 01340 01411 STO +0 60100 0 01354 01412 CLA +0 50000 4 00002 01413 STO +0 60100 0 01341 01414 STA +0 62100 0 01344 01415 TRA +0 02000 2 00001 01416 AXT +0 77400 4 00000 01417 LXA +0 53400 2 01403 01420 LXD -0 53400 1 01403 01421 TRA +0 02000 4 00001 E'M 176 LM00255 01424 TSX +0 07400 4 00005 1 GTPROB - GET PROBLEM NUMBER FOR LOGIN COMMAND. 05/12/69 2258.4 PAGE 1 2/19/66 - NOEL I. MORRIS * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * CALLING SEQUENCE - * * GTPROB. (PROBN, ERR) * * PROBN - CONTAINS UNCONVERTED PROBLEM NUMBER. AT COMPLETION * OF CONVERSION, IT WILL CONTAIN CONVERTED PROBLEM NUMBER. * ERR - ERROR LOCATION FOR ILLEGAL PROBLEM NUMBER. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * UNLIST M CALL MACRO SUBR,LIST 00000 ENTRY GTPROB 00000 0634 00 2 00034 GTPROB SXA GTPX,2 SAVE XR2 00001 0560 60 4 00001 LDQ* 1,4 GET UNCONVERTED PROBLEM NUMBER 00002 -0600 00 0 00037 STQ BAD SAVE FOR ERROR COMMENT 00003 0774 00 2 00036 AXT 30,2 EXTRACT THE LETTER 00004 -0754 00 0 00000 PBLOOP ZAC .. 00005 -0763 00 0 00006 LGL 6 .. 00006 -0340 00 0 00044 LAS =H00000 CHECK FOR NON-BLANK 00007 0020 00 0 00021 TRA FCHAR NON-BLANK FOUND 00010 0020 00 0 00012 TRA *+2 .. 00011 0020 00 0 00021 TRA FCHAR .. 00012 2 00006 2 00004 TIX PBLOOP,2,6 .. 00013 0634 00 4 00016 ERR SXA SVX4,4 SAVE XR4 00014 COMENT BAD,5( IS NOT A PROBLEM NUMBER) 00014 0074 00 4 00036 TSX WRFLX,4 .003 00015 3 00005 0 00037 PAR BAD,,5 .005 00016 0774 00 4 00000 SVX4 AXT **,4 RESTORE XR4 00017 0522 00 0 00034 XEC GTPX RESTORE XR2 00020 0020 60 4 00002 TRA* 2,4 ERROR RETURN 00021 0767 00 0 00030 FCHAR ALS 24 SHIFT TO CORRECT POSITION 00022 -0501 00 0 00046 ORA =H 00000 AND OR IN PRECEDING BLANK 00023 0602 60 4 00001 SLW* 1,4 SAVE THIS PART 00024 -0320 00 0 00045 ANA =H0 0000 MUST BE NON-NUMERIC 00025 0100 00 0 00013 TZE ERR .. 00026 -0754 00 0 00000 ZAC .. 00027 -0765 00 2 00044 LGR 36,2 RIGHT-JUSTIFY REMAINING CHARACTERS 00030 -0130 00 0 00000 XCL .. 00031 -0602 60 4 00001 ORS* 1,4 OR INTO PROBLEM NUMBER 00032 -0320 00 0 00050 ANA =O777760606060 MUST BE NUMERIC 1 GTPROB - GET PROBLEM NUMBER FOR LOGIN COMMAND. 05/12/69 2258.4 PAGE 2 00033 -0100 00 0 00013 TNZ ERR .. 00034 0774 00 2 00000 GTPX AXT **,2 RESTORE XR2 00035 0020 00 4 00003 TRA 3,4 RETURN 00036 RMT * REMOTE SEQUENCES. 00036 0101 00 0 00047 WRFLX TIA =HWRFLX .002 00037 606060606060 BAD BCI 5, IS NOT A PROBLEM NUMBER .002 00040 603162604546 00041 636021604751 00042 462243254460 00043 456444222551 END LITERALS 00044 000000000060 00045 006000000000 00046 600000000000 00047 665126436760 00050 777760606060 1 GTPROB - GET PROBLEM NUMBER FOR LOGIN COMMAND. 05/12/69 2258.4 PAGE 1 POST PROCESSOR ASSEMBLY DATA 51 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 37 BAD 2, 15 13 ERR 25, 33 34 GTPX 0, 17 16 SVX4 13 21 FCHAR 7, 11 36 WRFLX 14 0 GTPROB 0 4 PBLOOP 12 0 NO ERROR IN ABOVE ASSEMBLY. WRITE BCD 05/12/69 1851.2 8648 00000 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 1 5/24/66 - NOEL I. MORRIS 00005 ENTRY 0 00113 ENTRY PRWORD 00123 ENTRY PRBUFF 00167 ENTRY TYLINE 00170 ENTRY TYWORD UNLIST M CALL MACRO SUBR,LIST TRANSFER VECTOR 00000 276347514622 GTPROB 00001 637047466463 TYPOUT 00002 637047253145 TYPEIN LINKAGE DIRECTOR 00003 000000000000 00004 000000000000 00016 WDSLIN EQU 14 00014 ICWDS EQU WDSLIN-2 00011 ABITS EQU 9 00004 ACHR EQU 36/ABITS 00014 CBITS EQU 12 00003 CCHR EQU 36/CBITS 00170 INSIZE EQU 120 00550 N.IN EQU 360 00550 N.OUT EQU 360 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 2 INITIALIZE. 00005 0760 00 0 00016 EAXM 7 XRS 00006 CALL SETBRK(BRKXIT) SET A BREAK LEVEL 00006 0074 00 4 02200 TSX SETBRK,4 .002 00007 3 00000 0 00375 PAR BRKXIT .004 00010 CALL GETCOM(1) GET FIRST PARAMETER 00010 0074 00 4 02201 TSX GETCOM,4 .002 00011 3 00000 0 00001 PAR 1 .004 00012 0602 00 0 00411 SLW PROB STORE PROBLEM NO. 00013 0322 00 0 02270 ERA =H(REST) CHECK FOR SLEEP 00014 0100 00 0 00306 TZE REST GO SLEEP 00015 CALL $GTPROB(PROB,CHNXIT) CONVERT PROBLEM NO. 00015 0074 00 4 00000 TSX $GTPROB,4 .002 00016 3 00000 0 00411 PAR PROB .004 00017 3 00000 0 00401 PAR CHNXIT .004 00020 CALL GETCOM(2) GET PROGRAMMER NO. 00020 0074 00 4 02201 TSX GETCOM,4 .002 00021 3 00000 0 00002 PAR 2 .004 00022 0602 00 0 00412 SLW PROG STORE PROGRAMMER NO. 00023 CALL ALLOW(PROB,PROG) PERMIT THE USER 00023 0074 00 4 02202 TSX ALLOW,4 .002 00024 3 00000 0 00411 PAR PROB .004 00025 3 00000 0 00412 PAR PROG .004 00026 -0500 00 0 00411 CAL PROB SET WPROB AND WPROG 00027 0602 00 0 00414 SLW WPROB FOR WRMESS 00030 -0500 00 0 00412 CAL PROG .. 00031 0602 00 0 00415 SLW WPROG .. 00032 BEGIN CALL SETFUL INTO 12-BIT MODE 00032 0074 00 4 02203 TSX SETFUL,4 .002 00033 -0500 00 0 00426 CAL BGNMSG GET BEGINNING MESSAGE 00034 0602 00 0 00430 SLW TBUFF .. 00035 CALL WRITE(CHNXIT) AND SEND OUT INITIAL MESSAGE 00035 0074 00 4 00237 TSX WRITE,4 .002 00036 3 00000 0 00401 PAR CHNXIT .004 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 3 READIN - READ INPUT AND DISPATCH ON IT. 00037 0520 00 0 00417 LOOP ZET ETXSW. CHECK FOR 'ETX' RECEIVED 00040 0020 00 0 00401 TRA CHNXIT EXIT ON 'ETX' 00041 READIN CALL RDFLXA((TBUFF,,WDSLIN)) READ INPUT 00041 0074 00 4 02204 TSX RDFLXA,4 .002 00042 3 00016 0 00430 PAR TBUFF,,WDSLIN .004 00043 0602 00 0 00416 SLW RDWRD SAVE RETURN WORD FROM 'RDFLXA' 00044 CALL COMCHK(SEND) CHECK FOR I/C MESSAGE 00044 0074 00 4 00302 TSX COMCHK,4 .002 00045 3 00000 0 00051 PAR SEND .004 00046 CALL RECMES(READIN) INTERCONSOLE, RECEIVE THE MESSAGE 00046 0074 00 4 00057 TSX RECMES,4 .002 00047 3 00000 0 00041 PAR READIN .004 00050 0020 00 0 00037 TRA LOOP .. 00051 SEND CALL INPUT(READIN) PROCESS CONSOLE INPUT 00051 0074 00 4 00135 TSX INPUT,4 .002 00052 3 00000 0 00041 PAR READIN .004 00053 0601 00 0 02177 STO CHRCNT SAVE NO. OF CHARACTERS READ 00054 CALL SNDMES(CHRCNT) SEND OUT THE MESSAGE 00054 0074 00 4 00177 TSX SNDMES,4 .002 00055 3 00000 0 02177 PAR CHRCNT .004 00056 0020 00 0 00037 TRA LOOP .. 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 4 RECMES - RECEIVE I/C MESSAGE. 00057 0634 00 4 00102 RECMES SXA RECX4,4 SAVE XR4 00060 0534 00 2 02175 LXA INCHR,2 INPUT CHARACTER INDEX 00061 0774 00 4 00014 AXT ICWDS,4 NO. OF WORDS IN TBUFF 00062 0560 00 4 00446 LDQ.R LDQ TBUFF+WDSLIN,4 PICK UP WORD 00063 0774 00 1 00044 AXT 36,1 .. 00064 -0754 00 0 00000 ZAC.R ZAC .. 00065 -0763 00 0 00011 LGL ABITS EXTRACT CHARACTER 00066 -0340 00 0 00425 LAS C.EOT CHECK FOR EOT CHARACTER 00067 0020 00 0 00071 TRA *+2 .. 00070 0020 00 0 00104 TRA EOT.R END OF THIS MESSAGE 00071 1 00001 2 00072 TXI *+1,2,1 STEP INDEX 00072 0602 00 2 02004 SLW AIBUFF,2 AND DEPOSIT CHARACTER 00073 0322 00 0 00424 ERA C.ETX CHECK FOR 'ETX' CHARACTER 00074 -0100 00 0 00076 TNZ *+2 .. 00075 -0625 00 0 00417 STL ETXSW. SET 'ETX' SWITCH 00076 3 00547 2 00104 TXH EOT.R,2,N.IN-1 TEST FOR BUFFER OVERFLOW 00077 2 00011 1 00064 TIX ZAC.R,1,ABITS LOOP 00100 2 00001 4 00062 TIX LDQ.R,4,1 .. 00101 0634 00 2 02175 SXA INCHR,2 SAVE INPUT INDEX 00102 0774 00 4 00000 RECX4 AXT **,4 RESTORE XR4 00103 0020 60 4 00001 TRA* 1,4 TAKE INCOMPLETE MESSAGE RETURN 00104 0634 00 2 02175 EOT.R SXA INCHR,2 SAVE INPUT INDEX 00105 CALL $TYPOUT(AIBUFF,INCHR) TYPE OUT LINE 00105 0074 00 4 00001 TSX $TYPOUT,4 .002 00106 3 00000 0 02004 PAR AIBUFF .004 00107 3 00000 0 02175 PAR INCHR .004 00110 0600 00 0 02175 STZ INCHR RESET INPUT INDEX 00111 0522 00 0 00102 XEC RECX4 RESTORE XR4 00112 0020 00 4 00002 TRA 2,4 AND TAKE NORMAL RETURN 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 5 PRWORD/PRBUFF - TYPEWRITER OUTPUT BUFFERING ROUTINES. 00113 0634 00 4 00121 PRWORD SXA PRWX4,4 SAVE XR4 00114 -0500 60 4 00001 CAL* 1,4 PICK UP OUTPUT WORD 00115 0774 00 4 00034 PRINDX AXT 2*WDSLIN,4 BUFFER INDEX 00116 0602 00 4 00464 SLW TBUFF+2*WDSLIN,4 STORE WORD 00117 -2 00001 4 00130 TNX PRW,4,1 CHECK FOR FULL BUFFER 00120 0634 00 4 00115 SXA PRINDX,4 SAVE INDEX 00121 0774 00 4 00000 PRWX4 AXT **,4 RESTORE XR4 00122 0020 00 4 00002 TRA 2,4 AND RETURN 00123 1 00001 4 00124 PRBUFF TXI *+1,4,1 ADJUST XR4 00124 0634 00 4 00121 SXA PRWX4,4 AND SAVE IT 00125 0535 00 4 00115 LAC PRINDX,4 PICK UP PRINT INDEX 00126 1 00034 4 00127 TXI *+1,4,2*WDSLIN CALCULATE SIZE OF BUFFER 00127 -0634 00 4 00131 SXD PRW+1,4 AND SET UP CALL TO WRFLXA 00130 PRW CALL WRFLXA((TBUFF,,2*WDSLIN)) PRINT THE LINE 00130 0074 00 4 02205 TSX WRFLXA,4 .002 00131 3 00034 0 00430 PAR TBUFF,,2*WDSLIN .004 00132 0774 00 4 00034 AXT 2*WDSLIN,4 RESET BUFFER POINTER 00133 -0634 00 4 00131 SXD PRW+1,4 .. 00134 0020 00 0 00120 TRA PRWX4-1 AND RETURN 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 6 INPUT - READ CONSOLE AND CONVERT TO ASCII. 00135 0634 00 4 00151 INPUT SXA INX4,4 SAVE XR4 00136 0774 00 2 00000 INDEX AXT 0,2 INPUT WORD INDEX 00137 0774 00 4 00016 AXT WDSLIN,4 TBUFF INDEX 00140 -0500 00 4 00446 CAL.I CAL TBUFF+WDSLIN,4 PICK UP WORD 00141 1 00001 2 00142 TXI *+1,2,1 STEP INPUT INDEX 00142 0602 00 2 02174 SLW INBUFF,2 DEPOSIT WORD 00143 3 00167 2 00153 TXH FULLIN,2,INSIZE-1 CHECK FOR OVERFLOW 00144 2 00001 4 00140 TIX CAL.I,4,1 LOOP 00145 0441 00 0 00416 LDI RDWRD PICK UP RDFLXA RETURN WORD 00146 0056 00 040000 RNT 40000 TEST FOR BREAK 00147 0020 00 0 00153 TRA FULLIN BREAK FOUND, CONVERT INPUT 00150 0634 00 2 00136 SXA INDEX,2 SAVE INDEX 00151 0774 00 4 00000 INX4 AXT **,4 RESTORE XR4 00152 0020 60 4 00001 TRA* 1,4 TAKE INCOMPLETE RETURN 00153 0634 00 0 00136 FULLIN ZSA INDEX RESET INDICES 00154 0634 00 0 00171 ZSA TYNDX .. 00155 CALL $TYPEIN(AOBUFF,OUTCHR) CONVERT TO ASCII 00155 0074 00 4 00002 TSX $TYPEIN,4 .002 00156 3 00000 0 01234 PAR AOBUFF .004 00157 3 00000 0 02176 PAR OUTCHR .004 00160 0734 00 2 00000 PAX ,2 LENGTH OF LINE IN XR2 00161 -0500 00 0 00425 CAL C.EOT SET LAST CHARACTER TO 'EOT' 00162 1 00001 2 00163 TXI *+1,2,1 .. 00163 0602 00 2 01234 SLW AOBUFF,2 .. 00164 0754 00 2 00000 PXA ,2 CORRECT COUNT IN AC 00165 0522 00 0 00151 XEC INX4 RESTORE XR4 00166 0020 00 4 00002 TRA 2,4 AND TAKE NORMAL RETURN 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 7 TYLINE/TYWORD - TYPEWRITER INPUT SUPPLY ROUTINES. 00167 0020 00 4 00001 TYLINE TRA 1,4 JUST RETURN 00170 0634 00 4 00175 TYWORD SXA TYX4,4 SAVE XR4 00171 0774 00 4 00000 TYNDX AXT 0,4 PICK UP SUPPLY INDEX 00172 1 00001 4 00173 TXI *+1,4,1 STEP INDEX 00173 0500 00 4 02174 CLA INBUFF,4 PICK UP WORD 00174 0634 00 4 00171 SXA TYNDX,4 AND SAVE IT 00175 0774 00 4 00000 TYX4 AXT **,4 RESTORE XR4 00176 0020 00 4 00001 TRA 1,4 AND RETURN WITH WORD 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 8 SNDMES - PACK ASCII MESSAG AND SEND IT OUT. 00177 0634 00 4 00235 SNDMES SXA SNDX4,4 SAVE XR4 00200 -0500 60 4 00001 CAL* 1,4 PICK UP CHARACTER COUNT 00201 0734 00 2 00000 PAX ,2 AND SET 'TXH' INSTRUCTION 00202 -0634 00 2 00220 SXD TXH.O,2 .. 00203 0774 00 2 00001 AXT 1,2 UNPACKED BUFFER INDEX 00204 0774 00 4 00014 NXT.O AXT ICWDS,4 PACKED BUFFER INDEX 00205 0774 00 1 00044 AXT 36,1 SHIFT INDEX 00206 0560 00 2 01234 LDQ.O LDQ AOBUFF,2 PICK UP CHARACTER 00207 -0773 00 0 00033 RQL 36-ABITS LEFT-JUSTIFY 00210 -0500 00 4 00444 CAL TBUFF+ICWDS,4 PICK UP PARTIAL PACKED WORD 00211 -0763 00 0 00011 LGL ABITS PACK 00212 0602 00 4 00444 SLW TBUFF+ICWDS,4 AND STORE 00213 -0320 00 0 02250 ANA =O777 MASK RIGHT-MOST CHARACTER 00214 0322 00 0 00424 ERA C.ETX TEST FOR 'ETX' CHARACTER 00215 -0100 00 0 00217 TNZ *+2 .. 00216 -0625 00 0 00417 STL ETXSW. SET 'ETX' SWITCH 00217 1 00001 2 00220 TXI *+1,2,1 STEP INDEX 00220 3 00000 2 00226 TXH.O TXH END.O,2,** TEST FOR COMPLETION 00221 2 00011 1 00206 TIX LDQ.O,1,ABITS NEXT CHARACTER 00222 2 00001 4 00205 TIX NXT.O+1,4,1 START NEW WORD 00223 CALL WRITE(CHNXIT) SEND OUT BUFFER 00223 0074 00 4 00237 TSX WRITE,4 .002 00224 3 00000 0 00401 PAR CHNXIT .004 00225 0020 00 0 00204 TRA NXT.O AND GO BACK FOR MORE 00226 -0500 00 4 00444 END.O CAL TBUFF+ICWDS,4 PICK UP LAST WORD 00227 -2 00011 1 00232 TNX *+3,1,ABITS LEFT-JUSTIFY 00230 -0763 00 0 00011 LGL ABITS .. 00231 0020 00 0 00227 TRA *-2 .. 00232 0602 00 4 00444 SLW TBUFF+ICWDS,4 AND STORE 00233 CALL WRITE(CHNXIT) WRITE OUT LAST BUFFER FULL 00233 0074 00 4 00237 TSX WRITE,4 .002 00234 3 00000 0 00401 PAR CHNXIT .004 00235 0774 00 4 00000 SNDX4 AXT **,4 RESTORE XR4 00236 0020 00 4 00001 TRA 1,4 AND RETURN 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 9 WRITE - CALL WRMESS TO SEND MESSAGE. 00237 0634 00 4 00257 WRITE SXA WRX4,4 SAVE XR4 00240 -0500 00 4 00001 CAL 1,4 GET ERROR RETURN 00241 0621 00 0 00301 STA WERRET AND SET IT 00242 0600 00 0 00420 STZ FULL. RESET BUFFER FULL INDIC. 00243 WRM CALL WRMESS(WPROB,WPROG(TBUFF,,ICWDS)) SEND THE MESSAGE 00243 0074 00 4 02206 TSX WRMESS,4 .002 00244 3 00000 0 00414 PAR WPROB .004 00245 3 00000 0 00415 PAR WPROG .004 00246 3 00014 0 00430 PAR TBUFF,,ICWDS .004 00247 0734 00 4 00000 PAX ,4 RETURN CODE IN XR4 00250 0020 00 4 00254 TRA WERROR,4 DISPATCH ON RETURN CODE 00251 0020 00 0 00277 TRA WERR3 PERMISSION DENIED 00252 0020 00 0 00270 TRA WERR2 BUFFER FULL 00253 0020 00 0 00261 TRA WERR1 USER NOT LOGGED IN 00254 WERROR SYN * 00254 0520 00 0 00420 ZET FULL. CHECK FOR BUFFER OVERFLOW 00255 COMENT CONTIN,6(0P1L1E1A1S1E0 1C1O1N1T1I1N1U1E0.) 00255 0074 00 4 02207 TSX WRFLX,4 .003 00256 3 00006 0 02210 PAR CONTIN,,6 .005 00257 0774 00 4 00000 WRX4 AXT **,4 RESTORE XR4 00260 0020 00 4 00002 TRA 2,4 AND RETURN 00261 WERR1 CALL SETBCD INTO 6-BIT MODE 00261 0074 00 4 02216 TSX SETBCD,4 .002 00262 CALL WRFLXA((WPROB,,2)) PRINT PROBN AND PROGN 00262 0074 00 4 02205 TSX WRFLXA,4 .002 00263 3 00002 0 00414 PAR WPROB,,2 .004 00264 CALL SETFUL .. 00264 0074 00 4 02203 TSX SETFUL,4 .002 00265 COMENT NOLOG,6(0 1I1S0 1N1O1T0 1L1O1G1G1E1D0 1I1N0.) 00265 0074 00 4 02207 TSX WRFLX,4 .003 00266 3 00006 0 02217 PAR NOLOG,,6 .005 00267 0020 00 0 00301 TRA WERRET .. 00270 -0520 00 0 00420 WERR2 NZT FULL. CHECK FOR BUFFER ALREADY FULL 00271 COMENT STOP,7(0P1L1E1A1S1E0 1S1T1O1P0 1T1Y1P1I1N1G0.) 00271 0074 00 4 02207 TSX WRFLX,4 .003 00272 3 00007 0 02225 PAR STOP,,7 .005 00273 -0625 00 0 00420 STL FULL. SET FULL INDIC. 00274 -0500 00 0 02247 CAL =1 GET OUT OF CORE AND SLEEP 00275 CALL SLEEP .. 00275 0074 00 4 02234 TSX SLEEP,4 .002 00276 0020 00 0 00243 TRA WRM GO TRY TO WRITE AGAIN 00277 WERR3 COMENT DENY,6(OP1E1R1M1I1S1S1I1O1N0 1D1E1N1I1E1D0.) 00277 0074 00 4 02207 TSX WRFLX,4 .003 00300 3 00006 0 02235 PAR DENY,,6 .005 00301 0020 00 0 00000 WERRET TRA ** TAKE ERROR RETURN 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 10 INTERCONSOLE UTILITY ROUTINES. 00302 0441 00 0 00430 COMCHK LDI TBUFF PICK UP FIRST WORD OF MESSAGE 00303 -0056 00 770000 LNT 770000 TEST FOR '77' CHARACTER 00304 0020 60 4 00001 TRA* 1,4 ERROR RETURN IF NOT INTERCONSOLE 00305 0020 00 4 00002 TRA 2,4 NORMAL RETURN 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 11 REST - SLEEPING PROGRAM. 00306 REST CALL GETCOM(2) PICK UP SLEEPING PARAMETER 00306 0074 00 4 02201 TSX GETCOM,4 .002 00307 3 00000 0 00002 PAR 2 .004 00310 0602 00 0 00422 SLW NOISE. .. 00311 CALL GETCOM(3) GET ALLOWED PROBLEM NO. 00311 0074 00 4 02201 TSX GETCOM,4 .002 00312 3 00000 0 00003 PAR 3 .004 00313 0602 00 0 00411 SLW PROB .. 00314 CALL GETCOM(4) AND ALLOWED PROGRAMMER NO. 00314 0074 00 4 02201 TSX GETCOM,4 .002 00315 3 00000 0 00004 PAR 4 .004 00316 0602 00 0 00412 SLW PROG .. 00317 -0625 00 0 00421 STL NAP. SET INTERCONSOLE SLEEP INDIC. 00320 CALL ALLOW(PROB,PROG) ALLOW COMMUNICATION 00320 0074 00 4 02202 TSX ALLOW,4 .002 00321 3 00000 0 00411 PAR PROB .004 00322 3 00000 0 00412 PAR PROG .004 00323 CALL UPDATE NOW IS A GOOD TIME TO UPDATE U.F.D. 00323 0074 00 4 02243 TSX UPDATE,4 .002 00324 -0520 00 0 00422 RSLOOP NZT NOISE. CHECK FOR SLEEP PRINT 00325 CALL PTIME GO PRINT TIME COMMENT 00325 0074 00 4 00354 TSX PTIME,4 .002 00326 -0500 00 0 00374 BKTOSL CAL SLTIME GET TIME FOR SLEEPING 00327 CALL SLEEP AND GO TO SLEEP 00327 0074 00 4 02234 TSX SLEEP,4 .002 00330 CALL RDMESS((TBUFF,,WDSLIN)) CHECK FOR INPUT 00330 0074 00 4 02244 TSX RDMESS,4 .002 00331 3 00016 0 00430 PAR TBUFF,,WDSLIN .004 00332 0020 00 0 00324 TRA RSLOOP IF NONE, BACK TO SLEEP 00333 CALL COMCHK(BKTOSL) CHECK FOR INTERCONSOLE MESSAGE 00333 0074 00 4 00302 TSX COMCHK,4 .002 00334 3 00000 0 00326 PAR BKTOSL .004 00335 -0500 00 0 00430 CAL TBUFF PICK UP PROBLEM NO. OF SENDER 00336 0322 00 0 02251 ERA =O170000000000 RESET THE '77' BITS 00337 0602 00 0 00414 SLW WPROB .. 00340 -0500 00 0 00431 CAL TBUFF+1 PROGRAMMER NO. OF SENDER 00341 0602 00 0 00415 SLW WPROG .. 00342 CALL WRFLX((FROM,,3)) IDENTIFY SENDER 00342 0074 00 4 02207 TSX WRFLX,4 .002 00343 3 00003 0 00413 PAR FROM,,3 .004 00344 CALL ALLOW(WPROB,WPROG) ALLOW THE SENDER ONLY 00344 0074 00 4 02202 TSX ALLOW,4 .002 00345 3 00000 0 00414 PAR WPROB .004 00346 3 00000 0 00415 PAR WPROG .004 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 12 REST - SLEEPING PROGRAM. 00347 0020 00 0 00032 TRA BEGIN AND BEGIN COMMUNICATIONS 00350 NAPXIT CALL ALLOW(PROB,PROG) ALLOW REQUESTED USERS 00350 0074 00 4 02202 TSX ALLOW,4 .002 00351 3 00000 0 00411 PAR PROB .004 00352 3 00000 0 00412 PAR PROG .004 00353 0020 00 0 00326 TRA BKTOSL AND GO BACK TO SLEEP 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 13 PTIME - PRINT SLEEP TIME FOR USER. 00354 0634 00 4 00365 PTIME SXA PTX4,4 SAVE XR4 00355 0634 00 2 00364 SXA PTX2,2 AND XR2 00356 CALL WRFLX((COMNT,,2)) PRINT SLEEP MESSAGE 00356 0074 00 4 02207 TSX WRFLX,4 .002 00357 3 00002 0 00372 PAR COMNT,,2 .004 00360 0534 00 4 00373 LXA COMNT+1,4 PICK UP TIME 00361 1 00100 4 00362 TXI *+1,4,DMIN INCREASE MINUTES 00362 3 50500 4 00367 TXH HRS,4,MAXMIN CHECK FOR OVERFLOW 00363 0634 00 4 00373 NEWTIM SXA COMNT+1,4 SAVE NEW MINUTES 00364 0774 00 2 00000 PTX2 AXT **,2 RESTORE XRS 00365 0774 00 4 00000 PTX4 AXT **,4 .. 00366 0020 00 4 00001 TRA 1,4 AND RETURN 00367 -0534 00 2 00373 HRS LXD COMNT+1,2 PICK UP HOURS PART OF TIME 00370 1 00001 2 00371 TXI *+1,2,1 INCREASE BY 1 00371 1 77200 4 00363 TXI NEWTIM,4,-6*DMIN SET MINUTES BACK TO ZERO 000100 DMIN BOOL 100 050500 MAXMIN BOOL 50500 00372 636023462425 COMNT VFD H6/T,O6/60,H24/CODE,O24/60600035 00373 606000350000 00374 0 00000 0 01130 SLTIME PZE 60*10 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 14 EXIT FROM I/C ROUTINES. 00375 BRKXIT SYN * 00375 -0500 00 0 00427 CAL ETXMSG GET ETX MESSAGE 00376 0602 00 0 00430 SLW TBUFF AND PLACE IN BUFFER 00377 CALL WRITE(CHNXIT) SEND OUT MESSAGE 00377 0074 00 4 00237 TSX WRITE,4 .002 00400 3 00000 0 00401 PAR CHNXIT .004 00401 CHNXIT CALL FORBID FORBID ALL COMMUNICATION 00401 0074 00 4 02245 TSX FORBID,4 .002 00402 CALL SETBCD AND RETURN TO 6-BIT MODE 00402 0074 00 4 02216 TSX SETBCD,4 .002 00403 CALL WRFLX((*,,0)) PRINT A SINGLE C.R. 00403 0074 00 4 02207 TSX WRFLX,4 .002 00404 3 00000 0 00404 PAR *,,0 .004 00405 0520 00 0 00421 ZET NAP. CHECK FOR SLEEPING 00406 0020 00 0 00350 TRA NAPXIT YES, GO BACK TO SLEEP 00407 CALL CHNCOM(0) EXIT TO CHNCOM 00407 0074 00 4 02246 TSX CHNCOM,4 .002 00410 3 00000 0 00000 PAR 0 .004 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 15 STORAGE AND CONSTANTS. 00411 0 00000 0 00000 PROB PZE 00412 0 00000 0 00000 PROG PZE 00413 602651464460 FROM BCI 1, FROM 00414 0 00000 0 00000 WPROB PZE 00415 0 00000 0 00000 WPROG PZE 00416 0 00000 0 00000 RDWRD PZE 00417 0 00000 0 00000 ETXSW. PZE 00420 0 00000 0 00000 FULL. PZE 00421 0 00000 0 00000 NAP. PZE 00422 0 00000 0 00000 NOISE. PZE 00423 0 00000 0 00004 N.ACHR PZE ACHR 000003 ETX BOOL 003 000004 EOT BOOL 004 000012 NL BOOL 012 00424 000000000003 C.ETX VFD O36/ETX 00425 000000000004 C.EOT VFD O36/EOT 00426 012004000000 BGNMSG VFD O9/NL,O9/EOT 00427 003004000000 ETXMSG VFD O9/ETX,O9/EOT 00430 TBUFF BSS 2*WDSLIN 01234 AOBUFF BES N.OUT 02004 AIBUFF BES N.IN 02174 BES INSIZE 02174 INBUFF BSS 1 02175 0 00000 0 00000 INCHR PZE 02176 0 00000 0 00550 OUTCHR PZE N.OUT 02177 0 00000 0 00000 CHRCNT PZE 02200 RMT * 02200 0101 00 0 02261 SETBRK TIA =HSETBRK .002 02201 0101 00 0 02255 GETCOM TIA =HGETCOM .002 02202 0101 00 0 02252 ALLOW TIA =HALLOW .002 02203 0101 00 0 02262 SETFUL TIA =HSETFUL .002 02204 0101 00 0 02256 RDFLXA TIA =HRDFLXA .002 02205 0101 00 0 02265 WRFLXA TIA =HWRFLXA .002 02206 0101 00 0 02267 WRMESS TIA =HWRMESS .002 02207 0101 00 0 02266 WRFLX TIA =HWRFLX .002 02210 004701430125 CONTIN BCI 6,0P1L1E1A1S1E0 1C1O1N1T1I1N1U1E0. .002 02211 012101620125 02212 006001230146 02213 014501630131 02214 014501640125 02215 003360606060 02216 0101 00 0 02260 SETBCD TIA =HSETBCD .002 02217 006001310162 NOLOG BCI 6,0 1I1S0 1N1O1T0 1L1O1G1G1E1D0 1I1N0. .002 02220 006001450146 02221 016300600143 02222 014601270127 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 16 STORAGE AND CONSTANTS. 02223 012501240060 02224 013101450033 02225 004701430125 STOP BCI 7,0P1L1E1A1S1E0 1S1T1O1P0 1T1Y1P1I1N1G0. .002 02226 012101620125 02227 006001620163 02230 014601470060 02231 016301700147 02232 013101450127 02233 003360606060 02234 0101 00 0 02263 SLEEP TIA =HSLEEP .002 02235 464701250151 DENY BCI 6,OP1E1R1M1I1S1S1I1O1N0 1D1E1N1I1E1D0. .002 02236 014401310162 02237 016201310146 02240 014500600124 02241 012501450131 02242 012501240033 02243 0101 00 0 02264 UPDATE TIA =HUPDATE .002 02244 0101 00 0 02257 RDMESS TIA =HRDMESS .002 02245 0101 00 0 02254 FORBID TIA =HFORBID .002 02246 0101 00 0 02253 CHNCOM TIA =HCHNCOM .002 END LITERALS 02247 000000000001 02250 000000000777 02251 170000000000 02252 214343466660 02253 233045234644 02254 264651223124 02255 272563234644 02256 512426436721 02257 512444256262 02260 622563222324 02261 622563225142 02262 622563266443 02263 624325254760 02264 644724216325 02265 665126436721 02266 665126436760 02267 665144256262 02270 745125626334 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 1 POST PROCESSOR ASSEMBLY DATA 2271 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 12 NL 424, 426 4 EOT 424, 425, 426, 427 3 ETX 424, 427 367 HRS 362 130 PRW 117, 127, 133 243 WRM 276 4 ACHR 5, 423 3 CCHR 5 2235 DENY 300 100 DMIN 361, 371, 372 413 FROM 343 151 INX4 135, 165 37 LOOP 50, 56 421 NAP. 317, 405 550 N.IN 5, 76, 1234 411 PROB 12, 16, 24, 26, 313, 321, 351 412 PROG 22, 25, 30, 316, 322, 352 364 PTX2 355 365 PTX4 354 306 REST 14 51 SEND 45 2225 STOP 272 175 TYX4 170 257 WRX4 237 11 ABITS 5, 65, 77, 207, 211, 221, 227, 230 2202 ALLOW 23, 320, 344, 350 32 BEGIN 347 140 CAL.I 144 14 CBITS 5 425 C.EOT 66, 161 424 C.ETX 73, 214 372 COMNT 357, 360, 363, 367 226 END.O 220 104 EOT.R 70, 76 420 FULL. 242, 254, 270, 273 14 ICWDS 5, 61, 204, 210, 212, 226, 232, 246 2175 INCHR 60, 101, 104, 107, 110 136 INDEX 150, 153 135 INPUT 51 206 LDQ.O 221 62 LDQ.R 100 550 N.OUT 5, 464, 2176 2217 NOLOG 266 204 NXT.O 222, 225 121 PRWX4 113, 124, 134 354 PTIME 325 416 RDWRD 43, 145 102 RECX4 57, 111 2234 SLEEP 275, 327 235 SNDX4 177 430 TBUFF 34, 42, 62, 116, 131, 140, 210, 212, 226, 232, 246, 302, 331, 335, 340, 376 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 2 POST PROCESSOR ASSEMBLY DATA 220 TXH.O 202 171 TYNDX 154, 174 261 WERR1 253 270 WERR2 252 277 WERR3 251 414 WPROB 27, 244, 263, 337, 345 415 WPROG 31, 245, 341, 346 2207 WRFLX 255, 265, 271, 277, 342, 356, 403 237 WRITE 35, 223, 233, 377 64 ZAC.R 77 2004 AIBUFF 72, 106 1234 AOBUFF 156, 163, 206 426 BGNMSG 33 326 BKTOSL 334, 353 375 BRKXIT 7, 375 2246 CHNCOM 407 401 CHNXIT 17, 36, 40, 224, 234, 400 2177 CHRCNT 53, 55 302 COMCHK 44, 333 2210 CONTIN 256 427 ETXMSG 375 417 ETXSW. 37, 75, 216 2245 FORBID 401 153 FULLIN 143, 147 2201 GETCOM 10, 20, 306, 311, 314 0 GTPROB 15 2174 INBUFF 142, 173 170 INSIZE 5, 143, 2004 50500 MAXMIN 362, 372 350 NAPXIT 406 363 NEWTIM 371 423 N.ACHR 422 NOISE. 310, 324 2176 OUTCHR 157 123 PRBUFF 0 115 PRINDX 120, 125 113 PRWORD 0 2204 RDFLXA 41 2244 RDMESS 330 41 READIN 47, 52 57 RECMES 46 324 RSLOOP 332 2216 SETBCD 261, 402 2200 SETBRK 6 2203 SETFUL 32, 264 374 SLTIME 326 177 SNDMES 54 167 TYLINE 0 2 TYPEIN 155 1 TYPOUT 105 170 TYWORD 0 2243 UPDATE 323 16 WDSLIN 5, 42, 62, 115, 116, 126, 131, 132, 137, 140, 331, 430 301 WERRET 241, 267 254 WERROR 250, 254 1 ASCII INTERCONSOLE COMMUNICATIONS ROUTINES. 05/12/69 1724.0 PAGE 3 POST PROCESSOR ASSEMBLY DATA 2205 WRFLXA 130, 262 2206 WRMESS 243 0 NO ERROR IN ABOVE ASSEMBLY. 1 GTPROB - GET PROBLEM NUMBER FOR LOGIN COMMAND. 05/12/69 1728.5 PAGE 1 2/19/66 - NOEL I. MORRIS * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * CALLING SEQUENCE - * * GTPROB. (PROBN, ERR) * * PROBN - CONTAINS UNCONVERTED PROBLEM NUMBER. AT COMPLETION * OF CONVERSION, IT WILL CONTAIN CONVERTED PROBLEM NUMBER. * ERR - ERROR LOCATION FOR ILLEGAL PROBLEM NUMBER. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * UNLIST M CALL MACRO SUBR,LIST 00000 ENTRY GTPROB 00000 0634 00 2 00034 GTPROB SXA GTPX,2 SAVE XR2 00001 0560 60 4 00001 LDQ* 1,4 GET UNCONVERTED PROBLEM NUMBER 00002 -0600 00 0 00037 STQ BAD SAVE FOR ERROR COMMENT 00003 0774 00 2 00036 AXT 30,2 EXTRACT THE LETTER 00004 -0754 00 0 00000 PBLOOP ZAC .. 00005 -0763 00 0 00006 LGL 6 .. 00006 -0340 00 0 00044 LAS =H00000 CHECK FOR NON-BLANK 00007 0020 00 0 00021 TRA FCHAR NON-BLANK FOUND 00010 0020 00 0 00012 TRA *+2 .. 00011 0020 00 0 00021 TRA FCHAR .. 00012 2 00006 2 00004 TIX PBLOOP,2,6 .. 00013 0634 00 4 00016 ERR SXA SVX4,4 SAVE XR4 00014 COMENT BAD,5( IS NOT A PROBLEM NUMBER) 00014 0074 00 4 00036 TSX WRFLX,4 .003 00015 3 00005 0 00037 PAR BAD,,5 .005 00016 0774 00 4 00000 SVX4 AXT **,4 RESTORE XR4 00017 0522 00 0 00034 XEC GTPX RESTORE XR2 00020 0020 60 4 00002 TRA* 2,4 ERROR RETURN 00021 0767 00 0 00030 FCHAR ALS 24 SHIFT TO CORRECT POSITION 00022 -0501 00 0 00046 ORA =H 00000 AND OR IN PRECEDING BLANK 00023 0602 60 4 00001 SLW* 1,4 SAVE THIS PART 00024 -0320 00 0 00045 ANA =H0 0000 MUST BE NON-NUMERIC 00025 0100 00 0 00013 TZE ERR .. 00026 -0754 00 0 00000 ZAC .. 00027 -0765 00 2 00044 LGR 36,2 RIGHT-JUSTIFY REMAINING CHARACTERS 00030 -0130 00 0 00000 XCL .. 00031 -0602 60 4 00001 ORS* 1,4 OR INTO PROBLEM NUMBER 00032 -0320 00 0 00050 ANA =O777760606060 MUST BE NUMERIC 1 GTPROB - GET PROBLEM NUMBER FOR LOGIN COMMAND. 05/12/69 1728.5 PAGE 2 00033 -0100 00 0 00013 TNZ ERR .. 00034 0774 00 2 00000 GTPX AXT **,2 RESTORE XR2 00035 0020 00 4 00003 TRA 3,4 RETURN 00036 RMT * REMOTE SEQUENCES. 00036 0101 00 0 00047 WRFLX TIA =HWRFLX .002 00037 606060606060 BAD BCI 5, IS NOT A PROBLEM NUMBER .002 00040 603162604546 00041 636021604751 00042 462243254460 00043 456444222551 END LITERALS 00044 000000000060 00045 006000000000 00046 600000000000 00047 665126436760 00050 777760606060 1 GTPROB - GET PROBLEM NUMBER FOR LOGIN COMMAND. 05/12/69 1728.5 PAGE 1 POST PROCESSOR ASSEMBLY DATA 51 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 37 BAD 2, 15 13 ERR 25, 33 34 GTPX 0, 17 16 SVX4 13 21 FCHAR 7, 11 36 WRFLX 14 0 GTPROB 0 4 PBLOOP 12 0 NO ERROR IN ABOVE ASSEMBLY. XPAND BCD 09/18/68 2339.1 35076 00000 1 MAD PROGRAM LISTING ... ... ... FILE XPAND MAD 04/23/68 2141.2 - .. ROUTINE TO UNTAB AND FIX LINEMARKED FILE. LM00001 .. J. H. SALTZER, FEBRUARY, 1965. LM00002 .. MODIFIED BY S. SCHAFFNER 6-17-67 LM00003 .. MODIFIED BY J. BIXBY 4-22-68 TO USE (INPUT PROG LM00004 .. INSTEAD OF (INPUT FILE) LM00005 LM00006 NORMAL MODE IS INTEGER *001 LM00007 FUNCTION NAME DETAB, MAD *002 LM00008 BOOLEAN TRSW *003 LM00009 DIMENSION CARD(100),TEMNAM(1) *004 LM00010 VECTOR VALUES BCKSPS = 35K *005 LM00011 VECTOR VALUES FENCE = 777777777777K *006 LM00012 VECTOR VALUES TAB = 072K *007 LM00013 VECTOR VALUES BLANK = 60K *008 LM00014 LM00015 WHOAMI.(TEMNAM(1)...2) *009 LM00016 OLDNAM = COMARG.(1) *010 LM00017 WHENEVER OLDNAM .E. FENCE, TRANSFER TO BADARG *011 LM00018 OLDSEC = COMARG.(2) *012 LM00019 WHENEVER OLDSEC .E. FENCE, TRANSFER TO BADARG *013 LM00020 NEWNAM = COMARG.(3) *014 LM00021 WHENEVER NEWNAM .E. FENCE *015 LM00022 NEWNAM = OLDNAM *016 LM00023 NEWSEC = OLDSEC *017 LM00024 TRANSFER TO SKP4 *018 LM00025 END OF CONDITIONAL *019 LM00026 NEWSEC = COMARG.(4) *020 LM00027 WHENEVER NEWSEC .E. FENCE, NEWSEC = OLDSEC *021 LM00028 SKP4 WHENEVER NEWSEC .E. $ FAP$ *022 LM00029 DETAB = FAP. *023 LM00030 OR WHENEVER NEWSEC .E. $ MAD$ *024 LM00031 DETAB = MAD. *025 LM00032 OR WHENEVER OLDSEC .E. $ FAP$ *026 LM00033 DETAB = FAP. *027 LM00034 OR WHENEVER OLDSEC .E. $ MAD$ *028 LM00035 DETAB = MAD. *029 LM00036 OTHERWISE *030 LM00037 DETAB = STRIP. *031 LM00038 END OF CONDITIONAL *032 LM00039 LM00040 SEEK.(OLDNAM, OLDSEC, CHN) *033 LM00041 CLRNAM.($(INPUT$, TEMNAM, CHN, 1B) *034 LM00042 ASSIGN.($(INPUT$, TEMNAM) *035 LM00043 COUNT = 0 *036 LM00044 LOOP END = READ.(CARD, 100, EOF) *037 LM00045 COUNT = COUNT + 1 *038 LM00046 TRSW = 0B *039 LM00047 END = END-1 *040 LM00048 DETAB(0). *041 LM00049 WRCARD.(CARD, END) *042 LM00050 WHENEVER TRSW *043 LM00051 PRINT COMMENT $0T1H1I1S0 1C1A1R1D0 0T0R0U0N0C0A0T0E0D0:$ *044 LM00052 TYPOUT.(CARD, 72) *045 LM00053 PRBUFF. *046 LM00054 END OF CONDITIONAL *047 LM00055 TRANSFER TO LOOP *048 LM00056 EOF FILE. *049 LM00057 CLRNAM.(NEWNAM, NEWSEC, COM, 1B) *050 LM00058 RENAME.($(INPUT$, TEMNAM, NEWNAM, NEWSEC) *051 LM00059 CHN SETBCD. *052 LM00060 PRINT COMMENT $ *$ *053 LM00061 CHNCOM. *054 LM00062 LM00063 COM SETBCD. *055 LM00064 PRMESS.($NEW FI$,$LE NAM$,$E IS ($,$INPUT $,TEMNAM) *056 LM00065 TRANSFER TO CHN *057 LM00066 LM00067 BADARG PRINT COMMENT $0N1O1T0 1E1N1O1U1G1H0 1A1R1G1U1M1E1N1T1S0.$ *058 LM00068 TRANSFER TO CHN *059 LM00069 LM00070 INTERNAL FUNCTION *060 LM00071 ENTRY TO STRIP. *061 LM00072 FUNCTION RETURN *062 LM00073 END OF FUNCTION *063 LM00074 LM00075 INTERNAL FUNCTION(TSTOP) *064 LM00076 ENTRY TO OUTTAB. *065 LM00077 FINDTB THROUGH FINDTB, FOR Q = 1, 1, Q .GE. TSTOP *066 LM00078 1 .OR. CARD(Q) .E. TAB .OR. Q .G. END *066 LM00079 WHENEVER Q .GE. TSTOP .OR. Q .G. END, FUNCTION RETURN *067 LM00080 DEL = TSTOP - Q - 1 *068 LM00081 THROUGH MVCD, FOR J = END, -1, J .LE. Q *069 LM00082 MVCD WHENEVER J + DEL .LE. 100, CARD(J+DEL) = CARD(J) *070 LM00083 THROUGH PKBK, FOR Q = Q, 1, Q .GE. TSTOP *071 LM00084 PKBK CARD(Q) = BLANK *072 LM00085 WHENEVER END + DEL .G. 100 *073 LM00086 END = 100 *074 LM00087 OTHERWISE *075 LM00088 END = END + DEL *076 LM00089 END OF CONDITIONAL *077 LM00090 FUNCTION RETURN *078 LM00091 END OF FUNCTION *079 LM00092 LM00093 INTERNAL FUNCTION *080 LM00094 ENTRY TO SERIAL. *081 LM00095 WHENEVER END .G. 72 *082 LM00096 TRSW = 1B *083 LM00097 END = 72 *084 LM00098 END OF CONDITIOANL *085 LM00099 THROUGH PACKBK, FOR Q = END + 1, 1, Q .G. 75 *086 LM00100 PACKBK CARD(Q) = BLANK *087 LM00101 NUM = COUNT *088 LM00102 THROUGH INNO, FOR I = 80, -1, I .L. 76 *089 LM00103 CARD(I) = NUM - (NUM/10)*10 *090 LM00104 INNO NUM = NUM/10 *091 LM00105 END = 80 *092 LM00106 FUNCTION RETURN *093 LM00107 END OF FUNCTION *094 LM00108 LM00109 INTERNAL FUNCTION *095 LM00110 ENTRY TO FAP. *096 LM00111 THROUGH FAPLP, FOR VALUES OF TB = 8, 16, 30, 34, 38, 42, 46 *097 LM00112 FAPLP OUTTAB.(TB) *098 LM00113 WHENEVER END .G. 72 *099 LM00114 TRSW = 1B *100 LM00115 END = 72 *101 LM00116 END OF CONDITIONAL *102 LM00117 FUNCTION RETURN *103 LM00118 END OF FUNCTION *104 LM00119 LM00120 INTERNAL FUNCTION *105 LM00121 ENTRY TO MAD. *106 LM00122 OUTTAB.(12) *107 LM00123 WHENEVER CARD(12) .E. BCKSPS *108 LM00124 THROUGH PUSHL, FOR Q = 13, 1, Q .G. END *109 LM00125 PUSHL CARD(Q-2) = CARD(Q) *110 LM00126 END = END - 2 *111 LM00127 END OF CONDITIONAL *112 LM00128 THROUGH MDLP, FOR VALUES OF TB = 17, 22, 27, 32, 37, 42, 47 *113 LM00129 MDLP OUTTAB.(TB) *114 LM00130 SERIAL. *115 LM00131 FUNCTION RETURN *116 LM00132 END OF FUNCTION *117 LM00133 LM00134 END OF PROGRAM *118 LM00135 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 01227 TRANSFER VECTOR LENGTH 00021 PROGRAM BEGINS 00270 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BADARG 00027 4 DEL 00205 1 INNO 00026 4 NEWSEC 00214 1 Q 00220 1 BCKSPS 00035 A 1 DETAB 00206 3 I 00211 1 NUM 00215 1 SKP4 00034 4 BLANK 00036 A 1 END 00207 1 J 00212 1 OLDNAM 00216 1 TAB 00221 A 1 CARD 00203 A 1 EOF 00032 4 LOOP 00033 4 OLDSEC 00217 1 TB 00222 1 CHN 00030 4 FAPLP 00026 4 MDLP 00026 4 PACKBK 00026 4 TEMNAM 00224 A 1 COM 00031 4 FENCE 00210 A 1 MVCD 00026 4 PKBK 00026 4 TRSW 00225 2 COUNT 00204 1 FINDTB 00026 4 NEWNAM 00213 1 PUSHL 00026 4 0FUNCTION DICTIONARY ASSIGN 00000 1 CHNCOM 00001 1 CLRNAM 00002 1 COMARG 00003 1 EXIT 00004 1 FILE 00005 1 .PCOMT 00006 1 .SETUP 00007 1 PRBUFF 00010 1 PRMESS 00011 1 READ 00012 1 RENAME 00013 1 SEEK 00014 1 SETBCD 00015 1 TYPOUT 00016 1 WHOAMI 00017 1 WRCARD 00020 1 FAP 00021 1 MAD 00022 3 OUTTAB 00023 1 SERIAL 00024 1 STRIP 00025 1 0ABSOLUTE CONSTANTS 00252 +000000000057 00246 +000000000045 00244 +000000000040 00242 +000000000033 00241 +000000000026 00240 +000000000021 00236 +000000000015 00235 +000000000014 00251 +000000000056 00250 +000000000052 00247 +000000000046 00245 +000000000042 00243 +000000000036 00237 +000000000020 00233 +000000000010 00234 +000000000012 00255 +000000000114 00256 +000000000120 00254 +000000000113 00262 +314547646360 00261 +256031626074 00263 -032560452144 00264 -052566602631 00253 +000000000110 00257 +000000000144 00226 +000000000000 00267 -343145476463 00266 -206060442124 00265 -206060262147 00232 +000000000004 00231 +000000000003 00230 +000000000002 00227 +000000000001 00260 +233000000000 0STATEMENT DICTIONARY 00027 TXL -300506000475 00030 TXL -300461000460 00031 TXL -300466000465 00032 TXL -300446000445 00033 TXL -300411000404 00034 TXL -300337000334 0PROGRAM NORMAL MODE IS INTEGER 001 LM00007 FUNCTION NAME DETAB, MAD 002 LM00008 BOOLEAN TRSW 003 LM00009 DIMENSION CARD(100),TEMNAM(1) 004 LM00010 VECTOR VALUES BCKSPS = 35K 005 LM00011 00270 TSX +0 07400 4 00007 00035 +0 00000 0 00035 VECTOR VALUES FENCE = 777777777777K 006 LM00012 00210 -3 77777 7 77777 VECTOR VALUES TAB = 072K 007 LM00013 00221 +0 00000 0 00072 VECTOR VALUES BLANK = 60K 008 LM00014 00036 +0 00000 0 00060 WHOAMI.(TEMNAM(1)...2) 009 LM00016 00271 TSX +0 07400 4 00017 00272 TIX +2 00230 0 00223 OLDNAM = COMARG.(1) 010 LM00017 00273 TSX +0 07400 4 00003 00274 TXH +3 00000 0 00227 00275 STO +0 60100 0 00216 W'R OLDNAM .E. FENCE, T'O BADARG 011 LM00018 00276 CLA +0 50000 0 00216 00277 SUB +0 40200 0 00210 00300 TNZ -0 10000 0 00302 00301 TRA +0 02000 0 00027 OLDSEC = COMARG.(2) 012 LM00019 00302 TSX +0 07400 4 00003 00303 TXH +3 00000 0 00230 00304 STO +0 60100 0 00217 W'R OLDSEC .E. FENCE, T'O BADARG 013 LM00020 00305 CLA +0 50000 0 00217 00306 SUB +0 40200 0 00210 00307 TNZ -0 10000 0 00311 00310 TRA +0 02000 0 00027 NEWNAM = COMARG.(3) 014 LM00021 00311 TSX +0 07400 4 00003 00312 TXH +3 00000 0 00231 00313 STO +0 60100 0 00213 W'R NEWNAM .E. FENCE 015 LM00022 00314 CLA +0 50000 0 00213 00315 SUB +0 40200 0 00210 00316 TNZ -0 10000 0 00324 NEWNAM = OLDNAM 016 LM00023 00317 CLA +0 50000 0 00216 00320 STO +0 60100 0 00213 NEWSEC = OLDSEC 017 LM00024 00321 CLA +0 50000 0 00217 00322 STO +0 60100 0 00214 T'O SKP4 018 LM00025 00323 TRA +0 02000 0 00034 END OF CONDITIONAL 019 LM00026 NEWSEC = COMARG.(4) 020 LM00027 00324 TSX +0 07400 4 00003 00325 TXH +3 00000 0 00232 00326 STO +0 60100 0 00214 W'R NEWSEC .E. FENCE, NEWSEC = OLDSEC 021 LM00028 00327 CLA +0 50000 0 00214 00330 SUB +0 40200 0 00210 00331 TNZ -0 10000 0 00334 00332 CLA +0 50000 0 00217 00333 STO +0 60100 0 00214 SKP4 W'R NEWSEC .E. $ FAP$ 022 LM00029 00334 CLA +0 50000 0 00214 00335 SUB +0 40200 0 00265 00336 TNZ -0 10000 0 00342 DETAB = FAP. 023 LM00030 00337 CLA +0 50000 0 00021 00340 STO +0 60100 0 00206 O'R NEWSEC .E. $ MAD$ 024 LM00031 00341 TRA +0 02000 0 00366 00342 CLA +0 50000 0 00214 00343 SUB +0 40200 0 00266 00344 TNZ -0 10000 0 00350 DETAB = MAD. 025 LM00032 00345 CLA +0 50000 0 00022 00346 STO +0 60100 0 00206 O'R OLDSEC .E. $ FAP$ 026 LM00033 00347 TRA +0 02000 0 00366 00350 CLA +0 50000 0 00217 00351 SUB +0 40200 0 00265 00352 TNZ -0 10000 0 00356 DETAB = FAP. 027 LM00034 00353 CLA +0 50000 0 00021 00354 STO +0 60100 0 00206 O'R OLDSEC .E. $ MAD$ 028 LM00035 00355 TRA +0 02000 0 00366 00356 CLA +0 50000 0 00217 00357 SUB +0 40200 0 00266 00360 TNZ -0 10000 0 00364 DETAB = MAD. 029 LM00036 00361 CLA +0 50000 0 00022 00362 STO +0 60100 0 00206 OTHERWISE 030 LM00037 00363 TRA +0 02000 0 00366 DETAB = STRIP. 031 LM00038 00364 CLA +0 50000 0 00025 00365 STO +0 60100 0 00206 END OF CONDITIONAL 032 LM00039 SEEK.(OLDNAM, OLDSEC, CHN) 033 LM00041 00366 TSX +0 07400 4 00014 00367 TXH +3 00000 0 00216 00370 TXH +3 00000 0 00217 00371 TXH +3 00000 0 00030 CLRNAM.($(INPUT$, TEMNAM, CHN, 1B) 034 LM00042 00372 TSX +0 07400 4 00002 00373 TXH +3 00000 0 00267 00374 TXH +3 00000 0 00224 00375 TXH +3 00000 0 00030 00376 TXH +3 00000 0 00227 ASSIGN.($(INPUT$, TEMNAM) 035 LM00043 00377 TSX +0 07400 4 00000 00400 TXH +3 00000 0 00267 00401 TXH +3 00000 0 00224 COUNT = 0 036 LM00044 00402 CLA +0 50000 0 00226 00403 STO +0 60100 0 00204 LOOP END = READ.(CARD, 100, EOF) 037 LM00045 00404 TSX +0 07400 4 00012 00405 TXH +3 00000 0 00203 00406 TXH +3 00000 0 00257 00407 TXH +3 00000 0 00032 00410 STO +0 60100 0 00207 COUNT = COUNT + 1 038 LM00046 00411 CLA +0 50000 0 00204 00412 ADD +0 40000 0 00227 00413 STO +0 60100 0 00204 TRSW = 0B 039 LM00047 00414 CLA +0 50000 0 00226 00415 STO +0 60100 0 00225 END = END-1 040 LM00048 00416 CLA +0 50000 0 00207 00417 SUB +0 40200 0 00227 00420 STO +0 60100 0 00207 DETAB(0). 041 LM00049 00421 TSX +0 07400 4 00206 WRCARD.(CARD, END) 042 LM00050 00422 TSX +0 07400 4 00020 00423 TXH +3 00000 0 00203 00424 TXH +3 00000 0 00207 WHENEVER TRSW 043 LM00051 00425 NZT -0 52000 0 00225 00426 TRA +0 02000 0 00444 PRINT COMMENT $0T1H1I1S0 1C1A1R1D0 0T0R0U0N0C0A0T0E0D0:$ 044 LM00052 00427 TSX +0 07400 4 00006 00430 +0 00000 0 00007 00431 +0 06301 3 00131 00432 +0 16200 6 00123 00433 +0 12101 5 10124 00434 +0 06000 6 30051 00435 +0 06400 4 50023 00436 +0 02100 6 30025 00437 +0 02400 3 56060 TYPOUT.(CARD, 72) 045 LM00053 00440 TSX +0 07400 4 00016 00441 TXH +3 00000 0 00203 00442 TXH +3 00000 0 00253 PRBUFF. 046 LM00054 00443 TSX +0 07400 4 00010 END OF CONDITIONAL 047 LM00055 T'O LOOP 048 LM00056 00444 TRA +0 02000 0 00033 EOF FILE. 049 LM00057 00445 TSX +0 07400 4 00005 CLRNAM.(NEWNAM, NEWSEC, COM, 1B) 050 LM00058 00446 TSX +0 07400 4 00002 00447 TXH +3 00000 0 00213 00450 TXH +3 00000 0 00214 00451 TXH +3 00000 0 00031 00452 TXH +3 00000 0 00227 RENAME.($(INPUT$, TEMNAM, NEWNAM, NEWSEC) 051 LM00059 00453 TSX +0 07400 4 00013 00454 TXH +3 00000 0 00267 00455 TXH +3 00000 0 00224 00456 TXH +3 00000 0 00213 00457 TXH +3 00000 0 00214 CHN SETBCD. 052 LM00060 00460 TSX +0 07400 4 00015 PRINT COMMENT $ *$ 053 LM00061 00461 TSX +0 07400 4 00006 00462 +0 00000 0 00001 00463 -2 05460 6 06060 CHNCOM. 054 LM00062 00464 TSX +0 07400 4 00001 COM SETBCD. 055 LM00064 00465 TSX +0 07400 4 00015 PRMESS.($NEW FI$,$LE NAM$,$E IS ($,$INPUT $,TEMNAM) 056 LM00065 00466 TSX +0 07400 4 00011 00467 TXH +3 00000 0 00264 00470 TXH +3 00000 0 00263 00471 TXH +3 00000 0 00261 00472 TXH +3 00000 0 00262 00473 TXH +3 00000 0 00224 T'O CHN 057 LM00066 00474 TRA +0 02000 0 00030 BADARG PRINT COMMENT $0N1O1T0 1E1N1O1U1G1H0 1A1R1G1U1M1E1N1T1S0.$ 058 LM00068 00475 TSX +0 07400 4 00006 00476 +0 00000 0 00007 00477 +0 04501 4 60163 00500 +0 06001 2 50145 00501 +0 14601 6 40127 00502 +0 13000 6 00121 00503 +0 15101 2 70164 00504 +0 14401 2 50145 00505 +0 16301 6 20033 T'O CHN 059 LM00069 00506 TRA +0 02000 0 00030 INTERNAL FUNCTION 060 LM00071 00507 TRA +0 02000 0 00525 ENTRY TO STRIP. 061 LM00072 00510 TRA +0 02000 0 00513 00025 TTR +0 02100 0 00511 00511 SXA +0 63400 2 00515 00512 TSX +0 07400 2 00515 FUNCTION RETURN 062 LM00073 00513 TRA +0 02000 0 00521 END OF FUNCTION 063 LM00074 00514 TSX +0 07400 4 00004 00515 TXH +3 00000 0 00000 00516 SXD -0 63400 1 00515 00517 SXA +0 63400 4 00521 00520 TRA +0 02000 2 00001 00521 AXT +0 77400 4 00000 00522 LXA +0 53400 2 00515 00523 LXD -0 53400 1 00515 00524 TRA +0 02000 4 00001 INTERNAL FUNCTION(TSTOP) 064 LM00076 00525 TRA +0 02000 0 00667 ENTRY TO OUTTAB. 065 LM00077 00526 TRA +0 02000 0 00531 00023 TTR +0 02100 0 00527 00527 SXA +0 63400 2 00652 00530 TSX +0 07400 2 00652 FINDTB THROUGH FINDTB, FOR Q = 1, 1, Q .GE. TSTOP 066 LM00078 1 .OR. CARD(Q) .E. TAB .OR. Q .G. END 066 LM00079 00531 CLA +0 50000 0 00227 00532 STO +0 60100 0 00220 00533 TRA +0 02000 0 00537 00534 CLA +0 50000 0 00220 00535 ADD +0 40000 0 00227 00536 STO +0 60100 0 00220 00537 CLA +0 50000 0 00220 00540 SUB +0 40200 0 00207 00541 TZE +0 10000 0 00543 00542 TPL +0 12000 0 00554 00543 LXA +0 53400 1 00220 00544 CLA +0 50000 1 00203 00545 SUB +0 40200 0 00221 00546 TZE +0 10000 0 00554 00547 CLA +0 50000 0 00220 00550 SUB +0 40200 0 00024 00551 TZE +0 10000 0 00554 00552 TPL +0 12000 0 00554 00553 TRA +0 02000 0 00534 WHENEVER Q .GE. TSTOP .OR. Q .G. END, FUNCTION RETURN 067 LM00080 00554 CLA +0 50000 0 00220 00555 SUB +0 40200 0 00207 00556 TZE +0 10000 0 00560 00557 TPL +0 12000 0 00564 00560 CLA +0 50000 0 00220 00561 SUB +0 40200 0 00024 00562 TZE +0 10000 0 00564 00563 TMI -0 12000 0 00565 00564 TRA +0 02000 0 00663 DEL = TSTOP - Q - 1 068 LM00081 00565 CLA +0 50000 0 00024 00566 SUB +0 40200 0 00220 00567 SUB +0 40200 0 00227 00570 STO +0 60100 0 00205 THROUGH MVCD, FOR J = END, -1, J .LE. Q 069 LM00082 00571 CLA +0 50000 0 00207 00572 STO +0 60100 0 00212 00573 TRA +0 02000 0 00577 00574 CLS +0 50200 0 00227 00575 ADD +0 40000 0 00212 00576 STO +0 60100 0 00212 00577 CLA +0 50000 0 00212 00600 SUB +0 40200 0 00220 00601 TZE +0 10000 0 00617 00602 TMI -0 12000 0 00617 MVCD WHENEVER J + DEL .LE. 100, CARD(J+DEL) = CARD(J) 070 LM00083 00603 CLA +0 50000 0 00212 00604 ADD +0 40000 0 00205 00605 SUB +0 40200 0 00257 00606 TZE +0 10000 0 00610 00607 TPL +0 12000 0 00616 00610 CLA +0 50000 0 00212 00611 ADD +0 40000 0 00205 00612 PAX +0 73400 1 00000 00613 LXA +0 53400 2 00212 00614 CLA +0 50000 2 00203 00615 STO +0 60100 1 00203 00616 TRA +0 02000 0 00574 THROUGH PKBK, FOR Q = Q, 1, Q .GE. TSTOP 071 LM00084 00617 CLA +0 50000 0 00220 00620 STO +0 60100 0 00220 00621 TRA +0 02000 0 00625 00622 CLA +0 50000 0 00220 00623 ADD +0 40000 0 00227 00624 STO +0 60100 0 00220 00625 CLA +0 50000 0 00220 00626 SUB +0 40200 0 00024 00627 TZE +0 10000 0 00635 00630 TPL +0 12000 0 00635 PKBK CARD(Q) = BLANK 072 LM00085 00631 LXA +0 53400 1 00220 00632 CLA +0 50000 0 00036 00633 STO +0 60100 1 00203 00634 TRA +0 02000 0 00622 W'R END + DEL .G. 100 073 LM00086 00635 CLA +0 50000 0 00207 00636 ADD +0 40000 0 00205 00637 SUB +0 40200 0 00257 00640 TZE +0 10000 0 00645 00641 TMI -0 12000 0 00645 END = 100 074 LM00087 00642 CLA +0 50000 0 00257 00643 STO +0 60100 0 00207 OTHERWISE 075 LM00088 00644 TRA +0 02000 0 00650 END = END + DEL 076 LM00089 00645 CLA +0 50000 0 00207 00646 ADD +0 40000 0 00205 00647 STO +0 60100 0 00207 END OF CONDITIONAL 077 LM00090 FUNCTION RETURN 078 LM00091 00650 TRA +0 02000 0 00663 END OF FUNCTION 079 LM00092 00651 TSX +0 07400 4 00004 00652 TXH +3 00000 0 00000 00653 SXD -0 63400 1 00652 00654 SXA +0 63400 4 00663 00655 CLA +0 50000 4 00001 00656 STA +0 62100 0 00550 00657 STA +0 62100 0 00561 00660 STA +0 62100 0 00565 00661 STA +0 62100 0 00626 00662 TRA +0 02000 2 00001 00663 AXT +0 77400 4 00000 00664 LXA +0 53400 2 00652 00665 LXD -0 53400 1 00652 00666 TRA +0 02000 4 00001 INTERNAL FUNCTION 080 LM00094 00667 TRA +0 02000 0 00772 ENTRY TO SERIAL. 081 LM00095 00670 TRA +0 02000 0 00673 00024 TTR +0 02100 0 00671 00671 SXA +0 63400 2 00762 00672 TSX +0 07400 2 00762 WHENEVER END .G. 72 082 LM00096 00673 CLA +0 50000 0 00207 00674 SUB +0 40200 0 00253 00675 TZE +0 10000 0 00703 00676 TMI -0 12000 0 00703 TRSW = 1B 083 LM00097 00677 CLA +0 50000 0 00227 00700 STO +0 60100 0 00225 END = 72 084 LM00098 00701 CLA +0 50000 0 00253 00702 STO +0 60100 0 00207 END OF CONDITIOANL 085 LM00099 THROUGH PACKBK, FOR Q = END + 1, 1, Q .G. 75 086 LM00100 00703 CLA +0 50000 0 00207 00704 ADD +0 40000 0 00227 00705 STO +0 60100 0 00220 00706 TRA +0 02000 0 00712 00707 CLA +0 50000 0 00220 00710 ADD +0 40000 0 00227 00711 STO +0 60100 0 00220 00712 CLA +0 50000 0 00220 00713 SUB +0 40200 0 00254 00714 TZE +0 10000 0 00716 00715 TPL +0 12000 0 00722 PACKBK CARD(Q) = BLANK 087 LM00101 00716 LXA +0 53400 1 00220 00717 CLA +0 50000 0 00036 00720 STO +0 60100 1 00203 00721 TRA +0 02000 0 00707 NUM = COUNT 088 LM00102 00722 CLA +0 50000 0 00204 00723 STO +0 60100 0 00215 THROUGH INNO, FOR I = 80, -1, I .L. 76 089 LM00103 00724 CLA +0 50000 0 00256 00725 STO +0 60100 0 00211 00726 TRA +0 02000 0 00732 00727 CLS +0 50200 0 00227 00730 ADD +0 40000 0 00211 00731 STO +0 60100 0 00211 00732 CLA +0 50000 0 00211 00733 SUB +0 40200 0 00255 00734 TZE +0 10000 0 00736 00735 TMI -0 12000 0 00756 CARD(I) = NUM - (NUM/10)*10 090 LM00104 00736 LDQ +0 56000 0 00215 00737 PXD -0 75400 0 00000 00740 LLS +0 76300 0 00000 00741 DVP +0 22100 0 00234 00742 MPY +0 20000 0 00234 00743 XCA +0 13100 0 00000 00744 CHS +0 76000 0 00002 00745 ADD +0 40000 0 00215 00746 LXA +0 53400 1 00211 00747 STO +0 60100 1 00203 INNO NUM = NUM/10 091 LM00105 00750 LDQ +0 56000 0 00215 00751 PXD -0 75400 0 00000 00752 LLS +0 76300 0 00000 00753 DVP +0 22100 0 00234 00754 STQ -0 60000 0 00215 00755 TRA +0 02000 0 00727 END = 80 092 LM00106 00756 CLA +0 50000 0 00256 00757 STO +0 60100 0 00207 FUNCTION RETURN 093 LM00107 00760 TRA +0 02000 0 00766 END OF FUNCTION 094 LM00108 00761 TSX +0 07400 4 00004 00762 TXH +3 00000 0 00000 00763 SXD -0 63400 1 00762 00764 SXA +0 63400 4 00766 00765 TRA +0 02000 2 00001 00766 AXT +0 77400 4 00000 00767 LXA +0 53400 2 00762 00770 LXD -0 53400 1 00762 00771 TRA +0 02000 4 00001 INTERNAL FUNCTION 095 LM00110 00772 TRA +0 02000 0 01076 ENTRY TO FAP. 096 LM00111 00773 TRA +0 02000 0 00776 00021 TTR +0 02100 0 00774 00774 SXA +0 63400 2 01066 00775 TSX +0 07400 2 01066 THROUGH FAPLP, FOR VALUES OF TB = 8, 16, 30, 34, 38, 42, 46 097 LM00112 00776 CLA +0 50000 0 00233 00777 STO +0 60100 0 00222 01000 CLA +0 50000 0 01003 01001 STO +0 60100 0 01050 01002 TRA +0 02000 0 01051 01003 TRA +0 02000 0 01004 01004 CLA +0 50000 0 00237 01005 STO +0 60100 0 00222 01006 CLA +0 50000 0 01011 01007 STO +0 60100 0 01050 01010 TRA +0 02000 0 01051 01011 TRA +0 02000 0 01012 01012 CLA +0 50000 0 00243 01013 STO +0 60100 0 00222 01014 CLA +0 50000 0 01017 01015 STO +0 60100 0 01050 01016 TRA +0 02000 0 01051 01017 TRA +0 02000 0 01020 01020 CLA +0 50000 0 00245 01021 STO +0 60100 0 00222 01022 CLA +0 50000 0 01025 01023 STO +0 60100 0 01050 01024 TRA +0 02000 0 01051 01025 TRA +0 02000 0 01026 01026 CLA +0 50000 0 00247 01027 STO +0 60100 0 00222 01030 CLA +0 50000 0 01033 01031 STO +0 60100 0 01050 01032 TRA +0 02000 0 01051 01033 TRA +0 02000 0 01034 01034 CLA +0 50000 0 00250 01035 STO +0 60100 0 00222 01036 CLA +0 50000 0 01041 01037 STO +0 60100 0 01050 01040 TRA +0 02000 0 01051 01041 TRA +0 02000 0 01042 01042 CLA +0 50000 0 00251 01043 STO +0 60100 0 00222 01044 CLA +0 50000 0 01047 01045 STO +0 60100 0 01050 01046 TRA +0 02000 0 01051 01047 TRA +0 02000 0 01054 01050 TRA +0 02000 0 01050 FAPLP OUTTAB.(TB) 098 LM00113 01051 TSX +0 07400 4 00023 01052 TXH +3 00000 0 00222 01053 TRA +0 02000 0 01050 WHENEVER END .G. 72 099 LM00114 01054 CLA +0 50000 0 00207 01055 SUB +0 40200 0 00253 01056 TZE +0 10000 0 01064 01057 TMI -0 12000 0 01064 TRSW = 1B 100 LM00115 01060 CLA +0 50000 0 00227 01061 STO +0 60100 0 00225 END = 72 101 LM00116 01062 CLA +0 50000 0 00253 01063 STO +0 60100 0 00207 END OF CONDITIONAL 102 LM00117 FUNCTION RETURN 103 LM00118 01064 TRA +0 02000 0 01072 END OF FUNCTION 104 LM00119 01065 TSX +0 07400 4 00004 01066 TXH +3 00000 0 00000 01067 SXD -0 63400 1 01066 01070 SXA +0 63400 4 01072 01071 TRA +0 02000 2 00001 01072 AXT +0 77400 4 00000 01073 LXA +0 53400 2 01066 01074 LXD -0 53400 1 01066 01075 TRA +0 02000 4 00001 INTERNAL FUNCTION 105 LM00121 01076 TRA +0 02000 0 01224 ENTRY TO MAD. 106 LM00122 01077 TRA +0 02000 0 01102 00022 TTR +0 02100 0 01100 01100 SXA +0 63400 2 01214 01101 TSX +0 07400 2 01214 OUTTAB.(12) 107 LM00123 01102 TSX +0 07400 4 00023 01103 TXH +3 00000 0 00235 WHENEVER CARD(12) .E. BCKSPS 108 LM00124 01104 CLA +0 50000 0 00167 01105 SUB +0 40200 0 00035 01106 TNZ -0 10000 0 01133 THROUGH PUSHL, FOR Q = 13, 1, Q .G. END 109 LM00125 01107 CLA +0 50000 0 00236 01110 STO +0 60100 0 00220 01111 TRA +0 02000 0 01115 01112 CLA +0 50000 0 00220 01113 ADD +0 40000 0 00227 01114 STO +0 60100 0 00220 01115 CLA +0 50000 0 00220 01116 SUB +0 40200 0 00207 01117 TZE +0 10000 0 01121 01120 TPL +0 12000 0 01130 PUSHL CARD(Q-2) = CARD(Q) 110 LM00126 01121 CLA +0 50000 0 00220 01122 SUB +0 40200 0 00230 01123 PAX +0 73400 1 00000 01124 LXA +0 53400 2 00220 01125 CLA +0 50000 2 00203 01126 STO +0 60100 1 00203 01127 TRA +0 02000 0 01112 END = END - 2 111 LM00127 01130 CLA +0 50000 0 00207 01131 SUB +0 40200 0 00230 01132 STO +0 60100 0 00207 END OF CONDITIONAL 112 LM00128 THROUGH MDLP, FOR VALUES OF TB = 17, 22, 27, 32, 37, 42, 47 113 LM00129 01133 CLA +0 50000 0 00240 01134 STO +0 60100 0 00222 01135 CLA +0 50000 0 01140 01136 STO +0 60100 0 01205 01137 TRA +0 02000 0 01206 01140 TRA +0 02000 0 01141 01141 CLA +0 50000 0 00241 01142 STO +0 60100 0 00222 01143 CLA +0 50000 0 01146 01144 STO +0 60100 0 01205 01145 TRA +0 02000 0 01206 01146 TRA +0 02000 0 01147 01147 CLA +0 50000 0 00242 01150 STO +0 60100 0 00222 01151 CLA +0 50000 0 01154 01152 STO +0 60100 0 01205 01153 TRA +0 02000 0 01206 01154 TRA +0 02000 0 01155 01155 CLA +0 50000 0 00244 01156 STO +0 60100 0 00222 01157 CLA +0 50000 0 01162 01160 STO +0 60100 0 01205 01161 TRA +0 02000 0 01206 01162 TRA +0 02000 0 01163 01163 CLA +0 50000 0 00246 01164 STO +0 60100 0 00222 01165 CLA +0 50000 0 01170 01166 STO +0 60100 0 01205 01167 TRA +0 02000 0 01206 01170 TRA +0 02000 0 01171 01171 CLA +0 50000 0 00250 01172 STO +0 60100 0 00222 01173 CLA +0 50000 0 01176 01174 STO +0 60100 0 01205 01175 TRA +0 02000 0 01206 01176 TRA +0 02000 0 01177 01177 CLA +0 50000 0 00252 01200 STO +0 60100 0 00222 01201 CLA +0 50000 0 01204 01202 STO +0 60100 0 01205 01203 TRA +0 02000 0 01206 01204 TRA +0 02000 0 01211 01205 TRA +0 02000 0 01205 MDLP OUTTAB.(TB) 114 LM00130 01206 TSX +0 07400 4 00023 01207 TXH +3 00000 0 00222 01210 TRA +0 02000 0 01205 SERIAL. 115 LM00131 01211 TSX +0 07400 4 00024 FUNCTION RETURN 116 LM00132 01212 TRA +0 02000 0 01220 END OF FUNCTION 117 LM00133 01213 TSX +0 07400 4 00004 01214 TXH +3 00000 0 00000 01215 SXD -0 63400 1 01214 01216 SXA +0 63400 4 01220 01217 TRA +0 02000 2 00001 01220 AXT +0 77400 4 00000 01221 LXA +0 53400 2 01214 01222 LXD -0 53400 1 01214 01223 TRA +0 02000 4 00001 END OF PROGRAM 118 LM00135 01224 TSX +0 07400 4 00004 1 MAD PROGRAM LISTING ... ... ... FILE SQUASH MAD 04/23/68 2152.1 - .. ROUTINE TO CONVERT CARD IMAGE TO LINEMARKED WITH TABS. LM00001 .. J. H. SALTZER, FEBRUARY, 1965. LM00002 .. MODIFIED BY S. SCHAFFNER 6-17-67 LM00003 .. MODIFIED BY J. BIXBY 4-22-68 TO USE (INPUT PROG LM00004 .. AS THE INTERMEDIATE FILE INSTEAD OF (INPUT FILE) LM00005 LM00006 NORMAL MODE IS INTEGER *001 LM00007 FUNCTION NAME DETAB, MAD *002 LM00008 DIMENSION CARD(84),TEMNAM(1) *003 LM00009 VECTOR VALUES RETURN = 055K *004 LM00010 VECTOR VALUES BCKSPS = 35K *005 LM00011 VECTOR VALUES FENCE = 777777777777K *006 LM00012 VECTOR VALUES TAB = 072K *007 LM00013 VECTOR VALUES BLANK = 60K *008 LM00014 LM00015 WHOAMI.(TEMNAM(1)...2) *009 LM00016 OLDNAM = COMARG.(1) *010 LM00017 WHENEVER OLDNAM .E. FENCE, TRANSFER TO BADARG *011 LM00018 OLDSEC = COMARG.(2) *012 LM00019 WHENEVER OLDSEC .E. FENCE, TRANSFER TO BADARG *013 LM00020 NEWNAM = COMARG.(3) *014 LM00021 WHENEVER NEWNAM .E. FENCE *015 LM00022 NEWNAM = OLDNAM *016 LM00023 NEWSEC = OLDSEC *017 LM00024 TRANSFER TO SKP4 *018 LM00025 END OF CONDITIONAL *019 LM00026 NEWSEC = COMARG.(4) *020 LM00027 WHENEVER NEWSEC .E. FENCE, NEWSEC = OLDSEC *021 LM00028 SKP4 WHENEVER OLDSEC .E. $ FAP$ *022 LM00029 DETAB = FAP. *023 LM00030 OR WHENEVER OLDSEC .E. $ MAD$ *024 LM00031 DETAB = MAD. *025 LM00032 OR WHENEVER NEWSEC.E. $ FAP$ *026 LM00033 DETAB = FAP. *027 LM00034 OR WHENEVER NEWSEC.E. $ MAD$ *028 LM00035 DETAB = MAD. *029 LM00036 OTHERWISE *030 LM00037 DETAB = STRIP. *031 LM00038 END OF CONDITIONAL *032 LM00039 LM00040 SEEK.(OLDNAM, OLDSEC, CHN) *033 LM00041 CLRNAM.($(INPUT$, TEMNAM, CHN, 1B) *034 LM00042 ASSIGN.($(INPUT$, TEMNAM) *035 LM00043 LOOP END = RDCARD.(CARD, 84, EOF) *036 LM00044 DETAB(0). *037 LM00045 END = END+1 *038 LM00046 PRETEND TO ADD A CARRIAGE RETURN TO LINE LM00047 WRITE.(CARD, END) *039 LM00048 TRANSFER TO LOOP *040 LM00049 EOF FILE. *041 LM00050 CLRNAM.(NEWNAM, NEWSEC, COM, 1B) *042 LM00051 RENAME.($(INPUT$, TEMNAM, NEWNAM, NEWSEC) *043 LM00052 CHN SETBCD. *044 LM00053 PRINT COMMENT $ *$ *045 LM00054 CHNCOM. *046 LM00055 LM00056 COM SETBCD. *047 LM00057 PRMESS.($NEW FI$,$LE NAM$,$E IS ($,$INPUT $,TEMNAM) *048 LM00058 TRANSFER TO CHN *049 LM00059 LM00060 BADARG PRINT COMMENT $0N1O1T0 1E1N1O1U1G1H0 1A1R1G1U1M1E1N1T1S0.$ *050 LM00061 TRANSFER TO CHN *051 LM00062 LM00063 INTERNAL FUNCTION *052 LM00064 ENTRY TO STRIP. *053 LM00065 SLP THROUGH SLP, FOR END = 72, -1, CARD(END) .NE. BLANK *054 LM00066 1 .OR. END .LE. 1 *054 LM00067 FUNCTION RETURN *055 LM00068 END OF FUNCTION *056 LM00069 LM00070 INTERNAL FUNCTION(ARG, ARG2) *057 LM00071 ENTRY TO INTAB. *058 LM00072 WHENEVER ARG .G. END, FUNCTION RETURN *059 LM00073 BLKCT THROUGH BLKCT, FOR Q = ARG-1, -1, CARD(Q) .NE. BLANK *060 LM00074 1 .OR. Q .L. ARG2 *060 LM00075 WHENEVER Q .E. ARG-1, FUNCTION RETURN *061 LM00076 Q = Q + 1 *062 LM00077 CARD(Q) = TAB *063 LM00078 THROUGH MOVE, FOR MVR = ARG, 1, MVR .G. END *064 LM00079 Q = Q + 1 *065 LM00080 MOVE CARD(Q) = CARD(MVR) *066 LM00081 END = Q *067 LM00082 FUNCTION RETURN *068 LM00083 END OF FUNCTION *069 LM00084 LM00085 INTERNAL FUNCTION *070 LM00086 ENTRY TO FAP. *071 LM00087 STRIP. *072 LM00088 INTAB.(30, 16) *073 LM00089 INTAB.(16, 8) *074 LM00090 INTAB.(8, 0) *075 LM00091 FUNCTION RETURN *076 LM00092 END OF FUNCTION *077 LM00093 LM00094 INTERNAL FUNCTION *078 LM00095 ENTRY TO MAD. *079 LM00096 STRIP. *080 LM00097 WHENEVER CARD(11) .NE. BLANK *081 LM00098 THROUGH PUSHR, FOR Q = END, -1, Q .L. 11 *082 LM00099 PUSHR CARD(Q+1) = CARD(Q) *083 LM00100 END = END + 1 *084 LM00101 CARD(11) = BCKSPS *085 LM00102 INTAB.(11,0) *086 LM00103 OTHERWISE *087 LM00104 INTAB.(12,0) *088 LM00105 END OF CONDITIONAL *089 LM00106 FUNCTION RETURN *090 LM00107 END OF FUNCTION *091 LM00108 LM00109 END OF PROGRAM *092 LM00110 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00674 TRANSFER VECTOR LENGTH 00017 PROGRAM BEGINS 00222 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BADARG 00024 4 CHN 00025 4 FENCE 00163 A 1 NEWSEC 00166 1 RETURN 00172 A 1 BCKSPS 00032 A 1 COM 00026 4 LOOP 00030 4 OLDNAM 00167 1 SKP4 00031 4 BLANK 00033 A 1 DETAB 00161 3 MOVE 00023 4 OLDSEC 00170 1 SLP 00023 4 BLKCT 00023 4 END 00162 1 MVR 00164 1 PUSHR 00023 4 TAB 00173 A 1 CARD 00160 A 1 EOF 00027 4 NEWNAM 00165 1 Q 00171 1 TEMNAM 00175 A 1 0FUNCTION DICTIONARY ASSIGN 00000 1 CHNCOM 00001 1 CLRNAM 00002 1 COMARG 00003 1 EXIT 00004 1 FILE 00005 1 .PCOMT 00006 1 .SETUP 00007 1 PRMESS 00010 1 RDCARD 00011 1 RENAME 00012 1 SEEK 00013 1 SETBCD 00014 1 WHOAMI 00015 1 WRITE 00016 1 FAP 00017 1 INTAB 00020 1 MAD 00021 3 STRIP 00022 1 0ABSOLUTE CONSTANTS 00205 +000000000014 00204 +000000000013 00176 +000000000000 00203 +000000000010 00206 +000000000020 00207 +000000000036 00210 +000000000110 00214 +314547646360 00213 +256031626074 00215 -032560452144 00216 -052566602631 00211 +000000000124 00221 -343145476463 00220 -206060442124 00217 -206060262147 00202 +000000000004 00201 +000000000003 00200 +000000000002 00177 +000000000001 00212 +233000000000 0STATEMENT DICTIONARY 00024 TXL -300412000401 00025 TXL -300365000364 00026 TXL -300372000371 00027 TXL -300352000351 00030 TXL -300341000334 00031 TXL -300271000266 0PROGRAM NORMAL MODE IS INTEGER 001 LM00007 FUNCTION NAME DETAB, MAD 002 LM00008 DIMENSION CARD(84),TEMNAM(1) 003 LM00009 VECTOR VALUES RETURN = 055K 004 LM00010 00222 TSX +0 07400 4 00007 00172 +0 00000 0 00055 VECTOR VALUES BCKSPS = 35K 005 LM00011 00032 +0 00000 0 00035 VECTOR VALUES FENCE = 777777777777K 006 LM00012 00163 -3 77777 7 77777 VECTOR VALUES TAB = 072K 007 LM00013 00173 +0 00000 0 00072 VECTOR VALUES BLANK = 60K 008 LM00014 00033 +0 00000 0 00060 WHOAMI.(TEMNAM(1)...2) 009 LM00016 00223 TSX +0 07400 4 00015 00224 TIX +2 00200 0 00174 OLDNAM = COMARG.(1) 010 LM00017 00225 TSX +0 07400 4 00003 00226 TXH +3 00000 0 00177 00227 STO +0 60100 0 00167 W'R OLDNAM .E. FENCE, T'O BADARG 011 LM00018 00230 CLA +0 50000 0 00167 00231 SUB +0 40200 0 00163 00232 TNZ -0 10000 0 00234 00233 TRA +0 02000 0 00024 OLDSEC = COMARG.(2) 012 LM00019 00234 TSX +0 07400 4 00003 00235 TXH +3 00000 0 00200 00236 STO +0 60100 0 00170 W'R OLDSEC .E. FENCE, T'O BADARG 013 LM00020 00237 CLA +0 50000 0 00170 00240 SUB +0 40200 0 00163 00241 TNZ -0 10000 0 00243 00242 TRA +0 02000 0 00024 NEWNAM = COMARG.(3) 014 LM00021 00243 TSX +0 07400 4 00003 00244 TXH +3 00000 0 00201 00245 STO +0 60100 0 00165 W'R NEWNAM .E. FENCE 015 LM00022 00246 CLA +0 50000 0 00165 00247 SUB +0 40200 0 00163 00250 TNZ -0 10000 0 00256 NEWNAM = OLDNAM 016 LM00023 00251 CLA +0 50000 0 00167 00252 STO +0 60100 0 00165 NEWSEC = OLDSEC 017 LM00024 00253 CLA +0 50000 0 00170 00254 STO +0 60100 0 00166 T'O SKP4 018 LM00025 00255 TRA +0 02000 0 00031 END OF CONDITIONAL 019 LM00026 NEWSEC = COMARG.(4) 020 LM00027 00256 TSX +0 07400 4 00003 00257 TXH +3 00000 0 00202 00260 STO +0 60100 0 00166 W'R NEWSEC .E. FENCE, NEWSEC = OLDSEC 021 LM00028 00261 CLA +0 50000 0 00166 00262 SUB +0 40200 0 00163 00263 TNZ -0 10000 0 00266 00264 CLA +0 50000 0 00170 00265 STO +0 60100 0 00166 SKP4 W'R OLDSEC .E. $ FAP$ 022 LM00029 00266 CLA +0 50000 0 00170 00267 SUB +0 40200 0 00217 00270 TNZ -0 10000 0 00274 DETAB = FAP. 023 LM00030 00271 CLA +0 50000 0 00017 00272 STO +0 60100 0 00161 O'R OLDSEC .E. $ MAD$ 024 LM00031 00273 TRA +0 02000 0 00320 00274 CLA +0 50000 0 00170 00275 SUB +0 40200 0 00220 00276 TNZ -0 10000 0 00302 DETAB = MAD. 025 LM00032 00277 CLA +0 50000 0 00021 00300 STO +0 60100 0 00161 O'R NEWSEC.E. $ FAP$ 026 LM00033 00301 TRA +0 02000 0 00320 00302 CLA +0 50000 0 00166 00303 SUB +0 40200 0 00217 00304 TNZ -0 10000 0 00310 DETAB = FAP. 027 LM00034 00305 CLA +0 50000 0 00017 00306 STO +0 60100 0 00161 O'R NEWSEC.E. $ MAD$ 028 LM00035 00307 TRA +0 02000 0 00320 00310 CLA +0 50000 0 00166 00311 SUB +0 40200 0 00220 00312 TNZ -0 10000 0 00316 DETAB = MAD. 029 LM00036 00313 CLA +0 50000 0 00021 00314 STO +0 60100 0 00161 OTHERWISE 030 LM00037 00315 TRA +0 02000 0 00320 DETAB = STRIP. 031 LM00038 00316 CLA +0 50000 0 00022 00317 STO +0 60100 0 00161 END OF CONDITIONAL 032 LM00039 SEEK.(OLDNAM, OLDSEC, CHN) 033 LM00041 00320 TSX +0 07400 4 00013 00321 TXH +3 00000 0 00167 00322 TXH +3 00000 0 00170 00323 TXH +3 00000 0 00025 CLRNAM.($(INPUT$, TEMNAM, CHN, 1B) 034 LM00042 00324 TSX +0 07400 4 00002 00325 TXH +3 00000 0 00221 00326 TXH +3 00000 0 00175 00327 TXH +3 00000 0 00025 00330 TXH +3 00000 0 00177 ASSIGN.($(INPUT$, TEMNAM) 035 LM00043 00331 TSX +0 07400 4 00000 00332 TXH +3 00000 0 00221 00333 TXH +3 00000 0 00175 LOOP END = RDCARD.(CARD, 84, EOF) 036 LM00044 00334 TSX +0 07400 4 00011 00335 TXH +3 00000 0 00160 00336 TXH +3 00000 0 00211 00337 TXH +3 00000 0 00027 00340 STO +0 60100 0 00162 DETAB(0). 037 LM00045 00341 TSX +0 07400 4 00161 END = END+1 038 LM00046 00342 CLA +0 50000 0 00162 00343 ADD +0 40000 0 00177 00344 STO +0 60100 0 00162 WRITE.(CARD, END) 039 LM00048 00345 TSX +0 07400 4 00016 00346 TXH +3 00000 0 00160 00347 TXH +3 00000 0 00162 T'O LOOP 040 LM00049 00350 TRA +0 02000 0 00030 EOF FILE. 041 LM00050 00351 TSX +0 07400 4 00005 CLRNAM.(NEWNAM, NEWSEC, COM, 1B) 042 LM00051 00352 TSX +0 07400 4 00002 00353 TXH +3 00000 0 00165 00354 TXH +3 00000 0 00166 00355 TXH +3 00000 0 00026 00356 TXH +3 00000 0 00177 RENAME.($(INPUT$, TEMNAM, NEWNAM, NEWSEC) 043 LM00052 00357 TSX +0 07400 4 00012 00360 TXH +3 00000 0 00221 00361 TXH +3 00000 0 00175 00362 TXH +3 00000 0 00165 00363 TXH +3 00000 0 00166 CHN SETBCD. 044 LM00053 00364 TSX +0 07400 4 00014 PRINT COMMENT $ *$ 045 LM00054 00365 TSX +0 07400 4 00006 00366 +0 00000 0 00001 00367 -2 05460 6 06060 CHNCOM. 046 LM00055 00370 TSX +0 07400 4 00001 COM SETBCD. 047 LM00057 00371 TSX +0 07400 4 00014 PRMESS.($NEW FI$,$LE NAM$,$E IS ($,$INPUT $,TEMNAM) 048 LM00058 00372 TSX +0 07400 4 00010 00373 TXH +3 00000 0 00216 00374 TXH +3 00000 0 00215 00375 TXH +3 00000 0 00213 00376 TXH +3 00000 0 00214 00377 TXH +3 00000 0 00175 T'O CHN 049 LM00059 00400 TRA +0 02000 0 00025 BADARG PRINT COMMENT $0N1O1T0 1E1N1O1U1G1H0 1A1R1G1U1M1E1N1T1S0.$ 050 LM00061 00401 TSX +0 07400 4 00006 00402 +0 00000 0 00007 00403 +0 04501 4 60163 00404 +0 06001 2 50145 00405 +0 14601 6 40127 00406 +0 13000 6 00121 00407 +0 15101 2 70164 00410 +0 14401 2 50145 00411 +0 16301 6 20033 T'O CHN 051 LM00062 00412 TRA +0 02000 0 00025 INTERNAL FUNCTION 052 LM00064 00413 TRA +0 02000 0 00450 ENTRY TO STRIP. 053 LM00065 00414 TRA +0 02000 0 00417 00022 TTR +0 02100 0 00415 00415 SXA +0 63400 2 00440 00416 TSX +0 07400 2 00440 SLP THROUGH SLP, FOR END = 72, -1, CARD(END) .NE. BLANK 054 LM00066 1 .OR. END .LE. 1 054 LM00067 00417 CLA +0 50000 0 00210 00420 STO +0 60100 0 00162 00421 TRA +0 02000 0 00425 00422 CLS +0 50200 0 00177 00423 ADD +0 40000 0 00162 00424 STO +0 60100 0 00162 00425 CLA +0 50000 0 00162 00426 SUB +0 40200 0 00177 00427 TZE +0 10000 0 00436 00430 TMI -0 12000 0 00436 00431 LXA +0 53400 1 00162 00432 CLA +0 50000 1 00160 00433 SUB +0 40200 0 00033 00434 TNZ -0 10000 0 00436 00435 TRA +0 02000 0 00422 FUNCTION RETURN 055 LM00068 00436 TRA +0 02000 0 00444 END OF FUNCTION 056 LM00069 00437 TSX +0 07400 4 00004 00440 TXH +3 00000 0 00000 00441 SXD -0 63400 1 00440 00442 SXA +0 63400 4 00444 00443 TRA +0 02000 2 00001 00444 AXT +0 77400 4 00000 00445 LXA +0 53400 2 00440 00446 LXD -0 53400 1 00440 00447 TRA +0 02000 4 00001 INTERNAL FUNCTION(ARG, ARG2) 057 LM00071 00450 TRA +0 02000 0 00562 ENTRY TO INTAB. 058 LM00072 00451 TRA +0 02000 0 00454 00020 TTR +0 02100 0 00452 00452 SXA +0 63400 2 00543 00453 TSX +0 07400 2 00543 W'R ARG .G. END, FUNCTION RETURN 059 LM00073 00454 CLA +0 50000 0 00024 00455 SUB +0 40200 0 00162 00456 TZE +0 10000 0 00461 00457 TMI -0 12000 0 00461 00460 TRA +0 02000 0 00556 BLKCT THROUGH BLKCT, FOR Q = ARG-1, -1, CARD(Q) .NE. BLANK 060 LM00074 1 .OR. Q .L. ARG2 060 LM00075 00461 CLA +0 50000 0 00024 00462 SUB +0 40200 0 00177 00463 STO +0 60100 0 00171 00464 TRA +0 02000 0 00470 00465 CLS +0 50200 0 00177 00466 ADD +0 40000 0 00171 00467 STO +0 60100 0 00171 00470 CLA +0 50000 0 00171 00471 SUB +0 40200 0 00024 00472 TZE +0 10000 0 00474 00473 TMI -0 12000 0 00501 00474 LXA +0 53400 1 00171 00475 CLA +0 50000 1 00160 00476 SUB +0 40200 0 00033 00477 TNZ -0 10000 0 00501 00500 TRA +0 02000 0 00465 W'R Q .E. ARG-1, FUNCTION RETURN 061 LM00076 00501 CLA +0 50000 0 00024 00502 SUB +0 40200 0 00177 00503 CHS +0 76000 0 00002 00504 ADD +0 40000 0 00171 00505 TNZ -0 10000 0 00507 00506 TRA +0 02000 0 00556 Q = Q + 1 062 LM00077 00507 CLA +0 50000 0 00171 00510 ADD +0 40000 0 00177 00511 STO +0 60100 0 00171 CARD(Q) = TAB 063 LM00078 00512 LXA +0 53400 1 00171 00513 CLA +0 50000 0 00173 00514 STO +0 60100 1 00160 THROUGH MOVE, FOR MVR = ARG, 1, MVR .G. END 064 LM00079 00515 CLA +0 50000 0 00024 00516 STO +0 60100 0 00164 00517 TRA +0 02000 0 00523 00520 CLA +0 50000 0 00164 00521 ADD +0 40000 0 00177 00522 STO +0 60100 0 00164 00523 CLA +0 50000 0 00164 00524 SUB +0 40200 0 00162 00525 TZE +0 10000 0 00527 00526 TPL +0 12000 0 00537 Q = Q + 1 065 LM00080 00527 CLA +0 50000 0 00171 00530 ADD +0 40000 0 00177 00531 STO +0 60100 0 00171 MOVE CARD(Q) = CARD(MVR) 066 LM00081 00532 LXA +0 53400 1 00171 00533 LXA +0 53400 2 00164 00534 CLA +0 50000 2 00160 00535 STO +0 60100 1 00160 00536 TRA +0 02000 0 00520 END = Q 067 LM00082 00537 CLA +0 50000 0 00171 00540 STO +0 60100 0 00162 FUNCTION RETURN 068 LM00083 00541 TRA +0 02000 0 00556 END OF FUNCTION 069 LM00084 00542 TSX +0 07400 4 00004 00543 TXH +3 00000 0 00000 00544 SXD -0 63400 1 00543 00545 SXA +0 63400 4 00556 00546 CLA +0 50000 4 00001 00547 STA +0 62100 0 00454 00550 STA +0 62100 0 00461 00551 STA +0 62100 0 00501 00552 STA +0 62100 0 00515 00553 CLA +0 50000 4 00002 00554 STA +0 62100 0 00471 00555 TRA +0 02000 2 00001 00556 AXT +0 77400 4 00000 00557 LXA +0 53400 2 00543 00560 LXD -0 53400 1 00543 00561 TRA +0 02000 4 00001 INTERNAL FUNCTION 070 LM00086 00562 TRA +0 02000 0 00612 ENTRY TO FAP. 071 LM00087 00563 TRA +0 02000 0 00566 00017 TTR +0 02100 0 00564 00564 SXA +0 63400 2 00602 00565 TSX +0 07400 2 00602 STRIP. 072 LM00088 00566 TSX +0 07400 4 00022 INTAB.(30, 16) 073 LM00089 00567 TSX +0 07400 4 00020 00570 TXH +3 00000 0 00207 00571 TXH +3 00000 0 00206 INTAB.(16, 8) 074 LM00090 00572 TSX +0 07400 4 00020 00573 TXH +3 00000 0 00206 00574 TXH +3 00000 0 00203 INTAB.(8, 0) 075 LM00091 00575 TSX +0 07400 4 00020 00576 TXH +3 00000 0 00203 00577 TXH +3 00000 0 00176 FUNCTION RETURN 076 LM00092 00600 TRA +0 02000 0 00606 END OF FUNCTION 077 LM00093 00601 TSX +0 07400 4 00004 00602 TXH +3 00000 0 00000 00603 SXD -0 63400 1 00602 00604 SXA +0 63400 4 00606 00605 TRA +0 02000 2 00001 00606 AXT +0 77400 4 00000 00607 LXA +0 53400 2 00602 00610 LXD -0 53400 1 00602 00611 TRA +0 02000 4 00001 INTERNAL FUNCTION 078 LM00095 00612 TRA +0 02000 0 00671 ENTRY TO MAD. 079 LM00096 00613 TRA +0 02000 0 00616 00021 TTR +0 02100 0 00614 00614 SXA +0 63400 2 00661 00615 TSX +0 07400 2 00661 STRIP. 080 LM00097 00616 TSX +0 07400 4 00022 W'R CARD(11) .NE. BLANK 081 LM00098 00617 CLA +0 50000 0 00145 00620 SUB +0 40200 0 00033 00621 TZE +0 10000 0 00654 THROUGH PUSHR, FOR Q = END, -1, Q .L. 11 082 LM00099 00622 CLA +0 50000 0 00162 00623 STO +0 60100 0 00171 00624 TRA +0 02000 0 00630 00625 CLS +0 50200 0 00177 00626 ADD +0 40000 0 00171 00627 STO +0 60100 0 00171 00630 CLA +0 50000 0 00171 00631 SUB +0 40200 0 00204 00632 TZE +0 10000 0 00634 00633 TMI -0 12000 0 00643 PUSHR CARD(Q+1) = CARD(Q) 083 LM00100 00634 CLA +0 50000 0 00171 00635 ADD +0 40000 0 00177 00636 PAX +0 73400 1 00000 00637 LXA +0 53400 2 00171 00640 CLA +0 50000 2 00160 00641 STO +0 60100 1 00160 00642 TRA +0 02000 0 00625 END = END + 1 084 LM00101 00643 CLA +0 50000 0 00162 00644 ADD +0 40000 0 00177 00645 STO +0 60100 0 00162 CARD(11) = BCKSPS 085 LM00102 00646 CLA +0 50000 0 00032 00647 STO +0 60100 0 00145 INTAB.(11,0) 086 LM00103 00650 TSX +0 07400 4 00020 00651 TXH +3 00000 0 00204 00652 TXH +3 00000 0 00176 OTHERWISE 087 LM00104 00653 TRA +0 02000 0 00657 INTAB.(12,0) 088 LM00105 00654 TSX +0 07400 4 00020 00655 TXH +3 00000 0 00205 00656 TXH +3 00000 0 00176 END OF CONDITIONAL 089 LM00106 FUNCTION RETURN 090 LM00107 00657 TRA +0 02000 0 00665 END OF FUNCTION 091 LM00108 00660 TSX +0 07400 4 00004 00661 TXH +3 00000 0 00000 00662 SXD -0 63400 1 00661 00663 SXA +0 63400 4 00665 00664 TRA +0 02000 2 00001 00665 AXT +0 77400 4 00000 00666 LXA +0 53400 2 00661 00667 LXD -0 53400 1 00661 00670 TRA +0 02000 4 00001 END OF PROGRAM 092 LM00110 00671 TSX +0 07400 4 00004 1 MAD PROGRAM LISTING ... ... ... FILE IOCARD MAD 04/23/68 2128.7 - .. DISK CARD I/O CHARACTER CONTROL ROUTINE. LM00001 .. J. H. SALTZER, JANUARY, 1965. LM00002 LM00003 EXTERNAL FUNCTION(LINE, ARG2, EOF) *001 LM00004 LM00005 NORMAL MODE IS INTEGER *002 LM00006 VECTOR VALUES NBITS = 6 *003 LM00007 VECTOR VALUES WRDSIZ = 36 *004 LM00008 VECTOR VALUES BLANK = $00000 $ *005 LM00009 VECTOR VALUES CHMASK = 77K *006 LM00010 LM00011 .. TO WRITE OUT A CARD . . LM00012 .. WRCARD.(CARD, COUNT) LM00013 LM00014 ENTRY TO WRCARD. *007 LM00015 COUNT = ARG2 *008 LM00016 WHENEVER COUNT .G. 84, COUNT = 84 *009 LM00017 K = 0 *010 LM00018 THROUGH WRLOOP, FOR J = 1, 1, J .G. COUNT *011 LM00019 TWORD = (TWORD .LS. 6) .V. LINE(J) *012 LM00020 K = K + 1 *013 LM00021 WHENEVER K .GE. 6 *014 LM00022 K = 0 *015 LM00023 WRWORD.(TWORD) *016 LM00024 WRLOOP END OF CONDITIONAL *017 LM00025 THROUGH FILOOP, FOR J = J, 1, J .G. 84 *018 LM00026 TWORD = (TWORD .LS. 6) .V. BLANK *019 LM00027 K = K +1 *020 LM00028 WHENEVER K .GE. 6 *021 LM00029 K = 0 *022 LM00030 WRWORD.(TWORD) *023 LM00031 FILOOP END OF CONDITIONAL *024 LM00032 FUNCTION RETURN *025 LM00033 LM00034 .. LM00035 .. TO READ A CARD . . LM00036 .. LENGTH = RDCARD.(CARD(0), BUFSIZ, EOF) LM00037 LM00038 ENTRY TO RDCARD. *026 LM00039 SIZE = 0 *027 LM00040 THROUGH WRDLP, FOR J = 1, 1, J .G. 14 *028 LM00041 WORD = RDWORD.(EOF) *029 LM00042 THROUGH DISECT, FOR I = 30, -6, I .L. 0 *030 LM00043 CHAR = (WORD .RS. I) .A. CHMASK *031 LM00044 SIZE = SIZE + 1 *032 LM00045 DISECT LINE(SIZE) = CHAR *033 LM00046 WRDLP CONTINUE *034 LM00047 FUNCTION RETURN 84 *035 LM00048 LM00049 END OF FUNCTION *036 LM00050 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00234 TRANSFER VECTOR LENGTH 00003 PROGRAM BEGINS 00027 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES RDCARD 00137 0 WRCARD 00030 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) BLANK 00004 A 1 DISECT 00003 4 J 00011 1 SIZE 00014 1 WRDLP 00003 4 CHAR 00005 1 FILOOP 00003 4 K 00012 1 TWORD 00015 1 WRDSIZ 00017 A 1 CHMASK 00006 A 1 I 00010 1 NBITS 00013 A 1 WORD 00016 1 WRLOOP 00003 4 COUNT 00007 1 0FUNCTION DICTIONARY EXIT 00000 1 RDWORD 00001 1 WRWORD 00002 1 0ABSOLUTE CONSTANTS 00024 +000000000036 00023 +000000000016 00022 +000000000006 00020 +000000000000 00025 +000000000124 00021 +000000000001 00026 +233000000000 0PROGRAM EXTERNAL FUNCTION(LINE, ARG2, EOF) 001 LM00004 NORMAL MODE IS INTEGER 002 LM00006 VECTOR VALUES NBITS = 6 003 LM00007 00013 +0 00000 0 00006 VECTOR VALUES WRDSIZ = 36 004 LM00008 00017 +0 00000 0 00044 VECTOR VALUES BLANK = $00000 $ 005 LM00009 00004 +0 00000 0 00060 VECTOR VALUES CHMASK = 77K 006 LM00010 00006 +0 00000 0 00077 ENTRY TO WRCARD. 007 LM00015 00027 TRA +0 02000 0 00032 00030 SXA +0 63400 2 00213 00031 TSX +0 07400 2 00213 COUNT = ARG2 008 LM00016 00032 CLA +0 50000 0 00024 00033 STO +0 60100 0 00007 WHENEVER COUNT .G. 84, COUNT = 84 009 LM00017 00034 CLA +0 50000 0 00007 00035 SUB +0 40200 0 00025 00036 TZE +0 10000 0 00042 00037 TMI -0 12000 0 00042 00040 CLA +0 50000 0 00025 00041 STO +0 60100 0 00007 K = 0 010 LM00018 00042 CLA +0 50000 0 00020 00043 STO +0 60100 0 00012 THROUGH WRLOOP, FOR J = 1, 1, J .G. COUNT 011 LM00019 00044 CLA +0 50000 0 00021 00045 STO +0 60100 0 00011 00046 TRA +0 02000 0 00052 00047 CLA +0 50000 0 00011 00050 ADD +0 40000 0 00021 00051 STO +0 60100 0 00011 00052 CLA +0 50000 0 00011 00053 SUB +0 40200 0 00007 00054 TZE +0 10000 0 00056 00055 TPL +0 12000 0 00101 TWORD = (TWORD .LS. 6) .V. LINE(J) 012 LM00020 00056 CAL -0 50000 0 00022 00057 STA +0 62100 0 00061 00060 CAL -0 50000 0 00015 00061 ALS +0 76700 0 00000 00062 LXA +0 53400 2 00011 00063 ORA -0 50100 2 00024 00064 SLW +0 60200 0 00015 K = K + 1 013 LM00021 00065 CLA +0 50000 0 00012 00066 ADD +0 40000 0 00021 00067 STO +0 60100 0 00012 WHENEVER K .GE. 6 014 LM00022 00070 CLA +0 50000 0 00012 00071 SUB +0 40200 0 00022 00072 TZE +0 10000 0 00074 00073 TMI -0 12000 0 00100 K = 0 015 LM00023 00074 CLA +0 50000 0 00020 00075 STO +0 60100 0 00012 WRWORD.(TWORD) 016 LM00024 00076 TSX +0 07400 4 00002 00077 TXH +3 00000 0 00015 WRLOOP END OF CONDITIONAL 017 LM00025 00100 TRA +0 02000 0 00047 THROUGH FILOOP, FOR J = J, 1, J .G. 84 018 LM00026 00101 CLA +0 50000 0 00011 00102 STO +0 60100 0 00011 00103 TRA +0 02000 0 00107 00104 CLA +0 50000 0 00011 00105 ADD +0 40000 0 00021 00106 STO +0 60100 0 00011 00107 CLA +0 50000 0 00011 00110 SUB +0 40200 0 00025 00111 TZE +0 10000 0 00113 00112 TPL +0 12000 0 00135 TWORD = (TWORD .LS. 6) .V. BLANK 019 LM00027 00113 CAL -0 50000 0 00022 00114 STA +0 62100 0 00116 00115 CAL -0 50000 0 00015 00116 ALS +0 76700 0 00000 00117 ORA -0 50100 0 00004 00120 SLW +0 60200 0 00015 K = K +1 020 LM00028 00121 CLA +0 50000 0 00012 00122 ADD +0 40000 0 00021 00123 STO +0 60100 0 00012 WHENEVER K .GE. 6 021 LM00029 00124 CLA +0 50000 0 00012 00125 SUB +0 40200 0 00022 00126 TZE +0 10000 0 00130 00127 TMI -0 12000 0 00134 K = 0 022 LM00030 00130 CLA +0 50000 0 00020 00131 STO +0 60100 0 00012 WRWORD.(TWORD) 023 LM00031 00132 TSX +0 07400 4 00002 00133 TXH +3 00000 0 00015 FILOOP END OF CONDITIONAL 024 LM00032 00134 TRA +0 02000 0 00104 FUNCTION RETURN 025 LM00033 00135 TRA +0 02000 0 00226 ENTRY TO RDCARD. 026 LM00039 00136 TRA +0 02000 0 00141 00137 SXA +0 63400 2 00213 00140 TSX +0 07400 2 00213 SIZE = 0 027 LM00040 00141 CLA +0 50000 0 00020 00142 STO +0 60100 0 00014 THROUGH WRDLP, FOR J = 1, 1, J .G. 14 028 LM00041 00143 CLA +0 50000 0 00021 00144 STO +0 60100 0 00011 00145 TRA +0 02000 0 00151 00146 CLA +0 50000 0 00011 00147 ADD +0 40000 0 00021 00150 STO +0 60100 0 00011 00151 CLA +0 50000 0 00011 00152 SUB +0 40200 0 00023 00153 TZE +0 10000 0 00155 00154 TPL +0 12000 0 00210 WORD = RDWORD.(EOF) 029 LM00042 00155 TSX +0 07400 4 00001 00156 TXH +3 00000 0 00024 00157 STO +0 60100 0 00016 THROUGH DISECT, FOR I = 30, -6, I .L. 0 030 LM00043 00160 CLA +0 50000 0 00024 00161 STO +0 60100 0 00010 00162 TRA +0 02000 0 00166 00163 CLS +0 50200 0 00022 00164 ADD +0 40000 0 00010 00165 STO +0 60100 0 00010 00166 CLA +0 50000 0 00010 00167 SUB +0 40200 0 00020 00170 TZE +0 10000 0 00172 00171 TMI -0 12000 0 00207 CHAR = (WORD .RS. I) .A. CHMASK 031 LM00044 00172 CAL -0 50000 0 00010 00173 STA +0 62100 0 00175 00174 CAL -0 50000 0 00016 00175 LGR -0 76500 0 00000 00176 ANA -0 32000 0 00006 00177 SLW +0 60200 0 00005 SIZE = SIZE + 1 032 LM00045 00200 CLA +0 50000 0 00014 00201 ADD +0 40000 0 00021 00202 STO +0 60100 0 00014 DISECT LINE(SIZE) = CHAR 033 LM00046 00203 LXA +0 53400 1 00014 00204 CLA +0 50000 0 00005 00205 STO +0 60100 1 00024 00206 TRA +0 02000 0 00163 WRDLP CONTINUE 034 LM00047 00207 TRA +0 02000 0 00146 FUNCTION RETURN 84 035 LM00048 00210 CLA +0 50000 0 00025 00211 TRA +0 02000 0 00226 END OF FUNCTION 036 LM00050 00212 TSX +0 07400 4 00000 00213 TXH +3 00000 0 00000 00214 SXD -0 63400 1 00213 00215 SXA +0 63400 4 00226 00216 CLA +0 50000 4 00001 00217 STA +0 62100 0 00063 00220 STA +0 62100 0 00205 00221 CLA +0 50000 4 00002 00222 STA +0 62100 0 00032 00223 CLA +0 50000 4 00003 00224 STO +0 60100 0 00156 00225 TRA +0 02000 2 00001 00226 AXT +0 77400 4 00000 00227 LXA +0 53400 2 00213 00230 LXD -0 53400 1 00213 00231 TRA +0 02000 4 00001 1 MAD PROGRAM LISTING ... ... ... FILE 6TYP MAD 04/23/68 2128.9 - .. TYPEWRITER INPUT CHARACTER CONTROL ROUTINE. LM00001 .. USAGE. . . COUNT = TYPEIN.(BUFFER, BUFSIZ, ERASE, KILL) LM00002 J. H. SALTZER, JANUARY, 1965. LM00003 LM00004 EXTERNAL FUNCTION(LINE, BUFSIZ) *001 LM00005 LM00006 NORMAL MODE IS INTEGER *002 LM00007 VECTOR VALUES E1 = 0137K *003 LM00008 VECTOR VALUES K1 = 0156K *004 LM00009 VECTOR VALUES NBITS = 12 *005 LM00010 VECTOR VALUES NULL = 0057K *006 LM00011 VECTOR VALUES ERASE = 0504K *007 LM00012 VECTOR VALUES KILL = 0506K *008 LM00013 VECTOR VALUES RETURN = 0055K *009 LM00014 VECTOR VALUES WRDSIZ = 36 *010 LM00015 VECTOR VALUES CHMASK = 7777K *011 LM00016 LM00017 ENTRY TO SETERS. *012 LM00018 ERASE = LINE *013 LM00019 FUNCTION RETURN *014 LM00020 LM00021 ENTRY TO SETKIL. *015 LM00022 KILL = LINE *016 LM00023 FUNCTION RETURN *017 LM00024 LM00025 ENTRY TO CANON. *018 LM00026 FUNCTION RETURN *019 LM00027 LM00028 ENTRY TO TYPEIN. *020 LM00029 SIZE = 0 *021 LM00030 TYLINE. *022 LM00031 LOOP WORD = TYWORD.(0) *023 LM00032 THROUGH DISECT, FOR I = WRDSIZ-NBITS,-NBITS, I .L. 0 *024 LM00033 CHAR = (WORD.RS.I) .A. CHMASK *025 LM00034 WHENEVER CHAR .E. ERASE .OR. CHAR .E. E1 *026 LM00035 WHENEVER SIZE .G. 0, SIZE = SIZE - 1 *027 LM00036 OR WHENEVER CHAR .E. KILL .OR. CHAR .E. K1 *028 LM00037 SIZE = 0 *029 LM00038 OR WHENEVER CHAR .E. RETURN .OR. CHAR.RS.6 .E. RETURN *030 LM00039 TRANSFER TO UND *031 LM00040 OR WHENEVER CHAR .A. 0400K .E. 0 *032 LM00041 SIZE = SIZE + 1 *033 LM00042 LINE(SIZE) = CHAR.A.77K *034 LM00043 END OF CONDITIONAL *035 LM00044 DISECT WHENEVER SIZE .GE. BUFSIZ, TRANSFER TO UND *036 LM00045 TRANSFER TO LOOP *037 LM00046 UND SIZE = SIZE + 1 *038 LM00047 LINE(SIZE) = RETURN *039 LM00048 FUNCTION RETURN SIZE *040 LM00049 LM00050 .. TYPEWRITER OUTPUT CHARACTER CONTROL ROUTINE. LM00051 .. USAGE. . . TYPOUT.(LINE, LENGTH) LM00052 LM00053 ENTRY TO TYPOUT. *041 LM00054 K = 0 *042 LM00055 SETFUL. *043 LM00056 THROUGH PRLOOP, FOR J = 1, 1, J .G. BUFSIZ *044 LM00057 TWORD = (TWORD .LS. NBITS) .V. LINE(J) *045 LM00058 K = K + 1 *046 LM00059 WHENEVER K .GE. WRDSIZ/NBITS *047 LM00060 K = 0 *048 LM00061 PRWORD.(TWORD) *049 LM00062 PRLOOP END OF CONDITIONAL *050 LM00063 THROUGH NULPK, FOR K = K, 1, K.GE. WRDSIZ/NBITS *051 LM00064 NULPK TWORD = (TWORD.LS.NBITS) .V. NULL *052 LM00065 PRWORD.(TWORD) *053 LM00066 PRBUFF. *054 LM00067 FUNCTION RETURN *055 LM00068 LM00069 ENTRY TO HOL. *056 LM00070 FUNCTION RETURN LINE .A. 77K *057 LM00071 LM00072 END OF FUNCTION *058 LM00073 1MAD PROGRAM,TYPE NOV 1963 (ALL NUMBERS ARE OCTAL) 0TOTAL LOCATIONS 00351 TRANSFER VECTOR LENGTH 00006 PROGRAM BEGINS 00037 0 PROGRAM IS AN EXTERNAL FUNCTION. THE FOLLOWING ARE ENTRIES HOL 00314 0 TYPOUT 00212 0 TYPEIN 00060 0 CANON 00054 0 SETKIL 00046 0 SETERS 00040 0 0VARIABLE STORAGE (A=ARRAY,C=COMMON,E=ERASABLE,DIGIT=MODE) CHAR 00011 1 I 00015 1 K 00021 1 NULPK 00006 4 TWORD 00026 1 CHMASK 00012 A 1 J 00016 1 LOOP 00007 4 PRLOOP 00006 4 UND 00010 4 DISECT 00006 4 K1 00017 A 1 NBITS 00022 A 1 RETURN 00024 A 1 WORD 00027 1 E1 00013 A 1 KILL 00020 A 1 NULL 00023 A 1 SIZE 00025 1 WRDSIZ 00030 A 1 ERASE 00014 A 1 0FUNCTION DICTIONARY EXIT 00000 1 PRBUFF 00001 1 PRWORD 00002 1 SETFUL 00003 1 TYLINE 00004 1 TYWORD 00005 1 0ABSOLUTE CONSTANTS 00034 +000000000077 00035 +000000000400 00033 +000000000006 00031 +000000000000 00032 +000000000001 00036 +233000000000 0STATEMENT DICTIONARY 00007 TXL -300070000065 00010 TXL -300204000201 0PROGRAM EXTERNAL FUNCTION(LINE, BUFSIZ) 001 LM00005 NORMAL MODE IS INTEGER 002 LM00007 VECTOR VALUES E1 = 0137K 003 LM00008 00013 +0 00000 0 00137 VECTOR VALUES K1 = 0156K 004 LM00009 00017 +0 00000 0 00156 VECTOR VALUES NBITS = 12 005 LM00010 00022 +0 00000 0 00014 VECTOR VALUES NULL = 0057K 006 LM00011 00023 +0 00000 0 00057 VECTOR VALUES ERASE = 0504K 007 LM00012 00014 +0 00000 0 00504 VECTOR VALUES KILL = 0506K 008 LM00013 00020 +0 00000 0 00506 VECTOR VALUES RETURN = 0055K 009 LM00014 00024 +0 00000 0 00055 VECTOR VALUES WRDSIZ = 36 010 LM00015 00030 +0 00000 0 00044 VECTOR VALUES CHMASK = 7777K 011 LM00016 00012 +0 00000 0 07777 ENTRY TO SETERS. 012 LM00018 00037 TRA +0 02000 0 00042 00040 SXA +0 63400 2 00324 00041 TSX +0 07400 2 00324 ERASE = LINE 013 LM00019 00042 CLA +0 50000 0 00024 00043 STO +0 60100 0 00014 FUNCTION RETURN 014 LM00020 00044 TRA +0 02000 0 00342 ENTRY TO SETKIL. 015 LM00022 00045 TRA +0 02000 0 00050 00046 SXA +0 63400 2 00324 00047 TSX +0 07400 2 00324 KILL = LINE 016 LM00023 00050 CLA +0 50000 0 00024 00051 STO +0 60100 0 00020 FUNCTION RETURN 017 LM00024 00052 TRA +0 02000 0 00342 ENTRY TO CANON. 018 LM00026 00053 TRA +0 02000 0 00056 00054 SXA +0 63400 2 00324 00055 TSX +0 07400 2 00324 FUNCTION RETURN 019 LM00027 00056 TRA +0 02000 0 00342 ENTRY TO TYPEIN. 020 LM00029 00057 TRA +0 02000 0 00062 00060 SXA +0 63400 2 00324 00061 TSX +0 07400 2 00324 SIZE = 0 021 LM00030 00062 CLA +0 50000 0 00031 00063 STO +0 60100 0 00025 TYLINE. 022 LM00031 00064 TSX +0 07400 4 00004 LOOP WORD = TYWORD.(0) 023 LM00032 00065 TSX +0 07400 4 00005 00066 TXH +3 00000 0 00031 00067 STO +0 60100 0 00027 THROUGH DISECT, FOR I = WRDSIZ-NBITS,-NBITS, I .L. 0 024 LM00033 00070 CLA +0 50000 0 00030 00071 SUB +0 40200 0 00022 00072 STO +0 60100 0 00015 00073 TRA +0 02000 0 00077 00074 CLS +0 50200 0 00022 00075 ADD +0 40000 0 00015 00076 STO +0 60100 0 00015 00077 CLA +0 50000 0 00015 00100 SUB +0 40200 0 00031 00101 TZE +0 10000 0 00103 00102 TMI -0 12000 0 00200 CHAR = (WORD.RS.I) .A. CHMASK 025 LM00034 00103 CAL -0 50000 0 00015 00104 STA +0 62100 0 00106 00105 CAL -0 50000 0 00027 00106 LGR -0 76500 0 00000 00107 ANA -0 32000 0 00012 00110 SLW +0 60200 0 00011 WHENEVER CHAR .E. ERASE .OR. CHAR .E. E1 026 LM00035 00111 CLA +0 50000 0 00011 00112 SUB +0 40200 0 00013 00113 TZE +0 10000 0 00117 00114 CLA +0 50000 0 00011 00115 SUB +0 40200 0 00014 00116 TNZ -0 10000 0 00127 WHENEVER SIZE .G. 0, SIZE = SIZE - 1 027 LM00036 00117 CLA +0 50000 0 00025 00120 SUB +0 40200 0 00031 00121 TZE +0 10000 0 00126 00122 TMI -0 12000 0 00126 00123 CLA +0 50000 0 00025 00124 SUB +0 40200 0 00032 00125 STO +0 60100 0 00025 OR WHENEVER CHAR .E. KILL .OR. CHAR .E. K1 028 LM00037 00126 TRA +0 02000 0 00172 00127 CLA +0 50000 0 00011 00130 SUB +0 40200 0 00017 00131 TZE +0 10000 0 00135 00132 CLA +0 50000 0 00011 00133 SUB +0 40200 0 00020 00134 TNZ -0 10000 0 00140 SIZE = 0 029 LM00038 00135 CLA +0 50000 0 00031 00136 STO +0 60100 0 00025 O'R CHAR .E. RETURN .OR. CHAR.RS.6 .E. RETURN 030 LM00039 00137 TRA +0 02000 0 00172 00140 CAL -0 50000 0 00033 00141 STA +0 62100 0 00143 00142 CAL -0 50000 0 00011 00143 LGR -0 76500 0 00000 00144 SLW +0 60200 0 00346 00145 CLA +0 50000 0 00346 00146 SUB +0 40200 0 00024 00147 TZE +0 10000 0 00153 00150 CLA +0 50000 0 00011 00151 SUB +0 40200 0 00024 00152 TNZ -0 10000 0 00155 TRANSFER TO UND 031 LM00040 00153 TRA +0 02000 0 00010 O'R CHAR .A. 0400K .E. 0 032 LM00041 00154 TRA +0 02000 0 00172 00155 CAL -0 50000 0 00011 00156 ANA -0 32000 0 00035 00157 SLW +0 60200 0 00346 00160 CLA +0 50000 0 00346 00161 SUB +0 40200 0 00031 00162 TNZ -0 10000 0 00172 SIZE = SIZE + 1 033 LM00042 00163 CLA +0 50000 0 00025 00164 ADD +0 40000 0 00032 00165 STO +0 60100 0 00025 LINE(SIZE) = CHAR.A.77K 034 LM00043 00166 CAL -0 50000 0 00011 00167 ANA -0 32000 0 00034 00170 LXA +0 53400 1 00025 00171 SLW +0 60200 1 00024 END OF CONDITIONAL 035 LM00044 DISECT WHENEVER SIZE .GE. BUFSIZ, TRANSFER TO UND 036 LM00045 00172 CLA +0 50000 0 00025 00173 SUB +0 40200 0 00024 00174 TZE +0 10000 0 00176 00175 TMI -0 12000 0 00177 00176 TRA +0 02000 0 00010 00177 TRA +0 02000 0 00074 TRANSFER TO LOOP 037 LM00046 00200 TRA +0 02000 0 00007 UND SIZE = SIZE + 1 038 LM00047 00201 CLA +0 50000 0 00025 00202 ADD +0 40000 0 00032 00203 STO +0 60100 0 00025 LINE(SIZE) = RETURN 039 LM00048 00204 LXA +0 53400 1 00025 00205 CLA +0 50000 0 00024 00206 STO +0 60100 1 00024 FUNCTION RETURN SIZE 040 LM00049 00207 CLA +0 50000 0 00025 00210 TRA +0 02000 0 00342 ENTRY TO TYPOUT. 041 LM00054 00211 TRA +0 02000 0 00214 00212 SXA +0 63400 2 00324 00213 TSX +0 07400 2 00324 K = 0 042 LM00055 00214 CLA +0 50000 0 00031 00215 STO +0 60100 0 00021 SETFUL. 043 LM00056 00216 TSX +0 07400 4 00003 THROUGH PRLOOP, FOR J = 1, 1, J .G. BUFSIZ 044 LM00057 00217 CLA +0 50000 0 00032 00220 STO +0 60100 0 00016 00221 TRA +0 02000 0 00225 00222 CLA +0 50000 0 00016 00223 ADD +0 40000 0 00032 00224 STO +0 60100 0 00016 00225 CLA +0 50000 0 00016 00226 SUB +0 40200 0 00024 00227 TZE +0 10000 0 00231 00230 TPL +0 12000 0 00261 TWORD = (TWORD .LS. NBITS) .V. LINE(J) 045 LM00058 00231 CAL -0 50000 0 00022 00232 STA +0 62100 0 00234 00233 CAL -0 50000 0 00026 00234 ALS +0 76700 0 00000 00235 LXA +0 53400 2 00016 00236 ORA -0 50100 2 00024 00237 SLW +0 60200 0 00026 K = K + 1 046 LM00059 00240 CLA +0 50000 0 00021 00241 ADD +0 40000 0 00032 00242 STO +0 60100 0 00021 WHENEVER K .GE. WRDSIZ/NBITS 047 LM00060 00243 LDQ +0 56000 0 00030 00244 PXD -0 75400 0 00000 00245 LLS +0 76300 0 00000 00246 DVP +0 22100 0 00022 00247 XCA +0 13100 0 00000 00250 CHS +0 76000 0 00002 00251 ADD +0 40000 0 00021 00252 TZE +0 10000 0 00254 00253 TMI -0 12000 0 00260 K = 0 048 LM00061 00254 CLA +0 50000 0 00031 00255 STO +0 60100 0 00021 PRWORD.(TWORD) 049 LM00062 00256 TSX +0 07400 4 00002 00257 TXH +3 00000 0 00026 PRLOOP END OF CONDITIONAL 050 LM00063 00260 TRA +0 02000 0 00222 THROUGH NULPK, FOR K = K, 1, K.GE. WRDSIZ/NBITS 051 LM00064 00261 CLA +0 50000 0 00021 00262 STO +0 60100 0 00021 00263 TRA +0 02000 0 00267 00264 CLA +0 50000 0 00021 00265 ADD +0 40000 0 00032 00266 STO +0 60100 0 00021 00267 LDQ +0 56000 0 00030 00270 PXD -0 75400 0 00000 00271 LLS +0 76300 0 00000 00272 DVP +0 22100 0 00022 00273 XCA +0 13100 0 00000 00274 CHS +0 76000 0 00002 00275 ADD +0 40000 0 00021 00276 TZE +0 10000 0 00307 00277 TPL +0 12000 0 00307 NULPK TWORD = (TWORD.LS.NBITS) .V. NULL 052 LM00065 00300 CAL -0 50000 0 00022 00301 STA +0 62100 0 00303 00302 CAL -0 50000 0 00026 00303 ALS +0 76700 0 00000 00304 ORA -0 50100 0 00023 00305 SLW +0 60200 0 00026 00306 TRA +0 02000 0 00264 PRWORD.(TWORD) 053 LM00066 00307 TSX +0 07400 4 00002 00310 TXH +3 00000 0 00026 PRBUFF. 054 LM00067 00311 TSX +0 07400 4 00001 FUNCTION RETURN 055 LM00068 00312 TRA +0 02000 0 00342 ENTRY TO HOL. 056 LM00070 00313 TRA +0 02000 0 00316 00314 SXA +0 63400 2 00324 00315 TSX +0 07400 2 00324 FUNCTION RETURN LINE .A. 77K 057 LM00071 00316 CAL -0 50000 0 00024 00317 ANA -0 32000 0 00034 00320 SLW +0 60200 0 00346 00321 CLA +0 50000 0 00346 00322 TRA +0 02000 0 00342 END OF FUNCTION 058 LM00073 00323 TSX +0 07400 4 00000 00324 TXH +3 00000 0 00000 00325 SXD -0 63400 1 00324 00326 SXA +0 63400 4 00342 00327 CLA +0 50000 4 00001 00330 STA +0 62100 0 00042 00331 STA +0 62100 0 00050 00332 STA +0 62100 0 00171 00333 STA +0 62100 0 00206 00334 STA +0 62100 0 00236 00335 STA +0 62100 0 00316 00336 CLA +0 50000 4 00002 00337 STA +0 62100 0 00173 00340 STA +0 62100 0 00226 00341 TRA +0 02000 2 00001 00342 AXT +0 77400 4 00000 00343 LXA +0 53400 2 00324 00344 LXD -0 53400 1 00324 00345 TRA +0 02000 4 00001 1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 1 * J. H. SALTZER, MAY, 1965. * 00004 ENTRY RENAME RENAME FILE. * EXTERN CHFILE,WRFLX * TRANSFER VECTOR 00000 233026314325 CHFILE 00001 665126436760 WRFLX LINKAGE DIRECTOR 00002 000000000000 00003 512545214425 00004 0500 60 4 00001 RENAME CLA* 1,4 GET FILE NAMES. 00005 0601 00 0 00071 STO OLD1 .. 00006 0500 60 4 00002 CLA* 2,4 .. 00007 0601 00 0 00072 STO OLD2 .. 00010 0601 00 0 00074 STO NEW2 ASSUME NO CHANGE IN SECONDARY NAMES. 00011 0500 60 4 00003 CLA* 3,4 .. 00012 0601 00 0 00073 STO NEW1 .. 00013 0560 00 4 00004 LDQ 4,4 CHECK FOR TXH 00014 0500 00 0 00076 CLA =O300000000000 .. 00015 0040 00 0 00020 TLQ SKPN2 NO TXH, SECONDARY NAME UNCHANGED. 00016 0500 60 4 00004 CLA* 4,4 TXH, CHANGE SECONDARY NAME. 00017 0601 00 0 00074 STO NEW2 .. 00020 0634 00 4 00036 SKPN2 SXA RETURN,4 SAVE LINKAGE. 00021 0074 00 4 00000 TSX CHFILE,4 CHANGE NAME WITHOUT CHANGING MODE. TD 00022 3 00000 0 00071 TXH OLD1 .. TD 00023 3 00000 0 00072 TXH OLD2 .. TD 00024 3 00000 0 00077 TXH =-0 MODE UNCHANGED. TD 00025 3 00000 0 00073 TXH NEW1 .. TD 00026 3 00000 0 00074 TXH NEW2 .. 00027 0074 00 4 00000 TSX CHFILE,4 CHANGE MODE WITHOUT CHANGING NAME. TD 00030 3 00000 0 00073 TXH NEW1 .. TD 00031 3 00000 0 00074 TXH NEW2 .. TD 00032 3 00000 0 00075 TXH =0 PERMANENT MODE. TD 00033 3 00000 0 00077 TXH =-0 NAME UNCHANGED. TD 00034 3 00000 0 00077 TXH =-0 .. TD 00035 3 00000 0 00040 TXH CHERR IN CASE MODE UNCHANGEABLE. 00036 0774 00 4 00000 RETURN AXT --,4 RESTORE LINKAGE. 00037 0020 00 4 00001 TRA 1,4 RETURN TO CALLER. * 00040 0074 00 4 00001 CHERR TSX WRFLX,4 ASSUME TRACK QUOTA EXHAUSTED, AND COMMENT. 00041 0 00010 0 00045 TRKQUO,,8 .. 00042 0074 00 4 00001 TSX WRFLX,4 MENTION THAT NEW FILE IS TEMP MODE. 00043 0 00013 0 00055 TMPMOD,,11 .... 00044 0020 00 0 00036 TRA RETURN EXIT. * * COMMENTS AND STORAGE. * 00045 006301510121 TRKQUO BCI 8,0T1R1A1C1K0 1Q1U1O1T1A0 0E0X0H0A0U0S0T0E0D0. 00046 012301420060 00047 015001640146 00050 016301210060 1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 2 00051 002500670030 00052 002100640062 00053 006300250024 00054 003360606060 * 00055 007001460164 TMPMOD BCI 5,0Y1O1U1R0 1N1E1W0 1F1I1L1E0 1I 00056 015100600145 00057 012501660060 00060 012601310143 00061 012500600131 00062 +016200600133 OCT 016200600133 S, BLANK, RED SHIFT. 00063 006300250044 BCI 3,0T0E0M0P0O0R0A0R0Y 00064 004700460051 00065 002100510070 00066 +013200600144 OCT 013200600144 BLACK SHIFT, BLANK, SMALL M. 00067 014601240125 BCI 2,1O1D1E0. 00070 003360606060 * 00071 0 00000 0 00000 OLD1 00072 0 00000 0 00000 OLD2 00073 0 00000 0 00000 NEW1 00074 0 00000 0 00000 NEW2 * END LITERALS 00075 000000000000 00076 300000000000 00077 400000000000 1 ROUTINE TO RENAME A FILE, FORCING PERMANENT MODE IS POSSIBLE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 100 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 73 NEW1 12, 25, 30 74 NEW2 10, 17, 26, 31 71 OLD1 5, 22 72 OLD2 7, 23 40 CHERR 35 20 SKPN2 15 1 WRFLX 40, 42 0 CHFILE 21, 27 4 RENAME 0 36 RETURN 20, 44 55 TMPMOD 43 45 TRKQUO 41 0 NO ERROR IN ABOVE ASSEMBLY. 1 LIBRARY PACKAGE. PAGE 1 00024 ENTRY .PCOMT PRINT COMMENT ROUTINE 00010 ENTRY CHNCOM GO DORMANT. 00005 ENTRY EXIT SAME. 00002 ENTRY .SETUP CALLED BY MAD MAIN PROGRA. 00013 ENTRY COMARG GET COMMAND ARGUMENT. 00106 ENTRY WHOAMI 00066 ENTRY SETBCD 00064 ENTRY SETFUL 00065 ENTRY SETBRK 00061 ENTRY WRFLXA 00063 ENTRY WRFLX 00062 ENTRY RDFLXA 00067 ENTRY UPDATE UPDATE U.F.D. 00070 ENTRY CHFILE 00071 ENTRY DELFIL 00072 ENTRY FSTATE 00073 ENTRY BUFFER 00074 ENTRY OPEN 00075 ENTRY WRWAIT 00076 ENTRY WRFILE 00077 ENTRY RDWAIT 00100 ENTRY RDFILE 00101 ENTRY CLOSE 00043 ENTRY GETBUF OBTAIN BUFFERS FROM SUPERVISOR. * LINKAGE DIRECTOR 00000 000000000000 00001 334723464463 00002 0760 00 0 00016 .SETUP LMTM USE SEVEN TAG MODE. 00003 0774 00 6 00000 AXT 0,6 SET UP IR6 TO AVOID EARLY CALL TO READ. 00004 0020 00 0 00064 TRA SETFUL USE FULL MODE. SETFUL RETURNS 1,4. * 00005 0074 00 4 00066 EXIT TSX SETBCD,4 CLEANUP, RESET MODE. 00006 0074 00 4 00063 TSX WRFLX,4 PUT OUT A STAR FOR RUNCOMS. 00007 0 00001 0 00060 STAR,,1 AND THEN PERFORM CHNCOM SEQUENCE. 00010 0074 00 4 00102 CHNCOM TSX CHN,4 THIS CHNCOM ALWAYS GOES DEAD, TD 00011 3 00000 0 00107 TXH =0 IF NO CHAIN EXISTS. 00012 0020 00 0 00010 TRA *-2 IN CASE OF RESTART, DON'T. * 00013 0634 00 4 00022 COMARG SXA CM4,4 GET COMMAND ARGUMENT FOR MAD. 00014 -0500 60 4 00001 CAL* 1,4 GET ARGUMENT NUMBER. 00015 0602 00 0 00017 SLW ARG GIVE ARGUMENT NUMBER. 00016 0074 00 4 00103 TSX GETCOM,4 GET COMMAND ARGUMENT. 00017 0 00000 0 00000 ARG .. 00020 0602 00 0 00017 SLW ARG MOVE TO ARITHMETIC AC. 00021 0500 00 0 00017 CLA ARG .. 00022 0774 00 4 00000 CM4 AXT --,4 RESTORE LINKAGE. 00023 0020 00 4 00002 TRA 2,4 RETURN TO CALLER. * 00024 -0500 00 4 00001 .PCOMT CAL 1,4 GET WORD COUNT. 00025 0621 00 0 00042 STA RETURN ON RETURN, JUMP BUFFER. 00026 0767 00 0 00022 ALS 18 SETUP COUNT. 00027 0622 00 0 00036 STD PCNT .. 00030 1 77776 4 00031 TXI *+1,4,-2 SETUP UP BUFFER ADDRESS. 1 LIBRARY PACKAGE. PAGE 2 00031 0636 00 4 00036 SCA PCNT,4 SAVE BUFFER ADDRESS, AND LINKAGE. 00032 0074 00 4 00064 TSX SETFUL,4 MAKE SURE MODE SET AND NO LINES COMING IN. 00033 0074 00 4 00061 TSX WRFLXA,4 SWITCH TO RED SHIFT. 00034 0 00001 0 00056 REDS,,1 .. 00035 0074 00 4 00063 TSX WRFLX,4 PRINT LINE. 00036 0 00000 0 00000 PCNT --,,-- .. 00037 0074 00 4 00061 TSX WRFLXA,4 SHIFT BACK TO BLACK. 00040 0 00001 0 00057 BLCKS,,1 .. 00041 0535 00 4 00036 LAC PCNT,4 RESTORE LINKAGE. 00042 0020 00 4 00000 RETURN TRA --,4 RETURN TO CALLER. * 00043 0634 00 4 00052 GETBUF SXA GX4,4 ENTRY TO GET BUFFERS. 00044 0602 00 0 00055 SLW BUFSIZ SIZE OF BUFFER IN AC. 00045 0074 00 4 00104 TSX GETMEM,4 GET PRESENT BOUND. 00046 0601 00 0 00054 STO START SAVE AS BUFFER START. 00047 0361 00 0 00055 ACL BUFSIZ FORM NEW BOUND. 00050 0074 00 4 00105 TSX SETMEM,4 ASK FOR MORE. 00051 -0500 00 0 00054 CAL START GIVE CALLER LOCATION OF 00052 0774 00 4 00000 GX4 AXT --,4 HIS NEW BUFFER. 00053 0020 00 4 00001 TRA 1,4 RETURN. * 00054 0 00000 0 00000 START STORAGE FOR BUFFER LOCATION. 00055 0 00000 0 00000 BUFSIZ STORAGE FOR BUFFER SIZE. * 00056 +013300570057 REDS OCT 013300570057 RED SHIFT AND TWO NULLS. 00057 +013200570057 BLCKS OCT 013200570057 BLACK SHIFT AND TWO NULLS. 00060 -145757575757 STAR OCT 545757575757 ASTERISK AND 5 NULLS. * * SUPERVISOR SUBROUTINE CALLERS. * 00061 0101 00 0 00133 WRFLXA TIA =HWRFLXA 00062 0101 00 0 00122 RDFLXA TIA =HRDFLXA 00063 0101 00 0 00134 WRFLX TIA =HWRFLX 00064 0101 00 0 00126 SETFUL TIA =HSETFUL 00065 0101 00 0 00125 SETBRK TIA =HSETBRK 00066 0101 00 0 00124 SETBCD TIA =HSETBCD 00067 0101 00 0 00130 UPDATE TIA =HUPDATE 00070 0101 00 0 00111 CHFILE TIA =HCHFILE 00071 0101 00 0 00114 DELFIL TIA =HDELFIL 00072 0101 00 0 00115 FSTATE TIA =HFSTATE 00073 0101 00 0 00110 BUFFER TIA =HBUFFER 00074 0101 00 0 00120 OPEN TIA =HOPEN 00075 0101 00 0 00135 WRWAIT TIA =HWRWAIT 00076 0101 00 0 00132 WRFILE TIA =HWRFILE 00077 0101 00 0 00123 RDWAIT TIA =HRDWAIT 00100 0101 00 0 00121 RDFILE TIA =HRDFILE 00101 0101 00 0 00113 CLOSE TIA =HCLOSE 00102 0101 00 0 00112 CHN TIA =HCHNCOM 00103 0101 00 0 00116 GETCOM TIA =HGETCOM 00104 0101 00 0 00117 GETMEM TIA =HGETMEM 00105 0101 00 0 00127 SETMEM TIA =HSETMEM 00106 0101 00 0 00131 WHOAMI TIA =HWHOAMI * END 1 LIBRARY PACKAGE. PAGE 3 LITERALS 00107 000000000000 00110 226426262551 00111 233026314325 00112 233045234644 00113 234346622560 00114 242543263143 00115 266263216325 00116 272563234644 00117 272563442544 00120 464725456060 00121 512426314325 00122 512426436721 00123 512466213163 00124 622563222324 00125 622563225142 00126 622563266443 00127 622563442544 00130 644724216325 00131 663046214431 00132 665126314325 00133 665126436721 00134 665126436760 00135 665166213163 1 LIBRARY PACKAGE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 136 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 17 ARG 15, 20, 21 102 CHN 10 22 CM4 13 52 GX4 43 5 EXIT 0 74 OPEN 0 36 PCNT 27, 31, 41 56 REDS 34 60 STAR 7 57 BLCKS 40 101 CLOSE 0 54 START 46, 51 63 WRFLX 0, 6, 35 73 BUFFER 0 55 BUFSIZ 44, 47 70 CHFILE 0 10 CHNCOM 0 13 COMARG 0 71 DELFIL 0 72 FSTATE 0 43 GETBUF 0 103 GETCOM 16 104 GETMEM 45 24 .PCOMT 0 2 .SETUP 0 100 RDFILE 0 62 RDFLXA 0 77 RDWAIT 0 42 RETURN 25 66 SETBCD 0, 5 65 SETBRK 0 64 SETFUL 0, 4, 32 105 SETMEM 50 67 UPDATE 0 106 WHOAMI 0 76 WRFILE 0 61 WRFLXA 0, 33, 37 75 WRWAIT 0 0 NO ERROR IN ABOVE ASSEMBLY. 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1 * NOTE, INDEX REGISTERS SIX AND SEVEN MUST BE PRESERVED * BY THE CALLING PROGRAM. * THIS ROUTINE MAKES TYPEWRITER COMMENTS, BUT DOES NOT * AFFECT THE BCD-FULL MODE SWITCH. * * J. H. SALTZER, JANUARY, 1965. * 00015 ENTRY ASSIGN TO ASSIGN A NAME TO THE WRITE FILE. 00057 ENTRY WRWORD TO ADD A WORD TO THE FILE. 00100 ENTRY FILE TO CLOSE THE FILE. * 00160 ENTRY SEEK TO OPEN A FILE FOR READING. 00242 ENTRY RDWORD TO GET A WORD FROM FILE. 00275 ENTRY ENDRD TO CLOSE THE FILE. * EXTERN GETBUF,SETBCD,SETFUL,WRFLX,WRFLXA EXTERN OPEN,WRWAIT,RDWAIT,CLOSE,FSTATE,BUFFER * * ASSIGN.($NAME1$,$NAME2$) * TRANSFER VECTOR 00000 272563226426 GETBUF 00001 622563222324 SETBCD 00002 622563266443 SETFUL 00003 665126436760 WRFLX 00004 665126436721 WRFLXA 00005 464725456060 OPEN 00006 665166213163 WRWAIT 00007 512466213163 RDWAIT 00010 234346622560 CLOSE 00011 266263216325 FSTATE 00012 226426262551 BUFFER LINKAGE DIRECTOR 00013 000000000000 00014 216262312745 00015 -0500 60 4 00001 ASSIGN CAL* 1,4 OPEN FILE, GET FILE NAME. 00016 0602 00 0 00304 SLW OUTNAM .. 00017 -0500 60 4 00002 CAL* 2,4 .. 00020 0602 00 0 00305 SLW OUTNAM+1 .. 00021 0634 00 4 00041 SXA OPX4,4 SAVE LINKAGE. 00022 0020 00 0 00023 OSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS. * ******************* 00023 -0500 00 0 00315 CAL WBFSZ GET AN OUTPUT BUFFER FROM SUPERVISOR. 00024 0074 00 4 00000 TSX GETBUF,4 .. 00025 0621 00 0 00071 STA WCALL SAVE LOCATION OF BUFFER. 00026 0621 00 0 00113 STA CLCALL TO CLOSE OUT FILE. 00027 0361 00 0 00315 ACL WBFSZ ADD LENGTH, TO FORM END ADDRESS. 00030 0621 00 0 00060 STA WRNM INSERT IN INSERTER. 00031 -0500 00 0 00313 CAL TRKSZ GET A DISK TRACK BUFFER. 00032 0074 00 4 00000 TSX GETBUF,4 .. 00033 0621 00 0 00055 STA BFCALL SET UP BUFFER CALLER. 00034 -0625 00 0 00022 STL OSW RESET ONE-TIME SWITCH. * ******************* 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2 00035 0774 00 4 00040 AXT OPOK,4 SET QUOTA EXHAUSTED ERROR RETURN. 00036 0634 00 4 00143 SXA WRTN,4 .. 00037 0074 00 3 00043 TSX OPN,3 OPEN THE FILE. 00040 0774 00 7 00330 OPOK AXT WBFLTH,7 SET UP STORAGE COUNT. 00041 0774 00 4 00000 OPX4 AXT --,4 RESTORE LINKAGE. 00042 0020 00 4 00003 TRA 3,4 RETURN. * 00043 0074 00 4 00005 OPN TSX OPEN,4 OPEN FILE. TD 00044 3 00000 0 00324 TXH =HW FOR WRITING. TD 00045 3 00000 0 00304 TXH OUTNAM .. TD 00046 3 00000 0 00305 TXH OUTNAM+1 .. TD 00047 3 00000 0 00156 TXH MODE MAKE IT PERMANENT IF POSSIBLE. TD 00050 3 00000 0 00320 TXH =2 PUT IT ON THE DISK. TD 00051 3 00000 0 00127 OPERR TXH OEXH IN CASE NO MORE QUOTA AVAILABLE. 00052 0074 00 4 00012 TSX BUFFER,4 ASSIGN A BUFFER FOR THE FILE. TD 00053 3 00000 0 00304 TXH OUTNAM .. TD 00054 3 00000 0 00305 TXH OUTNAM+1 .. 00055 3 00660 0 00000 BFCALL TXH --,,TRKLTH .. 00056 0020 00 3 00001 TRA 1,3 RETURN TO CALLER. * * * ENTRY TO ADD A WORD TO FILE. * WRWORD.(WORD) * 00057 -0500 60 4 00001 WRWORD CAL* 1,4 GET WORD TO BE ADDED. 00060 0602 00 7 00000 WRNM SLW --,7 ADD WORD TO OUTPUT BUFFER. 00061 2 00001 7 00077 TIX RETURN,7,1 COUNT AND CHECK FOR FULL BUFFER. 00062 0634 00 4 00076 FULL SXA FULX4,4 BUFFER FULL, WRITE IT OUT. 00063 0774 00 4 00065 AXT WRAGN,4 SET UP EXHAUSTED RETURN ADDRESS. 00064 0634 00 4 00143 SXA WRTN,4 .. 00065 0074 00 4 00006 WRAGN TSX WRWAIT,4 GIVE BUFFER TO SUPERVISOR. TD 00066 3 00000 0 00304 TXH OUTNAM .. TD 00067 3 00000 0 00305 TXH OUTNAM+1 .. TD 00070 3 00000 0 00316 TXH =0 .. 00071 3 00330 0 00000 WCALL TXH --,,WBFLTH .. TD 00072 3 00000 0 00321 TXH =-0 IGNORE POSSIBLE EOF. TD 00073 3 00000 0 00321 TXH =-0 .. TD 00074 3 00000 0 00124 WRERR TXH WEXH ALLOW ERROR RETURN. 00075 0774 00 7 00330 AXT WBFLTH,7 RESET BUFFER POINTER. 00076 0774 00 4 00000 FULX4 AXT --,4 RESTORE LINKAGE. 00077 0020 00 4 00002 RETURN TRA 2,4 RETURN TO CALLER. * * FILE. NO ARGUMENTS. * 00100 0634 00 4 00122 FILE SXA CL4,4 ENTRY TO CLOSE OUT FILE. 00101 -0634 00 7 00103 SXD *+2,7 FORM COUNT OF WORDS SINCE 00102 0774 00 7 00330 AXT WBFLTH,7 LAST BUFFER WAS WRITTEN. 00103 -2 00000 7 00117 TNX NOWR,7,-- IF ZERO, SKIP FINAL WRITE CALL. 00104 -0634 00 7 00113 SXD CLCALL,7 NON-ZERO, SET UP WRITE CALL. 00105 0774 00 4 00107 AXT FWR,4 SET UP RETURN ADDRESS FOR EXHAUSTED CASE. 00106 0634 00 4 00143 SXA WRTN,4 .. 00107 0074 00 4 00006 FWR TSX WRWAIT,4 WRITE OUT PARTIAL BUFFER. TD 00110 3 00000 0 00304 TXH OUTNAM .. TD 00111 3 00000 0 00305 TXH OUTNAM+1 .. TD 00112 3 00000 0 00316 TXH =0 .. 00113 3 00000 0 00000 CLCALL TXH --,,-- .. 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 3 TD 00114 3 00000 0 00321 TXH =-0 IGNORE EOF RETURN. TD 00115 3 00000 0 00321 TXH =-0 .. TD 00116 3 00000 0 00124 TXH WEXH ALLOW ERROR RETURN. 00117 0074 00 4 00010 NOWR TSX CLOSE,4 CLOSE OUT THE FILE. TD 00120 3 00000 0 00304 TXH OUTNAM .. TD 00121 3 00000 0 00305 TXH OUTNAM+1 .. 00122 0774 00 4 00000 CL4 AXT --,4 RESTORE LINKAGE. 00123 0020 00 4 00001 TRA 1,4 .. * 00124 0074 00 4 00010 WEXH TSX CLOSE,4 TRACK QUOTA EXHAUSTED, CLOSE FILE. TD 00125 3 00000 0 00304 TXH OUTNAM .. TD 00126 3 00000 0 00305 TXH OUTNAM+1 .. 00127 0074 00 4 00001 OEXH TSX SETBCD,4 ENTRY FROM OPEN ERROR, COMMENT. 00130 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING. 00131 0074 00 4 00003 TSX WRFLX,4 .. 00132 0 00011 0 00144 ERMESS,,9 00133 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET. 00134 0074 00 4 00002 TSX SETFUL,4 YES, RESET INDICATOR. 00135 -0500 00 0 00317 CAL =1 SWITCH TO TEMPORARY MODE. 00136 0601 00 0 00156 STO MODE .. 00137 -0500 00 0 00155 CAL NOP BLOCK FUTURE ERROR RETURN. 00140 0602 00 0 00051 SLW OPERR .. 00141 0602 00 0 00074 SLW WRERR 00142 0074 00 3 00043 TSX OPN,3 NOW, OPEN IT AGAIN. 00143 0020 00 0 00000 WRTN TRA -- ALL FIXED, RETURN TO MAIN STREAM. * 00144 635121234260 ERMESS BCI 9,TRACK QUOTA EXHAUSTED, TEMPORARY MODE WILL BE USED. 00145 506446632160 00146 256730216462 00147 632524736063 00150 254447465121 00151 517060444624 00152 256066314343 00153 602225606462 00154 252433606060 00155 0761 00 0 00000 NOP NOP INSTRUCTION TO BLOCK ERROR RETURN. 00156 0 00000 0 00000 MODE 0 START IN PERMANENT MODE. 00157 0 00000 0 00000 MODSW TEMP STORAGE FOR 6-BIT,12-BIT INDICATOR. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SEEK.($NAME1$, $NAME2$, ERRET) * ERROR RETURN MEANS FILE NOT FOUND. * 00160 -0500 60 4 00001 SEEK CAL* 1,4 GET FILE NAME. 00161 0602 00 0 00306 SLW INNAM .. 00162 -0500 60 4 00002 CAL* 2,4 .. 00163 0602 00 0 00307 SLW INNAM+1 .. 00164 0634 00 4 00222 SXA SKX4,4 SAVE LINKAGE. 00165 0020 00 0 00166 SKSW TRA *+1 ENTER ONE-TIME SECTION TO GET BUFFERS. * ********************* 00166 -0500 00 0 00314 CAL RBFSZ GET A BUFFER FROM SUPERVISOR. 00167 0074 00 4 00000 TSX GETBUF,4 .. 00170 0621 00 0 00257 STA ECALL STORE BUFFER LOCATION. 00171 0621 00 0 00217 STA STCALL .. 00172 -0625 00 0 00165 STL SKSW RESET ONE-TIME SWITCH. * ********************* 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 4 00173 -0500 00 0 00217 CAL STCALL SET UP PICKUP INSTRUCTION FOR INDEXING. 00174 0361 00 0 00314 ACL RBFSZ .. 00175 0621 00 0 00242 STA RDWORD .. 00176 0074 00 4 00011 TSX FSTATE,4 MAKE SURE FILE IS THERE. TD 00177 3 00000 0 00306 TXH INNAM .. TD 00200 3 00000 0 00307 TXH INNAM+1 .. TD 00201 3 00000 0 00321 TXH =-0 DON'T WANT DATA. TD 00202 3 00000 0 00224 TXH NOTFN ERROR RETURN MEANS FILE NOT THERE. 00203 0074 00 4 00005 TSX OPEN,4 OPEN THE FILE FOR READING. TD 00204 3 00000 0 00322 TXH =HR .. TD 00205 3 00000 0 00306 TXH INNAM .. TD 00206 3 00000 0 00307 TXH INNAM+1 .. 00207 0774 00 6 00660 AXT RBFLTH,6 SET UP BUFFER COUNTER. 00210 0774 00 4 00222 AXT SKX4,4 SET END OF FILE RETURN. 00211 0634 00 4 00274 SXA EOFRTN,4 .. 00212 0600 00 0 00312 STZ EOFR CLEAR END OF FILE SWITCH. 00213 0074 00 4 00007 TSX RDWAIT,4 GET INITIAL BUFFER LOAD. TD 00214 3 00000 0 00306 TXH INNAM .. TD 00215 3 00000 0 00307 TXH INNAM+1 .. TD 00216 3 00000 0 00316 TXH =0 .. 00217 3 00660 0 00000 STCALL TXH --,,RBFLTH .. TD 00220 3 00000 0 00265 TXH EOF END OF FILE RETURN. TD 00221 3 00000 0 00311 TXH EOFCT .. 00222 0774 00 4 00000 SKX4 AXT --,4 RESTORE LINKAGE. 00223 0020 00 4 00004 TRA 4,4 RETURN TO CALLER. * 00224 0074 00 4 00001 NOTFN TSX SETBCD,4 FILE NOT FOUND, COMMENT. 00225 0601 00 0 00157 STO MODSW SAVE OLD CHARACTER MODE SETTING. 00226 0074 00 4 00004 TSX WRFLXA,4 START UP COMMENT. 00227 0 00001 0 00323 =H FILE ,,1 .. 00230 0074 00 4 00004 TSX WRFLXA,4 INSERT FILE NAME. 00231 0 00002 0 00306 INNAM,,2 .. 00232 0074 00 4 00003 TSX WRFLX,4 END OF COMMENT. 00233 0 00002 0 00240 ECM,,2 .. 00234 0520 00 0 00157 ZET MODSW SHOULD 12-BIT INDICATOR BE RESET. 00235 0074 00 4 00002 TSX SETFUL,4 YES, RESET MODE. 00236 0534 00 4 00222 LXA SKX4,4 GIVE ERROR RETURN. 00237 0020 60 4 00003 TRA* 3,4 .. * 00240 604546636026 ECM BCI 2, NOT FOUND. 00241 466445243360 * * ENTRY TO OBTAIN WORD FROM FILE. * WORD = RDWORD.(EOF) * 00242 0500 00 6 00000 RDWORD CLA --,6 GET WORD FROM INPUT BUFFER. 00243 2 00001 6 00264 TIX GOBACK,6,1 INDEX, AND CHECK FOR EMPTY BUFFER. 00244 0520 00 0 00312 ZET EOFR BUFFER EMPTY, HAS END OF FILE OCCURRED. 00245 0020 60 4 00001 TRA* 1,4 YES, GIVE EOF RETURN. 00246 0601 00 0 00310 STO RTEMP NO, SAVE WORD AND GET SOME MORE DATA. 00247 0634 00 4 00263 SXA EMPX4,4 SAVE LINKAGE, ALSO. 00250 0774 00 6 00660 AXT RBFLTH,6 RESET BUFFER POINTER. 00251 0774 00 4 00262 AXT EMPGT,4 SET END OF FILE RETURN. 00252 0634 00 4 00274 SXA EOFRTN,4 .. 00253 0074 00 4 00007 TSX RDWAIT,4 GET ANOTHER BUFFER LOAD OF DATA. TD 00254 3 00000 0 00306 TXH INNAM .. 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 5 TD 00255 3 00000 0 00307 TXH INNAM+1 .. TD 00256 3 00000 0 00316 TXH =0 .. 00257 3 00660 0 00000 ECALL TXH --,,RBFLTH .. TD 00260 3 00000 0 00265 TXH EOF .. TD 00261 3 00000 0 00311 TXH EOFCT .. 00262 0500 00 0 00310 EMPGT CLA RTEMP RESTORE WORD FOR THIS CALL. 00263 0774 00 4 00000 EMPX4 AXT --,4 RESTORE LINKAGE. 00264 0020 00 4 00002 GOBACK TRA 2,4 RETURN TO CALLER. * 00265 -0625 00 0 00312 EOF STL EOFR END OF FILE REACHED, SET SWITCH. 00266 -0500 00 0 00311 CAL EOFCT GET COUNT OF WORDS LEFT. 00267 0361 00 0 00317 ACL =1 BUGGER WORD COUNT. 00270 0734 00 6 00000 PAX 0,6 SET WORD COUNTER. 00271 0361 00 0 00257 ACL ECALL ADJUST PICKUP INSTRUCTION. 00272 0621 00 0 00242 STA RDWORD .. 00273 0074 00 4 00275 TSX ENDRD,4 TURN OFF FILE. 00274 0020 00 0 00000 EOFRTN TRA -- RETURN TO END OF RDFILE CALLING SEQUENCE. * * ENTRY TO CLOSE INPUT FILE. * ENDRD. * 00275 0634 00 4 00302 ENDRD SXA ENDX4,4 SAVE LINKAGE. 00276 0074 00 4 00010 TSX CLOSE,4 CLOSE FILE. TD 00277 3 00000 0 00306 TXH INNAM .. TD 00300 3 00000 0 00307 TXH INNAM+1 .. TD 00301 3 00000 0 00302 TXH *+1 IGNORE ANY ERROR RETURN. 00302 0774 00 4 00000 ENDX4 AXT --,4 RESTORE LINKAGE. 00303 0020 00 4 00001 TRA 1,4 .. * 00304 545454545454 OUTNAM BCI 2,************ NAME OF OUTPUT FILE. 00305 545454545454 00306 545454545454 INNAM BCI 2,************ NAME OF INPUT FILE. 00307 545454545454 00310 0 00000 0 00000 RTEMP STORAGE FOR WORD. 00311 0 00000 0 00000 EOFCT STORAGE FOR END OF FILE COUNTER. 00312 0 00000 0 00312 EOFR * SWITCH FOR END OF FILE MET. * 00660 TRKLTH EQU 432 DISK TRACK LENGTH. 00313 0 00000 0 00660 TRKSZ TRKLTH WORD CONTAINING TRACK LENGTH. 00660 RBFLTH EQU TRKLTH READ BUFFER LENGTH. 00330 WBFLTH EQU TRKLTH/2 WRITE BUFFER LENGTH. 00314 0 00000 0 00660 RBFSZ RBFLTH WORD CONTAINING READ BUFFER SIZE. 00315 0 00000 0 00330 WBFSZ WBFLTH WORD CONTAINING WRITE BUFFER SIZE. * END LITERALS 00316 000000000000 00317 000000000001 00320 000000000002 00321 400000000000 00322 516060606060 00323 602631432560 00324 666060606060 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 1 POST PROCESSOR ASSEMBLY DATA 325 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 122 CL4 100 240 ECM 233 265 EOF 220, 260 107 FWR 105 155 NOP 137 43 OPN 37, 142 22 OSW 34 312 EOFR 212, 244, 265 100 FILE 0 62 FULL 156 MODE 47, 136 117 NOWR 103 127 OEXH 51 5 OPEN 43, 203 40 OPOK 35 41 OPX4 21 160 SEEK 0 165 SKSW 172 222 SKX4 164, 210, 236 124 WEXH 74, 116 60 WRNM 30 143 WRTN 36, 64, 106 10 CLOSE 117, 124, 276 257 ECALL 170, 271 262 EMPGT 251 263 EMPX4 247 275 ENDRD 0, 273 302 ENDX4 275 311 EOFCT 221, 261, 266 76 FULX4 62 306 INNAM 161, 163, 177, 200, 205, 206, 214, 215, 231, 254, 255, 277, 300 157 MODSW 130, 133, 225, 234 224 NOTFN 202 51 OPERR 140 314 RBFSZ 166, 174 310 RTEMP 246, 262 313 TRKSZ 31 315 WBFSZ 23, 27 71 WCALL 25 65 WRAGN 63 74 WRERR 141 3 WRFLX 131, 232 15 ASSIGN 0 55 BFCALL 33 12 BUFFER 52 113 CLCALL 26, 104 274 EOFRTN 211, 252 144 ERMESS 132 11 FSTATE 176 0 GETBUF 24, 32, 167 264 GOBACK 243 1 BUFFER CONTROL ROUTINE FOR DISK INPUT AND OUTPUT. PAGE 2 POST PROCESSOR ASSEMBLY DATA 304 OUTNAM 16, 20, 45, 46, 53, 54, 66, 67, 110, 111, 120, 121, 125, 126 660 RBFLTH 207, 217, 250, 257, 314 7 RDWAIT 213, 253 242 RDWORD 0, 175, 272 77 RETURN 61 1 SETBCD 127, 224 2 SETFUL 134, 235 217 STCALL 171, 173 660 TRKLTH 55, 313, 314 330 WBFLTH 40, 71, 75, 102, 314, 315 4 WRFLXA 226, 230 6 WRWAIT 65, 107 57 WRWORD 0 0 NO ERROR IN ABOVE ASSEMBLY. 1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 1 * USAGE CLRNAM.(NAME1, NAME2, CANT, SW) * FILE NAME1 NAME2 WILL BE CHECKED FOR AND * DELETED IF POSSIBLE. IF SW * IS TRUE, USER WILL BE ASKED BEFORE DELETING * THE OLD FILE. * 00012 ENTRY CLRNAM CLEAR FILE NAME. * EXTERN SETFUL,SETBCD,WRFLX,WRFLXA,RDFLXA EXTERN FSTATE,CHFILE,DELFIL * TRANSFER VECTOR 00000 622563266443 SETFUL 00001 622563222324 SETBCD 00002 665126436760 WRFLX 00003 665126436721 WRFLXA 00004 512426436721 RDFLXA 00005 266263216325 FSTATE 00006 233026314325 CHFILE 00007 242543263143 DELFIL LINKAGE DIRECTOR 00010 000000000000 00011 234351452144 00012 -0500 60 4 00001 CLRNAM CAL* 1,4 GET FILE NAME. 00013 0602 00 0 00121 SLW N1 .. 00014 -0500 60 4 00002 CAL* 2,4 SECONDARY NAME. 00015 0602 00 0 00122 SLW N2 .. 00016 0634 00 4 00147 SXA SV4,4 SAVE LINKAGE. 00017 0074 00 4 00005 TSX FSTATE,4 CHECK STATE OF FILE. TD 00020 3 00000 0 00121 TXH N1 NAME TD 00021 3 00000 0 00122 TXH N2 NAME 00022 3 00010 0 00156 TXH DATA,,8 FILE STATE TD 00023 3 00000 0 00112 TXH FSTERR IN CASE OF ERROR TD 00024 3 00000 0 00155 TXH ERNO GATHER ERROR NUMBER. 00025 0441 00 0 00157 LDI MODE CHECK MODE OF FILE. 00026 -0054 00 400000 LFT 400000 IS MODE NEGATIVE. 00027 0020 00 0 00100 TRA LINKED YES, FILE IS LINKED. 00030 0600 00 0 00154 STZ PROTEC ASSUME NOT PROTECTED. 00031 0056 00 000100 RNT 100 CHECK PROTECTED BIT. 00032 0020 00 0 00035 TRA CKASK NOT PROTECTED, SHOULD WE ASK ANYWAY. 00033 -0625 00 0 00154 STL PROTEC PROTECTED, SET SWITCH FOR LONG COMMENT. 00034 0020 00 0 00040 TRA ASK GO ASK PERMISSION TO DELETE FILE. 00035 0534 00 4 00147 CKASK LXA SV4,4 GET LINKAGE TO ASK SWITCH. 00036 -0520 60 4 00004 NZT* 4,4 SHOULD WE ASK PERMISSION ANYWAY. 00037 0020 00 0 00065 TRA DELETE NO, GO DELETE FILE. 00040 0074 00 4 00000 ASK TSX SETFUL,4 SET CHARACTER MODE SWITCH. 00041 0074 00 4 00003 TSX WRFLXA,4 BEGIN THE COMMENT. 00042 0 00003 0 00116 MI,,3 .. 00043 0074 00 4 00001 TSX SETBCD,4 SWITCH TO BCD FOR FILE NAME. 00044 0074 00 4 00003 TSX WRFLXA,4 WRITE OUT FILE NAME. 00045 0 00002 0 00121 N1,,2 00046 0074 00 4 00000 TSX SETFUL,4 BACK TO FULL MODE. 00047 -0520 00 0 00154 NZT PROTEC SHOULD WE CLAIM IT IS PROTECTED. 1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 2 00050 0020 00 0 00053 TRA SKPPCM NO, SKIP THAT PART. 00051 0074 00 4 00003 TSX WRFLXA,4 YES, ANNOUNC PROTECTED PART. 00052 0 00006 0 00123 ISPTC,,6 .. 00053 0074 00 4 00003 SKPPCM TSX WRFLXA,4 NOW ASK FOR PERMISSION. 00054 0 00012 0 00131 DOYOU,,10 .. 00055 0074 00 4 00001 TSX SETBCD,4 SWITCH SO ERASE WORKS. 00056 0074 00 4 00004 TSX RDFLXA,4 00057 0 00001 0 00150 IN,,1 GET ONE WORD. 00060 0074 00 4 00000 TSX SETFUL,4 RESTORE MODE. 00061 -0500 00 0 00150 CAL IN GET THAT WORD. 00062 0771 00 0 00022 ARS 18 GET FIRST THREE CHARACTERS. 00063 0322 00 0 00170 ERA =H000YES DID HE SAY YES. 00064 -0100 00 0 00076 TNZ ERTN NO, GIVE ERROR RETURN. 00065 0074 00 4 00006 DELETE TSX CHFILE,4 GOODY, WE CAN DELETE IT. TD 00066 3 00000 0 00121 TXH N1 MAKE SURE IT IS DELETEABLE. TD 00067 3 00000 0 00122 TXH N2 .. TD 00070 3 00000 0 00166 TXH =1 BY CHANGING ITS MODE TO TEMPORARY. 00071 0074 00 4 00007 TSX DELFIL,4 DELETE THE SILLY THING. TD 00072 3 00000 0 00121 TXH N1 .. TD 00073 3 00000 0 00122 TXH N2 .. 00074 0534 00 4 00147 RTN LXA SV4,4 RESTORE THE LINKAGE. 00075 0020 00 4 00005 TRA 5,4 RETURN TO CALLER. * 00076 0534 00 4 00147 ERTN LXA SV4,4 ERROR RETURN, FILE CANNOT BE DELETED. 00077 0020 60 4 00003 TRA* 3,4 RETURN THROUGH ERROR RETURN. * 00100 0074 00 4 00000 LINKED TSX SETFUL,4 FILE IS LINKED, COMMENT AND GIVE UP. 00101 0074 00 4 00003 TSX WRFLXA,4 START THE COMMENT. 00102 0 00003 0 00116 MI,,3 .. 00103 0074 00 4 00001 TSX SETBCD,4 SWITCH MODE FOR FILE NAME. 00104 0074 00 4 00003 TSX WRFLXA,4 TYPE FILE NAME. 00105 0 00002 0 00121 N1,,2 .. 00106 0074 00 4 00000 TSX SETFUL,4 SWITCH FOR REST OF COMMENT. 00107 0074 00 4 00002 TSX WRFLX,4 END THIS PART WITH A C.R. 00110 0 00004 0 00143 ISLNK,,4 .. 00111 0020 00 0 00076 TRA ERTN NOW GIVE AN ERROR RETURN. * 00112 0500 00 0 00155 FSTERR CLA ERNO ERROR RETURN FROM FSTATE, FIND OUT WHY. 00113 0402 00 0 00167 SUB =3 RETURN 3 MEANS FILE NOT FOUND. 00114 -0100 00 0 00100 TNZ LINKED WRONG ERROR RETURN, ASSUME LINKED. 00115 0020 00 0 00074 TRA RTN FILE NOT FOUND, NAME IS OK. * * DATA, COMMENTS, ETC. * 00116 004601430124 MI BCI 3,0O1L1D0 1F1I1L1E0 00117 006001260131 00120 014301250060 * 00121 0 00000 0 00000 N1 STORAGE FOR FILE NAME. 00122 0 00000 0 00000 N2 SECONDARY NAME. * 00123 006001310162 ISPTC BCI 1,0 1I1S 00124 +006001330057 OCT 006001330057 BLANK, RED SHIFT, NULL. 00125 004700510046 BCI 3,0P0R0O0T0E0C0T0E0D 00126 006300250023 00127 006300250024 1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 3 00130 +013200330060 OCT 013200330060 BLACK SHIFT, PERIOD, BLANK. 00131 006000400040 DOYOU BCI 9,0 0-0-0D1O0 1Y1O1U0 1W1I1S1H0 1T1O0 1D1E1L1E1T1E0 1I1T 00132 002401460060 00133 017001460164 00134 006001660131 00135 016201300060 00136 016301460060 00137 012401250143 00140 012501630125 00141 006001310163 00142 +015600600060 OCT 015600600060 TERMINAL QUESTION MARK. * 00143 006001310162 ISLNK BCI 4,0 1I1S0 1L1I1N1K1E1D0. 00144 006001430131 00145 014501420125 00146 012400336060 * 00147 0 00000 0 00000 SV4 STORAGE FOR CALLING LINKAGE. 00150 IN BSS 4 FOR INPUT WORD. 00154 0 00000 0 00000 PROTEC SWITCH FOR PROTECTED FILE. 00155 0 00000 0 00000 ERNO STORAGE FOR ERROR NUMBER. 00156 DATA BSS 8 FOR STATE INFORMATION. 00161 DEVICE EQU DATA+3 00157 MODE EQU DATA+1 * END LITERALS 00166 000000000001 00167 000000000003 00170 000000702562 1 ROUTINE TO MAKE SURE FILE NAME IS USEABLE. PAGE 1 POST PROCESSOR ASSEMBLY DATA 171 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 150 IN 57, 61 116 MI 42, 102 121 N1 13, 20, 45, 66, 72, 105 122 N2 15, 21, 67, 73 40 ASK 34 74 RTN 115 147 SV4 16, 35, 74, 76 156 DATA 22, 166 155 ERNO 24, 112 76 ERTN 64, 111 157 MODE 25, 166 35 CKASK 32 131 DOYOU 54 143 ISLNK 110 123 ISPTC 52 2 WRFLX 107 6 CHFILE 65 12 CLRNAM 0 65 DELETE 37 7 DELFIL 71 161 DEVICE 166 5 FSTATE 17 112 FSTERR 23 100 LINKED 27, 114 154 PROTEC 30, 33, 47 4 RDFLXA 56 1 SETBCD 43, 55, 103 0 SETFUL 40, 46, 60, 100, 106 53 SKPPCM 50 3 WRFLXA 41, 44, 51, 53, 101, 104 0 NO ERROR IN ABOVE ASSEMBLY. 1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 1 * * J. H. SALTZER, JANUARY, 1965. * 00004 ENTRY PRWORD ADD A WORD TO PRINT BUFFER. 00021 ENTRY PRBUFF PRINT OUT PARTIAL BUFFER. 00030 ENTRY TYWORD GET NEXT TYPED WORD. 00047 ENTRY TYLINE RESET TO START READING NEXT LINE. * EXTERN RDFLXA,WRFLXA * TRANSFER VECTOR 00000 512426436721 RDFLXA 00001 665126436721 WRFLXA LINKAGE DIRECTOR 00002 000000000000 00003 475166465124 00034 BUFLEN EQU 28 TYPEWRITER BUFFER SIZE. * * ADD WORD TO PRINT BUFFER. * PRWORD.(WORD) * 00004 0634 00 4 00017 PRWORD SXA PRX4,4 SAVE LINKAGE. 00005 -0500 60 4 00001 CAL* 1,4 GET WORD BEING ADDED. 00006 -0734 00 4 00000 PDX 0,4 CHECK FOR DISK CONTROL WORD. 00007 3 77776 4 00017 TXH PRX4,4,-2 DON'T STORE CONTROL WORD. 00010 0774 00 4 00034 PWCNT AXT BUFLEN,4 SET WORD COUNTER (INITIALLY BUFLEN.) 00011 0602 00 4 00105 SLW BUFF+BUFLEN,4 STORE WORD IN BUFFER. 00012 2 00001 4 00016 TIX PSAVE,4,1 COUNT, CHECK FOR OVERFLOW. 00013 0074 00 4 00001 TSX WRFLXA,4 BUFFER FULL, PRINT W/O C.R. 00014 0 00034 0 00051 BUFF,,BUFLEN .. 00015 0774 00 4 00034 PFRESH AXT BUFLEN,4 RESET WORD COUNTER. 00016 0634 00 4 00010 PSAVE SXA PWCNT,4 SAVE WORD COUNTER. 00017 0774 00 4 00000 PRX4 AXT --,4 RESTORE LINKAGE. 00020 0020 00 4 00001 TRA 1,4 RETURN. * * PRINT OUT REMAINING BUFFER, RESET COUNTER. * 00021 0634 00 4 00017 PRBUFF SXA PRX4,4 SAVE LINKAGE. 00022 0535 00 4 00010 LAC PWCNT,4 GET WORD COUNT. 00023 1 00034 4 00024 TXI *+1,4,BUFLEN FORM COMPLEMENT MOD BUFLEN. 00024 -0634 00 4 00026 SXD PRCL,4 SAVE COUNT IN CALLER. 00025 0074 00 4 00001 TSX WRFLXA,4 PRINT REMAINDER. 00026 0 00000 0 00051 PRCL BUFF,,-- .. 00027 0020 00 0 00015 TRA PFRESH GO REFRESH COUNTER, AND RETURN. * * GET A WORD FROM INPUT BUFFER. * WORD = TYWORD.(0) * 00030 0634 00 4 00045 TYWORD SXA TYX4,4 SAVE LINKAGE. 00031 0774 00 5 00000 TYCNT AXT --,5 GET WORD COUNTER. 00032 0774 00 4 00000 TYPOS AXT --,4 GET BUFFER POINTER. 00033 2 00006 5 00041 TIX TYGET,5,6 CHECK FOR WORDS LEFT. 00034 0074 00 4 00000 TSX RDFLXA,4 NO, GET SOME. 1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 2 00035 0 00034 0 00051 TYCALL BUFF,,BUFLEN .. 00036 0734 00 5 00000 PAX 0,5 INSERT 6-BIT CHARACTER COUNT INTO COUNTER. 00037 2 40000 5 00040 TIX *+1,5,16384 REMOVE BIT 21 IF PRESENT. 00040 0774 00 4 00000 AXT 0,4 RESET INPUT BUFFER POINTER. 00041 0500 00 4 00051 TYGET CLA BUFF,4 GET A WORD. 00042 1 77777 4 00043 TXI *+1,4,-1 MOVE POINTER TO NEXT WORD. 00043 0634 00 4 00032 SXA TYPOS,4 SAVE POINTER. 00044 0634 00 5 00031 SXA TYCNT,5 SAVE CHARACTER COUNTER. 00045 0774 00 4 00000 TYX4 AXT --,4 RESTORE LINKAGE. 00046 0020 00 4 00001 TRA 1,4 RETURN. * 00047 0634 00 0 00031 TYLINE ZSA TYCNT RESET CHARACTER COUNT TO MAKE LINE EMPTY. 00050 0020 00 4 00001 TRA 1,4 RETURN * 00051 BUFF BSS BUFLEN OUTPUT BUFFER. * END 1 BUFFER CONTROL ROUTINE FOR TYPEWRITER OUTPUT. PAGE 1 POST PROCESSOR ASSEMBLY DATA 105 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 51 BUFF 11, 14, 26, 35, 41 26 PRCL 24 17 PRX4 4, 7, 21 45 TYX4 30 16 PSAVE 12 10 PWCNT 16, 22 31 TYCNT 44, 47 41 TYGET 33 32 TYPOS 43 34 BUFLEN 4, 10, 11, 14, 15, 23, 35, 51 15 PFRESH 27 21 PRBUFF 0 4 PRWORD 0 0 RDFLXA 34 35 TYCALL 47 TYLINE 0 30 TYWORD 0 1 WRFLXA 13, 25 0 NO ERROR IN ABOVE ASSEMBLY. 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 1 * INPUT AND OUTPUT IS LINE-MARKED FORMAT. * J. H. SALTZER, JANUARY, 1965 * 00010 ENTRY WRITE WRITE ONE LINE OUT. 00071 ENTRY READ TO READ NEXT LINE. 00167 ENTRY BOTTOM TO RAPIDLY MOVE TO BOTTOM OF FILE. 00062 ENTRY CLOSEW CLOSE OUT WRITE FILE. * EXTERN WRFLX,WRWORD,RDWORD,SETBCD,SETFUL,FILE * TRANSFER VECTOR 00000 665126436760 WRFLX 00001 665166465124 WRWORD 00002 512466465124 RDWORD 00003 622563222324 SETBCD 00004 622563266443 SETFUL 00005 263143256060 FILE LINKAGE DIRECTOR 00006 000000000000 00007 665131632560 00006 NBITS EQU 6 COULD BE 6, 9, 12, OR 18. 00006 NCHRS EQU 36/NBITS NO. OF CHARACTERS PER WORD ON 7094. * * WRITE.(LINE, LENGTH) * 00010 0634 00 4 00056 WRITE SXA WX4,4 SAVE LINKAGE AND REGISTERS. 00011 0634 00 2 00057 SXA WX2,2 .. 00012 0634 00 1 00060 SXA WX1,1 .. 00013 -0500 00 4 00001 CAL 1,4 GET LINE ADDRESS. 00014 0621 00 0 00035 STA INLP SET UP LOCATION OF INPUT. 00015 0500 60 4 00002 CLA* 2,4 GET CHARACTER COUNT. 00016 0100 00 4 00003 TZE 3,4 DON'T WORK ON ZERO COUNT. 00017 0402 00 0 00200 SUB =1 DISCARD CARRIAGE RETURN AT END. 00020 0100 00 4 00003 TZE 3,4 ZERO SIZE LINES NOT ALLOWED, EITHER. 00021 0767 00 0 00022 ALS 18 SET UP CHARACTER COUNT. 00022 0622 00 0 00041 STD ENDTST NCHARS = CPW*NWORDS + EXTRAS 00023 0361 00 0 00066 ACL CPWL1 CWP*NWORDS + EXTRAS + CPW - 1 00024 0131 00 0 00000 XCA (CPW*NWORDS + EXTRAS + CWP - 1)/CPW = 00025 -0754 00 0 00000 ZAC NWORDS + (EXTRAS - 1 + CPW)/CPW 00026 0221 00 0 00065 DVP CPW SECOND TERM IS 1 IF EXTRAS .G. 0, 00027 0131 00 0 00000 XCA 0 IF EXTRAS .E. 0 00030 0621 00 0 00067 STA CWD INSERT IN CONTROL WORD. 00031 0074 00 4 00001 TSX WRWORD,4 INSERT THIS WORD IN OUTPUT BUFFER. TD 00032 3 00000 0 00067 TXH CWD .. 00033 0774 00 2 00001 AXT 1,2 00034 0774 00 1 00006 OUTLP AXT 36/NBITS,1 SET CHARACTER COUNTER. 00035 0560 00 2 00000 INLP LDQ --,2 00036 -0773 00 0 00036 RQL 36-NBITS SHIFT CHARACTER TO POSITION. 00037 -0763 00 0 00006 LGL NBITS AND INTO WORD. 00040 1 00001 2 00041 TXI *+1,2,1 COUNT INPUT CHARACTERS. 00041 3 00000 2 00052 ENDTST TXH DONE,2,-- CHECK FOR END OF INPUT. 00042 2 00001 1 00035 TIX INLP,1,1 00043 0602 00 0 00070 SLW WDOUT SAVE COMPLETED WORD. 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 2 00044 0074 00 4 00001 OUT TSX WRWORD,4 STORE COMPLETED WORD. TD 00045 3 00000 0 00070 TXH WDOUT .. 00046 0020 00 0 00034 TRA OUTLP GO BACK FOR MORE. * 00047 0560 00 0 00063 NLLP LDQ NULL FILL IN WORD WITH NULLS. 00050 -0773 00 0 00036 RQL 36-NBITS MOVE NULL TO POSITION. 00051 -0763 00 0 00006 LGL NBITS SHIFT IN A NULL. 00052 2 00001 1 00047 DONE TIX NLLP,1,1 COUNT SPACES LEFT. 00053 0602 00 0 00070 SLW WDOUT STORE THIS WORD. 00054 0074 00 4 00001 TSX WRWORD,4 ADD TO OUTPUT BUFFER. TD 00055 3 00000 0 00070 TXH WDOUT .. 00056 0774 00 4 00000 WX4 AXT --,4 RESTORE LINKAGE, AND IRS. 00057 0774 00 2 00000 WX2 AXT --,2 .. 00060 0774 00 1 00000 WX1 AXT --,1 00061 0020 00 4 00003 TRA 3,4 .. * 00062 0020 00 0 00005 CLOSEW TRA FILE REFLECT CLOSE CALL TO BUFFER. * * 00063 +000000000057 NULL OCT 0057 NULL CHARACTER. 00064 +000000000055 RETURN OCT 0055 CARRIAGE RETURN CHARACTER. 00065 0 00006 0 00000 CPW ,,NCHRS NUMBER OF CHARACTERS PER WORD. 00066 0 00005 0 00000 CPWL1 ,,NCHRS-1 CHARACTERS PER WORD LESS ONE. * 00067 -377777000000 CWD OCT 777777000000 00070 0 00000 0 00000 WDOUT STORAGE FOR WORD BEING OUTPUT. * * LENGTH = READ.(LINE, BUFSIZ, EOF) * 00071 0634 00 1 00137 READ SXA RX1,1 READ NEXT LINE. 00072 0634 00 2 00136 SXA RX2,2 00073 0634 00 4 00134 SXA RX4,4 00074 0634 00 3 00135 SXA RX3,3 00075 -0500 00 4 00001 CAL 1,4 GET LOCATION OF BUFFER. 00076 0621 00 0 00124 STA RPUT 00077 -0500 60 4 00002 CAL* 2,4 SET UP END TEST. 00100 0402 00 0 00200 SUB =1 00101 0767 00 0 00022 ALS 18 .. 00102 0622 00 0 00125 STD BUFTST .. 00103 0074 00 4 00002 RDAGN TSX RDWORD,4 GET CONTROL WORD. 00104 0 00000 0 00141 EOF IN CASE WE ARE AT END OF FILE. 00105 -0734 00 1 00000 PDX 0,1 PUT FLAG IN IR1. 00106 0734 00 3 00000 PAX 0,3 PUT COUNT IN IR3. 00107 -2 77776 1 00146 TNX WOOPS,1,-2 CHECK FLAG. 00110 -3 00000 3 00103 TXL RDAGN,3,0 IGNORE ZERO-LENGTH LINE. 00111 0774 00 2 00000 RDON AXT 0,2 SET OUTPUT COUNTER. 00112 0074 00 4 00002 ROUTLP TSX RDWORD,4 READ A WORD. 00113 0 00000 0 00141 EOF .. 00114 0774 00 1 00006 AXT 36/NBITS,1 SET CHARACTER COUNTER. 00115 0131 00 0 00000 XCA WORD TO MQ. 00116 -0754 00 0 00000 RINLP ZAC CLEAR AC. 00117 -0763 00 0 00006 LGL NBITS GET NEXT CHARACTER. 00120 -0340 00 0 00063 LAS NULL IS THIS A NULL CHARACTER. 00121 0020 00 0 00123 TRA *+2 NO. 00122 0020 00 0 00126 TRA RCH YES, SKIP IT. 00123 1 00001 2 00124 TXI *+1,2,1 COUNT STORAGE SPACES. 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 3 00124 0602 00 2 00000 RPUT SLW --,2 STORE CHARACTER IN LINE. 00125 3 00000 2 00133 BUFTST TXH PXA,2,-- TEST FOR FULL BUFFER. 00126 2 00001 1 00116 RCH TIX RINLP,1,1 INDEX, AND COUNT CHARACTERS. 00127 2 00001 3 00112 TIX ROUTLP,3,1 INDEX, AND COUNT WORDS. 00130 -0500 00 0 00064 CAL RETURN PUT RETURN AT END OF LINE. 00131 1 00001 2 00132 TXI *+1,2,1 INCLUDE IN COUNT. 00132 0522 00 0 00124 XEC RPUT INSTALL IT. 00133 0754 00 2 00000 PXA PXA 0,2 GET WORD COUNT. 00134 0774 00 4 00000 RX4 AXT --,4 00135 0774 00 3 00000 RX3 AXT --,3 00136 0774 00 2 00000 RX2 AXT --,2 00137 0774 00 1 00000 RX1 AXT --,1 00140 0020 00 4 00004 TRA 4,4 * 00141 0534 00 4 00134 EOF LXA RX4,4 END OF FILE REACHED, TAKE ERROR 00142 0534 00 3 00135 LXA RX3,3 RETURN. 00143 0534 00 2 00136 LXA RX2,2 00144 0534 00 1 00137 LXA RX1,1 00145 0020 60 4 00003 TRA* 3,4 * * 00146 0074 00 4 00003 WOOPS TSX SETBCD,4 FILE IS NOT LINE-MARKED PROPERLY, COMPLAIN. 00147 0074 00 4 00000 TSX WRFLX,4 00150 0 00006 0 00161 MESS1,,6 00151 0074 00 4 00004 TSX SETFUL,4 RESTORE INDICATOR. 00152 0074 00 4 00002 LP TSX RDWORD,4 SEARCH FOR NEXT LINE MARK. 00153 0 00000 0 00141 EOF 00154 -0734 00 1 00000 PDX 0,1 CHECK FOR LINE MARK IN THIS WORD. 00155 -2 77776 1 00152 TNX LP,1,-2 .. 00156 0734 00 3 00000 PAX 0,3 LINE MARK OK, CHECK COUNT. 00157 -3 00000 1 00152 TXL LP,1,0 .. 00160 0020 00 0 00111 TRA RDON COUNT NON-ZERO, READ ON. * 00161 314547646360 MESS1 BCI 6,INPUT FILE HAS IMPROPER FORMAT. 00162 263143256030 00163 216260314447 00164 514647255160 00165 264651442163 00166 336060606060 * * ROUTINE TO SWING TO BOTTOM OF FILE. * 00167 0634 00 4 00176 BOTTOM SXA EOFB,4 SAVE LINKAGE. 00170 0074 00 4 00002 LOOP TSX RDWORD,4 GET NEXT INPUT WORD. 00171 0 00000 0 00176 EOFB EXIT ON END OF FILE. 00172 0601 00 0 00070 STO WDOUT SAVE THIS WORD. 00173 0074 00 4 00001 TSX WRWORD,4 WRITE OUT THIS WORD. TD 00174 3 00000 0 00070 TXH WDOUT .. 00175 0020 00 0 00170 TRA LOOP REPEAT. * 00176 0774 00 4 00000 EOFB AXT --,4 RESTORE LINKAGE. 00177 0020 00 4 00001 TRA 1,4 RETURN. * END 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 4 LITERALS 00200 000000000001 1 SUBROUTINES TO CONTROL CHARACTER PACKING AND UNPACKING. PAGE 1 POST PROCESSOR ASSEMBLY DATA 201 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 152 LP 155, 157 65 CPW 26 67 CWD 30, 32 141 EOF 104, 113, 153 44 OUT 133 PXA 125 126 RCH 122 137 RX1 71, 144 136 RX2 72, 143 135 RX3 74, 142 134 RX4 73, 141 60 WX1 12 57 WX2 11 56 WX4 10 52 DONE 41 176 EOFB 167, 171 5 FILE 62 35 INLP 14, 42 170 LOOP 175 47 NLLP 52 63 NULL 47, 120 111 RDON 160 71 READ 0 124 RPUT 76, 132 66 CPWL1 23 161 MESS1 150 6 NBITS 10, 34, 36, 37, 50, 51, 114, 117 6 NCHRS 10, 65, 66 34 OUTLP 46 103 RDAGN 110 116 RINLP 126 70 WDOUT 43, 45, 53, 55, 172, 174 146 WOOPS 107 0 WRFLX 147 10 WRITE 0 167 BOTTOM 0 125 BUFTST 102 62 CLOSEW 0 41 ENDTST 22 2 RDWORD 103, 112, 152, 170 64 RETURN 130 112 ROUTLP 127 3 SETBCD 146 4 SETFUL 151 1 WRWORD 31, 44, 54, 173 0 NO ERROR IN ABOVE ASSEMBLY. ZOT BCD 02/08/69 0003.9 6243 00000 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 1 OCTOBER 19, 1968 LHM * * ABS * 00000 ORG,0 * * UNIVERSAL EXIT. MUST BE LOADED AT LOCATION ZERO. * 00000 0074 00 4 00422 EXIT TSX,WRFLXA,4 00001 0 00000 0 00000 ZERO 00002 0101 00 0 00434 TIA,CHAIN * * RANDOM CONSTANTS * 00003 +350000350000 COLONS OCT,350000350000 00004 +005700570057 NULLS OCT,005700570057 00005 -155757575757 CRWORD OCT,555757575757 EVEN 00006 -175757575757 THEWRD OCT,575757575757 00007 545454545454 SPARE BCI,1,****** 00010 0 00005 0 00000 CLCWRD PZE,,,5 00011 0 00000 0 00074 TIME PZE,60 00012 +000000000060 BLANK OCT,60 00013 +000000000061 SLASH OCT,61 * * REWRITE THE COMMAND BUFFER FOR NEXCOM. * 00014 0622 00 0 00016 FIN STD,*+2 00015 0602 00 1 00416 COMSTO SLW,WRMESS-XR1,1 00016 2 00001 1 00042 TIX,COM,1,1 00017 0074 00 4 00424 TSX,SETCLS,4 00020 0 00000 0 00455 SETLOC PZE,WRMESS,,0 00021 -0500 00 0 00455 CAL,WRMESS 00022 0560 00 0 00456 LDQ,WRMESS+1 00023 0074 00 4 00426 NEXLOC TSX,NEXCOM,4 * * MAIN LOOP. FIND THE COMMAND. * NOTE THAT THIS MUST BEGIN AT LOC (24)8 * 00024 0774 00 1 00001 LOOP AXT,1,1 00025 -0634 00 0 00061 ZSD,CONV 00026 0074 00 2 00040 GETARG TSX,NUM,2 00027 2 00003 2 00052 TIX,BUMP,2,XR2-GETARG * * THE ARGUMENT WAS A NUMBER. REPEAT THE LAST CHARACTER TYPED. * 00030 0734 00 1 00000 PAX,,1 00031 0020 00 0 00111 TRA,WRTIX * * REGULAR ARGUMENT. GO FIND IT IN THE TABLE. * 00031 XR2 EQU,*-1 00032 -0340 00 2 00463 LAS,TABTOP-XR2,2 00033 2 00002 2 00032 TIX,*-1,2,2 00034 0020 60 2 00464 TRA*,TABTOP+1-XR2,2 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 2 OCTOBER 19, 1968 LHM 00035 -0774 00 2 00014 AXC,FIN,2 00036 0636 00 2 00057 SCA,NOCOM,2 00037 0074 00 1 00015 XR1 TSX,COMSTO,1 * * PICK UP THE NEXT COMMAND ARGUMENT. * 00040 0441 00 0 00012 NUM LDI,BLANK 00041 0020 00 0 00043 TRA,*+2 00042 0441 00 0 00001 COM LDI,ZERO 00043 0074 00 4 00423 COMCAL TSX,GETCOM,4 00044 0 00000 0 00000 COMNO 00045 0760 00 0 00003 SSP 00046 0046 00 0 00050 TIF,*+2 00047 0020 00 2 00001 TRA,1,2 00050 0054 00 000060 RFT,60 00051 1 77777 2 00061 TXI,CONV,2,-1 00052 0534 00 4 00044 BUMP LXA,COMNO,4 00053 1 00001 4 00054 TXI,*+1,4,1 00054 0634 00 4 00044 SXA,COMNO,4 00055 -0340 00 0 00652 LAS,TABBOT 00056 0634 00 0 00043 ZSA,COMCAL 00057 0074 00 4 00000 NOCOM TSX,EXIT,4 00060 0020 00 2 00001 TRA,1,2 * * BCD TO BINARY CONVERSION. * 00061 -3 00000 1 00073 CONV TXL,DTO,1,** 00062 -0130 00 0 00000 DTB XCL 00063 0600 00 0 00477 STZ,TEMP 00064 0774 00 1 00006 AXT,6,1 00065 0204 04 1 00455 VLM,TABLE,1,4 00066 -0765 00 0 00002 LGR,2 00067 0361 00 0 00477 ACL,TEMP 00070 0602 00 0 00477 SLW,TEMP 00071 2 00001 1 00065 TIX,*-4,1,1 00072 0020 00 0 00052 TRA,BUMP * * BCD TO OCTAL CONVERSION. * 00073 -0765 00 0 00003 DTO LGR,3 00074 0771 00 0 00003 ARS,3 00075 2 12525 4 00073 TIX,DTO,4,32767/6 00076 -0763 00 0 00022 LGL,18 00077 0020 00 0 00052 TRA,BUMP * * PRINT A SINGLE CHARACTER. * 00100 0074 00 4 00427 PRINT TSX,SETFUL,4 00101 -0500 00 0 00004 CAL,NULLS 00102 0602 00 0 00455 SLW,WRMESS 00103 -0500 00 2 00464 CAL,TABTOP+1-XR2,2 00104 0622 00 0 00455 STD,WRMESS 00105 0774 00 2 00001 AXT,1,2 00106 -0634 00 2 00110 SETCNT SXD,COUNT,2 00107 0074 00 4 00431 WR TSX,WRFLX,4 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 3 OCTOBER 19, 1968 LHM 00110 0 00001 0 00455 COUNT PZE,WRMESS,,1 00111 2 00001 1 00107 WRTIX TIX,WR,1,1 00112 0120 00 0 00024 TPL,LOOP 00113 0101 00 0 00442 DEATH TIA,DEAD * * FIDDLE WITH COMMAND BUFFERS. * 00114 0074 00 2 00040 GAZABE TSX,NUM,2 00115 -0500 00 0 00501 CAL,TEN 00116 -0130 00 0 00000 XCL 00117 0204 14 0 00502 VLM,SIXTY,,12 00120 0020 00 0 00123 TRA,ZOTIN * 00121 0074 00 2 00040 ZOT TSX,NUM,2 00122 -0500 00 0 00011 CAL,TIME 00123 0602 00 0 00011 ZOTIN SLW,TIME 00124 0074 00 2 00040 TSX,NUM,2 00125 0754 00 1 00000 PXA,,1 00126 -0501 00 0 00010 ORA,CLCWRD 00127 0074 00 4 00430 TSX,SETCLC,4 00130 -0500 00 0 00011 CAL,TIME 00131 0100 00 0 00024 BYEBYE TZE,LOOP 00132 -0774 00 4 00023 AXC,LOOP-1,4 00133 0101 00 0 00443 TIA,SLEEP * 00134 0074 00 2 00040 WAIT TSX,NUM,2 00135 -0500 00 0 00011 CAL,TIME 00136 0602 00 0 00011 SLW,TIME 00137 0020 00 0 00131 TRA,BYEBYE * 00140 0074 00 2 00040 CHAINX TSX,NUM,2 00141 0754 00 1 00000 PXA,,1 00142 -0501 00 0 00010 ORA,CLCWRD 00143 0074 00 4 00430 TSX,SETCLC,4 00144 0020 00 0 00024 TRA,LOOP * * PRINT THE NEXT WORD FROM THE COMMAND LINE. * 00145 0074 00 2 00042 PRWORD TSX,COM,2 00146 0774 00 2 00001 PWRDIN AXT,1,2 00147 0602 00 0 00455 SLW,WRMESS 00150 -0774 00 4 00105 SETWR AXC,SETCNT-1,4 00151 0101 00 0 00444 GETBCD TIA,SETBCD * * LOAD UP A GIVEN COMMAND BUFFER. * 00152 0634 00 0 00023 SETCOM ZSA,NEXLOC 00153 0074 00 2 00040 TSX,NUM,2 00154 0754 00 1 00000 PXA,,1 00155 0734 00 2 00000 PAX,,2 00156 -0634 00 2 00020 SXD,SETLOC,2 00157 -0774 00 2 00014 NEXCM AXC,FIN,2 00160 0636 00 2 00057 SCA,NOCOM,2 00161 1 77740 1 00042 TXI,COM,1,-XR1-1 * 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 4 OCTOBER 19, 1968 LHM * REPEAT A FEW ARGUMENTS. * 00162 0074 00 2 00040 TIX TSX,NUM,2 00163 -0754 00 0 00000 ZAC 00164 0602 00 0 00500 SLW,TEMP2 00165 0074 00 2 00040 TSX,NUM,2 00166 0020 00 0 00174 TRA,NEXT 00167 -0520 00 0 00503 NZT,REPEAT 00170 0602 00 0 00503 SLW,REPEAT 00171 0534 00 4 00503 LXA,REPEAT,4 00172 -2 00001 4 00177 TNX,WIPE,4,1 00173 0634 00 4 00503 SXA,REPEAT,4 00174 -0500 00 0 00500 NEXT CAL,TEMP2 00175 0602 00 0 00044 SLW,COMNO 00176 0020 00 0 00024 TRA,LOOP * 00177 0600 00 0 00503 WIPE STZ,REPEAT 00200 0020 00 0 00024 TRA,LOOP * * CONVERT TO OCTAL AND PRINT. * 00201 0074 00 2 00040 OCT TSX,NUM,2 00202 2 00001 2 00052 TIX,BUMP,2,1 00203 -0765 00 0 00022 PNUMO LGR,18 00204 0767 00 0 00003 ALS,3 00205 -0763 00 0 00003 LGL,3 00206 2 12525 2 00204 TIX,*-2,2,32767/6 00207 0020 00 0 00146 TRA,PWRDIN * * CONVERT TO DECIMAL AND PRINT. * 00210 -0634 00 4 00061 DEC SXD,CONV,4 00211 0074 00 2 00040 TSX,NUM,2 00212 2 00001 2 00052 TIX,BUMP,2,1 00213 0225 06 1 00455 PNUM VDP,TABLE,1,6 00214 0771 00 0 00006 ARS,6 00215 2 00005 1 00217 TIX,OUT,1,5 00216 1 00001 1 00213 TXI,*-3,1,1 * 00217 0131 00 0 00000 OUT XCA 00220 0020 00 0 00146 TRA,PWRDIN * * PICK UP A COMMAND BUFFER AND PRINT IT ON LINE. * 00221 0074 00 2 00040 GETCL TSX,NUM,2 00222 0754 00 1 00000 GETIN PXA,,1 00223 0734 00 4 00000 PAX,,4 00224 -0634 00 4 00226 SXD,GETBUF,4 00225 0074 00 4 00432 TSX,GETCLS,4 00226 0 00000 0 00455 GETBUF PZE,WRMESS,,** 00227 0774 00 1 00024 AXT,20,1 00230 0560 00 0 00006 LDQ,THEWRD 00231 -0500 00 1 00501 GLOOP CAL,WREND,1 00232 -0340 00 0 00652 LAS,TABBOT 00233 -0600 00 1 00501 STQ,WREND,1 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 5 OCTOBER 19, 1968 LHM 00234 2 00001 1 00233 GTIX TIX,*-1,1,1 00235 2 00001 1 00231 TIX,GLOOP,1,1 00236 0074 00 4 00151 TSX,GETBCD,4 00237 0074 00 4 00431 TSX,WRFLX,4 00240 0 00012 0 00455 PZE,WRMESS,,10 00241 0074 00 4 00431 TSX,WRFLX,4 00242 0 00012 0 00467 PZE,WRMESS+10,,10 00243 0020 00 0 00024 GOUT TRA,LOOP * * SWITCH BETWEEN WRFLX AND WRFLXA. * 00244 0534 00 4 00000 SWCHCR LXA,EXIT,4 00245 0534 00 2 00107 LXA,WR,2 00246 0634 00 2 00000 SXA,EXIT,2 00247 0634 00 4 00107 SXA,WR,4 00250 0020 00 0 00024 TRA,LOOP * * CONDITIONALLY PRINT A CARRIAGE RETURN. * 00251 0754 00 1 00000 IFFCR PXA,,1 00252 0402 00 0 00503 SUB,REPEAT 00253 0100 00 0 00024 TZE,LOOP 00254 1 77730 2 00100 TXI,PRINT,2,QIFFCR-CR * * EJECT A PAGE. * 00255 -0500 00 0 00005 EJECT CAL,CRWORD 00256 1 00040 1 00146 TXI,PWRDIN,1,32 * * DO VARIOUS ARITHMETIC FUNCTIONS. * 00257 1 00657 1 00263 NOREC TXI,ARITH,1,431 * 00260 -0634 00 4 00061 ASOCT SXD,CONV,4 00261 1 77777 1 00263 ADDSUB TXI,ARITH,1,-1 * 00262 -0634 00 4 00061 AROCT SXD,CONV,4 00263 0600 00 0 00500 ARITH STZ,TEMP2 00264 0634 00 1 00500 SXA,TEMP2,1 00265 -0634 00 1 00273 SXD,SWITCH,1 00266 0774 00 1 00001 AXT,1,1 00267 0560 00 2 00464 LDQ,TABTOP+1-XR2,2 00270 -0620 00 0 00274 SLQ,INST 00271 0074 00 2 00040 ALOOP TSX,NUM,2 00272 0020 00 0 00306 TRA,PICK 00273 -3 00000 1 00277 SWITCH TXL,MQ,1,** 00274 0 00000 0 00500 INST ***,TEMP2 00275 0602 00 0 00500 STORE SLW,TEMP2 00276 0020 00 0 00271 TRA,ALOOP * 00277 0765 00 0 00043 MQ LRS,35 00300 0522 00 0 00274 XEC,INST 00301 -0600 00 0 00500 STQ,TEMP2 00302 0100 00 0 00271 TZE,ALOOP 00303 0754 00 1 00000 PXA,,1 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 6 OCTOBER 19, 1968 LHM 00304 0400 00 0 00500 ADD,TEMP2 00305 0020 00 0 00275 TRA,STORE * * 00306 -0500 00 0 00500 PICK CAL,TEMP2 00307 -0534 00 4 00061 LXD,CONV,4 00310 3 00000 4 00203 TXH,PNUMO,4,0 00311 0020 00 0 00213 TRA,PNUM * * REPEAT THE CURRENT COMMAND BUFFER * 00312 0774 00 4 00157 ECHO AXT,NEXCM,4 00313 0634 00 4 00243 SXA,GOUT,4 00314 1 77777 1 00222 TXI,GETIN,1,-1 * * SWITCH BETWEEN LONG AND SHORT FORM FOR GETCLS. * 00315 0500 00 0 00007 CHGCLS CLA,SPARE 00316 0560 00 0 00006 LDQ,THEWRD 00317 -0603 00 0 00006 DST,THEWRD 00320 -0534 00 4 00234 LXD,GTIX,4 00321 -0636 00 4 00234 SCD,GTIX,4 00322 0020 00 0 00024 TRA,LOOP * * LEFT OR RIGHT JUSTIFY A FILE NAME. * 00323 1 00001 1 00324 LEFT TXI,*+1,1,1 00324 1 00002 1 00325 RIGHT TXI,*+1,1,2 00325 0074 00 2 00042 GETNAM TSX,COM,2 00326 0602 00 1 00477 SLW,NAMES,1 00327 -0055 00 770000 SIL,770000 00330 0322 00 0 00504 ERA,BLANKS 00331 1 00333 2 00334 TXI,JLOOP,2,GETNAM+6 00332 0767 00 0 00006 ALS,6 00333 -2 00001 2 00335 TNX,JOUT,2,1 00334 0046 00 0 00332 JLOOP TIF,*-2 00335 0322 00 0 00504 JOUT ERA,BLANKS 00336 -0130 00 0 00000 XCL 00337 2 00002 1 00325 TIX,GETNAM,1,2 00340 3 00001 1 00342 TXH,*+2,1,1 00341 1 00002 1 00342 TXI,*+1,1,2 00342 0602 00 1 00476 SLW,NAMES-1,1 00343 -0600 00 1 00500 STQ,NAMES+1,1 00344 0074 00 4 00425 CALCHG TSX,CHFILE,4 00345 3 00000 0 00473 BRN,OLD1 00346 3 00000 0 00475 BRN,OLD2 00347 3 00000 0 00001 BRN,ZERO 00350 3 00000 0 00474 BRN,NEW1 00351 3 00000 0 00476 BRN,NEW2 00352 3 00000 0 00354 BRN,*+2 00353 0020 00 0 00024 TRA,LOOP * 00354 -0500 00 0 00505 CAL,NOMESS 00355 1 77776 1 00146 TXI,PWRDIN,1,-2 * 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 7 OCTOBER 19, 1968 LHM * PRINT OUT THE DATE AND TIME. * 00356 0074 00 4 00433 MAKTIM TSX,GETIME,4 00357 0602 00 0 00477 SLW,TEMP 00360 -0046 00 0 00000 PIA 00361 -0763 00 0 00014 LGL,12 00362 0767 00 0 00006 ALS,6 00363 -0501 00 0 00013 ORA,SLASH 00364 -0763 00 0 00014 LGL,12 00365 0602 00 0 00455 SLW,WRMESS 00366 -0500 00 0 00013 CAL,SLASH 00367 -0763 00 0 00022 LGL,18 00370 -0501 00 0 00012 ORA,BLANK 00371 -0763 00 0 00014 LGL,12 00372 0044 00 0 00000 PAI 00373 0560 00 0 00477 LDQ,TEMP 00374 -0754 00 0 00000 ZAC 00375 0225 35 0 00506 VDP,Q1,,29 00376 0225 06 0 00507 VDP,Q2,,6 00377 -0130 00 0 00000 XCL 00400 0043 00 0 00000 OAI 00401 0604 00 0 00456 STI,WRMESS+1 00402 -0754 00 0 00000 ZAC 00403 0225 36 0 00510 VDP,Q3,,30 00404 0225 06 0 00511 VDP,Q4,,6 00405 0225 14 0 00512 VDP,Q5,,12 00406 0225 06 0 00513 VDP,Q6,,6 00407 -0130 00 0 00000 XCL 00410 -0501 00 0 00003 ORA,COLONS 00411 0602 00 0 00457 SLW,WRMESS+2 00412 2 77624 2 00150 TIX,SETWR,2,TABTOP-XR2-QTIME-3 * * PRINT OUT THE NEXT CHARACTER (EXPRESSED IN OCTAL). * 00413 0074 00 2 00042 CHAR TSX,COM,2 00414 0560 00 0 00001 LDQ,ZERO 00415 -0765 00 0 00003 LGR,3 00416 0771 00 0 00003 ARS,3 00417 2 17777 2 00415 TIX,*-2,2,32767/4 00420 -0620 00 0 00477 SLQ,TEMP 00421 1 60375 2 00100 TXI,PRINT,2,TABTOP+1-XR2-TEMP+CHAR+32767/4*3 * 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 8 OCTOBER 19, 1968 LHM * * * CONSTANTS AND STORAGE * 00422 0101 00 0 00435 WRFLXA TIA,WRFXA 00423 0101 00 0 00437 GETCOM TIA,GETC 00424 0101 00 0 00644 SETCLS TIA,SETS 00425 0101 00 0 00445 CHFILE TIA,CHGFIL 00426 0101 00 0 00530 NEXCOM TIA,NEXC 00427 0101 00 0 00440 SETFUL TIA,SETF 00430 0101 00 0 00441 SETCLC TIA,SETC 00431 0101 00 0 00436 WRFLX TIA,WRFX 00432 0101 00 0 00524 GETCLS TIA,QGET 00433 0101 00 0 00446 GETIME TIA,QGETTM * 00434 233045234644 CHAIN BCI,1,CHNCOM 00435 665126436721 WRFXA BCI,1,WRFLXA 00436 665126436760 WRFX BCI,1,WRFLX 00437 272563234644 GETC BCI,1,GETCOM 00440 622563266443 SETF BCI,1,SETFUL 00441 622563234323 SETC BCI,1,SETCLC 00442 242521246060 DEAD BCI,1,DEAD 00443 624325254760 SLEEP BCI,1,SLEEP 00444 622563222324 SETBCD BCI,1,SETBCD 00445 233026314325 CHGFIL BCI,1,CHFILE 00446 272563314425 QGETTM BCI,1,GETIME * 00447 +000000000100 DEC,1E0B29,1E1B29,1E2B29,1E3B29,1E4B29,1E5B29 00450 +000000001200 00451 +000000014400 00452 +000000175000 00453 +000002342000 00454 +000030324000 00455 TABLE EQU,* * 00455 -175757575757 WRMESS OCT,575757575757 00501 WREND BES,19 00477 TEMP EQU,WREND-2 00500 TEMP2 EQU,WREND-1 * 00473 OLD1 EQU,WREND-6 00474 NEW1 EQU,WREND-5 00475 OLD2 EQU,WREND-4 00476 NEW2 EQU,WREND-3 00477 NAMES EQU,NEW2+1 * 00501 0 00000 0 00012 TEN PZE,10 00502 +000000740000 SIXTY DEC,60B23 00503 0 00000 0 00000 REPEAT 00504 606060606060 BLANKS BCI,1, 00505 454626314325 NOMESS BCI,1,NOFILE * 00506 +000000101726 Q1 DEC,216E4B41 00507 +000000645700 Q2 DEC,216E3B35 00510 +000000002145 Q3 DEC,36E3B40 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 9 OCTOBER 19, 1968 LHM 00511 +000000016040 Q4 DEC,36E2B34 00512 +000022600000 Q5 DEC,60E1B22 00513 +000170000000 Q6 DEC,60E0B16 * 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 10 OCTOBER 19, 1968 LHM * * DISPATCH TABLE * 00514 TABTOP EQU,* 00514 212424462363 BCI,1,ADDOCT 00515 0400 00 0 00260 ADD,ASOCT 00516 233027234362 BCI,1,CHGCLS 00517 0 00000 0 00315 PZE,CHGCLS 00520 243165462363 BCI,1,DIVOCT 00521 0221 00 0 00262 DVP,AROCT 00522 272171212225 BCI,1,GAZABE 00523 0 00000 0 00114 PZE,GAZABE 00524 272563234362 QGET BCI,1,GETCLS 00525 0 00000 0 00221 PZE,GETCL 00526 446443462363 BCI,1,MULOCT 00527 0200 00 0 00262 MPY,AROCT 00530 452567234644 NEXC BCI,1,NEXCOM 00531 0 00000 0 00157 PZE,NEXCM 00532 454651252362 BCI,1,NORECS 00533 0221 00 0 00257 DVP,NOREC 00534 602243212342 BCI,1, BLACK 00535 013200000100 VFD,O12/0132,24/PRINT 00536 602330213145 BCI,1, CHAIN 00537 0 00000 0 00140 PZE,CHAINX 00540 602541252363 QEJECT BCI,1, EJECT 00541 0 00000 0 00255 PZE,EJECT 00542 603126262351 QIFFCR BCI,1, IFFCR 00543 0 00000 0 00251 PZE,IFFCR 00544 604751314563 BCI,1, PRINT 00545 0 00000 0 00145 PZE,PRWORD 00546 605131273063 BCI,1, RIGHT 00547 0 00000 0 00324 PZE,RIGHT 00550 606022254343 BCI,1, BELL 00551 011300000100 VFD,O12/0113,24/PRINT 00552 606023302151 BCI,1, CHAR 00553 0 00000 0 00413 PZE,CHAR 00554 606025233046 BCI,1, ECHO 00555 0 00000 0 00312 PZE,ECHO 00556 606043252663 BCI,1, LEFT 00557 0 00000 0 00323 PZE,LEFT 00560 606045644343 BCI,1, NULL 00561 005700000100 VFD,O12/0057,24/PRINT 00562 606047462626 BCI,1, POFF 00563 011700000100 VFD,O12/0117,24/PRINT 00564 606060212424 BCI,1, ADD 00565 0400 00 0 00261 ADD,ADDSUB 00566 606060242523 BCI,1, DEC 00567 0 00000 0 00210 PZE,DEC 00570 606060243125 BCI,1, DIE 00571 0 00000 0 00113 PZE,DEATH 00572 606060243165 BCI,1, DIV 00573 0221 00 0 00263 DVP,ARITH 00574 606060256723 BCI,1, EXC 00575 011400000100 VFD,O12/0114,24/PRINT 00576 606060446443 BCI,1, MUL 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 11 OCTOBER 19, 1968 LHM 00577 0200 00 0 00263 MPY,ARITH 00600 606060462363 BCI,1, OCT 00601 0 00000 0 00201 PZE,OCT 00602 606060474465 BCI,1, PMV 00603 0 00000 0 00652 PZE,TABBOT 00604 606060474645 BCI,1, PON 00605 017500000100 VFD,O12/0175,24/PRINT 00606 606060512524 BCI,1, RED 00607 013300000100 VFD,O12/0133,24/PRINT 00610 606060602262 BCI,1, BS 00611 013500000100 VFD,O12/0135,24/PRINT 00612 606060602351 CR BCI,1, CR 00613 005500000100 VFD,O12/0055,24/PRINT 00614 606060604326 BCI,1, LF 00615 010700000100 VFD,O12/0107,24/PRINT 00616 606060606040 BCI,1, - 00617 411600000100 VFD,O12/4116,24/PRINT 00620 606060606247 BCI,1, SP 00621 006000000100 VFD,O12/0060,24/PRINT 00622 606060626422 BCI,1, SUB 00623 0402 00 0 00261 SUB,ADDSUB 00624 606060632122 BCI,1, TAB 00625 007200000100 VFD,O12/0072,24/PRINT 00626 606060633167 BCI,1, TIX 00627 0 00000 0 00162 PZE,TIX 00630 606060702562 BCI,1, YES 00631 005400000100 VFD,O12/0054,24/PRINT 00632 606060714663 BCI,1, ZOT 00633 0 00000 0 00121 PZE,ZOT 00634 606063314425 QTIME BCI,1, TIME 00635 0 00000 0 00356 PZE,MAKTIM 00636 606066213163 BCI,1, WAIT 00637 0 00000 0 00134 PZE,WAIT 00640 606247212325 BCI,1, SPACE 00641 005500000100 VFD,O12/0055,24/PRINT 00642 606445242551 BCI,1, UNDER 00643 014000000100 VFD,O12/0140,24/PRINT 00644 622563234362 SETS BCI,1,SETCLS 00645 0 00000 0 00152 PZE,SETCOM 00646 626422462363 BCI,1,SUBOCT 00647 0402 00 0 00260 SUB,ASOCT 00650 626623302351 BCI,1,SWCHCR 00651 0 00000 0 00244 PZE,SWCHCR 00652 TABBOT EQU,* 00652 -377777777776 OCT,777777777776 * 00024 END,LOOP 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 1 POST PROCESSOR ASSEMBLY DATA 653 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 0REFERENCES TO DEFINED SYMBOLS 612 CR 254 277 MQ 273 506 Q1 375 507 Q2 376 510 Q3 403 511 Q4 404 512 Q5 405 513 Q6 406 107 WR 111, 245, 247 42 COM 16, 145, 161, 325, 413 210 DEC 567 62 DTB 73 DTO 61, 75 14 FIN 35, 157 40 NUM 26, 114, 121, 124, 134, 140, 153, 162, 165, 201, 211, 221, 271 201 OCT 601 217 OUT 215 501 TEN 115 162 TIX 627 37 XR1 15, 161 31 XR2 27, 32, 34, 103, 267, 412, 421 121 ZOT 633 52 BUMP 27, 72, 77, 202, 212 413 CHAR 421, 553 61 CONV 25, 51, 210, 260, 262, 307 442 DEAD 113 312 ECHO 555 0 EXIT 57, 244, 246 437 GETC 423 243 GOUT 313 234 GTIX 320, 321 274 INST 270, 300 335 JOUT 333 323 LEFT 557 24 LOOP 112, 131, 132, 144, 176, 200, 243, 250, 253, 322, 353, 653 474 NEW1 350, 501 476 NEW2 351, 501 530 NEXC 426 174 NEXT 166 473 OLD1 345, 501 475 OLD2 346, 501 306 PICK 272 213 PNUM 311 524 QGET 432 441 SETC 430 440 SETF 427 644 SETS 424 477 TEMP 63, 67, 70, 357, 373, 420, 421, 501 11 TIME 122, 123, 130, 135, 136 134 WAIT 637 177 WIPE 172 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 2 POST PROCESSOR ASSEMBLY DATA 436 WRFX 431 1 ZERO 42, 347, 414 271 ALOOP 276, 302 263 ARITH 257, 261, 573, 577 262 AROCT 521, 527 260 ASOCT 515, 647 12 BLANK 40, 370 434 CHAIN 2 44 COMNO 52, 54, 175 110 COUNT 106 113 DEATH 571 255 EJECT 541 221 GETCL 525 222 GETIN 314 231 GLOOP 235 251 IFFCR 543 334 JLOOP 331 477 NAMES 326, 342, 343, 501 157 NEXCM 312, 531 57 NOCOM 36, 160 257 NOREC 533 4 NULLS 101 203 PNUMO 310 100 PRINT 254, 421, 535, 551, 561, 563, 575, 605, 607, 611, 613, 615, 617, 621, 625, 631, 641 643 634 QTIME 412 324 RIGHT 547 150 SETWR 412 502 SIXTY 117 13 SLASH 363, 366 443 SLEEP 133 7 SPARE 315 275 STORE 305 455 TABLE 65, 213, 455 500 TEMP2 164, 174, 263, 264, 274, 275, 301, 304, 306, 501 501 WREND 231, 233, 501 431 WRFLX 107, 237, 241 435 WRFXA 422 111 WRTIX 31 123 ZOTIN 120 261 ADDSUB 565, 623 504 BLANKS 330, 335 131 BYEBYE 137 344 CALCHG 140 CHAINX 537 425 CHFILE 344 315 CHGCLS 517 445 CHGFIL 425 10 CLCWRD 126, 142 3 COLONS 410 43 COMCAL 56 15 COMSTO 37 5 CRWORD 255 114 GAZABE 523 26 GETARG 27 1 ZOT - NEW GAZABE COMPLEX 68/11/21 2318.0 PAGE 3 POST PROCESSOR ASSEMBLY DATA 151 GETBCD 236 226 GETBUF 224 432 GETCLS 225 423 GETCOM 43 433 GETIME 356 325 GETNAM 331, 337 356 MAKTIM 635 426 NEXCOM 23 23 NEXLOC 152 505 NOMESS 354 145 PRWORD 545 146 PWRDIN 207, 220, 256, 355 540 QEJECT 446 QGETTM 433 542 QIFFCR 254 503 REPEAT 167, 170, 171, 173, 177, 252 444 SETBCD 151 430 SETCLC 127, 143 424 SETCLS 17 106 SETCNT 150 152 SETCOM 645 427 SETFUL 100 20 SETLOC 156 244 SWCHCR 651 273 SWITCH 265 652 TABBOT 55, 232, 603, 652 514 TABTOP 32, 34, 103, 267, 412, 421, 514 6 THEWRD 230, 316, 317 422 WRFLXA 0 455 WRMESS 15, 20, 21, 22, 102, 104, 110, 147, 226, 240, 242, 365, 401, 411 0 NO ERROR IN ABOVE ASSEMBLY.