10 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compmac +++|          CTEXT  COMPMAC - PP SYSTEM MACROS.
00002  M01S00001.281l803 +++| COMPMAC  SPACE  4,10
00003  M01S00002.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00004  M01S00002.compmac +++| COMPMAC  SPACE  4,10
00005  M01S00003.compmac +++|***       COMPMAC - PP SYSTEM MACROS.
00006  M01S00004.compmac +++|*         G. R. MANSFIELD.  09/27/69.
00007  M01S00005.compmac +++|*         W. E. GOEBEL.      78/07/12.
00008  M01S00006.compmac +++| COMPMAC  SPACE  4,10
00009  M01S00007.compmac +++|***              COMPMAC DEFINES SEVERAL MACROS WHICH ARE USED IN THE
00010  M01S00008.compmac +++|*         SYSTEM PP PACKAGES.
00011  M01S00009.compmac +++| COMPMAC  SPACE  4,10
00012  M01S00010.compmac +++|***       SCRATCH SYMBOLS.
00013  M01S00011.compmac +++|*
00014  M01S00012.compmac +++|*
00015  M01S00013.compmac +++|*         THE FOLLOWING SYMBOLS ARE USED IN MACROS FOR SCRATCH.
00016  M01S00014.compmac +++|*         .1, .2, .3, .4, .5.
00017  M01S00015.compmac +++|
00018  M01S00016.compmac +++|
00019  M01S00017.compmac +++|          NOREF  .1,.2,.3,.4
00020  M01S00018.compmac +++| MACREF   SPACE  4,10
00021  M01S00019.compmac +++|**        MACREF - GENERATE MACRO SYMBOLIC REFERENCE TABLE LISTING.
00022  M01S00020.compmac +++|*
00023  M01S00021.compmac +++|*         CAUSES THE MACRO NAME TO BE LISTED IN THE SYMBOLIC
00024  M01S00022.compmac +++|*         REFERENCE TABLE UNDER THE QUALIFIER *MACRO$*.
00025  M01S00023.compmac +++|*
00026  M01S00024.compmac +++|*         MACREF MNAME
00027  M01S00025.compmac +++|*                MNAME    MACRO NAME FOR REFERENCE TABLE.
00028  M01S00026.compmac +++|
00029  M01S00027.compmac +++|
00030  M01S00028.compmac +++|          PURGMAC MACREF
00031  M01S00029.compmac +++|
00032  M01S00030.compmac +++| MACREF   MACRO  N
00033  M01S00031.compmac +++|  QUAL MACRO$
00034  M01S00032.compmac +++|N SET *
00035  M01S00033.compmac +++|  QUAL *
00036  M01S00034.compmac +++|  ENDM
00037  M01S00035.compmac +++| ADK      SPACE  4,15
00038  M01S00036.compmac +++|***       ADK - ADD CONSTANT TO (A).
00039  M01S00037.compmac +++|*
00040  M01S00038.compmac +++|*         GENERATES EITHER AN *ADC*, *ADN*, OR *SBN* INSTRUCTION,
00041  M01S00039.compmac +++|*         DEPENDING UPON THE VALUE OF THE OPERAND.  IF THE VALUE
00042  M01S00040.compmac +++|*         OF THE OPERAND REDUCES TO ZERO, NO INSTRUCTION WILL BE
00043  M01S00041.compmac +++|*         GENERATED.
00044  M01S00042.compmac +++|*
00045  M01S00043.compmac +++|*         ADK    K
00046  M01S00044.compmac +++|*
00047  M01S00045.compmac +++|*         ENTRY  K = CONSTANT TO BE ADDED TO (A).
00048  M01S00046.compmac +++|*
00049  M01S00047.compmac +++|*         NOTE   BECAUSE OF THE VARIABILITY OF THE CODE
00050  M01S00048.compmac +++|*                GENERATED BY THIS MACRO, IT MUST NOT BE
00051  M01S00049.compmac +++|*                CHANGED BY ON-LINE CODE MODIFICATION.
00052  M01S00050.compmac +++|
00053  M01S00051.compmac +++|
00054  M01S00052.compmac +++|          PURGMAC  ADK
00055  M01S00053.compmac +++|
00056  M01S00054.compmac +++| ADK      MACRO K
00057  M01S00055.compmac +++|  IF DEF,K,12D
00058  M01S00056.compmac +++| .2 SET K
00059  M01S00057.compmac +++|  IFNE K,0,11D
00060  M01S00058.compmac +++|  IFMI K,1
00061  M01S00059.compmac +++| .2 SET 777777B+K
00062  M01S00060.compmac +++|  IFLE .2,77B,3
00063  M01S00061.compmac +++|  IFNE .2,0,7
00064  M01S00062.compmac +++|  ADN .2
00065  M01S00063.compmac +++|  SKIP 5
00066  M01S00064.compmac +++|  IFGE .2,777700B,3
00067  M01S00065.compmac +++|  IFNE .2,777777B,1
00068  M01S00066.compmac +++|  SBN 777777B-.2
00069  M01S00067.compmac +++|  SKIP 1
00070  M01S00068.compmac +++|  ADC K
00071  M01S00069.compmac +++| ADK      ENDM
00072  M01S00070.compmac +++| BITSET   SPACE  4,10
00073  M01S00071.compmac +++|***       BITSET - GENERATE BIT CONSTANT.
00074  M01S00072.compmac +++|*
00075  M01S00073.compmac +++|*
00076  M01S00074.compmac +++|*NAME     BITSET (P1,P2,...,PN)
00077  M01S00075.compmac +++|*         ENTRY  *NAME* = NAME OF BIT CONSTANT.
00078  M01S00076.compmac +++|*                (PN) = BITS TO SET.
00079  M01S00077.compmac +++|
00080  M01S00078.compmac +++|
00081  M01S00079.compmac +++|          PURGMAC  BITSET
00082  M01S00080.compmac +++|
00083  M01S00081.compmac +++|          MACRO  BITSET,N,P
00084  M01S00082.compmac +++|N SET 0
00085  M01S00083.compmac +++|  IRP P
00086  M01S00084.compmac +++|.1 DECMIC P
00087  M01S00085.compmac +++|N SET N+1S".1"
00088  M01S00086.compmac +++|  IRP
00089  M01S00087.compmac +++|  BSS     0
00090  M01S00088.compmac +++|  ENDM
00091  M01S00089.compmac +++|          SPACE  4,10
00092  M01S00090.compmac +++|***       DEFINE ABSOLUTE MEMORY INSTRUCTIONS.
00093  M01S00091.compmac +++|*
00094  M01S00092.compmac +++|*
00095  M01S00093.compmac +++|*         LJP    ADDRESS
00096  M01S00094.compmac +++|*         RJP    ADDRESS
00097  M01S00095.compmac +++|*         LDP    ADDRESS
00098  M01S00096.compmac +++|*         ADP    ADDRESS
00099  M01S00097.compmac +++|*         SBP    ADDRESS
00100  M01S00098.compmac +++|*         LMP    ADDRESS
00101  M01S00099.compmac +++|*         STP    ADDRESS
00102  M01S00100.compmac +++|*         RAP    ADDRESS
00103  M01S00101.compmac +++|*         AOP    ADDRESS
00104  M01S00102.compmac +++|*         SOP    ADDRESS
00105  M01S00103.compmac +++|*
00106  M01S00104.compmac +++|*         DEFINE ABSOLUTE MEMORY INSTRUCTION FOR USE BY OTHER MACROS.
00107  M01S00105.compmac +++|*         ENTRY  (ADDRESS) = ABSOLUTE MEMORY ADDRESS.
00108  M01S00106.compmac +++|
00109  M01S00107.compmac +++|
00110  M01S00108.compmac +++| LJP      PPOP   5,0100B
00111  M01S00109.compmac +++| RJP      PPOP   5,0200B
00112  M01S00110.compmac +++| LDP      PPOP   5,5000B
00113  M01S00111.compmac +++| ADP      PPOP   5,5100B
00114  M01S00112.compmac +++| SBP      PPOP   5,5200B
00115  M01S00113.compmac +++| LMP      PPOP   5,5300B
00116  M01S00114.compmac +++| STP      PPOP   5,5400B
00117  M01S00115.compmac +++| RAP      PPOP   5,5500B
00118  M01S00116.compmac +++| AOP      PPOP   5,5600B
00119  M01S00117.compmac +++| SOP      PPOP   5,5700B
00120  M01S00118.compmac +++| LDBC     SPACE  4,10
00121  M01S00119.compmac +++|***       LDBC - LOAD (A) WITH BIT CONSTANT.
00122  M01S00120.compmac +++|*
00123  M01S00121.compmac +++|*
00124  M01S00122.compmac +++|*         LDBC   (P1,P2,...,PN)
00125  M01S00123.compmac +++|*         LOAD (A) WITH A CONSTANT CONTAINING BITS PN.
00126  M01S00124.compmac +++|
00127  M01S00125.compmac +++|
00128  M01S00126.compmac +++|          PURGMAC  LDBC
00129  M01S00127.compmac +++|
00130  M01S00128.compmac +++| LDBC     MACRO  P
00131  M01S00129.compmac +++|  .1 (P)
00132  M01S00130.compmac +++|  LDC .1
00133  M01S00131.compmac +++|  ENDM
00134  M01S00132.compmac +++| ADBC     SPACE  4,10
00135  M01S00133.compmac +++|***       ADBC - ADD BIT CONSTANT TO (A).
00136  M01S00134.compmac +++|*
00137  M01S00135.compmac +++|*
00138  M01S00136.compmac +++|*         ADBC   (P1,P2,...,PN)
00139  M01S00137.compmac +++|*         ADD A CONSTANT CONTAINING BITS PN TO (A).
00140  M01S00138.compmac +++|
00141  M01S00139.compmac +++|
00142  M01S00140.compmac +++|          PURGMAC  ADBC
00143  M01S00141.compmac +++|
00144  M01S00142.compmac +++| ADBC     MACRO  P
00145  M01S00143.compmac +++|  .1 (P)
00146  M01S00144.compmac +++|  ADC .1
00147  M01S00145.compmac +++|  ENDM
00148  M01S00146.compmac +++| LPBC     SPACE  4,10
00149  M01S00147.compmac +++|***       LPBC - ADD BIT CONSTANT TO (A).
00150  M01S00148.compmac +++|*
00151  M01S00149.compmac +++|*
00152  M01S00150.compmac +++|*         LPBC   (P1,P2,...,PN)
00153  M01S00151.compmac +++|*         LOGICAL PRODUCT OF (A) AND CONSTANT CONTAINING BITS PN.
00154  M01S00152.compmac +++|
00155  M01S00153.compmac +++|
00156  M01S00154.compmac +++|          PURGMAC  LPBC
00157  M01S00155.compmac +++|
00158  M01S00156.compmac +++| LPBC     MACRO  P
00159  M01S00157.compmac +++|  .1 (P)
00160  M01S00158.compmac +++|  LPC .1
00161  M01S00159.compmac +++|  ENDM
00162  M01S00160.compmac +++| LMBC     SPACE  4,10
00163  M01S00161.compmac +++|***       LMBC - ADD BIT CONSTANT TO (A).
00164  M01S00162.compmac +++|*
00165  M01S00163.compmac +++|*
00166  M01S00164.compmac +++|*         LMBC   (P1,P2,...,PN)
00167  M01S00165.compmac +++|*         LOGICAL DIFFERENCE OF (A) AND CONSTANT CONTAINING BITS PN.
00168  M01S00166.compmac +++|
00169  M01S00167.compmac +++|
00170  M01S00168.compmac +++|          PURGMAC  LMBC
00171  M01S00169.compmac +++|
00172  M01S00170.compmac +++| LMBC     MACRO  P
00173  M01S00171.compmac +++|  .1 (P)
00174  M01S00172.compmac +++|  LMC .1
00175  M01S00173.compmac +++|  ENDM
00176  M01S00174.compmac +++| SCBN     SPACE  4,10
00177  M01S00175.compmac +++|****      SCBN - CLEAR (A) WITH BIT CONSTANT.
00178  M01S00176.compmac +++|*
00179  M01S00177.compmac +++|*
00180  M01S00178.compmac +++|*         SCBN   (P1, P2,...,PN)
00181  M01S00179.compmac +++|*         SELECTIVE CLEAR (A) WITH A CONSTANT CONTAINING BITS PN.
00182  M01S00180.compmac +++|
00183  M01S00181.compmac +++|
00184  M01S00182.compmac +++|          PURGMAC SCBN
00185  M01S00183.compmac +++|
00186  M01S00184.compmac +++| SCBN     MACRO  P
00187  M01S00185.compmac +++|  .1 (P)
00188  M01S00186.compmac +++|  SCN .1
00189  M01S00187.compmac +++| SCBN     ENDM
00190  M01S00188.compmac +++| BLI      SPACE  4,20
00191  M01S00189.compmac +++|***       BLI - BUILD LONG INSTRUCTION.
00192  M01S00190.compmac +++|*
00193  M01S00191.compmac +++|*
00194  M01S00192.compmac +++|*TAG      BLI    D
00195  M01S00193.compmac +++|*
00196  M01S00194.compmac +++|*         ENTRY  (T3) = ADDRESS AT WHICH TO STORE THE LONG INSTRUCTION.
00197  M01S00195.compmac +++|*                IF D = *T3*, MODIFY THE INSTRUCTION AT (T3).
00198  M01S00196.compmac +++|*                IF D IS OMITTED, (A) = THE INSTRUCTION TO BE STORED AT
00199  M01S00197.compmac +++|*                   (T3).
00200  M01S00198.compmac +++|*
00201  M01S00199.compmac +++|*         EXAMPLE -
00202  M01S00200.compmac +++|*
00203  M01S00201.compmac +++|*         LDC    TAGA
00204  M01S00202.compmac +++|*         STD    T3
00205  M01S00203.compmac +++|*         BLI    T3          ADD LONG BIT TO INSTRUCTION AT *TAGA*
00206  M01S00204.compmac +++|*
00207  M01S00205.compmac +++|*         CALLS  .EST, .BLI.
00208  M01S00206.compmac +++|*
00209  M01S00207.compmac +++|*         NOTE - *BLI* CALLS THE *.BLI* ENTRY POINT IN *PPR*.  WHEN
00210  M01S00208.compmac +++|*         *PPR* IS LOADED INTO A CONCURRENT PP (CPP), AN *STIL*
00211  M01S00209.compmac +++|*         INSTRUCTION IS STORED AT *.BLI*.  THE *BLI* MACRO JUMPS TO
00212  M01S00210.compmac +++|*         THIS INSTRUCTION TO STORE THE DESIRED LONG INSTRUCTION.  TO
00213  M01S00211.compmac +++|*         GET BACK, *BLI* USES THE *LJM* THAT ACTS AS THE ENTRY/EXIT
00214  M01S00212.compmac +++|*         POINT FOR THE *.EST* SUBROUTINE IN *PPR*.  TO INSURE THAT
00215  M01S00213.compmac +++|*         CONTROL RETURNS TO THE MACRO GENERATED CODE, *BLI* FIRST
00216  M01S00214.compmac +++|*         CALLS *.EST* TO PRESET THE *LJM*.
00217  M01S00215.compmac +++|
00218  M01S00216.compmac +++|
00219  M01S00217.compmac +++|          PURGMAC  BLI
00220  M01S00218.compmac +++|
00221  M01S00219.compmac +++| BLI      MACRO  D
00222  M01S00220.compmac +++|  LOCAL A,B
00223  M01S00221.compmac +++|  IFC NE,/D//,2
00224  M01S00222.compmac +++|  IFC NE,/D/T3/,1
00225  M01S00223.compmac +++|  ERR THE VARIABLE FIELD MUST BE NULL OR CONTAIN *T3*
00226  M01S00224.compmac +++|  IFC EQ,/D//,1
00227  M01S00225.compmac +++|  STM A
00228  M01S00226.compmac +++|  LDC 400000B/ESTE
00229  M01S00227.compmac +++|  RJM .EST
00230  M01S00228.compmac +++|  PJN B
00231  M01S00229.compmac +++|  LDC 1S15+**
00232  M01S00230.compmac +++| A EQU *-1
00233  M01S00231.compmac +++|  IFC EQ,/D/T3/,1
00234  M01S00232.compmac +++|  LMI T3
00235  M01S00233.compmac +++|  LJM .BLI
00236  M01S00234.compmac +++| B EQU *
00237  M01S00235.compmac +++| BLI      ENDM

Seq #  *Modification Id* Act 
----------------------------+
00238  M02S00236.ns2483  ---| BSSN     SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00237.ns2483  ---|***       BSSN - SEQUENTIAL TAG DEFINITION WITHOUT RESERVING SPACE.

Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00238.ns2483  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00239.ns2483  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00240.ns2483  ---|* BEGIN   BSSN   A           BEGIN TAG DEFINITION SEQUENCE

Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00241.ns2483  ---|* TAG1    BSSN   N

Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00242.ns2483  ---|* .       .      .

Seq #  *Modification Id* Act 
----------------------------+
00245  M02S00243.ns2483  ---|* .       .      .

Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00244.ns2483  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00245.ns2483  ---|* TAGN    BSSN   N

Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00246.ns2483  ---|* END     BSSN               END TAG DEFINITION SEQUENCE

Seq #  *Modification Id* Act 
----------------------------+
00249  M02S00247.ns2483  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00250  M02S00248.ns2483  ---|*         TO GET THE TAG VALUES PRINTED ON A LISTING A *LIST G*

Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00249.ns2483  ---|*         CARD MUST BE PRESENT BEFORE THIS MACRO IS CALLED.

Seq #  *Modification Id* Act 
----------------------------+
00252  M02S00250.ns2483  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00253  M02S00251.ns2483  ---|*                A = NUMBER TO START TAG DEFINITION AT.

