User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ta

Deck 1TA

9 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1ta     +++|          IDENT  1TA,ITA
00002  M01S00002.1ta     +++|          PERIPH
00003  M01S00003.1ta     +++|          BASE   MIXED
00004  M01S00004.1ta     +++|          SST
00005  M01S00005.1ta     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00006  M01S00006.1ta     +++| EOR$     EQU    1           DEFINE POSITION AFTER EOR
00007  M01S00007.1ta     +++|*COMMENT  1TA - IAF AUXILIARY FUNCTION PROCESSOR.
Line S00008 Modification History
M01 (Added by) 1ta
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00008.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1978.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00009.1ta     +++|          TITLE  1TA - TIMESHARING AUXILIARY PROCESSOR.
00011  M01S00010.1ta     +++|          SPACE  4,10
00012  M01S00011.1ta     +++|*****     1TA - TIMESHARING AUXILIARY PROCESSOR.
00013  M01S00012.1ta     +++|*
00014  M01S00013.1ta     +++|*         K. E. ZINNEL.      70/03/09.
00015  M01S00014.1ta     +++|*         R. E. TATE.        71/01/25.
00016  M01S00015.1ta     +++|*         P. D. FARRELL.     75/02/07.
00017  M01S00016.1ta     +++|*         A. D. FORET.       76/04/26.
00018  M01S00017.1ta     +++|*         P. D. FARRELL      77/03/17.
00019  M01S00018.1ta     +++|*         M. J. CARIDDI, L. K. TUTTLE  81/07/02.
00020  M01S00019.1ta     +++|          SPACE  4,10
00021  M01S00020.1ta     +++|***              1TA PROCESSES FUNCTIONS FOR *IAF* WHICH REQUIRE
00022  M01S00021.1ta     +++|*         PP ACTION.
00023  M01S00022.1ta     +++|          SPACE  4,10,25
00024  M01S00023.1ta     +++|***       CALLS.
00025  M01S00024.1ta     +++|*
00026  M01S00025.1ta     +++|*
00027  M01S00026.1ta     +++|*         GROUP REQUEST.
00028  M01S00027.1ta     +++|*T        18/  *1TA*,6/  CP,6/ ,18/ RETURN ADDRESS,12/ PP
Figure

0111229 PP RETURN ADDRESS303536414259 CP *1TA*

00029  M01S00028.1ta     +++|*
00030  M01S00029.1ta     +++|*         CP     CONTROL POINT.
00031  M01S00030.1ta     +++|*         PP     POT POINTER TO REQUEST QUEUE POT(S).
00032  M01S00031.1ta     +++|*
00033  M01S00032.1ta     +++|*         SINGLE REQUEST.
00034  M01S00033.1ta     +++|*T        18/  *1TA*,6/  CP,12/ 40FC,12/ TN,12/ ARG
Figure

01112232429 ARG TN 40FC303536414259 40FC CP *1TA*

00035  M01S00034.1ta     +++|*
00036  M01S00035.1ta     +++|*         REQUEST QUEUE FORMAT.
00037  M01S00036.1ta     +++|*T        24/ ,12/ FC,12/ TN,12/ ARG
Figure

01112232429 ARG TN FC30353659 FC

