Deck SXLLR Part 001

5 Modifications

Listing Sections

Deck SXLLR Start
Deck SXLLR Part 1 (Line 2107)

Source

Seq #  *Modification Id* Act 
----------------------------+
02107  M00S01969.sxllr   +++|*                ALSO RETURNED WHEN THE REQUEST IS COMPLETED.
02108  M00S01970.sxllr   +++|*
02109  M00S01971.sxllr   +++|*     NOTES      THIS MODULE IS A PSEUDO REENTRANT ROUTINE.
02110  M00S01972.sxllr   +++|#
02111  M00S01973.sxllr   +++|
02112  M00S01974.sxllr   +++|      ITEM LLRENT     U;             # *LLRQ* ENTRY TO PROCESS #
02113  M00S01975.sxllr   +++|      ITEM LLRENTI    U;             # WAITTING  *LLRQ* ADDRESS #
02114  M00S01976.sxllr   +++|      ITEM SCR1        U;            # SCRATCH WORD #
02115  M00S01977.sxllr   +++|      ITEM SCR2       U;             # SCRATCH WORD #
02116  M00S01978.sxllr   +++|      ITEM SCR3       U;             # SCRATCH WORD #
02117  M00S01979.sxllr   +++|
02118  M00S01980.sxllr   +++|#
02119  M00S01981.sxllr   +++|****  PROC UNL$CAR - XREF LIST BEGIN.
02120  M00S01982.sxllr   +++|#
02121  M00S01983.sxllr   +++|
02122  M00S01984.sxllr   +++|      XREF
02123  M00S01985.sxllr   +++|        BEGIN
02124  M00S01986.sxllr   +++|        PROC ADD$LNK;                # ADD ENTRY TO END OF CHAIN #
02125  M00S01987.sxllr   +++|        PROC UCP$RES;                # NOTIFY UCP OF REQUEST COMPLETE #
02126  M00S01988.sxllr   +++|        END
02127  M00S01989.sxllr   +++|
02128  M00S01990.sxllr   +++|#
02129  M00S01991.sxllr   +++|****  PROC UNL$CAR - XREF LIST END.
02130  M00S01992.sxllr   +++|#
02131  M00S01993.sxllr   +++|
02132  M00S01994.sxllr   +++|      DEF LISTCON #0#;               # DO NOT LIST COMMON DECKS #
02133  M00S01995.sxllr   +++|
02134  M00S01996.sxllr   +++|*CALL COMBFAS
02135  M00S01997.sxllr   +++|*CALL COMBCHN
02136  M00S01998.sxllr   +++|*CALL COMBCPR
02137  M00S01999.sxllr   +++|*CALL COMBLRQ
02138  M00S02000.sxllr   +++|*CALL COMBRCD
02139  M00S02001.sxllr   +++|*CALL COMBUCR
02140  M00S02002.sxllr   +++|*CALL COMXHLR
02141  M00S02003.sxllr   +++|*CALL COMXLTC
02142  M00S02004.sxllr   +++|*CALL COMXMSC
02143  M00S02005.sxllr   +++|
02144  M00S02006.sxllr   +++|
02145  M00S02007.sxllr   +++|      BASED
02146  M00S02008.sxllr   +++|      ARRAY  CLEAR   [0:0]  S(1);
02147  M00S02009.sxllr   +++|        BEGIN
02148  M00S02010.sxllr   +++|        ITEM CLN     U(00,36,24);     # CLEAR *DRD* ASSIGNMENT #
02149  M00S02011.sxllr   +++|        END
02150  M00S02012.sxllr   +++|
02151  M00S02013.sxllr   +++|
02152  M00S02014.sxllr   +++|      SWITCH UNLENTR:PROCST          # UNLOAD CARTRIDGE ENTRIES #
02153  M00S02015.sxllr   +++|             UNLINIT:INITIAL,        # INITIAL ENTRY POINT #
02154  M00S02016.sxllr   +++|               UNLC1:CONT1;          # CONTINUE AFTER DISMOUNT REQUEST
02155  M00S02017.sxllr   +++|                                     #
02156  M00S02018.sxllr   +++|                                               CONTROL EJECT;
02157  M00S02019.sxllr   +++|      P<LLRQ> = LLRENT;
02158  M00S02020.sxllr   +++|      GOTO UNLENTR[LLR$PRCST[0]];
02159  M00S02021.sxllr   +++|
02160  M00S02022.sxllr   +++|#
02161  M00S02023.sxllr   +++|*     "INITIAL" PROCESS STATE.
02162  M00S02024.sxllr   +++|*
02163  M00S02025.sxllr   +++|*     ASSIGN THE CARTRIDGE TO THE EXIT TRAY IF THE ORIGINAL
02164  M00S02026.sxllr   +++|*     ASSIGNMENT WAS TH ENTRY TRAY.
02165  M00S02027.sxllr   +++|#
02166  M00S02028.sxllr   +++|
02167  M00S02029.sxllr   +++|UNLINIT:
02168  M00S02030.sxllr   +++|
02169  M00S02031.sxllr   +++|      IF LLR$Y[0] EQ SM$ENT$TY         ##
02170  M00S02032.sxllr   +++|        AND LLR$Z[0] EQ SM$TY$Z
02171  M00S02033.sxllr   +++|      THEN
02172  M00S02034.sxllr   +++|        BEGIN
02173  M00S02035.sxllr   +++|        LLR$Y[0] = SM$EXIT$TY;
02174  M00S02036.sxllr   +++|        LLR$Z[0] = SM$TY$Z;
02175  M00S02037.sxllr   +++|        END
02176  M00S02038.sxllr   +++|
02177  M00S02039.sxllr   +++|
02178  M00S02040.sxllr   +++|#
02179  M00S02041.sxllr   +++|*     DISMOUNT THE CARTRIDGE.
02180  M00S02042.sxllr   +++|#
02181  M00S02043.sxllr   +++|
02182  M00S02044.sxllr   +++|      LLR$RC[0] = REQCODE"SDISMOUNT";
02183  M00S02045.sxllr   +++|      LLR$PRCST[0] = PROCST"CONT1";
02184  M00S02046.sxllr   +++|      LLR$DRDL[0] = FALSE;
02185  M00S02047.sxllr   +++|      LLR$UNLD[0] = TRUE;     # UNLOAD STARTED #
02186  M00S02048.sxllr   +++|      LLR$RS[0] = PROCST"INITIAL";
02187  M00S02049.sxllr   +++|      ADD$LNK(LLRENT,LCHN"DRQUEUE",0);
02188  M00S02050.sxllr   +++|      RETURN;
02189  M00S02051.sxllr   +++|
02190  M00S02052.sxllr   +++|#
02191  M00S02053.sxllr   +++|*     "CONT1" PROCESS STATE.
02192  M00S02054.sxllr   +++|*
02193  M00S02055.sxllr   +++|*     UPDATE THE APPROPRIATE DATA FIELDS OF THE REQUEST AND PASS
02194  M00S02056.sxllr   +++|*     THE REQUEST ON TO THE NEXT PROCESS.
02195  M00S02057.sxllr   +++|#
02196  M00S02058.sxllr   +++|
02197  M00S02059.sxllr   +++|UNLC1:
02198  M00S02060.sxllr   +++|
02199  M00S02061.sxllr   +++|      IF LLR$RQI[0] EQ REQNAME"RQIINT"
02200  M00S02062.sxllr   +++|      THEN
02201  M00S02063.sxllr   +++|        BEGIN        # INTERNAL REQUEST #
02202  M00S02064.sxllr   +++|        P<HLRQ> = LLR$UCPRA[0];
02203  M00S02065.sxllr   +++|        HLR$LRQADR[0] = 0;     # DELINK *LLRA* FROM *HLRA* #

