Deck SDSPLAY Part 001

5 Modifications

Seq #  *Modification Id* Act 
----------------------------+
01767  M01S00074.271l716 +++|          PL     X1,PKC8     IF VALUE TOO LARGE
01768  M00S01581.sdsplay +++|          PX5    X6
01769  M00S01582.sdsplay +++|          NX6,B3 X5

Seq #  *Modification Id* Act 
----------------------------+
01770  M01S01583.271l716 ---|          SB3    B3-47
01771  M01S01584.271l716 ---|          SX6    -B3         RETURN POWER OF 2
01772  M01S01585.271l716 ---| PSK2     RJ     SPS         SET PARAMETER IN SYSTEM BUFFER
01773  M01S01586.271l716 ---|          SB2    B0+         CLEAR ERROR FLAG
01774  M01S01587.271l716 ---|          EQ     PSKX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01775  M01S00075.271l716 +++|          SB3    B3-47       RETURN POWER OF 2
01776  M01S00076.271l716 +++|          SX6    -B3

Seq #  *Modification Id* Act 
----------------------------+
01777  M02S00077.271l750 ---|          EQ     PSK1        SET PARAMETER IN SYSTEM BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01778  M01S00101.271l750 +++| PSK1     RJ     SPS         SET PARAMETER IN SYSTEM BUFFER
01779  M01S00102.271l750 +++|          SB2    B0
01780  M01S00103.271l750 +++|          EQ     PSKX        RETURN
01781  M00S01588.sdsplay +++|
01782  M00S01589.sdsplay +++|*         PROCESS *DT* PARAMETER.
01783  M00S01590.sdsplay +++|
01784  M00S01591.sdsplay +++| PSK3     SA1    TSCT        FWA OF SERVICE CLASS TABLE

Seq #  *Modification Id* Act 
----------------------------+
01785  M01S00078.271l716 +++|          SB2    1
01786  M00S01592.sdsplay +++| PSK4     ZR     X1,PSK6     IF END OF TABLE
01787  M00S01593.sdsplay +++|          BX5    X1-X6
01788  M00S01594.sdsplay +++|          SA1    A1+B1       GET NEXT ENTRY IN *TSCT*

Seq #  *Modification Id* Act 
----------------------------+
01789  M01S01595.271l716 ---|          ZR     X5,PSK5     IF A MATCH
01790  M01S01596.271l716 ---|          EQ     PSK4        LOOP FOR NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01791  M01S00079.271l716 +++|          NZ     X5,PSK4     IF NOT SPECIFIED SERVICE CLASS
01792  M00S01597.sdsplay +++|
01793  M00S01598.sdsplay +++|*         CHECK FOR SPECIAL CASE DISALLOWED ENTRIES.
01794  M00S01599.sdsplay +++|

Seq #  *Modification Id* Act 
----------------------------+
01795  M01S01600.271l716 ---| PSK5     LX6    12          RIGHT JUSTIFY SERVICE CLASS
01796  M01S01601.271l716 ---|          SX1    X6-2RSS

Seq #  *Modification Id* Act 
----------------------------+
01797  M01S00080.271l716 +++|          SX1    X6-2RSS
01798  M00S01602.sdsplay +++|          ZR     X1,PSK6     IF INCORRECT SERVICE CLASS
01799  M00S01603.sdsplay +++|
01800  M00S01604.sdsplay +++|*         SET CORRECT *DT* VALUE IN SYSTEM BUFFER.
01801  M00S01605.sdsplay +++|
01802  M00S01606.sdsplay +++|          SX6    A1-TSCT     SET SERVICE CLASS ORDINAL+1