00038  M01S00037.1ta     +++|*
00039  M01S00038.1ta     +++|*         FC     FUNCTION CODE.
00040  M01S00039.1ta     +++|*         TN     TERMINAL NUMBER.
00041  M01S00040.1ta     +++|*         ARG    POT POINTER OR REQUEST TYPE.
00042  M01S00041.1ta     +++|*
00043  M01S00042.1ta     +++|*                VROT STATUS BITS USED.
00044  M01S00043.1ta     +++|*                 BIT 0 - COMPLETION STATUS BIT.
00045  M01S00044.1ta     +++|*                 BIT 11- ERROR RETURN.
00046  M01S00045.1ta     +++|          SPACE  4,10,10
00047  M01S00046.1ta     +++|***       ACCOUNT FILE MESSAGES.
00048  M01S00047.1ta     +++|*
00049  M01S00048.1ta     +++|*
00050  M01S00049.1ta     +++|*         CHARACTER ACCUMULATOR OVERFLOW -
00051  M01S00050.1ta     +++|*                *UCCO, 000000.000KCHS.* = CHARACTERS OUT.
00052  M01S00051.1ta     +++|*                *UCCI, 000000.000KCHS.* = CHARACTERS IN.
00053  M01S00052.1ta     +++|*                *ABLQ, JSNN, YY/MM/DD, HH.MM.SS*   INPUT FILE QUEUED
00054  M01S00053.1ta     +++|          SPACE  4,10,10
00055  M01S00054.1ta     +++|**        ROUTINES USED.
00056  M01S00055.1ta     +++|*
00057  M01S00056.1ta     +++|*
Line S00057 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00057.ns2663  ---|*         0AV - ACCOUNT FILE VALIDATION.
00059  M01S00001.ns2663  +++|*         0AV - VERIFY USER NAME.
00060  M01S00002.ns2663  +++|*         0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
00061  M01S00058.1ta     +++|          SPACE  4,10
00062  M01S00059.1ta     +++|*         COMMON DECKS.
00063  M01S00060.1ta     +++|
00064  M01S00061.1ta     +++|
00065  M01S00062.1ta     +++|*CALL     COMPMAC
00066  M01S00063.1ta     +++|*CALL     COMSACC
00067  M01S00064.1ta     +++|*CALL     COMSCPS
00068  M01S00065.1ta     +++|*CALL     COMSEJT
00069  M01S00066.1ta     +++|*CALL     COMSEVT
00070  M01S00067.1ta     +++|*CALL     COMSJIO
00071  M01S00068.1ta     +++|*CALL     COMSJRO
00072  M01S00069.1ta     +++|*CALL     COMSMSC
00073  M01S00070.1ta     +++|*CALL     COMSMSP
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00001.273l780 ---| CPA$     EQU    1           SELECT PCPA ACCESS
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00002.273l780 ---| IPC$     EQU    1           SELECT INITIALIZATION OF *COMPPCP*
Line S00003 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00003.273l780 ---|*CALL     COMSPCP
00077  M01S00071.1ta     +++|*CALL     COMSPFM
00078  M01S00072.1ta     +++|*CALL     COMSPIM
00079  M01S00073.1ta     +++|*CALL     COMSPRD
00080  M01S00074.1ta     +++|*CALL     COMSREM
00081  M01S00075.1ta     +++|*CALL     COMSSRU
00082  M01S00076.1ta     +++|*CALL     COMSSSE
00083  M01S00077.1ta     +++|*CALL     COMSTCM
00084  M01S00078.1ta     +++|*CALL     COMSWEI
00085  M01S00079.1ta     +++|*CALL     COMSZOL
00086  M01S00080.1ta     +++|          TITLE  PROGRAM EQUIVALENCES.
00087  M01S00081.1ta     +++|****      DIRECT LOCATION ASSIGNMENTS.
00088  M01S00082.1ta     +++|
00089  M01S00083.1ta     +++| QF       EQU    25          QFT ORDINAL
00090  M01S00084.1ta     +++| PW       EQU    26          POT WORD COUNT
00091  M01S00085.1ta     +++| FP       EQU    27          FIRST POT
00092  M01S00086.1ta     +++| CN       EQU    30 - 34     VROT STATUS WORD BUFFER (5 LOCATIONS)
00093  M01S00087.1ta     +++| PA       EQU    35 - 36     POT ADDRESS (2 LOCATIONS)
00094  M01S00088.1ta     +++| PP       EQU    37          POT POINTER
00095  M01S00089.1ta     +++| DF       EQU    40 - 44     DESIGNATED FILE NAME (5 LOCATIONS)
00096  M01S00090.1ta     +++| WC       EQU    45          WORD COUNT
00097  M01S00091.1ta     +++| TT       EQU    46 - 47     TERMINAL TABLE ADDRESS (2 LOCATIONS)
00098  M01S00092.1ta     +++| TN       EQU    IR+3        TERMINAL NUMBER
00099  M01S00093.1ta     +++| FN       EQU    60 - 64     FILE NAME (5 LOCATIONS)
00100  M01S00094.1ta     +++| OT       EQU    65          ORIGIN TYPE
00101  M01S00004.271l716 +++| NC       EQU    66          NUMBER OF CONTROL POINTS
00102  M01S00095.1ta     +++| MF       EQU    67          MESSAGE FLAG
00103  M01S00096.1ta     +++|          SPACE  4,10
00104  M01S00097.1ta     +++|**        MICRO DEFINITIONS.
00105  M01S00098.1ta     +++|
00106  M01S00099.1ta     +++|
00107  M01S00100.1ta     +++| TE       OCTMIC TTEQ,2      TTY PSEUDO-EQUIPMENT MICRO
00108  M01S00101.1ta     +++|          SPACE  4,10
00109  M01S00102.1ta     +++|****      PROGRAM EQUIVALENCES.
00110  M01S00103.1ta     +++|
00111  M01S00104.1ta     +++|
00112  M01S00105.1ta     +++| SYSN     EQU    0           SYSTEM SECTOR NUMBER
00113  M01S00106.1ta     +++| CPSN     EQU    1           C.P. AREA SECTOR NUMBER
00114  M01S00001.1ta11   +++| NSVR     EQU    6           NUMBER OF SERVICE CLASS VALIDATION RETRIES
00115  M01S00001.1ta10   +++| EJTT     EQU    EJTR*2      EJT THRESHOLD
00116  M01S00107.1ta     +++| BUFFER   SPACE  4,10,10
00117  M01S00108.1ta     +++|****      BUFFER DEFINITIONS.
00118  M01S00109.1ta     +++|
00119  M01S00110.1ta     +++| FBUF     EQU    BFMS-502-LENF*5+1*5  NFL/INPUT/EOI BUFFER
00120  M01S00111.1ta     +++| CBUF     EQU    FBUF-504    CONTROL POINT AREA SECTOR BUFFER
Line S00112 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00112.ns2663  ---|          SPACE  4,10,10
Line S00113 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00113.ns2663  ---|**        PROGRAMMING NOTE.
Line S00114 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00114.ns2663  ---|*
Line S00115 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00115.ns2663  ---|*         OVERLAYS WHICH EITHER DIRECTLY OR INDIRECTLY CALL
Line S00116 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00116.ns2663  ---|*         *0* LEVEL OVERLAY AT *OVL0* MUST TERMINATE WITH A TEST FOR
Line S00117 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00117.ns2663  ---|*         OVERFLOW INTO THE *0* LEVEL OVERLAY LOAD BUFFER
Line S00118 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00118.ns2663  ---|*         DEFINED BY LOCATION *OVL0* ABOVE.
00128  M01S00003.ns2663  +++|
00129  M01S00004.ns2663  +++|          ERRNG  EPFW-CBUF-ZAVL  CHECK *0AV* OVERFLOW
00130  M01S00005.ns2663  +++|          ERRNG  BFMS-CBUF-ZQML  CHECK *0QM* OVERFLOW
00131  M01S00119.1ta     +++|          TITLE  OVERLAY COMMUNICATION MACROS.
00132  M01S00120.1ta     +++| OVERLAY  SPACE  4,10
00133  M01S00121.1ta     +++|**        OVERLAY - GENERATE OVERLAY CONSTANTS.
00134  M01S00122.1ta     +++|*
00135  M01S00123.1ta     +++|* QUAL    OVERLAY (TEXT),ADDR
00136  M01S00124.1ta     +++|*
00137  M01S00125.1ta     +++|*         QUAL   OVERLAY QUALIFIER NAME
00138  M01S00126.1ta     +++|*         TEXT   TEXT OF SUBTITLE.
00139  M01S00127.1ta     +++|*         ADDR   OPTIONAL LOAD ADDRESS, IF TO BE OTHER THAN *OVL*.
00140  M01S00128.1ta     +++|
00141  M01S00129.1ta     +++|
00142  M01S00130.1ta     +++|          NOREF  .M
00143  M01S00131.1ta     +++|          PURGMAC OVERLAY
00144  M01S00132.1ta     +++| .M       SET    0
00145  M01S00133.1ta     +++|
00146  M01S00134.1ta     +++|          MACRO  OVERLAY,Q,T,A
00147  M01S00135.1ta     +++|          LOCAL  LADDR
00148  M01S00136.1ta     +++|          QUAL
00149  M01S00137.1ta     +++| .M       SET    .M+1
00150  M01S00138.1ta     +++|          USE    LITERALS
00151  M01S00139.1ta     +++| .1       MICRO  .M,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ
00152  M01S00140.1ta     +++| .3       MICRO  1,3, 3T".1"
00153  M01S00141.1ta     +++| Q_O      EQU    1R".1"
00154  M01S00142.1ta     +++| Q        MICRO  1,4, O_Q
00155  M01S00143.1ta     +++|          TITLE  ".3" - T
00156  M01S00144.1ta     +++|          IDENT  ".3","Q" - T
00157  M01S00145.1ta     +++|*COMMENT  1TA - T
Line S00146 Modification History
M01 (Added by) 1ta
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00146.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00159  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00160  M01S00147.1ta     +++|          ORG    A OVL
00161  M01S00148.1ta     +++| "Q"      LJM    *
00162  M01S00149.1ta     +++|          UJN    *-2
00163  M01S00150.1ta     +++|          QUAL   Q
00164  M01S00151.1ta     +++| OVERLAY  ENDM
00165  M01S00152.1ta     +++| ENTRY    SPACE  4,10,10
00166  M01S00153.1ta     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00167  M01S00154.1ta     +++|*
00168  M01S00155.1ta     +++|*         ENTRY  NAME
00169  M01S00156.1ta     +++|*
00170  M01S00157.1ta     +++|*         ENTRY  *NAME* = NAME OF ENTRY ADDRESS.
00171  M01S00158.1ta     +++|
00172  M01S00159.1ta     +++|
00173  M01S00160.1ta     +++|          PURGMAC ENTRY
00174  M01S00161.1ta     +++|
00175  M01S00162.1ta     +++| ENTRY    MACRO  NAME
00176  M01S00163.1ta     +++|          QUAL
00177  M01S00164.1ta     +++| NAME     EQU    *+1R".1"*10000
00178  M01S00165.1ta     +++|          QUAL   *
00179  M01S00166.1ta     +++| ENTRY    ENDM
00180  M01S00167.1ta     +++| FCN      SPACE  4,10,10
00181  M01S00168.1ta     +++|**        FCN - DEFINE FUNCTION PROCESSOR.
00182  M01S00169.1ta     +++|*
00183  M01S00170.1ta     +++|*         FCN    NAME
00184  M01S00171.1ta     +++|*
00185  M01S00172.1ta     +++|*         ENTRY  *NAME* = NAME OF FUNCTION PROCESSOR.
00186  M01S00173.1ta     +++|
00187  M01S00174.1ta     +++|          NOREF  .I
00188  M01S00175.1ta     +++| .I       SET    0
00189  M01S00176.1ta     +++|
00190  M01S00177.1ta     +++|          MACRO  FCN,L,A
00191  M01S00178.1ta     +++|          LOC    .I/2+1
00192  M01S00179.1ta     +++| L        CON    A/10000,A-A/10000*10000
00193  M01S00180.1ta     +++| .I       SET    .I+2
00194  M01S00181.1ta     +++|          ENDM
00195  M01S00182.1ta     +++| SCLASS   SPACE  4,15
00196  M01S00183.1ta     +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00197  M01S00184.1ta     +++|*
00198  M01S00185.1ta     +++|*         SCLASS NM,MN,DF,ST,TX
00199  M01S00186.1ta     +++|*
00200  M01S00187.1ta     +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00201  M01S00188.1ta     +++|*                *MN* = TWO CHARACTER MNEMONIC.
00202  M01S00189.1ta     +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00203  M01S00190.1ta     +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00204  M01S00191.1ta     +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00205  M01S00192.1ta     +++|*
00206  M01S00193.1ta     +++|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00207  M01S00194.1ta     +++|*                THIS MACRO.
00208  M01S00195.1ta     +++|
00209  M01S00196.1ta     +++|
00210  M01S00197.1ta     +++|          PURGMAC  SCLASS
00211  M01S00198.1ta     +++|
00212  M01S00199.1ta     +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00213  M01S00200.1ta     +++| .A       IFC    NE,$NM$SSSC$
00214  M01S00201.1ta     +++| .SCL     RMT
00215  M01S00202.1ta     +++|          INDEX  NM,1R_DF    TX
00216  M01S00203.1ta     +++| .SCL     RMT
00217  M01S00204.1ta     +++| .SCLVSP  RMT
00218  M01S00205.1ta     +++|          INDEX  NM,MN_MK    TX
00219  M01S00206.1ta     +++| .SCLVSP  RMT
00220  M01S00207.1ta     +++| .A       ENDIF
00221  M01S00208.1ta     +++| SCLASS   ENDM
00222  M01S00209.1ta     +++|
00223  M01S00210.1ta     +++|
00224  M01S00211.1ta     +++| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
00225  M01S00212.1ta     +++|*CALL     COMSSCD
00226  M01S00213.1ta     +++|          TITLE  MAIN PROGRAM.
00227  M01S00214.1ta     +++| 1TA      SPACE  4,10
00228  M01S00215.1ta     +++|**        1TA -  MAIN PROGRAM.
00229  M01S00216.1ta     +++|*
00230  M01S00217.1ta     +++|*         LOADS AND EXECUTES THE VARIOUS FUNCTION PROCESSOR
00231  M01S00218.1ta     +++|*         OVERLAYS.
00232  M01S00219.1ta     +++|*
00233  M01S00220.1ta     +++|*         CALLS  CHG, EXR, PPR, SPA, STA, UPP.
00234  M01S00221.1ta     +++|
00235  M01S00222.1ta     +++|
00236  M01S00223.1ta     +++|          ORG    PPFW
00237  M01S00224.1ta     +++| ITA      LJM    INI         INITIALIZE
00238  M01S00225.1ta     +++|
00239  M01S00226.1ta     +++|*         ENTRY FROM FUNCTION PROCESSOR.
00240  M01S00227.1ta     +++|
00241  M01S00228.1ta     +++| ITAX     AOM    ITAC        INCREMENT TO NEXT ENTRY
00242  M01S00229.1ta     +++|*         LJM    DPP         (IF SINGLE FUNCTION)
00243  M01S00230.1ta     +++|          LMN    VCPC
00244  M01S00231.1ta     +++|          NJN    ITA1        IF NOT THE END OF A POT
00245  M01S00232.1ta     +++|          STM    ITAC
00246  M01S00233.1ta     +++|          LDC    *           READ UP NEXT POT
00247  M01S00234.1ta     +++| ITAA     EQU    *-1
00248  M01S00235.1ta     +++|          STD    PP
00249  M01S00236.1ta     +++|          RJM    UPP         GET NEXT POT
00250  M01S00237.1ta     +++|          ZJN    ITA2        IF LAST POT PROCESSED
00251  M01S00238.1ta     +++|          STM    ITAA
00252  M01S00239.1ta     +++|          RJM    SPA         SET POT ADDRESS
00253  M01S00240.1ta     +++|          STM    ITAB+1
00254  M01S00241.1ta     +++|          SHN    -14
00255  M01S00242.1ta     +++|          ADC    LDCI
00256  M01S00243.1ta     +++|          STM    ITAB
00257  M01S00244.1ta     +++|
00258  M01S00245.1ta     +++|*         MULTIPLE FUNCTION RETURN FROM *INI*.
00259  M01S00246.1ta     +++|
00260  M01S00247.1ta     +++| ITA1     LDC    *           READ UP ENTRY
00261  M01S00248.1ta     +++| ITAB     EQU    *-2
00262  M01S00249.1ta     +++|          ADC    0
00263  M01S00250.1ta     +++| ITAC     EQU    *-1
00264  M01S00251.1ta     +++|          CRD    IR
00265  M01S00252.1ta     +++|          LDD    TN
00266  M01S00253.1ta     +++|          NJN    ITA4        IF STILL MORE ENTRIES TO PROCESS
00267  M01S00254.1ta     +++| ITA2     LDD    IA          SET COMPLETION
00268  M01S00255.1ta     +++|          CRD    IR
00269  M01S00256.1ta     +++|          LDN    ZERL
00270  M01S00257.1ta     +++|          CRD    IR-3
00271  M01S00258.1ta     +++| ITAD     LDC    *
00272  M01S00259.1ta     +++|          CWD    IR
00273  M01S00260.1ta     +++|
00274  M01S00261.1ta     +++|*         ENTRY TO DROP PPU.
00275  M01S00262.1ta     +++|
00276  M01S00263.1ta     +++| DPP      MONITOR DPPM       DROP PPU
00277  M01S00264.1ta     +++|          LJM    PPR         RETURN TO PP RESIDENT
00278  M01S00265.1ta     +++|
00279  M01S00266.1ta     +++|*         SINGLE FUNCTION RETURN FROM *INI*.
00280  M01S00267.1ta     +++|
00281  M01S00268.1ta     +++| ITA4     RJM    STA         SET TERMINAL TABLE ADDRESS
00282  M01S00269.1ta     +++|          LDD    IR+2        GENERATE FUNCTION CODE INDEX
00283  M01S00270.1ta     +++|          SHN    1
00284  M01S00271.1ta     +++|          STD    T7
00285  M01S00272.1ta     +++|          SBN    TFCNL+1
00286  M01S00273.1ta     +++|          MJN    ITA6        IF LEGAL FUNCTION CODE
00287  M01S00274.1ta     +++| ITA5     LDN    0           SET NO ERROR FLAG
00288  M01S00275.1ta     +++|          RJM    CHG         CONDITIONALLY HANG PP
00289  M01S00276.1ta     +++|          UJP    DPP         DROP PP
00290  M01S00277.1ta     +++|
00291  M01S00278.1ta     +++|**        *1TA* FUNCTION LOAD.
00292  M01S00279.1ta     +++|*
00293  M01S00280.1ta     +++|*         ENTRY  (T7) = FUNCTION CODE INDEX.
00294  M01S00281.1ta     +++|
00295  M01S00282.1ta     +++|
00296  M01S00283.1ta     +++| ITA6     LDM    TFCN-1,T7   SET PROCESSOR ADDRESS
00297  M01S00284.1ta     +++|          ZJN    ITA5        IF UNDEFINED FUNCTION
00298  M01S00285.1ta     +++|          STM    ITAE
00299  M01S00286.1ta     +++|          LDM    TFCN-2,T7   SET OVERLAY NAME
00300  M01S00287.1ta     +++|          ZJN    ITA7        IF NO OVERLAY REQUIRED
00301  M01S00288.1ta     +++|          SHN    6
00302  M01S00289.1ta     +++|          LMM    OVL-4
00303  M01S00290.1ta     +++|          SCN    77
00304  M01S00291.1ta     +++|          ZJN    ITA7        IF OVERLAY ALREADY LOADED
00305  M01S00292.1ta     +++|          LDM    TFCN-2,T7   LOAD OVERLAY
00306  M01S00293.1ta     +++|          LMC    2L3T
00307  M01S00294.1ta     +++|          RJM    EXR         LOAD OVERLAY
00308  M01S00295.1ta     +++| ITA7     LJM    *           PROCESS REQUEST
00309  M01S00296.1ta     +++| ITAE     EQU    *-1
Line S00297 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00297.ns2663  ---|          TITLE  FUNCTION OVERLAY DIRECTORY.
00311  M01S00298.1ta     +++| TFCN     SPACE  4,10
00312  M01S00299.1ta     +++|**        TFCN - TABLE OF FUNCTION CODE PROCESSORS.
00313  M01S00300.1ta     +++|*
00314  M01S00301.1ta     +++|*         ENTRY - TWO WORDS.
00315  M01S00302.1ta     +++|*                 WORD 1 = FUNCTION PROCESSOR OVERLAY NAME.
00316  M01S00303.1ta     +++|*                 WORD 2 = FUNCTION PROCESSOR ADDRESS.
00317  M01S00304.1ta     +++|
00318  M01S00305.1ta     +++|
00319  M01S00306.1ta     +++| TFCN     BSS    0
00320  M01S00307.1ta     +++|          FCN    TFL         ADJUST TIMESHARING EXECUTIVE FIELD LENGTH
00321  M01S00308.1ta     +++|          FCN    CIQ         CREATE INPUT QUEUE ENTRY
00322  M01S00309.1ta     +++|          FCN    IAM         ISSUE ACCOUNTING MESSAGES
00323  M01S00310.1ta     +++|          FCN    IRL         INCREMENT RESOURCE LIMIT
00324  M01S00311.1ta     +++|          FCN    RJS         RETURN JOB STATUS
00325  M01S00312.1ta     +++|          LOC    *O
00326  M01S00313.1ta     +++| TFCNL    EQU    *-TFCN      LENGTH OF FUNCTION TABLE
00327  M01S00006.ns2663  +++|          TITLE  GENERAL SUBROUTINES.
00328  M01S00001.273l780 +++| CCA      SPACE  4,10
00329  M01S00002.273l780 +++|**        CCA - COMPUTE CPA/PCPA ADDRESS.
00330  M01S00003.273l780 +++|*
00331  M01S00004.273l780 +++|*         ENTRY  (A) = CP/PCP NUMBER.
00332  M01S00005.273l780 +++|*                (NC) = NUMBER OF CONTROL POINTS.
00333  M01S00006.273l780 +++|*
00334  M01S00007.273l780 +++|*         EXIT   (A) = CPA/PCPA ADDRESS.
00335  M01S00008.273l780 +++|
00336  M01S00009.273l780 +++|
00337  M01S00010.273l780 +++| CCA1     ADD    NC
00338  M01S00011.273l780 +++|          SHN    7
00339  M01S00012.273l780 +++|
00340  M01S00013.273l780 +++| CCA      SUBR               ENTRY/EXIT
00341  M01S00014.273l780 +++|          SBD    NC
00342  M01S00015.273l780 +++|          MJN    CCA1        IF CONTROL POINT
00343  M01S00016.273l780 +++|          ZJN    CCA1        IF SYSTEM CONTROL POINT
00344  M01S00017.273l780 +++|          SHN    7
00345  M01S00018.273l780 +++| CCAA     ADC    **          (PCP AREAS BASE ADDRESS)
00346  M01S00019.273l780 +++|          UJN    CCAX        RETURN
00347  M01S00314.1ta     +++| CFN      SPACE  4,10
00348  M01S00315.1ta     +++|**        CFN - CHECK FILE NAME.
00349  M01S00316.1ta     +++|*
00350  M01S00317.1ta     +++|*         ENTRY  (A) = ADDRESS OF FILE NAME 1.
00351  M01S00318.1ta     +++|*                (DF - DF+3) = FILE NAME 2.
00352  M01S00319.1ta     +++|*
00353  M01S00320.1ta     +++|*         EXIT   (A) = ZERO IF FILE NAMES MATCH.
00354  M01S00321.1ta     +++|*
00355  M01S00322.1ta     +++|*         USES   T3.
00356  M01S00323.1ta     +++|
00357  M01S00324.1ta     +++|
00358  M01S00325.1ta     +++| CFN      SUBR               ENTRY/EXIT
00359  M01S00326.1ta     +++|          STD    T3          SAVE ADDRESS OF FILE NAME
00360  M01S00327.1ta     +++|          LDI    T3          COMPARE FIRST TWO CHARACTERS
00361  M01S00328.1ta     +++|          LMD    DF
00362  M01S00329.1ta     +++|          NJN    CFNX        IF NO MATCH
00363  M01S00330.1ta     +++|          LDM    1,T3        COMPARE NEXT CHARACTERS
00364  M01S00331.1ta     +++|          LMD    DF+1
00365  M01S00332.1ta     +++|          NJN    CFNX        IF NO MATCH
00366  M01S00333.1ta     +++|          LDM    2,T3        COMPARE NEXT CHARACTERS
00367  M01S00334.1ta     +++|          LMD    DF+2
00368  M01S00335.1ta     +++|          NJN    CFNX        IF NO MATCH
00369  M01S00336.1ta     +++|          LDM    3,T3        COMPARE LAST CHARACTER
00370  M01S00337.1ta     +++|          LMD    DF+3
00371  M01S00338.1ta     +++|          SCN    77
00372  M01S00339.1ta     +++|          UJN    CFNX        RETURN
00373  M01S00340.1ta     +++| CHG      SPACE  4,10
00374  M01S00341.1ta     +++|**        CHG - CONDITIONALLY HANG PP.
00375  M01S00342.1ta     +++|*
00376  M01S00343.1ta     +++|*         ENTRY  (A) = ERROR FLAG.
00377  M01S00344.1ta     +++|*
00378  M01S00345.1ta     +++|*         EXIT   (A) = ZERO.
00379  M01S00346.1ta     +++|*
00380  M01S00347.1ta     +++|*         USES   CM - CM+4.
00381  M01S00348.1ta     +++|*
00382  M01S00349.1ta     +++|*         MACROS MONITOR.
00383  M01S00350.1ta     +++|
00384  M01S00351.1ta     +++|
00385  M01S00352.1ta     +++| CHG      SUBR               ENTRY/EXIT
00386  M01S00353.1ta     +++|          STD    CM+2        SET ERROR FLAG
00387  M01S00354.1ta     +++|          LDM    CHG         GET ADDRESS WHERE ERROR DETECTED
00388  M01S00355.1ta     +++|          STD    CM+1
00389  M01S00356.1ta     +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
00390  M01S00357.1ta     +++|          UJN    CHGX        RETURN
00391  M01S00358.1ta     +++| DPT      SPACE  4,10
00392  M01S00359.1ta     +++|**        DPT - DROP POTS.
00393  M01S00360.1ta     +++|*
00394  M01S00361.1ta     +++|*         ENTRY  (PP) = FIRST POT CHAIN TO BE DROPPED.
00395  M01S00362.1ta     +++|*                (TN) = TERMINAL NUMBER.
00396  M01S00363.1ta     +++|*
00397  M01S00364.1ta     +++|*         EXIT   MONITOR FUNCTION TO DROP POT(S) COMPLETE.
00398  M01S00365.1ta     +++|*
00399  M01S00366.1ta     +++|*         USES   T1, CM - CM+4.
00400  M01S00367.1ta     +++|*
00401  M01S00368.1ta     +++|*         CALLS  ITF.
00402  M01S00369.1ta     +++|
00403  M01S00370.1ta     +++|
00404  M01S00371.1ta     +++| DPT      SUBR               ENTRY/EXIT
00405  M01S00372.1ta     +++|          LDN    ZERL        CLEAR REQUEST WORD
00406  M01S00373.1ta     +++|          CRD    CM
00407  M01S00374.1ta     +++|          LDC    VDPO        DROP POTS
00408  M01S00375.1ta     +++|          STD    CM
00409  M01S00376.1ta     +++|          LDD    PP
00410  M01S00377.1ta     +++|          STD    CM+3
00411  M01S00378.1ta     +++|          RJM    ITF         ISSUE *TSEM* FUNCTION
00412  M01S00379.1ta     +++|          UJN    DPTX        RETURN
00413  M01S00380.1ta     +++| ERX      SPACE  4,10,10
00414  M01S00381.1ta     +++|**        ERX - ERROR EXIT.
00415  M01S00382.1ta     +++|*
00416  M01S00383.1ta     +++|*         EXIT   COMPLETION BIT AND ERROR BIT SET IN VROT.
00417  M01S00384.1ta     +++|*
00418  M01S00385.1ta     +++|*         USES   CM+4.
00419  M01S00386.1ta     +++|*
00420  M01S00387.1ta     +++|*         USES   CN - CN+4.
00421  M01S00388.1ta     +++|*
00422  M01S00389.1ta     +++|*         NOTE   *ERX* IS ENTERED BY A RETURN JUMP TO ALLOW
00423  M01S00390.1ta     +++|*                SAVING THE ADDRESS AT WHICH THE ERROR OCCURRED.
00424  M01S00391.1ta     +++|
00425  M01S00392.1ta     +++|
00426  M01S00393.1ta     +++| ERX      CON    0           ENTRY / RETURN ADDRESS SAVED
00427  M01S00394.1ta     +++|          RJM    STT         GET TERMINAL TABLE ADDRESS
00428  M01S00395.1ta     +++|          ADK    VROT
00429  M01S00396.1ta     +++|          CRD    CN
00430  M01S00397.1ta     +++|          LDD    CN+4        INSURE ERROR AND COMPLETION BIT SET
00431  M01S00398.1ta     +++|          LPC    3776
00432  M01S00399.1ta     +++|          LMC    4001
00433  M01S00400.1ta     +++|          STD    CN+4
00434  M01S00401.1ta     +++|          RJM    STT         SET TERMINAL TABLE ADDRESS
00435  M01S00402.1ta     +++|          ADK    VROT
00436  M01S00403.1ta     +++|          CWD    CN
00437  M01S00404.1ta     +++|          LJM    ITAX        DROP PP
00438  M01S00405.1ta     +++| ITF      SPACE  4,10
00439  M01S00406.1ta     +++|**        ITF - ISSUE *TSEM* FUNCTION.
00440  M01S00407.1ta     +++|*
00441  M01S00408.1ta     +++|*         ENTRY  (CM - CM+4) = *TSEM* REQUEST.
00442  M01S00409.1ta     +++|*
00443  M01S00410.1ta     +++|*         USES   T1, CM - CM+4.
00444  M01S00411.1ta     +++|*
00445  M01S00412.1ta     +++|*         MACROS DELAY, MONITOR, PAUSE.
00446  M01S00413.1ta     +++|
00447  M01S00414.1ta     +++|
00448  M01S00415.1ta     +++| ITF      SUBR               ENTRY/EXIT
00449  M01S00416.1ta     +++|          LDD    TN
00450  M01S00417.1ta     +++|          STD    CM+4
00451  M01S00418.1ta     +++|          LDD    MA
00452  M01S00419.1ta     +++|          CWD    CM
Line S00420 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00420.271l716 ---| ITF1     MONITOR  TSEM
00454  M01S00005.271l716 +++| ITF1     LDK    ZERL
00455  M01S00006.271l716 +++|          CRD    CM
00456  M01S00007.271l716 +++|          MONITOR  TSEM
00457  M01S00421.1ta     +++|          LDD    CM+1
00458  M01S00422.1ta     +++|          ZJN    ITFX        IF *IAF* INACCESSIBLE OR ERROR
00459  M01S00423.1ta     +++|          LMC    7777
00460  M01S00424.1ta     +++|          NJN    ITFX        IF REQUEST COMPLETE
00461  M01S00425.1ta     +++|          PAUSE  ST
00462  M01S00426.1ta     +++|          LDC    3600        *TSEM* QUEUE FULL - DELAY AND RETRY
00463  M01S00427.1ta     +++|          STD    T1
00464  M01S00428.1ta     +++| ITF2     DELAY
00465  M01S00429.1ta     +++|          SOD    T1
00466  M01S00430.1ta     +++|          ZJN    ITF1        IF TIME TO REISSUE REQUEST
00467  M01S00431.1ta     +++|          UJN    ITF2        CONTINUE TO DELAY
00468  M01S00432.1ta     +++| MSR      SPACE  4,10
00469  M01S00433.1ta     +++|**        MSR - MASS STORAGE READ ERROR PROCESSOR.
00470  M01S00434.1ta     +++|*
00471  M01S00435.1ta     +++|*         EXIT   TO RRF1 TO SET UP ERROR EXIT CONDITIONS.
00472  M01S00436.1ta     +++|
00473  M01S00437.1ta     +++|
00474  M01S00438.1ta     +++| MSR      SUBR               ENTRY/EXIT
00475  M01S00439.1ta     +++|          UJN    RRF1        SET EXIT
Line S00440 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00440.271l716 ---|          SPACE  4,15
00477  M01S00008.271l716 +++| RRF      SPACE  4,20
00478  M01S00441.1ta     +++|**        RRF - READ ROLLOUT FILE.
00479  M01S00442.1ta     +++|*
00480  M01S00443.1ta     +++|*         ENTRY  (A) = 0, READ SYSTEM SECTOR AND CPA SECTOR.
00481  M01S00444.1ta     +++|*                (A) = CPSN, READ CPA SECTOR ONLY.
Line S00445 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00445.271l716 ---|*                (CN - CN+1) = ROLLOUT FILE EQUIPMENT AND TRACK.
00483  M01S00009.271l716 +++|*                (CN - CN+1) = ROLLOUT FILE ADDRESS.
00484  M01S00446.1ta     +++|*
00485  M01S00447.1ta     +++|*         EXIT   (A) = 0, IF NO ROLLOUT FILE OR IF READ ERROR
00486  M01S00448.1ta     +++|*                         ENCOUNTERED.
Line S00449 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00487  M02S00449.271l716 ---|*                    = 1, IF ROLLOUT FILE READ.
00488  M01S00010.271l716 +++|*                (A) .NE. 0, IF ROLLOUT FILE READ WITHOUT ERROR.
00489  M01S00011.271l716 +++|*                SYSTEM SECTOR READ INTO *BFMS*, IF REQUESTED.
00490  M01S00012.271l716 +++|*                FIRST SECTOR OF CPA READ INTO *CBUF*.
00491  M01S00450.1ta     +++|*
Line S00451 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00451.271l716 ---|*         USES   T1 - T7.
00493  M01S00013.271l716 +++|*         USES   T5, T6, T7.
00494  M01S00452.1ta     +++|*
00495  M01S00453.1ta     +++|*         CALLS  RNS, RSS.
00496  M01S00454.1ta     +++|*
Line S00455 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00455.271l716 ---|*         MACROS ENDMS, SETMS.
00498  M01S00014.271l716 +++|*         MACROS ENDMS, SETMS.
00499  M01S00456.1ta     +++|
Line S00457 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00457.271l716 ---|
00501  M01S00015.271l716 +++|
00502  M01S00458.1ta     +++| RRF      SUBR               ENTRY/EXIT
00503  M01S00459.1ta     +++|          STD    T7          SET FIRST SECTOR TO READ
00504  M01S00460.1ta     +++|          LDD    CN+1        SET TRACK
00505  M01S00461.1ta     +++|          STD    T6
00506  M01S00462.1ta     +++|          ZJN    RRFX        IF EMPTY ROLLOUT FILE
00507  M01S00463.1ta     +++|          LDD    CN
00508  M01S00464.1ta     +++|          STD    T5          SET EQUIPMENT
00509  M01S00465.1ta     +++|          SETMS  IO
00510  M01S00466.1ta     +++|          LDD    T7
00511  M01S00467.1ta     +++|          NJN    RRF2        IF NOT STARTING WITH SYSTEM SECTOR
00512  M01S00468.1ta     +++|
00513  M01S00469.1ta     +++|*         READ SYSTEM SECTOR.
00514  M01S00470.1ta     +++|
00515  M01S00471.1ta     +++|          RJM    RSS         READ SYSTEM SECTOR
Line S00472 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00472.271l716 ---|          ZJN    RRF2        IF NO ERROR
00517  M01S00016.271l716 +++|          NJN    RRF1        IF ERROR IN SYSTEM SECTOR
00518  M01S00017.271l716 +++|          LDM    FNSS+4
00519  M01S00018.271l716 +++|          SHN    -6
00520  M01S00019.271l716 +++|          LMN    ROFT
00521  M01S00020.271l716 +++|          ZJN    RRF2        IF ROLLOUT FILE TYPE
00522  M01S00021.271l716 +++|          ENDMS
00523  M01S00473.1ta     +++| RRF1     LDN    0
00524  M01S00474.1ta     +++|          UJN    RRFX        RETURN, ROLLOUT FILE BAD
00525  M01S00475.1ta     +++|
00526  M01S00476.1ta     +++|*         READ CONTROL POINT AREA SECTOR.
00527  M01S00477.1ta     +++|
00528  M01S00478.1ta     +++| RRF2     LDC    CBUF        READ FIRST SECTOR OF CPA
00529  M01S00479.1ta     +++|          RJM    RNS         READ NEXT SECTOR
00530  M01S00480.1ta     +++|          ENDMS
00531  M01S00481.1ta     +++|          LDN    1           INDICATE GOOD ROLLOUT FILE
Line S00482 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00482.271l716 ---|          UJN    RRFX        EXIT
00533  M01S00022.271l716 +++|          LJM    RRFX        RETURN
00534  M01S00483.1ta     +++| STT      SPACE  4,10,10
00535  M01S00484.1ta     +++|**        STT - SET TERMINAL TABLE ADDRESS.
00536  M01S00485.1ta     +++|*
00537  M01S00486.1ta     +++|*         ENTRY  (TT - TT+1) = TERMINAL TABLE ADDRESS.
00538  M01S00487.1ta     +++|*
00539  M01S00488.1ta     +++|*         EXIT   (A) = TERMINAL TABLE ADDRESS
00540  M01S00489.1ta     +++|
00541  M01S00490.1ta     +++|
00542  M01S00491.1ta     +++| STT      SUBR               ENTRY/EXIT
00543  M01S00492.1ta     +++|          LDD    TT
00544  M01S00493.1ta     +++|          SHN    14
00545  M01S00494.1ta     +++|          LMD    TT+1
00546  M01S00495.1ta     +++|          UJN    STTX
00547  M01S00496.1ta     +++|          SPACE  4,10
00548  M01S00497.1ta     +++|*         COMMON DECKS.
00549  M01S00498.1ta     +++|
00550  M01S00499.1ta     +++|
00551  M01S00500.1ta     +++|*CALL     COMPC2D
00552  M01S00501.1ta     +++| IFP$     SET    1           ASSEMBLE REMOTE INITIALIZATION
00553  M01S00502.1ta     +++| QFT$     SET    1           ASSEMBLE QFT ADDRESSING
00554  M01S00503.1ta     +++| EJT$     SET    1           ASSEMBLE EJT ADDRESSING
00555  M01S00504.1ta     +++|*CALL     COMPGFP
Line S00023 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00023.273l780 ---|*CALL     COMPPCP
00557  M01S00505.1ta     +++| MSR$     EQU    0           DEFINE PROGRAM PROCESSED DISK ERRORS
00558  M01S00506.1ta     +++|*CALL     COMPRNS
00559  M01S00507.1ta     +++|*CALL     COMPRSS
00560  M01S00508.1ta     +++|*CALL     COMPSPA
00561  M01S00509.1ta     +++|*CALL     COMPSTA
00562  M01S00510.1ta     +++|*CALL     COMPUPP
00563  M01S00511.1ta     +++|          USE    OVERLAY
00564  M01S00512.1ta     +++| OVL      EQU    *+10
00565  M01S00513.1ta     +++|          SPACE  4,10
00566  M01S00514.1ta     +++| IFP      HERE
00567  M01S00515.1ta     +++| INI      TITLE  INITIALIZATION.
00568  M01S00516.1ta     +++|**        INI - INITIALIZE *1TA*.
00569  M01S00517.1ta     +++|
00570  M01S00518.1ta     +++|
00571  M01S00519.1ta     +++| INI      BSS    0
00572  M01S00520.1ta     +++|          RJM    IFP         INITIALIZE *COMPGFP*
Line S00521 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00573  M02S00521.271l716 ---|          LDD    IR+2        SET COMPLETION ADDRESS
00574  M01S00024.271l716 +++|          LDK    NCPL        GET NUMBER OF CONTROL POINTS
00575  M01S00025.271l716 +++|          CRD    CM
00576  M01S00026.271l716 +++|          AOD    CM+1        SET NUMBER OF CONTROL POINTS
00577  M01S00027.271l716 +++|          STD    NC
Line S00028 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00578  M02S00028.273l780 ---|          IPCP               INITIALIZE *COMPPCP*
00579  M01S00020.273l780 +++|          LDK    PCPP        SET FWA OF PCPA-S
00580  M01S00021.273l780 +++|          CRD    CM
00581  M01S00022.273l780 +++|          LDD    CM+3
00582  M01S00023.273l780 +++|          SHN    14
00583  M01S00024.273l780 +++|          LMD    CM+4
00584  M01S00025.273l780 +++|          SBK    200B
00585  M01S00026.273l780 +++|          STM    CCAA+1
00586  M01S00027.273l780 +++|          SHN    -14
00587  M01S00028.273l780 +++|          LMC    ADCI
00588  M01S00029.273l780 +++|          STM    CCAA
00589  M01S00029.271l716 +++|          LDD    IR+2        SET COMPLETION ADDRESS
00590  M01S00522.1ta     +++|          SHN    6
00591  M01S00523.1ta     +++|          ADD    RA
00592  M01S00524.1ta     +++|          SHN    6
00593  M01S00525.1ta     +++|          ADD    IR+3
00594  M01S00526.1ta     +++|          STM    ITAD+1
00595  M01S00527.1ta     +++|          SHN    -14
00596  M01S00528.1ta     +++|          RAM    ITAD
00597  M01S00529.1ta     +++|          ERRNG  *-OVL-4     *OVL* OVERLAYS PRESET CODE
00598  M01S00530.1ta     +++|          LDN    0           CLEAR OVERLAY LOAD INDICATOR
00599  M01S00531.1ta     +++|          STM    OVL-4
00600  M01S00532.1ta     +++|          LDD    IR+2        SET POT POINTER FOR REQUEST QUEUE
00601  M01S00533.1ta     +++|          SHN    6
00602  M01S00534.1ta     +++|          MJN    INI1        IF ONLY 1 FUNCTION
00603  M01S00535.1ta     +++|
00604  M01S00536.1ta     +++|*         PROCESS MULTIPLE FUNCTION CALL.
00605  M01S00537.1ta     +++|
00606  M01S00538.1ta     +++|          LDD    IR+4
00607  M01S00539.1ta     +++|          STD    PP
00608  M01S00540.1ta     +++|          STM    ITAA
00609  M01S00541.1ta     +++|          RJM    SPA         SET POT ADDRESS OF FIRST POT
00610  M01S00542.1ta     +++|          STM    ITAB+1
00611  M01S00543.1ta     +++|          SHN    -14
00612  M01S00544.1ta     +++|          RAM    ITAB
00613  M01S00545.1ta     +++|          LJM    ITA1        PROCESS MULTIPLE FUNCTION CALL
00614  M01S00546.1ta     +++|
00615  M01S00547.1ta     +++|*         PROCESS SINGLE FUNCTION CALL.
00616  M01S00548.1ta     +++|
00617  M01S00549.1ta     +++| INI1     LDC    -4000       CLEAR FUNCTION FLAG
00618  M01S00550.1ta     +++|          RAD    IR+2
00619  M01S00551.1ta     +++|          LDC    LJMI        SET TO DROP PP
00620  M01S00552.1ta     +++|          STM    ITAX
00621  M01S00553.1ta     +++|          LDC    DPP
00622  M01S00554.1ta     +++|          STM    ITAX+1
00623  M01S00555.1ta     +++|          LJM    ITA4        PROCESS SINGLE FUNCTION CALL.
00624  M01S00556.1ta     +++|          SPACE  4,10
00625  M01S00557.1ta     +++|**        TEST FOR OVERFLOW.
00626  M01S00558.1ta     +++|
00627  M01S00559.1ta     +++|
00628  M01S00560.1ta     +++|          OVERFLOW  PPFW,EPFW  OVERFLOW INTO DISK ERROR PROCESSOR
00629  M01S00561.1ta     +++|
00630  M01S00562.1ta     +++|          USE    OVERFLOW
00631  M01S00563.1ta     +++|          ERRNG  CBUF-*      OVERFLOW INTO *CBUF*
00632  M01S00564.1ta     +++| TFL      OVERLAY (ADJUST TIMESHARING EXECUTIVE FIELD LENGTH.)
00633  M01S00565.1ta     +++| TFL      SPACE  4,10,10
00634  M01S00566.1ta     +++|****      TFL - ADJUST TIMESHARING EXECUTIVE FIELD LENGTH.
00635  M01S00567.1ta     +++|*
00636  M01S00568.1ta     +++|*T, IR    24/ ,12/ 1,6/ ,18/ FL
Figure IR

