| 1 $JOB SIMPLE OUTPUT FORMAT TRANSLATOR $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. | $IBJOB GO,MAP,LOGIC | $IBFTC MAIN DD,REF,FULIST SOFT0001 1 12/01/64 PAGE 1 | MAIN - EFN SOURCE STATEMENT - IFN(S) - | 0| COMMON IN(160),LINE(133),FMT(1400),HT(132),SN,DM,DN,FN,FMTN,HTN, SOFT0002 | 2 LINEN,IDM,SPACE,EJECT,DUP,END,FEL,CONT,STYR,TEST,NWORDS SOFT0003 INTEGER FMTN,DM,DN,FN,IDM,FEL SOFT0004 | LOGICAL CONT,STYR,END,EJECT,DUP,SPACE,TEST,DUPEND,SPEND SOFT0005 | DATA IBLANK/1H /,HPAR/1H)/,FKOM/1H,/ ,LETT/1H1/,LEM/O776060606060/SOFT0006 | DATA SLASH /1H// SOFT0007 | EQUIVALENCE (IBLANK,BLANK) SOFT0008 CALL PUNSET(FMT,FN,IR) SOFT0009 2 | 8 READ(5,1) (IN(I),I=1,80) SOFT0010 3 | WRITE(6,9) SOFT0011 10 | 9 FORMAT(39H1SOFT - SIMPLE OUTPUT FORMAT TRANSLATOR,/1H0) SOFT0012 | NWORDS=0 SOFT0013 DM=0 SOFT0014 | DN=1 SOFT0015 | FMTN=8 SOFT0016 | IDM=8 SOFT0017 | DUPEND=.FALSE. SOFT0018 LINE(1)=IBLANK SOFT0019 | GO TO 40 SOFT0020 | 7 READ(5,1) (IN(I),I=1,80) SOFT0021 17 | 1 FORMAT(80A1) SOFT0022 | SPEND=SPACE SOFT0023 40 WRITE(6,10) (IN(I),I=1,75) SOFT0024 24 | 10 FORMAT(1H ,80A1) SOFT0025 | IF(DUPEND) CALL DUPS SOFT0026 32 | DUPEND=DM.EQ.1 SOFT0027 | IF(DM.NE.0) DM=DM-1 SOFT0028 CALL STYRF SOFT0029 38 | CALL FELT(1) SOFT0030 40 | IF(STYR) GO TO 2 SOFT0031 | CALL CONTF SOFT0032 45 | CALL FELT(2) SOFT0033 47 IF(CONT) GO TO 5 SOFT0034 | DO 3 I=76,132 SOFT0035 | 3 LINE(I)=IBLANK SOFT0036 | GO TO 4 SOFT0037 | 5 READ(5,1) (LINE(I),I=77,133) SOFT0038 60 WRITE(6,11) (LINE(I),I=77,132) SOFT0039 67 | 11 FORMAT(1H+,75X,56A1) SOFT0040 | 4 DO 6 I=1,75 SOFT0041 | 6 LINE(I+1)=IN(I) SOFT0042 | CALL TRANS SOFT0043 83 CALL FELT(3) SOFT0044 85 | LINE(1)=IBLANK SOFT0045 | GO TO 21 SOFT0046 | 2 LINE(2)=LEM SOFT0047 | IF(LINE(1).NE.IBLANK) CALL TRANS SOFT0048 90 LINE(1)=IBLANK SOFT0049 | IF(END) GO TO 20 SOFT0050 | IF(EJECT) LINE(1)=LETT SOFT0051 | IF(SPACE) CALL SPACEF SOFT0052 98 | IF(DUP) CALL DUPN SOFT0053 101 CALL FELT(6) SOFT0054 103 | 21 IF(FMTN-IDM.LT.300) GO TO 22 SOFT0055 | CALL LIKDUP SOFT0056 107 | 1 12/01/64 PAGE 2 | MAIN - EFN SOURCE STATEMENT - IFN(S) - 0 IDM=FMTN SOFT0057 | 22 IF(FMTN.LE.858) GO TO 7 SOFT0058 | FEL=4 SOFT0059 | CALL FELT(10) SOFT0060 113 | FN=FN+10000 SOFT0061 20 IF(DM.NE.0.OR.DUPEND) CALL DUPS SOFT0062 117 | IF(IDM.NE.FMTN) CALL LIKDUP SOFT0063 120 | CALL FELT(7) SOFT0064 122 | DM=0 SOFT0065 | IF(FMT(FMTN-1).EQ.FKOM) FMTN=FMTN-1 SOFT0066 IF(.NOT.SPEND) GO TO 50 SOFT0067 | FMT(FMTN)=SLASH SOFT0068 | FMTN=FMTN+1 SOFT0069 | 50 FMT(FMTN)=HPAR SOFT0070 | IR=(FMTN-1)/66+1 SOFT0071 IA=FMTN+1 SOFT0072 | IB=IR*66 SOFT0073 | DO 16 I=IA,IB SOFT0074 | 16 FMT(I)=BLANK SOFT0075 | WRITE(6,30) NWORDS SOFT0076 143 30 FORMAT(36H0THIS FORMAT STATEMENT WILL TRANSMIT,I10,14H STORAGE WORSOFT0077 | 2DS) SOFT0078 | CALL PUNOUT SOFT0079 144 | WRITE(6,12) FN,(FMT(I),I=8,66),FN SOFT0080 145 | 12 FORMAT(1H0,I5,8H FORMAT(,59A1,3H FM,I5) SOFT0081 IF(IR.EQ.1) GO TO 31 SOFT0082 | DO 14 IV=2,IR SOFT0083 | IW=MOD(IV-1,9)+1 SOFT0084 | IB=66*IV SOFT0085 | IA=IB-65 SOFT0086 14 WRITE(6,15) IW,(FMT(I),I=IA,IB),FN SOFT0087 160 | 15 FORMAT(6X,I1,66A1,3H FM,I5) SOFT0088 | 31 IF(TEST) CALL TESTA SOFT0089 169 | GO TO 8 SOFT0090 | END SOFT0091 1 12/01/64 PAGE 3 | | 0| -| $IBFTC FELT. DD,REF,FULIST SOFT0092 1 12/01/64 PAGE 4 | FELT. - EFN SOURCE STATEMENT - IFN(S) - | 0| SUBROUTINE FELT(IPOS) SOFT0093 | COMMON IN(160),LINE(133),FMT(1400),HT(132),SN,DM,DN,FN,FMTN,HTN, SOFT0094 2 LINEN,IDM,SPACE,EJECT,DUP,END,FEL,CONT,STYR,TEST,NWORDS SOFT0095 | LOGICAL SPACE,EJECT,DUP,END,CONT,STYR,TEST SOFT0096 | INTEGER SN,DN,DM,FN,FMTN,HTN,LINEN,FEL,NWORDS SOFT0097 | LOGICAL DMPOS,LDM SOFT0098 | DATA DMPOS/.FALSE./ SOFT0099 EQUIVALENCE(LDM,DM) SOFT0100 | IF(.NOT.(DUP.AND.DMPOS.AND.IPOS.EQ.1)) GO TO 10 SOFT0101 | FEL=5 SOFT0102 | 10 CALL OVERFL(IA) SOFT0103 6 | CALL DVCHK(IB) SOFT0104 8 IF(DM.NE.0.AND.IPOS.EQ.7) FEL =6 SOFT0105 | IF(FEL.EQ.0) GO TO 17 SOFT0106 | IF(FEL.EQ.1) WRITE(6,11) SOFT0107 15 | IF(FEL.EQ.2) WRITE(6,12) SOFT0108 17 | IF(FEL.EQ.3) WRITE(6,13) SOFT0109 19 IF(FEL.EQ.4) WRITE(6,14) SOFT0110 21 | IF(FEL.EQ.5) WRITE(6,15) SOFT0111 23 | IF(FEL.EQ.6) WRITE(6,16) SOFT0112 25 | IF(.NOT.(DUP.AND.(FEL.EQ.1.OR.FEL.EQ.5))) GO TO 17 SOFT0113 | IF(DMPOS) CALL DUPS SOFT0114 31 DUP=.FALSE. SOFT0115 | DM=0 SOFT0116 | 11 FORMAT(78H *** ERROR *** ILLEGAL CONTROL CARD OR * IN FIRST POSITISOFT0117 | 2ON OF NON-CONTROL CARD) SOFT0118 | 12 FORMAT(41H *** ERROR *** ERROR IN SUBROUTINE LIKDUP) SOFT0119 13 FORMAT(70H *** ERROR *** INSUFFICIENT OR FAULTY EXPONENT SPACE IN SOFT0120 | 2E- OR D-FORMAT) SOFT0121 | 14 FORMAT(51H *** ERROR *** TOO LONG FORMAT, *END CARD SIMULATED) SOFT0122 | 15 FORMAT(28H *** ERROR *** NESTED *DUP-S) SOFT0123 | 16 FORMAT(36H *** ERROR *** *END IN SPACE OF *DUP) SOFT0124 17 IF(IA.EQ.1) WRITE(6,3) SOFT0125 34 | 3 FORMAT(15H ***** OVERFLOW) SOFT0126 | IF(IB.EQ.1) WRITE(6,4) SOFT0127 36 | 4 FORMAT(19H ***** DIVIDE CHECK) SOFT0128 | FEL=0 SOFT0129 DMPOS=LDM SOFT0130 | RETURN SOFT0131 | END SOFT0132 | 1 12/01/64 PAGE 5 | MAIN STORAGE MAP 0 MAIN PROGRAM | - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 03462 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | IN 00000 I LINE 00240 I FMT 00445 R HT 03235 R SN 03441 R DM 03442 I | DN 03443 I FN 03444 I FMTN 03445 I | HTN 03446 R LINEN 03447 I IDM 03450 I | SPACE 03451 L EJECT 03452 L DUP 03453 L | END 03454 L FEL 03455 I CONT 03456 L STYR 03457 L TEST 03460 L NWORDS 03461 I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | DUPEND 03464 L SPEND 03465 L IBLANK 03463 I | BLANK 03463 R IR 03466 I I 03467 I LEM 03470 I LETT 03471 I FKOM 03472 R | SLASH 03473 R HPAR 03474 R IA 03475 I | IB 03476 I IV 03477 I IW 03500 I | - ENTRY POINTS | 0 ...... SECTION 3 - SUBROUTINES CALLED | 0 PUNSET SECTION 4 .FRDD. SECTION 5 .FWRD. SECTION 6 | DUPS SECTION 7 STYRF SECTION 8 FELT SECTION 9 | CONTF SECTION 10 TRANS SECTION 11 SPACEF SECTION 12 | DUPN SECTION 13 LIKDUP SECTION 14 PUNOUT SECTION 15 TESTA SECTION 16 .UN05. SECTION 17 .FRTN. SECTION 18 | .FCNV. SECTION 19 .UN06. SECTION 20 .FFIL. SECTION 21 | SYSLOC SECTION 22 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION 8 3A 03600 1 FORMAT 03537 9 FORMAT 03526 | 40 24A 03662 7 17A 03641 10 FORMAT 03540 | 2 88A 04041 5 60A 03760 3 55A 03753 | 4 74A 04016 11 FORMAT 03542 6 78A 04023 | 21 104A 04100 20 115A 04131 22 109A 04113 50 132A 04174 16 140A 04226 30 FORMAT 03545 | 12 FORMAT 03560 31 167A 04352 14 160A 04322 | 15 FORMAT 03566 | 1 12/01/64 PAGE 6 | MAIN ASSEMBLY LISTING 0| 0$IBLDR MAIN 12/01/64 MAIN0000 | 0$TEXT MAIN 12/01/64 MAIN0001 | 00000 002000003000 10011 TRA ...... | 03463 100000003463 00001 ORG IBLANK 03463 606060606060 10000 BCI 1, | 03474 100000003474 00001 ORG HPAR | 03474 346060606060 10000 BCI 1,) | 03472 100000003472 00001 ORG FKOM | 03472 736060606060 10000 BCI 1,, 03471 100000003471 00001 ORG LETT | 03471 016060606060 10000 BCI 1,1 | 03470 100000003470 00001 ORG LEM | 03470 776060606060 10000 OCT 776060606060 | 03473 100000003473 00001 ORG SLASH 03473 616060606060 10000 BCI 1,/ | 03501 100000003501 00001 ORG 1857 | 03501 000000000001 10000 C.0 OCT 000000000001 | 03502 000000000000 10000 C.1 OCT 000000000000 | 03503 000000000000 10000 C.2 OCT 000000000000 03504 000000000001 10000 C.3 OCT 000000000001 | 03505 000000000000 10000 C.4 OCT 000000000000 | 03506 000000000010 10000 C.5 OCT 000000000010 | 03507 000000000002 10000 C.6 OCT 000000000002 | 03510 000000000003 10000 C.7 OCT 000000000003 03511 000000000006 10000 C.8 OCT 000000000006 | 03512 000000000454 10000 C.9 OCT 000000000454 | 03513 000000001532 10000 C.10 OCT 000000001532 | 03514 000000000004 10000 C.11 OCT 000000000004 | 03515 000000000012 10000 C.12 OCT 000000000012 03516 000000023420 10000 C.13 OCT 000000023420 | 03517 000000000007 10000 C.14 OCT 000000000007 | 03520 000000000102 10000 C.15 OCT 000000000102 | 03521 000000000011 10000 C.16 OCT 000000000011 | 03522 000000000101 10000 C.17 OCT 000000000101 03523 000000000000 10000 RD. OCT 000000000000 | 03524 000000000000 10000 OCT 000000000000 | 03525 200000000001 00001 N. BSS 1 | 03526 740311300162 10000 9. BCI 1,(39H1S | 03527 462663604060 10000 BCI 1,OFT - 03530 623144474325 10000 BCI 1,SIMPLE | 03531 604664634764 10000 BCI 1, OUTPU | 03532 636026465144 10000 BCI 1,T FORM | 03533 216360635121 10000 BCI 1,AT TRA | 03534 456243216346 10000 BCI 1,NSLATO 03535 517361013000 10000 BCI 1,R,/1H0 | 03536 346060606060 10000 BCI 1,) | 03537 741000210134 10000 1. BCI 1,(80A1) | 03540 740130607310 10000 10. BCI 1,(1H ,8 | 03541 002101346060 10000 BCI 1,0A1) 03542 740130207307 10000 11. BCI 1,(1H+,7 | 03543 056773050621 10000 BCI 1,5X,56A | 03544 013460606060 10000 BCI 1,1) | 03545 740306300063 10000 30. BCI 1,(36H0T | 1 12/01/64 PAGE 7 MAIN ASSEMBLY LISTING | 0 03546 303162602646 10000 BCI 1,HIS FO | 03547 514421636062 10000 BCI 1,RMAT S | 03550 632163254425 10000 BCI 1,TATEME | 03551 456360663143 10000 BCI 1,NT WIL 03552 436063512145 10000 BCI 1,L TRAN | 03553 624431637331 10000 BCI 1,SMIT,I | 03554 010073010430 10000 BCI 1,10,14H | 03555 606263465121 10000 BCI 1, STORA | 03556 272560664651 10000 BCI 1,GE WOR 03557 246234606060 10000 BCI 1,DS) | 03560 740130007331 10000 12. BCI 1,(1H0,I | 03561 057310306026 10000 BCI 1,5,8H F | 03562 465144216374 10000 BCI 1,ORMAT( | 03563 730511210173 10000 BCI 1,,59A1, 03564 033060264473 10000 BCI 1,3H FM, | 03565 310534606060 10000 BCI 1,I5) | 03566 740667733101 10000 15. BCI 1,(6X,I1 | 03567 730606210173 10000 BCI 1,,66A1, | 03570 033060264473 10000 BCI 1,3H FM, 03571 310534606060 10000 BCI 1,I5) | 03572 1A NULL | 03572 007400404000 10011 2A TSX PUNSET,4 | 03573 100003003600 10001 TXI *+5,,3 | 03574 004360000002 10100 PZE 2,,LK.DR 03575 000000002445 10011 PZE FMT | 03576 000000000000 10011 PZE FN | 003444700002 10010 | 03577 000000003466 10001 PZE IR | 03600 007400405000 10011 3A TSX .FRDD.,4 03601 100002003605 10001 TXI *+4,,2 | 03602 004360000003 10100 PZE 3,,LK.DR | 03603 000000021000 10011 PZE .UN05. | 03604 000000003537 10001 PZE 1. | 03605 4A NULL 03605 5A NULL | 03605 477400100001 10000 6A AXC 1,1 | 03606 060000003467 10001 STZ I | 03607 063400103610 10001 SXA *+1,1 | 03610 477400400000 10000 AXC **,4 03611 063400403467 10001 SXA I,4 | 03612 007400423000 10011 TSX .FCNV.,4 | 03613 060100142001 10011 7A STO IN-1,1 | 03614 177777103615 10001 8A TXI *+1,1,-1 | 03615 377657103607 10001 TXH 6A+2,1,-81 03616 007400422000 10011 9A TSX .FRTN.,4 | 03617 007400406000 10011 10A TSX .FWRD.,4 | 03620 100002003624 10001 TXI *+4,,2 | 03621 004360000012 10100 PZE 10,,LK.DR | 03622 000000024000 10011 PZE .UN06. 03623 000000003526 10001 PZE 9. | 03624 007400425000 10011 TSX .FFIL.,4 | 03625 060000000000 10011 STZ NWORDS | 003461700002 10010 | 03626 060000000000 10011 11A STZ DM 003442700002 10010 | 03627 050000003504 10001 12A CLA C.3 | 1 12/01/64 PAGE 8 | MAIN ASSEMBLY LISTING | 0 03630 060100000000 10011 STO DN 003443700002 10010 | 03631 050000003506 10001 13A CLA C.5 | 03632 060100000000 10011 STO FMTN | 003445700002 10010 | 03633 050000003506 10001 14A CLA C.5 03634 060100000000 10011 STO IDM | 003450700002 10010 | 03635 060000003464 10001 15A STZ DUPEND | 03636 050000003463 10001 CLA IBLANK | 03637 060100002240 10011 STO LINE 03640 002000003662 10001 16A TRA 24A | 03641 007400405000 10011 17A TSX .FRDD.,4 | 03642 100002003646 10001 TXI *+4,,2 | 03643 004360000021 10100 PZE 17,,LK.DR | 03644 000000021000 10011 PZE .UN05. 03645 000000003537 10001 PZE 1. | 03646 18A NULL | 03646 19A NULL | 03646 477400100001 10000 20A AXC 1,1 | 03647 060000003467 10001 STZ I 03650 063400103651 10001 SXA *+1,1 | 03651 477400400000 10000 AXC **,4 | 03652 063400403467 10001 SXA I,4 | 03653 007400423000 10011 TSX .FCNV.,4 | 03654 060100142001 10011 21A STO IN-1,1 03655 177777103656 10001 22A TXI *+1,1,-1 | 03656 377657103650 10001 TXH 20A+2,1,-81 | 03657 007400422000 10011 23A TSX .FRTN.,4 | 03660 050000000000 10011 CLA SPACE | 003451700002 10010 03661 060100003465 10001 STO SPEND | 03662 007400406000 10011 24A TSX .FWRD.,4 | 03663 100002003667 10001 TXI *+4,,2 | 03664 004360000030 10100 PZE 24,,LK.DR | 03665 000000024000 10011 PZE .UN06. 03666 000000003540 10001 PZE 10. | 03667 25A NULL | 03667 26A NULL | 03667 477400100001 10000 27A AXC 1,1 | 03670 060000003467 10001 STZ I 03671 063400103672 10001 SXA *+1,1 | 03672 477400400000 10000 AXC **,4 | 03673 063400403467 10001 SXA I,4 | 03674 050000142001 10011 28A CLA IN-1,1 | 03675 007400423000 10011 TSX .FCNV.,4 03676 177777103677 10001 29A TXI *+1,1,-1 | 03677 377664103671 10001 TXH 27A+2,1,-76 | 03700 007400425000 10011 30A TSX .FFIL.,4 | 03701 452000003464 10001 NZT DUPEND | 03702 002000003706 10001 TRA 33A 03703 31A NULL | 03703 007400407000 10011 32A TSX DUPS,4 | 03704 100000003706 10001 TXI *+2,,0 | 03705 004360000040 10100 PZE 32,,LK.DR | 03706 050000000000 10011 33A CLA DM 1 12/01/64 PAGE 9 | MAIN ASSEMBLY LISTING | 0 003442700002 10010 | 03707 040200003504 10001 SUB C.3 | 03710 410000003713 10001 TNZ 35A 03711 462500003464 10001 34A STL DUPEND | 03712 002000003714 10001 TRA *+2 | 03713 060000003464 10001 35A STZ DUPEND | 03714 050000000000 10011 CLA DM | 003442700002 10010 03715 040200003505 10001 SUB C.4 | 03716 010000003722 10001 TZE 37A | 03717 050000000000 10011 36A CLA DM | 003442700002 10010 | 03720 040200003504 10001 SUB C.3 03721 060100000000 10011 STO DM | 003442700002 10010 | 03722 37A NULL | 03722 007400410000 10011 38A TSX STYRF,4 | 03723 100000003725 10001 TXI *+2,,0 03724 004360000046 10100 PZE 38,,LK.DR | 03725 39A NULL | 03725 007400411000 10011 40A TSX FELT,4 | 03726 100001003731 10001 TXI *+3,,1 | 03727 004360000050 10100 PZE 40,,LK.DR 03730 000000003504 10001 PZE C.3 | 03731 452000000000 10011 41A NZT STYR | 003457700002 10010 | 03732 002000003734 10001 TRA 44A | 03733 42A NULL 03733 002000004041 10001 43A TRA 88A | 03734 44A NULL | 03734 007400412000 10011 45A TSX CONTF,4 | 03735 100000003737 10001 TXI *+2,,0 | 03736 004360000055 10100 PZE 45,,LK.DR 03737 46A NULL | 03737 007400411000 10011 47A TSX FELT,4 | 03740 100001003743 10001 TXI *+3,,1 | 03741 004360000057 10100 PZE 47,,LK.DR | 03742 000000003507 10001 PZE C.6 03743 452000000000 10011 48A NZT CONT | 003456700002 10010 | 03744 002000003746 10001 TRA 51A | 03745 49A NULL | 03745 002000003760 10001 50A TRA 60A 03746 51A NULL | 03746 52A NULL | 03746 53A NULL | 03746 477400100114 10000 54A AXC 76,1 | 03747 060000003467 10001 STZ I 03750 063400103751 10001 SXA *+1,1 | 03751 477400400000 10000 AXC **,4 | 03752 063400403467 10001 SXA I,4 | 03753 050000003463 10001 55A CLA IBLANK | 03754 060100102237 10011 56A STO LINE-1,1 03755 177777103756 10001 57A TXI *+1,1,-1 | 03756 377573103750 10001 TXH 54A+2,1,-133 | 03757 58A NULL | 1 12/01/64 PAGE 10 | MAIN ASSEMBLY LISTING 0 03757 002000004016 10001 59A TRA 74A | 03760 007400405000 10011 60A TSX .FRDD.,4 | 03761 100002003765 10001 TXI *+4,,2 | 03762 004360000074 10100 PZE 60,,LK.DR | 03763 000000021000 10011 PZE .UN05. 03764 000000003537 10001 PZE 1. | 03765 61A NULL | 03765 62A NULL | 03765 477400100115 10000 63A AXC 77,1 | 03766 060000003467 10001 STZ I 03767 063400103770 10001 SXA *+1,1 | 03770 477400400000 10000 AXC **,4 | 03771 063400403467 10001 SXA I,4 | 03772 007400423000 10011 TSX .FCNV.,4 | 03773 060100102237 10011 64A STO LINE-1,1 03774 177777103775 10001 65A TXI *+1,1,-1 | 03775 377572103767 10001 TXH 63A+2,1,-134 | 03776 007400422000 10011 66A TSX .FRTN.,4 | 03777 007400406000 10011 67A TSX .FWRD.,4 | 04000 100002004004 10001 TXI *+4,,2 04001 004360000103 10100 PZE 67,,LK.DR | 04002 000000024000 10011 PZE .UN06. | 04003 000000003542 10001 PZE 11. | 04004 68A NULL | 04004 69A NULL 04004 477400100115 10000 70A AXC 77,1 | 04005 060000003467 10001 STZ I | 04006 063400104007 10001 SXA *+1,1 | 04007 477400400000 10000 AXC **,4 | 04010 063400403467 10001 SXA I,4 04011 050000102237 10011 71A CLA LINE-1,1 | 04012 007400423000 10011 TSX .FCNV.,4 | 04013 177777104014 10001 72A TXI *+1,1,-1 | 04014 377573104006 10001 TXH 70A+2,1,-133 | 04015 007400425000 10011 73A TSX .FFIL.,4 04016 74A NULL | 04016 75A NULL | 04016 76A NULL | 04016 477400100001 10000 77A AXC 1,1 | 04017 060000003467 10001 STZ I 04020 063400104021 10001 SXA *+1,1 | 04021 477400400000 10000 AXC **,4 | 04022 063400403467 10001 SXA I,4 | 04023 78A NULL | 04023 050000142001 10011 79A CLA IN-1,1 04024 060100102240 10011 80A STO LINE,1 | 04025 177777104026 10001 81A TXI *+1,1,-1 | 04026 377664104020 10001 TXH 77A+2,1,-76 | 04027 82A NULL | 04027 007400413000 10011 83A TSX TRANS,4 04030 100000004032 10001 TXI *+2,,0 | 04031 004360000123 10100 PZE 83,,LK.DR | 04032 84A NULL | 04032 007400411000 10011 85A TSX FELT,4 | 04033 100001004036 10001 TXI *+3,,1 04034 004360000125 10100 PZE 85,,LK.DR | 1 12/01/64 PAGE 11 | MAIN ASSEMBLY LISTING | 0 04035 000000003510 10001 PZE C.7 | 04036 050000003463 10001 86A CLA IBLANK 04037 060100002240 10011 STO LINE | 04040 002000004100 10001 87A TRA 104A | 04041 050000003470 10001 88A CLA LEM | 04042 060100002241 10011 STO LINE+1 | 04043 050000002240 10011 CLA LINE 04044 040200003463 10001 SUB IBLANK | 04045 010000004051 10001 TZE 91A | 04046 89A NULL | 04046 007400413000 10011 90A TSX TRANS,4 | 04047 100000004051 10001 TXI *+2,,0 04050 004360000132 10100 PZE 90,,LK.DR | 04051 050000003463 10001 91A CLA IBLANK | 04052 060100002240 10011 STO LINE | 04053 452000000000 10011 NZT END | 003454700002 10010 04054 002000004056 10001 TRA 94A | 04055 92A NULL | 04055 002000004131 10001 93A TRA 115A | 04056 452000000000 10011 94A NZT EJECT | 003452700002 10010 04057 002000004062 10001 TRA 96A | 04060 050000003471 10001 95A CLA LETT | 04061 060100002240 10011 STO LINE | 04062 452000000000 10011 96A NZT SPACE | 003451700002 10010 04063 002000004067 10001 TRA 99A | 04064 97A NULL | 04064 007400414000 10011 98A TSX SPACEF,4 | 04065 100000004067 10001 TXI *+2,,0 | 04066 004360000142 10100 PZE 98,,LK.DR 04067 452000000000 10011 99A NZT DUP | 003453700002 10010 | 04070 002000004074 10001 TRA 102A | 04071 100A NULL | 04071 007400415000 10011 101A TSX DUPN,4 04072 100000004074 10001 TXI *+2,,0 | 04073 004360000145 10100 PZE 101,,LK.DR | 04074 102A NULL | 04074 007400411000 10011 103A TSX FELT,4 | 04075 100001004100 10001 TXI *+3,,1 04076 004360000147 10100 PZE 103,,LK.DR | 04077 000000003511 10001 PZE C.8 | 04100 050000000000 10011 104A CLA FMTN | 003445700002 10010 | 04101 040200000000 10011 SUB IDM 003450700002 10010 | 04102 040200003512 10001 SUB C.9 | 04103 010000004106 10001 TZE 106A | 04104 012000004106 10001 TPL 106A | 04105 002000004113 10001 105A TRA 109A 04106 106A NULL | 04106 007400416000 10011 107A TSX LIKDUP,4 | 04107 100000004111 10001 TXI *+2,,0 | 04110 004360000153 10100 PZE 107,,LK.DR | 1 12/01/64 PAGE 12 MAIN ASSEMBLY LISTING | 0 04111 050000000000 10011 108A CLA FMTN | 003445700002 10010 | 04112 060100000000 10011 STO IDM | 003450700002 10010 04113 050000000000 10011 109A CLA FMTN | 003445700002 10010 | 04114 040200003513 10001 SUB C.10 | 04115 010000004117 10001 TZE *+2 | 04116 012000004120 10001 TPL 111A 04117 002000003641 10001 110A TRA 17A | 04120 050000003514 10001 111A CLA C.11 | 04121 060100000000 10011 STO FEL | 003455700002 10010 | 04122 112A NULL 04122 007400411000 10011 113A TSX FELT,4 | 04123 100001004126 10001 TXI *+3,,1 | 04124 004360000161 10100 PZE 113,,LK.DR | 04125 000000003515 10001 PZE C.12 | 04126 050000000000 10011 114A CLA FN 003444700002 10010 | 04127 040000003516 10001 ADD C.13 | 04130 060100000000 10011 STO FN | 003444700002 10010 | 04131 050000000000 10011 115A CLA DM 003442700002 10010 | 04132 040200003505 10001 SUB C.4 | 04133 410000004136 10001 TNZ 116A | 04134 452000003464 10001 NZT DUPEND | 04135 002000004141 10001 TRA 118A 04136 116A NULL | 04136 007400407000 10011 117A TSX DUPS,4 | 04137 100000004141 10001 TXI *+2,,0 | 04140 004360000165 10100 PZE 117,,LK.DR | 04141 050000000000 10011 118A CLA IDM 003450700002 10010 | 04142 040200000000 10011 SUB FMTN | 003445700002 10010 | 04143 010000004147 10001 TZE 121A | 04144 119A NULL 04144 007400416000 10011 120A TSX LIKDUP,4 | 04145 100000004147 10001 TXI *+2,,0 | 04146 004360000170 10100 PZE 120,,LK.DR | 04147 121A NULL | 04147 007400411000 10011 122A TSX FELT,4 04150 100001004153 10001 TXI *+3,,1 | 04151 004360000172 10100 PZE 122,,LK.DR | 04152 000000003517 10001 PZE C.14 | 04153 053500100000 10011 123A LAC FMTN,1 | 003445700002 10010 04154 060000000000 10011 STZ DM | 003442700002 10010 | 04155 124A NULL | 04155 050000102443 10011 125A CLA FMT-2,1 | 04156 040200003472 10001 SUB FKOM 04157 410000004163 10001 TNZ 127A | 04160 050000000000 10011 126A CLA FMTN | 1 12/01/64 PAGE 13 | MAIN ASSEMBLY LISTING | 0 003445700002 10010 04161 040200003504 10001 SUB C.3 | 04162 060100000000 10011 STO FMTN | 003445700002 10010 | 04163 052000003465 10001 127A ZET SPEND | 04164 002000004166 10001 TRA 130A 04165 128A NULL | 04165 002000004174 10001 129A TRA 132A | 04166 053500100000 10011 130A LAC FMTN,1 | 003445700002 10010 | 04167 050000003473 10001 CLA SLASH 04170 060100102444 10011 131A STO FMT-1,1 | 04171 050000000000 10011 CLA FMTN | 003445700002 10010 | 04172 040000003504 10001 ADD C.3 | 04173 060100000000 10011 STO FMTN 003445700002 10010 | 04174 053500100000 10011 132A LAC FMTN,1 | 003445700002 10010 | 04175 050000003474 10001 CLA HPAR | 04176 060100102444 10011 133A STO FMT-1,1 04177 050000000000 10011 CLA FMTN | 003445700002 10010 | 04200 040200003504 10001 SUB C.3 | 04201 013100000000 10000 XCA | 04202 475400000000 10000 ZAC 04203 076300000000 10000 LLS 0 | 04204 022100003520 10001 DVP C.15 | 04205 013100000000 10000 XCA | 04206 040000003504 10001 ADD C.3 | 04207 060100003466 10001 STO IR 04210 050000000000 10011 134A CLA FMTN | 003445700002 10010 | 04211 040000003504 10001 ADD C.3 | 04212 060100003475 10001 STO IA | 04213 056000003466 10001 135A LDQ IR 04214 020000003520 10001 MPY C.15 | 04215 460000003476 10001 STQ IB | 04216 136A NULL | 04216 137A NULL | 04216 053500403476 10001 138A LAC IB,4 04217 177777404220 10001 TXI *+1,4,-1 | 04220 463400404231 10001 SXD 142A+1,4 | 04221 053500103475 10001 139A LAC IA,1 | 04222 060000003467 10001 STZ I | 04223 063400104224 10001 SXA *+1,1 04224 477400400000 10000 AXC **,4 | 04225 063400403467 10001 SXA I,4 | 04226 050000003463 10001 140A CLA BLANK | 04227 060100102444 10011 141A STO FMT-1,1 | 04230 177777104231 10001 142A TXI *+1,1,-1 04231 300000104223 10001 TXH 139A+2,1,** | 04232 007400406000 10011 143A TSX .FWRD.,4 | 04233 100002004237 10001 TXI *+4,,2 | 04234 004360000217 10100 PZE 143,,LK.DR | 04235 000000024000 10011 PZE .UN06. 1 12/01/64 PAGE 14 | MAIN ASSEMBLY LISTING | 0 04236 000000003545 10001 PZE 30. | 04237 050000000000 10011 CLA NWORDS | 003461700002 10010 04240 007400423000 10011 TSX .FCNV.,4 | 04241 007400425000 10011 TSX .FFIL.,4 | 04242 007400417000 10011 144A TSX PUNOUT,4 | 04243 100000004245 10001 TXI *+2,,0 | 04244 004360000220 10100 PZE 144,,LK.DR 04245 007400406000 10011 145A TSX .FWRD.,4 | 04246 100002004252 10001 TXI *+4,,2 | 04247 004360000221 10100 PZE 145,,LK.DR | 04250 000000024000 10011 PZE .UN06. | 04251 000000003560 10001 PZE 12. 04252 050000000000 10011 CLA FN | 003444700002 10010 | 04253 007400423000 10011 TSX .FCNV.,4 | 04254 146A NULL | 04254 147A NULL 04254 477400100010 10000 148A AXC 8,1 | 04255 060000003467 10001 STZ I | 04256 063400104257 10001 SXA *+1,1 | 04257 477400400000 10000 AXC **,4 | 04260 063400403467 10001 SXA I,4 04261 050000102444 10011 149A CLA FMT-1,1 | 04262 007400423000 10011 TSX .FCNV.,4 | 04263 177777104264 10001 150A TXI *+1,1,-1 | 04264 377675104256 10001 TXH 148A+2,1,-67 | 04265 050000000000 10011 151A CLA FN 003444700002 10010 | 04266 007400423000 10011 TSX .FCNV.,4 | 04267 007400425000 10011 TSX .FFIL.,4 | 04270 050000003466 10001 CLA IR | 04271 040200003504 10001 SUB C.3 04272 410000004274 10001 TNZ 154A | 04273 152A NULL | 04273 002000004352 10001 153A TRA 167A | 04274 154A NULL | 04274 155A NULL 04274 053500403466 10001 156A LAC IR,4 | 04275 177777404276 10001 TXI *+1,4,-1 | 04276 463400404351 10001 SXD 165A+1,4 | 04277 477400100002 10000 157A AXC 2,1 | 04300 060000003477 10001 STZ IV 04301 063400104302 10001 SXA *+1,1 | 04302 477400400000 10000 AXC **,4 | 04303 063400403477 10001 SXA IV,4 | 04304 050000003477 10001 CLA IV | 04305 040200003504 10001 SUB C.3 04306 060100003525 10001 STO N. | 04307 050000003525 10001 CLA N. | 04310 076500000043 10000 LRS 35 | 04311 022100003521 10001 DVP C.16 | 04312 040000003504 10001 ADD C.3 04313 060100003500 10001 STO IW | 04314 056000003477 10001 158A LDQ IV | 04315 020000003520 10001 MPY C.15 | 1 12/01/64 PAGE 15 | MAIN ASSEMBLY LISTING 0 04316 460000003476 10001 STQ IB | 04317 050000003476 10001 159A CLA IB | 04320 040200003522 10001 SUB C.17 | 04321 060100003475 10001 STO IA | 04322 007400406000 10011 160A TSX .FWRD.,4 04323 100002004327 10001 TXI *+4,,2 | 04324 004360000240 10100 PZE 160,,LK.DR | 04325 000000024000 10011 PZE .UN06. | 04326 000000003566 10001 PZE 15. | 04327 050000003500 10001 CLA IW 04330 007400423000 10011 TSX .FCNV.,4 | 04331 053500403476 10001 161A LAC IB,4 | 04332 177777404333 10001 TXI *+1,4,-1 | 04333 463400404344 10001 SXD 164A+1,4 | 04334 053500203475 10001 162A LAC IA,2 04335 060000003467 10001 STZ I | 04336 063400204337 10001 SXA *+1,2 | 04337 477400400000 10000 AXC **,4 | 04340 063400403467 10001 SXA I,4 | 04341 050000202444 10011 163A CLA FMT-1,2 04342 007400423000 10011 TSX .FCNV.,4 | 04343 177777204344 10001 164A TXI *+1,2,-1 | 04344 300000204336 10001 TXH 162A+2,2,** | 04345 050000000000 10011 CLA FN | 003444700002 10010 04346 007400423000 10011 TSX .FCNV.,4 | 04347 007400425000 10011 TSX .FFIL.,4 | 04350 177777104351 10001 165A TXI *+1,1,-1 | 04351 300000104301 10001 TXH 157A+2,1,** | 04352 166A NULL 04352 452000000000 10011 167A NZT TEST | 003460700002 10010 | 04353 002000004357 10001 TRA 170A | 04354 168A NULL | 04354 007400420000 10011 169A TSX TESTA,4 04355 100000004357 10001 TXI *+2,,0 | 04356 004360000251 10100 PZE 169,,LK.DR | 04357 170A NULL | 04357 002000003600 10001 171A TRA 3A | 04360 000000000000 10000 LK.DR PZE ** 04361 442131456060 10000 BCI 1,MAIN | 04362 100000004371 10001 ...... TXI *+7,,** | 04363 077400200000 10000 AXT **,2 | 04364 077400100000 10000 AXT **,1 | 04365 077400400000 10000 AXT **,4 04366 044100004370 10001 LDI *+2 | 04367 002000400001 10000 TRA 1,4 | 04370 000000000000 10000 PZE ** | 04371 060400004370 10001 STI *-1 | 04372 063400426000 10011 SXA SYSLOC,4 04373 063400404360 10001 SXA LK.DR,4 | 04374 063400404365 10001 SXA *-7,4 | 04375 063400104364 10001 SXA *-9,1 | 04376 063400204363 10001 SXA *-11,2 | 04377 002000003572 10001 TRA 1A 1 12/01/64 PAGE 16 | MAIN ASSEMBLY LISTING | 0| 0$CDICT MAIN 12/01/64 MAIN0031 | 004400004362 PREFACE START=2290,LENGTH=2304,TYPE=7090,CMPLX=5 000000000005 | 442131456060 MAIN DECK LOC=0,LENGTH=2304 | 004400000000 | 616160606060 // REAL LOC=1,LENGTH=1842 | 003462000001 333333333333 ...... REAL LOC=2290,LENGTH=0 | 000000004362 | 476445622563 PUNSET VIRTUAL SECT. 4,CALL | 200000100000 | 332651242433 .FRDD. VIRTUAL SECT. 5,CALL 200000100000 | 332666512433 .FWRD. VIRTUAL SECT. 6,CALL | 200000100000 | 246447626060 DUPS VIRTUAL SECT. 7,CALL | 200000100000 626370512660 STYRF VIRTUAL SECT. 8,CALL | 200000100000 | 262543636060 FELT VIRTUAL SECT. 9,CALL | 200000100000 | 234645632660 CONTF VIRTUAL SECT. 10,CALL 200000100000 | 635121456260 TRANS VIRTUAL SECT. 11,CALL | 200000100000 | 624721232526 SPACEF VIRTUAL SECT. 12,CALL | 200000100000 246447456060 DUPN VIRTUAL SECT. 13,CALL | 200000100000 | 433142246447 LIKDUP VIRTUAL SECT. 14,CALL | 200000100000 | 476445466463 PUNOUT VIRTUAL SECT. 15,CALL 200000100000 | 632562632160 TESTA VIRTUAL SECT. 16,CALL | 200000100000 | 336445000533 .UN05. VIRTUAL SECT. 17 | 200000000000 332651634533 .FRTN. VIRTUAL SECT. 18 | 200000000000 | 332623456533 .FCNV. VIRTUAL SECT. 19 | 200000000000 | 336445000633 .UN06. VIRTUAL SECT. 20 200000000000 | 332626314333 .FFIL. VIRTUAL SECT. 21 | 200000000000 | 627062434623 SYSLOC VIRTUAL SECT. 22 | 200000000000 0$DDICT MAIN 12/01/64 MAIN0035 | 0$DKEND MAIN 12/01/64 MAIN0058 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 04400.| 1 12/01/64 PAGE 17 | FELT. STORAGE MAP 0 SUBROUTINE FELT | - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 03462 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | IN 00000 I LINE 00240 I FMT 00445 R HT 03235 R SN 03441 I DM 03442 I | DN 03443 I FN 03444 I FMTN 03445 I | HTN 03446 I LINEN 03447 I IDM 03450 I | SPACE 03451 L EJECT 03452 L DUP 03453 L | END 03454 L FEL 03455 I CONT 03456 L STYR 03457 L TEST 03460 L NWORDS 03461 I | LDM 03442 L | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | DMPOS 03463 L IA 03464 I IB 03465 I - ENTRY POINTS | 0 FELT SECTION 3 | - SUBROUTINES CALLED | 0 OVERFL SECTION 4 DVCHK SECTION 5 .FWRD. SECTION 6 | DUPS SECTION 7 .UN06. SECTION 8 .FFIL. SECTION 9 .FCNV. SECTION 10 SYSLOC SECTION 11 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 10 5A 03617 17 33A 03751 11 FORMAT 03503 | 12 FORMAT 03521 13 FORMAT 03531 14 FORMAT 03546 15 FORMAT 03560 16 FORMAT 03566 3 FORMAT 03575 | 4 FORMAT 03601 | 1 12/01/64 PAGE 18 | FELT. ASSEMBLY LISTING | 0 0$IBLDR FELT. 12/01/64 FELT0000 | 0$TEXT FELT. 12/01/64 FELT0001 | 00000 002000003000 10011 TRA FELT | 03463 100000003463 00001 ORG DMPOS | 03463 000000000000 10000 OCT 000000000000 03466 100000003466 00001 ORG 1846 | 03466 000000000001 10000 C.0 OCT 000000000001 | 03467 000000000000 10000 C.1 OCT 000000000000 | 03470 000000000000 10000 C.2 OCT 000000000000 | 03471 000000000001 10000 C.3 OCT 000000000001 03472 000000000005 10000 C.4 OCT 000000000005 | 03473 000000000000 10000 C.5 OCT 000000000000 | 03474 000000000007 10000 C.6 OCT 000000000007 | 03475 000000000006 10000 C.7 OCT 000000000006 | 03476 000000000002 10000 C.8 OCT 000000000002 03477 000000000003 10000 C.9 OCT 000000000003 | 03500 000000000004 10000 C.10 OCT 000000000004 | 03501 000000000000 10000 RD. OCT 000000000000 | 03502 000000000000 10000 OCT 000000000000 | 03503 740710306054 10000 11. BCI 1,(78H * 03504 545460255151 10000 BCI 1,** ERR | 03505 465160545454 10000 BCI 1,OR *** | 03506 603143432527 10000 BCI 1, ILLEG | 03507 214360234645 10000 BCI 1,AL CON | 03510 635146436023 10000 BCI 1,TROL C 03511 215124604651 10000 BCI 1,ARD OR | 03512 605460314560 10000 BCI 1, * IN | 03513 263151626360 10000 BCI 1,FIRST | 03514 474662316331 10000 BCI 1,POSITI | 03515 464560462660 10000 BCI 1,ON OF 03516 454645402346 10000 BCI 1,NON-CO | 03517 456351464360 10000 BCI 1,NTROL | 03520 232151243460 10000 BCI 1,CARD) | 03521 740401306054 10000 12. BCI 1,(41H * | 03522 545460255151 10000 BCI 1,** ERR 03523 465160545454 10000 BCI 1,OR *** | 03524 602551514651 10000 BCI 1, ERROR | 03525 603145606264 10000 BCI 1, IN SU | 03526 225146646331 10000 BCI 1,BROUTI | 03527 452560433142 10000 BCI 1,NE LIK 03530 246447346060 10000 BCI 1,DUP) | 03531 740700306054 10000 13. BCI 1,(70H * | 03532 545460255151 10000 BCI 1,** ERR | 03533 465160545454 10000 BCI 1,OR *** | 03534 603145626426 10000 BCI 1, INSUF 03535 263123312545 10000 BCI 1,FICIEN | 03536 636046516026 10000 BCI 1,T OR F | 03537 216443637060 10000 BCI 1,AULTY | 03540 256747464525 10000 BCI 1,EXPONE | 03541 456360624721 10000 BCI 1,NT SPA 03542 232560314560 10000 BCI 1,CE IN | 03543 254060465160 10000 BCI 1,E- OR | 03544 244026465144 10000 BCI 1,D-FORM | 1 12/01/64 PAGE 19 | FELT. ASSEMBLY LISTING 0 03545 216334606060 10000 BCI 1,AT) | 03546 740501306054 10000 14. BCI 1,(51H * | 03547 545460255151 10000 BCI 1,** ERR | 03550 465160545454 10000 BCI 1,OR *** | 03551 606346466043 10000 BCI 1, TOO L 03552 464527602646 10000 BCI 1,ONG FO | 03553 514421637360 10000 BCI 1,RMAT, | 03554 542545246023 10000 BCI 1,*END C | 03555 215124606231 10000 BCI 1,ARD SI | 03556 446443216325 10000 BCI 1,MULATE 03557 243460606060 10000 BCI 1,D) | 03560 740210306054 10000 15. BCI 1,(28H * | 03561 545460255151 10000 BCI 1,** ERR | 03562 465160545454 10000 BCI 1,OR *** | 03563 604525626325 10000 BCI 1, NESTE 03564 246054246447 10000 BCI 1,D *DUP | 03565 406234606060 10000 BCI 1,-S) | 03566 740306306054 10000 16. BCI 1,(36H * | 03567 545460255151 10000 BCI 1,** ERR | 03570 465160545454 10000 BCI 1,OR *** 03571 605425452460 10000 BCI 1, *END | 03572 314560624721 10000 BCI 1,IN SPA | 03573 232560462660 10000 BCI 1,CE OF | 03574 542464473460 10000 BCI 1,*DUP) | 03575 740105306054 10000 3. BCI 1,(15H * 03576 545454546046 10000 BCI 1,**** O | 03577 652551264346 10000 BCI 1,VERFLO | 03600 663460606060 10000 BCI 1,W) | 03601 740111306054 10000 4. BCI 1,(19H * | 03602 545454546024 10000 BCI 1,**** D 03603 316531242560 10000 BCI 1,IVIDE | 03604 233025234234 10000 BCI 1,CHECK) | 03605 452000000000 10011 1A NZT DUP | 003453700002 10010 | 03606 002000003614 10001 TRA 2A 03607 452000003463 10001 NZT DMPOS | 03610 002000003614 10001 TRA 2A | 03611 050000000000 10000 1929J CLA ** | 03612 040200003471 10001 SUB C.3 | 03613 010000003615 10001 TZE 4A 03614 2A NULL | 03614 002000003617 10001 3A TRA 5A | 03615 050000003472 10001 4A CLA C.4 | 03616 060100000000 10011 STO FEL | 003455700002 10010 03617 5A NULL | 03617 007400404000 10011 6A TSX OVERFL,4 | 03620 100001003623 10001 TXI *+3,,1 | 03621 003777000006 10100 PZE 6,,LK.DR | 03622 000000003464 10001 PZE IA 03623 7A NULL | 03623 007400405000 10011 8A TSX DVCHK,4 | 03624 100001003627 10001 TXI *+3,,1 | 03625 003777000010 10100 PZE 8,,LK.DR | 03626 000000003465 10001 PZE IB 03627 050000000000 10011 9A CLA DM | 1 12/01/64 PAGE 20 | FELT. ASSEMBLY LISTING | 0 003442700002 10010 | 03630 040200003473 10001 SUB C.5 03631 010000003637 10001 TZE 11A | 03632 050000000000 10000 1946J CLA ** | 03633 040200003474 10001 SUB C.6 | 03634 410000003637 10001 TNZ 11A | 03635 050000003475 10001 10A CLA C.7 03636 060100000000 10011 STO FEL | 003455700002 10010 | 03637 050000000000 10011 11A CLA FEL | 003455700002 10010 | 03640 040200003473 10001 SUB C.5 03641 410000003643 10001 TNZ 14A | 03642 12A NULL | 03642 002000003751 10001 13A TRA 33A | 03643 050000000000 10011 14A CLA FEL | 003455700002 10010 03644 040200003471 10001 SUB C.3 | 03645 410000003654 10001 TNZ 16A | 03646 007400406000 10011 15A TSX .FWRD.,4 | 03647 100002003653 10001 TXI *+4,,2 | 03650 003777000017 10100 PZE 15,,LK.DR 03651 000000010000 10011 PZE .UN06. | 03652 000000003503 10001 PZE 11. | 03653 007400411000 10011 TSX .FFIL.,4 | 03654 050000000000 10011 16A CLA FEL | 003455700002 10010 03655 040200003476 10001 SUB C.8 | 03656 410000003665 10001 TNZ 18A | 03657 007400406000 10011 17A TSX .FWRD.,4 | 03660 100002003664 10001 TXI *+4,,2 | 03661 003777000021 10100 PZE 17,,LK.DR 03662 000000010000 10011 PZE .UN06. | 03663 000000003521 10001 PZE 12. | 03664 007400411000 10011 TSX .FFIL.,4 | 03665 050000000000 10011 18A CLA FEL | 003455700002 10010 03666 040200003477 10001 SUB C.9 | 03667 410000003676 10001 TNZ 20A | 03670 007400406000 10011 19A TSX .FWRD.,4 | 03671 100002003675 10001 TXI *+4,,2 | 03672 003777000023 10100 PZE 19,,LK.DR 03673 000000010000 10011 PZE .UN06. | 03674 000000003531 10001 PZE 13. | 03675 007400411000 10011 TSX .FFIL.,4 | 03676 050000000000 10011 20A CLA FEL | 003455700002 10010 03677 040200003500 10001 SUB C.10 | 03700 410000003707 10001 TNZ 22A | 03701 007400406000 10011 21A TSX .FWRD.,4 | 03702 100002003706 10001 TXI *+4,,2 | 03703 003777000025 10100 PZE 21,,LK.DR 03704 000000010000 10011 PZE .UN06. | 03705 000000003546 10001 PZE 14. | 03706 007400411000 10011 TSX .FFIL.,4 | 03707 050000000000 10011 22A CLA FEL | 1 12/01/64 PAGE 21 FELT. ASSEMBLY LISTING | 0 003455700002 10010 | 03710 040200003472 10001 SUB C.4 | 03711 410000003720 10001 TNZ 24A | 03712 007400406000 10011 23A TSX .FWRD.,4 03713 100002003717 10001 TXI *+4,,2 | 03714 003777000027 10100 PZE 23,,LK.DR | 03715 000000010000 10011 PZE .UN06. | 03716 000000003560 10001 PZE 15. | 03717 007400411000 10011 TSX .FFIL.,4 03720 050000000000 10011 24A CLA FEL | 003455700002 10010 | 03721 040200003475 10001 SUB C.7 | 03722 410000003731 10001 TNZ 26A | 03723 007400406000 10011 25A TSX .FWRD.,4 03724 100002003730 10001 TXI *+4,,2 | 03725 003777000031 10100 PZE 25,,LK.DR | 03726 000000010000 10011 PZE .UN06. | 03727 000000003566 10001 PZE 16. | 03730 007400411000 10011 TSX .FFIL.,4 03731 452000000000 10011 26A NZT DUP | 003453700002 10010 | 03732 002000003741 10001 TRA 27A | 03733 050000000000 10011 CLA FEL | 003455700002 10010 03734 040200003471 10001 SUB C.3 | 03735 010000003742 10001 TZE 29A | 03736 050000000000 10011 CLA FEL | 003455700002 10010 | 03737 040200003472 10001 SUB C.4 03740 010000003742 10001 TZE 29A | 03741 27A NULL | 03741 002000003751 10001 28A TRA 33A | 03742 452000003463 10001 29A NZT DMPOS | 03743 002000003747 10001 TRA 32A 03744 30A NULL | 03744 007400407000 10011 31A TSX DUPS,4 | 03745 100000003747 10001 TXI *+2,,0 | 03746 003777000037 10100 PZE 31,,LK.DR | 03747 060000000000 10011 32A STZ DUP 003453700002 10010 | 03750 060000000000 10011 STZ DM | 003442700002 10010 | 03751 050000003464 10001 33A CLA IA | 03752 040200003471 10001 SUB C.3 03753 410000003762 10001 TNZ 35A | 03754 007400406000 10011 34A TSX .FWRD.,4 | 03755 100002003761 10001 TXI *+4,,2 | 03756 003777000042 10100 PZE 34,,LK.DR | 03757 000000010000 10011 PZE .UN06. 03760 000000003575 10001 PZE 3. | 03761 007400411000 10011 TSX .FFIL.,4 | 03762 050000003465 10001 35A CLA IB | 03763 040200003471 10001 SUB C.3 | 03764 410000003773 10001 TNZ 37A 03765 007400406000 10011 36A TSX .FWRD.,4 | 03766 100002003772 10001 TXI *+4,,2 | 1 12/01/64 PAGE 22 | FELT. ASSEMBLY LISTING | 0 03767 003777000044 10100 PZE 36,,LK.DR 03770 000000010000 10011 PZE .UN06. | 03771 000000003601 10001 PZE 4. | 03772 007400411000 10011 TSX .FFIL.,4 | 03773 060000000000 10011 37A STZ FEL | 003455700002 10010 03774 050000000000 10011 38A CLA LDM | 003442700002 10010 | 03775 060100003463 10001 STO DMPOS | 03776 002000003001 10011 TRA FELT+1 | 03777 000000000000 10000 LK.DR PZE ** 04000 262543633360 10000 BCI 1,FELT. | 04001 100000004006 10001 FELT TXI *+5,,** | 04002 077400400000 10000 AXT **,4 | 04003 044100004005 10001 LDI *+2 | 04004 002000400001 10000 TRA 1,4 04005 000000000000 10000 PZE ** | 04006 060400004005 10001 STI *-1 | 04007 063400413000 10011 SXA SYSLOC,4 | 04010 063400403777 10001 SXA LK.DR,4 | 04011 063400404002 10001 SXA *-7,4 04012 050000400003 10000 CLA 3,4 | 04013 062100003611 10001 STA 1929J | 04014 062100003632 10001 STA 1946J | 04015 002000003605 10001 TRA 1A | 1 12/01/64 PAGE 23 FELT. ASSEMBLY LISTING | 0| 0$CDICT FELT. 12/01/64 FELT0016 | 004016004001 PREFACE START=2049,LENGTH=2062,TYPE=7090,CMPLX=5 | 000000000005 262543633360 FELT. DECK LOC=0,LENGTH=2062 | 004016000000 | 616160606060 // REAL LOC=1,LENGTH=1842 | 003462000001 | 262543636060 FELT REAL LOC=2049,LENGTH=0 000000004001 | 466525512643 OVERFL VIRTUAL SECT. 4,CALL | 200000100000 | 246523304260 DVCHK VIRTUAL SECT. 5,CALL | 200000100000 332666512433 .FWRD. VIRTUAL SECT. 6,CALL | 200000100000 | 246447626060 DUPS VIRTUAL SECT. 7,CALL | 200000100000 | 336445000633 .UN06. VIRTUAL SECT. 8 200000000000 | 332626314333 .FFIL. VIRTUAL SECT. 9 | 200000000000 | 332623456533 .FCNV. VIRTUAL SECT. 10 | 200000000000 627062434623 SYSLOC VIRTUAL SECT. 11 | 200000000000 | 0$DDICT FELT. 12/01/64 FELT0019 | 0$DKEND FELT. 12/01/64 FELT0027 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 04016. 1 12/01/64 PAGE 24 | | 0$IBMAP SPACE. DD SOFT0133 1 SPACE. 12/01/64 PAGE 25 | 7090 RELMOD ASSEMBLY. | 0| $IBLDR SPACE. 12/01/64 SPAC0000| 1 SPACE. 12/01/64 PAGE 26 | ASSEMBLED TEXT. | 0 $TEXT SPACE. SPAC0001| | * GENERATION OF BLANK LINES IN FMT SOFT0134 00000 ENTRY SPACEF SOFT0135| 00000 SPACEF SAVE 2,4 SOFT0136| 0BINARY CARD ID. SPAC0002| 00000 1 00000 0 00004 10001 | 00001 0774 00 2 00000 10000 00002 0774 00 4 00000 10000 | 00003 0020 00 4 00001 10000 | 00004 0634 00 4 05000 10011 | 00005 0634 00 4 00066 10001 | 00006 0634 00 4 00002 10001 00007 0634 00 2 00001 10001 | 00010 0535 00 2 00000 10011 LAC FMTN,2 SOFT0137| 0 03445 7 00004 10010 | 00011 0500 00 0 00000 10011 CLA SN SOFT0138| 0 03441 7 00004 10010 00012 0402 00 0 00070 10001 SUB =1 SOFT0139| 00013 0100 00 0 00055 10001 TZE ETT SOFT0140| 00014 0340 00 0 00071 10001 CAS =5 SOFT0141| 00015 0020 00 0 00033 10001 TRA MULT TRA MULT IF MORE THAN FIVE BLANK LINESSOFT0142| 00016 0020 00 0 01001 10011 TRA *+1 SOFT0143 00017 0601 00 0 00000 10011 STO SN SOFT0144| 0 03441 7 00004 10010 | 0BINARY CARD ID. SPAC0003| 00020 0402 00 0 00070 10001 SUB =1 SOFT0145| 00021 0100 00 0 00060 10001 TZE TVA SOFT0146 00022 4500 00 0 00072 10001 EJB CAL =H/ WRITE / IF NOT BEGINNING OF FORMAT SOFT0147| 00023 3 77767 2 01003 10011 TXH *+3,2,-9 SOFT0148| 00024 0602 00 2 04444 10011 SLW FMT-1,2 SOFT0149| 00025 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0150| 00026 0534 00 4 00000 10011 LXA SN,4 WRITE SN SLASHES IN FMT SOFT0151 0 03441 7 00004 10010 | 00027 0602 00 2 04444 10011 SLW FMT-1,2 SOFT0152| 00030 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0153| 00031 2 00001 4 41002 10011 TIX *-2,4,1 SOFT0154| 00032 0020 00 0 00050 10001 TRA UT SOFT0155 00033 3 77767 2 01002 10011 MULT TXH *+2,2,-9 SOFT0156| 00034 0400 00 0 00070 10001 ADD =1 SOFT0157| 00035 0074 00 4 06000 10011 TSX ANTFM,4 WRITE NUMBER OF LINES IN FMT SOFT0158| 00036 4500 00 0 00073 10001 CAL =H( WRITE (/) IN FMT SOFT0159| 00037 0602 00 2 04444 10011 SLW FMT-1,2 SOFT0160 00040 4500 00 0 00072 10001 CAL =H/ SOFT0161| 00041 0602 00 2 04445 10011 SLW FMT,2 SOFT0162| 0BINARY CARD ID. SPAC0004| 00042 4500 00 0 00074 10001 CAL =H) SOFT0163| 00043 0602 00 2 04446 10011 SLW FMT+1,2 SOFT0164 00044 1 77775 2 00045 10001 TXI SLUT,2,-3 SOFT0165| 00045 4500 00 0 00075 10001 SLUT CAL =H, WRITE , IN FMT SOFT0166| 00046 0602 00 2 04444 10011 SLW FMT-1,2 SOFT0167| 00047 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0168| 00050 UT SCA FMTN,2 SOFT0169 1 SPACE. 12/01/64 PAGE 27 | ASSEMBLED TEXT. | 0 00054 RETURN SPACEF SOFT0170| 00055 4500 00 0 00072 10001 ETT CAL =H/ SOFT0171| 00056 0602 00 2 04444 10011 SLW FMT-1,2 SOFT0172 00057 1 77777 2 00050 10001 TXI UT,2,-1 SOFT0173| 00060 7 77767 2 00022 10001 TVA TXL EJB,2,-9 SOFT0174| 00061 4500 00 0 00076 10001 CAL =H SOFT0175| 00062 0602 00 2 04444 10011 SLW FMT-1,2 SOFT0176| 00063 4500 00 0 00072 10001 CAL =H/ SOFT0177 0BINARY CARD ID. SPAC0005| 00064 0602 00 2 04445 10011 SLW FMT,2 SOFT0178| 00065 1 77776 2 00050 10001 TXI UT,2,-2 SOFT0179| 00077 // CONTRL // SOFT0180| 00077 100000000077 00001 USE // SOFT0181 00077 200000000240 00001 IN BSS 160,H CONTENTS OF INPUT DATA CARD SOFT0182| 00337 200000000205 00001 LINE BSS 133,H INPUT LINE TO BE TRANSLATED SOFT0183| 00544 200000002570 00001 FMT BSS 1400,H THE NEW FORMAT IS GENERATED HERE SOFT0184| 03334 200000000204 00001 HT BSS 132,H TEMPORARY STORAGE FOR HOLLERITH TEXT SOFT0185| 03540 200000000001 00001 SN BSS 1,X NUMBER OF BLANK LINES SOFT0186 03541 200000000001 00001 DM BSS 1,X NUMBER OF INPUT LINES TO BE DUPLICATEDSOFT0187| 03542 200000000001 00001 DN BSS 1,X NUMBER OF TIMES THAT THEY ARE TO BE DUSOFT0188| 03543 200000000001 00001 FN BSS 1,X FORMAT NR SOFT0189| 03544 200000000001 00001 FMTN BSS 1,X NUMBER OF CHAR IN FMT SOFT0190| 03545 200000000001 00001 HTN BSS 1,X NUMBER OF CHAR IN HT SOFT0191 03546 200000000001 00001 LINEN BSS 1,X NUMBER OF CHAR TRANSLATED IN LINE SOFT0192| 03547 200000000001 00001 IDM BSS 1,X NUMBER OF CHAR SHORTENED BY LIKDUP SOFT0193| 03550 200000000001 00001 SPACE BSS 1,L .TRUE. FOR SPACE CONTROL CARD SOFT0194| 03551 200000000001 00001 EJECT BSS 1,L .TRUE. FOR EJECT CONTROL CARD SOFT0195| 03552 200000000001 00001 DUP BSS 1,L .TRUE. FOR DUP CONTROL CRD SOFT0196 03553 200000000001 00001 END BSS 1,L .TRUE. FOR END CONTROL CARD SOFT0197| 0BINARY CARD ID. SPAC0006| 03554 200000000001 00001 FEL BSS 1,X ERROR NO SOFT0198| 03555 200000000001 00001 CONT BSS 1,L .TRUE. FOR CONTINUATION SOFT0199| 03556 200000000001 00001 STYR BSS 1,L .TRUE. FOR CONTROL CARD SOFT0200 03557 200000000001 00001 TEST BSS 1,L .TRUE. FOR TESTEND CONTROL CARD SOFT0201| 03560 200000000001 00001 NWORDS BSS 1,X NUMBER OF STORAGE WORDS TRANSFERRED BYSOFT0202| 00066 100000000066 00001 USE SOFT0203| 00066 000000000000 10000 *LDIR| 00067 624721232533 10000 00070 000000000001 10000 *LORG| 00071 000000000005 10000 | 00072 616060606060 10000 | 00073 746060606060 10000 | 00074 346060606060 10000 00075 736060606060 10000 | 00076 606060606060 10000 | 00000 01111 END SOFT0204| 1 SPACE. 12/01/64 PAGE 28 | CONTROL DICTIONARY 0 $CDICT SPACE. SPAC0007| | 0BINARY CARD ID. SPAC0008| 003561000000 PREFACE START=0,LENGTH=1905,TYPE=7090,CMPLX=5| 000000000005 624721232533 SPACE. DECK | 003561000000 | 624721232526 SPACEF REAL SECT. 2,LOC=0,LENGTH=0| 000000000000 | 624721232526 SPACEF REAL SECT. 3,LOC=0,LENGTH=0 000000000000 | 616160606060 // REAL SECT. 4,LOC=77,LENGTH=1842| 003462000077 | 627062434623 SYSLOC VIRTUAL SECT. 5| 200000000000 214563264460 ANTFM VIRTUAL SECT. 6| 200000000000 | - $DDICT SPACE. SPAC0009| | - $DKEND SPACE. SPAC0013 | -NO MESSAGES FOR THIS ASSEMBLY | 1 SPACE. 12/01/64 PAGE 29 | SYMBOL REFERENCE DATA | 0 REFERENCES TO DEFINED SYMBOLS.| 0 CLASS SYMBOL VALUE REFERENCES| | CONT 03555 | DM 03541 DN 03542 | DUP 03552 | EJB 00022 60| EJECT 03551 | END 03553 ETT 00055 13| FEL 03554 | FMTN 03544 10,52| FMT 00544 24,27,37,41,43,46,56,62,64| FN 03543 HTN 03545 | HT 03334 | IDM 03547 | IN 00077 | ..0001 00002 6,7 ..0002 00003 | ..0003 00004 0| LINEN 03546 | LINE 00337 | MULT 00033 15 NWORDS 03560 | LCTR BLCTR | QUAL UNQS | LCTR // | SLUT 00045 44 SN 03540 11,17,26| SPACEF 00000 0,0,54| SPACE 03550 | STYR 03556 | TEST 03557 TVA 00060 21| UT 00050 32,57,65| -REFERENCES TO VIRTUAL SYMBOLS.| | ANTFM 6 35 SYSLOC 5 4 1 12/01/64 PAGE 30 | | 0$IBMAP DUP. DD SOFT0205 1 DUP. 12/01/64 PAGE 31 | 7090 RELMOD ASSEMBLY. | 0| $IBLDR DUP. 12/01/64 DUP.0000| 1 DUP. 12/01/64 PAGE 32 | ASSEMBLED TEXT. | 0 $TEXT DUP. DUP.0001| | * DUPLICATES FORMAT GENERATED BY INPUT CARDS SOFT0206 00000 ENTRY DUPN SOFT0207| 00023 ENTRY DUPS SOFT0208| 00000 DUPN SAVE 2,4 SOFT0209| 0BINARY CARD ID. DUP.0002| 00000 1 00000 0 00004 10001 00001 0774 00 2 00000 10000 | 00002 0774 00 4 00000 10000 | 00003 0020 00 4 00001 10000 | 00004 0634 00 4 07000 10011 | 00005 0634 00 4 00073 10001 00006 0634 00 4 00002 10001 | 00007 0634 00 2 00001 10001 | 00010 0535 00 2 00000 10011 LAC FMTN,2 SOFT0210| 0 03445 7 00006 10010 | 00011 0500 00 0 00000 10011 CLA DN SOFT0211 0 03443 7 00006 10010 | 00012 0074 00 4 10000 10011 TSX ANTFM,4 WRITE DN=NUMBER OF DUP-S IN FMT SOFT0212| 00013 4500 00 0 00075 10001 CAL =H( WRITE ( IN FMT SOFT0213| 00014 0602 00 2 06444 10011 SLW FMT-1,2 SOFT0214| 00015 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0215 00016 SCA FMTN,2 SOFT0216| 00022 RETURN DUPN SOFT0217| 00023 DUPS SAVE 2 SOFT0218| 0BINARY CARD ID. DUP.0003| 00023 1 00000 0 00027 10001 00024 0774 00 2 00000 10000 | 00025 0774 00 4 00000 10000 | 00026 0020 00 4 00001 10000 | 00027 0634 00 4 07000 10011 | 00030 0634 00 4 00073 10001 00031 0634 00 4 00025 10001 | 00032 0634 00 2 00024 10001 | 00033 0500 00 0 00076 10001 CLA =1 SOFT0219| 00034 0601 00 0 00000 10011 STO DN SOFT0220| 0 03443 7 00006 10010 00035 0535 00 2 00000 10011 LAC FMTN,2 SOFT0221| 0 03445 7 00006 10010 | 00036 4500 00 0 06240 10011 CAL LINE SOFT0222| 00037 4340 00 0 00077 10001 LAS =H SOFT0223| 00040 0020 00 0 01002 10011 TRA *+2 SOFT0224 0BINARY CARD ID. DUP.0004| 00041 0020 00 0 00055 10001 TRA NEXT SOFT0225| 00042 4500 00 0 00100 10001 CAL =H/ SOFT0226| 00043 0602 00 2 06444 10011 SLW FMT-1,2 SOFT0227| 00044 4500 00 0 00101 10001 CAL =H1 WRITE 1H1 IN FMT IF EJECT CONDITION SOFT0228 00045 0602 00 2 06445 10011 SLW FMT,2 SOFT0229| 00046 4500 00 0 00102 10001 CAL =HH SOFT0230| 00047 0602 00 2 06446 10011 SLW FMT+1,2 SOFT0231| 00050 4500 00 0 06240 10011 CAL LINE SOFT0232| 00051 0602 00 2 06447 10011 SLW FMT+2,2 SOFT0233 1 DUP. 12/01/64 PAGE 33 | ASSEMBLED TEXT. | 0 00052 4500 00 0 00077 10001 CAL =H SOFT0234| 00053 0602 00 0 06240 10011 SLW LINE SOFT0235| 00054 1 77774 2 00061 10001 TXI UT,2,-4 SOFT0236 00055 4500 00 2 06443 10011 NEXT CAL FMT-2,2 SOFT0237| 00056 4340 00 0 00103 10001 LAS =H, SOFT0238| 00057 0020 00 0 01002 10011 TRA *+2 SOFT0239| 00060 1 00001 2 01001 10011 TXI *+1,2,1 ELIMINATE LAST , SOFT0240| 00061 4500 00 0 00104 10001 UT CAL =H) WRITE ), IN FMT SOFT0241 00062 0602 00 2 06444 10011 SLW FMT-1,2 SOFT0242| 00063 4500 00 0 00103 10001 CAL =H, SOFT0243| 0BINARY CARD ID. DUP.0005| 00064 0602 00 2 06445 10011 SLW FMT,2 SOFT0244| 00065 1 77776 2 01001 10011 TXI *+1,2,-2 SOFT0245 00066 SCA FMTN,2 SOFT0246| 00072 RETURN DUPS SOFT0247| 00105 // CONTRL // SOFT0248| 00105 100000000105 00001 USE // SOFT0249| 00105 200000000240 00001 IN BSS 160,H CONTENTS OF INPUT DATA CARD SOFT0250 00345 200000000205 00001 LINE BSS 133,H INPUT LINE TO BE TRANSLATED SOFT0251| 00552 200000002570 00001 FMT BSS 1400,H THE NEW FORMAT IS GENERATED HERE SOFT0252| 03342 200000000204 00001 HT BSS 132,H TEMPORARY STORAGE FOR HOLLERITH TEXT SOFT0253| 03546 200000000001 00001 SN BSS 1,X NUMBER OF BLANK LINES SOFT0254| 03547 200000000001 00001 DM BSS 1,X NUMBER OF INPUT LINES TO BE DUPLICATEDSOFT0255 03550 200000000001 00001 DN BSS 1,X NUMBER OF TIMES THAT THEY ARE TO BE DUSOFT0256| 03551 200000000001 00001 FN BSS 1,X FORMAT NR SOFT0257| 03552 200000000001 00001 FMTN BSS 1,X NUMBER OF CHAR IN FMT SOFT0258| 03553 200000000001 00001 HTN BSS 1,X NUMBER OF CHAR IN HT SOFT0259| 0BINARY CARD ID. DUP.0006 03554 200000000001 00001 LINEN BSS 1,X NUMBER OF CHAR TRANSLATED IN LINE SOFT0260| 03555 200000000001 00001 IDM BSS 1,X NUMBER OF CHAR SHORTENED BY LIKDUP SOFT0261| 03556 200000000001 00001 SPACE BSS 1,L .TRUE. FOR SPACE CONTROL CARD SOFT0262| 03557 200000000001 00001 EJECT BSS 1,L .TRUE. FOR EJECT CONTROL CARD SOFT0263| 03560 200000000001 00001 DUP BSS 1,L .TRUE. FOR DUP CONTROL CRD SOFT0264 03561 200000000001 00001 END BSS 1,L .TRUE. FOR END CONTROL CARD SOFT0265| 03562 200000000001 00001 FEL BSS 1,X ERROR NO SOFT0266| 03563 200000000001 00001 CONT BSS 1,L .TRUE. FOR CONTINUATION SOFT0267| 03564 200000000001 00001 STYR BSS 1,L .TRUE. FOR CONTROL CARD SOFT0268| 03565 200000000001 00001 TEST BSS 1,L .TRUE. FOR TESTEND CONTROL CARD SOFT0269 03566 200000000001 00001 NWORDS BSS 1,X NUMBER OF STORAGE WORDS TRANSFERRED BYSOFT0270| 00073 100000000073 00001 USE SOFT0271| 00073 000000000000 10000 *LDIR| 00074 246447336060 10000 | 00075 746060606060 10000 *LORG 00076 000000000001 10000 | 00077 606060606060 10000 | 00100 616060606060 10000 | 00101 016060606060 10000 | 0BINARY CARD ID. DUP.0007 00102 306060606060 10000 | 00103 736060606060 10000 | 00104 346060606060 10000 | 00000 01111 END SOFT0272| 1 DUP. 12/01/64 PAGE 34 CONTROL DICTIONARY | 0 $CDICT DUP. DUP.0008| | 0BINARY CARD ID. DUP.0009| 003567000000 PREFACE START=0,LENGTH=1911,TYPE=7090,CMPLX=5 000000000005 | 246447336060 DUP. DECK | 003567000000 | 246447456060 DUPN REAL SECT. 2,LOC=0,LENGTH=0| 000000000000 246447456060 DUPN REAL SECT. 3,LOC=0,LENGTH=0| 000000000000 | 246447626060 DUPS REAL SECT. 4,LOC=23,LENGTH=0| 000000000023 | 246447626060 DUPS REAL SECT. 5,LOC=23,LENGTH=0 000000000023 | 616160606060 // REAL SECT. 6,LOC=105,LENGTH=1842| 003462000105 | 627062434623 SYSLOC VIRTUAL SECT. 7| 200000000000 214563264460 ANTFM VIRTUAL SECT. 8| 200000000000 | - $DDICT DUP. DUP.0010| | - $DKEND DUP. DUP.0014 | -NO MESSAGES FOR THIS ASSEMBLY | 1 DUP. 12/01/64 PAGE 35 | SYMBOL REFERENCE DATA | 0 REFERENCES TO DEFINED SYMBOLS.| 0 CLASS SYMBOL VALUE REFERENCES| | CONT 03563 | DM 03547 DN 03550 11,34| DUPN 00000 0,0,22| DUP 03560 | DUPS 00023 0,23,72| EJECT 03557 END 03561 | FEL 03562 | FMTN 03552 10,20,35,70| FMT 00552 14,43,45,47,51,55,62,64| FN 03551 HTN 03553 | HT 03342 | IDM 03555 | IN 00105 | ..0001 00002 6,7 ..0002 00003 | ..0003 00004 0| ..0004 00025 31,32| ..0005 00026 | ..0006 00027 23 LINEN 03554 | LINE 00345 36,50,53| NEXT 00055 41| NWORDS 03566 | LCTR BLCTR QUAL UNQS | LCTR // | SN 03546 | SPACE 03556 | STYR 03564 TEST 03565 | UT 00061 54| -REFERENCES TO VIRTUAL SYMBOLS.| | ANTFM 8 12 SYSLOC 7 4,27 1 12/01/64 PAGE 36 | | 0$IBMAP CONTF. DD SOFT0273 1 CONTF. 12/01/64 PAGE 37 | 7090 RELMOD ASSEMBLY. | 0| $IBLDR CONTF. 12/01/64 CONT0000| 1 CONTF. 12/01/64 PAGE 38 | ASSEMBLED TEXT. | 0 $TEXT CONTF. CONT0001| | * INVESTIGATES IF CONTINUATION CARD IS TO BE READ SOFT0274 * CONTINUATION CARD IS TO BE READ FOR C O N T IN(77) TO IN(80) SOFT0275| * IF THIS IS THE CASE, CONT=.TRUE. SOFT0276| 00000 ENTRY CONTF SOFT0277| 0BINARY CARD ID. CONT0002| 00000 0754 00 2 00011 10001 CONTF PXA UT,2 SOFT0278 00001 4625 00 0 00000 10011 STL CONT CONT=.TRUE. SOFT0279| 0 03456 7 00003 10010 | 00002 0774 00 2 00004 10000 AXT 4,2 SOFT0280| 00003 4500 00 2 00000 10011 LOOP CAL CONTV+4,2 SOFT0281| 0 00004 7 00013 10001 00004 4340 00 2 03120 10011 LAS IN+80,2 SOFT0282| 00005 0600 00 0 00000 10011 STZ CONT CONT=.FALSE. IF NO EQUALITY SOFT0283| 0 03456 7 00003 10010 | 00006 0020 00 0 01002 10011 TRA *+2 SOFT0284| 00007 0600 00 0 00000 10011 STZ CONT SOFT0285 0 03456 7 00003 10010 | 00010 2 00001 2 00003 10001 TIX LOOP,2,1 SOFT0286| 00011 0774 00 2 00000 10000 UT AXT **,2 SOFT0287| 00012 0020 00 4 00001 10000 TRA 1,4 SOFT0288| 00013 236060606060 10000 CONTV BCI 4,C O N T COMPARISON ARRAY SOFT0289 00014 466060606060 10000 | 00015 456060606060 10000 | 00016 636060606060 10000 | 00017 // CONTRL // SOFT0290| 0BINARY CARD ID. CONT0003 00017 100000000017 00001 USE // SOFT0291| 00017 200000000240 00001 IN BSS 160,H CONTENTS OF INPUT DATA CARD SOFT0292| 00257 200000000205 00001 LINE BSS 133,H INPUT LINE TO BE TRANSLATED SOFT0293| 00464 200000002570 00001 FMT BSS 1400,H THE NEW FORMAT IS GENERATED HERE SOFT0294| 03254 200000000204 00001 HT BSS 132,H TEMPORARY STORAGE FOR HOLLERITH TEXT SOFT0295 03460 200000000001 00001 SN BSS 1,X NUMBER OF BLANK LINES SOFT0296| 03461 200000000001 00001 DM BSS 1,X NUMBER OF INPUT LINES TO BE DUPLICATEDSOFT0297| 03462 200000000001 00001 DN BSS 1,X NUMBER OF TIMES THAT THEY ARE TO BE DUSOFT0298| 03463 200000000001 00001 FN BSS 1,X FORMAT NR SOFT0299| 03464 200000000001 00001 FMTN BSS 1,X NUMBER OF CHAR IN FMT SOFT0300 03465 200000000001 00001 HTN BSS 1,X NUMBER OF CHAR IN HT SOFT0301| 03466 200000000001 00001 LINEN BSS 1,X NUMBER OF CHAR TRANSLATED IN LINE SOFT0302| 03467 200000000001 00001 IDM BSS 1,X NUMBER OF CHAR SHORTENED BY LIKDUP SOFT0303| 03470 200000000001 00001 SPACE BSS 1,L .TRUE. FOR SPACE CONTROL CARD SOFT0304| 03471 200000000001 00001 EJECT BSS 1,L .TRUE. FOR EJECT CONTROL CARD SOFT0305 03472 200000000001 00001 DUP BSS 1,L .TRUE. FOR DUP CONTROL CRD SOFT0306| 03473 200000000001 00001 END BSS 1,L .TRUE. FOR END CONTROL CARD SOFT0307| 03474 200000000001 00001 FEL BSS 1,X ERROR NO SOFT0308| 03475 200000000001 00001 CONT BSS 1,L .TRUE. FOR CONTINUATION SOFT0309| 0BINARY CARD ID. CONT0004 03476 200000000001 00001 STYR BSS 1,L .TRUE. FOR CONTROL CARD SOFT0310| 03477 200000000001 00001 TEST BSS 1,L .TRUE. FOR TESTEND CONTROL CARD SOFT0311| 03500 200000000001 00001 NWORDS BSS 1,X NUMBER OF STORAGE WORDS TRANSFERRED BYSOFT0312| 00017 100000000017 00001 USE SOFT0313| 00000 01111 END SOFT0314 1 CONTF. 12/01/64 PAGE 39 | CONTROL DICTIONARY | 0 $CDICT CONTF. CONT0005| | 0BINARY CARD ID. CONT0006 003501000000 PREFACE START=0,LENGTH=1857,TYPE=7090,CMPLX=5| 000000000005 | 234645632633 CONTF. DECK | 003501000000 | 234645632660 CONTF REAL SECT. 2,LOC=0,LENGTH=0 000000000000 | 616160606060 // REAL SECT. 3,LOC=17,LENGTH=1842| 003462000017 | - $DDICT CONTF. CONT0007| - $DKEND CONTF. CONT0011| | -NO MESSAGES FOR THIS ASSEMBLY | 1 CONTF. 12/01/64 PAGE 40 | SYMBOL REFERENCE DATA 0| REFERENCES TO DEFINED SYMBOLS.| 0 CLASS SYMBOL VALUE REFERENCES| | CONTF 00000 0 CONT 03475 1,5,7| CONTV 00013 3| DM 03461 | DN 03462 | DUP 03472 EJECT 03471 | END 03473 | FEL 03474 | FMTN 03464 | FMT 00464 FN 03463 | HTN 03465 | HT 03254 | IDM 03467 | IN 00017 4 LINEN 03466 | LINE 00257 | LOOP 00003 10| NWORDS 03500 | LCTR BLCTR QUAL UNQS | LCTR // | SN 03460 | SPACE 03470 | STYR 03476 TEST 03477 | UT 00011 0 1 12/01/64 PAGE 41 | | 0$IBMAP TESTA. DD SOFT0315 1 TESTA. 12/01/64 PAGE 42 | 7090 RELMOD ASSEMBLY. | 0| $IBLDR TESTA. 12/01/64 TEST0000| 1 TESTA. 12/01/64 PAGE 43 | ASSEMBLED TEXT. | 0 $TEXT TESTA. TEST0001| | 00000 ENTRY TESTA SOFT0316 * PRACTICAL TEST OF THE GENERATED FORMAT STATEMENT SOFT0317| 00000 TESTA SAVE 1,2,4 SOFT0318| 0BINARY CARD ID. TEST0002| 00000 1 00000 0 00005 10001 | 00001 0774 00 2 00000 10000 00002 0774 00 1 00000 10000 | 00003 0774 00 4 00000 10000 | 00004 0020 00 4 00001 10000 | 00005 0634 00 4 06000 10011 | 00006 0634 00 4 00072 10001 00007 0634 00 4 00003 10001 | 00010 0634 00 1 00002 10001 | 00011 0634 00 2 00001 10001 | 4, 00012 000000000000 00010 1A CALL .FWRD.(.UN06.,START)'1' SOFT0319| 00012 0074 00 4 05000 10011 00013 1 00002 0 01004 10011 | 00014 0 00072 0 00001 10100 | 00015 0 00000 0 07000 10011 | 00016 0 00000 0 00055 10001 | 00017 0074 00 4 10000 10011 TSX .FFIL.,4 SOFT0320 00020 4500 00 0 00074 10001 CAL =H( SOFT0321| 00021 0602 00 0 04453 10011 SLW FMT+6 SOFT0322| 0BINARY CARD ID. TEST0003| 00022 4774 00 4 00001 10000 AXC 1,4 XR4 = - POSITION IN IN SOFT0323| 00023 4774 00 1 00007 10000 AXC 7,1 XR1 = - POSITION IN FMT SOFT0324 00024 0774 00 2 00006 10000 AXT 6,2 XR2 = NUMBER OF CHAR LEFT IN IN-WORD SOFT0325| 00025 0560 00 1 04444 10011 LOOP LDQ FMT-1,1 SOFT0326| 00026 4763 00 0 00006 10000 LGL 6 SOFT0327| 00027 1 77777 1 01001 10011 TXI *+1,1,-1 SOFT0328| 00030 2 00001 2 00025 10001 TIX LOOP,2,1 SOFT0329 00031 0602 00 4 44001 10011 SLW IN-1,4 SOFT0330| 00032 1 77777 4 01001 10011 TXI *+1,4,-1 SOFT0331| 00033 3 75210 1 00024 10001 TXH LOOP-1,1,-1400 SOFT0332| 18, 00034 000000000000 00010 2A CALL .FWRD.(.UN06.,IN)'2' SOFT0333| 00034 0074 00 4 05000 10011 00035 1 00002 0 01004 10011 | 00036 0 00072 0 00002 10100 | 00037 0 00000 0 07000 10011 | 00040 0 00000 0 04000 10011 | 00041 0535 00 4 00000 10011 LAC NWORDS,4 SOFT0334 0 03461 7 00004 10010 | 00042 7 00000 4 00052 10001 TXL 5A,4,0 SOFT0335| 0BINARY CARD ID. TEST0004| 00043 1 77777 4 01001 10011 TXI *+1,4,-1 SOFT0336| 00044 4634 00 4 00051 10001 SXD UT,4 SOFT0337 00045 4774 00 1 00001 10000 AXC 1,1 SOFT0338| 00046 3A NULL SOFT0339| 00046 0500 00 0 00054 10001 CLA AST SOFT0340| 00047 0074 00 4 11000 10011 TSX .FCNV.,4 SOFT0341| 00050 4A NULL SOFT0342 1 TESTA. 12/01/64 PAGE 44 | ASSEMBLED TEXT. | 0 00050 1 77777 1 01001 10011 TXI *+1,1,-1 SOFT0343| 00051 3 00000 1 00046 10001 UT TXH 3A,1,** SOFT0344| 00052 0074 00 4 10000 10011 5A TSX .FFIL.,4 SOFT0345 00053 RETURN TESTA SOFT0346| 00054 545454545454 10000 AST BCI 1,****** SOFT0347| 00055 740604300063 10000 START BCI 9,(64H0TEST OUTPUT WITH THE ABOVE FORMAT STATEMENT BEGIN SOFT0348| 00056 256263604664 10000 | 00057 634764636066 10000 00060 316330606330 10000 | 00061 256021224665 10000 | 00062 256026465144 10000 | 00063 216360626321 10000 | 00064 632544254563 10000 00065 602225273145 10000 | 0BINARY CARD ID. TEST0005| 00066 626046456045 10000 BCI 4,S ON NEXT LINE) SOFT0349| 00067 256763604331 10000 | 00070 452534606060 10000 00071 606060606060 10000 | 00075 // CONTRL // SOFT0350| 00075 100000000075 00001 USE // SOFT0351| 00075 200000000240 00001 IN BSS 160,H CONTENTS OF INPUT DATA CARD SOFT0352| 00335 200000000205 00001 LINE BSS 133,H INPUT LINE TO BE TRANSLATED SOFT0353 00542 200000002570 00001 FMT BSS 1400,H THE NEW FORMAT IS GENERATED HERE SOFT0354| 03332 200000000204 00001 HT BSS 132,H TEMPORARY STORAGE FOR HOLLERITH TEXT SOFT0355| 03536 200000000001 00001 SN BSS 1,X NUMBER OF BLANK LINES SOFT0356| 03537 200000000001 00001 DM BSS 1,X NUMBER OF INPUT LINES TO BE DUPLICATEDSOFT0357| 03540 200000000001 00001 DN BSS 1,X NUMBER OF TIMES THAT THEY ARE TO BE DUSOFT0358 03541 200000000001 00001 FN BSS 1,X FORMAT NR SOFT0359| 03542 200000000001 00001 FMTN BSS 1,X NUMBER OF CHAR IN FMT SOFT0360| 03543 200000000001 00001 HTN BSS 1,X NUMBER OF CHAR IN HT SOFT0361| 03544 200000000001 00001 LINEN BSS 1,X NUMBER OF CHAR TRANSLATED IN LINE SOFT0362| 03545 200000000001 00001 IDM BSS 1,X NUMBER OF CHAR SHORTENED BY LIKDUP SOFT0363 03546 200000000001 00001 SPACE BSS 1,L .TRUE. FOR SPACE CONTROL CARD SOFT0364| 03547 200000000001 00001 EJECT BSS 1,L .TRUE. FOR EJECT CONTROL CARD SOFT0365| 0BINARY CARD ID. TEST0006| 03550 200000000001 00001 DUP BSS 1,L .TRUE. FOR DUP CONTROL CRD SOFT0366| 03551 200000000001 00001 END BSS 1,L .TRUE. FOR END CONTROL CARD SOFT0367 03552 200000000001 00001 FEL BSS 1,X ERROR NO SOFT0368| 03553 200000000001 00001 CONT BSS 1,L .TRUE. FOR CONTINUATION SOFT0369| 03554 200000000001 00001 STYR BSS 1,L .TRUE. FOR CONTROL CARD SOFT0370| 03555 200000000001 00001 TEST BSS 1,L .TRUE. FOR TESTEND CONTROL CARD SOFT0371| 03556 200000000001 00001 NWORDS BSS 1,X NUMBER OF STORAGE WORDS TRANSFERRED BYSOFT0372 00072 100000000072 00001 USE SOFT0373| 00072 000000000000 10000 *LDIR| 00073 632562632133 10000 | 00074 746060606060 10000 *LORG| 00000 01111 END SOFT0374 1 TESTA. 12/01/64 PAGE 45 | CONTROL DICTIONARY | 0 $CDICT TESTA. TEST0007| | 0BINARY CARD ID. TEST0008 003557000000 PREFACE START=0,LENGTH=1903,TYPE=7090,CMPLX=5| 000000000005 | 632562632133 TESTA. DECK | 003557000000 | 632562632160 TESTA REAL SECT. 2,LOC=0,LENGTH=0 000000000000 | 632562632160 TESTA REAL SECT. 3,LOC=0,LENGTH=0| 000000000000 | 616160606060 // REAL SECT. 4,LOC=75,LENGTH=1842| 003462000075 332666512433 .FWRD. VIRTUAL SECT. 5,CALL| 200000100000 | 627062434623 SYSLOC VIRTUAL SECT. 6| 200000000000 | 336445000633 .UN06. VIRTUAL SECT. 7 200000000000 | 332626314333 .FFIL. VIRTUAL SECT. 8| 200000000000 | 332623456533 .FCNV. VIRTUAL SECT. 9| 200000000000 - $DDICT TESTA. TEST0009| | - $DKEND TESTA. TEST0014| | -NO MESSAGES FOR THIS ASSEMBLY 1 TESTA. 12/01/64 PAGE 46 | SYMBOL REFERENCE DATA | 0| REFERENCES TO DEFINED SYMBOLS.| 0 CLASS SYMBOL VALUE REFERENCES | 1A 00012 | 2A 00034 | 3A 00046 51| 4A 00050 5A 00052 42| AST 00054 46| CONT 03553 | DM 03537 | DN 03540 DUP 03550 | EJECT 03547 | END 03551 | FEL 03552 | FMTN 03542 FMT 00542 21,25| FN 03541 | HTN 03543 | HT 03332 | IDM 03545 IN 00075 31,40| ..0001 00003 7,10,11| ..0002 00004 | ..0003 00005 0| LINEN 03544 LINE 00335 | LOOP 00025 30,33| NWORDS 03556 41| LCTR BLCTR | QUAL UNQS LCTR // | SN 03536 | SPACE 03546 | START 00055 16| STYR 03554 TESTA 00000 0,0,53| TEST 03555 | UT 00051 44| -REFERENCES TO VIRTUAL SYMBOLS.| .FCNV. 9 47| .FFIL. 8 17,52| .FWRD. 5 12,34| .UN06. 7 15,37| SYSLOC 6 5 1 12/01/64 PAGE 47 | | 0$IBMAP TRANS. DD SOFT0375 1 TRANS. 12/01/64 PAGE 48 | 7090 RELMOD ASSEMBLY. | 0| $IBLDR TRANS. 12/01/64 TRAN0000| 1 TRANS. 12/01/64 PAGE 49 | ASSEMBLED TEXT. | 0 $TEXT TRANS. TRAN0001| | * TRANSLATES SOFT-TEXT TO FORMAT-TEXT SOFT0376 * ----------------------------------- SOFT0377| | | * JACOB PALME FOAP 822 MAY 1965 SOFT0379| | 00000 ENTRY TRANS SOFT0381| 00357 ENTRY ANTFM SOFT0382| 1 TRANS. 12/01/64 PAGE 50 | ASSEMBLED TEXT. 0| * PREPARATORY INITIALIZING ETC SOFT0384| * ---------------------------- SOFT0385| | 00000 TRANS SAVE 1,2,4 SOFT0387 0BINARY CARD ID. TRAN0002| 00000 1 00000 0 00005 10001 | 00001 0774 00 2 00000 10000 | 00002 0774 00 1 00000 10000 | 00003 0774 00 4 00000 10000 00004 0020 00 4 00001 10000 | 00005 0634 00 4 06000 10011 | 00006 0634 00 4 00505 10001 | 00007 0634 00 4 00003 10001 | 00010 0634 00 1 00002 10001 00011 0634 00 2 00001 10001 | 00012 0074 00 4 00465 10001 TSX LEND,4 PUT END MARK-77- AFTER LAST NON-BLANK SOFT0388| 00013 4774 00 1 00001 10000 AXC 1,1 -LINEN=-1 TO XR1 SOFT0389| 00014 0535 00 2 00000 10011 LAC FMTN,2 -FMTN TO XR2 SOFT0390| 0 03445 7 00005 10010 00015 0600 00 0 00000 10011 STZ HTN SOFT0391| 0 03446 7 00005 10010 | 00016 3 77766 2 00171 10001 TXH EBLANK,2,-10 SOFT0392| 00017 4500 00 0 00507 10001 CAL =H/ SOFT0393| 00020 0602 00 2 05444 10011 SLW FMT-1,2 WRITE / IF NOT BEGINNING OF FORMAT SOFT0394 0BINARY CARD ID. TRAN0003| 00021 1 77777 2 00171 10001 TXI EBLANK,2,-1 SOFT0395| 1 TRANS. 12/01/64 PAGE 51 | ASSEMBLED TEXT. | 0 * TRANSLATION OF HOLLERITH-TEXT IN LINE SOFT0397| * ------------------------------------- SOFT0398| | 00022 0074 00 4 00435 10001 BCIST TSX SAME,4 HOW MANY EQUAL CHAR FOLLOWS SOFT0400| 00023 0 00000 1 05237 10011 PZE LINE-1,1 SOFT0401 00024 0 00000 0 00546 10001 PZE ANTLIK SOFT0402| 00025 0500 00 0 00546 10001 CLA ANTLIK SOFT0403| 00026 0340 00 0 00510 10001 CAS =6 SOFT0404| 00027 0020 00 0 00042 10001 TRA BCIDUP TRA BCIDUP IF SIX OR MORE EQUAL CHARACSOFT0405| 00030 0020 00 0 00042 10001 TRA BCIDUP SOFT0406 00031 0535 00 4 00000 10011 LAC HTN,4 SOFT0407| 0 03446 7 00005 10010 | 00032 1 77777 4 01001 10011 TXI *+1,4,-1 SOFT0408| 00033 4500 00 1 05237 10011 CAL LINE-1,1 SOFT0409| 00034 0602 00 4 00000 10011 SLW HT-1,4 TRANSFER CHAR TO HT SOFT0410 0 03235 0 00005 10010 | 1 00001 7 00000 10011 | 00035 SCA HTN,4 SOFT0411| 0BINARY CARD ID. TRAN0004| 00041 1 77777 1 00171 10001 TXI EBLANK,1,-1 TRA EBLANK FOR NEW SOFT-TRANSLATION SOFT0412 00042 0074 00 4 00407 10001 BCIDUP TSX BCSLUT,4 TERMINATE PREVIOUS H-FORMAT SOFT0413| 00043 0500 00 0 00546 10001 CLA ANTLIK SOFT0414| 00044 0074 00 4 04000 10011 TSX ANTFM,4 WRITE ANTLIK IN FMT SOFT0415| 00045 4500 00 0 00511 10001 CAL =H( WRITE (1H IN FMT SOFT0416| 00046 0602 00 2 05444 10011 SLW FMT-1,2 SOFT0417 00047 4500 00 0 00512 10001 CAL =H1 SOFT0418| 00050 0602 00 2 05445 10011 SLW FMT,2 SOFT0419| 00051 4500 00 0 00513 10001 CAL =HH SOFT0420| 00052 0602 00 2 05446 10011 SLW FMT+1,2 SOFT0421| 00053 4500 00 1 05237 10011 CAL LINE-1,1 THE LINE-CHAR IS TRANSFERED TO FMT SOFT0422 00054 0602 00 2 05447 10011 SLW FMT+2,2 SOFT0423| 00055 4500 00 0 00514 10001 CAL =H) SOFT0424| 00056 0602 00 2 05450 10011 SLW FMT+3,2 WRITE ), IN FMT SOFT0425| 00057 4500 00 0 00515 10001 CAL =H, SOFT0426| 00060 0602 00 2 05451 10011 SLW FMT+4,2 SOFT0427 00061 0754 00 1 00000 10000 PXA ,1 SOFT0428| 00062 0402 00 0 00546 10001 SUB ANTLIK SOFT0429| 0BINARY CARD ID. TRAN0005| 00063 0734 00 1 00000 10000 PAX ,1 SOFT0430| 00064 1 77772 2 00171 10001 TXI EBLANK,2,-6 TRA EBLANK TO CONTINUE SOFT-TRANSLATIOSOFT0431 1 TRANS. 12/01/64 PAGE 52 | ASSEMBLED TEXT. | 0| * TRANSLATION OF * SOFT0433| * ---------------- SOFT0434 | 00065 4500 00 1 05240 10011 ASTST CAL LINE,1 SOFT0436| 00066 4340 00 0 00516 10001 LAS =H$ SOFT0437| 00067 0020 00 0 01002 10011 TRA *+2 SOFT0438| 00070 0020 00 0 00117 10001 TRA OCTAL TRA OCTAL FOR *$ SOFT0439 00071 0074 00 4 00435 10001 TSX SAME,4 BEGINNING OF A-FORMAT TRANSLATION SOFT0440| 00072 0 00000 1 05237 10011 PZE LINE-1,1 SOFT0441| 00073 0 00000 0 00546 10001 PZE ANTLIK SOFT0442| 00074 4500 00 0 00546 10001 CAL ANTLIK SOFT0443| 00075 0340 00 0 00510 10001 CAS =6 SOFT0444 00076 0500 00 0 00510 10001 CLA =6 SOFT0445| 00077 0602 00 0 00546 10001 SLW ANTLIK SOFT0446| 00100 0074 00 4 00407 10001 TSX BCSLUT,4 TERMINATE PREVIOUS H-FORMAT SOFT0447| 00101 4500 00 0 00517 10001 CAL =HA WRITE A IN FMT SOFT0448| 00102 0602 00 2 05444 10011 INTSL SLW FMT-1,2 SOFT0449 00103 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0450| 00104 4500 00 0 00546 10001 CAL ANTLIK SOFT0451| 00105 0074 00 4 04000 10011 TSX ANTFM,4 WRITE ANTLIK IN FMT SOFT0452| 0BINARY CARD ID. TRAN0006| 00106 4500 00 0 00515 10001 CAL =H, WRITE , IN FMT SOFT0453 00107 0602 00 2 05444 10011 SLW FMT-1,2 SOFT0454| 00110 0754 00 1 00000 10000 PXA ,1 SOFT0455| 00111 0402 00 0 00546 10001 SUB ANTLIK SOFT0456| 00112 0734 00 1 00000 10000 PAX ,1 SOFT0457| 00113 0500 00 0 00000 10011 CLA NWORDS SOFT0458 0 03461 7 00005 10010 | 00114 0400 00 0 00000 10011 ADD DN SOFT0459| 0 03443 7 00005 10010 | 00115 0601 00 0 00000 10011 STO NWORDS SOFT0460| 0 03461 7 00005 10010 00116 1 77777 2 00171 10001 TXI EBLANK,2,-1 TRA EBLANK TO CONTINUE SOFT TRANSLATISOFT0461| 1 TRANS. 12/01/64 PAGE 53 | ASSEMBLED TEXT. | 0| * TRANSLATION OF O-FORMAT SOFT0463 * ----------------------- SOFT0464| | 00117 0074 00 4 00435 10001 OCTAL TSX SAME,4 SOFT0466| 00120 0 00000 1 05240 10011 PZE LINE,1 SOFT0467| 00121 0 00000 0 00546 10001 PZE ANTLIK SOFT0468 00122 0500 00 0 00546 10001 CLA ANTLIK SOFT0469| 00123 0400 00 0 00520 10001 ADD =1 SOFT0470| 00124 0601 00 0 00546 10001 STO ANTLIK SOFT0471| 00125 0074 00 4 00407 10001 TSX BCSLUT,4 TERMINATE PREVIOUS H-FORMAT SOFT0472| 0BINARY CARD ID. TRAN0007 00126 4500 00 0 00521 10001 CAL =HO SOFT0473| 00127 0020 00 0 00102 10001 TRA INTSL O-FORMAT ENDS LIKE A-FORMAT SOFT0474| | * TRANSLATION OF I-FORMAT SOFT0476| * ----------------------- SOFT0477 | 00130 0074 00 4 00435 10001 INTST TSX SAME,4 SOFT0479| 00131 0 00000 1 05237 10011 PZE LINE-1,1 SOFT0480| 00132 0 00000 0 00546 10001 PZE ANTLIK SOFT0481| 00133 0074 00 4 00407 10001 TSX BCSLUT,4 SOFT0482 00134 4500 00 0 00522 10001 CAL =HI SOFT0483| 00135 0020 00 0 00102 10001 TRA INTSL I-FORMAT ENDS LIKE A-FORMAT SOFT0484| 1 TRANS. 12/01/64 PAGE 54 | ASSEMBLED TEXT. | 0 * TRANSLATION OF BLANK CHAR IN LINE SOFT0486| * --------------------------------- SOFT0487| | 00136 0074 00 4 00435 10001 BLANK TSX SAME,4 HOW MANY EQUAL CHAR FOLLOW SOFT0489| 00137 0 00000 1 05237 10011 PZE LINE-1,1 SOFT0490 00140 0 00000 0 00546 10001 PZE ANTLIK SOFT0491| 00141 0500 00 0 00546 10001 CLA ANTLIK SOFT0492| 00142 0340 00 0 00523 10001 CAS =4 SOFT0493| 00143 0020 00 0 00156 10001 TRA BLANKD TRA BLANKD IF FOUR OR MORE EQUAL CHAR SOFT0494| 00144 0020 00 0 00156 10001 TRA BLANKD SOFT0495 00145 0535 00 4 00000 10011 LAC HTN,4 SOFT0496| 0 03446 7 00005 10010 | 00146 1 77777 4 01001 10011 TXI *+1,4,-1 SOFT0497| 00147 4500 00 1 05237 10011 CAL LINE-1,1 SOFT0498| 0BINARY CARD ID. TRAN0008 00150 0602 00 4 00000 10011 SLW HT-1,4 SOFT0499| 0 03235 0 00005 10010 | 1 00001 7 00000 10011 | 00151 SCA HTN,4 SOFT0500| 00155 1 77777 1 00171 10001 TXI EBLANK,1,-1 TRA EBLANK TO CONTINUE SOFT TRANSLATIOSOFT0501 | * TRANSLATION OF MORE THAN THREE BLANKS SOFT0503| * ------------------------------------- SOFT0504| | 00156 0074 00 4 00407 10001 BLANKD TSX BCSLUT,4 SOFT0506 00157 0500 00 0 00546 10001 CLA ANTLIK SOFT0507| 00160 0074 00 4 04000 10011 TSX ANTFM,4 WRITE ANTLIK IN FMT SOFT0508| 00161 4500 00 0 00524 10001 CAL =HX WRITE X IN FMT SOFT0509| 00162 0602 00 2 05444 10011 SLW FMT-1,2 SOFT0510| 00163 4500 00 0 00515 10001 CAL =H, SOFT0511 00164 0602 00 2 05445 10011 SLW FMT,2 SOFT0512| 00165 0754 00 1 00000 10000 PXA ,1 SOFT0513| 00166 0402 00 0 00546 10001 SUB ANTLIK SOFT0514| 00167 0734 00 1 00000 10000 PAX ,1 SOFT0515| 0BINARY CARD ID. TRAN0009 00170 1 77776 2 00171 10001 TXI EBLANK,2,-2 TRA EBLANK TO CONTINUE SOFT TRANSLATIOSOFT0516| 1 TRANS. 12/01/64 PAGE 55 | ASSEMBLED TEXT. | 0| * TRANSLATION OF NEW FORMAT SECTION SOFT0518 * --------------------------------- SOFT0519| | 00171 7 77573 1 00345 10001 EBLANK TXL SLUT,1,-133 SOFT0521| 00172 4500 00 1 05237 10011 CAL LINE-1,1 SOFT0522| 00173 4340 00 0 00525 10001 LAS =O776060606060 SOFT0523 00174 0020 00 0 01002 10011 TRA *+2 SOFT0524| 00175 0020 00 0 00345 10001 TRA SLUT TRA SLUT IF THE WHOLE LINE IS TRANSLATSOFT0525| 00176 4340 00 0 00526 10001 LAS =H. SOFT0526| 00177 0020 00 0 01002 10011 TRA *+2 SOFT0527| 00200 0020 00 0 00335 10001 TRA PEBLA TRA PEBLA IF . IS FOUND SOFT0528 00201 4340 00 0 00527 10001 LAS =H SOFT0529| 00202 0020 00 0 01002 10011 TRA *+2 SOFT0530| 00203 0020 00 0 00136 10001 TRA BLANK TRA BLANK IF BLANK IS FOUND SOFT0531| 00204 4340 00 0 00516 10001 LAS =H$ SOFT0532| 00205 0020 00 0 00207 10001 TRA ASTE SOFT0533 00206 0020 00 0 00213 10001 TRA DEBLA TRA DEBLA IF $ IS FOUND SOFT0534| 00207 4340 00 0 00530 10001 ASTE LAS =H* SOFT0535| 00210 0020 00 0 00022 10001 TRA BCIST SOFT0536| 00211 0020 00 0 00065 10001 TRA ASTST TRA ASTST IF * IS FOUND SOFT0537| 00212 0020 00 0 00022 10001 TRA BCIST SOFT0538 | * TRANSLATION OF $ SOFT0540| * ---------------- SOFT0541| | 0BINARY CARD ID. TRAN0010 00213 0754 00 1 00000 10000 DEBLA PXA ,1 SOFT0543| 00214 0734 00 4 00000 10000 PAX ,4 SOFT0544| 00215 4500 00 0 00516 10001 CAL =H$ SOFT0545| 00216 4340 00 4 05240 10011 LAS LINE,4 SOFT0546| 00217 0020 00 0 01002 10011 TRA *+2 SOFT0547 00220 1 77777 4 41002 10011 TXI *-2,4,-1 NEW LOOP IF $ IS FOUND SOFT0548| 00221 4500 00 4 05240 10011 CAL LINE,4 SOFT0549| 00222 4340 00 0 00526 10001 LAS =H. SOFT0550| 00223 0020 00 0 00130 10001 TRA INTST TRA INTST IF $-S ARE NOT FOLLOWED BY .SOFT0551| 00224 0020 00 0 00226 10001 TRA BDP TRA BDP IF $-S ARE FOLLOWED BY . SOFT0552 00225 0020 00 0 00130 10001 TRA INTST SOFT0553| 1 TRANS. 12/01/64 PAGE 56 | ASSEMBLED TEXT. | 0| * TRANSLATION OF $. SOFT0555 * ----------------- SOFT0556| | 00226 0600 00 0 00546 10001 BDP STZ ANTLIK SOFT0558| 00227 0634 00 4 00546 10001 SXA ANTLIK,4 SOFT0559| 00230 0074 00 4 00407 10001 TSX BCSLUT,4 TERMINATE PREVIOUS H-FORMAT SOFT0560 00231 0754 00 1 00000 10000 PXA ,1 SOFT0561| 00232 0402 00 0 00546 10001 SUB ANTLIK SOFT0562| 00233 0400 00 0 00520 10001 ADD =1 SOFT0563| 00234 0601 00 0 00544 10001 STO ANTFP NUMBER OF $-S BEFORE . TO ANTFP SOFT0564| 00235 4500 00 0 00546 10001 CAL ANTLIK SOFT0565 0BINARY CARD ID. TRAN0011| 00236 0402 00 0 00531 10001 SUB =2 SOFT0566| 00237 0734 00 1 00000 10000 PAX ,1 SOFT0567| 00240 4500 00 1 05237 10011 CAL LINE-1,1 SOFT0568| 00241 4340 00 0 00516 10001 LAS =H$ SOFT0569 00242 0020 00 0 00245 10001 TRA BDPED TRA BDPED IF $. IS NOT FOLLOWED BY $ SOFT0570| 00243 0020 00 0 00247 10001 TRA BDPD TRA BDPD FOR $.$ SOFT0571| 00244 0020 00 0 00245 10001 TRA BDPED SOFT0572| | * TRANSLATION OF $. NOT FOLLOWED BY $ SOFT0574 * ----------------------------------- SOFT0575| | 00245 0600 00 0 00545 10001 BDPED STZ ANTEP NUMBER OF $-S AFTER . TO ANTEP SOFT0577| 00246 0020 00 0 00255 10001 TRA EFFE SOFT0578| * TRANSLATION OF $.$ SOFT0580| * ------------------ SOFT0581| | 00247 0074 00 4 00435 10001 BDPD TSX SAME,4 SOFT0583| 00250 0 00000 1 05237 10011 PZE LINE-1,1 SOFT0584 00251 0 00000 0 00545 10001 PZE ANTEP NUMBER OF $-S AFTER . TO ANTEP SOFT0585| 00252 0754 00 1 00000 10000 PXA ,1 SOFT0586| 00253 0402 00 0 00545 10001 SUB ANTEP SOFT0587| 00254 0734 00 1 00000 10000 PAX ,1 SOFT0588| 00255 4500 00 1 05237 10011 EFFE CAL LINE-1,1 SOFT0589 00256 4340 00 0 00532 10001 LAS =HE SOFT0590| 00257 0020 00 0 01002 10011 TRA *+2 SOFT0591| 00260 0020 00 0 00307 10001 TRA EFORM TRA EFORM IF E IS FOUND SOFT0592| 0BINARY CARD ID. TRAN0012| 00261 4340 00 0 00533 10001 LAS =HD SOFT0593 00262 0020 00 0 00265 10001 TRA FFORM TRA FFORM IF NEITHER E NOR D IS FOUND SOFT0594| 00263 0020 00 0 00330 10001 TRA DFORM TRA DFORM IF D IS FOUND SOFT0595| 00264 0020 00 0 00265 10001 TRA FFORM SOFT0596| 1 TRANS. 12/01/64 PAGE 57 | ASSEMBLED TEXT. 0| * TRANSLATION OF F-FORMAT SOFT0598| * ----------------------- SOFT0599| | 00265 4500 00 0 00534 10001 FFORM CAL =HF WRITE F IN FMT SOFT0601 00266 0602 00 2 05444 10011 SLW FMT-1,2 SOFT0602| 00267 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0603| 00270 0500 00 0 00544 10001 CLA ANTFP SOFT0604| 00271 0400 00 0 00545 10001 ADD ANTEP SOFT0605| 00272 0400 00 0 00520 10001 ADD =1 SOFT0606 00273 0074 00 4 04000 10011 TOTSKR TSX ANTFM,4 WRITE TOTAL SPACE IN FMT SOFT0607| 00274 4500 00 0 00526 10001 CAL =H. SOFT0608| 00275 0602 00 2 05444 10011 SLW FMT-1,2 WRITE . IN FMT SOFT0609| 00276 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0610| 00277 0500 00 0 00545 10001 CLA ANTEP SOFT0611 00300 0074 00 4 04000 10011 TSX ANTFM,4 WRITE NUMBER OF DECIMALS IN FMT SOFT0612| 00301 4500 00 0 00515 10001 CAL =H, SOFT0613| 00302 0602 00 2 05444 10011 SLW FMT-1,2 WRITE , IN FMT SOFT0614| 00303 0500 00 0 00000 10011 CLA NWORDS SOFT0615| 0BINARY CARD ID. TRAN0013 0 03461 7 00005 10010 | 00304 0400 00 0 00000 10011 ADD DN SOFT0616| 0 03443 7 00005 10010 | 00305 0601 00 0 00000 10011 STO NWORDS SOFT0617| 0 03461 7 00005 10010 00306 1 77777 2 00171 10001 TXI EBLANK,2,-1 TRA EBLANK TO CONTINUE SOFT TRANSLATIOSOFT0618| | * TRANSLATION OF E-FORMAT SOFT0620| * ----------------------- SOFT0621| 00307 4500 00 0 00532 10001 EFORM CAL =HE SOFT0623| 00310 0602 00 2 05444 10011 SLW FMT-1,2 WRITE E IN FMT SOFT0624| 00311 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0625| 00312 4500 00 0 00516 10001 CAL =H$ SOFT0626| 00313 4340 00 1 05240 10011 LAS LINE,1 SOFT0627 00314 0020 00 0 00322 10001 TRA FEL3 SOFT0628| 00315 4340 00 1 05241 10011 LAS LINE+1,1 SOFT0629| 00316 0020 00 0 00322 10001 TRA FEL3 SOFT0630| 00317 4340 00 1 05242 10011 LAS LINE+2,1 SOFT0631| 00320 0020 00 0 00322 10001 TRA FEL3 SOFT0632 00321 0020 00 0 01003 10011 TRA *+3 SOFT0633| 00322 4500 00 0 00535 10001 FEL3 CAL =3 SOFT0634| 00323 0602 00 0 00000 10011 SLW FEL SOFT0635| 0BINARY CARD ID. TRAN0014| 0 03455 7 00005 10010 00324 0500 00 0 00544 10001 CLA ANTFP SOFT0636| 00325 0400 00 0 00545 10001 ADD ANTEP SOFT0637| 00326 0400 00 0 00536 10001 ADD =5 SOFT0638| 00327 1 77774 1 00273 10001 TXI TOTSKR,1,-4 WRITE TOTAL SPACE IN FMT SOFT0639| 1 TRANS. 12/01/64 PAGE 58 ASSEMBLED TEXT. | 0| * TRANSLATION OF D-FORMAT SOFT0641| * ----------------------- SOFT0642| 00330 0500 00 0 00000 10011 DFORM CLA NWORDS SOFT0644| 0 03461 7 00005 10010 | 00331 0400 00 0 00000 10011 ADD DN SOFT0645| 0 03443 7 00005 10010 | 00332 0601 00 0 00000 10011 STO NWORDS SOFT0646 0 03461 7 00005 10010 | 00333 4500 00 0 00533 10001 CAL =HD SOFT0647| 00334 0020 00 0 00310 10001 TRA EFORM+1 WRITE D IN FMT SOFT0648| | * TRANSLATION OF . SOFT0650 * ---------------- SOFT0651| | 00335 4500 00 1 05240 10011 PEBLA CAL LINE,1 SOFT0653| 00336 4340 00 0 00516 10001 LAS =H$ SOFT0654| 00337 0020 00 0 00022 10001 TRA BCIST TRA BCIST IF . IS NOT FOLLOWED BY $ SOFT0655 00340 0020 00 0 00342 10001 TRA BPD TRA BPD FOR .$ SOFT0656| 00341 0020 00 0 00022 10001 TRA BCIST SOFT0657| 00342 0600 00 0 00544 10001 BPD STZ ANTFP SOFT0658| 0BINARY CARD ID. TRAN0015| 00343 0074 00 4 00407 10001 TSX BCSLUT,4 SOFT0659 00344 1 77777 1 00247 10001 TXI BDPD,1,-1 TRA BDPD FOR .$ SOFT0660| | * TERMINATING AND RETURN FROM TRANS SOFT0662| * --------------------------------- SOFT0663| 00345 0074 00 4 00407 10001 SLUT TSX BCSLUT,4 SOFT0665| 00346 SCA LINEN,1 SOFT0666| 00352 SCA FMTN,2 SOFT0667| 00356 RETURN TRANS SOFT0668| 1 TRANS. 12/01/64 PAGE 59 ASSEMBLED TEXT. | 0| * WRITE THE INTEGER FROM AC IN FMT SOFT0670| * -------------------------------- SOFT0671| 00357 0131 00 0 00000 10000 ANTFM XCA SOFT0673| 00360 4754 00 0 00000 10000 ZAC SOFT0674| 00361 0221 00 0 00537 10001 DVP =10 SOFT0675| 00362 0601 00 0 00543 10001 STO S3 LAST FIGURE TO S3 SOFT0676| 00363 0500 00 0 00520 10001 CLA =1 SOFT0677 0BINARY CARD ID. TRAN0016| 00364 0040 00 0 00402 10001 TLQ ENS TRA ENS FOR ONE-FIGURE DECIMAL NUMBER SOFT0678| 00365 4754 00 0 00000 10000 ZAC SOFT0679| 00366 0221 00 0 00537 10001 DVP =10 SOFT0680| 00367 0601 00 0 00542 10001 STO S2 SOFT0681 00370 0500 00 0 00520 10001 CLA =1 SOFT0682| 00371 0040 00 0 00376 10001 TLQ TVS TRA TVS FOR TWO-FIGURE DECIMAL NUMBER SOFT0683| 00372 0131 00 0 00000 10000 XCA S1 TO AC SOFT0684| 00373 0767 00 0 00036 10000 ALS 30 SOFT0685| 00374 0602 00 2 05444 10011 SLW FMT-1,2 FIRST FIGURE TO FMT SOFT0686 00375 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0687| 00376 4500 00 0 00542 10001 TVS CAL S2 SOFT0688| 00377 0767 00 0 00036 10000 ALS 30 SOFT0689| 00400 0602 00 2 05444 10011 SLW FMT-1,2 SECOND FIGURE TO FMT SOFT0690| 00401 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0691 00402 4500 00 0 00543 10001 ENS CAL S3 SOFT0692| 00403 0767 00 0 00036 10000 ALS 30 SOFT0693| 00404 0602 00 2 05444 10011 SLW FMT-1,2 LAST FIGURE TO FMT SOFT0694| 00405 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0695| 00406 0020 00 4 00001 10000 TRA 1,4 RETURN SOFT0696 1 TRANS. 12/01/64 PAGE 60 | ASSEMBLED TEXT. | 0| * TERMINATE H-FORMAT AND TRANSFER IT TO FMT SOFT0698| * ----------------------------------------- SOFT0699 | 0BINARY CARD ID. TRAN0017| 00407 0500 00 0 00000 10011 BCSLUT CLA HTN SOFT0701| 0 03446 7 00005 10010 | 00410 0100 00 4 00001 10000 TZE 1,4 RETURN IF NO PREVIOUS H-FORMAT SOFT0702 00411 0634 00 4 00433 10001 SXA BCUT,4 SOFT0703| 00412 0074 00 4 04000 10011 TSX ANTFM,4 WRITE NUMBER OF BCD-CHARACTERS IN FMT SOFT0704| 00413 4500 00 0 00513 10001 CAL =HH SOFT0705| 00414 0602 00 2 05444 10011 SLW FMT-1,2 WRITE H IN FMT SOFT0706| 00415 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0707 00416 0535 00 4 00000 10011 LAC HTN,4 SOFT0708| 0 03446 7 00005 10010 | 00417 4634 00 4 00425 10001 SXD MIHTN,4 STORE HTN IN DECREMENT OF MIHTN SOFT0709| 00420 4774 00 4 00001 10000 AXC 1,4 SOFT0710| 00421 4500 00 4 00000 10011 BCLOOP CAL HT-1,4 TRANSFER BCD-TEXT FROM HT TO FMT SOFT0711 0 03235 0 00005 10010 | 1 00001 7 00000 10011 | 00422 0361 00 0 00520 10001 ACL =1 CHANGE CHAR TO AVOID DUPLICATING IN LISOFT0712| 00423 0602 00 2 05444 10011 SLW FMT-1,2 SOFT0713| 00424 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0714 00425 7 00000 4 00427 10001 MIHTN TXL BCLUT,4,** **=-HTN SOFT0715| 0BINARY CARD ID. TRAN0018| 00426 1 77777 4 00421 10001 TXI BCLOOP,4,-1 SOFT0716| 00427 0600 00 0 00000 10011 BCLUT STZ HTN SOFT0717| 0 03446 7 00005 10010 00430 4500 00 0 00515 10001 CAL =H, SOFT0718| 00431 0602 00 2 05444 10011 SLW FMT-1,2 SOFT0719| 00432 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0720| 00433 0774 00 4 00000 10000 BCUT AXT **,4 SOFT0721| 00434 0020 00 4 00001 10000 TRA 1,4 SOFT0722 1 TRANS. 12/01/64 PAGE 61 | ASSEMBLED TEXT. | 0| * INVESTIGATE HOW MANY EQUAL CHAR THAT FOLLOWS ADRESS GIVEN IN CALL SOFT0724| * ----------------------------------------------------------------- SOFT0725 | 00435 0500 00 4 00001 10000 SAME CLA 1,4 SOFT0727| 00436 0621 00 0 00452 10001 STA SALOOP-1 SOFT0728| 00437 0621 00 0 00454 10001 STA SALOOP+1 SOFT0729| 00440 0625 00 0 00450 10001 STT SALOOP-3 SOFT0730 00441 0625 00 0 00451 10001 STT SALOOP-2 SOFT0731| 00442 0625 00 0 00452 10001 STT SALOOP-1 SOFT0732| 00443 0625 00 0 00453 10001 STT SALOOP SOFT0733| 00444 0625 00 0 00454 10001 STT SALOOP+1 SOFT0734| 00445 0625 00 0 00457 10001 STT SALOOP+4 SOFT0735 00446 0625 00 0 00462 10001 STT UT SOFT0736| 00447 0600 00 0 00540 10001 STZ SLASK SOFT0737| 0BINARY CARD ID. TRAN0019| 00450 0634 00 0 00540 10001 SXA SLASK,** START INDEX IS STORED IN SLASK SOFT0738| 00451 0634 00 0 00462 10001 SXA UT,** SOFT0739 00452 4500 00 0 00000 10000 CAL **,** FIRST CHAR TO AC SOFT0740| 00453 1 77777 0 01001 10011 SALOOP TXI *+1,**,-1 SOFT0741| 00454 4340 00 0 00000 10000 LAS **,** SOFT0742| 00455 0020 00 0 01002 10011 TRA *+2 SOFT0743| 00456 0020 00 0 00453 10001 TRA SALOOP NEW LOOP FOR EQUIALITY SOFT0744 00457 0754 00 0 00000 10000 PXA ,** END INDEX IN AC SOFT0745| 00460 4760 00 0 00003 10000 SSM SOFT0746| 00461 0400 00 0 00540 10001 ADD SLASK INDEX DIFFERENCE IN AC SOFT0747| 00462 0774 00 0 00000 10000 UT AXT **,** RETURN START INDEX TO XR SOFT0748| 00463 0601 60 4 00002 10000 STO* 2,4 SOFT0749 00464 0020 00 4 00003 10000 TRA 3,4 RETURN SOFT0750| 1 TRANS. 12/01/64 PAGE 62 | ASSEMBLED TEXT. | 0| * PUT END MARK-77- AFTER LAST NON-BLANK CHAR IN LINE SOFT0752 * -------------------------------------------------- SOFT0753| | 00465 0634 00 2 00503 10001 LEND SXA UTL,2 SOFT0755| 00466 4774 00 2 00204 10000 AXC 132,2 SOFT0756| 00467 4500 00 0 00527 10001 CAL =H SOFT0757 00470 4340 00 2 05237 10011 LLOOP LAS LINE-1,2 SOFT0758| 00471 0020 00 0 00476 10001 TRA LKLAR SOFT0759| 00472 0020 00 0 01002 10011 TRA *+2 SOFT0760| 0BINARY CARD ID. TRAN0020| 00473 0020 00 0 00476 10001 TRA LKLAR SOFT0761 00474 3 77776 2 00476 10001 TXH LKLAR,2,-2 SOFT0762| 00475 1 00001 2 00470 10001 TXI LLOOP,2,1 SOFT0763| 00476 4500 00 0 00525 10001 LKLAR CAL =O776060606060 SOFT0764| 00477 0602 00 2 05240 10011 SLW LINE,2 SOFT0765| 00500 0602 00 2 05241 10011 SLW LINE+1,2 SOFT0766 00501 0602 00 2 05242 10011 SLW LINE+2,2 SOFT0767| 00502 0602 00 2 05243 10011 SLW LINE+3,2 SOFT0768| 00503 0774 00 2 00000 10000 UTL AXT **,2 SOFT0769| 00504 0020 00 4 00001 10000 TRA 1,4 SOFT0770| 1 TRANS. 12/01/64 PAGE 63 ASSEMBLED TEXT. | 0| * DATA AREA SOFT0772| * --------- SOFT0773| 00540 100000000540 00001 USE .STOR. SOFT0775| 00540 200000000001 00001 SLASK BSS 1,X SOFT0776| 00541 200000000001 00001 S1 BSS 1,X SEE ANTFM SOFT0777| 00542 200000000001 00001 S2 BSS 1,X SEE ANTFM SOFT0778| 00543 200000000001 00001 S3 BSS 1,X SEE ANTFM SOFT0779 00544 200000000001 00001 ANTFP BSS 1,X NUMBER OF CHAR BEFORE . SOFT0780| 00545 200000000001 00001 ANTEP BSS 1,X NUMBER OF CHAR AFTER . SOFT0781| 00546 200000000001 00001 ANTLIK BSS 1,X NUMBER OF EQUAL CHAR SOFT0782| 00547 // CONTRL // SOFT0783| 00547 100000000547 00001 USE // SOFT0784 0BINARY CARD ID. TRAN0021| 00547 200000000240 00001 IN BSS 160,H CONTENTS OF INPUT DATA CARD SOFT0785| 01007 200000000205 00001 LINE BSS 133,H INPUT LINE TO BE TRANSLATED SOFT0786| 01214 200000002570 00001 FMT BSS 1400,H THE NEW FORMAT IS GENERATED HERE SOFT0787| 04004 200000000204 00001 HT BSS 132,H TEMPORARY STORAGE FOR HOLLERITH TEXT SOFT0788 04210 200000000001 00001 SN BSS 1,X NUMBER OF BLANK LINES SOFT0789| 04211 200000000001 00001 DM BSS 1,X NUMBER OF INPUT LINES TO BE DUPLICATEDSOFT0790| 04212 200000000001 00001 DN BSS 1,X NUMBER OF TIMES THAT THEY ARE TO BE DUSOFT0791| 04213 200000000001 00001 FN BSS 1,X FORMAT NR SOFT0792| 04214 200000000001 00001 FMTN BSS 1,X NUMBER OF CHAR IN FMT SOFT0793 04215 200000000001 00001 HTN BSS 1,X NUMBER OF CHAR IN HT SOFT0794| 04216 200000000001 00001 LINEN BSS 1,X NUMBER OF CHAR TRANSLATED IN LINE SOFT0795| 04217 200000000001 00001 IDM BSS 1,X NUMBER OF CHAR SHORTENED BY LIKDUP SOFT0796| 04220 200000000001 00001 SPACE BSS 1,L .TRUE. FOR SPACE CONTROL CARD SOFT0797| 04221 200000000001 00001 EJECT BSS 1,L .TRUE. FOR EJECT CONTROL CARD SOFT0798 04222 200000000001 00001 DUP BSS 1,L .TRUE. FOR DUP CONTROL CRD SOFT0799| 04223 200000000001 00001 END BSS 1,L .TRUE. FOR END CONTROL CARD SOFT0800| 04224 200000000001 00001 FEL BSS 1,X ERROR NO SOFT0801| 04225 200000000001 00001 CONT BSS 1,L .TRUE. FOR CONTINUATION SOFT0802| 04226 200000000001 00001 STYR BSS 1,L .TRUE. FOR CONTROL CARD SOFT0803 0BINARY CARD ID. TRAN0022| 04227 200000000001 00001 TEST BSS 1,L .TRUE. FOR TESTEND CONTROL CARD SOFT0804| 04230 200000000001 00001 NWORDS BSS 1,X NUMBER OF STORAGE WORDS TRANSFERRED BYSOFT0805| 00505 100000000505 00001 USE SOFT0806| 00505 000000000000 10000 *LDIR 00506 635121456233 10000 | 00507 616060606060 10000 *LORG| 00510 000000000006 10000 | 00511 746060606060 10000 | 00512 016060606060 10000 00513 306060606060 10000 | 00514 346060606060 10000 | 00515 736060606060 10000 | 00516 536060606060 10000 | 00517 216060606060 10000 00520 000000000001 10000 | 00521 466060606060 10000 | 00522 316060606060 10000 | 00523 000000000004 10000 | 00524 676060606060 10000 1 TRANS. 12/01/64 PAGE 64 | ASSEMBLED TEXT. | 0BINARY CARD ID. TRAN0023| 00525 776060606060 10000 | 00526 336060606060 10000 00527 606060606060 10000 | 00530 546060606060 10000 | 00531 000000000002 10000 | 00532 256060606060 10000 | 00533 246060606060 10000 00534 266060606060 10000 | 00535 000000000003 10000 | 00536 000000000005 10000 | 00537 000000000012 10000 | 00000 01111 END SOFT0807 1 TRANS. 12/01/64 PAGE 65 | CONTROL DICTIONARY | 0 $CDICT TRANS. TRAN0024| | 0BINARY CARD ID. TRAN0025 004231000000 PREFACE START=0,LENGTH=2201,TYPE=7090,CMPLX=5| 000000000005 | 635121456233 TRANS. DECK | 004231000000 | 635121456260 TRANS REAL SECT. 2,LOC=0,LENGTH=0 000000000000 | 635121456260 TRANS REAL SECT. 3,LOC=0,LENGTH=0| 000000000000 | 214563264460 ANTFM REAL SECT. 4,LOC=357,LENGTH=0| 000000000357 616160606060 // REAL SECT. 5,LOC=547,LENGTH=1842| 003462000547 | 627062434623 SYSLOC VIRTUAL SECT. 6| 200000000000 | - $DDICT TRANS. TRAN0026 | - $DKEND TRANS. TRAN0034| | -NO MESSAGES FOR THIS ASSEMBLY | 1 TRANS. 12/01/64 PAGE 66 SYMBOL REFERENCE DATA | 0| REFERENCES TO DEFINED SYMBOLS.| 0 CLASS SYMBOL VALUE REFERENCES| ANTEP 00545 245,251,253,271,277,325| ANTFM 00357 0,44,105,160,273,300,412| ANTFP 00544 234,270,324,342| ANTLIK 00546 24,25,43,62,73,74,77,104,111,121,122,124,132,140,141,157,166,226,227,232,235| ASTE 00207 205 ASTST 00065 211| BCIDUP 00042 27,30| BCIST 00022 210,212,337,341| BCLOOP 00421 426| BCLUT 00427 425 BCSLUT 00407 42,100,125,133,156,230,343,345| BCUT 00433 411| BDPD 00247 243,344| BDPED 00245 242,244| BDP 00226 224 BLANKD 00156 143,144| BLANK 00136 203| BPD 00342 340| CONT 04225 | DEBLA 00213 206 DFORM 00330 263| DM 04211 | DN 04212 114,304,331| DUP 04222 | EBLANK 00171 16,21,41,64,116,155,170,306 EFFE 00255 246| EFORM 00307 260,334| EJECT 04221 | END 04223 | ENS 00402 364 FEL3 00322 314,316,320| FEL 04224 323| FFORM 00265 262,264| FMTN 04214 14,354| FMT 01214 20,46,50,52,54,56,60,102,107,162,164,266,275,302,310,374,400,404,414,423,431 FN 04213 | HTN 04215 15,31,37,145,153,407,416,427| HT 04004 34,150,421| IDM 04217 | IN 00547 INTSL 00102 127,135| INTST 00130 223,225| ..0001 00003 7,10,11| ..0002 00004 | ..0003 00005 0 LCTR .STOR. | LEND 00465 12| LINEN 04216 350| LINE 01007 23,33,53,65,72,120,131,137,147,172,216,221,240,250,255,313,315,317,335,470,477,500,501,502| LKLAR 00476 471,473,474 LLOOP 00470 475| 1 TRANS. 12/01/64 PAGE 67 | SYMBOL REFERENCE DATA | 0 MIHTN 00425 417| NWORDS 04230 113,115,303,305,330,332 OCTAL 00117 70| PEBLA 00335 200| LCTR BLCTR | QUAL UNQS | LCTR // S1 00541 | S2 00542 367,376| S3 00543 362,402| SALOOP 00453 436,437,440,441,442,443,444,445,456| SAME 00435 22,71,117,130,136,247 SLASK 00540 447,450,461| SLUT 00345 171,175| SN 04210 | SPACE 04220 | STYR 04226 TEST 04227 | TOTSKR 00273 327| TRANS 00000 0,0,356| TVS 00376 371| UTL 00503 465 UT 00462 446,451| -REFERENCES TO VIRTUAL SYMBOLS.| | SYSLOC 6 5 1 12/01/64 PAGE 68 | | 0$IBMAP STYRF. DD SOFT0808 1 STYRF. 12/01/64 PAGE 69 | 7090 RELMOD ASSEMBLY. | 0| $IBLDR STYRF. 12/01/64 STYR0000| 1 STYRF. 12/01/64 PAGE 70 | ASSEMBLED TEXT. | 0 $TEXT STYRF. STYR0001| | * DECIDES IF THE CARD IS A CONTROL CARD, TRANSLATES THE CARD IF CONTROL SOFT0809 * ----------------------------------------------------------------------SOFT0810| | 00000 ENTRY STYRF SOFT0812| 00000 STYRF SAVE 2,4 SOFT0813| 0BINARY CARD ID. STYR0002 00000 1 00000 0 00004 10001 | 00001 0774 00 2 00000 10000 | 00002 0774 00 4 00000 10000 | 00003 0020 00 4 00001 10000 | 00004 0634 00 4 05000 10011 00005 0634 00 4 00162 10001 | 00006 0634 00 4 00002 10001 | 00007 0634 00 2 00001 10001 | 00010 0600 00 0 00000 10011 STZ SPACE THE LOGICAL VARIABLES WHICH SHALL CONTSOFT0814| 0 03451 7 00004 10010 00011 0600 00 0 00000 10011 STZ EJECT THE INFORMATION FROM THE CONTROL CARD SOFT0815| 0 03452 7 00004 10010 | 00012 0600 00 0 00000 10011 STZ DUP ARE PUT TO ZERO SOFT0816| 0 03453 7 00004 10010 | 00013 0600 00 0 00000 10011 STZ END SOFT0817 0 03454 7 00004 10010 | 00014 0600 00 0 00000 10011 STZ FEL SOFT0818| 0 03455 7 00004 10010 | 00015 0600 00 0 00000 10011 STZ TEST SOFT0819| 0BINARY CARD ID. STYR0003 0 03460 7 00004 10010 | 00016 4500 00 0 04000 10011 CAL IN FIRST CARD CHAR TO AC SOFT0820| 00017 4340 00 0 00164 10001 LAS =H* IS IT A CONTROL CARD SOFT0821| 00020 0020 00 0 01002 10011 TRA *+2 SOFT0822| 00021 0020 00 0 01003 10011 TRA *+3 SOFT0823 00022 0600 00 0 00000 10011 STZ STYR NO, NO CONTROL CARD SOFT0824| 0 03457 7 00004 10010 | 00023 0020 00 0 00160 10001 TRA UT SOFT0825| 00024 4625 00 0 00000 10011 STL STYR YES, IT IS A CONTROL CARD SOFT0826| 0 03457 7 00004 10010 00025 4774 00 2 00002 10000 AXC 2,2 NO OF CHAR TO BE TRANSLATED TO XR2 SOFT0827| 00026 4500 00 0 00165 10001 CAL =H SOFT0828| 00027 4340 00 2 44001 10011 BLAS LAS IN-1,2 SOFT0829| 00030 0020 00 0 00034 10001 TRA FSIGN TRA IF NOT BLANK SOFT0830| 00031 0020 00 0 01002 10011 TRA *+2 SOFT0831 00032 0020 00 0 00034 10001 TRA FSIGN SOFT0832| 00033 1 77777 2 00027 10001 TXI BLAS,2,-1 TRANSLATE NEXT CHAR ON THE CARD SOFT0833| 00034 7 77660 2 00055 10001 FSIGN TXL FELI,2,-80 HAS THE WHOLE CARD BEEN TRANSLATED SOFT0834| 00035 4500 00 2 44001 10011 CAL IN-1,2 SOFT0835| 0BINARY CARD ID. STYR0004 00036 4340 00 0 00166 10001 LAS =HE SOFT0836| 00037 0020 00 0 01002 10011 TRA *+2 SOFT0837| 00040 0020 00 0 00061 10001 TRA E TRA E IF E IS FOUND SOFT0838| 00041 4340 00 0 00167 10001 LAS =HD SOFT0839| 00042 0020 00 0 01002 10011 TRA *+2 SOFT0840 1 STYRF. 12/01/64 PAGE 71 | ASSEMBLED TEXT. | 0 00043 0020 00 0 00105 10001 TRA D TRA D IF D IS FOUND SOFT0841| 00044 4340 00 0 00170 10001 LAS =HS SOFT0842| 00045 0020 00 0 01002 10011 TRA *+2 SOFT0843 00046 0020 00 0 00114 10001 TRA S TRA S IF S IS FOUND SOFT0844| 00047 4340 00 0 00171 10001 LAS =HT SOFT0845| 00050 0020 00 0 01002 10011 TRA *+2 SOFT0846| 00051 0020 00 0 00053 10001 TRA T SOFT0847| 00052 0020 00 0 00055 10001 TRA FELI SOFT0848 00053 4625 00 0 00000 10011 T STL TEST TEST=.TRUE. SOFT0849| 0 03460 7 00004 10010 | 00054 0020 00 0 00100 10001 TRA EN SOFT0850| 00055 0500 00 0 00172 10001 FELI CLA =1 SOFT0851| 00056 0601 00 0 00000 10011 STO FEL ERROR NO 1 SOFT0852 0 03455 7 00004 10010 | 0BINARY CARD ID. STYR0005| 00057 0600 00 0 00000 10011 STZ STYR STYR=.FALSE. SOFT0853| 0 03457 7 00004 10010 | 00060 0020 00 0 00160 10001 TRA UT SOFT0854 00061 1 77777 2 01001 10011 E TXI *+1,2,-1 SOFT0855| 00062 7 77657 2 00055 10001 TXL FELI,2,-81 SOFT0856| 00063 4500 00 2 44001 10011 CAL IN-1,2 SOFT0857| 00064 4340 00 0 00165 10001 LAS =H SOFT0858| 00065 0020 00 0 01002 10011 TRA *+2 SOFT0859 00066 0020 00 0 00061 10001 TRA E NEW INVESTIGATION FOR BLANK SOFT0860| 00067 4340 00 0 00173 10001 LAS =HJ SOFT0861| 00070 0020 00 0 01002 10011 TRA *+2 SOFT0862| 00071 0020 00 0 00076 10001 TRA EJ TRA EJ IF EJ WAS FOUND SOFT0863| 00072 4340 00 0 00174 10001 LAS =HN SOFT0864 00073 0020 00 0 00055 10001 TRA FELI SOFT0865| 00074 0020 00 0 00100 10001 TRA EN TRA EN IF EN WAS FOUND SOFT0866| 00075 0020 00 0 00055 10001 TRA FELI SOFT0867| 00076 4625 00 0 00000 10011 EJ STL EJECT EJECT=.TRUE. SOFT0868| 0 03452 7 00004 10010 00077 0020 00 0 00160 10001 TRA UT SOFT0869| 0BINARY CARD ID. STYR0006| 00100 0074 00 4 00121 10001 EN TSX SOEKP,4 SEARCH FOR LEFT PARENTHESIS SOFT0870| 00101 0074 00 4 00130 10001 ENP TSX SIFFR,4 TRANSLATE INTEGER FOUND AFTER LEFT PARSOFT0871| 00102 0602 00 0 00000 10011 SLW FN FORMAT NO TO FN SOFT0872 0 03444 7 00004 10010 | 00103 4625 00 0 00000 10011 STL END END=.TRUE. SOFT0873| 0 03454 7 00004 10010 | 00104 0020 00 0 00160 10001 TRA UT SOFT0874| 00105 0074 00 4 00121 10001 D TSX SOEKP,4 SOFT0875 00106 0074 00 4 00130 10001 TSX SIFFR,4 SOFT0876| 00107 0602 00 0 00000 10011 SLW DM FIRST PARAMETER STORED IN DM SOFT0877| 0 03442 7 00004 10010 | 00110 0074 00 4 00130 10001 TSX SIFFR,4 SOFT0878| 00111 0602 00 0 00000 10011 SLW DN SECOND PARAMETER STORED IN DN SOFT0879 0 03443 7 00004 10010 | 00112 4625 00 0 00000 10011 STL DUP DUP=.TRUE. SOFT0880| 0 03453 7 00004 10010 | 00113 0020 00 0 00160 10001 TRA UT SOFT0881| 00114 0074 00 4 00121 10001 S TSX SOEKP,4 SOFT0882 00115 0074 00 4 00130 10001 TSX SIFFR,4 SOFT0883| 1 STYRF. 12/01/64 PAGE 72 | ASSEMBLED TEXT. | 0BINARY CARD ID. STYR0007| 00116 0602 00 0 00000 10011 SLW SN NUMBER OF SPACE-LINES IS STORED IN SN SOFT0884 0 03441 7 00004 10010 | 00117 4625 00 0 00000 10011 STL SPACE SPACE=.TRUE. SOFT0885| 0 03451 7 00004 10010 | 00120 0020 00 0 00160 10001 TRA UT SOFT0886| 00121 1 77777 2 01001 10011 SOEKP TXI *+1,2,-1 FUNCTION TO SEARCH FOR LEFT PARENTHESISOFT0887 00122 7 77657 2 00055 10001 TXL FELI,2,-81 SOFT0888| 00123 4500 00 2 44001 10011 CAL IN-1,2 SOFT0889| 00124 4340 00 0 00175 10001 LAS =H( SOFT0890| 00125 0020 00 0 00121 10001 TRA SOEKP NEW LOOP IF NO ( SOFT0891| 00126 0020 00 4 00001 10000 TRA 1,4 RETURN FOR ( SOFT0892 00127 0020 00 0 00121 10001 TRA SOEKP SOFT0893| 00130 0600 00 0 00161 10001 SIFFR STZ SLASK FUNCTION TO TRANSLATE INTEGER PARAMETESOFT0894| 00131 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT0895| 00132 7 77657 2 00055 10001 TXL FELI,2,-81 SOFT0896| 00133 4500 00 2 44001 10011 CAL IN-1,2 SOFT0897 00134 4340 00 0 00176 10001 LAS =H) SOFT0898| 00135 0020 00 0 01002 10011 TRA *+2 SOFT0899| 00136 0020 00 0 00153 10001 TRA SIFFSL TRA SIFFSL FOR ) SOFT0900| 0BINARY CARD ID. STYR0008| 00137 4340 00 0 00177 10001 LAS =H, SOFT0901 00140 0020 00 0 01002 10011 TRA *+2 SOFT0902| 00141 0020 00 0 00153 10001 TRA SIFFSL TRA SIFFSL FOR , SOFT0903| 00142 4340 00 0 00165 10001 LAS =H SOFT0904| 00143 0020 00 0 01002 10011 TRA *+2 SOFT0905| 00144 0020 00 0 00131 10001 TRA SIFFR+1 TRA SIFFR+1 FOR BLANK CHAR SOFT0906 00145 0771 00 0 00036 10000 ARS 30 INTEGER IS RIGHT ADJUSTED SOFT0907| 00146 0400 00 0 00161 10001 ADD SLASK SOFT0908| 00147 0765 00 0 00043 10000 LRS 35 INTEGER SUM IS TRANSFERED TO MQ SOFT0909| 00150 0200 00 0 00200 10001 MPY =10 SOFT0910| 00151 4600 00 0 00161 10001 STQ SLASK SOFT0911 00152 0020 00 0 00131 10001 TRA SIFFR+1 NEXT INTEGER TO BE TRANSLATED SOFT0912| 00153 0560 00 0 00161 10001 SIFFSL LDQ SLASK SOFT0913| 00154 4754 00 0 00000 10000 ZAC SOFT0914| 00155 0221 00 0 00200 10001 DVP =10 SOFT0915| 00156 0131 00 0 00000 10000 XCA SOFT0916 00157 0020 00 4 00001 10000 TRA 1,4 RETURN WITH INTEGER IN AC SOFT0917| 00160 UT RETURN STYRF SOFT0918| 00161 200000000001 00001 SLASK BSS 1 SOFT0919| 00201 // CONTRL // SOFT0920| 0BINARY CARD ID. STYR0009 00201 100000000201 00001 USE // SOFT0921| 00201 200000000240 00001 IN BSS 160,H CONTENTS OF INPUT DATA CARD SOFT0922| 00441 200000000205 00001 LINE BSS 133,H INPUT LINE TO BE TRANSLATED SOFT0923| 00646 200000002570 00001 FMT BSS 1400,H THE NEW FORMAT IS GENERATED HERE SOFT0924| 03436 200000000204 00001 HT BSS 132,H TEMPORARY STORAGE FOR HOLLERITH TEXT SOFT0925 03642 200000000001 00001 SN BSS 1,X NUMBER OF BLANK LINES SOFT0926| 03643 200000000001 00001 DM BSS 1,X NUMBER OF INPUT LINES TO BE DUPLICATEDSOFT0927| 03644 200000000001 00001 DN BSS 1,X NUMBER OF TIMES THAT THEY ARE TO BE DUSOFT0928| 03645 200000000001 00001 FN BSS 1,X FORMAT NR SOFT0929| 03646 200000000001 00001 FMTN BSS 1,X NUMBER OF CHAR IN FMT SOFT0930 03647 200000000001 00001 HTN BSS 1,X NUMBER OF CHAR IN HT SOFT0931| 03650 200000000001 00001 LINEN BSS 1,X NUMBER OF CHAR TRANSLATED IN LINE SOFT0932| 1 STYRF. 12/01/64 PAGE 73 | ASSEMBLED TEXT. | 0 03651 200000000001 00001 IDM BSS 1,X NUMBER OF CHAR SHORTENED BY LIKDUP SOFT0933 03652 200000000001 00001 SPACE BSS 1,L .TRUE. FOR SPACE CONTROL CARD SOFT0934| 03653 200000000001 00001 EJECT BSS 1,L .TRUE. FOR EJECT CONTROL CARD SOFT0935| 03654 200000000001 00001 DUP BSS 1,L .TRUE. FOR DUP CONTROL CRD SOFT0936| 03655 200000000001 00001 END BSS 1,L .TRUE. FOR END CONTROL CARD SOFT0937| 03656 200000000001 00001 FEL BSS 1,X ERROR NO SOFT0938 03657 200000000001 00001 CONT BSS 1,L .TRUE. FOR CONTINUATION SOFT0939| 0BINARY CARD ID. STYR0010| 03660 200000000001 00001 STYR BSS 1,L .TRUE. FOR CONTROL CARD SOFT0940| 03661 200000000001 00001 TEST BSS 1,L .TRUE. FOR TESTEND CONTROL CARD SOFT0941| 03662 200000000001 00001 NWORDS BSS 1,X NUMBER OF STORAGE WORDS TRANSFERRED BYSOFT0942 00162 100000000162 00001 USE SOFT0943| 00162 000000000000 10000 *LDIR| 00163 626370512633 10000 | 00164 546060606060 10000 *LORG| 00165 606060606060 10000 00166 256060606060 10000 | 00167 246060606060 10000 | 00170 626060606060 10000 | 00171 636060606060 10000 | 00172 000000000001 10000 00173 416060606060 10000 | 00174 456060606060 10000 | 00175 746060606060 10000 | 00176 346060606060 10000 | 00177 736060606060 10000 00200 000000000012 10000 | 0BINARY CARD ID. STYR0011| 00000 01111 END SOFT0944| 1 STYRF. 12/01/64 PAGE 74 | CONTROL DICTIONARY 0 $CDICT STYRF. STYR0012| | 0BINARY CARD ID. STYR0013| 003663000000 PREFACE START=0,LENGTH=1971,TYPE=7090,CMPLX=5| 000000000005 626370512633 STYRF. DECK | 003663000000 | 626370512660 STYRF REAL SECT. 2,LOC=0,LENGTH=0| 000000000000 | 626370512660 STYRF REAL SECT. 3,LOC=0,LENGTH=0 000000000000 | 616160606060 // REAL SECT. 4,LOC=201,LENGTH=1842| 003462000201 | 627062434623 SYSLOC VIRTUAL SECT. 5| 200000000000 - $DDICT STYRF. STYR0014| | - $DKEND STYRF. STYR0019| | -NO MESSAGES FOR THIS ASSEMBLY 1 STYRF. 12/01/64 PAGE 75 | SYMBOL REFERENCE DATA | 0| REFERENCES TO DEFINED SYMBOLS.| 0 CLASS SYMBOL VALUE REFERENCES | BLAS 00027 33| CONT 03657 | DM 03643 107| DN 03644 111 D 00105 43| DUP 03654 12,112| EJECT 03653 11,76| EJ 00076 71| END 03655 13,103 ENP 00101 | EN 00100 54,74| E 00061 40,66| FELI 00055 34,52,62,73,75,122,132| FEL 03656 14,56 FMTN 03646 | FMT 00646 | FN 03645 102| FSIGN 00034 30,32| HTN 03647 HT 03436 | IDM 03651 | IN 00201 16,27,35,63,123,133| ..0001 00002 6,7| ..0002 00003 ..0003 00004 0| LINEN 03650 | LINE 00441 | NWORDS 03662 | LCTR BLCTR QUAL UNQS | LCTR // | SIFFR 00130 101,106,110,115,144,152| SIFFSL 00153 136,141| SLASK 00161 130,146,151,153 SN 03642 116| SOEKP 00121 100,105,114,125,127| SPACE 03652 10,117| S 00114 46| STYRF 00000 0,0,160 STYR 03660 22,24,57| TEST 03661 15,53| T 00053 51| UT 00160 23,60,77,104,113,120| -REFERENCES TO VIRTUAL SYMBOLS. | SYSLOC 5 4 1 12/01/64 PAGE 76 | | 0$IBMAP LIKDP. DD SOFT0945 1 LIKDP. 12/01/64 PAGE 77 | 7090 RELMOD ASSEMBLY. | 0| $IBLDR LIKDP. 12/01/64 LIKD0000| 1 LIKDP. 12/01/64 PAGE 78 | ASSEMBLED TEXT. | 0 $TEXT LIKDP. LIKD0001| | * PROGRAM WHICH SHORTENS FORMAT-STATEMENTS BY DUPLICATING EQUAL SECTIONSSOFT0946 | | * JACOB PALME FOAP 822, MAY 1965 SOFT0948| | 00000 ENTRY LIKDUP SOFT0950| 1 LIKDP. 12/01/64 PAGE 79 | ASSEMBLED TEXT. | 0| * PREPARATORY INITIALIZING ETC SOFT0952 * ---------------------------- SOFT0953| | 00000 LIKDUP SAVE 1,2,4 SOFT0955| 0BINARY CARD ID. LIKD0002| 00000 1 00000 0 00005 10001 00001 0774 00 2 00000 10000 | 00002 0774 00 1 00000 10000 | 00003 0774 00 4 00000 10000 | 00004 0020 00 4 00001 10000 | 00005 0634 00 4 05000 10011 00006 0634 00 4 00342 10001 | 00007 0634 00 4 00003 10001 | 00010 0634 00 1 00002 10001 | 00011 0634 00 2 00001 10001 | 00012 0500 00 0 00344 10001 CLA =O100000 SOFT0956 00013 0402 00 0 00000 10011 SUB IDM SOFT0957| 0 03450 7 00004 10010 | 00014 0601 00 0 03150 10001 STO GFMN OLD FORMAT-NO = -IDM SOFT0958| 00015 0601 00 0 03151 10001 STO NFMN NEW FORMAT-NO = -IDM SOFT0959| 00016 0535 00 4 00000 10011 LAC FMTN,4 SOFT0960 0 03445 7 00004 10010 | 00017 4500 00 0 00345 10001 CAL =O776060606060 SOFT0961| 00020 0602 00 4 04444 10011 SLW FMT-1,4 END MARK=77 IN FMT SOFT0962| 1 LIKDP. 12/01/64 PAGE 80 | ASSEMBLED TEXT. 0| * START OF NEW DUPLICITY INVESTIGATION SOFT0964| * ------------------------------------ SOFT0965| | 0BINARY CARD ID. LIKD0003 00021 0534 00 1 03150 10001 NYSE LXA GFMN,1 SOFT0967| 00022 4500 00 1 04444 10011 CAL FMT-1,1 SOFT0968| 00023 4340 00 0 00345 10001 LAS =O776060606060 SOFT0969| 00024 0020 00 0 01002 10011 TRA *+2 SOFT0970| 00025 0020 00 0 00146 10001 TRA SLUT TRA SLUT IF END MARK=77 IS ENCOUNTEREDSOFT0971 00026 0074 00 4 00157 10001 TSX TESO,4 INVESTIGATE THE AREA TO THE NEXT (,),7SOFT0972| 00027 0 00000 0 03150 10001 PZE GFMN SOFT0973| 00030 0020 00 0 00144 10001 TRA N77 TRA N77 IF END MARK=77 IS ENCOUNTERED SOFT0974| 00031 0020 00 0 00140 10001 TRA NPAR TRA NPAR IF ( OR ) IS ENCOUNTERED SOFT0975| 00032 0601 00 0 03152 10001 STO ASTOR IF , IS ENCOUNTERED, STORE THE NUMBER SOFT0976 00033 0601 00 0 03153 10001 STO FSTOR CHARACTERS TO IT IN ASTOR AND FSTOR SOFT0977| 00034 0500 00 0 00346 10001 CLA =1 SOFT0978| 00035 0601 00 0 03154 10001 STO ALIK SOFT0979| 00036 0601 00 0 03155 10001 STO AKOM SOFT0980| * IS THE SECOND GROUP OF SIZE ASTOR EQUAL TO THE FIRST SOFT0982| * ---------------------------------------------------- SOFT0983| | 00037 0600 00 0 03163 10001 NYGRU STZ CALLO SOFT0985| 00040 0074 00 4 00211 10001 TSX LIKA,4 INVESTIGATE EQUALITY OF NEXT GROUP SOFT0986 00041 0 00000 0 03152 10001 PZE ASTOR GROUP SIZE SOFT0987| 00042 0 00000 0 03150 10001 PZE GFMN START OF FIRST GROUP SOFT0988| 00043 0 00000 0 03152 10001 PZE ASTOR DISTANCE TO COMPARISON GROUP SOFT0989| 0BINARY CARD ID. LIKD0004| 00044 0020 00 0 00065 10001 TRA LIKF TRA LIKF IF THE GROUPS WERE EQUAL SOFT0990 00045 0500 00 0 03155 10001 CA8 CLA AKOM CONTINUE HERE IF THE GROUPS WERE NOT ESOFT0991| 00046 0340 00 0 00347 10001 CAS =8 SOFT0992| 00047 0020 00 0 00137 10001 TRA EJDUP TRA EJDUP IF NO EQUALITY WAS FOUND OVESOFT0993| 00050 0020 00 0 00137 10001 TRA EJDUP SOFT0994| 00051 0400 00 0 00346 10001 ADD =1 SOFT0995 00052 0601 00 0 03155 10001 STO AKOM SOFT0996| 00053 0500 00 0 03150 10001 CLA GFMN SOFT0997| 00054 0402 00 0 03152 10001 SUB ASTOR SOFT0998| 00055 0601 00 0 03156 10001 STO NGFMN START-VALUE FOR NEW TESO-INVESTIGATIONSOFT0999| 00056 0074 00 4 00157 10001 TSX TESO,4 SOFT1000 00057 0 00000 0 03156 10001 PZE NGFMN SOFT1001| 00060 0020 00 0 00137 10001 TRA EJDUP TRA EJDUP IF 77-MARK WAS FOUND SOFT1002| 00061 0020 00 0 00137 10001 TRA EJDUP TRA EJDUP IF PARENTHESIS WAS FOUND SOFT1003| 00062 0400 00 0 03152 10001 ADD ASTOR SOFT1004| 00063 0601 00 0 03152 10001 STO ASTOR SOFT1005 00064 0020 00 0 00037 10001 TRA NYGRU SOFT1006| 1 LIKDP. 12/01/64 PAGE 81 | ASSEMBLED TEXT. | 0| * WHEN EQUAL GROUPS HAVE BEEN FOUND SOFT1008 * --------------------------------- SOFT1009| | 00065 0500 00 0 03154 10001 LIKF CLA ALIK ALIK=NUMBER OF EQUAL GROUPS, IS INCREASOFT1011| 00066 0400 00 0 00346 10001 ADD =1 SOFT1012| 0BINARY CARD ID. LIKD0005 00067 0601 00 0 03154 10001 STO ALIK SOFT1013| 00070 0131 00 0 00000 10000 XCA SOFT1014| 00071 0200 00 0 03152 10001 MPY ASTOR SOFT1015| 00072 4600 00 0 03157 10001 STQ APROD ALIK*ASTOR IS STORED IN APROD SOFT1016| 00073 4625 00 0 03163 10001 STL CALLO SOFT1017 00074 0074 00 4 00211 10001 TSX LIKA,4 IS THE NEXT GROUP EQUAL SOFT1018| 00075 0 00000 0 03152 10001 PZE ASTOR GROUP SIZE SOFT1019| 00076 0 00000 0 03150 10001 PZE GFMN SOFT1020| 00077 0 00000 0 03157 10001 PZE APROD SOFT1021| 00100 0020 00 0 00065 10001 TRA LIKF SOFT1022 | * INVESTIGATE IF DUPLICATING BY N( ) WILL SHORTEN THE FORMAT STATEMENT SOFT1024| * ----------------------------------------------------------------------SOFT1025| | 00101 0500 00 0 03154 10001 CLA ALIK CONDITION FOR TRA DUPA SOFT1027 00102 0340 00 0 00350 10001 CAS =2 ASTOR+3.GT.ALIK*ASTOR SOFT1028| 00103 0020 00 0 00117 10001 TRA DUPA SOFT1029| 00104 0020 00 0 01002 10011 TRA *+2 SOFT1030| 00105 0020 00 0 00112 10001 TRA EDUP SOFT1031| 00106 0500 00 0 03152 10001 CLA ASTOR SOFT1032 00107 0340 00 0 00351 10001 CAS =3 SOFT1033| 00110 0020 00 0 00117 10001 TRA DUPA SOFT1034| 00111 0020 00 0 00112 10001 TRA EDUP SOFT1035| 0BINARY CARD ID. LIKD0006| 00112 0500 00 0 03157 10001 EDUP CLA APROD SOFT1036 00113 0601 00 0 03152 10001 STO ASTOR SOFT1037| 00114 0500 00 0 00346 10001 CLA =1 SOFT1038| 00115 0601 00 0 03154 10001 STO ALIK SOFT1039| 00116 0020 00 0 00045 10001 TRA CA8 SOFT1040| 1 LIKDP. 12/01/64 PAGE 82 ASSEMBLED TEXT. | 0| * DUPLICATING BY N( ) SOFT1042| * -------------------- SOFT1043| 00117 0534 00 2 03151 10001 DUPA LXA NFMN,2 SOFT1045| 00120 0500 00 0 03154 10001 CLA ALIK SOFT1046| 00121 0074 00 4 00310 10001 TSX TAL,4 WRITE NUMBER OF DUPLICATIONS AND ( IN SOFT1047| 00122 0500 00 0 03152 10001 CLA ASTOR SOFT1048| 00123 0402 00 0 00346 10001 SUB =1 SOFT1049 00124 0074 00 4 00264 10001 TSX TRANSA,4 SOFT1050| 00125 4500 00 0 00352 10001 CAL =H) WRITE ), IN FMTNY SOFT1051| 00126 0602 00 2 00357 10001 SLW FMTNY-1,2 SOFT1052| 00127 4500 00 0 00353 10001 CAL =H, SOFT1053| 00130 0602 00 2 00360 10001 SLW FMTNY,2 SOFT1054 00131 1 77776 2 01001 10011 TXI *+1,2,-2 SOFT1055| 00132 0634 00 2 03151 10001 GMOD SXA NFMN,2 SOFT1056| 00133 0500 00 0 03150 10001 CLA GFMN MODIFY GFMN SOFT1057| 00134 0402 00 0 03157 10001 SUB APROD SOFT1058| 0BINARY CARD ID. LIKD0007 00135 0601 00 0 03150 10001 STO GFMN SOFT1059| 00136 0020 00 0 00021 10001 TRA NYSE SOFT1060| | * NO DUPLICATING BY N( ) SOFT1062| * ----------------------- SOFT1063 | 00137 0500 00 0 03153 10001 EJDUP CLA FSTOR SOFT1065| 00140 0534 00 2 03151 10001 NPAR LXA NFMN,2 SOFT1066| 00141 0601 00 0 03157 10001 STO APROD SOFT1067| 00142 0074 00 4 00264 10001 TSX TRANSA,4 TRANSFER FSTOR CHARACTERS FROM OLD TO SOFT1068 00143 0020 00 0 00132 10001 TRA GMOD SOFT1069| 00144 0402 00 0 00346 10001 N77 SUB =1 SOFT1070| 00145 0020 00 0 00140 10001 TRA NPAR SOFT1071| 1 LIKDP. 12/01/64 PAGE 83 | ASSEMBLED TEXT. 0| * PLACE NEW FORMAT IN FMT AND RETURN SOFT1073| * ---------------------------------- SOFT1074| | 00146 0500 00 0 00354 10001 SLUT CLA =1401 SOFT1076 00147 0402 00 0 00000 10011 SUB IDM SOFT1077| 0 03450 7 00004 10010 | 00150 0734 00 1 00000 10000 PAX ,1 SOFT1078| 00151 4500 00 1 03150 10001 SLUTL CAL FMTNY+1400,1 SOFT1079| 00152 0602 00 1 00000 10011 SLW FMT+1400,1 SOFT1080 0 00445 0 00004 10010 | 0 02570 7 00000 10011 | 00153 2 00001 1 00151 10001 TIX SLUTL,1,1 SOFT1081| 00154 0535 00 1 03151 10001 LAC NFMN,1 SOFT1082| 0BINARY CARD ID. LIKD0008 00155 0634 00 1 00000 10011 SXA FMTN,1 SOFT1083| 0 03445 7 00004 10010 | 00156 RETURN LIKDUP SOFT1084| 1 LIKDP. 12/01/64 PAGE 84 | ASSEMBLED TEXT. 0| * FIND NEXT 77-MARK, PARENTHESIS OR , AND DISTANCE TO THIS CHARACTER SOFT1086| * ------------------------------------------------------------------ SOFT1087| | 00157 0634 00 2 00207 10001 TESO SXA TUT,2 SOFT1089 00160 0500 60 4 00001 10000 CLA* 1,4 SOFT1090| 00161 0734 00 2 00000 10000 PAX ,2 SOFT1091| 00162 0601 00 0 03160 10001 STO SLASK START-INDEX IN SLASK SOFT1092| 00163 4500 00 2 04444 10011 TLOOP CAL FMT-1,2 SOFT1093| 00164 4340 00 0 00353 10001 LAS =H, SOFT1094 00165 0020 00 0 01002 10011 TRA *+2 SOFT1095| 00166 0020 00 0 00201 10001 TRA TKOM LEAVE LOOP FOR , SOFT1096| 00167 4340 00 0 00352 10001 LAS =H) SOFT1097| 00170 0020 00 0 01002 10011 TRA *+2 SOFT1098| 00171 0020 00 0 00202 10001 TRA TPAR LEAVE LOOP FOR ) SOFT1099 00172 4340 00 0 00355 10001 LAS =H( SOFT1100| 00173 0020 00 0 01002 10011 TRA *+2 SOFT1101| 00174 0020 00 0 00202 10001 TRA TPAR LEAVE LOOP FOR ( SOFT1102| 00175 4340 00 0 00345 10001 LAS =O776060606060 SOFT1103| 00176 1 77777 2 00163 10001 TXI TLOOP,2,-1 SOFT1104 0BINARY CARD ID. LIKD0009| 00177 0020 00 0 00203 10001 TRA TSJU LEAVE LOOP FOR 77-MARK SOFT1105| 00200 1 77777 2 00163 10001 TXI TLOOP,2,-1 SOFT1106| 00201 1 77776 4 00203 10001 TKOM TXI TSJU,4,-2 MODIFY RETURN ADRESS SOFT1107| 00202 1 77777 4 00203 10001 TPAR TXI TSJU,4,-1 MODIFY RETURN ADRESS SOFT1108 00203 0754 00 2 00000 10000 TSJU PXA ,2 CALCULATE INDEX DIFFERENCE SOFT1109| 00204 4760 00 0 00003 10000 SSM SOFT1110| 00205 0400 00 0 03160 10001 ADD SLASK SOFT1111| 00206 0400 00 0 00346 10001 ADD =1 SOFT1112| 00207 0774 00 2 00000 10000 TUT AXT **,2 SOFT1113 00210 0020 00 4 00002 10000 TRA 2,4 SOFT1114| 1 LIKDP. 12/01/64 PAGE 85 | ASSEMBLED TEXT. | 0| * IS THE NEXT GROUP OF SIZE ASTOR EQUAL TO THE PRECEDING GROUP SOFT1116 * ------------------------------------------------------------ SOFT1117| | 00211 0634 00 2 00244 10001 LIKA SXA LUT,2 SOFT1119| 00212 0500 60 4 00002 10000 CLA* 2,4 SOFT1120| 00213 0737 00 2 00000 10000 PAC ,2 SOFT1121 00214 0754 00 2 00000 10000 PXA ,2 SOFT1122| 00215 0400 00 0 00263 10001 ADD ADRFMT SOFT1123| 00216 0621 00 0 00226 10001 STA AJ COMPL(GFMN) + ADR(FMT-2) TO ADR(AJ) SOFT1124| 00217 0400 60 4 00003 10000 ADD* 3,4 SOFT1125| 00220 0621 00 0 00227 10001 STA BJ COMPL(GFMN) + ADR(FMT-2) + C(3,4)* TO SOFT1126 00221 0400 60 4 00001 10000 ADD* 1,4 SOFT1127| 0BINARY CARD ID. LIKD0010| 00222 0621 00 0 00234 10001 STA CJ ADR(BJ) + ASTOR TO ADR(CJ) SOFT1128| 00223 0500 60 4 00001 10000 CLA* 1,4 SOFT1129| 00224 0402 00 0 00346 10001 SUB =1 SOFT1130 00225 0737 00 2 00000 10000 PAC ,2 NUMBER OF COMPARISONS TO XR2 SOFT1131| 00226 4500 00 2 00000 10000 AJ CAL **,2 SOFT1132| 00227 4340 00 2 00000 10000 BJ LAS **,2 SOFT1133| 00230 0020 00 0 00260 10001 TRA NEJ GO TO NEJ IF NO EQUALITY SOFT1134| 00231 1 00001 2 01002 10011 TXI *+2,2,1 NEW LOOP FOR EQUALITY SOFT1135 00232 0020 00 0 00260 10001 TRA NEJ SOFT1136| 00233 3 00000 2 00226 10001 TXH AJ,2,0 SOFT1137| 00234 4500 00 0 00000 10000 CJ CAL ** SOFT1138| 00235 4340 00 0 00352 10001 LAS =H) SOFT1139| 00236 0020 00 0 01002 10011 TRA *+2 SOFT1140 00237 0020 00 0 00246 10001 TRA LIKP SOFT1141| 00240 4340 00 0 00353 10001 LAS =H, TRA NEJ IF NOT , AT END OF EQUILITY SOFT1142| 00241 0020 00 0 00260 10001 TRA NEJ SOFT1143| 00242 0020 00 0 01002 10011 TRA *+2 SOFT1144| 00243 0020 00 0 00260 10001 TRA NEJ SOFT1145 00244 0774 00 2 00000 10000 LUT AXT **,2 SOFT1146| 0BINARY CARD ID. LIKD0011| 00245 0020 00 4 00004 10000 TRA 4,4 RETURN SOFT1147| 00246 4520 00 0 03163 10001 LIKP NZT CALLO SOFT1148| 00247 0020 00 0 00261 10001 TRA NETTA TRA NETTA IF CALL FROM NYGRU SOFT1149 00250 0500 00 0 03154 10001 CLA ALIK IF PARENTHESIS AT END OF EQUILITY,MODISOFT1150| 00251 0400 00 0 00346 10001 ADD =1 SOFT1151| 00252 0601 00 0 03154 10001 STO ALIK SOFT1152| 00253 0131 00 0 00000 10000 XCA SOFT1153| 00254 0200 00 0 03152 10001 MPY ASTOR SOFT1154 00255 0131 00 0 00000 10000 XCA SOFT1155| 00256 0402 00 0 00346 10001 SUB =1 SOFT1156| 00257 0601 00 0 03157 10001 STO APROD SOFT1157| 00260 1 77777 4 00244 10001 NEJ TXI LUT,4,-1 MODIFY RETURN ADRESS SOFT1158| 00261 0600 00 0 03154 10001 NETTA STZ ALIK SOFT1159 00262 0020 00 0 00244 10001 TRA LUT SOFT1160| 00263 0 00000 0 04443 10011 ADRFMT PZE FMT-2 SOFT1161| 1 LIKDP. 12/01/64 PAGE 86 | ASSEMBLED TEXT. | 0 * TRANSPOSE C(AC) NUMBER OF CHARACTERS FROM OLD TO NEW FORMAT SOFT1163| * ----------------------------------------------------------- SOFT1164| | 00264 0634 00 1 00302 10001 TRANSA SXA AUT,1 SOFT1166| 00265 0634 00 4 00303 10001 SXA AUT+1,4 SOFT1167 00266 0534 00 1 03150 10001 LXA GFMN,1 NUMBER OF FIRST CHAR IN OLD FORMAT TO SOFT1168| 00267 0340 00 0 00356 10001 CAS =0 SOFT1169| 0BINARY CARD ID. LIKD0012| 00270 0340 00 0 00354 10001 CAS =1401 SOFT1170| 00271 0020 00 0 00305 10001 TRA FEL2 SOFT1171 00272 0020 00 0 00305 10001 TRA FEL2 SOFT1172| 00273 0734 00 4 00000 10000 PAX ,4 NUMBER OF TRANSFERS TO XR4 SOFT1173| 00274 4500 00 1 04444 10011 ALOOP CAL FMT-1,1 TRANSFER THE CHARACTERS TO NEW FORMAT SOFT1174| 00275 0602 00 2 00357 10001 SLW FMTNY-1,2 SOFT1175| 00276 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT1176 00277 1 77777 1 01001 10011 TXI *+1,1,-1 SOFT1177| 00300 1 77777 4 01001 10011 TXI *+1,4,-1 SOFT1178| 00301 3 00000 4 00274 10001 TXH ALOOP,4,0 SOFT1179| 00302 0774 00 1 00000 10000 AUT AXT **,1 SOFT1180| 00303 0774 00 4 00000 10000 AXT **,4 SOFT1181 00304 0020 00 4 00001 10000 TRA 1,4 SOFT1182| 00305 0500 00 0 00350 10001 FEL2 CLA =2 SOFT1183| 00306 0601 00 0 00000 10011 STO FEL SOFT1184| 0 03455 7 00004 10010 | 00307 0020 00 0 00302 10001 TRA AUT SOFT1185 1 LIKDP. 12/01/64 PAGE 87 | ASSEMBLED TEXT. | 0| * WRITE N( IN NEW FORMAT, N=C(AC)=NUMBER OF DUPLICATIONS SOFT1187| * ------------------------------------------------------ SOFT1188 | 00310 0131 00 0 00000 10000 TAL XCA SOFT1190| 00311 4754 00 0 00000 10000 ZAC SOFT1191| 0BINARY CARD ID. LIKD0013| 00312 0221 00 0 00357 10001 DVP =10 SOFT1192 00313 0601 00 0 03162 10001 STO S3 LAST FIGURE TO S3 SOFT1193| 00314 0500 00 0 00346 10001 CLA =1 SOFT1194| 00315 0040 00 0 00333 10001 TLQ ENS TRA ENS IF ONE-FIGURE DECIMAL NUMBER SOFT1195| 00316 4754 00 0 00000 10000 ZAC SOFT1196| 00317 0221 00 0 00357 10001 DVP =10 SOFT1197 00320 0601 00 0 03161 10001 STO S2 SOFT1198| 00321 0500 00 0 00346 10001 CLA =1 SOFT1199| 00322 0040 00 0 00327 10001 TLQ TVS TRA TVS IF TWO-FIGURE DECIMAL NUMBER SOFT1200| 00323 0131 00 0 00000 10000 XCA S1 TO AC SOFT1201| 00324 0767 00 0 00036 10000 ALS 30 SOFT1202 00325 0602 00 2 00357 10001 SLW FMTNY-1,2 FIRST FIGURE TO FMTNY SOFT1203| 00326 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT1204| 00327 4500 00 0 03161 10001 TVS CAL S2 SOFT1205| 00330 0767 00 0 00036 10000 ALS 30 SOFT1206| 00331 0602 00 2 00357 10001 SLW FMTNY-1,2 SECOND FIGURE TO FMTNY SOFT1207 00332 1 77777 2 01001 10011 TXI *+1,2,-1 SOFT1208| 00333 4500 00 0 03162 10001 ENS CAL S3 SOFT1209| 00334 0767 00 0 00036 10000 ALS 30 SOFT1210| 0BINARY CARD ID. LIKD0014| 00335 0602 00 2 00357 10001 SLW FMTNY-1,2 LAST FIGURE TO FMTNY SOFT1211 00336 4500 00 0 00355 10001 CAL =H( ( TO FMTNY SOFT1212| 00337 0602 00 2 00360 10001 SLW FMTNY,2 SOFT1213| 00340 1 77776 2 01001 10011 TXI *+1,2,-2 SOFT1214| 00341 0020 00 4 00001 10000 TRA 1,4 SOFT1215| 1 LIKDP. 12/01/64 PAGE 88 ASSEMBLED TEXT. | 0| * DATA AREA SOFT1217| * --------- SOFT1218| 00360 100000000360 00001 USE .STOR. SOFT1220| 00360 200000002570 00001 FMTNY BSS 1400,H SOFT1221| 03150 200000000001 00001 GFMN BSS 1,X SOFT1222| 03151 200000000001 00001 NFMN BSS 1,X SOFT1223| 03152 200000000001 00001 ASTOR BSS 1,X SOFT1224 03153 200000000001 00001 FSTOR BSS 1,X SOFT1225| 03154 200000000001 00001 ALIK BSS 1,X SOFT1226| 03155 200000000001 00001 AKOM BSS 1,X SOFT1227| 03156 200000000001 00001 NGFMN BSS 1,X SOFT1228| 03157 200000000001 00001 APROD BSS 1,X SOFT1229 03160 200000000001 00001 SLASK BSS 1,X SOFT1230| 03161 200000000001 00001 S2 BSS 1,X SOFT1231| 03162 200000000001 00001 S3 BSS 1,X SOFT1232| 03163 200000000001 00001 CALLO BSS 1,L SOFT1233| 03164 // CONTRL // SOFT1234 0BINARY CARD ID. LIKD0015| 03164 100000003164 00001 USE // SOFT1235| 03164 200000000240 00001 IN BSS 160,H CONTENTS OF INPUT DATA CARD SOFT1236| 03424 200000000205 00001 LINE BSS 133,H INPUT LINE TO BE TRANSLATED SOFT1237| 03631 200000002570 00001 FMT BSS 1400,H THE NEW FORMAT IS GENERATED HERE SOFT1238 06421 200000000204 00001 HT BSS 132,H TEMPORARY STORAGE FOR HOLLERITH TEXT SOFT1239| 06625 200000000001 00001 SN BSS 1,X NUMBER OF BLANK LINES SOFT1240| 06626 200000000001 00001 DM BSS 1,X NUMBER OF INPUT LINES TO BE DUPLICATEDSOFT1241| 06627 200000000001 00001 DN BSS 1,X NUMBER OF TIMES THAT THEY ARE TO BE DUSOFT1242| 06630 200000000001 00001 FN BSS 1,X FORMAT NR SOFT1243 06631 200000000001 00001 FMTN BSS 1,X NUMBER OF CHAR IN FMT SOFT1244| 06632 200000000001 00001 HTN BSS 1,X NUMBER OF CHAR IN HT SOFT1245| 06633 200000000001 00001 LINEN BSS 1,X NUMBER OF CHAR TRANSLATED IN LINE SOFT1246| 06634 200000000001 00001 IDM BSS 1,X NUMBER OF CHAR SHORTENED BY LIKDUP SOFT1247| 06635 200000000001 00001 SPACE BSS 1,L .TRUE. FOR SPACE CONTROL CARD SOFT1248 06636 200000000001 00001 EJECT BSS 1,L .TRUE. FOR EJECT CONTROL CARD SOFT1249| 06637 200000000001 00001 DUP BSS 1,L .TRUE. FOR DUP CONTROL CRD SOFT1250| 06640 200000000001 00001 END BSS 1,L .TRUE. FOR END CONTROL CARD SOFT1251| 06641 200000000001 00001 FEL BSS 1,X ERROR NO SOFT1252| 06642 200000000001 00001 CONT BSS 1,L .TRUE. FOR CONTINUATION SOFT1253 0BINARY CARD ID. LIKD0016| 06643 200000000001 00001 STYR BSS 1,L .TRUE. FOR CONTROL CARD SOFT1254| 06644 200000000001 00001 TEST BSS 1,L .TRUE. FOR TESTEND CONTROL CARD SOFT1255| 06645 200000000001 00001 NWORDS BSS 1,X NUMBER OF STORAGE WORDS TRANSFERRED BYSOFT1256| 00342 100000000342 00001 USE SOFT1257 00342 000000000000 10000 *LDIR| 00343 433142244733 10000 | 00344 000000100000 10000 *LORG| 00345 776060606060 10000 | 00346 000000000001 10000 00347 000000000010 10000 | 00350 000000000002 10000 | 00351 000000000003 10000 | 00352 346060606060 10000 | 00353 736060606060 10000 1 LIKDP. 12/01/64 PAGE 89 | ASSEMBLED TEXT. | 0 00354 000000002571 10000 | 00355 746060606060 10000 | 00356 000000000000 10000 00357 000000000012 10000 | 00000 01111 END SOFT1258| 1 LIKDP. 12/01/64 PAGE 90 | CONTROL DICTIONARY | 0 $CDICT LIKDP. LIKD0017 | 0BINARY CARD ID. LIKD0018| 006646000000 PREFACE START=0,LENGTH=3494,TYPE=7090,CMPLX=5| 000000000005 | 433142244733 LIKDP. DECK 006646000000 | 433142246447 LIKDUP REAL SECT. 2,LOC=0,LENGTH=0| 000000000000 | 433142246447 LIKDUP REAL SECT. 3,LOC=0,LENGTH=0| 000000000000 616160606060 // REAL SECT. 4,LOC=3164,LENGTH=1842| 003462003164 | 627062434623 SYSLOC VIRTUAL SECT. 5| 200000000000 | - $DDICT LIKDP. LIKD0019 | - $DKEND LIKDP. LIKD0027| | -NO MESSAGES FOR THIS ASSEMBLY | 1 LIKDP. 12/01/64 PAGE 91 SYMBOL REFERENCE DATA | 0| REFERENCES TO DEFINED SYMBOLS.| 0 CLASS SYMBOL VALUE REFERENCES| ADRFMT 00263 215| AJ 00226 216,233| AKOM 03155 36,45,52| ALIK 03154 35,65,67,101,115,120,250,252,261| ALOOP 00274 301 APROD 03157 72,77,112,134,141,257| ASTOR 03152 32,41,43,54,62,63,71,75,106,113,122,254| AUT 00302 264,265,307| BJ 00227 220| CA8 00045 116 CALLO 03163 37,73,246| CJ 00234 222| CONT 06642 | DM 06626 | DN 06627 DUPA 00117 103,110| DUP 06637 | EDUP 00112 105,111| EJDUP 00137 47,50,60,61| EJECT 06636 END 06640 | ENS 00333 315| FEL2 00305 271,272| FEL 06641 306| FMTN 06631 16,155 FMTNY 00360 126,130,151,275,325,331,335,337| FMT 03631 20,22,152,163,263,274| FN 06630 | FSTOR 03153 33,137| GFMN 03150 14,21,27,42,53,76,133,135,266 GMOD 00132 143| HTN 06632 | HT 06421 | IDM 06634 13,147| IN 03164 ..0001 00003 7,10,11| ..0002 00004 | ..0003 00005 0| LCTR .STOR. | LIKA 00211 40,74 LIKDUP 00000 0,0,156| LIKF 00065 44,100| LIKP 00246 237| LINEN 06633 | LINE 03424 LUT 00244 211,260,262| N77 00144 30| NEJ 00260 230,232,241,243| NETTA 00261 247| NFMN 03151 15,117,132,140,154 NGFMN 03156 55,57| 1 LIKDP. 12/01/64 PAGE 92 | SYMBOL REFERENCE DATA | 0 NPAR 00140 31,145| NWORDS 06645 NYGRU 00037 64| NYSE 00021 136| LCTR BLCTR | QUAL UNQS | LCTR // S2 03161 320,327| S3 03162 313,333| SLASK 03160 162,205| SLUTL 00151 153| SLUT 00146 25 SN 06625 | SPACE 06635 | STYR 06643 | TAL 00310 121| TESO 00157 26,56 TEST 06644 | TKOM 00201 166| TLOOP 00163 176,200| TPAR 00202 171,174| TRANSA 00264 124,142 TSJU 00203 177,201,202| TUT 00207 157| TVS 00327 322| -REFERENCES TO VIRTUAL SYMBOLS.| SYSLOC 5 5 1 12/01/64 PAGE 93 | | 0$IBFTC PUNO. FULIST,DD SOFT1259 1 12/01/64 PAGE 94 | PUNO. - EFN SOURCE STATEMENT - IFN(S) - | 0| SUBROUTINE PUNSET(FMT,FN,IR) SOFT1260 | DIMENSION FMT(1400) SOFT1261 READ(5,120) NTAPE,CHAR SOFT1262 1 | 120 FORMAT(I3,A1) SOFT1263 | IF(NTAPE) 31,32,33 SOFT1264 | 31 ASSIGN 1 TO KJUMP SOFT1265 | ASSIGN 11 TO LJUMP SOFT1266 NTAPE=-NTAPE SOFT1267 | RETURN SOFT1268 | 32 ASSIGN 2 TO KJUMP SOFT1269 | ASSIGN 12 TO LJUMP SOFT1270 | RETURN SOFT1271 33 ASSIGN 3 TO KJUMP SOFT1272 | ASSIGN 13 TO LJUMP SOFT1273 | RETURN SOFT1274 | ENTRY PUNOUT SOFT1275 | GO TO KJUMP,(1,2,3) SOFT1276 1 WRITE(NTAPE,101) CHAR,FN,(FMT(I),I=8,66),FN SOFT1277 14 | 101 FORMAT(A1,I5,8H FORMAT(,59A1,3H FM,I5) SOFT1278 | GO TO 4 SOFT1279 | 2 PUNCH 102, FN,(FMT(I),I=8,66),FN SOFT1280 22 | 102 FORMAT(I5,8H FORMAT(,59A1,3H FM,I5) SOFT1281 GO TO 4 SOFT1282 | 3 WRITE(NTAPE,102) FN,(FMT(I),I=8,66),FN SOFT1283 30 | 4 IF(IR.EQ.1) GO TO 20 SOFT1284 | DO 5 IV=2,IR SOFT1285 | IW=MOD(IV-1,9)+1 SOFT1286 IB=66*IV SOFT1287 | IA=IB-65 SOFT1288 | GO TO LJUMP,(11,12,13) SOFT1289 | 11 WRITE(NTAPE,111) CHAR,IW,(FMT(I),I=IA,IB),FN SOFT1290 47 | 111 FORMAT(A1,5X,I1,66A1,3H FM,I5) SOFT1291 GO TO 5 SOFT1292 | 12 PUNCH 112,IW,(FMT(I),I=IA,IB),FN SOFT1293 53 | 112 FORMAT(5X,I1,66A1,3H FM,I5) SOFT1294 | GO TO 5 SOFT1295 | 13 WRITE(NTAPE,112) IW,(FMT(I),I=IA,IB),FN SOFT1296 59 5 CONTINUE SOFT1297 | 20 RETURN SOFT1298 | END SOFT1299 | 1 12/01/64 PAGE 95 | PUNO. STORAGE MAP 0 SUBROUTINE PUNSET | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NTAPE 00001 I CHAR 00002 R KJUMP 00003 I | LJUMP 00004 I I 00005 I IV 00006 I IW 00007 I IB 00010 I IA 00011 I | - ENTRY POINTS | 0 PUNSET SECTION 2 PUNOUT SECTION 3 | - SUBROUTINES CALLED | 0 .FRDD. SECTION 4 .FVIO. SECTION 5 .FWRD. SECTION 6 .FPUN. SECTION 7 .UN05. SECTION 8 .FRTN. SECTION 9 | .FCNV. SECTION 10 .FFIL. SECTION 11 SYSLOC SECTION 12 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 120 FORMAT 00024 31 4A 00066 32 7A 00077 33 9A 00106 1 14A 00116 11 47A 00257 | 2 22A 00151 12 53A 00315 3 30A 00174 | 13 59A 00343 101 FORMAT 00026 4 37A 00224 | 102 FORMAT 00034 20 68A 00400 5 65A 00376 | 111 FORMAT 00041 112 FORMAT 00045 1 12/01/64 PAGE 96 | PUNO. ASSEMBLY LISTING | 0| 0$IBLDR PUNO. 12/01/64 PUNO0000 | 0$TEXT PUNO. 12/01/64 PUNO0001 00000 002000002000 10011 TRA PUNSET | 00012 100000000012 00001 ORG 10 | 00012 000000000001 10000 C.0 OCT 000000000001 | 00013 000000000000 10000 C.1 OCT 000000000000 | 00014 000000000000 10000 C.2 OCT 000000000000 00015 000000000001 10000 C.3 OCT 000000000001 | 00016 000000000011 10000 C.4 OCT 000000000011 | 00017 000000000102 10000 C.5 OCT 000000000102 | 00020 000000000101 10000 C.6 OCT 000000000101 | 00021 000000000000 10000 RD. OCT 000000000000 00022 000000000000 10000 OCT 000000000000 | 00023 200000000001 00001 N. BSS 1 | 00024 743103732101 10000 120. BCI 1,(I3,A1 | 00025 346060606060 10000 BCI 1,) | 00026 742101733105 10000 101. BCI 1,(A1,I5 00027 731030602646 10000 BCI 1,,8H FO | 00030 514421637473 10000 BCI 1,RMAT(, | 00031 051121017303 10000 BCI 1,59A1,3 | 00032 306026447331 10000 BCI 1,H FM,I | 00033 053460606060 10000 BCI 1,5) 00034 743105731030 10000 102. BCI 1,(I5,8H | 00035 602646514421 10000 BCI 1, FORMA | 00036 637473051121 10000 BCI 1,T(,59A | 00037 017303306026 10000 BCI 1,1,3H F | 00040 447331053460 10000 BCI 1,M,I5) 00041 742101730567 10000 111. BCI 1,(A1,5X | 00042 733101730606 10000 BCI 1,,I1,66 | 00043 210173033060 10000 BCI 1,A1,3H | 00044 264473310534 10000 BCI 1,FM,I5) | 00045 740567733101 10000 112. BCI 1,(5X,I1 00046 730606210173 10000 BCI 1,,66A1, | 00047 033060264473 10000 BCI 1,3H FM, | 00050 310534606060 10000 BCI 1,I5) | 00051 007400404000 10011 1A TSX .FRDD.,4 | 00052 100002000056 10001 TXI *+4,,2 00053 000401000001 10100 PZE 1,,LK.DR | 00054 000000010000 10011 PZE .UN05. | 00055 000000000024 10001 PZE 120. | 00056 007400412000 10011 TSX .FCNV.,4 | 00057 060100000001 10001 STO NTAPE 00060 007400412000 10011 2A TSX .FCNV.,4 | 00061 060100000002 10001 STO CHAR | 00062 007400411000 10011 TSX .FRTN.,4 | 00063 050000000001 10001 CLA NTAPE | 00064 010000000077 10001 3A TZE 7A 00065 012000000106 10001 TPL 9A | 00066 077400400116 10001 4A AXT 14A,4 | 00067 075400400000 10000 PXA 0,4 | 00070 060100000003 10001 STO KJUMP | 00071 077400400257 10001 5A AXT 47A,4 00072 075400400000 10000 PXA 0,4 | 1 12/01/64 PAGE 97 | PUNO. ASSEMBLY LISTING | 0 00073 060100000004 10001 STO LJUMP | 00074 050200000001 10001 CLS NTAPE 00075 060100000001 10001 STO NTAPE | 00076 002000000404 10001 6A TRA .SAVE+1 | 00077 077400400151 10001 7A AXT 22A,4 | 00100 075400400000 10000 PXA 0,4 | 00101 060100000003 10001 STO KJUMP 00102 077400400315 10001 8A AXT 53A,4 | 00103 075400400000 10000 PXA 0,4 | 00104 060100000004 10001 STO LJUMP | 00105 002000000404 10001 TRA .SAVE+1 | 00106 077400400174 10001 9A AXT 30A,4 00107 075400400000 10000 PXA 0,4 | 00110 060100000003 10001 STO KJUMP | 00111 077400400343 10001 10A AXT 59A,4 | 00112 075400400000 10000 PXA 0,4 | 00113 060100000004 10001 STO LJUMP 00114 002000000404 10001 TRA .SAVE+1 | 00115 11A NULL | 00115 002060000003 10001 12A TRA* KJUMP | 00116 13A NULL | 00116 007400405000 10011 14A TSX .FVIO.,4 00117 100002000123 10001 TXI *+4,,2 | 00120 000401000016 10100 PZE 14,,LK.DR | 00121 000000000001 10001 PZE NTAPE | 00122 000000000021 10001 PZE RD. | 00123 007400406000 10011 TSX .FWRD.,4 00124 100002000130 10001 TXI *+4,,2 | 00125 000401000016 10100 PZE 14,,LK.DR | 00126 000000000021 10001 PZE RD. | 00127 000000000026 10001 PZE 101. | 00130 050000000002 10001 CLA CHAR 00131 007400412000 10011 TSX .FCNV.,4 | 00132 050000000000 10000 90J CLA ** | 00133 007400412000 10011 TSX .FCNV.,4 | 00134 15A NULL | 00134 16A NULL 00134 477400100010 10000 17A AXC 8,1 | 00135 060000000005 10001 STZ I | 00136 063400100137 10001 SXA *+1,1 | 00137 477400400000 10000 AXC **,4 | 00140 063400400005 10001 SXA I,4 00141 050000100000 10000 18A CLA **,1 | 00142 007400412000 10011 TSX .FCNV.,4 | 00143 177777100144 10001 19A TXI *+1,1,-1 | 00144 377675100136 10001 TXH 17A+2,1,-67 | 00145 050000000000 10000 20A CLA ** 00146 007400412000 10011 TSX .FCNV.,4 | 00147 007400413000 10011 TSX .FFIL.,4 | 00150 002000000224 10001 21A TRA 37A | 00151 007400407000 10011 22A TSX .FPUN.,4 | 00152 100001000155 10001 TXI *+3,,1 00153 000401000026 10100 PZE 22,,LK.DR | 00154 000000000034 10001 PZE 102. | 00155 050000000000 10000 109J CLA ** | 00156 007400412000 10011 TSX .FCNV.,4 | 1 12/01/64 PAGE 98 PUNO. ASSEMBLY LISTING | 0 00157 23A NULL | 00157 24A NULL | 00157 477400100010 10000 25A AXC 8,1 | 00160 060000000005 10001 STZ I 00161 063400100162 10001 SXA *+1,1 | 00162 477400400000 10000 AXC **,4 | 00163 063400400005 10001 SXA I,4 | 00164 050000100000 10000 26A CLA **,1 | 00165 007400412000 10011 TSX .FCNV.,4 00166 177777100167 10001 27A TXI *+1,1,-1 | 00167 377675100161 10001 TXH 25A+2,1,-67 | 00170 050000000000 10000 28A CLA ** | 00171 007400412000 10011 TSX .FCNV.,4 | 00172 007400413000 10011 TSX .FFIL.,4 00173 002000000224 10001 29A TRA 37A | 00174 007400405000 10011 30A TSX .FVIO.,4 | 00175 100002000201 10001 TXI *+4,,2 | 00176 000401000036 10100 PZE 30,,LK.DR | 00177 000000000001 10001 PZE NTAPE 00200 000000000021 10001 PZE RD. | 00201 007400406000 10011 TSX .FWRD.,4 | 00202 100002000206 10001 TXI *+4,,2 | 00203 000401000036 10100 PZE 30,,LK.DR | 00204 000000000021 10001 PZE RD. 00205 000000000034 10001 PZE 102. | 00206 050000000000 10000 134J CLA ** | 00207 007400412000 10011 TSX .FCNV.,4 | 00210 31A NULL | 00210 32A NULL 00210 477400100010 10000 33A AXC 8,1 | 00211 060000000005 10001 STZ I | 00212 063400100213 10001 SXA *+1,1 | 00213 477400400000 10000 AXC **,4 | 00214 063400400005 10001 SXA I,4 00215 050000100000 10000 34A CLA **,1 | 00216 007400412000 10011 TSX .FCNV.,4 | 00217 177777100220 10001 35A TXI *+1,1,-1 | 00220 377675100212 10001 TXH 33A+2,1,-67 | 00221 050000000000 10000 36A CLA ** 00222 007400412000 10011 TSX .FCNV.,4 | 00223 007400413000 10011 TSX .FFIL.,4 | 00224 050000000000 10000 37A CLA ** | 00225 040200000015 10001 SUB C.3 | 00226 410000000230 10001 TNZ 39A 00227 002000000400 10001 38A TRA 68A | 00230 39A NULL | 00230 40A NULL | 00230 053500400000 10000 41A LAC **,4 | 00231 177777400232 10001 TXI *+1,4,-1 00232 463400400377 10001 SXD 66A+1,4 | 00233 477400100002 10000 42A AXC 2,1 | 00234 060000000006 10001 STZ IV | 00235 063400100236 10001 SXA *+1,1 | 00236 477400400000 10000 AXC **,4 00237 063400400006 10001 SXA IV,4 | 00240 050000000006 10001 CLA IV | 1 12/01/64 PAGE 99 | PUNO. ASSEMBLY LISTING | 0 00241 040200000015 10001 SUB C.3 00242 060100000023 10001 STO N. | 00243 050000000023 10001 CLA N. | 00244 076500000043 10000 LRS 35 | 00245 022100000016 10001 DVP C.4 | 00246 040000000015 10001 ADD C.3 00247 060100000007 10001 STO IW | 00250 056000000006 10001 43A LDQ IV | 00251 020000000017 10001 MPY C.5 | 00252 460000000010 10001 STQ IB | 00253 050000000010 10001 44A CLA IB 00254 040200000020 10001 SUB C.6 | 00255 060100000011 10001 STO IA | 00256 002060000004 10001 45A TRA* LJUMP | 00257 46A NULL | 00257 007400405000 10011 47A TSX .FVIO.,4 00260 100002000264 10001 TXI *+4,,2 | 00261 000401000057 10100 PZE 47,,LK.DR | 00262 000000000001 10001 PZE NTAPE | 00263 000000000021 10001 PZE RD. | 00264 007400406000 10011 TSX .FWRD.,4 00265 100002000271 10001 TXI *+4,,2 | 00266 000401000057 10100 PZE 47,,LK.DR | 00267 000000000021 10001 PZE RD. | 00270 000000000041 10001 PZE 111. | 00271 050000000002 10001 CLA CHAR 00272 007400412000 10011 TSX .FCNV.,4 | 00273 050000000007 10001 CLA IW | 00274 007400412000 10011 TSX .FCNV.,4 | 00275 053500400010 10001 48A LAC IB,4 | 00276 177777400277 10001 TXI *+1,4,-1 00277 463400400310 10001 SXD 51A+1,4 | 00300 053500200011 10001 49A LAC IA,2 | 00301 060000000005 10001 STZ I | 00302 063400200303 10001 SXA *+1,2 | 00303 477400400000 10000 AXC **,4 00304 063400400005 10001 SXA I,4 | 00305 050000200000 10000 50A CLA **,2 | 00306 007400412000 10011 TSX .FCNV.,4 | 00307 177777200310 10001 51A TXI *+1,2,-1 | 00310 300000200302 10001 TXH 49A+2,2,** 00311 050000000000 10000 201J CLA ** | 00312 007400412000 10011 TSX .FCNV.,4 | 00313 007400413000 10011 TSX .FFIL.,4 | 00314 002000000376 10001 52A TRA 65A | 00315 007400407000 10011 53A TSX .FPUN.,4 00316 100001000321 10001 TXI *+3,,1 | 00317 000401000065 10100 PZE 53,,LK.DR | 00320 000000000045 10001 PZE 112. | 00321 050000000007 10001 CLA IW | 00322 007400412000 10011 TSX .FCNV.,4 00323 053500400010 10001 54A LAC IB,4 | 00324 177777400325 10001 TXI *+1,4,-1 | 00325 463400400336 10001 SXD 57A+1,4 | 00326 053500200011 10001 55A LAC IA,2 | 00327 060000000005 10001 STZ I 1 12/01/64 PAGE 100 | PUNO. ASSEMBLY LISTING | 0 00330 063400200331 10001 SXA *+1,2 | 00331 477400400000 10000 AXC **,4 | 00332 063400400005 10001 SXA I,4 00333 050000200000 10000 56A CLA **,2 | 00334 007400412000 10011 TSX .FCNV.,4 | 00335 177777200336 10001 57A TXI *+1,2,-1 | 00336 300000200330 10001 TXH 55A+2,2,** | 00337 050000000000 10000 223J CLA ** 00340 007400412000 10011 TSX .FCNV.,4 | 00341 007400413000 10011 TSX .FFIL.,4 | 00342 002000000376 10001 58A TRA 65A | 00343 007400405000 10011 59A TSX .FVIO.,4 | 00344 100002000350 10001 TXI *+4,,2 00345 000401000073 10100 PZE 59,,LK.DR | 00346 000000000001 10001 PZE NTAPE | 00347 000000000021 10001 PZE RD. | 00350 007400406000 10011 TSX .FWRD.,4 | 00351 100002000355 10001 TXI *+4,,2 00352 000401000073 10100 PZE 59,,LK.DR | 00353 000000000021 10001 PZE RD. | 00354 000000000045 10001 PZE 112. | 00355 050000000007 10001 CLA IW | 00356 007400412000 10011 TSX .FCNV.,4 00357 60A NULL | 00357 053500400010 10001 61A LAC IB,4 | 00360 177777400361 10001 TXI *+1,4,-1 | 00361 463400400372 10001 SXD 64A+1,4 | 00362 053500200011 10001 62A LAC IA,2 00363 060000000005 10001 STZ I | 00364 063400200365 10001 SXA *+1,2 | 00365 477400400000 10000 AXC **,4 | 00366 063400400005 10001 SXA I,4 | 00367 050000200000 10000 63A CLA **,2 00370 007400412000 10011 TSX .FCNV.,4 | 00371 177777200372 10001 64A TXI *+1,2,-1 | 00372 300000200364 10001 TXH 62A+2,2,** | 00373 050000000000 10000 251J CLA ** | 00374 007400412000 10011 TSX .FCNV.,4 00375 007400413000 10011 TSX .FFIL.,4 | 00376 65A NULL | 00376 177777100377 10001 66A TXI *+1,1,-1 | 00377 300000100235 10001 TXH 42A+2,1,** | 00400 67A NULL 00400 002000000404 10001 68A TRA .SAVE+1 | 00401 000000000000 10000 LK.DR PZE ** | 00402 476445463360 10000 BCI 1,PUNO. | 00403 100000000412 10001 .SAVE TXI *+7,,** | 00404 077400200000 10000 AXT **,2 00405 077400100000 10000 AXT **,1 | 00406 077400400000 10000 AXT **,4 | 00407 044100000411 10001 LDI *+2 | 00410 002000400001 10000 TRA 1,4 | 00411 000000000000 10000 PZE ** 00412 060400000411 10001 STI *-1 | 00413 063400414000 10011 SXA SYSLOC,4 | 00414 063400400401 10001 SXA LK.DR,4 | 1 12/01/64 PAGE 101 | PUNO. ASSEMBLY LISTING 0 00415 063400400406 10001 SXA *-7,4 | 00416 063400200404 10001 SXA *-10,2 | 00417 002000100001 10000 TRA 1,1 | 00420 063400100405 10001 PUNSET SXA .SAVE+2,1 | 00421 007400100403 10001 TSX .SAVE,1 00422 050000400003 10000 CLA 3,4 | 00423 073400100000 10000 PAX 0,1 | 00424 177777100425 10001 TXI *+1,1,-1 | 00425 063400100141 10001 SXA 18A,1 | 00426 063400100164 10001 SXA 26A,1 00427 063400100215 10001 SXA 34A,1 | 00430 063400100305 10001 SXA 50A,1 | 00431 063400100333 10001 SXA 56A,1 | 00432 063400100367 10001 SXA 63A,1 | 00433 050000400004 10000 CLA 4,4 00434 062100000132 10001 STA 90J | 00435 062100000145 10001 STA 20A | 00436 062100000155 10001 STA 109J | 00437 062100000170 10001 STA 28A | 00440 062100000206 10001 STA 134J 00441 062100000221 10001 STA 36A | 00442 062100000311 10001 STA 201J | 00443 062100000337 10001 STA 223J | 00444 062100000373 10001 STA 251J | 00445 050000400005 10000 CLA 5,4 00446 062100000224 10001 STA 37A | 00447 062100000230 10001 STA 41A | 00450 002000000051 10001 TRA 1A | 00451 063400100405 10001 PUNOUT SXA .SAVE+2,1 | 00452 007400100403 10001 TSX .SAVE,1 00453 002000000115 10001 TRA 11A | 1 12/01/64 PAGE 102 | PUNO. ASSEMBLY LISTING | 0| 0$CDICT PUNO. 12/01/64 PUNO0018 000454000420 PREFACE START=272,LENGTH=300,TYPE=7090,CMPLX=5 | 000000000005 | 476445463360 PUNO. DECK LOC=0,LENGTH=300 | 000454000000 | 476445622563 PUNSET REAL LOC=272,LENGTH=0 000000000420 | 476445466463 PUNOUT REAL LOC=297,LENGTH=0 | 000000000451 | 332651242433 .FRDD. VIRTUAL SECT. 4,CALL | 200000100000 332665314633 .FVIO. VIRTUAL SECT. 5,CALL | 200000100000 | 332666512433 .FWRD. VIRTUAL SECT. 6,CALL | 200000100000 | 332647644533 .FPUN. VIRTUAL SECT. 7,CALL 200000100000 | 336445000533 .UN05. VIRTUAL SECT. 8 | 200000000000 | 332651634533 .FRTN. VIRTUAL SECT. 9 | 200000000000 332623456533 .FCNV. VIRTUAL SECT. 10 | 200000000000 | 332626314333 .FFIL. VIRTUAL SECT. 11 | 200000000000 | 627062434623 SYSLOC VIRTUAL SECT. 12 200000000000 | 0$DDICT PUNO. 12/01/64 PUNO0021 | 0$DKEND PUNO. 12/01/64 PUNO0031 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00454. 1 12/01/64 PAGE 103 | | 0$DATA 1 IBLDR 12/01/64 PAGE 104 | * CROSS REFERENCE LOGIC * | 0 | 0DECK MAIN 03152 SIZE = 00716| REAL // DELETED REFERS TO // AT 74316 REAL ...... 04052| VIRT PUNSET REFERS TO PUNO. AT 11520| VIRT .FRDD. REFERS TO FRDD AT 20467| VIRT .FWRD. REFERS TO FWRD AT 20443| VIRT DUPS REFERS TO DUP. AT 04546 VIRT STYRF REFERS TO STYRF. AT 05513| VIRT FELT REFERS TO FELT. AT 04407| VIRT CONTF REFERS TO CONTF. AT 04630| VIRT TRANS REFERS TO TRANS. AT 04744| VIRT SPACEF REFERS TO SPACE. AT 04424 VIRT DUPN REFERS TO DUP. AT 04523| VIRT LIKDUP REFERS TO LIKDP. AT 05714| VIRT PUNOUT REFERS TO PUNO. AT 11551| VIRT TESTA REFERS TO TESTA. AT 04647| VIRT .UN05. REFERS TO UN05 AT 20550 VIRT .FRTN. REFERS TO FIOH AT 20255| VIRT .FCNV. REFERS TO FCNV AT 14053| VIRT .UN06. REFERS TO UN06 AT 20551| VIRT .FFIL. REFERS TO FIOH AT 20227| VIRT SYSLOC REFERS TO .JBCON AT 02652 0DECK FELT. 04070 SIZE = 00334| REAL // DELETED REFERS TO // AT 74316| REAL FELT 04407 REF'D BY - MAIN | VIRT OVERFL REFERS TO FOVERF AT 20702| VIRT DVCHK REFERS TO FDVCHK AT 20663 VIRT .FWRD. REFERS TO FWRD AT 20443| VIRT DUPS REFERS TO DUP. AT 04546| VIRT .UN06. REFERS TO UN06 AT 20551| VIRT .FFIL. REFERS TO FIOH AT 20227| VIRT .FCNV. REFERS TO FCNV AT 14053 VIRT SYSLOC REFERS TO .JBCON AT 02652| 0DECK SPACE. 04424 SIZE = 00077| REAL SPACEF 04424 REF'D BY - MAIN , SPACE.| REAL SPACEF DELETED REFERS TO SPACE. AT 04424| REAL // DELETED REFERS TO // AT 74316 VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT ANTFM REFERS TO TRANS. AT 05323| 0DECK DUP. 04523 SIZE = 00105| REAL DUPN 04523 REF'D BY - MAIN , DUP. | REAL DUPN DELETED REFERS TO DUP. AT 04523 REAL DUPS 04546 REF'D BY - FELT. , MAIN , DUP. | REAL DUPS DELETED REFERS TO DUP. AT 04546| REAL // DELETED REFERS TO // AT 74316| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT ANTFM REFERS TO TRANS. AT 05323 0DECK CONTF. 04630 SIZE = 00017| REAL CONTF 04630 REF'D BY - MAIN | REAL // DELETED REFERS TO // AT 74316| 1 IBLDR 12/01/64 PAGE 105 | * CROSS REFERENCE LOGIC * 0DECK TESTA. 04647 SIZE = 00075| REAL TESTA 04647 REF'D BY - MAIN , TESTA.| REAL TESTA DELETED REFERS TO TESTA. AT 04647| REAL // DELETED REFERS TO // AT 74316| VIRT .FWRD. REFERS TO FWRD AT 20443 VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .UN06. REFERS TO UN06 AT 20551| VIRT .FFIL. REFERS TO FIOH AT 20227| VIRT .FCNV. REFERS TO FCNV AT 14053| 0DECK TRANS. 04744 SIZE = 00547 REAL TRANS 04744 REF'D BY - MAIN , TRANS.| REAL TRANS DELETED REFERS TO TRANS. AT 04744| REAL ANTFM 05323 REF'D BY - DUP. , SPACE.| REAL // DELETED REFERS TO // AT 74316| VIRT SYSLOC REFERS TO .JBCON AT 02652 0DECK STYRF. 05513 SIZE = 00201| REAL STYRF 05513 REF'D BY - MAIN , STYRF.| REAL STYRF DELETED REFERS TO STYRF. AT 05513| REAL // DELETED REFERS TO // AT 74316| VIRT SYSLOC REFERS TO .JBCON AT 02652 0DECK LIKDP. 05714 SIZE = 03164| REAL LIKDUP 05714 REF'D BY - MAIN , LIKDP.| REAL LIKDUP DELETED REFERS TO LIKDP. AT 05714| REAL // DELETED REFERS TO // AT 74316| VIRT SYSLOC REFERS TO .JBCON AT 02652 0DECK PUNO. 11100 SIZE = 00454| REAL PUNSET 11520 REF'D BY - MAIN | REAL PUNOUT 11551 REF'D BY - MAIN | VIRT .FRDD. REFERS TO FRDD AT 20467| VIRT .FVIO. REFERS TO FVIO AT 20557 VIRT .FWRD. REFERS TO FWRD AT 20443| VIRT .FPUN. REFERS TO FPUN AT 20515| VIRT .UN05. REFERS TO UN05 AT 20550| VIRT .FRTN. REFERS TO FIOH AT 20255| VIRT .FCNV. REFERS TO FCNV AT 14053 VIRT .FFIL. REFERS TO FIOH AT 20227| VIRT SYSLOC REFERS TO .JBCON AT 02652| 0SUBR .IBSYS 00000 SIZE = 00134| REAL SYSLB1 00000| REAL SYSLB2 00001 REAL SYSLB3 00002| REAL SYSLB4 00003| REAL SYSCRD 00004| REAL SYSPRT 00005| REAL SYSPCH 00006 REAL SYSOU1 00007 REF'D BY - FIOS , FXEM , .FPTRP, .LXSL , .LXCON| REAL SYSOU2 00010| REAL SYSIN1 00011| REAL SYSIN2 00012| REAL SYSPP1 00013 REAL SYSPP2 00014| 1 IBLDR 12/01/64 PAGE 106 | * CROSS REFERENCE LOGIC * | 0 REAL SYSCK1 00015| REAL SYSCK2 00016 REAL SYSUT1 00017| REAL SYSUT2 00020| REAL SYSUT3 00021| REAL SYSUT4 00022| REAL SYSUT5 00023 REAL SYSUT6 00024| REAL SYSUT7 00025| REAL SYSUT8 00026| REAL SYSUT9 00027| REAL SYSTRA 00100 REAL SYSDAT 00101| REAL SYSCUR 00102| REAL SYSRET 00103 REF'D BY - .LXCON| REAL SYSKEY 00104| REAL SYSSWS 00105 REAL SYSPOS 00106| REAL SYSUNI 00107 REF'D BY - .IOCS , FIOS , .LXSL , .LXCON| REAL SYSUBC 00110 REF'D BY - .IOCS | REAL SYSUAV 00111 REF'D BY - .LXCON| REAL SYSUCW 00112 REF'D BY - .IOCS REAL SYSRPT 00113| REAL SYSCEM 00114| REAL SYSDMP 00115 REF'D BY - .LXCON| REAL SYSIOX 00116| REAL SYSIDR 00117 REF'D BY - .LXCON REAL SYSCOR 00120| REAL SYSLDR 00121| REAL SYSACC 00122| REAL SYSPID 00123| REAL SYSCYD 00124 REAL SYSSLD 00126| REAL SYSTCH 00127| REAL SYSTWT 00131 REF'D BY - .IOCS , .LXSL | REAL SYSGET 00132| REAL SYSJOB 00133 REF'D BY - .IOCS , FOUT , .LXSL , .LXCON 0SUBR .IOEX 00702 SIZE = 00047| REAL .ACTV 00702 REF'D BY - .IOCS , .LXSL , .IODEF| REAL .NDSEL 00704| REAL .MWR 00706 REF'D BY - .IOCS , FOUT , FXEM , .LXSL , .LXCON| REAL .PUNCH 00707 REF'D BY - FPUN REAL .ENBSW 00710| REAL .PAWS 00711| REAL .PAUSE 00712| REAL .STOP 00713| REAL .SYMUN 00714 REAL .DECVD 00715 REF'D BY - .LXSL | REAL .DECVA 00716| REAL .CKWAT 00717| REAL .BCD5R 00720 REF'D BY - .LXCON| REAL .BCD5X 00721 REAL .CVPRT 00722| REAL .STOPD 00723 REF'D BY - .LXCON| REAL .CHXAC 00724| 1 IBLDR 12/01/64 PAGE 107 | * CROSS REFERENCE LOGIC * 0 REAL .URRX 00725 REF'D BY - .LXSL | REAL .RCTX 00726| REAL .RCHX 00727 REF'D BY - .LXSL | REAL .TCOX 00730| REAL .TRCX 00731 REAL .ETTX 00732| REAL .TEFX 00733| REAL .TRAPX 00734| REAL .TRAPS 00735| REAL .COMM 00736 REAL .LTPOS 00737| REAL .IOXSI 00740| REAL .CHPSW 00741| REAL .TRPSW 00742| REAL .FDAMT 00743 REF'D BY - .LXSL REAL .SDCXI 00744| REAL .STCXI 00745| REAL .COMMD 00746| REAL .IBCDZ 00747| REAL .CHXSP 00750 0SUBR .JBCON 02652 SIZE = 00046 REF'D BY - .IOCS | REAL SYSLOC 02652 REF'D BY - PUNO. , LIKDP., STYRF., TRANS., TESTA., DUP. , SPACE., FELT. , M| AIN , FOVERF, FDVCHK, FVIO , FPUN , FRDD , FWRD , FIOH , F| IOS , FXEM , .LXSL | REAL SYSFAZ 02653 REAL .JCOR 02654| REAL .JDATE 02655 REF'D BY - .IOCS | REAL .JLDAT 02656| REAL .JTYPE 02660 REF'D BY - .LXCON| REAL .JLIN 02661 REF'D BY - FOUT , .LXCON REAL .JVER 02662| REAL SYSDSB 02663| REAL .IOEXD 02664| REAL .FDPOS 02715 REF'D BY - .IOCS | REAL .JDTRK 02716 REAL SYSZRO 02717| 0SUBR .LXCON 11554 SIZE = 00454| REAL .LXSTR 11554| REAL .LXSTP 11557 REF'D BY - .LXSL | REAL .LXOUT 11625 REF'D BY - FOUT REAL .LXERR 11634 REF'D BY - FVIO , FIOS , FOUT , FXEM | REAL .LXCAL 11637| REAL .LXRTN 11637 REF'D BY - XIT | REAL IBEXIT 11637| REAL .DBCLS 12021 REAL .LXARG 12170 REF'D BY - FOUT | REAL .L0 12213| REAL .CLSE 12221 REF'D BY - .IODEF| REAL .LFBL 12222| REAL .LUNB 12223 REF'D BY - .IODEF REAL .DFOUT 12224 REF'D BY - FOUT , .LXSL | VIRT .LXSEL REFERS TO .LXSL AT 12454| VIRT .LXSL1 REFERS TO .LXSL AT 12455| VIRT .BCD5R REFERS TO .IOEX AT 00720| 1 IBLDR 12/01/64 PAGE 108 * CROSS REFERENCE LOGIC * | 0 VIRT .MWR REFERS TO .IOEX AT 00706| VIRT .JTYPE REFERS TO .JBCON AT 02660| VIRT SYSJOB REFERS TO .IBSYS AT 00133| VIRT SYSUNI REFERS TO .IBSYS AT 00107 VIRT SYSUAV REFERS TO .IBSYS AT 00111| VIRT SYSIDR REFERS TO .IBSYS AT 00117| VIRT .JLIN REFERS TO .JBCON AT 02661| VIRT SYSRET REFERS TO .IBSYS AT 00103| VIRT SYSDMP REFERS TO .IBSYS AT 00115 VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .LTCH REFERS TO .LXSL AT 12613| VIRT .STOPD REFERS TO .IOEX AT 00723| 0SUBR .IODEF 12230 SIZE = 00224| REAL .DEFIN 12230 REF'D BY - .IOCSM REAL .ATTAC 12234| REAL .CLOSE 12236 REF'D BY - FIOS | REAL .OPEN 12240 REF'D BY - FIOS , FOUT | REAL .READ 12242 REF'D BY - FIOS | REAL .WRITE 12244 REF'D BY - FIOS , FOUT REAL .BSR 12254| REAL .READR 12264 REF'D BY - .IOCSM| REAL .RELES 12266| REAL .LAREA 12277 REF'D BY - .IOCS | REAL .LFBLK 12315 REF'D BY - .IOCS REAL .LTSX 12320| REAL .RLHLD 12330| REAL .AREA1 12333 REF'D BY - .IOCS | REAL .LUNBL 12341 REF'D BY - .IOCSM, .IOCS | REAL .ENTRY 12345 REF'D BY - .IOCSM, .IOCS REAL .GOA 12402 REF'D BY - .IOCSM| REAL .GO 12406 REF'D BY - .IOCSM, .IOCS | REAL .DERR 12422 REF'D BY - .IOCS | REAL .NOPXI 12423 REF'D BY - .IOCSM, .IOCS | REAL .COMXI 12425 REF'D BY - .IOCSM, .IOCS REAL .EX34 12447 REF'D BY - .IOCSM, .IOCS | VIRT .ACTV REFERS TO .IOEX AT 00702| VIRT .CLSE REFERS TO .LXCON AT 12221| VIRT .LUNB REFERS TO .LXCON AT 12223| 0SUBR .LXSL 12454 SIZE = 00145 REAL .LXSEL 12454 REF'D BY - .LXCON, FXEM | REAL .LXSL1 12455 REF'D BY - .LXCON, .FPTRP| REAL .LXTST 12460| REAL .LXOVL 12520| REAL .LXMOD 12562 REAL .LXIND 12606| REAL .LXDIS 12611| REAL .LXFLG 12612| REAL .LTCH 12613 REF'D BY - .LXCON, FXEM , .FPTRP| VIRT SYSLOC REFERS TO .JBCON AT 02652 VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .DFOUT REFERS TO .LXCON AT 12224| VIRT SYSUNI REFERS TO .IBSYS AT 00107| VIRT .ACTV REFERS TO .IOEX AT 00702| VIRT .RCHX REFERS TO .IOEX AT 00727 1 IBLDR 12/01/64 PAGE 109 | * CROSS REFERENCE LOGIC * | 0 VIRT SYSJOB REFERS TO .IBSYS AT 00133| VIRT .URRX REFERS TO .IOEX AT 00725| VIRT .DECVD REFERS TO .IOEX AT 00715 VIRT .FDAMT REFERS TO .IOEX AT 00743| VIRT .MWR REFERS TO .IOEX AT 00706| VIRT .LXSTP REFERS TO .LXCON AT 11557| VIRT SYSTWT REFERS TO .IBSYS AT 00131| 0SUBR .FPTRP 12621 SIZE = 00210 REAL .FFPT. 12621| REAL .FPOUT 12750 REF'D BY - FOUT | REAL .FPARG 12756 REF'D BY - FOUT | REAL .COUNT 12760| REAL OVFLOW 13024 REF'D BY - FOVERF VIRT .LXSL1 REFERS TO .LXSL AT 12455| VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .LTCH REFERS TO .LXSL AT 12613| 0SUBR .ERAS. 13031 SIZE = 00004| REAL E.1 13031 REF'D BY - FCNV REAL E.2 13032 REF'D BY - FCNV | REAL E.3 13033 REF'D BY - FCNV | REAL E.4 13034 REF'D BY - FCNV | 0SUBR XIT 13035| REAL EXIT 13035 REF'D BY - FIOS REAL .EXIT. 13035| VIRT .LXRTN REFERS TO .LXCON AT 11637| 0SUBR FXEM 13036 SIZE = 00433| REAL .FXEM. 13036 REF'D BY - FVIO , FIOH , FIOS , FCNV | REAL .FXOUT 13376 REF'D BY - FOUT REAL .FXARG 13404 REF'D BY - FOUT | REAL .OPTW. 13460 SIZE = 00003| VIRT .LXSEL REFERS TO .LXSL AT 12454| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .MWR REFERS TO .IOEX AT 00706 VIRT .LXERR REFERS TO .LXCON AT 11634| VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .LTCH REFERS TO .LXSL AT 12613| 0SUBR FOUT 13471 SIZE = 00341| REAL .FOUT. 13471 REF'D BY - UN06 VIRT .BUFSZ REFERS TO UN06 AT 20552| VIRT .OPEN REFERS TO .IODEF AT 12240| VIRT .WRITE REFERS TO .IODEF AT 12244| VIRT .JLIN REFERS TO .JBCON AT 02661| VIRT SYSJOB REFERS TO .IBSYS AT 00133 VIRT .UN06. REFERS TO UN06 AT 20551| VIRT .MWR REFERS TO .IOEX AT 00706| VIRT .LXERR REFERS TO .LXCON AT 11634| VIRT .LXOUT REFERS TO .LXCON AT 11625| VIRT .LXARG REFERS TO .LXCON AT 12170 VIRT .FPOUT REFERS TO .FPTRP AT 12750| VIRT .FPARG REFERS TO .FPTRP AT 12756| VIRT .FXOUT REFERS TO FXEM AT 13376| 1 IBLDR 12/01/64 PAGE 110 | * CROSS REFERENCE LOGIC * 0 VIRT .FXARG REFERS TO FXEM AT 13404| VIRT .DFOUT REFERS TO .LXCON AT 12224| 0SUBR FCNV 14032 SIZE = 02702| REAL .FCON. 14032 REF'D BY - FIOH | REAL .FCNV. 14053 REF'D BY - PUNO. , TESTA., FELT. , MAIN REAL .ENDFS 14061 REF'D BY - FIOH | REAL .CNVSW 14064 REF'D BY - FIOH | REAL .FDX1 14070 REF'D BY - FRDD , FIOH | REAL .FDX2 14071 REF'D BY - FRDD , FIOH | REAL .DBC 14073 REF'D BY - FIOH REAL .DBC10 14231 REF'D BY - FIOH | REAL .DBC20 14257 REF'D BY - FIOH | REAL .DDSW 14275 REF'D BY - FIOH | REAL .DDFIX 14301 REF'D BY - FIOH | REAL .FIXSW 14302 REF'D BY - FIOH REAL .DDBC 14347 REF'D BY - FIOH | REAL .DDRS1 14620 REF'D BY - FIOH | REAL .DDRS2 14622| REAL .D1 14625 REF'D BY - FIOH | REAL .D2 14627 REF'D BY - FIOH REAL .FERR2 14714| REAL .ANPT 14750 REF'D BY - FIOH | REAL .ONPT 14765 REF'D BY - FIOH | REAL .LNTP 15050 REF'D BY - FIOH | REAL .AOUT 15117 REF'D BY - FIOH REAL .OOUT 15130 REF'D BY - FIOH | REAL .LOUT 15157 REF'D BY - FIOH | REAL .DFLT 15167 REF'D BY - FIOH | REAL .FLT 15434 REF'D BY - FIOH | REAL .FXFL1 15565 REF'D BY - FIOH REAL .FXD 15571 REF'D BY - FIOH | REAL .FXFL2 15574 REF'D BY - FIOH | REAL .FXFL3 15600 REF'D BY - FIOH | REAL .INTG 15604 REF'D BY - FIOH | REAL .TOPAC 15622 REF'D BY - FIOH REAL .WIDTH 15626 REF'D BY - FIOH | REAL .FPACK 15633 REF'D BY - FIOH | REAL .TEST 15634 REF'D BY - FIOH | REAL .KOUNT 15667 REF'D BY - FIOH | REAL .LIST 15672 REF'D BY - FIOH REAL .DONE 15700 REF'D BY - FIOH | REAL .OUTBF 16371 REF'D BY - FPUN , FWRD , FIOH | REAL .CHAR 16625 REF'D BY - FIOH | REAL .FBDBF 16641 REF'D BY - FRDD , FIOH | REAL .DDDFL 16673 REF'D BY - FIOH REAL .DDFLG 16674 REF'D BY - FIOH | REAL .WORD 16675 REF'D BY - FIOH | REAL .MQD 16676 REF'D BY - FIOH | REAL .PEX 16677 REF'D BY - FIOH | REAL .FEXP 16700 REF'D BY - FIOH REAL .DIG 16701 REF'D BY - FIOH | REAL .DEXPN 16702 REF'D BY - FIOH | VIRT .FXEM. REFERS TO FXEM AT 13036| VIRT E.1 REFERS TO .ERAS. AT 13031| VIRT E.2 REFERS TO .ERAS. AT 13032 1 IBLDR 12/01/64 PAGE 111 | * CROSS REFERENCE LOGIC * | 0 VIRT E.3 REFERS TO .ERAS. AT 13033| VIRT E.4 REFERS TO .ERAS. AT 13034| 0SUBR FIOS 16734 SIZE = 00434 REAL .FIOS. 16734 REF'D BY - FRDD , FWRD | REAL .FSEL. 17074 REF'D BY - FRDD | REAL .FILR. 17100| REAL .FRTB. 17107| REAL .FRTD. 17114 REF'D BY - FWRD REAL .FILL. 17117 REF'D BY - UN06 , FWRD | REAL .FCLS 17121| REAL .FOPN 17125| REAL REOF 17131| REAL .TOUT. 17274 REF'D BY - UN06 REAL .REED 17302| REAL .BIN 17303| REAL .FCT 17304| REAL .FCKSZ 17306| VIRT .FXEM. REFERS TO FXEM AT 13036 VIRT EXIT REFERS TO XIT AT 13035| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT SYSUNI REFERS TO .IBSYS AT 00107| VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .WRITE REFERS TO .IODEF AT 12244 VIRT .READ REFERS TO .IODEF AT 12242| VIRT .CLOSE REFERS TO .IODEF AT 12236| VIRT .OPEN REFERS TO .IODEF AT 12240| VIRT .LXERR REFERS TO .LXCON AT 11634| 0SUBR FIOH 17370 SIZE = 01053 REAL .FIOH. 17370 REF'D BY - FPUN , FRDD , FWRD | REAL .FFIL. 20227 REF'D BY - PUNO. , TESTA., FELT. , MAIN | REAL .FRTN. 20255 REF'D BY - PUNO. , MAIN | VIRT .FCON. REFERS TO FCNV AT 14032| VIRT .FXEM. REFERS TO FXEM AT 13036 VIRT .ANPT REFERS TO FCNV AT 14750| VIRT .AOUT REFERS TO FCNV AT 15117| VIRT .CHAR REFERS TO FCNV AT 16625| VIRT .CNVSW REFERS TO FCNV AT 14064| VIRT .KOUNT REFERS TO FCNV AT 15667 VIRT .D1 REFERS TO FCNV AT 14625| VIRT .D2 REFERS TO FCNV AT 14627| VIRT .DBC10 REFERS TO FCNV AT 14231| VIRT .DBC20 REFERS TO FCNV AT 14257| VIRT .DBC REFERS TO FCNV AT 14073 VIRT .DDBC REFERS TO FCNV AT 14347| VIRT .DDDFL REFERS TO FCNV AT 16673| VIRT .DDFIX REFERS TO FCNV AT 14301| VIRT .DDFLG REFERS TO FCNV AT 16674| VIRT .DDRS1 REFERS TO FCNV AT 14620 VIRT .DDSW REFERS TO FCNV AT 14275| VIRT .DEXPN REFERS TO FCNV AT 16702| VIRT .DFLT REFERS TO FCNV AT 15167| VIRT .DIG REFERS TO FCNV AT 16701| VIRT .DONE REFERS TO FCNV AT 15700 VIRT .ENDFS REFERS TO FCNV AT 14061| 1 IBLDR 12/01/64 PAGE 112 | * CROSS REFERENCE LOGIC * | 0 VIRT .FIXSW REFERS TO FCNV AT 14302| VIRT .FLT REFERS TO FCNV AT 15434 VIRT .FXD REFERS TO FCNV AT 15571| VIRT .FXFL1 REFERS TO FCNV AT 15565| VIRT .FXFL2 REFERS TO FCNV AT 15574| VIRT .FXFL3 REFERS TO FCNV AT 15600| VIRT .INTG REFERS TO FCNV AT 15604 VIRT .LNTP REFERS TO FCNV AT 15050| VIRT .LOUT REFERS TO FCNV AT 15157| VIRT .MQD REFERS TO FCNV AT 16676| VIRT .ONPT REFERS TO FCNV AT 14765| VIRT .OOUT REFERS TO FCNV AT 15130 VIRT .OUTBF REFERS TO FCNV AT 16371| VIRT .PEX REFERS TO FCNV AT 16677| VIRT .TEST REFERS TO FCNV AT 15634| VIRT .TOPAC REFERS TO FCNV AT 15622| VIRT .WIDTH REFERS TO FCNV AT 15626 VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .FDX1 REFERS TO FCNV AT 14070| VIRT .FDX2 REFERS TO FCNV AT 14071| VIRT .FBDBF REFERS TO FCNV AT 16641| VIRT .WORD REFERS TO FCNV AT 16675 VIRT .FPACK REFERS TO FCNV AT 15633| VIRT .FEXP REFERS TO FCNV AT 16700| VIRT .LIST REFERS TO FCNV AT 15672| 0SUBR FWRD 20443 SIZE = 00024| REAL .FWRD. 20443 REF'D BY - PUNO. , TESTA., FELT. , MAIN VIRT .FIOH. REFERS TO FIOH AT 17370| VIRT .FIOS. REFERS TO FIOS AT 16734| VIRT .OUTBF REFERS TO FCNV AT 16371| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .FILL. REFERS TO FIOS AT 17117 VIRT .FRTD. REFERS TO FIOS AT 17114| 0SUBR FRDD 20467 SIZE = 00026| REAL .FRDD. 20467 REF'D BY - PUNO. , MAIN | VIRT .FIOH. REFERS TO FIOH AT 17370| VIRT .FIOS. REFERS TO FIOS AT 16734 VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .FBDBF REFERS TO FCNV AT 16641| VIRT .FSEL. REFERS TO FIOS AT 17074| VIRT .FDX1 REFERS TO FCNV AT 14070| VIRT .FDX2 REFERS TO FCNV AT 14071 0SUBR FPUN 20515 SIZE = 00027| REAL .FPUN. 20515 REF'D BY - PUNO. | VIRT .FIOH. REFERS TO FIOH AT 17370| VIRT .OUTBF REFERS TO FCNV AT 16371| VIRT SYSLOC REFERS TO .JBCON AT 02652 VIRT .PUNCH REFERS TO .IOEX AT 00707| 0SUBR UN01 20544| REAL .UN01. 20544 REF'D BY - FVIO | 0SUBR UN02 20545| 1 IBLDR 12/01/64 PAGE 113 * CROSS REFERENCE LOGIC * | 0 REAL .UN02. 20545 REF'D BY - FVIO | 0SUBR UN03 20546| REAL .UN03. 20546 REF'D BY - FVIO | 0SUBR UN04 20547 REAL .UN04. 20547 REF'D BY - FVIO | 0SUBR UN05 20550| REAL .UN05. 20550 REF'D BY - PUNO. , MAIN , FVIO | 0SUBR UN06 20551 SIZE = 00004| REAL .UN06. 20551 REF'D BY - FOUT , TESTA., FELT. , MAIN , FVIO REAL .BUFSZ 20552 REF'D BY - FOUT | VIRT .FOUT. REFERS TO FOUT AT 13471| VIRT .TOUT. REFERS TO FIOS AT 17274| VIRT .FILL. REFERS TO FIOS AT 17117| 0SUBR UN07 20555 REAL .UN07. 20555 REF'D BY - FVIO | 0SUBR UN08 20556| REAL .UN08. 20556 REF'D BY - FVIO | 0SUBR FVIO 20557 SIZE = 00104| REAL .FVIO. 20557 REF'D BY - PUNO. VIRT .FXEM. REFERS TO FXEM AT 13036| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .LXERR REFERS TO .LXCON AT 11634| VIRT .UN01. REFERS TO UN01 AT 20544| VIRT .UN02. REFERS TO UN02 AT 20545 VIRT .UN03. REFERS TO UN03 AT 20546| VIRT .UN04. REFERS TO UN04 AT 20547| VIRT .UN05. REFERS TO UN05 AT 20550| VIRT .UN06. REFERS TO UN06 AT 20551| VIRT .UN07. REFERS TO UN07 AT 20555 VIRT .UN08. REFERS TO UN08 AT 20556| 0SUBR FDVCHK 20663 SIZE = 00017| REAL DVCHK 20663 REF'D BY - FELT. | VIRT SYSLOC REFERS TO .JBCON AT 02652| 0SUBR FOVERF 20702 SIZE = 00022 REAL OVERFL 20702 REF'D BY - FELT. | VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT OVFLOW REFERS TO .FPTRP AT 13024| 0SUBR .IOCS 20724 SIZE = 03617| REAL .L(0) 20724 REF'D BY - .IOCSM REAL .MONSW 20744 REF'D BY - .IOCSM| REAL .TEOR 21013 REF'D BY - .IOCSM| REAL .DEFI. 21073 REF'D BY - .IOCSM| REAL .JOINX 21137| REAL .CLOS. 21156 REF'D BY - .IOCSM REAL .ATTC. 21171 REF'D BY - .IOCSM| REAL .SH1 21403| 1 IBLDR 12/01/64 PAGE 114 | * CROSS REFERENCE LOGIC * | 0 REAL .SH9 21445 REAL .OPEN. 21466 REF'D BY - .IOCSM| REAL .OP4 21514| REAL .OP7 21545| REAL .OP9.2 21561| REAL .RLSE. 21633 REF'D BY - .IOCSM REAL .RER2. 21633 REF'D BY - .IOCSM| REAL .READ. 21634 REF'D BY - .IOCSM| REAL .RER1. 21657 REF'D BY - .IOCSM| REAL .WRIT. 21661 REF'D BY - .IOCSM| REAL .MNT1A 22051 REAL .EOFEX 22132| REAL .FEEIT 22202 REF'D BY - .IOCSM| REAL .GTIOX 22223 REF'D BY - .IOCSM| REAL .RW7 22341| REAL .RE7 22764 REAL .ENDTR 23425 REF'D BY - .IOCSM| REAL .SEL59 23427| REAL .BSR. 24046 REF'D BY - .IOCSM| REAL .EOTOF 24173 REF'D BY - .IOCSM| REAL .ETOF3 24201 REAL .SWITC 24230 REF'D BY - .IOCSM| REAL .TCHEX 24535 REF'D BY - .IOCSM| REAL .BASIO 24540| REAL .BASIC DELETED| REAL .JOIN. DELETED (NESTED) REAL .STAS. DELETED (NESTED) | REAL .COPY. DELETED (NESTED) | REAL .BSF. DELETED (NESTED) | REAL .BSF5 DELETED (NESTED) | REAL .REW. DELETED (NESTED) REAL .WEF. DELETED (NESTED) | REAL .INTOP DELETED (NESTED) | REAL .INTCL DELETED (NESTED) | REAL .ENTIN DELETED (NESTED) | REAL .CKPT. DELETED (NESTED) REAL .CPINT DELETED (NESTED) | REAL .CHCPT DELETED (NESTED) | REAL .B5FIN DELETED (NESTED) | REAL .LABEL DELETED (NESTED) | REAL .LABRT DELETED (NESTED) REAL .LAEOF DELETED (NESTED) | REAL .LABCI DELETED (NESTED) | REAL .LABOO DELETED (NESTED) | REAL .LABCO DELETED (NESTED) | REAL .LBEOT DELETED (NESTED) REAL .MNT6 DELETED (NESTED) | REAL .B6FIN DELETED (NESTED) | VIRT .ACTV REFERS TO .IOEX AT 00702| VIRT .ENTRY REFERS TO .IODEF AT 12345| VIRT .NOPXI REFERS TO .IODEF AT 12423 VIRT .COMXI REFERS TO .IODEF AT 12425| VIRT .LFBLK REFERS TO .IODEF AT 12315| VIRT .LUNBL REFERS TO .IODEF AT 12341| VIRT .AREA1 REFERS TO .IODEF AT 12333| VIRT .GO REFERS TO .IODEF AT 12406 1 IBLDR 12/01/64 PAGE 115 | * CROSS REFERENCE LOGIC * | 0 VIRT .JDATE REFERS TO .JBCON AT 02655| VIRT .MWR REFERS TO .IOEX AT 00706| VIRT .LAREA REFERS TO .IODEF AT 12277 VIRT SYSUNI REFERS TO .IBSYS AT 00107| VIRT SYSJOB REFERS TO .IBSYS AT 00133| VIRT SYSTWT REFERS TO .IBSYS AT 00131| VIRT .EX34 REFERS TO .IODEF AT 12447| VIRT .FDPOS REFERS TO .JBCON AT 02715 VIRT .JBCON REFERS TO .JBCON AT 02652| VIRT .DERR REFERS TO .IODEF AT 12422| VIRT SYSUCW REFERS TO .IBSYS AT 00112| VIRT SYSUBC REFERS TO .IBSYS AT 00110| 0SUBR .IOCSM 24543 VIRT .ENTRY REFERS TO .IODEF AT 12345| VIRT .DEFIN REFERS TO .IODEF AT 12230| VIRT .DEFI. REFERS TO .IOCS AT 21073| VIRT .ATTC. REFERS TO .IOCS AT 21171| VIRT .CLOS. REFERS TO .IOCS AT 21156 VIRT .OPEN. REFERS TO .IOCS AT 21466| VIRT .READ. REFERS TO .IOCS AT 21634| VIRT .WRIT. REFERS TO .IOCS AT 21661| VIRT .BSR. REFERS TO .IOCS AT 24046| VIRT .READR REFERS TO .IODEF AT 12264 VIRT .RER1. REFERS TO .IOCS AT 21657| VIRT .RLSE. REFERS TO .IOCS AT 21633| VIRT .GOA REFERS TO .IODEF AT 12402| VIRT .GO REFERS TO .IODEF AT 12406| VIRT .SWITC REFERS TO .IOCS AT 24230 VIRT .GTIOX REFERS TO .IOCS AT 22223| VIRT .EOTOF REFERS TO .IOCS AT 24173| VIRT .LUNBL REFERS TO .IODEF AT 12341| VIRT .MONSW REFERS TO .IOCS AT 20744| VIRT .TEOR REFERS TO .IOCS AT 21013 VIRT .TCHEX REFERS TO .IOCS AT 24535| VIRT .L(0) REFERS TO .IOCS AT 20724| VIRT .ENDTR REFERS TO .IOCS AT 23425| VIRT .NOPXI REFERS TO .IODEF AT 12423| VIRT .FEEIT REFERS TO .IOCS AT 22202 VIRT .COMXI REFERS TO .IODEF AT 12425| VIRT .RER2. REFERS TO .IOCS AT 21633| VIRT .EX34 REFERS TO .IODEF AT 12447| 0SUBR // 74316 SIZE = 03462 REF'D BY - LIKDP., STYRF., TRANS., TESTA., CONTF., DUP. , SPACE., FEL| T. , MAIN 1 IBLDR 12/01/64 PAGE 116 | * IOCS CONTROLS * | 0 | 0FILE LIST | LOC 0 03060 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03061 UNIT01 | 0 03062 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03063 UNIT02 | 0 03064 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001 03065 UNIT03 | 0 03066 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03067 UNIT04 | 0 03070 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03071 UNIT05 0 03072 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03073 UNIT06 | 0 03074 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 03075 UNIT07 | 0 03076 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001 03077 UNIT08 | 0BUFFER POOL | LOC | 0 24543 BUFFER COUNT = 00047 , BUFFER SIZE = 00256 FILE COUNT= 00004 , FILE LIST LOC = 03060| 0 54303 BUFFER COUNT = 00002 , BUFFER SIZE = 00014 FILE COUNT= 00001 , FILE LIST LOC = 03070 0 54345 BUFFER COUNT = 00025 , BUFFER SIZE = 00115 FILE COUNT= 00001 , FILE LIST LOC = 03072| 0 62124 BUFFER COUNT = 00092 , BUFFER SIZE = 00028 FILE COUNT= 00001 , FILE LIST LOC = 03074| 0 67436 BUFFER COUNT = 00103 , BUFFER SIZE = 00022 FILE COUNT= 00001 , FILE LIST LOC = 03076| 1 IBLDR 12/01/64 PAGE 117 | * MEMORY MAP * 0 | 0SYSTEM 00000 THRU 02717| FILE BLOCK ORIGIN 02720| FILES 1. UNIT01 | 2. UNIT02 3. UNIT03 | 4. UNIT04 | 5. UNIT05 | 6. UNIT06 | 7. UNIT07 8. UNIT08 | FILE LIST ORIGIN 03060| PRE-EXECUTION INITIALIZATION 03100| CALL ON OBJECT PROGRAM 03145| OBJECT PROGRAM 03152 THRU 24542 0 DECK ORIGIN CONTROL SECTIONS (/NAME/=NON 0 LENGTH, (LOC)=DELETED, 'LOC'=MOVED, *=NOT REFERENCED)| | 1. MAIN 03152 /// /(74316) ...... 04052 * | 2. FELT. 04070 /// /(74316) FELT 04407 | 3. SPACE. 04424 SPACEF 04424 SPACEF (04424) /// /(74316) 4. DUP. 04523 DUPN 04523 DUPN (04523) DUPS 04546 DUPS (04546) /// /(74316) | 5. CONTF. 04630 CONTF 04630 /// /(74316) | 6. TESTA. 04647 TESTA 04647 TESTA (04647) /// /(74316) | 7. TRANS. 04744 TRANS 04744 TRANS (04744) ANTFM 05323 /// /(74316) | 8. STYRF. 05513 STYRF 05513 STYRF (05513) /// /(74316) 9. LIKDP. 05714 LIKDUP 05714 LIKDUP (05714) /// /(74316) | 10. PUNO. 11100 PUNSET 11520 PUNOUT 11551 | 11. .IBSYS 00000 SYSLB1 00000 * SYSLB2 00001 * SYSLB3 00002 * SYSLB4 00003 * SYSCRD 00004 * | SYSPRT 00005 * SYSPCH 00006 * SYSOU1 00007 SYSOU2 00010 * SYSIN1 00011 * | SYSIN2 00012 * SYSPP1 00013 * SYSPP2 00014 * SYSCK1 00015 * SYSCK2 00016 * SYSUT1 00017 * SYSUT2 00020 * SYSUT3 00021 * SYSUT4 00022 * SYSUT5 00023 * | SYSUT6 00024 * SYSUT7 00025 * SYSUT8 00026 * SYSUT9 00027 * SYSTRA 00100 * | SYSDAT 00101 * SYSCUR 00102 * SYSRET 00103 SYSKEY 00104 * SYSSWS 00105 * | SYSPOS 00106 * SYSUNI 00107 SYSUBC 00110 SYSUAV 00111 SYSUCW 00112 | SYSRPT 00113 * SYSCEM 00114 * SYSDMP 00115 SYSIOX 00116 * SYSIDR 00117 SYSCOR 00120 * SYSLDR 00121 * SYSACC 00122 * SYSPID 00123 * SYSCYD 00124 * | SYSSLD 00126 * SYSTCH 00127 * SYSTWT 00131 SYSGET 00132 * SYSJOB 00133 | 12. .IOEX 00702 .ACTV 00702 .NDSEL 00704 * .MWR 00706 .PUNCH 00707 .ENBSW 00710 * | .PAWS 00711 * .PAUSE 00712 * .STOP 00713 * .SYMUN 00714 * .DECVD 00715 | .DECVA 00716 * .CKWAT 00717 * .BCD5R 00720 .BCD5X 00721 * .CVPRT 00722 * .STOPD 00723 .CHXAC 00724 * .URRX 00725 .RCTX 00726 * .RCHX 00727 | .TCOX 00730 * .TRCX 00731 * .ETTX 00732 * .TEFX 00733 * .TRAPX 00734 * | .TRAPS 00735 * .COMM 00736 * .LTPOS 00737 * .IOXSI 00740 * .CHPSW 00741 * | .TRPSW 00742 * .FDAMT 00743 .SDCXI 00744 * .STCXI 00745 * .COMMD 00746 * | .IBCDZ 00747 * .CHXSP 00750 * 13. .JBCON 02652 SYSLOC 02652 SYSFAZ 02653 * .JCOR 02654 * .JDATE 02655 .JLDAT 02656 * | .JTYPE 02660 .JLIN 02661 .JVER 02662 * SYSDSB 02663 * .IOEXD 02664 * | .FDPOS 02715 .JDTRK 02716 * SYSZRO 02717 * | 14. .LXCON 11554 .LXSTR 11554 * .LXSTP 11557 .LXOUT 11625 .LXERR 11634 .LXCAL 11637 * | .LXRTN 11637 IBEXIT 11637 * .DBCLS 12021 * .LXARG 12170 .L0 12213 * .CLSE 12221 .LFBL 12222 * .LUNB 12223 .DFOUT 12224 | 15. .IODEF 12230 .DEFIN 12230 .ATTAC 12234 * .CLOSE 12236 .OPEN 12240 .READ 12242 | .WRITE 12244 .BSR 12254 * .READR 12264 .RELES 12266 * .LAREA 12277 | .LFBLK 12315 .LTSX 12320 * .RLHLD 12330 * .AREA1 12333 .LUNBL 12341 | 1 IBLDR 12/01/64 PAGE 118 * MEMORY MAP * | 0 .ENTRY 12345 .GOA 12402 .GO 12406 .DERR 12422 .NOPXI 12423 | .COMXI 12425 .EX34 12447 | 16. .LXSL 12454 .LXSEL 12454 .LXSL1 12455 .LXTST 12460 * .LXOVL 12520 * .LXMOD 12562 * | .LXIND 12606 * .LXDIS 12611 * .LXFLG 12612 * .LTCH 12613 17. .FPTRP 12621 .FFPT. 12621 * .FPOUT 12750 .FPARG 12756 /.COUNT/ 12760 * OVFLOW 13024 | 18. .ERAS. 13031 E.1 13031 E.2 13032 E.3 13033 E.4 13034 | 19. XIT 13035 EXIT 13035 .EXIT. 13035 * | 20. FXEM 13036 .FXEM. 13036 .FXOUT 13376 .FXARG 13404 /.OPTW./ 13460 * | 21. FOUT 13471 .FOUT. 13471 22. FCNV 14032 .FCON. 14032 .FCNV. 14053 .ENDFS 14061 .CNVSW 14064 .FDX1 14070 | .FDX2 14071 .DBC 14073 .DBC10 14231 .DBC20 14257 .DDSW 14275 | .DDFIX 14301 .FIXSW 14302 .DDBC 14347 .DDRS1 14620 .DDRS2 14622 * | .D1 14625 .D2 14627 .FERR2 14714 * .ANPT 14750 .ONPT 14765 | .LNTP 15050 .AOUT 15117 .OOUT 15130 .LOUT 15157 .DFLT 15167 .FLT 15434 .FXFL1 15565 .FXD 15571 .FXFL2 15574 .FXFL3 15600 | .INTG 15604 .TOPAC 15622 .WIDTH 15626 .FPACK 15633 .TEST 15634 | .KOUNT 15667 .LIST 15672 .DONE 15700 .OUTBF 16371 .CHAR 16625 | .FBDBF 16641 .DDDFL 16673 .DDFLG 16674 .WORD 16675 .MQD 16676 | .PEX 16677 .FEXP 16700 .DIG 16701 .DEXPN 16702 23. FIOS 16734 .FIOS. 16734 .FSEL. 17074 .FILR. 17100 * .FRTB. 17107 * .FRTD. 17114 | .FILL. 17117 .FCLS 17121 * .FOPN 17125 * REOF 17131 * .TOUT. 17274 | .REED 17302 * .BIN 17303 * .FCT 17304 * .FCKSZ 17306 * | 24. FIOH 17370 .FIOH. 17370 .FFIL. 20227 .FRTN. 20255 | 25. FWRD 20443 .FWRD. 20443 26. FRDD 20467 .FRDD. 20467 | 27. FPUN 20515 .FPUN. 20515 | 28. UN01 20544 .UN01. 20544 | 29. UN02 20545 .UN02. 20545 | 30. UN03 20546 .UN03. 20546 31. UN04 20547 .UN04. 20547 | 32. UN05 20550 .UN05. 20550 | 33. UN06 20551 .UN06. 20551 .BUFSZ 20552 | 34. UN07 20555 .UN07. 20555 | 35. UN08 20556 .UN08. 20556 36. FVIO 20557 .FVIO. 20557 | 37. FDVCHK 20663 DVCHK 20663 | 38. FOVERF 20702 OVERFL 20702 | 39. .IOCS 20724 .L(0) 20724 .MONSW 20744 .TEOR 21013 .DEFI. 21073 .JOINX 21137 * | .CLOS. 21156 .ATTC. 21171 .SH1 21403 * .SH9 21445 * .OPEN. 21466 .OP4 21514 * .OP7 21545 * .OP9.2 21561 * .RLSE. 21633 .RER2. 21633 | .READ. 21634 .RER1. 21657 .WRIT. 21661 .MNT1A 22051 * .EOFEX 22132 * | .FEEIT 22202 .GTIOX 22223 .RW7 22341 * .RE7 22764 * .ENDTR 23425 | .SEL59 23427 * .BSR. 24046 .EOTOF 24173 .ETOF3 24201 * .SWITC 24230 | .TCHEX 24535 .BASIO 24540 * 40. .IOCSM 24543 | 41. // 74316 | 0I/O BUFFERS 24543 THRU 74307| 0UNUSED CORE 74310 THRU 74315| 0 1SOFT - SIMPLE OUTPUT FORMAT TRANSLATOR | 0 | 7 THIS CARD SHALL CONTAIN INFORMATION ABOUT THE HANDLING OF PUNCHED OUTP | *SPACE(1) | ++++++++++++++++++++++++++ ++++++++++++++++++++++++++ | + + CORRELATION + + | + OBJECT A + $.$$ + OBJECT B + | + MEAN = $.$$$$E$$$ +++++++++++++++++ MEAN = $.$$$$E$$$ + | + + + + ++++++++++++++++++++++++++ ++++++++++++++++++++++++++ | + + + + | + CORRE- + + CORRE- + | + CORRELA- LATION + + + + LATION + CORRELA- | + TION $.$$ + $.$$ + TION | + $.$$ + + + $.$$ | + + + + | + + + + ++++++++++++++++++++++++++ ++++++++++++++++++++++++++ | + + CORRELATION + + | + OBJECT C + $.$$ + OBJECT D + | + MEAN = $.$$$$E$$$ +++++++++++++++++ MEAN = $.$$$$E$$$ + | + + + + | ++++++++++++++++++++++++++ ++++++++++++++++++++++++++ | *** ERROR *** TOO LONG FORMAT, *END CARD SIMULATED | 0THIS FORMAT STATEMENT WILL TRANSMIT 10 STORAGE WORDS 010000 FORMAT(76H 7 THIS CARD SHALL CONTAIN INFORMATION ABOUT THE HAND FM10000 | 2LING OF PUNCHED OUTP,//1H ,26(1H+),15X,26(1H+),/2H +,24X,17H+ COR FM10000 | 3RELATION +,24X,1H+,/2H +,7X,8HOBJECT A,9X,1H+,4X,F4.2,7X,1H+,7X,8 FM10000 | 4HOBJECT B,9X,1H+,/12H + MEAN = ,E10.4,4X,17(1H+),10H MEAN = ,E FM10000 | 510.4,4X,1H+,/2H +,24X,1H+,15X,1H+,24X,1H+,/1H ,26(1H+),15X,26(1H+) FM10000 | 6,/7X,1H+,20X,1H+,11X,1H+,13X,1H+,/7X,1H+,14X,9HCORRE- +,7X,9H+ C FM10000 | 7ORRE-,7X,1H+,/7X,10H+ CORRELA-,5X,25HLATION + + + + LATION,7X, FM10000 810H+ CORRELA-,/7X,6H+ TION,9X,F4.2,8X,1H+,6X,F4.2,9X,6H+ TION,/7X, FM10000 | 92H+ ,F4.2,19X,5H+ +,17X,2H+ ,F4.2,/7X,1H+,22X,1H+,7X,1H+,15X,1H+ FM10000 | 1,/7X,1H+,20X,1H+,11X,1H+,13X,1H+,/1H ,26(1H+),15X,26(1H+),/2H +,24 FM10000 | 2X,17H+ CORRELATION +,24X,1H+,/2H +,7X,8HOBJECT C,9X,1H+,4X,F4.2, FM10000 | 37X,1H+,7X,8HOBJECT D,9X,1H+,/12H + MEAN = ,E10.4,4X,17(1H+),10H FM10000 | 4 MEAN = ,E10.4,4X,1H+,/2H +,24X,1H+,15X,1H+,24X,1H+,/1H ,26(1H+), FM10000 | 515X,26(1H+)) FM10000 1SOFT - SIMPLE OUTPUT FORMAT TRANSLATOR | 0 | *TESTEND(13) | 0THIS FORMAT STATEMENT WILL TRANSMIT 0 STORAGE WORDS | 0 13 FORMAT() FM 13 | 0TEST OUTPUT WITH THE ABOVE FORMAT STATEMENT BEGINS ON NEXT LINE | 1SOFT - SIMPLE OUTPUT FORMAT TRANSLATOR | 0 | *SPACE(3) | ONCE UPON A TIME THERE WAS A PRINCESS. SHE WAS $$ YEARS OLD, YOUNG AND BEAUTIFUL. HER FATHER THE KING WAS AN OLD AND WISE MAN. HE HAD REIGNED | IN THE COUNTRY FOR $$$ YEARS. THE PRINCESS WAS GAY AND HAPPY AND WANTED | TO ENJOY EVERY $ DAYS OF HER LIFE. SHE OFTEN WENT TO NIGHT CLUBS IN THE | HARBOUR TOWN ****** WITH $$$$$$ INHABITANTS. SOMETIMES SHE DID NOT COME | HOME UNTIL $ O'CLOCK. HER MOTHER, THE QUEEN, DID NOT LIKE THIS SHE PUT | $$ SOLDIERS ON GUARD TO PREVENT THE PRINCESS FROM GOING TO TOWN. BUT THE | PRINCESS SEDUCED ONE OF THE SOLDIERS IN $$ DAYS WITH $$$ KISSES, | AND THEY WENT OUT THROUGH A $$$. METER LONG TUNNEL. *TESTEND(6) | 0THIS FORMAT STATEMENT WILL TRANSMIT 10 STORAGE WORDS | 0 6 FORMAT(///48H ONCE UPON A TIME THERE WAS A PRINCESS. SHE WAS ,I2,2 FM 6 | 21H YEARS OLD, YOUNG AND,/71H BEAUTIFUL. HER FATHER THE KING WAS AN FM 6 | 3 OLD AND WISE MAN. HE HAD REIGNED,/20H IN THE COUNTRY FOR ,I3,49H FM 6 | 4YEARS. THE PRINCESS WAS GAY AND HAPPY AND WANTED,/16H TO ENJOY EVE FM 6 | 5RY ,I1,55H DAYS OF HER LIFE. SHE OFTEN WENT TO NIGHT CLUBS IN THE, FM 6 6/14H HARBOUR TOWN ,A6,6H WITH ,I6,40H INHABITANTS. SOMETIMES SHE D FM 6 | 7ID NOT COME,/12H HOME UNTIL ,I1,59H O'CLOCK. HER MOTHER, THE QUEEN FM 6 | 8, DID NOT LIKE THIS SHE PUT,/1H ,I2,70H SOLDIERS ON GUARD TO PREV FM 6 | 9ENT THE PRINCESS FROM GOING TO TOWN. BUT THE,/41H PRINCESS SEDUCED FM 6 | 1 ONE OF THE SOLDIERS IN ,I2,11H DAYS WITH ,I3,8H KISSES,,/29H AND FM 6 | 2THEY WENT OUT THROUGH A ,F4.0,19H METER LONG TUNNEL.) FM 6 | 0TEST OUTPUT WITH THE ABOVE FORMAT STATEMENT BEGINS ON NEXT LINE | | | ONCE UPON A TIME THERE WAS A PRINCESS. SHE WAS 12 YEARS OLD, YOUNG AND| BEAUTIFUL. HER FATHER THE KING WAS AN OLD AND WISE MAN. HE HAD REIGNED| IN THE COUNTRY FOR 812 YEARS. THE PRINCESS WAS GAY AND HAPPY AND WANTED | TO ENJOY EVERY 2 DAYS OF HER LIFE. SHE OFTEN WENT TO NIGHT CLUBS IN THE | HARBOUR TOWN ****** WITH 816812 INHABITANTS. SOMETIMES SHE DID NOT COME | HOME UNTIL 2 O'CLOCK. HER MOTHER, THE QUEEN, DID NOT LIKE THIS SHE PUT | 12 SOLDIERS ON GUARD TO PREVENT THE PRINCESS FROM GOING TO TOWN. BUT THE PRINCESS SEDUCED ONE OF THE SOLDIERS IN 12 DAYS WITH 812 KISSES,| AND THEY WENT OUT THROUGH A -0. METER LONG TUNNEL. | 1SOFT - SIMPLE OUTPUT FORMAT TRANSLATOR | 0 | *SPACE(3) | FOOTBALL POOL. | ============= | *SPACE(1) | SYSTEM WITH $$$ ROWS GAME 1 X 2 PREDICTED OUTCOME PROBABILITY | *DUP(1,12) | ********** - ********** * * * .$$$$ | *SPACE(1) | TOTAL PROBABILITY OF 10 RIGHTS= .$$$$ | TOTAL PROBABILITY OF 11 RIGHTS= .$$$$ | TOTAL PROBABILITY OF 12 RIGHTS= .$$$$ | *SPACE(2) EXPECTED GROSS INCOME $$$.$$ TIMES INVESTED SUM | EXPECTED NET INCOME $$$.$$ TIMES INVESTED SUM | *TESTEND(123) | 0THIS FORMAT STATEMENT WILL TRANSMIT 102 STORAGE WORDS | 0 123 FORMAT(///15H FOOTBALL POOL.,/1H ,13(1H=),//13H SYSTEM WITH ,I3,5H FM 123 | 2 ROWS,/5H GAME,23X,36H1 X 2 PREDICTED OUTCOME PROBABILITY,12(/2H FM 123 | 3 ,A6,A4,3H - ,A6,A4,3H ,2(A1,1H ),A1,2H ,F5.4),//33H TOTAL PROB FM 123 | 4ABILITY OF 10 RIGHTS= ,F5.4,/33H TOTAL PROBABILITY OF 11 RIGHTS= , FM 123 5F5.4,/33H TOTAL PROBABILITY OF 12 RIGHTS= ,F5.4,///23H EXPECTED GR FM 123 | 6OSS INCOME ,F6.2,19H TIMES INVESTED SUM,/21H EXPECTED NET INCOME , FM 123 | 7F6.2,19H TIMES INVESTED SUM) FM 123 | 0TEST OUTPUT WITH THE ABOVE FORMAT STATEMENT BEGINS ON NEXT LINE | | | | FOOTBALL POOL. | ============= | | SYSTEM WITH 812 ROWS | GAME 1 X 2 PREDICTED OUTCOME PROBABILITY | ********** - ********** * * * .0000 ********** - ********** * * * .0000 | ********** - ********** * * * .0000 | ********** - ********** * * * .0000 | ********** - ********** * * * .0000 | ********** - ********** * * * .0000 | ********** - ********** * * * .0000 | ********** - ********** * * * .0000 | ********** - ********** * * * .0000 | ********** - ********** * * * .0000 | ********** - ********** * * * .0000 | ********** - ********** * * * .0000 | | TOTAL PROBABILITY OF 10 RIGHTS= .0000 | TOTAL PROBABILITY OF 11 RIGHTS= .0000 TOTAL PROBABILITY OF 12 RIGHTS= .0000 | | | EXPECTED GROSS INCOME -0.00 TIMES INVESTED SUM | EXPECTED NET INCOME -0.00 TIMES INVESTED SUM | 1SOFT - SIMPLE OUTPUT FORMAT TRANSLATOR | 0 | | ERROR ROUTINE TEST INPUT. | ======================== | *SPACE(1) | *DUP(15) *** ERROR *** ILLEGAL CONTROL CARD OR * IN FIRST POSITION OF NON-CONTROL CARD | $$$ $$$ $$$ $$$ $$ $$$ $$ $$$ $.$$E$ E IN ERROR | *** ERROR *** INSUFFICIENT OR FAULTY EXPONENT SPACE IN E- OR D-FORMAT | *DUP(3,2) | *** ERROR *** NESTED *DUP-S | *DUP(3,2) | *DUP(3,3) | *** ERROR *** NESTED *DUP-S | 2 3 | 4 | 5 | *DUP(15,2) | $A*A*S*D*F*V*C*X*S*W*E*D*F*V*F*R*E*D*F*G*F*D*E*D*S*W*S*X*C*D*F*R*E*W*Q*A*ZX | $A*A*S*D*F*V*C*X*S*W*E*D1F*V*F*R*E*D*F*G*F*D*E*D*S*W*S*X*C*D*F*R*E*W*Q*A*ZX | $A*A*S*D*F*4*C*X*S*W*E*D1F*V*F*R*E*D*F*G*F*D*E*D*S*W*S*X*C*D*F*R*E*W*Q*A*ZX | *** ERROR *** TOO LONG FORMAT, *END CARD SIMULATED *** ERROR *** *END IN SPACE OF *DUP | 0THIS FORMAT STATEMENT WILL TRANSMIT 228 STORAGE WORDS | 010123 FORMAT(1H ,/26H ERROR ROUTINE TEST INPUT.,/1H ,24(1H=),//1H ,A1,7H FM10123 | 2DUP(15),/1H ,4(I3,1H ),2(I2,1H ,I3,1H ),E8.2,9H IN ERROR),2(),/2H FM10123 | 32,/2H 3,/2H 4,/2H 5,2(/1H ,I1,2(1HA,A1),1HS,A1,1HD,A1,1HF,A1,1HV,A FM10123 | 41,1HC,A1,1HX,A1,1HS,A1,1HW,A1,1HE,A1,1HD,A1,1HF,A1,1HV,A1,1HF,A1,1 FM10123 | 5HR,A1,1HE,A1,1HD,A1,1HF,A1,1HG,A1,1HF,A1,1HD,A1,1HE,A1,1HD,A1,1HS, FM10123 | 6A1,1HW,A1,1HS,A1,1HX,A1,1HC,A1,1HD,A1,1HF,A1,1HR,A1,1HE,A1,1HW,A1, FM10123 71HQ,A1,1HA,A1,2HZX,/1H ,I1,2(1HA,A1),1HS,A1,1HD,A1,1HF,A1,1HV,A1,1 FM10123 | 8HC,A1,1HX,A1,1HS,A1,1HW,A1,1HE,A1,3HD1F,A1,1HV,A1,1HF,A1,1HR,A1,1H FM10123 | 9E,A1,1HD,A1,1HF,A1,1HG,A1,1HF,A1,1HD,A1,1HE,A1,1HD,A1,1HS,A1,1HW,A FM10123 | 11,1HS,A1,1HX,A1,1HC,A1,1HD,A1,1HF,A1,1HR,A1,1HE,A1,1HW,A1,1HQ,A1,1 FM10123 | 2HA,A1,2HZX,/1H ,I1,2(1HA,A1),1HS,A1,1HD,A1,1HF,A1,1H4,A1,1HC,A1,1H FM10123 | 3X,A1,1HS,A1,1HW,A1,1HE,A1,3HD1F,A1,1HV,A1,1HF,A1,1HR,A1,1HE,A1,1HD FM10123 | 4,A1,1HF,A1,1HG,A1,1HF,A1,1HD,A1,1HE,A1,1HD,A1,1HS,A1,1HW,A1,1HS,A1 FM10123 5,1HX,A1,1HC,A1,1HD,A1,1HF,A1,1HR,A1,1HE,A1,1HW,A1,1HQ,A1,1HA,A1,2H FM10123 | 6ZX)) FM10123 | 1SOFT - SIMPLE OUTPUT FORMAT TRANSLATOR | 0 | $A*A*S*D*F*9*C*X*S*W*E*D1F*V*F*R*E*D*F*G*F*D*E*D*S*W*S*X*C*D*F*R*E*W*Q*A*ZX | *TESTEND(25) | 0THIS FORMAT STATEMENT WILL TRANSMIT 36 STORAGE WORDS | 0 25 FORMAT(1H ,I1,2(1HA,A1),1HS,A1,1HD,A1,1HF,A1,1H9,A1,1HC,A1,1HX,A1, FM 25 | 21HS,A1,1HW,A1,1HE,A1,3HD1F,A1,1HV,A1,1HF,A1,1HR,A1,1HE,A1,1HD,A1,1 FM 25 3HF,A1,1HG,A1,1HF,A1,1HD,A1,1HE,A1,1HD,A1,1HS,A1,1HW,A1,1HS,A1,1HX, FM 25 | 4A1,1HC,A1,1HD,A1,1HF,A1,1HR,A1,1HE,A1,1HW,A1,1HQ,A1,1HA,A1,2HZX) FM 25 | 0TEST OUTPUT WITH THE ABOVE FORMAT STATEMENT BEGINS ON NEXT LINE | 2A*A*S*D*F*9*C*X*S*W*E*D1F*V*F*R*E*D*F*G*F*D*E*D*S*W*S*X*C*D*F*R*E*W*Q*A*ZX 1 4650 LINES OUTPUT. $IBSYS $STOP | 1 PERIPHERAL UNIT POSITIONS AT END OF JOBS | 1 SYSPP1 IS B2 REC. 00259, FILE 00000 SYSOU1 IS B1 REC. 00929, FILE 00000 SYSIN1 IS A2 REC. 00002, FILE 00001| 1 END OF JOBS | 1