Seq #  *Modification Id* Act 
----------------------------+
01803  M01S01607.271l716 ---|          RJ     SPS         SET PARAMETER IN SYSTEM BUFFER
01804  M01S01608.271l716 ---|          SB2    B0+         CLEAR ERROR FLAG
01805  M01S01609.271l716 ---|          EQ     PSKX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01806  M01S00081.271l716 +++|          EQ     PSK1        SET PARAMETER IN SYSTEM BUFFER
01807  M00S01610.sdsplay +++| RPN      SPACE  4,10
01808  M00S01611.sdsplay +++|**        RPN - RESET PAGE NUMBER.
01809  M00S01612.sdsplay +++|*
01810  M00S01613.sdsplay +++|*         ENTRY  (CLDS) = CURRENT *L* DISPLAY SCREEN STATUS.
01811  M00S01614.sdsplay +++|*
01812  M00S01615.sdsplay +++|*         EXIT   CURRENT LEFT PAGE NUMBER RESET TO 1.
01813  M00S01616.sdsplay +++|*
01814  M00S01617.sdsplay +++|*         USES   X - 0, 1, 2, 3, 6.
01815  M00S01618.sdsplay +++|*                A - 1, 3, 6.
01816  M00S01619.sdsplay +++|
01817  M00S01620.sdsplay +++|
01818  M00S01621.sdsplay +++| RPN      SUBR               ENTRY/EXIT
01819  M00S01622.sdsplay +++|          SA3    THLP        ASSUME *HELP* STATUS
01820  M00S01623.sdsplay +++|          SA1    CLDS        CHECK CURRENT *L* DISPLAY SCREEN STATUS
01821  M00S01624.sdsplay +++|          SX1    X1-SHLP
01822  M00S01625.sdsplay +++|          MX0    42
01823  M00S01626.sdsplay +++|          LX0    30
01824  M00S01627.sdsplay +++|          ZR     X1,RPN1     IF *HELP* STATUS
01825  M00S01628.sdsplay +++|          SA3    TASC        SET DATA DISPLAY STATUS
01826  M00S01629.sdsplay +++| RPN1     SX2    B1          SET PAGE 1 OF *HELP* DISPLAY
01827  M00S01630.sdsplay +++|          LX2    30
01828  M00S01631.sdsplay +++|          BX3    X0*X3       CLEAR CURRENT PAGE
01829  M00S01632.sdsplay +++|          BX6    X2+X3       SET PAGE 1
01830  M00S01633.sdsplay +++|          SA6    A3
01831  M00S01634.sdsplay +++|          EQ     RPNX        RETURN
01832  M00S01635.sdsplay +++| SDT      SPACE  4,15
01833  M00S01636.sdsplay +++|**        SDT - SET DATA IN TEMPLATE.
01834  M00S01637.sdsplay +++|*
01835  M00S01638.sdsplay +++|*         ENTRY  (CSCL) = CURRENT SERVICE CLASS ORDINAL.
01836  M00S01639.sdsplay +++|*                (SBUF) = CURRENT SYSTEM *JCB* INFORMATION.
01837  M00S01640.sdsplay +++|*
01838  M00S01641.sdsplay +++|*         EXIT   DATA FROM *SBUF* SET IN TEMPLATES.
01839  M00S01642.sdsplay +++|*
01840  M00S01643.sdsplay +++|*         USES   X - ALL.
01841  M00S01644.sdsplay +++|*                A - 1, 3, 4, 5, 6, 7.
01842  M00S01645.sdsplay +++|*                B - 2.
01843  M00S01646.sdsplay +++|*
01844  M00S01647.sdsplay +++|*         CALLS  CJA, EPA, EPB.
01845  M00S01648.sdsplay +++|
01846  M00S01649.sdsplay +++|
01847  M00S01650.sdsplay +++| SDT      SUBR               ENTRY/EXIT
01848  M00S01651.sdsplay +++|
01849  M00S01652.sdsplay +++|*         SET SERVICE CLASS MNEMONIC IN PAGE HEADERS.
01850  M00S01653.sdsplay +++|
01851  M00S01654.sdsplay +++|          SA3    TASC        FWA DATA TEMPLATES PAGING TABLE
01852  M00S01655.sdsplay +++|          MX0    12
01853  M00S01656.sdsplay +++|          BX3    X0*X3       NUMBER OF PAGES IN DATA TEMPLATES
01854  M00S01657.sdsplay +++|          LX3    12
01855  M00S01658.sdsplay +++|          SB2    X3
01856  M00S01659.sdsplay +++|          SA1    CSCL        GET CURRENT SERVICE CLASS ORDINAL
01857  M00S01660.sdsplay +++|          SA1    X1+TSCT
01858  M00S01661.sdsplay +++|          BX1    X0*X1
01859  M00S01662.sdsplay +++|          LX1    6
01860  M00S01663.sdsplay +++|          MX0    -54
01861  M00S01664.sdsplay +++|          BX2    -X0*X1      FIRST CHARACTER OF SERVICE CLASS
01862  M00S01665.sdsplay +++|          BX1    X0*X1       LAST CHARACTER OF SERVICE CLASS
01863  M00S01666.sdsplay +++| SDT1     SA4    A3+B1       GET NEXT PAGE
01864  M00S01667.sdsplay +++|          SA4    X4+2        GET TEMPLATE WORDS
01865  M00S01668.sdsplay +++|          SA5    A4+B1
01866  M00S01669.sdsplay +++|          BX5    -X0*X5
01867  M00S01670.sdsplay +++|          LX0    6
01868  M00S01671.sdsplay +++|          BX4    -X0*X4
01869  M00S01672.sdsplay +++|          BX6    X4+X2       SET FIRST CHARACTER OF SERVICE  CLASS
01870  M00S01673.sdsplay +++|          BX7    X5+X1       SET LAST CHARACTER OF SERVICE CLASS
01871  M00S01674.sdsplay +++|          SA6    A4
01872  M00S01675.sdsplay +++|          MX0    -54         RESET MASK
01873  M00S01676.sdsplay +++|          SA7    A5
01874  M00S01677.sdsplay +++|          SB2    B2-B1
01875  M00S01678.sdsplay +++|          ZR     B2,SDT2     IF ALL PAGES DONE
01876  M00S01679.sdsplay +++|          SA3    A3+B1       NEXT ENTRY IN PAGING TABLE
01877  M00S01680.sdsplay +++|          EQ     SDT1        ENTER SERVICE CLASS IN NEXT PAGE
01878  M00S01681.sdsplay +++|
01879  M00S01682.sdsplay +++|*         SET DATA IN THE TEMPLATES.
01880  M00S01683.sdsplay +++|
01881  M00S01684.sdsplay +++| SDT2     RJ     CJA         CALCULATE *JCB* OFFSET IN *SBUF*
01882  M00S01685.sdsplay +++|          RJ     EPA         ENTER PAGES 1 AND 2 VALUES
01883  M00S01686.sdsplay +++|          RJ     EPB         ENTER PAGE 3 VALUES
01884  M00S01687.sdsplay +++|          EQ     SDTX        RETURN
01885  M00S01688.sdsplay +++| SIN      SPACE  4,20
01886  M00S01689.sdsplay +++|**        SIN - SET INCORRECT NUMERIC PARAMETER.
01887  M00S01690.sdsplay +++|*
01888  M00S01691.sdsplay +++|*         ENTRY  (X1) = MESSAGE ORDINAL.
01889  M00S01692.sdsplay +++|*                (A5) = FWA OF *TKWV* ENTRY OF KEYWORD TO ADD TO
01890  M00S01693.sdsplay +++|*                       MESSAGE.
01891  M00S01694.sdsplay +++|*
01892  M00S01695.sdsplay +++|*         EXIT   (EMOR) = MESSAGE ORDINAL.
01893  M00S01696.sdsplay +++|*                KEYWORD SET IN MESSAGE.
01894  M00S01697.sdsplay +++|*
01895  M00S01698.sdsplay +++|*         USES   X - 0, 1, 2, 5, 6, 7.
01896  M00S01699.sdsplay +++|*                A - 2, 5, 6, 7.
01897  M00S01700.sdsplay +++|*
01898  M00S01701.sdsplay +++|*         CALLS  AFT.
01899  M00S01702.sdsplay +++|*
01900  M00S01703.sdsplay +++|*         NOTES  THIS ROUTINE ASSUMES A SPECIFIC LOCATION FOR THE
01901  M00S01704.sdsplay +++|*                KEYWORD IN THE MESSAGE.  IF THE KEYWORD POSITION IN
01902  M00S01705.sdsplay +++|*                THE MESSAGE IS CHANGED, THIS ROUTINE SHOULD BE
01903  M00S01706.sdsplay +++|*                UPDATED.
01904  M00S01707.sdsplay +++|
01905  M00S01708.sdsplay +++|
01906  M00S01709.sdsplay +++| SIN      SUBR               ENTRY/EXIT
01907  M00S01710.sdsplay +++|          BX7    X1
01908  M00S01711.sdsplay +++|          SA7    EMOR        SET MESSAGE ORDINAL
01909  M00S01712.sdsplay +++|          SA5    A5          GET KEYWORD IN ERROR
01910  M00S01713.sdsplay +++|          MX0    24
01911  M00S01714.sdsplay +++|          BX1    X0*X5
01912  M00S01715.sdsplay +++|          SA2    TMLD+3+X7   FWA OF WORD IN MESSAGE
01913  M00S01716.sdsplay +++|          RJ     AFT         APPEND FLOATING TERMINATOR
01914  M00S01717.sdsplay +++|          LX6    -12         JUSTIFY KEYWORD FOR MESSAGE
01915  M00S01718.sdsplay +++|          MX0    12
01916  M00S01719.sdsplay +++|          BX2    X0*X2
01917  M00S01720.sdsplay +++|          BX6    -X0*X6
01918  M00S01721.sdsplay +++|          BX6    X6+X2
01919  M00S01722.sdsplay +++|          SA6    A2          ADD KEYWORD AND TERMINATOR TO MESSAGE
01920  M00S01723.sdsplay +++|          EQ     SINX        RETURN
01921  M00S01724.sdsplay +++| SIP      SPACE  4,20
01922  M00S01725.sdsplay +++|**        SIP - SET INCORRECT PARAMETER KEYWORD.
01923  M00S01726.sdsplay +++|*
01924  M00S01727.sdsplay +++|*         ENTRY  (X1) = MESSAGE ORDINAL.
01925  M00S01728.sdsplay +++|*                (POPA) = KEYWORD IN ERROR, LEFT JUSTIFIED, ZERO
01926  M00S01729.sdsplay +++|*                         FILLED.
01927  M00S01730.sdsplay +++|*
01928  M00S01731.sdsplay +++|*         EXIT   KEYWORD SET IN MESSAGE.
01929  M00S01732.sdsplay +++|*                (EMOR) = MESSAGE ORDINAL.
01930  M00S01733.sdsplay +++|*
01931  M00S01734.sdsplay +++|*         USES   X - 1, 2, 7.
01932  M00S01735.sdsplay +++|*                A - 1, 2, 6, 7.
01933  M00S01736.sdsplay +++|*
01934  M00S01737.sdsplay +++|*         CALLS  AFT.
01935  M00S01738.sdsplay +++|*
01936  M00S01739.sdsplay +++|*         NOTES  THIS ROUTINE ASSUMES A SPECIFIC LOCATION FOR THE
01937  M00S01740.sdsplay +++|*                KEYWORD IN THE MESSAGE.  IF THE KEYWORD POSITION IN
01938  M00S01741.sdsplay +++|*                THE MESSAGE IS CHANGED, THIS ROUTINE SHOULD BE
01939  M00S01742.sdsplay +++|*                UPDATED.
01940  M00S01743.sdsplay +++|
01941  M00S01744.sdsplay +++|
01942  M00S01745.sdsplay +++| SIP      SUBR               ENTRY/EXIT
01943  M00S01746.sdsplay +++|          BX7    X1
01944  M00S01747.sdsplay +++|          SA7    EMOR        SET MESSAGE ORDINAL
01945  M00S01748.sdsplay +++|          SA1    POPA        GET PARAMETER IN ERROR
01946  M00S01749.sdsplay +++|          SA2    TMLD+X7+2   GET WORD IN MESSAGE TO MODIFY
01947  M00S01750.sdsplay +++|          RJ     AFT         APPEND FLOATING TERMINATOR
01948  M00S01751.sdsplay +++|          SA6    A2          ADD KEYWORD AND TERMINATOR TO MESSAGE
01949  M00S01752.sdsplay +++|          EQ     SIPX        RETURN
01950  M00S01753.sdsplay +++| SPS      SPACE  4,15
01951  M00S01754.sdsplay +++|**        SPS - SET PARAMETER INTO SYSTEM BUFFER.
01952  M00S01755.sdsplay +++|*
01953  M00S01756.sdsplay +++|*         ENTRY  (X6) = PARAMETER, RIGHT JUSTIFIED.
01954  M00S01757.sdsplay +++|*                (A5) = FWA OF CURRENT *TKWV* ENTRY.
01955  M00S01758.sdsplay +++|*                (CSCL) = CURRENT SERVICE CLASS ORDINAL.
01956  M00S01759.sdsplay +++|*
01957  M00S01760.sdsplay +++|*         EXIT   PARAMETER SET INTO *SBUF*.
01958  M00S01761.sdsplay +++|*
01959  M00S01762.sdsplay +++|*         USES   X - 0, 1, 3, 6.
01960  M00S01763.sdsplay +++|*                A - 1, 6.
01961  M00S01764.sdsplay +++|*                B - 2, 3.
01962  M00S01765.sdsplay +++|*
01963  M00S01766.sdsplay +++|*         CALLS  CJA, GMP.
01964  M00S01767.sdsplay +++|
01965  M00S01768.sdsplay +++|
01966  M00S01769.sdsplay +++| SPS      SUBR               ENTRY/EXIT
01967  M00S01770.sdsplay +++|          RJ     CJA         CALCULATE *JCB* ADDRESS
01968  M00S01771.sdsplay +++|          SA1    A5+         GET *TKWV* ENTRY
01969  M00S01772.sdsplay +++|          RJ     GMP         GENERATE MASKING PARAMETERS
01970  M00S01773.sdsplay +++|          LX6    B2          JUSTIFY PARAMETER FOR SYSTEM BUFFER
01971  M00S01774.sdsplay +++|          SB2    B2+X4       SET SHIFT COUNT FOR MASK
01972  M00S01775.sdsplay +++|          SB3    X4-1
01973  M00S01776.sdsplay +++|          MX0    1
01974  M00S01777.sdsplay +++|          AX0    B3
01975  M00S01778.sdsplay +++|          LX0    B2          GENERATE MASK FOR PARAMETER
01976  M00S01779.sdsplay +++|          BX3    -X0*X3
01977  M00S01780.sdsplay +++|          BX6    X6+X3
01978  M00S01781.sdsplay +++|          SA6    A3          SET VALUE IN SYSTEM BUFFER
01979  M00S01782.sdsplay +++|          EQ     SPSX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01980  M01S01783.271l750 ---| SSM      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
01981  M01S00104.271l750 +++| SSM      SPACE  4,20
01982  M00S01784.sdsplay +++|**        SSM - SET SERVICE CLASS IN MESSAGE.
01983  M00S01785.sdsplay +++|*

Seq #  *Modification Id* Act 
----------------------------+
01984  M01S01786.271l716 ---|*         ENTRY  (X1) = WORD IN MESSAGE TO MODIFY.
01985  M01S01787.271l716 ---|*                (X2) = ORDINAL OF SERVICE CLASS TO PUT IN MESSAGE.
01986  M01S01788.271l716 ---|*                (A1) = ADDRESS OF WORD IN MESSAGE TO MODIFY.
01987  M01S01789.271l716 ---|*                (B2) = *L* DISPLAY MESSAGE ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
01988  M01S00082.271l716 +++|*         ENTRY  (B5) = SERVICE CLASS.

Seq #  *Modification Id* Act 
----------------------------+
01989  M02S00083.271l750 ---|*                (X6) = *L* DISPLAY MESSAGE INDEX.

Seq #  *Modification Id* Act 
----------------------------+
01990  M01S00105.271l750 +++|*                (X0) = *L* DISPLAY MESSAGE INDEX.
01991  M00S01790.sdsplay +++|*

Seq #  *Modification Id* Act 
----------------------------+
01992  M01S01791.271l750 ---|*         EXIT   SERVICE CLASS MNEMONIC SET IN MESSAGE.
01993  M01S01792.271l750 ---|*                (EMOR) = MESSAGE ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
01994  M01S00106.271l750 +++|*         EXIT   (EBUF) = MESSAGE WITH SERVICE CLASS MNEMONIC SET.
01995  M01S00107.271l750 +++|*                (EMOR) = MESSAGE ORDINAL OF *EBUF*.
01996  M00S01793.sdsplay +++|*