01718232429 FL 130353659 1

00637  M01S00569.1ta     +++|*
00638  M01S00570.1ta     +++|*         FL   FIELD LENGTH REQUESTED.
00639  M01S00571.1ta     +++| TFL      SPACE  4,10,10
00640  M01S00572.1ta     +++|**        TFL - ADJUST TIMESHARING EXECUTIVE FIELD LENGTH.
00641  M01S00573.1ta     +++|*
00642  M01S00574.1ta     +++|*         USES   WC, CM - CM+4, IR - IR+4, T2 - T7.
00643  M01S00575.1ta     +++|*
00644  M01S00576.1ta     +++|*         CALLS  RSI.
00645  M01S00577.1ta     +++|
00646  M01S00578.1ta     +++|
00647  M01S00579.1ta     +++|          ENTRY  TFL
00648  M01S00580.1ta     +++|          LDD    IR+3
00649  M01S00581.1ta     +++|          SHN    14
00650  M01S00582.1ta     +++|          ADD    IR+4
00651  M01S00583.1ta     +++|          ADN    77
00652  M01S00584.1ta     +++|          SHN    -6
00653  M01S00585.1ta     +++|          RJM    RSI         REQUEST STORAGE INCREASE/DECREASE
00654  M01S00586.1ta     +++|          NJN    TFL2        IF STORAGE INCREASE NOT AVAILABLE
00655  M01S00587.1ta     +++|          LDN    ZERL
00656  M01S00588.1ta     +++|          CRD    CM
00657  M01S00589.1ta     +++|          LDD    RA          RESET TOTAL POTS AVAILABLE AND CLEAR FLAG
00658  M01S00590.1ta     +++|          SHN    6
00659  M01S00591.1ta     +++|          ADN    VCPL
00660  M01S00592.1ta     +++|          CRD    T2
00661  M01S00593.1ta     +++|          ADN    VPAL-VCPL
00662  M01S00594.1ta     +++|          CWD    T2
00663  M01S00595.1ta     +++|          SBN    VPAL-VCPL
00664  M01S00596.1ta     +++|          CWD    CM          INDICATE FL CHANGE COMPLETE
00665  M01S00597.1ta     +++|          LDD    CP          READ FIELD LENGTH CONTROL WORD
00666  M01S00598.1ta     +++|          ADN    FLCW
00667  M01S00599.1ta     +++|          CRD    CM
00668  M01S00600.1ta     +++|          LDD    FL          SET CURRENT FL AS RFL
00669  M01S00601.1ta     +++|          STD    CM+1
00670  M01S00602.1ta     +++|          LDD    CP
00671  M01S00603.1ta     +++|          ADN    FLCW
00672  M01S00604.1ta     +++|          CWD    CM
00673  M01S00605.1ta     +++|          UJN    TFL3        EXIT
00674  M01S00606.1ta     +++|
00675  M01S00607.1ta     +++| TFL2     LDD    IA          SET PP RECALL
00676  M01S00608.1ta     +++|          CRD    IR
00677  M01S00609.1ta     +++|          LDN    ZERL
00678  M01S00610.1ta     +++|          CRD    CM
00679  M01S00611.1ta     +++|          LDD    MA
00680  M01S00612.1ta     +++|          CWD    IR
00681  M01S00613.1ta     +++|          ADN    1
00682  M01S00614.1ta     +++|          CWD    CM
00683  M01S00615.1ta     +++|          LDC    4000        SET TO NOT DROP PP
00684  M01S00616.1ta     +++|          STD    CM+1
00685  M01S00617.1ta     +++|          MONITOR  RECM
00686  M01S00618.1ta     +++| TFL3     LJM    ITAX        EXIT
00687  M01S00619.1ta     +++|          SPACE  4,10
00688  M01S00620.1ta     +++|*         COMMON DECKS.
00689  M01S00621.1ta     +++|
00690  M01S00622.1ta     +++|
00691  M01S00623.1ta     +++|*CALL     COMPRSI
00692  M01S00624.1ta     +++|          SPACE  4,10
00693  M01S00625.1ta     +++|**        TEST FOR OVERFLOW.
00694  M01S00626.1ta     +++|
00695  M01S00627.1ta     +++|
00696  M01S00628.1ta     +++|          OVERFLOW  OVL,EPFW  OVERFLOW INTO DISK ERROR PROCESSOR
00697  M01S00629.1ta     +++| CIQ      OVERLAY  (CREATE INPUT QUEUE ENTRY.)
00698  M01S00630.1ta     +++| CIQ      SPACE  4,20
00699  M01S00631.1ta     +++|**        CIQ - CREATE INPUT QUEUE ENTRY.
00700  M01S00632.1ta     +++|*
00701  M01S00633.1ta     +++|*T, IR    24/ ,12/ FC,12/ TN,12/ PP
Figure IR