Seq #  *Modification Id* Act 
----------------------------+
00254  M02S00252.ns2483  ---|*                N = NUMBER OF LOCATIONS RESERVED TO THIS TAG.

Seq #  *Modification Id* Act 
----------------------------+
00255  M02S00253.ns2483  ---|

Seq #  *Modification Id* Act 
----------------------------+
00256  M02S00254.ns2483  ---|

Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00255.ns2483  ---|          PURGMAC  BSSN

Seq #  *Modification Id* Act 
----------------------------+
00258  M02S00256.ns2483  ---|          MACRO  BSSN,T,N

Seq #  *Modification Id* Act 
----------------------------+
00259  M02S00257.ns2483  ---|.1 IFC EQ,*T*BEGIN*

Seq #  *Modification Id* Act 
----------------------------+
00260  M02S00258.ns2483  ---|.2 IFC NE,$N$$

Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00259.ns2483  ---|  LOC N

Seq #  *Modification Id* Act 
----------------------------+
00262  M02S00260.ns2483  ---|.2 ELSE 1

Seq #  *Modification Id* Act 
----------------------------+
00263  M02S00261.ns2483  ---|  LOC 0

Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00262.ns2483  ---|.3 SKIP

Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00263.ns2483  ---|.1 ENDIF

Seq #  *Modification Id* Act 
----------------------------+
00266  M02S00264.ns2483  ---|.2 IFC EQ,*T*END*

Seq #  *Modification Id* Act 
----------------------------+
00267  M02S00265.ns2483  ---|  LOC *O

Seq #  *Modification Id* Act 
----------------------------+
00268  M02S00266.ns2483  ---|.3 SKIP

Seq #  *Modification Id* Act 
----------------------------+
00269  M02S00267.ns2483  ---|.2 ENDIF

Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00268.ns2483  ---|  IFC NE,*T**,1

Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00269.ns2483  ---|T EQU *

Seq #  *Modification Id* Act 
----------------------------+
00272  M02S00270.ns2483  ---|  LOC *+N

Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00271.ns2483  ---|.3 ENDIF

Seq #  *Modification Id* Act 
----------------------------+
00274  M02S00272.ns2483  ---|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
00275  M02S00273.ns2483  ---| BSSB     SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
00276  M02S00274.ns2483  ---|***       BSSB - BACKWARD SEQUENTIAL SYMBOL DEFINITION WITHOUT

Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00275.ns2483  ---|*                RESERVING SPACE.

Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00276.ns2483  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00277.ns2483  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00278.ns2483  ---|* BEGIN   BSSB   A           BEGIN SYMBOL DEFINITION SEQUENCE

Seq #  *Modification Id* Act 
----------------------------+
00281  M02S00279.ns2483  ---|* TAG1    BSSB   N

Seq #  *Modification Id* Act 
----------------------------+
00282  M02S00280.ns2483  ---|* .       .      .

Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00281.ns2483  ---|* .       .      .

Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00282.ns2483  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00283.ns2483  ---|* TAGN    BSSB   N

Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00284.ns2483  ---|* END     BSSB               END SYMBOL DEFINITION SEQUENCE

Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00285.ns2483  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00288  M02S00286.ns2483  ---|*         TO GET THE SYMBOL VALUES PRINTED ON A LISTING A *LIST G*

Seq #  *Modification Id* Act 
----------------------------+
00289  M02S00287.ns2483  ---|*         STATEMENT MUST BE PRESENT BEFORE THIS MACRO IS CALLED.

Seq #  *Modification Id* Act 
----------------------------+
00290  M02S00288.ns2483  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00289.ns2483  ---|*                A = VALUE AT WHICH TO START DEFINITION SEQUENCE.

Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00290.ns2483  ---|*                N = NUMBER OF LOCATIONS RESERVED TO THIS SYMBOL.

Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00291.ns2483  ---|

Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00292.ns2483  ---|

Seq #  *Modification Id* Act 
----------------------------+
00295  M02S00293.ns2483  ---|          PURGMAC  BSSB

Seq #  *Modification Id* Act 
----------------------------+
00296  M02S00294.ns2483  ---|          MACRO  BSSB,S,N

Seq #  *Modification Id* Act 
----------------------------+
00297  M02S00295.ns2483  ---|.1 IFC EQ,*S*BEGIN*

Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00296.ns2483  ---|.2 IFC NE,$N$$

Seq #  *Modification Id* Act 
----------------------------+
00299  M02S00297.ns2483  ---|  LOC N

Seq #  *Modification Id* Act 
----------------------------+
00300  M02S00298.ns2483  ---|.2 ELSE 1

Seq #  *Modification Id* Act 
----------------------------+
00301  M02S00299.ns2483  ---|  LOC 0

Seq #  *Modification Id* Act 
----------------------------+
00302  M02S00300.ns2483  ---|.3 SKIP

Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00301.ns2483  ---|.1 ENDIF

Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00302.ns2483  ---|.2 IFC EQ,*S*END*

Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00303.ns2483  ---|  LOC *O

Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00304.ns2483  ---|.3 SKIP

Seq #  *Modification Id* Act 
----------------------------+
00307  M02S00305.ns2483  ---|.2 ENDIF

Seq #  *Modification Id* Act 
----------------------------+
00308  M02S00306.ns2483  ---|   IFC NE,*S**,1

Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00307.ns2483  ---|S EQU *

Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00308.ns2483  ---|  LOC *-N

Seq #  *Modification Id* Act 
----------------------------+
00311  M02S00309.ns2483  ---|.3 ENDIF

Seq #  *Modification Id* Act 
----------------------------+
00312  M02S00310.ns2483  ---|  ENDM
00313  M01S00001.ns2483  +++| BSSB     SPACE  4,25
00314  M01S00002.ns2483  +++|***       BSSB - BACKWARD SEQUENTIAL SYMBOL DEFINITION WITHOUT
00315  M01S00003.ns2483  +++|*                RESERVING SPACE.
00316  M01S00004.ns2483  +++|*
00317  M01S00005.ns2483  +++|*
00318  M01S00006.ns2483  +++|* BEGIN   BSSB   A           BEGIN SYMBOL DEFINITION SEQUENCE
00319  M01S00007.ns2483  +++|* TAG1    BSSB   N
00320  M01S00008.ns2483  +++|* .       .      .
00321  M01S00009.ns2483  +++|* .       .      .
00322  M01S00010.ns2483  +++|*
00323  M01S00011.ns2483  +++|* TAGN    BSSB   N
00324  M01S00012.ns2483  +++|* END     BSSB               END SYMBOL DEFINITION SEQUENCE
00325  M01S00013.ns2483  +++|*
00326  M01S00014.ns2483  +++|*         A = VALUE AT WHICH TO START DEFINITION SEQUENCE.
00327  M01S00015.ns2483  +++|*         N = NUMBER OF LOCATIONS RESERVED TO THIS SYMBOL.
00328  M01S00016.ns2483  +++|*
00329  M01S00017.ns2483  +++|*         IF NO *BEGIN BSSB* IS USED, THE STARTING VALUE WILL BE THE
00330  M01S00018.ns2483  +++|*         THE CURRENT VALUE OF THE LOCATION COUNTER.
00331  M01S00019.ns2483  +++|*
00332  M01S00020.ns2483  +++|*         THE *END BSSB* IS ONLY NEEDED IF IT IS NECESSARY TO RESET THE
00333  M01S00021.ns2483  +++|*         LOCATION COUNTER TO THE ORIGIN COUNTER OR TO PRINT THE FINAL
00334  M01S00022.ns2483  +++|*         VALUE OF THE *BSSB* SERIES.
00335  M01S00023.ns2483  +++|
00336  M01S00024.ns2483  +++|
00337  M01S00025.ns2483  +++|          PURGMAC  BSSB
00338  M01S00026.ns2483  +++|
00339  M01S00027.ns2483  +++|          MACRO  BSSB,S,N
00340  M01S00028.ns2483  +++|.1 IFC EQ,*S*BEGIN*
00341  M01S00029.ns2483  +++|  BSS
00342  M01S00030.ns2483  +++|  LOC N
00343  M01S00031.ns2483  +++|.3 SKIP
00344  M01S00032.ns2483  +++|.1 ENDIF
00345  M01S00033.ns2483  +++|.2 IFC EQ,*S*END*
00346  M01S00034.ns2483  +++|  BSS
00347  M01S00035.ns2483  +++|  LOC *O
00348  M01S00036.ns2483  +++|.3 SKIP
00349  M01S00037.ns2483  +++|.2 ENDIF
00350  M01S00038.ns2483  +++| S BSS
00351  M01S00039.ns2483  +++|  LOC *-N
00352  M01S00040.ns2483  +++|.3 ENDIF
00353  M01S00041.ns2483  +++|  ENDM
00354  M01S00042.ns2483  +++| BSSN     SPACE  4,20
00355  M01S00043.ns2483  +++|***       BSSN - SEQUENTIAL TAG DEFINITION WITHOUT RESERVING SPACE.
00356  M01S00044.ns2483  +++|*
00357  M01S00045.ns2483  +++|*
00358  M01S00046.ns2483  +++|* BEGIN   BSSN   A           BEGIN TAG DEFINITION SEQUENCE
00359  M01S00047.ns2483  +++|* TAG1    BSSN   N
00360  M01S00048.ns2483  +++|* .       .      .
00361  M01S00049.ns2483  +++|* .       .      .
00362  M01S00050.ns2483  +++|*
00363  M01S00051.ns2483  +++|* TAGN    BSSN   N
00364  M01S00052.ns2483  +++|* END     BSSN               END TAG DEFINITION SEQUENCE
00365  M01S00053.ns2483  +++|*
00366  M01S00054.ns2483  +++|*         A = NUMBER TO START TAG DEFINITION AT.
00367  M01S00055.ns2483  +++|*         N = NUMBER OF LOCATIONS RESERVED TO THIS TAG.
00368  M01S00056.ns2483  +++|*
00369  M01S00057.ns2483  +++|*         IF NO *BEGIN BSSN* IS USED, THE STARTING VALUE WILL BE THE
00370  M01S00058.ns2483  +++|*         THE CURRENT VALUE OF THE LOCATION COUNTER.
00371  M01S00059.ns2483  +++|*
00372  M01S00060.ns2483  +++|*         THE *END BSSN* IS ONLY NEEDED IF IT IS NECESSARY TO RESET THE
00373  M01S00061.ns2483  +++|*         LOCATION COUNTER TO THE ORIGIN COUNTER OR TO PRINT THE FINAL
00374  M01S00062.ns2483  +++|*         VALUE OF THE *BSSN* SERIES.
00375  M01S00063.ns2483  +++|
00376  M01S00064.ns2483  +++|
00377  M01S00065.ns2483  +++|          PURGMAC  BSSN
00378  M01S00066.ns2483  +++|
00379  M01S00067.ns2483  +++|          MACRO  BSSN,T,N
00380  M01S00068.ns2483  +++|.1 IFC EQ,*T*BEGIN*
00381  M01S00069.ns2483  +++|  BSS
00382  M01S00070.ns2483  +++|  LOC N
00383  M01S00071.ns2483  +++|.3 SKIP
00384  M01S00072.ns2483  +++|.1 ENDIF
00385  M01S00073.ns2483  +++|.2 IFC EQ,*T*END*
00386  M01S00074.ns2483  +++|  BSS
00387  M01S00075.ns2483  +++|  LOC *O
00388  M01S00076.ns2483  +++|.3 SKIP
00389  M01S00077.ns2483  +++|.2 ENDIF
00390  M01S00078.ns2483  +++| T BSS
00391  M01S00079.ns2483  +++|  LOC *+N
00392  M01S00080.ns2483  +++|.3 ENDIF
00393  M01S00081.ns2483  +++|  ENDM
00394  M01S00311.compmac +++| CFI      SPACE  4,25
00395  M01S00312.compmac +++|***       CFI - CALCULATE FIRST WORD INDEX IN MANAGED TABLE.
00396  M01S00313.compmac +++|*
00397  M01S00314.compmac +++|*         GIVEN AN ORDINAL IN A MANAGED TABLE (CLT, EJT, EST, SYSTEM

Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00315.271l750 ---|*         FNT OF QFT), THE *CFI* MACRO CALCULATES THE TABLE INDEX OF

Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00316.271l750 ---|*         THE FIRST WORD OF THE ENTRY.
00400  M01S00001.271l750 +++|*         FNT, JCB OR QFT), THE *CFI* MACRO CALCULATES THE TABLE INDEX
00401  M01S00002.271l750 +++|*         OF THE FIRST WORD OF THE ENTRY.
00402  M01S00003.271l750 +++|*
00403  M01S00004.271l750 +++|*         THE *CFI* MACRO REQUIRES THAT TABLE ENTRY LENGTHS BETWEEN
00404  M01S00005.271l750 +++|*         10B AND 40B BE A MULTIPLE OF 4 AND THAT ENTRY LENGTHS
00405  M01S00006.271l750 +++|*         GREATER THAN 40B BE A MULTIPLE OF 10B.  THE MAXUMUM ENTRY
00406  M01S00007.271l750 +++|*         LENGTH SUPPORTED BY *CFI* IS 100B.  THE MAXIMUM ENTRY LENGTH
00407  M01S00008.271l750 +++|*         OF CERTAIN TABLES SUCH AS THE EJT AND QFT IS CONSTRAINED BY
00408  M01S00009.271l750 +++|*         SPACE ALLOCATED IN OTHER TABLES SUCH AS THE QUEUE FILE OR
00409  M01S00010.271l750 +++|*         ROLLOUT FILE SYSTEM SECTOR.
00410  M01S00317.compmac +++|*
00411  M01S00318.compmac +++|*         CFI    TABLE,ORD,ODC
00412  M01S00319.compmac +++|*
00413  M01S00320.compmac +++|*         ENTRY  TABLE = MANAGED TABLE MNEMONIC.
00414  M01S00321.compmac +++|*                      CLT = COMMON LIBRARIES TABLE.
00415  M01S00322.compmac +++|*                      EJT = EXECUTING JOB TABLE.
00416  M01S00323.compmac +++|*                      EST = EQUIPMENT STATUS TABLE.
00417  M01S00324.compmac +++|*                      FNT = SYSTEM FNT TABLE.
00418  M01S00011.271l750 +++|*                      JCB = JOB CONTROL BLOCK TABLE.
00419  M01S00325.compmac +++|*                      QFT = QUEUE FILE TABLE.
00420  M01S00001.274l797 +++|*                      ORT = OPTICAL DISK REQUEST TABLE.
00421  M01S00326.compmac +++|*                ORD = OPTIONAL PARAMETER SPECIFYING DIRECT CELL
00422  M01S00327.compmac +++|*                      CONTAINING TABLE ORDINAL.
00423  M01S00328.compmac +++|*                (A) = TABLE ORDINAL, IF *ORD* NOT SPECIFIED.
00424  M01S00329.compmac +++|*                ODC = OPTIONAL PARAMETER SPECIFYING DIRECT CELL
00425  M01S00330.compmac +++|*                      CONTAINING TABLE ORDINAL, IF *ORD* NOT
00426  M01S00331.compmac +++|*                      SPECIFIED.
00427  M01S00332.compmac +++|*                      THIS OPTION SHOULD BE USED IF THE ORDINAL
00428  M01S00333.compmac +++|*                      IS IN A DIRECT CELL AND IS LOADED IN (A)
00429  M01S00334.compmac +++|*                      ON ENTRY TO THE *CFI* MACRO.
00430  M01S00335.compmac +++|*
00431  M01S00336.compmac +++|*         EXIT   (A) = WORD INDEX OF TABLE ENTRY.
00432  M01S00337.compmac +++|
00433  M01S00338.compmac +++|
00434  M01S00339.compmac +++|          PURGMAC  CFI
00435  M01S00340.compmac +++|
00436  M01S00341.compmac +++| CFI      MACRO  T,R1,R2
00437  M01S00342.compmac +++|  LOCAL AS1,DC,EL,MN,MNL,MX,MXL,SC1,SC2,ST,TB,TL
00438  M01S00343.compmac +++|  MACREF CFI
00439  M01S00344.compmac +++|.1 SET 0

Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00345.271l750 ---|.A ECHO ,TB=(CLT,EJT,EST,FNT,QFT),MN=(3,4,2,2,4),MX=(10B,10B,10B,10B,10B

Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00346.271l750 ---|,)

Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00012.274l797 ---|.A ECHO ,TB=(CLT,EJT,EST,FNT,JCB,QFT),MN=(3,4,2,2,10B,4),MX=(10B,10B,10B

Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00013.274l797 ---|,,10B,100B,10B)
00444  M01S00002.274l797 +++|.A ECHO ,TB=(CLT,EJT,EST,FNT,JCB,QFT,ORT),MN=(3,4,2,2,10B,4,4),MX=(10B,1
00445  M01S00003.274l797 +++|,0B,10B,10B,100B,10B,10B)
00446  M01S00347.compmac +++|.B IFC EQ,$TB$T$
00447  M01S00348.compmac +++|.1 SET 1
00448  M01S00349.compmac +++|MNL SET MN
00449  M01S00350.compmac +++|MXL SET MX
00450  M01S00351.compmac +++|  STOPDUP
00451  M01S00352.compmac +++|.B ENDIF
00452  M01S00353.compmac +++|.A ENDD
00453  M01S00354.compmac +++|.A IFEQ .1,0
00454  M01S00355.compmac +++|  ERR ILLEGAL TABLE TYPE - T
00455  M01S00356.compmac +++|.A ELSE
00456  M01S00357.compmac +++|TL SET T_E
00457  M01S00358.compmac +++|DC SET R1 R2 T0
00458  M01S00359.compmac +++|.B IFC NE,$R1$$
00459  M01S00360.compmac +++|  LDD R1
00460  M01S00361.compmac +++|.B ENDIF
00461  M01S00362.compmac +++|.B IFGE TL,MNL
00462  M01S00363.compmac +++|.B IFLE TL,MXL

Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00364.271l750 ---|.C ECHO ,EL=(2,3,4,5,6,7,10B),ST=(0,1,0,1,1,1,0),SC1=(1,1,2,2,1,3,3),AS1