Line S02066 Modification History
`M01` (Removed by)	`sxllr2`

Seq #  *Modification Id* Act 
----------------------------+
02204  M01S02066.sxllr2  ---|
02205  M01S02067.sxllr2  ---|        IF NOT LLR$LCF[0]
02206  M01S02068.sxllr2  ---|        THEN
02207  M01S02069.sxllr2  ---|          BEGIN
02208  M01S02070.sxllr2  ---|          HLR$RESP[0] = RESPTYP4"OK4";
02209  M01S02071.sxllr2  ---|          END
02210  M01S02072.sxllr2  ---|

Line S00058 Modification History
`M01` (Added by)	`sxllr2`

Seq #  *Modification Id* Act 
----------------------------+
02211  M01S00058.sxllr2  +++|        HLR$RESP[0] = RESPTYP4"OK4";
02212  M00S02073.sxllr   +++|        ADD$LNK(LLR$UCPRA[0],LCHN"HL$READY",0);
02213  M00S02074.sxllr   +++|        END       # INTERNAL REQUEST #
02214  M00S02075.sxllr   +++|
02215  M00S02076.sxllr   +++|      ELSE
02216  M00S02077.sxllr   +++|        BEGIN  # EXTERNAL REQUEST #
02217  M00S02078.sxllr   +++|        P<CLEAR> = LLR$DRDRA[0];   # CLEAR *DRD* RESERVE #
02218  M00S02079.sxllr   +++|        CLN = 0;
02219  M00S02080.sxllr   +++|        IF NOT LLR$UCPABT[0]
02220  M00S02081.sxllr   +++|        THEN                         # RETURN RESPONSE TO UCP #
02221  M00S02082.sxllr   +++|          BEGIN
02222  M00S02083.sxllr   +++|          LTCENTRY = LLR$LTCT[0];
02223  M00S02084.sxllr   +++|          LTC$LLRQA[LTCENTRY] = 0;
02224  M00S02085.sxllr   +++|          LTC$CART[LTCENTRY] = FALSE;
02225  M00S02086.sxllr   +++|          LTC$RQR[LTCENTRY] = RESPTYP4"OK4";
02226  M00S02087.sxllr   +++|          UCP$RES;
02227  M00S02088.sxllr   +++|          END
02228  M00S02089.sxllr   +++|
02229  M00S02090.sxllr   +++|        END  # EXTERNAL REQUEST #
02230  M00S02091.sxllr   +++|
02231  M00S02092.sxllr   +++|
02232  M00S02093.sxllr   +++|#
02233  M00S02094.sxllr   +++|*     MARK THE REQUEST COMPLETE AND RETURN TO *LLRQ* MONITOR.
02234  M00S02095.sxllr   +++|#
02235  M00S02096.sxllr   +++|
02236  M00S02097.sxllr   +++|      LLR$UNLD[0] = FALSE;     # UNLOAD COMPLETE #
02237  M00S02098.sxllr   +++|      LLR$PRCST[0] = PROCST"COMPLETE";
02238  M00S02099.sxllr   +++|      RETURN;
02239  M00S02100.sxllr   +++|
02240  M00S02101.sxllr   +++|      END  # UNL$CAR #
02241  M00S02102.sxllr   +++|
02242  M00S02103.sxllr   +++|    TERM
02243  M00S02104.sxllr   +++|PROC SETFET(LLRADR);
02244  M00S02105.sxllr   +++|# TITLE SETFET - SETS LARGE BUFFER POINTERS #
02245  M00S02106.sxllr   +++|
02246  M00S02107.sxllr   +++|      BEGIN     # SETFET #
02247  M00S02108.sxllr   +++|
02248  M00S02109.sxllr   +++|#
02249  M00S02110.sxllr   +++|**    SETFET - SETS LARGE BUFFER POINTERS.
02250  M00S02111.sxllr   +++|*
02251  M00S02112.sxllr   +++|*     *SETFET* SETS FET POINTERS FOR CIO AND *1SS*.
02252  M00S02113.sxllr   +++|*
02253  M00S02114.sxllr   +++|*     PROC SETFET
02254  M00S02115.sxllr   +++|*
02255  M00S02116.sxllr   +++|*     ENTRY      (LLRADR) - ADDRESS OF THE *LLRQ* ENTRY THAT
02256  M00S02117.sxllr   +++|*                           CONTAINS THE ADDRESS OF THE DISK
02257  M00S02118.sxllr   +++|*                           AND *M860* FET AND BUFFER ADDRESSES.
02258  M00S02119.sxllr   +++|*                           (LARGE BUFFER MUST ALREADY EXIST.)
02259  M00S02120.sxllr   +++|*
02260  M00S02121.sxllr   +++|*     EXIT       FETS ARE COMPLETE FOR BOTH CIO AND *1SS*
02261  M00S02122.sxllr   +++|*                PROCESSING.  STRIPE HIGH AND LOW SET INTO THE
02262  M00S02123.sxllr   +++|*                *LLRQ*.
02263  M00S02124.sxllr   +++|*
02264  M00S02125.sxllr   +++|*     NOTES      THIS MODULE IS CALLED ONLY BY THE COP$XX ROUTINES.
02265  M00S02126.sxllr   +++|#
02266  M00S02127.sxllr   +++|
02267  M00S02128.sxllr   +++|      ITEM LLRADR;                       # *LLRQ* ADDRESS #
02268  M00S02129.sxllr   +++|
02269  M00S02130.sxllr   +++|#
02270  M00S02131.sxllr   +++|****  PROC SETFET - XREF LIST BEGIN.
02271  M00S02132.sxllr   +++|#
02272  M00S02133.sxllr   +++|
02273  M00S02134.sxllr   +++|      XREF
02274  M00S02135.sxllr   +++|        BEGIN
02275  M00S02136.sxllr   +++|        PROC ZFILL;                  # ZERO FILL BUFFER #
02276  M00S02137.sxllr   +++|        PROC ZSETFET;                # INITIALIZE A FET #
02277  M00S02138.sxllr   +++|        END
02278  M00S02139.sxllr   +++|
02279  M00S02140.sxllr   +++|#
02280  M00S02141.sxllr   +++|****  PROC SETFET - XFET LIST END.
02281  M00S02142.sxllr   +++|#
02282  M00S02143.sxllr   +++|
02283  M00S02144.sxllr   +++|      DEF LISTCON #0#;       # DO NOT LIST COMDECKS #
02284  M00S02145.sxllr   +++|
02285  M00S02146.sxllr   +++|*CALL COMBFAS