01112232429 PP TN FC30353659 FC

00702  M01S00634.1ta     +++|*
00703  M01S00635.1ta     +++|*         FC = FUNCTION  CODE.
00704  M01S00636.1ta     +++|*         TN = TERMINAL NUMBER.
00705  M01S00637.1ta     +++|*         PP = POT POINTER LOGIN PARAMETERS.
00706  M01S00638.1ta     +++|*
00707  M01S00639.1ta     +++|*         *1TA* WILL CREATE AN INPUT FILE AND A *QFT*
00708  M01S00640.1ta     +++|*         ENTRY FOR A LOGIN.  THE INPUT FILE WILL CONTAIN
00709  M01S00641.1ta     +++|*         PRELIMINARY CONTROL CARDS FOR LOGIN.  PARAMETERS
00710  M01S00642.1ta     +++|*         ON THE CARDS ARE TAKEN FROM *VALIDUZ* FILE AND ARE
00711  M01S00643.1ta     +++|*         USED FOR DEFAULT VALUES.
00712  M01S00644.1ta     +++|*
00713  M01S00645.1ta     +++|*         IF NO INPUT QUEUE ENTRY CAN BE CREATED BECAUSE THE
00714  M01S00646.1ta     +++|*         INFORMATION COULD NOT BE WRITTEN TO DISK (DUE TO A
00715  M01S00647.1ta     +++|*         MASS STORAGE ERROR), AN ERROR CODE IS RETURNED TO *IAF*.
00716  M01S00648.1ta     +++|
00717  M01S00649.1ta     +++|
00718  M01S00650.1ta     +++|          ENTRY  CIQ         ENTRY
00719  M01S00651.1ta     +++|          LDC    CSS0.1      INITIALIZE INSTRUCTION MODIFICATIONS
00720  M01S00652.1ta     +++|          STM    CSSG
00721  M01S00653.1ta     +++|          LDC    LDNI+2
00722  M01S00654.1ta     +++|          STM    CIQB
00723  M01S00655.1ta     +++|          RJM    PLI         PRE LOG IN USER
00724  M01S00656.1ta     +++|          LDN    0           CLEAR QFT ORDINAL
00725  M01S00657.1ta     +++|          STD    QF
00726  M01S00658.1ta     +++|          LDC    101         CLEAR SECTOR
00727  M01S00659.1ta     +++|          STD    T1
00728  M01S00660.1ta     +++|          LDC    BFMS
00729  M01S00661.1ta     +++|          RJM    CBU         CLEAR BUFFER
00730  M01S00002.1ta10   +++|          RJM    CEF         CHECK EJT FULL
00731  M01S00662.1ta     +++| CIQ0     RJM    CSS         CREATE SYSTEM SECTOR
00732  M01S00663.1ta     +++|          RJM    CIS         CREATE INPUT SECTOR
00733  M01S00664.1ta     +++|
00734  M01S00665.1ta     +++|*         QUEUE FILE - WRITE QFT ENTRY.
00735  M01S00666.1ta     +++|
00736  M01S00667.1ta     +++|          LDN    QFTE*5-1    SAVE QFT ENTRY
00737  M01S00668.1ta     +++|          STD    T4
00738  M01S00669.1ta     +++| CIQ1     LDM    IOSS,T4
00739  M01S00670.1ta     +++|          STM    CIQA,T4
00740  M01S00671.1ta     +++|          SOD    T4
00741  M01S00672.1ta     +++|          PJN    CIQ1        IF MORE TO MOVE
00742  M01S00673.1ta     +++|          RJM    WDI         WRITE DISK INFORMATION
00743  M01S00674.1ta     +++|          PJN    CIQ2        IF NO MASS STORAGE ERROR ENCOUNTERED
00744  M01S00675.1ta     +++|
00745  M01S00676.1ta     +++|*         MASS STORAGE ERROR ENCOUNTERED - RELEASE TRACKS AND RETRY.
00746  M01S00677.1ta     +++|
00747  M01S00678.1ta     +++|          LDN    ZERL        DROP TRACKS
00748  M01S00679.1ta     +++|          CRD    CM
00749  M01S00680.1ta     +++|          LDD    T5          EST ORDINAL TO DROP
00750  M01S00681.1ta     +++|          STD    CM+1
00751  M01S00682.1ta     +++|          LDD    T6          TRACK TO DROP
00752  M01S00683.1ta     +++|          STD    CM+2
00753  M01S00684.1ta     +++|          MONITOR  DTKM
00754  M01S00685.1ta     +++|          SOM    CIQB
00755  M01S00686.1ta     +++| CIQB     LDN    2
00756  M01S00687.1ta     +++|*         LDN    1           (AFTER FIRST TRY FAILED)
00757  M01S00688.1ta     +++|*         LDN    0           (AFTER SECOND TRY FAILED)
00758  M01S00689.1ta     +++|          NJP    CIQ0        IF RETRY ATTEMPT NEEDED
00759  M01S00690.1ta     +++|
00760  M01S00691.1ta     +++|*         RETURN QFT ENTRY TO POOL.  RETURN MASS STORAGE ERROR CODE
00761  M01S00692.1ta     +++|*         CODE TO *IAFEX*.
00762  M01S00693.1ta     +++|
00763  M01S00694.1ta     +++|          LDD    QF          QFT ORDINAL
00764  M01S00695.1ta     +++|          STD    CM+1
00765  M01S00696.1ta     +++|          LDN    PQFT        ENTRY IS IN QFT
00766  M01S00697.1ta     +++|          STD    CM+2
00767  M01S00698.1ta     +++|          MONITOR  MTRM
00768  M01S00699.1ta     +++|          LDN    20          MASS STORAGE ERROR ENCOUNTERED
00769  M01S00700.1ta     +++|          STD    CN+4
00770  M01S00701.1ta     +++|          RJM    SPA
00771  M01S00702.1ta     +++|          ADN    VUTA
00772  M01S00703.1ta     +++|          CWD    CN
00773  M01S00704.1ta     +++|          RJM    ERX         ERROR EXIT (EXIT TO *ITAX*)
00774  M01S00705.1ta     +++|
00775  M01S00706.1ta     +++| CIQ2     LDN    QFTE
00776  M01S00707.1ta     +++|          STD    T4
00777  M01S00708.1ta     +++|          SFA    QFT,QF
00778  M01S00709.1ta     +++|          CWM    CIQA,T4     WRITE QFT ENTRY
00779  M01S00710.1ta     +++|
00780  M01S00711.1ta     +++|*         ISSUE *ABLQ* ACCOUNTING MESSAGE.
00781  M01S00712.1ta     +++|
Line S00713 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00713.ns2663  ---|          LDC    3RBLQ       ISSUE *ABLQ* MESSAGE
Line S00714 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00714.ns2663  ---|          RJM    IAM         ISSUE ACCOUNT MESSAGE
00784  M01S00007.ns2663  +++|          LDC    2RAB
00785  M01S00008.ns2663  +++|          STM    CBUF-2
00786  M01S00009.ns2663  +++|          LDC    2RLQ
00787  M01S00010.ns2663  +++|          STM    CBUF-1
00788  M01S00011.ns2663  +++|          EXECUTE  0QM,CBUF  ISSUE ACCOUNT MESSAGE
00789  M01S00715.1ta     +++|
00790  M01S00716.1ta     +++|*         REQUEST SCHEDULER.
00791  M01S00717.1ta     +++|
00792  M01S00718.1ta     +++|          LDN    ZERL        CLEAR PARAMETERS
00793  M01S00719.1ta     +++|          CRD    CM
00794  M01S00720.1ta     +++|          AOD    CM+2        SET QFT SCHEDULING OPTION
00795  M01S00721.1ta     +++|          MONITOR  RSJM
00796  M01S00722.1ta     +++|          LJM    ITAX        TERMINATE
00797  M01S00723.1ta     +++|
00798  M01S00724.1ta     +++| CIQA     BSS    QFTE*5      QFT ENTRY BUFFER
00799  M01S00725.1ta     +++| CBU      SPACE  4,10
00800  M01S00726.1ta     +++|**        CBU - CLEAR BUFFER.
00801  M01S00727.1ta     +++|*
00802  M01S00728.1ta     +++|*         ENTRY  (A) = FWA OF AREA TO CLEAR.
00803  M01S00729.1ta     +++|*                (T1) = NUMBER OF CM WORDS TO CLEAR.
00804  M01S00730.1ta     +++|*
00805  M01S00731.1ta     +++|*         EXIT   BUFFER CLEARED.
00806  M01S00732.1ta     +++|*
00807  M01S00733.1ta     +++|*         USES   T1, T2.
00808  M01S00734.1ta     +++|
00809  M01S00735.1ta     +++|
00810  M01S00736.1ta     +++| CBU      SUBR               ENTRY/EXIT
00811  M01S00737.1ta     +++|          STM    CBUA        SAVE ADDRESS TO START CLEARING
00812  M01S00738.1ta     +++|          LDN    7
00813  M01S00739.1ta     +++|          STD    T2
00814  M01S00740.1ta     +++|          LDD    OA          CLEAR OUTPUT REGISTER AND MESSAGE BUFFER
00815  M01S00741.1ta     +++|          CWM    CBUB,T2
00816  M01S00742.1ta     +++| CBU1     LCN    7
00817  M01S00743.1ta     +++|          RAD    T1
00818  M01S00744.1ta     +++|          PJN    CBU2        IF SEVEN OR MORE WORDS LEFT TO CLEAR
00819  M01S00745.1ta     +++|          RAD    T2          ADJUST WORD COUNT
00820  M01S00746.1ta     +++| CBU2     LDD    OA
00821  M01S00747.1ta     +++|          CRM    *,T2
00822  M01S00748.1ta     +++| CBUA     EQU    *-1
00823  M01S00749.1ta     +++|          LDN    7*5         ADVANCE BUFFER ADDRESS
00824  M01S00750.1ta     +++|          RAM    CBUA
00825  M01S00751.1ta     +++|          LDD    T1
00826  M01S00752.1ta     +++|          ZJN    CBUX        IF COMPLETE
00827  M01S00753.1ta     +++|          SHN    21-13
00828  M01S00754.1ta     +++|          PJN    CBU1        IF NOT COMPLETE
00829  M01S00755.1ta     +++|          UJN    CBUX        RETURN
00830  M01S00756.1ta     +++|
00831  M01S00757.1ta     +++| CBUB     BSSZ   7*5
00832  M01S00003.1ta10   +++| CEF      SPACE  4,10
00833  M01S00004.1ta10   +++|**        CEF - CHECK EJT FULL.
00834  M01S00005.1ta10   +++|*
00835  M01S00006.1ta10   +++|*         EXIT   TO *SEC* IF NUMBER OF AVAILABLE ENTRIES IN THE EJT
00836  M01S00007.1ta10   +++|*                ARE .LT. *EJTT*.
00837  M01S00008.1ta10   +++|*
00838  M01S00009.1ta10   +++|*         USES   CM - CM+4.
00839  M01S00010.1ta10   +++|
00840  M01S00011.1ta10   +++|
00841  M01S00012.1ta10   +++| CEF      SUBR               ENTRY/EXIT
00842  M01S00013.1ta10   +++|          LDK    EJTP
00843  M01S00014.1ta10   +++|          CRD    CM
00844  M01S00015.1ta10   +++|          LDD    CM+3
00845  M01S00016.1ta10   +++|          SBN    EJTT        EJT THRESHOLD VALUE
00846  M01S00017.1ta10   +++|          PJN    CEFX        IF ENOUGH ENTRIES IN TABLE
00847  M01S00018.1ta10   +++|          LDN    40          *SYSTEM FULL*
00848  M01S00019.1ta10   +++|          RJM    SEC         SET ERROR CODE (NO RETURN)
00849  M01S00758.1ta     +++| CIS      SPACE  4,10
00850  M01S00759.1ta     +++|**        CIS - CREATE INPUT SECTOR.
00851  M01S00760.1ta     +++|*
00852  M01S00761.1ta     +++|*         ENTRY  SYSTEM SECTOR IN BFMS.
00853  M01S00762.1ta     +++|*
00854  M01S00763.1ta     +++|*         EXIT   INPUT CARDS CREATED IN FBUF.
00855  M01S00764.1ta     +++|*                (WC) = CM WORD COUNT IN SECTOR
00856  M01S00765.1ta     +++|*
00857  M01S00766.1ta     +++|*         USES   T1, T3, WC.
00858  M01S00767.1ta     +++|*
00859  M01S00768.1ta     +++|*         CALLS  ACS, ANS, CBF, DV5, SEL.
00860  M01S00769.1ta     +++|
00861  M01S00770.1ta     +++|
00862  M01S00771.1ta     +++| CIS      SUBR               ENTRY/EXIT
00863  M01S00772.1ta     +++|          LDC    101         CLEAR SECTOR
00864  M01S00773.1ta     +++|          STD    T1
00865  M01S00774.1ta     +++|          LDC    FBUF
00866  M01S00775.1ta     +++|          RJM    CBU         CLEAR BUFFER
00867  M01S00776.1ta     +++|          LDC    FBUF+2      SET BUFFER ADDRESS
00868  M01S00777.1ta     +++|          STD    T1
00869  M01S00778.1ta     +++|          LDC    JNSS        SET UJN HASH
00870  M01S00779.1ta     +++|          RJM    ACS
00871  M01S00780.1ta     +++|          LDC    CISG        SET PERIOD
00872  M01S00781.1ta     +++|          RJM    ACS
00873  M01S00782.1ta     +++|          RJM    SEL         SET EOL
00874  M01S00783.1ta     +++|          LDC    CISH        SET USER CARD
00875  M01S00784.1ta     +++|          RJM    ACS
00876  M01S00785.1ta     +++|          LDC    CISB        SET USERNAME
00877  M01S00786.1ta     +++|          RJM    ACS
00878  M01S00787.1ta     +++|          LDC    CISF        SET COMMA
00879  M01S00788.1ta     +++|          RJM    ACS
00880  M01S00789.1ta     +++|          LDC    CISF        SET COMMA
00881  M01S00790.1ta     +++|          RJM    ACS
00882  M01S00791.1ta     +++|          LDC    CISD        SET FAMILY NAME
00883  M01S00792.1ta     +++|          RJM    ACS
00884  M01S00793.1ta     +++|          LDC    CISG        SET PERIOD
00885  M01S00794.1ta     +++|          RJM    ACS
00886  M01S00795.1ta     +++|          RJM    SEL         SET EOL
00887  M01S00796.1ta     +++|          STM    CISA        STORE PLACE TO CONTINUE ASSEMBLY
00888  M01S00797.1ta     +++|          LDN    CISEL
00889  M01S00798.1ta     +++|          RJM    DV5         WORD COUNT TO TRANSFER
00890  M01S00799.1ta     +++|          STD    T2
00891  M01S00800.1ta     +++|          LDD    MA
00892  M01S00801.1ta     +++|          CWM    CISE,T2
00893  M01S00802.1ta     +++|          SBD    T2
00894  M01S00803.1ta     +++|          CRM    *,T2
00895  M01S00804.1ta     +++| CISA     EQU    *-1
00896  M01S00805.1ta     +++|          LDD    T1
00897  M01S00806.1ta     +++|          ADN    CISEL
00898  M01S00807.1ta     +++|          ADC    -FBUF+2
00899  M01S00808.1ta     +++|          RJM    DV5         DIVIDE BY 5
00900  M01S00809.1ta     +++|          STD    WC
00901  M01S00810.1ta     +++|          LJM    CISX        RETURN
00902  M01S00811.1ta     +++|
00903  M01S00812.1ta     +++| CISB     BSS    5           USERNAME
00904  M01S00813.1ta     +++| CISC     BSS    5           PASSWORD
00905  M01S00814.1ta     +++| CISD     BSS    5           FAMILY NAME
00906  M01S00815.1ta     +++| CISE     VFD    60/10L$RECOVER,O
00907  M01S00816.1ta     +++|          VFD    60/4LP=T.
00908  M01S00817.1ta     +++| CISEL    EQU    *-CISE
00909  M01S00818.1ta     +++| CISF     CON    1L,         COMMA
00910  M01S00819.1ta     +++| CISG     CON    1L.         PERIOD
00911  M01S00820.1ta     +++| CISH     VFD    36/5LUSER,
00912  M01S00821.1ta     +++| CSS      SPACE  4,30
00913  M01S00822.1ta     +++|**        CSS - CREATE SYSTEM SECTOR.
00914  M01S00823.1ta     +++|*
00915  M01S00824.1ta     +++|*         CREATE SYSTEM SECTOR FOR INPUT FILE.
00916  M01S00825.1ta     +++|*         CREATE AN *QFT* ENTRY FOR THE NEW FILE.
00917  M01S00826.1ta     +++|*
00918  M01S00827.1ta     +++|*         ENTRY  (CISB) = CREATION USER NUMBER.
00919  M01S00828.1ta     +++|*                (CISD) = CREATE FAMILY NAME.
00920  M01S00829.1ta     +++|*                (ABUF = ABUF+15) = VALIDATION ACCOUNT BLOCK.
00921  M01S00830.1ta     +++|*                (IR+3) = TERMINAL NUMBER.
00922  M01S00831.1ta     +++|*                (CSSC) = LOWER ACCESS LEVEL LIMIT FOR JOB.
00923  M01S00832.1ta     +++|*                (CSSD) = UPPER ACCESS LEVEL LIMIT FOR JOB.
00924  M01S00833.1ta     +++|*                (CSSE) = SERVICE CLASS.
00925  M01S00834.1ta     +++|*                (QF) = 0, IF INITIAL *CSS* CALL (NO QFT ENTRY
00926  M01S00835.1ta     +++|*                          ASSIGNED).
00927  M01S00836.1ta     +++|*                     = QFT ORDINAL OF ASSIGNED ENTRY, IF INITIAL
00928  M01S00837.1ta     +++|*                          CALL TO *CSS* RESERVED AN ENTRY BUT THE
00929  M01S00838.1ta     +++|*                          SYSTEM SECTOR COULD NOT BE WRITTEN DUE TO
00930  M01S00839.1ta     +++|*                          AN I/O ERROR.
00931  M01S00840.1ta     +++|*
00932  M01S00841.1ta     +++|*         EXIT   (T5) = EQUIPMENT.
00933  M01S00842.1ta     +++|*                (T6) = TRACK.
00934  M01S00843.1ta     +++|*                (T7) = SECTOR.
00935  M01S00844.1ta     +++|*                (QF) = QFT ORDINAL OF ASSIGNED ENTRY.
00936  M01S00845.1ta     +++|*                *QFT* ENTRY IN IOSS.
00937  M01S00846.1ta     +++|*                SYSTEM SECTOR CREATED IN BFMS.
00938  M01S00847.1ta     +++|*                CORRECT EOI SET IN TRT.
00939  M01S00848.1ta     +++|*
Line S00849 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta12
Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00849.1ta12   ---|*         USES  CM - CM+4, CN, PP, T1 - T7.
00941  M01S00001.1ta12   +++|*         USES   CM - CM+4, FN - FN+4, QF, T1, T2, T5, T6.
00942  M01S00850.1ta     +++|*
Line S00851 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta12
Seq #  *Modification Id* Act 
----------------------------+
00943  M02S00851.1ta12   ---|*         CALLS  CBU, CMI, CTE, ECI, GBN, RFI, STT, TLI.
00944  M01S00002.1ta12   +++|*         CALLS  CTE, GNB, RFI, RJC, SEC, STT, TLI.
00945  M01S00852.1ta     +++|*
00946  M01S00853.1ta     +++|*         MACROS MONITOR.
00947  M01S00854.1ta     +++|
00948  M01S00855.1ta     +++|
00949  M01S00856.1ta     +++| CSS      SUBR               ENTRY/EXIT
00950  M01S00857.1ta     +++|          LDN    ZERL        CLEAR PARAMETERS
00951  M01S00858.1ta     +++|          CRD    CM
00952  M01S00859.1ta     +++|          LDN    INPS        SELECT INPUT DEVICE
00953  M01S00860.1ta     +++|          STD    CM+2
00954  M01S00861.1ta     +++|          LDM    CSSC        SELECT ON LOWER ACCESS LEVEL OF JOB
00955  M01S00862.1ta     +++|          ADN    40
00956  M01S00863.1ta     +++|          SHN    6
00957  M01S00864.1ta     +++|          STD    CM+3
00958  M01S00865.1ta     +++|          LDN    3           SET NUMBER OF SECTORS
00959  M01S00866.1ta     +++|          STD    CM+4
00960  M01S00867.1ta     +++|          MONITOR  RTCM      ASSIGN MASS STORAGE SPACE
00961  M01S00868.1ta     +++|          LDD    CM+1        SET EQUIPMENT
00962  M01S00869.1ta     +++|          STD    T5
00963  M01S00870.1ta     +++|          LDD    CM+4        SET TRACK
00964  M01S00871.1ta     +++|          STD    T6
00965  M01S00872.1ta     +++|          NJN    CSS0        IF TRACK ASSIGNED
00966  M01S00873.1ta     +++|          LDD    QF          QFT ORDINAL
00967  M01S00874.1ta     +++|          ZJN    CSS1        IF NO QFT ENTRY RESERVED
00968  M01S00875.1ta     +++|          STD    CM+1
00969  M01S00876.1ta     +++|          LDN    PQFT        ENTRY IS IN QFT
00970  M01S00877.1ta     +++|          STD    CM+2
00971  M01S00878.1ta     +++|          MONITOR  MTRM      RETURN QFT ENTRY TO POOL
00972  M01S00879.1ta     +++|*         LDN    0
00973  M01S00880.1ta     +++|          UJN    CSS1        SET ERROR STATUS
00974  M01S00881.1ta     +++|
00975  M01S00882.1ta     +++| CSS0     LJM    CSS0.1      REQUEST QFT ENTRY
00976  M01S00883.1ta     +++|*         LJM    CSS2.1      (QFT ENTRY PREVIOUSLY REQUESTED/ASSIGNED)
00977  M01S00884.1ta     +++| CSSG     EQU    *-1
00978  M01S00885.1ta     +++|
00979  M01S00886.1ta     +++|*         REQUEST *QFT* ENTRY.
00980  M01S00887.1ta     +++|
00981  M01S00888.1ta     +++| CSS0.1   LDN    ZERL        CLEAR FIRST WORD VALUE
00982  M01S00889.1ta     +++|          CRD    CM+3
00983  M01S00890.1ta     +++|          LDN    7
00984  M01S00891.1ta     +++|          STD    CM+7        SET INTERLOCK BIT
00985  M01S00892.1ta     +++|          LDN    PQFT        GET QFT ENTRY WITH JSN
00986  M01S00893.1ta     +++|          RJM    CTE         CREATE TABLE ENTRY
00987  M01S00894.1ta     +++|          NJN    CSS2        IF QFT NOT FULL
00988  M01S00895.1ta     +++|          LDN    ZERL        CLEAR PARAMETERS
00989  M01S00896.1ta     +++|          CRD    CM
00990  M01S00897.1ta     +++|          LDD    T5          SET EQUIPMENT AND TRACK TO DROP
00991  M01S00898.1ta     +++|          STD    CM+1
00992  M01S00899.1ta     +++|          LDD    T6
00993  M01S00900.1ta     +++|          STD    CM+2
00994  M01S00901.1ta     +++|          MONITOR  DTKM      DROP TRACKS
00995  M01S00902.1ta     +++|          LDN    40          FLAG *SYSTEM FULL* ERROR
Line S00903 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta10
Seq #  *Modification Id* Act 
----------------------------+
00996  M02S00903.1ta10   ---| CSS1     LJM    PLI7        SET ERROR STATUS
00997  M01S00020.1ta10   +++| CSS1     RJM    SEC         SET ERROR CODE (NO RETURN)
00998  M01S00904.1ta     +++|
00999  M01S00905.1ta     +++|*         FORMAT SYSTEM SECTOR AND *QFT* ENTRY.
01000  M01S00906.1ta     +++|
01001  M01S00907.1ta     +++| CSS2     CRM    IOSS,ON     READ INTO SYSTEM SECTOR QFT
01002  M01S00908.1ta     +++|          SBN    1
Line S00909 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01003  M02S00909.ns2663  ---|          CRM    CJSS,ON
Line S00910 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00910.ns2663  ---|          SBN    1
01005  M01S00911.1ta     +++|          CRM    OJSS,ON
01006  M01S00912.1ta     +++|          LDC    CSS2.1      BYPASS FORMATTING ON SUBSEQUENT CALLS
01007  M01S00913.1ta     +++|          STM    CSSG
01008  M01S00914.1ta     +++|          LDD    CM+1        SAVE QFT ORDINAL
01009  M01S00915.1ta     +++|          STD    QF
01010  M01S00916.1ta     +++|          STM    GQSS
01011  M01S00012.ns2663  +++|          LDD    CP          SET CREATING JOB JSN
01012  M01S00013.ns2663  +++|          ADK    TFSW
01013  M01S00014.ns2663  +++|          CRD    CM
01014  M01S00015.ns2663  +++|          SFA    EJT,CM
01015  M01S00016.ns2663  +++|          ADK    JSNE
01016  M01S00017.ns2663  +++|          CRM    CJSS,ON
01017  M01S00917.1ta     +++|          LDN    0
01018  M01S00018.ns2663  +++|          STM    CJSS+2
01019  M01S00918.1ta     +++|          STM    PRSS
01020  M01S00919.1ta     +++|          RJM    STT         GET TERMINAL TABLE ADDRESS
01021  M01S00920.1ta     +++|          ADK    VFST
01022  M01S00921.1ta     +++|          CRD    CM
01023  M01S00922.1ta     +++|          LDM    IOSS        ADD JSN TO *VFST*
01024  M01S00923.1ta     +++|          STD    CM
01025  M01S00924.1ta     +++|          LDM    IOSS+1
01026  M01S00925.1ta     +++|          STD    CM+1
01027  M01S00926.1ta     +++|          RJM    STT
01028  M01S00927.1ta     +++|          ADK    VFST
01029  M01S00928.1ta     +++|          CWD    CM
01030  M01S00929.1ta     +++| CSS2.1   LDK    RTCL        SET ENTRY TIME
01031  M01S00930.1ta     +++|          CRD    CM
01032  M01S00931.1ta     +++|          LDD    CM
01033  M01S00932.1ta     +++|          STM    IOSS+ENTQ*5+3
01034  M01S00933.1ta     +++|          LDD    CM+1
01035  M01S00934.1ta     +++|          STM    IOSS+ENTQ*5+4
01036  M01S00935.1ta     +++|          LDD    T6          SET TRACK
01037  M01S00936.1ta     +++|          STM    IOSS+ENTQ*5+1
01038  M01S00937.1ta     +++|          LDD    T5          SET EQUIPMENT
01039  M01S00938.1ta     +++|          STM    IOSS+ENTQ*5
01040  M01S00939.1ta     +++|          LDC    NOQF*100    SET QUEUE FILE TYPE
01041  M01S00940.1ta     +++|          STM    IOSS+JSNQ*5+4
01042  M01S00941.1ta     +++|          LDC    **
01043  M01S00942.1ta     +++| CSSE     EQU    *-1         (SERVICE CLASS TO ASSIGN)
01044  M01S00943.1ta     +++|          SHN    6
01045  M01S00944.1ta     +++|          ADN    IAOT        SET ORIGIN TYPE
01046  M01S00945.1ta     +++|          STM    IOSS+SCLQ*5
01047  M01S00946.1ta     +++|          LDN    PDTL        SET PACKED DATE AND TIME
01048  M01S00947.1ta     +++|          CRD    CM
01049  M01S00948.1ta     +++|          LDD    CM+2
01050  M01S00949.1ta     +++|          STM    CDSS+2
01051  M01S00950.1ta     +++|          LDD    CM+3
01052  M01S00951.1ta     +++|          STM    CDSS+3
01053  M01S00952.1ta     +++|          LDD    CM+4
01054  M01S00953.1ta     +++|          STM    CDSS+4
01055  M01S00954.1ta     +++|          LDN    IPRL        SET DEFAULT KEYPUNCH MODE
01056  M01S00955.1ta     +++|          CRD    CM
01057  M01S00956.1ta     +++|          LDD    CM+2
01058  M01S00957.1ta     +++|          SHN    -13
01059  M01S00958.1ta     +++|          STM    JFSS
01060  M01S00959.1ta     +++|          LDN    3           SET FLAGS - FILE IN ACTIVE QUEUE
01061  M01S00960.1ta     +++|          STM    FGSS
01062  M01S00961.1ta     +++|          LDC    2RIN        SET DISPOSITION CODE
01063  M01S00962.1ta     +++|          STM    DCSS
01064  M01S00963.1ta     +++|          LDC    MMFL        SET MACHINE ID
01065  M01S00964.1ta     +++|          CRD    CM
01066  M01S00965.1ta     +++|          LDD    CM
01067  M01S00966.1ta     +++|          STM    RMSS
01068  M01S00967.1ta     +++|          STM    CMSS
01069  M01S00968.1ta     +++|          LDN    3           SET FILE LENGTH IN SECTORS
01070  M01S00969.1ta     +++|          STM    FLSS+1
01071  M01S00970.1ta     +++|          LDC    FLSS        GET ADDRESS OF SYSTEM SECTOR FILE LENGTH
01072  M01S00971.1ta     +++|          RJM    RFI         SET FILE SIZE INDEX IN QFT ENTRY
01073  M01S00972.1ta     +++|          LDD    MA          SET CREATION USER NUMBER
01074  M01S00973.1ta     +++|          CWM    ABUF+ACCN*5,ON
01075  M01S00974.1ta     +++|          CWM    CISD,ON   SET CREATION FAMILY
01076  M01S00975.1ta     +++|          SBN    2
01077  M01S00976.1ta     +++|          CRM    ACSS,ON
01078  M01S00977.1ta     +++|          CRM    FMSS,ON
01079  M01S00978.1ta     +++|          SBN    2
01080  M01S00979.1ta     +++|          CRM    OASS,ON
01081  M01S00980.1ta     +++|          CRM    FOSS,ON
01082  M01S00981.1ta     +++|          LDN    0           CLEAR CONTROL POINT AND SLID
01083  M01S00982.1ta     +++|          STM    CPSS
01084  M01S00983.1ta     +++|          STM    SLSS+1
01085  M01S00984.1ta     +++|          LDM    SLSS
01086  M01S00985.1ta     +++|          SCN    77
01087  M01S00986.1ta     +++|          STM    SLSS
01088  M01S00987.1ta     +++|          LDD    PA          GET TERMINAL NAME FROM POT
01089  M01S00988.1ta     +++|          SHN    14
01090  M01S00989.1ta     +++|          ADD    PA+1
01091  M01S00990.1ta     +++|          ADN    VTRY
01092  M01S00991.1ta     +++|          CRM    TNSS,ON
01093  M01S00992.1ta     +++|          LDD    IR+3        SET TERMINAL NUMBER
01094  M01S00993.1ta     +++|          STM    TRSS
01095  M01S00001.261l700 +++|          LDM    ABUF+ATIS*5+1  SET INITIAL INTERACTIVE SUBSYSTEM
01096  M01S00002.261l700 +++|          SHN    -6
01097  M01S00003.261l700 +++|          LPN    37
01098  M01S00004.261l700 +++|          LMM    ISSS
01099  M01S00005.261l700 +++|          LPN    77
01100  M01S00006.261l700 +++|          LMM    ISSS
01101  M01S00007.261l700 +++|          STM    ISSS
01102  M01S00008.261l700 +++|          LDM    ABUF+APXI*5+3  SET INTERACTIVE PW EXPIRATION DATE
01103  M01S00009.261l700 +++|          LPN    77
01104  M01S00010.261l700 +++|          STM    PESS
01105  M01S00011.261l700 +++|          LDM    ABUF+APXI*5+4
01106  M01S00012.261l700 +++|          STM    PESS+1
01107  M01S00994.1ta     +++|
01108  M01S00995.1ta     +++|*         MOVE FIRST HALF OF VALIDATION ACCOUNT BLOCK TO SYSTEM SECTOR.
01109  M01S00996.1ta     +++|
01110  M01S00997.1ta     +++|          LDN    0
01111  M01S00998.1ta     +++|          STD    T1
01112  M01S00999.1ta     +++| CSS3     LDM    ABUF,T1
01113  M01S01000.1ta     +++|          STM    VASS,T1
01114  M01S01001.1ta     +++|          AOD    T1
01115  M01S01002.1ta     +++|          LMC    ABSS*5
01116  M01S01003.1ta     +++|          NJN    CSS3        IF NOT LAST BYTE
Line S01004 Modification History
M01 (Added by) 1ta
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
01117  M02S01004.261l700 ---|
Line S01005 Modification History
M01 (Added by) 1ta
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
01118  M02S01005.261l700 ---|*         SET INITIAL INTERACTIVE SUBSYSTEM.
Line S01006 Modification History
M01 (Added by) 1ta
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
01119  M02S01006.261l700 ---|
Line S01007 Modification History
M01 (Added by) 1ta
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
01120  M02S01007.261l700 ---|          LDM    ABUF+ATIS*5+1         GET INITIAL SUBSYSTEM
Line S01008 Modification History
M01 (Added by) 1ta
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
01121  M02S01008.261l700 ---|          SHN    -6
Line S01009 Modification History
M01 (Added by) 1ta
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
01122  M02S01009.261l700 ---|          LPN    37
Line S01010 Modification History
M01 (Added by) 1ta
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
01123  M02S01010.261l700 ---|          STM    ISSS
01124  M01S01011.1ta     +++|
01125  M01S01012.1ta     +++|*         SET USER INDEX/FAMILY ORDINAL/ACCESS LEVEL LIMITS INTO QFT.
01126  M01S01013.1ta     +++|
01127  M01S01014.1ta     +++|          LDM    ABUF+AUIN*5+3  GET USER INDEX
01128  M01S01015.1ta     +++|          LPN    77
01129  M01S01016.1ta     +++|          STM    IOSS+JSNQ*5+2
01130  M01S01017.1ta     +++|          STD    T1          FOR BANNER NAME
01131  M01S01018.1ta     +++|          LDM    ABUF+AUIN*5+4
01132  M01S01019.1ta     +++|          STM    IOSS+JSNQ*5+3
01133  M01S01020.1ta     +++|          STD    T2          FOR BANNER NAME
01134  M01S01021.1ta     +++|          LDC    *           SAVE FO
01135  M01S01022.1ta     +++| CSSA     EQU    *-1         FAMILY ORDINAL - SET BY *PLI*
01136  M01S01023.1ta     +++|          SHN    6           POSITION FO
01137  M01S01024.1ta     +++|          RAM    IOSS+JSNQ*5+2
01138  M01S01025.1ta     +++|          LDM    IOSS+INSQ*5+3  SET ACCESS LEVEL LIMITS
01139  M01S01026.1ta     +++|          SHN    -11
01140  M01S01027.1ta     +++|          SHN    3
01141  M01S01028.1ta     +++|          LMC    *
01142  M01S01029.1ta     +++| CSSF     EQU    *-1         (LOWER ACCESS LEVEL LIMIT)
01143  M01S01030.1ta     +++|          SHN    3
01144  M01S01031.1ta     +++|          LMC    *
01145  M01S01032.1ta     +++| CSSC     EQU    *-1         (INITIAL JOB ACCESS LEVEL)
01146  M01S01033.1ta     +++|          SHN    3
01147  M01S01034.1ta     +++|          LMC    *
01148  M01S01035.1ta     +++| CSSD     EQU    *-1         (UPPER ACCESS LEVEL LIMIT)
01149  M01S01036.1ta     +++|          STM    IOSS+INSQ*5+3
01150  M01S01037.1ta     +++|
01151  M01S01038.1ta     +++|*         GENERATE UJN FOR JOB.
01152  M01S01039.1ta     +++|
01153  M01S01040.1ta     +++|          RJM    GBN         GENERATE BANNER NAME
01154  M01S01041.1ta     +++|          LDN    ZERL
01155  M01S01042.1ta     +++|          CRD    CM
01156  M01S01043.1ta     +++|          LDD    T1
01157  M01S01044.1ta     +++|          STD    CM
01158  M01S01045.1ta     +++|          LDD    T2
01159  M01S01046.1ta     +++|          STD    CM+1
01160  M01S01047.1ta     +++|          LDD    MA
01161  M01S01048.1ta     +++|          CWD    CM
01162  M01S01049.1ta     +++|          CRM    JNSS,ON
01163  M01S01050.1ta     +++|
Line S01051 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta12
Seq #  *Modification Id* Act 
----------------------------+
01164  M02S01051.1ta12   ---|*         SET TIME LIMIT, CM LIMIT, ECS LIMIT.
01165  M01S00003.1ta12   +++|*         SET TIME LIMIT AND CM AND EM SERVICE LIMITS.
01166  M01S01052.1ta     +++|
Line S01053 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta12
Seq #  *Modification Id* Act 
----------------------------+
01167  M02S01053.1ta12   ---|          LDM    VASS+AHCM*5+3  GET MAX CM FL
Line S01054 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta12
Seq #  *Modification Id* Act 
----------------------------+
01168  M02S01054.1ta12   ---|          RJM    CMI         COMPUTE CM FL
01169  M01S00004.1ta12   +++|          LCN    0           PRESET LIMITS
01170  M01S01055.1ta     +++|          STM    JCSS
Line S01056 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta12
Seq #  *Modification Id* Act 
----------------------------+
01171  M02S01056.1ta12   ---|          LDM    VASS+AHEC*5+3  GET MAX EC FL
Line S01057 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta12
Seq #  *Modification Id* Act 
----------------------------+
01172  M02S01057.1ta12   ---|          RJM    ECI         COMPUTE EC FL
01173  M01S01058.1ta     +++|          STM    JESS
Line S01059 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta12
Seq #  *Modification Id* Act 
----------------------------+
01174  M02S01059.1ta12   ---|          LDM    VASS+AHTL*5+2  GET TIME LIMIT
01175  M01S00005.1ta12   +++|          LDM    CSSE        GET JCB ADDRESS
01176  M01S00006.1ta12   +++|          RJM    RJC
01177  M01S00007.1ta12   +++|          ZJN    CSS4        IF JCB NOT DEFINED
01178  M01S00008.1ta12   +++|          ADN    MCMT        GET CM LIMIT
01179  M01S00009.1ta12   +++|          CRD    CM
01180  M01S00010.1ta12   +++|          ADN    MECT-MCMT   GET EM LIMIT
01181  M01S00011.1ta12   +++|          CRD    FN
01182  M01S00012.1ta12   +++|          LDD    CM+2        SET LIMITS IN SYSTEM SECTOR
01183  M01S00013.1ta12   +++|          STM    JCSS
01184  M01S00014.1ta12   +++|          LDD    FN+2
01185  M01S00015.1ta12   +++|          STM    JESS
01186  M01S00016.1ta12   +++| CSS4     LDM    VASS+AHTL*5+2  GET TIME LIMIT
01187  M01S01060.1ta     +++|          RJM    TLI         COMPUTE TL/10B
01188  M01S01061.1ta     +++|          SHN    3
01189  M01S01062.1ta     +++|          STM    JTSS+1
01190  M01S01063.1ta     +++|          SHN    -14
01191  M01S01064.1ta     +++|          STM    JTSS
01192  M01S01065.1ta     +++|
01193  M01S01066.1ta     +++|*         SET LOCAL FNT WORD.
01194  M01S01067.1ta     +++|
01195  M01S01068.1ta     +++|          LDD    MA
01196  M01S01069.1ta     +++|          CWM    CSSB,ON
01197  M01S01070.1ta     +++|          SBN    1
01198  M01S01071.1ta     +++|          CRM    FNSS,ON
01199  M01S01072.1ta     +++|          LJM    CSSX        RETURN
01200  M01S01073.1ta     +++|
01201  M01S01074.1ta     +++| CSSB     VFD    42/0LINPUT,6/0,6/INFT,6/0
01202  M01S01075.1ta     +++| PLI      SPACE  4,25
01203  M01S01076.1ta     +++|**        PLI - PRE LOG IN USER.
01204  M01S01077.1ta     +++|*
01205  M01S01078.1ta     +++|*         VALIDATES USER NUMBER AND PASSWORD.
01206  M01S01079.1ta     +++|*
01207  M01S01080.1ta     +++|*         ENTRY  (IR+4) = POT POINTER TO POT WITH
01208  M01S01081.1ta     +++|*                LOGIN INFORMATION.
01209  M01S01082.1ta     +++|*
01210  M01S01083.1ta     +++|*         EXIT   IF VALID, USER INDEX AND ACCOUNT INFORMATION
01211  M01S01084.1ta     +++|*                RETURNED TO TERMINAL TABLE AND USER VALIDATION FIELDS
01212  M01S01085.1ta     +++|*                PRESET IN CONTROL POINT AREA.
01213  M01S01086.1ta     +++|*                (CSSC) = LOWER ACCESS LEVEL LIMIT FOR JOB.
01214  M01S01087.1ta     +++|*                (CSSD) = UPPER ACCESS LEVEL LIMIT FOR JOB.
01215  M01S01088.1ta     +++|*                (CSSE) = SERVICE CLASS TO BE ASSIGNED.
01216  M01S01089.1ta     +++|*                IF NOT VALID OR IF *0AV* ENCOUNTERED AN INACCESSIBLE
01217  M01S01090.1ta     +++|*                DEVICE OR A MASS STORAGE ERROR, AN  ERROR CODE IS
01218  M01S01091.1ta     +++|*                RETURNED.
01219  M01S01092.1ta     +++|*
01220  M01S01093.1ta     +++|*         USES   OT, PP, T1, T2, T3, T5, T7, CM - CM+4, CN - CN+4,
01221  M01S01094.1ta     +++|*                DF - DF+4, FN - FN+4.
01222  M01S01095.1ta     +++|*
01223  M01S01096.1ta     +++|*         CALLS  ERX, GFM, GFO, ITF, SPA, VPW, VSP, *0AV*.
01224  M01S01097.1ta     +++|*
01225  M01S01098.1ta     +++|*         MACROS EXECUTE, MONITOR.
01226  M01S01099.1ta     +++|
01227  M01S01100.1ta     +++|
01228  M01S01101.1ta     +++| PLI      SUBR               ENTRY/EXIT
01229  M01S01102.1ta     +++|          LDD    IR+4        POT POINTER WITH LOGIN INFORMATION
01230  M01S01103.1ta     +++|          STD    PP
01231  M01S01104.1ta     +++|          RJM    SPA         SET POT ADDRESS
01232  M01S01105.1ta     +++|          ADN    VFNA        SET FAMILY NAME FOR 0AV
01233  M01S01106.1ta     +++|          CRD    CN
01234  M01S01107.1ta     +++|          CRM    CISD,ON
01235  M01S01108.1ta     +++|          ADK    VUNA-VFNA-1 GET USER NAME
01236  M01S01109.1ta     +++|          CRD    DF
01237  M01S01110.1ta     +++|          CRM    CISB,ON
01238  M01S01111.1ta     +++|          LDD    CN
01239  M01S01112.1ta     +++|          NJN    PLI2        IF FAMILY NAME SUPPLIED
01240  M01S01113.1ta     +++|          LDD    CN+4
01241  M01S01114.1ta     +++|          NJN    PLI1        IF FAMILY ORDINAL SUPPLIED
01242  M01S01115.1ta     +++|          LDN    1           SET DEFAULT FAMILY ORDINAL
01243  M01S01116.1ta     +++| PLI1     RJM    GFM         GET FAMILY NAME
01244  M01S01117.1ta     +++|          LDD    FN+3
01245  M01S01118.1ta     +++|          SCN    77
01246  M01S01119.1ta     +++|          STD    FN+3
01247  M01S01120.1ta     +++|          LDN    0
01248  M01S01121.1ta     +++|          STD    FN+4
01249  M01S01122.1ta     +++|          LDD    MA
01250  M01S01123.1ta     +++|          CWD    FN
01251  M01S01124.1ta     +++|          CRD    CN
01252  M01S01125.1ta     +++|          CRM    CISD,ON
01253  M01S01126.1ta     +++| PLI2     LDD    DF+3        CLEAR UI FIELD
01254  M01S01127.1ta     +++|          SCN    77
01255  M01S01128.1ta     +++|          STD    DF+3
01256  M01S01129.1ta     +++|          STM    CISB+3
01257  M01S01130.1ta     +++|          LDN    0
01258  M01S01131.1ta     +++|          STD    DF+4
01259  M01S01132.1ta     +++|          STD    CN+4
01260  M01S01133.1ta     +++|          STM    CISB+4
01261  M01S01134.1ta     +++|          EXECUTE  0AV,CBUF
Line S01135 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01262  M02S01135.1ta11   ---|          PJN    PLI2.1      IF NO MASS STORAGE ERROR ENCOUNTERED
01263  M01S00002.1ta11   +++|          PJN    PLI3        IF NO MASS STORAGE ERROR ENCOUNTERED
01264  M01S01136.1ta     +++|          LDN    20          FLAG MASS STORAGE ERROR
Line S01137 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01265  M02S01137.1ta11   ---|          LJM    PLI7        SET ERROR CODE
01266  M01S00003.1ta11   +++|          LJM    PLI19       SET ERROR CODE
01267  M01S01138.1ta     +++|
Line S01139 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01268  M02S01139.1ta11   ---| PLI2.1   LDD    T4          SAVE (T4)
01269  M01S00004.1ta11   +++| PLI3     LDD    T4          SAVE (T4)
01270  M01S01140.1ta     +++|          STD    T5
01271  M01S01141.1ta     +++|
01272  M01S01142.1ta     +++|*         CHECK FOR ACCOUNT FOUND.
01273  M01S01143.1ta     +++|
01274  M01S01144.1ta     +++|          LDN    0           SET INDEX
01275  M01S01145.1ta     +++|          STD    T7
01276  M01S01146.1ta     +++|          LDD    T1          CHECK USER INDEX
01277  M01S01147.1ta     +++|          ADD    T2
Line S01148 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01278  M02S01148.1ta11   ---|          NJN    PLI3        IF ACCOUNT FOUND
Line S01149 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01279  M02S01149.1ta11   ---|          LJM    PLI6        SET ERROR
01280  M01S00005.1ta11   +++|          NJN    PLI4        IF ACCOUNT FOUND
01281  M01S00006.1ta11   +++|          LJM    PLI16       SET ERROR
01282  M01S01150.1ta     +++|
01283  M01S01151.1ta     +++|*         MOVE USER ACCOUNT BLOCK.
01284  M01S01152.1ta     +++|
Line S01153 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01285  M02S01153.1ta11   ---| PLI3     LDI    T3
01286  M01S00007.1ta11   +++| PLI4     LDI    T3
01287  M01S01154.1ta     +++|          STM    ABUF,T7
01288  M01S01155.1ta     +++|          AOD    T3
01289  M01S01156.1ta     +++|          AOD    T7
01290  M01S01157.1ta     +++|          LMC    ARBS*5
Line S01158 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01291  M02S01158.1ta11   ---|          NJN    PLI3        IF NOT LAST BYTE
01292  M01S00008.1ta11   +++|          NJN    PLI4        IF NOT LAST BYTE
01293  M01S01159.1ta     +++|          STD    T2          INITIALIZE TABLE INDEX
01294  M01S01160.1ta     +++|
01295  M01S01161.1ta     +++|*         SET SERVICE CLASS.
01296  M01S01162.1ta     +++|
01297  M01S01163.1ta     +++|          LDM    ABUF+ASC1*5+1  GET USER DEFAULT FOR INTERACTIVE ORIGIN
01298  M01S01164.1ta     +++|          LPN    77
01299  M01S01165.1ta     +++|          STD    T1
Line S01166 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01300  M02S01166.1ta11   ---| PLI3.1   LDM    TVSC,T2     SEARCH FOR VALID SERVICE CLASS
01301  M01S00009.1ta11   +++| PLI5     LDM    TVSC,T2     SEARCH FOR VALID SERVICE CLASS
01302  M01S01167.1ta     +++|          LMD    T1
Line S01168 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01303  M02S01168.1ta11   ---|          ZJN    PLI3.2      IF MATCH FOUND
01304  M01S00010.1ta11   +++|          ZJN    PLI6        IF MATCH FOUND
01305  M01S01169.1ta     +++|          AOD    T2          INCREMENT TABLE INDEX
01306  M01S01170.1ta     +++|          LDN    MXSC
01307  M01S01171.1ta     +++|          SBD    T2
Line S01172 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01308  M02S01172.1ta11   ---|          MJN    PLI3.3      IF END OF TABLE
Line S01173 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01309  M02S01173.1ta11   ---|          UJN    PLI3.1      CHECK NEXT ENTRY
01310  M01S00011.1ta11   +++|          MJN    PLI8        IF END OF TABLE
01311  M01S00012.1ta11   +++|          UJN    PLI5        CHECK NEXT ENTRY
01312  M01S01174.1ta     +++|
Line S01175 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01313  M02S01175.1ta11   ---| PLI3.2   STD    T3          CHECK IF SERVICE CLASS IS VALID FOR USER
01314  M01S00013.1ta11   +++| PLI6     STD    T3          CHECK IF SERVICE CLASS IS VALID FOR USER
01315  M01S01176.1ta     +++|          LDN    IAOT        SET ORIGIN TYPE
01316  M01S01177.1ta     +++|          STD    OT
Line S01178 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01317  M02S01178.1ta11   ---|          LDD    MA          GET VALIDATION MASK
01318  M01S00014.1ta11   +++|          LDD    T2          SET SERVICE CLASS
01319  M01S00015.1ta11   +++|          STM    CSSE
01320  M01S00016.1ta11   +++| PLI7     LDD    MA          GET VALIDATION MASK
01321  M01S01179.1ta     +++|          CWM    ABUF+ASCV*5,ON
01322  M01S01180.1ta     +++|          SBN    1
01323  M01S01181.1ta     +++|          CRD    CN
Line S01182 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01324  M02S01182.1ta11   ---|          LDD    T2          SET SERVICE CLASS
Line S01183 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01325  M02S01183.1ta11   ---|          STM    CSSE
01326  M01S00017.1ta11   +++|          LDM    CSSE
01327  M01S01184.1ta     +++|          RJM    VSP         VALIDATE SERVICE CLASS
Line S01185 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01328  M02S01185.1ta11   ---|          ZJN    PLI3.5      IF NO ERROR
01329  M01S00018.1ta11   +++|          ZJN    PLI12       IF NO ERROR
01330  M01S01186.1ta     +++|          LMN    3
Line S01187 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01331  M02S01187.1ta11   ---|          ZJN    PLI3.4      IF SERVICE CLASS FULL
01332  M01S00019.1ta11   +++| PLI8     NJN    PLI10       IF NOT SERVICE CLASS FULL
01333  M01S00020.1ta11   +++|          LDN    NSVR        NUMBER OF SERVICE CLASS VALIDATION RETRIES
01334  M01S00021.1ta11   +++| PLIA     EQU    *-1
01335  M01S00022.1ta11   +++|          ZJN    PLI11       IF NO MORE RETRIES POSSIBLE
01336  M01S00023.1ta11   +++|          SOM    PLIA        DECREMENT RETRY COUNT
01337  M01S00024.1ta11   +++|          LDC    3600        DELAY PRIOR TO RETRY
01338  M01S00025.1ta11   +++|          STD    T1
01339  M01S00026.1ta11   +++| PLI9     DELAY
01340  M01S00027.1ta11   +++|          SOD    T1
01341  M01S00028.1ta11   +++|          NJN    PLI9        IF NOT DONE DELAYING
01342  M01S00029.1ta11   +++|          UJN    PLI7        RETRY SERVICE CLASS VALIDATION
01343  M01S00030.1ta11   +++|
Line S01188 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01344  M02S01188.1ta11   ---| PLI3.3   LDN    2&4         SET INVALID SERVICE CLASS ERROR
Line S01189 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01345  M02S01189.1ta11   ---| PLI3.4   LMN    4
01346  M01S00031.1ta11   +++| PLI10    LDN    2&4         SET INVALID SERVICE CLASS ERROR
01347  M01S00032.1ta11   +++| PLI11    LMN    4
01348  M01S01190.1ta     +++|          STD    CN+4
Line S01191 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01349  M02S01191.1ta11   ---|          LJM    PLI7        PROCESS ERROR
01350  M01S00033.1ta11   +++|          LJM    PLI19       PROCESS ERROR
01351  M01S01192.1ta     +++|
01352  M01S01193.1ta     +++|
01353  M01S01194.1ta     +++|*         GET FAMILY ORDINAL.
01354  M01S01195.1ta     +++|
Line S01196 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01355  M02S01196.1ta11   ---| PLI3.5   LDD    MA          SET FAMILY NAME
01356  M01S00034.1ta11   +++| PLI12    LDD    MA          SET FAMILY NAME
01357  M01S01197.1ta     +++|          CWM    CISD,ON
01358  M01S01198.1ta     +++|          SBN    1
01359  M01S01199.1ta     +++|          CRD    FN
01360  M01S01200.1ta     +++|          LDN    1           DO NOT ADD FAMILY NAME TO FOT
01361  M01S01201.1ta     +++|          RJM    GFO         GET FAMILY ORDINAL
Line S01202 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01362  M02S01202.1ta11   ---|          ZJN    PLI4        IF NO ERROR OCCURRED
Line S01203 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01363  M02S01203.1ta11   ---|          LJM    PLI6        SET ERROR
01364  M01S00035.1ta11   +++|          ZJN    PLI13       IF NO ERROR OCCURRED
01365  M01S00036.1ta11   +++|          LJM    PLI16       SET ERROR
01366  M01S01204.1ta     +++|
Line S01205 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01367  M02S01205.1ta11   ---| PLI4     RJM    STT
01368  M01S00037.1ta11   +++| PLI13    RJM    STT
01369  M01S01206.1ta     +++|          ADK    VUIT
01370  M01S01207.1ta     +++|          CRD    CM
01371  M01S01208.1ta     +++|          LDD    FN+4        INSERT FAMILY ORDINAL IN TERMINAL TABLE
01372  M01S01209.1ta     +++|          STM    CSSA
01373  M01S01210.1ta     +++|          ADK    VUFO
01374  M01S01211.1ta     +++|          LDD    CM+3
01375  M01S01212.1ta     +++|          SCN    77
01376  M01S01213.1ta     +++|          LMD    FN+4
01377  M01S01214.1ta     +++|          STD    CM+3
01378  M01S01215.1ta     +++|          RJM    STT
01379  M01S01216.1ta     +++|          ADK    VUIT
01380  M01S01217.1ta     +++|          CWD    CM
01381  M01S01218.1ta     +++|
01382  M01S01219.1ta     +++|*         CHECK FOR VALID USER.
01383  M01S01220.1ta     +++|
01384  M01S01221.1ta     +++|          LDD    RA          CHECK TERMINAL TYPE
01385  M01S01222.1ta     +++|          SHN    6
01386  M01S01223.1ta     +++|          ADN    VNTP
01387  M01S01224.1ta     +++|          CRD    DF
01388  M01S01225.1ta     +++|          LDD    DF+2
Line S01226 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01389  M02S01226.1ta11   ---|          ZJN    PLI5        IF NO NETWORK TERMINALS
01390  M01S00038.1ta11   +++|          ZJN    PLI14       IF NO NETWORK TERMINALS
01391  M01S01227.1ta     +++|          SBD    TN
01392  M01S01228.1ta     +++|          SBN    1
Line S01229 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01393  M02S01229.1ta11   ---|          MJN    PLI6.0      IF NETWORK TERMINAL
Line S01230 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01394  M02S01230.1ta11   ---| PLI5     LDD    T5          CHECK UI FLAG FROM *0AV*
Line S01231 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01395  M02S01231.1ta11   ---|          NJN    PLI6        IF UI EXCEEDS AUIMX
01396  M01S00039.1ta11   +++|          MJN    PLI17       IF NETWORK TERMINAL
01397  M01S00040.1ta11   +++| PLI14    LDD    T5          CHECK UI FLAG FROM *0AV*
01398  M01S00041.1ta11   +++|          NJN    PLI16       IF UI EXCEEDS AUIMX
01399  M01S01232.1ta     +++|          RJM    VPW         VALIDATE PASSWORD
Line S01233 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01400  M02S01233.1ta11   ---|          NJN    PLI6        IF INVALID PASSWORD
01401  M01S00042.1ta11   +++|          NJN    PLI16       IF INVALID PASSWORD
01402  M01S01234.1ta     +++|          LDD    T6
Line S01235 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01403  M02S01235.1ta11   ---|          NJN    PLI6.1      IF SECURITY COUNT NOT EXHAUSTED
01404  M01S00043.1ta11   +++|          NJN    PLI18       IF SECURITY COUNT NOT EXHAUSTED
01405  M01S01236.1ta     +++|          LDN    1           FLAG *SECURITY COUNT EXHAUSTED* ERROR
Line S01237 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01406  M02S01237.1ta11   ---| PLI5.1   LJM    PLI7        SET ERROR CODE
01407  M01S00044.1ta11   +++| PLI15    LJM    PLI19       SET ERROR CODE
01408  M01S01238.1ta     +++|
Line S01239 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01409  M02S01239.1ta11   ---| PLI6     LDN    0           FLAG *INVALID USER* ERROR
Line S01240 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01410  M02S01240.1ta11   ---|          UJN    PLI5.1      SET ERROR CODE
01411  M01S00045.1ta11   +++| PLI16    LDN    0           FLAG *INVALID USER* ERROR
01412  M01S00046.1ta11   +++|          UJN    PLI15       SET ERROR CODE
01413  M01S01241.1ta     +++|
Line S01242 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01414  M02S01242.1ta11   ---| PLI6.0   LDD    PA          READ PASSWORD
01415  M01S00047.1ta11   +++| PLI17    LDD    PA          READ PASSWORD
01416  M01S01243.1ta     +++|          SHN    14
01417  M01S01244.1ta     +++|          LMD    PA+1
01418  M01S01245.1ta     +++|          ADN    VPWA
01419  M01S01246.1ta     +++|          CRD    CM
01420  M01S01247.1ta     +++|          LDD    CM
Line S01248 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01421  M02S01248.1ta11   ---|          ZJN    PLI6.1      IF PASSWORD IS ZERO, BYPASS VALIDATION
01422  M01S00048.1ta11   +++|          ZJN    PLI18       IF PASSWORD IS ZERO, BYPASS VALIDATION
01423  M01S01249.1ta     +++|          RJM    VPW         VALIDATE PASSWORD
Line S01250 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01424  M02S01250.1ta11   ---|          MJN    PLI6        IF PASSWORD IS NOT VALID, ERROR EXIT
01425  M01S00049.1ta11   +++|          MJN    PLI16       IF PASSWORD IS NOT VALID, ERROR EXIT
01426  M01S01251.1ta     +++|          LDD    PA          CLEAR PASSWORD FIELD IN PARAMETER POT
01427  M01S01252.1ta     +++|          SHN    14
01428  M01S01253.1ta     +++|          LMD    PA+1
01429  M01S01254.1ta     +++|          ADN    VPWA
01430  M01S01255.1ta     +++|          CRD    CM
01431  M01S01256.1ta     +++|          LDN    0
01432  M01S01257.1ta     +++|          STD    CM
01433  M01S01258.1ta     +++|          LDD    PA
01434  M01S01259.1ta     +++|          SHN    14
01435  M01S01260.1ta     +++|          LMD    PA+1
01436  M01S01261.1ta     +++|          ADN    VPWA
01437  M01S01262.1ta     +++|          CWD    CM
01438  M01S00019.ns2663  +++|
01439  M01S01263.1ta     +++|*         DETERMINE VALID ACCESS LEVELS AND CATEGORIES FOR JOB.
01440  M01S01264.1ta     +++|
Line S01265 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01441  M02S01265.1ta11   ---| PLI6.1   LDD    PA          GET LINE ACCESS LEVEL LIMIT
01442  M01S00050.1ta11   +++| PLI18    LDD    PA          GET LINE ACCESS LEVEL LIMIT
01443  M01S01266.1ta     +++|          SHN    14
01444  M01S01267.1ta     +++|          LMD    PA+1
01445  M01S01268.1ta     +++|          ADN    VLAL
01446  M01S01269.1ta     +++|          CRD    CM
01447  M01S01270.1ta     +++|          LDD    CM+4        SET UPPER ACCESS LEVEL LIMIT TO LINE LIMIT
01448  M01S01271.1ta     +++|          LPN    7
01449  M01S01272.1ta     +++|          STD    CM+3
01450  M01S01273.1ta     +++|          LDN    0           SET LOWER ACCESS LEVEL LIMIT
01451  M01S01274.1ta     +++|          STD    CM+4
01452  M01S01275.1ta     +++|          LDN    IAOT
01453  M01S01276.1ta     +++|          STD    CM+2
01454  M01S01277.1ta     +++|          LDN    VJCS        VALIDATE JOB CREATION PARAMETERS
01455  M01S01278.1ta     +++|          STD    CM+1
01456  M01S01279.1ta     +++|          LDD    MA
01457  M01S01280.1ta     +++|          CWM    ABUF+ASVW*5,ON  SET SECURITY VALIDATION WORD
01458  M01S01281.1ta     +++|          MONITOR  VSAM
01459  M01S01282.1ta     +++|          LDD    MA
01460  M01S01283.1ta     +++|          CRM    ABUF+ASVW*5,ON  READ UPDATED SECURITY VALIDATIONS
01461  M01S01284.1ta     +++|          LDD    CM+4        SAVE RESTRICTED ACCESS LEVEL LIMITS
01462  M01S01285.1ta     +++|          STM    CSSF
01463  M01S01286.1ta     +++|          LDD    CM+3
01464  M01S01287.1ta     +++|          STM    CSSD
01465  M01S01288.1ta     +++|          LDD    CM+2        SAVE INITIAL JOB ACCESS LEVEL
01466  M01S01289.1ta     +++|          STM    CSSC
01467  M01S01290.1ta     +++|          LDD    CM+1
Line S01291 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01468  M02S01291.1ta11   ---|          ZJN    PLI8        IF NO REJECT
01469  M01S00051.1ta11   +++|          ZJN    PLI20       IF NO REJECT
01470  M01S01292.1ta     +++|          LDN    10          FLAG *SECURITY VIOLATION* ERROR
Line S01293 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta10
Seq #  *Modification Id* Act 
----------------------------+
01471  M02S01293.1ta10   ---|
Line S01294 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta10
Seq #  *Modification Id* Act 
----------------------------+
01472  M02S01294.1ta10   ---|*         ERROR EXIT - ERROR CODE IN BYTE 4, WORD *VUTA* OF LOGIN POT.
Line S01295 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta10
Seq #  *Modification Id* Act 
----------------------------+
01473  M02S01295.1ta10   ---|
Line S01296 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta10
Seq #  *Modification Id* Act 
----------------------------+
01474  M02S01296.1ta10   ---| PLI7     STD    CN+4        SET ERROR CODE
Line S01297 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta10
Seq #  *Modification Id* Act 
----------------------------+
01475  M02S01297.1ta10   ---|          RJM    SPA
Line S01298 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta10
Seq #  *Modification Id* Act 
----------------------------+
01476  M02S01298.1ta10   ---|          ADN    VUTA
Line S01299 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta10
Seq #  *Modification Id* Act 
----------------------------+
01477  M02S01299.1ta10   ---|          CWD    CN
Line S01300 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta10
Seq #  *Modification Id* Act 
----------------------------+
01478  M02S01300.1ta10   ---|          RJM    ERX         ERROR EXIT
Line S00021 Modification History
M01 (Added by) 1ta10
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01479  M02S00021.1ta11   ---| PLI7     RJM    SEC         SET ERROR CODE (NO RETURN)
01480  M01S00052.1ta11   +++| PLI19    RJM    SEC         SET ERROR CODE (NO RETURN)
01481  M01S01301.1ta     +++|
01482  M01S01302.1ta     +++|*         USER SUCCESSFULLY VALIDATED.
01483  M01S01303.1ta     +++|*         PUT VALIDATION IN POT AND TERMINAL TABLE.
01484  M01S01304.1ta     +++|
Line S01305 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01485  M02S01305.1ta11   ---| PLI8     LDD    PA
01486  M01S00053.1ta11   +++| PLI20    LDD    PA
01487  M01S01306.1ta     +++|          SHN    14
01488  M01S01307.1ta     +++|          ADD    PA+1
01489  M01S01308.1ta     +++|          ADN    VUTA
01490  M01S01309.1ta     +++|          CWM    ABUF+AAWC*5,ON
01491  M01S01310.1ta     +++|          ADK    VUTD-VUTA-1
01492  M01S01311.1ta     +++|          CWM    ABUF+ATPA*5,ON
01493  M01S01312.1ta     +++|          LDM    ABUF+ATPA*5+1
01494  M01S01313.1ta     +++|          SHN    21-13
Line S01314 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01495  M02S01314.1ta11   ---|          PJN    PLI9        IF NORMAL MODE
01496  M01S00054.1ta11   +++|          PJN    PLI21       IF NORMAL MODE
01497  M01S01315.1ta     +++|          LDN    ZERL        CLEAR REQUEST WORD
01498  M01S01316.1ta     +++|          CRD    CM
01499  M01S01317.1ta     +++|          LDC    VSCS        SET CHARACTER SET MODE
01500  M01S01318.1ta     +++|          STD    CM
01501  M01S01319.1ta     +++|          LDN    11
01502  M01S01320.1ta     +++|          STD    CM+2
01503  M01S01321.1ta     +++|          RJM    ITF         ISSUE *TSEM* FUNCTION
Line S01322 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta11
Seq #  *Modification Id* Act 
----------------------------+
01504  M02S01322.1ta11   ---|PLI9      LJM    PLIX        RETURN
01505  M01S00055.1ta11   +++|PLI21     LJM    PLIX        RETURN
01506  M01S01323.1ta     +++| TSVC     SPACE  4,10
01507  M01S01324.1ta     +++|**        TSVC - TABLE OF VALID USER DEFAULT SERVICE CLASSES.
01508  M01S01325.1ta     +++|*
01509  M01S01326.1ta     +++|*T        12/ SUFFIX
Figure

