User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comcsrt

Common COMCSRT

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcsrt +++|          CTEXT  COMCSRT - SET RECORD TYPE.
00002  M01S00002.comcsrt +++| SRT      SPACE  4
00003  M01S00003.comcsrt +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcsrt +++|          QUAL   COMCSRT
00005  M01S00005.comcsrt +++|          BASE   D
Line S00006 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcsrt +++| SRT      SPACE  4
00009  M01S00008.comcsrt +++|***       SRT - SET RECORD TYPE.
00010  M01S00009.comcsrt +++|*         G. R. MANSFIELD.  70/10/09.
00011  M01S00010.comcsrt +++|*         ADAPTED FROM SUBROUTINE *CPT* IN *LIBEDIT*.
00012  M01S00011.comcsrt +++|*
00013  M01S00012.comcsrt +++|*                *SRT* IDENTIFIES THE FORMAT OF A RECORD FROM THE DATA
00014  M01S00013.comcsrt +++|*         LOCATED IN A WORKING BUFFER DEFINED BY THE CALLER.
00015  M01S00014.comcsrt +++|*         THE TYPE IS RETURNED AS FOLLOWS -
00016  M01S00015.comcsrt +++|*
00017  M01S00016.comcsrt +++|*         NUMBER TYPE        FORMAT
00018  M01S00017.comcsrt +++|*
00019  M01S00018.comcsrt +++|*         0      TEXT        UNRECOGNIZED
00020  M01S00019.comcsrt +++|*         1      PP          PP PROGRAM
00021  M01S00020.comcsrt +++|*         3      REL         RELOCATABLE SUBPROGRAM
00022  M01S00021.comcsrt +++|*         4      OVL         OVERLAY
00023  M01S00022.comcsrt +++|*         5      ULIB        USER LIBRARY
00024  M01S00023.comcsrt +++|*         6      OPL         MODIFY OPL DECK
00025  M01S00024.comcsrt +++|*         7      OPLC        MODIFY OPL COMMON DECK
00026  M01S00025.comcsrt +++|*         8      OPLD        MODIFY OPL DIRECTORY
00027  M01S00026.comcsrt +++|*         9      ABS         ABSOLUTE PROGRAM
00028  M01S00027.comcsrt +++|*         10     PPU         PPU PROGRAM
00029  M01S00028.comcsrt +++|*         14     CAP         FAST DYNAMIC LOAD CAPSULE
00030  M01S00029.comcsrt +++|*         16     PROC        PROCEDURE RECORD
00031  M01S00001.251l664 +++|*         20     PPL         16-BIT PP PROGRAM
00032  M01S00030.comcsrt +++|*
00033  M01S00031.comcsrt +++|*         IF TYPE NUMBER AND RECORD NAME = 0, RECORD IS ZERO LENGTH.
00034  M01S00032.comcsrt +++|*
00035  M01S00033.comcsrt +++|*         ENTRY  (X1) = LAST WORD ADDRESS + 1 OF DATA.
00036  M01S00034.comcsrt +++|*                (X2) = START OF BLOCK IN MEMORY.
00037  M01S00035.comcsrt +++|*                (B1) = 1.
00038  M01S00036.comcsrt +++|*
00039  M01S00037.comcsrt +++|*         EXIT   (X6) = RECORD NAME AND TYPE.
00040  M01S00038.comcsrt +++|*                (X7) = RECORD NAME, 0 FILL.
00041  M01S00039.comcsrt +++|*
00042  M01S00040.comcsrt +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
00043  M01S00041.comcsrt +++|*                B - 2, 3.
00044  M01S00042.comcsrt +++|*                A - 1, 2, 4.
00045  M01S00002.251l664 +++|          SPACE  4,10
00046  M01S00003.251l664 +++|*         CALL *COMSSRT* IF NOT ALREADY CALLED.
00047  M01S00004.251l664 +++|
00048  M01S00005.251l664 +++|*CALLC    COMSSRT
00049  M01S00043.comcsrt +++|
00050  M01S00044.comcsrt +++|
00051  M01S00045.comcsrt +++| SRT15    MX6    0           CLEAR NAMES
00052  M01S00046.comcsrt +++|          SX7    B0
00053  M01S00047.comcsrt +++|
00054  M01S00048.comcsrt +++| SRT      PS                 ENTRY/EXIT
00055  M01S00049.comcsrt +++|          IX6    X1-X2       NUMBER OF DATA WORDS
00056  M01S00050.comcsrt +++|          ZR     X6,SRT15    IF ZERO LENGTH RECORD
00057  M01S00051.comcsrt +++|          SX4    B1+B1
00058  M01S00052.comcsrt +++|          SX7    X6-2        NUMBER OF DATA WORDS - 2
00059  M01S00053.comcsrt +++|          SA1    X2          CHECK FIRST WORD
00060  M01S00054.comcsrt +++|          BX6    X1          (X6) = PROGRAM NAME
00061  M01S00055.comcsrt +++|          MX0    -12
00062  M01S00056.comcsrt +++|          LX2    X1          (X2) = RECORD NAME
00063  M01S00057.comcsrt +++|          LX1    12
00064  M01S00058.comcsrt +++|          BX3    -X0*X1
00065  M01S00059.comcsrt +++|          SB3    X3-7700B
00066  M01S00060.comcsrt +++|          NZ     B3,SRT1     IF NO 7700 TABLE
00067  M01S00061.comcsrt +++|          SA2    A1+B1       GET NAME FROM 7700 TABLE
00068  M01S00062.comcsrt +++|
00069  M01S00063.comcsrt +++|*         CHECK FOR A VALID 7700 TABLE.
00070  M01S00064.comcsrt +++|*         THERE MUST BE WC+2 DATA WORDS FOR A VALID 7700 TABLE.
00071  M01S00065.comcsrt +++|
00072  M01S00066.comcsrt +++|          LX1    12          CHECK 7700 WORD COUNT .LE. REAL LENGTH
00073  M01S00067.comcsrt +++|          BX3    -X0*X1
00074  M01S00068.comcsrt +++|          IX7    X7-X3
00075  M01S00069.comcsrt +++|          PL     X7,SRT0     IF VALID 7700 TABLE
00076  M01S00070.comcsrt +++|          SA2    A1          GET TEXT RECORD NAME
00077  M01S00071.comcsrt +++|          SX3    B0          PROCESS AS TEXT RECORD
00078  M01S00072.comcsrt +++| SRT0     SB2    B0          REPORT *TEXT* FOR *UCF* TYPE
00079  M01S00006.251l664 +++|          ERRNZ  TXRT        CODE ASSUMES VALUE
00080  M01S00073.comcsrt +++|          ZR     X3,SRT12    IF UPDATE COMPRESSED COMPILE FILE
00081  M01S00074.comcsrt +++|          SB3    X2          CHECK SEQUENCE NUMBER
00082  M01S00075.comcsrt +++|          NZ     B3,SRT12    IF MODIFY COMPRESSED COMPILE FILE
00083  M01S00076.comcsrt +++|
00084  M01S00077.comcsrt +++|*         CHECK FIRST WORD BEYOND 7700 TABLE FOR *LDSET* TABLE.
00085  M01S00078.comcsrt +++|
00086  M01S00079.comcsrt +++|          SB3    X3          GET FIRST WORD BEYOND 7700 TABLE
00087  M01S00080.comcsrt +++|          SA1    A2+B3
00088  M01S00081.comcsrt +++|          BX6    X1
00089  M01S00082.comcsrt +++|          LX1    12          POSITION FOR 7000 TABLE CHECK
00090  M01S00083.comcsrt +++|          BX3    -X0*X1
00091  M01S00084.comcsrt +++|          IX7    X7-X4       INSURE WORD AFTER *LDSET* TABLE
00092  M01S00085.comcsrt +++|
00093  M01S00086.comcsrt +++|*         CHECK FOR *OPLD* AND *LDSET* TABLES.
00094  M01S00087.comcsrt +++|*         THERE MAY OR MAY NOT BE A 7700 TABLE.
00095  M01S00088.comcsrt +++|*         THERE MUST BE WC+1 MORE DATA WORDS FOR A VALID 7000 TABLE.
00096  M01S00089.comcsrt +++|
00097  M01S00090.comcsrt +++| SRT1     SB2    X3-7000B
00098  M01S00091.comcsrt +++|          NZ     B2,SRT2     IF NO 7000 TABLE
00099  M01S00092.comcsrt +++|          LX1    12          CHECK FOR WC = 0 (*OPLD* TABLE)
00100  M01S00093.comcsrt +++|          BX3    -X0*X1
00101  M01S00094.comcsrt +++|          ZR     X3,SRT5     IF OPLD TYPE
00102  M01S00095.comcsrt +++|          SB3    X3+B1
00103  M01S00096.comcsrt +++|          SX7    X7+B1       IGNORE FIRST WORD IF NO 7700 TABLE
00104  M01S00097.comcsrt +++|          SB2    B0          SET TEXT RECORD TYPE
00105  M01S00007.251l664 +++|          ERRNZ  TXRT        CODE ASSUMES VALUE
00106  M01S00098.comcsrt +++|          IX7    X7-X3
00107  M01S00099.comcsrt +++|          NG     X7,SRT12    IF NOT VALID 7000 TABLE
00108  M01S00100.comcsrt +++|          SA1    A1+B3
00109  M01S00101.comcsrt +++|          BX6    X1          (X6) = FIRST WORD OF PROGRAM
00110  M01S00102.comcsrt +++|
00111  M01S00103.comcsrt +++|*         CHECK FOR AND PROCESS CONTROL LANGUAGE PROCEDURE RECORDS.
00112  M01S00104.comcsrt +++|
00113  M01S00105.comcsrt +++| SRT2     SA4    SRTB        CHECK FOR .PROC,
00114  M01S00106.comcsrt +++|          MX0    36
00115  M01S00107.comcsrt +++|          BX3    X0*X6
00116  M01S00108.comcsrt +++|          BX4    X3-X4
00117  M01S00109.comcsrt +++|          NZ     X4,SRT5     IF NOT .PROC,
00118  M01S00110.comcsrt +++|          LX6    36          GET FIRST FOUR LETTERS OF NAME
00119  M01S00111.comcsrt +++|          MX0    24
00120  M01S00112.comcsrt +++|          BX6    X0*X6
00121  M01S00113.comcsrt +++|          SA1    A1+B1       GET LAST THREE CHARACTERS OF NAME
00122  M01S00114.comcsrt +++|          MX0    18
00123  M01S00115.comcsrt +++|          BX4    X0*X1
00124  M01S00116.comcsrt +++|          LX4    -24
00125  M01S00117.comcsrt +++|          BX6    X6+X4
00126  M01S00118.comcsrt +++|          MX0    -6
00127  M01S00119.comcsrt +++|          LX4    X6
00128  M01S00120.comcsrt +++|          SB2    -B1
00129  M01S00121.comcsrt +++|          SB3    7
00130  M01S00122.comcsrt +++| SRT3     LX4    6
00131  M01S00123.comcsrt +++|          BX3    -X0*X4
00132  M01S00124.comcsrt +++|          SX2    X3-1R9-1    CHECK FOR SEPARATOR
00133  M01S00125.comcsrt +++|          PL     X2,SRT4     IF END OF NAME
00134  M01S00126.comcsrt +++|          SB3    B3-1
00135  M01S00127.comcsrt +++|          SB2    B2+6
00136  M01S00128.comcsrt +++|          NZ     B3,SRT3     IF SEVEN LETTERS NOT PROCESSED YET
00137  M01S00129.comcsrt +++| SRT4     MX0    1           BUILD MASK
00138  M01S00130.comcsrt +++|          AX0    B2
Line S00131 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00131.251l664 ---|          SX2    16          TYPE = 16
00140  M01S00008.251l664 +++|          SX2    PRRT        TYPE = PROC
00141  M01S00132.comcsrt +++|          BX7    X0*X6
00142  M01S00133.comcsrt +++|          IX6    X7+X2
00143  M01S00134.comcsrt +++|          PL     B2,SRT      RETURN IF NAME PRESENT
00144  M01S00135.comcsrt +++|          SX7    1R          RETURN SPACE FOR NAME
00145  M01S00136.comcsrt +++|          LX7    48
00146  M01S00137.comcsrt +++|          BX6    X7+X2
00147  M01S00138.comcsrt +++|          EQ     SRT
00148  M01S00139.comcsrt +++|
00149  M01S00140.comcsrt +++|*         IDENTIFY PP PROGRAM FORMAT.
00150  M01S00141.comcsrt +++|*                CHARACTER 3 " 0,
00151  M01S00142.comcsrt +++|*                CHARACTER 4 = 0,
00152  M01S00143.comcsrt +++|*                BYTE 3 = 0,
00153  M01S00144.comcsrt +++|*                BYTE 4 " 0.
00154  M01S00145.comcsrt +++|*                IF CHARACTER 1 IS ALPHA, BYT2 2 " 0.
00155  M01S00146.comcsrt +++|
00156  M01S00147.comcsrt +++| SRT5     SA1    SRTA        =77000077770000B
Line S00148 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00148.251l664 ---|          SB2    B0          TYPE = 0
00158  M01S00009.251l664 +++|          SB2    B0          TYPE = TEXT
00159  M01S00010.251l664 +++|          ERRNZ  TXRT        CODE ASSUMES VALUE
00160  M01S00149.comcsrt +++|          BX3    X1*X6       CHECK FOR NAME ;3-CHARACTERS AND BYTE 3=0
00161  M01S00150.comcsrt +++|          MX0    12
00162  M01S00151.comcsrt +++|          BX1    X0*X6       CHECK FOR NUMERIC FIRST CHARACTER
00163  M01S00152.comcsrt +++|          LX0    48
00164  M01S00153.comcsrt +++|          BX4    X0*X6       CHECK FOR 3-CHARACTER NAME
00165  M01S00154.comcsrt +++|          LX1    12
00166  M01S00155.comcsrt +++|          LX0    48
00167  M01S00156.comcsrt +++|          NZ     X3,SRT7     IF NAME .GT. 3 CHARACTERS OR BYTE 3 .NE. 0
00168  M01S00157.comcsrt +++|          ZR     X4,SRT7     IF NAME .LT. 3 CHARACTERS
00169  M01S00158.comcsrt +++|          SB3    X1-2R0A
00170  M01S00159.comcsrt +++|          BX3    X0*X6
00171  M01S00160.comcsrt +++|          MX0    6
00172  M01S00161.comcsrt +++|          LX0    54
00173  M01S00162.comcsrt +++|          BX7    X0*X6
00174  M01S00163.comcsrt +++|          ZR     X7,SRT7     IF CHARACTER TWO = 0
00175  M01S00164.comcsrt +++|          PL     B3,SRT6     IF NUMERIC PP NAME
00176  M01S00165.comcsrt +++|          ZR     X3,SRT7     IF NO LOAD ADDRESS
00177  M01S00166.comcsrt +++| SRT6     MX0    18
00178  M01S00167.comcsrt +++|          SB3    X6
00179  M01S00168.comcsrt +++|          ZR     B3,SRT12    IF ZERO LENGTH PROGRAM
Line S00169 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00169.251l664 ---|          SB2    B1          TYPE = 1
00181  M01S00011.251l664 +++|          SB2    B1          TYPE = PP
00182  M01S00012.251l664 +++|          ERRNZ  PPRT-1      CODE ASSUMES VALUE
00183  M01S00170.comcsrt +++|          BX2    X0*X2
00184  M01S00171.comcsrt +++|          EQ     SRT12       EXIT
00185  M01S00172.comcsrt +++|
00186  M01S00173.comcsrt +++|*         CHECK FOR.
00187  M01S00174.comcsrt +++|*                REL
00188  M01S00175.comcsrt +++|*                ULIB
00189  M01S00176.comcsrt +++|*                OPL
00190  M01S00177.comcsrt +++|*                OPLC
00191  M01S00178.comcsrt +++|*                OPLD
00192  M01S00179.comcsrt +++|*                ABS
00193  M01S00180.comcsrt +++|*                PPU
00194  M01S00181.comcsrt +++|
Line S00182 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00195  M02S00182.251l664 ---| SRT7     SB2    3           TYPE = 3
00196  M01S00013.251l664 +++| SRT7     SB2    RLRT        TYPE = REL
00197  M01S00183.comcsrt +++|          SB3    X1-3400B
00198  M01S00184.comcsrt +++|          ZR     B3,SRT12    IF RELOCATABLE
Line S00185 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00185.251l664 ---|          SB2    5           TYPE = 5
00200  M01S00014.251l664 +++|          SB2    ULRT        TYPE = ULIB
00201  M01S00186.comcsrt +++|          SB3    X1-7600B
00202  M01S00187.comcsrt +++|          ZR     B3,SRT12    IF USER LIBRARY
Line S00188 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00188.251l664 ---|          SB2    6           TYPE = 6
00204  M01S00015.251l664 +++|          SB2    OPRT        TYPE = OPL
00205  M01S00189.comcsrt +++|          SB3    X1-7001B
00206  M01S00190.comcsrt +++|          ZR     B3,SRT12    IF OLD PROGRAM LIBRARY
Line S00191 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00207  M02S00191.251l664 ---|          SB2    7           TYPE = 7
00208  M01S00016.251l664 +++|          SB2    OCRT        TYPE = OPLC
00209  M01S00192.comcsrt +++|          SB3    X1-7002B
00210  M01S00193.comcsrt +++|          ZR     B3,SRT12    IF OPL COMMON DECK
Line S00194 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00211  M02S00194.251l664 ---|          SB2    8           TYPE = 8
00212  M01S00017.251l664 +++|          SB2    ODRT        TYPE = OPLD
00213  M01S00195.comcsrt +++|          SB3    X1-7000B
00214  M01S00196.comcsrt +++|          ZR     B3,SRT12    IF OPL DIRECTORY
Line S00197 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00197.251l664 ---|          SB2    14D         TYPE = 14
00216  M01S00018.251l664 +++|          SB2    CART        TYPE = CAP
00217  M01S00198.comcsrt +++|          SB3    X1-6000B
00218  M01S00199.comcsrt +++|          ZR     B3,SRT12    IF CAP
00219  M01S00019.251l664 +++|          SB2    PLRT        TYPE = PPL
00220  M01S00020.251l664 +++|          SB3    X1-6100B
00221  M01S00021.251l664 +++|          ZR     B3,SRT12    IF 16-BIT PP PROGRAM
Line S00200 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00222  M02S00200.251l664 ---|          SB2    9           TYPE = 9
00223  M01S00022.251l664 +++|          SB2    ABRT        TYPE = ABS
00224  M01S00201.comcsrt +++|          SB3    X1-5400B
00225  M01S00202.comcsrt +++|          NZ     B3,SRT8     IF NOT *5400* TABLE
00226  M01S00203.comcsrt +++|          LX0    12
00227  M01S00204.comcsrt +++|          BX0    X0*X6       CHECK OVERLAY LEVELS
00228  M01S00205.comcsrt +++|          ZR     X0,SRT12    IF 00,00 OVERLAY
00229  M01S00206.comcsrt +++|          JP     SRT10       CHECK NAME
00230  M01S00207.comcsrt +++|
00231  M01S00208.comcsrt +++| SRT8     SB3    X1-5300B
00232  M01S00209.comcsrt +++|          NZ     B3,SRT9     IF NOT *ACPM* TYPE
00233  M01S00210.comcsrt +++|          SB3    X6+
00234  M01S00211.comcsrt +++|          NG     B3,SRT12    IF NOT ABS TYPE *ACPM*
00235  M01S00212.comcsrt +++|          JP     SRT10       CHECK NAME
00236  M01S00213.comcsrt +++|
00237  M01S00214.comcsrt +++| SRT9     SB3    X1-5100B
00238  M01S00215.comcsrt +++|          ZR     B3,SRT12    IF ABS
Line S00216 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00216.251l664 ---|          SB2    10          TYPE = 10
00240  M01S00023.251l664 +++|          SB2    PURT        TYPE = PPU
00241  M01S00217.comcsrt +++|          SB3    X1-5200B
00242  M01S00218.comcsrt +++|          ZR     B3,SRT12    IF PPU
00243  M01S00219.comcsrt +++|          SB3    X1-5000B
00244  M01S00220.comcsrt +++|          NZ     B3,SRT11    IF NOT OVERLAY
Line S00221 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00245  M02S00221.251l664 ---| SRT10    SB2    4
00246  M01S00024.251l664 +++| SRT10    SB2    OVRT        TYPE = OVL
00247  M01S00222.comcsrt +++|          BX7    X2-X6
00248  M01S00223.comcsrt +++|          NZ     X7,SRT12    IF NAME .NE. FIRST WORD OF PROGRAM
Line S00224 Modification History
M01 (Added by) comcsrt
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00249  M02S00224.251l664 ---| SRT11    SB2    B0+         TYPE =0
00250  M01S00025.251l664 +++| SRT11    SB2    B0+         TYPE = TEXT
00251  M01S00026.251l664 +++|          ERRNZ  TXRT        CODE ASSUMES VALUE
00252  M01S00225.comcsrt +++|
00253  M01S00226.comcsrt +++|*         SET NAME AND TYPE.
00254  M01S00227.comcsrt +++|
00255  M01S00228.comcsrt +++| SRT12    MX0    42
00256  M01S00229.comcsrt +++|          SX4    1R          CHECK FOR TRAILING SPACES
00257  M01S00230.comcsrt +++|          BX7    X0*X2
00258  M01S00231.comcsrt +++|          LX4    12
00259  M01S00232.comcsrt +++|          MX2    6
00260  M01S00233.comcsrt +++|          LX2    -42
00261  M01S00234.comcsrt +++| SRT13    LX4    6
00262  M01S00235.comcsrt +++|          NG     X2,SRT14    IF END OF WORD
00263  M01S00236.comcsrt +++|          LX2    6           POSITION MASK
00264  M01S00237.comcsrt +++|          BX3    X2*X7
00265  M01S00238.comcsrt +++|          ZR     X3,SRT13    IF COLON OR NULL CHARACTER
00266  M01S00239.comcsrt +++|          BX6    X4-X3
00267  M01S00240.comcsrt +++|          NZ     X6,SRT14    IF NOT BLANK
00268  M01S00241.comcsrt +++|          BX7    -X2*X7      DELETE TRAILING SPACE
00269  M01S00242.comcsrt +++|          EQ     SRT13       CHECK NEXT CHARACTER
00270  M01S00243.comcsrt +++|
00271  M01S00244.comcsrt +++| SRT14    SX6    B2          TYPE
00272  M01S00245.comcsrt +++|          IX6    X6+X7
00273  M01S00246.comcsrt +++|          EQ     SRT         RETURN
00274  M01S00247.comcsrt +++|
00275  M01S00248.comcsrt +++| SRTA     CON    77000077770000B
00276  M01S00249.comcsrt +++| SRTB     CON    6L.PROC,
00277  M01S00250.comcsrt +++|          SPACE  4
00278  M01S00251.comcsrt +++|          BASE   *
00279  M01S00252.comcsrt +++| QUAL$    IF     -DEF,QUAL$
00280  M01S00253.comcsrt +++|          QUAL   *
00281  M01S00254.comcsrt +++| SRT      EQU    /COMCSRT/SRT
00282  M01S00255.comcsrt +++| QUAL$    ENDIF
00283  M01S00256.comcsrt +++|          ENDX
cdc/nos2.source/opl.opl871/common/comcsrt.txt ยท Last modified: by 127.0.0.1