User Tools

Site Tools


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

Common COMDSYS

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comdsys +++|          CTEXT COMDSYS - DISPLAY SYSTEM STATUS AND ASSOCIATED ROUTINES.
00002  M01S00002.comdsys +++| COMDSYS  SPACE  4
00003  M01S00003.comdsys +++|          QUAL   COMDSYS
Line S00004 Modification History
M01 (Added by) comdsys
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M01S00005.comdsys +++| COMDSYS  SPACE  4
00007  M01S00006.comdsys +++|***       COMDSYS - DISPLAY SYSTEM STATUS AND ASSOCIATED ROUTINES.
00008  M01S00007.comdsys +++|*         G. R. MANSFIELD.  70/12/14.
00009  M01S00008.comdsys +++| COMDSYS  SPACE  4
00010  M01S00009.comdsys +++|***              COMDSYS DISPLAYS THE TOP LINES OF THE LEFT AND
00011  M01S00010.comdsys +++|*         RIGHT SCREENS.  IT MAY BE CALLED BY ANY DISPLAY PROGRAM.
00012  M01S00011.comdsys +++|*
00013  M01S00012.comdsys +++|*         IF THE TAG *DSDSYS$* IS DEFINED, *SYS* WILL BE ASSEMBLED
00014  M01S00013.comdsys +++|*         WITH THE ASSUMPTION THAT *DSD* IS THE CALLING DECK.
00015  M01S00001.241l630 +++|*
00016  M01S00002.241l630 +++|*         IF TAG *N2S$* IS DEFINED, SUBROUTINE *D2S* WILL NOT
00017  M01S00003.241l630 +++|*         BE ASSEMBLED.
00018  M01S00014.comdsys +++| COMDSYS  SPACE  4
00019  M01S00015.comdsys +++|***       ASSUMED.
00020  M01S00016.comdsys +++|*
00021  M01S00017.comdsys +++|*
00022  M01S00018.comdsys +++|*         PRESENCE OF COMMON DECKS -
00023  M01S00019.comdsys +++|*                *COMDMAC*
00024  M01S00020.comdsys +++|*                *COMPMAC*
00025  M01S00021.comdsys +++|*                *COMSPIM*
00026  M01S00022.comdsys +++|*                *COMSEJT*
00027  M01S00023.comdsys +++|*                *COMPGFN*
00028  M01S00024.comdsys +++|*         BASE   MIXED
00029  M01S00025.comdsys +++|*         SST
00030  M01S00026.comdsys +++| COMDSYS  SPACE  4
00031  M01S00027.comdsys +++|*         ASSEMBLY CONSTANTS.
00032  M01S00028.comdsys +++|
00033  M01S00029.comdsys +++|
00034  M01S00030.comdsys +++|          IF     -DEF,DSCT,1
00035  M01S00031.comdsys +++| DSCT     EQU    20D         DISPLAY CYCLE (MILLISECONDS)
00036  M01S00032.comdsys +++| D721     EQU    500D        DISPLAY DELAY
00037  M01S00033.comdsys +++| SYS      SPACE  4,40
00038  M01S00034.comdsys +++|***       SYS - DISPLAY SYSTEM STATUS.
00039  M01S00035.comdsys +++|*
00040  M01S00036.comdsys +++|*         *SYS* DISPLAYS THE TIME, DATE AND SYSTEM HEADER LINE
00041  M01S00037.comdsys +++|*         ON THE LEFT SCREEN, AND CURRENT OPERATOR MESSAGES ON
00042  M01S00038.comdsys +++|*         THE RIGHT SCREEN.
00043  M01S00039.comdsys +++|*
00044  M01S00040.comdsys +++|*         ENTRY  (XC) = INITIAL X-COORDINATE.
00045  M01S00041.comdsys +++|*                (NC) = NUMBER OF CONTROL POINTS, INCLUDING SYSTEM CP.
00046  M01S00042.comdsys +++|*                (SYSB) = 0 = *L* DISPLAY DRIVER ACTIVE.
00047  M01S00043.comdsys +++|*
00048  M01S00044.comdsys +++|*         EXIT   DISPLAY CHANNEL ACTIVE.
00049  M01S00045.comdsys +++|*                RIGHT SCREEN, SMALL CHARACTERS SELECTED.
00050  M01S00046.comdsys +++|*                (SYSB) = 9/DIST, 3/DRST.
00051  M01S00047.comdsys +++|*                         DIST = *L* DISPLAY STATUS FROM ((*LDSP*)), IF
00052  M01S00048.comdsys +++|*                                THE DRIVER IS NOT ACTIVE.
00053  M01S00049.comdsys +++|*                         DRST = *L* DISPLAY DRIVER STATUS.
00054  M01S00050.comdsys +++|*                                1 = DRIVER IS ACTIVE.
00055  M01S00051.comdsys +++|*                                2 = DRIVER IS NOT ACTIVE.
00056  M01S00052.comdsys +++|*
00057  M01S00053.comdsys +++|*         USES   YC, T1 - T7, CM - CM+4.
00058  M01S00054.comdsys +++|*
00059  M01S00055.comdsys +++|*         CALLS  DOL, DSS, PSE, ULH.
00060  M01S00056.comdsys +++|*
00061  M01S00057.comdsys +++|*         MACROS DISPLA, ENDIF, IF.
00062  M01S00058.comdsys +++|*
00063  M01S00059.comdsys +++|*         NOTE   *DISPLA* REQUIRES A *HERE* MACRO IN THE
00064  M01S00060.comdsys +++|*                CALLING PROGRAM FOR REMOTE CODE.
00065  M01S00061.comdsys +++|*
00066  M01S00062.comdsys +++|*         EXAMPLE (LEFT SCREEN) -
00067  M01S00063.comdsys +++|*
00068  M01S00064.comdsys +++|*              1         2         3         4         5         6
00069  M01S00065.comdsys +++|*     1234567890123456789012345678901234567890123456789012345678901234
00070  M01S00066.comdsys +++|*
00071  M01S00067.comdsys +++|*      18.05.18. 80/12/24.  SYSTEM HEADER ...
00072  M01S00068.comdsys +++|*
00073  M01S00069.comdsys +++|*
00074  M01S00070.comdsys +++|*         EXAMPLE (RIGHT SCREEN) -
00075  M01S00071.comdsys +++|*
00076  M01S00072.comdsys +++|*              1         2         3         4         5         6
00077  M01S00073.comdsys +++|*     1234567890123456789012345678901234567890123456789012345678901234
00078  M01S00074.comdsys +++|*
00079  M01S00075.comdsys +++|*      SEE *L* DISPLAY
00080  M01S00076.comdsys +++|*      SEE *A,OPERATOR*
00081  M01S00077.comdsys +++|
00082  M01S00078.comdsys +++|
00083  M01S00079.comdsys +++| SYS1     LDC    HL03        SET DATE LINE Y-COORDINATE
00084  M01S00080.comdsys +++|          STD    YC
00085  M01S00081.comdsys +++|
00086  M01S00082.comdsys +++|*         DISPLAY DATE LINE.
00087  M01S00083.comdsys +++|
00088  M01S00084.comdsys +++|          CFNC   SLSF        SELECT LEFT SCREEN - SMALL CHARACTERS
00089  M01S00085.comdsys +++|          LDN    2           OUTPUT COORDINATES
00090  M01S00086.comdsys +++|          OAM    XC,CH
00091  M01S00087.comdsys +++|          LDN    TIML        DISPLAY DATE LINE
00092  M01S00088.comdsys +++|          RJM    DOL
00093  M01S00089.comdsys +++|          FJM    *,CH        IF CHANNEL FULL
00094  M01S00090.comdsys +++|          RJM    ULH         UNDERLINE HEADERS
00095  M01S00091.comdsys +++|          RJM    PSE         PAUSE IF NECESSARY
00096  M01S00092.comdsys +++|.A        IF     DEF,DSS$
00097  M01S00093.comdsys +++|          RJM    DSS         DISPLAY SUBSYSTEM STATUS
00098  M01S00094.comdsys +++|.A        ENDIF
00099  M01S00095.comdsys +++|          LDC    1           CHECK *L* DISPLAY FLAG
00100  M01S00096.comdsys +++| SYSB     EQU    *-1
00101  M01S00097.comdsys +++|          ZJN    SYS3        IF *L* DISPLAY ACTIVE
00102  M01S00098.comdsys +++|          LPC    210
00103  M01S00099.comdsys +++|          ZJN    SYS2        IF NEITHER *L* DISPLAY NOR INPUT REQUESTED
00104  M01S00100.comdsys +++|          DISPLA CH02,HL02,(SEE *L* DISPLAY),H
00105  M01S00101.comdsys +++| SYS2     LDC    *           GET *L* DISPLAY CONTROL WORD ADDRESS
00106  M01S00102.comdsys +++| SYSC     EQU    *-2
00107  M01S00103.comdsys +++|          CRD    CM
00108  M01S00104.comdsys +++|          LDD    CM+4        GET *L* DISPLAY REQUESTED STATUS
00109  M01S00105.comdsys +++|          SHN    3
00110  M01S00106.comdsys +++|          LMN    1
00111  M01S00107.comdsys +++| SYS3     ADN    1
00112  M01S00108.comdsys +++|          STM    SYSB
00113  M01S00109.comdsys +++|          LDC    OPRL
00114  M01S00110.comdsys +++|          CRD    CM
00115  M01S00111.comdsys +++|          LDD    CM
00116  M01S00112.comdsys +++|          ADD    CM+1
00117  M01S00113.comdsys +++|          ADD    CM+2
00118  M01S00114.comdsys +++|          ADD    CM+3
00119  M01S00115.comdsys +++|          ADD    CM+4
00120  M01S00116.comdsys +++|          ZJN    SYSX        IF NO OPERATOR MESSAGES
00121  M01S00004.241l630 +++|          RJM    SBO         INDICATE OPERATOR ACTION REQUIRED
00122  M01S00117.comdsys +++|          DISPLA CH02,HL03,(SEE *A,OPERATOR*),H
00123  M01S00118.comdsys +++|
00124  M01S00119.comdsys +++| SYS      SUBR               ENTRY/EXIT
00125  M01S00120.comdsys +++|          LJM    PRS         PRESET
00126  M01S00121.comdsys +++| SYSA     EQU    *-1         (PRESET ALREADY EXECUTED)
00127  M01S00122.comdsys +++|*         LJM    SYS1        EXECUTE ROUTINE AFTER PRESET
00128  M01S00123.comdsys +++|
00129  M01S00124.comdsys +++|.B        IF     DEF,DSS$
00130  M01S00125.comdsys +++| SSM      SPACE  4,10
00131  M01S00126.comdsys +++|***       SUBSYSTEM MESSAGE AREA.
00132  M01S00127.comdsys +++|
00133  M01S00128.comdsys +++|
Line S00129 Modification History
M01 (Added by) comdsys
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00129.241l630 ---| SSMA     CON    HL01,CH29   COORDINATES FOR SYBSYSTEM MESSAGE
00135  M01S00005.241l630 +++| SSMA     CON    HL01,CH29   COORDINATES FOR SUBSYSTEM MESSAGE
00136  M01S00130.comdsys +++| SSMB     BSS    0           SUBSYSTEM JSN
00137  M01S00131.comdsys +++| SSMC     EQU    SSMB+2      *MS2W* AREA
00138  M01S00132.comdsys +++|.B        ENDIF
00139  M01S00133.comdsys +++| PRS      SPACE  4,10
00140  M01S00134.comdsys +++|***       PRS - PRESET FOR *SYS*.
00141  M01S00135.comdsys +++|*
00142  M01S00136.comdsys +++|*         THIS CODE IS OVERLAID BY *MS2W* DURING EXECUTION.
00143  M01S00137.comdsys +++|
00144  M01S00138.comdsys +++|
00145  M01S00139.comdsys +++| PRS      BSS    0           ENTRY
00146  M01S00140.comdsys +++|          LDK    LDSP        SET *L* DISPLAY AREA ADDRESS
00147  M01S00141.comdsys +++|          CRD    CM
00148  M01S00142.comdsys +++|          LDD    CM+2
00149  M01S00143.comdsys +++|          RAM    SYSC
00150  M01S00144.comdsys +++|          LDD    CM+3
00151  M01S00145.comdsys +++|          STM    SYSC+1
00152  M01S00146.comdsys +++|          LDC    SYS1        REMOVE CALL TO PRESET
00153  M01S00147.comdsys +++|          STM    SYSA
00154  M01S00148.comdsys +++|.C        IF     -DEF,DSS$
00155  M01S00149.comdsys +++|          LJM    SYS1        ENTER DISPLAY ROUTINE
00156  M01S00150.comdsys +++|.C        ELSE
00157  M01S00151.comdsys +++|.D        IF     -DEF,DSDSYS$
00158  M01S00152.comdsys +++|          LDK    NCPL        SET NUMBER OF CONTROL POINTS
00159  M01S00153.comdsys +++|          CRD    CM
00160  M01S00154.comdsys +++|          AOD    CM+1        INCLUDE SYSTEM CONTROL POINT
00161  M01S00155.comdsys +++|          RAM    DSSA
00162  M01S00156.comdsys +++|.D        ENDIF
00163  M01S00157.comdsys +++|*         LJM    SYS1        ENTER DISPLAY ROUTINE
00164  M01S00158.comdsys +++|
00165  M01S00159.comdsys +++|*         RESERVE ONLY NECESSARY SPACE FOR SUBSYSTEM MESSAGE.
00166  M01S00160.comdsys +++|
00167  M01S00161.comdsys +++|.E        IFLT   *-SSMB,3*5+3
00168  M01S00162.comdsys +++|          LJM    SYS1        ENTER DISPLAY ROUTINE
00169  M01S00163.comdsys +++|          IFLT   *-SSMB,3*5+3,1
00170  M01S00164.comdsys +++|          BSS    3*5+3-*+SSMB  RESERVE SPACE FOR 30 CHARACTERS + EOL
00171  M01S00165.comdsys +++| DSS      SUBR               ENTRY/EXIT
00172  M01S00166.comdsys +++|.E        ELSE
00173  M01S00167.comdsys +++| DSSX     LJM    SYS1        ENTER DISPLAY ROUTINE FROM PRESET
00174  M01S00168.comdsys +++| DSS      EQU    *-1         ENTRY/EXIT
00175  M01S00169.comdsys +++|.E        ENDIF
00176  M01S00170.comdsys +++| DSS      SPACE  4,15
00177  M01S00171.comdsys +++|***       DSS - DISPLAY SUBSYSTEM STATUS.
00178  M01S00172.comdsys +++|*
Line S00173 Modification History
M01 (Added by) comdsys
M02 (Updated by) dsys1
Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00173.dsys1   ---|*         USES   T1 - T7, CM - CM+4.
00180  M01S00001.dsys1   +++|*         USES   T1, T4, T6, T7, CM - CM+4.
00181  M01S00174.comdsys +++|*
Line S00175 Modification History
M01 (Added by) comdsys
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00175.241l630 ---|*         CALLS  HIL.
00183  M01S00006.241l630 +++|*         CALLS  HIL, SBO.
00184  M01S00176.comdsys +++|*
00185  M01S00177.comdsys +++|*         MACROS SFA.
00186  M01S00178.comdsys +++|*
00187  M01S00179.comdsys +++|*         EXAMPLE -
00188  M01S00180.comdsys +++|*
00189  M01S00181.comdsys +++|*              1         2         3         4         5         6
00190  M01S00182.comdsys +++|*     1234567890123456789012345678901234567890123456789012345678901234
00191  M01S00183.comdsys +++|*                                 SYS. NO MONITOR RESPONSE.
00192  M01S00184.comdsys +++|*                                 MAG. CHECK *E,P* DISPLAY
00193  M01S00185.comdsys +++|*                                 IAF.REQUEST DISPLAY.  (DIS)
00194  M01S00186.comdsys +++|
00195  M01S00187.comdsys +++|
00196  M01S00188.comdsys +++|*DSS      SUBR               ENTRY/EXIT
00197  M01S00189.comdsys +++|          LDN    0           CLEAR EOL BYTE
00198  M01S00190.comdsys +++|          STM    SSMC+5*3
00199  M01S00007.241l630 +++|          STD    T4
00200  M01S00191.comdsys +++|.F        IF     DEF,DSDSYS$
00201  M01S00192.comdsys +++|          LDD    NC
00202  M01S00193.comdsys +++|.F        ELSE
00203  M01S00194.comdsys +++|          LDN    0           LOAD TOTAL NUMBER OF CONTROL POINTS
00204  M01S00195.comdsys +++| DSSA     EQU    *-1
00205  M01S00196.comdsys +++|.F        ENDIF
Line S00197 Modification History
M01 (Added by) comdsys
M02 (Updated by) dsys1
Seq #  *Modification Id* Act 
----------------------------+
00206  M02S00197.dsys1   ---|          STD    T5          SYSTEM CONTROL POINT NUMBER
00207  M01S00198.comdsys +++|          ADN    1
00208  M01S00199.comdsys +++|          STD    T6
00209  M01S00200.comdsys +++|          LDC    HL01        SET Y-COORDINATE
00210  M01S00201.comdsys +++|          STM    SSMA
00211  M01S00202.comdsys +++| DSS1     LMC    BL01
Line S00203 Modification History
M01 (Added by) comdsys
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00203.241l630 ---|          ZJN    DSSX        IF DISPLAY FULL
Line S00008 Modification History
M01 (Added by) 241l630
M02 (Updated by) dsys1
Seq #  *Modification Id* Act 
----------------------------+
00213  M02S00008.dsys1   ---|          ZJN    DSS2.1      IF DISPLAY FULL
00214  M01S00002.dsys1   +++|          ZJN    DSS3        IF DISPLAY FULL
00215  M01S00204.comdsys +++| DSS2     SOD    T6
Line S00205 Modification History
M01 (Added by) comdsys
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00205.241l630 ---|          ZJN    DSSX        IF ALL CP-S SEARCHED
Line S00009 Modification History
M01 (Added by) 241l630
M02 (Updated by) dsys1
Seq #  *Modification Id* Act 
----------------------------+
00217  M02S00009.dsys1   ---| DSS2.1   ZJP    DSS6        IF ALL CP-S SEARCHED
00218  M01S00003.dsys1   +++| DSS3     ZJP    DSS6        IF ALL CP-S SEARCHED
00219  M01S00206.comdsys +++|          SHN    7
00220  M01S00207.comdsys +++|          ADN    TFSW        GET EJTO
00221  M01S00208.comdsys +++|          CRD    T7
00222  M01S00209.comdsys +++|          SBN    TFSW-MS2W   GET MESSAGE
00223  M01S00210.comdsys +++|          CRM    SSMC,TR
00224  M01S00211.comdsys +++|          SBN    MS2W+3-JCIW CHECK SUBSYSTEM ID
00225  M01S00212.comdsys +++|          CRD    CM
Line S00213 Modification History
M01 (Added by) comdsys
M02 (Updated by) dsys1
Seq #  *Modification Id* Act 
----------------------------+
00226  M02S00213.dsys1   ---|          SHN    -7
Line S00214 Modification History
M01 (Added by) comdsys
M02 (Updated by) dsys1
Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00214.dsys1   ---|          LMD    T5
Line S00215 Modification History
M01 (Added by) comdsys
M02 (Updated by) dsys1
Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00215.dsys1   ---|          ZJN    DSS3        IF SYSTEM CP
00229  M01S00216.comdsys +++|          LDD    CM+2
00230  M01S00217.comdsys +++|          SBK    LSSI+1
00231  M01S00218.comdsys +++|          MJN    DSS2        IF NOT SUBSYSTEM
Line S00219 Modification History
M01 (Added by) comdsys
M02 (Updated by) dsys1
Seq #  *Modification Id* Act 
----------------------------+
00232  M02S00219.dsys1   ---| DSS3     LDM    SSMC
00233  M01S00004.dsys1   +++|          LDM    SSMC
00234  M01S00220.comdsys +++|          ZJN    DSS2        IF NO MESSAGE
00235  M01S00221.comdsys +++|          SFA    EJT,T7      GET JSN
00236  M01S00222.comdsys +++|          ADK    JSNE
00237  M01S00223.comdsys +++|          CRD    CM
00238  M01S00224.comdsys +++|          LDD    CM          INSERT JSN
00239  M01S00225.comdsys +++|          STM    SSMB
00240  M01S00226.comdsys +++|          LDD    CM+1
00241  M01S00227.comdsys +++|          SCN    77
00242  M01S00228.comdsys +++|          ADN    1R.
00243  M01S00229.comdsys +++|          STM    SSMB+1
00244  M01S00230.comdsys +++|          LDN    3           LOCATE END OF MESSAGE
00245  M01S00231.comdsys +++|          STD    T1
00246  M01S00232.comdsys +++| DSS4     AOD    T1
00247  M01S00233.comdsys +++|          LDM    SSMA,T1
00248  M01S00234.comdsys +++|          ZJN    DSS5        IF END OF MESSAGE
00249  M01S00235.comdsys +++|          LPN    77
00250  M01S00236.comdsys +++|          NJN    DSS4        IF SKIP CHARACTER
00251  M01S00237.comdsys +++|          LDN    1R          BLANK PAD MESSAGE
00252  M01S00238.comdsys +++|          RAM    SSMA,T1
00253  M01S00239.comdsys +++|          UJN    DSS4        CHECK NEXT BYTE
00254  M01S00240.comdsys +++|
00255  M01S00241.comdsys +++| DSS5     LDD    T1          SET MESSAGE PARAMETERS
00256  M01S00242.comdsys +++|          SHN    14
00257  M01S00243.comdsys +++|          LMC    SSMA
00258  M01S00244.comdsys +++|          RJM    HIL         OUTPUT HIGHLIGHTED MESSAGE
00259  M01S00010.241l630 +++|          AOD    T4          INDICATE SUBSYSTEM STATUS DISPLAYED
00260  M01S00245.comdsys +++|          LCN    YINC
00261  M01S00246.comdsys +++|          RAM    SSMA
00262  M01S00247.comdsys +++|          LJM    DSS1        SEARCH NEXT CP
00263  M01S00011.241l630 +++|
00264  M01S00012.241l630 +++| DSS6     LDD    T4
00265  M01S00013.241l630 +++|          ZJN    DSS7        IF NO SUBSYSTEM STATUS DISPLAYED
00266  M01S00014.241l630 +++|          RJM    SBO         INDICATE OPERATOR ACTION REQUIRED
00267  M01S00015.241l630 +++| DSS7     LJM    DSSX        RETURN
00268  M01S00248.comdsys +++|.C        ENDIF
00269  M01S00249.comdsys +++| DOL      SPACE  4,10
00270  M01S00250.comdsys +++|***       DOL - DISPLAY ONE LINE.
00271  M01S00251.comdsys +++|*
00272  M01S00252.comdsys +++|*         ENTRY  (A) = ADDRESS OF FIRST WORD OF LINE.
00273  M01S00253.comdsys +++|*                (XC) = X-COORDINATE.
00274  M01S00254.comdsys +++|*
00275  M01S00255.comdsys +++|*         USES   T1, T2, T3, T4, CM - CM+4.
00276  M01S00256.comdsys +++|
00277  M01S00257.comdsys +++|
00278  M01S00258.comdsys +++| DOL      SUBR               ENTRY/EXIT
00279  M01S00259.comdsys +++|          STD    T2          SET ADDRESS
00280  M01S00260.comdsys +++|          SHN    -14
00281  M01S00261.comdsys +++|          STD    T1
00282  M01S00262.comdsys +++|          LDN    0           CLEAR WORD COUNT
00283  M01S00263.comdsys +++|          STD    T3
00284  M01S00264.comdsys +++|          STD    T4          CLEAR BYTE COUNT
00285  M01S00265.comdsys +++| DOL1     LDD    T1          READ WORD
00286  M01S00266.comdsys +++|          SHN    14
00287  M01S00267.comdsys +++|          ADD    T2
00288  M01S00268.comdsys +++|          CRD    CM
00289  M01S00269.comdsys +++| DOL2     LDM    CM,T4       CHECK NEXT BYTE
00290  M01S00270.comdsys +++| DOL3     ZJN    DOLX        IF END OF DISPLAY LINE
00291  M01S00271.comdsys +++|          SBD    XC
00292  M01S00272.comdsys +++|          MJN    DOL4        IF DATA TO DISPLAY
00293  M01S00273.comdsys +++|          LDM    CM,T4
00294  M01S00274.comdsys +++|          LPN    77
00295  M01S00275.comdsys +++|          UJN    DOL5        DISPLAY LOWER 6 BITS ONLY
00296  M01S00276.comdsys +++|
00297  M01S00277.comdsys +++| DOL4     LDM    CM,T4
00298  M01S00278.comdsys +++| DOL5     OAN    CH+40       DISPLAY BYTE
00299  M01S00279.comdsys +++|          AOD    T4
00300  M01S00280.comdsys +++|          SBN    5
00301  M01S00281.comdsys +++|          NJN    DOL2        IF NOT END OF WORD
00302  M01S00282.comdsys +++|*         LDN    0
00303  M01S00283.comdsys +++|          STD    T4
00304  M01S00284.comdsys +++|          AOD    T2          ADVANCE ADDRESS
00305  M01S00285.comdsys +++|          SHN    -14
00306  M01S00286.comdsys +++|          RAD    T1
00307  M01S00287.comdsys +++|          AOD    T3          COUNT WORD
00308  M01S00288.comdsys +++| DOLA     LMN    6
00309  M01S00289.comdsys +++|          ZJN    DOL3        IF END OF DISPLAY
00310  M01S00290.comdsys +++|          UJN    DOL1        LOOP
00311  M01S00291.comdsys +++| D2S      SPACE  4
00312  M01S00016.241l630 +++| .G       IF     -DEF,N2S$
00313  M01S00292.comdsys +++|***       D2S - DISPLAY 2 DIGITS WITH LEADING 0 SUPPRESSED.
00314  M01S00293.comdsys +++|*
00315  M01S00294.comdsys +++|*         ENTRY  (A) = DIGITS RIGHT ADJUSTED.
00316  M01S00295.comdsys +++|*         (D2SA) = *2RN * WHERE N IS THE CHARACTER TO BE
00317  M01S00296.comdsys +++|*                DISPLAYED FOLLOWING THE DIGITS.
00318  M01S00297.comdsys +++|*
00319  M01S00298.comdsys +++|*         EXIT   (D2SA) IS UNCHANGED.
00320  M01S00299.comdsys +++|*
00321  M01S00300.comdsys +++|*         USES   T0.
00322  M01S00301.comdsys +++|*
00323  M01S00302.comdsys +++|*         CALLS  NONE.
00324  M01S00303.comdsys +++|
00325  M01S00304.comdsys +++|
00326  M01S00305.comdsys +++| D2S      SUBR               ENTRY/EXIT
00327  M01S00306.comdsys +++|          LPN    77          SAVE DIGITS
00328  M01S00307.comdsys +++|          STD    T0
00329  M01S00308.comdsys +++|          ZJN    D2S2        IF BOTH = 0
00330  M01S00309.comdsys +++|          SHN    -3
00331  M01S00310.comdsys +++|          ZJN    D2S1        IF UPPER = 0
00332  M01S00311.comdsys +++|          ADN    1R0         CONVERT UPPER
00333  M01S00312.comdsys +++|          SHN    6
00334  M01S00313.comdsys +++| D2S1     ADD    T0          CONVERT LOWER
00335  M01S00314.comdsys +++|          SCN    70
00336  M01S00315.comdsys +++|          ADN    1R0
00337  M01S00316.comdsys +++| D2S2     OAN    CH+40       DISPLAY DIGITS
00338  M01S00317.comdsys +++|          LDC    2R.         DISPLAY *. *
00339  M01S00318.comdsys +++| D2SA     EQU    *-1
00340  M01S00319.comdsys +++| D2SB     OAN    CH+40
00341  M01S00320.comdsys +++|*         PSN                (DISABLE *. *)
00342  M01S00321.comdsys +++|          UJN    D2SX        RETURN
00343  M01S00017.241l630 +++| .G       ENDIF
00344  M01S00322.comdsys +++| D6S      SPACE 4
00345  M01S00323.comdsys +++|***       D6S - DISPLAY 6 DIGITS WITH LEADING 0 SUPPRESSION.
00346  M01S00324.comdsys +++|*
00347  M01S00325.comdsys +++|*         ENTRY  (A) = DIGITS RIGHT ADJUSTED.
00348  M01S00326.comdsys +++|*
00349  M01S00327.comdsys +++|*         EXIT   NONE.
00350  M01S00328.comdsys +++|*
00351  M01S00329.comdsys +++|*         USES   T0, T1.
00352  M01S00330.comdsys +++|*
00353  M01S00331.comdsys +++|*         CALLS  NONE.
00354  M01S00332.comdsys +++|
00355  M01S00333.comdsys +++|
00356  M01S00334.comdsys +++| D6S      SUBR               ENTRY/EXIT
00357  M01S00335.comdsys +++|          STD    T1          SAVE DIGITS
00358  M01S00336.comdsys +++|          SHN    -14
00359  M01S00337.comdsys +++|          STD    T0
00360  M01S00338.comdsys +++|          ZJN    D6S2        DIGITS 4, 5
00361  M01S00339.comdsys +++|          SHN    -3
00362  M01S00340.comdsys +++|          ZJN    D6S1
00363  M01S00341.comdsys +++|          ADN    1R0
00364  M01S00342.comdsys +++|          SHN    6
00365  M01S00343.comdsys +++| D6S1     ADD    T0
00366  M01S00344.comdsys +++|          SCN    70
00367  M01S00345.comdsys +++|          ADN    1R0
00368  M01S00346.comdsys +++| D6S2     OAN    CH+40
00369  M01S00347.comdsys +++|          LDD    T0          DIGITS 2, 3
00370  M01S00348.comdsys +++|          SHN    14
00371  M01S00349.comdsys +++|          LMD    T1
00372  M01S00350.comdsys +++|          SHN    -6
00373  M01S00351.comdsys +++|          ZJN    D6S4
00374  M01S00352.comdsys +++|          SHN    -3
00375  M01S00353.comdsys +++|          ZJN    D6S3
00376  M01S00354.comdsys +++|          LPN    7
00377  M01S00355.comdsys +++|          ADN    1R0
00378  M01S00356.comdsys +++|          SHN    14
00379  M01S00357.comdsys +++| D6S3     ADD    T1
00380  M01S00358.comdsys +++|          SHN    -6
00381  M01S00359.comdsys +++|          SCN    70
00382  M01S00360.comdsys +++|          ADN    1R0
00383  M01S00361.comdsys +++| D6S4     OAN    CH+40
00384  M01S00362.comdsys +++|          LDD    T0          DIGITS 0, 1
00385  M01S00363.comdsys +++|          SHN    14
00386  M01S00364.comdsys +++|          LMD    T1
00387  M01S00365.comdsys +++|          SHN    -3
00388  M01S00366.comdsys +++|          ZJN    D6S5
00389  M01S00367.comdsys +++|          LPN    7
00390  M01S00368.comdsys +++|          ADN    1R0
00391  M01S00369.comdsys +++|          SHN    6
00392  M01S00370.comdsys +++| D6S5     LMD    T1
00393  M01S00371.comdsys +++|          SCN    7
00394  M01S00372.comdsys +++|          LMD    T1
00395  M01S00373.comdsys +++|          ADN    1R0
00396  M01S00374.comdsys +++| D6S6     OAN    CH+40
00397  M01S00375.comdsys +++|          LDC    2R.         DISPLAY *.*
00398  M01S00376.comdsys +++| D6SA     EQU    *-1
00399  M01S00377.comdsys +++|          OAN    CH+40
00400  M01S00378.comdsys +++|          LJM    D6SX        RETURN
00401  M01S00018.241l630 +++| FDP      SPACE  4,10
00402  M01S00019.241l630 +++|**        FDP - FETCH *EICB* POINTER.
00403  M01S00020.241l630 +++|*
00404  M01S00021.241l630 +++|*         EXIT   (A) = POINTER TO *D7ST* WORD OF THE *EICB*.
00405  M01S00022.241l630 +++|
00406  M01S00023.241l630 +++|
00407  M01S00024.241l630 +++| FDP      SUBR               ENTRY/EXIT
00408  M01S00025.241l630 +++| FDPA     LDC    **          *EICB* POINTER ADDRESS
00409  M01S00026.241l630 +++|          UJN    FDPX        RETURN
00410  M01S00027.241l630 +++| SBO      SPACE  4,10
00411  M01S00028.241l630 +++|**        SBO - SET BIT IN *EICB* TO INDICATE OPERATOR ACTION
00412  M01S00029.241l630 +++|*               IS REQUIRED.
00413  M01S00030.241l630 +++|*
00414  M01S00031.241l630 +++|*         USES   T1 - T5.
00415  M01S00032.241l630 +++|*
00416  M01S00033.241l630 +++|*         CALLS  FDP.
00417  M01S00034.241l630 +++|
00418  M01S00035.241l630 +++|
00419  M01S00036.241l630 +++| SBO      SUBR               ENTRY/EXIT
00420  M01S00037.241l630 +++|          RJM    FDP         GET *EICB* POINTER
00421  M01S00038.241l630 +++|          ZJN    SBOX        IF *EICB* NOT DEFINED
00422  M01S00039.241l630 +++|          CRD    T1
00423  M01S00040.241l630 +++|          LDD    T1
00424  M01S00041.241l630 +++|          LPC    7377
00425  M01S00042.241l630 +++|          LMC    400
00426  M01S00043.241l630 +++|          STD    T1
00427  M01S00044.241l630 +++|          RJM    FDP         GET *EICB* POINTER
00428  M01S00045.241l630 +++|          CWD    T1
00429  M01S00046.241l630 +++|          UJN    SBOX        RETURN
00430  M01S00379.comdsys +++| PSE      SPACE  4
00431  M01S00380.comdsys +++|***       PSE - PAUSE TO MAKE DISPLAY TIME CONSTANT.
00432  M01S00381.comdsys +++|*         USES THE REAL TIME CLOCK IN CM TO INSURE THAT THE DISPLAY
00433  M01S00382.comdsys +++|*         RATE IS CONSTANT.
00434  M01S00383.comdsys +++|*
00435  M01S00384.comdsys +++|*         ENTRY  NONE.
00436  M01S00385.comdsys +++|*
00437  M01S00386.comdsys +++|*         EXIT   NONE.
00438  M01S00387.comdsys +++|*
00439  M01S00388.comdsys +++|*         USES   T1, CM - CM+4.
00440  M01S00389.comdsys +++|*
00441  M01S00390.comdsys +++|*         CALLS  NONE.
00442  M01S00391.comdsys +++|
00443  M01S00392.comdsys +++|
00444  M01S00393.comdsys +++| PSE3     LDD    CM+4        RESET TIME
00445  M01S00394.comdsys +++|          STM    PSEA
00446  M01S00395.comdsys +++|
00447  M01S00396.comdsys +++| PSE      SUBR               ENTRY/EXIT
00448  M01S00397.comdsys +++|          LDN    0
00449  M01S00398.comdsys +++|          STD    T1
00450  M01S00399.comdsys +++| PSE1     LDC    RTCL        READ CLOCK
00451  M01S00400.comdsys +++|          CRD    CM
00452  M01S00401.comdsys +++|          LDD    CM+4        COMPUTE ELAPSED TIME
00453  M01S00402.comdsys +++|          SBM    PSEA
00454  M01S00403.comdsys +++|          PJN    PSE2        IF NO ROLLOVER
00455  M01S00404.comdsys +++|          ADC    10000
00456  M01S00405.comdsys +++| PSE2     SBN    DSCT
00457  M01S00406.comdsys +++|          PJN    PSE3        IF NO DELAY NEEDED
00458  M01S00407.comdsys +++|          LMC    -0          DELAY 1024 CYCLES*MILLISECONDS
00459  M01S00408.comdsys +++|          LMD    T1
00460  M01S00409.comdsys +++|          ZJN    PSE3        IF CLOCK NOT RUNNING
00461  M01S00410.comdsys +++|          LMD    T1
00462  M01S00411.comdsys +++|          STD    T1
00463  M01S00412.comdsys +++|          SHN    11
00464  M01S00413.comdsys +++|          SBN    1
00465  M01S00414.comdsys +++|          NJN    *-1         IF DELAY NOT DONE
00466  M01S00415.comdsys +++|          UJN    PSE1        RESET TIME
00467  M01S00416.comdsys +++|
00468  M01S00417.comdsys +++| PSEA     DATA   0
00469  M01S00418.comdsys +++| ULH      SPACE  4,10
00470  M01S00419.comdsys +++|***       ULH - UNDERLINE HEADERS.
00471  M01S00420.comdsys +++|*
00472  M01S00421.comdsys +++|*         ENTRY  LEFT SCREEN, SMALL CHARACTERS SELECTED,
00473  M01S00422.comdsys +++|*                CHANNEL ACTIVE.
00474  M01S00423.comdsys +++|*
00475  M01S00424.comdsys +++|*         EXIT   RIGHT SCREEN, SMALL CHARACTERS SELECTED,
00476  M01S00425.comdsys +++|*                CHANNEL ACTIVE.
00477  M01S00001.ns2528  +++|*
00478  M01S00002.ns2528  +++|*         USES   T1.
00479  M01S00426.comdsys +++|*
00480  M01S00427.comdsys +++|*         MACROS CFNC, DFIM.
00481  M01S00428.comdsys +++|
00482  M01S00429.comdsys +++|
00483  M01S00430.comdsys +++| ULH      SUBR               ENTRY/EXIT
Line S00431 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00484  M02S00431.ns2528  ---|          DFIM   (LJM ULH3)
Line S00432 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00432.ns2528  ---|          AOM    ULHA        SET LEFT SCREEN FLAG
00486  M01S00003.ns2528  +++|          DFIM   (UJN ULH3)
00487  M01S00004.ns2528  +++|          LDN    1           SET LEFT SCREEN FLAG
00488  M01S00005.ns2528  +++|          STD    T1
00489  M01S00433.comdsys +++|          LDC    HL04-YINC/2 SET Y-COORDINATE
00490  M01S00434.comdsys +++|          OAN    CH+40
00491  M01S00435.comdsys +++| ULH1     LDC    CH01        SET INITIAL POSITION
Line S00436 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00436.ns2528  ---|          STM    ULHB
00493  M01S00006.ns2528  +++|          STM    ULHA
00494  M01S00437.comdsys +++| ULH2     LDN    2
Line S00438 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00495  M02S00438.ns2528  ---|          OAM    ULHB,CH
00496  M01S00007.ns2528  +++|          OAM    ULHA,CH
00497  M01S00439.comdsys +++|          LDN    XINC-3      RESET X-COORDINATE TO CONCATENATE DASHES
Line S00440 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00440.ns2528  ---|          RAM    ULHB
Line S00441 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00441.ns2528  ---|          ADC    -CH64
Line S00442 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00442.ns2528  ---|          MJN    ULH2        IF LINE INCOMPLETE
Line S00443 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00443.ns2528  ---|          LDN    0
Line S00444 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00502  M02S00444.ns2528  ---| ULHA     EQU    *-1         LEFT SCREEN FLAG
Line S00445 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00445.ns2528  ---|          ZJN    ULHX        IF RIGHT SCREEN COMPLETED
Line S00446 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00504  M02S00446.ns2528  ---|          SOM    ULHA        CLEAR LEFT SCREEN FLAG
00505  M01S00008.ns2528  +++|          RAM    ULHA
00506  M01S00009.ns2528  +++|          SHN    21-11
00507  M01S00010.ns2528  +++|          PJN    ULH2        IF LINE INCOMPLETE
00508  M01S00011.ns2528  +++|          SOD    T1
00509  M01S00012.ns2528  +++|          MJN    ULHX        IF RIGHT SCREEN COMPLETED
00510  M01S00447.comdsys +++|          DCN    CH+40
Line S00448 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00448.ns2528  ---| ULH3     CFNC   SRSF,CH     SELECT RIGHT SCREEN - SMALL CHARACTERS
Line S00449 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00449.ns2528  ---|          DFIM   (LJM ULHX)
00513  M01S00013.ns2528  +++| ULH3     CFNC   SRSF        SELECT RIGHT SCREEN - SMALL CHARACTERS
00514  M01S00014.ns2528  +++|          DFIM   (UJN ULHX)
00515  M01S00450.comdsys +++|          UJN    ULH1        ENTER UNDERLINE LOOP
00516  M01S00451.comdsys +++|
00517  M01S00452.comdsys +++|
Line S00453 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00453.ns2528  ---| ULHB     CON    CH01
00519  M01S00015.ns2528  +++| ULHA     CON    CH01
00520  M01S00454.comdsys +++|          DATA   2R-
00521  M01S00455.comdsys +++|          SPACE  4,10
00522  M01S00456.comdsys +++|          QUAL
00523  M01S00457.comdsys +++|
00524  M01S00458.comdsys +++|
00525  M01S00459.comdsys +++|*         DISPLAY SUBROUTINES.
00526  M01S00460.comdsys +++|
00527  M01S00461.comdsys +++|
00528  M01S00462.comdsys +++| FNC      DSUB
00529  M01S00463.comdsys +++|
00530  M01S00464.comdsys +++| HIL      DSUB
00531  M01S00465.comdsys +++|          QUAL   *
00532  M01S00466.comdsys +++|          SPACE  4
00533  M01S00467.comdsys +++|          QUAL   *
00534  M01S00468.comdsys +++| SYS      EQU    /COMDSYS/SYS
00535  M01S00469.comdsys +++| DOL      EQU    /COMDSYS/DOL
00536  M01S00470.comdsys +++| DOLA     EQU    /COMDSYS/DOLA
00537  M01S00047.241l630 +++| .H       IF     -DEF,N2S$
00538  M01S00471.comdsys +++| D2S      EQU    /COMDSYS/D2S
00539  M01S00472.comdsys +++| D2SA     EQU    /COMDSYS/D2SA
00540  M01S00473.comdsys +++| D2SB     EQU    /COMDSYS/D2SB
00541  M01S00048.241l630 +++| .H       ENDIF
00542  M01S00474.comdsys +++| D6S      EQU    /COMDSYS/D6S
00543  M01S00475.comdsys +++| D6SA     EQU    /COMDSYS/D6SA
00544  M01S00049.241l630 +++| FDP      EQU    /COMDSYS/FDP
00545  M01S00050.241l630 +++| FDPA     EQU    /COMDSYS/FDPA
00546  M01S00001.ns2445  +++| .I       IF     DEF,DSDSYS$
00547  M01S00002.ns2445  +++| SBO      EQU    /COMDSYS/SBO
00548  M01S00003.ns2445  +++| .I       ENDIF
00549  M01S00476.comdsys +++|          ENDX
00550  M01S00014.comdsys +++|COMDTFN
Line S53524 Modification History
M01 (Yanked) (Updated by) @025516
M02 (Yanked) (Updated by) @027475
M03 (Yanked) (Updated by) @008964
M04 (Yanked) (Updated by) @054213
M05 (Yanked) (Updated by) @054094
M06 (Yanked) (Updated by) @038158
M07 (Yanked) (Added by) @011077
M08 (Yanked) (Added by) @021378
M09 (Yanked) (Updated by) @037837
M10 (Yanked) (Added by) @015173
M11 (Yanked) (Updated by) @062636
M12 (Yanked) (Updated by) @038095
M13 (Yanked) (Updated by) @049240
M14 (Yanked) (Updated by) @061439
M15 (Updated by) 241l630
M16 (Yanked) (Added by) @000012
Seq #  *Modification Id* Act 
----------------------------+
00551  M16S53524.@000012 +++|          SPACE  4,10
Line S05377 Modification History
M01 (Yanked) (Updated by) @054488
M02 (Yanked) (Added by) @013572
M03 (Yanked) (Added by) @015176
M04 (Yanked) (Updated by) @057582
M05 (Yanked) (Updated by) @056155
M06 (Yanked) (Updated by) @018286
Seq #  *Modification Id* Act 
----------------------------+
00552  M06S05377.@018286 ---|B
00553  M01S00001.@000005 +++| TFTN     SPACE  4,10
00554  M01S00003.comdsys +++|**        TFTN - TABLE OF MONITOR FUNCTIONS.
Line S00004 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000005
Seq #  *Modification Id* Act 
----------------------------+
00555  M02S00004.@000005 ---|*         ENTRY  2 WORDS IF *PP* ASSEMBLY.
Line S00005 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000005
Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00005.@000005 ---|*                1 WORD IF *CP* ASSEMBLY
00557  M01S00006.comdsys +++|*
Line S00007 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000005
Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00007.@000005 ---|*         DATA   4HFTN.      FTN = MONITOR FUNCTION NAME
00559  M01S00002.@000005 +++|*         *TFN* CREATES A TABLE OF MONITOR FUNCTION MNEMONICS BASED ON
00560  M01S00003.@000005 +++|*         THE FOLLOWING OPTIONS -
00561  M01S00004.@000005 +++|*                *CP* ASSEMBLY      1 MNEMONIC IN 1 WORD
00562  M01S00005.@000005 +++|*                *PP* ASSEMBLY
00563  M01S00006.@000005 +++|*                  *TXT$* = 1       2 MNEMONICS IN 5 BYTES
00564  M01S00007.@000005 +++|*                  OTHERWISE        1 MNEMONIC IN 2 BYTES
00565  M01S00008.@000005 +++|*
00566  M01S00009.@000005 +++|*         DATA   4HFTNM      FTN = MONITOR FUNCTION NAME
00567  M01S00001.@000009 +++|*
00568  M01S00002.@000009 +++|*         NOTE - IF *MNF$* IS DEFINED, MACRO *MNF* MUST BE DEFINED IN
00569  M01S00003.@000009 +++|*                THE CALLING PROGRAM.
00570  M01S00004.@000009 +++|*                IF *MTF$* IS DEFINED, A TABLE OF MTR-CPUMTR REQUESTS
00571  M01S00005.@000009 +++|*                IS CREATED, AND MACRO *MTF* MUST BE DEFINED IN THE
00572  M01S00006.@000009 +++|*                CALLING PROGRAM.
00573  M01S00008.comdsys +++|
00574  M01S00009.comdsys +++|
00575  M01S00010.comdsys +++|          NOREF  .TFN
Line S00011 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000005
Seq #  *Modification Id* Act 
----------------------------+
00576  M02S00011.@000005 ---| .TFN     SET    1
Line S00012 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000005
Seq #  *Modification Id* Act 
----------------------------+
00577  M02S00012.@000005 ---|          IFPP   1
00578  M01S00013.comdsys +++| .TFN     SET    2
00579  M01S00010.@000005 +++|          IFPP   4
00580  M01S00011.@000005 +++| .TFN     SET    4
00581  M01S00012.@000005 +++|          IF     DEF,TXT$,2
00582  M01S00013.@000005 +++|          IFEQ   TXT$,1,1
00583  M01S00014.@000005 +++| .TFN     SET    5
00584  M01S00014.comdsys +++|
00585  M01S00007.@000009 +++| .1       IF     -DEF,MNF$
00586  M01S00015.comdsys +++|          PURGMAC MNF
00587  M01S00016.comdsys +++|
00588  M01S00017.comdsys +++| MNF      MACRO  FCN
Line S00018 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000005
Seq #  *Modification Id* Act 
----------------------------+
00589  M02S00018.@000005 ---|          ORG    TFTN+.TFN*FCN
00590  M01S00015.@000005 +++|          ORG    TFTN+.TFN*FCN/2
00591  M01S00019.comdsys +++|          LOC    FCN
Line S00020 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000005
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00020.@000005 ---| I        MICRO  1,3, FCN
Line S00021 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000005
Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00021.@000005 ---|          DATA   4H"I"M
00594  M01S00016.@000005 +++|          DATA   4H_FCN
00595  M01S00022.comdsys +++|          ENDM
00596  M01S00008.@000009 +++| .1       ENDIF
00597  M01S00023.comdsys +++|
00598  M01S00024.comdsys +++|
Line S00025 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000005
Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00025.@000005 ---| TFTN     BSS    0
Line S00017 Modification History
M01 (Yanked) (Added by) @000005
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00017.@000009 ---| TFTN     BSS    0           INITIALIZE THE TABLE WITH BLANKS
Line S00018 Modification History
M01 (Yanked) (Added by) @000005
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00018.@000009 ---| .A       IFNE   .TFN,5
00602  M01S00009.@000009 +++| TFTN     BSS    0           START OF TABLE
00603  M01S00010.@000009 +++|
00604  M01S00011.@000009 +++| .1       IF     -DEF,MNF$
00605  M01S00012.@000009 +++| .A       IFNE   .TFN,5      INITIALIZE THE TABLE WITH BLANKS
00606  M01S00026.comdsys +++|          DUP    MXFM,1
00607  M01S00027.comdsys +++|          DATA   4H
00608  M01S00019.@000005 +++| .A       ELSE
00609  M01S00020.@000005 +++| .1       SET    MXFM+1
00610  M01S00021.@000005 +++|          DUP    .1/2,1
00611  M01S00022.@000005 +++|          DATA   10H
00612  M01S00023.@000005 +++| .A       ENDIF
00613  M01S00013.@000009 +++| .1       ENDIF
00614  M01S00024.@000005 +++|
00615  M01S00014.@000009 +++|          SPACE  4
00616  M01S00015.@000009 +++|**        PPR FUNCTIONS.
00617  M01S00016.@000009 +++|
00618  M01S00017.@000009 +++|          MNF    ASCM
00619  M01S00018.@000009 +++|          MNF    BOTM
00620  M01S00028.comdsys +++|
00621  M01S00029.comdsys +++|**        PP MONITOR FUNCTIONS.
00622  M01S00030.comdsys +++|
00623  M01S00019.@000009 +++|
00624  M01S00020.@000009 +++|*         PP MONITOR FUNCTIONS THAT DO NOT ALLOW STORAGE MOVE.
00625  M01S00021.@000009 +++|
00626  M01S00031.comdsys +++|          MNF    CCHM
00627  M01S00032.comdsys +++|          MNF    DCHM
Line S00033 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2445
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00033.ns2445  ---|          MNF    DEQM
00629  M01S00034.comdsys +++|          MNF    DRCM
00630  M01S00035.comdsys +++|          MNF    DSRM
Line S00036 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00036.ns2528  ---|          MNF    EATM
Line S00037 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00037.@000009 ---|          MNF    ECXM
00633  M01S00022.@000009 +++|          MNF    RCXM
Line S00038 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2445
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00038.ns2445  ---|          MNF    REQM
Line S00039 Modification History
M01 (Added by) comdsys
M02 (Updated by) ns2528
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00039.ns2528  ---|          MNF    RJSM
Line S00040 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00040.@000009 ---|          MNF    SEQM
00637  M01S00041.comdsys +++|          MNF    SFLM
Line S00042 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00042.@000009 ---|          MNF    TGPM
Line S00043 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00043.@000009 ---|          MNF    TSEM
00640  M01S00044.comdsys +++|
Line S00045 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00045.@000009 ---|*         STORAGE MOVE ALLOWED FUNCTIONS.
00642  M01S00023.@000009 +++|*         PP MONITOR FUNCTIONS THAT DO ALLOW STORAGE MOVE.
00643  M01S00046.comdsys +++|
00644  M01S00047.comdsys +++|          MNF    CDBM
00645  M01S00048.comdsys +++|          MNF    DSWM
Line S00049 Modification History
M01 (Added by) comdsys
M02 (Updated by) dsys1
Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00049.dsys1   ---|          MNF    HNGM
00647  M01S00001.dsys1   +++|          MNF    HLTM
00648  M01S00050.comdsys +++|          MNF    PRLM
00649  M01S00051.comdsys +++|          MNF    RCHM
00650  M01S00052.comdsys +++|          MNF    RSTM
00651  M01S00024.@000009 +++|          MNF    SEQM
00652  M01S00053.comdsys +++|
00653  M01S00054.comdsys +++|**        CPU MONITOR FUNCTIONS.
00654  M01S00055.comdsys +++|
00655  M01S00056.comdsys +++|
00656  M01S00002.dsys1   +++|*         CPUMTR FUNCTIONS THAT ALLOW STORAGE MOVE.
00657  M01S00003.dsys1   +++|
00658  M01S00004.dsys1   +++|          MNF    CHGM
00659  M01S00005.dsys1   +++|          MNF    HNGM
00660  M01S00001.@000007 +++|          MNF    SCSM
00661  M01S00006.dsys1   +++|
Line S00057 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00057.@000009 ---|*         FUNCTIONS THAT ACCESS TABLES ON INDEPENDENT SHARED
Line S00058 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00058.@000009 ---|*         DEVICES AND MUST BE PERFORMED IN CPU-0.
Line S00059 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00059.@000009 ---|
Line S00060 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00060.@000009 ---|          MNF    AFAM
Line S00061 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00061.@000009 ---|          MNF    DLKM
Line S00062 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00062.@000009 ---|          MNF    DTKM
Line S00063 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00063.@000009 ---|          MNF    RTCM
Line S00064 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00669  M02S00064.@000009 ---|          MNF    STBM
Line S00065 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00670  M02S00065.@000009 ---|          MNF    VMSM
Line S00066 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00671  M02S00066.@000009 ---|
Line S00067 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00067.@000009 ---|*         FUNCTIONS THAT MUST BE PERFORMED IN CPU-0.
Line S00068 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00068.@000009 ---|
Line S00069 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00069.@000009 ---|          MNF    ACTM
Line S00070 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00070.@000009 ---|          MNF    BFMM
Line S00071 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00071.@000009 ---|          MNF    CKSM
Line S00072 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00072.@000009 ---|          MNF    CSTM
Line S00073 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00073.@000009 ---|          MNF    ECSM
Line S00074 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00074.@000009 ---|          MNF    PIOM
Line S00075 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00075.@000009 ---|          MNF    RDCM
00681  M01S00025.@000009 +++|*         FUNCTIONS THAT MUST BE PERFORMED IN CPU 0.
00682  M01S00026.@000009 +++|
Line S00027 Modification History
M01 (Yanked) (Added by) @000009
M02 (Yanked) (Updated by) @000013
Seq #  *Modification Id* Act 
----------------------------+
00683  M02S00027.@000013 ---|          MNF    SPLM
00684  M01S00028.@000009 +++|          MNF    ACTM
00685  M01S00029.@000009 +++|          MNF    AFAM
00686  M01S00030.@000009 +++|          MNF    BFMM
00687  M01S00031.@000009 +++|          MNF    CKSM
00688  M01S00032.@000009 +++|          MNF    CSTM
00689  M01S00033.@000009 +++|          MNF    DLKM
00690  M01S00034.@000009 +++|          MNF    DTKM
00691  M01S00035.@000009 +++|          MNF    ECSM
00692  M01S00036.@000009 +++|          MNF    ECXM
00693  M01S00001.@000013 +++|          MNF    MTEM
00694  M01S00037.@000009 +++|          MNF    PIOM
00695  M01S00038.@000009 +++|          MNF    RDCM
00696  M01S00039.@000009 +++|          MNF    RTCM
00697  M01S00040.@000009 +++|          MNF    SMDM
00698  M01S00041.@000009 +++|          MNF    STBM
00699  M01S00042.@000009 +++|          MNF    VMSM
00700  M01S00076.comdsys +++|
00701  M01S00077.comdsys +++|*         FUNCTIONS THAT MUST BE PERFORMED IN THE ACTIVE CPU.
00702  M01S00078.comdsys +++|
00703  M01S00002.@000013 +++|          MNF    SPLM
00704  M01S00079.comdsys +++|          MNF    ABTM
00705  M01S00001.241l630 +++|          MNF    BIOM
00706  M01S00002.241l630 +++|          MNF    BMIM
00707  M01S00080.comdsys +++|          MNF    CCAM
00708  M01S00001.@000006 +++|          MNF    CDAM
00709  M01S00081.comdsys +++|          MNF    CEFM
00710  M01S00025.@000005 +++|          MNF    CPRM
00711  M01S00082.comdsys +++|          MNF    DCPM
00712  M01S00001.ns2445  +++|          MNF    DEQM
00713  M01S00083.comdsys +++|          MNF    DFMM
00714  M01S00084.comdsys +++|          MNF    DPPM
00715  M01S00001.ns2528  +++|          MNF    EATM
00716  M01S00085.comdsys +++|          MNF    JACM
Line S00002 Modification History
M01 (Added by) ns2528
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00717  M02S00002.@000009 ---|          MNF    RJSM
00718  M01S00086.comdsys +++|          MNF    LDAM
00719  M01S00001.281l803 +++|          MNF    LMSM
00720  M01S00087.comdsys +++|          MNF    MTRM
00721  M01S00088.comdsys +++|          MNF    PLFM
00722  M01S00089.comdsys +++|          MNF    RCLM
00723  M01S00090.comdsys +++|          MNF    RCPM
00724  M01S00091.comdsys +++|          MNF    RECM
00725  M01S00002.ns2445  +++|          MNF    REQM
00726  M01S00043.@000009 +++|          MNF    RJSM
00727  M01S00092.comdsys +++|          MNF    RLMM
00728  M01S00093.comdsys +++|          MNF    ROCM
00729  M01S00094.comdsys +++|          MNF    RPNM
00730  M01S00095.comdsys +++|          MNF    RPPM
00731  M01S00096.comdsys +++|          MNF    RSJM
00732  M01S00097.comdsys +++|          MNF    SCDM
00733  M01S00001.@000010 +++|          MNF    SCTM
00734  M01S00098.comdsys +++|          MNF    SFBM
00735  M01S00099.comdsys +++|          MNF    SJCM
Line S00100 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00736  M02S00100.@000009 ---|          MNF    SPLM
00737  M01S00101.comdsys +++|          MNF    TDAM
00738  M01S00003.@000013 +++|          MNF    TDRM
00739  M01S00044.@000009 +++|          MNF    TGPM
00740  M01S00102.comdsys +++|          MNF    TIOM
00741  M01S00045.@000009 +++|          MNF    TRCM
00742  M01S00046.@000009 +++|          MNF    TSEM
00743  M01S00103.comdsys +++|          MNF    UADM
00744  M01S00104.comdsys +++|          MNF    UTEM
00745  M01S00003.ns2528  +++|          MNF    VFLM
00746  M01S00105.comdsys +++|          MNF    VFPM
00747  M01S00003.ns2445  +++|          MNF    VSAM
Line S00001 Modification History
M01 (Yanked) (Added by) @000008
M02 (Yanked) (Updated by) @000009
Seq #  *Modification Id* Act 
----------------------------+
00748  M02S00001.@000009 ---|          MNF    SMDM
00749  M01S00106.comdsys +++|
00750  M01S00107.comdsys +++|
00751  M01S00047.@000009 +++| .1       IF     -DEF,MNF$
Line S00108 Modification History
M01 (Added by) comdsys
M02 (Yanked) (Updated by) @000005
Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00108.@000005 ---|          ORG    TFTN+.TFN*MXFM
00753  M01S00026.@000005 +++|          ORG    TFTN+.TFN*MXFM/2
00754  M01S00109.comdsys +++|
00755  M01S00110.comdsys +++|          DATA   4H
00756  M01S00048.@000009 +++| .1       ENDIF
00757  M01S00049.@000009 +++|
00758  M01S00050.@000009 +++| .2       IF     DEF,MTF$
00759  M01S00051.@000009 +++|**        TMFN - TABLE OF MTR REQUESTS.
00760  M01S00052.@000009 +++|
00761  M01S00053.@000009 +++| TMFN     BSS    0
00762  M01S00002.@000010 +++|          MTF    CCPF
00763  M01S00003.@000010 +++|          MTF    CSWF
00764  M01S00054.@000009 +++|          MTF    ARTF
00765  M01S00055.@000009 +++|          MTF    CSLF
00766  M01S00056.@000009 +++|          MTF    EPRF
00767  M01S00057.@000009 +++|          MTF    RCLF
00768  M01S00058.@000009 +++|          MTF    MFLF
00769  M01S00059.@000009 +++|          MTF    MRAF
Line S00060 Modification History
M01 (Yanked) (Added by) @000009
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
00770  M02S00060.@000011 ---|          MTF    SMSF
Line S00061 Modification History
M01 (Yanked) (Added by) @000009
M02 (Yanked) (Updated by) @000011
Seq #  *Modification Id* Act 
----------------------------+
00771  M02S00061.@000011 ---|          MTF    CMSF
00772  M01S00001.@000011 +++|          MTF    MSCF
00773  M01S00062.@000009 +++|          MTF    PRQF
Line S00063 Modification History
M01 (Yanked) (Added by) @000009
M02 (Yanked) (Updated by) @000010
Seq #  *Modification Id* Act 
----------------------------+
00774  M02S00063.@000010 ---|          MTF    ACSF
00775  M01S00004.@000010 +++|          MTF    TCSF
00776  M01S00064.@000009 +++|          MTF    PCXF
00777  M01S00065.@000009 +++|          MTF    ARMF
00778  M01S00066.@000009 +++|          MTF    UCCF
00779  M01S00067.@000009 +++|          MTF    CRAF
00780  M01S00068.@000009 +++|          MTF    ADTF
00781  M01S00002.@000011 +++|          MTF    SKCF
00782  M01S00069.@000009 +++|
Line S00070 Modification History
M01 (Yanked) (Added by) @000009
M02 (Yanked) (Updated by) @000010
Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00070.@000010 ---|          ERRNZ  MXPF-20     CHECK *COMSMTR*, *COMSPDT*
00784  M01S00005.@000010 +++|          ERRNZ  MXPF-21     CHECK *COMSMTR*, *COMSPDT*
00785  M01S00071.@000009 +++| .2       ENDIF
00786  M01S00111.comdsys +++|          SPACE  4,10
00787  M01S00112.comdsys +++|          ENDX
cdc/nos2.source/opl.opl871/common/comdsys.txt ยท Last modified: by 127.0.0.1