011 SUFFIX

01510  M01S01327.1ta     +++|*         SUFFIX = ONE CHARACTER SUFFIX, RIGHT JUSTIFIED, FOR SERVICE
01511  M01S01328.1ta     +++|*         CLASS.
01512  M01S01329.1ta     +++|
01513  M01S01330.1ta     +++|
01514  M01S01331.1ta     +++| TVSC     INDEX
01515  M01S01332.1ta     +++|          LIST   D
01516  M01S01333.1ta     +++| .SCL     HERE
01517  M01S01334.1ta     +++|          LIST   *
01518  M01S01335.1ta     +++|          INDEX  MXSC
01519  M01S00022.1ta10   +++| SEC      SPACE  4,10
01520  M01S00023.1ta10   +++|**        SEC - SET ERROR CODE.
01521  M01S00024.1ta10   +++|*
01522  M01S00025.1ta10   +++|*         ENTRY  (A) = ERROR CODE.
01523  M01S00026.1ta10   +++|*
01524  M01S00027.1ta10   +++|*         EXIT   TO *ERX*.
01525  M01S00028.1ta10   +++|*                ERROR CODE SET IN BYTE 4, WORD *VUTA* OF LOGIN POT.
01526  M01S00029.1ta10   +++|*
01527  M01S00030.1ta10   +++|*         USES   CN - CN+4.
01528  M01S00031.1ta10   +++|*
01529  M01S00032.1ta10   +++|*         CALLS  SPA, ERX.
01530  M01S00033.1ta10   +++|
01531  M01S00034.1ta10   +++|
01532  M01S00035.1ta10   +++| SEC      SUBR               ENTRY
01533  M01S00036.1ta10   +++|          STD    CN+4
01534  M01S00037.1ta10   +++|          RJM    SPA
01535  M01S00038.1ta10   +++|          ADN    VUTA
01536  M01S00039.1ta10   +++|          CWD    CN
01537  M01S00040.1ta10   +++|          RJM    ERX         ERROR EXIT (NO RETURN)
01538  M01S01336.1ta     +++| SEL      SPACE  4,10
01539  M01S01337.1ta     +++|**        SEL - SET END OF LINE.
01540  M01S01338.1ta     +++|*
01541  M01S01339.1ta     +++|*         ENTRY  (T1) = LAST BYTE ASSEMBLED IN FBUF.
01542  M01S01340.1ta     +++|*
01543  M01S01341.1ta     +++|*         EXIT   (T1) = NEXT BYTE TO ASSEMBLE INTO IN FBUF.
01544  M01S01342.1ta     +++|*
01545  M01S01343.1ta     +++|*         USES   T1, T2.
01546  M01S01344.1ta     +++|*
01547  M01S01345.1ta     +++|*         CALLS  DV5.
01548  M01S01346.1ta     +++|
01549  M01S01347.1ta     +++|
01550  M01S01348.1ta     +++| SEL      SUBR
01551  M01S01349.1ta     +++|          LDI    T1
01552  M01S01350.1ta     +++|          ZJN    SEL1        IF ZERO BYTE
01553  M01S01351.1ta     +++|          AOD    T1
01554  M01S01352.1ta     +++| SEL1     LDD    T1
01555  M01S01353.1ta     +++|          ADC    -FBUF-2+5   ROUND UP
01556  M01S01354.1ta     +++|          RJM    DV5
01557  M01S01355.1ta     +++|          STD    T2
01558  M01S01356.1ta     +++|          SHN    2           * 4
01559  M01S01357.1ta     +++|          ADD    T2          * 5
01560  M01S01358.1ta     +++|          ADC    FBUF+2-1
01561  M01S01359.1ta     +++|          STD    T1          POSSIBLE EOL
01562  M01S01360.1ta     +++|          LDI    T1
01563  M01S01361.1ta     +++|          ZJN    SEL2        IF EOL IN PLACE
01564  M01S01362.1ta     +++|          LDN    5
01565  M01S01363.1ta     +++|          RAD    T1
01566  M01S01364.1ta     +++| SEL2     AOD    T1          SET NEXT BYTE TO ASSEMBLE INTO
01567  M01S01365.1ta     +++|          UJN    SELX        EXIT
01568  M01S01366.1ta     +++| VPW      SPACE  4,10
01569  M01S01367.1ta     +++|**        VPW - VALIDATE PASSWORD.
01570  M01S01368.1ta     +++|*
01571  M01S01369.1ta     +++|*         ENTRY  (PA - PA+1) = ADDRESS OF LOGIN POT.
01572  M01S01370.1ta     +++|*                (ABUF) = VALIDATION FILE ENTRY.
01573  M01S01371.1ta     +++|*
01574  M01S01372.1ta     +++|*         EXIT   (A) = 0 IF PASSWORD VALID.
01575  M01S01373.1ta     +++|*
01576  M01S01374.1ta     +++|*         USES   CM - CM+4, DF - DF+4.
01577  M01S01375.1ta     +++|*
01578  M01S01376.1ta     +++|*         CALLS  CFN.
01579  M01S01377.1ta     +++|*
01580  M01S01378.1ta     +++|*         MACROS MONITOR.
01581  M01S01379.1ta     +++|
01582  M01S01380.1ta     +++|
01583  M01S01381.1ta     +++| VPW      SUBR               ENTRY/EXIT
01584  M01S01382.1ta     +++|          LDM    ABUF+APWI*5+3  CHECK PASSWORD EXPIRATION DATE
01585  M01S01383.1ta     +++|          LPN    77
01586  M01S01384.1ta     +++|          STD    CM+3
01587  M01S01385.1ta     +++|          SHN    14
01588  M01S01386.1ta     +++|          LMM    ABUF+APWI*5+4
01589  M01S01387.1ta     +++|          ZJN    VPW1        IF NONEXPIRING PASSWORD
01590  M01S01388.1ta     +++|          STD    CM+4
01591  M01S01389.1ta     +++|          LDN    VEDS        VALIDATE EXPIRATION DATE
01592  M01S01390.1ta     +++|          STD    CM+1
01593  M01S01391.1ta     +++|          MONITOR  VSAM
01594  M01S01392.1ta     +++|          LDD    CM+1
01595  M01S01393.1ta     +++|          NJN    VPWX        IF PASSWORD EXPIRED
01596  M01S01394.1ta     +++| VPW1     LDD    PA          READ PASSWORD
01597  M01S01395.1ta     +++|          SHN    14
01598  M01S01396.1ta     +++|          LMD    PA+1
01599  M01S01397.1ta     +++|          ADN    VPWA
01600  M01S01398.1ta     +++|          CRD    CM
01601  M01S01399.1ta     +++|          LDD    MA          ENCRYPT PASSWORD
01602  M01S01400.1ta     +++|          CWD    CM
01603  M01S01401.1ta     +++|          LDN    REPS
01604  M01S01402.1ta     +++|          STD    CM+1
01605  M01S01403.1ta     +++|          MONITOR  RDCM
01606  M01S01404.1ta     +++|          LDD    MA
01607  M01S01405.1ta     +++|          CRD    DF
01608  M01S01406.1ta     +++|          LDC    ABUF+APWI*5
01609  M01S01407.1ta     +++|          RJM    CFN         COMPARE PASSWORDS
01610  M01S01408.1ta     +++|          UJP    VPWX        RETURN
01611  M01S01409.1ta     +++| WDI      SPACE  4,20
01612  M01S01410.1ta     +++|**        WDI - WRITE DISK INFORMATION.
01613  M01S01411.1ta     +++|*
01614  M01S01412.1ta     +++|*         ENTRY  (T5) = EQUIPMENT.
01615  M01S01413.1ta     +++|*                (T6) = TRACK.
01616  M01S01414.1ta     +++|*                (T7) = SECTOR.
01617  M01S01415.1ta     +++|*                (BFMS) = SYSTEM SECTOR.
01618  M01S01416.1ta     +++|*                (FBUF) = INPUT SECTOR.
01619  M01S01417.1ta     +++|*                (WC) = WORD COUNT IN SECTOR.
01620  M01S01418.1ta     +++|*
01621  M01S01419.1ta     +++|*         EXIT   (A) = 0, IF NO ERRORS.  THE SYSTEM SECTOR, THE INPUT
01622  M01S01420.1ta     +++|*                         SECTOR, AND THE EOI SECTOR ARE WRITTEN.
01623  M01S01421.1ta     +++|*                    .LT. 0, IF WRITE ERRORS ENCOUNTERED.
01624  M01S01422.1ta     +++|*
01625  M01S01423.1ta     +++|*         USES   FA, T1, T4, T7, KWC.
01626  M01S01424.1ta     +++|*
01627  M01S01425.1ta     +++|*         CALLS  CBU, WDS, WEI, WSS.
01628  M01S01426.1ta     +++|*
01629  M01S01427.1ta     +++|*         MACROS SETMS, SFA.
01630  M01S01428.1ta     +++|
01631  M01S01429.1ta     +++|
01632  M01S01430.1ta     +++| WDI      SUBR               ENTRY/EXIT
01633  M01S01431.1ta     +++|
01634  M01S01432.1ta     +++|*         WRITE SECTORS.
01635  M01S01433.1ta     +++|
01636  M01S01434.1ta     +++|          SETMS  IO,,BFMS
01637  M01S01435.1ta     +++|          RJM    WSS         WRITE SYSTEM SECTOR
01638  M01S01436.1ta     +++|          MJN    WDIX        IF MASS STORAGE ERROR
01639  M01S01437.1ta     +++|          LDD    T7          SET SECTOR LINKAGE
01640  M01S01438.1ta     +++|          ADN    1
01641  M01S01439.1ta     +++|          STM    FBUF
01642  M01S01440.1ta     +++|          LDD    WC          SET WORD COUNT
01643  M01S01441.1ta     +++|          STM    FBUF+1
01644  M01S01442.1ta     +++|          LDC    FBUF+WCSF
01645  M01S01443.1ta     +++|          RJM    WDS         WRITE SECTOR
01646  M01S01444.1ta     +++|          MJN    WDIX        IF MASS STORAGE ERROR
01647  M01S01445.1ta     +++|          LDM    FBUF        SET NEXT SECTOR
01648  M01S01446.1ta     +++|          STD    T7
01649  M01S01447.1ta     +++|          LDD    T6          SET FIRST TRACK IN EOI SECTOR
01650  M01S01448.1ta     +++|          STM    FBUF+FTEI
01651  M01S01449.1ta     +++|          LDD    MA          TRANSFER FNT/FST/DATE TO *FBUF*
01652  M01S01450.1ta     +++|          CWM    BFMS+2,TR
01653  M01S01451.1ta     +++|          SBN    3
01654  M01S01452.1ta     +++|          CRM    FBUF+2,TR
01655  M01S01453.1ta     +++|          LDN    75          CLEAR REMAINDER OF EOI
01656  M01S01454.1ta     +++|          STD    T1
01657  M01S01455.1ta     +++|          LDC    FBUF+2+3*5
01658  M01S01456.1ta     +++|          RJM    CBU         CLEAR BUFFER
01659  M01S01457.1ta     +++|          LDC    FBUF
01660  M01S01458.1ta     +++|          RJM    WEI         WRITE EOI SECTOR
01661  M01S01459.1ta     +++|          MJN    WDI1        IF MASS STORAGE ERROR
01662  M01S01460.1ta     +++|          ENDMS
01663  M01S01461.1ta     +++|*         LDN    0           INDICATE NO ERROR
01664  M01S01462.1ta     +++| WDI1     LJM    WDIX        RETURN
01665  M01S01463.1ta     +++|          SPACE  4,10
01666  M01S01464.1ta     +++|*         COMMON DECKS.
01667  M01S01465.1ta     +++|
01668  M01S01466.1ta     +++|
01669  M01S01467.1ta     +++|*CALL     COMPACS
01670  M01S01468.1ta     +++|*CALL     COMPANS
Line S01469 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2786
Seq #  *Modification Id* Act 
----------------------------+
01671  M02S01469.ns2786  ---|*CALL     COMPCDD
01672  M01S01470.1ta     +++|*CALL     COMPCTE
Line S01471 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta12
Seq #  *Modification Id* Act 
----------------------------+
01673  M02S01471.1ta12   ---| CMI$     SET    1
Line S01472 Modification History
M01 (Added by) 1ta
M02 (Updated by) 1ta12
Seq #  *Modification Id* Act 
----------------------------+
01674  M02S01472.1ta12   ---| ECI$     SET    1
01675  M01S01473.1ta     +++| TLI$     SET    1
01676  M01S01474.1ta     +++|*CALL     COMPCVI
01677  M01S01475.1ta     +++|*CALL     COMPDV5
01678  M01S01476.1ta     +++|*CALL     COMPGBN
Line S01477 Modification History
M01 (Added by) 1ta
M02 (Updated by) ns2663
Seq #  *Modification Id* Act 
----------------------------+
01679  M02S01477.ns2663  ---|*CALL     COMPIAM
01680  M01S01478.1ta     +++|*CALL     COMPRFI
01681  M01S01479.1ta     +++|*CALL     COMPRJC
01682  M01S01480.1ta     +++|          IF     DEF,FA,1
01683  M01S01481.1ta     +++|          ERR                CHECK *COMPWSS* AND *COMPWEI*
01684  M01S01482.1ta     +++|*CALL     COMPSFI
01685  M01S01483.1ta     +++|*CALL     COMPSSE
01686  M01S01484.1ta     +++| GFM$     SET    1
01687  M01S01485.1ta     +++| GFO$     SET    1
01688  M01S01486.1ta     +++|*CALL     COMPUFT
01689  M01S01487.1ta     +++| CJL$     EQU    1           CHECK IF SERVICE CLASS AT JOB LIMIT
01690  M01S01488.1ta     +++| CUV$     EQU    1           CHECK IF USER VALIDATED FOR SERVICE CLASS
01691  M01S01489.1ta     +++|*CALL     COMPVSP
01692  M01S01490.1ta     +++| WEI$     EQU    1           USE ALTERNATE EOI BUFFER
01693  M01S01491.1ta     +++|*CALL     COMPWEI
01694  M01S01492.1ta     +++| WCS$     SET    1           USE WRITE CONTINOUS SECTORS IN *COMPWSS*
01695  M01S01493.1ta     +++|*CALL     COMPWSS
01696  M01S01494.1ta     +++|
01697  M01S01495.1ta     +++|          USE    OVERLAY
01698  M01S01496.1ta     +++|
01699  M01S01497.1ta     +++| ABUF     EQU    *           USER ACCOUNT BLOCK
01700  M01S01498.1ta     +++|          SPACE  4,10
01701  M01S01499.1ta     +++|**        TEST FOR OVERFLOW.
01702  M01S01500.1ta     +++|
01703  M01S01501.1ta     +++|
01704  M01S01502.1ta     +++|          OVERFLOW  OVL,EPFW  OVERFLOW INTO DISK ERROR PROCESSOR
01705  M01S01503.1ta     +++|
01706  M01S01504.1ta     +++|          USE    OVERFLOW
01707  M01S01505.1ta     +++|          ERRNG  CBUF-*      OVERFLOW INTO *CBUF*
01708  M01S01506.1ta     +++| IAM      OVERLAY  (ISSUE ACCOUNTING MESSAGES.)
01709  M01S01507.1ta     +++| IAM      SPACE  4,25
01710  M01S01508.1ta     +++|***       IAM - ISSUE ACCOUNTING MESSAGES.
01711  M01S01509.1ta     +++|*
01712  M01S01510.1ta     +++|*T, IR    24/ ,12/ FC,12/ APTN,12/ 400B
Figure IR