Line S00006 Modification History
`M01` (Added by)	`sxllr1`

Seq #  *Modification Id* Act 
----------------------------+
02286  M01S00006.sxllr1  +++|*CALL COMBCPR
02287  M00S02147.sxllr   +++|*CALL COMBFET
02288  M00S02148.sxllr   +++|*CALL COMBLRQ
02289  M00S02149.sxllr   +++|*CALL COMXBST
02290  M00S02150.sxllr   +++|*CALL COMXCCB
02291  M00S02151.sxllr   +++|*CALL COMXHLR
02292  M00S02152.sxllr   +++|
02293  M00S02153.sxllr   +++|#
02294  M00S02154.sxllr   +++|*     SET *LLRQ* STIPE LOW AND HIGH POINTERS.
02295  M00S02155.sxllr   +++|#
02296  M00S02156.sxllr   +++|
02297  M00S02157.sxllr   +++|      P<LLRQ> = LLRADR;
02298  M00S02158.sxllr   +++|      P<HLRQ> = LLR$UCPRA[0];
02299  M00S02159.sxllr   +++|      P<CCB> = LLR$CCB[0];

Line S02160 Modification History
`M01` (Removed by)	`sxllr1`

Seq #  *Modification Id* Act 
----------------------------+
02300  M01S02160.sxllr1  ---|      LLR$ST$LW[0] = INSPAU*HLR$VOLAU[0]+(INFTST-INSPAU);
02301  M01S02161.sxllr1  ---|      LLR$ST$HI[0] = INSPAU*HLR$VOLLN[0]+LLR$ST$LW[0]-1;