Seq #  *Modification Id* Act 
----------------------------+
01997  M01S01794.271l750 ---|*         USES   X - 0, 1, 2, 6.
01998  M01S01795.271l750 ---|*                A - 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
01999  M01S00108.271l750 +++|*         USES   X - 1, 6.
02000  M01S00109.271l750 +++|*                A - 1, 6.
02001  M01S00110.271l750 +++|*                B - 2, 3, 5.
02002  M01S00111.271l750 +++|*
02003  M01S00112.271l750 +++|*         CALLS  SNM.
02004  M01S00113.271l750 +++|*
02005  M01S00114.271l750 +++|*         MACROS MOVE.
02006  M00S01796.sdsplay +++|
02007  M00S01797.sdsplay +++|
02008  M00S01798.sdsplay +++| SSM      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
02009  M01S00115.271l750 +++|          MOVE   LDML,TMLD+EBMS,TMLD+EBUF  CLEAR ASSEMBLY BUFFER
02010  M01S00116.271l750 +++|          SA1    B5+TSCT-1   GET SERVICE CLASS MNEMONIC
02011  M01S00117.271l750 +++|          SB2    1RX         SUBSTITUTION CHARACTER
02012  M01S00118.271l750 +++|          SB3    TMLD+EBUF   ASSEMBLY BUFFER
02013  M01S00119.271l750 +++|          SB5    X0+TMLD     MESSAGE ADDRESS
02014  M01S00120.271l750 +++|          SB5    -B5
02015  M01S00121.271l750 +++|          RJ     SNM         SET SERVICE CLASS NAME IN MESSAGE
02016  M01S00122.271l750 +++|          SX6    EBUF        ERROR MESSAGE ORDINAL FOR ASSEMBLY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
02017  M01S01799.271l716 ---|          SA2    X2+TSCT     GET SERVICE CLASS MNEMONIC

Seq #  *Modification Id* Act 
----------------------------+
02018  M01S00084.271l716 +++|          SA6    EMOR

Seq #  *Modification Id* Act 
----------------------------+
02019  M02S00085.271l750 ---|          SA2    B5+TSCT-1   GET SERVICE CLASS MNEMONIC

Seq #  *Modification Id* Act 
----------------------------+
02020  M01S01800.271l750 ---|          MX0    -48
02021  M01S01801.271l750 ---|          LX0    -12

Seq #  *Modification Id* Act 
----------------------------+
02022  M02S00086.271l750 ---|          SA1    X6+TMLD+4   MESSAGE WORD NEEDING MNEMONIC

Seq #  *Modification Id* Act 
----------------------------+
02023  M01S01802.271l750 ---|          LX2    -12
02024  M01S01803.271l750 ---|          BX1    -X0*X1
02025  M01S01804.271l750 ---|          BX6    X1+X2       SET MODIFIED WORD IN MESSAGE
02026  M01S01805.271l750 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
02027  M01S01806.271l716 ---|          SX6    B2+         SET MESSAGE ORDINAL
02028  M01S01807.271l716 ---|          SA6    EMOR
02029  M00S01808.sdsplay +++|          EQ     SSMX        RETURN
02030  M00S01809.sdsplay +++| SVT      SPACE  4,15
02031  M00S01810.sdsplay +++|**        SVT - SET VALUE IN TEMPLATE.
02032  M00S01811.sdsplay +++|*
02033  M00S01812.sdsplay +++|*         ENTRY  (A1) = ADDRESS OF CURRENT *TKWV* ENTRY.
02034  M00S01813.sdsplay +++|*                (A2) = ADDRESS OF CURRENT *TKWP* ENTRY.
02035  M00S01814.sdsplay +++|*                (X0) = MASK FOR FIRST PART OF VALUE TO BE SET.
02036  M00S01815.sdsplay +++|*                (X1) = MASK FOR LAST PART OF VALUE TO BE SET.
02037  M00S01816.sdsplay +++|*                (X6) = VALUE TO SET IN TEMPLATE.
02038  M00S01817.sdsplay +++|*                (B2) = SHIFT COUNT FOR VALUE TO BE SET.
02039  M00S01818.sdsplay +++|*
02040  M00S01819.sdsplay +++|*         EXIT   VALUE SET INTO TEMPLATE.
02041  M00S01820.sdsplay +++|*                (A1) = INCREMENTED TO NEXT *TKWV* ENTRY.
02042  M00S01821.sdsplay +++|*                (A2) = INCREMENTED TO NEXT *TKWP* ENTRY.
02043  M00S01822.sdsplay +++|*
02044  M00S01823.sdsplay +++|*         USES   X - 1, 2, 3, 4, 6, 7.
02045  M00S01824.sdsplay +++|*                A - 1, 2, 3, 4, 6, 7.
02046  M00S01825.sdsplay +++|
02047  M00S01826.sdsplay +++|
02048  M00S01827.sdsplay +++| SVT      SUBR               ENTRY/EXIT
02049  M00S01828.sdsplay +++|          SA2    A2          GET TEMPLATE WORDS
02050  M00S01829.sdsplay +++|          SA3    X2
02051  M00S01830.sdsplay +++|          SA4    A3+B1
02052  M00S01831.sdsplay +++|          LX6    B2
02053  M00S01832.sdsplay +++|          BX7    -X0*X6      GET FIRST CHARACTERS OF VALUE
02054  M00S01833.sdsplay +++|          BX3    X0*X3
02055  M00S01834.sdsplay +++|          BX6    X1*X6       GET LAST CHARACTERS OF VALUE
02056  M00S01835.sdsplay +++|          BX4    -X1*X4
02057  M00S01836.sdsplay +++|          BX6    X6+X4       SET LAST CHARACTERS
02058  M00S01837.sdsplay +++|          BX7    X7+X3       SET FIRST CHARACTERS
02059  M00S01838.sdsplay +++|          SA6    A4
02060  M00S01839.sdsplay +++|          SA7    A3
02061  M00S01840.sdsplay +++|          SA1    A1+B1       NEXT ENTRY IN *TKWV*
02062  M00S01841.sdsplay +++|          SA2    A2+B1       NEXT ENTRY IN *TKWP*
02063  M00S01842.sdsplay +++|          EQ     SVTX        RETURN
02064  M00S01843.sdsplay +++|          SPACE  4,10
02065  M00S01844.sdsplay +++|*         COMMON DECKS.
02066  M00S01845.sdsplay +++|
02067  M00S01846.sdsplay +++|
02068  M00S01847.sdsplay +++|*CALL     COMCCIO
02069  M00S01848.sdsplay +++|*CALL     COMCCOD
02070  M00S01849.sdsplay +++|*CALL     COMCCPM
02071  M00S01850.sdsplay +++|*CALL     COMCDXB
02072  M00S01851.sdsplay +++|*CALL     COMCFLD
02073  M00S01852.sdsplay +++|*CALL     COMCLFM
02074  M00S01853.sdsplay +++|*CALL     COMCMVE
02075  M00S01854.sdsplay +++|*CALL     COMCPOP

