                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 046/046 ------           
                                         THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3.    4F10585     
       01731 -0 63400 2 01102 CIT00  SXD CITXR2,2                  SAVE THE C(XR2).                   4F10586     
       01732 -0 63400 1 01101        SXD CITXR1,1                  SAVE THE C(XR1).                   4F10587     
       01733 -0 60000 0 01150        STQ CITMQR                    SAVE THE C(MQR).                   4F10588     
       01734 -0 53400 2 00637        LXD BBOX,2                    SET XR2 = 2S COMPL OF NO-WRDS-ENTD.4F10589     
       01735  0 50000 0 00635        CLA BS                        COMPARE BLOCK SIZE                 4F10590     
       01736  0 40200 0 00636        SUB EC                        WITH ENTRY COUNT.                  4F10591     
       01737 -0 10000 0 01747        TNZ CIT04                     IF BLOCK IS NOT FULL,GO MAKE ENTRY.4F10592     
       01740  0 76600 0 00223        WRS CITTAP                    PREPARE TO WRITE BLOCK ON CIT TAPE.4F10593     
       01741  0 73400 1 00000        PAX ,1                        SET XR1 = 0, AND                   4F10594     
       01742  0 70000 1 00640 CIT01  CPY CIB,1                     COPY SUCCESSIVE                    4F10595     
       01743  1 77777 1 01744        TXI CIT02,1,-1                WORDS OF BLOCK                     4F10596     
       01744  1 00001 2 01745 CIT02  TXI CIT03,2,1                 AND CONTINUE                       4F10597     
       01745  3 00001 2 01742 CIT03  TXH CIT01,2,1                 UNTIL XR2 = 0.                     4F10598     
       01746  0 76600 0 00333        IOD                           WHEN DONE,                         4F10599     
       01747  0 53400 1 01412 CIT04  LXA L(4),1                    SET XR1 = ENTRY SIZE.              4F10600     
       01750  1 77777 4 01751 CIT05  TXI CIT05+1,4,-1              SET XR4 = -(ADDR OF NEXT ENTRY WRD)4F10601     
       01751  0 50000 4 00000        CLA 0,4                       AND PICK UP ADDRESS OF NEXT ENTRY  4F10602     
       01752  0 62100 0 01753        STA CIT06                     TO SET NEXT ADDRESS.               4F10603     
       01753  0 50000 0 00000 CIT06  CLA **                        MOVE ENTRY                         4F10604     
       01754  0 60100 3 00640        STO CIB,3                     INTO CIB BUFFER,                   4F10605     
       01755  1 77777 2 01756        TXI CIT07,2,-1                AND COUNT 1 FOR EACH WORD ENTERED. 4F10606     
       01756  2 00001 1 01750 CIT07  TIX CIT05,1,1                 WHEN DOEN,                         4F10607     
       01757 -0 63400 2 00637        SXD BBOX,2                    SAVE THE C(XR2), AND               4F10608     
       01760 -0 75400 2 02032 DMSR99 PXD DMSR05+1,2                COMPUTE THE                        4F10609     
       01761  0 76000 0 00006        COM                           REAL NUMBER                        4F10610     
       01762  0 40000 0 01454        ADD 2E18                      OF WORDS ENTERED                   4F10611     
       01763 -0 73400 2 02031 DMSR98 PDX DMSR05,2                  IN CIB BUFFER, AND                 4F10612     
       01764 -0 63400 2 00636        SXD EC,2                      SAVE IN EC.                        4F10613     
       01765  0 56000 0 01150        LDQ CITMQR                    RESTORE THE C(MQR),                4F10614     
       01766 -0 53400 1 01101        LXD CITXR1,1                  RESTORE THE C(XR1),                4F10615     
       01767 -0 53400 2 01102        LXD CITXR2,2                  RESTORE THE C(XR2), AND            4F10616     
       01770  0 02000 4 00001        TRA 1,4                     * EXIT TO MAIN ROUTINE (5TH WRD CS). 4F10617     
                                          END OF PROGRAM CIT00.                                       4F10618     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10619     
                                                                                                      4F10620     
                                         DIM.SR,4/ CALLS=DIAG. CALLERS=C1200,SS000,CMA.               4F10621     
                                         DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR,  4F10622     
                                         DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION.                4F10623     
                                         DIM1SR= ENTRY POINT FOR 1 DIMENSION TABLE.                   4F10624     
       01771 -0 63400 4 01774 DIM1SR SXD DMSR00,4                  SAVE THE C(XR4) FOR RETURN,        4F10625     
       01772 -0 53400 4 00452        LXD DIM1IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM14F10626     
       01773  0 50000 0 00453        CLA ORGDM1                    AND PICK UP 1ST ADDRESS OF DIM1 TO 4F10627     
       01774  1 00000 0 02000 DMSR00 TXI DMSR01,0,**               GO SET DRUM ADDRESS.               4F10628     
                                         DIM2SR = ENTRY POINT FOR 2 DIMENSION TABLE.                  4F10629     
       01775 -0 63400 4 01774 DIM2SR SXD DMSR00,4                  SAVE THE C(XR) FRO RETURN.         4F10630     
       01776 -0 53400 4 00457        LXD DIM2IX-3,4                SET XR4 = NUMBER OF ENTRIES IN DIM24F10631     
       01777  0 50000 0 00460        CLA ORGDM2                    AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632     
       02000  0 62100 0 01104 DMSR01 STA DRMADR                    SET DRUM ADDRESS.                  4F10633     
       02001  0 50000 0 01760        CLA DMSR99                    SET LOOP ADDRESS TO                4F10634     
       02002  0 62100 0 02041        STA DMSR15                    DMSR05+1 FOR DIM1 AND DIM2.        4F10635     
       02003 -0 50000 0 02065        CAL DMCN12                    (STZ D3)                           4F10636     
       02004  1 00000 0 02014 DMSR11 TXI DMSR02,0,**               GO SET OP FRO DIM1 AND DIM2.       4F10637     
                                         DIM3SR= ENTRY POINT FOR 3 DIMENSION TABLE.                   4F10638     
       02005 -0 63400 4 01774 DIM3SR SXD DMSR00,4                  SAVE THE C(XR4) FRO RETURN,        4F10639     