Line S00007 Modification History
`M01` (Added by)	`sxllr1`

Seq #  *Modification Id* Act 
----------------------------+
02302  M01S00007.sxllr1  +++|      IF LLR$PRCNME[0] NQ REQTYP4"CP$RAW$AU"
02303  M01S00008.sxllr1  +++|      THEN
02304  M01S00009.sxllr1  +++|        BEGIN
02305  M01S00010.sxllr1  +++|        LLR$ST$LW[0] = INSPAU*HLR$VOLAU[0]+(INFTST-INSPAU);
02306  M01S00011.sxllr1  +++|        LLR$ST$HI[0] = INSPAU*HLR$VOLLN[0]+LLR$ST$LW[0]-1;
02307  M01S00012.sxllr1  +++|        END
02308  M00S02162.sxllr   +++|
02309  M00S02163.sxllr   +++|#
02310  M00S02164.sxllr   +++|*     INITIALIZE CIO AND *1SS* FETS.
02311  M00S02165.sxllr   +++|#
02312  M00S02166.sxllr   +++|
02313  M00S02167.sxllr   +++|      CCBDKFET[0] = LLR$DSKFET[0];
02314  M00S02168.sxllr   +++|      CCBM86FET[0] = LLR$MSFET[0];
02315  M00S02169.sxllr   +++|      CCBLLRQ[0] = LLRADR;
02316  M00S02170.sxllr   +++|      CCBCLFG[0] = 0;
02317  M00S02171.sxllr   +++|      CCBRWCT[0] = 0;          # CLEAR COUNTER #
02318  M00S02172.sxllr   +++|      ZSETFET(LLR$DSKFET[0],HLR$FLNM[0],LLR$DA[0],DATABL,(RFETL+RFHBL));
02319  M00S02173.sxllr   +++|      P<FETFHB> = LLR$MSFET[0];
02320  M00S02174.sxllr   +++|      P<FETSET> = LLR$DSKFET[0];
02321  M00S02175.sxllr   +++|      FET$EP[0] = TRUE;
02322  M00S02176.sxllr   +++|      FET$R[0] = TRUE;
02323  M00S02177.sxllr   +++|      FET$UP[0] = TRUE;
02324  M00S02178.sxllr   +++|      FHB$FRST[0] = FET$FRST[0];
02325  M00S02179.sxllr   +++|      FHB$IN[0] = FET$IN[0];
02326  M00S02180.sxllr   +++|      FHB$OUT[0] = FET$OUT[0];
02327  M00S02181.sxllr   +++|      FHB$LIM[0] = FET$LIM[0];
02328  M00S02182.sxllr   +++|
02329  M00S02183.sxllr   +++|      END
02330  M00S02184.sxllr   +++|
02331  M00S02185.sxllr   +++|       TERM
02332  M00S02186.sxllr   +++|PROC WT$LAB((LLRENT));
02333  M00S02187.sxllr   +++|# TITLE WT$LAB - WRITE CARTRIDGE LABEL.                      #
02334  M00S02188.sxllr   +++|
02335  M00S02189.sxllr   +++|      BEGIN  # WT$LAB #
02336  M00S02190.sxllr   +++|
02337  M00S02191.sxllr   +++|#
02338  M00S02192.sxllr   +++|**    WT$LAB - WRITE CARTRIDGE LABEL.
02339  M00S02193.sxllr   +++|*
02340  M00S02194.sxllr   +++|*     *WT$LAB* WRITES THE CARTRIDGE LABEL.
02341  M00S02195.sxllr   +++|*
02342  M00S02196.sxllr   +++|*     PROC WT$LAB((LLRENT))
02343  M00S02197.sxllr   +++|*
02344  M00S02198.sxllr   +++|*     ENTRY      (LLRENT) - ADDRESS OF *LLRQ* ENTRY FOR THE REQUEST
02345  M00S02199.sxllr   +++|*                           CONTAINING THE SMA-ID, THE VOLUME NUMBER,
02346  M00S02200.sxllr   +++|*                           AND THE YZ COORDINATES.
02347  M00S02201.sxllr   +++|*
02348  M00S02202.sxllr   +++|*     EXIT       THE PROCESS STATE FIELD IN THE *LLRQ* ENTRY HAS BEEN
02349  M00S02203.sxllr   +++|*                ADVANCED TO INDICATE WHERE PROCESSING OF THIS REQUEST
02350  M00S02204.sxllr   +++|*                LEFT OFF, AND THUS WHAT TO DO NEXT TO ADVANCE THE
02351  M00S02205.sxllr   +++|*                REQUEST.
02352  M00S02206.sxllr   +++|*
02353  M00S02207.sxllr   +++|*                WHEN THE PROCESS IS COMPLETED AN ERROR RESPONSE CODE
02354  M00S02208.sxllr   +++|*                IS RETURNED VIA LTC$RQR[LTCENTRY] FOR EXTERNAL
02355  M00S02209.sxllr   +++|*                REQUESTORS OR HLR$RESP[0] FOR INTERNAL REQUESTORS.
02356  M00S02210.sxllr   +++|*                IS RETURNED VIA *LTC$RQR[LTCENTRY]* FOR EXTERNAL
02357  M00S02211.sxllr   +++|*                REQUESTORS OR *HLR$RESP[0]* FOR INTERNAL REQUESTORS.
02358  M00S02212.sxllr   +++|*                RESPONSE CODE (VALUES ARE DEFINED IN *COMBCPR*).
02359  M00S02213.sxllr   +++|*                  = RESPTYP4"OK4".
02360  M00S02214.sxllr   +++|*                  = RESPTYP4"UN$WRT$ERR".
02361  M00S02215.sxllr   +++|*                  = RESPTYP4"EX$WRT$ERR".
02362  M00S02216.sxllr   +++|*                  = RESPTYP4"MSFHDW$ERR".
02363  M00S02217.sxllr   +++|*
02364  M00S02218.sxllr   +++|*     MESSAGES   * EXEC ABNORMAL, WT$LAB.*
02365  M00S02219.sxllr   +++|*
02366  M00S02220.sxllr   +++|*     NOTES      THIS MODULE IS A PSEUDO REENTRANT ROUTINE.
02367  M00S02221.sxllr   +++|*
02368  M00S02222.sxllr   +++|*                COMMON BUFFER *LABBUF* WILL BE USED TO TRANSFER
02369  M00S02223.sxllr   +++|*                THE LABEL FROM THE *UCP* TO THE *SSDRIVER*.
02370  M00S02224.sxllr   +++|#
02371  M00S02225.sxllr   +++|
02372  M00S02226.sxllr   +++|      ITEM LLRENT     U;             # ADDRESS OF *LLRQ* ENTRY #
02373  M00S02227.sxllr   +++|
02374  M00S02228.sxllr   +++|#
02375  M00S02229.sxllr   +++|****  PROC WT$LAB - XREF LIST BEGIN.
02376  M00S02230.sxllr   +++|#
02377  M00S02231.sxllr   +++|
02378  M00S02232.sxllr   +++|      XREF
02379  M00S02233.sxllr   +++|        BEGIN
02380  M00S02234.sxllr   +++|        PROC ABORT;                  # INTERFACE TO *ABORT* MACRO #
02381  M00S02235.sxllr   +++|        PROC ADD$LNK;                # ADD ENTRY TO END OF CHAIN #
02382  M00S02236.sxllr   +++|        PROC DELAY;                  # TIMED DELAY #
02383  M00S02237.sxllr   +++|        PROC KILL$UC;                # ABORT A UCP #
02384  M00S02238.sxllr   +++|        PROC MESSAGE;                # CALLS *MESSAGE* MACRO #
02385  M00S02239.sxllr   +++|        PROC SFCALL;                 # INTERFACE TO *SFCALL* MACRO #
02386  M00S02240.sxllr   +++|        PROC UCP$RES;                # NOTIFY UCP OF REQUEST COMPLETE #
02387  M00S02241.sxllr   +++|        END
02388  M00S02242.sxllr   +++|
02389  M00S02243.sxllr   +++|#
02390  M00S02244.sxllr   +++|****  PROC WT$LAB - XREF LIST END.
02391  M00S02245.sxllr   +++|#
02392  M00S02246.sxllr   +++|
02393  M00S02247.sxllr   +++|      DEF LISTCON   #0#;             # DO NOT LIST COMMON DECKS #
02394  M00S02248.sxllr   +++|
02395  M00S02249.sxllr   +++|*CALL COMBFAS
02396  M00S02250.sxllr   +++|*CALL COMBCHN
02397  M00S02251.sxllr   +++|*CALL COMBCPR
02398  M00S02252.sxllr   +++|*CALL COMBFET
02399  M00S02253.sxllr   +++|*CALL COMBLBL
02400  M00S02254.sxllr   +++|*CALL COMBLRQ
02401  M00S02255.sxllr   +++|*CALL COMBMAT
02402  M00S02256.sxllr   +++|*CALL COMBRCD
02403  M00S02257.sxllr   +++|*CALL COMBUCR
02404  M00S02258.sxllr   +++|*CALL COMXCTF
02405  M00S02259.sxllr   +++|*CALL COMXHLR
02406  M00S02260.sxllr   +++|*CALL COMXIPR
02407  M00S02261.sxllr   +++|*CALL COMXLTC
02408  M00S02262.sxllr   +++|*CALL COMXMSC
02409  M00S02263.sxllr   +++|
02410  M00S02264.sxllr   +++|
02411  M00S02265.sxllr   +++|      ITEM REQTYP     B=FALSE;       # *LLRQ* ID FOR *GET$SB* #
02412  M00S02266.sxllr   +++|
02413  M00S02267.sxllr   +++|      BASED
02414  M00S02268.sxllr   +++|      ARRAY   CLEAR    [0:0]   S(1);
02415  M00S02269.sxllr   +++|        BEGIN
02416  M00S02270.sxllr   +++|        ITEM CLN      U(00,36,24);        # CLEAR *DRD* ASSIGNMENT #
02417  M00S02271.sxllr   +++|        END
02418  M00S02272.sxllr   +++|
02419  M00S02273.sxllr   +++|      SWITCH  WTENTR:PROCST          # WRITE LABEL ENTRIES #
02420  M00S02274.sxllr   +++|              WTINIT:INITIAL,        # INITIAL ENTRY POINT #
02421  M00S02275.sxllr   +++|                WTC1:CONT1,          # AFTER A SWAPIN DELAY #
02422  M00S02276.sxllr   +++|                WTC2:CONT2;          # AFTER WRITE LABEL #
02423  M00S02277.sxllr   +++|                                               CONTROL EJECT;
02424  M00S02278.sxllr   +++|      P<LLRQ> = LLRENT;
02425  M00S02279.sxllr   +++|      LLR$DR[0] = 0;
02426  M00S02280.sxllr   +++|      LTCENTRY = LLR$LTCT[0];
02427  M00S02281.sxllr   +++|      GOTO WTENTR[LLR$PRCST[0]];
02428  M00S02282.sxllr   +++|
02429  M00S02283.sxllr   +++|#
02430  M00S02284.sxllr   +++|*     "INITIAL" PROCESS STATE.
02431  M00S02285.sxllr   +++|#
02432  M00S02286.sxllr   +++|
02433  M00S02287.sxllr   +++|WTINIT:
02434  M00S02288.sxllr   +++|
02435  M00S02289.sxllr   +++|#
02436  M00S02290.sxllr   +++|*     CHECK LABEL BUFFER FOR BUSY.  IF BUSY, RETURN *LLRQ*
02437  M00S02291.sxllr   +++|*     TO THE DELAY CHAIN.
02438  M00S02292.sxllr   +++|#
02439  M00S02293.sxllr   +++|
02440  M00S02294.sxllr   +++|
02441  M00S02295.sxllr   +++|      IF LABELBUSY
02442  M00S02296.sxllr   +++|      THEN
02443  M00S02297.sxllr   +++|        BEGIN       # EXIT TO DELAY CHAIN #
02444  M00S02298.sxllr   +++|        DELAY(UCP$INTV,LLRENT,LLRQIND);
02445  M00S02299.sxllr   +++|        RETURN;
02446  M00S02300.sxllr   +++|        END         # RETURNED TO DELAY CHAIN #
02447  M00S02301.sxllr   +++|
02448  M00S02302.sxllr   +++|      LABELBUSY = TRUE;      # RESERVE LABEL BUFFER #
02449  M00S02303.sxllr   +++|#
02450  M00S02304.sxllr   +++|*     READ THE LABEL FROM THE UCP.  IF THE UCP IS SWAPPED OUT, DELAY
02451  M00S02305.sxllr   +++|*     THE REQUEST AND TRY AGAIN LATER.
02452  M00S02306.sxllr   +++|#
02453  M00S02307.sxllr   +++|
02454  M00S02308.sxllr   +++|SFLOOP:

Line S02309 Modification History
`M01` (Removed by)	`sxllr1`

Seq #  *Modification Id* Act 
----------------------------+
02455  M01S02309.sxllr1  ---|      IF LLR$UCPABT[0]
02456  M01S02310.sxllr1  ---|      THEN
02457  M01S02311.sxllr1  ---|        BEGIN
02458  M01S02312.sxllr1  ---|        GOTO COMPLUCP;
02459  M01S02313.sxllr1  ---|        END
02460  M01S02314.sxllr1  ---|
02461  M00S02315.sxllr   +++|      LTC$SFUCPA[LTCENTRY] = LLR$ADDR2[0];
02462  M00S02316.sxllr   +++|      LTC$SFSCPA[LTCENTRY] = MAT$FWA[MAT$ENTRY"LABBUF"];
02463  M00S02317.sxllr   +++|      LTC$SFFP[LTCENTRY] = LABLEN;
02464  M00S02318.sxllr   +++|      LTC$SFFC[LTCENTRY] = SFREAD;
02465  M00S02319.sxllr   +++|      SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
02466  M00S02320.sxllr   +++|      IF LTC$SFRC[LTCENTRY] EQ SFRCUCPGON
02467  M00S02321.sxllr   +++|      THEN
02468  M00S02322.sxllr   +++|        BEGIN
02469  M00S02323.sxllr   +++|        GOTO COMPLUCP;
02470  M00S02324.sxllr   +++|        END
02471  M00S02325.sxllr   +++|
02472  M00S02326.sxllr   +++|      IF LTC$SFRC[LTCENTRY] EQ SFRCBDUCPA
02473  M00S02327.sxllr   +++|      THEN
02474  M00S02328.sxllr   +++|        BEGIN
02475  M00S02329.sxllr   +++|        KILL$UC(KILLCODE"INVADDR");
02476  M00S02330.sxllr   +++|        GOTO COMPLUCP;
02477  M00S02331.sxllr   +++|        END
02478  M00S02332.sxllr   +++|
02479  M00S02333.sxllr   +++|      IF LTC$SFRC[LTCENTRY] EQ SFRCSWPOUT
02480  M00S02334.sxllr   +++|      THEN
02481  M00S02335.sxllr   +++|        BEGIN
02482  M00S02336.sxllr   +++|        LTC$SFUCPA[LTCENTRY] = 0;
02483  M00S02337.sxllr   +++|        LTC$SFSCPA[LTCENTRY] = 0;
02484  M00S02338.sxllr   +++|        LTC$SFFC[LTCENTRY] = SFSWPI;

