User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:subsyst

Deck SUBSYST

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.subsyst +++|          IDENT  SUBSYST,SUB
00002  M01S00002.subsyst +++|          ABS
00003  M01S00003.subsyst +++|          SST
00004  M01S00004.subsyst +++|          ENTRY  SUBSYST
00005  M01S00005.subsyst +++|          ENTRY  RFL=
00006  M01S00006.subsyst +++|          ENTRY  SSJ=
00007  M01S00007.subsyst +++|          SYSCOM B1
00008  M01S00008.subsyst +++|          TITLE SUBSYST - SUBSYSTEM DISPLAY.
00009  M01S00009.subsyst +++|*COMMENT  SUBSYST - SUBSYSTEM DISPLAY.
Line S00010 Modification History
M01 (Added by) subsyst
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00010.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M01S00011.subsyst +++|          SPACE  4,10
00013  M01S00012.subsyst +++|***       SUBSYST - SUBSYSTEM DISPLAY.
00014  M01S00013.subsyst +++|*
00015  M01S00014.subsyst +++|*         B. J. OLIPHANT     81/04/18.
00016  M01S00015.subsyst +++|*         R. C. SCHMITTER    83/09/15.
00017  M01S00016.subsyst +++|*         J. M. MAREK        84/05/16.
00018  M01S00017.subsyst +++|          SPACE  4,10
00019  M01S00018.subsyst +++|***       *SUBSYST* IS A CPU UTILITY USED BY THE OPERATOR TO DISPLAY
00020  M01S00019.subsyst +++|*         THE STATUS OF THE SUBSYSTEMS SUPPORTED BY THE OPERATING
00021  M01S00020.subsyst +++|*         SYSTEM.  THIS INFORMATION CAN BE DISPLAYED ON A PRINTER
00022  M01S00021.subsyst +++|*         LISTING OR THE *L* DISPLAY.  THE STATUS OF A SUBSYSTEM
00023  M01S00022.subsyst +++|*         CAN BE CHANGED BY OPERATOR *L* DISPLAY COMMANDS.
00024  M01S00023.subsyst +++|          SPACE  4,15
00025  M01S00024.subsyst +++|***       COMMAND FORMAT.
00026  M01S00025.subsyst +++|*
00027  M01S00026.subsyst +++|*
00028  M01S00027.subsyst +++|*         SUBSYST(LFN,OP)    ORDER DEPENDENT PARAMETERS.
00029  M01S00028.subsyst +++|*          OR
00030  M01S00029.subsyst +++|*         SUBSYST(L=LFN,LO=OP)  ORDER INDEPENDENT (KEYWORD = PARAMETER)
00031  M01S00030.subsyst +++|*
00032  M01S00031.subsyst +++|*          WHERE
00033  M01S00032.subsyst +++|*
00034  M01S00033.subsyst +++|*         OP = *L*           FORMAT DATA FOR A LINE PRINTER.
00035  M01S00034.subsyst +++|*
00036  M01S00035.subsyst +++|*         OP = *D*           FORMAT DATA FOR THE *L* DISPLAY (DEFAULT).
00037  M01S00036.subsyst +++|*
00038  M01S00037.subsyst +++|*         OP = *DL* OR *LD*  FORMAT DATA FOR THE *L* DISPLAY AND FORMAT
00039  M01S00038.subsyst +++|*                            IT FOR A LINE PRINTER WHEN *L.END* IS
00040  M01S00039.subsyst +++|*                            ENTERED.
00041  M01S00040.subsyst +++|*
00042  M01S00041.subsyst +++|*         LFN                LIST OUTPUT FILE NAME (DEFAULT = OUTPUT).
00043  M01S00042.subsyst +++|*                            THIS PARAMETER VALID ONLY WITH (LO=L).
00044  M01S00043.subsyst +++|*
00045  M01S00044.subsyst +++|*         NOTES  SPECIAL PRIVILEGES REQUIRED.
00046  M01S00045.subsyst +++|*                1. USER MUST BE *SYOT* TO USE *L* DISPLAY (LO=D).
00047  M01S00046.subsyst +++|*                2. USER MUST BE *SYOT* OR HAVE SYSTEM ORIGIN
00048  M01S00047.subsyst +++|*                   PRIVILEGES TO GENERATE A LISTING (LO=L).
00049  M01S00048.subsyst +++|          SPACE  4,15
00050  M01S00049.subsyst +++|***       DAYFILE MESSAGES.
00051  M01S00050.subsyst +++|*
00052  M01S00051.subsyst +++|*         THESE MESSAGES ARE ISSUED TO THE JOB AND SYSTEM DAYFILES.
00053  M01S00052.subsyst +++|*
00054  M01S00053.subsyst +++|*         *ARGUMENT ERROR.*
00055  M01S00054.subsyst +++|*                AN INCORRECT PARAMETER WAS ENTERED. (FATAL ERROR)
00056  M01S00055.subsyst +++|*
00057  M01S00056.subsyst +++|*         *USER ACCESS NOT VALID.*
00058  M01S00057.subsyst +++|*                CALLING JOB WAS NOT SYSTEM ORIGIN. (FATAL ERROR)
00059  M01S00058.subsyst +++|*
00060  M01S00059.subsyst +++|*         *SUBSYST UTILITY COMPLETE.*
00061  M01S00060.subsyst +++|*                INDICATES NORMAL COMPLETION OF PROGRAM.
00062  M01S00061.subsyst +++|          SPACE  4,10
00063  M01S00062.subsyst +++|***       *L* DISPLAY MESSAGES.
00064  M01S00063.subsyst +++|*
00065  M01S00064.subsyst +++|*         *COMMAND PROCESSED.*
00066  M01S00065.subsyst +++|*                INDICATES COMMAND IS VALID AND CHANGE HAS BEEN MADE.
00067  M01S00066.subsyst +++|*
00068  M01S00067.subsyst +++|*         *CONTROL POINT NOT ALLOWED.*
00069  M01S00068.subsyst +++|*                THE SPECIFIED SUBSYSTEM DOES NOT ALLOW THE CONTROL
00070  M01S00069.subsyst +++|*                POINT FOR ITS EXECUTION TO BE CHANGED.
00071  M01S00070.subsyst +++|*
00072  M01S00071.subsyst +++|*         *INCORRECT COMMAND.*
00073  M01S00072.subsyst +++|*                THE ENTERED COMMAND IS NOT ONE OF THE DEFINED
00074  M01S00073.subsyst +++|*                *SUBSYST* COMMANDS - (ENABLE, DISABLE, OUT, END).
00075  M01S00074.subsyst +++|*
00076  M01S00075.subsyst +++|*         *INCORRECT COMMAND FORMAT.*
00077  M01S00076.subsyst +++|*                AN ILLEGAL SEPARATOR OR EXTRA PARAMETERS WERE
00078  M01S00077.subsyst +++|*                ENTERED FOR THE COMMAND.
00079  M01S00078.subsyst +++|*
00080  M01S00079.subsyst +++|*         *INCORRECT CONTROL POINT.*
00081  M01S00080.subsyst +++|*                THE ENTERED CONTROL POINT NUMBER IS NOT VALID.  IT
00082  M01S00081.subsyst +++|*                MUST BE AN OCTAL NUMBER LESS THAN THE NUMBER OF
00083  M01S00082.subsyst +++|*                CONTROL POINTS DEFINED IN THE SYSTEM.
00084  M01S00083.subsyst +++|*
00085  M01S00001.242l642 +++|*         *SECURITY UNLOCK REQUIRED.*
00086  M01S00002.242l642 +++|*                IN A SECURED SYSTEM, SECURITY UNLOCK STATUS IS
00087  M01S00003.242l642 +++|*                REQUIRED TO ENABLE RDF.
00088  M01S00004.242l642 +++|*
00089  M01S00084.subsyst +++|*         *UNKNOWN SUBSYSTEM.*
00090  M01S00085.subsyst +++|*                THE ENTERED SUBSYSTEM NAME IS NOT ONE DEFINED IN
00091  M01S00086.subsyst +++|*                *COMSSSD*.
00092  M01S00087.subsyst +++|*
00093  M01S00088.subsyst +++|*         *UTILITY COMPLETE.*
00094  M01S00089.subsyst +++|*                INFORMATIVE MESSAGE ISSUED AFTER *END*.
00095  M01S00090.subsyst +++|          SPACE  4,25
00096  M01S00091.subsyst +++|***       AVAILABLE *L* DISPLAY COMMANDS.
00097  M01S00092.subsyst +++|*
00098  M01S00093.subsyst +++|*         L.END              TERMINATES THE UTILITY.  IF *OP=L* WAS
00099  M01S00094.subsyst +++|*                            SPECIFIED, A LISTING WILL BE ROUTED TO
00100  M01S00095.subsyst +++|*                            A PRINTER.
00101  M01S00096.subsyst +++|*
00102  M01S00097.subsyst +++|*         L.OUT              ROUTES A LISTING OF THE DISPLAY TO A
00103  M01S00098.subsyst +++|*                            PRINTER.
00104  M01S00099.subsyst +++|*
00105  M01S00100.subsyst +++|*         L.ENABLE,SUB.      SETS STATUS OF SUBSYSTEM *SUB* TO ENABLED.
00106  M01S00101.subsyst +++|*         L.ENABLE,SUB,CP.   ADDITIONALLY SETS THE CONTROL POINT WHERE
00107  M01S00102.subsyst +++|*                            THE SUBSYSTEM MUST EXECUTE.
00108  M01S00103.subsyst +++|*
00109  M01S00104.subsyst +++|*         L.DISABLE,SUB.     SETS STATUS OF SUBSYSTEM *SUB* TO DISABLED
00110  M01S00105.subsyst +++|*         L.DISABLE,SUB,CP.  ADDITONALLY SETS THE CONTROL POINT WHERE
00111  M01S00106.subsyst +++|*                            THE SUBSYSTEM MUST EXECUTE.
00112  M01S00107.subsyst +++|*
00113  M01S00108.subsyst +++|*         L.+                DISPLAY THE NEXT PAGE OF SUBSYSTEMS.  WHEN
00114  M01S00109.subsyst +++|*                            THE CURRENT PAGE IS THE LAST PAGE, THE
00115  M01S00110.subsyst +++|*                            NEXT PAGE IS THE FIRST PAGE.
00116  M01S00111.subsyst +++|*
00117  M01S00112.subsyst +++|*         L.-                DISPLAY THE FIRST PAGE OF SUBSYSTEMS.
00118  M01S00113.subsyst +++|          SPACE  4,15
00119  M01S00114.subsyst +++|***       OUTPUT FORMAT.
00120  M01S00115.subsyst +++|*
00121  M01S00116.subsyst +++|*          SUBSYST - SUBSYSTEM STATUS.   84/05/16. 15.04.37.
00122  M01S00117.subsyst +++|*
00123  M01S00118.subsyst +++|*                         SUBSYSTEMS
00124  M01S00119.subsyst +++|*
00125  M01S00120.subsyst +++|*                     REQUIRED       EJT
00126  M01S00121.subsyst +++|*           NAME   CONTROL POINT   ORDINAL   STATUS
00127  M01S00122.subsyst +++|*
00128  M01S00123.subsyst +++|*           IAF          1            10    ENABLED
00129  M01S00124.subsyst +++|*           RHF                             DISABLED
00130  M01S00125.subsyst +++|*
00131  M01S00126.subsyst +++|*
00132  M01S00127.subsyst +++|*         NOTE - THE FIRST TWO LINES ONLY APPEAR WHEN THE DATA IS
00133  M01S00128.subsyst +++|*         FORMATTED FOR A LISTING.
00134  M01S00129.subsyst +++|          SPACE  4,10
00135  M01S00130.subsyst +++|***       DEFINITION COMMON DECKS.
00136  M01S00131.subsyst +++|*
00137  M01S00132.subsyst +++|*CALL     COMCMAC
00138  M01S00133.subsyst +++|*CALL     COMCCMD
00139  M01S00134.subsyst +++|*CALL     COMCDCM
00140  M01S00135.subsyst +++|*CALL     COMSDSP
00141  M01S00136.subsyst +++|*CALL     COMSEVT
00142  M01S00137.subsyst +++|*CALL     COMSSFM
00143  M01S00138.subsyst +++|*CALL     COMSSSD
00144  M01S00139.subsyst +++|*CALL     COMSSSJ
00145  M01S00140.subsyst +++|          SPACE  4,10
00146  M01S00141.subsyst +++|*         MACROS.
00147  M01S00142.subsyst +++| SUBSYST  SPACE  4,10
00148  M01S00143.subsyst +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
00149  M01S00144.subsyst +++|*
00150  M01S00145.subsyst +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00151  M01S00146.subsyst +++|*
00152  M01S00147.subsyst +++|*         ENTRY  *NAME* = THREE CHARACTER SUBSYSTEM NAME.
00153  M01S00148.subsyst +++|*                *ID* = SUBSYSTEM ID.
00154  M01S00149.subsyst +++|*                *CP* = *YES* IF CONTROL POINT ALLOWED ON *ENABLE*
00155  M01S00150.subsyst +++|*                       AND *DISABLE*.
00156  M01S00151.subsyst +++|*
00157  M01S00152.subsyst +++|*T        42/ NAME (LEFT JUSTIFIED), 18/ FLAG
Figure