Seq #  *Modification Id* Act 
----------------------------+
02076  M01S00123.271l750 +++|*CALL     COMCRDC
02077  M01S00124.271l750 +++|*CALL     COMCRDW
02078  M00S01855.sdsplay +++|*CALL     COMCSFN
02079  M00S01856.sdsplay +++|*CALL     COMCSNM
02080  M00S01857.sdsplay +++|*CALL     COMCSYS
02081  M00S01858.sdsplay +++|*CALL     COMCUSB
02082  M00S01859.sdsplay +++|*CALL     COMCWOD
02083  M00S01860.sdsplay +++|*CALL     COMCWTC
02084  M00S01861.sdsplay +++|*CALL     COMCWTO
02085  M00S01862.sdsplay +++|*CALL     COMCWTW
02086  M00S01863.sdsplay +++|*CALL     COMCZTB
02087  M00S01864.sdsplay +++|          TITLE  HELP - PAGE 1.
02088  M00S01865.sdsplay +++|          USE    BUFFERS
02089  M00S01866.sdsplay +++|          SPACE  4,10
02090  M00S01867.sdsplay +++| HLPA     BSS    0
02091  M00S01868.sdsplay +++|  DATA   58CSDSPLAY COMMANDS                               PAGE 1 OF 3
02092  M00S01869.sdsplay +++|  DATA   58C
02093  M00S01870.sdsplay +++|  DATA   58C COMMAND                        DESCRIPTION
02094  M00S01871.sdsplay +++|  DATA   58C
02095  M00S01872.sdsplay +++|  DATA   58C CLASS=XX         DISPLAY THE DATA FOR SERVICE CLASS XX.
02096  M00S01873.sdsplay +++|  DATA   58C END              END THE PROCESSING OF SDSPLAY.
02097  M00S01874.sdsplay +++|  DATA   58C GO               SET ALL ENTERED VALUES INTO THE SYSTEM.
02098  M00S01875.sdsplay +++|  DATA   58C HELP             SHOW L DISPLAY COMMANDS FOR SDSPLAY.
02099  M00S01876.sdsplay +++|  DATA   58C RESET            IGNORE ALL VALUES ENTERED SINCE THE
02100  M00S01877.sdsplay +++|  DATA   58C                  LAST GO.
02101  M00S01878.sdsplay +++|  DATA   58C
02102  M00S01879.sdsplay +++|  DATA   58C +                PAGE THE DISPLAY FORWARD.
02103  M00S01880.sdsplay +++|  DATA   58C -                PAGE THE DISPLAY BACKWARD.
02104  M00S01881.sdsplay +++|  DATA   58C
02105  M00S01882.sdsplay +++|  DATA   58C
02106  M00S01883.sdsplay +++|  DATA   58C
02107  M00S01884.sdsplay +++|  DATA   58C
02108  M00S01885.sdsplay +++|  DATA   58C
02109  M00S01886.sdsplay +++|  DATA   58C
02110  M00S01887.sdsplay +++|  DATA   58C
02111  M00S01888.sdsplay +++| LDMO     EQU    *-HLPA      GLOBAL MESSAGE OFFSET IN TEMPLATE
02112  M00S01889.sdsplay +++|  DATA   58C
02113  M00S01890.sdsplay +++|  DATA   58C
02114  M00S01891.sdsplay +++| HLPAL    EQU    *-HLPA      LENGTH OF TEMPLATE
02115  M00S01892.sdsplay +++| DSPL     EQU    HLPAL       GLOBAL TEMPLATE LENGTH
02116  M00S01893.sdsplay +++|          TITLE  HELP - PAGE 2.
02117  M00S01894.sdsplay +++| HLPB     BSS    0
02118  M00S01895.sdsplay +++|  DATA   58CSERVICE CLASS DEFINITIONS                      PAGE 2 OF 3
02119  M00S01896.sdsplay +++|  DATA   58C
02120  M00S01897.sdsplay +++|  DATA   58C     SY          SYSTEM SERVICE CLASS.
02121  M00S01898.sdsplay +++|  DATA   58C     BC          BATCH SERVICE CLASS.
02122  M00S01899.sdsplay +++|  DATA   58C     RB          REMOTE BATCH SERVICE CLASS.
02123  M00S01900.sdsplay +++|  DATA   58C
02124  M00S01901.sdsplay +++|  DATA   58C     TS          INTERACTIVE SERVICE CLASS.
02125  M00S01902.sdsplay +++|  DATA   58C     DI          DETACHED INTERACTIVE SERVICE CLASS.
02126  M00S01903.sdsplay +++|  DATA   58C     NS          NETWORK SUPERVISOR SERVICE CLASS.
02127  M00S01904.sdsplay +++|  DATA   58C
02128  M00S01905.sdsplay +++|  DATA   58C     SS          SUBSYSTEM SERVICE CLASS.
02129  M00S01906.sdsplay +++|  DATA   58C     MA          MAINTENANCE SERVICE CLASS.
02130  M00S01907.sdsplay +++|  DATA   58C     CT          COMMUNICATION TASK SERVICE CLASS.
02131  M00S01908.sdsplay +++|  DATA   58C
02132  M00S01909.sdsplay +++|  DATA   58C
02133  M00S01910.sdsplay +++|  DATA   58C
02134  M00S01911.sdsplay +++|  DATA   58C
02135  M00S01912.sdsplay +++|  DATA   58C
02136  M00S01913.sdsplay +++|  DATA   58C
02137  M00S01914.sdsplay +++|  DATA   58C
02138  M00S01915.sdsplay +++|          ERRNZ  *-HLPB-LDMO  MESSAGE LINE LOCATION INCORRECT
02139  M00S01916.sdsplay +++|  DATA   58C
02140  M00S01917.sdsplay +++|          ERRNZ  *-HLPB-LDMO-LDML  INPUT LINE LOCATION INCORRECT
02141  M00S01918.sdsplay +++|  DATA   58C
02142  M00S01919.sdsplay +++| HLPBL    EQU    *-HLPB      LENGTH OF TEMPLATE
02143  M00S01920.sdsplay +++|          ERRNZ  HLPBL-DSPL  TEMPLATES MUST BE SAME LENGTH
02144  M00S01921.sdsplay +++|          TITLE  HELP - PAGE 3.
02145  M00S01922.sdsplay +++| HLPC     BSS    0
02146  M00S01923.sdsplay +++|  DATA   58CSERVICE CLASS DEFINITIONS                      PAGE 3 OF 3
02147  M00S01924.sdsplay +++|  DATA   58C
02148  M00S01925.sdsplay +++|  DATA   58C     I0          INSTALLATION CLASS 0.
02149  M00S01926.sdsplay +++|  DATA   58C     I1          INSTALLATION CLASS 1.
02150  M00S01927.sdsplay +++|  DATA   58C     I2          INSTALLATION CLASS 2.
02151  M00S01928.sdsplay +++|  DATA   58C     I3          INSTALLATION CLASS 3.
02152  M00S01929.sdsplay +++|  DATA   58C
02153  M00S01930.sdsplay +++|  DATA   58CTHE FOLLOWING SERVICE CLASSES MAY BE DEFINED AT YOUR SITE.
02154  M00S01931.sdsplay +++|  DATA   58C
02155  M00S01932.sdsplay +++|  DATA   58C     I4          INSTALLATION CLASS 4.
02156  M00S01933.sdsplay +++|  DATA   58C     I5          INSTALLATION CLASS 5.
02157  M00S01934.sdsplay +++|  DATA   58C     I6          INSTALLATION CLASS 6.
02158  M00S01935.sdsplay +++|  DATA   58C     I7          INSTALLATION CLASS 7.
02159  M00S01936.sdsplay +++|  DATA   58C     I8          INSTALLATION CLASS 8.
02160  M00S01937.sdsplay +++|  DATA   58C     I9          INSTALLATION CLASS 9.
02161  M00S01938.sdsplay +++|  DATA   58C     II          INSTALLATION CLASS I.
02162  M00S01939.sdsplay +++|  DATA   58C     IJ          INSTALLATION CLASS J.
02163  M00S01940.sdsplay +++|  DATA   58C     IK          INSTALLATION CLASS K.
02164  M00S01941.sdsplay +++|  DATA   58C     IL          INSTALLATION CLASS L.
02165  M00S01942.sdsplay +++|  DATA   58C
02166  M00S01943.sdsplay +++|          ERRNZ  *-HLPC-LDMO  MESSAGE LINE LOCATION INCORRECT
02167  M00S01944.sdsplay +++|  DATA   58C
02168  M00S01945.sdsplay +++|          ERRNZ  *-HLPC-LDMO-LDML  INPUT LINE LOCATION INCORRECT
02169  M00S01946.sdsplay +++|  DATA   58C
02170  M00S01947.sdsplay +++| HLPCL    EQU    *-HLPC      LENGTH OF TEMPLATE
02171  M00S01948.sdsplay +++|          ERRNZ  HLPCL-DSPL  TEMPLATES MUST BE SAME LENGTH
02172  M00S01949.sdsplay +++|          TITLE  LINE PRINTER HEADER FOR TEMPLATES.
02173  M00S01950.sdsplay +++| LPHR     BSS    0
02174  M00S01951.sdsplay +++|  DATA   50HSDSPLAY - SYSTEM SERVICE CLASS DISPLAY
02175  M00S01952.sdsplay +++| LPHD     BSS    1           DATE STAMP
02176  M00S01953.sdsplay +++| LPHT     BSS    1           TIME STAMP
02177  M00S01954.sdsplay +++|          DATA   C* *
02178  M00S01955.sdsplay +++|          CON    0
02179  M00S01956.sdsplay +++| LPHRL    EQU    *-LPHR      HEADER LENGTH
02180  M00S01957.sdsplay +++|          TITLE  ATTRIBUTES FOR SERVICE CLASS - PAGE 1.

Seq #  *Modification Id* Act 
----------------------------+
02181  M01S01958.271l716 ---| ASCA     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
02182  M01S00087.271l716 +++| SCA1     BSS    0
02183  M00S01959.sdsplay +++|  DATA   58CATTRIBUTES FOR SERVICE CLASS XX                PAGE 1 OF 3
02184  M00S01960.sdsplay +++|  DATA   58C
02185  M00S01961.sdsplay +++|  DATA   58C    OPTION                      DESCRIPTION
02186  M00S01962.sdsplay +++|  DATA   58C
02187  M00S01963.sdsplay +++| INLP     EQU    *
02188  M00S01964.sdsplay +++|  DATA   58C INLP = XXXXB     INPUT QUEUE LOWER PRIORITY.
02189  M00S01965.sdsplay +++| INUP     EQU    *
02190  M00S01966.sdsplay +++|  DATA   58C INUP = XXXXB     INPUT QUEUE UPPER PRIORITY.
02191  M00S01967.sdsplay +++| OTLP     EQU    *
02192  M00S01968.sdsplay +++|  DATA   58C OTLP = XXXXB     OUTPUT QUEUE LOWER PRIORITY.
02193  M00S01969.sdsplay +++| OTUP     EQU    *
02194  M00S01970.sdsplay +++|  DATA   58C OTUP = XXXXB     OUTPUT QUEUE UPPER PRIORITY.
02195  M00S01971.sdsplay +++| EXLP     EQU    *
02196  M00S01972.sdsplay +++|  DATA   58C EXLP = XXXXB     EXECUTION QUEUE LOWER PRIORITY.
02197  M00S01973.sdsplay +++| EXUP     EQU    *
02198  M00S01974.sdsplay +++|  DATA   58C EXUP = XXXXB     EXECUTION QUEUE UPPER PRIORITY.
02199  M00S01975.sdsplay +++| EXIL     EQU    *
02200  M00S01976.sdsplay +++|  DATA   58C EXIL = XXXXB     EXECUTION QUEUE INITIAL LOWER PRIORITY.
02201  M00S01977.sdsplay +++| EXIP     EQU    *
02202  M00S01978.sdsplay +++|  DATA   58C EXIP = XXXXB     EXECUTION QUEUE INITIAL PRIORITY.
02203  M00S01979.sdsplay +++| EXTP     EQU    *
02204  M00S01980.sdsplay +++|  DATA   58C EXTP = XXXXB     INITIAL TERMINAL PRIORITY AFTER I/O.
02205  M00S01981.sdsplay +++|  DATA   58C
02206  M00S01982.sdsplay +++| INWF     EQU    *
02207  M00S01983.sdsplay +++|  DATA   58C INWF = XXXXB     INPUT QUEUE WEIGHTING FACTOR.
02208  M00S01984.sdsplay +++| EXWF     EQU    *
02209  M00S01985.sdsplay +++|  DATA   58C EXWF = XXXXB     EXECUTION QUEUE WEIGHTING FACTOR.
02210  M00S01986.sdsplay +++| OTWF     EQU    *
02211  M00S01987.sdsplay +++|  DATA   58C OTWF = XXXXB     OUTPUT QUEUE WEIGHTING FACTOR.
02212  M00S01988.sdsplay +++|  DATA   58C
02213  M00S01989.sdsplay +++|  DATA   58C          (ALL PRIORITY VALUES ARE 0-7777B).
02214  M00S01990.sdsplay +++|  DATA   58C (WEIGHTING FACTORS MUST BE A POWER OF 2 FROM 1 - 4000B).