Line S02339 Modification History
`M01` (Removed by)	`sxllr1`

Seq #  *Modification Id* Act 
----------------------------+
02485  M01S02339.sxllr1  ---|        SFCALL(LOC(LTC$WORD0[LTCENTRY]),NRCL);

Line S00013 Modification History
`M01` (Added by)	`sxllr1`

Seq #  *Modification Id* Act 
----------------------------+
02486  M01S00013.sxllr1  +++|        SFCALL(LOC(LTC$WORD0[LTCENTRY]),RCL);
02487  M00S02340.sxllr   +++|
02488  M00S02341.sxllr   +++|#
02489  M00S02342.sxllr   +++|*     "CONT1" PROCESS STATE.
02490  M00S02343.sxllr   +++|#
02491  M00S02344.sxllr   +++|
02492  M00S02345.sxllr   +++|WTC1:
02493  M00S02346.sxllr   +++|        LTCENTRY = LLR$LTCT[0];
02494  M00S02347.sxllr   +++|        IF LTC$SFFCC[LTCENTRY]
02495  M00S02348.sxllr   +++|        THEN
02496  M00S02349.sxllr   +++|          BEGIN
02497  M00S02350.sxllr   +++|          GOTO SFLOOP;
02498  M00S02351.sxllr   +++|          END
02499  M00S02352.sxllr   +++|
02500  M00S02353.sxllr   +++|        LLR$PRCST[0] = PROCST"CONT1";
02501  M00S02354.sxllr   +++|        DELAY(UCP$INTV,LLRENT,LLRQIND);
02502  M00S02355.sxllr   +++|        RETURN;
02503  M00S02356.sxllr   +++|        END
02504  M00S02357.sxllr   +++|
02505  M00S02358.sxllr   +++|      IF LTC$SFRC[LTCENTRY] NQ 0
02506  M00S02359.sxllr   +++|      THEN
02507  M00S02360.sxllr   +++|        BEGIN
02508  M00S02361.sxllr   +++|        FE$RTN[0] = "WT$LAB.";
02509  M00S02362.sxllr   +++|        MESSAGE(FEMSG[0],UDFL1);
02510  M00S02363.sxllr   +++|        ABORT;
02511  M00S02364.sxllr   +++|        END
02512  M00S02365.sxllr   +++|
02513  M00S02366.sxllr   +++|
02514  M00S02367.sxllr   +++|        LLR$PRCST[0] = PROCST"CONT2";
02515  M00S02368.sxllr   +++|        LLR$RC[0] = REQCODE"SWRT$LABEL";
02516  M00S02369.sxllr   +++|        LLR$RS[0] = PROCST"INITIAL";
02517  M00S02370.sxllr   +++|        ADD$LNK(LLRENT,LCHN"DRQUEUE",0);
02518  M00S02371.sxllr   +++|        RETURN;
02519  M00S02372.sxllr   +++|
02520  M00S02373.sxllr   +++|#
02521  M00S02374.sxllr   +++|*     RETURN THE RESPONSE CODE TO THE *UCP*.
02522  M00S02375.sxllr   +++|#
02523  M00S02376.sxllr   +++|
02524  M00S02377.sxllr   +++|COMPLUCP:

