User Tools

Site Tools


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

Common COMCSYS

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcsys +++|          CTEXT  COMCSYS - PROCESS SYSTEM REQUEST.
00002  M01S00002.comcsys +++| SYS      SPACE  4
00003  M01S00003.comcsys +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcsys +++|          QUAL   COMCSYS
00005  M01S00005.comcsys +++|          BASE   D
Line S00006 Modification History
M01 (Added by) comcsys
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcsys +++| SYS      SPACE  4
00009  M01S00008.comcsys +++|***       COMCSYS - PROCESS SYSTEM REQUEST.
00010  M01S00009.comcsys +++|*         G. R. MANSFIELD.  70/10/09.
00011  M01S00010.comcsys +++| SYS      SPACE  4
00012  M01S00011.comcsys +++|***              COMCSYS CONTAINS ROUTINES FOR PROCESSING CERTAIN
00013  M01S00012.comcsys +++|*         SYSTEM REQUESTS.
00014  M01S00013.comcsys +++| SYS      SPACE  4
00015  M01S00014.comcsys +++|***       SYS - PROCESS SYSTEM REQUEST.
00016  M01S00015.comcsys +++|*
00017  M01S00016.comcsys +++|*         ENTRY  (X6) = SYSTEM REQUEST.
00018  M01S00017.comcsys +++|*
00019  M01S00018.comcsys +++|*         EXIT   REQUEST PROCESSED.
00020  M01S00019.comcsys +++|*
00021  M01S00020.comcsys +++|*         USES   X - NONE.
00022  M01S00021.comcsys +++|*                B - NONE.
00023  M01S00022.comcsys +++|*                A - 1, 6.
00024  M01S00023.comcsys +++|*
00025  M01S00024.comcsys +++|*         ERROR  ABORTS IF (RA+1) .NE. 0 AT ENTRY.
00026  M01S00025.comcsys +++|
00027  M01S00026.comcsys +++|
00028  M01S00027.comcsys +++| SYS1     XJ
00029  M01S00028.comcsys +++|
00030  M01S00029.comcsys +++| SYS=     PS                 ENTRY/EXIT
00031  M01S00030.comcsys +++|          SA1    1
00032  M01S00031.comcsys +++|          NZ     X1,*+400000B  IF (RA+1) .NE. 0, ABORT
00033  M01S00032.comcsys +++|          SA6    1           STORE REQUEST IN RA+1
00034  M01S00033.comcsys +++|          EQ     SYS1        ISSUE REQUEST
00035  M01S00034.comcsys +++| RCL      SPACE  4
00036  M01S00035.comcsys +++|***       RCL - PLACE PROGRAM ON RECALL.
00037  M01S00036.comcsys +++|*
00038  M01S00037.comcsys +++|*         ENTRY  NONE.
00039  M01S00038.comcsys +++|*
00040  M01S00039.comcsys +++|*         EXIT   REQUEST PROCESSED.
00041  M01S00040.comcsys +++|*
00042  M01S00041.comcsys +++|*         USES   X - 6.
00043  M01S00042.comcsys +++|*                B - NONE.
00044  M01S00043.comcsys +++|*                A - 1, 6.
00045  M01S00044.comcsys +++|*
00046  M01S00045.comcsys +++|*         ERROR  ABORTS IF (RA+1) .NE. 0 AT ENTRY.
00047  M01S00046.comcsys +++|
00048  M01S00047.comcsys +++|
00049  M01S00048.comcsys +++| RCL1     XJ
00050  M01S00049.comcsys +++|
00051  M01S00050.comcsys +++| RCL=     PS                 ENTRY/EXIT
00052  M01S00051.comcsys +++|          SX6    3RRCL
00053  M01S00052.comcsys +++|          SA1    1
00054  M01S00053.comcsys +++|          LX6    42
00055  M01S00054.comcsys +++|          NZ     X1,*+400000B  IF (RA+1) .NE. 0, ABORT
00056  M01S00055.comcsys +++|          SA6    A1          STORE REQUEST IN RA+1
00057  M01S00056.comcsys +++|          EQ     RCL1        ISSUE REQUEST
00058  M01S00057.comcsys +++| WNB      SPACE  4,15
00059  M01S00058.comcsys +++|***       WNB - WAIT NOT BUSY.
00060  M01S00059.comcsys +++|*         WAIT FOR FET STATUS WORD BIT 0 TO BE SET.
00061  M01S00060.comcsys +++|*         IF WORD IS INITIALLY 0, RETURN.
00062  M01S00061.comcsys +++|*
00063  M01S00062.comcsys +++|*         ENTRY  (X2) = ADDRESS OF STATUS WORD.
00064  M01S00063.comcsys +++|*
00065  M01S00064.comcsys +++|*         EXIT   RETURN WHEN BIT 0 OF STATUS WORD IS SET.
00066  M01S00065.comcsys +++|*
00067  M01S00066.comcsys +++|*         USES   X - 1, 6.
00068  M01S00067.comcsys +++|*                B - NONE.
00069  M01S00068.comcsys +++|*                A - 1, 6.
00070  M01S00069.comcsys +++|*
00071  M01S00070.comcsys +++|*         ERROR  ABORTS IF (RA+1) .NE. 0 AT ENTRY.
00072  M01S00071.comcsys +++|
00073  M01S00072.comcsys +++|
00074  M01S00073.comcsys +++| WNB2     SX1    3RRCL       BUILD RECALL
00075  M01S00074.comcsys +++|          PX6    X1
00076  M01S00075.comcsys +++|          LX6    42
00077  M01S00076.comcsys +++|          BX6    X6+X2       MERGE FET ADDRESS
00078  M01S00077.comcsys +++|          SA1    1
00079  M01S00078.comcsys +++|          NZ     X1,*+400000B  IF (RA+1) .NE. 0, ABORT
00080  M01S00079.comcsys +++|          SA6    1           STORE REQUEST IN RA+1
00081  M01S00080.comcsys +++|          XJ
00082  M01S00081.comcsys +++|
00083  M01S00082.comcsys +++| WNB=     PS                 ENTRY/EXIT
00084  M01S00083.comcsys +++| WNB1     SA1    X2          CHECK STATUS WORD
00085  M01S00084.comcsys +++|          LX1    59
00086  M01S00085.comcsys +++|          NG     X1,WNB=     IF STATUS BIT SET
00087  M01S00086.comcsys +++|          NZ     X1,WNB2     IF NOT BLANK STATUS
00088  M01S00087.comcsys +++|          EQ     WNB=        EXIT WHEN BLANK STATUS
00089  M01S00088.comcsys +++| MSG      SPACE  4,20
00090  M01S00089.comcsys +++|***       MSG - SEND MESSAGE.
00091  M01S00090.comcsys +++|*
00092  M01S00091.comcsys +++|*         ENTRY  (X1) = ADDRESS OF MESSAGE.
00093  M01S00092.comcsys +++|*                (X6) = MESSAGE OPTION(S).
00094  M01S00093.comcsys +++|*                            BIT 16 = AUTO RECALL.
00095  M01S00094.comcsys +++|*                            BITS 0 - 15 = MESSAGE OPTION.
00096  M01S00095.comcsys +++|*                IF UPPER 12 BITS OF LOCATION SPECIFIED BY *ADDR*
00097  M01S00096.comcsys +++|*         ARE ZERO, THEN THE FOLLOWING 18 BITS ARE THE
00098  M01S00097.comcsys +++|*         ADDRESS OF THE MESSAGE (I.E. 12/0,18/LOC,30/0).
00099  M01S00098.comcsys +++|*
00100  M01S00099.comcsys +++|*         EXIT   RETURN WHEN OPERATION COMPLETE.
00101  M01S00100.comcsys +++|*
00102  M01S00101.comcsys +++|*         USES   X - 1, 6.
00103  M01S00102.comcsys +++|*                B - NONE.
00104  M01S00103.comcsys +++|*                A - 6.
00105  M01S00104.comcsys +++|*
00106  M01S00105.comcsys +++|*         ERROR  ABORTS IF (RA+1) .NE. 0 AT ENTRY.
00107  M01S00106.comcsys +++|
00108  M01S00107.comcsys +++|
00109  M01S00108.comcsys +++| MSG1     LX1    40-59
00110  M01S00109.comcsys +++| MSG2     SX6    3RMSG       FORM *MSG* REQUEST
00111  M01S00110.comcsys +++|          LX6    42
00112  M01S00111.comcsys +++|          BX6    X6+X1
00113  M01S00112.comcsys +++|          SA1    1
00114  M01S00113.comcsys +++|          NZ     X1,*+400000B  IF (RA+1) .NE. 0, ABORT
00115  M01S00114.comcsys +++|          SA6    1           STORE REQUEST IN RA+1
00116  M01S00115.comcsys +++|          XJ
00117  M01S00116.comcsys +++|
00118  M01S00117.comcsys +++| MSG=     PS                 ENTRY/EXIT
00119  M01S00118.comcsys +++|          LX6    24          MERGE OPTION(S) AND ADDRESS
00120  M01S00119.comcsys +++|          BX1    X6+X1
00121  M01S00120.comcsys +++|          SX6    X1          SET MESSAGE ADDRESS
00122  M01S00121.comcsys +++|          LX1    59-40
00123  M01S00122.comcsys +++|          PL     X1,MSG1     IF NO AUTO RECALL
00124  M01S00123.comcsys +++|          LX1    40-59
00125  M01S00124.comcsys +++|          BX1    X1-X6       REMOVE THE MESSAGE ADDRESS
00126  M01S00125.comcsys +++|          LX6    30
00127  M01S00126.comcsys +++|          SA6    MSGA        STORE THE STATUS WORD
00128  M01S00127.comcsys +++|          SX6    A6
00129  M01S00128.comcsys +++|          BX1    X1+X6       SET THE INDIRECT ADDRESS
00130  M01S00129.comcsys +++|          EQ     MSG2
00131  M01S00130.comcsys +++|
00132  M01S00131.comcsys +++| MSGA     VFD    30/**,30/0  STATUS MESSAGE FOR INDIRECT ADDRESSING
00133  M01S00132.comcsys +++|          SPACE  4
00134  M01S00133.comcsys +++|          BASE   *
00135  M01S00134.comcsys +++| QUAL$    IF     -DEF,QUAL$
00136  M01S00135.comcsys +++|          QUAL   *
00137  M01S00136.comcsys +++| SYS=     EQU    /COMCSYS/SYS=
00138  M01S00137.comcsys +++| RCL=     EQU    /COMCSYS/RCL=
00139  M01S00138.comcsys +++| WNB=     EQU    /COMCSYS/WNB=
00140  M01S00139.comcsys +++| MSG=     EQU    /COMCSYS/MSG=
00141  M01S00140.comcsys +++| QUAL$    ENDIF
00142  M01S00141.comcsys +++|          ENDX
cdc/nos2.source/opl.opl871/common/comcsys.txt ยท Last modified: by 127.0.0.1