Seq #  *Modification Id* Act 
----------------------------+
02215  M01S01991.271l716 ---|          ERRNZ  *-ASCA-LDMO  MESSAGE LINE LOCATION INCORRECT
02216  M01S01992.271l716 ---|  DATA   58C
02217  M01S01993.271l716 ---|          ERRNZ  *-ASCA-LDMO-LDML  INPUT LINE LOCATION INCORRECT
02218  M01S01994.271l716 ---|  DATA   58C
02219  M01S01995.271l716 ---| ASCAL    EQU    *-ASCA      LENGTH OF TEMPLATE
02220  M01S01996.271l716 ---|          ERRNZ  ASCAL-DSPL  TEMPLATES MUST BE SAME LENGTH

Seq #  *Modification Id* Act 
----------------------------+
02221  M01S00088.271l716 +++|          ERRNZ  *-SCA1-LDMO  MESSAGE LINE LOCATION INCORRECT
02222  M01S00089.271l716 +++|  DATA   58C
02223  M01S00090.271l716 +++|          ERRNZ  *-SCA1-LDMO-LDML  INPUT LINE LOCATION INCORRECT
02224  M01S00091.271l716 +++|  DATA   58C
02225  M01S00092.271l716 +++| SCA1L    EQU    *-SCA1      LENGTH OF TEMPLATE
02226  M01S00093.271l716 +++|          ERRNZ  SCA1L-DSPL  TEMPLATES MUST BE SAME LENGTH
02227  M00S01997.sdsplay +++| OBUFL    EQU    *-LPHR      OUTPUT BUFFER LENGTH
02228  M00S01998.sdsplay +++|          TITLE  ATTRIBUTES FOR SERVICE CLASS - PAGE 2.

Seq #  *Modification Id* Act 
----------------------------+
02229  M01S01999.271l716 ---| ASCB     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
02230  M01S00094.271l716 +++| SCA2     BSS    0
02231  M00S02000.sdsplay +++|  DATA   58CATTRIBUTES FOR SERVICE CLASS XX                PAGE 2 OF 3
02232  M00S02001.sdsplay +++|  DATA   58C
02233  M00S02002.sdsplay +++|  DATA   58C   OPTION                       DESCRIPTION
02234  M00S02003.sdsplay +++|  DATA   58C

Seq #  *Modification Id* Act 
----------------------------+
02235  M01S02004.271l716 ---| ASPR     EQU    *
02236  M01S02005.271l716 ---|  DATA   58C PR =    XXB     CPU PRIORITY (2-77B).
02237  M01S02006.271l716 ---| ASCP     EQU    *
02238  M01S02007.271l716 ---|  DATA   58C CP =  XXXXB     CPU TIME SLICE (1-7777B MILLISECONDS*64).

Seq #  *Modification Id* Act 
----------------------------+
02239  M02S00095.271l750 ---| ASCB     EQU    *
02240  M02S00096.271l750 ---|  DATA   58C CB =  XXXXB  =  6/LB + 6/UB CPU PRIORITY BOUNDS (2-77B).
02241  M02S00097.271l750 ---|  DATA   58C                   LB = LOWER BOUND, UB = UPPER BOUND.

Seq #  *Modification Id* Act 
----------------------------+
02242  M01S00098.271l716 +++| ASCT     EQU    *

Seq #  *Modification Id* Act 
----------------------------+
02243  M02S00099.271l750 ---|  DATA   58C CT =  XXXXB     CPU TIME SLICE (0-7777B MSECS*64).

Seq #  *Modification Id* Act 
----------------------------+
02244  M01S00125.271l750 +++|  DATA   58C CT =  XXXXB     CP TIME SLICE (0-7777B SECONDS).
02245  M00S02008.sdsplay +++| ASCM     EQU    *
02246  M00S02009.sdsplay +++|  DATA   58C CM =  XXXXB     CM TIME SLICE (0-7777B SECONDS).
02247  M00S02010.sdsplay +++| ASNJ     EQU    *
02248  M00S02011.sdsplay +++|  DATA   58C NJ =  XXXXB     MAXIMUM NUMBER OF JOBS (0-7777B).
02249  M00S02012.sdsplay +++|  DATA   58C

Seq #  *Modification Id* Act 
----------------------------+
02250  M01S00100.271l716 +++| ASCP     EQU    *
02251  M01S00101.271l716 +++|  DATA   58C CP =  XXXXB     CONTROL POINT SLICE PRIORITY (0-7777B).
02252  M00S02013.sdsplay +++| ASFL     EQU    *
02253  M00S02014.sdsplay +++| ASFM     EQU    *+4

Seq #  *Modification Id* Act 
----------------------------+
02254  M01S02015.271l716 ---|  DATA   58C FL =  XXXXB     MAXIMUM CM FL/100B, ANY JOB (0-XXXXB).

Seq #  *Modification Id* Act 
----------------------------+
02255  M01S00102.271l716 +++|  DATA   58C FL =  XXXXB     MAXIMUM CM FL/100B, ANY JOB (0-MXFLB).
02256  M00S02016.sdsplay +++| ASAM     EQU    *
02257  M00S02017.sdsplay +++|  DATA   58C AM = XXXXXB     MAXIMUM CM FL/100B, ALL JOBS (0-77777B).

Seq #  *Modification Id* Act 
----------------------------+
02258  M02S00103.271l750 ---| ASSD     EQU    *
02259  M02S00104.271l750 ---|  DATA   58C SD =  XXXXB     CPU JOB SWITCH DELAY (1-7777B MSECS).
02260  M00S02018.sdsplay +++| ASEC     EQU    *

Seq #  *Modification Id* Act 
----------------------------+
02261  M01S02019.271l716 ---|  DATA   58C EC =  XXXXB     MAXIMUM EM FL/1000B, ANY JOB (0-7777B).
02262  M01S02020.271l716 ---| ASEM     EQU    *
02263  M01S02021.271l716 ---|  DATA   58C EM =  XXXXB     MAXIMUM EM LF/1000B, ALL JOBS (0-7777B).

Seq #  *Modification Id* Act 
----------------------------+
02264  M01S00105.271l716 +++|  DATA   58C EC =  XXXXB     MAXIMUM XM FL/1000B, ANY JOB (0-3777B).
02265  M01S00106.271l716 +++| ASEM     EQU    *
02266  M01S00107.271l716 +++|  DATA   58C EM =  XXXXB     MAXIMUM XM FL/1000B, ALL JOBS (0-7777B).
02267  M00S02022.sdsplay +++|  DATA   58C

Seq #  *Modification Id* Act 
----------------------------+
02268  M01S00126.271l750 +++| ASPR     EQU    *
02269  M01S00127.271l750 +++|  DATA   58C PR =    XXB     CPU PRIORITY (2-77B).
02270  M01S00128.271l750 +++| ASSE     EQU    *
02271  M01S00129.271l750 +++|  DATA   58C SE =  XXXXB     CPU SLICE EXTENSION (0-7777B MS).
02272  M01S00130.271l750 +++| ASRS     EQU    *
02273  M01S00131.271l750 +++|  DATA   58C RS =  XXXXB     CPU RECALL SLICE (1-7777B MS).
02274  M01S00132.271l750 +++| ASUS     EQU    *
02275  M01S00133.271l750 +++|  DATA   58C US =  XXXXB     UNEXTENDED CPU SLICE (1-7777B MS).
02276  M01S00134.271l750 +++|  DATA   58C
02277  M00S02023.sdsplay +++| ASCJ     EQU    *+5
02278  M00S02024.sdsplay +++|  DATA   58C  THE CURRENT JOB COUNT FOR THIS SERVICE CLASS IS XXXXB.

Seq #  *Modification Id* Act 
----------------------------+
02279  M01S02025.271l750 ---|  DATA   58C

Seq #  *Modification Id* Act 
----------------------------+
02280  M02S02026.271l750 ---|  DATA   58C
02281  M02S02027.271l750 ---|  DATA   58C
02282  M02S02028.271l750 ---|  DATA   58C
02283  M02S02029.271l750 ---|  DATA   58C
02284  M02S02030.271l750 ---|          ERRNZ  *-ASCB-LDMO  MESSAGE LINE LOCATION INCORRECT
02285  M02S02031.271l750 ---|  DATA   58C
02286  M02S02032.271l750 ---|          ERRNZ  *-ASCB-LDMO-LDML  INPUT LINE LOCATION INCORRECT
02287  M02S02033.271l750 ---|  DATA   58C
02288  M02S02034.271l750 ---| ASCBL    EQU    *-ASCB      LENGTH OF TEMPLATE
02289  M02S02035.271l750 ---|          ERRNZ  ASCBL-DSPL  TEMPLATES MUST BE SAME LENGTH

Seq #  *Modification Id* Act 
----------------------------+
02290  M02S00108.271l750 ---|  DATA   58C

Seq #  *Modification Id* Act 
----------------------------+
02291  M01S00109.271l716 +++|          ERRNZ  *-SCA2-LDMO  MESSAGE LINE LOCATION INCORRECT
02292  M01S00110.271l716 +++|  DATA   58C
02293  M01S00111.271l716 +++|          ERRNZ  *-SCA2-LDMO-LDML  INPUT LINE LOCATION INCORRECT
02294  M01S00112.271l716 +++|  DATA   58C
02295  M01S00113.271l716 +++| SCA2L    EQU    *-SCA2      LENGTH OF TEMPLATE
02296  M01S00114.271l716 +++|          ERRNZ  SCA2L-DSPL  TEMPLATES MUST BE SAME LENGTH
02297  M00S02036.sdsplay +++|          TITLE  ATTRIBUTES FOR SERVICE CLASS - PAGE 3.