Seq #  *Modification Id* Act 
----------------------------+
00464  M02S00365.271l750 ---|,=(0,1,0,1,1,2,0),SC2=(0,0,0,0,1,0,0)
00465  M01S00014.271l750 +++|.C ECHO ,EL=(2,3,4,5,6,7,10B,14B,20B,24B,30B,34B,40B,50B,60B,70B,100B),S
00466  M01S00015.271l750 +++|,T=(0,1,0,1,1,1,0,1,0,1,1,1,0,1,1,1),SC1=(1,1,2,2,1,3,3,1,4,2,1,3,5,2,1,
00467  M01S00016.271l750 +++|,3),AS1=(0,1,0,1,1,2,0,1,0,1,1,2,0,1,1,2),SC2=(0,0,0,0,1,0,0,2,0,2,3,2,0
00468  M01S00017.271l750 +++|,3,4,3)
00469  M01S00366.compmac +++|.D IFEQ TL,EL
00470  M01S00367.compmac +++|.E IFC EQ,$R1$$
00471  M01S00368.compmac +++|.E IFC EQ,$R2$$
00472  M01S00369.compmac +++|.E IFEQ ST,1
00473  M01S00370.compmac +++|  STD T0
00474  M01S00371.compmac +++|.E ENDIF
00475  M01S00372.compmac +++|  SHN SC1
00476  M01S00373.compmac +++|.E IFEQ AS1,1
00477  M01S00374.compmac +++|  ADD DC
00478  M01S00375.compmac +++|.E ENDIF
00479  M01S00376.compmac +++|.E IFEQ AS1,2
00480  M01S00377.compmac +++|  SBD DC
00481  M01S00378.compmac +++|.E ENDIF
00482  M01S00379.compmac +++|.E IFNE SC2,0
00483  M01S00380.compmac +++|  SHN SC2
00484  M01S00381.compmac +++|.E ENDIF
00485  M01S00382.compmac +++|  STOPDUP
00486  M01S00383.compmac +++|.D ENDIF
00487  M01S00384.compmac +++|.C ENDD
00488  M01S00385.compmac +++|.B ELSE
00489  M01S00386.compmac +++|  ERR T ENTRY LENGTH ERROR
00490  M01S00387.compmac +++|.B ENDIF
00491  M01S00388.compmac +++|.A ENDIF
00492  M01S00389.compmac +++| CFI      ENDM
00493  M01S00390.compmac +++| CMTM     SPACE  4,10
00494  M01S00391.compmac +++|***       CMTM - CREATE MACROS TO ACCESS MANAGED TABLES.
00495  M01S00392.compmac +++|*
00496  M01S00393.compmac +++|*         CMTM   TB
00497  M01S00394.compmac +++|*
00498  M01S00395.compmac +++|*         ENTRY  TB = MANAGED TABLE NAME.
00499  M01S00396.compmac +++|
00500  M01S00397.compmac +++|
00501  M01S00398.compmac +++|          PURGMAC  CMTM
00502  M01S00399.compmac +++|
00503  M01S00400.compmac +++| CMTM     MACRO  TB
00504  M01S00401.compmac +++|  PURGMAC C_TB
00505  M01S00402.compmac +++|C_TB MACRO
00506  M01S00403.compmac +++|.A IF -DEF,.TB
00507  M01S00404.compmac +++|  MACREF C_TB
00508  M01S00405.compmac +++|.TB SUBR
00509  M01S00406.compmac +++|  STD T0
00510  M01S00407.compmac +++|  LDK TB_P
00511  M01S00408.compmac +++|  CRD CM
00512  M01S00409.compmac +++|  CFI TB,T0
00513  M01S00410.compmac +++|  ADD CM+1
00514  M01S00411.compmac +++|  SHN 6
00515  M01S00412.compmac +++|  ADD CM
00516  M01S00413.compmac +++|  SHN 14
00517  M01S00414.compmac +++|  UJN .TB_X
00518  M01S00415.compmac +++|.A ENDIF
00519  M01S00416.compmac +++| CMTM     ENDM
00520  M01S00417.compmac +++| CEJT     SPACE  4,10
00521  M01S00418.compmac +++|***       CEJT - CONVERT EJT ADDRESS.
00522  M01S00419.compmac +++|*
00523  M01S00420.compmac +++|*         ENTRY  (A) = EJT ORDINAL.
00524  M01S00421.compmac +++|*
00525  M01S00422.compmac +++|*         USES   CM - CM+4.
00526  M01S00423.compmac +++|*
00527  M01S00424.compmac +++|*         MACROS CFI.
00528  M01S00425.compmac +++|
00529  M01S00426.compmac +++|
00530  M01S00427.compmac +++|          CMTM   EJT
00531  M01S00428.compmac +++| CEST     SPACE  4,10
00532  M01S00429.compmac +++|***       CEST - CONVERT EST ADDRESS.
00533  M01S00430.compmac +++|*
00534  M01S00431.compmac +++|*         ENTRY  (A) = EST ORDINAL.
00535  M01S00432.compmac +++|*
00536  M01S00433.compmac +++|*         USES   CM - CM+4.
00537  M01S00434.compmac +++|*
00538  M01S00435.compmac +++|*         MACROS CFI.
00539  M01S00436.compmac +++|
00540  M01S00437.compmac +++|
00541  M01S00438.compmac +++|          CMTM   EST
00542  M01S00439.compmac +++| CFNT     SPACE  4,10
00543  M01S00440.compmac +++|***       CFNT - CONVERT FNT ADDRESS.
00544  M01S00441.compmac +++|*
00545  M01S00442.compmac +++|*         ENTRY  (A) = FNT ORDINAL.
00546  M01S00443.compmac +++|*
00547  M01S00444.compmac +++|*         USES   CM - CM+4.
00548  M01S00445.compmac +++|*
00549  M01S00446.compmac +++|*         MACROS CFI.
00550  M01S00447.compmac +++|
00551  M01S00448.compmac +++|
00552  M01S00449.compmac +++|          CMTM   FNT
00553  M01S00018.271l750 +++| CJCB     SPACE  4,10
00554  M01S00019.271l750 +++|***       CJCB - CONVERT JCB ADDRESS.
00555  M01S00020.271l750 +++|*
00556  M01S00021.271l750 +++|*         ENTRY  (A) = JCB ORDINAL.
00557  M01S00022.271l750 +++|*
00558  M01S00023.271l750 +++|*         USES   CM - CM+4.
00559  M01S00024.271l750 +++|*
00560  M01S00025.271l750 +++|*         MACROS CFI.
00561  M01S00026.271l750 +++|
00562  M01S00027.271l750 +++|
00563  M01S00028.271l750 +++|          CMTM   JCB
00564  M01S00450.compmac +++| CQFT     SPACE  4,10
00565  M01S00451.compmac +++|***       CQFT - CONVERT QFT ADDRESS.
00566  M01S00452.compmac +++|*
00567  M01S00453.compmac +++|*         ENTRY  (A) = QFT ORDINAL.
00568  M01S00454.compmac +++|*
00569  M01S00455.compmac +++|*         USES   CM - CM+4.
00570  M01S00456.compmac +++|*
00571  M01S00457.compmac +++|*         MACROS CFI.
00572  M01S00458.compmac +++|
00573  M01S00459.compmac +++|
00574  M01S00460.compmac +++|          CMTM   QFT
00575  M01S00004.274l797 +++| CORT     SPACE  4,10
00576  M01S00005.274l797 +++|***       CORT - CONVERT ORT ADDRESS.
00577  M01S00006.274l797 +++|*
00578  M01S00007.274l797 +++|*         ENTRY  (A) = ORT ORDINAL.
00579  M01S00008.274l797 +++|*
00580  M01S00009.274l797 +++|*         USES   CM - CM+4.
00581  M01S00010.274l797 +++|*
00582  M01S00011.274l797 +++|*         MACROS CFI.
00583  M01S00012.274l797 +++|
00584  M01S00013.274l797 +++|
00585  M01S00014.274l797 +++|          CMTM   ORT
00586  M01S00001.273l780 +++| CREL     SPACE  4,10
00587  M01S00002.273l780 +++|**        CREL  - ASSEMBLED CONSTANT RELOCATION.
00588  M01S00003.273l780 +++|*
00589  M01S00004.273l780 +++|*         ASSEMBLES INFORMATION TO ALLOW THE SPECIFIED INSTRUCTION OR
00590  M01S00005.273l780 +++|*         DATA LOCATION TO BE MODIFIED BY *COMPSIC*.
00591  M01S00006.273l780 +++|*
00592  M01S00007.273l780 +++|*         CREL   A,R
00593  M01S00008.273l780 +++|*
00594  M01S00009.273l780 +++|*         ENTRY  *A* = ADDRESS OF TWO BYTES TO BE MODIFIED.
00595  M01S00010.273l780 +++|*                *R* = ADDRESS OF VALUE TO BE ADDED TO TWO BYTES AT *A*
00596  M01S00011.273l780 +++|*                      BY *COMPSIC*.
00597  M01S00012.273l780 +++|
00598  M01S00013.273l780 +++|
00599  M01S00014.273l780 +++|          PURGMAC  CREL
00600  M01S00015.273l780 +++|
00601  M01S00016.273l780 +++| CREL     MACRO  A,R
00602  M01S00017.273l780 +++|          LOCAL  B
00603  M01S00018.273l780 +++| B        EQU    A
00604  M01S00019.273l780 +++| SIC      RMT
00605  M01S00020.273l780 +++|          CON    B
00606  M01S00021.273l780 +++|          CON    R
00607  M01S00022.273l780 +++| SIC      RMT
00608  M01S00023.273l780 +++| CREL     ENDM
00609  M01S00461.compmac +++| DCHAN    SPACE  4,10
00610  M01S00462.compmac +++|***       DCHAN - DROP CHANNEL.
00611  M01S00463.compmac +++|*
00612  M01S00464.compmac +++|*
00613  M01S00465.compmac +++|*         DCHAN
00614  M01S00466.compmac +++|*         ENTRY  (A) = CHANNEL NUMBER.
00615  M01S00467.compmac +++|
00616  M01S00468.compmac +++|
00617  M01S00469.compmac +++|          PURGMAC  DCHAN
00618  M01S00470.compmac +++|
00619  M01S00471.compmac +++| DCHAN    MACRO
00620  M01S00472.compmac +++|  MACREF DCHAN
00621  M01S00473.compmac +++|  STD CM+1
00622  M01S00474.compmac +++|  MONITOR DCHM
00623  M01S00475.compmac +++|  ENDM
00624  M01S00476.compmac +++| DEFC     SPACE  4,10
00625  M01S00477.compmac +++|***       DEFC - CONDITIONALLY DEFINE SYMBOL.
00626  M01S00478.compmac +++|*
00627  M01S00479.compmac +++|*
00628  M01S00480.compmac +++|* SYM     DEFC   VAL
00629  M01S00481.compmac +++|
00630  M01S00482.compmac +++|
00631  M01S00483.compmac +++|          PURGMAC  DEFC
00632  M01S00484.compmac +++|
00633  M01S00485.compmac +++|          MACRO  DEFC,SYM,VAL
00634  M01S00486.compmac +++|  MACREF DEFC
00635  M01S00487.compmac +++|  IF -DEF,SYM,1
00636  M01S00488.compmac +++| SYM = VAL
00637  M01S00489.compmac +++|  ENDM
00638  M01S00490.compmac +++| DELAY    SPACE  4,10
00639  M01S00491.compmac +++|***       DELAY - DELAY FOR SYSTEM DELAY TIME.
00640  M01S00492.compmac +++|*
00641  M01S00493.compmac +++|*         DELAYS APPROXIMATELY N/8 MILLISECONDS.  IF N IS NOT SPECIFIED
00642  M01S00494.compmac +++|*         THE DELAY TIME IS APPROXIMATELY 1/8 MILLISECOND.
00643  M01S00495.compmac +++|*
00644  M01S00496.compmac +++|*         DELAY  N
00645  M01S00497.compmac +++|*
00646  M01S00498.compmac +++|*         WHERE  N/8 IS THE NUMBER OF MILLISECONDS TO DELAY.
00647  M01S00499.compmac +++|*
00648  M01S00500.compmac +++|*         EXIT   (A) = 0.
00649  M01S00501.compmac +++|
00650  M01S00502.compmac +++|
00651  M01S00503.compmac +++|          PURGMAC  DELAY
00652  M01S00504.compmac +++| DELAY    MACRO  N
00653  M01S00505.compmac +++|  LOCAL A
00654  M01S00506.compmac +++|  MACREF DELAY
00655  M01S00507.compmac +++|  NOREF .2,.3
00656  M01S00508.compmac +++|.2 SET 0
00657  M01S00509.compmac +++|.3 SET N 1
00658  M01S00510.compmac +++|  DUP 10,5
00659  M01S00511.compmac +++|  IFEQ .3/2*2-.3,0
00660  M01S00512.compmac +++|.3 SET .3/2
00661  M01S00513.compmac +++|.2 SET .2+1
00662  M01S00514.compmac +++|  ELSE 1
00663  M01S00515.compmac +++|  STOPDUP
00664  M01S00516.compmac +++|  IFGT .3,1,2
00665  M01S00517.compmac +++|  LDK .3
00666  M01S00518.compmac +++|  STD T0
00667  M01S00519.compmac +++|A LDP .DLY
00668  M01S00520.compmac +++|  ERRNG 10D-.2 DELAY TIME TOO LARGE
00669  M01S00521.compmac +++|  SHK .2
00670  M01S00522.compmac +++|  SBN 1
00671  M01S00523.compmac +++|  NJN *-1
00672  M01S00524.compmac +++|  IFGT .3,1,2
00673  M01S00525.compmac +++|  SOD T0
00674  M01S00526.compmac +++|  NJN A
00675  M01S00527.compmac +++|  ENDM
00676  M01S00528.compmac +++| DFIM     SPACE  4,40

Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00529.273l780 ---| DFIM     SPACE  4,15
00678  M01S00530.compmac +++|***       DFIM - DEFINE INSTRUCTION MODIFICATION.
00679  M01S00531.compmac +++|*
00680  M01S00532.compmac +++|*         *DFIM* CREATES A REMOTE BLOCK CONTAINING THE INSTRUCTION AND
00681  M01S00533.compmac +++|*         ITS ADDRESS.  *DIMB* CONTAINS THE *HERE* PSEUDO-OP WHICH
00682  M01S00534.compmac +++|*         CAUSES THE REMOTE CODE TO BE ASSEMBLED AND *MDIN* IS AN
00683  M01S00535.compmac +++|*         EXECUTABLE MACRO THAT ACTUALLY MAKES THE MODIFICATIONS SPECI-
00684  M01S00536.compmac +++|*         FIED BY THE *DFIM* MACRO.
00685  M01S00537.compmac +++|*
00686  M01S00538.compmac +++|*TAG      DFIM   (OPC),ADR
00687  M01S00539.compmac +++|*
00688  M01S00540.compmac +++|*         ENTRY  *OPC* = COMPASS OP CODE AND VARIABLE FIELD.
00689  M01S00541.compmac +++|*                *ADR* = ADDRESS TO BE MODIFIED WITH *OPC*.
00690  M01S00542.compmac +++|*                      = * IF NOT SPECIFIED.
00691  M01S00543.compmac +++|*                *TAG* = OPTIONAL LOCATION FIELD SYMBOL.
00692  M01S00544.compmac +++|*
00693  M01S00545.compmac +++|*         EXIT   *OPC* PLACED IN REMOTE BLOCK NAMED BY
00694  M01S00546.compmac +++|*                *R$* MICRO (DEFAULT IS *SRMT*).
00695  M01S00547.compmac +++|*
00696  M01S00548.compmac +++|*         EXAMPLE -
00697  M01S00549.compmac +++|*
00698  M01S00550.compmac +++|*         LDM    ABCA
00699  M01S00551.compmac +++|*         DFIM   (UJN  ABCX)
00700  M01S00552.compmac +++|* ABC3    NJN    ABCX
00701  M01S00553.compmac +++|*
00702  M01S00554.compmac +++|*         SINCE THE *ADR* PARAMETER WAS OMITTED ON THE *DFIM*, THE
00703  M01S00555.compmac +++|*         *UJN* WILL BE ASSEMBLED SO THAT IT WILL WORK CORRECTLY WHEN
00704  M01S00556.compmac +++|*         IT IS MOVED TO *ABC3*.
00705  M01S00557.compmac +++|*
00706  M01S00558.compmac +++|*         SOMEWHERE IN THE PRESET CODE FOR THE PROGRAM, A TEST IS MADE
00707  M01S00559.compmac +++|*         TO DETERMINE WHETHER OR NOT TO ACTUALLY MODIFY THE INSTRUC-
00708  M01S00560.compmac +++|*         TIONS.  FOR EXAMPLE-
00709  M01S00561.compmac +++|*
00710  M01S00562.compmac +++|*         LDM    XXXX
00711  M01S00563.compmac +++|*         ZJN    PRS4        IF INSTRUCTIONS ARE NOT TO BE MODIFIED
00712  M01S00564.compmac +++|*         MDIN   PRSA        MODIFY THE INSTRUCTIONS
00713  M01S00565.compmac +++|* PRS4      CONTINUE WITH PRESETTING
00714  M01S00566.compmac +++|*
00715  M01S00567.compmac +++|*
00716  M01S00568.compmac +++|* PRSA    BSS    0           TABLE OF MODIFIED INSTRUCTIONS
00717  M01S00569.compmac +++|*         DIMB
00718  M01S00570.compmac +++|
00719  M01S00571.compmac +++|
00720  M01S00572.compmac +++|          PURGMAC  DFIM
00721  M01S00573.compmac +++|
00722  M01S00574.compmac +++|          MACRO  DFIM,TAG,OPC,ADR
00723  M01S00575.compmac +++|  LOCAL X,Y,Z
00724  M01S00576.compmac +++|  MACREF DFIM
00725  M01S00577.compmac +++|Z MICRO 1,, "QUAL"
00726  M01S00578.compmac +++|X SET ADR *
00727  M01S00579.compmac +++|Y EQU *O-*L+X
00728  M01S00580.compmac +++|.1D SET *
00729  M01S00581.compmac +++|.2D SET *O
00730  M01S00582.compmac +++|  IF -MIC,R$,1
00731  M01S00583.compmac +++|R$ MICRO 1,4, SRMT
00732  M01S00584.compmac +++|  IF DEF,.O"R$",1
00733  M01S00585.compmac +++|  IFNE .O"R$",*O,2
00734  M01S00586.compmac +++|.O"R$" SET *O
00735  M01S00587.compmac +++|.L"R$" SET X
00736  M01S00588.compmac +++|  LOC .L"R$"
00737  M01S00589.compmac +++|TAG  OPC
00738  M01S00590.compmac +++|.L"R$" SET *
00739  M01S00591.compmac +++|  ORG .2D
00740  M01S00592.compmac +++|  LOC .1D
00741  M01S00593.compmac +++|"R$" RMT
00742  M01S00594.compmac +++|  IF DEF,"R$"A,1
00743  M01S00595.compmac +++|  IFEQ "R$"A,10000,3
00744  M01S00596.compmac +++|"R$" EQU *O
00745  M01S00597.compmac +++|  QUAL
00746  M01S00598.compmac +++|"R$"A SET 10000
00747  M01S00599.compmac +++|  IFNE /"Z"/Y,"R$"A,4
00748  M01S00600.compmac +++|"R$"B SET *O
00749  M01S00601.compmac +++|"R$"C SET 0
00750  M01S00602.compmac +++|  ORG *O+1
00751  M01S00603.compmac +++|  CON /"Z"/Y
00752  M01S00604.compmac +++|"R$"A SET /"Z"/Y
00753  M01S00605.compmac +++|  QUAL "Z"
00754  M01S00606.compmac +++|  LOC X+"R$"C
00755  M01S00607.compmac +++|TAG  OPC
00756  M01S00608.compmac +++|  QUAL
00757  M01S00609.compmac +++|"R$"C SET *O-"R$"B-2
00758  M01S00610.compmac +++|  ORG "R$"B
00759  M01S00611.compmac +++|  CON "R$"C
00760  M01S00612.compmac +++|  ORG *O+"R$"C+1
00761  M01S00613.compmac +++|  RMT
00762  M01S00614.compmac +++| DFIM     ENDM
00763  M01S00615.compmac +++| DIMB     SPACE  4,10
00764  M01S00616.compmac +++|***       DIMB - DUMP INSTRUCTION MODIFICATION BLOCK.
00765  M01S00617.compmac +++|*
00766  M01S00618.compmac +++|*         DIMB   BN
00767  M01S00619.compmac +++|*
00768  M01S00620.compmac +++|*         ENTRY  *BN* = NAME OF REMOTE BLOCK.
00769  M01S00621.compmac +++|*                     = *SRMT* IF NOT SPECIFIED.
00770  M01S00622.compmac +++|
00771  M01S00623.compmac +++|
00772  M01S00624.compmac +++|          PURGMAC  DIMB
00773  M01S00625.compmac +++|
00774  M01S00626.compmac +++| DIMB     MACRO  BN
00775  M01S00627.compmac +++|  LOCAL Q
00776  M01S00628.compmac +++|  MACREF DIMB
00777  M01S00629.compmac +++|Q MICRO 1,, "QUAL"
00778  M01S00630.compmac +++|  IFC EQ,*BN**,2
00779  M01S00631.compmac +++|TN MICRO 1,4, SRMT
00780  M01S00632.compmac +++|  ELSE 1
00781  M01S00633.compmac +++|TN MICRO 1,, BN
00782  M01S00634.compmac +++|  QUAL
00783  M01S00635.compmac +++|  NOREF "TN"A,"TN"B,"TN"C
00784  M01S00636.compmac +++|  QUAL *
00785  M01S00637.compmac +++|"TN" HERE
00786  M01S00638.compmac +++|  CON 0
00787  M01S00639.compmac +++|"TN"A SET 10000
00788  M01S00640.compmac +++|  QUAL "Q"
00789  M01S00641.compmac +++| DIMB     ENDM
00790  M01S00642.compmac +++| ENDMS    SPACE  4,15
00791  M01S00643.compmac +++|***       ENDMS - END MASS STORAGE OPERATION.
00792  M01S00644.compmac +++|*
00793  M01S00645.compmac +++|*
00794  M01S00646.compmac +++|*         ENDMS
00795  M01S00647.compmac +++|*         *ENDMS* RELEASES ALL RESOURCES RESERVED TO THE MASS STORAGE
00796  M01S00648.compmac +++|*         OPERATION.  SEE *PPR* FOR MORE INFORMATION ON USING THE
00797  M01S00649.compmac +++|*         *ENDMS* MACRO.
00798  M01S00650.compmac +++|*
00799  M01S00651.compmac +++|*         EXIT   (A) = 0.
00800  M01S00652.compmac +++|*
00801  M01S00653.compmac +++|*         USES   T1, T2, CM - CM+4.
00802  M01S00654.compmac +++|*
00803  M01S00655.compmac +++|*         NOTE - THIS MACRO IS THE ONLY SUPPORTED INTERFACE TO THE
00804  M01S00656.compmac +++|*         *.EMS* PPR ENTRY POINT.  THE VALUE OF THIS SYMBOL IS
00805  M01S00657.compmac +++|*         DEFINED IN *COMSMSP* AND *PPCOM*.
00806  M01S00658.compmac +++|
00807  M01S00659.compmac +++|
00808  M01S00660.compmac +++|          PURGMAC  ENDMS
00809  M01S00661.compmac +++|
00810  M01S00662.compmac +++| ENDMS    MACRO
00811  M01S00663.compmac +++|  MACREF ENDMS
00812  M01S00664.compmac +++|  RJP .EMS
00813  M01S00665.compmac +++|  ENDM
00814  M01S00666.compmac +++| EXECUTE  SPACE  4,15
00815  M01S00667.compmac +++|***       EXECUTE - PROGRAM/OVERLAY CALL.
00816  M01S00668.compmac +++|*         THIS MACRO IS INTENDED TO BE USED FOR CROSS REFERENCE
00817  M01S00669.compmac +++|*         PURPOSES.
00818  M01S00670.compmac +++|*
00819  M01S00671.compmac +++|*
00820  M01S00672.compmac +++|*         EXECUTE NAME,ADDRESS
00821  M01S00673.compmac +++|*         ENTRY  (NAME) = NAME OF PROGRAM/OVERLAY.
00822  M01S00674.compmac +++|*                (ADDRESS) = LOAD ADDRESS FOR OVERLAY IF *NAME* BEGINS
00823  M01S00675.compmac +++|*                            WITH *0*.
00824  M01S00676.compmac +++|*                (ADDRESS) = (*), LOAD *NAME* INTO -A- REGISTER, BUT
00825  M01S00677.compmac +++|*                            DO NOT EXECUTE.
00826  M01S00678.compmac +++|*                (ADDRESS) = (=), DO NOT GENERATE CODE.
00827  M01S00679.compmac +++|*         CALLS  EXR.
00828  M01S00680.compmac +++|
00829  M01S00681.compmac +++|
00830  M01S00682.compmac +++|          PURGMAC  EXECUTE
00831  M01S00683.compmac +++|
00832  M01S00684.compmac +++| EXECUTE  MACRO  N,A
00833  M01S00685.compmac +++|  MACREF EXECUTE
00834  M01S00686.compmac +++|  QUAL
00835  M01S00687.compmac +++|(N) SET 0
00836  M01S00688.compmac +++|  QUAL *
00837  M01S00689.compmac +++|  IFC NE,$A$=$
00838  M01S00690.compmac +++|M MICRO 1,1, N
00839  M01S00691.compmac +++|  IFC EQ,$"M"$0$,3
00840  M01S00692.compmac +++|  IFC NE,$A$*$,2
00841  M01S00693.compmac +++|  LDC A . NO LOAD ADDRESS SPECIFIED
00842  M01S00694.compmac +++|  STD LA
00843  M01S00695.compmac +++|  LDC 3R_N
00844  M01S00696.compmac +++|  IFC NE,$A$*$,1
00845  M01S00697.compmac +++|  RJP EXR
00846  M01S00698.compmac +++|  ENDIF
00847  M01S00699.compmac +++|  ENDM
00848  M01S00700.compmac +++| ISTORE   SPACE  4,15
00849  M01S00701.compmac +++|***       ISTORE - INSTRUCTION STORE.
00850  M01S00702.compmac +++|*
00851  M01S00703.compmac +++|*         BUILDS AND STORES PP INSTRUCTION VIA IN-LINE CODE
00852  M01S00704.compmac +++|*         MODIFICATION.  LOCATION TO BE MODIFIED MUST BE
00853  M01S00705.compmac +++|*         PREVIOUSLY DEFINED.
00854  M01S00706.compmac +++|*
00855  M01S00707.compmac +++|*         ISTORE CADDR,(INSTR)
00856  M01S00708.compmac +++|*
00857  M01S00709.compmac +++|*         ENTRY  CADDR = ADDRESS OF CODE TO BE MODIFIED.
00858  M01S00710.compmac +++|*                INSTR = INSTRUCTION (OPERATION CODE AND ADDRESS
00859  M01S00711.compmac +++|*                        FIELD) TO BE STORED.
00860  M01S00712.compmac +++|
00861  M01S00713.compmac +++|
00862  M01S00714.compmac +++|          PURGMAC  ISTORE
00863  M01S00715.compmac +++|
00864  M01S00716.compmac +++| ISTORE   MACRO  CADDR,INSTR
00865  M01S00717.compmac +++|  MACREF ISTORE
00866  M01S00718.compmac +++|.1 IFC EQ,$INSTR$PSN$
00867  M01S00719.compmac +++|  LDN 0
00868  M01S00720.compmac +++|.1 ELSE
00869  M01S00721.compmac +++|  LDC **
00870  M01S00722.compmac +++|  ORG *-1
00871  M01S00723.compmac +++|  LOC CADDR
00872  M01S00724.compmac +++|  INSTR
00873  M01S00725.compmac +++|  LOC *O
00874  M01S00726.compmac +++|.1 ENDIF
00875  M01S00727.compmac +++|  STM CADDR
00876  M01S00728.compmac +++| ISTORE   ENDM
00877  M01S00729.compmac +++| LDK      SPACE  4,15
00878  M01S00730.compmac +++|***       LDK - LOAD CONSTANT INTO (A).
00879  M01S00731.compmac +++|*
00880  M01S00732.compmac +++|*         GENERATES EITHER A *LDC*, *LDN*, OR *LCN* INSTRUCTION,
00881  M01S00733.compmac +++|*         DEPENDING UPON THE VALUE OF THE OPERAND.
00882  M01S00734.compmac +++|*
00883  M01S00735.compmac +++|*         LDK    K
00884  M01S00736.compmac +++|*
00885  M01S00737.compmac +++|*         ENTRY  K = CONSTANT TO BE LOADED INTO (A).
00886  M01S00738.compmac +++|*
00887  M01S00739.compmac +++|*         NOTE   BECAUSE OF THE VARIABILITY OF THE CODE
00888  M01S00740.compmac +++|*                GENERATED BY THIS MACRO, IT MUST NOT BE
00889  M01S00741.compmac +++|*                CHANGED BY ON-LINE CODE MODIFICATION.
00890  M01S00742.compmac +++|
00891  M01S00743.compmac +++|
00892  M01S00744.compmac +++|          PURGMAC  LDK
00893  M01S00745.compmac +++|
00894  M01S00746.compmac +++| LDK      MACRO  K
00895  M01S00747.compmac +++|  IF DEF,K,9D
00896  M01S00748.compmac +++| .1 SET K
00897  M01S00749.compmac +++|  IFMI .1,1
00898  M01S00750.compmac +++| .1 SET 777777B+.1
00899  M01S00751.compmac +++|  IFLE .1,77B,2
00900  M01S00752.compmac +++|  LDN .1
00901  M01S00753.compmac +++|  SKIP 4
00902  M01S00754.compmac +++|  IFGE .1,777700B,2
00903  M01S00755.compmac +++|  LCN 777777B-.1
00904  M01S00756.compmac +++|  SKIP 1
00905  M01S00757.compmac +++|  LDC K
00906  M01S00758.compmac +++| LDK      ENDM
00907  M01S00759.compmac +++| LMK      SPACE  4,15
00908  M01S00760.compmac +++|***       LMK - LOGICAL MINUS CONSTANT WITH (A).
00909  M01S00761.compmac +++|*
00910  M01S00762.compmac +++|*         GENERATES EITHER AN *LMC* OR AN *LMN* INSTRUCTION,
00911  M01S00763.compmac +++|*         DEPENDING UPON THE VALUE OF THE OPERAND. IF THE
00912  M01S00764.compmac +++|*         VALUE OF THE OPERAND REDUCES TO ZERO, NO INSTRUCTION
00913  M01S00765.compmac +++|*         WILL BE GENERATED.
00914  M01S00766.compmac +++|*
00915  M01S00767.compmac +++|*         LMK    K
00916  M01S00768.compmac +++|*
00917  M01S00769.compmac +++|*         ENTRY  K = CONSTANT TO BE MINUSED WITH (A).
00918  M01S00770.compmac +++|*
00919  M01S00771.compmac +++|*         NOTE   BECAUSE OF THE VARIABILITY OF THE CODE
00920  M01S00772.compmac +++|*                GENERATED BY THIS MACRO, IT MUST NOT BE
00921  M01S00773.compmac +++|*                CHANGED BY ON-LINE CODE MODIFICATION.
00922  M01S00774.compmac +++|
00923  M01S00775.compmac +++|
00924  M01S00776.compmac +++|          PURGMAC LMK
00925  M01S00777.compmac +++|
00926  M01S00778.compmac +++| LMK      MACRO  K
00927  M01S00779.compmac +++|  LOCAL B
00928  M01S00780.compmac +++|  IF DEF,K,6
00929  M01S00781.compmac +++|B SET K
00930  M01S00782.compmac +++|  IFPL K,4
00931  M01S00783.compmac +++|  IFLE K,77B,3
00932  M01S00784.compmac +++|  IFNE K,0,3
00933  M01S00785.compmac +++|  LMN K
00934  M01S00786.compmac +++|  SKIP 1
00935  M01S00787.compmac +++|  LMC K
00936  M01S00788.compmac +++| LMK      ENDM
00937  M01S00789.compmac +++| LPK      SPACE  4,15
00938  M01S00790.compmac +++|***       LPK - LOGICAL PRODUCT CONSTANT WITH (A).
00939  M01S00791.compmac +++|*
00940  M01S00792.compmac +++|*         GENERATES EITHER AN *LPC*, *LPN*, OR *SCN* INSTRUCTION,
00941  M01S00793.compmac +++|*         DEPENDING UPON THE VALUE OF THE OPERAND.  IF THE VALUE
00942  M01S00794.compmac +++|*         OF THE OPERARND REDUCES TO ZERO, NO INSTRUCTION WILL BE
00943  M01S00795.compmac +++|*         GENERATED.
00944  M01S00796.compmac +++|*
00945  M01S00797.compmac +++|*         LPK    K
00946  M01S00798.compmac +++|*
00947  M01S00799.compmac +++|*         ENTRY  K = CONSTANT TO BE *ANDED* WITH (A).
00948  M01S00800.compmac +++|*
00949  M01S00801.compmac +++|*         NOTE   BECAUSE OF THE VARIABILITY OF THE CODE
00950  M01S00802.compmac +++|*                GENERATED BY THIS MACRO, IT MUST NOT BE
00951  M01S00803.compmac +++|*                CHANGED BY ON-LINE CODE MODIFICATION.
00952  M01S00804.compmac +++|
00953  M01S00805.compmac +++|
00954  M01S00806.compmac +++|          PURGMAC LPK
00955  M01S00807.compmac +++|
00956  M01S00808.compmac +++| LPK      MACRO  K
00957  M01S00809.compmac +++|  IF DEF,K,10D
00958  M01S00810.compmac +++| .1 SET K
00959  M01S00811.compmac +++|  IFMI .1,1
00960  M01S00812.compmac +++| .1 SET 777777B+.1
00961  M01S00813.compmac +++|  IFLE .1,77B,2
00962  M01S00814.compmac +++|  LPN .1
00963  M01S00815.compmac +++|  SKIP 5
00964  M01S00816.compmac +++|  IFGE .1,777700B,3
00965  M01S00817.compmac +++|  IFNE .1,777777B,1
00966  M01S00818.compmac +++|  SCN 777777B-.1
00967  M01S00819.compmac +++|  SKIP 1
00968  M01S00820.compmac +++|  LPC K
00969  M01S00821.compmac +++| LPK      ENDM
00970  M01S00822.compmac +++| MDIN     SPACE  4,20
00971  M01S00823.compmac +++|***       MDIN - MODIFY INSTRUCTIONS FROM REMOTE LIST.
00972  M01S00824.compmac +++|*
00973  M01S00825.compmac +++|*         MDIN   BN
00974  M01S00826.compmac +++|*
00975  M01S00827.compmac +++|*         ENTRY  *BN* = NAME OF REMOTE BLOCK.
00976  M01S00828.compmac +++|*                    = *SRMT* IF NOT SPECIFIED.
00977  M01S00829.compmac +++|*
00978  M01S00830.compmac +++|*         EXIT   (A) = 0.
00979  M01S00831.compmac +++|*
00980  M01S00832.compmac +++|*         USES   T0 - T2.
00981  M01S00833.compmac +++|*
00982  M01S00834.compmac +++|*         FORMAT OF REMOTE BLOCK SEGMENT =
00983  M01S00835.compmac +++|*
00984  M01S00836.compmac +++|*                VFD    12  / BYTE COUNT (N).
00985  M01S00837.compmac +++|*                VFD    12  / LOCATION FOR CODE.
00986  M01S00838.compmac +++|*                VFD    N*12/ (N) BYTES OF CODE.
00987  M01S00839.compmac +++|
00988  M01S00840.compmac +++|
00989  M01S00841.compmac +++|          PURGMAC  MDIN
00990  M01S00842.compmac +++|
00991  M01S00843.compmac +++| MDIN     MACRO  BN
00992  M01S00844.compmac +++|  LOCAL L1,L2,L3
00993  M01S00845.compmac +++|  MACREF MDIN
00994  M01S00846.compmac +++|  IFC EQ,*BN**,2
00995  M01S00847.compmac +++|TN MICRO 1,4, SRMT
00996  M01S00848.compmac +++|  ELSE 1
00997  M01S00849.compmac +++|TN MICRO 1,, BN
00998  M01S00850.compmac +++|  LDC "TN"-1
00999  M01S00851.compmac +++|  STD T1
01000  M01S00852.compmac +++|  UJN L3
01001  M01S00853.compmac +++|
01002  M01S00854.compmac +++|L1 STD T0
01003  M01S00855.compmac +++|  AOD T1
01004  M01S00856.compmac +++|  LDI T1
01005  M01S00857.compmac +++|  STD T2
01006  M01S00858.compmac +++|L2 AOD T1
01007  M01S00859.compmac +++|  LDI T1
01008  M01S00860.compmac +++|  STI T2
01009  M01S00861.compmac +++|  AOD T2
01010  M01S00862.compmac +++|  SOD T0
01011  M01S00863.compmac +++|  NJN L2
01012  M01S00864.compmac +++|L3 AOD T1
01013  M01S00865.compmac +++|  LDI T1
01014  M01S00866.compmac +++|  NJN L1
01015  M01S00867.compmac +++| MDIN     ENDM
01016  M01S00868.compmac +++| MJP      SPACE  4,15
01017  M01S00869.compmac +++|***       MJP - CONDITIONAL NEGATIVE SHORT OR LONG JUMP.
01018  M01S00870.compmac +++|*
01019  M01S00871.compmac +++|*         GENERATES EITHER AN *MJN* OR THE EQUIVALENT LONG JUMP
01020  M01S00872.compmac +++|*         SERIES, DEPENDING UPON THE VALUE OF THE ADDRESS FIELD,
01021  M01S00873.compmac +++|*         AND UPON WHETHER THE ADDRESS HAS OR HAS NOT YET BEEN
01022  M01S00874.compmac +++|*         DEFINED.
01023  M01S00875.compmac +++|*
01024  M01S00876.compmac +++|*         MJP    ADDR
01025  M01S00877.compmac +++|*
01026  M01S00878.compmac +++|*         ENTRY  ADDR = BRANCH ADDRESS.
01027  M01S00879.compmac +++|*
01028  M01S00880.compmac +++|*         NOTE   DISCRETION SHOULD BE EXERCISED IN THE USE OF
01029  M01S00881.compmac +++|*                THIS MACRO AS IT WILL ALWAYS GENERATE A LONG
01030  M01S00882.compmac +++|*                JUMP SEQUENCE WHEN BRANCHING FORWARD.
01031  M01S00883.compmac +++|
01032  M01S00884.compmac +++|
01033  M01S00885.compmac +++|          PURGMAC  MJP
01034  M01S00886.compmac +++|
01035  M01S00887.compmac +++| MJP      MACRO  A
01036  M01S00888.compmac +++|.J IF DEF,A
01037  M01S00889.compmac +++|.J IFLE *-A,37B
01038  M01S00890.compmac +++|.J IFPL *-A
01039  M01S00891.compmac +++|  MJN A
01040  M01S00892.compmac +++|.J ELSE
01041  M01S00893.compmac +++|  PJN *+3
01042  M01S00894.compmac +++|  LJM A
01043  M01S00895.compmac +++|.J ENDIF
01044  M01S00896.compmac +++| MJP      ENDM
01045  M01S00897.compmac +++| MONITOR  SPACE  4,10
01046  M01S00898.compmac +++|***       MONITOR - REQUEST MONITOR FUNCTION.
01047  M01S00899.compmac +++|*
01048  M01S00900.compmac +++|*
01049  M01S00901.compmac +++|*         MONITOR FUNCTION
01050  M01S00902.compmac +++|*         ENTRY  (FUNCTION) = MONITOR FUNCTION TO PERFORM.
01051  M01S00903.compmac +++|*                PARAMETERS PRESTORED IN (CM+1 - CM+4).
01052  M01S00904.compmac +++|*         EXIT   NONE.
01053  M01S00905.compmac +++|*         CALLS  FTN.
01054  M01S00906.compmac +++|
01055  M01S00907.compmac +++|
01056  M01S00908.compmac +++|          PURGMAC  MONITOR
01057  M01S00909.compmac +++|
01058  M01S00910.compmac +++| MONITOR  MACRO  F
01059  M01S00911.compmac +++|  MACREF MONITOR
01060  M01S00912.compmac +++|.A IFLT F,100B
01061  M01S00913.compmac +++|  LDN F
01062  M01S00914.compmac +++|.A ELSE
01063  M01S00915.compmac +++|  LDC F
01064  M01S00916.compmac +++|.A ENDIF
01065  M01S00917.compmac +++|  RJP FTN
01066  M01S00918.compmac +++|  ENDM
01067  M01S00919.compmac +++| NFA      SPACE  4,25
01068  M01S00920.compmac +++|***       NFA - NEGATIVE FL ACCESS.
01069  M01S00921.compmac +++|*         THIS MACRO SHOULD BE USED BY PP PROGRAMS WHEN
01070  M01S00922.compmac +++|*         ACCESSING NEGATIVE FL.
01071  M01S00923.compmac +++|*
01072  M01S00924.compmac +++|*         NFA    ADDR,CON
01073  M01S00925.compmac +++|*
01074  M01S00926.compmac +++|*         ENTRY  ADDR = RELATIVE ADDRESS OF NEGATIVE FL LOCATION.
01075  M01S00927.compmac +++|*                CON    IF PRESENT, (ADDR) CONTAINS RELATIVE
01076  M01S00928.compmac +++|*                       ADDRESS OF NEGATIVE FL LOCATION.
01077  M01S00929.compmac +++|*                (RA) = REFERENCE ADDRESS.
01078  M01S00930.compmac +++|*
01079  M01S00931.compmac +++|*         EXIT   (A) = ABSOLUTE ADDRESS.
01080  M01S00932.compmac +++|*
01081  M01S00933.compmac +++|*         THE FOLLOWING ADDRESSING CONVENTION IS TO BE FOLLOWED WHEN
01082  M01S00934.compmac +++|*         USING THIS MACRO WITH ADDR OF THE FORM (TAG+VAL) OR
01083  M01S00935.compmac +++|*         (TAG-VAL).
01084  M01S00936.compmac +++|*
01085  M01S00937.compmac +++|*         ABSOLUTE    NFA MACRO        ADDRESS
01086  M01S00938.compmac +++|*         ADDRESS     ADDR FIELD       DESCRIPTION
01087  M01S00939.compmac +++|*
01088  M01S00940.compmac +++|*         RA-TAG-N    TAG-N            N WORDS BEFORE TAG IN NFL
01089  M01S00941.compmac +++|*         RA-TAG      TAG              LOCATION TAG IN NFL
01090  M01S00942.compmac +++|*         RA-TAG+N    TAG+N            N WORDS AFTER TAG IN NFL
01091  M01S00001.271l716 +++|*
01092  M01S00002.271l716 +++|*         IF SYMBOL *PCP$* IS DEFINED, THE NFA MACRO MAY BE USED TO
01093  M01S00003.271l716 +++|*         ACCESS THE NFL OF A PCP JOB.  IN THIS CASE, THE *NFA* MACRO
01094  M01S00004.271l716 +++|*         CALLS THE *AJFL* MACRO TO ENSURE THAT CELL *RA* IS SET TO THE
01095  M01S00005.271l716 +++|*         PCP-S RA PRIOR TO ITS USE BY THE *NFA* MACRO.  THIS REQUIRES
01096  M01S00006.271l716 +++|*         THAT COMMON DECK *COMSPCP* BE CALLED PRIOR TO THIS POINT,
01097  M01S00007.271l716 +++|*         WITH SYMBOL *AJF$* DEFINED.
01098  M01S00943.compmac +++|
01099  M01S00944.compmac +++|          PURGMAC  NFA
01100  M01S00945.compmac +++|
01101  M01S00946.compmac +++| NFA  MACRO  A,R
01102  M01S00947.compmac +++|  MACREF NFA