Line S02378 Modification History
`M01` (Removed by)	`sxllr1`

Seq #  *Modification Id* Act 
----------------------------+
02525  M01S02378.sxllr1  ---|      IF NOT LLR$UCPABT[0]
02526  M01S02379.sxllr1  ---|      THEN
02527  M01S02380.sxllr1  ---|        BEGIN
02528  M01S02381.sxllr1  ---|        LTCENTRY = LLR$LTCT[0];
02529  M01S02382.sxllr1  ---|        LTC$RQR[LTCENTRY] = LLR$DR[0];
02530  M01S02383.sxllr1  ---|        UCP$RES;

Line S00014 Modification History
`M01` (Added by)	`sxllr1`

Seq #  *Modification Id* Act 
----------------------------+
02531  M01S00014.sxllr1  +++|        LABELBUSY = FALSE;
02532  M01S00015.sxllr1  +++|        LLR$DR[0] = 0;
02533  M01S00016.sxllr1  +++|        LLR$UCPABT[0] = FALSE;
02534  M00S02384.sxllr   +++|        LLR$Y[0] = SM$EXIT$TY;
02535  M00S02385.sxllr   +++|        LLR$Z[0] = SM$TY$Z;
02536  M00S02386.sxllr   +++|        LLR$PRCNME[0] = REQTYP4"UNLD$CART";
02537  M00S02387.sxllr   +++|        LLR$PRCST[0] = PROCST"INITIAL";
02538  M00S02388.sxllr   +++|        ADD$LNK(LLRENT,LCHN"LL$READY",0);