Seq #  *Modification Id* Act 
----------------------------+
02298  M01S02037.271l716 ---| ASCC     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
02299  M01S00115.271l716 +++| SCA3     BSS    0
02300  M00S02038.sdsplay +++|  DATA   58CATTRIBUTES FOR SERVICE CLASS                   PAGE 3 OF 3
02301  M00S02039.sdsplay +++|  DATA   58C
02302  M00S02040.sdsplay +++|  DATA   58C  INDEX        VALUE                DESCRIPTION
02303  M00S02041.sdsplay +++|  DATA   58C
02304  M00S02042.sdsplay +++| ASDS     EQU    *
02305  M00S02043.sdsplay +++|  DATA   58CDS = X      (XXXXXXXXX)      MAXIMUM DIRECT ACCESS FILE
02306  M00S02044.sdsplay +++|  DATA   58C                             SIZE (0-7).
02307  M00S02045.sdsplay +++| ASFC     EQU    *
02308  M00S02046.sdsplay +++|  DATA   58CFC = X      (XXXXXXXXX)      MAXIMUM NUMBER PERMANENT
02309  M00S02047.sdsplay +++|  DATA   58C                             FILES (0-7).
02310  M00S02048.sdsplay +++| ASCS     EQU    *
02311  M00S02049.sdsplay +++|  DATA   58CCS = X      (XXXXXXXXX)      MAXIMUM PRUS, ALL INDIRECT
02312  M00S02050.sdsplay +++|  DATA   58C                             FILES (0-7).
02313  M00S02051.sdsplay +++| ASFS     EQU    *
02314  M00S02052.sdsplay +++|  DATA   58CFS = X      (XXXXXXXXX)      MAXIMUM PRUS, ONE INDIRECT
02315  M00S02053.sdsplay +++|  DATA   58C                             FILE (0-7).
02316  M00S02054.sdsplay +++|  DATA   58C
02317  M00S02055.sdsplay +++|  DATA   58C   OPTION                       DESCRIPTION
02318  M00S02056.sdsplay +++|  DATA   58C
02319  M00S02057.sdsplay +++| ASDT     EQU    *
02320  M00S02058.sdsplay +++|  DATA   58CDT = XX            SERVICE CLASS ON DETACH (NOT SS OR DS).
02321  M00S02059.sdsplay +++| ASTD     EQU    *
02322  M00S02060.sdsplay +++|  DATA   58CTD = XXXXB         SUSPENSION TIMEOUT DELAY (0-7777B
02323  M00S02061.sdsplay +++|  DATA   58C                   SECONDS*10B).
02324  M00S02062.sdsplay +++|  DATA   58C
02325  M00S02063.sdsplay +++|  DATA   58CNOTE - EXTP, DT AND TD ARE USED ONLY FOR INTERACTIVE JOBS.

Seq #  *Modification Id* Act 
----------------------------+
02326  M01S02064.271l716 ---|          ERRNZ  *-ASCC-LDMO  MESSAGE LINE LOCATION INCORRECT
02327  M01S02065.271l716 ---|  DATA   58C
02328  M01S02066.271l716 ---|          ERRNZ  *-ASCC-LDMO-LDML  INPUT LINE LOCATION INCORRECT
02329  M01S02067.271l716 ---|  DATA   58C
02330  M01S02068.271l716 ---| ASCCL    EQU    *-ASCC      LENGTH OF TEMPLATE
02331  M01S02069.271l716 ---|          ERRNZ  ASCCL-DSPL  TEMPLATES MUST BE SAME LENGTH

Seq #  *Modification Id* Act 
----------------------------+
02332  M01S00116.271l716 +++|          ERRNZ  *-SCA3-LDMO  MESSAGE LINE LOCATION INCORRECT
02333  M01S00117.271l716 +++|  DATA   58C
02334  M01S00118.271l716 +++|          ERRNZ  *-SCA3-LDMO-LDML  INPUT LINE LOCATION INCORRECT
02335  M01S00119.271l716 +++|  DATA   58C
02336  M01S00120.271l716 +++| SCA3L    EQU    *-SCA3      LENGTH OF TEMPLATE
02337  M01S00121.271l716 +++|          ERRNZ  SCA3L-DSPL  TEMPLATES MUST BE SAME LENGTH
02338  M00S02070.sdsplay +++|          TITLE  OTHER BUFFERS.
02339  M00S02071.sdsplay +++|*         *L* DISPLAY INPUT BUFFER.
02340  M00S02072.sdsplay +++|
02341  M00S02073.sdsplay +++| IPW      BSS    0           INPUT BUFFER FOR *L* DISPLAY
02342  M00S02074.sdsplay +++|          VFD    12/LIML,1/0,1/0,46/0
02343  M00S02075.sdsplay +++| IBUF     BSSZ   LIML        INPUT BUFFER

Seq #  *Modification Id* Act 
----------------------------+
02344  M01S00012.sdspl1  +++|
02345  M01S00013.sdspl1  +++|*         *L* DISPLAY ID STRINGS.
02346  M01S00014.sdspl1  +++|
02347  M01S00015.sdspl1  +++| LHLP     DATA   C*SDSPLAY - HELP.*
02348  M01S00016.sdspl1  +++| LCLS     DATA   C*SDSPLAY - CLASS.*
02349  M00S02076.sdsplay +++|
02350  M00S02077.sdsplay +++|*         *L* DISPLAY BUFFER.
02351  M00S02078.sdsplay +++|
02352  M00S02079.sdsplay +++| .DSPL    EQU    DSPL/6      EXTRA DISPLAY LENGTH FOR COORDINATES
02353  M00S02080.sdsplay +++| LBUFL    EQU    DSPL+.DSPL  *L* DISPLAY BUFFER LENGTH
02354  M00S02081.sdsplay +++| LFWA     VFD    12/LBUFL,1/0,1/0,46/0
02355  M00S02082.sdsplay +++| LBUF     EQU    *           *L* DISPLAY BUFFER
02356  M00S02083.sdsplay +++| LBUFE    EQU    LBUF+LBUFL  END OF *L* DISPLAY BUFFER
02357  M00S02084.sdsplay +++|
02358  M00S02085.sdsplay +++|*         SYSTEM SERVICE CLASS INFORMATION BUFFER.
02359  M00S02086.sdsplay +++|
02360  M00S02087.sdsplay +++| SBUF     EQU    LBUFE       FWA *SBUF*
02361  M00S02088.sdsplay +++| SBUFE    EQU    SBUF+SBUFL  LWA *SBUF*

Seq #  *Modification Id* Act 
----------------------------+
02362  M01S00135.271l750 +++|
02363  M01S00136.271l750 +++|*         DIRECTIVE INPUT FILE BUFFER.
02364  M01S00137.271l750 +++|
02365  M01S00138.271l750 +++| DBUF     EQU    SBUFE       FWA INPUT FILE BUFFER
02366  M01S00139.271l750 +++| DBUFE    EQU    DBUF+DBUFL  END OF INPUT FILE BUFFER
02367  M00S02089.sdsplay +++|
02368  M00S02090.sdsplay +++|*         OUTPUT FILE BUFFER.
02369  M00S02091.sdsplay +++|

Seq #  *Modification Id* Act 
----------------------------+
02370  M01S02092.271l750 ---| OBUF     EQU    SBUFE       FWA OUTPUT FILE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
02371  M01S00140.271l750 +++| OBUF     EQU    DBUFE       FWA OUTPUT FILE BUFFER
02372  M00S02093.sdsplay +++| OBUFE    EQU    OBUF+OBUFL  END OF OUTPUT BUFFER
02373  M00S02094.sdsplay +++|          TITLE  PRESET.
02374  M00S02095.sdsplay +++| PRS      SPACE  4,20
02375  M00S02096.sdsplay +++|**        PRS - PRESET ROUTINE.
02376  M00S02097.sdsplay +++|*
02377  M00S02098.sdsplay +++|*         ENTRY  CONTROL STATEMENT ARGUMENT LIST IN RA+2 (*ARGR*)
02378  M00S02099.sdsplay +++|*                IN OPERATING SYSTEM FORMAT.
02379  M00S02100.sdsplay +++|*
02380  M00S02101.sdsplay +++|*         EXIT   (B1) = 1.