Seq #  *Modification Id* Act 
----------------------------+
01103  M02S00948.271l716 ---|  LDD RA
01104  M01S00008.271l716 +++|.P IF DEF,PCP$
01105  M01S00009.271l716 +++|  AJFL RA
01106  M01S00010.271l716 +++|.P ELSE
01107  M01S00011.271l716 +++|  LDD RA
01108  M01S00012.271l716 +++|.P ENDIF
01109  M01S00949.compmac +++|  SHN 6
01110  M01S00950.compmac +++|.A IFC EQ,$R$$
01111  M01S00951.compmac +++|  ADK -A
01112  M01S00952.compmac +++|.A ELSE
01113  M01S00953.compmac +++|.C IFLT A,100B
01114  M01S00954.compmac +++|  SBD A
01115  M01S00955.compmac +++|.C ELSE
01116  M01S00956.compmac +++|  SBM A
01117  M01S00957.compmac +++|.C ENDIF
01118  M01S00958.compmac +++|.A ENDIF
01119  M01S00959.compmac +++|  ENDM
01120  M01S00960.compmac +++| NJP      SPACE  4,15
01121  M01S00961.compmac +++|***       NJP - CONDITIONAL NONZERO SHORT OR LONG JUMP.
01122  M01S00962.compmac +++|*
01123  M01S00963.compmac +++|*         GENERATES EITHER AN *NJN* OR THE EQUIVALENT LONG JUMP
01124  M01S00964.compmac +++|*         SERIES, DEPENDING UPON THE VALUE OF THE ADDRESS FIELD,
01125  M01S00965.compmac +++|*         AND UPON WHETHER THE ADDRESS HAS OR HAS NOT YET BEEN
01126  M01S00966.compmac +++|*         DEFINED.
01127  M01S00967.compmac +++|*
01128  M01S00968.compmac +++|*         NJP    ADDR
01129  M01S00969.compmac +++|*
01130  M01S00970.compmac +++|*         ENTRY  ADDR = BRANCH ADDRESS.
01131  M01S00971.compmac +++|*
01132  M01S00972.compmac +++|*         NOTE   DISCRETION SHOULD BE EXERCISED IN THE USE OF
01133  M01S00973.compmac +++|*                THIS MACRO AS IT WILL ALWAYS GENERATE A LONG
01134  M01S00974.compmac +++|*                JUMP SEQUENCE WHEN BRANCHING FORWARD.
01135  M01S00975.compmac +++|
01136  M01S00976.compmac +++|
01137  M01S00977.compmac +++|          PURGMAC  NJP
01138  M01S00978.compmac +++|
01139  M01S00979.compmac +++| NJP      MACRO A
01140  M01S00980.compmac +++|.J IF DEF,A
01141  M01S00981.compmac +++|.J IFLE *-A,37B
01142  M01S00982.compmac +++|.J IFPL *-A
01143  M01S00983.compmac +++|  NJN A
01144  M01S00984.compmac +++|.J ELSE
01145  M01S00985.compmac +++|  ZJN *+3
01146  M01S00986.compmac +++|  LJM A
01147  M01S00987.compmac +++|.J ENDIF
01148  M01S00988.compmac +++| NJP      ENDM
01149  M01S00989.compmac +++| OVERFLOW SPACE  4,30
01150  M01S00990.compmac +++|***       OVERFLOW - TEST FOR PP MEMORY OVERFLOW.
01151  M01S00991.compmac +++|*
01152  M01S00992.compmac +++|*         THIS MACRO IS INTENDED TO TEST FOR PP MEMORY OVERFLOW WHEN
01153  M01S00993.compmac +++|*         LOADING OVERLAYS FROM MASS STORAGE.  THIS MACRO SHOULD
01154  M01S00994.compmac +++|*         BE PLACED AT THE END OF THE OVERLAY BEING TESTED.
01155  M01S00995.compmac +++|*         THIS MACRO ASSUMES THE OVERLAY IS LOADED BY *PPR/PLL*
01156  M01S00996.compmac +++|*         WHICH WILL NOT READ AN EMPTY END OF RECORD AT THE END
01157  M01S00997.compmac +++|*         OF THE OVERLAY.
01158  M01S00998.compmac +++|*