0171829 FLAG NAME (LEFT JUSTIFIED)3059 NAME (LEFT JUSTIFIED)

00158  M01S00153.subsyst +++|*
00159  M01S00154.subsyst +++|*         FLAG = 1, IF CONTROL POINT ALLOWED ON *ENABLE/DISABLE*.
00160  M01S00155.subsyst +++|*              = 0, IF CONTROL POINT NOT ALLOWED.
00161  M01S00156.subsyst +++|
00162  M01S00157.subsyst +++|
00163  M01S00158.subsyst +++|          PURGMAC  SUBSYST
00164  M01S00159.subsyst +++|
00165  M01S00160.subsyst +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00166  M01S00161.subsyst +++| .SUB     RMT
00167  M01S00162.subsyst +++| .1       SET    TSSN
00168  M01S00163.subsyst +++|          ORG    .1+MXSI-ID
00169  M01S00164.subsyst +++|          LOC    MXSI-ID
00170  M01S00165.subsyst +++|          VFD    42/3L_NM
00171  M01S00166.subsyst +++| .A       IFC    EQ,$CP$YES$
00172  M01S00167.subsyst +++|          VFD    18/1
00173  M01S00168.subsyst +++| .A       ELSE
00174  M01S00169.subsyst +++|          VFD    18/0
00175  M01S00170.subsyst +++| .A       ENDIF
00176  M01S00171.subsyst +++| .SUB     RMT
00177  M01S00172.subsyst +++| SUBSYST  ENDM
00178  M01S00173.subsyst +++|          TITLE  ASSEMBLY CONSTANTS.
00179  M01S00174.subsyst +++|****      ASSEMBLY CONSTANTS.
00180  M01S00175.subsyst +++|
00181  M01S00176.subsyst +++| CBUFL    EQU    5           COMMAND BUFFER LENGTH
00182  M01S00177.subsyst +++| HLIN     EQU    5           NUMBER OF LINES IN HEADER
00183  M01S00178.subsyst +++| INPC     EQU    0           *L* DISPLAY INPUT COMPLETE STATUS
00184  M01S00179.subsyst +++| LBIL     EQU    LCOM/2      *L* DISPLAY INPUT BUFFER LENGTH
00185  M01S00180.subsyst +++| LBUFL    EQU    LDSY        *L* DISPLAY OUTPUT BUFFER LENGTH
00186  M01S00181.subsyst +++| LLIN     EQU    22D         NUMBER OF LINES ON *L* DISPLAY
00187  M01S00182.subsyst +++| LDAT     EQU    LLIN-HLIN-3 NUMBER OF DATA LINES ON THE *L* DISPLAY
00188  M01S00183.subsyst +++| MBUFL    EQU    3           MESSAGE BUFFER LENGTH
00189  M01S00184.subsyst +++|.NSS      SET    MXSI-LSSI   MAXIMUM NUMBER OF SUBSYSTEMS SUPPORTED
00190  M01S00185.subsyst +++| OBUFL    EQU    101B        OUTPUT BUFFER LENGTH
00191  M01S00186.subsyst +++| XCDT     EQU    9           X - COORDINATE FOR *L* DISPLAY
00192  M01S00187.subsyst +++| YCDT     EQU    2           Y - COORDINATE FOR *L* DISPLAY
00193  M01S00188.subsyst +++|
00194  M01S00189.subsyst +++|****
00195  M01S00190.subsyst +++|          TITLE  TABLES AND BUFFER DEFINITIONS.
00196  M01S00191.subsyst +++|          ORG    111B
00197  M01S00192.subsyst +++| SUB      BSS    0
00198  M01S00193.subsyst +++|          SPACE  4,10
00199  M01S00194.subsyst +++|*         DAYFILE MESSAGES.
00200  M01S00195.subsyst +++|
00201  M01S00196.subsyst +++| DASC     DATA   C* SUBSYST UTILITY COMPLETE.*
00202  M01S00197.subsyst +++| ERAR     DATA   C* ARGUMENT ERROR.*
00203  M01S00198.subsyst +++| ERIU     DATA   C* USER ACCESS NOT VALID.*
00204  M01S00199.subsyst +++|          SPACE  4,10
00205  M01S00200.subsyst +++|*         *L* DISPLAY MESSAGES.
00206  M01S00201.subsyst +++|
00207  M01S00202.subsyst +++| MESA     DATA   28CINCORRECT COMMAND.
00208  M01S00203.subsyst +++| MESB     DATA   28CUNKNOWN SUBSYSTEM.
00209  M01S00204.subsyst +++| MESC     DATA   28CINCORRECT CONTROL POINT.
00210  M01S00205.subsyst +++| MESD     DATA   28CINCORRECT COMMAND FORMAT.
00211  M01S00206.subsyst +++| MESE     DATA   28CCONTROL POINT NOT ALLOWED.
00212  M01S00207.subsyst +++| MESF     DATA   28CCOMMAND PROCESSED.
00213  M01S00208.subsyst +++| MESG     DATA   28CUTILITY COMPLETE.
00214  M01S00209.subsyst +++| MESH     DATA   28C
00215  M01S00005.242l642 +++| MESI     DATA   28CSECURITY UNLOCK REQUIRED.
00216  M01S00210.subsyst +++|          SPACE  4,10
00217  M01S00211.subsyst +++|*         FLAG DEFINITIONS.
00218  M01S00212.subsyst +++|
00219  M01S00213.subsyst +++| LFLG     CON    0           *L* DISPLAY FLAG
00220  M01S00006.242l642 +++| OSSM     CON    0           OPERATING SYSTEM SECURITY MODE
00221  M01S00214.subsyst +++| PFLG     CON    0           PRINTER OUTPUT FLAG
00222  M01S00215.subsyst +++| SYOF     CON    0           SYSTEM ORIGIN FLAG
00223  M01S00216.subsyst +++|          SPACE  4,10
00224  M01S00217.subsyst +++|*         *L* DISPLAY BUFFER FIRST WORD.
00225  M01S00218.subsyst +++|*
00226  M01S00219.subsyst +++|*         T,     12/ N ,1/ S ,1/ F ,46/
00227  M01S00220.subsyst +++|*
00228  M01S00221.subsyst +++|*         N      SIZE OF DISPLAY BUFFER.
00229  M01S00222.subsyst +++|*         S      CHARACTER SIZE.
00230  M01S00223.subsyst +++|*         F      DATA FORMAT BIT.
00231  M01S00224.subsyst +++|
00232  M01S00225.subsyst +++|
00233  M01S00226.subsyst +++| LDIW     VFD    12/LBIL,48/0   INPUT BUFFER FIRST WORD
00234  M01S00227.subsyst +++| LDSW     VFD    12/LBUFL,48/0  OUTPUT BUFFER FIRST WORD
00235  M01S00228.subsyst +++| ROLL     SPACE  4,10
00236  M01S00229.subsyst +++|*         ROLLOUT PARAMETER BLOCK.
00237  M01S00230.subsyst +++|
00238  M01S00231.subsyst +++| ROLL     VFD    30/0,18/LINE,12/10
00239  M01S00232.subsyst +++| ROTB     SPACE  4,10
00240  M01S00233.subsyst +++|*         ROUTE PARAMETER BLOCK.
00241  M01S00234.subsyst +++|
00242  M01S00235.subsyst +++| ROTB     DATA   6LOUTPUT
00243  M01S00236.subsyst +++|          BSSZ   DPBL-1
00244  M01S00237.subsyst +++|          SPACE  4,10
00245  M01S00238.subsyst +++|*         *SFM* PARAMETER BLOCK.
00246  M01S00239.subsyst +++|
00247  M01S00240.subsyst +++|
00248  M01S00241.subsyst +++| SFMB     VFD    12/RSSF,12/0,12/.NSS,6/0,18/WBUFA
00249  M01S00242.subsyst +++|          CON    0           END OF *SFM* PARAMETER BLOCK
00250  M01S00243.subsyst +++|          SPACE  4,5
00251  M01S00244.subsyst +++|*         SSJ= PARAMETER BLOCK.
00252  M01S00245.subsyst +++|
00253  M01S00246.subsyst +++|
00254  M01S00247.subsyst +++| SSJ=     BSS    0           SSJ= ENTRY POINT
00255  M01S00248.subsyst +++|          BSSZ   SSJL        SSJ= PARAMETER BLOCK
00256  M01S00249.subsyst +++| FETS     SPACE  4,10
00257  M01S00250.subsyst +++|*         FET DEFINITIONS.
00258  M01S00251.subsyst +++|
00259  M01S00252.subsyst +++| O        BSS    0           PRINTER OUTPUT FILE BUFFER
00260  M01S00253.subsyst +++| OUTPUT   FILEB  OBUF,OBUFL,(FET=6)
00261  M01S00254.subsyst +++|          SPACE  4,10
00262  M01S00255.subsyst +++| SUB$     EQU    1           ASSEMBLE *SUBSYST* MACRO CALLS
00263  M01S00256.subsyst +++|*CALL     COMSSSD
00264  M01S00257.subsyst +++| SUBSYST  TITLE  MAIN PROGRAM.
00265  M01S00258.subsyst +++|**        SUBSYST - MAIN PROGRAM.
00266  M01S00259.subsyst +++|*
00267  M01S00260.subsyst +++|*         USES   X - 1, 5.
00268  M01S00261.subsyst +++|*                A - 1.
00269  M01S00262.subsyst +++|*                B - 7.
00270  M01S00263.subsyst +++|*
00271  M01S00264.subsyst +++|*         CALLS  FDB, PKB, PRS, RSD.
00272  M01S00265.subsyst +++|*
00273  M01S00266.subsyst +++|*         MACROS DSDINP, ENDRUN, MESSAGE, ROUTE, WRITER.
00274  M01S00267.subsyst +++|
00275  M01S00268.subsyst +++|
00276  M01S00269.subsyst +++| SUBSYST  BSS    0           ENTRY
00277  M01S00270.subsyst +++|          RJ     PRS         PRESET ROUTINE
00278  M01S00271.subsyst +++|          RJ     RSD         READ SUBSYSTEM DATA
00279  M01S00272.subsyst +++|          SA1    LFLG
00280  M01S00273.subsyst +++|          ZR     X1,SUB1     IF ONLY PRINTER OUTPUT SELECTED
00281  M01S00274.subsyst +++|          SX5    B0+
00282  M01S00275.subsyst +++|          SX6    MESH        BLANK MESSAGE
00283  M01S00276.subsyst +++|          RJ     FDB         FORMAT DISPLAY
00284  M01S00277.subsyst +++|          RJ     PKB         PROCESS KEYBOARD
00285  M01S00278.subsyst +++|          DSDINP LBFI,C      DROP *L* DISPLAY
00286  M01S00279.subsyst +++|          EQ     SUB2        COMPLETE
00287  M01S00280.subsyst +++|
00288  M01S00281.subsyst +++| SUB1     SX5    O
00289  M01S00282.subsyst +++|          RJ     FDB         FORMAT LISTING
00290  M01S00283.subsyst +++|          WRITER O,R
00291  M01S00284.subsyst +++|          ROUTE  ROTB,R
00292  M01S00285.subsyst +++| SUB2     MESSAGE  DASC,0,R  * SUBSYST UTILITY COMPLETE.*
00293  M01S00286.subsyst +++|          ENDRUN
00294  M01S00287.subsyst +++|          TITLE  SUBROUTINES.
00295  M01S00288.subsyst +++| ERR      SPACE  4,10
00296  M01S00289.subsyst +++|**        ERR - ERROR PROCESSOR.
00297  M01S00290.subsyst +++|*
00298  M01S00291.subsyst +++|*         ENTRY  (X2) = ADDRESS OF ERROR MESSAGE.
00299  M01S00292.subsyst +++|*
00300  M01S00293.subsyst +++|*         EXIT   MESSAGE ISSUED IN SYSTEM AND USER DAYFILE.
00301  M01S00294.subsyst +++|*
00302  M01S00295.subsyst +++|*         MACROS ABORT, MESSAGE.
00303  M01S00296.subsyst +++|
00304  M01S00297.subsyst +++|
00305  M01S00298.subsyst +++| ERR      BSS    0           ENTRY
00306  M01S00299.subsyst +++|          MESSAGE X2,0,R
00307  M01S00300.subsyst +++|          ABORT
00308  M01S00301.subsyst +++| FDB      SPACE  4,10
00309  M01S00302.subsyst +++|**        FDB - FORMAT DISPLAY BUFFER.
00310  M01S00303.subsyst +++|*
00311  M01S00304.subsyst +++|*         ENTRY  (X5) = 0, IF FORMATTING FOR *L* DISPLAY.
00312  M01S00305.subsyst +++|*                      .EQ. FET ADDRESS OF OUTPUT FILE IF FOR PRINTER.
00313  M01S00306.subsyst +++|*                (X6) = ADDRESS OF DISPLAY MESSAGE.
00314  M01S00307.subsyst +++|*                (HBUF) = FWA OF FORMATTED SUBSYSTEM DATA.
00315  M01S00308.subsyst +++|*
00316  M01S00309.subsyst +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00317  M01S00310.subsyst +++|*                A - 4, 7.
00318  M01S00311.subsyst +++|*                B - 2, 3, 4, 6.
00319  M01S00312.subsyst +++|*
00320  M01S00313.subsyst +++|*         CALLS  FLB, WSB.
00321  M01S00314.subsyst +++|*
00322  M01S00315.subsyst +++|*         MACROS DSDOUT.
00323  M01S00316.subsyst +++|
00324  M01S00317.subsyst +++|
00325  M01S00318.subsyst +++| FDB      SUBR               ENTRY/EXIT
00326  M01S00319.subsyst +++|          RJ     WSB         WRITE SUBSYSTEM INFORMATION BUFFER
00327  M01S00320.subsyst +++|
00328  M01S00321.subsyst +++|*         SET UP PARAMETERS FOR *FLD*.
00329  M01S00322.subsyst +++|
00330  M01S00323.subsyst +++|          SB2    LBUF+1      FWA OF BUFFER TO RECEIVE CONVERTED DATA
00331  M01S00324.subsyst +++|          SB6    LBUF+LBUFL  LWA+1 OF BUFFER TO RECEIVE CONVERTED DATA
00332  M01S00325.subsyst +++|          SX1    HBUF        FWA OF UNCONVERTED DATA FOR PRINTER
00333  M01S00326.subsyst +++|          SX6    A0-1        LWA OF UNCONVERTED DATA
00334  M01S00327.subsyst +++|          NZ     X5,FDB1     IF FORMATTING FOR PRINTER
00335  M01S00328.subsyst +++|          SA4    LDSW        INITIALIZE *L* DISPLAY BUFFER
00336  M01S00329.subsyst +++|          SX1    HBUF1       FWA OF BUFFER FOR *L* DISPLAY
00337  M01S00330.subsyst +++|          BX7    X4
00338  M01S00331.subsyst +++|          SA7    B2-B1
00339  M01S00332.subsyst +++|          SB3    XCDT        SET X-COORDINATE FOR *L* DISPLAY
00340  M01S00333.subsyst +++|          SB4    YCDT        SET Y-COORDINATE FOR *L* DISPLAY
00341  M01S00334.subsyst +++| FDB1     SX3    B1          *C* DISPLAY FORMAT
00342  M01S00335.subsyst +++|          BX2    X5
00343  M01S00336.subsyst +++|          RJ     FLB         FORMAT DATA FOR *L* DISPLAY
00344  M01S00337.subsyst +++|          NZ     X5,FDBX     IF FORMATTING FOR PRINTER
00345  M01S00338.subsyst +++|          DSDOUT LBUF        DISPLAY *L* DISPLAY BUFFER
00346  M01S00339.subsyst +++|          EQ     FDBX        RETURN
00347  M01S00340.subsyst +++| PKB      SPACE  4,10
00348  M01S00341.subsyst +++|**        PKB - PROCESS KEYBOARD.
00349  M01S00342.subsyst +++|*
00350  M01S00343.subsyst +++|*         PROCESSES INPUT FROM OPERATOR UNTIL *L.END* IS ENTERED.
00351  M01S00344.subsyst +++|*
00352  M01S00345.subsyst +++|*         USES   X - ALL.
00353  M01S00346.subsyst +++|*                A - 1, 2, 3, 6, 7.
00354  M01S00347.subsyst +++|*                B - 2, 3, 7.
00355  M01S00348.subsyst +++|*
00356  M01S00349.subsyst +++|*         CALLS  DXB, FDB, POP, RSD, USB.
00357  M01S00350.subsyst +++|*
00358  M01S00351.subsyst +++|*         MACROS DSDINP, ROLLOUT, ROUTE, SYSTEM, WRITER.
00359  M01S00352.subsyst +++|
00360  M01S00353.subsyst +++|
00361  M01S00354.subsyst +++| PKB      SUBR               ENTRY/EXIT
00362  M01S00355.subsyst +++|          SA1    LDIW        INITIALIZE THE INPUT BUFFER CONTROL WORD
00363  M01S00356.subsyst +++|          MX6    0           ENSURE AN END OF LINE IN COMMAND BUFFER
00364  M01S00357.subsyst +++|          SA6    LBFI+LBIL+1
00365  M01S00358.subsyst +++|          BX6    X1
00366  M01S00359.subsyst +++|          SA6    LBFI
00367  M01S00360.subsyst +++|          SB7    B0          CLEAR REFRESH REQUIRED
00368  M01S00361.subsyst +++| PKB1     DSDINP LBFI        REQUEST *L* DISPLAY INPUT
00369  M01S00362.subsyst +++|          SA2    LBFI        CHECK FOR INPUT
00370  M01S00363.subsyst +++|          MX0    -12
00371  M01S00364.subsyst +++|          BX6    -X0*X2
00372  M01S00365.subsyst +++|          AX6    1           IGNORE COMPLETION BIT
00373  M01S00366.subsyst +++|          ZR     X6,PKB3     IF INPUT
00374  M01S00367.subsyst +++|          ERRNZ  INPC        CODE DEPENDS ON VALUE
00375  M01S00368.subsyst +++|          ZR     B7,PKB2     IF REFRESH IS NOT REQUIRED
00376  M01S00369.subsyst +++|          RJ     RSD         READ SUBSYSTEM DATA
00377  M01S00370.subsyst +++|          SA1    WSBE        GET LAST ERROR MESSAGE
00378  M01S00371.subsyst +++|          SX6    X1+
00379  M01S00372.subsyst +++|          RJ     FDB         FORMAT DISPLAY BUFFER
00380  M01S00373.subsyst +++| PKB2     ROLLOUT  ROLL      WAIT FOR INPUT
00381  M01S00374.subsyst +++|          SB7    B1          SET REFRESH REQUIRED
00382  M01S00375.subsyst +++|          EQ     PKB1        INPUT COMMAND
00383  M01S00376.subsyst +++|
00384  M01S00377.subsyst +++| PKB3     SX6    B0+         CLEAR STRING BUFFER
00385  M01S00378.subsyst +++|          SB2    80
00386  M01S00379.subsyst +++| PKB4     SA6    USBB+B2
00387  M01S00380.subsyst +++|          SB2    B2-1
00388  M01S00381.subsyst +++|          PL     B2,PKB4     IF MORE TO CLEAR
00389  M01S00382.subsyst +++|
00390  M01S00383.subsyst +++|*         DETERMINE COMMAND.
00391  M01S00384.subsyst +++|
00392  M01S00385.subsyst +++|          SB2    LBFI+1      UNPACK COMMAND
00393  M01S00386.subsyst +++|          RJ     USB
00394  M01S00387.subsyst +++|          RJ     POP         GET FIRST PARAMETER
00395  M01S00388.subsyst +++|          ZR     X6,PKB19    IF NO COMMAND VERB
00396  M01S00389.subsyst +++|          SB2    B0          INITIALIZE TABLE INDEX
00397  M01S00390.subsyst +++|          MX0    42
00398  M01S00391.subsyst +++| PKB5     SA3    TLDC+B2
00399  M01S00392.subsyst +++|          ZR     X3,PKB24    IF END OF TABLE
00400  M01S00393.subsyst +++|          BX2    X3-X6
00401  M01S00394.subsyst +++|          BX2    X0*X2
00402  M01S00395.subsyst +++|          SB2    B2+1        ADVANCE INDEX
00403  M01S00396.subsyst +++|          NZ     X2,PKB5     IF NO MATCH
00404  M01S00397.subsyst +++|          SB3    X3+
00405  M01S00398.subsyst +++|          JP     B3          PROCESS COMMAND
00406  M01S00399.subsyst +++|
00407  M01S00400.subsyst +++|*         PROCESS *ENABLE*.
00408  M01S00401.subsyst +++|
00409  M01S00402.subsyst +++| PKB6     SX7    B0+         SET ENABLE STATUS
00410  M01S00403.subsyst +++|          EQ     PKB8        CONTINUE
00411  M01S00404.subsyst +++|
00412  M01S00405.subsyst +++|*         PROCESS *DISABLE*.
00413  M01S00406.subsyst +++|
00414  M01S00407.subsyst +++| PKB7     SX7    1           SET DISABLE STATUS
00415  M01S00408.subsyst +++| PKB8     SA7    PKBB
00416  M01S00409.subsyst +++|          SX2    X1-1R,
00417  M01S00410.subsyst +++|          NZ     X2,PKB21    IF SEPARATOR NOT *,*
00418  M01S00411.subsyst +++|
00419  M01S00412.subsyst +++|*         DETERMINE SUBSYSTEM.
00420  M01S00413.subsyst +++|
00421  M01S00414.subsyst +++|          RJ     POP         GET SUBSYSTEM NAME
00422  M01S00415.subsyst +++|          SB2    MXSI-LSSI-1 INITIALIZE TABLE INDEX
00423  M01S00416.subsyst +++|          MX0    18
00424  M01S00417.subsyst +++| PKB9     NG     B2,PKB22    IF END OF TABLE
00425  M01S00418.subsyst +++|          SA3    TSSN+B2
00426  M01S00419.subsyst +++|          BX4    X0*X3
00427  M01S00420.subsyst +++|          BX2    X4-X6
00428  M01S00421.subsyst +++|          SB2    B2-B1
00429  M01S00422.subsyst +++|          NZ     X2,PKB9     IF NO MATCH
00430  M01S00423.subsyst +++|          SX7    MXSI-1      SAVE SUBSYSTEM ID
00431  M01S00424.subsyst +++|          SX2    B2
00432  M01S00425.subsyst +++|          IX7    X7-X2
00433  M01S00426.subsyst +++|          SA7    PKBA
00434  M01S00427.subsyst +++|          SX6    B0+
00435  M01S00428.subsyst +++|          SX4    X1-1R,
00436  M01S00429.subsyst +++|          ZR     X4,PKB10    IF SEPARATOR IS A *,*
00437  M01S00430.subsyst +++|          SX4    X1-1R.
00438  M01S00431.subsyst +++|          ZR     X4,PKB13    IF END OF COMMAND
00439  M01S00432.subsyst +++|          ZR     X1,PKB13    IF END OF COMMAND
00440  M01S00433.subsyst +++|          EQ     PKB21       PROCESS ERROR
00441  M01S00434.subsyst +++|
00442  M01S00435.subsyst +++|*         PROCESS CONTROL POINT.
00443  M01S00436.subsyst +++|
00444  M01S00437.subsyst +++| PKB10    BX2    -X0*X3
00445  M01S00438.subsyst +++|          ZR     X2,PKB25    IF CONTROL POINT NOT ALLOWED
00446  M01S00439.subsyst +++|          RJ     POP         GET CONTROL POINT NUMBER
00447  M01S00440.subsyst +++|          SX4    X1-1R.
00448  M01S00441.subsyst +++|          MX0    6
00449  M01S00442.subsyst +++|          ZR     X4,PKB11    IF END OF COMMAND
00450  M01S00443.subsyst +++|          NZ     X1,PKB21    IF ERROR
00451  M01S00444.subsyst +++| PKB11    SX3    1RB         APPEND *B* TO CONTROL POINT
00452  M01S00445.subsyst +++|          LX3    -12
00453  M01S00446.subsyst +++|          LX0    -12
00454  M01S00447.subsyst +++|          BX7    X0*X6
00455  M01S00448.subsyst +++|          NZ     X7,PKB23    IF THREE DIGIT CONTROL POINT
00456  M01S00449.subsyst +++|          LX0    6
00457  M01S00450.subsyst +++|          BX7    X0*X6
00458  M01S00451.subsyst +++|          ZR     X7,PKB12    IF ONE DIGIT CONTROL POINT
00459  M01S00452.subsyst +++|          LX3    -6
00460  M01S00453.subsyst +++| PKB12    BX5    X6+X3
00461  M01S00454.subsyst +++|          SB7    B0          SET OCTAL CONVERSION
00462  M01S00455.subsyst +++|          RJ     DXB         CONVERT TO OCTAL
00463  M01S00456.subsyst +++|          NZ     X4,PKB23    IF ERROR
00464  M01S00457.subsyst +++|          SA2    NCPT        CHECK FOR VALID CONTROL POINT NUMBER
00465  M01S00458.subsyst +++|          IX3    X6-X2
00466  M01S00459.subsyst +++|          PL     X3,PKB23    IF CONTROL POINT TOO LARGE
00467  M01S00460.subsyst +++|          SX6    X6+40B
00468  M01S00461.subsyst +++|          LX6    12          POSITION CONTROL POINT NUMBER
00469  M01S00462.subsyst +++|
00470  M01S00463.subsyst +++|*         CALL *SFM* TO CHANGE SUBSYSTEM STATUS.
00471  M01S00464.subsyst +++|
00472  M01S00465.subsyst +++| PKB13    SA1    PKBA        ADD SUBSYSTEM ID
00473  M01S00466.subsyst +++|          BX6    X1+X6
00474  M01S00467.subsyst +++|          SA1    PKBB        ADD ENABLE/DISABLE FLAG
00475  M01S00468.subsyst +++|          LX1    18
00476  M01S00469.subsyst +++|          BX6    X1+X6
00477  M01S00470.subsyst +++|          SA6    PKBC        SAVE *SFM* PARAMETER WORD
Line S00471 Modification History
M01 (Added by) subsyst
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00471.242l642 ---|          SYSTEM SFM,R,PKBC,SUSF*100B
00479  M01S00007.242l642 +++|          SX1    RDSI
00480  M01S00008.242l642 +++|          BX1    X1-X6
00481  M01S00009.242l642 +++|          NZ     X1,PKB13.1  IF NOT *ENABLE,RDF.*
00482  M01S00010.242l642 +++|          SA1    OSSM
00483  M01S00011.242l642 +++|          ZR     X1,PKB13.1  IF SYSTEM NOT SECURED
00484  M01S00012.242l642 +++|          MX6    1
00485  M01S00013.242l642 +++|          SA6    PKBE
00486  M01S00014.242l642 +++|          SYSTEM RSB,R,PKBD  DETERMINE SECURITY UNLOCK STATUS
00487  M01S00015.242l642 +++|          SA1    PKBE
00488  M01S00016.242l642 +++|          LX1    59-57
00489  M01S00017.242l642 +++|          PL     X1,PKB26    IF NOT SECURITY UNLOCK
00490  M01S00018.242l642 +++| PKB13.1  SYSTEM SFM,R,PKBC,SUSF*100B
00491  M01S00472.subsyst +++|          RJ     RSD         READ SUBSYSTEM DATA
00492  M01S00473.subsyst +++|          SX6    MESF        *COMMAND PROCESSED.*
00493  M01S00474.subsyst +++|          EQ     PKB20       WAIT FOR NEXT INPUT
00494  M01S00475.subsyst +++|
00495  M01S00476.subsyst +++|*         PROCESS *OUT*.
00496  M01S00477.subsyst +++|
00497  M01S00478.subsyst +++| PKB14    SX3    X1-1R.
00498  M01S00479.subsyst +++|          ZR     X3,PKB15    IF END OF COMMAND
00499  M01S00480.subsyst +++|          NZ     X1,PKB21    IF ERROR
00500  M01S00481.subsyst +++| PKB15    SX5    O           FORMAT LISTING
00501  M01S00482.subsyst +++|          RJ     FDB
00502  M01S00483.subsyst +++|          WRITER O,R
00503  M01S00484.subsyst +++|          SA1    ROTB        CLEAR COMPLETE BIT
00504  M01S00485.subsyst +++|          MX0    42
00505  M01S00486.subsyst +++|          BX6    X0*X1
00506  M01S00487.subsyst +++|          SA6    A1
00507  M01S00488.subsyst +++|          ROUTE  ROTB,R
00508  M01S00489.subsyst +++|          SX6    MESF        *COMMAND PROCESSED.*
00509  M01S00490.subsyst +++|          EQ     PKB20       WAIT FOR NEXT INPUT
00510  M01S00491.subsyst +++|
00511  M01S00492.subsyst +++|*         PROCESS *END*.
00512  M01S00493.subsyst +++|
00513  M01S00494.subsyst +++| PKB16    SX3    X1-1R.
00514  M01S00495.subsyst +++|          ZR     X3,PKB17    IF END OF COMMAND
00515  M01S00496.subsyst +++|          NZ     X1,PKB21    IF ERROR
00516  M01S00497.subsyst +++| PKB17    SA1    PFLG
00517  M01S00498.subsyst +++|          ZR     X1,PKB18    IF NO PRINTER OUTPUT REQUESTED
00518  M01S00499.subsyst +++|          SX5    O
00519  M01S00500.subsyst +++|          RJ     FDB         FORMAT LISTING
00520  M01S00501.subsyst +++|          WRITER O,R
00521  M01S00502.subsyst +++|          SA1    ROTB        CLEAR COMPLETE BIT
00522  M01S00503.subsyst +++|          MX0    42
00523  M01S00504.subsyst +++|          BX6    X0*X1
00524  M01S00505.subsyst +++|          SA6    A1
00525  M01S00506.subsyst +++|          ROUTE  ROTB,R
00526  M01S00507.subsyst +++| PKB18    SX5    B0+
00527  M01S00508.subsyst +++|          SX6    MESG        *UTILITY COMPLETE.*
00528  M01S00509.subsyst +++|          RJ     FDB
00529  M01S00510.subsyst +++|          EQ     PKBX        RETURN
00530  M01S00511.subsyst +++|
00531  M01S00512.subsyst +++|*         PROCESS PAGING COMMANDS.
00532  M01S00513.subsyst +++|
00533  M01S00514.subsyst +++| PKB19    SB3    X1-1R+
00534  M01S00515.subsyst +++|          NG     B3,PKB24    IF NEITHER *+* NOR *-*
00535  M01S00516.subsyst +++|          GT     B3,B1,PKB24 IF NEITHER *+* NOR *-*
00536  M01S00517.subsyst +++|          SA2    WSBC        ALTER PAGING CONTROL WORD
00537  M01S00518.subsyst +++|          LX1    59          FORM MASK TO USE OR IGNORE *NEXT* ORDINAL
00538  M01S00519.subsyst +++|          AX1    29
00539  M01S00520.subsyst +++|          UX2,B3 X2          SAVE MAXIMUM LINE COUNT
00540  M01S00521.subsyst +++|          BX2    X2*X1
00541  M01S00522.subsyst +++|          AX2    30
00542  M01S00523.subsyst +++|          PX6    X2,B3       RESTORE MAXIMUM LINE COUNT
00543  M01S00524.subsyst +++|          SA6    A2+
00544  M01S00525.subsyst +++|          SX6    MESH        CLEAR MESSAGE LINE
00545  M01S00526.subsyst +++|*         EQ     PKB20       WAIT FOR NEXT INPUT
00546  M01S00527.subsyst +++|
00547  M01S00528.subsyst +++|*         ROLLOUT UNTIL NEXT *L* DISPLAY INPUT.
00548  M01S00529.subsyst +++|
00549  M01S00530.subsyst +++| PKB20    SX5    B0          FORMAT DISPLAY
00550  M01S00531.subsyst +++|          RJ     FDB
00551  M01S00532.subsyst +++|          SB7    B0          CLEAR REFRESH REQUIRED
00552  M01S00533.subsyst +++|          EQ     PKB1        CHECK FOR INPUT
00553  M01S00534.subsyst +++|
00554  M01S00535.subsyst +++| PKB21    SX6    MESD        *INCORRECT COMMAND FORMAT.*
00555  M01S00536.subsyst +++|          EQ     PKB20       DISPLAY ERROR AND WAIT FOR INPUT
00556  M01S00537.subsyst +++|
00557  M01S00538.subsyst +++| PKB22    SX6    MESB        *UNKNOWN SUBSYSTEM.*
00558  M01S00539.subsyst +++|          EQ     PKB20       DISPLAY ERROR AND WAIT FOR INPUT
00559  M01S00540.subsyst +++|
00560  M01S00541.subsyst +++| PKB23    SX6    MESC        *INCORRECT CONTROL POINT.*
00561  M01S00542.subsyst +++|          EQ     PKB20       DISPLAY ERROR AND WAIT FOR INPUT
00562  M01S00543.subsyst +++|
00563  M01S00544.subsyst +++| PKB24    SX6    MESA        *INCORRECT COMMAND.*
00564  M01S00545.subsyst +++|          EQ     PKB20       DISPLAY ERROR AND WAIT FOR INPUT
00565  M01S00546.subsyst +++|
00566  M01S00547.subsyst +++| PKB25    SX6    MESE        *CONTROL POINT NOT ALLOWED.*
00567  M01S00548.subsyst +++|          EQ     PKB20       DISPLAY ERROR AND WAIT FOR INPUT
00568  M01S00019.242l642 +++|
00569  M01S00020.242l642 +++| PKB26    SX6    MESI        *SECURITY UNLOCK REQUIRED.*
00570  M01S00021.242l642 +++|          EQ     PKB20       DISPLAY ERROR AND WAIT FOR INPUT
00571  M01S00549.subsyst +++|
00572  M01S00550.subsyst +++|
00573  M01S00551.subsyst +++| PKBA     CON    0           SUBSYSTEM ID
00574  M01S00552.subsyst +++| PKBB     CON    0           ENABLE/DISABLE FLAG
00575  M01S00553.subsyst +++| PKBC     CON    0           *SFM* PARAMETER WORD
00576  M01S00022.242l642 +++| PKBD     VFD    12/,12/1,18/SSTL,18/PKBE
00577  M01S00023.242l642 +++| PKBE     VFD    1/1,59/0    SECURITY UNLOCK STATUS
00578  M01S00554.subsyst +++| NCPT     VFD    1/1,59/0    NUMBER OF CONTROL POINTS
00579  M01S00555.subsyst +++| TLDC     SPACE  4,10
00580  M01S00556.subsyst +++|**        TABLE OF *L* DISPLAY COMMANDS.
00581  M01S00557.subsyst +++|*
00582  M01S00558.subsyst +++|*T        42/ COMMAND, 18/ ADDRESS
Figure