01112232429 400B APTN FC30353659 FC

01713  M01S01511.1ta     +++|*
01714  M01S01512.1ta     +++|*         FC = FUNCTION CODE.
01715  M01S01513.1ta     +++|*         APTN = ACCOUNTING PSEUDO TERMINAL NUMBER.
01716  M01S01514.1ta     +++|*
01717  M01S01515.1ta     +++|*         REQUEST QUEUE FORMAT.
01718  M01S01516.1ta     +++|*T, IR    36/ ,12/ TN,10/ ,1/O,1/R
Figure IR

0121112232429RO TN 3059

01719  M01S01517.1ta     +++|*
01720  M01S01518.1ta     +++|*         TN = TERMINAL NUMBER.
01721  M01S01519.1ta     +++|*         O = COMBINED INPUT/OUTPUT OVERFLOW FLAG.
01722  M01S01520.1ta     +++|*         R = RESOURCE TYPE.
01723  M01S01521.1ta     +++|*           = 0 IF OUTPUT.
01724  M01S01522.1ta     +++|*           = 1 IF INPUT.
01725  M01S01523.1ta     +++|*
01726  M01S01524.1ta     +++|*         EXIT   ACCOUNTING MESSAGES ISSUED.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ta.txt ยท Last modified: by 127.0.0.1