User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ro.004

Deck 1RO Part 004

20 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03234  M01S00052.ns2685  +++|*         USES   T1, CM - CM+4.
03235  M01S02190.1ro     +++|*
03236  M01S02191.1ro     +++|*         CALLS  CEA, DFM, 0AU.
03237  M01S02192.1ro     +++|*
03238  M01S02193.1ro     +++|*         MACROS CFI, DELAY, EXECUTE, MONITOR, PAUSE.
03239  M01S02194.1ro     +++|
03240  M01S00675.271l716 +++|
03241  M01S00676.271l716 +++| CAU4     LDN    0           INDICATE NO ERROR FLAG
03242  M01S00677.271l716 +++|          STD    CM+2
03243  M01S00678.271l716 +++|          LDC    *           SET PROGRAM ADDRESS
03244  M01S00679.271l716 +++|          STD    CM+1
03245  M01S00680.271l716 +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
03246  M01S02195.1ro     +++|
03247  M01S02196.1ro     +++| CAU      SUBR               ENTRY/EXIT
03248  M01S00681.271l716 +++|          LDD    IR+2
03249  M01S00682.271l716 +++|          SBN    2
03250  M01S00683.271l716 +++|          PJN    CAU4        IF PCP ROLLOUT OR PSEUDO-ROLLOUT
03251  M01S02197.1ro     +++|
03252  M01S02198.1ro     +++|*         SET *0AU* CALL PARAMETERS.
03253  M01S02199.1ro     +++|
03254  M01S02200.1ro     +++|          LDD    CP          SET UP CALL BLOCK
03255  M01S02201.1ro     +++|          ADN    SRUW
03256  M01S02202.1ro     +++|          CRM    OAUA+5,ON
03257  M01S02203.1ro     +++|          ADN    FPFW-SRUW-1
03258  M01S02204.1ro     +++|          CRM    OAUL-5,ON
03259  M01S02205.1ro     +++|          SFA    EJT,EO      CALCULATE EJT ENTRY ADDRESS
03260  M01S02206.1ro     +++|          ADK    JSNE
03261  M01S02207.1ro     +++|          CRM    OAUA,ON     READ JSN INTO *0AU* PARAMETER BLOCK
Line S02208 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03262  M02S02208.ns2685  ---|          LDM    EJSS+SCLE*5+0  SET SERVICE CLASS FOR *0AU*
03263  M01S00053.ns2685  +++|          ADK    SCLE-JSNE-1 READ SERVICE CLASS
03264  M01S00054.ns2685  +++|          CRD    CM
03265  M01S00055.ns2685  +++|          LDD    CM          SET SERVICE CLASS FOR *0AU*
03266  M01S02209.1ro     +++|          SCN    77
03267  M01S02210.1ro     +++|          STM    OAUA+4
03268  M01S02211.1ro     +++|          LDM    OAUL-5      SET *0AU* OVERFLOW PROCESSING
03269  M01S02212.1ro     +++|          SCN    77
03270  M01S02213.1ro     +++|          LMN    1
03271  M01S02214.1ro     +++|          STM    OAUL-5
03272  M01S02215.1ro     +++|          LDC    OAUA        PARAMETER BLOCK FWA
03273  M01S02216.1ro     +++|          STM    OAUL-4
03274  M01S02217.1ro     +++|
03275  M01S02218.1ro     +++|*         CALL *0AU*.
03276  M01S02219.1ro     +++|
03277  M01S02220.1ro     +++| CAU1     EXECUTE  0AU,OAUL  CALL *0AU*
03278  M01S02221.1ro     +++|          SBN    2           CHECK FOR SUCCESSFUL UPDATE/FILE ERROR
03279  M01S02222.1ro     +++|          MJN    CAU2        IF SUCCESSFUL UPDATE OR FILE ERROR
03280  M01S02223.1ro     +++|          SOM    CAUA
03281  M01S02224.1ro     +++|          STD    T1          SET DELAY COUNT
03282  M01S02225.1ro     +++|          PJN    CAU3        IF RETRY COUNT NOT EXHAUSTED
03283  M01S02226.1ro     +++|          LDN    /CPS/RLCO   CLEAR OVERFLOW FLAGS
03284  M01S02227.1ro     +++|          STD    CM+1
03285  M01S02228.1ro     +++|          MONITOR  RLMM
03286  M01S02229.1ro     +++|          LDC    CAUB+ACFN   OVERFLOW QUANTITY
03287  M01S02230.1ro     +++|          RJM    DFM         ISSUE MESSAGE
03288  M01S02231.1ro     +++| CAU2     LJM    CAUX        EXIT
03289  M01S02232.1ro     +++|
03290  M01S02233.1ro     +++|*         PROCESS *0AU* REJECT.
03291  M01S02234.1ro     +++|
03292  M01S02235.1ro     +++| CAU3     SOD    T1
03293  M01S02236.1ro     +++|          MJN    CAU1        IF END OF DELAY
03294  M01S02237.1ro     +++|          DELAY
03295  M01S02238.1ro     +++|          PAUSE  NE
03296  M01S02239.1ro     +++|          UJN    CAU3        CONTINUE DELAY
03297  M01S02240.1ro     +++|
03298  M01S02241.1ro     +++| CAUA     CON    10          RETRY COUNT
03299  M01S02242.1ro     +++| CAUB     DATA   C*AUSR, 219902.325UNTS.*
03300  M01S02243.1ro     +++|          SPACE  4,10
03301  M01S02244.1ro     +++|**        BUFFER ASSIGNMENTS.
03302  M01S02245.1ro     +++|
03303  M01S02246.1ro     +++|
03304  M01S02247.1ro     +++| OAUA     EQU    *           *0AU* PARAMETER BLOCK
03305  M01S02248.1ro     +++| OAUL     EQU    OAUA+2*5+5  *0AU* LOAD ADDRESS
03306  M01S02249.1ro     +++| OVL0     EQU    BUF+1       *0BF*/*0DF* LOAD ADDRESS
03307  M01S02250.1ro     +++| TBUF     EQU    BUF         NEXT TRACK BUFFER
03308  M01S02251.1ro     +++| TBUFL    EQU    TBUF+10
03309  M01S02252.1ro     +++| WDSB     EQU    TBUFL       WRITE ERROR PROCESSING BUFFER
03310  M01S02253.1ro     +++| .1       MAX    WDSB+502,PRS+1+5
03311  M01S02254.1ro     +++| E1RO     EQU    .1          OVERLAY ORIGIN
Line S02255 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro24
Seq #  *Modification Id* Act 
----------------------------+
03312  M02S02255.1ro24   ---| .2       MAX    OVL0+ZDFL+5,E1RO
Line S02256 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro24
Seq #  *Modification Id* Act 
----------------------------+
03313  M02S02256.1ro24   ---| E2RO     EQU    .2          SECOND OVERLAY ORIGIN
03314  M01S02257.1ro     +++| OBUF     EQU    IROB        FIRST SECTOR OUTPUT BUFFER
03315  M01S00003.ns2569  +++| ISU      SPACE  4,10
03316  M01S00004.ns2569  +++|**        ISU - ISSUE ACCUMULATED SRU MESSAGE.
03317  M01S00005.ns2569  +++|*
03318  M01S00684.271l716 +++|*         EXIT   (A) = 0.
03319  M01S00685.271l716 +++|*
03320  M01S00006.ns2569  +++|*         USES   CM - CM+4, CN - CN+4.
03321  M01S00007.ns2569  +++|*
03322  M01S00008.ns2569  +++|*         CALLS  DFM.
03323  M01S00009.ns2569  +++|*
Line S00010 Modification History
M01 (Added by) ns2569
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03324  M02S00010.271l716 ---|*         MACROS MONITOR.
Line S00686 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03325  M02S00686.273l780 ---|*         MACROS LCPA, MONITOR.
03326  M01S00187.273l780 +++|*         MACROS MONITOR.
03327  M01S00011.ns2569  +++|
03328  M01S00012.ns2569  +++|
03329  M01S00013.ns2569  +++| ISU      SUBR               ENTRY/EXIT
Line S00014 Modification History
M01 (Added by) ns2569
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03330  M02S00014.271l716 ---|          LDD    CP          CHECK IF MESSAGE REQUIRED
Line S00015 Modification History
M01 (Added by) ns2569
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03331  M02S00015.271l716 ---|          ADN    SRUW
Line S00687 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03332  M02S00687.273l780 ---|          LCPA   SRUW
03333  M01S00188.273l780 +++|          TLDC   SRUW,CPAD
03334  M01S00016.ns2569  +++|          CRD    CN
03335  M01S00017.ns2569  +++|          ADN    SRJW-SRUW
03336  M01S00018.ns2569  +++|          CRD    CM
03337  M01S00019.ns2569  +++|
03338  M01S00020.ns2569  +++|*         AN UPDATE MESSAGE IS ISSUED EVERY 107.374 SRU-S.
03339  M01S00021.ns2569  +++|
03340  M01S00022.ns2569  +++|          LDD    CN+2
03341  M01S00023.ns2569  +++|          SBD    CM
03342  M01S00024.ns2569  +++|          SHN    -6
03343  M01S00025.ns2569  +++|          ZJN    ISUX        IF SRU PERIOD NOT ELAPSED
03344  M01S00026.ns2569  +++|          LDD    CN+2        UPDATE LAST SRU MESSAGE VALUE
03345  M01S00027.ns2569  +++|          STD    CM
Line S00028 Modification History
M01 (Added by) ns2569
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03346  M02S00028.271l716 ---|          LDD    CP
Line S00029 Modification History
M01 (Added by) ns2569
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03347  M02S00029.271l716 ---|          ADN    SRJW
Line S00688 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03348  M02S00688.273l780 ---|          LCPA   SRJW
03349  M01S00189.273l780 +++|          TLDC   SRJW,CPAD
03350  M01S00030.ns2569  +++|          CWD    CM
03351  M01S00031.ns2569  +++|          LDD    CN+1
03352  M01S00032.ns2569  +++|          ADD    CN+2
03353  M01S00033.ns2569  +++|          ADD    CN+3
03354  M01S00034.ns2569  +++|          ADD    CN+4
03355  M01S00035.ns2569  +++|          ZJP    ISUX        IF ZERO SRU-S TO DISPLAY
03356  M01S00036.ns2569  +++|          LDD    MA          CONVERT SRU-S TO DISPLAY CODE
03357  M01S00037.ns2569  +++|          CWD    CN
03358  M01S00038.ns2569  +++|          LDN    1
03359  M01S00039.ns2569  +++|          STD    CM+1
03360  M01S00040.ns2569  +++|          STD    CM+2
03361  M01S00041.ns2569  +++|          MONITOR  RDCM
03362  M01S00042.ns2569  +++|          LDD    MA
03363  M01S00043.ns2569  +++|          CRM    ISUB,ON     READ CONVERTED DATA
03364  M01S00044.ns2569  +++|          LDC    ISUA+ACFN
03365  M01S00045.ns2569  +++|          RJM    DFM
Line S00046 Modification History
M01 (Added by) ns2569
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03366  M02S00046.271l716 ---|          LJM    ISUX        RETURN
03367  M01S00689.271l716 +++|*         LDN    0
03368  M01S00690.271l716 +++|          UJP    ISUX        RETURN
03369  M01S00047.ns2569  +++|
03370  M01S00048.ns2569  +++| ISUA     DATA   H*AASR, *
03371  M01S00049.ns2569  +++| ISUB     BSS    5
03372  M01S00050.ns2569  +++|          DATA   C*UNTS.*
Line S02258 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03373  M02S02258.273l780 ---|          SPACE  4,10,10
Line S02259 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03374  M02S02259.273l780 ---|*         COMMON DECKS.
03375  M01S00190.273l780 +++|          SPACE  4,10
03376  M01S00191.273l780 +++|**        COMMON DECKS.
03377  M01S02260.1ro     +++|
03378  M01S02261.1ro     +++|
03379  M01S02262.1ro     +++| FLBS     EQU    /CPS/FLBS   FLUSH BUFFER SUBFUNCTION
Line S02263 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03380  M02S02263.273l780 ---|          SPACE  4,10
03381  M01S00192.273l780 +++|
03382  M01S00193.273l780 +++|
03383  M01S02264.1ro     +++| IFP      HERE
03384  M01S02265.1ro     +++|*CALL     COMPFLF
Line S00691 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03385  M02S00691.273l780 ---|          SPACE  4,10
Line S00692 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03386  M02S00692.273l780 ---| TLAT     BSS    0           *LCPA* ADDRESS LIST
Line S00693 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03387  M02S00693.273l780 ---| LCPA     HERE
Line S00694 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03388  M02S00694.273l780 ---|          CON    0           TERMINATE ADDRESS LIST
03389  M01S00194.273l780 +++| TSIC     SPACE  4,10
03390  M01S00195.273l780 +++|**        INSTRUCTION RELOCATION TABLE AND ASSOCIATED DATA.
03391  M01S00196.273l780 +++|
03392  M01S00197.273l780 +++|
03393  M01S00198.273l780 +++| PCAD     BSSZ   2           PCP ADDRESS
03394  M01S00199.273l780 +++|
03395  M01S00200.273l780 +++| TSIC     BSS    0           INSTRUCTION RELOCATION TABLE
03396  M01S00201.273l780 +++|          LIST   D
03397  M01S00202.273l780 +++| SIC      HERE
03398  M01S00203.273l780 +++|          LIST   *
03399  M01S00204.273l780 +++|          CON    0           TERMINATE ENTRIES
Line S02266 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03400  M02S02266.271l716 ---|          SPACE  4,10,10
03401  M01S00695.271l716 +++|          SPACE  4,10
03402  M01S02267.1ro     +++|**        OVERFLOW CHECKS.
03403  M01S02268.1ro     +++|
03404  M01S02269.1ro     +++|
03405  M01S02270.1ro     +++|          ERRNG  EPFW-OAUL-ZAUL    CHECK LENGTH OF *0AU*
Line S02271 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03406  M02S02271.271l716 ---|          ERRNG  EPFW-OVL0-ZBFL
Line S02272 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03407  M02S02272.271l716 ---|          ERRNG  BFMS-OVL0-ZDFL
03408  M01S00696.271l716 +++|          ERRNG  BFMS-OVL0-ZDFL    CHECK LENGTH OF *0DF*
03409  M01S02273.1ro     +++|          SPACE  4,10
03410  M01S02274.1ro     +++|          USE    OVERFLOW
Line S02275 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03411  M02S02275.271l716 ---|          OVERFLOW
03412  M01S00697.271l716 +++|
03413  M01S00698.271l716 +++|*         NOTE - THE FOLLOWING CHECK DEPENDS ON THE FACT THAT *1RO*
03414  M01S00699.271l716 +++|*         IS CM-RESIDENT.  *SLL* CONTAINS CODE TO ENSURE THIS.
03415  M01S00700.271l716 +++|
03416  M01S00701.271l716 +++|          ERRNG  OBUF-*-10   OVERFLOW INTO OUTPUT BUFFER
03417  M01S00702.271l716 +++|          SPACE  4,10
03418  M01S00703.271l716 +++|          OVERFLOW  PPFW,EPFW
03419  M01S02276.1ro     +++|          TITLE
03420  M01S02277.1ro     +++|          TTL    1RO/3RP - PROCESS ON-LINE INTERACTIVE JOBS.
03421  M01S02278.1ro     +++|          TITLE  MAIN ROUTINES.
03422  M01S02279.1ro     +++|          QUAL   3RP
03423  M01S02280.1ro     +++|          IDENT  3RP,TRPX
03424  M01S02281.1ro     +++|*COMMENT  1RO - PROCESS TXOT JOBS.
Line S02282 Modification History
M01 (Added by) 1ro
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
03425  M02S02282.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
03426  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03427  M01S02283.1ro     +++|          SPACE  4,10
03428  M01S02284.1ro     +++|**        3RP - PROCESS ON-LINE INTERACTIVE JOBS.
03429  M01S02285.1ro     +++|
03430  M01S02286.1ro     +++|
03431  M01S02287.1ro     +++|          ORG    E1RO
03432  M01S02288.1ro     +++| TRP      SUBR               ENTRY/EXIT
03433  M01S02289.1ro     +++|          UJN    TRPX        RETURN
03434  M01S02290.1ro     +++| TFET     SPACE  4,10
03435  M01S02291.1ro     +++|*         TFET - OUTPUT FET+0.
03436  M01S02292.1ro     +++|
03437  M01S02293.1ro     +++|
03438  M01S02294.1ro     +++| TFET     BSS    5
03439  M01S02295.1ro     +++| RFO      SPACE  4,10
03440  M01S02296.1ro     +++|**        RFO - READ FIRST SECTOR OF OUTPUT.
03441  M01S02297.1ro     +++|*
03442  M01S02298.1ro     +++|*         ENTRY  (OP - OP+1) = OUT POINTER.
03443  M01S02299.1ro     +++|*                (SC) = TERMINAL OUTPUT SECTOR COUNT.
03444  M01S02300.1ro     +++|*
03445  M01S02301.1ro     +++|*         EXIT   (OP - OP+1) UPDATED.
03446  M01S02302.1ro     +++|*
03447  M01S02303.1ro     +++|*         USES   CN.
03448  M01S02304.1ro     +++|*
03449  M01S02305.1ro     +++|*         CALLS  RDA, RLS, RMA.
03450  M01S02306.1ro     +++|
03451  M01S02307.1ro     +++|
03452  M01S02308.1ro     +++| RFO      SUBR               ENTRY/EXIT
03453  M01S02309.1ro     +++|          LDD    SC
03454  M01S02310.1ro     +++|          STD    CN
03455  M01S02311.1ro     +++|          ZJN    RFO1        IF NO OUTPUT IN BUFFER
03456  M01S02312.1ro     +++|          RJM    RDA         READ FIRST SECTOR
03457  M01S02313.1ro     +++|          LDC    ADDI+NF     ACCOUNT FOR RA ADJUSTMENT BY *SRA*
03458  M01S02314.1ro     +++|          STM    RDAB
03459  M01S02315.1ro     +++|          STM    RDAE
03460  M01S02316.1ro     +++|          STM    RDAH
03461  M01S02317.1ro     +++|          LDD    CN
03462  M01S02318.1ro     +++|          LMD    HN
03463  M01S02319.1ro     +++|          ZJN    RFO2        IF FULL SECTOR READ
03464  M01S02320.1ro     +++| RFO1     RJM    RMA         READ ERROR MESSAGE
03465  M01S02321.1ro     +++|          LDD    CN
03466  M01S02322.1ro     +++|          LMD    HN
03467  M01S02323.1ro     +++|          ZJN    RFO2        IF NOW FULL SECTOR
Line S02324 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03468  M02S02324.271l716 ---|          LDM    ROJH
Line S02325 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03469  M02S02325.271l716 ---|          NJN    RFO1.1      IF JOB ACTIVITY OR ECS PROTECT
Line S02326 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03470  M02S02326.271l716 ---|          RJM    RLS         RELEASE CM/ECS FL
Line S02327 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03471  M02S02327.271l716 ---|          UJN    RFO3        RESET ADDRESSES
Line S02328 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03472  M02S02328.271l716 ---|
Line S02329 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03473  M02S02329.271l716 ---| RFO1.1   LMD    HN
Line S02330 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03474  M02S02330.271l716 ---|          NJN    RFO2        IF STILL JOB ACTIVITY
Line S02331 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03475  M02S02331.271l716 ---|          STD    CM+2
Line S02332 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03476  M02S02332.271l716 ---|          LDC    MCMX/100
Line S02333 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03477  M02S02333.271l716 ---|          STD    CM+1
Line S02334 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03478  M02S02334.271l716 ---|          LMD    FL
Line S02335 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03479  M02S02335.271l716 ---|          ZJN    RFO3        IF FL = MINIMUM
Line S02336 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03480  M02S02336.271l716 ---|          MONITOR  RSTM      REQUEST MINIMUM FL
Line S02337 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03481  M02S02337.271l716 ---|          PAUSE  NE
Line S02338 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03482  M02S02338.271l716 ---|          UJN    RFO3        CONTINUE
Line S02339 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03483  M02S02339.271l716 ---|
03484  M01S00704.271l716 +++|          LDM    CPAB
03485  M01S00705.271l716 +++|          ZJN    RFO3        IF NO JOB ACTIVITY, NO EM PROTECT
03486  M01S00706.271l716 +++|          LMD    HN
03487  M01S00707.271l716 +++|          ZJN    RFO3        IF NO ACTIVITY
03488  M01S02340.1ro     +++| RFO2     LDN    PSNI        SET JOB FL PRESENT
03489  M01S02341.1ro     +++|          STM    WTOA
03490  M01S02342.1ro     +++| RFO3     LDC    BFMS+2      RESET ADDRESSES
03491  M01S02343.1ro     +++|          STM    RDAC
03492  M01S02344.1ro     +++|          STM    RDAF
03493  M01S02345.1ro     +++|          STM    RDAI
03494  M01S02346.1ro     +++|          STM    RMAB
03495  M01S02347.1ro     +++|          LDD    CN          SET SECTOR WORD COUNT
03496  M01S02348.1ro     +++|          STM    OBUF+1
03497  M01S02349.1ro     +++|          ZJN    RFO4        IF NO OUTPUT DATA
03498  M01S02350.1ro     +++|          LDN    /REM/VOPR   SET OUTPUT DATA AVAILABLE
03499  M01S02351.1ro     +++|          RAM    TERA
03500  M01S02352.1ro     +++|          LDN    40          SET OUTPUT FROM ROLLOUT FILE SUB STATUS
03501  M01S02353.1ro     +++|          RAM    TERB
03502  M01S02354.1ro     +++| RFO4     LDM    TERA
03503  M01S02355.1ro     +++|          LPN    /REM/VIPR+/REM/VOPR
03504  M01S02356.1ro     +++|          ZJN    RFO5        IF NO I/O REQUEST PENDING
03505  M01S02357.1ro     +++|          LDN    IOJS        SET JOB STATUS = *IOJS*
03506  M01S02358.1ro     +++|          STM    CJSA
03507  M01S02359.1ro     +++| RFO5     LJM    RFOX        RETURN
03508  M01S02360.1ro     +++| TER      SPACE  4,15
03509  M01S02361.1ro     +++|**        TER - TERMINATE ROLLOUT.
03510  M01S02362.1ro     +++|*
03511  M01S02363.1ro     +++|*         ENTRY  (TERA) = *VROT* STATUS.
03512  M01S02364.1ro     +++|*                (TERB) = *VROT* SUB STATUS.
03513  M01S02365.1ro     +++|*                (TERC) = SUBSYSTEM.
03514  M01S02366.1ro     +++|*                (TERD) = PRIMARY FILE NAME.
03515  M01S02367.1ro     +++|*
03516  M01S02368.1ro     +++|*         EXIT   TO *1TO*.
03517  M01S02369.1ro     +++|*
Line S02370 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03518  M02S02370.273l780 ---|*         USES   CM - CM+4, CN - CN+4, T1 - T6.
03519  M01S00205.273l780 +++|*         USES   CM - CM+1, CM+3 - CM+4, CN - CN+4, T2 - T6.
03520  M01S02371.1ro     +++|*
Line S02372 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03521  M02S02372.273l780 ---|*         CALLS  CIT, ITF.
Line S00206 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
03522  M02S00206.ns2748  ---|*         CALLS  CIT, CPC, ITF.
03523  M01S00014.ns2748  +++|*         CALLS  CIT, CPC, ITF, RRR, SRR.
03524  M01S02373.1ro     +++|*
03525  M01S02374.1ro     +++|*         MACROS MONITOR.
03526  M01S02375.1ro     +++|
03527  M01S02376.1ro     +++|
03528  M01S02377.1ro     +++|
03529  M01S02378.1ro     +++| TER6     LDD    TT          UPDATE TERMINAL TABLE
03530  M01S02379.1ro     +++|          SHN    14
03531  M01S02380.1ro     +++|          ADD    TT+1
03532  M01S02381.1ro     +++|          ADN    /REM/VFNT
03533  M01S02382.1ro     +++|          CWM    TERD,ON
03534  M01S02383.1ro     +++|          ADN    /REM/VROT-/REM/VFNT-1
03535  M01S02384.1ro     +++|          CWD    CN
03536  M01S00015.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
03537  M01S02385.1ro     +++|
03538  M01S02386.1ro     +++| TER      SUBR
03539  M01S00016.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
03540  M01S02387.1ro     +++|          LDD    TT          UPDATE TERMINAL TABLE
03541  M01S02388.1ro     +++|          SHN    14
03542  M01S02389.1ro     +++|          ADD    TT+1
03543  M01S02390.1ro     +++|          ADN    /REM/VROT
03544  M01S02391.1ro     +++|          CRD    CN
03545  M01S02392.1ro     +++|          ADN    /REM/VSTT-/REM/VROT
03546  M01S02393.1ro     +++|          CRD    T2
Line S02394 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03547  M02S02394.271l716 ---|          LDM    ROJH        SET CONTINUATION STATUS
03548  M01S00708.271l716 +++|          LDM    CPAB        SET CONTINUATION STATUS
03549  M01S02395.1ro     +++|          SHN    2
03550  M01S02396.1ro     +++|          LMD    CN+4
03551  M01S02397.1ro     +++|          LPN    4
03552  M01S02398.1ro     +++|          LMD    CN+4
03553  M01S02399.1ro     +++|          STD    CN+4
Line S02400 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03554  M02S02400.271l716 ---|          LDM    CROE+5*0+4  CHECK ROLLOUT JOB STATUS
03555  M01S00709.271l716 +++|          LDM    CROF        CHECK ROLLOUT JOB STATUS
03556  M01S00710.271l716 +++|          SHN    -1
03557  M01S02401.1ro     +++|          LPN    37
03558  M01S02402.1ro     +++|          LMN    IOJS
03559  M01S02403.1ro     +++|          ZJN    TER2.0      IF *IOJS* JOB STATUS
03560  M01S02404.1ro     +++|          LMN    DOJS&IOJS
Line S02405 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
03561  M02S02405.ns2748  ---|          NJN    TER6        IF NOT *DOJS* JOB STATUS
03562  M01S00017.ns2748  +++|          NJP    TER6        IF NOT *DOJS* JOB STATUS
03563  M01S02406.1ro     +++| TER2.0   LDD    CN+4
03564  M01S02407.1ro     +++|          SCN    32
03565  M01S02408.1ro     +++|          ADC    **
03566  M01S02409.1ro     +++| TERA     EQU    *-1         (RFO, CFI, TER)
03567  M01S02410.1ro     +++|          STD    CN+4
03568  M01S02411.1ro     +++|          LDD    CN+3        SET SUBSTATUS
03569  M01S02412.1ro     +++|          LPC    7437        CLEAR SRU LIMIT, TIME LIMIT, AND FILE TYPE
03570  M01S02413.1ro     +++|          LMC    0           SUBSTATUS
03571  M01S02414.1ro     +++| TERB     EQU    *-1
03572  M01S02415.1ro     +++|          STD    CN+3
03573  M01S02416.1ro     +++|          LDD    TT
03574  M01S02417.1ro     +++|          SHN    14
03575  M01S02418.1ro     +++|          ADD    TT+1
03576  M01S02419.1ro     +++|          ADN    /REM/VFNT
03577  M01S02420.1ro     +++|          CWM    TERD,ON
03578  M01S02421.1ro     +++|          ADN    /REM/VROT-/REM/VFNT-1
03579  M01S02422.1ro     +++|          CWD    CN
03580  M01S00018.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
03581  M01S02423.1ro     +++|          LDN    0           CHECK SUBSYSTEM
03582  M01S02424.1ro     +++|*         LDN    XX          (SET TO SUB SYSTEM CODE BY /3RP/PRP)
03583  M01S02425.1ro     +++| TERC     EQU    *-1
03584  M01S02426.1ro     +++|          STD    CM+3
03585  M01S02427.1ro     +++|          LMD    T2+3
03586  M01S02428.1ro     +++|          LPN    77
03587  M01S02429.1ro     +++|          ZJN    TER3        IF NO CHANGE
03588  M01S02430.1ro     +++|          LDD    TN          SET TERMINAL NUMBER
03589  M01S02431.1ro     +++|          STD    CM+4
03590  M01S02432.1ro     +++|          LDC    /REM/VSBS   HAVE *IAF* UPDATE SUBSYSTEM
03591  M01S02433.1ro     +++|          STD    CM
03592  M01S02434.1ro     +++|          LDD    MA
03593  M01S02435.1ro     +++|          CWD    CM
03594  M01S02436.1ro     +++|          RJM    ITF
Line S02437 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03595  M02S02437.271l716 ---| TER3     LDN    /CPS/CCPS   CLEAR CPA ON *JACM*
Line S00711 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03596  M02S00711.273l780 ---| TER3     LDM    ROJL
Line S00712 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03597  M02S00712.273l780 ---|          NJN    TER4        IF COMPOUND ROLLOUT
Line S00713 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03598  M02S00713.273l780 ---|          LDC    /CPS/CCPS   CLEAR CPA
Line S00714 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03599  M02S00714.273l780 ---|*         LDC    /CPS/CCPS+4000  (PCP ROLL)
Line S00715 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03600  M02S00715.273l780 ---| TERF     EQU    *-1
03601  M01S00207.273l780 +++| TER3     RJM    CPC         CHECK PCP ROLLOUT COMPLETION
03602  M01S00208.273l780 +++|          PJN    TER4        IF PCP ROLLOUT
03603  M01S00209.273l780 +++|          LDC    /CPS/CCPS   RELEASE CP FROM JOB
03604  M01S02438.1ro     +++|          STD    CM+1
Line S00716 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03605  M02S00716.273l780 ---|          LDD    IR+4        SET POSSIBLE PCP NUMBER
Line S00717 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03606  M02S00717.273l780 ---|          STD    CM+2
03607  M01S02439.1ro     +++|          MONITOR  JACM
Line S02440 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03608  M02S02440.271l716 ---|
Line S02441 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03609  M02S02441.271l716 ---|*         CALL THE SCHEDULER.  *RSJM* MUST BE ISSUED AFTER *JACM*
Line S02442 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03610  M02S02442.271l716 ---|*         TO ENSURE CONTROL POINT IS FREE FOR SCHEDULING USE.
Line S02443 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03611  M02S02443.271l716 ---|
Line S02444 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03612  M02S02444.271l716 ---|          LDM    ROJH
Line S02445 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03613  M02S02445.271l716 ---|          ZJN    TER4        IF *1SJ* REQUESTED VIA STORAGE RELEASE
Line S02446 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03614  M02S02446.271l716 ---|          LDN    0           CALL SCHEDULER
Line S02447 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03615  M02S02447.271l716 ---|          STD    CM+2
Line S02448 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03616  M02S02448.271l716 ---|          MONITOR  RSJM
Line S02449 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03617  M02S02449.271l716 ---| TER4     RJM    CIT         CALL *1TO* TO PROCESS OUTPUT
Line S02450 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03618  M02S02450.271l716 ---|          NJN    TER5        IF *1TO* CALLED
03619  M01S00718.271l716 +++| TER4     RJM    CIT         CALL *1TO* IF OUTPUT AVAILABLE
03620  M01S00719.271l716 +++|          NJN    TER5        IF *1TO* OR *1RO* TO BE CALLED IN THIS PP
03621  M01S02451.1ro     +++|
03622  M01S02452.1ro     +++|*         DROP PPU.
03623  M01S02453.1ro     +++|
03624  M01S02454.1ro     +++|          MONITOR  DPPM      DROP PP
03625  M01S02455.1ro     +++| TER5     LJM    PPR         EXIT TO PP RESIDENT
03626  M01S02456.1ro     +++|
03627  M01S02457.1ro     +++| TERD     BSSZ   5           PRIMARY FILE NAME
03628  M01S02458.1ro     +++|
Line S02459 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03629  M02S02459.271l716 ---| TERE     VFD    18/3L1TO,6/0,12/0,9/0,3/0,12/0
03630  M01S00720.271l716 +++| TERE     VFD    18/3L1TO,6//REM/VCPT,12/0,9/0,3/0,12/0
03631  M01S02460.1ro     +++| WTO      SPACE  4,10
03632  M01S02461.1ro     +++|**        WTO - WRITE TERMINAL OUTPUT TO DISK.
03633  M01S02462.1ro     +++|*
03634  M01S02463.1ro     +++|*         ENTRY  (OP - OP+1) = OUT POINTER.
03635  M01S02464.1ro     +++|*                (SC) = SECTOR COUNT OF BUFFER.
03636  M01S02465.1ro     +++|*
03637  M01S02466.1ro     +++|*         USES   CN - CN+4.
03638  M01S02467.1ro     +++|*
03639  M01S02468.1ro     +++|*         CALLS  WNS, RDA, RMA, RMB.
Line S00721 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03640  M02S00721.273l780 ---|*
Line S00722 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03641  M02S00722.273l780 ---|*         MACROS AJFL.
03642  M01S02469.1ro     +++|
03643  M01S02470.1ro     +++|
03644  M01S02471.1ro     +++| WTO      SUBR               ENTRY/EXIT
03645  M01S02472.1ro     +++|          LDC    OBUF        WRITE FIRST SECTOR OF OUTPUT
03646  M01S02473.1ro     +++|          STM    WNSA        SET BUFFER ADDRESSES
03647  M01S02474.1ro     +++|          STM    WNSB
03648  M01S02475.1ro     +++|          STM    WNSC
03649  M01S02476.1ro     +++|          RJM    WNS
03650  M01S02477.1ro     +++|          LDC    BFMS        RESET BUFFER ADDRESSES
03651  M01S02478.1ro     +++|          STM    WNSA
03652  M01S02479.1ro     +++|          STM    WNSB
03653  M01S02480.1ro     +++|          STM    WNSC
03654  M01S02481.1ro     +++|          LDD    SC
03655  M01S02482.1ro     +++|          ZJN    WTO3        IF ALL OF TERMINAL OUTUT READ
03656  M01S02483.1ro     +++| WTO1     RJM    RDA         READ DATA FROM OUTUT BUFFER
03657  M01S02484.1ro     +++|          LDD    SC
03658  M01S02485.1ro     +++|          ZJN    WTO2        IF LAST SECTOR OF OUTPUT
03659  M01S02486.1ro     +++|          RJM    WNS         WRITE BUFFER
03660  M01S02487.1ro     +++|          UJN    WTO1        LOOP FOR REST OF OUTPUT
03661  M01S02488.1ro     +++|
03662  M01S02489.1ro     +++| WTO2     RJM    RMA         READ FIRST PART OF ERROR MESSAGE
03663  M01S02490.1ro     +++|          LDD    CN          SET LAST SECTOR WORD COUNT
03664  M01S02491.1ro     +++|          STM    BFMS+1
03665  M01S02492.1ro     +++|          RJM    WNS         WRITE BUFFER
03666  M01S02493.1ro     +++| WTO3     RJM    RMB         READ SECOND PART OF ERROR MESSAGE
03667  M01S02494.1ro     +++|          LDD    HN          RESET SECTOR WORD COUNT
03668  M01S02495.1ro     +++|          STM    BFMS+1
03669  M01S02496.1ro     +++| WTOA     UJN    WTO4        RETURN
Line S02497 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03670  M02S02497.271l716 ---|
03671  M01S02498.1ro     +++|*         PSN                (JOB FL PRESENT)
03672  M01S02499.1ro     +++|          LDN    ZERL        BUILD OUT POINTER
03673  M01S02500.1ro     +++|          CRD    CN
Line S00723 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03674  M02S00723.273l780 ---|          AJFL               SET CELL *RA* IN CASE PCP ROLL
03675  M01S02501.1ro     +++| WTOB     LDC    **          FET ADDRESS
03676  M01S02502.1ro     +++|          ZJN    WTO4        IF NO FET ADDRESS
03677  M01S02503.1ro     +++|          ADD    RA          WRITE FET+0
03678  M01S02504.1ro     +++|          ADD    NF          ADD NFL SINCE RA HAS BEEN ADJUSTED
03679  M01S02505.1ro     +++|          SHN    6
03680  M01S02506.1ro     +++|          ADN    3           WRITE *OUT*
03681  M01S02507.1ro     +++|          CWD    OP-3
03682  M01S02508.1ro     +++| WTO4     LJM    WTOX        RETURN
03683  M01S02509.1ro     +++|          TITLE  SUBROUTINES.
Line S02510 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03684  M02S02510.271l716 ---| CIT      SPACE  4,20
Line S02511 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03685  M02S02511.271l716 ---| CIT      SPACE  4,25
03686  M01S00724.271l716 +++| CIT      SPACE  4,30
03687  M01S02512.1ro     +++|**        CIT - CALL *1TO* TO PROCESS OUTPUT.
03688  M01S02513.1ro     +++|*
03689  M01S02514.1ro     +++|*         IF OUTPUT IS AVAILABLE FOR THE TERMINAL, *1TO* WILL BE CALLED
03690  M01S02515.1ro     +++|*         INTO THIS PP.  IF A *1TO* CALL IS NOT REQUIRED, A NULL OUTPUT
03691  M01S02516.1ro     +++|*         REQUEST WILL BE ISSUED FOR THE TERMINAL AS A SIGNAL TO *IAF*
03692  M01S02517.1ro     +++|*         THAT THE ROLLOUT IS COMPLETE.
03693  M01S00725.271l716 +++|*
03694  M01S00726.271l716 +++|*         IF THIS IS A COMPOUND ROLLOUT AND TERMINAL OUTPUT IS
03695  M01S00727.271l716 +++|*         AVAILABLE, THE TERMINAL NUMBER WILL BE STORED INTO THE
03696  M01S00728.271l716 +++|*         *1RO* INPUT REGISTER IMAGE IN CM.  WHEN THE PSEUDO-ROLLOUT
03697  M01S00729.271l716 +++|*         COMPLETES, *1RO* WILL CALL *1TO* TO PROCESS THE TERMINAL
03698  M01S00730.271l716 +++|*         OUTPUT FOR THE PCP JOB.
03699  M01S02518.1ro     +++|*
03700  M01S02519.1ro     +++|*         ENTRY  (TERA) = OUTPUT STATUS.
03701  M01S02520.1ro     +++|*                (TERE - TERE+4) = FORMATTED *1TO* CALL
03702  M01S02521.1ro     +++|*                (TN) = TERMINAL NUMBER.
03703  M01S02522.1ro     +++|*
03704  M01S02523.1ro     +++|*         EXIT   *TSEM/VASO* MONITOR REQUEST ISSUED TO SIGNAL
03705  M01S02524.1ro     +++|*                ROLLOUT COMPLETION IF *1TO* IS NOT REQUIRED.
Line S02525 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03706  M02S02525.271l716 ---|*                (A) = ZERO IF *1TO* NOT REQUIRED.
Line S02526 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03707  M02S02526.271l716 ---|*                    = NONZERO IF *1TO* CALL IS REQUIRED.
03708  M01S00731.271l716 +++|*                (A) = 0 IF PP MAY BE DROPPED.
03709  M01S00732.271l716 +++|*                (A) .NE. 0 IF EITHER *1TO* IS TO BE CALLED INTO THIS
03710  M01S00733.271l716 +++|*                           PP TO PROCESS TERMINAL OUTPUT OR *1RO* IS
03711  M01S00734.271l716 +++|*                           TO BE CALLED INTO THIS PP TO COMPLETE A
03712  M01S00735.271l716 +++|*                           COMPOUND ROLLOUT.
03713  M01S02527.1ro     +++|*
Line S02528 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03714  M02S02528.271l716 ---|*         USES   CM+1.
03715  M01S00736.271l716 +++|*         USES   CM+1, IR+2, IR+3.
03716  M01S02529.1ro     +++|*
03717  M01S02530.1ro     +++|*         CALLS  ITF.
03718  M01S02531.1ro     +++|*
03719  M01S02532.1ro     +++|*         MACROS MONITOR.
03720  M01S02533.1ro     +++|
03721  M01S02534.1ro     +++|
Line S02535 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03722  M02S02535.271l716 ---| CIT4     LDD    IA          PLACE *1TO* CALL IN PP INPUT REGISTER
Line S02536 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03723  M02S02536.271l716 ---|          CWM    TERE,ON
Line S02537 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03724  M02S02537.271l716 ---|          LDN    /REM/VCPT   CHANGE CONTROL POINTS
Line S00737 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03725  M02S00737.273l780 ---| CIT1     LDM    ROJL
03726  M01S00210.273l780 +++| CIT1     LDM    CPCA
03727  M01S00738.271l716 +++|          ZJN    CIT2        IF NOT COMPOUND ROLLOUT
03728  M01S00739.271l716 +++|          SOD    IR+2        SET FUNCTION CODE 2
03729  M01S00740.271l716 +++|          LDD    TN          SAVE TERMINAL NUMBER
03730  M01S00741.271l716 +++|          STD    IR+3
03731  M01S00742.271l716 +++|          LDD    IA          UPDATE PP INPUT REGISTER
03732  M01S00743.271l716 +++|          CWD    IR
03733  M01S00744.271l716 +++|          AOD    IR+2        RESET ORIGINAL FUNCTION CODE
03734  M01S00745.271l716 +++|          UJN    CITX        EXIT WITH (A) .NE. 0
03735  M01S00746.271l716 +++|
03736  M01S00747.271l716 +++| CIT2     LDN    /REM/VCPT   MOVE TO *IAF* CP
03737  M01S02538.1ro     +++|          STD    CM+1
03738  M01S02539.1ro     +++|          MONITOR  CCAM
03739  M01S02540.1ro     +++|          LDD    CM+1
03740  M01S02541.1ro     +++|          LMN    /REM/VCPT   (A) = 0 IF CHANGE NOT MADE
03741  M01S00748.271l716 +++|          ZJN    CITX        IF CHANGE NOT MADE
03742  M01S00749.271l716 +++|          LDD    IA          PLACE *1TO* CALL IN INPUT REGISTER
03743  M01S00750.271l716 +++|          CWM    TERE,ON
03744  M01S02542.1ro     +++|
03745  M01S02543.1ro     +++| CIT      SUBR               ENTRY/EXIT
03746  M01S02544.1ro     +++|          LDD    TN          SET TERMINAL NUMBER IN CALLS
03747  M01S02545.1ro     +++|          STM    TERE+4
03748  M01S02546.1ro     +++|          STM    CITA+4
03749  M01S02547.1ro     +++|          LDM    TERA        CHECK FOR OUTPUT AVAILABLE
03750  M01S02548.1ro     +++|          SHN    21-4
Line S02549 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03751  M02S02549.271l716 ---|          MJN    CIT4        IF OUTPUT AVAILABLE
03752  M01S00751.271l716 +++|          MJP    CIT1        IF OUTPUT AVAILABLE
03753  M01S02550.1ro     +++|
03754  M01S02551.1ro     +++|*         ISSUE NULL OUTPUT TO SIGNAL ROLLOUT COMPLETION.
03755  M01S02552.1ro     +++|
03756  M01S02553.1ro     +++|          LDD    MA          WRITE FUNCTION TO MESSAGE BUFFER
03757  M01S02554.1ro     +++|          CWM    CITA,ON
03758  M01S02555.1ro     +++|          RJM    ITF         ISSUE *TSEM* FUNCTION
Line S02556 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03759  M02S02556.271l716 ---| CIT3     LDN    0
Line S02557 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03760  M02S02557.271l716 ---|          LJM    CITX        RETURN WITH (A) = 0
Line S00752 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03761  M02S00752.273l780 ---|          LDM    ROJL
03762  M01S00211.273l780 +++|          LDM    CPCA
03763  M01S00753.271l716 +++|          UJP    CITX        EXIT WITH (A) NONZERO IF COMPOUND ROLLOUT
03764  M01S02558.1ro     +++|
03765  M01S02559.1ro     +++| CITA     CON    /REM/VASO   OUTPUT FUNCTION
03766  M01S02560.1ro     +++|          CON    0,0,0       NULL PARAMETERS
03767  M01S02561.1ro     +++|          CON    0           TERMINAL NUMBER
03768  M01S02562.1ro     +++| RDA      SPACE  4,10
03769  M01S02563.1ro     +++|**        RDA - READ DATA FOR TERMINAL OUTPUT.
03770  M01S02564.1ro     +++|*
03771  M01S02565.1ro     +++|*         ENTRY  (SC) = SECTOR COUNT.
03772  M01S02566.1ro     +++|*                (SLIM) = SECTOR COUNT TO LIMIT.
03773  M01S02567.1ro     +++|*                (OP - OP+1) = OUT POINTER.
03774  M01S02568.1ro     +++|*
03775  M01S02569.1ro     +++|*         EXIT   (SC), (SLIM), (OP - OP+1) UPDATED.
03776  M01S02570.1ro     +++|*
03777  M01S02571.1ro     +++|*         USES   CN - CN+2, SC, OP - OP+1.
Line S00754 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03778  M02S00754.273l780 ---|*
Line S00755 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03779  M02S00755.273l780 ---|*         MACROS AJFL.
03780  M01S02572.1ro     +++|
03781  M01S02573.1ro     +++|
03782  M01S02574.1ro     +++| RDA      SUBR
Line S00756 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03783  M02S00756.273l780 ---|          AJFL               SET CELL *RA* IN CASE PCP ROLL
03784  M01S02575.1ro     +++|          LDD    HN          PRESET SECTOR WORD COUNT
03785  M01S02576.1ro     +++|          STD    CN
03786  M01S02577.1ro     +++|          SOD    SC          DECREMENT SECTOR COUNT
03787  M01S02578.1ro     +++|          NJN    RDA1        IF NOT LAST SECTOR
03788  M01S02579.1ro     +++|          LDC    0           SET LAST SECTOR WORD COUNT (CKO)
03789  M01S02580.1ro     +++| RDAA     EQU    *-1
03790  M01S02581.1ro     +++|          STD    CN
03791  M01S02582.1ro     +++|          ZJN    RDAX        IF LAST SECTOR EMPTY
03792  M01S02583.1ro     +++| RDA1     SOM    SLIM        DECREASE SECTORS TO LIMIT COUNT
03793  M01S02584.1ro     +++|          MJN    RDA3        IF LIMIT REACHED
03794  M01S02585.1ro     +++|          LDD    OP          READ BUFFER
03795  M01S02586.1ro     +++|          SHN    6
03796  M01S02587.1ro     +++|          ADD    RA
03797  M01S02588.1ro     +++|          PSN
03798  M01S02589.1ro     +++|*         ADD    NF          (*RDA* CALLED BY *WTO*)
03799  M01S02590.1ro     +++| RDAB     EQU    *-1
03800  M01S02591.1ro     +++|          SHN    6
03801  M01S02592.1ro     +++|          ADD    OP+1
03802  M01S02593.1ro     +++|          CRM    OBUF+2,CN
03803  M01S02594.1ro     +++| RDAC     EQU    *-1         (RFO)
03804  M01S02595.1ro     +++| RDA2     LDD    CN          ADVANCE OUT
03805  M01S02596.1ro     +++|          RAD    OP+1
03806  M01S02597.1ro     +++|          SHN    -14
03807  M01S02598.1ro     +++|          RAD    OP
03808  M01S02599.1ro     +++|          UJN    RDAX        RETURN
03809  M01S02600.1ro     +++|
03810  M01S02601.1ro     +++| RDA3     LDC    100         SET WRAP AROUND WORD COUNTS
03811  M01S02602.1ro     +++| RDAD     EQU    *-1
03812  M01S02603.1ro     +++|          STD    CN+1
03813  M01S02604.1ro     +++|          LDD    OP          READ FIRST PART
03814  M01S02605.1ro     +++|          SHN    6
03815  M01S02606.1ro     +++|          ADD    RA
03816  M01S02607.1ro     +++|          PSN
03817  M01S02608.1ro     +++|*         ADD    NF          (*RDA* CALLED BY *WTO*)
03818  M01S02609.1ro     +++| RDAE     EQU    *-1
03819  M01S02610.1ro     +++|          SHN    6
03820  M01S02611.1ro     +++|          ADD    OP+1
03821  M01S02612.1ro     +++|          CRM    OBUF+2,CN+1
03822  M01S02613.1ro     +++| RDAF     EQU    *-1         (RFO)
03823  M01S02614.1ro     +++|          LDD    CN
03824  M01S02615.1ro     +++|          SBD    CN+1
03825  M01S02616.1ro     +++|          MJN    RDA2        IF NOT WRAP AROUND
03826  M01S02617.1ro     +++|          STD    CN+2        SET SECOND PART WORD COUNT
03827  M01S02618.1ro     +++|          ZJN    RDA4        IF SECOND PART ZERO
03828  M01S02619.1ro     +++|          LDD    CN+1        SET WRAP AROUND BUFFER POSITION
03829  M01S02620.1ro     +++|          SHN    2
03830  M01S02621.1ro     +++|          ADD    CN+1
03831  M01S02622.1ro     +++|          RAM    RDAI
03832  M01S02623.1ro     +++| RDAG     LDC    *           READ SECOND PART (CKO)
03833  M01S02624.1ro     +++|          SHN    14
03834  M01S02625.1ro     +++|          ADD    RA
03835  M01S02626.1ro     +++|          PSN
03836  M01S02627.1ro     +++|*         ADD    NF          (*RDA* CALLED BY *WTO*)
03837  M01S02628.1ro     +++| RDAH     EQU    *-1
03838  M01S02629.1ro     +++|          SHN    6
03839  M01S02630.1ro     +++|          CRM    OBUF+2,CN+2
03840  M01S02631.1ro     +++| RDAI     EQU    *-1         (RFO, RDA)
03841  M01S02632.1ro     +++| RDA4     LDC    *           RESET OUT
03842  M01S02633.1ro     +++| RDAJ     EQU    *-2
03843  M01S02634.1ro     +++|          ADD    CN+2
03844  M01S02635.1ro     +++|          STD    OP+1
03845  M01S02636.1ro     +++|          SHN    -14
03846  M01S02637.1ro     +++|          STD    OP
03847  M01S02638.1ro     +++|          LJM    RDAX        RETURN
03848  M01S02639.1ro     +++|
03849  M01S02640.1ro     +++| SLIM     CON    0           SECTORS TO LIMIT
03850  M01S02641.1ro     +++| RMA      SPACE  4,10
03851  M01S02642.1ro     +++|**        RMA - READ ERROR MESSAGE.
03852  M01S02643.1ro     +++|*
03853  M01S02644.1ro     +++|*         ENTRY  (CN) = SECTOR COUNT.
03854  M01S02645.1ro     +++|*
03855  M01S02646.1ro     +++|*         EXIT   (CN) UPDATED.
03856  M01S02647.1ro     +++|*
03857  M01S02648.1ro     +++|*         USES   T0, T1, CN.
Line S00757 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03858  M02S00757.273l780 ---|*
Line S00758 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03859  M02S00758.273l780 ---|*         MACROS LCPA.
03860  M01S02649.1ro     +++|
03861  M01S02650.1ro     +++|
03862  M01S02651.1ro     +++| RMA      SUBR               ENTRY/EXIT
03863  M01S02652.1ro     +++| RMAA     LDN    0           (CEM)
03864  M01S02653.1ro     +++|          ZJN    RMAX        IF NO MESSAGE
03865  M01S02654.1ro     +++|          STD    T1
03866  M01S02655.1ro     +++|          RAD    CN          INCREMENT SECTOR WORD COUNT
03867  M01S02656.1ro     +++|          SBD    T1          SET BUFFER POSITION
03868  M01S02657.1ro     +++|          STD    T0
03869  M01S02658.1ro     +++|          SHN    2
03870  M01S02659.1ro     +++|          ADD    T0
03871  M01S02660.1ro     +++|          RAM    RMAB
Line S02661 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03872  M02S02661.271l716 ---|          LDD    CP
Line S02662 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03873  M02S02662.271l716 ---|          ADN    MS1W
Line S00759 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03874  M02S00759.273l780 ---|          LCPA   MS1W
03875  M01S00212.273l780 +++|          TLDC   MS1W,CPAD
03876  M01S02663.1ro     +++|          CRM    OBUF+2,T1
03877  M01S02664.1ro     +++| RMAB     EQU    *-1         (CKO, RFO)
03878  M01S02665.1ro     +++|          UJN    RMAX
03879  M01S02666.1ro     +++| RMB      SPACE  4,10
03880  M01S02667.1ro     +++|**        RMB - READ SECOND PART OF ERROR MESSAGE
03881  M01S02668.1ro     +++|*
03882  M01S02669.1ro     +++|*         USES   T1, T2.
03883  M01S02670.1ro     +++|*
03884  M01S02671.1ro     +++|*         CALLS  WNS.
Line S00760 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03885  M02S00760.273l780 ---|*
Line S00761 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03886  M02S00761.273l780 ---|*         MACROS LCPA.
03887  M01S02672.1ro     +++|
03888  M01S02673.1ro     +++|
03889  M01S02674.1ro     +++| RMB      SUBR               ENTRY/EXIT
03890  M01S02675.1ro     +++| RMBA     LDC    0           (CEM)
03891  M01S02676.1ro     +++|          ZJN    RMBX        IF NO ERROR MESSAGE
03892  M01S02677.1ro     +++|          STD    T1
03893  M01S02678.1ro     +++|          STM    BFMS+1      SET SECTOR WORD COUNT
03894  M01S02679.1ro     +++|          SHN    -14
03895  M01S02680.1ro     +++|          STD    T2
03896  M01S02681.1ro     +++|          LDD    T1
03897  M01S02682.1ro     +++|          ZJN    RMB1        IF NO SECOND PART OF MESSAGE
Line S02683 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03898  M02S02683.271l716 ---|          LDD    CP
Line S02684 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03899  M02S02684.271l716 ---|          ADN    MS1W
Line S00762 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03900  M02S00762.273l780 ---|          LCPA   MS1W
03901  M01S00213.273l780 +++|          TLDC   MS1W,CPAD
03902  M01S02685.1ro     +++|          ADD    T2
03903  M01S02686.1ro     +++|          CRM    BFMS+2,T1
03904  M01S02687.1ro     +++| RMB1     LDC    BFMS        WRITE SHORT SECTOR
03905  M01S02688.1ro     +++|          RJM    WNS
03906  M01S02689.1ro     +++|          UJN    RMBX        RETURN
03907  M01S02690.1ro     +++|          SPACE  4,10
03908  M01S02691.1ro     +++|          USE    BUFFER
03909  M01S02692.1ro     +++|
03910  M01S02693.1ro     +++|
03911  M01S02694.1ro     +++|          ERRNG  OBUF-*
Line S02695 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03912  M02S02695.273l780 ---| CKO      TITLE  ROUTINES OVERLAYED BY *OBUF*.
03913  M01S00214.273l780 +++|          TITLE  ROUTINES OVERLAYED BY *OBUF*.
03914  M01S00215.273l780 +++| CKO      SPACE  4,10
03915  M01S02696.1ro     +++|**        CKO - CHECK TERMINAL INPUT AND OUTPUT.
03916  M01S02697.1ro     +++|*
03917  M01S02698.1ro     +++|*         EXIT   (OP - OP+1) = OUTPUT DATA POINTER.
03918  M01S02699.1ro     +++|*                (SC) = SECTOR COUNT OF OUTPUT BUFFER.
03919  M01S02700.1ro     +++|*
Line S02701 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03920  M02S02701.273l780 ---|*         USES   CM - CM+7, CN - CN+4, T1.
03921  M01S00216.273l780 +++|*         USES   T1, T8, T9, SC, CM - CM+4.
03922  M01S02702.1ro     +++|*
03923  M01S02703.1ro     +++|*         CALLS  ANR, CBP, CEM, SIO, VAD.
Line S00763 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03924  M02S00763.273l780 ---|*
Line S00764 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03925  M02S00764.273l780 ---|*         MACROS AJFL, LCPA.
03926  M01S02704.1ro     +++|
03927  M01S02705.1ro     +++|
03928  M01S02706.1ro     +++| CKO      SUBR               ENTRY/EXIT
Line S02707 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03929  M02S02707.271l716 ---|          LDD    CP          CHECK FOR INPUT POINTER SET
Line S02708 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03930  M02S02708.271l716 ---|          ADN    TINW
Line S00765 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03931  M02S00765.273l780 ---|          AJFL               SET CELLS *RA* AND *FL* IN CASE PCP ROLL
Line S00766 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03932  M02S00766.273l780 ---|          LCPA   TINW        CHECK FOR INPUT FET POINTER SET
03933  M01S00217.273l780 +++|          TLDC   TINW,CPAD   CHECK FOR INPUT FET POINTER SET
03934  M01S02709.1ro     +++|          CRD    CM
03935  M01S02710.1ro     +++|          LDD    CM+3
03936  M01S02711.1ro     +++|          SCN    77
03937  M01S02712.1ro     +++|          SHN    6
03938  M01S02713.1ro     +++|          ADD    CM+2
03939  M01S02714.1ro     +++|          SHN    6
03940  M01S02715.1ro     +++|          ZJN    CKO1        IF NO INPUT REQUEST
Line S02716 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro28
Seq #  *Modification Id* Act 
----------------------------+
03941  M02S02716.1ro28   ---|          LDD    IR+4
03942  M01S00003.1ro28   +++|          LDC    0
03943  M01S00004.1ro28   +++| INEF     EQU    *-1         (INTERACTIVE ERROR FLAG)
03944  M01S02717.1ro     +++|          NJN    CKO1        IF ERROR FLAG
03945  M01S02718.1ro     +++|          LDN    /REM/VIPR   SET INPUT REQUESTED
03946  M01S02719.1ro     +++|          RAM    TERA
Line S02720 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03947  M02S02720.271l716 ---| CKO1     LDD    CP          CHECK IF OUTPUT FET POINTER SET
Line S02721 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03948  M02S02721.271l716 ---|          ADN    TIOW
Line S00767 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03949  M02S00767.273l780 ---| CKO1     LCPA   TIOW        CHECK IF OUTPUT FET POINTER SET
03950  M01S00218.273l780 +++| CKO1     TLDC   TIOW,CPAD   CHECK IF OUTPUT FET POINTER SET
03951  M01S02722.1ro     +++|          CRD    T8-3
03952  M01S02723.1ro     +++|          LDD    T8
03953  M01S02724.1ro     +++|          LPN    37
03954  M01S02725.1ro     +++|          STD    T8
03955  M01S02726.1ro     +++|          SHN    14
03956  M01S02727.1ro     +++|          ADD    T9
03957  M01S02728.1ro     +++|          NJN    CKO6        IF EXPLICIT OUTPUT REQUEST
03958  M01S02729.1ro     +++|          LDN    PSNI
03959  M01S02730.1ro     +++|          STM    ANRA        OUTPUT ONLY COMPLETE LINES
03960  M01S02731.1ro     +++|          RJM    SIO         SEARCH FOR IMPLICIT OUTPUT
03961  M01S02732.1ro     +++|          NJN    CKO7        IF OUTPUT FOUND
03962  M01S02733.1ro     +++| CKO2     LDN    0           CLEAR SECTOR COUNT
03963  M01S02734.1ro     +++|          STD    SC
03964  M01S02735.1ro     +++|          AOM    RMSA        ALLOW FOR ZERO LENGTH OUTPUT SECTOR
Line S02736 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro28
Seq #  *Modification Id* Act 
----------------------------+
03965  M02S02736.1ro28   ---| CKO3     LDD    IR+4
03966  M01S00005.1ro28   +++| CKO3     LDM    INEF
03967  M01S02737.1ro     +++|          NJN    CKO4        IF ERROR FLAG
Line S02738 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03968  M02S02738.271l716 ---|          LDM    ROJH
03969  M01S00768.271l716 +++|          LDM    CPAB
03970  M01S02739.1ro     +++|          LPN    1
03971  M01S02740.1ro     +++|          NJN    CKO5        IF JOB ACTIVITY
03972  M01S02741.1ro     +++| CKO4     RJM    CEM         CHECK FOR ERROR MESSAGES
03973  M01S02742.1ro     +++| CKO5     LJM    CKOX        RETURN
03974  M01S02743.1ro     +++|
03975  M01S02744.1ro     +++|*         PROCESS OUTPUT.
03976  M01S02745.1ro     +++|
03977  M01S02746.1ro     +++| CKO6     RJM    VAD         READ FET+0
03978  M01S02747.1ro     +++|          CRM    TFET,ON
03979  M01S02748.1ro     +++| CKO7     RJM    CBP         CHECK BUFFER PARAMETERS
03980  M01S02749.1ro     +++|          NJP    CKO2        IF INVALID FET
03981  M01S02750.1ro     +++|          LDD    T8          SET UP TO UPDATE FET
03982  M01S02751.1ro     +++|          LPN    37
03983  M01S02752.1ro     +++|          SHN    14
03984  M01S02753.1ro     +++|          LMD    T9
03985  M01S02754.1ro     +++|          SHN    14
03986  M01S02755.1ro     +++|          STM    MSRE+1
03987  M01S02756.1ro     +++|          STM    WTOB+1
03988  M01S02757.1ro     +++|          SHN    -14
03989  M01S02758.1ro     +++|          STM    MSRE
03990  M01S02759.1ro     +++|          RAM    WTOB
03991  M01S02760.1ro     +++|          RJM    ANR         ASSURE NETWORK REQUIREMENTS
03992  M01S02761.1ro     +++|          LDD    CN+3        LENGTH = IN - OUT
03993  M01S02762.1ro     +++|          SBD    OP
03994  M01S02763.1ro     +++|          SHN    14
03995  M01S02764.1ro     +++|          ADD    CN+4
03996  M01S02765.1ro     +++|          SBD    OP+1
03997  M01S02766.1ro     +++|          PJN    CKO8        IF IN .GE. OUT
03998  M01S02767.1ro     +++|          SHN    6           LENGTH = (LIMIT - OUT) + (IN - FIRST)
03999  M01S02768.1ro     +++|          ADD    CM+1
04000  M01S02769.1ro     +++|          SBD    T7
04001  M01S02770.1ro     +++|          SHN    14
04002  M01S02771.1ro     +++|          ADD    CM+2
04003  M01S02772.1ro     +++|          SBD    CM
04004  M01S02773.1ro     +++| CKO8     STD    T1          SAVE LENGTH
04005  M01S02774.1ro     +++|          SHN    -6
04006  M01S02775.1ro     +++|          ADN    1           ALLOW FOR EOR SECTOR
04007  M01S02776.1ro     +++|          STD    SC
04008  M01S02777.1ro     +++|          LDD    T1          SET LAST SECTOR WORD COUNT
04009  M01S02778.1ro     +++|          LPN    77
04010  M01S02779.1ro     +++|          STM    RDAA
04011  M01S02780.1ro     +++|          LDD    CM+1        WORD COUNT TO LIMIT = LIMIT - OUT
04012  M01S02781.1ro     +++|          SBD    OP
04013  M01S02782.1ro     +++|          SHN    14
04014  M01S02783.1ro     +++|          ADD    CM+2
04015  M01S02784.1ro     +++|          SBD    OP+1
04016  M01S02785.1ro     +++|          STD    T1          SAVE WORDS TO LIMIT
04017  M01S02786.1ro     +++|          SBN    1
04018  M01S02787.1ro     +++|          SHN    -6          STORE SECTORS TO LIMIT
04019  M01S02788.1ro     +++|          STM    SLIM
04020  M01S02789.1ro     +++|          LDD    T1          CHECK WORD COUNT TO LIMIT
04021  M01S02790.1ro     +++|          LPN    77
04022  M01S02791.1ro     +++|          ZJN    CKO9        IF FULL SECTOR
04023  M01S02792.1ro     +++|          STM    RDAD        SET WORD COUNT OF FIRST PART
04024  M01S02793.1ro     +++| CKO9     LDD    CM          SET FIRST
04025  M01S02794.1ro     +++|          STM    RDAG+1
04026  M01S02795.1ro     +++|          STM    RDAJ+1
04027  M01S02796.1ro     +++|          LDD    T7
04028  M01S02797.1ro     +++|          RAM    RDAG
04029  M01S02798.1ro     +++|          STM    RDAJ
04030  M01S02799.1ro     +++|          LJM    CKO3        CHECK ERROR
Line S02800 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04031  M02S02800.273l780 ---| ANR      SPACE  4,20
04032  M01S00219.273l780 +++| ANR      SPACE  4,25
04033  M01S02801.1ro     +++|**        ANR - ASSURE NETWORK REQUIREMENTS.
04034  M01S02802.1ro     +++|*
04035  M01S02803.1ro     +++|*         ENTRY  (TERA) = BIT *VIPR* SET IF INPUT REQUEST.
04036  M01S02804.1ro     +++|*                (TFET+4) = FET REQUEST CODE.
04037  M01S02805.1ro     +++|*                (JFLC) = JOB ACTIVITY (ZERO IF END OF JOB)
04038  M01S02806.1ro     +++|*                (T7 - CM) = FIRST.
04039  M01S02807.1ro     +++|*                (CN+3 - CN+4) = IN.
04040  M01S02808.1ro     +++|*                (OP - OP+1) = OUT.
04041  M01S02809.1ro     +++|*                (CM+1 - CM+2) = LIMIT.
04042  M01S02810.1ro     +++|*
04043  M01S02811.1ro     +++|*         EXIT   BUFFER ACCEPTED AS-IS IF ANY OF- INPUT REQUEST, BUFFER
04044  M01S02812.1ro     +++|*                FULL AND NO END-OF-LINE, WRITE EOR/EOF, OR END OF JOB.
04045  M01S02813.1ro     +++|*                IF NOT ONE OF THE ABOVE SPECIAL CASES,
04046  M01S02814.1ro     +++|*                (CN+3 - CN+4) IS ALTERED TO ENCOMPASS ALL TERMINATED
04047  M01S02815.1ro     +++|*                DATA LINES IN THE BUFFER.  A LINE FRAGMENT WILL NOT BE
04048  M01S02816.1ro     +++|*                SENT TO THE TERMINAL IN THIS CASE.
04049  M01S02817.1ro     +++|*
Line S02818 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04050  M02S02818.273l780 ---|*         USES   T1 - T4, ZR - ZR+4.
04051  M01S00220.273l780 +++|*         USES   CN+3 - CN+4, T1 - T4, ZR - ZR+4.
04052  M01S00769.271l716 +++|*
Line S00770 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04053  M02S00770.273l780 ---|*         MACROS AJFL, ISTORE.
Line S00221 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
04054  M02S00221.ns2748  ---|*         CALLS  GMX.
04055  M01S00019.ns2748  +++|*         CALLS  GMX, RRR, SRR.
04056  M01S00222.273l780 +++|*
04057  M01S00223.273l780 +++|*         MACROS ISTORE.
04058  M01S02819.1ro     +++|
04059  M01S02820.1ro     +++|
04060  M01S02821.1ro     +++| ANR      SUBR               ENTRY/EXIT
04061  M01S02822.1ro     +++|          LDM    TERA        CHECK INPUT REQUESTED
04062  M01S02823.1ro     +++|          LPN    /REM/VIPR
04063  M01S02824.1ro     +++|          NJN    ANRX        IF INPUT REQUESTED, RETURN
Line S02825 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04064  M02S02825.271l716 ---|          LDM    ROJH
04065  M01S00771.271l716 +++|          LDM    CPAB
04066  M01S02826.1ro     +++|          LPN    1
04067  M01S02827.1ro     +++|          ZJN    ANRX        IF END OF JOB STEP
04068  M01S02828.1ro     +++|          LDM    TFET+4
04069  M01S02829.1ro     +++|          LPC    774
04070  M01S02830.1ro     +++|          LMN    14
04071  M01S02831.1ro     +++| ANRA     NJN    ANRX        IF NOT BUFFERED WRITE
04072  M01S02832.1ro     +++|*         PSN                (IMPLICIT OUTPUT)
Line S00772 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04073  M02S00772.273l780 ---|          AJFL               SET CELL *RA* IN CASE PCP ROLL
04074  M01S02833.1ro     +++|          LDD    CN+3        IN
04075  M01S02834.1ro     +++|          STD    T1
04076  M01S02835.1ro     +++|          STD    T3
04077  M01S02836.1ro     +++|          LDD    CN+4
04078  M01S02837.1ro     +++|          STD    T2
04079  M01S02838.1ro     +++|          STD    T4
04080  M01S02839.1ro     +++|          UJP    ANR4        CHECK IF EMPTY BUFFER
04081  M01S02840.1ro     +++|
04082  M01S02841.1ro     +++| ANR1     SOD    T2          IN-1
04083  M01S02842.1ro     +++|          PJN    ANR2        IF NO BORROW FROM BITS 14 - 21
04084  M01S02843.1ro     +++|          AOD    T2
04085  M01S02844.1ro     +++|          SOD    T1
04086  M01S02845.1ro     +++| ANR2     LDD    T1          CHECK IN-1 .GE. FIRST
04087  M01S02846.1ro     +++|          SBD    T7
04088  M01S02847.1ro     +++|          SHN    14
04089  M01S02848.1ro     +++|          ADD    T2
04090  M01S02849.1ro     +++|          SBD    T7+1
04091  M01S02850.1ro     +++|          PJN    ANR3        IF IN-1 .GE. FIRST
04092  M01S02851.1ro     +++|          LDD    CM+1        SET WORKING IN = LIMIT
04093  M01S02852.1ro     +++|          STD    T1
04094  M01S02853.1ro     +++|          LDD    CM+2
04095  M01S02854.1ro     +++|          STD    T2
04096  M01S02855.1ro     +++|          UJN    ANR1        REPEAT FOR BUFFER POINTER WRAP-AROUND
04097  M01S02856.1ro     +++|
04098  M01S02857.1ro     +++| ANR3     LDD    T1
04099  M01S02858.1ro     +++|          SHN    6
04100  M01S02859.1ro     +++|          ADD    RA
04101  M01S02860.1ro     +++|          SHN    6
04102  M01S02861.1ro     +++|          ADD    T2
04103  M01S02862.1ro     +++|          CRD    ZR
04104  M01S02863.1ro     +++|          LDD    ZR+4        CHECK FOR END-OF-LINE
04105  M01S02864.1ro     +++|          ZJP    ANR5.1      IF END OF LINE FOUND IN BUFFER
04106  M01S02865.1ro     +++|          LDD    T1          DECREMENT IN FOR EXIT CONDITION
04107  M01S02866.1ro     +++|          STD    CN+3
04108  M01S02867.1ro     +++|          LDD    T2
04109  M01S02868.1ro     +++|          STD    CN+4
04110  M01S02869.1ro     +++|          PSN
04111  M01S02870.1ro     +++|*         UJN    ANR4        (ALLOW ONLY ONE PASS THROUGH THIS CODE)
04112  M01S02871.1ro     +++| ANRB     EQU    *-1
04113  M01S02872.1ro     +++|          ISTORE  ANRB,(UJN ANR4)
04114  M01S02873.1ro     +++|          LDD    T1
04115  M01S02874.1ro     +++|          RAM    ANRC-1
04116  M01S02875.1ro     +++|          LDD    T2
04117  M01S02876.1ro     +++|          STM    ANRC
04118  M01S02877.1ro     +++| ANR4     SBD    OP+1        CHECK FOR IN .NE. OUT
04119  M01S02878.1ro     +++|          SHN    6
04120  M01S02879.1ro     +++|          ADD    CN+3
04121  M01S02880.1ro     +++|          SBD    OP
04122  M01S02881.1ro     +++|          NJP    ANR1        IF IN .NE. OUT, CONTINUE SEARCH
04123  M01S02882.1ro     +++|
04124  M01S02883.1ro     +++|*         CHECK INITIAL BUFFER CONDITIONS BY COMPUTING LENGTH AVAILABLE
04125  M01S02884.1ro     +++|*         FOR A WRITE INTO THE BUFFER.
04126  M01S02885.1ro     +++|
04127  M01S02886.1ro     +++|          LDD    OP          LENGTH = OUT - IN
04128  M01S02887.1ro     +++|          SBD    T3
04129  M01S02888.1ro     +++|          SHN    14
04130  M01S02889.1ro     +++|          ADD    OP+1
04131  M01S02890.1ro     +++|          SBD    T4
04132  M01S02891.1ro     +++|          PJN    ANR5        IF OUT .GE. IN
04133  M01S02892.1ro     +++|          SHN    6           LENGTH = (LIMIT-FIRST)-(IN-OUT)
04134  M01S02893.1ro     +++|          ADD    CM+1
04135  M01S02894.1ro     +++|          SBD    T7
04136  M01S02895.1ro     +++|          SHN    14
04137  M01S02896.1ro     +++|          ADD    CM+2
04138  M01S02897.1ro     +++|          SBD    T7+1
04139  M01S02898.1ro     +++| ANR5     SBN    1
04140  M01S02899.1ro     +++|          ZJN    ANR5.2      IF BUFFER WAS FULL INITIALLY
04141  M01S02900.1ro     +++|
04142  M01S02901.1ro     +++|*         CHECK THE TERMINAL CLASS TO SEE WHETHER OR NOT THE TERMINAL
04143  M01S02902.1ro     +++|*         IS SYNCHRONOUS, ASYNCHRONOUS, OR A MUX TERMINAL.
04144  M01S02903.1ro     +++|
Line S02904 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
04145  M02S02904.ns2748  ---| ANR5.1   RJM    GMX         CHECK MULTIPLEXOR STATUS
04146  M01S00020.ns2748  +++| ANR5.1   RJM    SRR         SET R-REGISTER TO IAF RA
04147  M01S00021.ns2748  +++|          RJM    GMX         CHECK MULTIPLEXOR STATUS
04148  M01S02905.1ro     +++|          PJN    ANR6        IF MUX TERMINAL
04149  M01S02906.1ro     +++|          LDD    TA          GET ADDRESS OF *VMST* TABLE
04150  M01S02907.1ro     +++|          SHN    6
04151  M01S02908.1ro     +++|          ADN    /REM/VMST
04152  M01S02909.1ro     +++|          CRD    ZR
04153  M01S02910.1ro     +++|          LDD    ZR+1        READ TERMINAL *VMST* WORD
04154  M01S02911.1ro     +++|          SHN    6
04155  M01S02912.1ro     +++|          ADD    TA
04156  M01S02913.1ro     +++|          SHN    6
04157  M01S02914.1ro     +++|          ADD    ZR+2
04158  M01S02915.1ro     +++|          ADD    TN
04159  M01S02916.1ro     +++|          CRD    ZR
04160  M01S02917.1ro     +++|          LDD    ZR+1        CHECK FOR SYNC OR ASYNC TERMINAL
04161  M01S02918.1ro     +++|          LPC    377
04162  M01S02919.1ro     +++|          SBN    10+1        TERMINAL CLASS .LE. 8 = ASYNC LINE
04163  M01S02920.1ro     +++|          PJN    ANR6        IF SYNCHRONOUS TERMINAL
04164  M01S02921.1ro     +++|          LDC    0
04165  M01S02922.1ro     +++| ANRC     EQU    *-1
04166  M01S02923.1ro     +++|          ZJN    ANR6        IF BUFFER ENDED WITH AN EOL
04167  M01S02924.1ro     +++|          STD    T4
04168  M01S02925.1ro     +++|          SHN    -14
04169  M01S02926.1ro     +++|          STD    T3
04170  M01S02927.1ro     +++| ANR5.2   LDD    T3
04171  M01S02928.1ro     +++|          STD    CN+3
04172  M01S02929.1ro     +++|          LDD    T4
04173  M01S02930.1ro     +++|          STD    CN+4
Line S02931 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
04174  M02S02931.ns2748  ---| ANR6     LDN    ZERL        RESET (ZR - ZR+4)
04175  M01S00022.ns2748  +++| ANR6     RJM    RRR         RESTORE R-REGISTER
04176  M01S00023.ns2748  +++|          LDN    ZERL        RESET (ZR - ZR+4)
04177  M01S02932.1ro     +++|          CRD    ZR
04178  M01S02933.1ro     +++|          LJM    ANRX        RETURN
04179  M01S02934.1ro     +++| CBP      SPACE  4,15
04180  M01S02935.1ro     +++|**        CBP - CHECK BUFFER PARAMETERS.
04181  M01S02936.1ro     +++|*
04182  M01S02937.1ro     +++|*         ENTRY  (T8 - T9) = FET ADDRESS.
04183  M01S02938.1ro     +++|*
04184  M01S02939.1ro     +++|*         EXIT   (A) = 0, IF FET VALID.
04185  M01S02940.1ro     +++|*                (T7 - CM) = FIRST.
04186  M01S02941.1ro     +++|*                (CN+3 - CN+4) = IN.
04187  M01S02942.1ro     +++|*                (OP - OP+1) = OUT.
04188  M01S02943.1ro     +++|*                (CM+1 - CM+2) = LIMIT.
04189  M01S02944.1ro     +++|*
Line S02945 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04190  M02S02945.273l780 ---|*         USES   T3 - T7, CM - CM+4, CN - CN+2.
04191  M01S00224.273l780 +++|*         USES   CM - CM+4, CN+2 - CN+6, T6 - T7.
04192  M01S00773.271l716 +++|*
Line S00774 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04193  M02S00774.273l780 ---|*         MACROS AJFL, MONITOR.
04194  M01S00225.273l780 +++|*         MACROS MONITOR.
04195  M01S02946.1ro     +++|
04196  M01S02947.1ro     +++|
04197  M01S02948.1ro     +++| CBP      SUBR               ENTRY/EXIT
04198  M01S02949.1ro     +++|          LDD    T8
Line S02950 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04199  M02S02950.271l716 ---|          STD    CM+1
04200  M01S00775.271l716 +++|          STD    CM+3
04201  M01S02951.1ro     +++|          LDD    T9
Line S02952 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04202  M02S02952.271l716 ---|          STD    CM+2
Line S02953 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04203  M02S02953.271l716 ---|          LDN    3           VALIDATE ALL FET PARAMTERS
Line S02954 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04204  M02S02954.271l716 ---|          STD    CM+4
04205  M01S00776.271l716 +++|          STD    CM+4
Line S00777 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04206  M02S00777.273l780 ---|          LDD    IR+4        STORE POSSIBLE PCP NUMBER
Line S00778 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04207  M02S00778.273l780 ---|          STD    CM+2
04208  M01S00779.271l716 +++|          LDC    3           VALIDATE ALL FET PARAMETERS
Line S00780 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04209  M02S00780.273l780 ---|*         LDC    4003        (PCP ROLL)
Line S00781 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04210  M02S00781.273l780 ---| CBPA     EQU    *-1
04211  M01S00782.271l716 +++|          STD    CM+1
04212  M01S02955.1ro     +++|          MONITOR  VFPM      VERIFY FET PARAMTERS
04213  M01S02956.1ro     +++|          LDD    CM+1
04214  M01S02957.1ro     +++|          NJN    CBPX        IF BAD FET
Line S00783 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04215  M02S00783.273l780 ---|          AJFL               SET CELL *RA* IN CASE PCP ROLL
04216  M01S02958.1ro     +++|          LDD    T8          SAVE *OUT* POINTER
04217  M01S02959.1ro     +++|          SHN    6
04218  M01S02960.1ro     +++|          ADD    RA
04219  M01S02961.1ro     +++|          SHN    6
04220  M01S02962.1ro     +++|          ADD    T9
04221  M01S02963.1ro     +++|          ADN    3
04222  M01S02964.1ro     +++|          CRM    MSRF,ON
04223  M01S02965.1ro     +++|          ERRNZ  CN+5-OP     DIRECT CELLS MUST BE CONTIGOUS
04224  M01S02966.1ro     +++|          LDD    MA          READ IN AND OUT
04225  M01S02967.1ro     +++|          ADN    2
04226  M01S02968.1ro     +++|          CRD    CN+2
04227  M01S02969.1ro     +++|          ADN    1
04228  M01S02970.1ro     +++|          CRD    T6
04229  M01S02971.1ro     +++|          LDN    0           INDICATE NO ERROR
Line S02972 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04230  M02S02972.271l716 ---|          UJN    CBPX        RETURN
04231  M01S00784.271l716 +++|          UJP    CBPX        RETURN
04232  M01S02973.1ro     +++| CEM      SPACE  4,10
04233  M01S02974.1ro     +++|**        CEM - CHECK ERROR MESSAGE.
04234  M01S02975.1ro     +++|*
04235  M01S02976.1ro     +++|*         ENTRY  (TT - TT+1) = TERMINAL TABLE ADDRESS.
Line S02977 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro28
Seq #  *Modification Id* Act 
----------------------------+
04236  M02S02977.1ro28   ---|*                (IR+4) = *TXOT* ERROR FLAG.
04237  M01S00006.1ro28   +++|*                (INEF) = INTERACTIVE ERROR FLAG.
04238  M01S02978.1ro     +++|*
Line S02979 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04239  M02S02979.273l780 ---|*         USES   T0 - T2, CN - CN+4, CM - CM+4.
04240  M01S00226.273l780 +++|*         USES   CM - CM+4, CN - CN+4, T1 - T2.
04241  M01S00785.271l716 +++|*
Line S00786 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04242  M02S00786.273l780 ---|*         MACROS LCPA, MONITOR.
Line S00227 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
04243  M02S00227.ns2748  ---|*         CALLS  TSM.
04244  M01S00024.ns2748  +++|*         CALLS  RRR, SRR, TSM.
04245  M01S00228.273l780 +++|*
04246  M01S00229.273l780 +++|*         MACROS MONITOR.
04247  M01S02980.1ro     +++|
04248  M01S02981.1ro     +++|
04249  M01S02982.1ro     +++| CEM      SUBR               ENTRY/EXIT
04250  M01S00025.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
Line S02983 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04251  M02S02983.ns2685  ---|          LDN    MS2W-MS1W   FIND LENGTH OF MESSAGE
Line S02984 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04252  M02S02984.ns2685  ---|          STD    T1
Line S02985 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
M03 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04253  M03S02985.ns2685  ---|          LDD    CP
Line S02986 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
M03 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04254  M03S02986.ns2685  ---|          ADN    MS1W
Line S00787 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04255  M02S00787.ns2685  ---|          LCPA   MS1W
Line S02987 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04256  M02S02987.ns2685  ---|          CRM    BFMS,T1
04257  M01S02988.1ro     +++|          LDN    0           INITIALIZE MESSAGE WORD COUNT
04258  M01S02989.1ro     +++|          STD    T2
04259  M01S02990.1ro     +++|          LDD    TT          GET SYSTEM
04260  M01S02991.1ro     +++|          SHN    14
04261  M01S02992.1ro     +++|          ADD    TT+1
04262  M01S02993.1ro     +++|          ADN    /REM/VSTT
04263  M01S02994.1ro     +++|          CRD    CM
04264  M01S00026.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
04265  M01S02995.1ro     +++|          LDD    CM+3
04266  M01S02996.1ro     +++|          LPN    77
04267  M01S02997.1ro     +++|          STD    CM
04268  M01S00056.ns2685  +++|
04269  M01S00057.ns2685  +++|*         DETERMINE IF STATUS MESSAGE TO BE ISSUED TO TERMINAL.
04270  M01S00058.ns2685  +++|
Line S02998 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04271  M02S02998.271l716 ---|          LDD    CP          CHECK *SUPPRESS ERROR MESSAGE* FLAG
Line S02999 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04272  M02S02999.271l716 ---|          ADK    CSPW
Line S00788 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04273  M02S00788.273l780 ---|          LCPA   CSPW        CHECK *SUPPRESS ERROR MESSAGE* FLAG
04274  M01S00230.273l780 +++|          TLDC   CSPW,CPAD   CHECK *SUPPRESS ERROR MESSAGE* FLAG
04275  M01S03000.1ro     +++|          CRD    CN
04276  M01S03001.1ro     +++|          LDD    CN
04277  M01S03002.1ro     +++|          SHN    21-5
Line S03003 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04278  M02S03003.ns2685  ---|          MJN    CEM0        IF ERROR MESSAGES SUPPRESSED
04279  M01S00059.ns2685  +++|          MJN    CEM6        IF ERROR MESSAGES SUPPRESSED
04280  M01S03004.1ro     +++|          LDD    CM          CHECK IF BATCH SUBSYSTEM
04281  M01S03005.1ro     +++|          LMN    /REM/BATS
04282  M01S03006.1ro     +++|          ZJN    CEM1        IF BATCH SUBSYSTEM
Line S03007 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro28
Seq #  *Modification Id* Act 
----------------------------+
04283  M02S03007.1ro28   ---|          LDD    IR+4
04284  M01S00007.1ro28   +++|          LDM    INEF
Line S03008 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04285  M02S03008.ns2685  ---|          NJN    CEM1        IF MESSAGE TO ISSUE
Line S03009 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04286  M02S03009.ns2685  ---| CEM0     LDN    0           FLAG NO MESSAGE
Line S03010 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04287  M02S03010.ns2685  ---|          STM    BFMS
Line S03011 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04288  M02S03011.ns2685  ---| CEM1     LDC    BFMS+1
Line S03012 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04289  M02S03012.ns2685  ---|          STD    T1
Line S03013 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04290  M02S03013.ns2685  ---|          LDM    BFMS
Line S03014 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04291  M02S03014.ns2685  ---|          ZJN    CEM4        IF NO MESSAGE
Line S03015 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04292  M02S03015.ns2685  ---|          LDN    1
Line S03016 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04293  M02S03016.ns2685  ---|          STD    CN
Line S03017 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04294  M02S03017.ns2685  ---| CEM2     AOD    T2          INCREMENT CM WORD COUNT
Line S03018 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04295  M02S03018.ns2685  ---| CEM3     LDI    T1
Line S03019 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04296  M02S03019.ns2685  ---|          ZJN    CEM5        IF END OF MESSAGE
Line S03020 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04297  M02S03020.ns2685  ---|          AOD    T1
Line S03021 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04298  M02S03021.ns2685  ---|          AOD    CN
Line S03022 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04299  M02S03022.ns2685  ---|          LMN    5
Line S03023 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04300  M02S03023.ns2685  ---|          NJN    CEM3        IF NOT END OF CM WORD
Line S03024 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04301  M02S03024.ns2685  ---|          STD    CN
Line S03025 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04302  M02S03025.ns2685  ---|          LDD    T2
Line S03026 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04303  M02S03026.ns2685  ---|          LMN    MS2W-MS1W
Line S03027 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04304  M02S03027.ns2685  ---|          NJN    CEM2        IF NOT LAST CM WORD
Line S03028 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04305  M02S03028.ns2685  ---|          STM    BFMS+5*MS2W-5*MS1W-1
Line S03029 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
M03 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04306  M03S03029.ns2685  ---|          LDD    CP
Line S03030 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
M03 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04307  M03S03030.ns2685  ---|          ADN    MS1W+4
Line S00789 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04308  M02S00789.ns2685  ---|          LCPA   MS1W+4
Line S03031 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04309  M02S03031.ns2685  ---|          CWM    BFMS+4*5,ON
Line S03032 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04310  M02S03032.ns2685  ---| CEM4     UJN    CEM6        CHECK NEXT MESSAGE
04311  M01S00060.ns2685  +++|          ZJN    CEM6        IF NO ERROR MESSAGE
04312  M01S00061.ns2685  +++| CEM1     RJM    TSM         TERMINATE STATUS MESSAGE
04313  M01S03033.1ro     +++|
Line S03034 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04314  M02S03034.ns2685  ---| CEM5     AOD    T1          CLEAR REST OF CM WORD
Line S03035 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04315  M02S03035.ns2685  ---|          LDN    0
Line S03036 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04316  M02S03036.ns2685  ---|          STI    T1
Line S03037 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04317  M02S03037.ns2685  ---|          AOD    CN
Line S03038 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04318  M02S03038.ns2685  ---|          SBN    5-1
Line S03039 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04319  M02S03039.ns2685  ---|          MJN    CEM5        IF NOT END OF CM WORD
Line S03040 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04320  M02S03040.ns2685  ---|          LDD    T2          REWRITE END OF MESSAGE
Line S03041 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04321  M02S03041.ns2685  ---|          SBN    1
Line S03042 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04322  M02S03042.ns2685  ---|          STD    T0
Line S03043 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04323  M02S03043.ns2685  ---|          SHN    2
Line S03044 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04324  M02S03044.ns2685  ---|          ADD    T0
Line S03045 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04325  M02S03045.ns2685  ---|          RAM    CEMA
Line S03046 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
M03 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04326  M03S03046.ns2685  ---|          LDD    CP
Line S03047 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
M03 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04327  M03S03047.ns2685  ---|          ADN    MS1W
Line S00790 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04328  M02S00790.ns2685  ---|          LCPA   MS1W
Line S03048 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04329  M02S03048.ns2685  ---|          ADD    T0
Line S03049 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04330  M02S03049.ns2685  ---|          CWM    BFMS,ON
Line S03050 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
04331  M02S03050.ns2685  ---| CEMA     EQU    *-1
04332  M01S00062.ns2685  +++|*         CHECK CPU TIME MESSAGE REQUIRED.
04333  M01S00063.ns2685  +++|
04334  M01S03051.1ro     +++| CEM6     LDD    CM          CHECK SYSTEM
04335  M01S03052.1ro     +++|          SBN    /REM/BASS
Line S03053 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04336  M02S03053.271l716 ---|          MJN    CEM7        IF BELOW *BASIC*
04337  M01S00791.271l716 +++|          MJP    CEM7        IF BELOW *BASIC*
04338  M01S03054.1ro     +++|          SBN    /REM/BATS-/REM/BASS
04339  M01S03055.1ro     +++|          PJN    CEM7        IF *BATCH* OR ABOVE
Line S03056 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04340  M02S03056.271l716 ---|          LDD    CP          READ UP SRU COUNTERS
Line S03057 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04341  M02S03057.271l716 ---|          ADN    SRUW
Line S00792 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04342  M02S00792.273l780 ---|          LCPA   SRUW        READ SRU ACCUMULATORS
04343  M01S00231.273l780 +++|          TLDC   SRUW,CPAD   READ SRU ACCUMULATORS
04344  M01S03058.1ro     +++|          CRD    CM
04345  M01S03059.1ro     +++|          ADN    SRJW-SRUW
04346  M01S03060.1ro     +++|          CRD    CN
04347  M01S03061.1ro     +++|          LDD    MA          WRITE TO MESSAGE BUFFER
04348  M01S03062.1ro     +++|          CWD    CN
04349  M01S03063.1ro     +++|          ADN    1
04350  M01S03064.1ro     +++|          CWD    CM
04351  M01S03065.1ro     +++|          LDN    /CPS/ABEF
04352  M01S03066.1ro     +++|          STD    CM+1
04353  M01S03067.1ro     +++|          MONITOR  ACTM
04354  M01S03068.1ro     +++|          LDD    MA
04355  M01S03069.1ro     +++|          CRM    CEMB+4,ON
04356  M01S03070.1ro     +++|          LDM    CEMB+4
04357  M01S03071.1ro     +++|          ZJN    CEM7        IF NO CPU TIME
Line S03072 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04358  M02S03072.271l716 ---|          LDD    CP          WRITE TIME TO MESSAGE BUFFER
Line S03073 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04359  M02S03073.271l716 ---|          ADN    MS1W
Line S00793 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04360  M02S00793.273l780 ---|          LCPA   MS1W        WRITE TIME TO MESSAGE BUFFER
04361  M01S00232.273l780 +++|          TLDC   MS1W,CPAD   WRITE TIME TO MESSAGE BUFFER
04362  M01S03074.1ro     +++|          ADD    T2
04363  M01S03075.1ro     +++|          CWM    CEMB,TR
04364  M01S03076.1ro     +++|          LDN    3
04365  M01S03077.1ro     +++|          RAD    T2
04366  M01S03078.1ro     +++| CEM7     LDD    T2
04367  M01S03079.1ro     +++|          ZJN    CEM10       IF NO MESSAGE(S)
04368  M01S03080.1ro     +++|          LDM    RDAA        GET LAST SECTOR WORD COUNT
04369  M01S03081.1ro     +++|          ADD    T2
04370  M01S03082.1ro     +++|          STD    T1
04371  M01S03083.1ro     +++|          SHN    -6
04372  M01S03084.1ro     +++|          NJN    CEM8        IF SECTOR OVERLAP
04373  M01S03085.1ro     +++|          LDD    T2          SET WORD COUNT
04374  M01S03086.1ro     +++|          UJN    CEM9        STORE WORD COUNT AND RETURN
04375  M01S03087.1ro     +++|
04376  M01S03088.1ro     +++| CEM8     LDD    T1          SET SECOND PART WORD COUNT
04377  M01S03089.1ro     +++|          LPN    77
04378  M01S03090.1ro     +++|          STM    RMBA+1
04379  M01S03091.1ro     +++|          AOM    RMSA        INCREMENT SECTOR COUNT
04380  M01S03092.1ro     +++|          LDD    HN          SET FIRST PART
04381  M01S03093.1ro     +++|          SBM    RDAA
04382  M01S03094.1ro     +++|          RAM    RMBA
04383  M01S03095.1ro     +++|          LPN    77
04384  M01S03096.1ro     +++| CEM9     RAM    RMAA
04385  M01S03097.1ro     +++| CEM10    LJM    CEMX        RETURN
04386  M01S03098.1ro     +++|
04387  M01S03099.1ro     +++| CEMB     DATA   28H"EM""NL"SRU 000000.000 UNTS.
04388  M01S03100.1ro     +++|          CON    0
04389  M01S03101.1ro     +++| DFS      SPACE  4,20
04390  M01S03102.1ro     +++|**        DFS - DETERMINE FLUSH STATUS.
04391  M01S03103.1ro     +++|*
04392  M01S03104.1ro     +++|*         THE REQUIREMENTS FOR A FILE TO BE FLUSHED ARE:
04393  M01S03105.1ro     +++|*                  FET MUST BE WITHIN FL.
04394  M01S03106.1ro     +++|*                  BUFFER MUST HAVE DATA IN IT.
04395  M01S03107.1ro     +++|*                  FET MUST NOT BE BUSY.
04396  M01S03108.1ro     +++|*                  *CIO* CODE IN FET MUST BE IN THE LIST.
04397  M01S03109.1ro     +++|*                  FILE MUST BE *OUTPUT* AND UNASSIGNED OR IT MUST BE
04398  M01S03110.1ro     +++|*                            ASSIGNED TO TERMINAL EQUIPMENT.
04399  M01S03111.1ro     +++|*
04400  M01S03112.1ro     +++|*         ENTRY  (T8 - T9) = FET ADDRESS.
04401  M01S03113.1ro     +++|*
04402  M01S03114.1ro     +++|*         EXIT   (A) = 0, IF NO FLUSH CANDIDATE.
04403  M01S03115.1ro     +++|*                (TFET - TFET+4) = FIRST WORD OF FET.
04404  M01S03116.1ro     +++|*
04405  M01S03117.1ro     +++|*         USES   T1 - T5, CM - CM+4, CN - CN+4.
04406  M01S03118.1ro     +++|*
04407  M01S03119.1ro     +++|*         CALLS  VAD.
04408  M01S00794.271l716 +++|*
04409  M01S00795.271l716 +++|*         MACROS NFA.
04410  M01S03120.1ro     +++|
04411  M01S03121.1ro     +++|
04412  M01S03122.1ro     +++| DFS      SUBR               ENTRY/EXIT
04413  M01S03123.1ro     +++|          LDD    T8          READ FET PARAMETERS
04414  M01S03124.1ro     +++|          LPN    37
04415  M01S03125.1ro     +++|          SHN    14
04416  M01S03126.1ro     +++|          LMD    T9
04417  M01S03127.1ro     +++|          ADN    3
04418  M01S03128.1ro     +++|          RJM    VAD
04419  M01S03129.1ro     +++|          ZJN    DFSX        IF FET OUTSIDE FL
04420  M01S03130.1ro     +++|          CRD    T3          READ OUT
04421  M01S03131.1ro     +++|          SBN    1
04422  M01S03132.1ro     +++|          CRD    T1          READ IN
04423  M01S03133.1ro     +++|          SBN    2
04424  M01S03134.1ro     +++|          CRM    TFET,ON     READ FET+0
04425  M01S03135.1ro     +++|          LDM    TFET+4
04426  M01S03136.1ro     +++|          LPN    1
04427  M01S03137.1ro     +++|          ZJN    DFSX        IF FET BUSY
04428  M01S03138.1ro     +++|          LDD    T6
04429  M01S03139.1ro     +++|          SBD    T4
04430  M01S03140.1ro     +++|          SHN    14
04431  M01S03141.1ro     +++|          ADD    T7
04432  M01S03142.1ro     +++|          SBD    T5
04433  M01S03143.1ro     +++|          ZJN    DFSX        IF BUFFER EMPTY
04434  M01S03144.1ro     +++|          LDN    DFSAL       CHECK ACCEPTABLE *CIO* CALLS
04435  M01S03145.1ro     +++|          STD    T1
04436  M01S03146.1ro     +++|          LDM    TFET+3
04437  M01S03147.1ro     +++|          LPN    77
04438  M01S03148.1ro     +++|          ZJN    DFS2        IF NO FET ERRORS
04439  M01S03149.1ro     +++| DFS1     LDN    0
04440  M01S03150.1ro     +++|          LJM    DFSX        RETURN
04441  M01S03151.1ro     +++|
04442  M01S03152.1ro     +++| DFS2     SOD    T1
04443  M01S03153.1ro     +++|          MJN    DFS1        IF FET CODE NOT IN LIST
04444  M01S03154.1ro     +++|          LDM    DFSA,T1
04445  M01S03155.1ro     +++|          LMM    TFET+4
04446  M01S03156.1ro     +++|          SCN    2           IGNORE BINARY BIT
04447  M01S03157.1ro     +++|          NJN    DFS2        IF NOT VALID FET CODE
04448  M01S03158.1ro     +++|          LDD    NF          SET NFL SIZE + 1
04449  M01S03159.1ro     +++|          SHN    6
04450  M01S03160.1ro     +++|          ADN    1
04451  M01S03161.1ro     +++|          STD    T7
04452  M01S03162.1ro     +++|
04453  M01S03163.1ro     +++|*         SEARCH FNT ENTRIES FOR ASSIGNED FILE.
04454  M01S03164.1ro     +++|
04455  M01S03165.1ro     +++|          LDC    FNTN+LENF
04456  M01S03166.1ro     +++|          STD    T6
04457  M01S03167.1ro     +++| DFS3     NFA    T6,R        READ FNT ENTRY
04458  M01S03168.1ro     +++|          CRD    CM
04459  M01S03169.1ro     +++|          LDD    CM          COMPARE FILE NAMES
04460  M01S03170.1ro     +++|          ZJN    DFS4        IF NO ENTRY
04461  M01S03171.1ro     +++|          LMM    TFET
04462  M01S03172.1ro     +++|          NJN    DFS4        IF NO MATCH
04463  M01S03173.1ro     +++|          LDD    CM+1
04464  M01S03174.1ro     +++|          LMM    TFET+1
04465  M01S03175.1ro     +++|          NJN    DFS4        IF NO MATCH
04466  M01S03176.1ro     +++|          LDD    CM+2
04467  M01S03177.1ro     +++|          LMM    TFET+2
04468  M01S03178.1ro     +++|          NJN    DFS4        IF NO MATCH
04469  M01S03179.1ro     +++|          LDD    CM+3
04470  M01S03180.1ro     +++|          LMM    TFET+3
04471  M01S03181.1ro     +++|          SCN    77
04472  M01S03182.1ro     +++|          ZJN    DFS6        IF MATCH
04473  M01S03183.1ro     +++| DFS4     LDN    LENF        INCREMENT TO NEXT ENTRY
04474  M01S03184.1ro     +++|          RAD    T6
04475  M01S03185.1ro     +++|          SBD    T7
04476  M01S03186.1ro     +++|          MJN    DFS3        IF NOT END OF FNT
04477  M01S03187.1ro     +++|          LDM    TFET        CHECK FOR *OUTPUT*
04478  M01S03188.1ro     +++|          LMC    2ROU
04479  M01S03189.1ro     +++|          NJN    DFS5        IF NOT *OUTPUT*
04480  M01S03190.1ro     +++|          LDM    TFET+1
04481  M01S03191.1ro     +++|          LMC    2RTP
04482  M01S03192.1ro     +++|          NJN    DFS5        IF NOT *OUTPUT*
04483  M01S03193.1ro     +++|          LDM    TFET+2
04484  M01S03194.1ro     +++|          LMC    2RUT
04485  M01S03195.1ro     +++|          NJN    DFS5        IF NOT *OUTPUT*
04486  M01S03196.1ro     +++|          LDM    TFET+3
04487  M01S03197.1ro     +++|          SCN    77
04488  M01S03198.1ro     +++|          ZJN    DFS7        IF *OUTPUT*
04489  M01S03199.1ro     +++| DFS5     LDN    0           FILE NOT TO BE FLUSHED
04490  M01S03200.1ro     +++|          UJN    DFS8        RETURN
04491  M01S03201.1ro     +++|
04492  M01S03202.1ro     +++| DFS6     NFA    T6,R        CHECK EQUIPMENT ASSIGNMENT
04493  M01S03203.1ro     +++|          ADN    FSTL
04494  M01S03204.1ro     +++|          CRD    CM
04495  M01S03205.1ro     +++|          LDD    CM
04496  M01S03206.1ro     +++|          LPC    777
04497  M01S03207.1ro     +++|          LMN    TTEQ
04498  M01S03208.1ro     +++|          NJN    DFS5        IF NOT ASSIGNED TO *TT*
04499  M01S03209.1ro     +++| DFS7     LDN    1           INDICATE OUTPUT AVAILABLE
04500  M01S03210.1ro     +++| DFS8     LJM    DFSX        RETURN
04501  M01S03211.1ro     +++|
04502  M01S03212.1ro     +++|*         TABLE OF CIO CODES TO FLUSH ON.
04503  M01S03213.1ro     +++|
04504  M01S03214.1ro     +++| DFSA     BSS    0
04505  M01S03215.1ro     +++|
04506  M01S03216.1ro     +++|          CON    1           FET NOT USED
04507  M01S03217.1ro     +++|          CON    5           WRITE PRU
04508  M01S03218.1ro     +++|          CON    15          BUFFERED WRITE
04509  M01S03219.1ro     +++|          CON    25          WRITE EOR
04510  M01S03220.1ro     +++|          CON    35          WRITE EOF
04511  M01S03221.1ro     +++|          CON    105         OPEN WRITE
04512  M01S03222.1ro     +++|          CON    121         OPEN ALTER
04513  M01S03223.1ro     +++|          CON    145         OPEN WRITE REWIND
04514  M01S03224.1ro     +++|          CON    161         OPEN ALTER REWIND
04515  M01S03225.1ro     +++|
04516  M01S03226.1ro     +++| DFSAL    EQU    *-DFSA
04517  M01S03227.1ro     +++| GMX      SPACE  4,10
04518  M01S03228.1ro     +++|**        GMX - GET MULTIPLEXOR STATUS.
04519  M01S03229.1ro     +++|*
Line S03230 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
04520  M02S03230.ns2748  ---|*         ENTRY  (TA) = TIMESHARING REFERENCE ADDRESS.
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/1ro.004.txt ยท Last modified: by 127.0.0.1