Seq #  *Modification Id* Act 
----------------------------+
02381  M01S02102.271l750 ---|*                (LFLG) = LFN FOR FET, IF LINE PRINTER OPTION
02382  M01S02103.271l750 ---|*                         SPECIFIED.
02383  M01S02104.271l750 ---|*                (LFLG) = 0 IF *L* DISPLAY OPTION SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
02384  M01S00141.271l750 +++|*                (DFLG) = NON-ZERO IF DIRECTIVE INPUT FILE SPECIFIED.
02385  M01S00142.271l750 +++|*                (LFLG) = NON-ZERO IF LINE PRINTER OPTION SPECIFIED.
02386  M00S02105.sdsplay +++|*
02387  M00S02106.sdsplay +++|*         ERROR  TO *ERR* IF ARGUMENT ERROR OR INCORRECT USER ACCESS.
02388  M00S02107.sdsplay +++|*                (X1) = ERROR MESSAGE OFFSET.
02389  M00S02108.sdsplay +++|*
02390  M00S02109.sdsplay +++|*         USES   X - ALL.
02391  M00S02110.sdsplay +++|*                A - 1, 2, 3, 6, 7.
02392  M00S02111.sdsplay +++|*                B - 1, 2.
02393  M00S02112.sdsplay +++|*
02394  M00S02113.sdsplay +++|*         CALLS  COD, CVO, GSD, POP, USB.
02395  M00S02114.sdsplay +++|*
02396  M00S02115.sdsplay +++|*         MACROS CLOCK, DATE, GETSPS.
02397  M00S02116.sdsplay +++|
02398  M00S02117.sdsplay +++|
02399  M00S02118.sdsplay +++| PRS      SUBR               ENTRY/EXIT
02400  M00S02119.sdsplay +++|          SB1    1           SYSTEM COMMUNICATION (B1) = 1
02401  M00S02120.sdsplay +++|          DATE   LPHD        SET DATE IN PRINTER HEADER
02402  M00S02121.sdsplay +++|          CLOCK  LPHT        SET TIME IN PRINTER HEADER
02403  M00S02122.sdsplay +++|          GETSPS PRSE        CHECK FOR SYSTEM ORIGIN PRIVILEGES
02404  M00S02123.sdsplay +++|          SA1    PRSE
02405  M00S02124.sdsplay +++|          ZR     X1,PRS1     IF SYSTEM ORIGIN PRIVILEGES
02406  M00S02125.sdsplay +++|          SX1    ERNV        * USER ACCESS NOT VALID.*
02407  M00S02126.sdsplay +++|          EQ     ERR         ABORT WITH ERROR MESSAGE
02408  M00S02127.sdsplay +++|
02409  M00S02128.sdsplay +++|*         PROCESS ARGUMENT LIST.
02410  M00S02129.sdsplay +++|
02411  M00S02130.sdsplay +++| PRS1     SB2    CCDR        UNPACK COMMAND
02412  M00S02131.sdsplay +++|          RJ     USB         UNPACK STRING BUFFER
02413  M00S02132.sdsplay +++|          SX6    1R.         ASSURE TERMINATOR CHARACTER
02414  M00S02133.sdsplay +++|          SA6    B7+1
02415  M00S02134.sdsplay +++|          RJ     POP         SKIP PROGRAM NAME
02416  M00S02135.sdsplay +++|          ZR     B6,PRS13    IF NO ARGUMENTS ON CONTROL CARD
02417  M00S02136.sdsplay +++|
02418  M00S02137.sdsplay +++|*         PROCESS CONTROL CARD ARGUMENTS.
02419  M00S02138.sdsplay +++|
02420  M00S02139.sdsplay +++| PRS2     RJ     POP         GET ARGUMENT
02421  M00S02140.sdsplay +++|          PL     B5,PRS3     IF NO ERROR
02422  M00S02141.sdsplay +++|          SX1    ERAE        * ARGUMENT ERROR - XXXXXXX.*
02423  M00S02142.sdsplay +++|          EQ     ERR         PROCESS ERROR
02424  M00S02143.sdsplay +++|
02425  M00S02144.sdsplay +++| PRS3     NZ     B6,PRS4     IF NO TERMINATOR
02426  M00S02145.sdsplay +++|          SX7    B1+
02427  M00S02146.sdsplay +++|          SA7    PRSD        SET TERMINATOR FLAG
02428  M00S02147.sdsplay +++| PRS4     SX2    X1-1R=
02429  M00S02148.sdsplay +++|          SX1    ERAE        * ARGUMENT ERROR - XXXXXXX.*
02430  M00S02149.sdsplay +++|          SA3    PRSA        INCREMENT ARGUMENT COUNTER
02431  M00S02150.sdsplay +++|          SX7    X3+B1
02432  M00S02151.sdsplay +++|          SA7    A3
02433  M00S02152.sdsplay +++|          SX7    X7-TARGL-1
02434  M00S02153.sdsplay +++|          PL     X7,ERR      IF TOO MANY ARGUMENTS
02435  M00S02154.sdsplay +++|          NZ     X2,PRS8     IF POSITIONAL ARGUMENT
02436  M00S02155.sdsplay +++|
02437  M00S02156.sdsplay +++|*         PROCESS EQUIVALENCED ARGUMENTS.
02438  M00S02157.sdsplay +++|
02439  M00S02158.sdsplay +++|          SA2    PRSD
02440  M00S02159.sdsplay +++|          NZ     X2,ERR      IF TERMINATOR, NO VALUE FOR ARGUMENT
02441  M00S02160.sdsplay +++|          SA2    TARG        FWA OF ARGUMENT TABLE
02442  M00S02161.sdsplay +++| PRS5     ZR     X2,ERR      IF END OF TABLE, INCORRECT ARGUMENT
02443  M00S02162.sdsplay +++|          MX0    12
02444  M00S02163.sdsplay +++|          BX3    X6-X2
02445  M00S02164.sdsplay +++|          BX3    X0*X3
02446  M00S02165.sdsplay +++|          ZR     X3,PRS6     IF A MATCH
02447  M00S02166.sdsplay +++|          SA2    A2+B1
02448  M00S02167.sdsplay +++|          EQ     PRS5        CHECK NEXT ARGUMENT IN TABLE
02449  M00S02168.sdsplay +++|
02450  M00S02169.sdsplay +++| PRS6     SX4    X2+         FWA OF TABLE OF LIST OPTIONS
02451  M00S02170.sdsplay +++|          AX2    18
02452  M00S02171.sdsplay +++|          SX5    X2          FWA OF ARGUMENT AREA
02453  M00S02172.sdsplay +++|          RJ     POP         GET ARGUMENT VALUE
02454  M00S02173.sdsplay +++|          SX1    ERAE        * ARGUMENT ERROR - XXXXXXX.*
02455  M00S02174.sdsplay +++|          NG     B5,ERR      IF ERROR
02456  M00S02175.sdsplay +++|          ZR     X4,PRS7     IF NO OPTION TABLE
02457  M00S02176.sdsplay +++|          RJ     CVO         CHECK FOR VALID OPTION
02458  M00S02177.sdsplay +++|          NZ     X3,ERR      IF VALID OPTION NOT FOUND
02459  M00S02178.sdsplay +++| PRS7     MX0    -18
02460  M00S02179.sdsplay +++|          BX2    -X0*X6
02461  M00S02180.sdsplay +++|          NZ     X2,ERR      IF ARGUMENT VALUE TOO LONG
02462  M00S02181.sdsplay +++|          SA6    X5+         SAVE VALID OPTION
02463  M00S02182.sdsplay +++|          ZR     B6,PRS10    IF END OF ARGUMENTS
02464  M00S02183.sdsplay +++|          EQ     PRS2        CHECK NEXT ARGUMENT
02465  M00S02184.sdsplay +++|
02466  M00S02185.sdsplay +++|*         PROCESS POSITIONAL ARGUMENTS.
02467  M00S02186.sdsplay +++|
02468  M00S02187.sdsplay +++| PRS8     SX1    ERAE        * ARGUMENT ERROR - XXXXXXX.*
02469  M00S02188.sdsplay +++|          MX0    -18
02470  M00S02189.sdsplay +++|          BX2    -X0*X6
02471  M00S02190.sdsplay +++|          NZ     X2,ERR      IF ARGUMENT TOO LONG
02472  M00S02191.sdsplay +++|          SA2    PRSA        GET ARGUMENT COUNTER
02473  M00S02192.sdsplay +++|          SA3    TARG+X2-1
02474  M00S02193.sdsplay +++|          SX4    X3+         FWA TABLE OF LIST OPTIONS
02475  M00S02194.sdsplay +++|          AX3    18
02476  M00S02195.sdsplay +++|          SX5    X3          SAVE FWA OF ARGUMENT AREA
02477  M00S02196.sdsplay +++|          ZR     X4,PRS9     IF NO LIST OPTION TABLE
02478  M00S02197.sdsplay +++|          RJ     CVO         CHECK FOR VALID OPTION
02479  M00S02198.sdsplay +++|          NZ     X3,ERR      IF INVALID OPTION
02480  M00S02199.sdsplay +++| PRS9     SA6    X5+         SAVE ARGUMENT
02481  M00S02200.sdsplay +++|          SA1    PRSD
02482  M00S02201.sdsplay +++|          ZR     X1,PRS2     IF NOT END OF ARGUMENTS
02483  M00S02202.sdsplay +++|
02484  M00S02203.sdsplay +++|*         CHECK FOR ARGUMENT CONFLICTS.
02485  M00S02204.sdsplay +++|
02486  M00S02205.sdsplay +++| PRS10    SA2    PRSC        CHECK LIST OPTION
02487  M00S02206.sdsplay +++|          SX3    1RL
02488  M00S02207.sdsplay +++|          LX3    54
02489  M00S02208.sdsplay +++|          BX3    X3-X2
02490  M00S02209.sdsplay +++|          NZ     X3,PRS12    IF NOT LINE PRINTER OPTION
02491  M00S02210.sdsplay +++|          SA2    PRSB        GET LOCAL FILE NAME
02492  M00S02211.sdsplay +++|          SA1    OUTPUT
02493  M00S02212.sdsplay +++|          BX6    X1
02494  M00S02213.sdsplay +++|          ZR     X2,PRS11    IF FILE NAME NOT SPECIFIED
02495  M00S02214.sdsplay +++|          MX0    -18
02496  M00S02215.sdsplay +++|          BX1    -X0*X1
02497  M00S02216.sdsplay +++|          BX6    X1+X2
02498  M00S02217.sdsplay +++|          SA6    OUTPUT      SET FILE NAME IN FET
02499  M00S02218.sdsplay +++| PRS11    SA6    LFLG        SET LINE PRINTER FLAG

Seq #  *Modification Id* Act 
----------------------------+
02500  M01S02219.271l750 ---|          EQ     PRS13       FINISH PRESET

Seq #  *Modification Id* Act 
----------------------------+
02501  M01S00143.271l750 +++|          EQ     PRS12.1     CHECK INPUT FILE OPTION
02502  M00S02220.sdsplay +++|
02503  M00S02221.sdsplay +++| PRS12    SA2    PRSB        CHECK IF FILE NAME SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
02504  M01S02222.271l750 ---|          ZR     X2,PRS13    IF NO FILE NAME SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
02505  M01S00144.271l750 +++|          ZR     X2,PRS12.1  IF NOT FILE NAME SPECIFIED
02506  M00S02223.sdsplay +++|          BX6    X2
02507  M00S02224.sdsplay +++|          SX1    ERAE        * ARGUMENT ERROR - XXXXXXX.*
02508  M00S02225.sdsplay +++|          EQ     ERR         PROCESS ERROR
02509  M00S02226.sdsplay +++|