Seq #  *Modification Id* Act 
----------------------------+
01159  M02S00999.253l688 ---|*         OVERFLOW ORIGIN,END

Seq #  *Modification Id* Act 
----------------------------+
01160  M02S01000.253l688 ---|*         ENTRY  (ORIGIN) = ORIGIN ADDRESS OF OVERLAY.  *PPFW* IS
01161  M01S00001.253l688 +++|*         OVERFLOW ORIGIN,END,CMR
01162  M01S00002.253l688 +++|*         ENTRY  ORIGIN = ORIGIN ADDRESS OF OVERLAY.  *PPFW* IS
01163  M01S01001.compmac +++|*                   ASSUMED IF NO PARAMETER IS ENTERED.

Seq #  *Modification Id* Act 
----------------------------+
01164  M02S01002.253l688 ---|*                (END) = ADDRESS THAT IS NOT TO BE DESTROYED.  (I.E.
01165  M01S00003.253l688 +++|*                END = ADDRESS THAT IS NOT TO BE DESTROYED.  (I.E.
01166  M01S01003.compmac +++|*                   LWA+1 OF AREA BEING LOADED INTO.)  10000B (END OF
01167  M01S01004.compmac +++|*                   PP MEMORY) IS ASSUMED IF NO PARAMETER IS ENTERED.
01168  M01S00004.253l688 +++|*                CMR = RESIDENCY STATUS.
01169  M01S00005.253l688 +++|*                      *CMR* = OVERLAY MUST BE CENTRAL MEMORY RESIDENT.
01170  M01S00006.253l688 +++|*                      DEFAULT IS MASS STORAGE RESIDENT.
01171  M01S01005.compmac +++|*
01172  M01S01006.compmac +++|*         FOUR *ERRNG* PSEUDO OPS ARE USED TO INDICATE THE SPACE LEFT
01173  M01S01007.compmac +++|*         AND THE SIZE OF THE OVERLAY.
01174  M01S01008.compmac +++|*                *BYTES LEFT AFTER LAST SECTOR* = THE NUMBER OF BYTES
01175  M01S01009.compmac +++|*                   BETWEEN THE LAST BYTE OF THE LAST SECTOR READ IN
01176  M01S01010.compmac +++|*                   AND *END*.  THE ORIGIN ADDRESS OF THE OVERLAY CAN
01177  M01S01011.compmac +++|*                   BE INCREASED BY THIS AMOUNT WITHOUT CAUSING OVER-
01178  M01S01012.compmac +++|*                   FLOW.  IF THIS IS LESS THAN 500 THE OVERLAY SIZE
01179  M01S01013.compmac +++|*                   CANNOT BE INCREASED BY SO MUCH THAT ANOTHER SECTOR
01180  M01S01014.compmac +++|*                   IS REQUIRED.
01181  M01S01015.compmac +++|*                *BYTES LEFT IN LAST SECTOR* = THE NUMBER OF BYTES
01182  M01S01016.compmac +++|*                   THAT CAN BE ADDED TO THE OVERLAY WITHOUT REQUIR-
01183  M01S01017.compmac +++|*                   ING ANOTHER SECTOR.
01184  M01S01018.compmac +++|*                *BYTES CAN BE ADDED TO OVERLAY* = THE MAXIMUM NUMBER
01185  M01S01019.compmac +++|*                   OF BYTES THAT CAN BE ADDED TO THIS OVERLAY (ASSUM-
01186  M01S01020.compmac +++|*                   ING THE ORG ADDRESS DOES NOT CHANGE) WITHOUT CAUS-
01187  M01S01021.compmac +++|*                   ING OVERFLOW.
01188  M01S01022.compmac +++|*                *SECTORS NEEDED FOR OVERLAY* = THE NUMBER OF SECTORS
01189  M01S01023.compmac +++|*                   THAT WILL BE READ INTO THE PP WHEN THE OVERLAY IS
01190  M01S01024.compmac +++|*                   LOADED FROM MASS STORAGE.
01191  M01S01025.compmac +++|*
01192  M01S01026.compmac +++|*         NOTE.  THIS MACRO USES A *USE OVERFLOW* PSEUDO OP TO FORCE
01193  M01S01027.compmac +++|*                THE LITERALS BLOCK TO BE DEFINED.  IF THE PROGRAM HAS
01194  M01S01028.compmac +++|*                A USE BLOCK CALLED *OVERFLOW* THE TEST WILL BE
01195  M01S01029.compmac +++|*                INCORRECT.
01196  M01S01030.compmac +++|
01197  M01S01031.compmac +++|
01198  M01S01032.compmac +++|          PURGMAC  OVERFLOW
01199  M01S01033.compmac +++|

Seq #  *Modification Id* Act 
----------------------------+
01200  M02S01034.253l688 ---| OVERFLOW MACRO  O,E
01201  M01S00007.253l688 +++| OVERFLOW MACRO  O,E,C
01202  M01S01035.compmac +++|  MACREF OVERFLOW
01203  M01S01036.compmac +++|  NOREF .1,.2,.3,.4
01204  M01S01037.compmac +++|  USE OVERFLOW
01205  M01S01038.compmac +++|.1 SET O PPFW
01206  M01S01039.compmac +++|.2 SET E 10000B
01207  M01S00008.253l688 +++|.A IFC EQ,/C//
01208  M01S01040.compmac +++|.3 SET *-.1+5+477B
01209  M01S00009.253l688 +++|.A ELSE
01210  M01S00010.253l688 +++|.3 SET *-.1+5+4
01211  M01S00011.253l688 +++|.A ENDIF
01212  M01S01041.compmac +++|.4 SET .2-.1+5
01213  M01S00012.253l688 +++|.A IFC EQ,/C//
01214  M01S01042.compmac +++|          LIST   M
01215  M01S01043.compmac +++|
01216  M01S01044.compmac +++|          ERRNG  .2-.1+5-.3/500B*500B   BYTES LEFT AFTER LAST SECTOR
01217  M01S01045.compmac +++|          ERRNG  .3/500B*500B-*+.1-5    BYTES LEFT IN LAST SECTOR
01218  M01S01046.compmac +++|          ERRNG  .4/500B*500B-*+.1-5    BYTES CAN BE ADDED TO OVERLAY
01219  M01S01047.compmac +++|          ERRNG  .3/500B                SECTORS NEEDED FOR OVERLAY
01220  M01S01048.compmac +++|
01221  M01S01049.compmac +++|          LIST   *
01222  M01S00013.253l688 +++|.A ELSE
01223  M01S00014.253l688 +++|          LIST   M
01224  M01S00015.253l688 +++|
01225  M01S00016.253l688 +++|          ERRNG  .2-.1+5-.3/5*5   BYTES LEFT AFTER LAST WORD
01226  M01S00017.253l688 +++|          ERRNG  .3/5*5-*+.1-5    BYTES LEFT IN LAST WORD
01227  M01S00018.253l688 +++|          ERRNG  .4/5*5-*+.1-5    BYTES CAN BE ADDED TO OVERLAY
01228  M01S00019.253l688 +++|          ERRNG  .3/5             WORDS NEEDED FOR OVERLAY
01229  M01S00020.253l688 +++|
01230  M01S00021.253l688 +++|          LIST   *
01231  M01S00022.253l688 +++|.A ENDIF
01232  M01S01050.compmac +++|  USE *
01233  M01S01051.compmac +++|  ENDM
01234  M01S01052.compmac +++| PAUSE    SPACE  4,10
01235  M01S01053.compmac +++|***       PAUSE - PAUSE FOR RELOCATION AND RESET (RA) AND (FL).
01236  M01S01054.compmac +++|*
01237  M01S01055.compmac +++|*
01238  M01S01056.compmac +++|*         PAUSE  ST
01239  M01S01057.compmac +++|*         ENTRY  ST IF PRESENT INDICATES CM - CM+4 NEED NOT BE STSW
01240  M01S01058.compmac +++|*                UPON EXIT FROM PAUSE.
01241  M01S01059.compmac +++|*         CALLS  FTN.
01242  M01S01060.compmac +++|
01243  M01S01061.compmac +++|
01244  M01S01062.compmac +++|          PURGMAC  PAUSE
01245  M01S01063.compmac +++|
01246  M01S01064.compmac +++| PAUSE    MACRO  ST
01247  M01S01065.compmac +++|  MACREF PAUSE
01248  M01S01066.compmac +++|  MONITOR 0
01249  M01S01067.compmac +++|  IFC EQ,*ST**,3
01250  M01S01068.compmac +++|  LDD CP
01251  M01S01069.compmac +++|  ADN STSW
01252  M01S01070.compmac +++|  CRD CM
01253  M01S01071.compmac +++|  ENDM
01254  M01S01072.compmac +++| PJP      SPACE  4,15
01255  M01S01073.compmac +++|***       PJP - CONDITIONAL POSITIVE SHORT OR LONG JUMP.
01256  M01S01074.compmac +++|*
01257  M01S01075.compmac +++|*         GENERATES EITHER A *PJN* OR THE EQUIVALENT LONG JUMP
01258  M01S01076.compmac +++|*         SERIES, DEPENDING UPON THE VALUE OF THE ADDRESS FIELD,
01259  M01S01077.compmac +++|*         AND UPON WHETHER THE ADDRESS HAS OR HAS NOT YET BEEN
01260  M01S01078.compmac +++|*         DEFINED.
01261  M01S01079.compmac +++|*
01262  M01S01080.compmac +++|*         PJP    ADDR
01263  M01S01081.compmac +++|*
01264  M01S01082.compmac +++|*         ENTRY  ADDR = BRANCH ADDRESS.
01265  M01S01083.compmac +++|*
01266  M01S01084.compmac +++|*         NOTE   DISCRETION SHOULD BE EXERCISED IN THE USE OF
01267  M01S01085.compmac +++|*                THIS MACRO AS IT WILL ALWAYS GENERATE A LONG
01268  M01S01086.compmac +++|*                JUMP SEQUENCE WHEN BRANCHING FORWARD.
01269  M01S01087.compmac +++|
01270  M01S01088.compmac +++|
01271  M01S01089.compmac +++|          PURGMAC  PJP
01272  M01S01090.compmac +++|
01273  M01S01091.compmac +++| PJP      MACRO  A
01274  M01S01092.compmac +++|.J IF DEF,A
01275  M01S01093.compmac +++|.J IFLE *-A,37B
01276  M01S01094.compmac +++|.J IFPL *-A
01277  M01S01095.compmac +++|  PJN A
01278  M01S01096.compmac +++|.J ELSE
01279  M01S01097.compmac +++|  MJN *+3
01280  M01S01098.compmac +++|  LJM A
01281  M01S01099.compmac +++|.J ENDIF
01282  M01S01100.compmac +++| PJP      ENDM
01283  M01S01101.compmac +++| RCHAN    SPACE  4,10
01284  M01S01102.compmac +++|***       RCHAN - REQUEST CHANNEL.
01285  M01S01103.compmac +++|*
01286  M01S01104.compmac +++|*
01287  M01S01105.compmac +++|*         RCHAN
01288  M01S01106.compmac +++|*         ENTRY  (A) = CHANNEL NUMBER.
01289  M01S01107.compmac +++|
01290  M01S01108.compmac +++|
01291  M01S01109.compmac +++|          PURGMAC  RCHAN
01292  M01S01110.compmac +++|
01293  M01S01111.compmac +++| RCHAN    MACRO  CH
01294  M01S01112.compmac +++|  MACREF RCHAN
01295  M01S01113.compmac +++|  STD CM+1
01296  M01S01114.compmac +++|  STD CM+2
01297  M01S01115.compmac +++|  MONITOR RCHM
01298  M01S01116.compmac +++|  ENDM
01299  M01S01117.compmac +++| SBK      SPACE  4,15
01300  M01S01118.compmac +++|***       SBK - SUBTRACT CONSTANT FROM (A).
01301  M01S01119.compmac +++|*
01302  M01S01120.compmac +++|*         GENERATES EITHER AN *ADC*, *SBN*, OR *ADN* INSTRUCTION,
01303  M01S01121.compmac +++|*         DEPENDING UPON THE VALUE OF THE OPERAND.  IF THE VALUE
01304  M01S01122.compmac +++|*         OF THE OPERAND REDUCES TO ZERO, NO INSTRUCTION WILL BE
01305  M01S01123.compmac +++|*         GENERATED.
01306  M01S01124.compmac +++|*
01307  M01S01125.compmac +++|*         SBK    K
01308  M01S01126.compmac +++|*
01309  M01S01127.compmac +++|*         ENTRY  K = CONSTANT TO BE SUBTRACTED FROM (A).
01310  M01S01128.compmac +++|*
01311  M01S01129.compmac +++|*         NOTE   BECAUSE OF THE VARIABILITY OF THE CODE
01312  M01S01130.compmac +++|*                GENERATED BY THIS MACRO, IT MUST NOT BE
01313  M01S01131.compmac +++|*                CHANGED BY ON-LINE CODE MODIFICATION.
01314  M01S01132.compmac +++|
01315  M01S01133.compmac +++|
01316  M01S01134.compmac +++|          PURGMAC  SBK
01317  M01S01135.compmac +++|
01318  M01S01136.compmac +++| SBK      MACRO  K
01319  M01S01137.compmac +++|  LOCAL B
01320  M01S01138.compmac +++|  IF DEF,K,3
01321  M01S01139.compmac +++|.1 SET K
01322  M01S01140.compmac +++|  ADK -.1

Seq #  *Modification Id* Act 
----------------------------+
01323  M02S01141.pmac5   ---|  SKIP 5
01324  M01S00001.pmac5   +++|  SKIP 8D
01325  M01S00002.pmac5   +++|B MICRO 1,, "QUAL"
01326  M01S01142.compmac +++|  RMT
01327  M01S00003.pmac5   +++|  QUAL "B"
01328  M01S01143.compmac +++|B EQU K
01329  M01S00004.pmac5   +++|  QUAL *
01330  M01S01144.compmac +++|  RMT
01331  M01S01145.compmac +++|.1 MICRO 1,,*B*
01332  M01S01146.compmac +++|  ADC -".1"
01333  M01S01147.compmac +++| SBK      ENDM
01334  M01S01148.compmac +++| SETMS    SPACE  4,30
01335  M01S01149.compmac +++|***       SETMS - SELECT MASS STORAGE PROCESSING DRIVER AND OPTIONS.
01336  M01S01150.compmac +++|*
01337  M01S01151.compmac +++|*         THE *SETMS* MACRO LOADS A MASS STORAGE DRIVER APPROPRIATE
01338  M01S01152.compmac +++|*         FOR THE OPERATION TO BE PERFORMED AND SELECTS THE DESIRED
01339  M01S01153.compmac +++|*         ERROR PROCESSING OPTIONS.  THE DRIVER INTERFACE IS FULLY
01340  M01S01154.compmac +++|*         DOCUMENTED IN *PPR*.
01341  M01S01155.compmac +++|*
01342  M01S01156.compmac +++|*
01343  M01S01157.compmac +++|*         SETMS  OP,(EP1,EP2,... ,EPN),AD
01344  M01S01158.compmac +++|*
01345  M01S01159.compmac +++|*         OP     OPERATION TO PERFORM.
01346  M01S01160.compmac +++|*                IO      = NORMAL I/O OPERATION SELECTION.
01347  M01S01161.compmac +++|*                PIO     = PRIVILEGED I/O.  DRIVER NAME IS FORCED
01348  M01S01162.compmac +++|*                          TO *6DI* FOR 7155-TYPE BUFFERED DEVICES.
01349  M01S01163.compmac +++|*                READSTR = READ STREAM DEVICE.  THIS OPTION APPLIES TO
01350  M01S01164.compmac +++|*                          BUFFERED DEVICES ONLY.
01351  M01S01165.compmac +++|*                READSYS = READ SYSTEM FILE.  THE EST ORDINAL MAY BE
01352  M01S01166.compmac +++|*                          RESET BY *MTR* TO A BETTER DEVICE.  THIS
01353  M01S01167.compmac +++|*                          OPERATION TYPE IMPLIES SELECTION OF THE
01354  M01S01168.compmac +++|*                          *EPNS* ERROR PROCESSING OPTION IN THAT *MTR*
01355  M01S01169.compmac +++|*                          WILL NOT RETURN THE *LNRE* ERROR FLAG FOR AN
01356  M01S01170.compmac +++|*                          OFF OR SUSPECT DEVICE IF THE *READSYS*
01357  M01S01171.compmac +++|*                          OPERATION TYPE IS IN EFFECT.
01358  M01S01172.compmac +++|*                STATUS  = RETURN LOGICAL STATUS.  THE NORMAL *SETMS*
01359  M01S01173.compmac +++|*                          RETURN PARAMETERS ARE SET BUT THE DRIVER IS
01360  M01S01174.compmac +++|*                          NOT RELOADED.
01361  M01S01175.compmac +++|*                NODRIVER= THE CURRENT DRIVER IS INVALIDATED SUCH THAT
01362  M01S01176.compmac +++|*                          THE NEXT SETMS WILL LOAD A NEW DRIVER.
01363  M01S01177.compmac +++|*                POSITION= CELL *DRSW* IS CLEARED SO THAT A SEEK WILL
01364  M01S01178.compmac +++|*                          BE PERFORMED THE NEXT TIME THE DRIVER IS
01365  M01S01179.compmac +++|*                          CALLED.
01366  M01S01180.compmac +++|*
01367  M01S01181.compmac +++|*         EPX    ERROR PROCESSING OPTIONS.
01368  M01S01182.compmac +++|*                AD = ALLOW ACCESS OF *DOWN* DEVICE.
01369  M01S01183.compmac +++|*                AR = RETURN TO THE CALLER IMMEDIATELY FOR ANY TYPE
01370  M01S01184.compmac +++|*                     OF ERROR.
01371  M01S01185.compmac +++|*                DE = DISABLE *ENDMS*.
01372  M01S01186.compmac +++|*                DF = DISABLE FAILURE EVALUATION.  THE DEVICE WILL NOT
01373  M01S01187.compmac +++|*                     BE FLAGGED AS SUSPECT NOR WILL A TRACK BE SET IN
01374  M01S01188.compmac +++|*                     THE MST WHEN A MEDIA ERROR OCCURS.
01375  M01S01189.compmac +++|*                ER = RETURN TO CALLER FOR NORMAL ERROR CONDITIONS.
01376  M01S01190.compmac +++|*                     NORMAL ERRORS ARE THOSE NOT INCLUDED AMOUNG
01377  M01S01191.compmac +++|*                     RESERVE ERROR TYPES.
01378  M01S01192.compmac +++|*                ND = NO LEVEL 1 DIAGNOSTICS SHOULD BE RUN
01379  M01S01193.compmac +++|*                     (ISD DEVICES ONLY).
01380  M01S01194.compmac +++|*                NF = NO FLUSH OF EXTENDED MEMORY BUFFER ON *WLSF*
01381  M01S01195.compmac +++|*                     FUNCTION (BUFFERED DEVICES ONLY).
01382  M01S01196.compmac +++|*                NR = IMMEDIATE RETURN ON *DEVICE NOT READY* CONDITION.
01383  M01S01197.compmac +++|*                NS = IGNORE DEVICE STATE.  THIS OPTION IS USED BY PP
01384  M01S01198.compmac +++|*                     PROGRAMS ATTEMPT TO ACCESS A DEVICE REGARDLESS OF
01385  M01S01199.compmac +++|*                     ITS LOGICAL STATUS.
01386  M01S01200.compmac +++|*                RR = IMMEDIATE RETURN ON RESERVE ERRORS.
01387  M01S01201.compmac +++|*                RW = REWRITE DATA OPERATION, RECOPY OF EXISTING DATA
01388  M01S01202.compmac +++|*                     (BUFFERED DEVICES ONLY).
01389  M01S01203.compmac +++|*                SM = DISALLOW *1DD* LOAD INTO THIS PP.
01390  M01S01204.compmac +++|*
01391  M01S01205.compmac +++|*         AD     ADDRESS OF WRITE ERROR PROCESSING BUFFER
01392  M01S01206.compmac +++|*
01393  M01S01207.compmac +++|*         THIS MACRO MAY BE CALLED FOR CROSS REFERENCE PURPOSES
01394  M01S01208.compmac +++|*         WITHOUT GENERATING CODE VIA THE FOLLOWING FORMAT -
01395  M01S01209.compmac +++|*
01396  M01S01210.compmac +++|*                SETMS   =,OP,(EP1,EP2,...,EPN),AD
01397  M01S01211.compmac +++|*
01398  M01S01212.compmac +++|*         NOTE - THIS MACRO IS THE ONLY SUPPORTED INTERFACE TO THE
01399  M01S01213.compmac +++|*         *.SMS* PPR ENTRY POINT.  THE VALUE OF THIS SYMBOL IS
01400  M01S01214.compmac +++|*         DEFINED IN *COMSMSP* AND *PPCOM*.
01401  M01S01215.compmac +++|
01402  M01S01216.compmac +++|
01403  M01S01217.compmac +++|          PURGMAC  SETMS
01404  M01S01218.compmac +++|
01405  M01S01219.compmac +++| SETMS    MACRO  O,E,A
01406  M01S01220.compmac +++|  MACREF SETMS
01407  M01S01221.compmac +++|  IFC EQ,*O*PREAD*,1
01408  M01S01222.compmac +++|  SKIP 1
01409  M01S01223.compmac +++|.1 IFC EQ,*O*PWRITE*
01410  M01S01224.compmac +++|.2 IF DEF,REL=
01411  M01S01225.compmac +++|.2 IFEQ REL=,1
01412  M01S01226.compmac +++|  LDD LA
01413  M01S01227.compmac +++|  ADC *+5
01414  M01S01228.compmac +++|.2 ELSE
01415  M01S01229.compmac +++|  LDC *+5
01416  M01S01230.compmac +++|.2 ENDIF
01417  M01S01231.compmac +++|  STP .SMSB
01418  M01S01232.compmac +++|  LDC 2RDI
01419  M01S01233.compmac +++|.1 ENDIF
01420  M01S01234.compmac +++|  NOREF .1,.2,.3,.4
01421  M01S01235.compmac +++|.1 IFC NE,*O*=*
01422  M01S01236.compmac +++|  IFC EQ,*O*POSITION*,3
01423  M01S01237.compmac +++|  LDN 0
01424  M01S01238.compmac +++|  STI D1
01425  M01S01239.compmac +++|.1 SKIP
01426  M01S01240.compmac +++|  IFC EQ,*O*NODRIVER*,3
01427  M01S01241.compmac +++|  LDN 0
01428  M01S01242.compmac +++|  STP MSD
01429  M01S01243.compmac +++|.1 SKIP
01430  M01S01244.compmac +++|.2 SET 0
01431  M01S01245.compmac +++|.3 SET 10
01432  M01S01246.compmac +++|  ECHO ,SO=(IO,PIO,PIOCH,READSYS,READSTR,STATUS,IOCH)
01433  M01S01247.compmac +++|.2 SET .2+1
01434  M01S01248.compmac +++|.4 IFC EQ,$SO$O$
01435  M01S01249.compmac +++|._O EQU .2-1
01436  M01S01250.compmac +++|.3 SET ._O
01437  M01S01251.compmac +++|  STOPDUP
01438  M01S01252.compmac +++|.4 ENDIF
01439  M01S01253.compmac +++|  ENDD
01440  M01S01254.compmac +++|.4 IFEQ .3,10
01441  M01S01255.compmac +++|  ERR ILLEGAL SETMS OPTION - O
01442  M01S01256.compmac +++|.4 ELSE
01443  M01S01257.compmac +++|  IRP E
01444  M01S01258.compmac +++|.3 SET .3+EP_E*10B
01445  M01S01259.compmac +++|  IRP
01446  M01S01260.compmac +++|  IFC NE,*A**,3
01447  M01S01261.compmac +++|.3 SET .3+400000B
01448  M01S01262.compmac +++|  LDC A
01449  M01S01263.compmac +++|  STP WDSE
01450  M01S01264.compmac +++|  LDK .3
01451  M01S01265.compmac +++|  RJP .SMS
01452  M01S01266.compmac +++|.4 ENDIF
01453  M01S01267.compmac +++|.1 ENDIF
01454  M01S01268.compmac +++|  ENDM
01455  M01S01269.compmac +++| SFA      SPACE  4,25
01456  M01S01270.compmac +++|***       SFA - CALCULATE FIRST WORD ADDRESS IN MANAGED TABLE.
01457  M01S01271.compmac +++|*
01458  M01S01272.compmac +++|*         GIVEN AN ORDINAL IN A MANAGED TABLE (CLT, EJT, EST, SYSTEM
01459  M01S01273.compmac +++|*         FNT OR QFT), THE *SFA* MACRO CALCULATES THE TABLE ADDRSS OF
01460  M01S01274.compmac +++|*         THE FIRST WORD OF THE ENTRY BY CALLING THE APPROPRIATE
01461  M01S01275.compmac +++|*         PROCESSOR IN THE COMMON DECK *COMPGFP*.  IN THE CASE OF THE
01462  M01S01276.compmac +++|*         EST, THE *PPR* ROUTINE IS NORMALLY USED.
01463  M01S01277.compmac +++|*
01464  M01S01278.compmac +++|*         SFA    TABLE,ORD
01465  M01S01279.compmac +++|*
01466  M01S01280.compmac +++|*         ENTRY  TABLE = MANAGED TABLE MNEMONIC.
01467  M01S01281.compmac +++|*                      CLT = COMMON LIBRARIES TABLE.
01468  M01S01282.compmac +++|*                      EJT = EXECUTING JOB TABLE.
01469  M01S01283.compmac +++|*                      EST = EQUIPMENT STATUS TABLE.
01470  M01S01284.compmac +++|*                      FNT = SYSTEM FNT TABLE.
01471  M01S00029.271l750 +++|*                      JCB = JOB CONTROL BLOCK TABLE.
01472  M01S01285.compmac +++|*                      QFT = QUEUE FILE TABLE.
01473  M01S00015.274l797 +++|*                      ORT = OPTICAL DISK REQUEST TABLE.
01474  M01S01286.compmac +++|*                ORD = OPTIONAL DIRECT CELL OR MEMORY LOCATION
01475  M01S01287.compmac +++|*                      CONTAINING TABLE ORDINAL.
01476  M01S01288.compmac +++|*                (A) = TABLE ORDINAL, IF *ORD* NOT SPECIFIED.
01477  M01S01289.compmac +++|*
01478  M01S01290.compmac +++|*         EXIT   (A) = ABSOLUTE ADDRESS OF TABLE ENTRY.
01479  M01S01291.compmac +++|*

Seq #  *Modification Id* Act 
----------------------------+
01480  M02S01292.271l750 ---|*         CALLS  .CLT, .EJT, .EST, .FNT, .QFT.

Seq #  *Modification Id* Act 
----------------------------+
01481  M02S00030.274l797 ---|*         CALLS  .CLT, .EJT, .EST, .FNT, .JCB, .QFT.
01482  M01S00016.274l797 +++|*         CALLS  .CLT, .EJT, .EST, .FNT, .JCB, .QFT, .ORT.
01483  M01S01293.compmac +++|
01484  M01S01294.compmac +++|
01485  M01S01295.compmac +++|          PURGMAC  SFA
01486  M01S01296.compmac +++|
01487  M01S01297.compmac +++| SFA      MACRO  T,R
01488  M01S01298.compmac +++|  MACREF SFA
01489  M01S01299.compmac +++|.1 SET 0

Seq #  *Modification Id* Act 
----------------------------+
01490  M02S01300.271l750 ---|.A ECHO ,TB=(CLT,EJT,EST,FNT,QFT)

Seq #  *Modification Id* Act 
----------------------------+
01491  M02S00031.274l797 ---|.A ECHO ,TB=(CLT,EJT,EST,FNT,JCB,QFT)
01492  M01S00017.274l797 +++|.A ECHO ,TB=(CLT,EJT,EST,FNT,JCB,QFT,ORT)
01493  M01S01301.compmac +++|.B IFC EQ,$TB$T$
01494  M01S01302.compmac +++|.1 SET 1
01495  M01S01303.compmac +++|  STOPDUP
01496  M01S01304.compmac +++|.B ENDIF
01497  M01S01305.compmac +++|.A ENDD
01498  M01S01306.compmac +++|.A IFEQ .1,1
01499  M01S01307.compmac +++|.B IFC NE,$R$$
01500  M01S01308.compmac +++|.C IFLT R,100B
01501  M01S01309.compmac +++|  LDD R
01502  M01S01310.compmac +++|.C ELSE
01503  M01S01311.compmac +++|  LDM R
01504  M01S01312.compmac +++|.C ENDIF
01505  M01S01313.compmac +++|.B ENDIF
01506  M01S01314.compmac +++|.B IFC NE,/T/EST/
01507  M01S01315.compmac +++|  RJM .T
01508  M01S01316.compmac +++|.B ELSE
01509  M01S01317.compmac +++|  RJP .T
01510  M01S01318.compmac +++|.B ENDIF
01511  M01S01319.compmac +++|.A ELSE
01512  M01S01320.compmac +++|  ERR ILLEGAL TABLE TYPE - T
01513  M01S01321.compmac +++|.A ENDIF
01514  M01S01322.compmac +++| SFA      ENDM
01515  M01S01323.compmac +++| SHK      SPACE  4,15
01516  M01S01324.compmac +++|***       SHK - CONDITIONALLY GENERATE SHIFT INSTRUCTION.
01517  M01S01325.compmac +++|*
01518  M01S01326.compmac +++|*         GENERATES A *SHN* INSTRUCTION IF THE VALUE
01519  M01S01327.compmac +++|*         OF THE OPERAND IS NON-ZERO.
01520  M01S01328.compmac +++|*
01521  M01S01329.compmac +++|*         SHK    K
01522  M01S01330.compmac +++|*
01523  M01S01331.compmac +++|*         ENTRY  K = SHIFT COUNT.
01524  M01S01332.compmac +++|*
01525  M01S01333.compmac +++|*         NOTE   BECAUSE OF THE VARIABILITY OF THE CODE
01526  M01S01334.compmac +++|*                GENERATED BY THIS MACRO, IT MUST NOT BE
01527  M01S01335.compmac +++|*                CHANGED BY ON-LINE CODE MODIFICATION.
01528  M01S01336.compmac +++|
01529  M01S01337.compmac +++|
01530  M01S01338.compmac +++|          PURGMAC SHK
01531  M01S01339.compmac +++|
01532  M01S01340.compmac +++| SHK      MACRO  K
01533  M01S01341.compmac +++|  IFNE K,0,1
01534  M01S01342.compmac +++|  SHN K
01535  M01S01343.compmac +++| SHK      ENDM
01536  M01S01344.compmac +++| SUBR     SPACE  4,10
01537  M01S01345.compmac +++|***       SUBR - DEFINE SUBROUTINE ENTRY/EXIT LINE.
01538  M01S01346.compmac +++|*
01539  M01S01347.compmac +++|*
01540  M01S01348.compmac +++|*NAME     SUBR   RTN
01541  M01S01349.compmac +++|*         DECLARE *NAME* TO BE THE ENTRY POINT TO A PP SUBROUTINE.
01542  M01S01350.compmac +++|*         THIS SUBROUTINE IS ENTERED VIA RETURN JUMP TO *NAME*.
01543  M01S01351.compmac +++|*         *RTN* = OPTIONAL RETURN IF NOT ENTERED VIA RETURN JUMP.
01544  M01S01352.compmac +++|*
01545  M01S01353.compmac +++|*         THE FOLLOWING CODE IS GENERATED -
01546  M01S01354.compmac +++|*NAMEX    LJM    RTN         OR
01547  M01S01355.compmac +++|*NAMEX    LJM    *
01548  M01S01356.compmac +++|*NAME     EQU    *-1
01549  M01S01357.compmac +++|
01550  M01S01358.compmac +++|
01551  M01S01359.compmac +++|          PURGMAC  SUBR
01552  M01S01360.compmac +++|
01553  M01S01361.compmac +++|          MACRO  SUBR,A,B

Seq #  *Modification Id* Act 
----------------------------+
01554  M02S01362.ns2552  ---|.1 SET B *

Seq #  *Modification Id* Act 
----------------------------+
01555  M02S01363.ns2552  ---|A_X LJP .1
01556  M01S00001.ns2552  +++|          IFC    EQ,$B$$,2
01557  M01S00002.ns2552  +++| A_X      LJP    *
01558  M01S00003.ns2552  +++|          ELSE   1
01559  M01S00004.ns2552  +++| A_X      LJP    B
01560  M01S01364.compmac +++|A EQU *-1
01561  M01S01365.compmac +++|  ENDM
01562  M01S00024.273l780 +++| TADC     SPACE  4,10
01563  M01S00025.273l780 +++|***       TADC - RELOCATABLE *ADC* INSTRUCTION.
01564  M01S00026.273l780 +++|*
01565  M01S00027.273l780 +++|*         ASSEMBLES AN *ADC* INSTRUCTION AND INFORMATION TO ALLOW THE
01566  M01S00028.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01567  M01S00029.273l780 +++|*
01568  M01S00030.273l780 +++|*         TADC   C,R
01569  M01S00031.273l780 +++|*
01570  M01S00032.273l780 +++|*         ENTRY  C = CONSTANT TO BE ASSEMBLED INTO *ADC* INSTRUCTION.
01571  M01S00033.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *C* BY *COMPSIC*.
01572  M01S00034.273l780 +++|
01573  M01S00035.273l780 +++|
01574  M01S00036.273l780 +++|          PURGMAC  TADC
01575  M01S00037.273l780 +++|
01576  M01S00038.273l780 +++| TADC     MACRO  C,R
01577  M01S00039.273l780 +++|          LOCAL  A
01578  M01S00040.273l780 +++| A        EQU    *
01579  M01S00041.273l780 +++|          ADC    C
01580  M01S00042.273l780 +++| SIC      RMT
01581  M01S00043.273l780 +++|          CON    A
01582  M01S00044.273l780 +++|          CON    R
01583  M01S00045.273l780 +++| SIC      RMT
01584  M01S00046.273l780 +++| TADC     ENDM
01585  M01S00047.273l780 +++| TADM     SPACE  4,10
01586  M01S00048.273l780 +++|***       TADM - RELOCATABLE *ADM* INSTRUCTION.
01587  M01S00049.273l780 +++|*
01588  M01S00050.273l780 +++|*         ASSEMBLES AN *ADM* INSTRUCTION AND INFORMATION TO ALLOW THE
01589  M01S00051.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01590  M01S00052.273l780 +++|*
01591  M01S00053.273l780 +++|*         TADM   M,D,R
01592  M01S00054.273l780 +++|*
01593  M01S00055.273l780 +++|*         ENTRY  M = CONSTANT TO BE ASSEMBLED INTO *ADM* INSTRUCTION.
01594  M01S00056.273l780 +++|*                D = DIRECT CELL.
01595  M01S00057.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*.
01596  M01S00058.273l780 +++|
01597  M01S00059.273l780 +++|
01598  M01S00060.273l780 +++|          PURGMAC  TADM
01599  M01S00061.273l780 +++|
01600  M01S00062.273l780 +++| TADM     MACRO  M,D,R
01601  M01S00063.273l780 +++|          LOCAL  A
01602  M01S00064.273l780 +++| A        EQU    *
01603  M01S00065.273l780 +++|          IFC    EQ,$D$$,1
01604  M01S00066.273l780 +++|          ADM    M
01605  M01S00067.273l780 +++|          ELSE   1
01606  M01S00068.273l780 +++|          ADM    M,D
01607  M01S00069.273l780 +++| SIC      RMT
01608  M01S00070.273l780 +++|          CON    A
01609  M01S00071.273l780 +++|          CON    R
01610  M01S00072.273l780 +++| SIC      RMT
01611  M01S00073.273l780 +++| TADM     ENDM
01612  M01S00074.273l780 +++| TADN     SPACE  4,10
01613  M01S00075.273l780 +++|***       TADN - RELOCATABLE *ADN* INSTRUCTION.
01614  M01S00076.273l780 +++|*
01615  M01S00077.273l780 +++|*         ASSEMBLES AN *ADN* INSTRUCTION AND INFORMATION TO ALLOW THE
01616  M01S00078.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01617  M01S00079.273l780 +++|*
01618  M01S00080.273l780 +++|*         TADN   N,R
01619  M01S00081.273l780 +++|*
01620  M01S00082.273l780 +++|*         ENTRY  N = CONSTANT TO BE ASSEMBLED INTO *ADN* INSTRUCTION.
01621  M01S00083.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*.
01622  M01S00084.273l780 +++|
01623  M01S00085.273l780 +++|
01624  M01S00086.273l780 +++|          PURGMAC  TADN
01625  M01S00087.273l780 +++|
01626  M01S00088.273l780 +++| TADN     MACRO  N,R
01627  M01S00089.273l780 +++|          LOCAL  A
01628  M01S00090.273l780 +++| A        EQU    *-1
01629  M01S00091.273l780 +++|          ADN    N
01630  M01S00092.273l780 +++| SIC      RMT
01631  M01S00093.273l780 +++|          CON    A
01632  M01S00094.273l780 +++|          CON    R
01633  M01S00095.273l780 +++| SIC      RMT
01634  M01S00096.273l780 +++| TADN     ENDM
01635  M01S00097.273l780 +++| TAOM     SPACE  4,10
01636  M01S00098.273l780 +++|***       TAOM - RELOCATABLE *AOM* INSTRUCTION.
01637  M01S00099.273l780 +++|*
01638  M01S00100.273l780 +++|*         ASSEMBLES AN *AOM* INSTRUCTION AND INFORMATION TO ALLOW THE
01639  M01S00101.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01640  M01S00102.273l780 +++|*
01641  M01S00103.273l780 +++|*         TAOM   M,D,R
01642  M01S00104.273l780 +++|*
01643  M01S00105.273l780 +++|*         ENTRY  M = CONSTANT TO BE ASSEMBLED INTO *AOM* INSTRUCTION.
01644  M01S00106.273l780 +++|*                D = DIRECT CELL.
01645  M01S00107.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*.
01646  M01S00108.273l780 +++|
01647  M01S00109.273l780 +++|
01648  M01S00110.273l780 +++|          PURGMAC  TAOM
01649  M01S00111.273l780 +++|
01650  M01S00112.273l780 +++| TAOM     MACRO  M,D,R
01651  M01S00113.273l780 +++|          LOCAL  A
01652  M01S00114.273l780 +++| A        EQU    *
01653  M01S00115.273l780 +++|          IFC    EQ,$D$$,1
01654  M01S00116.273l780 +++|          AOM    M
01655  M01S00117.273l780 +++|          ELSE   1
01656  M01S00118.273l780 +++|          AOM    M,D
01657  M01S00119.273l780 +++| SIC      RMT
01658  M01S00120.273l780 +++|          CON    A
01659  M01S00121.273l780 +++|          CON    R
01660  M01S00122.273l780 +++| SIC      RMT
01661  M01S00123.273l780 +++| TAOM     ENDM
01662  M01S00124.273l780 +++| TLCN     SPACE  4,10
01663  M01S00125.273l780 +++|***       TLCN - RELOCATABLE *LCN* INSTRUCTION.
01664  M01S00126.273l780 +++|*
01665  M01S00127.273l780 +++|*         ASSEMBLES AN *LCN* INSTRUCTION AND INFORMATION TO ALLOW THE
01666  M01S00128.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01667  M01S00129.273l780 +++|*
01668  M01S00130.273l780 +++|*         TLCN   N,R
01669  M01S00131.273l780 +++|*
01670  M01S00132.273l780 +++|*         ENTRY  N = CONSTANT TO BE ASSEMBLED INTO *LCN* INSTRUCTION.
01671  M01S00133.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*.
01672  M01S00134.273l780 +++|
01673  M01S00135.273l780 +++|
01674  M01S00136.273l780 +++|          PURGMAC  TLCN
01675  M01S00137.273l780 +++|
01676  M01S00138.273l780 +++| TLCN     MACRO  N,R
01677  M01S00139.273l780 +++|          LOCAL  A
01678  M01S00140.273l780 +++| A        EQU    *-1
01679  M01S00141.273l780 +++|          LCN    N
01680  M01S00142.273l780 +++| SIC      RMT
01681  M01S00143.273l780 +++|          CON    A
01682  M01S00144.273l780 +++|          CON    R
01683  M01S00145.273l780 +++| SIC      RMT
01684  M01S00146.273l780 +++| TLCN     ENDM
01685  M01S00147.273l780 +++| TLDC     SPACE  4,10
01686  M01S00148.273l780 +++|***       TLDC - RELOCATABLE *LDC* INSTRUCTION.
01687  M01S00149.273l780 +++|*
01688  M01S00150.273l780 +++|*         ASSEMBLES AN *LDC* INSTRUCTION AND INFORMATION TO ALLOW THE
01689  M01S00151.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01690  M01S00152.273l780 +++|*
01691  M01S00153.273l780 +++|*         TLDC   C,R
01692  M01S00154.273l780 +++|*
01693  M01S00155.273l780 +++|*         ENTRY  C = CONSTANT TO BE ASSEMBLED INTO *LDC* INSTRUCTION.
01694  M01S00156.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *C* BY *COMPSIC*.
01695  M01S00157.273l780 +++|
01696  M01S00158.273l780 +++|
01697  M01S00159.273l780 +++|          PURGMAC  TLDC
01698  M01S00160.273l780 +++|
01699  M01S00161.273l780 +++| TLDC     MACRO  C,R
01700  M01S00162.273l780 +++|          LOCAL  A
01701  M01S00163.273l780 +++| A        EQU    *
01702  M01S00164.273l780 +++|          LDC    C
01703  M01S00165.273l780 +++| SIC      RMT
01704  M01S00166.273l780 +++|          CON    A
01705  M01S00167.273l780 +++|          CON    R
01706  M01S00168.273l780 +++| SIC      RMT
01707  M01S00169.273l780 +++| TLDC     ENDM
01708  M01S00170.273l780 +++| TLDM     SPACE  4,10
01709  M01S00171.273l780 +++|***       TLDM - RELOCATABLE *LDM* INSTRUCTION.
01710  M01S00172.273l780 +++|*
01711  M01S00173.273l780 +++|*         ASSEMBLES AN *LDM* INSTRUCTION AND INFORMATION TO ALLOW THE
01712  M01S00174.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01713  M01S00175.273l780 +++|*
01714  M01S00176.273l780 +++|*         TLDM   M,D,R
01715  M01S00177.273l780 +++|*
01716  M01S00178.273l780 +++|*         ENTRY  M = CONSTANT TO BE ASSEMBLED INTO *LDM* INSTRUCTION.
01717  M01S00179.273l780 +++|*                D = DIRECT CELL.
01718  M01S00180.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*.
01719  M01S00181.273l780 +++|
01720  M01S00182.273l780 +++|
01721  M01S00183.273l780 +++|          PURGMAC  TLDM
01722  M01S00184.273l780 +++|
01723  M01S00185.273l780 +++| TLDM     MACRO  M,D,R
01724  M01S00186.273l780 +++|          LOCAL  A
01725  M01S00187.273l780 +++| A        EQU    *
01726  M01S00188.273l780 +++|          IFC    EQ,$D$$,1
01727  M01S00189.273l780 +++|          LDM    M
01728  M01S00190.273l780 +++|          ELSE   1
01729  M01S00191.273l780 +++|          LDM    M,D
01730  M01S00192.273l780 +++| SIC      RMT
01731  M01S00193.273l780 +++|          CON    A
01732  M01S00194.273l780 +++|          CON    R
01733  M01S00195.273l780 +++| SIC      RMT
01734  M01S00196.273l780 +++| TLDM     ENDM
01735  M01S00197.273l780 +++| TLDN     SPACE  4,10
01736  M01S00198.273l780 +++|***       TLDN - RELOCATABLE *LDN* INSTRUCTION.
01737  M01S00199.273l780 +++|*
01738  M01S00200.273l780 +++|*         ASSEMBLES AN *LDN* INSTRUCTION AND INFORMATION TO ALLOW THE
01739  M01S00201.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01740  M01S00202.273l780 +++|*
01741  M01S00203.273l780 +++|*         TLDN   N,R
01742  M01S00204.273l780 +++|*
01743  M01S00205.273l780 +++|*         ENTRY  N = CONSTANT TO BE ASSEMBLED INTO *LDN* INSTRUCTION.
01744  M01S00206.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*.
01745  M01S00207.273l780 +++|
01746  M01S00208.273l780 +++|
01747  M01S00209.273l780 +++|          PURGMAC  TLDN
01748  M01S00210.273l780 +++|
01749  M01S00211.273l780 +++| TLDN     MACRO  N,R
01750  M01S00212.273l780 +++|          LOCAL  A
01751  M01S00213.273l780 +++| A        EQU    *-1
01752  M01S00214.273l780 +++|          LDN    N
01753  M01S00215.273l780 +++| SIC      RMT
01754  M01S00216.273l780 +++|          CON    A
01755  M01S00217.273l780 +++|          CON    R
01756  M01S00218.273l780 +++| SIC      RMT
01757  M01S00219.273l780 +++| TLDN     ENDM
01758  M01S00220.273l780 +++| TLMC     SPACE  4,10
01759  M01S00221.273l780 +++|***       TLMC - RELOCATABLE *LMC* INSTRUCTION.
01760  M01S00222.273l780 +++|*
01761  M01S00223.273l780 +++|*         ASSEBLES AN *LMC* INSTRUCTION AND INFORMATION TO ALLOW THE
01762  M01S00224.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01763  M01S00225.273l780 +++|*
01764  M01S00226.273l780 +++|*         TLMC   C,R
01765  M01S00227.273l780 +++|*
01766  M01S00228.273l780 +++|*         ENTRY  C = CONSTANT TO BE ASSEMBLED INTO *LMC* INSTRUCTION.
01767  M01S00229.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *C* BY *COMPSIC*.
01768  M01S00230.273l780 +++|
01769  M01S00231.273l780 +++|
01770  M01S00232.273l780 +++|          PURGMAC  TLMC
01771  M01S00233.273l780 +++|
01772  M01S00234.273l780 +++| TLMC     MACRO  C,R
01773  M01S00235.273l780 +++|          LOCAL  A
01774  M01S00236.273l780 +++| A        EQU    *
01775  M01S00237.273l780 +++|          LMC    C
01776  M01S00238.273l780 +++| SIC      RMT
01777  M01S00239.273l780 +++|          CON    A
01778  M01S00240.273l780 +++|          CON    R
01779  M01S00241.273l780 +++| SIC      RMT
01780  M01S00242.273l780 +++| TLMC     ENDM
01781  M01S00243.273l780 +++| TLMM     SPACE  4,10
01782  M01S00244.273l780 +++|***       TLMM - RELOCATABLE *LMM* INSTRUCTION.
01783  M01S00245.273l780 +++|*
01784  M01S00246.273l780 +++|*         ASSEMBLES AN *LMM* INSTRUCTION AND INFORMATION TO ALLOW THE
01785  M01S00247.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01786  M01S00248.273l780 +++|*
01787  M01S00249.273l780 +++|*         TLMM   M,D,R
01788  M01S00250.273l780 +++|*
01789  M01S00251.273l780 +++|*         ENTRY  M = CONSTANT TO BE ASSEMBLED INTO *LMM* INSTRUCTION.
01790  M01S00252.273l780 +++|*                D = DIRECT CELL.
01791  M01S00253.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*.
01792  M01S00254.273l780 +++|
01793  M01S00255.273l780 +++|
01794  M01S00256.273l780 +++|          PURGMAC  TLMM
01795  M01S00257.273l780 +++|
01796  M01S00258.273l780 +++| TLMM     MACRO  M,D,R
01797  M01S00259.273l780 +++|          LOCAL  A
01798  M01S00260.273l780 +++| A        EQU    *
01799  M01S00261.273l780 +++|          IFC    EQ,$D$$,1
01800  M01S00262.273l780 +++|          LMM    M
01801  M01S00263.273l780 +++|          ELSE   1
01802  M01S00264.273l780 +++|          LMM    M,D
01803  M01S00265.273l780 +++| SIC      RMT
01804  M01S00266.273l780 +++|          CON    A
01805  M01S00267.273l780 +++|          CON    R
01806  M01S00268.273l780 +++| SIC      RMT
01807  M01S00269.273l780 +++| TLMM     ENDM
01808  M01S00270.273l780 +++| TLMN     SPACE  4,10
01809  M01S00271.273l780 +++|***       TLMN - RELOCATABLE *LMN* INSTRUCTION.
01810  M01S00272.273l780 +++|*
01811  M01S00273.273l780 +++|*         ASSEMBLES AN *LMN* INSTRUCTION AND INFORMATION TO ALLOW THE
01812  M01S00274.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01813  M01S00275.273l780 +++|*
01814  M01S00276.273l780 +++|*         TLMN   N,R
01815  M01S00277.273l780 +++|*
01816  M01S00278.273l780 +++|*         ENTRY  N = CONSTANT TO BE ASSEMBLED INTO *LMN* INSTRUCTION.
01817  M01S00279.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*.
01818  M01S00280.273l780 +++|
01819  M01S00281.273l780 +++|
01820  M01S00282.273l780 +++|          PURGMAC  TLMN
01821  M01S00283.273l780 +++|
01822  M01S00284.273l780 +++| TLMN     MACRO  N,R
01823  M01S00285.273l780 +++|          LOCAL  A
01824  M01S00286.273l780 +++| A        EQU    *-1
01825  M01S00287.273l780 +++|          LMN    N
01826  M01S00288.273l780 +++| SIC      RMT
01827  M01S00289.273l780 +++|          CON    A
01828  M01S00290.273l780 +++|          CON    R
01829  M01S00291.273l780 +++| SIC      RMT
01830  M01S00292.273l780 +++| TLMN     ENDM
01831  M01S00001.283l840 +++| TLPC     SPACE  4,10
01832  M01S00002.283l840 +++|***       TLPC - RELOCATABLE *LPC* INSTRUCTION.
01833  M01S00003.283l840 +++|*
01834  M01S00004.283l840 +++|*         ASSEMBLES AN *LPC* INSTRUCTION AND INFORMATION TO ALLOW THE
01835  M01S00005.283l840 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01836  M01S00006.283l840 +++|*
01837  M01S00007.283l840 +++|*         TLPC   N,R
01838  M01S00008.283l840 +++|*
01839  M01S00009.283l840 +++|*         ENTRY  N = CONSTANT TO BE ASSEMBLED INTO *LPC* INSTRUCTION.
01840  M01S00010.283l840 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*.
01841  M01S00011.283l840 +++|
01842  M01S00012.283l840 +++|
01843  M01S00013.283l840 +++|          PURGMAC  TLPC
01844  M01S00014.283l840 +++|
01845  M01S00015.283l840 +++| TLPC     MACRO  N,R
01846  M01S00016.283l840 +++|          LOCAL  A
01847  M01S00017.283l840 +++| A        EQU    *
01848  M01S00018.283l840 +++|          LPC    N
01849  M01S00019.283l840 +++| SIC      RMT
01850  M01S00020.283l840 +++|          CON    A
01851  M01S00021.283l840 +++|          CON    R
01852  M01S00022.283l840 +++| SIC      RMT
01853  M01S00023.283l840 +++| TLPC     ENDM
01854  M01S00293.273l780 +++| TLPN     SPACE  4,10
01855  M01S00294.273l780 +++|***       TLPN - RELOCATABLE *LPN* INSTRUCTION.
01856  M01S00295.273l780 +++|*
01857  M01S00296.273l780 +++|*         ASSEMBLES AN *LPN* INSTRUCTION AND INFORMATION TO ALLOW THE
01858  M01S00297.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01859  M01S00298.273l780 +++|*
01860  M01S00299.273l780 +++|*         TLPN   N,R
01861  M01S00300.273l780 +++|*
01862  M01S00301.273l780 +++|*         ENTRY  N = CONSTANT TO BE ASSEMBLED INTO *LPN* INSTRUCTION.
01863  M01S00302.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*.
01864  M01S00303.273l780 +++|
01865  M01S00304.273l780 +++|
01866  M01S00305.273l780 +++|          PURGMAC  TLPN
01867  M01S00306.273l780 +++|
01868  M01S00307.273l780 +++| TLPN     MACRO  N,R
01869  M01S00308.273l780 +++|          LOCAL  A
01870  M01S00309.273l780 +++| A        EQU    *-1
01871  M01S00310.273l780 +++|          LPN    N
01872  M01S00311.273l780 +++| SIC      RMT
01873  M01S00312.273l780 +++|          CON    A
01874  M01S00313.273l780 +++|          CON    R
01875  M01S00314.273l780 +++| SIC      RMT
01876  M01S00315.273l780 +++| TLPN     ENDM
01877  M01S00316.273l780 +++| TRAM     SPACE  4,10
01878  M01S00317.273l780 +++|***       TRAM - RELOCATABLE *RAM* INSTRUCTION.
01879  M01S00318.273l780 +++|*
01880  M01S00319.273l780 +++|*         ASSEMBLES AN *RAM* INSTRUCTION AND INFORMATION TO ALLOW THE
01881  M01S00320.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01882  M01S00321.273l780 +++|*
01883  M01S00322.273l780 +++|*         TRAM   M,D,R
01884  M01S00323.273l780 +++|*
01885  M01S00324.273l780 +++|*         ENTRY  M = CONSTANT TO BE ASSEMBLED INTO *RAM* INSTRUCTION.
01886  M01S00325.273l780 +++|*                D = DIRECT CELL.
01887  M01S00326.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*.
01888  M01S00327.273l780 +++|
01889  M01S00328.273l780 +++|
01890  M01S00329.273l780 +++|          PURGMAC  TRAM
01891  M01S00330.273l780 +++|
01892  M01S00331.273l780 +++| TRAM     MACRO  M,D,R
01893  M01S00332.273l780 +++|          LOCAL  A
01894  M01S00333.273l780 +++| A        EQU    *
01895  M01S00334.273l780 +++|          IFC    EQ,$D$$,1
01896  M01S00335.273l780 +++|          RAM    M
01897  M01S00336.273l780 +++|          ELSE   1
01898  M01S00337.273l780 +++|          RAM    M,D
01899  M01S00338.273l780 +++| SIC      RMT
01900  M01S00339.273l780 +++|          CON    A
01901  M01S00340.273l780 +++|          CON    R
01902  M01S00341.273l780 +++| SIC      RMT
01903  M01S00342.273l780 +++| TRAM     ENDM
01904  M01S00343.273l780 +++| TSBM     SPACE  4,10
01905  M01S00344.273l780 +++|***       TSBM - RELOCATABLE *SBM* INSTRUCTION.
01906  M01S00345.273l780 +++|*
01907  M01S00346.273l780 +++|*         ASSEMBLES AN *SBM* INSTRUCTION AND INFORMATION TO ALLOW THE
01908  M01S00347.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01909  M01S00348.273l780 +++|*
01910  M01S00349.273l780 +++|*         TSBM   M,D,R
01911  M01S00350.273l780 +++|*
01912  M01S00351.273l780 +++|*         ENTRY  M = CONSTANT TO BE ASSEMBLED INTO *SBM* INSTRUCTION.
01913  M01S00352.273l780 +++|*                D = DIRECT CELL.
01914  M01S00353.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*.
01915  M01S00354.273l780 +++|
01916  M01S00355.273l780 +++|
01917  M01S00356.273l780 +++|          PURGMAC  TSBM
01918  M01S00357.273l780 +++|
01919  M01S00358.273l780 +++| TSBM     MACRO  M,D,R
01920  M01S00359.273l780 +++|          LOCAL  A
01921  M01S00360.273l780 +++| A        EQU    *
01922  M01S00361.273l780 +++|          IFC    EQ,$D$$,1
01923  M01S00362.273l780 +++|          SBM    M
01924  M01S00363.273l780 +++|          ELSE   1
01925  M01S00364.273l780 +++|          SBM    M,D
01926  M01S00365.273l780 +++| SIC      RMT
01927  M01S00366.273l780 +++|          CON    A
01928  M01S00367.273l780 +++|          CON    R
01929  M01S00368.273l780 +++| SIC      RMT
01930  M01S00369.273l780 +++| TSBM     ENDM
01931  M01S00370.273l780 +++| TSBN     SPACE  4,10
01932  M01S00371.273l780 +++|***       TSBN - RELOCATABLE *SBN* INSTRUCTION.
01933  M01S00372.273l780 +++|*
01934  M01S00373.273l780 +++|*         ASSEMBLES AN *SBN* INSTRUCTION AND INFORMATION TO ALLOW THE
01935  M01S00374.273l780 +++|*         CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*.
01936  M01S00375.273l780 +++|*
01937  M01S00376.273l780 +++|*         TSBN   N,R
01938  M01S00377.273l780 +++|*
01939  M01S00378.273l780 +++|*         ENTRY  N = CONSTANT TO BE ASSEMBLED INTO *SBN* INSTRUCTION.
01940  M01S00379.273l780 +++|*                R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*.
01941  M01S00380.273l780 +++|
01942  M01S00381.273l780 +++|
01943  M01S00382.273l780 +++|          PURGMAC  TSBN
01944  M01S00383.273l780 +++|
01945  M01S00384.273l780 +++| TSBN     MACRO  N,R
01946  M01S00385.273l780 +++|          LOCAL  A
01947  M01S00386.273l780 +++| A        EQU    *-1
01948  M01S00387.273l780 +++|          SBN    N
01949  M01S00388.273l780 +++| SIC      RMT
01950  M01S00389.273l780 +++|          CON    A

Proceed to Part 1