Line S02389 Modification History
`M01` (Removed by)	`sxllr1`

Seq #  *Modification Id* Act 
----------------------------+
02539  M01S02389.sxllr1  ---|        END

Line S00017 Modification History
`M01` (Added by)	`sxllr1`

Seq #  *Modification Id* Act 
----------------------------+
02540  M01S00017.sxllr1  +++|        RETURN;
02541  M00S02390.sxllr   +++|
02542  M00S02391.sxllr   +++|#
02543  M00S02392.sxllr   +++|*     "CONT2" PROCESS STATE.
02544  M00S02393.sxllr   +++|#
02545  M00S02394.sxllr   +++|
02546  M00S02395.sxllr   +++|WTC2:
02547  M00S02396.sxllr   +++|
02548  M00S02397.sxllr   +++|#
02549  M00S02398.sxllr   +++|*     MARK THE REQUEST COMPLETE AND RETURN TO *LLRQ* MONITOR.
02550  M00S02399.sxllr   +++|#
02551  M00S02400.sxllr   +++|
02552  M00S02401.sxllr   +++|      IF NOT LLR$UCPABT[0]
02553  M00S02402.sxllr   +++|      THEN
02554  M00S02403.sxllr   +++|        BEGIN        # SEND REQUEST BACK TO UCP #
02555  M00S02404.sxllr   +++|        LTC$CART[LTCENTRY] = FALSE;
02556  M00S02405.sxllr   +++|        LTC$LLRQA[LTCENTRY] = 0;
02557  M00S02406.sxllr   +++|        LTC$RQR[LTCENTRY] = LLR$DR[0];
02558  M00S02407.sxllr   +++|        UCP$RES;
02559  M00S02408.sxllr   +++|        END         # COMPLETED RETURN REQUEST #
02560  M00S02409.sxllr   +++|
02561  M00S02410.sxllr   +++|      P<CLEAR> = LLR$DRDRA[0];        # CLEAR *DRD* RESERVE #
02562  M00S02411.sxllr   +++|      CLN = 0;
02563  M00S02412.sxllr   +++|      LLR$PRCST[0] = PROCST"COMPLETE";
02564  M00S02413.sxllr   +++|      RETURN;
02565  M00S02414.sxllr   +++|      END  # WT$LAB #
02566  M00S02415.sxllr   +++|
02567  M00S02416.sxllr   +++|    TERM