Seq #  *Modification Id* Act 
----------------------------+
02510  M01S00145.271l750 +++| PRS12.1  SA1    PRSF        GET LOCAL FILE NAME FOR DIRECTIVES
02511  M01S00146.271l750 +++|          SA2    INPUT
02512  M01S00147.271l750 +++|          MX0    42
02513  M01S00148.271l750 +++|          BX6    X0*X1
02514  M01S00149.271l750 +++|          BX7    -X0*X2
02515  M01S00150.271l750 +++|          BX7    X6+X7
02516  M01S00151.271l750 +++|          SA6    DFLG        SET INPUT FILE FLAG
02517  M01S00152.271l750 +++|          SA7    A2+         SET INPUT FILE
02518  M01S00153.271l750 +++|
02519  M00S02227.sdsplay +++|*         SET *MAXIMUM CM FL FOR ONE JOB* IN TEMPLATE DESCRIPTION.
02520  M00S02228.sdsplay +++|
02521  M00S02229.sdsplay +++| PRS13    SX1    MXFL        MAXIMUM CM FL FOR ONE JOB
02522  M00S02230.sdsplay +++|          RJ     COD         CONVERT TO DISPLAY CODE
02523  M00S02231.sdsplay +++|          LX6    -12
02524  M00S02232.sdsplay +++|          MX0    12
02525  M00S02233.sdsplay +++|          SA1    ASFM        GET TEMPLATE WORDS
02526  M00S02234.sdsplay +++|          SA2    A1+B1
02527  M00S02235.sdsplay +++|          BX7    X0*X6       SET SET LAST PART OF VALUE
02528  M00S02236.sdsplay +++|          BX2    -X0*X2      SET FIRST PART OF VALUE
02529  M00S02237.sdsplay +++|          LX0    12
02530  M00S02238.sdsplay +++|          BX6    X0*X6
02531  M00S02239.sdsplay +++|          BX1    -X0*X1
02532  M00S02240.sdsplay +++|          BX6    X6+X1
02533  M00S02241.sdsplay +++|          BX7    X7+X2
02534  M00S02242.sdsplay +++|          SA6    A1          SET VALUE IN TEMPLATE
02535  M00S02243.sdsplay +++|          SA7    A2
02536  M00S02244.sdsplay +++|          RJ     GSD         GET SYSTEM DATA
02537  M00S02245.sdsplay +++|          EQ     PRSX        RETURN
02538  M00S02246.sdsplay +++|
02539  M00S02247.sdsplay +++|
02540  M00S02248.sdsplay +++| PRSA     CON    0           ARGUMENT COUNTER
02541  M00S02249.sdsplay +++| PRSB     CON    0           OUTPUT FILE ARGUMENT VALUE
02542  M00S02250.sdsplay +++| PRSC     CON    0LD         LIST OPTION ARGUMENT VALUE
02543  M00S02251.sdsplay +++| PRSD     CON    0           TERMINATOR ENCOUNTERED FLAG
02544  M00S02252.sdsplay +++| PRSE     CON    0           SYSTEM ORIGIN FLAG

Seq #  *Modification Id* Act 
----------------------------+
02545  M01S00154.271l750 +++| PRSF     CON    0           INPUT FILE ARGUMENT VALUE
02546  M00S02253.sdsplay +++|          SPACE  4,10
02547  M00S02254.sdsplay +++|**        ARGUMENT EQUIVALENCE TABLE.
02548  M00S02255.sdsplay +++|*
02549  M00S02256.sdsplay +++|*T        12/ OP,12/ ,18/ AV,18/ OT

Figure

02550  M00S02257.sdsplay +++|*
02551  M00S02258.sdsplay +++|*         OP = DISPLAY CODE ARGUMENT OPTION VALUE.
02552  M00S02259.sdsplay +++|*         AV = ADDRESS OF ARGUMENT VALUE.
02553  M00S02260.sdsplay +++|*         OT = FWA OPTION TABLE, IF ARGUMENT HAS DISCRETE OPTIONS.
02554  M00S02261.sdsplay +++|*            = 0, OTHERWISE.
02555  M00S02262.sdsplay +++|
02556  M00S02263.sdsplay +++|
02557  M00S02264.sdsplay +++| TARG     BSS    0
02558  M00S02265.sdsplay +++|          VFD    12/0LL,12/0,18/PRSB,18/0  LOCAL FILE ARGUMENT
02559  M00S02266.sdsplay +++|          VFD    12/0LLO,12/0,18/PRSC,18/TLOP  LIST OPTION ARGUMENT

Seq #  *Modification Id* Act 
----------------------------+
02560  M01S00155.271l750 +++|          VFD    12/0LI,12/0,18/PRSF,18/0  INPUT FILE ARGUMENT
02561  M00S02267.sdsplay +++| TARGL    EQU    *-TARG      NUMBER OF VALID ARGUMENTS
02562  M00S02268.sdsplay +++|          CON    0           END OF TABLE
02563  M00S02269.sdsplay +++|          SPACE  4,10
02564  M00S02270.sdsplay +++|**        TLOP - TABLE OF LIST OPTIONS.
02565  M00S02271.sdsplay +++|*
02566  M00S02272.sdsplay +++|*T        42/ OPTION,18/

Figure

02567  M00S02273.sdsplay +++|*
02568  M00S02274.sdsplay +++|*         OPTION = DISPLAY CODE OPTION VALUE.
02569  M00S02275.sdsplay +++|
02570  M00S02276.sdsplay +++|
02571  M00S02277.sdsplay +++| TLOP     BSS    0
02572  M00S02278.sdsplay +++|          VFD    42/0LD,18/0 SELECT *L* DISPLAY/DUMMY LOCATION
02573  M00S02279.sdsplay +++|          VFD    42/0LL,18/0 SELECT LINE PRINTER
02574  M00S02280.sdsplay +++|          CON    0           END OF TABLE
02575  M00S02281.sdsplay +++| CVO      SPACE  4,10
02576  M00S02282.sdsplay +++|**        CVO - CHECK FOR VALID OPTION.
02577  M00S02283.sdsplay +++|*
02578  M00S02284.sdsplay +++|*         ENTRY  (X4) = FWA OF LIST OPTION TABLE.
02579  M00S02285.sdsplay +++|*                (X6) = LIST OPTION ARGUMENT.
02580  M00S02286.sdsplay +++|*
02581  M00S02287.sdsplay +++|*         EXIT   (X3) = 0, IF VALID LIST OPTION FOUND.
02582  M00S02288.sdsplay +++|*                     = NOT 0, IF VALID LIST OPTION NOT FOUND.
02583  M00S02289.sdsplay +++|*
02584  M00S02290.sdsplay +++|*         USES   X - 2, 3.
02585  M00S02291.sdsplay +++|*                A - 2.
02586  M00S02292.sdsplay +++|
02587  M00S02293.sdsplay +++|
02588  M00S02294.sdsplay +++| CVO      SUBR               ENTRY/EXIT
02589  M00S02295.sdsplay +++|          SA2    X4+         FWA OF LIST OPTION TABLE.
02590  M00S02296.sdsplay +++| CVO1     ZR     X2,CVOX     IF END OF TABLE, OPTION NOT FOUND
02591  M00S02297.sdsplay +++|          BX3    X6-X2
02592  M00S02298.sdsplay +++|          ZR     X3,CVOX     IF LIST OPTION FOUND
02593  M00S02299.sdsplay +++|          SA2    A2+1
02594  M00S02300.sdsplay +++|          EQ     CVO1        PROCESS NEXT ENTRY IN TABLE
02595  M00S02301.sdsplay +++| ERR      SPACE  4,10
02596  M00S02302.sdsplay +++|**        ERR - ABORT PROGRAM WITH ERROR MESSAGE.
02597  M00S02303.sdsplay +++|*
02598  M00S02304.sdsplay +++|*         *ERR* ISSUES AN ERROR MESSAGE TO THE USER AND SYSTEM
02599  M00S02305.sdsplay +++|*         DAYFILE AND THEN ABORTS THE UTILITY.
02600  M00S02306.sdsplay +++|*
02601  M00S02307.sdsplay +++|*         ENTRY  (X1) = FWA OF ERROR MESSAGE.
02602  M00S02308.sdsplay +++|*                (X6) = KEYWORD VALUE FOR ERROR MESSAGE, IF THE
02603  M00S02309.sdsplay +++|*                       MESSAGE IS *ERAE*.
02604  M00S02310.sdsplay +++|*                (X6) = KEYWORD VALUE FOR ERROR MESSAGE.
02605  M00S02311.sdsplay +++|*
02606  M00S02312.sdsplay +++|*         EXIT   MESSAGE ISSUED IN SYSTEM AND USER DAYFILE.
02607  M00S02313.sdsplay +++|*
02608  M00S02314.sdsplay +++|*         USES   X - 1, 2.
02609  M00S02315.sdsplay +++|*                B - 2, 5.
02610  M00S02316.sdsplay +++|*
02611  M00S02317.sdsplay +++|*         CALLS  AFT, SNM.
02612  M00S02318.sdsplay +++|*
02613  M00S02319.sdsplay +++|*         MACROS ABORT, MESSAGE.
02614  M00S02320.sdsplay +++|
02615  M00S02321.sdsplay +++|
02616  M00S02322.sdsplay +++| ERR      BSS    0           ENTRY
02617  M00S02323.sdsplay +++|          SB5    X1+         SET FWA OF MESSAGE
02618  M00S02324.sdsplay +++|          SX2    X1-ERAE
02619  M00S02325.sdsplay +++|          NZ     X2,ERR1     IF NOT * ARGUMENT ERROR...* MESSAGE
02620  M00S02326.sdsplay +++|          BX1    X6
02621  M00S02327.sdsplay +++|          RJ     AFT         APPEND FLOATING TERMINATOR
02622  M00S02328.sdsplay +++|          SB2    1RX         SET SEARCH CHARACTER
02623  M00S02329.sdsplay +++|          BX1    X6          SET PARAMETER IN ERROR
02624  M00S02330.sdsplay +++|          RJ     SNM         SET PARAMETER IN MESSAGE
02625  M00S02331.sdsplay +++| ERR1     MESSAGE  B5,0,R    ISSUE MESSAGE TO USER AND SYSTEM DAYFILE
02626  M00S02332.sdsplay +++|          ABORT              ABORT UTILITY
02627  M00S02333.sdsplay +++|          SPACE  4,10
02628  M00S02334.sdsplay +++| SDSPE    EQU    *           END OF PROGRAM
02629  M00S02335.sdsplay +++| .RFL=    MAX    SDSPE,LBUFE,OBUFE
02630  M00S02336.sdsplay +++| RFL=     EQU    .RFL=
02631  M00S02337.sdsplay +++|          SPACE  4,10
02632  M00S02338.sdsplay +++|          END