0171829 ADDRESS COMMAND3059 COMMAND

00583  M01S00559.subsyst +++|
00584  M01S00560.subsyst +++| TLDC     BSS    0
00585  M01S00561.subsyst +++|          VFD    42/6LENABLE,18/PKB6
00586  M01S00562.subsyst +++|          VFD    42/7LDISABLE,18/PKB7
00587  M01S00563.subsyst +++|          VFD    42/3LOUT,18/PKB14
00588  M01S00564.subsyst +++|          VFD    42/3LEND,18/PKB16
00589  M01S00565.subsyst +++|          CON    0           END OF TABLE
00590  M01S00566.subsyst +++| TSSN     SPACE  4,10
00591  M01S00567.subsyst +++|**        TABLE OF SUBSYSTEM NAMES.
00592  M01S00568.subsyst +++|*
00593  M01S00569.subsyst +++|*T        42/ NAME (LEFT JUSTIFIED), 18/ FLAG
Figure

0171829 FLAG NAME (LEFT JUSTIFIED)3059 NAME (LEFT JUSTIFIED)

00594  M01S00570.subsyst +++|*
00595  M01S00571.subsyst +++|*         FLAG = 1, IF CONTROL POINT ALLOWED ON *ENABLE/DISABLE*.
00596  M01S00572.subsyst +++|*              = 0, IF CONTROL POINT NOT ALLOWED.
00597  M01S00573.subsyst +++|
00598  M01S00574.subsyst +++|
00599  M01S00575.subsyst +++| TSSN     BSS    0           TABLE OF SUBSYSTEM NAMES
00600  M01S00576.subsyst +++|          LIST   D
00601  M01S00577.subsyst +++| .SUB     HERE
00602  M01S00578.subsyst +++|          LIST   *
00603  M01S00579.subsyst +++|          ORG    TSSN+MXSI-LSSI
00604  M01S00580.subsyst +++| RSD      SPACE  4,15
00605  M01S00581.subsyst +++|**        RSD - RETURN SUBSYSTEM DATA.
00606  M01S00582.subsyst +++|*
00607  M01S00583.subsyst +++|*         ENTRY  (SFMB) = *SFM* PARAMETER BLOCK SET UP
00608  M01S00584.subsyst +++|*                         FOR *RSSF* SUBFUNCTION.
00609  M01S00585.subsyst +++|*
00610  M01S00586.subsyst +++|*         EXIT   (HTIM) = THE TIME AT WHICH THE DATA WAS READ.
00611  M01S00587.subsyst +++|*                (WBUFA - WBUFA+.NSS-1) = SUBSYSTEM INFORMATION.
00612  M01S00588.subsyst +++|*
00613  M01S00589.subsyst +++|*         MACROS CLOCK, DATE, SYSTEM.
00614  M01S00590.subsyst +++|
00615  M01S00591.subsyst +++|
00616  M01S00592.subsyst +++| RSD      SUBR               ENTRY/EXIT
00617  M01S00593.subsyst +++|          SYSTEM SFM,R,SFMB,RSDF*100B  RETURN SYSTEM DATA
00618  M01S00594.subsyst +++|          DATE   HDAT
00619  M01S00595.subsyst +++|          CLOCK  HTIM        SET TIME IN BUFFER FOR PRINTER OUTPUT
00620  M01S00596.subsyst +++|          EQ     RSDX        RETURN
00621  M01S00597.subsyst +++| WSB      SPACE  4,15
00622  M01S00598.subsyst +++|**        WSB - WRITE SUBSYSTEM INFORMATION BUFFER.
00623  M01S00599.subsyst +++|*
00624  M01S00600.subsyst +++|*         ENTRY  (X5) = PRINTER/*L* DISPLAY FLAG.
00625  M01S00601.subsyst +++|*                       0 = *L* DISPLAY FORMAT.
00626  M01S00602.subsyst +++|*                (X6) = ADDRESS OF DISPLAY MESSAGE.
00627  M01S00603.subsyst +++|*                (SFMB) = 24/, 12/NUMBER OF SUBSYSTEMS, 24/.
00628  M01S00604.subsyst +++|*                (WBUFA - WBUFA+.NSS-1) = SUBSYSTEM DATA FROM *SFM*.
00629  M01S00605.subsyst +++|*
00630  M01S00606.subsyst +++|*         EXIT   (A0) = LWA+1 OF DATA IN *WBUF*.
00631  M01S00607.subsyst +++|*                (WBUF - (A0)-1) = FORMATTED SUBSYSTEM DATA.
00632  M01S00608.subsyst +++|*
00633  M01S00609.subsyst +++|*         USES   X - 0, 1, 2, 4, 6.
00634  M01S00610.subsyst +++|*                A - 0, 1, 2, 4, 6.
00635  M01S00611.subsyst +++|*                B - 5, 6, 7.
00636  M01S00612.subsyst +++|*
00637  M01S00613.subsyst +++|*         CALLS  COD, SFN.
00638  M01S00614.subsyst +++|*
00639  M01S00615.subsyst +++|*         MACROS MOVE.
00640  M01S00616.subsyst +++|
00641  M01S00617.subsyst +++|
00642  M01S00618.subsyst +++| WSB      SUBR               ENTRY/EXIT
00643  M01S00619.subsyst +++|          SA4    WSBC        GET *L* DISPLAY PAGING CONTROL WORD
00644  M01S00620.subsyst +++|          SA1    SFMB        GET NUMBER OF WORDS RETURNED
00645  M01S00621.subsyst +++|          ZR     X5,WSB1     IF *L* DISPLAY FORMAT
00646  M01S00622.subsyst +++|          SA4    A4+1        GET PRINTER PAGING CONTROL WORD
00647  M01S00623.subsyst +++| WSB1     SA6    WSBE        SAVE ERROR MESSAGE ADDRESS
00648  M01S00624.subsyst +++|          SA0    WBUF        FWA TO RETURN REFORMATTED BUFFER
00649  M01S00625.subsyst +++|          MX0    -12
00650  M01S00626.subsyst +++|          LX1    11-35
00651  M01S00627.subsyst +++|          UX4,B7 X4          SET MAXIMUM NUMBER OF LINES - 1 TO FORMAT
00652  M01S00628.subsyst +++|          BX1    -X0*X1
00653  M01S00629.subsyst +++|          SB6    X4+         SUBSYSTEM DATA BUFFER INDEX
00654  M01S00630.subsyst +++|          SB5    X1+         NUMBER OF SUBSYSTEMS
00655  M01S00631.subsyst +++| WSB2     SA2    TSSN+B6     GET SUBSYSTEM NAME
00656  M01S00632.subsyst +++|          MX0    18
00657  M01S00633.subsyst +++|          BX1    X0*X2
00658  M01S00634.subsyst +++|          ZR     X1,WSB6     IF NO SUBSYSTEM NAME
00659  M01S00635.subsyst +++|          NG     B7,WSB7     IF NO ROOM TO DISPLAY SUBSYSTEM DATA
00660  M01S00636.subsyst +++|          RJ     SFN
00661  M01S00637.subsyst +++|          LX6    -12
00662  M01S00638.subsyst +++|          SA6    A0+
00663  M01S00639.subsyst +++|          SA0    A0+B1       INCREMENT RETURN BUFFER
00664  M01S00640.subsyst +++|          SA4    WBUFA+B6    GET REQUIRED CONTROL POINT
00665  M01S00641.subsyst +++|          SA2    WSBA        PRESET CONTROL POINT TO BLANKS
00666  M01S00642.subsyst +++|          MX0    -6
00667  M01S00643.subsyst +++|          LX4    -12
00668  M01S00644.subsyst +++|          BX6    X2
00669  M01S00645.subsyst +++|          BX1    -X0*X4      CONTROL POINT
00670  M01S00646.subsyst +++|          ZR     X1,WSB3     IF NO CONTROL POINT
00671  M01S00647.subsyst +++|          RJ     COD
00672  M01S00648.subsyst +++| WSB3     SA4    WBUFA+B6    GET EJTO
00673  M01S00649.subsyst +++|          SA2    WSBA        PRESET EJTO TO BLANKS
00674  M01S00650.subsyst +++|          LX6    24
00675  M01S00651.subsyst +++|          SA6    A0          STORE REQUIRED CONTROL POINT
00676  M01S00652.subsyst +++|          SA0    A0+B1       INCREMENT RETURN BUFFER
00677  M01S00653.subsyst +++|          MX0    -12
00678  M01S00654.subsyst +++|          BX1    -X0*X4      EJT ORDINAL
00679  M01S00655.subsyst +++|          BX6    X2
00680  M01S00656.subsyst +++|          ZR     X1,WSB4     IF NO EJT ORDINAL
00681  M01S00657.subsyst +++|          RJ     COD
00682  M01S00658.subsyst +++| WSB4     SA4    WBUFA+B6    GET ENABLE/DISABLE STATUS
00683  M01S00659.subsyst +++|          SA6    A0          STORE EJTO
00684  M01S00660.subsyst +++|          SA0    A0+B1
00685  M01S00661.subsyst +++|          SA1    WSBB        PRESET STATUS TO *DISABLED*
00686  M01S00662.subsyst +++|          LX4    59-18
00687  M01S00663.subsyst +++|          SA2    A1+B1
00688  M01S00664.subsyst +++|          NG     X4,WSB5     IF SUBSYSTEM DISABLED
00689  M01S00665.subsyst +++|          SA1    A2+B1       SET STATUS TO *ENABLED*
00690  M01S00666.subsyst +++|          SA2    A1+B1
00691  M01S00667.subsyst +++| WSB5     BX6    X1
00692  M01S00668.subsyst +++|          SA6    A0
00693  M01S00669.subsyst +++|          SA0    A0+B1       INCREMENT RETURN BUFFER
00694  M01S00670.subsyst +++|          BX6    X2
00695  M01S00671.subsyst +++|          SA6    A0
00696  M01S00672.subsyst +++|          SA0    A0+B1       INCREMENT RETURN BUFFER
00697  M01S00673.subsyst +++|          SB7    B7-1        DECREMENT LINE LIMIT
00698  M01S00674.subsyst +++| WSB6     SB6    B6+B1       INCREMENT BUFFER INDEX
00699  M01S00675.subsyst +++|          LT     B6,B5,WSB2  IF MORE SUBSYSTEMS TO PROCESS
00700  M01S00676.subsyst +++|          SB6    B0          FIRST SUBSYSTEM FOR NEXT PAGE
00701  M01S00677.subsyst +++| WSB7     NZ     X5,WSBX     IF FORMATTING FOR PRINTER
00702  M01S00678.subsyst +++|          SB4    B7+1        CLEAR UNUSED LINES AND *MORE* LINE
00703  M01S00679.subsyst +++| WSB8     MOVE   5,WSBD,A0
00704  M01S00680.subsyst +++|          SB4    B4-1        DECREMENT LINE COUNT
00705  M01S00681.subsyst +++|          SA0    A0+5        INCREMENT RETURN BUFFER
00706  M01S00682.subsyst +++|          PL     B4,WSB8     IF ALL DISPLAY LINES ARE NOT FILLED
00707  M01S00683.subsyst +++|          SA2    WSBC        GET *L* DISPLAY PAGING CONTROL WORD
00708  M01S00684.subsyst +++|          SA1    =4AMORE
00709  M01S00685.subsyst +++|          SX6    B6
00710  M01S00686.subsyst +++|          MX0    42
00711  M01S00687.subsyst +++|          LX2    -30
00712  M01S00688.subsyst +++|          BX2    X0*X2
00713  M01S00689.subsyst +++|          BX6    X2+X6       SET *NEXT* ORDINAL
00714  M01S00690.subsyst +++|          LX6    30
00715  M01S00691.subsyst +++|          SA6    A2
00716  M01S00692.subsyst +++|          BX6    X1
00717  M01S00693.subsyst +++|          ZR     B6,WSB9     IF LAST PAGE
00718  M01S00694.subsyst +++|          SA6    A0-5        SET *MORE* IN BUFFER
00719  M01S00695.subsyst +++| WSB9     SA2    WSBE        SET ERROR MESSAGE IN BUFFER
00720  M01S00696.subsyst +++|          MOVE   MBUFL,X2,A0
00721  M01S00697.subsyst +++|          SA1    LBFI+1      SET COMMAND IN BUFFER
00722  M01S00698.subsyst +++|          SA0    A0+MBUFL
00723  M01S00699.subsyst +++| WSB10    MX2    -12
00724  M01S00700.subsyst +++|          BX6    X1
00725  M01S00701.subsyst +++|          BX2    -X2*X1
00726  M01S00702.subsyst +++|          SA1    A1+B1
00727  M01S00703.subsyst +++|          SA6    A0
00728  M01S00704.subsyst +++|          SA0    A0+B1       LWA+1 OF BUFFER FOR *L* DISPLAY
00729  M01S00705.subsyst +++|          NZ     X2,WSB10    IF NOT END OF COMMAND
00730  M01S00706.subsyst +++|          EQ     WSBX        RETURN
00731  M01S00707.subsyst +++|
00732  M01S00708.subsyst +++|
00733  M01S00709.subsyst +++| WSBA     CON    10H
00734  M01S00710.subsyst +++| WSBB     DATA   C*    DISABLED*
00735  M01S00711.subsyst +++|          DATA   C*    ENABLED*
00736  M01S00712.subsyst +++| WSBC     SPACE  4,10
00737  M01S00713.subsyst +++|**        WSBC - PAGING CONTROL WORDS.
00738  M01S00714.subsyst +++|*
00739  M01S00715.subsyst +++|*T        VFD    12/   LC   ,18/  NEXT ORDINAL,30/    CURRENT ORDINAL
Figure

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "    CURRENT ORDINAL", "bits": 30, "type": 3 },
{ "name": "  NEXT ORDINAL", "bits": 18, "type": 2 },
{ "name": "   LC   ", "bits": VFD    12, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00740  M01S00716.subsyst +++|*
00741  M01S00717.subsyst +++|*                LC = LINE COUNT - 1 + 2000B.
00742  M01S00718.subsyst +++|
00743  M01S00719.subsyst +++|
00744  M01S00720.subsyst +++| WSBC     VFD    12/1777B+LDAT,18/0,30/0   *L* DISPLAY PAGING WORD
00745  M01S00721.subsyst +++|          VFD    12/1777B+2000B,18/0,30/0  PRINTER PAGING WORD
00746  M01S00722.subsyst +++|
00747  M01S00723.subsyst +++|
00748  M01S00724.subsyst +++| WSBD     DATA   48C
00749  M01S00725.subsyst +++| WSBE     CON    MESH        TEMPORARY FOR ERROR MESSAGE ADDRESS
00750  M01S00726.subsyst +++|          SPACE  4,5
00751  M01S00727.subsyst +++|*         COMMON DECKS.
00752  M01S00728.subsyst +++|
00753  M01S00729.subsyst +++|*CALL     COMCCIO
00754  M01S00730.subsyst +++|*CALL     COMCCOD
00755  M01S00731.subsyst +++|*CALL     COMCCPM
00756  M01S00732.subsyst +++|*CALL     COMCDXB
00757  M01S00733.subsyst +++|          LIST   X
00758  M01S00734.subsyst +++|*CALL     COMCFLD
00759  M01S00735.subsyst +++|          LIST   *
00760  M01S00736.subsyst +++|*CALL     COMCLFM
00761  M01S00737.subsyst +++|*CALL     COMCMVE
00762  M01S00738.subsyst +++|*CALL     COMCPOP
00763  M01S00739.subsyst +++|*CALL     COMCSFN
00764  M01S00740.subsyst +++|*CALL     COMCSYS
00765  M01S00741.subsyst +++|*CALL     COMCUSB
00766  M01S00742.subsyst +++|*CALL     COMCWOD
00767  M01S00743.subsyst +++|*CALL     COMCWTC
00768  M01S00744.subsyst +++|*CALL     COMCWTO
00769  M01S00745.subsyst +++|*CALL     COMCWTW
00770  M01S00746.subsyst +++|*CALL     COMCZTB
00771  M01S00747.subsyst +++|          TITLE  BUFFER AREA.
00772  M01S00748.subsyst +++|          USE    BUFFERS
00773  M01S00749.subsyst +++|
00774  M01S00750.subsyst +++|*         BUFFER AREA.
00775  M01S00751.subsyst +++|
00776  M01S00752.subsyst +++| HBUF     BSS    0           HEADER FOR *SUBSYST* DISPLAY
00777  M01S00753.subsyst +++|
00778  M01S00754.subsyst +++|          DATA   40H SUBSYST - SUBSYSTEM STATUS.
00779  M01S00755.subsyst +++| HDAT     BSSZ   1
00780  M01S00756.subsyst +++| HTIM     BSSZ   1
00781  M01S00757.subsyst +++|          CON    0
00782  M01S00758.subsyst +++|          DATA   C* *
00783  M01S00759.subsyst +++| HBUF1    DATA   C*                SUBSYSTEMS*
00784  M01S00760.subsyst +++|          DATA   C* *
00785  M01S00761.subsyst +++|          DATA   C*            REQUIRED       EJT*
00786  M01S00762.subsyst +++|          DATA   C*  NAME   CONTROL POINT   ORDINAL   STATUS*
00787  M01S00763.subsyst +++|          DATA   C* *
00788  M01S00764.subsyst +++|
00789  M01S00765.subsyst +++| WBUF     BSS    .NSS*5      WORKING BUFFER
00790  M01S00766.subsyst +++| .1       MAX    *,WBUF+LDAT*5+5+MBUFL+CBUFL
00791  M01S00767.subsyst +++| WBUFA    EQU    .1          *SFM* RETURNS DATA HERE
00792  M01S00768.subsyst +++| LBUF     EQU    WBUFA+.NSS  *L* DISPLAY OUTPUT BUFFER
00793  M01S00769.subsyst +++| LBFI     EQU    LBUF+LBUFL  *L* DISPLAY INPUT BUFFER
00794  M01S00770.subsyst +++| OBUF     EQU    LBFI+LBIL+2 OUTPUT FILE BUFFER
00795  M01S00771.subsyst +++| PRS      TITLE  PRESET.
00796  M01S00772.subsyst +++|**        PRS - PRESET ROUTINE.
00797  M01S00773.subsyst +++|*
00798  M01S00774.subsyst +++|*         ENTRY  COMMAND ARGUMENT LIST AT RA+2 (ARGR)
00799  M01S00775.subsyst +++|*                IN OPERATING SYSTEM FORMAT.
00800  M01S00776.subsyst +++|*
00801  M01S00777.subsyst +++|*         EXIT   (B1) = 1.
00802  M01S00778.subsyst +++|*                (PFLG) = 1, IF PRINT FILE REQUESTED.
00803  M01S00779.subsyst +++|*                (LFLG) = 1, IF *L* DISPLAY REQUESTED.
00804  M01S00780.subsyst +++|*
00805  M01S00781.subsyst +++|*         ERROR  TO *ERR*, IF ARGUMENT ERROR OR USER ACCESS NOT VALID.
00806  M01S00782.subsyst +++|*                (X2) = FWA ERROR MESSAGE.
00807  M01S00783.subsyst +++|
00808  M01S00784.subsyst +++|
00809  M01S00785.subsyst +++| PRS9     SYSTEM RSB,R,PRSC  SET NUMBER OF CONTROL POINTS
00810  M01S00786.subsyst +++|          SA1    NCPT
00811  M01S00787.subsyst +++|          MX0    -12
00812  M01S00788.subsyst +++|          LX1    -36
00813  M01S00789.subsyst +++|          BX6    -X0*X1
00814  M01S00790.subsyst +++|          SX6    X6+B1
00815  M01S00791.subsyst +++|          SA6    A1
00816  M01S00024.242l642 +++|          GETSSM OSSM        GET SYSTEM SECURITY MODE
00817  M01S00792.subsyst +++|
00818  M01S00793.subsyst +++| PRS      SUBR               ENTRY/EXIT
00819  M01S00794.subsyst +++|          SB1    1           B1 = 1.
00820  M01S00795.subsyst +++|          GETSPS SYOF        CHECK FOR SYSTEM ORIGIN PRIVILEGES
00821  M01S00796.subsyst +++|          SA1    SYOF
00822  M01S00797.subsyst +++|          ZR     X1,PRS1     IF SYSTEM ORIGIN PRIVILEGES
00823  M01S00798.subsyst +++|          SX2    ERIU        *USER ACCESS NOT VALID.*
00824  M01S00799.subsyst +++|          EQ     ERR         ABORT
00825  M01S00800.subsyst +++|
00826  M01S00801.subsyst +++|*         PROCESS ARGUMENT LIST.
00827  M01S00802.subsyst +++|
00828  M01S00803.subsyst +++| PRS1     SB2    CCDR        UNPACK COMMAND
00829  M01S00804.subsyst +++|          RJ     USB
00830  M01S00805.subsyst +++|          SA1    A6          ASSURE TERMINATOR CHARACTER
00831  M01S00806.subsyst +++|          SX6    1R.
00832  M01S00807.subsyst +++|          SA6    X1+B1
00833  M01S00808.subsyst +++|          SA2    PRSB        SET SEPARATOR MASK
00834  M01S00809.subsyst +++|          SB2    60          SET MAXIMUM NON-DELIMITER DISPLAY CODE
00835  M01S00810.subsyst +++|          SB7    PRS8        SET EXIT FOR TERMINATOR CHARACTER
00836  M01S00811.subsyst +++|          RJ     FNB         FIND NON-BLANK CHARACTER
00837  M01S00812.subsyst +++|
00838  M01S00813.subsyst +++|*         SKIP PROGRAM NAME.
00839  M01S00814.subsyst +++|
00840  M01S00815.subsyst +++|          SB7    PRS6        SET EXIT FOR TERMINATOR CHARACTER
00841  M01S00816.subsyst +++| PRS4     RJ     FNB         FIND NON-BLANK CHARACTER
00842  M01S00817.subsyst +++|          SB4    B5-B2
00843  M01S00818.subsyst +++|          LX4    X2,B5
00844  M01S00819.subsyst +++|          PL     B4,PRS5     IF SEPARATOR CHARACTER
00845  M01S00820.subsyst +++|          PL     X4,PRS4     IF NOT SEPARATOR CHARACTER
00846  M01S00821.subsyst +++| PRS5     SB3    TARG        FWA ARGUMENT EQUIVALENCE TABLE
00847  M01S00822.subsyst +++|          SB2    TARGL       LENGTH ARGUMENT TABLE
00848  M01S00823.subsyst +++|          SB4    PRSA        ADDRESS TO PLACE DATA
00849  M01S00824.subsyst +++|          RJ     CPA         CONVERT POSITIONAL ARGUMENTS
00850  M01S00825.subsyst +++|          NG     B5,PRS8     IF ARGUMENT ERROR
00851  M01S00826.subsyst +++|          PL     X1,PRS6     IF NO ARGUMENTS PROCESSED
00852  M01S00827.subsyst +++|          SX6    B5          SET LWA OF ARGUMENTS
00853  M01S00828.subsyst +++|          SA6    USBC
00854  M01S00829.subsyst +++|          SB6    PRSA        FWA OF ARGUMENTS
00855  M01S00830.subsyst +++|          RJ     ARM         PROCESS ARGUMENTS
00856  M01S00831.subsyst +++|          NZ     X1,PRS8     IF ERROR
00857  M01S00832.subsyst +++|          SA1    O           SET FILE NAME IN ROUTE BLOCK
00858  M01S00833.subsyst +++|          MX0    42
00859  M01S00834.subsyst +++|          BX6    X0*X1
00860  M01S00835.subsyst +++|          SA6    ROTB
00861  M01S00836.subsyst +++|
00862  M01S00837.subsyst +++|*         DETERMINE LIST OPTIONS.
00863  M01S00838.subsyst +++|
00864  M01S00839.subsyst +++| PRS6     SA1    LO          GET LIST OPTION
00865  M01S00840.subsyst +++|          SA2    TLOP-1
00866  M01S00841.subsyst +++|          MX0    6
00867  M01S00842.subsyst +++|          SB4    A2+         SAVE ADDRESS OF ARGUMENT TABLE
00868  M01S00843.subsyst +++| PRS7     BX3    X0*X1       PROCESS NEXT CHARACTER FROM LIST OPTION
00869  M01S00844.subsyst +++|          ZR     X3,PRS9     IF ALL OPTIONS PROCESSED
00870  M01S00845.subsyst +++| PRS7.1   SA2    A2+B1       SEARCH ARGUMENT TABLE
00871  M01S00846.subsyst +++|          ZR     X2,PRS8     IF LIST OPTION NOT DEFINED IN TABLE
00872  M01S00847.subsyst +++|          BX4    X0*X2
00873  M01S00848.subsyst +++|          BX4    X4-X3
00874  M01S00849.subsyst +++|          NZ     X4,PRS7.1   IF MATCH NOT FOUND
00875  M01S00850.subsyst +++|          SX6    B1          SET FLAG FOR THIS OPTION
00876  M01S00851.subsyst +++|          SA6    X2
00877  M01S00852.subsyst +++|          SX3    A2-TLOP
00878  M01S00853.subsyst +++|          LX1    6
00879  M01S00854.subsyst +++|          SA2    B4          INITIALIZE TABLE ADDRESS
00880  M01S00855.subsyst +++|          NZ     X3,PRS7     IF NOT LO=D
00881  M01S00856.subsyst +++|          MX4    -12
00882  M01S00857.subsyst +++|          SA3    JOPR        CHECK FOR SYSTEM ORIGIN
00883  M01S00858.subsyst +++|          LX3    0-24
00884  M01S00859.subsyst +++|          BX3    -X4*X3
00885  M01S00860.subsyst +++|          SX3    X3-SYOT
00886  M01S00861.subsyst +++|          ZR     X3,PRS7     IF SYSTEM ORIGIN JOB
00887  M01S00862.subsyst +++|          SX2    ERIU        *USER ACCESS NOT VALID.*
00888  M01S00863.subsyst +++|          EQ     ERR         ABORT
00889  M01S00864.subsyst +++|
00890  M01S00865.subsyst +++| PRS8     SX2    ERAR        *ARGUMENT ERROR.*
00891  M01S00866.subsyst +++|          EQ     ERR         ABORT
00892  M01S00867.subsyst +++|
00893  M01S00868.subsyst +++| PRSA     BSS    100
00894  M01S00869.subsyst +++|
00895  M01S00870.subsyst +++| PRSB     CON    40000000000033127777B  SEPARATOR MASK
00896  M01S00871.subsyst +++| PRSC     VFD    12/,12/1,18/NCPL,18/NCPT
00897  M01S00872.subsyst +++|
00898  M01S00873.subsyst +++|
00899  M01S00874.subsyst +++|**        ASSUMED VALUES FOR LIST OPTIONS.
00900  M01S00875.subsyst +++|
00901  M01S00876.subsyst +++|
00902  M01S00877.subsyst +++| LO       CON    0LD         SELECTED LIST OPTION (DEFAULT = *D*)
00903  M01S00878.subsyst +++|          SPACE  4,10
00904  M01S00879.subsyst +++|**        ARGUMENT EQUIVALENCE TABLE.
00905  M01S00880.subsyst +++|*
00906  M01S00881.subsyst +++|*         THIS TABLE IS REQUIRED BY ARGUMENT PROCESSOR *COMCARM*.
00907  M01S00882.subsyst +++|
00908  M01S00883.subsyst +++|
00909  M01S00884.subsyst +++| TARG     BSS    0
00910  M01S00885.subsyst +++| L        ARG    O,O,0,0     OUTPUT FILE NAME
00911  M01S00886.subsyst +++| LO       ARG    LO,LO,0,0   LIST OPTIONS
00912  M01S00887.subsyst +++|          ARG                END OF ARGUMENT TABLE
00913  M01S00888.subsyst +++| TARGL    EQU    *-TARG-1    LENGTH OF ARGUMENT TABLE
00914  M01S00889.subsyst +++| TLOP     SPACE  4,15
00915  M01S00890.subsyst +++|**        TLOP - TABLE OF LIST OPTIONS.
00916  M01S00891.subsyst +++|*
00917  M01S00892.subsyst +++|*T,       42/ OPTION,18/ ADDR
Figure

0171829 ADDR OPTION3059 OPTION

00918  M01S00893.subsyst +++|*
00919  M01S00894.subsyst +++|*         (ADDR) WILL BE SET NON-ZERO BY PRS IF OPTION IS SELECTED.
00920  M01S00895.subsyst +++|
00921  M01S00896.subsyst +++|
00922  M01S00897.subsyst +++| TLOP     BSS    0
00923  M01S00898.subsyst +++|          VFD    42/0LD,18/LFLG  SELECT *L* DISPLAY
00924  M01S00899.subsyst +++|          VFD    42/0LL,18/PFLG  SELECT LINE PRINTER
00925  M01S00900.subsyst +++|          CON    0           END OF TABLE
00926  M01S00901.subsyst +++| FNB      SPACE  4,15
00927  M01S00902.subsyst +++|**        FNB - FIND NON-BLANK CHARACTER.
00928  M01S00903.subsyst +++|*
00929  M01S00904.subsyst +++|*         ENTRY  (B6) = NEXT CHARACTER ADDRESS.
00930  M01S00905.subsyst +++|*                (B7) = EXIT ADDRESS, IF TERMINATOR ENCOUNTERED.
00931  M01S00906.subsyst +++|*
00932  M01S00907.subsyst +++|*         EXIT   (X1) = (B5) = NEXT NON-BLANK CHARACTER.
00933  M01S00908.subsyst +++|*                (B6) = NEXT CHARACTER ADDRESS (UPDATED).
00934  M01S00909.subsyst +++|*                EXIT IS MADE TO (B7), IF TERMINATOR ENCOUNTERED.
00935  M01S00910.subsyst +++|*
00936  M01S00911.subsyst +++|*         USES   X - 1, 4.
00937  M01S00912.subsyst +++|*                A - 1.
00938  M01S00913.subsyst +++|*                B - 5, 6.
00939  M01S00914.subsyst +++|
00940  M01S00915.subsyst +++|
00941  M01S00916.subsyst +++| FNB      SUBR               ENTRY/EXIT
00942  M01S00917.subsyst +++| FNB1     SA1    B6          GET NEXT CHARACTER
00943  M01S00918.subsyst +++|          SB6    B6+B1
00944  M01S00919.subsyst +++|          SX4    X1-1R
00945  M01S00920.subsyst +++|          ZR     X4,FNB1     IF BLANK CHARACTER
00946  M01S00921.subsyst +++|          SB5    X1+
00947  M01S00922.subsyst +++|          SX4    X1-1R.
00948  M01S00923.subsyst +++|          ZR     X4,FNB2     IF TERMINATOR CHARACTER
00949  M01S00924.subsyst +++|          SX4    X1-1R)
00950  M01S00925.subsyst +++|          NZ     X4,FNBX     IF NOT TERMINATOR CHARACTER, RETURN
00951  M01S00926.subsyst +++| FNB2     JP     B7          TERMINATOR CHARACTER
00952  M01S00927.subsyst +++|          TITLE  PRESET COMMON DECKS.
00953  M01S00928.subsyst +++|*CALL     COMCARM
00954  M01S00929.subsyst +++|*CALL     COMCCPA
00955  M01S00930.subsyst +++|          SPACE  4,5
00956  M01S00931.subsyst +++| SUBSYE   EQU    *           END OF PROGRAM
00957  M01S00932.subsyst +++| .RFL=    MAX    SUBSYE,OBUF+OBUFL
00958  M01S00933.subsyst +++| RFL=     EQU    .RFL=
00959  M01S00934.subsyst +++|          SPACE  4,5
00960  M01S00935.subsyst +++|          END
cdc/nos2.source/opl.opl871/deck/subsyst.txt ยท Last modified: by 127.0.0.1