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
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
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
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
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